10 REM FIGHT.ECB
   15 REM ...FIGHTER...from MECC H5O3009  1-13-78  by Hanson
   20 REM ...Revised 03-08-81  R.E.H.
   30 PRINT "&K&J";TAB(9);"-=<  F I G H T E R  >=-": PRINT
   40 PRINT "Do you need instructions ---=>";
   50 INPUT (1,0)A$: LET A$=A$+"N": PRINT
   60 IF A$(1,1)="N" THEN 140
   70 IF A$(1,1)="n" THEN 140
   80 PRINT "&K";TAB(9);"+*+  F I G H T E R  +*+&J&J"
   90 PRINT "THIS IS A PROGRAM ABOUT 5 FIGHTER PLANES ATTACKING YOUR P-52."
  100 PRINT "YOU WILL GET 20 ROUNDS OF AMMO, WITH $500 TO BUY MORE."
  110 PRINT "ONE ROUND OF AMMO COSTS $100.  YOU CAN GO AFTER AN ENEMY PLANE"
  120 PRINT "AGAIN IF YOU MISS.THE ENEMY CAN ALSO SHOOT YOU."
  130 PRINT "ONLY ONE PLAYER."
  140 PRINT
  150 PRINT
  160 PRINT "DO YOU WANT A MAP OF YOU AND THE ENEMY"
  170 INPUT (1,0)" ---=>",B$: LET B$=B$+"Y"
  180 IF B$(1,1)="Y" THEN 220
  190 IF B$(1,1)="N" THEN 310
  200 PRINT "ERROR RETYPE LINE"
  210 GOTO 170
  220 PRINT "&K1234567891011121314151617181920"
  230 PRINT "-------------------------------"
  240 PRINT "*(YOU)........................."
  250 PRINT "......#(1ST ENEMY)............."
  260 PRINT "....#(2ND ENEMY)..............."
  270 PRINT ".........(3RD ENEMY)#.........."
  280 PRINT "........#(4TH ENEMY)..........."
  290 PRINT "#(5TH ENEMY)..................."
  310 PRINT
  320 PRINT
  330 PRINT ">>>GAME START<<<"
  340 PRINT "-------------------------------------------------------------"
  350 PRINT
  360 LET A=0
  370 LET B=0
  380 LET C=0
  390 FOR D=1 TO 5
  395   IF A=20 THEN 1005
  400   PRINT "HERE COMES FIGHTER";D;"."
  410   PRINT "How many rounds do you want to FIRE ---=>";
  420   INPUT (2,0)E
  430   IF INT(E)<>E THEN 460
  440   IF E>20 OR E<1 THEN 460
  450   GOTO 480
  460   PRINT "ERROR RETYPE LINE"
  470   GOTO 420
  480   IF A+E>20 THEN 500
  490   GOTO 515
  500   PRINT "YOU DO NOT HAVE THAT MUCH AMMUNITION."
  510   GOTO 410
  515   LET A=A+E
  517   PRINT "You have";%C;20-A;" rounds left."
  518   PRINT "You have ";%$;500-B;" dollars left."
  520   LET F=INT(8*RND(0)+1)
  530   IF E>=F THEN 550
  540   GOTO 780
  550   PRINT "BOOMSMASHPOWPCKCKCKCKCKCKCK(YOU GOT HIM)"
  551   LET C=C+1
  553   IF B=500 THEN 760
  560   PRINT "Do you want to buy more AMMUNITION ---=>";
  570   INPUT (1,0)C$: LET C$=C$+"N"
  580   IF C$(1,1)="Y" THEN 620
  590   IF C$(1,1)="N" THEN 760
  600   PRINT "ERROR RETYPE LINE"
  610   GOTO 570
  620   PRINT "You have ";%$;500-B;" dollars left."
  630   PRINT "HOW MUCH DO YOU WANT TO SPEND FOR AMMUNITION";
  640   INPUT " ---=>",G
  650   IF G=100 OR G=200 THEN 660
  651   IF G=300 OR G=400 THEN 660
  652   IF G=500 THEN 660
  655   GOTO 700
  660   IF B+G>500 THEN 690
  680   GOTO 720
  690   PRINT "YOU DO NOT HAVE THAT MUCH MONEY."
  700   PRINT "ERROR RETYPE LINE"
  710   GOTO 640
  720   LET A=A-(G/100)
  730   LET B=B+G
  740   PRINT "You have";%C;20-A;" rounds left."
  750   PRINT "You have ";%$;500-B;" dollars left."
  760 NEXT D
  770 GOTO 960
  780 PRINT "YOU MISSED."
  810 PRINT "NOW THE ENEMY GETS TO TAKE A SHOT AT YOU"
  840 LET H=INT(10*RND(0)+1)
  850 LET I=INT(10*RND(0))
  860 IF H=I THEN 940
  870 PRINT "YOU ARE LUCKY,HE MISSED YOU"
  871 IF A=20 THEN 873
  872 GOTO 880
  873 IF B=500 THEN 1005
  874 GOTO 553
  880 PRINT "DO YOU WANT TO GO AFTER HIM AGAIN ---=>";
  890 INPUT (1,0)J$: LET J$=J$+"Y"
  900 IF J$(1,1)="Y" THEN 395
  910 IF J$(1,1)="N" THEN 553
  920 PRINT "ERROR RETYPE LINE"
  930 GOTO 890
  940 PRINT "BOOMSMASHPOWPCKPCKCKCKCK(HE GOT YOU)"
  950 PRINT "YOUR NEXT OF KIN WILL BE NOTIFIED."
  960 PRINT "--------------------------------------------------------"
  961 PRINT "***GAME*END***"
  970 PRINT "You had";%C;20-A;" rounds left."
  980 PRINT "You had ";%$;500-B;" dollars left."
  990 PRINT "You HIT";C;" ENEMY fighters."
  991 IF C=0 OR C=1 THEN 995
  992 IF C=2 OR C=3 THEN 997
  993 IF C=4 THEN 999
  994 IF C=5 THEN 1001
  995 PRINT "YOU DID CRUSTY"
  996 GOTO 1100
  997 PRINT "YOU DID OKAY."
  998 GOTO 1100
  999 PRINT "YOU DID GREAT"
 1000 GOTO 1100
 1001 PRINT "YOU ARE AN ACE PILOT"
 1002 GOTO 1100
 1005 PRINT "YOU ARE OUT OF AMMO AND MUST RUN"
 1010 PRINT "NOW THE ENEMY STARTS CHASING YOU"
 1020 FOR J=1 TO 6
 1030   LET M=INT(6*RND(0)+1)
 1040   LET N=INT(6*RND(0)+1)
 1050   IF M=N THEN 940
 1060 NEXT J
 1070 PRINT "YOU ARE LUCKY,HE HAD 6 CHANCES TO GET YOU,AND HE MISSED"
 1080 PRINT "EVERY TIME"
 1090 GOTO 960
 1100 PRINT
 1120 PRINT "DO YOU WANT TO PLAY AGAIN ---=>";
 1130 INPUT (1,0)Z$: LET Z$=Z$+"Y"
 1140 IF Z$(1,1)="Y" THEN 20
 1150 IF Z$(1,1)="N" THEN 1180
 1160 PRINT "ERROR RETYPE LINE"
 1170 GOTO 1130
 1180 END