Listing of file='XXXXXX.BAS;01' on disk='vmedia/taylor_2-sector.ccvf'
0 REM <0xF5> INT 2<0xFF> FOR <0xF1> <0xC9> **** 1 POKE 33221,195:POKE 33222,160:POKE 33223,130 2 POKE 33247,31 50 REM CLEAR 100 100 REM *** PROGRAM STARTS HERE *** 110 REM 120 REM ***** APRIL 1982, PREPARED FOR CUVIC ***** 130 REM 140 REM BY: Keith Ochiltree, 150 REM 1/1049 Burke Rd, 160 REM East Hawthorn, 170 REM Victoria 3123, 180 REM AUSTRALIA 190 REM 200 Y= PEEK (33209):Y= RND (- Y):IF Y= 0GOTO 200 210 CLEAR 105 220 DIM A(68) 230 DIM M$(12) 240 DEF FN R(X)= 1+ INT (X* RND (1)) 250 PLOT 12 260 M$(1)= "ALPHA 68-B" 270 M$(2)= "BETA-ALPHA 6" 280 M$(3)= "CAPELLA 5" 290 M$(4)= "RIGEL 515" 300 M$(5)= "SIRIUS 4-K" 310 M$(6)= "ANTARES DELTA 4" 320 M$(7)= "ALTAIR 2.250" 330 M$(8)= "LEO W-2" 340 M$(9)= "VEGA X-110" 350 M$(10)= "CYGNUS R1" 360 M$(11)= "ORION 2" 370 M$(0)= "CRUX 1-B" 380 C$= CHR$ (34) 390 PLOT 12 400 GOSUB 9000 410 PLOT 3,12,15 420 W1= 30 430 XX= 40 440 YY= 100 450 T= 100 460 A(65)= T 470 A(67)= T 480 K= 10 490 C= T 500 F= 1 510 A(66)= T 520 T= 0 530 S= 0 540 G1= 1 550 REM ********** REDRAW SCREEN ********** 560 C$= " " 570 PLOT 12,15 580 GOSUB 11130 590 PLOT 29,19 600 PLOT 3,20,1:PRINT "=== SECTOR SCANNER ===" 610 PLOT 3,0,15:PRINT "STAR DATE" 620 PLOT 3,48,9:PRINT "ENEMY LEFT" 630 PLOT 3,48,7:PRINT "ENEMY KILLED" 640 P= 0:GOSUB 10840 650 IF F= 0GOTO 990 660 V= 0 670 FOR J= 1TO 64 680 A(J)= 0 690 NEXT J 700 FOR J= 1TO 3+ FN R(8) 710 Z= FN R(64) 720 IF (A(Z)> 0)OR (Z= 63)GOTO 710 730 B= FN R(2) 740 A(Z)= 3 750 IF B= 2GOTO 790 760 A(Z)= 2 770 V= V+ 1 780 IF GG- V= 0GOTO 800 790 NEXT J 800 J= FN R(3) 810 IF J< > 3GOTO 890 820 B= Q 830 Q= 1+ FN R(62) 840 GOSUB 5000 850 J= Q 860 Q= B 870 IF (X= 41)OR (X= 83)GOTO 820 880 A(J)= 0- FN R(3) 890 Q= FN R(32) 900 IF A(Q)> 0GOTO 890 910 GOSUB 1340 920 A(Q)= 1 930 S5= FN R(32) 940 IF S5> 5GOTO 960 950 I= FN R(32):A(I)= 5 960 J= FN R(5) 970 IF J= < 2GOTO 990 980 A(63)= 4 990 FOR SS= 4TO 20STEP 2 1000 PLOT 3,20,SS 1010 PRINT " " 1020 NEXT SS 1030 J= Q 1040 FOR Q= 1TO 64 1050 GOSUB 5000 1060 PLOT 3,X,Y 1070 IF A(Q)= 0 THEN PRINT "d"; 1080 IF A(Q)= 1 THEN PRINT "E"; 1090 IF A(Q)= 2 THEN PRINT "K"; 1100 IF A(Q)= 3 THEN PRINT "*"; 1110 IF A(Q)= 4 THEN PRINT "B" 1120 IF A(Q)= 5 THEN PRINT " "; 1130 IF A(Q)< 0 THEN PRINT " ?"; 1140 TN= 7:FQ= 1:GOSUB 7000 1150 NEXT Q:Q= J 1160 PLOT 3,10,21:PRINT " " 1170 PLOT 3,10,22:PRINT " " 1180 IF (E= 4)OR (F= 0)GOTO 1550 1190 PLOT 29,23 1200 A(65)= 100 1210 A(66)= 100 1220 A(67)= 100 1230 K= 10 1240 C= 100 1250 L= 0 1260 B9= 0 1270 XE= 0 1280 XC= 0 1290 XB= 0 1300 XA= 0 1310 XD= 0 1320 GOSUB 11130 1330 GOTO 1680 1340 GOSUB 5000 1350 M= X 1360 N= Y 1370 O= A 1380 RETURN 1390 PLOT 3,28,21,29,17,31 1400 PRINT "COLLISION" 1410 PLOT 30,23,29,17,14 1420 PLOT 3,20,29 1430 PRINT "***********************" 1440 GOSUB 7070 1450 PLOT 3,20,29 1460 PLOT 30,16 1470 PRINT " " 1480 PLOT 15 1490 RETURN 1500 PLOT 12,3,23,11 1510 PRINT "SHIP EXPLODING":GOSUB 6750:GOTO 16080 1520 PLOT 12,14,3,22,14 1530 PRINT "Y O U W O N":GOSUB 6750:GOTO 250 1540 REM *************** CONTROL ROUTINE *************** 1550 IF A(Q+ 1)= 4GOTO 1570 1560 IF A(Q- 1)< > 4GOTO 1590 1570 GOSUB 11130 1580 GOTO 1200 1590 IF Q> 56GOTO 1680 1600 IF A(Q+ 8)< > 4GOTO 1630 1610 GOSUB 11130 1620 GOTO 1200 1630 IF Q< 8GOTO 1680 1640 IF A(Q- 8)< > 4GOTO 1680 1650 GOSUB 11130 1660 GOTO 1200 1670 REM *************** CONTROL ROUTINE *************** 1680 X= M:Y= N:A= 0 1690 IF C< = 10AND C> 0AND B9> = 1GOTO 1710 1700 GOTO 1730 1710 GOSUB 8010 1720 GOTO 560 1730 IF C> 0GOTO 1780 1740 IF B9> = 2GOTO 1780 1750 C= 0 1760 GOSUB 8010 1770 GOTO 560 1780 IF A(65)= < 0GOTO 2300 1790 IF GG= 0 GOTO 1520 1800 PLOT 3,60,7 1810 XK= S 1820 GOSUB 14000 1830 PRINT XK$ 1840 PLOT 3,60,9 1850 XK= GG 1860 GOSUB 14000 1870 PRINT XK$ 1880 IF L> 0GOTO 1960 1890 IF A(65)> 25GOTO 1960 1900 PLOT 3,21,21:PRINT "IMPULSE POWER LOW" 1910 PLOT 3,21,21:PRINT "YOU HAVE";A(65);"% LEFT" 1920 L= 1 1930 GOSUB 1410 1940 F= 0 1950 GOTO 1550 1960 GOSUB 11070 1970 PLOT 29,19 1980 PLOT 3,19,29:PRINT "INSTR. CODE" 1990 PLOT 3,49,1:PRINT "CODE 1-" 2000 PLOT 3,49,3:PRINT "CODE 2-" 2010 PLOT 3,49,5:PRINT "CODE 3-" 2020 PLOT 3,56,1:PRINT " " 2030 PLOT 3,56,3:PRINT " " 2040 PLOT 3,56,5:PRINT " " 2050 X2= 101 2060 P= 1 2070 GOSUB 10000 2080 IF E> 5OR F> 4OR G> 7GOTO 1960 2090 IF E= 5GOTO 560 2100 IF A(66)> 0 GOTO 2180 2110 IF V< > 0GOTO 2180 2120 IF A(63)= 4 GOTO 2180 2130 PLOT 12,3,11,15 2140 PRINT "NO WARP POWER WITH NO KLINGONS THIS SECTOR" 2150 PLOT 3,3,17:PRINT "YOU'RE FINISHED!" 2160 GOSUB 6750 2170 GOTO 250 2180 IF E< > 1 GOTO 2260 2190 IF F< = 2 GOTO 2260 2200 PLOT 3,10,21 2210 PRINT "YOU CAN'T FIRE TORPEDOS LEFT OR RIGHT!" 2220 GOSUB 6750 2230 GOSUB 11070 2240 P= 0 2250 GOTO 640 2260 IF E= 4GOTO 2290 2270 C= C- 3.24* V 2280 GOSUB 11410 2290 ON EGOTO 2500,2400,2300,2560 2300 IF A(65)> 0 GOTO 2370 2310 PLOT 12,3,11,15 2320 PRINT "YOU'RE OUT OF IMPULSE POWER AND UNABLE TO MOVE!" 2330 GOSUB 15000 2340 GOSUB 6750 2350 F= 0 2360 GOTO 1500 2370 A(65)= A(65)- 6* G 2380 GOSUB 11720 2390 ON FGOTO 2740,2780,2820,2860 2400 IF G> 5 THEN G= 5 2410 IF C> 0GOTO 2460 2420 PLOT 12,3,15,15 2430 PRINT "SHIELDS ARE OUT OF POWER" 2440 GOSUB 15000 2450 GOTO 1500 2460 IF A(67)< G* 4OR A(67)< = 0GOTO 1550 2470 A(67)= A(67)- 4* G 2480 GOSUB 11520 2490 ON FGOTO 3110,3260,3410,3560 2500 IF K= 0GOTO 1550 2510 IF C< = 0GOTO 2410 2520 K= K- 1 2530 GOSUB 11340 2540 ON FGOTO 4140,4340 2550 REM ********** TRANSFER TO ANOTHER WARP ******* 2560 IF A(66)> 0GOTO 2630 2570 PLOT 12 2580 PLOT 3,15,15:PRINT "NO WARP POWER!" 2590 GOSUB 6750 2600 PLOT 12 2610 F= 0 2620 GOTO 560 2630 PLOT 3,19,29:PRINT C$ 2640 PLOT 3,20,21:PRINT "YOU'RE NOW AT WARP"; 2650 PP= FN R(10) 2660 PRINT PP 2670 PRINT TAB( 20)"ENTERING ";M$(PP+ 1) 2680 A(66)= A(66)- PP 2690 GOSUB 11620 2700 T= T+ PP/ 2.5 2710 GOSUB 10850 2720 GOTO 660 2730 REM **************** MOVE UNDER IMPULSE POWER ********* 2740 FOR J= Q- 8TO Q- 8* GSTEP - 8 2750 GOSUB 2900 2760 NEXT J 2770 GOTO 1550 2780 FOR J= Q+ 8TO Q+ 8* GSTEP 8 2790 GOSUB 2900 2800 NEXT J 2810 GOTO 1550 2820 FOR J= Q+ 1TO Q+ G 2830 GOSUB 2900 2840 NEXT J 2850 GOTO 1550 2860 FOR J= Q- 1TO Q- GSTEP - 1 2870 GOSUB 2900 2880 NEXT J 2890 GOTO 1550 2900 IF A(J)= 0GOTO 2950 2910 GOSUB 1390 2920 PLOT 3,28,21:PRINT C$ 2930 J= J- 1 2940 GOTO 1550 2950 B= Q 2960 Q= J 2970 GOSUB 5000 2980 TN= 5 2990 FQ= 5 3000 GOSUB 7000 3010 PLOT 3,X,Y:PRINT "E" 3020 PLOT 3,M,N:PRINT "d" 3030 Q= B 3040 GOSUB 1350 3050 A(Q)= 0 3060 Q= J 3070 A(Q)= 1 3080 RETURN 3090 REM *************** PHASER BLASTS OUT **************** 3100 REM **** PHASER UP ****** 3110 FOR B= Q- 8TO Q= 8* GSTEP - 8 3120 IF A(B)= 0GOTO 3150 3130 G= (Q- B)/ 8 3140 GOTO 3160 3150 NEXT B 3160 N= Y 3170 FOR J= Y- 2TO Y- 2* GSTEP - 1 3180 PLOT 3,X,J:PRINT "^ " 3190 NEXT J 3200 Z= Q- G* 8 3210 F= (Y- 2) 3220 G= (Y- 2* G) 3230 H= - 1 3240 GOTO 3700 3250 REM ****** PHASER DOWN ******* 3260 FOR B= (Q+ 8)TO (Q+ 8* G)STEP 8 3270 IF A(B)= 0GOTO 3300 3280 G= (B- Q)/ 8 3290 GOTO 3310 3300 NEXT B 3310 N= Y 3320 FOR J= Y+ 2TO Y+ 2* G 3330 PLOT 3,X,J:PRINT "h" 3340 NEXT J 3350 Z= Q+ G* 8 3360 F= Y+ 2 3370 G= Y+ 2* G 3380 H= 1 3390 GOTO 3700 3400 REM ********** PHASER RIGHT *********** 3410 FOR B= Q+ 1TO Q+ G 3420 IF A(B)= 0GOTO 3450 3430 G= B- Q 3440 GOTO 3460 3450 NEXT B 3460 M= X 3470 FOR J= X+ 3TO X+ 3* G 3480 PLOT 3,J,Y:PRINT ">" 3490 NEXT J 3500 Z= Q+ G 3510 F= X+ 3 3520 G= X+ 3* G 3530 H= 1 3540 GOTO 3900 3550 REM ********* PHASER LEFT *********** 3560 FOR B= Q- 1TO Q- GSTEP - 1 3570 IF A(B)= 0GOTO 3600 3580 G= Q- B 3590 GOTO 3610 3600 NEXT B 3610 M= X 3620 FOR J= X- 3TO X- 3* GSTEP - 1 3630 PLOT 3,J,Y:PRINT "<" 3640 NEXT J 3650 Z= Q- G 3660 F= X- 3 3670 G= X- 3* G 3680 H= - 1 3690 GOTO 3900 3700 E= Z 3710 IF A(Z)< > 2GOTO 3770 3720 A(Z)= 0 3730 V= V- 1 3740 S= S+ 1 3750 GG= GG- 1 3760 GOSUB 7130 3770 J= 1 3780 FOR Z= FTO GSTEP H 3790 J= J+ 1 3800 IF J= 2GOTO 3830 3810 PLOT 3,X,Z:PRINT " " 3820 GOTO 3880 3830 PLOT 3,X,Z:PRINT "d" 3840 J= 0 3850 TN= 5 3860 FQ= 6 3870 GOSUB 7000 3880 NEXT Z 3890 GOTO 4100 3900 E= Z 3910 IF A(Z)< > 2GOTO 3970 3920 A(Z)= 0 3930 V= V- 1 3940 S= S+ 1 3950 GG= GG- 1 3960 GOSUB 7130 3970 J= 2 3980 IF F= M- 4THEN J= 3 3990 FOR Z= FTO GSTEP H 4000 J= J+ 1 4010 IF J= 3GOTO 4040 4020 PLOT 3,Z,Y:PRINT " " 4030 GOTO 4090 4040 PLOT 3,Z,Y:PRINT "d" 4050 J= 0 4060 TN= 5 4070 FQ= 6 4080 GOSUB 7000 4090 NEXT Z 4100 IF A(E)< 0 THEN GOSUB 4810 4110 X= M 4120 GOTO 1550 4130 REM *************** TORPEDO UP THE TUBE ************* 4140 FOR B= Q- 8TO Q- 8* GSTEP - 8 4150 IF A(B)= 0GOTO 4180 4160 G= (Q- B)/ 8 4170 GOTO 4190 4180 NEXT B 4190 N= Y 4200 FOR J= Y- 2TO Y- 2* GSTEP - 1 4210 TN= 2 4220 FQ= 2 4230 GOSUB 7000 4240 PLOT 3,X- 1,J+ 1:PRINT " " 4250 PLOT 3,X+ 1,J+ 1:PRINT " " 4260 PLOT 3,X- 1,J:PRINT "y" 4270 PLOT 3,X+ 1,J:PRINT "y" 4280 NEXT J 4290 J= J+ 1 4300 Z= Q- (G* 8) 4310 GOSUB 4540 4320 GOTO 4520 4330 REM ****************** DROP A TORPEDO ************ 4340 FOR B= Q+ 8TO Q+ 8* GSTEP 8 4350 IF A(B)= 0GOTO 4380 4360 G= (B- Q)/ 8 4370 GOTO 4390 4380 NEXT B 4390 N= Y 4400 FOR J= Y+ 2TO Y+ 2* GSTEP 1 4410 TN= 2 4420 FQ= 2 4430 GOSUB 7000 4440 PLOT 3,X- 1,J- 1:PRINT " " 4450 PLOT 3,X+ 1,J- 1:PRINT " " 4460 PLOT 3,X- 1,J:PRINT "y" 4470 PLOT 3,X+ 1,J:PRINT "y" 4480 NEXT J 4490 J= J- 1 4500 Z= Q+ (G* 8) 4510 GOSUB 4540 4520 Y= N 4530 GOTO 1550 4540 PLOT 3,X- 1,J:PRINT " " 4550 PLOT 3,X+ 1,J:PRINT " " 4560 PLOT 3,X,J:PRINT "d" 4570 IF A(Z)< > 2GOTO 4620 4580 V= V- 1 4590 S= S+ 1 4600 GG= GG- 1 4610 GOSUB 7130 4620 A(Z)= 0 4630 RETURN 4800 REM ******* IS IT A STAR OR A BASE ******* 4810 Z= E 4820 IF A(Z)= - 1GOTO 1500 4830 B= Q 4835 Q= Z 4840 GOSUB 5000 4850 PLOT 3,X,Y 4860 IF A(Z)= - 2GOTO 4910 4870 PRINT "B" 4880 Q= B 4890 A(Z)= 4 4900 RETURN 4910 PRINT "*" 4920 Q= B 4930 A(Z)= 3 4940 RETURN 5000 Y= 4+ 2* INT (Q/ 8.1) 5010 X= 17+ 3* (Q- (8* (Y- 4)/ 2)) 5020 RETURN 5030 END 6000 POKE 33278,0 6010 E= PEEK (33278) 6020 IF E= 0GOTO 6010 6030 E$= CHR$ (E) 6040 IF E$< > "Y"AND E$< > "N"GOTO 6000 6050 IF E$= "Y" GOTO 30000 6060 RETURN 6500 REM ********** PRINT SCAN OF STATUS ******** 6510 R= 1 6520 PLOT 3,20,4,17 6530 PRINT "STAR BASE IN THIS SECTOR"P 6540 RETURN 6550 PLOT 3,20,6,17 6560 PRINT "NO STAR BASE IN THIS QUADRANT" 6570 PLOT 3,16,8,19 6580 PRINT "SHIELD POWER IS ";C;" %" 6590 IF C> 10GOTO 6680 6600 B9= B9+ 1 6610 PRINT TAB( 20)"DANGER! LOW SHIELD POWER" 6620 PLOT 3,20,10,17 6630 PRINT "+++ LOOK FOR A STAR BASE +++" 6640 IF C> 8GOTO 6680 6650 B9= 2 6660 PRINT TAB( 7)" D O N O T F I R E AT ANYTHING OR YOU'LL" 6670 PRINT TAB( 20)" !! EXPLODE !!" 6680 GOSUB 6750 6690 PLOT 12,14,19 6700 PRINT TAB( 17)"YOU HAVE ";A(67);" % TORPEDOES" 6710 PRINT :PRINT TAB( 17)"YOU HAVE "A(67)" % PHASERS" 6720 PRINT :PRINT TAB( 17)"YOU HAVE "A(66)" % WARP" 6730 PRINT :PRINT TAB( 17)"YOU HAVE "A(65)" % IMPULSE" 6740 PRINT :PRINT :PRINT TAB( 17)"YOU ARE IN ";M$(PP):F= 0 6750 FOR P= 1TO 1000 6760 NEXT P 6770 RETURN 7000 REM **************** MAKE A NOISE ************** 7010 PLOT 27,18,TN,27,13 7020 FOR NT= 1TO FQ 7030 PRINT "A" 7040 NEXT NT 7050 POKE 33265,0 7060 RETURN 7070 REM ********* DONKEY BRAY ********* 7080 FOR RP= 1TO 10 7090 TN= 7:FQ= 50:GOSUB 7000 7100 TN= 5:FQ= 5:GOSUB 7000 7110 NEXT RP 7120 RETURN 7130 REM ********* BLOWUP A KLINGON *********** 7140 TN= 7 7150 FQ= 70 7160 GOSUB 7000 7170 RETURN 8000 REM *********** CHECK FOR SCAN PRINTOUT ********* 8010 PLOT 12 8020 R= 0 8030 FOR P= 1TO 64 8040 IF A(P)= 4THEN GOSUB 6510 8050 NEXT P 8060 IF R= 0GOTO 6550 8070 GOTO 6570 9000 REM *********** START UP GAME ************** 9010 PLOT 12,3,25,13,14,29,17 9020 PRINT "SPACE TREK II" 9030 PLOT 15,29,23,3,12,15 9040 PRINT "0 = QUIT 1 = EASY 2 = HARD 3 = VERY HARD" 9050 PLOT 3,20,18:PRINT "WHAT LEVEL OF PLAY ? " 9060 POKE 33278,0 9070 E= PEEK (33278) 9080 IF E= 0GOTO 9070 9090 IF E< 48OR E> 52GOTO 9070 9100 E= E- 48 9110 IF E> 0GOTO 9130 9120 LOAD "MENU",RUN 9130 GG= FN R(5)+ 10+ E* 5 9140 PLOT 12 9150 RETURN 10000 FOR I= 1TO 20:EE= PEEK (33278) 10010 IF EE> 0GOTO 10060 10020 NEXT I 10030 G= .0001 10040 GOSUB 10850 10050 GOTO 10000 10060 POKE 33278,0 10070 E$= CHR$ (EE) 10080 IF P= 0THEN RETURN 10090 PLOT 3,56,1:PRINT E$ 10100 X2= 101 10110 IF E$< > "S"GOTO 10140 10120 E= 5 10130 GOTO 8010 10140 IF E$< > "W"GOTO 10170 10150 E= 4 10160 G= 0:GOTO 10280 10170 IF E$< > "T"GOTO 10200 10180 E= 1 10190 GOTO 10310 10200 IF E$< > "P"GOTO 10230 10210 E= 2 10220 GOTO 10340 10230 IF E$< > "I"GOTO 10260 10240 E= 3 10250 GOTO 10620 10260 E= 6 10270 RETURN 10280 PLOT 3,4,21:PRINT C$ 10290 F= 1 10300 GOTO 10840 10310 GOSUB 11040 10320 PLOT 3,14,29:PRINT "FIRE TORPEDO UP OR DOWN?" 10330 GOTO 10360 10340 GOSUB 11040 10350 PLOT 3,14,29:PRINT "PHASERS ARMED. WHAT DIRECTION?" 10360 P= 0 10370 GOSUB 10000 10380 PLOT 3,14,29:PRINT C$ 10390 IF E$< > "U"GOTO 10420 10400 F= 1 10410 GOTO 10600 10420 IF E$< > "L"GOTO 10450 10430 F= 4 10440 GOTO 10600 10450 IF E$< > "R"GOTO 10480 10460 F= 3 10470 GOTO 10600 10480 IF E$< > "D"GOTO 10510 10490 F= 2 10500 GOTO 10600 10510 PLOT 3,56,3:PRINT E$ 10520 IF E$= "0"GOTO 10790 10530 PLOT 3,49,17:PRINT "WRONG" 10540 PLOT 3,48,19:PRINT "COMMAND" 10550 GOSUB 1410 10560 E$= "0" 10570 PLOT 3,18,17:PRINT C$ 10580 PLOT 3,18,19:PRINT C$ 10590 GOTO 10790 10600 PLOT 3,56,3:PRINT E$ 10610 GOTO 10670 10620 GOSUB 11040 10630 F= 5 10640 GOSUB 10840 10650 PLOT 3,14,29:PRINT "YOU'RE ON IMPULSE POWER. WHICH DIR?" 10660 GOTO 10360 10670 PLOT 3,14,21:PRINT C$ 10680 PLOT 3,21,29:PRINT "HOW FAR? 1 - 7" 10690 X2= 101 10700 P= 0 10710 GOSUB 10000 10720 IF E$= "1"THEN G= 1 10730 IF E$= "2"THEN G= 2 10740 IF E$= "3"THEN G= 3 10750 IF E$= "4"THEN G= 4 10760 IF E$= "5"THEN G= 5 10770 IF E$= "6"THEN G= 6 10780 IF E$= "7"THEN G= 7 10790 IF E$< > "0"GOTO 10820 10800 E= 6 10810 RETURN 10820 PLOT 3,56,5:PRINT E$ 10830 PLOT 3,4,29:PRINT C$ 10840 IF F= 0THEN 10880 10850 T= T+ ((RND (1))/ (G+ 1))/ 20 10860 X2= X2- 1 10870 IF X2= < 0THEN GOSUB 11000 10880 PLOT 3,0,17:PRINT T 10890 PLOT 3,0,19:PRINT "YOUR TIME:";X2 10900 PLOT 3,48,19:PRINT "S.D.LEFT"; W1- T 10910 REM PLOT29,16,3,XX,YY,XX-3,YY,29,23 10920 REM PLOT2,XX,YY,XX+1,YY,255:XX=XX+4:IFXX<83GOTO10118 10930 REM PLOT29,16,2,80,28,81,28,255,29,23 10940 XX= 40 10950 IF T> = 30THEN 16000 10960 TN= 7 10970 FQ= 1 10980 GOSUB 7000 10990 RETURN 11000 A(65)= A(65)- 10 11010 GOSUB 11720 11020 X2= 101 11030 RETURN 11040 PLOT 3,14,21:PRINT C$ 11050 PLOT 3,19,21:PRINT "DIR. :U,D,R,L <ENTER ONE>" 11060 PLOT 3,14,22:PRINT C$:RETURN 11070 PLOT 3,4,24,29,19 11080 PRINT "INSTR. CODES: T=TORPEDO P=PHASER I=IMPULSE W=WARP" 11090 PRINT TAB( 18)"S=SCANNER READOUT" 11100 PLOT 29,23 11110 RETURN 11120 RETURN 11130 PLOT 3,10,1:PRINT "100 %" 11140 PLOT 3,11,6:PRINT "50 %" 11150 PLOT 3,12,11:PRINT "0 %"; 11160 FOR Y= 11TO 0STEP - 1 11170 IF Y< = XA GOTO 11190 11180 PLOT 3,1,Y,30,22:PRINT " " 11190 IF Y< = XB GOTO 11210 11200 PLOT 3,3,Y,30,17:PRINT " " 11210 IF Y< = XC GOTO 11230 11220 PLOT 3,5,Y,30,19:PRINT " " 11230 IF Y< = XD GOTO 11250 11240 PLOT 3,7,Y,30,20:PRINT " " 11250 IF Y< = XE GOTO 11300 11260 PLOT 3,9,Y,30,18:PRINT " " 11270 TN= 4 11280 FQ= 10 11290 GOSUB 7000 11300 NEXT Y 11310 PLOT 30,16 11320 PLOT 3,1,13:PRINT "I W P T S" 11330 RETURN 11340 PLOT 3,7,XD:PRINT " " 11350 XD= XD+ 1 11360 IF XD< 10GOTO 11410 11370 PLOT 3,7,10:PRINT " " 11380 PLOT 3,7,11:PRINT " " 11390 XD= 11 11400 RETURN 11410 IF C< 90GOTO 11470 11420 FOR P1= 0TO 1 11430 PLOT 3,9,P1:PRINT " " 11440 NEXT P1 11450 XE= 11 11460 RETURN 11470 GOSUB 11820 11480 FOR P1= 0TO XE 11490 PLOT 3,9,P1:PRINT " " 11500 NEXT P1 11510 RETURN 11520 IF A(67)< 90 GOTO 11570 11530 PLOT 3,5,0:PRINT " " 11540 PLOT 3,5,1:PRINT " " 11550 XC= 1 11560 RETURN 11570 GOSUB 12010 11580 FOR P1= 0TO XC 11590 PLOT 3,5,P1:PRINT " " 11600 NEXT P1 11610 RETURN 11620 IF A(66)< 90 GOTO 11670 11630 PLOT 3,3,0:PRINT " " 11640 PLOT 3,3,1:PRINT " " 11650 XB= 1 11660 RETURN 11670 GOSUB 12200 11680 FOR P1= 0TO XB 11690 PLOT 3,3,P1:PRINT " " 11700 NEXT P1 11710 RETURN 11720 IF A(65)< 90 GOTO 11770 11730 PLOT 3,1,0:PRINT " " 11740 PLOT 3,1,1:PRINT " " 11750 XA= 1 11760 RETURN 11770 GOSUB 12390 11780 FOR P1= 0TO XA 11790 PLOT 3,1,P1:PRINT " " 11800 NEXT P1 11810 RETURN 11820 IF C< 80GOTO 11840 11830 XE= 2:RETURN 11840 IF C< 70GOTO 11860 11850 XE= 3:RETURN 11860 IF C< 60GOTO 11880 11870 XE= 4:RETURN 11880 IF C< 50GOTO 11900 11890 XE= 5:RETURN 11900 IF C< 40GOTO 11920 11910 XE= 6:RETURN 11920 IF C< 30GOTO 11940 11930 XE= 7:RETURN 11940 IF C< 20GOTO 11960 11950 XE= 8:RETURN 11960 IF C< 10GOTO 11980 11970 XE= 9:RETURN 11980 IF C< 8GOTO 12000 11990 XE= 10:RETURN 12000 XE= 11:RETURN 12010 IF A(67)< 80GOTO 12030 12020 XC= 2:RETURN 12030 IF A(67)< 70GOTO 12050 12040 XC= 3:RETURN 12050 IF A(67)< 60GOTO 12070 12060 XC= 4:RETURN 12070 IF A(67)< 50GOTO 12090 12080 XC= 5:RETURN 12090 IF A(67)< 40GOTO 12110 12100 XC= 6:RETURN 12110 IF A(67)< 30GOTO 12130 12120 XC= 7:RETURN 12130 IF A(67)< 20GOTO 12150 12140 XC= 8:RETURN 12150 IF A(67)< 10GOTO 12170 12160 XC= 9:RETURN 12170 IF A(67)< 8GOTO 12190 12180 XC= 10:RETURN 12190 XC= 11:RETURN 12200 IF A(66)< 80GOTO 12220 12210 XB= 2:RETURN 12220 IF A(66)< 70GOTO 12240 12230 XB= 3:RETURN 12240 IF A(66)< 60GOTO 12260 12250 XB= 4:RETURN 12260 IF A(66)< 50GOTO 12280 12270 XB= 5:RETURN 12280 IF A(66)< 40GOTO 12300 12290 XB= 6:RETURN 12300 IF A(66)< 30GOTO 12320 12310 XB= 7:RETURN 12320 IF A(66)< 20GOTO 12340 12330 XB= 8:RETURN 12340 IF A(66)< 10GOTO 12360 12350 XB= 9:RETURN 12360 IF A(66)< 8GOTO 12380 12370 XB= 10:RETURN 12380 XB= 11:RETURN 12390 IF A(65)< 80GOTO 12410 12400 XA= 2:RETURN 12410 IF A(65)< 70GOTO 12430 12420 XA= 3:RETURN 12430 IF A(65)< 60GOTO 12450 12440 XA= 4:RETURN 12450 IF A(65)< 50GOTO 12470 12460 XA= 5:RETURN 12470 IF A(65)< 40GOTO 12490 12480 XA= 6:RETURN 12490 IF A(65)< 30GOTO 12510 12500 XA= 7:RETURN 12510 IF A(65)< 20GOTO 12530 12520 XA= 8:RETURN 12530 IF A(65)< 10GOTO 12550 12540 XA= 9:RETURN 12550 IF A(65)< 8GOTO 12570 12560 XA= 10:RETURN 12570 XA= 11:RETURN 14000 XK$= STR$ (XK) 14010 IF LEN (XK$)= 2 THEN XK$= " "+ XK$ 14020 RETURN 15000 P= FN R(4):ON PGOTO 15010,15020,15030,15050 15010 PRINT TAB( 10)"YOU'RE BEING HIT BY PHASERS!":GOTO 6750 15020 PRINT TAB( 10)"YOU'RE HIT BY PHOTON TORPEDOES!":GOTO 6750 15030 PRINT TAB( 10)"YOU'RE BADLY DAMAGED AND KLINGONS ARE ABOUT 15040 PRINT TAB( 15)"BOARD.... SO YOU SELF-DESTRUCT":GOTO 6750 15050 PRINT TAB( 10)"THE ANTI-MATTER REACTOR WENT SUPER-CRITICAL AND" 15060 PRINT TAB( 15)"THERE IS NO WAY TO STOP THE BLAST" 15070 GOTO 6750 16000 PLOT 12,14,3,0,2 16010 PRINT "YOU REALLY LOST THE GAME" 16020 PRINT :PRINT "YOU RAN OUT OF TIME!" 16030 PRINT :PRINT "THERE WERE ";GG;" KLINGONS LEFT" 16040 PRINT :PRINT "YOU ARE SURROUNDED" 16050 PRINT "..................AND FIRED ON" 16060 GOSUB 6750 16070 GOTO 1500 16080 GOTO 25060 16090 READ A$ 16100 IF A$< > "END"GOTO 16080 16110 PLOT 12,29,17,14,3,30,15 16120 PRINT "0-=" 16130 PLOT 15 16140 READ X,Y,X 16150 IF X> = 0GOTO 16140 16160 PLOT 12 16170 FOR C= 1TO 292 16180 READ X,Y 16190 PLOT 2,X,10+ Y* 2,X,11+ Y* 2,255 16200 NEXT C 16210 GOSUB 6750 16220 GOTO 250 20000 POKE 33278,0 20010 Z= PEEK (33278) 20020 IF Z= 0GOTO 20010 20030 Z9$= CHR$ (Z) 20040 RETURN 20050 POKE 33278,0 20060 Z= PEEK (33278) 20070 IF Z= 0GOTO 20060 20080 Z9$= CHR$ (Z) 20090 E= VAL (Z9$) 20100 IF E< 0OR E> 3THEN 20050 20110 RETURN 25000 POKE 33265,14 25010 POKE 33289,128 25020 LIST 25030 POKE 33265,0 25040 POKE 33289,64 25050 END 25060 PLOT 29,17 25070 X= 64 25080 Y= 64 25090 PLOT 12 25100 FOR A= 2 TO 62 STEP 2 25110 TN= 1 25120 FQ= 1 25130 GOSUB 7000 25140 PLOT 2,X,Y,X,Y+ A,X,Y- A,255 25150 PLOT 2,X,Y+ A/ 2,X,Y- A/ 2,255 25160 PLOT 2,X+ A/ 2,Y,X+ A/ 2,Y+ A,X+ A/ 2,Y- A,255 25170 PLOT 2,X+ A,Y+ A,X+ A,Y,X+ A,Y- A,255 25180 PLOT 2,X- A/ 2,Y+ A,X- A/ 2,Y,X- A/ 2,Y- A,255 25190 PLOT 2,X- A,Y+ A,X- A,Y,X- A,Y- A,255 25200 NEXT A 25210 GOTO 250