10   REM ...FIGHT.BS5
15   PRINT "PLEASE SAVE THIS PROGRAM FOR 2 MONTHS,STARTING JAN.1,1978."
20   PRINT "THIS IS A HANSON PROGRAM."
30   PRINT "DO YOU NEED INSTRUCTIONS?"
40   INPUT " (1=Yes, 0=No) ---=>"A9
50   IF A9=1 THEN 90
60   IF A9=0 THEN 140
70   PRINT "ERROR RETYPE LINE"
80   GOTO 40
90   PRINT "THIS IS A PROGRAM ABOUT 5 FIGHTER AIRPLANES 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=Yes, 0=No) ---=>"B9
180  IF B9=1 THEN 220
190  IF B9=0 THEN 310
200  PRINT "ERROR RETYPE LINE"
210  GOTO 170
220  PRINT "1234567891011121314151617181920"
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  A=0
370  B=0
380  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 " --=>"E
430     IF INT(E)<>E THEN 460
440     IF E>20 THEN 460
445     IF 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 420
515     A=A+E
517     PRINT "YOU HAVE ";20-A;" ROUNDS LEFT."
518     PRINT "YOU HAVE ";500-B;" DOLLARS LEFT."
520     F=INT(8*RND(0)+1)
530     IF E>F THEN 550
535     IF E=F THEN 550
540     GOTO 780
550     PRINT "BOOMSMASHPOWPCKCKCKCKCKCKCK(YOU GOT HIM)"
551     C=C+1
553     IF B=500 THEN 760
560     PRINT "DO YOU WANT TO BUY MORE AMMUNITION"
570     INPUT "(1=Yes, 0=No) ---=>"C9
580     IF C9=1 THEN 620
590     IF C9=0 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 THEN 660
651     IF G=200 THEN 660
652     IF G=300 THEN 660
653     IF G=400 THEN 660
654     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     A=A-(G/100)
730     B=B+G
740     PRINT "YOU HAVE ";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  H=INT(10*RND(0)+1)
850  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=Yes, 0=No) ---=>"J9
900  IF J9=1 THEN 395
910  IF J9=0 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 ";20-A;" ROUNDS LEFT."
980  PRINT "YOU HAD ";500-B;" DOLLARS LEFT."
990  PRINT "YOU HIT ";C;" ENEMY FIGHTERS."
991  IF C<2 THEN 995
992  IF C<4 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    M=INT(6*RND(0)+1)
1040    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,"
1080 PRINT "AND HE MISSED EVERY TIME"
1090 GOTO 960
1100 PRINT 
1120 PRINT "DO YOU WANT TO PLAY AGAIN"
1130 INPUT "(1=Yes, 0=No) ---=>"Z9
1140 IF Z9=1 THEN 20
1150 IF Z9=0 THEN 1180
1160 PRINT "ERROR RETYPE LINE"
1170 GOTO 1130
1180 END