Listing of file='STREK2.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 3 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 DEF FN R(X)= 1+ INT (X* RND (1)) 230 GOSUB 2000 240 FOR TL= 1TO 1000:NEXT TL 250 PLOT 12 260 C$= CHR$ (34):PLOT 12:PLOT 3,12,15 270 PRINT "DO YOU WANT INSTRUCTIONS? (Y/N) ":GOSUB 500 280 LOAD "XXXXXX",RUN 500 POKE 33278,0 510 E= PEEK (33278) 520 IF E= 0GOTO 510 530 E$= CHR$ (E) 540 IF E$< > "Y"AND E$< > "N"GOTO 500 550 IF E$= "Y" GOTO 1000 560 RETURN 570 FOR TL= 1TO 1000:NEXT TL 580 RETURN 1000 PLOT 12,3,1,6,15,22: 1010 PRINT TAB( 5)"YOU'RE COMMANDING THE STAR SHIP "; 1020 PRINT C$;"ENTERPRISE";C$ 1030 PRINT TAB( 17)"YOU JUST RECEIVED A CODED" 1040 PRINT :PRINT TAB( 15),C$;" A-1 PRIORITY - RED - ";C$ 1050 PRINT TAB( 20)"RADIO SIGNAL.":PLOT 10,10,10,10,10,10,10 1060 PRINT TAB( 15)"PRESS ANY KEY TO DECODE IT.":GOSUB 3000 1070 PLOT 12,14,31,3,18,15 1080 PRINT "COMPUTER NOW DECODING . . .":GOSUB 570 1090 PLOT 3,14,15 1100 PRINT "MAIN COMPUTER HAS REPORT TRANSLATED" 1110 GOSUB 570:PLOT 12,15 1120 PLOT 14,29,22,3,1,8:PRINT "CAPTAIN:"; 1130 PLOT 15,29,23 1140 PRINT " WE HAVE JUST RECEIVED WORD THAT 50 ";C$;"KLINGON";C$ 1150 PRINT "BATTLE CRUISERS HAVE CROSSED OVER THE 381-XW-341.115" 1160 PRINT "PARALLEL WITH GREAT LOSS TO THE UNSUSPECTING INNER PLANETS." 1170 PRINT :PRINT TAB( 10)" -- NO KNOWN SURVIVORS -- ":PRINT 1180 PRINT "YOUR ORDERS: USE ANY AND ALL ACTIONS YOU NEED TO SAVE THE" 1190 PRINT "FEDERATION -- UNTIL HELP ARRIVES YOU AND YOUR CREW ARE" 1200 PRINT "OUR ONLY PROTECTION!":PRINT 1210 PRINT "WE HAVE REPORTS FROM SIGNUS ALPHA 5 THAT THERE ARE NOW ONLY" 1220 PRINT GG" ENEMY SHIPS . . . . WE HAVE STAR BASES IN OPERATION FOR" 1230 PRINT "YOU TO REPLACE FUEL AND WEAPONS.":PRINT 1240 PRINT "JUST REMEMBER THAT IF YOU'RE L O W ON SHIELD POWER . . .":GOSUB 1640 1250 PLOT 3,2,8 1260 PRINT "...YOU WILL BE DESTROYED. IF YOU USE UP ALL IMPULSE" 1270 PRINT "POWER YOU ARE LOST. THE COMPUTER WILL HELP YOU AS MUCH" 1280 PRINT "AS POSSICLE - BUT IT WON'T CORRECT YOUR MISTAKES." 1290 PRINT :PRINT "YOU HAVE FULL USE OF YOUR PHOTON TORPEDOES AND PHASERS. USE" 1300 PRINT "YOUR IMPULSE ENGINES ONLY WITHIN A SECTOR. TO LEAVE A" 1310 PRINT "SECTOR * USE YOUR WARP ENGINES * " 1320 PRINT :PRINT "KEEP YOUR EYES OPEN AND HANG IN THERE. YOUR COMPUTER WILL KEEP" 1330 PRINT "A COUNT OF HITS AND WILL MET YOU KNOW WHEN YOUR SHIELDS," 1340 PRINT "IMPULSE AND WARP POWER ARE LOW." 1350 PRINT :PRINT "THERE IS A SMALL CHANCE YOUR SHIP WILL NOT SHOW: JUST PRESS 'W'":GOSUB 1640 1360 PLOT 3,1,8:PRINT "WE HAVE ALSO SET EMERGENCY ROBOT STATIONS IN SPACE,BUT" 1370 PRINT "THE KLINGONS HAVE PUT SOME DECOYS OUT, SO YOU WILL SEE" 1380 PRINT "A ' ?' IN YOUR SCANNER.":PRINT :PRINT "THE ' ?' MAY BE OURS OR THEIRS:" 1390 PRINT :PRINT " IF YOU NEED TO TAKE A CHANCE, PULL UP NEXT TO IT AND HIT" 1400 PRINT "IT WITH YOUR PHASERS. OURS WILL CHANGE INTO A BASE STATION," 1410 PRINT "AND THEIRS WILL EITHER DESTROY YOU OR CHANGE TO A STAR." 1420 PRINT :PRINT "NEVER FIRE ON ANYTHING WITH LOW SHIELDS!":PRINT 1430 PRINT "IF YOU ENTER A WRONG COMMAND CODE, JUST TYPE '0'.":GOSUB 1500 1440 PRINT :PRINT "BE SURE TO USE YOUR SCANNER READOUT COMPUTER. IT WILL TELL YOU" 1450 PRINT "THE STATUS OF EVERYTHING.":PRINT 1460 PRINT "YOU GET 30 STAR DATES TO DESTROY ALL KLINGONS.":PRINT :GOSUB 1550 1470 PLOT 3,16,28 1480 PRINT "PRESS ANY KEY TO START GAME." 1490 GOSUB 3000:RETURN 1500 GOSUB 1640 1510 PLOT 29,17,3,1,8,14:PRINT "REMEMBER";:PLOT 29,23,15 1520 PRINT " THE MORE ENEMY SHIPS ON THE SCREEN, THE MORE ENERGY" 1530 PRINT "YOUR SHIELDS USE UP, BECAUSE THE KLINGONS ARE ALL FIRING" 1540 PRINT "SIMULTANEOUSLY.":RETURN 1550 PRINT "U = UP ","P = PHASERS":PRINT "D = DOWN","T = TORPEDOES" 1560 PRINT "L = LEFT","W = WARP DRIVE":PRINT "R = RIGHT","I = IMPULSE POWER" 1570 PRINT "0 = REDO","S = COMPUTER SCAN" 1580 PLOT 3,40,18:PRINT "JUST TOUCH THE LETTER OR" 1590 PLOT 3,40,20:PRINT "THE NUMBER OF WHAT YOU" 1600 PLOT 3,40,21:PRINT "WANT. DO NOT PRESS" 1610 PLOT 3,49,22:PRINT "E N T E R" 1620 PRINT :PRINT "YOU MUST ENTER A COMMAND BEFORE 'YOUR TIME' IS 0 OR YOU LOSE" 1630 PRINT "10% IMPULSE POWER.":RETURN 1640 PLOT 10,10,10:PRINT TAB( 14)"PRESS ANY KEY TO CONTINUE.":GOSUB 3000:PLOT 12:RETURN 1650 RESUMENEXT 1660 DATA 66,70,20,9,72,21,11,73,22,12,72,23,96,97,23,53,55,24,62,71,24,93,99,24 1670 DATA 53,55,25,84,109,25,53,55,26,69,123,26,53,55,27,70,123,27,53,55 1680 DATA 28,71,113,28,53,55,29,70,79,29,86,107,29,53,55,30,69,77,30,94,99,30 1690 DATA 53,55,31,68,75,31,53,55,32,67,73,32,53,55,33,62,77,33,38,79,34,82,82 1700 DATA 34,36,79,35,81,82,35,35,83,36,43,79,37,81,82,37,46,79,38,82,82,38,62,77,39 1710 DATA 12,18,3,11,12,4,18,19,4,11,12,5,11,12,6,12,18,7,18,19,8,18,19,9,11,12 1720 DATA 10,18,19,10,12,18,11,22,27,3,22,23,4,27,28,4,22,23,5,28,29,5,22,23,6,28 1730 DATA 29,6,22,23,7,27,28,7,22,27,8,22,23,9,22,23,10,22,23,11 1740 DATA 34,37,3,33,34,4,37,38,4,32,33,5,38,39,5,32,33,6,38,39,6,32,33,7,38,39 1750 DATA 7,32,39,8,32,33,9,38,39,9,32,33,10,38,39,10,32,33,11,38,39,11,43,47,3,42 1760 DATA 43,4,47,48,4,42,43,5,42,43,6,42,43,7,42,43,8,42,43,9,42,43,10,47,48,10,43,47,11 1770 DATA 50,56,3,50,51,4,50,51,5,50,51,6,50,55,7,50,51,8,50,51,9,50,51,10,50,56 1780 DATA 11,63,70,3,66,67,4,66,67,5,66,67,6,66,67,7,66,67,8,66,67,9,66,67,10,66 1790 DATA 67,11 1800 DATA 73,78,3,73,74,4,78,79,4,73,74,5,79,80,5,73,74,6,79,80,6,73,74,7,78,79 1810 DATA 7,73,77,8,73,74,9,77,78,9,73,74,10,78,79,10,73,74,11,79,80,11,83,89,3,83,84 1820 DATA 4,83,84,5,83,84,6,83,88,7,83,84,8,83,84,9,83,84,10,83,89,11 1830 DATA 92,93,3,98,99,3,92,93,4,98,99,4,92,93,5,97,98,5,92,93,6,96,97,6,92,93 1840 DATA 7,95,96,7,92,95,8,92,93,9,96,97,9,92,93,10,97,98,10,92,93,11,98,99 1850 DATA 11,105,115,3,107,108,4,112,113,4,107,108,5,112,113,5,107,108,6,112,113,6 1860 DATA 107,108,7,112,113,7,107,108,8,112,113,8 1870 DATA 107,108,9,112,113,9,107,108,10,112,113,10,105,115,11 1880 DATA -1,-1,-1 2000 REM RESTORE 10000 2010 PLOT 12,29,24- FN R(7) 2020 READ L,R,Y:IF L= - 1THEN RETURN 2030 GOSUB 2040:GOTO 2020 2040 PLOT 2,250,L,100- Y* 2,R,255 2050 PLOT 2,250,L,101- Y* 2,R,255:RETURN 2060 GOTO 60120:READ A$:IF A$< > "END" GOTO 2060 2070 PLOT 12,29,17,3,30,15:PRINT "0-=" 2080 READ X,Y,X:IF X> = 0GOTO 2080 2090 PLOT 12:FOR C= 1TO 292:READ X,Y 2100 PLOT 2,X,10+ Y* 2,X,11+ Y* 2,255 2110 NEXT C:GOSUB 570:GOTO 250 3000 POKE 33278,0 3010 Z= PEEK (33278) 3020 IF Z= 0GOTO 3010 3030 Z9$= CHR$ (Z) 3040 RETURN