home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1993 #2 / Image.iso / games2 / rocketry.zip / ROCKETRY.BAS < prev   
BASIC Source File  |  1993-08-02  |  18KB  |  602 lines
  1. '
  2. '
  3. '
  4. '
  5. '                         
  6. '                        M O D E L   R O C K E T R Y
  7. '
  8. '
  9. '
  10. '                               By Matt Engel
  11. '
  12. '
  13. '
  14. '
  15. '
  16. '
  17. '
  18. '
  19. 10 CLS
  20. 20 COLOR 15, 0
  21. 30 LOCATE 11, 35
  22. 40 PRINT "Main Menu"
  23. 50 COLOR 11, 0
  24. 60 LOCATE 13, 32
  25. 70 PRINT "1. Play The Game"
  26. 80 LOCATE 14, 32
  27. 90 PRINT "2. About ... "
  28. 100 LOCATE 15, 32
  29. 110 PRINT "3. Quit!"
  30. 120 INPUT " Command "; com1
  31. 130 IF com1 = 1 THEN GOTO 300
  32. 140 IF com1 = 2 THEN GOTO 200
  33. 150 IF com1 = 3 THEN GOTO 5750
  34. 160 IF com1 < 1 THEN GOTO 180
  35. 170 IF com1 > 3 THEN GOTO 180
  36. 180 INPUT " That's not a choice. Press Enter"; com2
  37. 190 IF com2 = 0 THEN GOTO 10
  38. 200 CLS
  39. 210 COLOR 9, 0
  40. 220 LOCATE 8, 30
  41. 230 PRINT "Model Rocketry"
  42. 240 LOCATE 10, 31
  43. 250 PRINT "By Matt Engel"
  44. 260 LOCATE 12, 27
  45. 270 PRINT "Unregistered Version"
  46. 280 INPUT "Press Enter to Continue"; com3
  47. 290 IF com3 = 0 THEN GOTO 10
  48. 300 CLS
  49. 310 COLOR 15, 0
  50. 320 LOCATE 11, 35
  51. 330 PRINT "Game Menu"
  52. 340 COLOR 14, 0
  53. 350 LOCATE 13, 32
  54. 360 PRINT "1. Go to the Store"
  55. 370 COLOR 9, 0
  56. 380 LOCATE 14, 32
  57. 390 PRINT "2. Go to the Field"
  58. 400 LOCATE 15, 32
  59. 410 PRINT "3. Return to Main Menu"
  60. 420 INPUT "Command"; com4
  61. 430 IF com4 = 1 THEN GOTO 500
  62. 440 IF com4 = 2 THEN GOTO 1510
  63. 450 IF com4 = 3 THEN GOTO 10
  64. 460 IF com4 < 1 THEN GOTO 480
  65. 470 IF com4 > 3 THEN GOTO 480
  66. 480 INPUT "That's not a choice. Press Enter"; com5
  67. 490 IF com5 = 0 THEN GOTO 300
  68. 500 CLS
  69. 510 COLOR 15, 0
  70. 520 LOCATE 11, 35
  71. 530 PRINT "The Store"
  72. 540 COLOR 9, 0
  73. 550 LOCATE 13, 32
  74. 560 PRINT "1. Buy Launch Pad"
  75. 570 LOCATE 14, 32
  76. 580 PRINT "2. Buy Rocket"
  77. 590 LOCATE 15, 32
  78. 600 PRINT "3. Buy Engines"
  79. 610 LOCATE 16, 32
  80. 620 PRINT "4. Buy Igniters"
  81. 630 LOCATE 17, 32
  82. 640 PRINT "5. Leave Store"
  83. 650 INPUT "Command"; com6
  84. 660 IF com6 = 1 THEN GOTO 750
  85. 670 IF com6 = 2 THEN GOTO 910
  86. 680 IF com6 = 3 THEN GOTO 1070
  87. 690 IF com6 = 4 THEN GOTO 1350
  88. 700 IF com6 = 5 THEN GOTO 300
  89. 710 IF com6 < 1 THEN GOTO 730
  90. 720 IF com6 > 5 THEN GOTO 730
  91. 730 INPUT "That's not a choice. Press Enter"; com7
  92. 740 IF com7 = 0 THEN GOTO 500
  93. 750 CLS
  94. 760 LOCATE 11, 32
  95. 770 PRINT "Launch Pad      Cost: $15.00"
  96. 780 LOCATE 12, 37
  97. 790 PRINT "Press 1. to buy"
  98. 800 LOCATE 13, 37
  99. 810 PRINT "Press 2. to reject"
  100. 820 INPUT "Command"; com8
  101. 830 IF com8 = 1 THEN GOTO 890
  102. 840 IF com8 = 2 THEN GOTO 500
  103. 850 IF com8 < 1 THEN GOTO 870
  104. 860 IF com8 > 2 THEN GOTO 870
  105. 870 INPUT "That's not a choice. Press Enter"; com9
  106. 880 IF com9 = 0 THEN GOTO 750
  107. 890 INPUT "Launch Pad bought. Press Enter"; com10
  108. 900 IF com10 = 0 THEN GOTO 500
  109. 910 CLS
  110. 920 LOCATE 11, 32
  111. 930 PRINT "Rocket           Cost: $8.00"
  112. 940 LOCATE 12, 37
  113. 950 PRINT "Press 1. to buy"
  114. 960 LOCATE 13, 37
  115. 970 PRINT "Press 2. to reject"
  116. 980 INPUT "Command"; com11
  117. 990 IF com11 = 1 THEN GOTO 1050
  118. 1000 IF com11 = 2 THEN GOTO 500
  119. 1010 IF com11 < 1 THEN GOTO 1030
  120. 1020 IF com11 > 2 THEN GOTO 1030
  121. 1030 INPUT "That's not a choice. Press Enter"; com12
  122. 1040 IF com12 = 0 THEN GOTO 910
  123. 1050 INPUT "Rocket bought. Press Enter"; com13
  124. 1060 IF com13 = 0 THEN GOTO 500
  125. 1070 CLS
  126. 1080 LOCATE 11, 32
  127. 1090 PRINT "Engines         Cost: 3 for $1.00"
  128. 1100 LOCATE 12, 34
  129. 1110 PRINT "Which Type ?"
  130. 1120 LOCATE 13, 37
  131. 1130 PRINT "1. A-83"
  132. 1140 LOCATE 14, 37
  133. 1150 PRINT "2. B-64"
  134. 1160 LOCATE 15, 37
  135. 1170 PRINT "3. C-23"
  136. 1180 LOCATE 16, 37
  137. 1190 PRINT "4. Nevermind."
  138. 1200 INPUT "Command"; com14
  139. 1210 IF com14 = 1 THEN GOTO 1290
  140. 1220 IF com14 = 2 THEN GOTO 1310
  141. 1230 IF com14 = 3 THEN GOTO 1330
  142. 1240 IF com14 = 4 THEN GOTO 500
  143. 1250 IF com14 < 1 THEN GOTO 1270
  144. 1260 IF com14 > 4 THEN GOTO 1270
  145. 1270 INPUT "That's not a choice. Press Enter"; com15
  146. 1280 IF com15 = 0 THEN GOTO 1070
  147. 1290 INPUT "3 A-83 Engines bought. Press Enter"; com16
  148. 1300 IF com16 = 0 THEN GOTO 500
  149. 1310 INPUT "3 B-64 Engines bought. Press Enter"; com17
  150. 1320 IF com17 = 0 THEN GOTO 500
  151. 1330 INPUT "3 C-23 Engines bought. Press Enter"; com18
  152. 1340 IF com18 = 0 THEN GOTO 500
  153. 1350 CLS
  154. 1360 LOCATE 11, 32
  155. 1370 PRINT "Igniters        Cost: 10 for $1.00"
  156. 1380 LOCATE 12, 37
  157. 1390 PRINT "Press 1. to buy"
  158. 1400 LOCATE 13, 37
  159. 1410 PRINT "Press 2. to reject"
  160. 1420 INPUT "Command"; com19'
  161. 1430 IF com19 = 1 THEN GOTO 1490
  162. 1440 IF com19 = 2 THEN GOTO 500
  163. 1450 IF com19 < 1 THEN GOTO 1470
  164. 1460 IF com19 > 2 THEN GOTO 1470
  165. 1470 INPUT "That's not a choice. Press Enter"; com20
  166. 1480 IF com20 = 0 THEN GOTO 1350
  167. 1490 INPUT "10 Igniters bought. Press Enter"; com21
  168. 1500 IF com21 = 0 THEN GOTO 500
  169. 1510 CLS
  170. 1520 COLOR 15, 0
  171. 1530 LOCATE 11, 35
  172. 1540 PRINT "The Field"
  173. 1550 COLOR 9, 0
  174. 1560 LOCATE 13, 32
  175. 1570 PRINT "1. Launch Rocket"
  176. 1580 LOCATE 14, 32
  177. 1610 PRINT "2. Return to Game Menu"
  178. 1620 INPUT "Command"; com22
  179. 1630 IF com22 = 1 THEN GOTO 2470
  180. 1640 IF com22 = 2 THEN GOTO 300
  181. 1660 IF com22 < 1 THEN GOTO 1680
  182. 1670 IF com22 > 2 THEN GOTO 1680
  183. 1680 INPUT "That's not a choice. Press Enter"; com23
  184. 1690 IF com23 = 0 THEN GOTO 1510
  185. 1700 CLS
  186. 1710 COLOR 15, 0
  187. 1720 LOCATE 11, 35
  188. 1730 PRINT "View Parts"
  189. 1740 COLOR 9, 0
  190. 1750 LOCATE 13, 32
  191. 1760 PRINT "1. Launch Pad"
  192. 1770 LOCATE 14, 32
  193. 1780 PRINT "2. Rocket"
  194. 1790 LOCATE 15, 32
  195. 1800 PRINT "3. Engines"
  196. 1810 LOCATE 16, 32
  197. 1820 PRINT "4. Igniters"
  198. 1830 LOCATE 17, 32
  199. 1840 PRINT "5. Return to The Field"
  200. 1850 INPUT "Command"; com24
  201. 1860 IF com24 = 1 THEN GOTO 1910
  202. 1870 IF com24 = 2 THEN GOTO 2040
  203. 1880 IF com24 = 3 THEN GOTO 2160
  204. 1890 IF com24 = 4 THEN GOTO 2330
  205. 1900 IF com24 = 5 THEN GOTO 1510
  206. 1910 CLS
  207. 1920 COLOR 12, 0
  208. 1940 PRINT "                       T"
  209. 1950 PRINT "                       |"
  210. 1960 PRINT "                       |"
  211. 1970 PRINT "                       |"
  212. 1980 PRINT "                       |"
  213. 1990 PRINT "                     -----"
  214. 2000 PRINT "                    /  |  \"
  215. 2010 PRINT "                   /   |   \"
  216. 2020 INPUT "Press Enter"; com25
  217. 2030 IF com25 = 0 THEN GOTO 1700
  218. 2040 CLS
  219. 2050 COLOR 9, 0
  220. 2070 PRINT "                     /\"
  221. 2080 PRINT "                    /__\ "
  222. 2090 PRINT "                    |  |"
  223. 2100 PRINT "                    |  |"
  224. 2110 PRINT "                    |__|"
  225. 2120 PRINT "                   /    \"
  226. 2130 PRINT "                  /_/--\_\"
  227. 2140 INPUT "Press Enter"; com26
  228. 2150 IF com26 = 0 THEN GOTO 1700
  229. 2160 CLS
  230. 2170 COLOR 6, 0
  231. 2190 PRINT "          --------------------"
  232. 2200 PRINT "          | A-83             |"
  233. 2210 PRINT "          |   LOW POWER      |"
  234. 2220 PRINT "          --------------------"
  235. 2230 PRINT "          --------------------"
  236. 2240 PRINT "          | B-64             |"
  237. 2250 PRINT "          |   MED POWER      |"
  238. 2260 PRINT "          --------------------"
  239. 2270 PRINT "          --------------------"
  240. 2280 PRINT "          | C-23             |"
  241. 2290 PRINT "          |   HIGH POWER     |"
  242. 2300 PRINT "          --------------------"
  243. 2310 INPUT "Press Enter"; com27
  244. 2320 IF com27 = 0 THEN GOTO 1700
  245. 2330 CLS
  246. 2340 COLOR 12, 0
  247. 2350 PRINT "                 /\"
  248. 2360 PRINT "                 ||"
  249. 2370 COLOR 7, 0
  250. 2380 PRINT "                 ||"
  251. 2390 PRINT "              --------"
  252. 2400 PRINT "              |      |"
  253. 2410 PRINT "              --------"
  254. 2420 PRINT "                |  |"
  255. 2430 PRINT "               /    \"
  256. 2440 PRINT "              |      |"
  257. 2450 INPUT "Press Enter"; com28
  258. 2460 IF com28 = 0 THEN GOTO 1700
  259. 2470 CLS
  260. 2480 COLOR 15, 0
  261. 2490 LOCATE 10, 13
  262. 2500 PRINT " Launch Rocket"
  263. 2510 COLOR 8, 3
  264. 2520 PRINT "                                                 "
  265. 2530 PRINT "                                                 "
  266. 2540 PRINT "                                                 "
  267. 2550 PRINT "                                                 "
  268. 2560 PRINT "                                                 "
  269. 2570 PRINT "                         |                       "
  270. 2580 PRINT "                         |                       "
  271. 2590 PRINT "                        /-\                      "
  272. 2600 COLOR 0, 2
  273. 2610 PRINT "                    The Field                    "
  274. 2620 COLOR 9, 0
  275. 2630 INPUT "Press Enter to Continue"; com29
  276. 2640 IF com29 = 0 THEN GOTO 2650
  277. 2650 CLS
  278. 2660 COLOR 15, 0
  279. 2670 LOCATE 11, 35
  280. 2680 PRINT "Launch Menu"
  281. 2690 COLOR 14, 0
  282. 2700 LOCATE 13, 32
  283. 2710 PRINT "1. Launch!"
  284. 2720 COLOR 9, 0
  285. 2730 LOCATE 14, 32
  286. 2740 PRINT "2. Select Engine"
  287. 2750 LOCATE 15, 32
  288. 2760 PRINT "3. Return to The Field"
  289. 2770 INPUT "Command"; com30
  290. 2780 IF com30 = 1 THEN GOTO 2821
  291. 2790 IF com30 = 2 THEN GOTO 2850
  292. 2800 IF com30 = 3 THEN GOTO 1510
  293. 2810 IF com30 < 1 THEN GOTO 2860
  294. 2820 IF com30 > 4 THEN GOTO 2860
  295. 2821 INPUT "Select an Engine first. Press Enter"; com36
  296. 2822 IF com36 = 0 THEN GOTO 2650
  297. 2830 INPUT "That's not a choice. Press Enter"; com31
  298. 2840 IF com31 = 0 THEN GOTO 2650
  299. 2850 CLS
  300. 2860 COLOR 15, 0
  301. 2870 LOCATE 11, 35
  302. 2880 PRINT "Select Engine"
  303. 2890 COLOR 9, 0
  304. 2900 LOCATE 13, 32
  305. 2910 PRINT "1. A-83"
  306. 2920 LOCATE 14, 32
  307. 2930 PRINT "2. B-64"
  308. 2940 LOCATE 15, 32
  309. 2950 PRINT "3. C-23"
  310. 2960 LOCATE 16, 32
  311. 2970 PRINT "4. Return to Launch Menu"
  312. 2980 INPUT "Command"; com32
  313. 2990 IF com32 = 1 THEN GOTO 3070
  314. 3000 IF com32 = 2 THEN GOTO 3870
  315. 3010 IF com32 = 3 THEN GOTO 4720
  316. 3020 IF com32 = 4 THEN GOTO 2650
  317. 3030 IF com32 < 1 THEN GOTO 3050
  318. 3040 IF com32 > 4 THEN GOTO 3050
  319. 3050 INPUT "That's not a choice. Press Enter"; com33
  320. 3060 IF com33 = 0 THEN GOTO 2900
  321. 3070 INPUT "Using A-83. Press Enter"; com34
  322. 3080 IF com34 = 0 THEN GOTO 3090
  323. 3090 CLS
  324. 3100 COLOR 15, 0
  325. 3110 LOCATE 11, 35
  326. 3120 PRINT "Launch Menu"
  327. 3130 COLOR 14, 0
  328. 3140 LOCATE 13, 32
  329. 3150 PRINT "1. Launch!"
  330. 3160 COLOR 9, 0
  331. 3170 LOCATE 14, 32
  332. 3180 PRINT "2. Select Engine"
  333. 3190 LOCATE 15, 32
  334. 3200 PRINT "3. Return to The Field"
  335. 3210 INPUT "Command"; com35
  336. 3220 IF com35 = 1 THEN GOTO 3250
  337. 3230 IF com35 = 2 THEN GOTO 2850
  338. 3240 IF com35 = 3 THEN GOTO 1510
  339. 3241 IF com35 < 1 THEN GOTO 3243
  340. 3242 IF com35 > 3 THEN GOTO 3243
  341. 3243 INPUT "That's not a choice. Press Enter"; com46
  342. 3244 IF com46 = 0 THEN GOTO 3090
  343. 3250 CLS
  344. 3260 COLOR 15, 0
  345. 3270 LOCATE 8, 27
  346. 3280 PRINT "Launch!"
  347. 3290 COLOR 9, 0
  348. 3310 PRINT "                   -------------------"
  349. 3320 PRINT "                   |                 |"
  350. 3330 PRINT "                   |           ---   |"
  351. 3340 PRINT "                   |          |   |  |"
  352. 3350 PRINT "                   |           ---   |"
  353. 3360 PRINT "                   |                 |"
  354. 3370 PRINT "                   |          -----  |"
  355. 3380 PRINT "                   |          | 0 |  |"
  356. 3390 PRINT "                   |          -----  |"
  357. 3400 PRINT "                   -------------------"
  358. 3401 COLOR 28, 0
  359. 3410 LOCATE 11, 31
  360. 3420 PRINT " ---"
  361. 3421 LOCATE 12, 31
  362. 3430 PRINT "|   |"
  363. 3431 LOCATE 13, 31
  364. 3440 PRINT " ---"
  365. 3450 COLOR 15, 0
  366. 3460 LOCATE 21, 11
  367. 3470 PRINT "Press Enter to Launch, any other"
  368. 3480 INPUT "                     number to Abort"; com37
  369. 3490 IF com37 = 0 THEN GOTO 3510
  370. 3500 IF com37 > 0 THEN GOTO 3090
  371. 3510 CLS
  372. 3520 LOCATE 11, 37
  373. 3530 PRINT "FWOOSH!"
  374. 3540 SOUND 50, 18
  375. 3550 LOCATE 20, 40
  376. 3560 PRINT "WOW!"
  377. 3570 INPUT "Press Enter to Continue"; com38
  378. 3580 IF com38 = 0 THEN GOTO 3590
  379. 3590 CLS
  380. 3600 LOCATE 11, 37
  381. 3610 PRINT "Stats"
  382. 3620 LOCATE 12, 26
  383. 3630 PRINT "Engine:   A-83"
  384. 3640 LOCATE 13, 26
  385. 3650 PRINT "Overall Altitude:   60 feet"
  386. 3660 LOCATE 14, 26
  387. 3670 PRINT "Condition At Landing:   Good"
  388. 3680 INPUT "Press Enter to Continue"; com39
  389. 3690 IF com39 = 0 THEN GOTO 3700
  390. 3700 CLS
  391. 3711 COLOR 15, 0
  392. 3710 LOCATE 11, 35
  393. 3720 PRINT "Post-Launch"
  394. 3730 COLOR 9, 0
  395. 3740 LOCATE 13, 27
  396. 3750 PRINT "1. Repair Rocket"
  397. 3760 LOCATE 14, 27
  398. 3770 PRINT "2. Return to Launch Menu"
  399. 3780 INPUT "Command"; com40
  400. 3790 IF com40 = 1 THEN GOTO 3850
  401. 3800 IF com40 = 2 THEN GOTO 5650
  402. 3810 IF com40 < 1 THEN GOTO 3830
  403. 3820 IF com40 > 2 THEN GOTO 3830
  404. 3830 INPUT "That's not a choice. Press Enter"; com41
  405. 3840 IF com41 = 0 THEN GOTO 3700
  406. 3850 INPUT "Rocket repaired. Press Enter"; com42
  407. 3860 IF com42 = 0 THEN GOTO 3700
  408. 3870 INPUT "Using B-64. Press Enter"; com43
  409. 3880 IF com43 = 0 THEN GOTO 3890
  410. 3890 CLS
  411. 3900 COLOR 15, 0
  412. 3910 LOCATE 11, 35
  413. 3920 PRINT "Launch Menu"
  414. 3930 COLOR 14, 0
  415. 3940 LOCATE 13, 32
  416. 3950 PRINT "1. Launch!"
  417. 3960 COLOR 9, 0
  418. 3970 LOCATE 14, 32
  419. 3980 PRINT "2. Select Engine"
  420. 3990 LOCATE 15, 32
  421. 4000 PRINT "3. Return to The Field"
  422. 4010 INPUT "Command"; com44
  423. 4020 IF com44 = 1 THEN GOTO 4090
  424. 4030 IF com44 = 2 THEN GOTO 2850
  425. 4040 IF com44 = 3 THEN GOTO 1510
  426. 4050 IF com44 < 1 THEN GOTO 4070
  427. 4060 IF com44 > 3 THEN GOTO 4070
  428. 4070 INPUT "That's not a choice. Press Enter"; com45
  429. 4080 IF com45 = 0 THEN GOTO 3890
  430. 4090 CLS
  431. 4100 COLOR 15, 0
  432. 4110 LOCATE 8, 27
  433. 4120 PRINT "Launch!"
  434. 4130 COLOR 9, 0
  435. 4150 PRINT "                   -------------------"
  436. 4160 PRINT "                   |                 |"
  437. 4170 PRINT "                   |           ---   |"
  438. 4180 PRINT "                   |          |   |  |"
  439. 4190 PRINT "                   |           ---   |"
  440. 4200 PRINT "                   |                 |"
  441. 4210 PRINT "                   |          -----  |"
  442. 4220 PRINT "                   |          | 0 |  |"
  443. 4230 PRINT "                   |          -----  |"
  444. 4240 PRINT "                   -------------------"
  445. 4250 COLOR 28, 0
  446. 4260 LOCATE 11, 31
  447. 4270 PRINT " ---"
  448. 4271 LOCATE 12, 31
  449. 4280 PRINT "|   |"
  450. 4281 LOCATE 13, 31
  451. 4290 PRINT " ---"
  452. 4300 COLOR 15, 0
  453. 4310 LOCATE 21, 11
  454. 4320 PRINT "Press Enter to Launch, any other"
  455. 4330 INPUT "                   number to Abort"; com47
  456. 4340 IF com47 = 0 THEN GOTO 4360
  457. 4350 IF com47 > 0 THEN GOTO 3890
  458. 4360 CLS
  459. 4370 LOCATE 11, 37
  460. 4380 PRINT "FWOOSH!"
  461. 4390 SOUND 60, 18
  462. 4400 LOCATE 20, 40
  463. 4410 PRINT "WOW!"
  464. 4420 INPUT "Press Enter to Continue"; com48
  465. 4430 IF com48 = 0 THEN GOTO 4440
  466. 4440 CLS
  467. 4450 LOCATE 11, 37
  468. 4460 PRINT "Stats"
  469. 4470 LOCATE 12, 26
  470. 4480 PRINT "Engine:   B-64"
  471. 4490 LOCATE 13, 26
  472. 4500 PRINT "Overall Altitude:   90 feet"
  473. 4510 LOCATE 14, 26
  474. 4520 PRINT "Condition At Landing:   Moderate"
  475. 4530 INPUT "Press Enter to Continue"; com49
  476. 4540 IF com49 = 0 THEN GOTO 4550
  477. 4550 CLS
  478. 4551 COLOR 15, 0
  479. 4560 LOCATE 11, 35
  480. 4570 PRINT "Post-Launch"
  481. 4580 COLOR 9, 0
  482. 4590 LOCATE 13, 27
  483. 4600 PRINT "1. Repair Rocket"
  484. 4610 LOCATE 14, 27
  485. 4620 PRINT "2. Return to Launch Menu"
  486. 4630 INPUT "Command"; com50
  487. 4640 IF com50 = 1 THEN GOTO 4700
  488. 4650 IF com50 = 2 THEN GOTO 5650
  489. 4660 IF com50 < 1 THEN GOTO 4680
  490. 4670 IF com50 > 2 THEN GOTO 4680
  491. 4680 INPUT "That's not a choice. Press Enter"; com51
  492. 4690 IF com51 = 0 THEN GOTO 4550
  493. 4700 INPUT "Rocket repaired. Press Enter"; com52
  494. 4710 IF com52 = 0 THEN GOTO 4550
  495. 4720 INPUT "Using C-23. Press Enter"; com53
  496. 4730 IF com53 = 0 THEN GOTO 4740
  497. 4740 CLS
  498. 4750 COLOR 15, 0
  499. 4760 LOCATE 11, 35
  500. 4770 PRINT "Launch Menu"
  501. 4780 COLOR 14, 0
  502. 4790 LOCATE 13, 32
  503. 4800 PRINT "1. Launch!"
  504. 4810 COLOR 9, 0
  505. 4820 LOCATE 14, 32
  506. 4830 PRINT "2. Select Engine"
  507. 4840 LOCATE 15, 32
  508. 4850 PRINT "3. Return to The Field"
  509. 4860 INPUT "Command"; com54
  510. 4870 IF com54 = 1 THEN GOTO 4940
  511. 4880 IF com54 = 2 THEN GOTO 2850
  512. 4890 IF com54 = 3 THEN GOTO 1510
  513. 4900 IF com54 < 1 THEN GOTO 4920
  514. 4910 IF com54 > 3 THEN GOTO 4920
  515. 4920 INPUT "That's not a choice. Press Enter"; com55
  516. 4930 IF com55 = 0 THEN GOTO 4740
  517. 4940 CLS
  518. 4950 COLOR 15, 0
  519. 4960 LOCATE 8, 27
  520. 4970 PRINT "Launch!"
  521. 4980 COLOR 9, 0
  522. 5000 PRINT "                   -------------------"
  523. 5010 PRINT "                   |                 |"
  524. 5020 PRINT "                   |           ---   |"
  525. 5030 PRINT "                   |          |   |  |"
  526. 5040 PRINT "                   |           ---   |"
  527. 5050 PRINT "                   |                 |"
  528. 5060 PRINT "                   |          -----  |"
  529. 5070 PRINT "                   |          | 0 |  |"
  530. 5080 PRINT "                   |          -----  |"
  531. 5090 PRINT "                   -------------------"
  532. 5100 COLOR 28, 0
  533. 5110 LOCATE 11, 31
  534. 5120 PRINT " ---"
  535. 5121 LOCATE 12, 31
  536. 5130 PRINT "|   |"
  537. 5131 LOCATE 13, 31
  538. 5140 PRINT " ---"
  539. 5150 COLOR 15, 0
  540. 5160 LOCATE 21, 11
  541. 5170 PRINT "Press Enter to Launch, any other"
  542. 5180 INPUT "                   number to Abort"; com56
  543. 5190 IF com56 = 0 THEN GOTO 5210
  544. 5200 IF com56 > 0 THEN GOTO 4740
  545. 5210 CLS
  546. 5220 LOCATE 11, 37
  547. 5230 PRINT "FWOOSH!"
  548. 5240 SOUND 70, 18
  549. 5250 LOCATE 20, 40
  550. 5260 PRINT "WOW!"
  551. 5270 INPUT "Press Enter to Continue"; com57
  552. 5280 IF com57 = 0 THEN GOTO 5290
  553. 5290 CLS
  554. 5300 LOCATE 11, 37
  555. 5310 PRINT "Stats"
  556. 5320 LOCATE 12, 26
  557. 5330 PRINT "Engine:   C-23"
  558. 5340 LOCATE 13, 26
  559. 5350 PRINT "Overall Altitude:   130 feet"
  560. 5360 LOCATE 14, 26
  561. 5370 PRINT "Condition At Landing:   Poor"
  562. 5380 INPUT "Press Enter to Continue"; com58
  563. 5390 IF com58 = 0 THEN GOTO 4550
  564. 5400 CLS
  565. 5410 LOCATE 11, 35
  566. 5420 PRINT "Post-Launch"
  567. 5430 COLOR 9, 0
  568. 5440 LOCATE 13, 27
  569. 5450 PRINT "1. Repair Rocket"
  570. 5460 LOCATE 14, 27
  571. 5470 PRINT "2. Return to Launch Menu"
  572. 5480 INPUT "Command"; com59
  573. 5490 IF com50 = 1 THEN GOTO 5560
  574. 5500 IF com50 = 2 THEN GOTO 5650
  575. 5510 IF com50 < 1 THEN GOTO 5530
  576. 5520 IF com50 > 2 THEN GOTO 5530
  577. 5530 INPUT "That's not a choice. Press Enter"; com51
  578. 5540 IF com51 = 0 THEN GOTO 5400
  579. 5550 INPUT "Rocket repaired. Press Enter"; com52
  580. 5560 IF com52 = 0 THEN GOTO 5400
  581. 5570 CLS
  582. 5580 COLOR 14, 0
  583. 5590 LOCATE 13, 18
  584. 5591 PRINT "                                                                   "
  585. 5600 INPUT "Press Enter to quit, any other number to resume"; com53
  586. 5630 IF com53 = 0 THEN GOTO 5750
  587. 5640 IF com53 > 0 THEN GOTO 10
  588. 5650 CLS
  589. 5660 COLOR 9, 0
  590. 5670 LOCATE 13, 10
  591. 5680 PRINT "You can't return to the menu in this Unregistered Version."
  592. 5690 LOCATE 14, 10
  593. 5700 PRINT "If you register, you will recive the complete game, and some"
  594. 5710 LOCATE 15, 10
  595. 5720 PRINT "other neat stuff. Read ORDER.FRM for more information."
  596. 5730 INPUT "Press Enter"; com54
  597. 5740 IF com54 = 0 THEN GOTO 5750
  598. 5750 CLS
  599. 5760 LOCATE 13, 10
  600. 5770 PRINT "Thanks for playing. Please Register!"
  601.  
  602.