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