mirror of
https://github.com/rfivet/BCG101.git
synced 2024-12-18 08:06:27 -05:00
Add BOMBER, ROCKT1 and SALVO1.
This commit is contained in:
parent
54517fa00e
commit
707385e13e
57
dec/BOMBER.BAS
Normal file
57
dec/BOMBER.BAS
Normal file
@ -0,0 +1,57 @@
|
||||
5 RANDOM:PRINT"YOU ARE NOW A PILOT IN A WORLD WAR II BOMBER
|
||||
10 INPUT "WHAT SIDE -- ITALY(1), ALLIES(2), JAPANESE(3), GERMANY(4)";A
|
||||
20 IF A>0 AND A<5 THEN 25 ELSE PRINT "TRY AGAIN...."\GOTO 10
|
||||
25 ON A GOTO 30,110,200,220
|
||||
30 INPUT "WHAT IS YOUR TARGET -- ALBANIA(1), GREECE(2), NORTH AFRICA(3)";B
|
||||
40 IF B>0 AND B<4 THEN 45 ELSE PRINT "TRY AGAIN...."\GOTO 30
|
||||
45 PRINT\ONB GOTO 50,80,90
|
||||
50 PRINT"SHOULD BE EASY.YOU'RE FLYING A NAZI-MADE PLANE.
|
||||
60 GOTO 280
|
||||
80 PRINT "BE CAREFUL!!!"\GOTO 280
|
||||
90 PRINT "YOU'RE GOING FOR THE OIL, EH?"\GOTO 280
|
||||
110 INPUT "AIRCRAFT -- LIBERATOR(1), B-29(2), B-17(3), LANCASTER(4)";G
|
||||
120 IF G>0 AND G<5 THEN 125 ELSE PRINT "TRY AGAIN..."\GOTO 110
|
||||
125 PRINT\ON G GOTO 130,150,170,190
|
||||
130 PRINT "YOU'VE GOT 2 TONS OF BOMBS FLYING FOR PLOESTI"
|
||||
140 GOTO 280
|
||||
150 PRINT "YOU'RE DUMPING THE A-BOMB ON HIROSHIMA."
|
||||
160 GOTO 280
|
||||
170 PRINT "YOU'RE CHASING THE BISMARK IN THE NORTH SEA."
|
||||
180 GOTO 280
|
||||
190 PRINT "YOU'RE BUSTING A GERMAN HEAVY WATER PLANT IN THE RUHR."
|
||||
195 GOTO 280
|
||||
200 PRINT "YOU'RE FLYING A KAMIKAZE (SUICIDE BOMBER) OVER THE USS LEXINGTON."
|
||||
205 INPUT "YOUR FIRST KAMIKAZE MISSION (Y OR N)";F$
|
||||
207 IF F$="N" THEN S=0\GOTO 358
|
||||
210 PRINT\IF RND>.65 THEN 325 ELSE 380
|
||||
220 PRINT "A NAZI, EH? OH WELL. ARE YOU GOING FOR RUSSIA(1), ENGLAND(2)"
|
||||
230 INPUT"OR FRANCE(3)";M\IF M>0 AND M<4 THEN 235 ELSE PRINT "WHAT??"\GOTO 220
|
||||
235 PRINT\ON M GOTO 250,260,270
|
||||
250 PRINT "YOU'RE NEARING STALINGRAD....."\GOTO 280
|
||||
260 PRINT "NEARING LONDON. BE CAREFUL, THEY'VE GOT A GOOD AIR-RAID DEFENCE."
|
||||
265 GOTO 280
|
||||
270 PRINT "NEARING VERSAILLES. DUCK SOUP. THEY'RE NEARLY DEFENSELESS."
|
||||
280 PRINT
|
||||
285 INPUT "HOW MANY MISSIONS HAVE YOU FLOWN";D
|
||||
290 IF D<160 THEN 300 ELSE PRINT "MISSIONS, NOT MILES..."
|
||||
295 PRINT "150 MISSIONS IS HIGH EVEN FOR OLD-TIMERS. NOW THEN,"\GOTO 285
|
||||
300 PRINT\IF D<100 THEN 310 ELSE PRINT "THAT'S PUSHING THE ODDS!"\GOTO 320
|
||||
310 IF D<25 THEN PRINT "FRESH OUT OF TRAINING, EH?"
|
||||
320 PRINT\IF D<160*RND THEN 330
|
||||
325 PRINT "DIRECT HIT!!!! "INT(100*RND)"KILLED! MISSION SUCCESSFUL."\GOTO 390
|
||||
330 PRINT "MISSED TARGET BY"INT(2+30*RND)"MILES!!"
|
||||
335 PRINT "NOW YOU'RE REALLY IN FOR IT !!"\PRINT
|
||||
340 INPUT "DOES THE ENEMY HAVE GUNS(1), MISSILES(2), OR BOTH(3)";R
|
||||
345 IF R>0 AND R<4 THEN 350 ELSE PRINT "TRY AGAIN...."\GOTO 340
|
||||
350 PRINT\IF R=2 THEN 360
|
||||
355 INPUT "WHAT IS THE PERCENT HIT RATE OF ENEMY GUNNERS (10 TO 50)";S
|
||||
358 IF S<10 THEN PRINT "YOU LIE, BUT YOU'LL PAY..."\PRINT\GOTO 380
|
||||
360 PRINT\IF R>1 THEN T=35
|
||||
365 IF S+T>100*RND THEN 380
|
||||
370 PRINT"YOU MADE IT THROUGH TREMENDOUS FLAK!!"\GOTO 390
|
||||
380 PRINT "* * * * * BOOM * * * * *"
|
||||
384 PRINT "YOU HAVE BEEN SHOT DOWN......."
|
||||
386 PRINT "DEARLY BELOVED, WE ARE GATHERED HERE TODAY TO PAY OUR LAST TRIBUTE.."
|
||||
390 PRINT\PRINT\PRINT\INPUT "PLAY AGAIN (Y OR N)";U$\IF U$="Y" THEN 10
|
||||
400 PRINT "CHICKEN!!!!!"\PRINT\PRINT
|
||||
999 END
|
||||
68
dec/ROCKT1.BAS
Normal file
68
dec/ROCKT1.BAS
Normal file
@ -0,0 +1,68 @@
|
||||
70 PRINT "LUNAR LANDING SIMULATION"
|
||||
80 PRINT "----- ------- ----------"\PRINT
|
||||
100 INPUT "DO YOU WANT INSTRUCTIONS (YES OR NO)";A$
|
||||
110 IF A$="NO" THEN 390
|
||||
160 PRINT
|
||||
200 PRINT "YOU ARE LANDING ON THE MOON AND HAVE TAKEN OVER MANUAL"
|
||||
210 PRINT "CONTROL 500 FEET ABOVE A GOOD LANDING SPOT. YOU HAVE A"
|
||||
220 PRINT "DOWNWARD VELOCITY OF 50 FT/SEC. 120 UNITS OF FUEL REMAIN."
|
||||
225 PRINT
|
||||
230 PRINT "HERE ARE THE RULES THAT GOVERN YOUR SPACE VEHICLE:"
|
||||
240 PRINT "(1) AFTER EACH SECOND, THE HEIGHT, VELOCITY, AND REMAINING"
|
||||
250 PRINT " FUEL WILL BE REPORTED."
|
||||
260 PRINT "(2) AFTER THE REPORT, A '?' WILL BE TYPED. ENTER THE"
|
||||
270 PRINT " NUMBER OF UNITS OF FUEL YOU WISH TO BURN DURING THE"
|
||||
280 PRINT " NEXT SECOND. EACH UNIT OF FUEL WILL SLOW YOUR DESCENT"
|
||||
290 PRINT " BY 1 FT/SEC."
|
||||
310 PRINT "(3) THE MAXIMUM THRUST OF YOUR ENGINE IS 30 FT/SEC/SEC OR"
|
||||
320 PRINT " 30 UNITS OF FUEL PER SECOND."
|
||||
330 PRINT "(4) WHEN YOU CONTACT THE LUNAR SURFACE, YOUR DESCENT ENGINE"
|
||||
340 PRINT " WILL AUTOMATICALLY CUT OFF AND YOU WILL BE GIVEN A"
|
||||
350 PRINT " REPORT OF YOUR LANDING SPEED AND REMAINING FUEL."
|
||||
360 PRINT "(5) IF YOU RUN OUT OF FUEL, THE '?' WILL NO LONGER APPEAR,"
|
||||
370 PRINT " BUT YOUR SECOND BY SECOND REPORT WILL CONTINUE UNTIL"
|
||||
380 PRINT " YOU CONTACT THE LUNAR SURFACE."\PRINT
|
||||
390 PRINT "BEGINNING LANDING PROCEDURE....."\PRINT
|
||||
400 PRINT "G O O D L U C K ! ! !"
|
||||
420 PRINT\PRINT
|
||||
430 PRINT "SEC FEET SPEED FUEL PLOT OF DISTANCE"
|
||||
450 PRINT
|
||||
455 T=0\H=500\V=50\F=120
|
||||
490 PRINT T;TAB(4);H;TAB(12);V;TAB(20);F;TAB(29);"I";TAB(H/12+29);"*"
|
||||
500 INPUT B
|
||||
510 IF B<0 THEN 650
|
||||
520 IF B>30 THEN B=30
|
||||
530 IF B>F THEN B=F
|
||||
540 V1=V-B+5
|
||||
560 F=F-B
|
||||
570 H=H-.5*(V+V1)
|
||||
580 IF H<=0 THEN 670
|
||||
590 T=T+1
|
||||
600 V=V1
|
||||
610 IF F>0 THEN 490
|
||||
615 IF B=0 THEN 640
|
||||
620 PRINT "*** OUT OF FUEL ***"
|
||||
640 PRINT T;TAB(4);H;TAB(12);V;TAB(20);F;TAB(29);"I";TAB(H/12+29);"*"
|
||||
650 B=0
|
||||
660 GOTO 540
|
||||
670 PRINT "*** CONTACT ***"
|
||||
680 H=H+.5*(V+V1)
|
||||
690 IF B=5 THEN 720
|
||||
700 D=(-V+SQR(V*V+H*(10-2*B)))/(5-B)
|
||||
710 GOTO 730
|
||||
720 D=H/V
|
||||
730 V1=V+(5-B)*D
|
||||
760 PRINT "TOUCHDOWN AT";T+D;"SECONDS."
|
||||
770 PRINT "LANDING VELOCITY =";V1;"FT/SEC"
|
||||
780 PRINT F;"UNITS OF FUEL REMAINING."
|
||||
790 IF V1<>0 THEN 810
|
||||
800 PRINT "CONGRATULATIONS!! A PERFECT LANDING!"
|
||||
805 PRINT "YOUR LICENSE WILL BE RENEWED.......LATER."
|
||||
810 IF ABS(V1)<2 THEN 840
|
||||
820 PRINT "***** SORRY, BUT YOU BLEW IT!!!!"
|
||||
830 PRINT "APPROPRIATE CONDOLENCES WILL BE SENT TO YOUR NEXT OF KIN."
|
||||
840 PRINT\PRINT\PRINT
|
||||
850 INPUT "ANOTHER MISSION";A$
|
||||
860 IF A$="YES" THEN 390
|
||||
870 PRINT\PRINT "CONTROL OUT."\PRINT
|
||||
999 END
|
||||
91
dec/SALVO1.BAS
Normal file
91
dec/SALVO1.BAS
Normal file
@ -0,0 +1,91 @@
|
||||
100 PRINT "YOU ARE ON A BATTLEFIELD WITH 4 PLATOONS AND YOU"
|
||||
110 PRINT "HAVE 25 OUTPOSTS AVAILABLE WHERE THEY MAY BE PLACED."
|
||||
120 PRINT "YOU CAN ONLY PLACE ONE PLATOON AT ANY ONE OUTPOST."
|
||||
130 PRINT "THE COMPUTER DOES THE SAME WITH ITS FOUR PLATOONS."
|
||||
135 PRINT
|
||||
140 PRINT "THE OBJECT OF THE GAME IS TO FIRE MISSLES AT THE"
|
||||
150 PRINT "OUTPOSTS OF THE COMPUTER. IT WILL DO THE SAME TO YOU."
|
||||
160 PRINT "THE ONE WHO DESTROYS ALL FOUR OF THE ENEMY'S PLATOONS "
|
||||
170 PRINT "FIRST IS THE WINNER."
|
||||
180 PRINT
|
||||
190 PRINT "GOOD LUCK... AND TELL US WHERE YOU WANT THE BODIES SENT!"
|
||||
200 PRINT
|
||||
210 PRINT"TEAR OFF THE MATRIX AND USE IT TO CHECK OFF THE NUMBERS."
|
||||
220 FOR R=1 TO 5\PRINT\NEXT R
|
||||
250 RANDOMIZE
|
||||
260 DIM M(100)
|
||||
270 FOR R=1 TO 5
|
||||
280 I=(R-1)*5+1
|
||||
290 PRINT I,I+1,I+2,I+3,I+4
|
||||
300 NEXT R
|
||||
350 FOR R=1 TO 10\PRINT\NEXT R
|
||||
380 LET C = INT(RND(N) * 25) + 1
|
||||
390 D = INT(RND(N) * 25) + 1
|
||||
400 E = INT(RND(N) *25) +1
|
||||
410 F = INT(RND(N) * 25) + 1
|
||||
420 IF C = D THEN 390
|
||||
430 IF C = E THEN 400
|
||||
440 IF C = F THEN 410
|
||||
450 IF D = E THEN 400
|
||||
460 IF D = F THEN 410
|
||||
470 IF E = F THEN 410
|
||||
480 PRINT "WHAT ARE YOUR FOUR POSITIONS";
|
||||
490 INPUT G,H,K,L
|
||||
495 PRINT
|
||||
500 PRINT "WHERE DO YOU WISH TO FIRE YOUR MISSLE";
|
||||
510 INPUT Y
|
||||
520IF Y = C THEN 710
|
||||
530 IF Y = D THEN 710
|
||||
540 IF Y = E THEN 710
|
||||
550 IF Y = F THEN 710
|
||||
560 GOTO 630
|
||||
570 M = INT(RND(N) * 25) + 1
|
||||
575 GOTO 1160
|
||||
580 IF X = G THEN 920
|
||||
590 IF X = H THEN 920
|
||||
600 IF X = L THEN 920
|
||||
610 IF X = K THEN 920
|
||||
620 GOTO 670
|
||||
630 PRINT" HA,HA YOU MISSED. MY TURN NOW"
|
||||
640 PRINT\PRINT\GOTO 570
|
||||
670 PRINT"I MISSED YOU, YOU DIRTY RAT. I PICKED";M;". YOUR TURN."
|
||||
680 PRINT\PRINT\GOTO 500
|
||||
710 Q = Q +1
|
||||
720 IF Q = 4 THEN 890
|
||||
730 PRINT "YOU GOT ONE OF MY OUTPOSTS."
|
||||
740 IF Q = 1 THEN 770
|
||||
750 IF Q = 2 THEN 810
|
||||
760 IF Q = 3 THEN 850
|
||||
770 PRINT " ONE DOWN THREE TO GO"
|
||||
780 PRINT\PRINT\GOTO 570
|
||||
810 PRINT " TWO DOWN TWO TO GO"
|
||||
820 PRINT\PRINT\GOTO 570
|
||||
850 PRINT " THREE DOWN ONE TO GO"
|
||||
860 PRINT\PRINT\GOTO 570
|
||||
890 PRINT " YOU GOT ME,I'M GOING FAST. BUT I'LL GET YOU WHEN "
|
||||
900 PRINT " Y TRANSISTORS $ECUPERA E"
|
||||
910 GOTO 1235
|
||||
920 Z=Z+1
|
||||
930 IF Z=4 THEN 1110
|
||||
940 PRINT "I GOT YOU. IT WON'T BE LONG NOW. POST"X"WAS HIT."
|
||||
950 IF Z=1 THEN 990
|
||||
960 IF Z=2 THEN 1030
|
||||
970 IF Z=3 THEN 1070
|
||||
990 PRINT "YOU HAVE ONLY THREE OUTPOSTS LEFT"
|
||||
1000 PRINT\PRINT\GOTO 500
|
||||
1030 PRINT "YOU HAVE ONLY TWO OUTPOSTS LEFT"
|
||||
1040 PRINT\PRINT\GOTO 500
|
||||
1070 PRINT "YOU HAVE ONLY ONE OUTPOST LEFT"
|
||||
1080 PRINT\PRINT\GOTO 500
|
||||
1110 PRINT " YOU'RE DEAD. YOUR LAST OUTPOST WAS AT"X". HA, HA, HA!"
|
||||
1120 PRINT " BETTER LUCK NEXT TIME."
|
||||
1150 GOTO 1235
|
||||
1160 P=P+1
|
||||
1170 N=P-1
|
||||
1180 FOR T = 1 TO N
|
||||
1190 IF M = M(T) THEN 570
|
||||
1200 NEXT T
|
||||
1210 X = M
|
||||
1220 M(P) = M
|
||||
1230 GOTO 580
|
||||
1235 END
|
||||
65
port/BOMBER.BAS
Normal file
65
port/BOMBER.BAS
Normal file
@ -0,0 +1,65 @@
|
||||
5 RANDOM\PRINT"YOU ARE NOW A PILOT IN A WORLD WAR II BOMBER"
|
||||
10 PRINT "WHAT SIDE -- ITALY(1), ALLIES(2), JAPANESE(3), GERMANY(4)";\INPUT A
|
||||
20 IF A<=0 THEN 22\IF A<5 THEN 25
|
||||
22 PRINT "TRY AGAIN...."\GOTO 10
|
||||
25 ON A GOTO 30,110,200,220
|
||||
30 PRINT "WHAT IS YOUR TARGET -- ALBANIA(1), GREECE(2), NORTH AFRICA(3)";
|
||||
35 INPUT B
|
||||
40 IF B<=0 THEN 42\IF B<4 THEN 45
|
||||
42 PRINT "TRY AGAIN...."\GOTO 30
|
||||
45 PRINT\ONB GOTO 50,80,90
|
||||
50 PRINT"SHOULD BE EASY.YOU'RE FLYING A NAZI-MADE PLANE."
|
||||
60 GOTO 280
|
||||
80 PRINT "BE CAREFUL!!!"\GOTO 280
|
||||
90 PRINT "YOU'RE GOING FOR THE OIL, EH?"\GOTO 280
|
||||
110 PRINT "AIRCRAFT -- LIBERATOR(1), B-29(2), B-17(3), LANCASTER(4)";\INPUT G
|
||||
120 IF G<=0 THEN 122\IF G<5 THEN 125
|
||||
122 PRINT "TRY AGAIN..."\GOTO 110
|
||||
125 PRINT\ON G GOTO 130,150,170,190
|
||||
130 PRINT "YOU'VE GOT 2 TONS OF BOMBS FLYING FOR PLOESTI"
|
||||
140 GOTO 280
|
||||
150 PRINT "YOU'RE DUMPING THE A-BOMB ON HIROSHIMA."
|
||||
160 GOTO 280
|
||||
170 PRINT "YOU'RE CHASING THE BISMARK IN THE NORTH SEA."
|
||||
180 GOTO 280
|
||||
190 PRINT "YOU'RE BUSTING A GERMAN HEAVY WATER PLANT IN THE RUHR."
|
||||
195 GOTO 280
|
||||
200 PRINT "YOU'RE FLYING A KAMIKAZE (SUICIDE BOMBER) OVER THE USS LEXINGTON."
|
||||
205 PRINT "YOUR FIRST KAMIKAZE MISSION (Y OR N)";\INPUT F$
|
||||
207 IF F$<>"N" THEN 210\S=0\GOTO 358
|
||||
210 PRINT\IF RND(1)>.65 THEN 325\GOTO 380
|
||||
220 PRINT "A NAZI, EH? OH WELL. ARE YOU GOING FOR RUSSIA(1), ENGLAND(2)"
|
||||
230 PRINT"OR FRANCE(3)";\INPUT M
|
||||
232 IF M<=0 THEN 234\IF M<4 THEN 235
|
||||
234 PRINT "WHAT??"\GOTO 220
|
||||
235 PRINT\ON M GOTO 250,260,270
|
||||
250 PRINT "YOU'RE NEARING STALINGRAD....."\GOTO 280
|
||||
260 PRINT "NEARING LONDON. BE CAREFUL, THEY'VE GOT A GOOD AIR-RAID DEFENCE."
|
||||
265 GOTO 280
|
||||
270 PRINT "NEARING VERSAILLES. DUCK SOUP. THEY'RE NEARLY DEFENSELESS."
|
||||
280 PRINT
|
||||
285 PRINT "HOW MANY MISSIONS HAVE YOU FLOWN";\INPUT D
|
||||
290 IF D<160 THEN 300\PRINT "MISSIONS, NOT MILES..."
|
||||
295 PRINT "150 MISSIONS IS HIGH EVEN FOR OLD-TIMERS. NOW THEN,"\GOTO 285
|
||||
300 PRINT\IF D<100 THEN 310\PRINT "THAT'S PUSHING THE ODDS!"\GOTO 320
|
||||
310 IF D>=25 THEN 320\PRINT "FRESH OUT OF TRAINING, EH?"
|
||||
320 PRINT\IF D<160*RND(1) THEN 330
|
||||
325 PRINT "DIRECT HIT!!!! "INT(100*RND(1))"KILLED! MISSION SUCCESSFUL."
|
||||
327 GOTO 390
|
||||
330 PRINT "MISSED TARGET BY"INT(2+30*RND(1))"MILES!!"
|
||||
335 PRINT "NOW YOU'RE REALLY IN FOR IT !!"\PRINT
|
||||
340 PRINT "DOES THE ENEMY HAVE GUNS(1), MISSILES(2), OR BOTH(3)";\INPUT R
|
||||
345 IF R<=0 THEN 347\IF R<4 THEN 350
|
||||
347 PRINT "TRY AGAIN...."\GOTO 340
|
||||
350 PRINT\IF R=2 THEN 360
|
||||
355 PRINT "WHAT IS THE PERCENT HIT RATE OF ENEMY GUNNERS (10 TO 50)";\INPUT S
|
||||
358 IF S>=10 THEN 360\PRINT "YOU LIE, BUT YOU'LL PAY..."\PRINT\GOTO 380
|
||||
360 PRINT\IF R<=1 THEN 365\T=35
|
||||
365 IF S+T>100*RND(1) THEN 380
|
||||
370 PRINT"YOU MADE IT THROUGH TREMENDOUS FLAK!!"\GOTO 390
|
||||
380 PRINT "* * * * * BOOM * * * * *"
|
||||
384 PRINT "YOU HAVE BEEN SHOT DOWN......."
|
||||
386 PRINT "DEARLY BELOVED, WE ARE GATHERED HERE TODAY TO PAY OUR LAST TRIBUTE.."
|
||||
390 PRINT\PRINT\PRINT\PRINT "PLAY AGAIN (Y OR N)";\INPUT U$\IF U$="Y" THEN 10
|
||||
400 PRINT "CHICKEN!!!!!"\PRINT\PRINT
|
||||
999 END
|
||||
68
port/ROCKT1.BAS
Normal file
68
port/ROCKT1.BAS
Normal file
@ -0,0 +1,68 @@
|
||||
70 PRINT "LUNAR LANDING SIMULATION"
|
||||
80 PRINT "----- ------- ----------"\PRINT
|
||||
100 PRINT "DO YOU WANT INSTRUCTIONS (YES OR NO)";\INPUT A$
|
||||
110 IF A$="NO" THEN 390
|
||||
160 PRINT
|
||||
200 PRINT "YOU ARE LANDING ON THE MOON AND HAVE TAKEN OVER MANUAL"
|
||||
210 PRINT "CONTROL 500 FEET ABOVE A GOOD LANDING SPOT. YOU HAVE A"
|
||||
220 PRINT "DOWNWARD VELOCITY OF 50 FT/SEC. 120 UNITS OF FUEL REMAIN."
|
||||
225 PRINT
|
||||
230 PRINT "HERE ARE THE RULES THAT GOVERN YOUR SPACE VEHICLE:"
|
||||
240 PRINT "(1) AFTER EACH SECOND, THE HEIGHT, VELOCITY, AND REMAINING"
|
||||
250 PRINT " FUEL WILL BE REPORTED."
|
||||
260 PRINT "(2) AFTER THE REPORT, A '?' WILL BE TYPED. ENTER THE"
|
||||
270 PRINT " NUMBER OF UNITS OF FUEL YOU WISH TO BURN DURING THE"
|
||||
280 PRINT " NEXT SECOND. EACH UNIT OF FUEL WILL SLOW YOUR DESCENT"
|
||||
290 PRINT " BY 1 FT/SEC."
|
||||
310 PRINT "(3) THE MAXIMUM THRUST OF YOUR ENGINE IS 30 FT/SEC/SEC OR"
|
||||
320 PRINT " 30 UNITS OF FUEL PER SECOND."
|
||||
330 PRINT "(4) WHEN YOU CONTACT THE LUNAR SURFACE, YOUR DESCENT ENGINE"
|
||||
340 PRINT " WILL AUTOMATICALLY CUT OFF AND YOU WILL BE GIVEN A"
|
||||
350 PRINT " REPORT OF YOUR LANDING SPEED AND REMAINING FUEL."
|
||||
360 PRINT "(5) IF YOU RUN OUT OF FUEL, THE '?' WILL NO LONGER APPEAR,"
|
||||
370 PRINT " BUT YOUR SECOND BY SECOND REPORT WILL CONTINUE UNTIL"
|
||||
380 PRINT " YOU CONTACT THE LUNAR SURFACE."\PRINT
|
||||
390 PRINT "BEGINNING LANDING PROCEDURE....."\PRINT
|
||||
400 PRINT "G O O D L U C K ! ! !"
|
||||
420 PRINT\PRINT
|
||||
430 PRINT "SEC FEET SPEED FUEL PLOT OF DISTANCE"
|
||||
450 PRINT
|
||||
455 T=0\H=500\V=50\F=120
|
||||
490 PRINT T;TAB(4);H;TAB(12);V;TAB(20);F;TAB(29);"I";TAB(H/12+29);"*"
|
||||
500 INPUT B
|
||||
510 IF B<0 THEN 650
|
||||
520 IF B<=30 THEN 530\B=30
|
||||
530 IF B<=F THEN 540\B=F
|
||||
540 V1=V-B+5
|
||||
560 F=F-B
|
||||
570 H=H-.5*(V+V1)
|
||||
580 IF H<=0 THEN 670
|
||||
590 T=T+1
|
||||
600 V=V1
|
||||
610 IF F>0 THEN 490
|
||||
615 IF B=0 THEN 640
|
||||
620 PRINT "*** OUT OF FUEL ***"
|
||||
640 PRINT T;TAB(4);H;TAB(12);V;TAB(20);F;TAB(29);"I";TAB(H/12+29);"*"
|
||||
650 B=0
|
||||
660 GOTO 540
|
||||
670 PRINT "*** CONTACT ***"
|
||||
680 H=H+.5*(V+V1)
|
||||
690 IF B=5 THEN 720
|
||||
700 D=(-V+SQR(V*V+H*(10-2*B)))/(5-B)
|
||||
710 GOTO 730
|
||||
720 D=H/V
|
||||
730 V1=V+(5-B)*D
|
||||
760 PRINT "TOUCHDOWN AT";T+D;"SECONDS."
|
||||
770 PRINT "LANDING VELOCITY =";V1;"FT/SEC"
|
||||
780 PRINT F;"UNITS OF FUEL REMAINING."
|
||||
790 IF V1<>0 THEN 810
|
||||
800 PRINT "CONGRATULATIONS!! A PERFECT LANDING!"
|
||||
805 PRINT "YOUR LICENSE WILL BE RENEWED.......LATER."
|
||||
810 IF ABS(V1)<2 THEN 840
|
||||
820 PRINT "***** SORRY, BUT YOU BLEW IT!!!!"
|
||||
830 PRINT "APPROPRIATE CONDOLENCES WILL BE SENT TO YOUR NEXT OF KIN."
|
||||
840 PRINT\PRINT\PRINT
|
||||
850 PRINT "ANOTHER MISSION";\INPUT A$
|
||||
860 IF A$="YES" THEN 390
|
||||
870 PRINT\PRINT "CONTROL OUT."\PRINT
|
||||
999 END
|
||||
91
port/SALVO1.BAS
Normal file
91
port/SALVO1.BAS
Normal file
@ -0,0 +1,91 @@
|
||||
100 PRINT "YOU ARE ON A BATTLEFIELD WITH 4 PLATOONS AND YOU"
|
||||
110 PRINT "HAVE 25 OUTPOSTS AVAILABLE WHERE THEY MAY BE PLACED."
|
||||
120 PRINT "YOU CAN ONLY PLACE ONE PLATOON AT ANY ONE OUTPOST."
|
||||
130 PRINT "THE COMPUTER DOES THE SAME WITH ITS FOUR PLATOONS."
|
||||
135 PRINT
|
||||
140 PRINT "THE OBJECT OF THE GAME IS TO FIRE MISSLES AT THE"
|
||||
150 PRINT "OUTPOSTS OF THE COMPUTER. IT WILL DO THE SAME TO YOU."
|
||||
160 PRINT "THE ONE WHO DESTROYS ALL FOUR OF THE ENEMY'S PLATOONS "
|
||||
170 PRINT "FIRST IS THE WINNER."
|
||||
180 PRINT
|
||||
190 PRINT "GOOD LUCK... AND TELL US WHERE YOU WANT THE BODIES SENT!"
|
||||
200 PRINT
|
||||
210 PRINT"TEAR OFF THE MATRIX AND USE IT TO CHECK OFF THE NUMBERS."
|
||||
220 FOR R=1 TO 5\PRINT\NEXT R
|
||||
250 RANDOMIZE
|
||||
260 DIM M(100)
|
||||
270 FOR R=1 TO 5
|
||||
280 I=(R-1)*5+1
|
||||
290 PRINT I,I+1,I+2,I+3,I+4
|
||||
300 NEXT R
|
||||
350 FOR R=1 TO 10\PRINT\NEXT R
|
||||
380 LET C = INT(RND(N) * 25) + 1
|
||||
390 D = INT(RND(N) * 25) + 1
|
||||
400 E = INT(RND(N) *25) +1
|
||||
410 F = INT(RND(N) * 25) + 1
|
||||
420 IF C = D THEN 390
|
||||
430 IF C = E THEN 400
|
||||
440 IF C = F THEN 410
|
||||
450 IF D = E THEN 400
|
||||
460 IF D = F THEN 410
|
||||
470 IF E = F THEN 410
|
||||
480 PRINT "WHAT ARE YOUR FOUR POSITIONS";
|
||||
490 INPUT G,H,K,L
|
||||
495 PRINT
|
||||
500 PRINT "WHERE DO YOU WISH TO FIRE YOUR MISSLE";
|
||||
510 INPUT Y
|
||||
520IF Y = C THEN 710
|
||||
530 IF Y = D THEN 710
|
||||
540 IF Y = E THEN 710
|
||||
550 IF Y = F THEN 710
|
||||
560 GOTO 630
|
||||
570 M = INT(RND(N) * 25) + 1
|
||||
575 GOTO 1160
|
||||
580 IF X = G THEN 920
|
||||
590 IF X = H THEN 920
|
||||
600 IF X = L THEN 920
|
||||
610 IF X = K THEN 920
|
||||
620 GOTO 670
|
||||
630 PRINT" HA,HA YOU MISSED. MY TURN NOW"
|
||||
640 PRINT\PRINT\GOTO 570
|
||||
670 PRINT"I MISSED YOU, YOU DIRTY RAT. I PICKED";M;". YOUR TURN."
|
||||
680 PRINT\PRINT\GOTO 500
|
||||
710 Q = Q +1
|
||||
720 IF Q = 4 THEN 890
|
||||
730 PRINT "YOU GOT ONE OF MY OUTPOSTS."
|
||||
740 IF Q = 1 THEN 770
|
||||
750 IF Q = 2 THEN 810
|
||||
760 IF Q = 3 THEN 850
|
||||
770 PRINT " ONE DOWN THREE TO GO"
|
||||
780 PRINT\PRINT\GOTO 570
|
||||
810 PRINT " TWO DOWN TWO TO GO"
|
||||
820 PRINT\PRINT\GOTO 570
|
||||
850 PRINT " THREE DOWN ONE TO GO"
|
||||
860 PRINT\PRINT\GOTO 570
|
||||
890 PRINT " YOU GOT ME,I'M GOING FAST. BUT I'LL GET YOU WHEN "
|
||||
900 PRINT " Y TRANSISTORS $ECUPERA E"
|
||||
910 GOTO 1235
|
||||
920 Z=Z+1
|
||||
930 IF Z=4 THEN 1110
|
||||
940 PRINT "I GOT YOU. IT WON'T BE LONG NOW. POST"X"WAS HIT."
|
||||
950 IF Z=1 THEN 990
|
||||
960 IF Z=2 THEN 1030
|
||||
970 IF Z=3 THEN 1070
|
||||
990 PRINT "YOU HAVE ONLY THREE OUTPOSTS LEFT"
|
||||
1000 PRINT\PRINT\GOTO 500
|
||||
1030 PRINT "YOU HAVE ONLY TWO OUTPOSTS LEFT"
|
||||
1040 PRINT\PRINT\GOTO 500
|
||||
1070 PRINT "YOU HAVE ONLY ONE OUTPOST LEFT"
|
||||
1080 PRINT\PRINT\GOTO 500
|
||||
1110 PRINT " YOU'RE DEAD. YOUR LAST OUTPOST WAS AT"X". HA, HA, HA!"
|
||||
1120 PRINT " BETTER LUCK NEXT TIME."
|
||||
1150 GOTO 1235
|
||||
1160 P=P+1
|
||||
1170 N=P-1
|
||||
1180 FOR T = 1 TO N
|
||||
1190 IF M = M(T) THEN 570
|
||||
1200 NEXT T
|
||||
1210 X = M
|
||||
1220 M(P) = M
|
||||
1230 GOTO 580
|
||||
1235 END
|
||||
Loading…
Reference in New Issue
Block a user