mirror of
https://github.com/rfivet/BCG101.git
synced 2024-06-26 10:15:24 +00:00
Add BASKET, BUG, FURS and ROCKT2.
This commit is contained in:
parent
c6835e5064
commit
8168f5a31a
204
dec/BASKET.BAS
Normal file
204
dec/BASKET.BAS
Normal file
|
|
@ -0,0 +1,204 @@
|
|||
5 RANDOMIZE
|
||||
10 PRINT "THIS IS DARTMOUTH COLLEGE BASKETBALL. YOU WILL BE DARTMOUTH"
|
||||
20 PRINT " CAPTAIN AND PLAYMAKER. CALL SHOTS AS FOLLOWS: 1. LONG"
|
||||
30 PRINT " (30 FT.) JUMP SHOT; 2 SHORT (15 FT.) JUMP SHOT; 3. LAY"
|
||||
40 PRINT " UP; 4. SET SHOT."
|
||||
60 PRINT "BOTH TEAMS WILL USE THE SAME DEFENSE. CALL DEFENSE AS"
|
||||
70PRINT" FOLLOWS: 6 PRESS; 6.5 MAN-TO MAN; 7 ZONE; 7.5 NONE."
|
||||
72 PRINT " TO CHANGE DEFENSE, JUST TYPE 0 AS YOUR NEXT SHOT."
|
||||
74 PRINT "YOUR STARTING DEFENSE WILL BE";
|
||||
76 INPUT D
|
||||
77 IF D<6 THEN 2010
|
||||
79 PRINT
|
||||
80 PRINT "CHOOSE YOUR OPPONENT";
|
||||
82 INPUT O$
|
||||
370 PRINT "CENTER JUMP"
|
||||
390 IF RND > 3/5 THEN 420
|
||||
400 PRINT O$;" CONTROLS THE TAP."
|
||||
410 GO TO 3000
|
||||
420 PRINT "DARTMOUTH CONTROLS THE TAP."
|
||||
425 PRINT
|
||||
430 PRINT "YOUR SHOT";
|
||||
435 LET P=0
|
||||
440 INPUT Z
|
||||
445 IF Z<>INT(Z) THEN 455
|
||||
446IF ABS(Z-2)>2 THEN 455
|
||||
447 GOTO 460
|
||||
455 PRINT "INCORRECT ANSWER. RETYPE IT";
|
||||
456 GOTO 440
|
||||
460 GO TO 470
|
||||
470 IF RND <.5 THEN 1000
|
||||
480 IF T<100 THEN 1000
|
||||
490 PRINT
|
||||
491 IF S(1)<>S(0) THEN 510
|
||||
493 PRINT " ***** END OF SECOND HALF *****"
|
||||
495 PRINT "SCORE AT END OF REGULATION TIME:"
|
||||
496 PRINT " DARTMOUTH" S(1); O$" "S(0)
|
||||
497 PRINT
|
||||
499 PRINT "BEGIN TWO MINUTE OVERTIME PERIOD"
|
||||
499 LET T=93
|
||||
500 GO TO 370
|
||||
510 PRINT " ***** END OF GAME *****"
|
||||
515 PRINT "FINAL SCORE: DARTMOUTH" S(1); O$" "S(0)
|
||||
520 STOP
|
||||
600 PRINT
|
||||
610 PRINT " *** TWO MINUTES LEFT IN THE GAME ***"
|
||||
620 PRINT
|
||||
630 RETURN
|
||||
1000 IF Z=1 THEN 1040
|
||||
1020 IF Z=2 THEN 1040
|
||||
1036 GO TO 1300
|
||||
1040 LET T=T+1
|
||||
1041 IF T=50 THEN 8000
|
||||
1042 IF T=92 THEN 1046
|
||||
1043 GO TO 1050
|
||||
1046 GOSUB 600
|
||||
1050 PRINT "JUMP SHOT"
|
||||
1060 IF RND >.341*D/8 THEN 1090
|
||||
1070 PRINT "SHOT IS GOOD."
|
||||
1075 GOSUB 7000
|
||||
1085 GO TO 3000
|
||||
1090 IF RND >.682*D/8 THEN 1200
|
||||
1100 PRINT "SHOT IS OFF TARGET."
|
||||
1105 IF D/6*RND>.45 THEN 1130
|
||||
1110 PRINT "DARTMOUTH CONTROLS THE REBOUND."
|
||||
1120 GO TO 1145
|
||||
1130 PRINT "REBOUND TO ";O$;"."
|
||||
1140 GO TO 3000
|
||||
1145 IF RND>.40 THEN 1158
|
||||
1150 GO TO 1300
|
||||
1158 IF D=6 THEN 5100
|
||||
1160 PRINT "BALL PASSED BACK TO YOU. ";
|
||||
1170 GO TO 430
|
||||
1180 IF RND>.9THEN1190
|
||||
1185 PRINT "PLAYER FOULED. TWO SHOTS."
|
||||
1187 GOSUB 4000
|
||||
1188 GO TO 3000
|
||||
1190 PRINT "BALL STOLEN. ";O$;"'S BALL."
|
||||
1195 GO TO 3000
|
||||
1200 IF RND>.782*D/8 THEN 1250
|
||||
1210 PRINT "SHOT IS BLOCKED. BALL CONTROLLED BY";
|
||||
1230 IF RND>.5 THEN 1242
|
||||
1235 PRINT " DARTMOUTH."
|
||||
1240 GO TO 430
|
||||
1242 PRINT " ";O$;"."
|
||||
1245 GO TO 3000
|
||||
1250 IF RND>.843*D/8 THEN 1270
|
||||
1255 PRINT "SHOOTER IS FOULED. TWO SHOTS."
|
||||
1260 GOSUB 4000
|
||||
1265 GO TO 3000
|
||||
1270 PRINT "CHARGING FOUL. DARTMOUTH LOSES THE BALL."
|
||||
1280 GO TO 3000
|
||||
1300 LET T=T+1
|
||||
1301 IF T=50 THEN 8000
|
||||
1302 IF T=92 THEN 1304
|
||||
1303 GO TO 1305
|
||||
1304 GOSUB 600
|
||||
1305 IF Z=0 THEN 2010
|
||||
1310 IF Z>3 THEN 1700
|
||||
1320 PRINT "LAY UP."
|
||||
1330 IF 7/D*RND>.4 THEN 1360
|
||||
1340 PRINT "SHOT IS GOOD. TWO POINTS."
|
||||
1345 GOSUB 7000
|
||||
1355GO TO 3000
|
||||
1360 IF 7/D*RND>.7 THEN 1500
|
||||
1370 PRINT "SHOT IS OFF THE RIM."
|
||||
1380 IF RND>2/3 THEN 1415
|
||||
1390 PRINT O$;" CONTROLS THE REBOUND."
|
||||
1400 GO TO 3000
|
||||
1410
|
||||
1415 PRINT "DARTMOUTH CONTROLS THE REBOUND."
|
||||
1420 IF RND>.4 THEN 1440
|
||||
1430 GO TO 1300
|
||||
1440 PRINT "BALL PASSED BACK TO YOU.";
|
||||
1450 GO TO 430
|
||||
1500 IF 7/D*RND>.875 THEN 1600
|
||||
1510 PRINT "SHOOTER FOULED. TWO SHOTS."
|
||||
1520 GOSUB 4000
|
||||
1530 GO TO 3000
|
||||
1600 IF 7/D*RND>.925 THEN 1630
|
||||
1610 PRINT "SHOT BLOCKED. "O$;"'S BALL."
|
||||
1620 GO TO 3000
|
||||
1630 PRINT "CHARGING FOUL. DARTMOUTH LOSES THE BALL."
|
||||
1640 GO TO 3000
|
||||
1700 PRINT "SET SHOT"
|
||||
1710 GO TO 1330
|
||||
2010 PRINT "YOUR NEW DEFENSIVE ALLIGNMENT IS";
|
||||
2020 INPUT D
|
||||
2030 IF D<6 THEN 2010
|
||||
2040 GO TO 425
|
||||
3000 LET P=1
|
||||
3005 LET T=T+1
|
||||
3008 IF T=54 THEN 8000
|
||||
3010 IF T=92 THEN 3015
|
||||
3012 GO TO 3018
|
||||
3015 GOSUB 600
|
||||
3018 PRINT
|
||||
3020 LET Z1=10/4*RND+1
|
||||
3030 IF Z1>2 THEN 3500
|
||||
3040PRINT "JUMP SHOT"
|
||||
3050 IF 8/D*RND>.35 THEN 3100
|
||||
3060 PRINT "SHOT IS GOOD."
|
||||
3080 GOSUB 6000
|
||||
3090 GO TO 425
|
||||
3100 IF 8/D*RND>.75 THEN 3200
|
||||
3105 PRINT "SHOT IS OFF THE RIM."
|
||||
3110 IF D/6*RND>.5 THEN 3150
|
||||
3120 PRINT "DARTMOUTH CONTROLS THE REBOUND."
|
||||
3130 GO TO 425
|
||||
3150 PRINT O$;" CONTROLS THE REBOUND."
|
||||
3160 IF D=6 THEN 5000
|
||||
3165 IF RND>.5 THEN 3175
|
||||
3168 PRINT "PASS BACK TO " O$;" GUARD."
|
||||
3170 GO TO 3000
|
||||
3175 GO TO 3500
|
||||
3200 IF 8/D*RND>.9 THEN 3310
|
||||
3210 PRINT "PLAYER FOULED. TWO SHOTS."
|
||||
3220 GOSUB 4000
|
||||
3230 GO TO 425
|
||||
3310 PRINT "OFFENSIVE FOUL. DARTMOUTH'S BALL"
|
||||
3320 GO TO 425
|
||||
3500 IF Z1>3 THEN 3800
|
||||
3510 PRINT "LAY UP"
|
||||
3520 IF 7/D*RND>.413 THEN 3600
|
||||
3530 PRINT "SHOT IS GOOD."
|
||||
3540 GOSUB 6000
|
||||
3550 GO TO 425
|
||||
3600 PRINT "SHOT IS MISSED."
|
||||
3610 GO TO 3110
|
||||
3800 PRINT "SET SHOT"
|
||||
3810 GO TO 3520
|
||||
4000 REM *FOUL SHOOTING*
|
||||
4010 IF RND>.49 THEN 4050
|
||||
4020 PRINT "SHOOTER MAKES BOTH SHOTS."
|
||||
4030 LET S(1-P)=S(1-P)+2
|
||||
4040 GOSUB 6010
|
||||
4041 RETURN
|
||||
4050 IF RND>.75 THEN 4100
|
||||
4060 PRINT "SHOOTER MAKES ONE SHOT AND MISSES ONE."
|
||||
4070 LET S(1-P)=S(1-P)+1
|
||||
4080 GO TO 4040
|
||||
4100 PRINT "BOTH SHOTS MISSED."
|
||||
4110 GO TO 4040
|
||||
5000 IF RND>.75 THEN 5010
|
||||
5005 GO TO 3165
|
||||
5010 PRINT "BALL STOLEN. EASY LAY-UP FOR DARTMOUTH."
|
||||
5015 GOSUB 7000
|
||||
5030 GO TO 3000
|
||||
5100 IF RND>.6 THEN 5120
|
||||
5110 GO TO 1160
|
||||
5120 PRINT "PASS STOLEN BY ";O$;" EASY LAY-UP."
|
||||
5130 GOSUB 6000
|
||||
5140 GO TO 425
|
||||
6000 LET S(0)=S(0)+2
|
||||
6010 PRINT "SCORE: " S(1); "TO " S(0)
|
||||
6020 RETURN
|
||||
7000 LET S(1)=S(1)+2
|
||||
7010 GOSUB 6010
|
||||
7020 RETURN
|
||||
8000 PRINT " ***** END OF FIRST HALF *****"
|
||||
8010 PRINT"SCORE: DARTMOUTH" S(1); O$" "S(0)
|
||||
8015 PRINT
|
||||
8016 PRINT
|
||||
8020 GO TO 370
|
||||
9999 END
|
||||
254
dec/BUG.BAS
Normal file
254
dec/BUG.BAS
Normal file
|
|
@ -0,0 +1,254 @@
|
|||
10 REM BRIAN MONTE LEIBOWITZ GRADE 7
|
||||
20 REM HARRISON JR. HIGH SCHOOL
|
||||
30 REM HARRISON N.Y.
|
||||
40 DIM Z$[3]
|
||||
50 A=B=H=L=N=P=Q=R=S=T=U=V=Y=0
|
||||
60 PRINT "THE GAME BUG IS LIKE THE GAME COOTI,"
|
||||
70 PRINT "I HOPE YOU ENJOY THIS GAME"
|
||||
80 PRINT
|
||||
90 PRINT "DO YOU WANT INSTRUCTIONS";
|
||||
100 INPUT Z$
|
||||
110 IF Z$="NO" THEN 300
|
||||
120 PRINT "THE OBJECT OF BUG IS TO FINISH YOUR BUG BEFORE I FINISH MINE"
|
||||
130 PRINT "EACH NUMBER STANDS FOR A PART OF THE BUGS BODY"
|
||||
140 PRINT "I WILL ROLL THE DIE FOR YOU, TELL YOU WHAT I ROLLED FOR YOU"
|
||||
150 PRINT "WHAT THE NUMBER STANDS FOR, AND IF YOU CAN GET THE PART."
|
||||
160 PRINT "IF YOU CAN GET THE PART I WILL GIVE IT TO YOU."
|
||||
170 PRINT "THE SAME WILL HAPPEN ON MY TURN"
|
||||
180 PRINT "IF THERE IS A CHANGE IN EITHER BUG I WILL GIVE YOU THE "
|
||||
190 PRINT "OPTION OF SEEING THE PICTURES OF THE BUGS."
|
||||
200 PRINT "THE NUMBERS STAND FOR PARTS AS FOLLOWS:"
|
||||
210 PRINT "NUMBER","PART","NUMBER OF PART NEEDED"
|
||||
220 PRINT "1","BODY","1"
|
||||
230 PRINT "2","NECK","1"
|
||||
240 PRINT "3","HEAD","1"
|
||||
250 PRINT "4","FEELERS","2"
|
||||
260 PRINT "5","TAIL","1"
|
||||
270 PRINT "6","LEGS","6"
|
||||
280 PRINT
|
||||
290 PRINT
|
||||
300 IF Y>0 THEN 2480
|
||||
310 Z=INT(6*RND(0)+1)
|
||||
320 C=1
|
||||
330 PRINT "YOU ROLLED A "Z
|
||||
340 GOTO Z OF 350,430,540,650,760,870
|
||||
350 PRINT "1=BODY"
|
||||
360 IF B=1 THEN 410
|
||||
370 PRINT "YOU NOW HAVE A BODY"
|
||||
380 B=1
|
||||
390 C=0
|
||||
400 GOTO 970
|
||||
410 PRINT "YOU DO NOT NEED A BODY"
|
||||
420 GOTO 970
|
||||
430 PRINT "2=NECK"
|
||||
440 IF N=1 THEN 500
|
||||
450 IF B=0 THEN 520
|
||||
460 PRINT "YOU NOW HAVE A NECK"
|
||||
470 N=1
|
||||
480 C=0
|
||||
490 GOTO 970
|
||||
500 PRINT "YOU DO NOT NEED A NECK"
|
||||
510 GOTO 970
|
||||
520 PRINT "YOU DO NOT HAVE A BODY"
|
||||
530 GOTO 970
|
||||
540 PRINT "3=HEAD"
|
||||
550 IF N=0 THEN 610
|
||||
560 IF H=1 THEN 630
|
||||
570 PRINT "YOU NEEDED A HEAD"
|
||||
580 H=1
|
||||
590 C=0
|
||||
600 GOTO 970
|
||||
610 PRINT "YOU DO NOT HAVE A NECK"
|
||||
620 GOTO 970
|
||||
630 PRINT "YOU HAVE A HEAD"
|
||||
640 GOTO 970
|
||||
650 PRINT "4=FEELERS"
|
||||
660 IF H=0 THEN 740
|
||||
670 IF A=2 THEN 720
|
||||
680 PRINT "I NOW GIVE YOU A FEELER"
|
||||
690 LET A=A+1
|
||||
700 C=0
|
||||
710 GOTO 970
|
||||
720 PRINT "YOU HAVE TWO FEELERS ALREADY"
|
||||
730 GOTO 970
|
||||
740 PRINT "YOU DO NOT HAVE A HEAD"
|
||||
750 GOTO 970
|
||||
760 PRINT "5=TAIL"
|
||||
770 IF B=0 THEN 830
|
||||
780 IF T=1 THEN 850
|
||||
790 PRINT "I NOW GIVE YOU A TAIL"
|
||||
800 LET T=T+1
|
||||
810 C=0
|
||||
820 GOTO 970
|
||||
830 PRINT "YOU DO NOT HAVE A BODY"
|
||||
840 GOTO 970
|
||||
850 PRINT "YOU ALREADY HAVE A TAIL"
|
||||
860 GOTO 970
|
||||
870 PRINT "6=LEG"
|
||||
880 IF L=6 THEN 940
|
||||
890 IF B=0 THEN 960
|
||||
900 LET L=L+1
|
||||
910 C=0
|
||||
920 PRINT "YOU NOW HAVE "L" LEG(S)"
|
||||
930 GOTO 970
|
||||
940 PRINT "YOU HAVE 6 FEET ALREADY"
|
||||
950 GOTO 970
|
||||
960 PRINT "YOU DO NOT HAVE A BODY"
|
||||
970 LET X=INT(6*RND(0)+1)
|
||||
980 PRINT "I ROLLED A "X
|
||||
990 GOTO X OF 1000,1080,1190,1300,1410,1520
|
||||
1000 PRINT "1=BODY"
|
||||
1010 IF P=1 THEN 1060
|
||||
1020 PRINT "I NOW HAVE A BODY"
|
||||
1030 C=0
|
||||
1040 P=1
|
||||
1050 GOTO 1630
|
||||
1060 PRINT "I DO NOT NEED A BODY"
|
||||
1070 GOTO 1630
|
||||
1080 PRINT "2=NECK"
|
||||
1090 IF Q=1 THEN 1150
|
||||
1100 IF P=0 THEN 1170
|
||||
1110 PRINT "I NOW HAVE A NECK"
|
||||
1120 Q=1
|
||||
1130 C=0
|
||||
1140 GOTO 1630
|
||||
1150 PRINT "I DO NOT NEED A NECK"
|
||||
1160 GOTO 1630
|
||||
1170 PRINT "I DO NOT HAVE A BODY"
|
||||
1180 GOTO 1630
|
||||
1190 PRINT "3=HEAD"
|
||||
1200 IF Q=0 THEN 1260
|
||||
1210 IF R=1 THEN 1280
|
||||
1220 PRINT "I NEEDED A HEAD"
|
||||
1230 R=1
|
||||
1240 C=0
|
||||
1250 GOTO 1630
|
||||
1260 PRINT "I DO NOT HAVE A NECK"
|
||||
1270 GOTO 1630
|
||||
1280 PRINT "I DO NOT NEED A HEAD"
|
||||
1290 GOTO 1630
|
||||
1300 PRINT "4=FEELERS"
|
||||
1310 IF R=0 THEN 1390
|
||||
1320 IF S=2 THEN 1370
|
||||
1330 PRINT "I GET A FEELER"
|
||||
1340 LET S=S+1
|
||||
1350 C=0
|
||||
1360 GOTO 1630
|
||||
1370 PRINT "I HAVE 2 FEELERS ALREADY"
|
||||
1380 GOTO 1630
|
||||
1390 PRINT "I DO NOT HAVE A HEAD"
|
||||
1400 GOTO 1630
|
||||
1410 PRINT "5=TAIL"
|
||||
1420 IF P=0 THEN 1480
|
||||
1430 IF U=1 THEN 1500
|
||||
1440 PRINT "I NOW HAVE A TAIL"
|
||||
1450 U=1
|
||||
1460 C=0
|
||||
1470 GOTO 1630
|
||||
1480 PRINT "I DO NOT HAVE A BODY"
|
||||
1490 GOTO 1630
|
||||
1500 PRINT "I DO NOT NEED A TAIL"
|
||||
1510 GOTO 1630
|
||||
1520 PRINT "6=LEGS"
|
||||
1530 IF V=6 THEN 1590
|
||||
1540 IF P=0 THEN 1610
|
||||
1550 LET V=V+1
|
||||
1560 C=0
|
||||
1570 PRINT "I NOW HAVE "V" LEG(S)"
|
||||
1580 GOTO 1630
|
||||
1590 PRINT "I HAVE 6 FEET"
|
||||
1600 GOTO 1630
|
||||
1610 PRINT "I DO NOT HAVE A BODY"
|
||||
1620 GOTO 1630
|
||||
1630 IF A=2 AND T=1 AND L=6 THEN 1650
|
||||
1640 GOTO 1670
|
||||
1650 PRINT "YOUR BUG IS FINISHED"
|
||||
1660 LET Y=Y+1
|
||||
1670 IF S=2 AND P=1 AND V=6 THEN 1690
|
||||
1680 GOTO 1710
|
||||
1690 PRINT "MY BUG IS FINISHED"
|
||||
1700 LET Y=Y+2
|
||||
1710 IF C=1 THEN 300
|
||||
1720 PRINT "DO YOU WANT THE PICTURES";
|
||||
1730 INPUT Z$
|
||||
1740 IF Z$="NO" THEN 300
|
||||
1750 PRINT "*****YOUR BUG*****"
|
||||
1760 PRINT
|
||||
1770 PRINT
|
||||
1780 IF A=0 THEN 1860
|
||||
1790 FOR Z=1 TO 4
|
||||
1800 FOR X=1 TO A
|
||||
1810 PRINT TAB(10);
|
||||
1820 PRINT "A ";
|
||||
1830 NEXT X
|
||||
1840 PRINT
|
||||
1850 NEXT Z
|
||||
1860 IF H=0 THEN 1880
|
||||
1870 GOSUB 2470
|
||||
1880 IF N=0 THEN 1920
|
||||
1890 FOR Z=1 TO 2
|
||||
1900 PRINT " N N"
|
||||
1910 NEXT Z
|
||||
1920 IF B=0 THEN 2000
|
||||
1930 PRINT " BBBBBBBBBBBB"
|
||||
1940 FOR Z=1 TO 2
|
||||
1950 PRINT " B B"
|
||||
1960 NEXT Z
|
||||
1970 IF T#1 THEN 1990
|
||||
1980 PRINT "TTTTTB B"
|
||||
1990 PRINT " BBBBBBBBBBBB"
|
||||
2000 IF L=0 THEN 2080
|
||||
2010 FOR Z=1 TO 2
|
||||
2020 PRINT TAB(5);
|
||||
2030 FOR X=1 TO L
|
||||
2040 PRINT " L";
|
||||
2050 NEXT X
|
||||
2060 PRINT
|
||||
2070 NEXT Z
|
||||
2080 FOR Z=1 TO 4
|
||||
2090 PRINT
|
||||
2100 NEXT Z
|
||||
2110 PRINT "*****MY BUG*****"
|
||||
2120 PRINT
|
||||
2130 PRINT
|
||||
2140 PRINT
|
||||
2150 IF S=0 THEN 2230
|
||||
2160 FOR Z=1 TO 4
|
||||
2170 PRINT TAB(10);
|
||||
2180 FOR X=1 TO S
|
||||
2190 PRINT "F ";
|
||||
2200 NEXT X
|
||||
2210 PRINT
|
||||
2220 NEXT Z
|
||||
2230 IF R#1 THEN 2250
|
||||
2240 GOSUB 2470
|
||||
2250 IF Q=0 THEN 2280
|
||||
2260 PRINT " N N"
|
||||
2270 PRINT " N N"
|
||||
2280 IF P=0 THEN 2360
|
||||
2290 PRINT " BBBBBBBBBBBB"
|
||||
2300 FOR Z=1 TO 2
|
||||
2310 PRINT " B B"
|
||||
2320 NEXT Z
|
||||
2330 IF U#1 THEN 2350
|
||||
2340 PRINT "TTTTTB B"
|
||||
2350 PRINT " BBBBBBBBBBBB"
|
||||
2360 IF V=0 THEN 2450
|
||||
2370 FOR Z=1 TO 2
|
||||
2380 PRINT TAB(5);
|
||||
2390 FOR X=1 TO V
|
||||
2400 PRINT " L";
|
||||
2410 NEXT X
|
||||
2420 PRINT
|
||||
2430 NEXT Z
|
||||
2450 IF Y#0 THEN 2540
|
||||
2460 GOTO 300
|
||||
2470 PRINT " HHHHHHH"
|
||||
2480 PRINT " H H"
|
||||
2490 PRINT " H O O H"
|
||||
2500 PRINT " H H"
|
||||
2510 PRINT " H V H"
|
||||
2520 PRINT " HHHHHHH"
|
||||
2530 RETURN
|
||||
2540 PRINT "I HOPE YOU ENJOYED THE GAME, PLAY IT AGAIN SOON !!!"
|
||||
2550 END
|
||||
170
dec/FURS.BAS
Normal file
170
dec/FURS.BAS
Normal file
|
|
@ -0,0 +1,170 @@
|
|||
1 DIM F(4)
|
||||
2 RANDOM
|
||||
15 GOSUB 1091
|
||||
16 LET I=600
|
||||
17 PRINT "DO YOU WISH TO TRADE FURS?"
|
||||
18 GOSUB 1402
|
||||
19 IF B$="YES" THEN 100
|
||||
20 IF B$="NO" THEN 2200
|
||||
25 GOSUB 1402
|
||||
100 PRINT
|
||||
101 PRINT "YOU HAVE $";I "SAVINGS."
|
||||
102 PRINT "AND 190 FURS TO BEGIN THE EXPEDITION."
|
||||
300 PRINT
|
||||
301 PRINT "YOUR 190 FURS ARE DISTRIBUTED AMONG THE FOLLOWING"
|
||||
302 PRINT "KINDS OF PELTS: MINK, BEAVER, ERMINE AND FOX."
|
||||
310 GOSUB 1430
|
||||
315 RESTORE
|
||||
330 FOR J=1 TO 4
|
||||
332 READ B$
|
||||
333 PRINT
|
||||
335 PRINT "HOW MANY ";B$;" PELTS DO YOU HAVE";
|
||||
338 INPUT F(J)
|
||||
340 LET F(0)=F(1)+F(2)+F(3)+F(4)
|
||||
342 IF F(0)=190 THEN 1100
|
||||
344 IF F(0)>190 THEN 500
|
||||
348 NEXT J
|
||||
350 GO TO 1100
|
||||
500 PRINT
|
||||
501 PRINT "YOU MAY NOT HAVE THAT MANY FURS."
|
||||
502 PRINT "DO NOT TRY TO CHEAT. I CAN ADD."
|
||||
503 PRINT "YOU MUST START AGAIN."
|
||||
504 GO TO 15
|
||||
508 PRINT
|
||||
511 PRINT "DO YOU WANT TO TRADE FURS NEXT YEAR?"
|
||||
513 GO TO 18
|
||||
1091 PRINT "YOU ARE THE LEADER OF A FRENCH FUR TRADING EXPEDITION IN "
|
||||
1092 PRINT "1776 LEAVING THE LAKE ONTARIO AREA TO SELL FURS AND GET"
|
||||
1093 PRINT "SUPPLIES FOR THE NEXT YEAR. YOU HAVE A CHOICE OF THREE"
|
||||
1094 PRINT "FORTS AT WHICH YOU MAY TRADE. THE COST OF SUPPLIES"
|
||||
1095 PRINT "AND THE AMOUNT YOU RECEIVE FOR YOUR FURS WILL DEPEND"
|
||||
1096 PRINT "ON THE FORT THAT YOU CHOOSE."
|
||||
1099 RETURN
|
||||
1100 PRINT "DO YOU WANT TO TRADE YOUR FURS AT FORT 1, FORT 2,"
|
||||
1102 PRINT "OR FORT 3? FORT 1 IS FORT HOCHELAGA (MONTREAL)"
|
||||
1103 PRINT "AND IS UNDER THE PROTECTION OF THE FRENCH ARMY."
|
||||
1104 PRINT "FORT 2 IS FORT STADACONA (QUEBEC) AND IS UNDER THE"
|
||||
1105 PRINT "PROTECTION OF THE FRENCH ARMY. HOWEVER, YOU MUST"
|
||||
1106 PRINT "MAKE A PORTAGE AND CROSS THE LACHINE RAPIDS."
|
||||
1108 PRINT "FORT 3 IS FORT NEW YORK AND IS UNDER DUTCH CONTROL."
|
||||
1109 PRINT "YOU MUST CROSS THROUGH IROQUOIS LAND."
|
||||
1110 PRINT "ANSWER 1, 2, OR 3."
|
||||
1111 INPUT B
|
||||
1112 IF B=1 THEN 1120
|
||||
1113 IF B=2 THEN 1135
|
||||
1115 IF B=3 THEN 1147
|
||||
1116 GO TO 1110
|
||||
1120 PRINT "YOU HAVE CHOSEN THE EASIEST ROUTE. HOWEVER, THE FORT"
|
||||
1121 PRINT "IS FAR FROM ANY SEAPORT. THE VALUE"
|
||||
1122 PRINT "YOU RECEIVE FOR YOUR FURS WILL BE LOW AND THE COST"
|
||||
1123 PRINT "OF SUPPLIES HIGHER THAN AT FORTS STADACONA OR NEW YORK."
|
||||
1125 GOSUB 1400
|
||||
1129 IF B$="YES" THEN 1110
|
||||
1130 GOTO 1160
|
||||
1135 PRINT "YOU HAVE CHOSEN A HARD ROUTE. IT IS, IN COMPARSION,"
|
||||
1136 PRINT "HARDER THAN THE ROUTE TO HOCHELAGA BUT EASIER THAN"
|
||||
1137 PRINT "THE ROUTE TO NEW YORK. YOU WILL RECEIVE AN AVERAGE VALUE"
|
||||
1138 PRINT "FOR YOUR FURS AND THE COST OF YOUR SUPPLIES WILL BE AVERAGE"
|
||||
1141 GOSUB 1400
|
||||
1144 IF B$="YES" THEN 1110
|
||||
1145 GOTO 1198
|
||||
1147 PRINT "YOU HAVE CHOSEN THE MOST DIFFICULT ROUTE. AT"
|
||||
1148 PRINT "FORT NEW YORK YOU WILL RECEIVE THE HIGHEST VALUE"
|
||||
1149 PRINT "FOR YOUR FURS. THE COST OF YOUR SUPPLIES"
|
||||
1150 PRINT "WILL BE LOWER THAN AT ALL THE OTHER FORTS."
|
||||
1152 GOSUB 1400
|
||||
1155 IF B$="YES" THEN 1110
|
||||
1156 GOTO 1250
|
||||
1160 LET I=I-160
|
||||
1169 PRINT
|
||||
1174 LET M1=INT((.2*RND(0)+.7)*100+.5)/100
|
||||
1175 LET E1=INT((.2*RND(0)+.65)*10^2+.5)/10^2
|
||||
1176 LET B1=INT((.2*RND(0)+.75)*10^2+.5)/10^2
|
||||
1177 LET D1=INT((.2*RND(0)+.80)*10^2+.5)/10^2
|
||||
1180 PRINT "SUPPLIES AT FORT HOCHELAGA COST $150.00"
|
||||
1181 PRINT "YOUR TRAVEL EXPENSES TO HOCHELAGA WERE $10.00"
|
||||
1190 GO TO 1410
|
||||
1198 LET I=I-140
|
||||
1201 PRINT
|
||||
1205 LET M1=INT((.3*RND(0)+.85)*10^2+.5)/10^2
|
||||
1206 LET E1=INT((.15*RND(0)+.80)*10^2+.5)/10^2
|
||||
1207 LET B1=INT((.2*RND(0)+.90)*10^2+.5)/10^2
|
||||
1209 LET P=INT(10*RND(O0))+1
|
||||
1210 IF P<=2 THEN 1216
|
||||
1212 IF P<=6 THEN 1224
|
||||
1213 IF P<=8 THEN 1226
|
||||
1215 IF P<=10 THEN 1235
|
||||
1216 LET F(2)=0
|
||||
1218 PRINT "YOUR BEAVER WERE TOO HEAVY TO CARRY ACROSS"
|
||||
1219 PRINT "THE PORTAGE. YOU HAD TO LEAVE THE PELTS, BUT FOUND"
|
||||
1220 PRINT "THEM STOLEN WHEN YOU RETURNED"
|
||||
1221 GOSUB 1244
|
||||
1222 GO TO 1414
|
||||
1224 PRINT "YOU ARRIVED SAFELY AT FORT STADACONA"
|
||||
1225 GO TO 1239
|
||||
1226 GOSUB 1430
|
||||
1230 PRINT "YOUR CANOE UPSET IN THE LACHINE RAPIDS. YOU"
|
||||
1231 PRINT "LOST ALL YOUR FURS"
|
||||
1232 GOSUB 1244
|
||||
1233 GO TO 1418
|
||||
1235 LET F(4)=0
|
||||
1237 PRINT "YOUR FOX PELTS WERE NOT CURED PROPERLY."
|
||||
1238 PRINT "NO ONE WILL BUY THEM."
|
||||
1239 GOSUB 1244
|
||||
1240 GO TO 1410
|
||||
1244 PRINT "SUPPLIES AT FORT STADACONA COST $125.00"
|
||||
1246 PRINT "YOUR TRAVEL EXPENSES TO STADACONA WERE $15.00"
|
||||
1248 RETURN
|
||||
1250 LET I=I-105
|
||||
1254 PRINT
|
||||
1260 LET M1=INT((.15*RND(0)+1.05)*10^2+.5)/10^2
|
||||
1261 LET E1=INT((.15*RND(0)+.95)*10^2+.5)/10^2
|
||||
1262 LET B1=INT((.25*RND(0)+1.00)*10^2+.5)/10^2
|
||||
1263 LET D1=INT((.25*RND(0)+1.10)*10^2+.5)/10^2
|
||||
1270 LET P=INT(10*RND(0))+1
|
||||
1271 IF P<=2 THEN 1281
|
||||
1272 IF P<=6 THEN 1291
|
||||
1273 IF P<=8 THEN 1295
|
||||
1274 IF P<=10 THEN 1306
|
||||
1281 PRINT "YOU WERE ATTACKED BY A PARTY OF IROQUOIS."
|
||||
1282 PRINT "ALL PEOPLE IN YOUR TRADING GROUP WERE"
|
||||
1283 PRINT "KILLED. THIS ENDS THE GAME."
|
||||
1284 STOP
|
||||
1291 PRINT "YOU WERE LUCKY. YOU ARRIVED SAFELY"
|
||||
1292 PRINT "AT FORT NEW YORK."
|
||||
1293 GO TO 1311
|
||||
1295 GOSUB 1430
|
||||
1300 PRINT "YOU NARROWLY ESCAPED AN IROQUOIS RAIDING PARTY."
|
||||
1301 PRINT "HOWEVER, YOU HAD TO LEAVE ALL YOUR FURS BEHIND."
|
||||
1303 GOSUB 1320
|
||||
1304 GO TO 1418
|
||||
1306 LET B1=B1/2
|
||||
1307 LET M1=M1/2
|
||||
1308 PRINT "YOUR MINK AND BEAVER WERE DAMAGED ON YOUR TRIP."
|
||||
1309 PRINT "YOU RECEIVE ONLY HALF THE CURRENT PRICE FOR THESE FURS."
|
||||
1311 GOSUB 1320
|
||||
1312 GO TO 1410
|
||||
1320 PRINT "SUPPLIES AT NEW YORK COST $80.00"
|
||||
1322 RETURN
|
||||
1400 PRINT "DO YOU WANT TO TRADE AT ANOTHER FORT?"
|
||||
1402 PRINT "ANSWER YES OR NO",
|
||||
1403 INPUT B$
|
||||
1404 RETURN
|
||||
1410 PRINT
|
||||
1412 PRINT "YOUR BEAVER SOLD FOR $";B1*F(2);
|
||||
1414 PRINT "YOUR FOX SOLD FOR $";D1*F(4)
|
||||
1416 PRINT "YOUR ERMINE SOLD FOR $";E1*F(3);
|
||||
1417 PRINT "YOUR MINK SOLD FOR $";M1*F(1)
|
||||
1418 LET I=M1*F(1)+B1*F(2)+E1*F(3)+D1*F(4)+I
|
||||
1420 PRINT
|
||||
1422 PRINT "YOU NOW HAVE $";I;" INCLUDING YOUR PREVIOUS SAVINGS"
|
||||
1425 GO TO 508
|
||||
1430 FOR J=1 TO 4
|
||||
1432 LET F(J)=0
|
||||
1434 NEXT J
|
||||
1436 RETURN
|
||||
2000 DATA "MINK","BEAVER","ERMINE","FOX"
|
||||
2046 END
|
||||
2200 PRINT
|
||||
2210 PRINT "YOU ENDED YOUR FUR TRADING WITH $"I"."
|
||||
2220 PRINT "HOPE YOU ENJOYED YOURSELF!"
|
||||
244
dec/ROCKT2.BAS
Normal file
244
dec/ROCKT2.BAS
Normal file
|
|
@ -0,0 +1,244 @@
|
|||
7 REM LUNAR1 IS A INTERACTIVE GAME THAT SIMULATES A LUNAR
|
||||
8 REM LANDING SIMILAR TO THAT OF THE APOLLO PROGRAM.
|
||||
9 REM THERE IS ABSOLUTELY NO CHANCE INVOLVED.
|
||||
10 LET Z$="GO"
|
||||
15 LET B1=1
|
||||
20 LET M=17.95
|
||||
25 LET F1=5.25
|
||||
30 LET N=7.5
|
||||
35 LET R0=926
|
||||
40 LET V0=1.29
|
||||
45 LET T=0
|
||||
50 LET H0=60
|
||||
55 LET R=R0+H0
|
||||
60 LET A=-3.425
|
||||
65 LET R1=0
|
||||
70 LET A1=8.84361E-04
|
||||
75 LET R3=0
|
||||
80 LET A3=0
|
||||
85 LET M1=7.45
|
||||
90 LET M0=M1
|
||||
95 LET B=750
|
||||
100 LET T1=0
|
||||
105 LET F=0
|
||||
110 LET P=0
|
||||
115 LET N=1
|
||||
120 LET M2=0
|
||||
125 LET S=0
|
||||
130 LET C=0
|
||||
135 IF Z$="YES" THEN 1150
|
||||
140 PRINT
|
||||
145 PRINT "LUNAR LANDING SIMULATION"
|
||||
150 PRINT
|
||||
155 PRINT "HAVE YOU FLOWN ON AN APOLLO/LEM MISSION BEFORE#";
|
||||
160 PRINT "(YES OR NO)";
|
||||
165 INPUT Q$
|
||||
170 IF Q$="YES" THEN 190
|
||||
175 IF Q$="NO" THEN 205
|
||||
180 PRINT "JUST ANSWER THE QUESTION, PLEASE";
|
||||
185 GOTO 160
|
||||
190 PRINT
|
||||
195 PRINT "INPUT MEASUREMENT OPTION NUMBER";
|
||||
200 GOTO 225
|
||||
205 PRINT
|
||||
210 PRINT "WHICH SYSTEM OF MEASUREMENT DO YOU PREFER ?"
|
||||
215 PRINT " 1=METRIC 0=ENGLISH"
|
||||
220 PRINT "ENTER THE APPROPRIATE NUMBER";
|
||||
225 INPUT K
|
||||
230 PRINT
|
||||
235 IF K=0 THEN 280
|
||||
240 IF K=1 THEN 250
|
||||
245 GOTO 220
|
||||
250 LET Z=1852.8
|
||||
255 LET M$="METERS"
|
||||
260 LET G3=3.6
|
||||
265 LET N$=" KILOMETERS"
|
||||
270 LET G5=1000
|
||||
275 GOTO 305
|
||||
280 LET Z=6080
|
||||
285 LET M$="FEET"
|
||||
290 LET G3=.592
|
||||
295 LET N$=" N.MILES"
|
||||
300 LET G5=Z
|
||||
305 IF B1=3 THEN 670
|
||||
310 IF Q$="YES" THEN 485
|
||||
315 PRINT
|
||||
320 PRINT " YOU ARE ON A LUNAR LANDING MISSION. AS THE PILOT OF"
|
||||
325 PRINT "THE LUNAR EXCURSION MODULE, YOU WILL BE EXPECTED TO"
|
||||
330 PRINT "GIVE CERTAIN COMMANDS TO THE MODULE NAVIGATION SYSTEM."
|
||||
335 PRINT " THE ON BOARD COMPUTER WILL GIVE A RUNNING ACCOUNT"
|
||||
340 PRINT "OF INFORMATION NEEDED TO NAVIGATE THE SHIP."
|
||||
345 PRINT
|
||||
350 PRINT
|
||||
355 PRINT "THE ATTITUDE ANGLE CALLED FOR IS DESCRIBED AS FOLLOWS-"
|
||||
360 PRINT "+ OR -180 DEGREES IS DIRECTLY AWAY FROM THE MOON"
|
||||
365 PRINT "-90 DEGREES IS ON A TANGENT IN THE DIRECTION OF ORBIT"
|
||||
370 PRINT "90 DEGREES IS ON A TANGENT FROM THE DIRECTION OF ORBIT"
|
||||
375 PRINT "0 (ZERO) DEGREES IS DIRECTLY TOWARD THE MOON"
|
||||
380 PRINT
|
||||
385 PRINT TAB(30);"-180,180"
|
||||
390 PRINT TAB(34);"^"
|
||||
395 PRINT TAB(27);"-90 < -+- > 90"
|
||||
400 PRINT TAB(34);"!"
|
||||
405 PRINT TAB(34);"0"
|
||||
410 PRINT TAB(23);"<< DIRECTION OF ORBIT <<"
|
||||
415 PRINT
|
||||
420 PRINT TAB(27);"SURFACE OF MOON"
|
||||
425 PRINT
|
||||
430 PRINT
|
||||
435 PRINT "ALL ANGLES BETWEEN -180 AND 180 DEGREES ARE ACCEPTED."
|
||||
440 PRINT
|
||||
445 PRINT "1 FUEL UNIT = 1 SEC. AT MAX THRUST"
|
||||
450 PRINT "ANY DISCREPANCIES ARE ACCOUNTED FOR IN THE USE OF FUEL"
|
||||
455 PRINT "FOR AN ATTITUDE CHANGE."
|
||||
460 PRINT "AVAILABLE ENGINE POWER: 0 (ZERO) AND ANY VALUE BETWEEN"
|
||||
465 PRINT "10 AND 100 PERCENT."
|
||||
470 PRINT
|
||||
475 PRINT"NEGATIVE THRUST OR TIME IS PROHIBITED"
|
||||
480 PRINT
|
||||
485 PRINT
|
||||
490 PRINT "INPUT: TIME INTERVAL IN SECONDS ------ (T)"
|
||||
495 PRINT " PERCENTAGE OF THRUST ---------- (P)"
|
||||
500 PRINT " ATTITUDE ANGLE IN DEGREES ----- (A)"
|
||||
505 PRINT
|
||||
510 IF Q$="YES" THEN 535
|
||||
515 PRINT "FOR EXAMPLE:"
|
||||
520 PRINT "T,P,A?10,65,-60"
|
||||
525 PRINT "TO ABORT THE MISSION AT ANY TIME, ENTER 0,0,0"
|
||||
530 PRINT
|
||||
535 PRINT "OUTPUT: TOTAL TIME ELAPSED IN SECONDS"
|
||||
540 PRINT " HEIGHT IN ";M$
|
||||
545 PRINT " DISTANCE FROM LANDING SITE IN ";M$
|
||||
550 PRINT " VERTICAL VELOCITY IN ";M$;"/SECOND"
|
||||
555 PRINT " HORIZONTAL VELOCITY IN ";M$;"/SECOND"
|
||||
560 PRINT " FUEL UNITS REMAINING"
|
||||
565 PRINT
|
||||
570 GOTO 670
|
||||
575 PRINT
|
||||
580 PRINT "T,P,A";
|
||||
585 INPUT T1,F,P
|
||||
590 LET F=F/100
|
||||
595 IF T1<0 THEN 905
|
||||
600 IF T1=0 THEN 1090
|
||||
605 IF ABS(F-.05)>1 THEN 945
|
||||
610 IF ABS(F-.05)<.05 THEN 945
|
||||
615 IF ABS(P)>180 THEN 925
|
||||
620 LET N=20
|
||||
625 IF T1<400 THEN 635
|
||||
630 LET N=T1/20
|
||||
635 LET T1=T1/N
|
||||
640 LET P=P*3.14159/180
|
||||
645 LET S=SIN(P)
|
||||
650 LET C=COS(P)
|
||||
655 LET M2=M0*T1*F/B
|
||||
660 LET R3=-.5*R0*((V0/R)^2)+R*A1*A1
|
||||
665 LET A3=-2*R1*A1/R
|
||||
670 FOR I=1 TO N
|
||||
675 IF M1=0 THEN 715
|
||||
680 LET M1=M1-M2
|
||||
685 IF M1>0 THEN 725
|
||||
690 LET F=F*(1+M1/M2)
|
||||
695 LET M2=M1+M2
|
||||
700 PRINT "YOU ARE OUT OF FUEL"
|
||||
705 LET M1=0
|
||||
710 GOTO 725
|
||||
715 LET F=0
|
||||
720 LET M2=0
|
||||
725 LET M=M-.5*M2
|
||||
730 LET R4=R3
|
||||
735 LET R3=-.5*R0*((V0/R)^2)+R*A1*A1
|
||||
740 LET R2=(3*R3-R4)/2+.00526*F1*F*C/M
|
||||
745 LET A4=A3
|
||||
750 LET A3=-2*R1*A1/R
|
||||
755 LET A2=(3*A3-A4)/2+.00526*F1*F*S/(M*R)
|
||||
760 LET X=R1*T1+.5*R2*T1*T1
|
||||
765 LET R=R+X
|
||||
770 LET H0=H0+X
|
||||
775 LET R1=R1+R2*T1
|
||||
780 LET A=A+A1*T1+.5*A2*T1*T1
|
||||
785 LET A1=A1+A2*T1
|
||||
790 LET M=M-.5*M2
|
||||
795 LET T=T+T1
|
||||
800 IF H0<3.287828E-04 THEN 810
|
||||
805 NEXT I
|
||||
810 LET H=H0*Z
|
||||
815 LET H1=R1*Z
|
||||
820 LET D=R0*A*Z
|
||||
825 LET D1=R*A1*Z
|
||||
830 LET T2=M1*B/M0
|
||||
835 PRINT TAB(1);T;TAB(10);H;TAB(23);D;
|
||||
840 PRINT TAB(37);H1;TAB(49);D1;TAB(60);T2
|
||||
845 IF H0<3.287828E-04 THEN 880
|
||||
850 IF R0*A>164.4736 THEN 1050
|
||||
855 IF M1>0 THEN 580
|
||||
860 LET T1=20
|
||||
865 LET F=0
|
||||
870 LET P=0
|
||||
875 GOTO 620
|
||||
880 IF R1<-8.21957E-04 THEN 1020
|
||||
885 IF ABS(R*A1)>4.931742E-04 THEN 1020
|
||||
890 IF H0<-3.287828E-04 THEN 1020
|
||||
895 IF ABS(D)>10*Z THEN 1065
|
||||
900 GOTO 995
|
||||
905 PRINT
|
||||
910 PRINT "THIS SPACECRAFT IS NOT ABLE TO VIOLATE THE SPACE-";
|
||||
915 PRINT "TIME CONTINUUM."
|
||||
920 GOTO 575
|
||||
925 PRINT
|
||||
930 PRINT "IF YOU WANT TO SPIN AROUND, GO OUTSIDE THE MODULE";
|
||||
935 PRINT "FOR AN E.V.A"
|
||||
940 GOTO 575
|
||||
945 PRINT
|
||||
950 PRINT "IMPOSSIBLE THRUST-VALUE ";
|
||||
955 IF F<0 THEN 985
|
||||
960 IF F-.05<.05 THEN 975
|
||||
965 PRINT "TOO LARGE"
|
||||
970 GOTO 575
|
||||
975 PRINT "TOO SMALL"
|
||||
980 GOTO 575
|
||||
985 PRINT "NEGATIVE"
|
||||
990 GOTO 575
|
||||
995 PRINT
|
||||
1000 PRINT "TRANQUILITY BASE HERE -- THE EAGLE HAS LANDED"
|
||||
1005 PRINT "CONGRATULATIONS - THERE WAS NO SPACECRAFT DAMAGE"
|
||||
1010 PRINT "YOU MAY NOW PROCEED WITH SURFACE EXPLORATION."
|
||||
1015 GOTO 1100
|
||||
1020 PRINT
|
||||
1025 PRINT "CRASH !!!!!!!!!!!"
|
||||
1030 PRINT "YOUR IMPACT CREATED A CRATER";ABS(H);M$;" DEEP"
|
||||
1035 X1=SQR(D1*D1+H1*H1)*G3
|
||||
1040 PRINT "AT CONTACT YOU WERE TRAVELING";X1;N$;"/HR."
|
||||
1045 GOTO 1100
|
||||
1050 PRINT
|
||||
1055 PRINT "YOU HAVE BEEN LOST IN SPACE WITH NO HOPE OF RECOVERY"
|
||||
1060 GOTO 1100
|
||||
1065 PRINT "YOU ARE DOWN SAFELY - "
|
||||
1075 PRINT
|
||||
1080 PRINT "BUT MISSED THE LANDING SITE BY";ABS(D/G5);N$
|
||||
1085 GOTO 1100
|
||||
1090 PRINT
|
||||
1095 PRINT "MISSION ABORTED"
|
||||
1100 PRINT
|
||||
1105 PRINT "DO YOU WANT TO FLY IT AGAIN ? (YES OR NO)";
|
||||
1110 INPUT Z$
|
||||
1115 IF Z$="YES" THEN 20
|
||||
1120 IF Z$="NO" THEN 1130
|
||||
1125 GOTO 1105
|
||||
1130 PRINT
|
||||
1135 PRINT "TOO BAD, THE SPACE PROGRAM HATES TO LOSE EXPERIENCED";
|
||||
1140 PRINT " ASTRONAUTS."
|
||||
1145 STOP
|
||||
1150 PRINT
|
||||
1155 PRINT "OK, DO YOU WANT THE COMPLETE INSTRUCTIONS OR THE INPUT-"
|
||||
1160 PRINT "OUTPUT STATEMENTS ?"
|
||||
1165 PRINT "1=COMPLETE INSTRUCTIONS"
|
||||
1170 PRINT "2=INPUT-OUTPUT STATEMENTS"
|
||||
1175 PRINT "3=NEITHER"
|
||||
1180 INPUT B1
|
||||
1185 LET Q$="NO"
|
||||
1190 IF B1=1 THEN 205
|
||||
1195 LET Q$="YES"
|
||||
1200 IF B1=2 THEN 190
|
||||
1205 IF B1=3 THEN 190
|
||||
1210 GOTO 1165
|
||||
1215 END
|
||||
254
port/BUG.BAS
Normal file
254
port/BUG.BAS
Normal file
|
|
@ -0,0 +1,254 @@
|
|||
1 REM BRIAN MONTE LEIBOWITZ GRADE 7
|
||||
2 REM HARRISON JR. HIGH SCHOOL
|
||||
3 REM HARRISON N.Y.
|
||||
4 RANDOMIZE
|
||||
5 A=0\B=0\H=0\L=0\N=0\P=0\Q=0\R=0\S=0\T=0\U=0\V=0\Y=0
|
||||
6 PRINT "THE GAME BUG IS LIKE THE GAME COOTI,"
|
||||
7 PRINT "I HOPE YOU ENJOY THIS GAME"
|
||||
8 PRINT
|
||||
9 PRINT "DO YOU WANT INSTRUCTIONS";
|
||||
10 INPUT Z$
|
||||
11 IF Z$="NO" THEN 30
|
||||
12 PRINT "THE OBJECT OF BUG IS TO FINISH YOUR BUG BEFORE I FINISH MINE"
|
||||
13 PRINT "EACH NUMBER STANDS FOR A PART OF THE BUGS BODY"
|
||||
14 PRINT "I WILL ROLL THE DIE FOR YOU, TELL YOU WHAT I ROLLED FOR YOU"
|
||||
15 PRINT "WHAT THE NUMBER STANDS FOR, AND IF YOU CAN GET THE PART."
|
||||
16 PRINT "IF YOU CAN GET THE PART I WILL GIVE IT TO YOU."
|
||||
17 PRINT "THE SAME WILL HAPPEN ON MY TURN"
|
||||
18 PRINT "IF THERE IS A CHANGE IN EITHER BUG I WILL GIVE YOU THE "
|
||||
19 PRINT "OPTION OF SEEING THE PICTURES OF THE BUGS."
|
||||
20 PRINT "THE NUMBERS STAND FOR PARTS AS FOLLOWS:"
|
||||
21 PRINT "NUMBER","PART","NUMBER OF PART NEEDED"
|
||||
22 PRINT "1","BODY","1"
|
||||
23 PRINT "2","NECK","1"
|
||||
24 PRINT "3","HEAD","1"
|
||||
25 PRINT "4","FEELERS","2"
|
||||
26 PRINT "5","TAIL","1"
|
||||
27 PRINT "6","LEGS","6"
|
||||
28 PRINT
|
||||
29 PRINT
|
||||
30 IF Y>0 THEN 248
|
||||
31 Z=INT(6*RND(0)+1)
|
||||
32 C=1
|
||||
33 PRINT "YOU ROLLED A "Z
|
||||
34 ON Z GOTO 35,43,54,65,76,87
|
||||
35 PRINT "1=BODY"
|
||||
36 IF B=1 THEN 41
|
||||
37 PRINT "YOU NOW HAVE A BODY"
|
||||
38 B=1
|
||||
39 C=0
|
||||
40 GOTO 97
|
||||
41 PRINT "YOU DO NOT NEED A BODY"
|
||||
42 GOTO 97
|
||||
43 PRINT "2=NECK"
|
||||
44 IF N=1 THEN 50
|
||||
45 IF B=0 THEN 52
|
||||
46 PRINT "YOU NOW HAVE A NECK"
|
||||
47 N=1
|
||||
48 C=0
|
||||
49 GOTO 97
|
||||
50 PRINT "YOU DO NOT NEED A NECK"
|
||||
51 GOTO 97
|
||||
52 PRINT "YOU DO NOT HAVE A BODY"
|
||||
53 GOTO 97
|
||||
54 PRINT "3=HEAD"
|
||||
55 IF N=0 THEN 61
|
||||
56 IF H=1 THEN 63
|
||||
57 PRINT "YOU NEEDED A HEAD"
|
||||
58 H=1
|
||||
59 C=0
|
||||
60 GOTO 97
|
||||
61 PRINT "YOU DO NOT HAVE A NECK"
|
||||
62 GOTO 97
|
||||
63 PRINT "YOU HAVE A HEAD"
|
||||
64 GOTO 97
|
||||
65 PRINT "4=FEELERS"
|
||||
66 IF H=0 THEN 74
|
||||
67 IF A=2 THEN 72
|
||||
68 PRINT "I NOW GIVE YOU A FEELER"
|
||||
69 LET A=A+1
|
||||
70 C=0
|
||||
71 GOTO 97
|
||||
72 PRINT "YOU HAVE TWO FEELERS ALREADY"
|
||||
73 GOTO 97
|
||||
74 PRINT "YOU DO NOT HAVE A HEAD"
|
||||
75 GOTO 97
|
||||
76 PRINT "5=TAIL"
|
||||
77 IF B=0 THEN 83
|
||||
78 IF T=1 THEN 85
|
||||
79 PRINT "I NOW GIVE YOU A TAIL"
|
||||
80 LET T=T+1
|
||||
81 C=0
|
||||
82 GOTO 97
|
||||
83 PRINT "YOU DO NOT HAVE A BODY"
|
||||
84 GOTO 97
|
||||
85 PRINT "YOU ALREADY HAVE A TAIL"
|
||||
86 GOTO 97
|
||||
87 PRINT "6=LEG"
|
||||
88 IF L=6 THEN 94
|
||||
89 IF B=0 THEN 96
|
||||
90 LET L=L+1
|
||||
91 C=0
|
||||
92 PRINT "YOU NOW HAVE "L" LEG(S)"
|
||||
93 GOTO 97
|
||||
94 PRINT "YOU HAVE 6 FEET ALREADY"
|
||||
95 GOTO 97
|
||||
96 PRINT "YOU DO NOT HAVE A BODY"
|
||||
97 LET X=INT(6*RND(0)+1)
|
||||
98 PRINT "I ROLLED A "X
|
||||
99 ON X GOTO 100,108,119,130,141,152
|
||||
100 PRINT "1=BODY"
|
||||
101 IF P=1 THEN 106
|
||||
102 PRINT "I NOW HAVE A BODY"
|
||||
103 C=0
|
||||
104 P=1
|
||||
105 GOTO 163
|
||||
106 PRINT "I DO NOT NEED A BODY"
|
||||
107 GOTO 163
|
||||
108 PRINT "2=NECK"
|
||||
109 IF Q=1 THEN 115
|
||||
110 IF P=0 THEN 117
|
||||
111 PRINT "I NOW HAVE A NECK"
|
||||
112 Q=1
|
||||
113 C=0
|
||||
114 GOTO 163
|
||||
115 PRINT "I DO NOT NEED A NECK"
|
||||
116 GOTO 163
|
||||
117 PRINT "I DO NOT HAVE A BODY"
|
||||
118 GOTO 163
|
||||
119 PRINT "3=HEAD"
|
||||
120 IF Q=0 THEN 126
|
||||
121 IF R=1 THEN 128
|
||||
122 PRINT "I NEEDED A HEAD"
|
||||
123 R=1
|
||||
124 C=0
|
||||
125 GOTO 163
|
||||
126 PRINT "I DO NOT HAVE A NECK"
|
||||
127 GOTO 163
|
||||
128 PRINT "I DO NOT NEED A HEAD"
|
||||
129 GOTO 163
|
||||
130 PRINT "4=FEELERS"
|
||||
131 IF R=0 THEN 139
|
||||
132 IF S=2 THEN 137
|
||||
133 PRINT "I GET A FEELER"
|
||||
134 LET S=S+1
|
||||
135 C=0
|
||||
136 GOTO 163
|
||||
137 PRINT "I HAVE 2 FEELERS ALREADY"
|
||||
138 GOTO 163
|
||||
139 PRINT "I DO NOT HAVE A HEAD"
|
||||
140 GOTO 163
|
||||
141 PRINT "5=TAIL"
|
||||
142 IF P=0 THEN 148
|
||||
143 IF U=1 THEN 150
|
||||
144 PRINT "I NOW HAVE A TAIL"
|
||||
145 U=1
|
||||
146 C=0
|
||||
147 GOTO 163
|
||||
148 PRINT "I DO NOT HAVE A BODY"
|
||||
149 GOTO 163
|
||||
150 PRINT "I DO NOT NEED A TAIL"
|
||||
151 GOTO 163
|
||||
152 PRINT "6=LEGS"
|
||||
153 IF V=6 THEN 159
|
||||
154 IF P=0 THEN 161
|
||||
155 LET V=V+1
|
||||
156 C=0
|
||||
157 PRINT "I NOW HAVE "V" LEG(S)"
|
||||
158 GOTO 163
|
||||
159 PRINT "I HAVE 6 FEET"
|
||||
160 GOTO 163
|
||||
161 PRINT "I DO NOT HAVE A BODY"
|
||||
162 GOTO 163
|
||||
163 IF A<>2 THEN 167\IF T<>1 THEN 167\IF L=6 THEN 165
|
||||
164 GOTO 167
|
||||
165 PRINT "YOUR BUG IS FINISHED"
|
||||
166 LET Y=Y+1
|
||||
167 IF S<>2 THEN 171\IF P<>1 THEN 171\IF V=6 THEN 169
|
||||
168 GOTO 171
|
||||
169 PRINT "MY BUG IS FINISHED"
|
||||
170 LET Y=Y+2
|
||||
171 IF C=1 THEN 30
|
||||
172 PRINT "DO YOU WANT THE PICTURES";
|
||||
173 INPUT Z$
|
||||
174 IF Z$="NO" THEN 30
|
||||
175 PRINT "*****YOUR BUG*****"
|
||||
176 PRINT
|
||||
177 PRINT
|
||||
178 IF A=0 THEN 186
|
||||
179 FOR Z=1 TO 4
|
||||
180 PRINT TAB(10);
|
||||
181 FOR X=1 TO A
|
||||
182 PRINT "A ";
|
||||
183 NEXT X
|
||||
184 PRINT
|
||||
185 NEXT Z
|
||||
186 IF H=0 THEN 188
|
||||
187 GOSUB 247
|
||||
188 IF N=0 THEN 192
|
||||
189 FOR Z=1 TO 2
|
||||
190 PRINT " N N"
|
||||
191 NEXT Z
|
||||
192 IF B=0 THEN 200
|
||||
193 PRINT " BBBBBBBBBBBB"
|
||||
194 FOR Z=1 TO 2
|
||||
195 PRINT " B B"
|
||||
196 NEXT Z
|
||||
197 IF T<>1 THEN 199
|
||||
198 PRINT "TTTTTB B"
|
||||
199 PRINT " BBBBBBBBBBBB"
|
||||
200 IF L=0 THEN 208
|
||||
201 FOR Z=1 TO 2
|
||||
202 PRINT TAB(5);
|
||||
203 FOR X=1 TO L
|
||||
204 PRINT " L";
|
||||
205 NEXT X
|
||||
206 PRINT
|
||||
207 NEXT Z
|
||||
208 FOR Z=1 TO 4
|
||||
209 PRINT
|
||||
210 NEXT Z
|
||||
211 PRINT "*****MY BUG*****"
|
||||
212 PRINT
|
||||
213 PRINT
|
||||
214 PRINT
|
||||
215 IF S=0 THEN 223
|
||||
216 FOR Z=1 TO 4
|
||||
217 PRINT TAB(10);
|
||||
218 FOR X=1 TO S
|
||||
219 PRINT "F ";
|
||||
220 NEXT X
|
||||
221 PRINT
|
||||
222 NEXT Z
|
||||
223 IF R<>1 THEN 225
|
||||
224 GOSUB 247
|
||||
225 IF Q=0 THEN 228
|
||||
226 PRINT " N N"
|
||||
227 PRINT " N N"
|
||||
228 IF P=0 THEN 236
|
||||
229 PRINT " BBBBBBBBBBBB"
|
||||
230 FOR Z=1 TO 2
|
||||
231 PRINT " B B"
|
||||
232 NEXT Z
|
||||
233 IF U<>1 THEN 235
|
||||
234 PRINT "TTTTTB B"
|
||||
235 PRINT " BBBBBBBBBBBB"
|
||||
236 IF V=0 THEN 245
|
||||
237 FOR Z=1 TO 2
|
||||
238 PRINT TAB(5);
|
||||
239 FOR X=1 TO V
|
||||
240 PRINT " L";
|
||||
241 NEXT X
|
||||
242 PRINT
|
||||
243 NEXT Z
|
||||
245 IF Y<>0 THEN 254
|
||||
246 GOTO 30
|
||||
247 PRINT " HHHHHHH"
|
||||
248 PRINT " H H"
|
||||
249 PRINT " H O O H"
|
||||
250 PRINT " H H"
|
||||
251 PRINT " H V H"
|
||||
252 PRINT " HHHHHHH"
|
||||
253 RETURN
|
||||
254 PRINT "I HOPE YOU ENJOYED THE GAME, PLAY IT AGAIN SOON !!!"
|
||||
255 END
|
||||
171
port/FURS.BAS
Normal file
171
port/FURS.BAS
Normal file
|
|
@ -0,0 +1,171 @@
|
|||
1 DIM F(4)
|
||||
2 RANDOM
|
||||
15 GOSUB 1091
|
||||
16 LET I=600
|
||||
17 PRINT "DO YOU WISH TO TRADE FURS?"
|
||||
18 GOSUB 1402
|
||||
19 IF B$="YES" THEN 100
|
||||
20 IF B$="NO" THEN 2010
|
||||
25 GOSUB 1402
|
||||
100 PRINT
|
||||
101 PRINT "YOU HAVE $";I "SAVINGS."
|
||||
102 PRINT "AND 190 FURS TO BEGIN THE EXPEDITION."
|
||||
300 PRINT
|
||||
301 PRINT "YOUR 190 FURS ARE DISTRIBUTED AMONG THE FOLLOWING"
|
||||
302 PRINT "KINDS OF PELTS: MINK, BEAVER, ERMINE AND FOX."
|
||||
310 GOSUB 1430
|
||||
315 RESTORE
|
||||
330 FOR J=1 TO 4
|
||||
332 READ B$
|
||||
333 PRINT
|
||||
335 PRINT "HOW MANY ";B$;" PELTS DO YOU HAVE";
|
||||
338 INPUT F(J)
|
||||
340 LET F(0)=F(1)+F(2)+F(3)+F(4)
|
||||
342 IF F(0)=190 THEN 1100
|
||||
344 IF F(0)>190 THEN 500
|
||||
348 NEXT J
|
||||
350 GO TO 1100
|
||||
500 PRINT
|
||||
501 PRINT "YOU MAY NOT HAVE THAT MANY FURS."
|
||||
502 PRINT "DO NOT TRY TO CHEAT. I CAN ADD."
|
||||
503 PRINT "YOU MUST START AGAIN."
|
||||
504 GO TO 15
|
||||
508 PRINT
|
||||
511 PRINT "DO YOU WANT TO TRADE FURS NEXT YEAR?"
|
||||
513 GO TO 18
|
||||
1091 PRINT "YOU ARE THE LEADER OF A FRENCH FUR TRADING EXPEDITION IN "
|
||||
1092 PRINT "1776 LEAVING THE LAKE ONTARIO AREA TO SELL FURS AND GET"
|
||||
1093 PRINT "SUPPLIES FOR THE NEXT YEAR. YOU HAVE A CHOICE OF THREE"
|
||||
1094 PRINT "FORTS AT WHICH YOU MAY TRADE. THE COST OF SUPPLIES"
|
||||
1095 PRINT "AND THE AMOUNT YOU RECEIVE FOR YOUR FURS WILL DEPEND"
|
||||
1096 PRINT "ON THE FORT THAT YOU CHOOSE."
|
||||
1099 RETURN
|
||||
1100 PRINT "DO YOU WANT TO TRADE YOUR FURS AT FORT 1, FORT 2,"
|
||||
1102 PRINT "OR FORT 3? FORT 1 IS FORT HOCHELAGA (MONTREAL)"
|
||||
1103 PRINT "AND IS UNDER THE PROTECTION OF THE FRENCH ARMY."
|
||||
1104 PRINT "FORT 2 IS FORT STADACONA (QUEBEC) AND IS UNDER THE"
|
||||
1105 PRINT "PROTECTION OF THE FRENCH ARMY. HOWEVER, YOU MUST"
|
||||
1106 PRINT "MAKE A PORTAGE AND CROSS THE LACHINE RAPIDS."
|
||||
1108 PRINT "FORT 3 IS FORT NEW YORK AND IS UNDER DUTCH CONTROL."
|
||||
1109 PRINT "YOU MUST CROSS THROUGH IROQUOIS LAND."
|
||||
1110 PRINT "ANSWER 1, 2, OR 3."
|
||||
1111 INPUT B
|
||||
1112 IF B=1 THEN 1120
|
||||
1113 IF B=2 THEN 1135
|
||||
1115 IF B=3 THEN 1147
|
||||
1116 GO TO 1110
|
||||
1120 PRINT "YOU HAVE CHOSEN THE EASIEST ROUTE. HOWEVER, THE FORT"
|
||||
1121 PRINT "IS FAR FROM ANY SEAPORT. THE VALUE"
|
||||
1122 PRINT "YOU RECEIVE FOR YOUR FURS WILL BE LOW AND THE COST"
|
||||
1123 PRINT "OF SUPPLIES HIGHER THAN AT FORTS STADACONA OR NEW YORK."
|
||||
1125 GOSUB 1400
|
||||
1129 IF B$="YES" THEN 1110
|
||||
1130 GOTO 1160
|
||||
1135 PRINT "YOU HAVE CHOSEN A HARD ROUTE. IT IS, IN COMPARISON,"
|
||||
1136 PRINT "HARDER THAN THE ROUTE TO HOCHELAGA BUT EASIER THAN"
|
||||
1137 PRINT "THE ROUTE TO NEW YORK. YOU WILL RECEIVE AN AVERAGE VALUE"
|
||||
1138 PRINT "FOR YOUR FURS AND THE COST OF YOUR SUPPLIES WILL BE AVERAGE"
|
||||
1141 GOSUB 1400
|
||||
1144 IF B$="YES" THEN 1110
|
||||
1145 GOTO 1198
|
||||
1147 PRINT "YOU HAVE CHOSEN THE MOST DIFFICULT ROUTE. AT"
|
||||
1148 PRINT "FORT NEW YORK YOU WILL RECEIVE THE HIGHEST VALUE"
|
||||
1149 PRINT "FOR YOUR FURS. THE COST OF YOUR SUPPLIES"
|
||||
1150 PRINT "WILL BE LOWER THAN AT ALL THE OTHER FORTS."
|
||||
1152 GOSUB 1400
|
||||
1155 IF B$="YES" THEN 1110
|
||||
1156 GOTO 1250
|
||||
1160 LET I=I-160
|
||||
1169 PRINT
|
||||
1174 LET M1=INT((.2*RND(0)+.7)*100+.5)/100
|
||||
1175 LET E1=INT((.2*RND(0)+.65)*10^2+.5)/10^2
|
||||
1176 LET B1=INT((.2*RND(0)+.75)*10^2+.5)/10^2
|
||||
1177 LET D1=INT((.2*RND(0)+.80)*10^2+.5)/10^2
|
||||
1180 PRINT "SUPPLIES AT FORT HOCHELAGA COST $150.00"
|
||||
1181 PRINT "YOUR TRAVEL EXPENSES TO HOCHELAGA WERE $10.00"
|
||||
1190 GO TO 1410
|
||||
1198 LET I=I-140
|
||||
1201 PRINT
|
||||
1205 LET M1=INT((.3*RND(0)+.85)*10^2+.5)/10^2
|
||||
1206 LET E1=INT((.15*RND(0)+.80)*10^2+.5)/10^2
|
||||
1207 LET B1=INT((.2*RND(0)+.90)*10^2+.5)/10^2
|
||||
1209 LET P=INT(10*RND(0))+1
|
||||
1210 IF P<=2 THEN 1216
|
||||
1212 IF P<=6 THEN 1224
|
||||
1213 IF P<=8 THEN 1226
|
||||
1215 IF P<=10 THEN 1235
|
||||
1216 LET F(2)=0
|
||||
1218 PRINT "YOUR BEAVER WERE TOO HEAVY TO CARRY ACROSS"
|
||||
1219 PRINT "THE PORTAGE. YOU HAD TO LEAVE THE PELTS, BUT FOUND"
|
||||
1220 PRINT "THEM STOLEN WHEN YOU RETURNED"
|
||||
1221 GOSUB 1244
|
||||
1222 GO TO 1414
|
||||
1224 PRINT "YOU ARRIVED SAFELY AT FORT STADACONA"
|
||||
1225 GO TO 1239
|
||||
1226 GOSUB 1430
|
||||
1230 PRINT "YOUR CANOE UPSET IN THE LACHINE RAPIDS. YOU"
|
||||
1231 PRINT "LOST ALL YOUR FURS"
|
||||
1232 GOSUB 1244
|
||||
1233 GO TO 1418
|
||||
1235 LET F(4)=0
|
||||
1237 PRINT "YOUR FOX PELTS WERE NOT CURED PROPERLY."
|
||||
1238 PRINT "NO ONE WILL BUY THEM."
|
||||
1239 GOSUB 1244
|
||||
1240 GO TO 1410
|
||||
1244 PRINT "SUPPLIES AT FORT STADACONA COST $125.00"
|
||||
1246 PRINT "YOUR TRAVEL EXPENSES TO STADACONA WERE $15.00"
|
||||
1248 RETURN
|
||||
1250 LET I=I-105
|
||||
1254 PRINT
|
||||
1260 LET M1=INT((.15*RND(0)+1.05)*10^2+.5)/10^2
|
||||
1261 LET E1=INT((.15*RND(0)+.95)*10^2+.5)/10^2
|
||||
1262 LET B1=INT((.25*RND(0)+1.00)*10^2+.5)/10^2
|
||||
1263 LET D1=INT((.25*RND(0)+1.10)*10^2+.5)/10^2
|
||||
1270 LET P=INT(10*RND(0))+1
|
||||
1271 IF P<=2 THEN 1281
|
||||
1272 IF P<=6 THEN 1291
|
||||
1273 IF P<=8 THEN 1295
|
||||
1274 IF P<=10 THEN 1306
|
||||
1281 PRINT "YOU WERE ATTACKED BY A PARTY OF IROQUOIS."
|
||||
1282 PRINT "ALL PEOPLE IN YOUR TRADING GROUP WERE"
|
||||
1283 PRINT "KILLED. THIS ENDS THE GAME."
|
||||
1284 STOP
|
||||
1291 PRINT "YOU WERE LUCKY. YOU ARRIVED SAFELY"
|
||||
1292 PRINT "AT FORT NEW YORK."
|
||||
1293 GO TO 1311
|
||||
1295 GOSUB 1430
|
||||
1300 PRINT "YOU NARROWLY ESCAPED AN IROQUOIS RAIDING PARTY."
|
||||
1301 PRINT "HOWEVER, YOU HAD TO LEAVE ALL YOUR FURS BEHIND."
|
||||
1303 GOSUB 1320
|
||||
1304 GO TO 1418
|
||||
1306 LET B1=B1/2
|
||||
1307 LET M1=M1/2
|
||||
1308 PRINT "YOUR MINK AND BEAVER WERE DAMAGED ON YOUR TRIP."
|
||||
1309 PRINT "YOU RECEIVE ONLY HALF THE CURRENT PRICE FOR THESE FURS."
|
||||
1311 GOSUB 1320
|
||||
1312 GO TO 1410
|
||||
1320 PRINT "SUPPLIES AT NEW YORK COST $80.00"
|
||||
1321 PRINT "YOUR TRAVEL EXPENSES TO NEW YORK WERE $25.00"
|
||||
1322 RETURN
|
||||
1400 PRINT "DO YOU WANT TO TRADE AT ANOTHER FORT?"
|
||||
1402 PRINT "ANSWER YES OR NO",
|
||||
1403 INPUT B$
|
||||
1404 RETURN
|
||||
1410 PRINT
|
||||
1412 PRINT "YOUR BEAVER SOLD FOR $";B1*F(2);
|
||||
1414 PRINT "YOUR FOX SOLD FOR $";D1*F(4)
|
||||
1416 PRINT "YOUR ERMINE SOLD FOR $";E1*F(3);
|
||||
1417 PRINT "YOUR MINK SOLD FOR $";M1*F(1)
|
||||
1418 LET I=M1*F(1)+B1*F(2)+E1*F(3)+D1*F(4)+I
|
||||
1420 PRINT
|
||||
1422 PRINT "YOU NOW HAVE $";I;" INCLUDING YOUR PREVIOUS SAVINGS"
|
||||
1425 GO TO 508
|
||||
1430 FOR J=1 TO 4
|
||||
1432 LET F(J)=0
|
||||
1434 NEXT J
|
||||
1436 RETURN
|
||||
2000 DATA "MINK","BEAVER","ERMINE","FOX"
|
||||
2010 PRINT
|
||||
2020 PRINT "YOU ENDED YOUR FUR TRADING WITH $"I"."
|
||||
2030 PRINT "HOPE YOU ENJOYED YOURSELF!"
|
||||
2046 END
|
||||
244
port/ROCKT2.BAS
Normal file
244
port/ROCKT2.BAS
Normal file
|
|
@ -0,0 +1,244 @@
|
|||
7 REM LUNAR1 IS A INTERACTIVE GAME THAT SIMULATES A LUNAR
|
||||
8 REM LANDING SIMILAR TO THAT OF THE APOLLO PROGRAM.
|
||||
9 REM THERE IS ABSOLUTELY NO CHANCE INVOLVED.
|
||||
10 LET Z$="GO"
|
||||
15 LET B1=1
|
||||
20 LET M=17.95
|
||||
25 LET F1=5.25
|
||||
30 LET N=7.5
|
||||
35 LET R0=926
|
||||
40 LET V0=1.29
|
||||
45 LET T=0
|
||||
50 LET H0=60
|
||||
55 LET R=R0+H0
|
||||
60 LET A=-3.425
|
||||
65 LET R1=0
|
||||
70 LET A1=8.84361E-04
|
||||
75 LET R3=0
|
||||
80 LET A3=0
|
||||
85 LET M1=7.45
|
||||
90 LET M0=M1
|
||||
95 LET B=750
|
||||
100 LET T1=0
|
||||
105 LET F=0
|
||||
110 LET P=0
|
||||
115 LET N=1
|
||||
120 LET M2=0
|
||||
125 LET S=0
|
||||
130 LET C=0
|
||||
135 IF Z$="YES" THEN 1150
|
||||
140 PRINT
|
||||
145 PRINT "LUNAR LANDING SIMULATION"
|
||||
150 PRINT
|
||||
155 PRINT "HAVE YOU FLOWN ON AN APOLLO/LEM MISSION BEFORE#";
|
||||
160 PRINT "(YES OR NO)";
|
||||
165 INPUT Q$
|
||||
170 IF Q$="YES" THEN 190
|
||||
175 IF Q$="NO" THEN 205
|
||||
180 PRINT "JUST ANSWER THE QUESTION, PLEASE";
|
||||
185 GOTO 160
|
||||
190 PRINT
|
||||
195 PRINT "INPUT MEASUREMENT OPTION NUMBER";
|
||||
200 GOTO 225
|
||||
205 PRINT
|
||||
210 PRINT "WHICH SYSTEM OF MEASUREMENT DO YOU PREFER ?"
|
||||
215 PRINT " 1=METRIC 0=ENGLISH"
|
||||
220 PRINT "ENTER THE APPROPRIATE NUMBER";
|
||||
225 INPUT K
|
||||
230 PRINT
|
||||
235 IF K=0 THEN 280
|
||||
240 IF K=1 THEN 250
|
||||
245 GOTO 220
|
||||
250 LET Z=1852.8
|
||||
255 LET M$="METERS"
|
||||
260 LET G3=3.6
|
||||
265 LET N$=" KILOMETERS"
|
||||
270 LET G5=1000
|
||||
275 GOTO 305
|
||||
280 LET Z=6080
|
||||
285 LET M$="FEET"
|
||||
290 LET G3=.592
|
||||
295 LET N$=" N.MILES"
|
||||
300 LET G5=Z
|
||||
305 IF B1=3 THEN 670
|
||||
310 IF Q$="YES" THEN 485
|
||||
315 PRINT
|
||||
320 PRINT " YOU ARE ON A LUNAR LANDING MISSION. AS THE PILOT OF"
|
||||
325 PRINT "THE LUNAR EXCURSION MODULE, YOU WILL BE EXPECTED TO"
|
||||
330 PRINT "GIVE CERTAIN COMMANDS TO THE MODULE NAVIGATION SYSTEM."
|
||||
335 PRINT " THE ON BOARD COMPUTER WILL GIVE A RUNNING ACCOUNT"
|
||||
340 PRINT "OF INFORMATION NEEDED TO NAVIGATE THE SHIP."
|
||||
345 PRINT
|
||||
350 PRINT
|
||||
355 PRINT "THE ATTITUDE ANGLE CALLED FOR IS DESCRIBED AS FOLLOWS-"
|
||||
360 PRINT "+ OR -180 DEGREES IS DIRECTLY AWAY FROM THE MOON"
|
||||
365 PRINT "-90 DEGREES IS ON A TANGENT IN THE DIRECTION OF ORBIT"
|
||||
370 PRINT "90 DEGREES IS ON A TANGENT FROM THE DIRECTION OF ORBIT"
|
||||
375 PRINT "0 (ZERO) DEGREES IS DIRECTLY TOWARD THE MOON"
|
||||
380 PRINT
|
||||
385 PRINT TAB(30);"-180,180"
|
||||
390 PRINT TAB(34);"^"
|
||||
395 PRINT TAB(27);"-90 < -+- > 90"
|
||||
400 PRINT TAB(34);"!"
|
||||
405 PRINT TAB(34);"0"
|
||||
410 PRINT TAB(23);"<< DIRECTION OF ORBIT <<"
|
||||
415 PRINT
|
||||
420 PRINT TAB(27);"SURFACE OF MOON"
|
||||
425 PRINT
|
||||
430 PRINT
|
||||
435 PRINT "ALL ANGLES BETWEEN -180 AND 180 DEGREES ARE ACCEPTED."
|
||||
440 PRINT
|
||||
445 PRINT "1 FUEL UNIT = 1 SEC. AT MAX THRUST"
|
||||
450 PRINT "ANY DISCREPANCIES ARE ACCOUNTED FOR IN THE USE OF FUEL"
|
||||
455 PRINT "FOR AN ATTITUDE CHANGE."
|
||||
460 PRINT "AVAILABLE ENGINE POWER: 0 (ZERO) AND ANY VALUE BETWEEN"
|
||||
465 PRINT "10 AND 100 PERCENT."
|
||||
470 PRINT
|
||||
475 PRINT"NEGATIVE THRUST OR TIME IS PROHIBITED"
|
||||
480 PRINT
|
||||
485 PRINT
|
||||
490 PRINT "INPUT: TIME INTERVAL IN SECONDS ------ (T)"
|
||||
495 PRINT " PERCENTAGE OF THRUST ---------- (P)"
|
||||
500 PRINT " ATTITUDE ANGLE IN DEGREES ----- (A)"
|
||||
505 PRINT
|
||||
510 IF Q$="YES" THEN 535
|
||||
515 PRINT "FOR EXAMPLE:"
|
||||
520 PRINT "T,P,A?10,65,-60"
|
||||
525 PRINT "TO ABORT THE MISSION AT ANY TIME, ENTER 0,0,0"
|
||||
530 PRINT
|
||||
535 PRINT "OUTPUT: TOTAL TIME ELAPSED IN SECONDS"
|
||||
540 PRINT " HEIGHT IN ";M$
|
||||
545 PRINT " DISTANCE FROM LANDING SITE IN ";M$
|
||||
550 PRINT " VERTICAL VELOCITY IN ";M$;"/SECOND"
|
||||
555 PRINT " HORIZONTAL VELOCITY IN ";M$;"/SECOND"
|
||||
560 PRINT " FUEL UNITS REMAINING"
|
||||
565 PRINT
|
||||
570 GOTO 670
|
||||
575 PRINT
|
||||
580 PRINT "T,P,A";
|
||||
585 INPUT T1,F,P
|
||||
590 LET F=F/100
|
||||
595 IF T1<0 THEN 905
|
||||
600 IF T1=0 THEN 1090
|
||||
605 IF ABS(F-.05)>1 THEN 945
|
||||
610 IF ABS(F-.05)<.05 THEN 945
|
||||
615 IF ABS(P)>180 THEN 925
|
||||
620 LET N=20
|
||||
625 IF T1<400 THEN 635
|
||||
630 LET N=T1/20
|
||||
635 LET T1=T1/N
|
||||
640 LET P=P*3.14159/180
|
||||
645 LET S=SIN(P)
|
||||
650 LET C=COS(P)
|
||||
655 LET M2=M0*T1*F/B
|
||||
660 LET R3=-.5*R0*((V0/R)^2)+R*A1*A1
|
||||
665 LET A3=-2*R1*A1/R
|
||||
670 FOR I=1 TO N
|
||||
675 IF M1=0 THEN 715
|
||||
680 LET M1=M1-M2
|
||||
685 IF M1>0 THEN 725
|
||||
690 LET F=F*(1+M1/M2)
|
||||
695 LET M2=M1+M2
|
||||
700 PRINT "YOU ARE OUT OF FUEL"
|
||||
705 LET M1=0
|
||||
710 GOTO 725
|
||||
715 LET F=0
|
||||
720 LET M2=0
|
||||
725 LET M=M-.5*M2
|
||||
730 LET R4=R3
|
||||
735 LET R3=-.5*R0*((V0/R)^2)+R*A1*A1
|
||||
740 LET R2=(3*R3-R4)/2+.00526*F1*F*C/M
|
||||
745 LET A4=A3
|
||||
750 LET A3=-2*R1*A1/R
|
||||
755 LET A2=(3*A3-A4)/2+.00526*F1*F*S/(M*R)
|
||||
760 LET X=R1*T1+.5*R2*T1*T1
|
||||
765 LET R=R+X
|
||||
770 LET H0=H0+X
|
||||
775 LET R1=R1+R2*T1
|
||||
780 LET A=A+A1*T1+.5*A2*T1*T1
|
||||
785 LET A1=A1+A2*T1
|
||||
790 LET M=M-.5*M2
|
||||
795 LET T=T+T1
|
||||
800 IF H0<3.287828E-04 THEN 810
|
||||
805 NEXT I
|
||||
810 LET H=H0*Z
|
||||
815 LET H1=R1*Z
|
||||
820 LET D=R0*A*Z
|
||||
825 LET D1=R*A1*Z
|
||||
830 LET T2=M1*B/M0
|
||||
835 PRINT TAB(1);T;TAB(10);H;TAB(23);D;
|
||||
840 PRINT TAB(37);H1;TAB(49);D1;TAB(60);T2
|
||||
845 IF H0<3.287828E-04 THEN 880
|
||||
850 IF R0*A>164.4736 THEN 1050
|
||||
855 IF M1>0 THEN 580
|
||||
860 LET T1=20
|
||||
865 LET F=0
|
||||
870 LET P=0
|
||||
875 GOTO 620
|
||||
880 IF R1<-8.21957E-04 THEN 1020
|
||||
885 IF ABS(R*A1)>4.931742E-04 THEN 1020
|
||||
890 IF H0<-3.287828E-04 THEN 1020
|
||||
895 IF ABS(D)>10*Z THEN 1065
|
||||
900 GOTO 995
|
||||
905 PRINT
|
||||
910 PRINT "THIS SPACECRAFT IS NOT ABLE TO VIOLATE THE SPACE-";
|
||||
915 PRINT "TIME CONTINUUM."
|
||||
920 GOTO 575
|
||||
925 PRINT
|
||||
930 PRINT "IF YOU WANT TO SPIN AROUND, GO OUTSIDE THE MODULE";
|
||||
935 PRINT "FOR AN E.V.A"
|
||||
940 GOTO 575
|
||||
945 PRINT
|
||||
950 PRINT "IMPOSSIBLE THRUST-VALUE ";
|
||||
955 IF F<0 THEN 985
|
||||
960 IF F-.05<.05 THEN 975
|
||||
965 PRINT "TOO LARGE"
|
||||
970 GOTO 575
|
||||
975 PRINT "TOO SMALL"
|
||||
980 GOTO 575
|
||||
985 PRINT "NEGATIVE"
|
||||
990 GOTO 575
|
||||
995 PRINT
|
||||
1000 PRINT "TRANQUILITY BASE HERE -- THE EAGLE HAS LANDED"
|
||||
1005 PRINT "CONGRATULATIONS - THERE WAS NO SPACECRAFT DAMAGE"
|
||||
1010 PRINT "YOU MAY NOW PROCEED WITH SURFACE EXPLORATION."
|
||||
1015 GOTO 1100
|
||||
1020 PRINT
|
||||
1025 PRINT "CRASH !!!!!!!!!!!"
|
||||
1030 PRINT "YOUR IMPACT CREATED A CRATER";ABS(H);M$;" DEEP"
|
||||
1035 X1=SQR(D1*D1+H1*H1)*G3
|
||||
1040 PRINT "AT CONTACT YOU WERE TRAVELING";X1;N$;"/HR."
|
||||
1045 GOTO 1100
|
||||
1050 PRINT
|
||||
1055 PRINT "YOU HAVE BEEN LOST IN SPACE WITH NO HOPE OF RECOVERY"
|
||||
1060 GOTO 1100
|
||||
1065 PRINT "YOU ARE DOWN SAFELY - "
|
||||
1075 PRINT
|
||||
1080 PRINT "BUT MISSED THE LANDING SITE BY";ABS(D/G5);N$
|
||||
1085 GOTO 1100
|
||||
1090 PRINT
|
||||
1095 PRINT "MISSION ABORTED"
|
||||
1100 PRINT
|
||||
1105 PRINT "DO YOU WANT TO FLY IT AGAIN ? (YES OR NO)";
|
||||
1110 INPUT Z$
|
||||
1115 IF Z$="YES" THEN 20
|
||||
1120 IF Z$="NO" THEN 1130
|
||||
1125 GOTO 1105
|
||||
1130 PRINT
|
||||
1135 PRINT "TOO BAD, THE SPACE PROGRAM HATES TO LOSE EXPERIENCED";
|
||||
1140 PRINT " ASTRONAUTS."
|
||||
1145 STOP
|
||||
1150 PRINT
|
||||
1155 PRINT "OK, DO YOU WANT THE COMPLETE INSTRUCTIONS OR THE INPUT-"
|
||||
1160 PRINT "OUTPUT STATEMENTS ?"
|
||||
1165 PRINT "1=COMPLETE INSTRUCTIONS"
|
||||
1170 PRINT "2=INPUT-OUTPUT STATEMENTS"
|
||||
1175 PRINT "3=NEITHER"
|
||||
1180 INPUT B1
|
||||
1185 LET Q$="NO"
|
||||
1190 IF B1=1 THEN 205
|
||||
1195 LET Q$="YES"
|
||||
1200 IF B1=2 THEN 190
|
||||
1205 IF B1=3 THEN 190
|
||||
1210 GOTO 1165
|
||||
1215 END
|
||||
Loading…
Reference in New Issue
Block a user