home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1993 #2
/
Image.iso
/
games2
/
rocketry.zip
/
ROCKETRY.BAS
< prev
Wrap
BASIC Source File
|
1993-08-02
|
18KB
|
602 lines
'
'
'
'
'
' M O D E L R O C K E T R Y
'
'
'
' By Matt Engel
'
'
'
'
'
'
'
'
10 CLS
20 COLOR 15, 0
30 LOCATE 11, 35
40 PRINT "Main Menu"
50 COLOR 11, 0
60 LOCATE 13, 32
70 PRINT "1. Play The Game"
80 LOCATE 14, 32
90 PRINT "2. About ... "
100 LOCATE 15, 32
110 PRINT "3. Quit!"
120 INPUT " Command "; com1
130 IF com1 = 1 THEN GOTO 300
140 IF com1 = 2 THEN GOTO 200
150 IF com1 = 3 THEN GOTO 5750
160 IF com1 < 1 THEN GOTO 180
170 IF com1 > 3 THEN GOTO 180
180 INPUT " That's not a choice. Press Enter"; com2
190 IF com2 = 0 THEN GOTO 10
200 CLS
210 COLOR 9, 0
220 LOCATE 8, 30
230 PRINT "Model Rocketry"
240 LOCATE 10, 31
250 PRINT "By Matt Engel"
260 LOCATE 12, 27
270 PRINT "Unregistered Version"
280 INPUT "Press Enter to Continue"; com3
290 IF com3 = 0 THEN GOTO 10
300 CLS
310 COLOR 15, 0
320 LOCATE 11, 35
330 PRINT "Game Menu"
340 COLOR 14, 0
350 LOCATE 13, 32
360 PRINT "1. Go to the Store"
370 COLOR 9, 0
380 LOCATE 14, 32
390 PRINT "2. Go to the Field"
400 LOCATE 15, 32
410 PRINT "3. Return to Main Menu"
420 INPUT "Command"; com4
430 IF com4 = 1 THEN GOTO 500
440 IF com4 = 2 THEN GOTO 1510
450 IF com4 = 3 THEN GOTO 10
460 IF com4 < 1 THEN GOTO 480
470 IF com4 > 3 THEN GOTO 480
480 INPUT "That's not a choice. Press Enter"; com5
490 IF com5 = 0 THEN GOTO 300
500 CLS
510 COLOR 15, 0
520 LOCATE 11, 35
530 PRINT "The Store"
540 COLOR 9, 0
550 LOCATE 13, 32
560 PRINT "1. Buy Launch Pad"
570 LOCATE 14, 32
580 PRINT "2. Buy Rocket"
590 LOCATE 15, 32
600 PRINT "3. Buy Engines"
610 LOCATE 16, 32
620 PRINT "4. Buy Igniters"
630 LOCATE 17, 32
640 PRINT "5. Leave Store"
650 INPUT "Command"; com6
660 IF com6 = 1 THEN GOTO 750
670 IF com6 = 2 THEN GOTO 910
680 IF com6 = 3 THEN GOTO 1070
690 IF com6 = 4 THEN GOTO 1350
700 IF com6 = 5 THEN GOTO 300
710 IF com6 < 1 THEN GOTO 730
720 IF com6 > 5 THEN GOTO 730
730 INPUT "That's not a choice. Press Enter"; com7
740 IF com7 = 0 THEN GOTO 500
750 CLS
760 LOCATE 11, 32
770 PRINT "Launch Pad Cost: $15.00"
780 LOCATE 12, 37
790 PRINT "Press 1. to buy"
800 LOCATE 13, 37
810 PRINT "Press 2. to reject"
820 INPUT "Command"; com8
830 IF com8 = 1 THEN GOTO 890
840 IF com8 = 2 THEN GOTO 500
850 IF com8 < 1 THEN GOTO 870
860 IF com8 > 2 THEN GOTO 870
870 INPUT "That's not a choice. Press Enter"; com9
880 IF com9 = 0 THEN GOTO 750
890 INPUT "Launch Pad bought. Press Enter"; com10
900 IF com10 = 0 THEN GOTO 500
910 CLS
920 LOCATE 11, 32
930 PRINT "Rocket Cost: $8.00"
940 LOCATE 12, 37
950 PRINT "Press 1. to buy"
960 LOCATE 13, 37
970 PRINT "Press 2. to reject"
980 INPUT "Command"; com11
990 IF com11 = 1 THEN GOTO 1050
1000 IF com11 = 2 THEN GOTO 500
1010 IF com11 < 1 THEN GOTO 1030
1020 IF com11 > 2 THEN GOTO 1030
1030 INPUT "That's not a choice. Press Enter"; com12
1040 IF com12 = 0 THEN GOTO 910
1050 INPUT "Rocket bought. Press Enter"; com13
1060 IF com13 = 0 THEN GOTO 500
1070 CLS
1080 LOCATE 11, 32
1090 PRINT "Engines Cost: 3 for $1.00"
1100 LOCATE 12, 34
1110 PRINT "Which Type ?"
1120 LOCATE 13, 37
1130 PRINT "1. A-83"
1140 LOCATE 14, 37
1150 PRINT "2. B-64"
1160 LOCATE 15, 37
1170 PRINT "3. C-23"
1180 LOCATE 16, 37
1190 PRINT "4. Nevermind."
1200 INPUT "Command"; com14
1210 IF com14 = 1 THEN GOTO 1290
1220 IF com14 = 2 THEN GOTO 1310
1230 IF com14 = 3 THEN GOTO 1330
1240 IF com14 = 4 THEN GOTO 500
1250 IF com14 < 1 THEN GOTO 1270
1260 IF com14 > 4 THEN GOTO 1270
1270 INPUT "That's not a choice. Press Enter"; com15
1280 IF com15 = 0 THEN GOTO 1070
1290 INPUT "3 A-83 Engines bought. Press Enter"; com16
1300 IF com16 = 0 THEN GOTO 500
1310 INPUT "3 B-64 Engines bought. Press Enter"; com17
1320 IF com17 = 0 THEN GOTO 500
1330 INPUT "3 C-23 Engines bought. Press Enter"; com18
1340 IF com18 = 0 THEN GOTO 500
1350 CLS
1360 LOCATE 11, 32
1370 PRINT "Igniters Cost: 10 for $1.00"
1380 LOCATE 12, 37
1390 PRINT "Press 1. to buy"
1400 LOCATE 13, 37
1410 PRINT "Press 2. to reject"
1420 INPUT "Command"; com19'
1430 IF com19 = 1 THEN GOTO 1490
1440 IF com19 = 2 THEN GOTO 500
1450 IF com19 < 1 THEN GOTO 1470
1460 IF com19 > 2 THEN GOTO 1470
1470 INPUT "That's not a choice. Press Enter"; com20
1480 IF com20 = 0 THEN GOTO 1350
1490 INPUT "10 Igniters bought. Press Enter"; com21
1500 IF com21 = 0 THEN GOTO 500
1510 CLS
1520 COLOR 15, 0
1530 LOCATE 11, 35
1540 PRINT "The Field"
1550 COLOR 9, 0
1560 LOCATE 13, 32
1570 PRINT "1. Launch Rocket"
1580 LOCATE 14, 32
1610 PRINT "2. Return to Game Menu"
1620 INPUT "Command"; com22
1630 IF com22 = 1 THEN GOTO 2470
1640 IF com22 = 2 THEN GOTO 300
1660 IF com22 < 1 THEN GOTO 1680
1670 IF com22 > 2 THEN GOTO 1680
1680 INPUT "That's not a choice. Press Enter"; com23
1690 IF com23 = 0 THEN GOTO 1510
1700 CLS
1710 COLOR 15, 0
1720 LOCATE 11, 35
1730 PRINT "View Parts"
1740 COLOR 9, 0
1750 LOCATE 13, 32
1760 PRINT "1. Launch Pad"
1770 LOCATE 14, 32
1780 PRINT "2. Rocket"
1790 LOCATE 15, 32
1800 PRINT "3. Engines"
1810 LOCATE 16, 32
1820 PRINT "4. Igniters"
1830 LOCATE 17, 32
1840 PRINT "5. Return to The Field"
1850 INPUT "Command"; com24
1860 IF com24 = 1 THEN GOTO 1910
1870 IF com24 = 2 THEN GOTO 2040
1880 IF com24 = 3 THEN GOTO 2160
1890 IF com24 = 4 THEN GOTO 2330
1900 IF com24 = 5 THEN GOTO 1510
1910 CLS
1920 COLOR 12, 0
1940 PRINT " T"
1950 PRINT " |"
1960 PRINT " |"
1970 PRINT " |"
1980 PRINT " |"
1990 PRINT " -----"
2000 PRINT " / | \"
2010 PRINT " / | \"
2020 INPUT "Press Enter"; com25
2030 IF com25 = 0 THEN GOTO 1700
2040 CLS
2050 COLOR 9, 0
2070 PRINT " /\"
2080 PRINT " /__\ "
2090 PRINT " | |"
2100 PRINT " | |"
2110 PRINT " |__|"
2120 PRINT " / \"
2130 PRINT " /_/--\_\"
2140 INPUT "Press Enter"; com26
2150 IF com26 = 0 THEN GOTO 1700
2160 CLS
2170 COLOR 6, 0
2190 PRINT " --------------------"
2200 PRINT " | A-83 |"
2210 PRINT " | LOW POWER |"
2220 PRINT " --------------------"
2230 PRINT " --------------------"
2240 PRINT " | B-64 |"
2250 PRINT " | MED POWER |"
2260 PRINT " --------------------"
2270 PRINT " --------------------"
2280 PRINT " | C-23 |"
2290 PRINT " | HIGH POWER |"
2300 PRINT " --------------------"
2310 INPUT "Press Enter"; com27
2320 IF com27 = 0 THEN GOTO 1700
2330 CLS
2340 COLOR 12, 0
2350 PRINT " /\"
2360 PRINT " ||"
2370 COLOR 7, 0
2380 PRINT " ||"
2390 PRINT " --------"
2400 PRINT " | |"
2410 PRINT " --------"
2420 PRINT " | |"
2430 PRINT " / \"
2440 PRINT " | |"
2450 INPUT "Press Enter"; com28
2460 IF com28 = 0 THEN GOTO 1700
2470 CLS
2480 COLOR 15, 0
2490 LOCATE 10, 13
2500 PRINT " Launch Rocket"
2510 COLOR 8, 3
2520 PRINT " "
2530 PRINT " "
2540 PRINT " "
2550 PRINT " "
2560 PRINT " "
2570 PRINT " | "
2580 PRINT " | "
2590 PRINT " /-\ "
2600 COLOR 0, 2
2610 PRINT " The Field "
2620 COLOR 9, 0
2630 INPUT "Press Enter to Continue"; com29
2640 IF com29 = 0 THEN GOTO 2650
2650 CLS
2660 COLOR 15, 0
2670 LOCATE 11, 35
2680 PRINT "Launch Menu"
2690 COLOR 14, 0
2700 LOCATE 13, 32
2710 PRINT "1. Launch!"
2720 COLOR 9, 0
2730 LOCATE 14, 32
2740 PRINT "2. Select Engine"
2750 LOCATE 15, 32
2760 PRINT "3. Return to The Field"
2770 INPUT "Command"; com30
2780 IF com30 = 1 THEN GOTO 2821
2790 IF com30 = 2 THEN GOTO 2850
2800 IF com30 = 3 THEN GOTO 1510
2810 IF com30 < 1 THEN GOTO 2860
2820 IF com30 > 4 THEN GOTO 2860
2821 INPUT "Select an Engine first. Press Enter"; com36
2822 IF com36 = 0 THEN GOTO 2650
2830 INPUT "That's not a choice. Press Enter"; com31
2840 IF com31 = 0 THEN GOTO 2650
2850 CLS
2860 COLOR 15, 0
2870 LOCATE 11, 35
2880 PRINT "Select Engine"
2890 COLOR 9, 0
2900 LOCATE 13, 32
2910 PRINT "1. A-83"
2920 LOCATE 14, 32
2930 PRINT "2. B-64"
2940 LOCATE 15, 32
2950 PRINT "3. C-23"
2960 LOCATE 16, 32
2970 PRINT "4. Return to Launch Menu"
2980 INPUT "Command"; com32
2990 IF com32 = 1 THEN GOTO 3070
3000 IF com32 = 2 THEN GOTO 3870
3010 IF com32 = 3 THEN GOTO 4720
3020 IF com32 = 4 THEN GOTO 2650
3030 IF com32 < 1 THEN GOTO 3050
3040 IF com32 > 4 THEN GOTO 3050
3050 INPUT "That's not a choice. Press Enter"; com33
3060 IF com33 = 0 THEN GOTO 2900
3070 INPUT "Using A-83. Press Enter"; com34
3080 IF com34 = 0 THEN GOTO 3090
3090 CLS
3100 COLOR 15, 0
3110 LOCATE 11, 35
3120 PRINT "Launch Menu"
3130 COLOR 14, 0
3140 LOCATE 13, 32
3150 PRINT "1. Launch!"
3160 COLOR 9, 0
3170 LOCATE 14, 32
3180 PRINT "2. Select Engine"
3190 LOCATE 15, 32
3200 PRINT "3. Return to The Field"
3210 INPUT "Command"; com35
3220 IF com35 = 1 THEN GOTO 3250
3230 IF com35 = 2 THEN GOTO 2850
3240 IF com35 = 3 THEN GOTO 1510
3241 IF com35 < 1 THEN GOTO 3243
3242 IF com35 > 3 THEN GOTO 3243
3243 INPUT "That's not a choice. Press Enter"; com46
3244 IF com46 = 0 THEN GOTO 3090
3250 CLS
3260 COLOR 15, 0
3270 LOCATE 8, 27
3280 PRINT "Launch!"
3290 COLOR 9, 0
3310 PRINT " -------------------"
3320 PRINT " | |"
3330 PRINT " | --- |"
3340 PRINT " | | | |"
3350 PRINT " | --- |"
3360 PRINT " | |"
3370 PRINT " | ----- |"
3380 PRINT " | | 0 | |"
3390 PRINT " | ----- |"
3400 PRINT " -------------------"
3401 COLOR 28, 0
3410 LOCATE 11, 31
3420 PRINT " ---"
3421 LOCATE 12, 31
3430 PRINT "| |"
3431 LOCATE 13, 31
3440 PRINT " ---"
3450 COLOR 15, 0
3460 LOCATE 21, 11
3470 PRINT "Press Enter to Launch, any other"
3480 INPUT " number to Abort"; com37
3490 IF com37 = 0 THEN GOTO 3510
3500 IF com37 > 0 THEN GOTO 3090
3510 CLS
3520 LOCATE 11, 37
3530 PRINT "FWOOSH!"
3540 SOUND 50, 18
3550 LOCATE 20, 40
3560 PRINT "WOW!"
3570 INPUT "Press Enter to Continue"; com38
3580 IF com38 = 0 THEN GOTO 3590
3590 CLS
3600 LOCATE 11, 37
3610 PRINT "Stats"
3620 LOCATE 12, 26
3630 PRINT "Engine: A-83"
3640 LOCATE 13, 26
3650 PRINT "Overall Altitude: 60 feet"
3660 LOCATE 14, 26
3670 PRINT "Condition At Landing: Good"
3680 INPUT "Press Enter to Continue"; com39
3690 IF com39 = 0 THEN GOTO 3700
3700 CLS
3711 COLOR 15, 0
3710 LOCATE 11, 35
3720 PRINT "Post-Launch"
3730 COLOR 9, 0
3740 LOCATE 13, 27
3750 PRINT "1. Repair Rocket"
3760 LOCATE 14, 27
3770 PRINT "2. Return to Launch Menu"
3780 INPUT "Command"; com40
3790 IF com40 = 1 THEN GOTO 3850
3800 IF com40 = 2 THEN GOTO 5650
3810 IF com40 < 1 THEN GOTO 3830
3820 IF com40 > 2 THEN GOTO 3830
3830 INPUT "That's not a choice. Press Enter"; com41
3840 IF com41 = 0 THEN GOTO 3700
3850 INPUT "Rocket repaired. Press Enter"; com42
3860 IF com42 = 0 THEN GOTO 3700
3870 INPUT "Using B-64. Press Enter"; com43
3880 IF com43 = 0 THEN GOTO 3890
3890 CLS
3900 COLOR 15, 0
3910 LOCATE 11, 35
3920 PRINT "Launch Menu"
3930 COLOR 14, 0
3940 LOCATE 13, 32
3950 PRINT "1. Launch!"
3960 COLOR 9, 0
3970 LOCATE 14, 32
3980 PRINT "2. Select Engine"
3990 LOCATE 15, 32
4000 PRINT "3. Return to The Field"
4010 INPUT "Command"; com44
4020 IF com44 = 1 THEN GOTO 4090
4030 IF com44 = 2 THEN GOTO 2850
4040 IF com44 = 3 THEN GOTO 1510
4050 IF com44 < 1 THEN GOTO 4070
4060 IF com44 > 3 THEN GOTO 4070
4070 INPUT "That's not a choice. Press Enter"; com45
4080 IF com45 = 0 THEN GOTO 3890
4090 CLS
4100 COLOR 15, 0
4110 LOCATE 8, 27
4120 PRINT "Launch!"
4130 COLOR 9, 0
4150 PRINT " -------------------"
4160 PRINT " | |"
4170 PRINT " | --- |"
4180 PRINT " | | | |"
4190 PRINT " | --- |"
4200 PRINT " | |"
4210 PRINT " | ----- |"
4220 PRINT " | | 0 | |"
4230 PRINT " | ----- |"
4240 PRINT " -------------------"
4250 COLOR 28, 0
4260 LOCATE 11, 31
4270 PRINT " ---"
4271 LOCATE 12, 31
4280 PRINT "| |"
4281 LOCATE 13, 31
4290 PRINT " ---"
4300 COLOR 15, 0
4310 LOCATE 21, 11
4320 PRINT "Press Enter to Launch, any other"
4330 INPUT " number to Abort"; com47
4340 IF com47 = 0 THEN GOTO 4360
4350 IF com47 > 0 THEN GOTO 3890
4360 CLS
4370 LOCATE 11, 37
4380 PRINT "FWOOSH!"
4390 SOUND 60, 18
4400 LOCATE 20, 40
4410 PRINT "WOW!"
4420 INPUT "Press Enter to Continue"; com48
4430 IF com48 = 0 THEN GOTO 4440
4440 CLS
4450 LOCATE 11, 37
4460 PRINT "Stats"
4470 LOCATE 12, 26
4480 PRINT "Engine: B-64"
4490 LOCATE 13, 26
4500 PRINT "Overall Altitude: 90 feet"
4510 LOCATE 14, 26
4520 PRINT "Condition At Landing: Moderate"
4530 INPUT "Press Enter to Continue"; com49
4540 IF com49 = 0 THEN GOTO 4550
4550 CLS
4551 COLOR 15, 0
4560 LOCATE 11, 35
4570 PRINT "Post-Launch"
4580 COLOR 9, 0
4590 LOCATE 13, 27
4600 PRINT "1. Repair Rocket"
4610 LOCATE 14, 27
4620 PRINT "2. Return to Launch Menu"
4630 INPUT "Command"; com50
4640 IF com50 = 1 THEN GOTO 4700
4650 IF com50 = 2 THEN GOTO 5650
4660 IF com50 < 1 THEN GOTO 4680
4670 IF com50 > 2 THEN GOTO 4680
4680 INPUT "That's not a choice. Press Enter"; com51
4690 IF com51 = 0 THEN GOTO 4550
4700 INPUT "Rocket repaired. Press Enter"; com52
4710 IF com52 = 0 THEN GOTO 4550
4720 INPUT "Using C-23. Press Enter"; com53
4730 IF com53 = 0 THEN GOTO 4740
4740 CLS
4750 COLOR 15, 0
4760 LOCATE 11, 35
4770 PRINT "Launch Menu"
4780 COLOR 14, 0
4790 LOCATE 13, 32
4800 PRINT "1. Launch!"
4810 COLOR 9, 0
4820 LOCATE 14, 32
4830 PRINT "2. Select Engine"
4840 LOCATE 15, 32
4850 PRINT "3. Return to The Field"
4860 INPUT "Command"; com54
4870 IF com54 = 1 THEN GOTO 4940
4880 IF com54 = 2 THEN GOTO 2850
4890 IF com54 = 3 THEN GOTO 1510
4900 IF com54 < 1 THEN GOTO 4920
4910 IF com54 > 3 THEN GOTO 4920
4920 INPUT "That's not a choice. Press Enter"; com55
4930 IF com55 = 0 THEN GOTO 4740
4940 CLS
4950 COLOR 15, 0
4960 LOCATE 8, 27
4970 PRINT "Launch!"
4980 COLOR 9, 0
5000 PRINT " -------------------"
5010 PRINT " | |"
5020 PRINT " | --- |"
5030 PRINT " | | | |"
5040 PRINT " | --- |"
5050 PRINT " | |"
5060 PRINT " | ----- |"
5070 PRINT " | | 0 | |"
5080 PRINT " | ----- |"
5090 PRINT " -------------------"
5100 COLOR 28, 0
5110 LOCATE 11, 31
5120 PRINT " ---"
5121 LOCATE 12, 31
5130 PRINT "| |"
5131 LOCATE 13, 31
5140 PRINT " ---"
5150 COLOR 15, 0
5160 LOCATE 21, 11
5170 PRINT "Press Enter to Launch, any other"
5180 INPUT " number to Abort"; com56
5190 IF com56 = 0 THEN GOTO 5210
5200 IF com56 > 0 THEN GOTO 4740
5210 CLS
5220 LOCATE 11, 37
5230 PRINT "FWOOSH!"
5240 SOUND 70, 18
5250 LOCATE 20, 40
5260 PRINT "WOW!"
5270 INPUT "Press Enter to Continue"; com57
5280 IF com57 = 0 THEN GOTO 5290
5290 CLS
5300 LOCATE 11, 37
5310 PRINT "Stats"
5320 LOCATE 12, 26
5330 PRINT "Engine: C-23"
5340 LOCATE 13, 26
5350 PRINT "Overall Altitude: 130 feet"
5360 LOCATE 14, 26
5370 PRINT "Condition At Landing: Poor"
5380 INPUT "Press Enter to Continue"; com58
5390 IF com58 = 0 THEN GOTO 4550
5400 CLS
5410 LOCATE 11, 35
5420 PRINT "Post-Launch"
5430 COLOR 9, 0
5440 LOCATE 13, 27
5450 PRINT "1. Repair Rocket"
5460 LOCATE 14, 27
5470 PRINT "2. Return to Launch Menu"
5480 INPUT "Command"; com59
5490 IF com50 = 1 THEN GOTO 5560
5500 IF com50 = 2 THEN GOTO 5650
5510 IF com50 < 1 THEN GOTO 5530
5520 IF com50 > 2 THEN GOTO 5530
5530 INPUT "That's not a choice. Press Enter"; com51
5540 IF com51 = 0 THEN GOTO 5400
5550 INPUT "Rocket repaired. Press Enter"; com52
5560 IF com52 = 0 THEN GOTO 5400
5570 CLS
5580 COLOR 14, 0
5590 LOCATE 13, 18
5591 PRINT " "
5600 INPUT "Press Enter to quit, any other number to resume"; com53
5630 IF com53 = 0 THEN GOTO 5750
5640 IF com53 > 0 THEN GOTO 10
5650 CLS
5660 COLOR 9, 0
5670 LOCATE 13, 10
5680 PRINT "You can't return to the menu in this Unregistered Version."
5690 LOCATE 14, 10
5700 PRINT "If you register, you will recive the complete game, and some"
5710 LOCATE 15, 10
5720 PRINT "other neat stuff. Read ORDER.FRM for more information."
5730 INPUT "Press Enter"; com54
5740 IF com54 = 0 THEN GOTO 5750
5750 CLS
5760 LOCATE 13, 10
5770 PRINT "Thanks for playing. Please Register!"