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