home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d1xx / d165 / cpm.lha / CPM / DriveA / suptrk3.bas < prev    next >
BASIC Source File  |  1988-11-22  |  14KB  |  533 lines
  1. 10 REM: MODIFIED FOR ALTAIR BASIC BY ROGER AMIDON AND DOUG MOSER.
  2. 15 REM    BRAVELY COPIED 14-MAY-1985 BY ULF NORDQUIST AND MODIFIED
  3. 16 REM    FOR MBASIC 5.n
  4. 17 REM    even more bravely copied to Amiga format disk and used in
  5. 18 REM    mbasic in a cpm emulator 14-jul-1988 by Ulf Nordquist
  6. 20 PRINT:PRINT:PRINT TAB(15);"******  S T A R   T R E K  ******"
  7. 25 PRINT:PRINT
  8. 30 DIM G(8,8),Q(8,8),D(6),K(9,3),N(3),Q$(5),D$(6)
  9. 40 Q$(1)="   ":Q$(2)="<*>":Q$(3)="+++":Q$(4)=">!<":Q$(5)=" * "
  10. 45 D$(1)="WARP ENGINES":D$(2)="S.R. SENSORS":D$(3)="L.R. SENSORS"
  11. 48 D$(4)="PHASER CONTROL":D$(5)="PHOTON TUBES":D$(6)="DAMAGE CONTROL"
  12. 70 T0=INT(RND(1)*20+20)*100
  13. 80 T=T0
  14. 90 T9=40
  15. 100 E=3000:E0=3000
  16. 110 P=10:P0=10
  17. 120 S9=200
  18. 130 DEF FND(D)=SQR((K(I,1)-S1)^2+(K(I,2)-S2)^2)
  19. 140 Q1=INT(RND(1)*8+1)
  20. 150 Q2=INT(RND(1)*8+1)
  21. 170 S1=INT(RND(1)*8+1)
  22. 180 S2=INT(RND(1)*8+1)
  23. 190 REM: SET UP GALAXY
  24. 200 K9=0:B9=0
  25. 210 FOR I=1 TO 8
  26. 220 FOR J=1 TO 8
  27. 230 R=RND(1)*64
  28. 240 GOSUB 3920
  29. 250 K9=K9+K3
  30. 260 IF RND(1)>.96 THEN 290
  31. 270 B3=0
  32. 280 GOTO 300
  33. 290 B3=1
  34. 300 B9=B9+B3
  35. 310 S3=INT(RND(1)*8+1)
  36. 320 G(I,J)=K3*100+B3*10+S3
  37. 330 NEXT J
  38. 340 NEXT I
  39. 350 K0=K9
  40. 360 IF B9>0 THEN 410
  41. 370 I=RND(1)*8+.5
  42. 380 J=RND(1)*8+.5
  43. 390 G(I,J)=G(I,J)+10
  44. 400 B9=1
  45. 410 GOSUB 3770
  46. 420 REM: SET UP QUADRANT
  47. 430 K3=0:B3=0:S3=0
  48. 440 IF Q1<1 THEN 530
  49. 450 IF Q1>8 THEN 530
  50. 460 IF Q2<1 THEN 530
  51. 470 IF Q2>8 THEN 530
  52. 480 X=G(Q1,Q2)/100
  53. 490 K3=INT(X)
  54. 500 B3=INT((X-K3)*10)
  55. 510 S3=G(Q1,Q2)-INT(G(Q1,Q2)*.1)*10
  56. 530 FOR I=1 TO 8
  57. 540 FOR J=1 TO 8
  58. 550 Q(I,J)=0
  59. 560 NEXT J
  60. 570 NEXT I
  61. 580 Q(S1,S2)=1
  62. 585 IF K3<1 THEN 655
  63. 590 FOR I=1 TO K3
  64. 600 GOSUB 3720
  65. 610 Q(R1,R2)=2
  66. 620 K(I,1)=R1
  67. 630 K(I,2)=R2
  68. 640 K(I,3)=S9
  69. 650 NEXT I
  70. 655 IF B3<1 THEN 695
  71. 660 FOR I=1 TO B3
  72. 670 GOSUB 3720
  73. 680 Q(R1,R2)=3
  74. 690 NEXT I
  75. 695 IF S3<1 THEN 740
  76. 700 FOR I=1 TO S3
  77. 710 GOSUB 3720
  78. 720 Q(R1,R2)=4
  79. 730 NEXT I
  80. 740 A=-1
  81. 750 REM: SHORT RANGE SENSOR SCAN
  82. 760 GOSUB 4120
  83. 770 FOR I=W1 TO W2
  84. 780 FOR J= W3 TO W4
  85. 790 IF Q(I,J) <> 3 THEN 840
  86. 800 C$="DOCKED"
  87. 810 E=3000
  88. 820 P=10
  89. 830 GOTO 960
  90. 840 NEXT J
  91. 850 NEXT I
  92. 860 IF K3>0 THEN 930
  93. 870 IF E<E0*.1 THEN 950
  94. 880 FOR I=1 TO 6
  95. 890 IF D(I)<0 GOTO 950
  96. 900 NEXT I
  97. 910 C$="GREEN"
  98. 920 GOTO 960
  99. 930 C$="RED"
  100. 940 GOTO 960
  101. 950 C$="YELLOW"
  102. 960 IF A>0 GOTO 980
  103. 970 GOSUB 3410
  104. 980 IF E <= 0 THEN 3530
  105. 990 IF D(2) >= 0 THEN 1040
  106. 1000 PRINT
  107. 1010 PRINT "***SHORT RANGE SENSORS ARE OUT ***"
  108. 1020 PRINT
  109. 1030 GOTO 1290
  110. 1040 EW$= "-------------------------------"
  111. 1041 PRINT EW$
  112. 1050 FOR I=1 TO 8
  113. 1060 FOR J=1 TO 8
  114. 1070 PRINT Q$(Q(I,J)+1);:PRINT " ";
  115. 1080 NEXT J
  116. 1090 PRINT "   ";
  117. 1100 ON I GOTO 1150,1170,1190,1210,1230,1250,1270,1110
  118. 1110 PRINT
  119. 1120 NEXT I
  120. 1130 PRINT EW$
  121. 1140 GOTO 1290
  122. 1150 PRINT "STARDATE";T
  123. 1160 GOTO 1120
  124. 1170 PRINT "CONDITION ";C$
  125. 1180 GOTO 1120
  126. 1190 PRINT "QUADRANT";Q1;"-";Q2
  127. 1200 GOTO 1120
  128. 1210 PRINT "SECTOR";S1;"-";S2
  129. 1220 GOTO 1120
  130. 1230 PRINT "ENERGY";E
  131. 1240 GOTO 1120
  132. 1250 PRINT "PHOTON TORPEDOES";P
  133. 1260 GOTO 1120
  134. 1270 PRINT "KLINGONS LEFT";K9
  135. 1280 GOTO 1120
  136. 1290 PRINT "COMMAND, CAPTAIN:";
  137. 1300 INPUT A
  138. 1310 IF A>7 THEN 1420
  139. 1320 ON A+1 GOTO 1440,750,2180,2380,2620,3170,1330,7080
  140. 1330 PRINT
  141. 1340 PRINT "   0 = SET COURSE"
  142. 1350 PRINT "   1 = SHORT RANGE SENSOR SCAN"
  143. 1360 PRINT "   2 = LONG RANGE SENSOR SCAN"
  144. 1370 PRINT "   3 = FIRE PHASERS"
  145. 1380 PRINT "   4 = FIRE PHOTON TORPEDOES"
  146. 1390 PRINT "   5 = DAMAGE CONTROL REPORT"
  147. 1392 PRINT "   6 = LIST OF COMMANDS"
  148. 1394 PRINT "   7 = GALAXY DISPLAY"
  149. 1400 PRINT
  150. 1410 GOTO 1290
  151. 1420 PRINT"DEMOTED 2 STEPS IN RANK. TYPE 6 AFTER 'COMMAND?'"
  152. 1430 GOTO 1290
  153. 1440 REM: WARP DRIVE
  154. 1450 PRINT "COURSE (1-8.9999):";
  155. 1460 INPUT C1
  156. 1470 IF C1=0 THEN 1290
  157. 1480 IF C1<1 THEN 1450
  158. 1490 IF C1 >= 9 THEN 1450
  159. 1500 PRINT "WARP FACTOR (0-12):";
  160. 1510 INPUT W1
  161. 1515 IF T/5<>INT(T/5) THEN 1520
  162. 1518 GOSUB 4390
  163. 1520 IF W1<0 THEN 1450
  164. 1530 IF W1>12 THEN 1450
  165. 1540 IF W1 <= .2 THEN 1580
  166. 1550 IF D(1) >= 0 THEN 1580
  167. 1560 PRINT "WARP ENGINES ARE DAMAGED, MAXIMUM SPEED = WARP .2"
  168. 1570 GOTO 1450
  169. 1580 IF K3 <= 0 THEN 1610
  170. 1590 GOSUB 3410
  171. 1600 IF E <= 0 THEN 3560
  172. 1610 FOR I=1 TO 6
  173. 1620 D(I)=D(I)+1
  174. 1630 IF  D(I)<0 THEN 1650
  175. 1640 D(I)=0
  176. 1650 NEXT I
  177. 1660 IF RND(1)>.25 THEN 1870
  178. 1670 R1=INT(RND(1)*6+1)
  179. 1680 IF RND(1)>.5 THEN 1730
  180. 1690 D(R1)=D(R1)-(RND(1)*5+1)
  181. 1700 PRINT"*** SPACE STORM, ";D$(R1);" DAMAGED ***"
  182. 1710 S=0
  183. 1720 GOTO 1870
  184. 1730 FOR I=R1 TO 6
  185. 1740 IF D(I)<0 THEN 1800
  186. 1750 NEXT I
  187. 1760 FOR I=1 TO R1-1
  188. 1770 IF D(I)<0 THEN 1800
  189. 1780 NEXT I
  190. 1790 GOTO 1860
  191. 1800 R1=I
  192. 1810 IF D(I)*RND(1)*5+1>0 GOTO 1840
  193. 1820 D(I)=D(I)*RND(1)*.5+1
  194. 1830 GOTO 1850
  195. 1840 D(I)=0
  196. 1850 PRINT"*** TRUCE, ";D$(R1);" STATE OF REPAIR IMPROVED ***"
  197. 1860 S=0
  198. 1870 N=INT(W1*8)
  199. 1880 E=E-N-N+5
  200. 1890 T=T+1
  201. 1900 Q(S1,S2)=0
  202. 1910 X=S1
  203. 1920 Y=S2
  204. 1930 IF T>T0+T9 THEN 3530
  205. 1940 GOSUB 3140
  206. 1950 FOR I=1 TO N
  207. 1960 S1=S1+X1
  208. 1970 S2=S2+X2
  209. 1980 IF S1<.5 GOTO 2120
  210. 1990 IF S2<.5 GOTO 2120
  211. 2000 IF S1>=8.5 GOTO 2120
  212. 2010 IF S2>=8.5 GOTO 2120
  213. 2020 IF Q(S1+.5,S2+.5)=0 THEN 2070
  214. 2030 PRINT "ENTERPRISE BLOCKED BY OBJECT AT SECTOR"S1;"-"S2
  215. 2040 S1=S1-X1
  216. 2050 S2=S2-X2
  217. 2060 GOTO 2080
  218. 2070 NEXT I
  219. 2080 Q(S1+.5,S2+.5)=1
  220. 2090 S1=INT(S1+.5)
  221. 2100 S2=INT(S2+.5)
  222. 2110 GOTO 750
  223. 2120 Q1=INT(Q1+W1*X1+(X-.5)/8)
  224. 2130 Q2=INT(Q2+W1*X2+(Y-.5)/8)
  225. 2140 GOSUB 4290
  226. 2150 S1=INT(RND(1)*8+1)
  227. 2160 S2=INT(RND(1)*8+1)
  228. 2170 GOTO 420
  229. 2180 REM: LONG RANGE SENSOR SCAN
  230. 2190 IF D(3) >= 0 THEN 2220
  231. 2200 PRINT "LONG RANGE SENSORS ARE INOPERABLE"
  232. 2210 GOTO 1290
  233. 2220 PRINT "LONG RANGE SENSOR SCAN FOR QUADRANT"Q1","Q2
  234. 2230 EX$= "------------------- "
  235. 2231 PRINT EX$
  236. 2250 FOR I=Q1-1 TO Q1+1
  237. 2260 N(1)=0:N(2)=0:N(3)=0
  238. 2270 FOR J=Q2-1 TO Q2+1
  239. 2280 IF I<1 THEN 2330
  240. 2290 IF I>8 THEN 2330
  241. 2300 IF J<1 THEN 2330
  242. 2310 IF J>8 THEN 2330
  243. 2320 N(J-Q2+2)=G(I,J)
  244. 2330 NEXT J
  245. 2340 PRINT ": ";:AB=N(1):GOSUB 7135:PRINT " : ";:AB=N(2):GOSUB 7135
  246. 2342 PRINT " : ";:AB=N(3):GOSUB 7135:PRINT " :"
  247. 2350 PRINT EX$
  248. 2360 NEXT I
  249. 2370 GOTO 1290
  250. 2380 REM: PHASER CONTROL
  251. 2390 IF D(4) >= 0 THEN 2420
  252. 2400 PRINT "PHASER CONTROL IS DISABLED"
  253. 2410 GOTO 1290
  254. 2420 PRINT "PHASERS LOCKED ON TARGET.  ENERGY AVAILABLE = "E
  255. 2430 PRINT "NUMBER OF UNITS TO FIRE:";
  256. 2440 INPUT X
  257. 2450 IF X <= 0 THEN 1290
  258. 2460 IF E-X<0 THEN 2420
  259. 2470 E=E-X
  260. 2480 IF K3=0 THEN 2590
  261. 2490 FOR I=1 TO 9
  262. 2500 IF K(I,3) <= 0 THEN 2580
  263. 2510 H=X/FND(0)*(2+RND(1))
  264. 2520 K(I,3)=K(I,3)-H
  265. 2530 PRINT H;"UNIT HIT ON KLINGON AT SECTOR"K(I,1);"-"K(I,2)
  266. 2540 PRINT "("K(I,3)"LEFT)"
  267. 2550 IF K(I,3)>0 THEN 2580
  268. 2560 GOSUB 3350
  269. 2570 IF K9 <= 0 THEN 3630
  270. 2580 NEXT I
  271. 2590 GOSUB 3410
  272. 2600 IF E <= 0 THEN 3560
  273. 2610 GOTO 1290
  274. 2620 REM: PHOTON TORPEDOES
  275. 2630 IF D(5) >= 0 THEN 2660
  276. 2640 PRINT "PHOTON TUBES ARE NOT OPERATIONAL"
  277. 2650 GOTO 1290
  278. 2660 IF P>0 THEN 2690
  279. 2670 PRINT "ALL PHOTON TORPEDOES EXPENDED"
  280. 2680 GOTO 1290
  281. 2690 PRINT"TORPEDO COURSE (1-8.9999):";
  282. 2700 INPUT C1
  283. 2710 IF C1=0 THEN 1290
  284. 2720 IF C1<1 THEN 2690
  285. 2730 IF C1 >= 9 THEN 2690
  286. 2740 GOSUB 3140
  287. 2750 X=S1
  288. 2760 Y=S2
  289. 2770 P=P-1
  290. 2780 PRINT "TORPEDO TRACK:";
  291. 2790 X=X+X1
  292. 2800 Y=Y+X2
  293. 2810 IF Y<.5 GOTO 3100
  294. 2820 IF X<.5 GOTO 3100
  295. 2830 IF X>8.5 GOTO 3100
  296. 2840 IF Y>8.5 GOTO 3100
  297. 2850 PRINT X;"-"Y;
  298. 2860 IF Q(X+.5,Y+.5)=1 GOTO 2790
  299. 2870 IF Q(X+.5,Y+.5)<>0 THEN 2890
  300. 2880 GOTO 2790
  301. 2890 IF Q(X+.5,Y+.5)<>2 THEN 3000
  302. 2900 PRINT "*** KLINGON DESTROYED ***"
  303. 2910 K3=K3-1
  304. 2920 K9=K9-1
  305. 2930 IF K9 <= 0 THEN 3630
  306. 2940 FOR I=1 TO 9
  307. 2950 IF INT(Y+.5) <>K(I,2)THEN 2970
  308. 2960 IF INT(X+.5)=K(I,1) THEN 2980
  309. 2970 NEXT I
  310. 2980 K(I,3)=0
  311. 2990 GOTO 3070
  312. 3000 IF Q(X+.5,Y+.5)<>4 THEN 3040
  313. 3010 PRINT "STAR DESTROYED"
  314. 3020 S3=S3-1
  315. 3030 GOTO 3070
  316. 3040 PRINT
  317. 3050 PRINT "*** STAR BASE DESTROYED ... CONGRATULATIONS ***"
  318. 3060 B3=B3-1
  319. 3070 Q(X+.5,Y+.5)=0
  320. 3080 G(Q1,Q2)=K3*100+B3*10+S3
  321. 3090 GOTO 3110
  322. 3100 PRINT "TORPEDO MISSED"
  323. 3110 GOSUB 3410
  324. 3120 IF E <= 0 THEN 3560
  325. 3130 GOTO 1290
  326. 3140 X2=COS((C1-1)*.785398)
  327. 3150 X1=-SIN((C1-1)*.785398)
  328. 3160 RETURN
  329. 3170 REM: DAMAGE CONTROL REPORT
  330. 3180 IF D(6) >= 0 THEN 3210
  331. 3190 PRINT "DAMAGE CONTROL REPORT IS NOT AVAILABLE"
  332. 3200 GOTO 1290
  333. 3210 PRINT
  334. 3220 Z=1
  335. 3230 PRINT "DEVICE         STATE OF REPAIR"
  336. 3240 V=0
  337. 3250 FOR I=1 TO 5
  338. 3260 IF D(I)>=0 THEN 3280
  339. 3270 PRINT D$(I),INT(D(I));" TURNS"
  340. 3280 V=V+D(I)
  341. 3290 NEXT I
  342. 3300 IF V<0 THEN 3320
  343. 3310 PRINT "ALL SYSTEMS","    GO"
  344. 3320 PRINT
  345. 3330 GOTO 1290
  346. 3340 REM:
  347. 3350 PRINT "KLINGON AT SECTOR"K(I,1);"-"K(I,2);"DESTROYED!"
  348. 3360 K3=K3-1
  349. 3370 K9=K9-1
  350. 3380 Q(K(I,1),K(I,2))=0
  351. 3390 G(Q1,Q2)=K3*100+B3*10+S3
  352. 3400 RETURN
  353. 3410 REM: KLINGON ATTACK
  354. 3420 IF C$ <> "DOCKED" THEN 3450
  355. 3430 PRINT "STAR BASE SHIELDS PROTECT THE ENTERPRISE"
  356. 3440 RETURN
  357. 3450 IF G(Q1,Q2)<100 THEN RETURN
  358. 3455 FOR I=1 TO 9
  359. 3460 IF K(I,3) <= 0 THEN 3510
  360. 3470 H=(K(I,3)/FND(0))*(2+RND(1))
  361. 3480 E=E-H
  362. 3490 PRINT H;"UNIT HIT ON ENTERPRISE FROM KLINGON AT SECTOR"K(I,1);"-";
  363. 3495 PRINT K(I,2)
  364. 3500 PRINT "("E;"LEFT)"
  365. 3510 NEXT I
  366. 3520 RETURN
  367. 3530 REM: LOSE
  368. 3540 GOSUB 4380
  369. 3550 PRINT "IT IS STARDATE"T
  370. 3560 GOTO 3580
  371. 3570 GOSUB 4380
  372. 3580 PRINT "THE ENTERPRISE HAS BEEN DESTROYED   "
  373. 3590 PRINT "THE FEDERATION WILL BE CONQUERED."
  374. 3600 PRINT "THERE ARE STILL"K9;"KLINGON BATTLE CRUISERS."
  375. 3610 PRINT "YOU ARE DEAD."
  376. 3620 STOP
  377. 3630 REM: WIN
  378. 3640 GOSUB 4380
  379. 3650 PRINT "IT IS STARDATE"T
  380. 3660 PRINT "THE LAST KLINGON BATTLE CRUISER IN THE GALAXY HAS BEEN"
  381. 3670 PRINT "DESTROYED."
  382. 3680 PRINT "THE FEDERATION HAS BEEN SAVED"
  383. 3690 PRINT "YOU HAVE BEEN PROMOTED TO ADMIRAL."
  384. 3700 PRINT K0;"KLINGONS IN"T-T0;"YEARS.  RATING ="INT(K0/(T-T0)*1000)
  385. 3710 GOTO 7180
  386. 3720 REM: RANDOM NUMBER GENERATOR
  387. 3730 R1=INT(RND(1)*8+1)
  388. 3740 R2=INT(RND(1)*8+1)
  389. 3750 IF Q(R1,R2) <> 0 THEN 3730
  390. 3760 RETURN
  391. 3770 PRINT "ORDERS:  STARDATE = "T
  392. 3780 PRINT"TO: COMMANDER - UNITED STARSHIP ENTERPRISE"
  393. 3790 PRINT
  394. 3800 PRINT"    THE KLINGON VANGUARD OF"K9"BATTLE CRUISERS HAS INVADED"
  395. 3810 PRINT"YOUR PATROL AREA. IF THEY ARE NOT DESTROYED IN"T9"STARDATES
  396. 3820 PRINT"(I.E. STARDATE"T0+T9") THE FEDERATION COUNSIL WILL ";
  397. 3825 PRINT "SURRENDER"
  398. 3830 PRINT"DUE TO THE THREAT OF ROMULAN INTERVENTION. AT LEAST ONE"
  399. 3840 PRINT"STARBASE IS KNOWN TO HAVE SURVIVED KLINGON DETECTION AND"
  400. 3850 PRINT"DESTRUCTION. IT MAY BE USEFUL FOR PURPOSES OF RESUPPLY."
  401. 3860 PRINT"THE ENTERPRISE IS CURRENTLY IN QUADRANT"Q1"-"Q2"SECTOR"
  402. 3870 PRINT S1"-"S2". GOOD LUCK."
  403. 3880 PRINT TAB(30);"SIGNED,"
  404. 3890 PRINT TAB(20);"ADM. RICHARD J. PACKARD"
  405. 3900 PRINT TAB(20);"COMMANDER: EARTH FORCES - STAR FLEET COMMAND"
  406. 3910 RETURN
  407. 3920 K3=0
  408. 3930 IF R>1E-04 GOTO 3950
  409. 3940 K3=K3+1
  410. 3950 IF R>.01 GOTO 3970
  411. 3960 K3=K3+1
  412. 3970 IF R>.03 GOTO 3990
  413. 3980 K3=K3+1
  414. 3990 IF R>.08 GOTO 4010
  415. 4000 K3=K3+1
  416. 4010 IF R>.28 GOTO 4030
  417. 4020 K3=K3+1
  418. 4030 IF R>1.28 GOTO 4050
  419. 4040 K3=K3+1
  420. 4050 IF R>3.28 GOTO 4070
  421. 4060 K3=K3+1
  422. 4070 IF R>6.28 GOTO 4090
  423. 4080 K3=K3+1
  424. 4090 IF R>13.28 GOTO 4110
  425. 4100 K3=K3+1
  426. 4110 RETURN
  427. 4120 IF S1-1<1 GOTO 4150
  428. 4130 W1=S1-1
  429. 4140 GOTO 4160
  430. 4150 W1=1
  431. 4160 IF S1+1>8 GOTO 4190
  432. 4170 W2=S1+1
  433. 4180 GOTO 4200
  434. 4190 W2=8
  435. 4200 IF S2-1<1 GOTO 4230
  436. 4210 W3=S2-1
  437. 4220 GOTO 440
  438. 4230 W3 = 1
  439. 4240 IF S2+1>8 GOTO 4270
  440. 4250 W4=S2+1
  441. 4260 GOTO 4280
  442. 4270 W4=8
  443. 4280 RETURN
  444. 4290 IF Q1<8 GOTO 4310
  445. 4300 Q1=8
  446. 4310 IF Q1>1 GOTO 4330
  447. 4320 Q1=1
  448. 4330 IF Q2<8 GOTO 4350
  449. 4340 Q2=8
  450. 4350 IF Q2>1 THEN RETURN
  451. 4360 Q2=1
  452. 4380 RETURN
  453. 4390 REM- COMMERCIALS -
  454. 4395 IF T/15=INT(T/15) THEN 7000
  455. 4400 IF T/10=INT(T/10) THEN 6000
  456. 5000 PRINT"************ STAR TREK IS BROUGHT TO YOU BY : **************
  457. 5005 PRINT"=========="
  458. 5010 PRINT"!++++++++!                TTTTT  A    N  N  GGG"
  459. 5015 PRINT"==========                  T   A A   NN N G"
  460. 5020 PRINT"!        !                  T  AAAAA  N NN G  GG"
  461. 5025 PRINT"!--------!                  T A     A N  N  GGG"
  462. 5030 PRINT"!  TANG  !"
  463. 5035 PRINT"!  TANG  !     SPOCK: SPOCK TO CAPTAIN KIRK. KLINGON BATTLE"
  464. 5040 PRINT"!  TANG  !           CRUISERS SIGHTED. CONDITION RED."
  465. 5045 PRINT"!        !           APPEARANCE ON BRIDGE REQUESTED."
  466. 5050 PRINT"! ORANGE !"
  467. 5055 PRINT"! FLAVOR !     KIRK: NOT NOW SPOCK. I'M DRINKING"
  468. 5060 PRINT"!--------!           MY TANG."
  469. 5065 PRINT"=========="
  470. 5070 PRINT
  471. 5075 PRINT
  472. 5080 PRINT"    DRINK TANG ***** CAPTAIN KIRK DOES. *****"
  473. 5085 PRINT
  474. 5090 PRINT"************************************************************
  475. 5095 RETURN
  476. 6000 PRINT"************* STAR TREK IS BROUGHT TO YOU BY : *************
  477. 6005 PRINT
  478. 6010 PRINT"      ---                                FFFF  OO  RRR  DDD"
  479. 6015 PRINT"    +    +                               F    O  O R  R D  D
  480. 6020 PRINT"   +      +                              FFF  O  O RRR  D  D
  481. 6025 PRINT"  +        +                             F     OO  R  R DDD"
  482. 6030 PRINT" +   QQQQ   +                            F"
  483. 6035 PRINT" +   !  !   +"
  484. 6040 PRINT" +   !  !   +"
  485. 6045 PRINT"  +  !  !  +"
  486. 6050 PRINT"   + !  ! +"
  487. 6055 PRINT"    +!  !+"
  488. 6060 PRINT"     +--+"
  489. 6065 PRINT"     !//!    FORD HAS A BETTER IDEA."
  490. 6070 PRINT"     !//!"
  491. 6075 PRINT"     !//!                       (FORD OF PARMA, OHIO)"
  492. 6080 PRINT"     -++-"
  493. 6085 PRINT"      --"
  494. 6090 PRINT
  495. 6095 PRINT"************************************************************
  496. 6100 RETURN
  497. 7000 PRINT"************* STAR TREK IS BROUGHT TO YOU BY : *************
  498. 7005 PRINT
  499. 7010 PRINT"   IIIIIIIIII   BBBBB     MM     MM"
  500. 7015 PRINT"       II       BB   B    MMM   MMM"
  501. 7020 PRINT"       II       BB   B    MMMM MMMM"
  502. 7030 PRINT"       II       BBBBB     MM MMM MM"
  503. 7035 PRINT"       II       BB   B    MM  M  MM"
  504. 7040 PRINT"       II       BB    B   MM     MM"
  505. 7045 PRINT"   IIIIIIIIII   BBBBBB    MM     MM"
  506. 7050 PRINT
  507. 7055 PRINT"                                   NOT JUST DATA -"
  508. 7060 PRINT"                                             BUT REALITY"
  509. 7070 PRINT"************************************************************
  510. 7075 RETURN
  511. 7080 REM: GALAXY DISPLAY COMMAND '7'
  512. 7082 PRINT "GALAXY DISPLAY :"
  513. 7085 EW$="---------------------------------------------------"
  514. 7095 FOR I=1 TO 8
  515. 7100 PRINT EW$
  516. 7105 FOR J=1 TO 8
  517. 7110 PRINT " : ";:AB=G(I,J):GOSUB 7135
  518. 7115 NEXT J
  519. 7118 PRINT " :"
  520. 7120 NEXT I
  521. 7125 PRINT EW$
  522. 7130 GOTO 1290
  523. 7135 REM: ** SIMULATES PRINT USING **
  524. 7138 WE$="0":WX$="00"
  525. 7140 WY$=STR$(AB)
  526. 7145 EZ$=MID$(WY$,2)
  527. 7150 LN=LEN(EZ$)
  528. 7155 IF LN=1 THEN EZ$=WX$+EZ$
  529. 7160 IF LN=2 THEN EZ$=WE$+EZ$
  530. 7165 PRINT EZ$;
  531. 7170 RETURN
  532. 7180 END
  533.