10 PRINT CHR$(26)
11 T=0
15 BLANK$="       "
20 Y5=5:GOSUB 670
30 PRINT "YOU HAVE BEEN ASKED TO GO ON A MISSION TO DESTROY FIVE"
40 PRINT "ENEMY CRAFTS THAT THREATEN THE GALAXY...."
50 PRINT "YOU MUST POSITION YOUR CRAFT SO THAT THE ENEMY"
60 PRINT "IS IN A POSITION IN THE CENTER OF YOUR GUNSIGHT IN ORDER"
70 PRINT "TO DESTROY THE ENEMY CRAFT"
80 PRINT "THE AIMING IS DONE AS FOLLOWS"
90 PRINT "HIT A U FOR UP MOTION"
100 PRINT "HIT A D FOR DOWN MOTION"
110 PRINT "HIT A L FOR LEFT AN R FOR RIGHT AND F TO FIRE"
170 FOR N=0 TO 1500: NEXT N
180 INPUT "TYPE N FOR NOVICE PILOT, E FOR EXPERIENCED, A FOR ACE";V$
185 RANDOMIZE
190 IF V$="E" THEN V8=200
200 IF V$="N" THEN V8=350
210 IF V$ = "A" THEN V8=100
220 PRINT CHR$(26)
230 Y5=10:X5=10:GOSUB 670
240 PRINT "GOOD LUCK ON YOUR MISSION --- ON INTO BATTLE!!!"
250 FOR N=0 TO 1000:NEXT N
270 D2=1:D1=1:PRINT CHR$(26)
280 GOSUB 1140
290 Y5=6:X5=0:GOSUB 670:GOSUB 500
300 Y5=INT(10*RND+7)
310 X5=INT(20*RND+21)
320 GOSUB 670
330 GOSUB 640
340 GOSUB 690
350 GOSUB 1080
355 ST=INP(3)
360 IF(ST AND 2)=0 THEN 350
365 IN=INP(2)
370 D=(IN AND 127)
380 GOSUB 670
390 IF D=76 THEN X5=X5+1
400 IF D=82 THEN X5=X5-1
410 IF D=85 THEN Y5=Y5+1
420 IF D=68 THEN Y5=Y5-1
430 IF D=70 THEN 710
440 IF D=3 THEN 500
450 GOSUB 1050
460 GOSUB 670
470 GOSUB 640
480 GOTO 340
500 PRINT "                         ----------------------"
510 PRINT "                                    |"
520 PRINT "                                    |"
530 PRINT "                                    |"
540 PRINT "                |                                       |"
550 PRINT "                |          |                 |          |"
560 PRINT "                |----------|                 |----------|"
570 PRINT "                |          |                 |          |"
580 PRINT "                |                                       |"
590 PRINT "                                    |"
600 PRINT "                                    |"
610 PRINT "                                    |"
620 PRINT "                         ---------------------"
630 RETURN
640 PRINT "I-0-I"
650 P=Y5:Q=X5
660 RETURN
670 PRINT CHR$(27)+"="+CHR$(32+Y5)+CHR$(32+X5);
680 RETURN
690 PRINT CHR$(27)+"="+CHR$(32)+CHR$(32)
700 RETURN
710 IF Y5=12 THEN 740
720 GOSUB 880
730 GOTO 320
740 IF X5=34 THEN 770
750 GOSUB 880
760 GOTO 320
770 Y5=12:X5=33:GOSUB 670:PRINT "   POW   "
780 FOR N=0 TO 100:PRINT CHR$(7);:NEXT N
790 FOR N=0 TO 100:NEXT N
800 GOSUB 670:PRINT BLANK$+CHR$(0)
810 FOR N=0 TO 100:NEXT N
820 Y5=22:X5=0:GOSUB 670
830 PRINT "M A Y   T H E   F O R C E   B E   W I T H   Y O U !!!!!"
840 Y5=1:X5=50:GOSUB 670
850 PRINT "ENEMY DESTROYED=";D1
860 D1=D1+1
865 IF D1=6 THEN 920
870 GOTO 300
880 P=Y5:Q=X5:Y5=2:X5=50:GOSUB 670
890 PRINT "NUMBER MISSED =";D2:D2=D2+1
900 Y5=P:X5=Q:GOSUB 670
910 RETURN
920 Y5=22:X5=10:GOSUB 670
930 D2=D2-1
940 Y5=20:X5=0:GOSUB 670
950 PRINT "THE HOME BASE HAS BEEN SAVED-CONGRADULATIONS"
960 PRINT "YOUR MISSION RECORD: ";5/(5+D2)*100;"% PERFORMANCE"
970 IF 5/5+D2*100 >75 THEN V8=V8-50
980 IF 5/5+D2*100 <51 THEN V8=V8+50
990 PRINT "DO YOU WANT ANOTHER MISSION?"
995 ST=INP(3)
1000 IF(ST AND 2) =0 THEN 995
1010 X=(INP(2) AND 127)
1020 IF X<>89 THEN STOP
1030 GOTO 270
1040 Y5=0:X5=0:GOSUB 670
1050 PRINT CHR$(27)+"="+CHR$(32+P)+CHR$(32+Q);
1060 PRINT BLANK$+CHR$(0)
1070 RETURN
1080 T=T+1
1090 IF T>V8 THEN 1110
1100 RETURN
1110 IF X5>36 THEN 1116
1011 IF Y5<12 THEN 1116
1112 X5=X5-1:Y5=Y5+1:GOSUB 1050: GOSUB 670:GOSUB 640: GOSUB 690: GOTO 1120
1114 GOTO 1120
1116 X5=X5+1:Y5=Y5-1:GOSUB 1050:GOSUB 670:GOSUB 640:GOSUB 690:GOTO 1120
1120 IF Y5>18 THEN PRINT CHR$(26):PRINT "YOURE SHOT DOWN!!!":GOTO 500
1122 IF Y5<5 THEN PRINT CHR$(26):PRINT "YOUR SHOT DOWN!!!":GOTO 500
1130 T=0:RETURN
1140 IF V8<=100 THEN Q$="RATING=ACE PILOT":GOTO 1170
1150 IF V8>= 350 THEN Q$="RATING=NOVICE PILOT":GOTO 1170
1160 Q$="RATING=EXPERIENCED PILOT"
1170 Y5=2:X5=25:GOSUB 670
1180 PRINT Q$
1190 RETURN
