S'
Л N:° 0,4,B:З  б(32,"-");:° 0,4:З:РSL
:ГLibrary Computer Control Code.SА
Е F(8)┤0 з З "LIBRARY COMPUTER DISABLED.":Бе 58S═
З "COMPUTER ACTIVE & AWAITING COMMAND->";:° 0,4,B:Й D1:° 0,4:Е D1┤0 з 58S·
З:E1│1:И D1л1 Бе 292,307,316,342,322,290T5
З "FUNCTIONS AVAILABLE FROM THE LIBRARY-COMPUTER ARE:"T[
З "0] CUMULATIVE GALACTIC RECORD"Tt
З "1] STATUS REPORT"TУ
З "2] PHOTON TORPEDO DATA"T╖
З "3] STARBASE NAVIGATION DATA"Tр
З "4] DIRECTION/DISTANCE CALCULATOR"U

 З "5] GALAXY 'REGION NAME' MAP":З:Бе 280UO
!:ГROUTINE TO CHANGE CUMULATIVE GALACTIC RECORD TO GALAXY MAP.Ux
"E1│0:B0│1:З д24);"THE GALAXY":Бе 297UЪ
#:ГCUMULATIVE GALACTIC RECORD.Uю
$З "DO YOU WANT A PRINTOUT [Y/N]?";:в 44539:H$│ Т:З H$:Е H$┤▓"Y" ░ H$┤▓"N" з 292V2
%Е H$│"Y" з Й "TURN PRINTER ON & PRESS [ENTER]";F1:F1│м2 :Д F1│0VO
&З #F1,"":З #F1, б(8,32);VК
'З #F1,"COMPUTER RECORD OF GALAXY FOR QUADRANT";R;",";SVЧ
(З #F1,""V╓
)З #F1,"       1.....2.....3.....4.....5.....6.....7.....8"W
*J$│"     ***** ***** ***** ***** ***** ***** ***** *****"WA
+З #F1,J$:А N│1 е 8:З #F1,N;:Е E1│0 з 303W}
,А T│1 е 8:З #F1,"   ";:Е E(N,T)│0 з З #F1,"###";:Бе 302WЮ
-З #F1, П( И(E(N,T)л1000),3);Wн
.Л T:Бе 305WЄ
/Y│N:Z│1:Бж 369:E$│E$л" I-IV":G1│ Б(15м.50н З(E$)):З #F1,дG1);E$;X5
0Z│5:Бж 369:E$│E$л" I-IV":G1│ Б(15м(.50н З(E$))):З #F1,дG1);E$;Xc
1З #F1,"":З #F1,J$:Л N:З #F1,"":F1│0:Бе 58XА
2:ГSTATUS REPORT ROUTINE.Xп
3З "   STATUS REPORT:":B$│"":Е L▓1 з B$│"s"X╬
4З "Klingon"лB$л" LEFT: ";LY
5З "MISSION MUST BE COMPLETED IN";.1н Б((BлCмA)н10);"STARDATES."Y7
6B$│"s":Е K┤2 з B$│"":Е K┤1 з 313Y
7З "The Federation is maintaining";K;"Starbase"лB$л" in the galaxy."YК
8Бе 213Y╩
9З "YOUR STUPIDITY HAS LEFT YOU ON YOUR OWN IN THE GALAXY!!"Yї
:З "YOU HAVE NO STARBASES LEFT!":Бе 213Z4
;:ГTORPEDO, BASE NAVIGATION, DIRECTION/DISTANCE CALCULATOR.ZE
<Е U┤│0 з 147Z^
=B$│"":Е U▓1 з B$│"s"ZУ
>З "From Enterprise to Klingon Battle Cruiser"лB$Z╕
?E1│0:А N│1 е 3:Е C(N,3)┤│0 з 341Z╨
@J0│C(N,1):P0│C(N,2)Zх
AI0│O:D1│P:Бе 326[
BЗ "DIRECTION/DISTANCE CALCULATOR:"[E
CЗ "YOU ARE AT QUADRANT";R;",";S;"SECTOR";O;",";P;"."[|
DЙ "PLEASE ENTER INITIAL COORDINATES (X,Y)->";I0,D1[│
EЙ "               FINAL COORDINATES (X,Y)->";J0,P0[╓
FP0│P0мD1:D1│I0мJ0:Е P0┤0 з 334[ч
GЕ D1┤0 з 336[°
HЕ P0▓0 з 330\
IЕ D1│0 з I0│5:Бе 331\
JI0│1\4
KЕ  В(D1)┤│ В(P0)з 333\t
LЗ "DIRECTION =";I0л((( В(D1)м В(P0))л В(D1))о В(D1)):Бе 340\в
MЗ "DIRECTION =";I0л( В(D1)о В(P0)):Бе 340\╗
NЕ D1▓0 з I0│3:Бе 337\╒
OЕ P0┤▓0 з I0│5:Бе 331\▐
PI0│7\°
QЕ  В(D1)▓│ В(P0)з 339]8
RЗ "DIRECTION =";I0л((( В(P0)м В(D1))л В(P0))о В(P0)):Бе 340]_
SЗ "DIRECTION =";I0л( В(P0)о В(D1))]О
TЗ "DISTANCE  ="; Ы(P0п2лD1п2):Е E1│1 Бе 58]Ь
UЛ N:Бе 58]▌
VЕ W▓┤0 з З "FROM ENTERPRISE TO STARBASE:":J0│G0:P0│H0:Бе 321^)
WЗ "MISTER SPOCK REPORTS, 'SENSORS SHOW NO STARBASES IN THIS QUADRANT.'"^3
XБе 58^j
Y:Г FIND EMPTY PLACE, FOR THINGS, IN THIS QUADRANT.^з
ZV│╠Q(0):F0│╠Q(0):H$│"   ":D0│V:E0│F0:Бж 365:Е B1│0 з 346^н
[Р^▌
\:ГINSERT IN STRING ARRAY FOR THIS QUADRANT._
]T0│ В( Б(E0м.5)н3л Б(D0м.5)н24л1)_;
^Е  З(H$)┤▓3 з З "TYPING ERROR IN YOUR PROGRAM!":С:К_[
_Е T0│1 з G$│H$л П(G$,189):Р_}
`Е T0│190 з G$│ О(G$,189)лH$:Р_г
aG$│ О(G$,T0м1)лH$л П(G$,190мT0):Р_╦
b:ГPROVIDE DEVICE NAME FOR PRINTING._Ў
cИ V Бе 356,357,358,359,360,361,362,363`
dE$│"WARP ENGINES":Р`-
eE$│"SHORT RANGE SENSORS":Р`K
fE$│"LONG RANGE SENSORS":Р`e
gE$│"PHASER CONTROL":Р`}
hE$│"PHOTON TUBES":Р`Ч
iE$│"DAMAGE CONTROL":Р`▒
jE$│"SHIELD CONTROL":Р`═
kE$│"LIBRARY-COMPUTER":Р`°
l:ГSTRING COMPARISON IN QUADRANT ARRAY.a3
mD0│ Б(D0л.5):E0│ Б(E0л.5):T0│(E0м1)н3л(D0м1)н24л1:B1│0aM
nЕ  Р(G$,T0,3)┤▓H$ з РaX
oB1│1:Рa╣
p:ГGET QUADRANT NAME IN E$ FROM Y,Z (=R,S). CALL WITH B0=1 TO GET REGION           NAME ONLY.aэ
qЕ Z┤│4 з И Y Бе 371,372,373,374,375,376,377,378a°
rБе 379b
sE$│"ANTARES":Бе 388b&
tE$│"RIGEL":Бе 388b>
uE$│"PROCYON":Бе 388bS
vE$│"VEGA":Бе 388bk
wE$│"CANOPUS":Бе 388bВ
xE$│"ALTAIR":Бе 388bЮ
yE$│"SAGITTARIUS":Бе 388b╡
zE$│"POLLUX":Бе 388bр
{И Y Бе 380,381,382,383,384,385,386,387bў
|E$│"SIRIUS":Бе 388c

}E$│"DENEB":Бе 388c%
~E$│"CAPELLA":Бе 388c@
E$│"BETELGEUSE":Бе 388cZ
АE$│"ALDEBARAN":Бе 388cr
БE$│"REGULUS":Бе 388cЛ
ВE$│"ARCTURUS":Бе 388cЪ
ГE$│"SPICA"c╧
ДЕ B0▓┤1 з И Z Бе 390,391,392,393,390,391,392,393c╒
ЕРcц
ЖE$│E$л" I":Рc°
ЗE$│E$л" II":Рd
ИE$│E$л" III":Рd
ЙE$│E$л" IV":РdA
КG1│ Б(40м.5н З(H$)):З дG1);H$:Рe)
Л:Г FINALLY DONE! IT's NOW 4:20 A.M., SUNDAY, JANUARY 5th, 1992. A PRINT            MEM SHOWS APPROXIMATELY 5977 BYTES OF FREE MEMORY AT THIS POINT. I              HAD FORGOTTEN THAT GW D0│ Б(O):E0│ Б(P):Бж 349:Бж 131:U0│1/AnЕ J0┤1 з U0│.10н Б(10нJ0)/ZoA│AлU0:Е A▓BлC з 241/Рp:Г See if Enterprise is docked, then get command./ЪqБе 57/┐r:Г Exceeded the quadrant limits.0sP0│8нRлP0лK0нN0:Q0│8нSлQ0лK0нO0:R│ Б(P0о8):S│ Б(Q0о8):O│ Б(P0мRн8):P│ Б(Q0мSн8)0)tЕ O│0 з R│Rм1:O│80?uЕ P│0 з S│Sм1:P│80]vV0│0:Е R┤1 з V0│1:R│1:O│10vwЕ R▓8 з V0│1:R│8:O│80ПxЕ S┤1 з V0│1:S│1:P│10иyЕ S▓8 з V0│1:S│8:P│80╣zЕ V0│0 з 1281u{З "LIEUTENANT UHURA RELAYS MESSAGE FROM STARFLEET COMMAND:":° 0,4,U:З "'Permission to attempt crossing of Galactic Perimeter is hereby ";:° 0,4,B,U:З "*DENIED*";:° 0,4,U:З".";:° 0,4:З1з|° 0,4,U:З "Shut down your engines!'";:° 0,4:З1°}З "CHIEF ENGINEER SCOTT REPORTS, 'WARP ENGINES SHUT DOWN AT SECTOR ";O;",";P2#~З "OF QUADRANT ";R;",";S;", CAPTAIN.'"25Е A▓BлC з 2412OАЕ 8нRлS│8нR0лS0 з 1092fБA│Aл1:Бж 131:Бе 382ВВ:Г Maneuver energy s/r.2ЫГE│EмK0м10:Е E▓│0 з Р2рДЗ "Shield Control supplies the energy to complete the maneuver."2√ЕJ│JлE:E│0:Е J│┤0 з J│03
ЖР31З:Г Long Range Sensor scan code begins here.3ЙИЕ F(3)┤0 з З "LONG RANGE SENSORS ARE ";:° 0,4,B,U:З "INOPERABLE";:° 0,4:З ".":Бе 583┼ЙЗ "LONG RANGE SCAN FOR QUADRANT ";R;",";S;":":° 0,4,B,U3▐КЗ  б(19,32);:° 0,4:З4ЛА N│Rм1 е Rл1:D(1)│м1:D(2)│м2:D(3)│м3:А T│Sм1 е Sл14RМЕ N▓0 ░ N┤9 ░ T▓0 ░ T┤9 з D(TмSл2)│A(N,T):E(N,T)│A(N,T)4КНЛ T:А W0│1 е 3:З ": ";:Е D(W0)┤0 з З "*** ";:Бе 1434кОЗ  П( И(D(W0)л1000),3);" ";4тПЛ W0:З ":":° 0,4,B,U:З  б(19,32);:° 0,4:З:Л N:Бе 585
Р:Г Phaser control code begins here.5RСЕ F(4)┤0 з З "PHASERS ";:° 0,4,B:З "INOPERATIVE";:° 0,4:З ".":Бе 585bТЕ U▓0 з 1495■УЗ "SCIENCE OFFICER SPOCK REPORTS, 'Captain, your attempt to fire phasers at nothingis highly illogical. Sensors show NO enemy ships in this quadrant.'"6ФБе 586>ХЕ F(8)┤0 з З "COMPUTER FAILURE HAMPERS ACCURACY."6АЦЗ "PHASERS LOCKED ON TARGET;  ENERGY AVAILABLE =";E;" UNITS."6МЧ° 0,4,U6╓ШЗ "ENTER NUMBER OF UNITS TO FIRE-->";:° 0,4,B:Й P0:° 0,4:Е P0┤│0 з 586щЩЕ EмP0┤0 з 1517ЪE│EмP0:Е F(7)┤0 з P0│P0н Д(0)77ЫX0│ Б(P0оU):А N│1 е 3:Е C(N,3)┤│0 з 1657nЬY0│ Б((X0о╠M(0))н( Д(0)л2)):Е Y0▓0.15нC(N,3) з 1587▓ЭЗ "SENSORS SHOW NO DAMAGE TO ENEMY AT ";C(N,1);",";C(N,2):Бе1658ЮC(N,3)│C(N,3)мY0:З Y0;"UNIT ";:° 0,4,B:З "HIT";:° 0,4:З " ON KLINGON AT SECTOR ";C(N,1);",";C(N,2)8cЯЕ C(N,3)│┤0 з ° 0,4,B,U:З "*** KLINGON DESTROYED ***";:° 0,4:З:Бе 1639Jа:Г IT IS NOW 5:32 A.M., DECEMBER 31, 1991. I HAVE BEEN CONVERTING AND              TYPING SINCE 10:00 P.M. LAST NIGHT. THIS LOOKS LIKE A GOOD PLACE                TO STOP AND REST FOR A WHILE. WILL CONTINUE LATER. R.A. TURNER.9уб:Г IT IS NOW 2:45 A.M., JANUARY 1st, 1992! HAPPY NEW YEAR! I HAVE JUST             RETURNED HOME FROM WORK AND AM RESUMING CONVERSION AT THIS POINT!:вЗ д3);"(SENSORS SHOW";C(N,3);"UNITS REMAINING).":Бе 165:VгU│Uм1:L│Lм1:D0│C(N,1):E0│C(N,2):H$│ б(3,32):Бж 349:РдC(N,3)│0:A(R,S)│A(R,S)м100:E(R,S)│A(R,S):Е L┤│0 з 252:ееЛ N:Бж 229:Бе 58:═ж:Г Photon torpedo code begins here.;зЕ G┤│0 з З "ALL PHOTON TORPEDOES EXPENDED, CAPTAIN!":Бе 58;eиЕ F(5)┤0 з З "PHOTON TUBES ";:° 0,4,U:З "ARE NOT";:° 0,4:З "OPERATIONAL, SIR!":Бе 58;╣й° 0,4,U:З "ENTER PHOTON TORPEDO COURSE (1-9)";:° 0,4,B:Й I0:° 0,4:Е I0│9 з I0│1;╥кЕ I0▓│1 ░ I0┤9 з 173<лЗ "ENSIGN CHEKOV REPORTS, 'Incorrect course data, Sir!'"<мБе 58<TнN0│B(I0,1)л(B(I0л1,1)мB(I0,1))н(I0м Б(I0)):E│Eм2:G│Gм1<НоO0│B(I0,2)л(B(I0л1,2)мB(I0,2))н(I0м Б(I0)):P0│O:Q0│P<╡п° 0,4,B:З "TORPEDO TRACK:";:° 0,4:З<ч░P0│P0лN0:Q0│Q0лO0:Z0│ Б(P0л0.5):A1│ Б(Q0л0.5)=
▒Е Z0┤1 ▒ Z0▓8 ▒ A1┤1 ▒ A1▓8 з 202=A▓З д15);Z0;",";A1:H$│ б(3,32):D0│P0:E0│Q0:Бж 365=S│Е B1▓┤0 з 176=О┤H$│ Л(124)л"K"л Л(124):D0│P0:E0│Q0:Бж 365:Е B1│0 з 185=┌╡° 0,4,B:З "*** KLINGON DESTROYED ***";:° 0,4:З:U│Uм1:L│Lм1:Е L│┤0 з 252>╢А N│1 е 3:Е Z0│C(N,1) ░ A1│C(N,2) з 184>╖Л N:N│3>&╕C(N,3)│0:Бе 195>S╣H$│" * ":D0│P0:E0│Q0:Бж 365:Е B1│0 з 187>ж║З "THE STAR LOCATED AT ";Z0;",";A1;"ABSORBED THE TORPEDO ENERGY.":Бж 229:Бе 58>╙╗H$│"]S[":D0│P0:E0│Q0:Бж 365:Е B1│0 з 169?╝° 0,4,B,U:З "*** STARBASE DESTROYED ***";:° 0,4:З:W│Wм1:K│Kм1?/╜Е K▓0 ▒ L▓AмBмC з 193?n╛З "THAT DOES IT, CAPTAIN "лF$л"!! YOU ARE HEREBY RELIEVED"?╝┐З "OF COMMAND AND SENTENCED TO 99 STARDATES OF HARD LABOR ON CYGNUS 12!!"?╟└Бе 243@┴З "STARFLEET COMMAND IS CURRENTLY REVIEWING YOUR RECORD TO CONSIDER COURT MARTIAL!"@'┬D│0@J├D0│P0:E0│Q0:H$│ б(3,32):Бж 349@Q─:ГAH┼:ГHERE IS A GOOD REASON TO NEVER HAVE ANY LIQUID AROUND YOUR SYSTEM WHILE         USING YOUR COMPUTER. IT IS 3:55 A.M., JANUARY 1, 1992 AND I JUST SPILLED        A GLASS d&Р
:ГTREKKIE INSTRUCTIONS BASIC PROGRAM 1/12/1992 , BY R.A. TURNER                   BINARY SYSTEMS, RT 5 BOX 3810, PELL CITY, AL 35125-9273.&╛└ 6:╙ "TREKKIE.BAS":╣  Г0│&H2DA1:И Ё Бе 6'-A│0:A│ Г0(0):Е A з у Ў:т 80:Ю 5:° 0,4 :Д З "SORRY, BUT THIS PROGRAM REQUIRESA COLOR COMPUTER 3. - ROBERT."'зв &H2DC2:в &H2D36:A$│ Т:Е (A$┤▓"Y")н(A$┤▓"y")н(A$┤▓"N")н(A$┤▓"n") з 4 :Д Е (A$│"N")л(A$│"n") з └ 1:О ""л"TREKKIE.BAS"(Nв &H2DC2:в &H2D52:А A│1 е 360н2:Л A:в &H2DC2:З "PLEASE WAIT -- PRINTING IN PROGRESS.":в &H2D6E:З "PRINTING DONE! PREPARE FOR YOUR MISSION.":└ 1:О ""л"TREKKIE.BAS"(cТ 113,0:в &HA027                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          S╤в
:ГBEGAN TRANSLATION TO THE TANDY COLOR COMPUTER 3 128K RAM ON DECEMBER 30,        1991 @ 10:00 P.M. WORKING CONTINUOUSLY UNTIL DECEMBER 31, 1991 @ 5:32 A.M.9:ГBEGAN AGAIN @ 2:45 A.M. ON JANUARY 1st, 1992. HAPPY NEW YEAR! WORKED            ALMOST CONTINUOUSLY UNTIL 5:16 A.M. 1/1/92. WILL CONTINUE LATER.╠:ГBEGAN AGAIN @ 2:05 A.M., SUNDAY, JANUARY 5th, 1992 & FINALLY FINISHED           @ 4:20 A.M., JANUARY 5th! FINAL DEBUGGING JANUARY 6th, 1992!└ 1:Х 700:П:т 80:Ю 5:у Ў:° 0,4:RAND│ Д(м Я):И Ё Бе 249ЛA$│ Л(13):H$│"STAR TREK MISSION SIMULATION"лA$:Бж 394:H$│"ORIGINALLY A PUBLIC DOMAIN PROGRAM FOR THE IBM PC/XT/AT, etc,":Бж 394gH$│"RUNNING GW-BASIC 3.31 OR HIGHER."лA$:Бж 394:H$│"ORIGINAL AUTHOR UNKNOWN."лA$:Бж 394:H$│"CONVERSION TO THE TANDY RADIO SHACK COLOR COMPUTER 3 BY:":Бж 394:H$│"ROBERT ALLEN TURNER":Бж 394:H$│"BINARY SYSTEMS":Бж 394H$│"RT 5 BOX 3810":Бж 394:H$│"PELL CITY, ALABAMA 35125-9805"лA$лA$:Бж 394:H$│"ANY INFORMATION REGARDING THE ORIGINAL AUTHOR WILL BE GREATLY APPRECIATED."лA$:Бж 394·H$│"CONTACT R.A. TURNER AT THE ABOVE ADDRESS. THANKS. ALSO, IF YOU WOULD LIKE":Бж 394:H$│"INFORMATION REGARDING A GREAT NEW HOME OPERATED BUSINESS, PLEASE":Бж 394:H$│"CONTACT ME AT THE ABOVE ADDRESS & ASK ABOUT CONSUMERS BUYLINE."C	Бж 394:H$│"  "лA$:Бж 394:H$│"PRESS ANY KEY TO BEGIN.":Бж 394:в 44539Ъ
Ю:H$│"Please enter your name:":Бж 394:З д28);:╗Й F$:RAND│ Д(м Я):Ю:Е  З(F$)│0 з 10ЁH$│"PLEASE AWAIT FURTHER ORDERS, CAPTAIN "лF$лA$лA$:Бж 394:A$│ б(25,32):Т 65497,0$М A(8,8),B(9,2),C(3,3),D(3),E(8,8),F(8),COM$(9)c
A│ Б( Д(0)н20л20)н100:B│A:C│25л Б( Д(0)н10):D│0:E│3000:F│EТG│10:H│G:I│200:J│0:K│J:B$│"":C$│" is ":L│0╝╣ ╠M(M)│ Ы((C(N,1)мO)п2л(C(N,2)мP)п2)▐╣ ╠Q(Q)│ Б( Д(Q)н7.980л1.010):Г Initialize position of the USS ENTERPRISE, NCC-1701.>R│╠Q(0):S│╠Q(0):O│╠Q(0):P│╠Q(0)bА N│1 е 9:B(N,1)│0:B(N,2)│0:Л N╞Н B(3,1),B(2,1),B(4,1),B(4,2),B(5,2),B(6,2),B(1,2),B(2,2),B(6,1),B(7,1),B(8,1),B(8,2),B(9,2),D$єА N│1 е 8:F(N)│0:Н COM$(N):Л N:Н COM$(9)Y:Г Set up what exists in the galaxy. U=# OF KLINGONS, W=# OF STARBASES, and        A0=# OF STARS.ЖА N│1 е 8:А T│1 е 8:U│0:E(N,T)│0:V│ Д(0)║Е V▓.98 з U│3 :Д Е V▓.95 з U│2 :Д Е V▓.80 з U│1─L│LлUфW│0:Е  Д(0)▓.96 з W│1:K│Kл1A(N,T)│Uн100лWн10л╠Q(0                                                                                                                                                                                                                                                                                            &$├"#%├                             TREK    BAS gTREKKIE BAS!╘                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ):Л T,N:Е L▓C з C│Lл1$Е K▓┤0 з 31OЕ A(R,S)┤200 з A(R,S)│A(R,S)л100:L│Lл1xK│1:A(R,S)│A(R,S)л10:R│╠Q(0):S│╠Q(0)ЫX│L:Е K▓┤1 з B$│"s":C$│" are "с З "ATTENTION CAPTAIN: "лF$л б(3,13)л"Your orders are as follows:"q!З д5);"Destroy the ";L;" Klingon Warships which have invaded":З д3);"the galaxy before they can attack Federation Headquarters, which they"
"З д3);"intend to do on Stardate ";BлC;". This gives you ";C;" days.":З д3);"There"лC$л И(K)л" Starbase"лB$л" in the Galaxy for resupplying"╗#З д3);"your ship. This mission is dedicated to the memory of Gene Roddenberry."л б(3,13):H$│"O.K CAPTAIN "лF$л", HIT ANY KEY WHEN READY TO ACCEPT COMMAND.":Бж 394:RAND│ Д(м Я):H$│""∙$а 150,2:а 200,2:а 150,2:в 44539:Е  Т│"" з 36 :Д N│ Д(0):Ю 0%:Г We are here any time a new quadrant is entered. i&Y│R:Z│S:U│0:W│U:A0│W:B0│W:C0│.50н Д(0):E(R,S)│A(R,S) К'Е R┤1 ▒ R▓8 ▒ S┤1 ▒ S▓8 з 49 д(Бж 369:З:Е A▓┤B Бе 43 ё)З "CAPTAIN "лF$л Л(13)л" Your mission begins with your Starship located"!#*З "in the Galactic Quadrant, '"лE$л"'.":Бе 44!P+З "Now entering '"лE$л"' Quadrant . . ."!|,З:U│ Б(A(R,S)н.01):W│ Б(A(R,S)н.1)м10нU!а-A0│A(R,S)м100нUм10нW:Е U│0 з 48!я.З "COMBAT AREA      ";:° 0,4,B,U:З "CONDITION *RED*";:° 0,4:З:Е J▓200 з 48"+/З д3);"SHIELDS DANGEROUSLY ";:° 0,4,B:З "LOW.";:° 0,4:З"O0А N│1 е 3:C(N,1)│0:C(N,2)│0:Л N"М1А N│1 е 3:C(N,3)│0:Л N:G$│A$лA$лA$лA$лA$лA$лA$л О(A$,17)#2:Г Routine to position The Enterprise in Quadrant and then place "U"               Klingons, "W" Starbases and "A0" Stars elsewhere.#H3H$│"["л Л(152)л"]":D0│O:E0│P:Бж 349:Е U┤1 з 54#4А N│1 е U:Бж 346:H$│ Л(124)л"K"л Л(124):D0│V:E0│F0#╖5Бж 349:C(N,1)│V:C(N,2)│F0:C(N,3)│Iн(0.50л Д(0)):Л N#╟6Е W┤1 Бе 56#°7Бж 346:H$│"]S[":D0│V:G0│V:E0│F0:H0│F0:Бж 349$-8А N│1 е A0:Бж 346:H$│" * ":D0│V:E0│F0:Бж 349:Л N$89Бж 256$\:Е JлE▓10 з Е E▓10 ▒ F(7)│0 з 61$┌;З:° 0,4,B:З "** ";:° 0,4,B,U:З "FATAL";:° 0,4,B:З " ERROR **";:° 0,4:З " You have just STRANDED your ship in deep space!"%l<З "You DO NOT have sufficient maneuvering energy, and shield control is presently  incapable of cross-circuiting to the engine room!!":Бе 241%▓=° 0,4,U:З "ENTER COMMAND-->";:° 0,4,B:Й H$:° 0,4:Е  З(H$)┤▓3 з 65%р>А N│1 е 9:Е  О(H$,3)┤▓ Р(D$,3нNм2,3) з 64&
?И N Бе 69,57,136,145,167,204,213,279,243&@Л N&BAЗ "You MUST enter one of the following:"&sBА N│1 е 9:З  Р(D$,3нNм2,3);" = ";COM$(N):Л N&ЛCЗ  б(80,255);:Бе 58&оD:Г Course control begins here.&∙E° 0,4,U:З "ENTER COURSE (0-9)-->";:° 0,4,B:Й I0:° 0,4:Е I0│9 з I0│I0м8'FЕ I0▓│1 ░ I0┤9 з 72'VGЗ "LIEUTENANT SULU REPORTS, 'Incorrect Course Data, SIR!'":Бе 58'vHB$│"8":Е F(1)┤0 з B$│"0.20"'╬I° 0,4,U:З "ENTER WARP FACTOR (0-"лB$л")";:° 0,4,B:Й J0:° 0,4:Е F(1)┤0 ░ J0▓.20 з 78'цJЕ J0▓0 ░ J0┤│8 з 79'ЎKЕ J0│0 з 58(ILЗ "CHIEF ENGINEER SCOTT REPORTS, 'The Engines WILL NOT Take WARP ";J0;",SIR!'"(SMБе 58(█NЗ "CHIEF ENGINEER SCOTT REPORTS, 'The Warp Engines Are Damaged, SIR! Maximum Speed is WARP ";:° 0,4,B,U:З "0.20";:° 0,4:З "!":Бе 58(¤OK0│ Б(J0н8л.5):Е EмK0│▓0 з 85)xPЗ "ENGINEERING REPORTS, 'We DO NOT have sufficient energy available for maneuveringat WARP ";J0;", CAPTAIN "лF$л"!'":З)УQЕ J┤K0мE ▒ F(7)┤0 з 58*RЗ "DEFLECTOR CONTROL ROOM ACKNOWLEDGES, ";J;" UNITS OF ENERGY IS PRESENTLY"л Л(13);"DEPLOYED TO THE SHIELDS."*SБе 58*JT:Г Klingons chance to Move or Fire on moving starship.*hUА N│1 е U:Е C(N,3)│0 з 88*ЪVH$│ б(3,32):D0│C(N,1):E0│C(N,2):Бж 349:Бж 346*╨WC(N,1)│D0:C(N,2)│E0:H$│ Л(124)л"K"л Л(124):Бж 349*∙XЛ N:Бж 229:L0│0:M0│J0:Е J0│▓1 з M0│1+YА N│1 е 8:Е F(N)│▓0 з 94+VZF(N)│F(N)лM0:Е F(N)▓(м0.10) ░ F(N)┤0 з ║ F(N)│(м0.10):Бе 94+h[Е F(N)┤0 з 94+Ш\Е L0▓┤1 з L0│1:З "DAMAGE CONTROL REPORT: ";+▌]V│N:Бж 355:° 0,4,B:З E$;:° 0,4,U:З " REPAIR COMPLETED.";:° 0,4:З+°^Л N:Е  Д(0)▓0.20 з 101,_V│╠Q(0):Е  Д(0)│▓0.60 з 98,N`F(V)│F(V)м( Д(0)н5л1):З "DAMAGE CONTROL REPORT: ";,НaБж 355:° 0,4,U:З E$;:° 0,4,B:З " DAMAGED!";:° 0,4:З:Бе 101,┬bF(V)│F(V)л Д(0)н3л1:З "DAMAGE CONTROL REPORT: ";-cБж 355:° 0,4,U:З E$;" STATE OF REPAIR IMPROVED.";:° 0,4:З-)d:Г Begin the moving of the starship.-ReH$│ б(3,32):D0│ Б(O):E0│ Б(P):Бж 349-ЛfN0│B(I0,1)л(B(I0л1,1)мB(I0,1))н(I0м Б(I0)):P0│O:Q0│P-─gO0│B(I0,2)л(B(I0л1,2)мB(I0,2))н(I0м Б(I0)):R0│R:S0│S.
hА N│1 е K0:O│OлN0:P│PлO0:Е O┤1 ▒ O▓│9 ▒ P┤1 ▒ P▓│9 з 115.5iT0│ Б(O)н24л Б(P)н3м26:Е  Р(G$,T0,2)│"  " з 108.─jO│ Б(OмN0):P│ Б(PмO0):З "WARP ENGINES ";:° 0,4,B:З "SHUT DOWN ";:° 0,4:З "at Sector:";O;",";P;:° 0,4,U:З "due to BAD NAVIGATION!";:° 0,4:З.╧kБе 109.чlЛ N:O│ Б(O):P│ Б(P)/#mH$│"["л Л(152)л"]": OF TEA OVER MY ONLY WORKING COPY OF THIS LISTING FROM WHICH I           B2╞:ГAM DOING THIS CONVERSION. IT'S IN THE MICROWAVE RIGHT NOW, DRYING OUT!          LUCKILY, THE LISTING IS THE ONLY THING THAT GOT WET. HOPEFULLY, IT              WON'T SMEAR TOO BADLY. IT IS OLD. I LISTED IT ON A COMPUTER SEVERALB═╟:ГYEARS AGO, WITH INTENTION TO CONVERT TO MY APPLE ][ COMPATIBLE. THE             INK SHOULD BE DRY ENOUGH TO HOLD UP! 4:10 A.M. A TOTAL OF ABOUT FIVECK╚:ГMINUTES IN THE MICROWAVE DID THE TRICK! THANK GOODNESS FOR MICROWAVE            OVENS! HERE WE GO CONVERTING AGAIN.....C╔A(R,S)│Uн100лWн10лA0:E(R,S)│A(R,S):Бж 229:Бе 58C╡╩° 0,4,B:З "TORPEDO MISSED!";:° 0,4:З:Бж 229:Бе 58C▐╦:Г SHIELD CONTROL LOGIC BEGINS HERE.D%╠Е F(7)┤0 з ° 0,4,B,U:З "SHIELD CONTROL INOPERABLE!";:° 0,4:З:Бе 58DЙ═З "ENERGY AVAILABLE =";EлJ;:° 0,4,U:З "ENTER NUMBER OF UNITS TO SHIELDS-->";:° 0,4,B:Й P0:° 0,4Dд╬Е P0┤0 ▒ J│P0 з Бе 209D╕╧Е P0┤│EлJ з 210D ╨З "SHIELD CONTROL REPORTS, 'This IS NOT the Federation Treasury!'"E6╤З "[SHIELDS REMAIN UNCHANGED @";J;" UNITS.]":Бе 58El╥E│EлJмP0:J│P0:З "DEFLECTOR CONTROL ROOM REPORTS:"E╕╙З д3);"'SHIELDS NOW AT"; Б(J);"UNITS PER YOUR COMMAND, CAPTAIN.'":Бе 58Eш╘:ГDAMAGE CONTROL REPAIR CODING BEGINS HERE.E№╒Е F(8)│▓0 з 224FD╓З "DAMAGE CONTROL REPORT NOT AVAILABLE, CAPTAIN "лF$л"!":Е D│0 з 58Fm╫C1│0:А N│1 е 8:Е F(N)┤0 з C1│C1л0.10FБ╪Л N:Е C1│0 з 58Fб┘З:C1│C1лC0:Е C1▓│1 з C1│0.9Fс┌З "TECHNICIANS STANDING BY TO EFFECT REPAIRS TO YOUR SHIP;"G5█З "ESTIMATED TIME TO REPAIR:";:° 0,4,B,U:З .01н Б(100нC1);:° 0,4:З "STARDATES."Gй▄З "WILL YOU AUTHORIZE THE REPAIR ORDER [Y/N]";:в 44539:H$│ Т:З H$:Е H$┤▓"Y" ░ H$┤▓"N" з ° 0,4,B:Бе 220 :Д ° 0,4G╝▌Е H$┤▓"Y" з 58G▄▐А N│1 е 8:Е F(N)┤0 з F(N)│0GЁ▀Л N:A│AлC1л0.10H'рЗ:З "DEVICE=============STATE OF REPAIR":А V│1 е 8HZсБж 355:З E$; О(A$,25м З(E$)); Б(F(V)н100)н.010HqтЛ V:З:Е D▓┤0 з 215H{уБе 58HЭф:Г THE KLINGONS ARE SHOOTING.H┤хЕ U┤│0 з Р :ГNOPE!IцЕ D▓┤0 з З "STARBASE SHIELDS PROTECT THE ENTERPRISE FROM KLINGON FIRE!":РI"чА N│1 е 3:Е C(N,3)│┤0 з 239IeшY0│ Б((C(N,3)о╠M(1))н(2л Д(0))):J│JмY0:C(N,3)│C(N,3)о(3л Д(0))IощЗ Y0;" UNIT HIT ON THE ENTERPRISE FROM SECTOR";C(N,1);",";C(N,2);"!"I┐ъЕ J┤│0 з 242IЎыЗ д6);"[SHIELDS DOWN TO";J;"UNITS!]":Е Y0┤20 з 239JьЕ  Д(0)▓0.6 ▒ Y0оJ┤│.02 з 239JDэV│╠Q(0):F(V)│F(V)мY0оJм.50н Д(0):Бж 355JАюЗ "DAMAGE CONTROL REPORTS '";E$;" DAMAGED BY THE HIT!'"JКяЛ N:РJмЁ:Г END OF GAME LOGIC IS HERE.JтёЗ "IT IS STARDATE";:° 0,4,B,U:З A;:° 0,4:З:Бе 243KLЄЗ:° 0,4,B:З "THE ENTERPRISE HAS BEEN DESTROYED!";:° 0,4:З " THE FEDERATION WILL BE CONQUERED!":Бе 241KРєЗ "THERE WERE ";L;" KLINGON BATTLE CRUISERS LEFT AT THE END OF"K╢ЇЗ "YOUR MISSION, CAPTAIN "лF$л"!"K╩їЗ:З:Е K│0 з 249LЎЗ "THE FEDERATION IS IN NEED OF A NEW STARSHIP CAMMANDER"LBўЗ "FOR A SIMILAR MISSION -- IF THERE IS A VOLUNTEER,"Lд°╗Й "LET HIM STEP FORWARD AND ENTER 'AYE, SIR!' ";H$:Е H$│"" з 248 :Д N│ Ю(1,H$,"AYE"):Е N з ОM∙° 0,4:Т 65496,0:Ю:З "WELL CAPTAIN ";F$;", IT'S BEEN A PLEASURE SERVING UNDER YOU, SIR!":З:З "BYE!":К:С:ОMЦ·:ГONCE AGAIN, I GROW TIRED @ 5:16 A.M., JANUARY 1st, 1992. IT'S TIME TO           TAKE A REST AGAIN. I WILL RESUME LATER. R.A.T.N+√:ГSUNDAY, JANUARY 5th, 1992, 2:05 A.M., ONCE AGAIN IT IS TIME TO RESUME           CONVERTING THIS PROGRAM. I'M GOING TO TRY TO FINISH THIS TIME!Np№З "CONGRATULATIONS, CAPTAIN ";F$л"!";", THE LAST KLINGON BATTLE"Nо¤З "CRUISER MENACING THE FEDERATION HAS BEEN DESTROYED.":ЗNш■З "YOUR EFFICIENCY RATING IS";1000н(Xо(AмB))п2:Бе 245O$ :ГShort Range Sensor Scan & Initial Startup Subroutine.OD
А N│Oм1 е Oл1:А T│Pм1 е Pл1OЖ

Е  Б(Nл0.5)┤1 ▒  Б(Nл0.5)▓8 ▒  Б(Tл0.5)┤1 ▒  Б(Tл0.5)▓8 з 259O▒
H$│"]S[":D0│N:E0│T:Бж 365:Е B1│1 з 260O╞
Л T,N:D│0:Бе 262Oт
D│1:I$│"DOCKED":E│F:G│HP.
° 0,4,B:З "SHIELDS DROPPED ";:° 0,4:З "FOR DOCKING PURPOSES":J│0:Бе 264PL
Е U▓0 з I$│"*RED*":Бе 264Ps
I$│"GREEN":Е E┤Fн.10 з I$│"YELLOW"PЗ
Е F(2)▓│0 з 266P╣
	З:З "*** SHORT RANGE SENSORS ARE OUT ***":З:РPх

° 0,4,B:З  б(32,"-");:° 0,4:З:А N│1 е 8Q#
А T│(Nм1)н24л1 е (Nм1)н24л22 й 3:З  Л(32); Р(G$,T,3);:Л TQZ
J$│ б(8,32):И N Бе 269,270,271,272,273,274,275,276QО

З J$л"STARDATE----------->"; Б(Aн10)н.10:Бе 277Qы
З J$л"CONDITION----------> ";:Е I$│"*RED*" з ° 0,4,B:З I$;:° 0,4:З:Бе 277 :Д З I$:Бе 277R
З J$л"QUADRANT----------->";R;",";S:Бе 277RI
З J$л"SECTOR------------->";O;",";P:Бе 277Rv
З J$л"PHOTON TORPEDOES--->"; Б(G):Бе 277Rе
З J$л"TOTAL ENERGY------->"; Б(EлJ):Бе 277R╥
З J$л"SHIELDS------------>"; Б(J):Бе 277R 
З J$л"KLINGONS REMAINING->"; Б(L):Бе 277BASIC 3.31 GIVES 80K OF MEMORY FOR PROGRAMf
М:Г USAGE, WHILE THE COCO3 GIVES ABOUT 27K WITH A PCLEAR 1. A PCLEAR 1              STATEMENT WILL HAVE TO BE EXECUTED BEFORE THIS PROGRAM IS LOADED.               I HOPE THERE's ENOUGH FREE RAM TO RUN THIS PROGRAM, AFTER ALL OFfа
Н:Г THE TIME I HAVE SPENT ON CONVERTING IT. MOREOVER, I HOPE IT WILL                BE ENJOYED BY THOSE FELLOW COCOists OUT THERE! -ROBERT.gУ
ОЖ -1,-1,-1,-1,-1,-1,1,1,1,1,1,1,1,NAVSRSLRSPHATORSHEDAMCOMXXX,(TO SET COURSE),(FOR SHORT RANGE SENSOR SCAN),(FOR LONG RANGE SENSOR SCAN),(TO FIRE PHASERS),(TO FIRE PHOTON TORPEDOES),(TO RAISE OR LOWER SHIELDS),(FOR DAMAGE CONTROL REPORTS)g╨
ПЖ (TO CALL ON LIBRARY-COMPUTER),[TO RESIGN YOUR COMMAND]