#м2,"":З#м2,"ROW  ITEM  DESCRIPTION                NET PRICE      LIST     PROFIT":З#м2,"NO.  NO.                               PER ITEM      PRICE     EACH"8ЁФFR$│"### ####   %                    %      $$###.##    $$###.##   ###.##":Бж309UЦA│Aл1:Бж160:З#м2,═FR$;A,S(A),D$(A),P(A),P3(A),Q:Е A│N(1)з 164 :Д Бж171:Е H│1 з Бж18:Бе146 :Д 1509vШЕ(XXл1)▓X9 з Р :Д Бж80:Бе1029пЪV│1:XX│XXл1:FF$│"/DAT":F$│ И(XX):F$│F$лFF$:ЕXX▓9з1589┴ЬF$│ П(F$,5):Р9╙ЮF$│ П(F$,6):Р9°аЕ P3(A)▓P(A) з Q│P3(A)мP(A):ДQ│09■вР:TдБж171:Е H│1 з Р :Д Е A┤Y7 з H│Y7:Бе177 :Д Е A┤Y7н2 з H│Y7н2:Бе177 :Д H│Y7н3:Бе177:pеА HH│A е Y7:З#м2,"":Л:Р:МжАA│N(1)е126:З#м2,"":Л:Р:╜иЮ1:З@130,"HIGHEST ROW IN USE IS ";N(1);:Бе19:╩кЙI(X9):Р:ўлЕA│Y7 ▒ A│Y7н2 ▒ A│Y7н3 з H│1:Р :Д H│0:Р;мБж26:S(A)│000:Р;)оАA│1еN(1):ЕS(A)│000зБж178;1░Л:Р;P▒А A│N(1) е Hл3:З#м2,"":Л:Р;┴▓T(A)│T(N(1)):D$(A)│D$(N(1)):I(A)│I(N(1)):P(A)│P(N(1)):P3(A)│P3(N(1)):B(A)│B(N(1)):S(A)│S(N(1)):N(1)│N(1)м1:Р;є┤╬:З@480,"";:Й"<enter> TO RETURN TO MENU ";X:Рл И(C2)л"                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ,S(V),I(V),P3(V),B(V),P(V),D$(V)/ETV│Vл1:Е М(1)│0з82:ДЪ#1:N(1)│Vм1:Р/mUЕ F8▓0з З@164,"FILE IN USE IS #";F8/ЩVЗ@130,"";:Й"INPUT SAVE FILE NUMBER ";F$/иXЩ"O",#1,F$/░ZV│1/▌\┘#1,T(V),S(V),I(V),P3(V),B(V),P(V),D$(V)/√^V│Vл1:ЕV┤N(1)л1з92:ДЪ#1:Р0╤`Бж12:Ю1:З@102,"SELECT REPORT FORMAT":З"===============================":З:З" 1  STOCK & BACK ORDER REPORT":З" 2  BACK ORDER REPORT ONLY":З" 3  STOCK REPORT ONLY":З" 4  DESCRIPTION & PRICE REPORT":W│460:Бж22:ЙX0фbЕX▓4за2,2:Бе961idX9│0:Ю1:З@128,"1 TO PRINT PRESENT DATA":З"# ENTER HIGHEST NUMBERED FILE":З"  (WILL PRINT FROM FILE 1 TO #)":ЙX9:XX│0:ЕX9▓1з Бж801ЕfA│0:ИX Бж132,64,140,1461ЭhБж18:ЕX9▓1зБе152:ДР1╤jX9│2:W│132:Бж20:Й"ROW # OF ITEM ";A:ЕA▓N(1)з1682+lW│64:Бж20:З@W,"1.PREVIOUS ITEM #";S(A):Бж20:З@W,"2.DESCRIPTION":Бж20:З@Wл2,D$(A):Бж202┌nБж20:З@W,"3.QTY IN STOCK   ";I(A):Бж20:З@W,"4.NET PRICE      ";P(A):Бж20:З@W,"5.LIST PRICE     ";P3(A):Бж20:З@W,"6.QTY ON ORDER   ";B(A):Бж20:З@W,"7.BALANCE OWED   ";T(A)34pW│Wл64:З@W," CHANGE CATEGORY NUMBER 1-7":Бж20:З@W,"8 TO RETURN TO THE MAIN MENU";:ЙQQ3~rW│80л(QQн32):ЕQQ▓7з Р :Д И QQ Бж 116,118,120,122,124,126,128:Ю0:Бе1083ТtЗ@W,"";:ЙS(A):Р3кvЗ@Wл48,"";:ЙD$(A):Р4xH│I(A):З@Wл64,"";:ЙI(A):Е H▓I(A) з Р :Д H2│B(A)нP(A):B(A)│B(A)м(I(A)мH):Е T(A)│H2 з 129 :Д Р4"zЗ@Wл64,"";:ЙP(A):Р4:|З@Wл64,"";:ЙP3(A):Р4j~H│B(A):З@Wл64,"";:ЙB(A):Е H│T(A) з 129 :Д Р4БАЗ@Wл64,"";:ЙT(A):Р4ЦБT(A)│B(A)нP(A):Р4ЬГР5*ДЗ#м2,д23)"STOCK & BACK ORDER REPORT #";XX:З#м2,"":З#м2,"ROW ITEM DESCRIPTION            IN   NET     TOTAL   SUGGESTED  QTY ON  B.O. AMT"5ДЖЗ#м2,"NO.  NO.                      STOCK  EACH  STOCK NET   LIST      B.O.    TOTAL"5фИFR$│"### #### %                    %#### ###.## ######   ####.##     ###  ####,.##% %":Бж306'ЙA│Aл1:U$│" ":P2│ Б(P(A)нB(A)):Е P2┤▓ Б(T(A)) з P2│T(A):U$│"M" 6ЭЛP4│I(A)нP(A):З#м2,═FR$;A,S(A),D$(A),I(A),P(A),P4,P3(A),B(A),P2,U$:ЕA│N(1)з 164 :Д Бж171:Е H│1 з Бж18:Бе132 :Д 1377,МЗ#м2,д30)"STOCK REPORT #";XX:З#м2,"":З#м2,"ROW  ITEM   QTY IN    NET PRICE      TOTAL":З#м2,"NO.  NO.    STOCK     PER ITEM     NET STOCK"7jОFR$│"###  ####    ####,   $$#####,.##  $$######,.##":Бж307╬РA│Aл1:P4│I(A)нP(A):З#м2,═FR$;A,S(A),I(A),P(A),P4:ЕA│N(1)з 164 :Д Бж171:ЕH│1 з Бж18:Бе140 :Д 1448ЬТЗ#м2,д24)"DESCRIPTION & PRICE REPORT #";XX:ЗNARY/H╢Ж CLEOPATRA,ELIZABETH,ZORBA,ANTHONY,MOSES,CHARLTON,SPOCK,LEONARD/TчЖ -1,-1/╡ш:ГPLACE WHATEVER DATA LINES  YOU  LIKE BETWEEN 640 AND 999.  INSERT MATCHING ITEMS IN PAIRS.;L1U2L1U2L1U1L1;BM+4,+0;R1U1R1U1E3":B8$│"BM20,135;XB7$;BM150,180;XB7$;B                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 	╢&
:ГDEC 83&':ГKENNETH K. RAYMOND&@
Бж100 :ГINSTRUCTIONS&YБж200 :ГMAKE 2 LISTS&vБж 300 :ГCHOOSE RANDOMLY&Х(Бж 400 :ГDISPLAY SCRAMBLED&▓2Бж 500 :ГINPUT AND SCORE&т<Ю:З@160,"YOU GOT "ANSWERS" ANSWERS CORRECT"&№FЗ"THAT WAS OUT OF 10"'"PЗ б(32,"-");:З"WOULD YOU LIKE TO"'1YЗ"      ";'~ZЗ"PLAY AGAIN(1)                   SEE CORRECT ANSWERS(2)          END(3)'Ф[A$│ Т:Е A$│"" з91'─\ЕA$│"1"з О :Д Е A$│"3"з 97 :Д Е A$┤▓"2"з 60'╥^Ю:А I│0е9'я`З FIRST$(I),SECOND$(I):Л(aЗ:З б(10," ");:З"GOODBYE--"(bК(7c:ГINSTRUCTIONS AND INITIALIZE(=dЮ(QeЗ:З:З б(32,"#"))7fЗ"THIS  IS  A  GAME  FOR MATCHING TWO LISTS THAT WILL BE SHOWN TO YOU. MOVE THE BLINKING CURSOR   WITH THE UP AND DOWN ARROW KEYS AND PRESS @ WHEN  THE CURSOR IS OPPOSITE THE ITEM MARKED BY THE POINTER _- . G O O D  L U C K !)=hЗ)MiЗ б(32,"#"))okЗ"    press any key to begin")┤lЕ  Т│"" з З@222," ";:АQW│1е30:Л:З@222, Л(128);:АQW│1е100:Л:Бе108)╫nМ F$(100),S$(100),COUNTER(100))▌sЮ)уxР)Ї╟:ГMAKE LISTS)№╚I│1*╥Н F$(I),S$(I)*-▄ЕF$(I)┤▓"-1" з I│Iл1:Бе210*;цMAX│Iм1:Р*Q
+:ГCHOOSE RANDOMLY*`
,А I│ 0 е 9*n
6N│ Д(MAX)*Э
@Е COUNTER(N)┤▓0 з 310:ГITEM CHOSEN ALREADY*┬
JFIRST$(I)│F$(N):SECOND$(I)│S$(N)*ё
TCOUNTER(N)│1:ГITEM UNAVAILABLE FROM NOW ON*∙
^Л I* 
hР+
П:ГSCRAMBLE & DISPLAY+&
РА I│0 е 9+7
ЪЗ FIRST$(I),+F
дN│ Д(10)м1+_
оЕ KOUNTER(N)│1 з 420+}
╕З SECOND$(N):KOUNTER(N)│1+Ф
╜TWO$(I)│SECOND$(N)+Ы
┬ЛI+│
╟З б(32, Д(127)л128)+∙
╔З" pointer _- points to left list  cUrSoR  refers  to  right list+ 
╠Р,
є:ГINPUT & SCORE, 
ЇАI│0 е 9,4
■З@32нIл13,"_-";,EX│32нIл13л16,VЗ@X, Л(128);,`A$│ Т,|!А PK│341е344:Т PK,255:Л,╒&Е A$┤▓"^" ░ A$┤▓ Л(10) ░ A$┤▓"@" з З@X," ";:АQ│1е30:Л:З@X, Л(128);:АQW│1е100:Л:Бе540,ё0Е A$│"@" з Бж 600:Л I:Р,■:З@X," ";-DЕ A$│"^" з X│Xм32 :Д X│Xл32-EIЕ X┤0 з X│Xл32 :Д Е X▓320 з X│Xм32-PNБе 530-aW:ГSCORE ETC.-lXа 80,1-|]J│(Xм29)о32-йbЕ TWO$(J)│SECOND$(I) з ANSWERS│ANSWERSл1-└lЗ@32нI, б(16," ");-┌vЗ@32нJл16, б(16," ");-рАР.ДЖ ONE, 1, TWO,2,THREE,3,FOUR,4,FIVE,5,SIX,6,SEVEN,7.>ОЖ EIGHT,8,NINE,9,TEN,10,ELEVEN,11.tШЖ FEMUR,LEG,CRANIUM,HEAD,STERNUM,CHEST,RETINA,EYE.╢вЖ PARIS,FRANCE,BUENOS AIRES,ARGENTINA,BOMBAY,INDIA,RIO,BRAZIL/мЖ ABSCISSA,ORDINATE,DIFFERENTIATE,INTEGRATE,VECTOR,SCALAR,REAL,IMAGI Ї&
Х4500:Бе14&cЗ@320,"   NUMBER OF LINES PER PAGE":З@352," (STANDARD PAGE IS 55 LINES";:ЙY7:Р&еМT(220),S(220),I(220),P3(220),B(220),P(220),N(1),D$(220):Бе32&│З#м2,"":Р&╧АAA│1е61мY7:З#м2,"":Л:Р&ца2,2:АX│0е1800:Л:Р&ёW│Wл32& З@W,"";:Р'W│226:Бе22'BЮ1:W│229:Бж22:Й"ROW # OF ITEM ";A:ЕA▓N(1)з48:ДР'\а2,3:АX│0е1700:Л:Бе26'vАM│1е80:З#м2,"=";:Л:Р'╥ F8│0:G│1:Ю1:W│0:Бж20:Й"     IS THIS NEW INVENTORY            (1= YES  2= NO)";X:ЕX│2з50("AA│0:Бж20:Й"HOW MANY STOCK NUMBERS ";N(1)(Г$AA│AAл1:Е AA▓N(1)з AA│AAм1:Бе50 :Д Бж20:З"ROW NUMBER  ";AA:Бж20:Й"ITEM NUMBER ";S(AA):Бж20:З"DESCRIPTION (20 CHARACTERS MAX)" (д&Т1305,191:W│259:Бж22:ЙD$(AA))@(W│256:Бж20:Й"QUANTITY IN STOCK ";I(AA):Бж20:Й"QUANTITY PURCHASED ";B(AA):Бж20:Й"NET PRICE ";P(AA):Бж20:Й"LIST PRICE ";P3(AA):Бж20:Й"AMOUNT OWED ";T(AA))h*ЕB(AA)▓I(AA)зB(AA)│B(AA)мI(AA):Бе45)Ж,I(AA)│I(AA)мB(AA):B(AA)│0)е-ЕT(AA)┤1зT(AA)│P(AA)нB(AA))┘.Бж20:Й"1 = QUIT ";W:Ю1:ЕW│1з N(1)│AA:Бе50 :Д 36*0Ю0:а2,1:З@130,"HIGHEST ROW IN USE IS ";N(1):Бе19*v2Ю1:З@11,"COMMANDS":З@69,"1  CHANGE ITEM #":З@101,"2  MARK FOR DELETION":З@133,"3  DELETION PROCESS"*ї4З@165,"4  REPORTS TO PRINTER":З@197,"5  ADD NEW ITEM":З@229,"6  SAVE DATA":З@261,"7  LOAD DATA":З@293,"8  LIST DISK FILES"+'6ЙX:Ю1:И X Бж 106,172,174,96,70,85,78,180:Бе50+Б8Бж26:З@263,"IN STOCK ";I(A):З@293,"BACK ORDERED ";B(A):З@320," BK ORDERS FILLED ";:ЙD+║:ЕD▓I(A)зЗ"YOU ONLY HAVE ";I(A);" IN STOCK":Бж28:Бе56+°<ЕD▓B(A)зЗ"YOU ONLY HAVE ";B(A);" ON BACK ORDER":Бж28:Бе56,>B(A)│B(A)мD:I(A)│I(A)лD:Р,┬@З#м2,д30)"BACK ORDER REPORT #";XX:З#м2,"":З#м2," ROW   ITEM   QTY ON     NET       B.O. NET        LIST":З#м2," NO.   NO.     B.O.     FOR 1       TOTAL         PRICE"-
BFR$│"###  ####,   ####,  $$###,.##   $$######.##   $$#####.##":Бж30-sDA│Aл1:P2│P(A)нB(A):З#м2,═FR$;A,S(A),B(A),P(A),P2,P3(A):Е A│N(1)з 164:Д Бж171:Е H│1 з Бж18:Бе64 :Д 68-иFЕN(1)│220 з Ю1:З@132,"STOCK REPORT IS FULL":Бе19.HW│64:N(1)│N(1)л1:AA│N(1)м1:G│N(1):Бж22:Й"HOW MANY ITEMS TO BE ADDED ";X:N(1)│(N(1)лX)м1:ЕN(1)▓220 з74 :Д36.ЧJЮ1:З@131,"INVENTORY LIST HAS SPACE":З"ALLOCATION FOR  ";220;" ITEMS.";Gм1:З"  ARE IN USE,";(220м(Gм1));"REMAINING":N(1)│Gм1.аLБе19.▌NЗ@129,"";:Й"INPUT FILE NUMBER DESIRED ";XX:F8│XX:XX│XXм1.ЄPБж154:Щ"I",#1,F$/RЙ#1,T(V) ┤&В NUMDUMP&)
А I│ 32000  е  32119 &1Н X&;Т I,X&C(Л I&m<Ж  52, 119, 189, 179, 237, 52, 6, 134&ЪFЖ  254, 151, 111, 134, 13, 189, 162, 130&┬PЖ  16, 158, 27, 51, 141, 0, 85, 141&ыZЖ  19, 141, 42, 16, 156, 29, 45, 247'dЖ  134, 13, 189, 162, 130, 53, 6, 189'@nЖ  180, 244, 53, 247, 236, 164, 49, 39'gxЖ  77, 42, 4, 15, 111, 32, 245, 93'МВЖ  42, 4, 50, 98, 32, 221, 38, 2'╢МЖ  198, 32, 237, 69, 57, 158, 166, 52'тЦЖ  16, 189, 162, 130, 31, 152, 189, 162(аЖ  130, 134, 61, 189, 162, 130, 223, 166(<кЖ  166, 196, 28, 254, 189, 173, 198, 134(d┤Ж  254, 151, 111, 51, 141, 0, 5, 53(О╛Ж  16, 159, 166, 57, 135, 35, 172, 50(│╚Ж  44, 65, 32, 44, 0, 36, 0, 255, 23, 0, 145, 31(э▄Ж  152, 23, 0, 140, 134, 32, 23, 0)цЖ  135, 23, 0                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 (&В STRDUMP&)
А I│ 32000  е  32186 &1Н X&;Т I,X&C(Л I&o<Ж  52, 119, 134, 254, 151, 111, 134, 13&ЪFЖ  189, 162, 130, 16, 158, 27, 51, 141&├PЖ  0, 155, 141, 16, 141, 46, 16, 156&юZЖ  29, 45, 247, 134, 13, 189, 162, 130'dЖ  15, 111, 53, 247, 236, 164, 141, 93'>nЖ  49, 39, 77, 42, 4, 49, 39, 32'fxЖ  243, 193, 128, 36, 4, 50, 98, 32'СВЖ  221, 193, 128, 38, 2, 198, 160, 192'╗МЖ  128, 237, 69, 57, 109, 141, 0, 100'хЦЖ  38, 58, 158, 166, 52, 16, 189, 162(аЖ  130, 31, 152, 189, 162, 130, 134, 36(>кЖ  189, 162, 130, 134, 61, 189, 162, 130(k┤Ж  134, 34, 189, 162, 130, 223, 166, 166(Ш╛Ж  196, 28, 254, 189, 173, 198, 134, 254(└╚Ж  151, 111, 51, 141, 0, 55, 53, 16(э╥Ж  159, 166, 134, 34, 189, 162, 130, 134)▄Ж  10, 189, 162, 130, 57, 52, 6, 111)?цЖ  141, 0, 33, 230, 34, 174, 36, 166)hЁЖ  128, 141, 5, 90, 38, 249, 53, 134)О·Ж  129, 32, 39, 8, 129, 48, 45, 5)╢
Ж  129, 128, 36, 1, 57, 134, 1, 167)▄
Ж  141, 0, 1, 57, 5, 135, 35, 172*

Ж  50, 44, 65, 65, 36, 59, 0, 32*'
"Ж  0, 255, 0, 255, 0, 255, 0, 25557, 23, 43*^
6Ж  95, 51, 141, 0, 148, 141, 132, 222*И
@Ж  29, 52, 64, 236, 196, 141, 20, 236*░
JЖ  66, 227, 225, 16, 147, 31, 36, 6*╫
TЖ  52, 6, 31, 3, 32, 237, 141, 209*■
^Ж  22, 255, 23, 52, 4, 141, 33, 53                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 i&dВ * PUZZLE CONTEST #1&InХ 300: P│1024: :Г MC10 MAKE THIS: P=16384&zxЮ0: U$│ Л(94): D$│ Л(10): L$│ Л(8): R$│ Л(9)&пВY$│ Л(159): G$│ Л(255): B$│ Л(128): H│326: C│128&┌МА X│162 е 290 й 64: N│Nл1: Е N│2 з N│0'	ЦА Z│XлN е XлNл7 й 2: З @ Z, Л(223);: Л Z,X'8аА X│64 е 75: З @ X,Y$;: З @ Xл288,Y$;: Л X'jкА X│96 е 320 й 32: З @ X,Y$;: З @ Xл11,Y$;: Л'Ц┤З @ 102, Л(175);: З @ H,G$;: А QW│1 е 5'╦╛A$│ Т: Е A$┤▓U$ ░ A$┤▓D$ ░ A$┤▓L$ ░ A$┤▓R$ з 190(╚K│PлH: U│ Ж(Kм32): D│ Ж(Kл32): L│ Ж(Kм1): R│ Ж(Kл1)(Q╥Е A$│U$ ░ U┤▓128 ▒ A$│D$ ░ D┤▓128 ▒ A$│L$ ░ L┤▓128 ▒ A$│R$ ░ R┤▓128 з 190(w▄H1│H: Е A$│U$ з H│Hм32: S$│S$л"U"(ЧцЕ A$│D$ з H│Hл32: S$│S$л"D"(╢ЁЕ A$│L$ з H│Hм1: S$│S$л"L"(╒·Е A$│R$ з H│Hл1: S$│S$л"R")
J$│ И(H): V$│V$л П(J$, З(J$)м1): З @ H1,B$;: З @ H,G$;)+
Е  Ж(PлHм32)│175 з 290)6
Бе 190)V
"И QW Бж 330,350,380,400,420)К
,V$│"": S$│"": З @ H,B$;: H│326: З @ H,G$;: Л QW)│
6З @ 384,"FIRST LETTER OF EACH FORMS")╪
@З "ANAGRAM OF RELATED WORD.";: К*&
JX$│ Р(V$,11,1)л Р(V$,3,1)л Р(V$,21,1)л Р(V$,24,1)л Р(V$,14,1)л Р(V$,24,1)*D
TЗ @ 20,QW"- ";: Бж 440: Р*и
^X$│ Р(V$,21,1)л Р(V$,29,1)л Р(V$,21,1)л Р(V$,1,1)л Р(V$,17,1)л Р(V$,4,1)л Р(V$,17,1)л Р(V$,6,1)*╞
hЗ @ 52,QW"- ";: Бж 440: Р*╘
rБж 440: Р+7
|X$│ Р(V$,17,1)л Р(V$,9,1)л Р(V$,3,1)л Р(V$,17,1)л Р(V$,15,1)л Р(V$,7,1)л Р(V$,17,1)л Р(V$,9,1)+U
ЖЗ @ 84,QW"- ";: Бж 440: Р+а
РX$│ Р(V$,6,1)л Р(V$,2,1)л Р(V$,6,1)л Р(V$,26,1)л Р(V$,30,1)л Р(V$,6,1)+┐
ЪЗ @ 116,QW"- ";: Бж 440: Р,

дX$│ Р(V$,36,1)л Р(V$,26,1)л Р(V$,26,1)л Р(V$,5,1)л Р(V$,30,1)л Р(V$,11,1),,
оЗ @ 148,QW"- ";: Бж 440: Р,b
╕А U│1 е  З(X$)м1 й 2: З  Л( Й( Р(X$,U,2)));: Л: Р,h
┬КS$)$░
"Е T▓│CNTR з L$(X)│ О(L$(X),BGNRм1)л Р(S$,2,SLм1)л П(L$(X),NL)$Ё
,Е T▓│CNTR з BEGINP│BGNRлSLм1 :Д BEGINP│BGNRл З( И(OLDNR))м1%%
6Е  Р(L$(X)                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 С&G
:Г BASIC PROGRAM TO BUILD THE MACHINE LANGUAGE ROUTINES IN MEMORY&a:Г CHECKS YOUR TYPING&y:Г SAVES IT TO TAPE&Й(Х200,&H3F00&к2ML│&H3F00 :ГSTART OF PROGRAM&╜<Н A:Е A│м1 з90&╥FТ MLлT,A:CH│CHлA&сPT│Tл1:Бе60'%ZЗ CH:Е CH┤▓18159 ▒ T┤▓173 з З"DATA ERROR- CHECK YOUR TYPING.":К'4dЮ0:З"DONE"'оnЗ"POSITION TAPE AND PRESS <RECORD>":З"PRESS ANY KEY TO SAVE THE       DIGITIZATION SUBROUTINES AS     'DIGIML'":I$│ Т'╜xЕ Т│""з120'сВШM"DIGIML",&H3F00,&H3FAD,&H3F53'чМК(ЦЖ 95,189,169,157,189,167,202,173,159,160,0(=аЖ 39,250,129,3,39,54,26,80,183,255(bкЖ 223,142,64,0,51,140,47,95,15,0(И┤Ж 182,255,32,132,1,39,8,150,0,170(п╛Ж 197,151,0,32,8,150,0,170,197,150(╥╚Ж 0,32,0,92,193,8,37,228,150,0(¤╥Ж 167,128,140,255,0,37,216,183,255,222)#▄Ж 189,167,235,57,128,64,32,16,8,4)HцЖ 2,1,26,80,182,255,35,138,8,183)qЁЖ 255,35,182,255,1,132,247,183,255,1)Ы·Ж 182,255,3,132,247,183,255,3,183,255)┼
Ж 223,51,140,216,142,64,0,166,128,151)ы
Ж 0,95,150,0,165,197,39,4,134,252*
Ж 32,4,134,0,32,0,183,255,32,32*3
"Ж 17,18,18,18,18,18,18,18,18,18*X
,Ж 18,18,18,18,18,18,18,18,92,193*А
6Ж 8,37,215,140,255,0,37,205,183,255*Р
@Ж 222,57,-1Р(V$,17,1)л Р(V$,6,1)*╞
hЗ @ 52,QW"- ";: Бж 440: Р*╘
rБж 440: Р+7
|X$│ Р(V$,17,1)л Р(V$,9,1)л Р(V$,3,1)л                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          ─┴├┼╟┼┼─╚╚'(╚*+,-./01╞                  TITLE   BAS":CONNECT BAS#¤CONTEST BAS lDIGBUILDBAS!ФDIGITIZEBAS$ДVARLIST BAS%СNUMDUMP BAS╖STRDUMP BAS+DAWN    BAS&┤MATCH   BAS╣STOCK   BASўSTARSHIPBAS)Ї                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 7&
Х200,15000:Ю&'B$│"<HIT ENTER>"&:АX│15000е15103&R(НOP$:N│ Й("&H"лOP$)&c2ТX,N:S│SлN:Л&Б<З@72,"HOT COCO MAGAZINE "&ЦFЗ@139,"PRESENTS"&ЮPЗ:З&╪ZЗ д4) Л(130)л Л(131)л"              "л Л(129)л Л(135)'dЗ д4) Л(136)л Л(140)л" N S T A N T  "л Л(132)л Л(140)л" O C O"'2iЗ@329,"  MAY 1985"'?nЗ@426,B$'txв15000:АX│1е130:Л:A$│ Т:Е A$│ Л(13)  з 140:Бе120'ВБе 120'╦МЮ:З@65, " SPECIFIC INSTRUCTIONS FOR       PROGRAMS APPEAR IN HOT COCO "(ЦЗ@162,"* cload FOR BASIC PROGRAMS *    * cloadm FOR ML PROGRAMS   *"(ZЫЗ@290,"*ALL PROGRAMS COPYRIGHT 1985*       * HOT COCO MAGAZINE *"(~ЬЗ@389,"** CW COMMUNICATIONS **"(ЛаЗ@458,B$(┴кв15000:А X│1е130:Л:A$│ Т:Е A$│ Л(13) з 200 :Бе170(╠┤Бе 170)2╛Ж 31,8D,00,5F,1F,21,E6,8D,00,5D,3A,1F,12,8E,04,00,A6,A0,A7,80,8D,44,8C,04,20,26,F5,8E,04,3F,A6,A0)F╚Ю:Т113,0:в40999)п╥Ж A7,00,8D,36,30,88,20,8C,05,FF,26,F2,8E,06,00,A6,A0,A7,82,8D,25,8C,05,E0,26,F5,8E,05,C0,A6,A0,A7,00*▄Ж 30,88,E0,8D,14,8C,04,00,26,F2,A6,8D,00,18,4C,81,04,26,01,4F,A7,8D,00,0E,39,81,BF,26,04,31,8D,00,01,39*-цЖ 9F,AF,CF,BF*6ЁЖ 00R,1)│" " з BGNR│BGNRл1:Бе220"─цI$│ Р(L$(X),BGNR,1):Е I$│"" з L$(X)│L$(X)л"####":З"NO LINE REFERENCE IN LINE";  Й(L$(X));"--MARKED":Бе 340##ЁI│ К(I$):Е I│35 з BEGINP│BGNTл4:З"BAD LINE REFERENCE I                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ·&?dВ * CONNECTIONS * TRS-80 COLOR, EXTENDED AND MC-10 BASICS&_nВ * AFTER A SAM LOYD PUZZLE&СxЮ 0: P│1024 :Г FOR MC-10 MAKE IT: 120 P=16384&╠ВG│207: Q│143: U$│ Л(94): D$│ Л(10): L$│ Л(8): R$│ Л(9)&ЎМА X│0 е 31: Т PлX,G: Т 480лPлX,G: Л X'%ЦА Y│0 е 480 й 32: Т PлY,G: Т 31лPлY,G: Л Y'DаА X│299 е 303: Бж 320: Л X'wкЗ @ 301,"1";: Q│Qл16: А X│74 е 78: Бж 320: Л X'м┤З @ 108,"2";: Q│Qл16: А X│417 е 421: Бж 320: Л X'▀╛З @ 419,"3";: Q│Qл16: А X│68 е 72: Бж 320: Л X(╚З @ 102,"4";: Q│Qл16: А X│181 е 185: Бж 320: Л X(V╥З @ 215,"5";: Q│143: А X│318 е 446 й 32: Т PлX,Q: Q│Qл16: Л X(В▄N│113: Q│143: А X│318 е 446 й 32: Z│XлP(мцZ$│ Т: Т Z,255: А T│1 е 5: Л T: Т Z,Q(╨ЁЕ Z$│U$ ░  Ж(Zм32)│128 з Z│Zм32(Ї·Е Z$│D$ ░  Ж(Zл32)│128 з Z│Zл32)
Е Z$│L$ ░  Ж(Zм1)│128 з Z│Zм1)8
Е Z$│R$ ░  Ж(Zл1)│128 з Z│Zл1)\
Е  Ж(Zм32)│N ▒  Ж(Zл32)│N з 300)g
"Бе 230)Ъ
,Т Z,Q: N│Nл1: Q│Qл16: Л X: З @ 0,"WINNER ! !";)╪
6А X│1 е 50: Z│ Д(150): А L│Z е Zл26 й 13: а L,1: Л L,X: К)є
@Т PлX,Q: Т 32лPлX,Q: Р)∙
JКE,3                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Б&!
:Г ********DIGITIZE********&;:Г 64K EXTENDED BASIC&R:Г BY JEFF RUBIDGE&y:Г BOX 855,BATTLEFORD,SASKATCHEWAN&Р:Г CANADA  S0M 0E0&Ч:Г&з
Х200,&H3F00&╤ML│&H3F00:RD│ML:PL│MLл&H53:SP│MLл&H8D'Е Ж(RD)┤▓&H5F ░  Ж(PL)┤▓&H1A зЮ8:З"YOU MUST LOAD 'DIGIML'":К'(Бе110'D2:Г*** PLAY (S=START MSB  E=END MSB)'n<ЕS▓│E зС:ДТMLл&H74,S:ТMLл&HA5,E:вPL:Р'ЦF:Г*** READ (S=START MSB  E=END MSB)'└PЕS▓│E зС:ДТMLл&H17,S:ТMLл&H40,E:вRD:Р'▀Z:Г*** HEX INPUT SUBROUTINE(dI$│ Т:ЕI$│""з100:ДN│ Ю("0123456789ABCDEF",I$)м1:Р(,nNS│15:МS(NS),E(NS)(Hx:Г*** MAIN PROGRAM LOOP(ВВАQ│0е15:S(Q)│&H40лQн12:E(Q)│&H40лQн12л12:Л:E(15)│&HFF)/МЮ7:Ю0:З"choices:":З"1. PLAY ENTIRE BUFFER":З"2. READ ENTIRE BUFFER":З"3. PLAY SECTION":З"4. READ SECTION":З"5. REDEFINE SECTION":З"6. CHANGE SPEED":З"7. VIEW":З"8. END")DЦI$│ Т:ЕI$│""з150)qаИ Й(I$)Бж190,210,230,270,300,350,380,430){кБе140)Ш┤:Г*** PLAY ENTIRE BUFFER)▒╛S│&H40:E│&HFF:Бж60:Р)╬╚:Г*** READ ENTIRE BUFFER*╥Й"POSITION TAPE, PRESS <PLAY>,    THEN TYPE <ENTER>";A$:S│&H40:E│&HFF:Бж80:Р*8▄:Г*** PLAY A SECTION*nцЗ:З:З"TYPE HEX 0 -  F":З"ANYTHING ELSE TO RETURN"*АЁБж100:ЕN│м1зР*й·S│S(N):E│E(N):ЕS│0░E│0зС:ДБж60:Бе240*┬
:Г*** READ A SECTION+

З:З:З"WHICH SECTION (0-F)":З"ANYTHING ELSE TO RETURN":Бж100:ЕN│м1зР+#
S│S(N):E│E(N):Бж80:Р+>
":Г*** REDEFINE SECTION+v
,Ю3:АQ│0е15:З@Qн32, Ь(Q)".  " Ь(S(Q))"  " Ь(E(Q));:Л+л
6З@16,;:Й"SECTION";A$:A│ Й("&H"лA$):ЕA┤0▒A▓15з310,
@З@14л32нA,;:Й"START";S$:S(A)│ Й("&H"лS$):З@14л32нA,;:Й"END";E$:E(A)│ Й("&H"лE$):ЕS(A)▓│E(A)з320,
JР,%
T:Г*** SPEED,k
^Ю0:З"CURRENT SPEED =" Ж(SP):З:Й"CHANGE TO (0-17)";N:ЕN┤0▒N▓17з350,w
hТSP,N:Р,Я
r:Г*** VIEW GRAPHICS OF SOUND BUFFER,░
|╚4,1:OF│&H40,┬
ЖТ&HBA,OF:┐1,1-
РЕ  Ж(341)│247 з Т341,255: OF│OFм2:ЕOF┤0зOF│OFл256:Бе390:Д390-D
СЕ Ж(342)│247 з Т342,255:OF│OFл2:ЕOF▓255зOF│OFм256:Бе390:Д390-W
ЪЕ Т│"R"зР:Д400-f
д:Г THE END-А
оЮ:Зд10)"SO LONG...":К COMPLETED"%Ф
rК%п
|А P│BEGINP е  З(L$(X))%┼
ЖHH$│ Р(L$(X),P,4)%ю
РЕ  Р(L$(X),P,5)│"GOSUB" з BGNR│5лP:Р&&
ЪЕ HH$│"GOTO"                                                                                                                                                                                                                                                                 О&В VARLIS&(
А I│ 32000  е  32372 &0Н X&:Т I,X&B(Л I&j<Ж  52, 94, 51, 141, 1, 36, 189, 169&ФFЖ  40, 141, 72, 173, 159, 160, 0, 129&║PЖ  82, 39, 16, 129, 65, 16, 39, 0&тZЖ  173, 129, 78, 39, 8, 129, 83, 39'
dЖ  27, 32, 232, 53, 222, 51, 141, 1'5nЖ  13, 189, 169, 40, 141, 37, 134, 193'_xЖ  167, 141, 0, 63, 134, 36, 167, 141'ЖВЖ  0, 59, 32, 40, 189, 169, 40, 51'пМЖ  141, 1, 7, 141, 14, 134, 192, 167'╫ЦЖ  141, 0, 40, 134, 43, 167, 141, 0'√аЖ  36, 32, 17, 55, 2, 77, 39, 5(&кЖ  189, 126, 16, 32, 246, 134, 13, 173(O┤Ж  159, 160, 2, 57, 16, 158, 27, 236(w╛Ж  161, 129, 128, 37, 4, 49, 44, 32(а╚Ж  246, 49, 37, 193, 128, 36, 33, 93(╞╥Ж  38, 2, 198, 32, 23, 0, 145, 31(э▄Ж  152, 23, 0, 140, 134, 32, 23, 0)цЖ  135, 23, 0, 132, 134, 9, 23, 0)=ЁЖ  127, 158, 136, 140, 5, 188, 46, 10)f·Ж  16, 156, 29, 37, 202, 141, 26, 22)П
Ж  255, 96, 52, 18, 142, 5, 224, 150)╣
Ж  45, 167, 128, 140, 5, 255, 38, 249)с
Ж  141, 7, 189, 169, 40, 53, 18, 32*

"Ж  223, 134, 13, 141, 83, 173, 159, 160*4
,Ж  0, 129, 32, 38, 248, 57, 23, 43*^
6Ж  95, 51, 141, 0, 148, 141, 132, 222*И
@Ж  29, 52, 64, 236, 196, 141, 20, 236*░
JЖ  66, 227, 225, 16, 147, 31, 36, 6*╫
TЖ  52, 6, 31, 3, 32, 237, 141, 209*■
^Ж  22, 255, 23, 52, 4, 141, 33, 53+%
hЖ  2, 77, 43, 11, 141, 26, 134, 32+N
rЖ  141, 22, 134, 9, 141, 18, 57, 128+x
|Ж  128, 141, 13, 134, 36, 141, 9, 134+Ю
ЖЖ  32, 141, 5, 134, 9, 141, 1, 57+─
РЖ  109, 141, 0, 95, 39, 13, 52, 2+я
ЪЖ  134, 254, 151, 111, 53, 2, 173, 159,
дЖ  160, 2, 57, 15, 111, 173, 159, 160,>
оЖ  2, 57, 78, 44, 83, 44, 65, 44,c
╕Ж  32, 79, 82, 32, 82, 0, 78, 85,Й
┬Ж  77, 69, 82, 73, 67, 32, 86, 65,п
╠Ж  82, 73, 65, 66, 76, 69, 83, 32,╘
╓Ж  32, 0, 83, 84, 82, 73, 78, 71,·
рЖ  73, 78, 71, 32, 86, 65, 82, 73- 
ъЖ  65, 66, 76, 69, 83, 32, 32, 32-E
ЇЖ  0, 65, 82, 82, 65, 89, 32, 86-k
■Ж  65, 82, 73, 65, 66, 76, 69, 83-НЖ  32, 32, 0, 0, 0, 0, 255, 0Ф
rК%п
|А P│BEGINP е  З(L$(X))%┼
ЖHH$│ Р(L$(X),P,4)%ю
РЕ  Р(L$(X),P,5)│"GOSUB" з BGNR│5лP:Р&&
ЪЕ HH$│"GOTO"                                                                                                                                                                                                                                                                 ▒&
Ю:Т65495,0:X│ Д(м Я):Бе77&I:ГENTERANCE OF ENGINE FROM OFF SCREEN&e┼(20,150)м(170,189),E,╜&╪АA│0е64й2:АAA│1е4нB:ЛAA:B│Bл1:─(26лA,159)м(102лA,190),E,G:┼(179,91)м(255,121),E,╜:╞C1$:├(212,117),C1,1:C│ Д(5)'nЕA▓│12з┼(256мA,78)м(266мA,88),PF,░:╟6е2:╟7е3:╚3,1:├(264мA,85),C2,C2:╚3,5:├(264мA,85),C2,C2:┼(256мA,64лC)м(266мA,74лC),PS,░:╟6е2:ЛA :Д╟6е2:╟7е3:ЛA'Щ:ГRUN ENGINE INTO STATION WITH BRAKING(B│0:АA│2е88й2:C│ Д(5):┼(179мA,91)м(255мA,121),E,╜:╞ C1$:├(212,117),C1,1:┼(90,81)м(170,121),HS,░:┼(90,81)м(170,121),HR,▒(└Е Б(Aо4)│Aо4з┼(192мA,78)м(202мA,88),PF,░:╟6е2:╟7е3:╚3,1:├(200мA,85),C2,C2:╚3,5:├(200мA,85),C2,C2:┼(192мA,64лC)м(202мA,74лC),PS,░:╟6е2:АAA│1е10нBп4:ЛAA:B│Bл.06:ЛA:Бе11(ы	╟6е2:╟7е3::АAA│1е10нBп4:ЛAA:B│Bл.07:ЛA)
:ГERASE SMOKE WITH GUST OF WIND)▒АA│255е110йм8:┬(A,70),10,C2,1,.3,.7:├(Aл3,67),4,C2:├(Aл3,73),4,C2:ЕA▓│235з╟6е2:Л:Д├(Aл20,67),C2,C2:├(Aл20,73),C2,C2:╟6е2:Л:┴C2,1:╗(105,60)м(255,88),╜,BF:╟6е2)┬:ГRAISE GATE) 
АA│1е300:Л:╞"C"л И(C2)л";XB3$;":L1$│"A1":╞ C2$:╟6е2:╟7е3*:ГSLOW PUFFING*Т65494,0*╨АA│1е650:Л:┼(104,78)м(114,88),PF,░:╟6е2:╚3,1:├(110,86),C2,C2:╚3,5:АA│1е100:Л:├(110,86),C2,C2:┼(104,65)м(114,75),PS,░:╟6е2:АA│1е450:Л:┼(104,65)м(114,75),PT,▒:╟6е2:АA│1е200:Л*¤├(106,70),C2,C2:╟6е2:Е Я┤26160з18:Дбк:Як+АA│1е200:Л:Бе16+СH1│2:АH│5е80й5:┼(0,80мH)м(255,120мH),BS,▒:Бж25:╗(24,121)м(76,161),╛,BF:╞ C2$:┼(90,81)м(170,121),HS,░:Бж29:Бж27:H1│H1л2:ЛH:Р+╣:ГMAKE CLOUDS RAISE SUN IN BLUE SKY,АH1│H еH1л74й2:╗(25,0)м(75,45),╛,BF:┼(24,0)м(76,45),SC,▒:╞B9$:─(24,0)м(76,45),SC,G:┴C2,1:╗(25,0)м(75,45),╜,BF:Бж25:┼(24,0)м(76,45),SC,▒:Бж29:Бж27:АA│0е2:R$(A)│"BM"л И( Д(240)л10)л","л И( Д(40)),ШЛA:АT│1е700:ЛT:ЛH1:Р,╕:ГSUBROUTINES WITHOUT LOOPS,╙:ГSAVE SKY AND PUT SUN-3─(25,110мH1)м(75,160мH1),SS,G:┼(25,110мH1)м(75,160мH1),SB,░:┼(25,110мH1)м(75,160мH1),SR,▒:Р-L:ГERASE SUN WITH SKY-p┼(25,110мH1)м(75,160мH1),SS,╜:Р-У:ГMOVE HIGH PAGES TO LOW PAGES-н╟7е3:╟6е2:╟5е1:╟8е4:Р.ПМ BS(262),E(150),HR(85),HS(85),M(66),MS(66),PF(3),PS(3),PT(3),R$(2),SB(66),SC(133),SR(66),SS(66):M│256н Ж(27)л Ж(28):ТMм&H3D5, Б((Mм&H3D4)о256):ТMм&H3D4,Mм&H3D4м256н Б((Mм&H3D4)о256):ГLOAD TABLE WITH LOC. OF FIRST VALUE-1/wL1$│"A1":B1$│"C0;BM200,122;R20;M240,191;L60;M200,122":B2$│"C4;BM210,122;D69":B3$│"BM225,121;U6R2D6L2;BM+0,-4;XL1$;L26;BM+9,0;U2R6D1L6D2R6D1L6D1R6;A0":B4$│"BM90,99;M+10,-10;R61;M+10,+10;L80":B6$│"BM100,119;NU20R60NU20D1L60D1R60"09 B5$│"BM210,117;C4;U1R2D3L2U1":B7$│"C0;U10L1U2L1U1L1;BM+3,+11;L1U2L1U2L1U1L1;BM+4,+0;R1U1R1U1E3":B8$│"BM20,135;XB7$;BM150,180;XB7$;BM30,178;XB7$;BM60,160;XB7$;BM140,140;XB7$;BM110,170;XB7$;"1!B9$│"C4;XR$(0);S6;NR4D1NL2NR6D1NR2L8D1NL1NR6F1R2BR6G1L2;XR$(1);NR2BG1NR4BG1NL1NR5G1NL1NR3D1NL2R6D1NL2NR2D1NL1R1;XR$(2);NR4D1NL3NR7D1NR3L2BL2L3D1NL1R8G1NL4G1L2BM-5,-1;L2S4":C1$│"C1;XB3$;XB5$;":C2$│"C1;XB3$;"1С"Ю5:З@224,"HIT <ENTER> IF RED";:З@256,"HIT <SPACEBAR> IF BLUE";:┐0,1:АT│1е300:ЛT:╚3,1:╝4:╗(80,85)м(100,105),╛,B:├(90,90),3,1:╚4,11╟#┐1,1:АT│1е300:ЛT:┐0,1:АT│1е300:ЛT:A$│ Т:ЕA$│""з352$ЕA$│ Л(32)зC1│2:C2│3:CP│105:ДЕA$│ Л(13)зC1│3:C2│2:CP│54:Д352Я%Т65494,0:Ю:З"SET SOUND TO COMFORTABLE LEVEL. MAKE SURE CASSETTE IS IN PLAY   MODE AND AT THE START OF SIDE #2":З:З"HIT ANY KEY  TAPE WILL SYNC UP."2╜&╔"L100;C;P5":Е Т│""з38:Дг2╒'Т65495,0: Я│0:ЯИ:бИ3@(Ю0:З@449,"as"; Л(128);"the"; Л(128);"night"; Л(128);"precedes"; Л(128);"the"; Л(128);"dawn";:Т&H5DF,453S):ГCREATE STARS3а*╚4,1:╝:АA│1е100:╜( Д(255), Д(120)):Л:─(150лSM,10лSM)м(190лSM,50лSM),MS,G3▓+:ГCREATE MOON4,╚4,5:╝:┬(126,96),6,1,1,.2,.8:┬(130,96),6,1,1,.3,.7:├(123,96),1,1:─(106,76)м(146,116),M,G4.-:ГGIVE THE AUDIANCE A VIEW4a.╚4,1:┼(150лSM,10лSM)м(190лSM,50лSM),M,▒:┐1,1:Ю4v/:ГCREATE STATION50╚4,5:╝1:╞"C0;XB4$;":╗(80,70)м(180,130),╛,B:├(90,75),0,0:─(90,81)м(170,121),HR,G:╝1:╞"C0;XB4$;":╚3,5:╞"C1;XB6$;":╚4,5:├(130,90),0,0:─(90,81)м(170,121),HS,G5)1:ГCREATE ENGINE62╚3,5:┴C2,1:╗(20,150)м(170,189),╜,BF:╞"BM100,182;C1U8BM+6,-6;R4U4R2D4R28E4R12NR4D22L16U4BM100,174;L2U3R4C4G1C1BM100,186;L8M+8,-4;BM100,173;M+6,-5;BM109,180;R28BM106,186;NL6U4M+3,-3;BM138,179;M+3,+3;BM147,184;D4R4U4613ЕC2│2зAA│1:ДAA│0:ГPREVENT WHEEL BLEED OUT6у4АA│0е20й10:╚4,5:┬(112лAлAA,185),3,0:╚3,5:├(112лAлAA,185),4,1:ЛA:╗(144,170)м(149,175),╛,BF:├(110,175),4,1:╚4,5:┬(120,174),8,0,.5:Т178,CP:├(120,174),,0:─(20,150)м(170,189),E,G6Ї5:ГCREATE SUN7q6╚3,5:╝4:┬(126,96),18,1:├(126,96),1,1:─(101,71)м(151,121),SB,G:╝:┬(126,96),18,C1:├(126,96),C1,C1:─(101,71)м(151,121),SR,G7К7:ГCREATE SMOKE PUFFS8?8┬(100,100),4,4:├(100,100),4,4:─(95,95)м(105,105),PT,G:╝4:╞"C1BM100,103;NU1ND1R1NU1ND1R1NU1D1;C4":─(95,95)м(105,105),PF,G:┬(120,120),4,1:├(120,120),1,1:─(115,115)м(125,125),PS,G8Y9╟1е5:╟2е6:╟3е7:╟4е8:Р8l::ГMAIN PROGRAM9#;:ГDIMENSION ARRAYS, CREATE OBJECTS FOR GET ARRAYS, DETERMINE RED AND BLUE COLOR CODE, SET SOUND LEVEL, TURN ON FIRST GRAPHIC -STAR FIELD-,LOAD ML TABLE WITH CORRECT INITIAL VALUE9,<Бж309<=Е Я┤1380з619]>:ГBRIGHTEN SKY AND MOVE MOON9°?┼(150лSM,10лSM)м(190лSM,50лSM),MS,╜:в Mм&H44B:SM│SMл8:─(150лSM,10лSM)м(190лSM,50лSM),MS,G:A3│A3л1:АA│1е3000й A3л1:ЛA:ЕA3│8з─(0,80)м(255,120),BS,G:Бе65:G@┼(150лSM,10лSM)м(190лSM,50лSM),M,▒:╞ C2$:┼(90,81)м(170,121),HS,░:Бж29:Бе63:СA┼(150лSM,10лSM)м(190лSM,50лSM),M,▒:╞ C2$:┼(90,81)м(170,121),HS,░:Бж29:гB:ГSTART SUNUP:│CЕ Я┤4300з67:╝DБж19:╩E:ГMORNING;
FАA│0е2:R$(A)│"BM"л И( Д(240)л10)л","л И( Д(40)):ЛA;иG╝C2:╞ C2$:┼(90,81)м(170,121),HS,░:┼(90,81)м(170,121),HR,▒:╗(0,122)м(255,191),╛,B:├(2,124),4,1:╞"C4BM2,122;R251":╚4,5:╞ B8$лB1$:├(210,150),0,0:╚3,5:╞ B2$:H│H1:Бж21;█H:ГLOWER CROSSING GATE AND         START ENGINE;эIЕ  Я┤16020з73</J╞"C"л И(C2)л";XB3$;":L1$│"A0":╞ C1$:├(212,117),C1,1:╟6е2:╟7е3<@KЕ Я┤18700з75<HLБе3<TM└8:Бе60<╞dЮ:X│ Ж(27)н256л Ж(28)л1099:З"ENTER":З" <POKE27,"; Б(Xо256);":POKE28,";Xм256н Б(Xо256);">":З"THEN <RUN 101>":К=$eЗ:З"TWO MINUTES WHILE I LOAD THE ML ROUTINE AND LOOKUP TABLE FOR THEBRIGHTNESS GRADIENT."=fТ65495,0:X│ Ж(27)н256л Ж(28)м1099:АA1│0е110:Н A$:ТXлA1, Й("&H"лA$):A2│ Й("&H"лA$)лA2:Л=╣gЕ A2┤▓10489зЮ:З"DATA ERROR IN LINES 102-105 A2=";A2:К>XhЖ 96,BA,5F,ED,8D,00,68,86,7A,A7,8D,00,68,AE,8D,00,65,30,01,AF,8D,00,5F,A6,84,A7,8D,00,54,81,00,26,12,EC,8D,00,4A,C3,00,20,ED,8D,00,43,6A,8D,00,45,26,DB,39?iЖ 86,C0,A7,8D,00,3B,F6,01,16,27,13,C4,03,27,09,44,44,5A,26,FB,A7,8D,00,29,F6,01,16,54,54,54,4F,E3,8D,00,19,ED,8D,00,18,A6,8D,00,16,AA,9D,00,10,A7,9D,00,0C,BD,BF,1F,6A,8D,00,04,20,B0?ojАA│0е121:ТXл&H78лAлC, Б((Aо66)пBл.7):ЛA:B│Bл1:C│Cл122:ЕB┤8з106:ДАN│C еCл2:ТXл&H78лN,0:ЛN?░kЮ:З"ENTER":З"<DEL100-107>":З"THEN SAVE THE PROGRAM":Т65494,0
ўNNNNNNNNNNNNNNNNNNNNNNїїї√                                                                                                                                                                                                                                                                                                    Mё&
:ГMAIN PORTION OF PROGRAM&<:ГIS TAKEN FROM MEGATREK&Q:Г(SMALLVER.)0.0&o(:ГWRITTEN BY TODD GLASSEY&Г2:ГFOR THE PDP11&б<:ГCONVERSION TO THE COLOR&┐F:ГCOMPUTER BY BILL BARBE'&╙P:ГNOVEMBER 1983&ЄZ:Г"LIVE LONG AND PROSPER."'d└ 1:X│ Д(м Я)'.nЮ:З:З:З"    *** STARSHIP CONTROL ***"'JxЗ@234,"REVISED FOR THE"'hВЗ@266,"COLOR COMPUTER BY"'ЕМЗ@298,"BILL BARBE' 1983"'гЦЗ@488,"ONE MOMENT PLEASE"'╒аМ G(8,8),Q(8,8),D(7),K(9,3),N(3),C(20),M(8,8)'ЁкT0│ Б( Д(0)н20л20)н100('┤T│T0:T9│40:E0│3000:E│2500:P0│10:P│10:S5│500:S9│200(5╛А I│1 е 8(C╚А J│1 е 8(P╥M(I,J)│0(X▄Л J(`цЛ I(МЁ╣ ╠D(D)│ Ы((K(I,1)мS1)п2л(K(I,2)мS2)п2)(б·Q1│ Б( Д(0)н8л1)(╢
Q2│ Б( Д(0)н8л1)(─
А I│1 е 7(╧
D(I)│0(╫
"Л I(ь
,S1│ Б( Д(0)н8л1))

6S2│ Б( Д(0)н8л1))
@В SET UP GALAXY)#
JB9│0:K9│0)1
TА I│1 е 8)?
^А J│1 е 8)N
hR│ Д(0)н64)W
rK3│0)w
|Е R▓│.0001 з 390 :Д K3│K3л1)Ф
ЖЕ R▓│.01 з400 :Д K3│K3л1)▓
РЕ R▓│.03 з 410 :Д K3│K3л1)╨
ЪЕ R▓│.08 з 420 :Д K3│K3л1)ю
дЕ R▓│.28 з 430 :Д K3│K3л1*

оЕ R▓│1.28 з 440 :Д K3│K3л1*,
╕Е R▓│3.28 з 450 :Д K3│K3л1*K
┬Е R▓│6.28 з 460 :Д K3│K3л1*k
╠Е R▓│13.28 з 470 :Д K3│K3л1*}
╓K9│K9лK3:B3│0*Ь
рЕ  Д(0)┤│.96 з 490 :Д B3│1*й
ъB9│B9лB3*╛
ЇS3│ Б( Д(0)н8л1)*┘
■G(I,J)│K3н100лB3н10лS3*сЛ J*щЛ I*єK0│K9+&Е B9▓0 з 600+0I│ Д(0)н8л.5+&:J│ Д(0)н8л.5+;DG(I,J)│G(I,J)л10+DNB9│1+QXЮ:Бе4930+gbВ SET UP QUADRANT+zlK3│0:B3│0:S3│0+аvЕ Q1┤1 ▒ Q1▓8 ▒ Q2┤1 ▒ Q2▓8 з 730+│АX│G(Q1,Q2)о100+└КK3│ Б(X)+╒ФB3│ Б((XмK3)н10)+°ЮS3│G(Q1,Q2)м Б(G(Q1,Q2)н.1)н10,иА I│1 е 9,▓А J│1 е 3,!╝K(I,J)│0,)╞Л J,1╨Л I,?┌А I│1 е 8,MфА J│1 е 8,ZюQ(I,J)│0,b°Л J,jЛ I,yQ(S1,S2)│1,ИА I│1 е K3,Щ Е K3│0 з 870,е*Бж 4890,┤4Q(R1,R2)│2,┬>K(I,1)│R1,╨HK(I,2)│R2,▐RK(I,3)│S9,ц\Л I,їfА I│1 е B3-pЕ B3│0 з 920-zБж 4890-!ДQ(R1,R2)│3-)ОЛ I-8ША I│1 е S3-IвЕ S3│0 з 970-UмБж 4890-d╢Q(R1,R2)│4-l└Л I-t╩A│1-Т╘В SHORT RANGE SENSOR SCAN-Ю▐Z9│S1л1-░шЕ Z9┤8 з 1020-╣ЄZ9│8-┼№Z8│S1м1-╫Е Z8▓1 з 1050-рZ8│1-ьZ7│S2л1-■$Е Z7┤8 з 1080..Z7│8.8Z6│S2м1.%BЕ Z6▓1 з 1110..LZ6│1.>VА I│Z8 е Z9.N`А J│Z6 е Z7.ejЕ Q(I,J)┤▓3 з 1160.~tC│0:E│3000:P│10:S5│0.К~Бе 1250.ТИЛ J.ЪТЛ I.мЬЕ K3▓0 з 1220.┴жЕ E┤E0н.1 з 1240.╔░C│1.╒║Бе 1250.т─C│2:A│м1.ю╬Бе 1250.Ў╪C│3/тЕ A▓│0 з 1270/ьБж 4250/&ЎЕ E┤│0 з 4570/;Е D(2)▓│0 з 1340/A
З/fЗ"MR. SPOCK REPORTS SHORT RANGE"/ЖЗ"SENSORS ARE INOPERATIVE."/М(З/Ш2Бе 1790/п<З"---------------"/╜FА I│1 е 8/╦PА J│1 е 8/╫ZБж 4770/сdЗ" ";/щnЛ J/ЄxЗ"";0ВЕ I│1 з 15300МЕ I│2 з 15500%ЦЕ I│3 з 167006аЕ I│4 з 16900GкЕ I│5 з 17100X┤Е I│6 з 17300i╛Е I│7 з 17500z╚Е I│8 з 17700А╥З0И▄Л I0ЯцЗ"---------------"0╜ЁM(Q1,Q2)│G(Q1,Q2):Бе 17900╧·З"STARDATE "T0█Бе 15000эЕ C┤▓0 з 15801З"STATUS   DOCKED"1"Бе 15001",Е C┤▓1 з 1610186З"STATUS   GREEN"1D@Бе 15001VJЕ C┤▓2 з 16401jTЗ"STATUS   RED"1v^Бе 15001ИhЕ C┤▓3 з 16601ЯrЗ"STATUS   YELLOW"1л|Бе 15001├ЖЗ"QUADRANT"Q1;"-"Q21╧РБе 15001чЪЗ"SECTOR  "S1;"-"S21єдБе 15002	оЗ"ENERGY   " Б(E)2╕Бе 15002)┬З"PHOTONS    "P25╠Бе 15002J╓З"KLINGONS   "K92VрБе 15002mъЗ"SHIELDS  " Б(S5)2yЇБе 15002К■Е A┤0 з 20702ЫЗ"COMMAND:";2дЙ A$2╣Е A$│"NA" з 22102╬&Е A$│"SR" з 990 2у0Е A$│"LR" з 30402°:Е A$│"PH" з 32403
DЕ A$│"TO" з 34803"NЕ A$│"DA" з 401037XЕ A$│"GM" з 19403LbЕ A$│"CQ" з 52503alЕ A$│"CS" з 55603vvЕ A$│"SH" з 58803УАЗ"COMMAND LIST:":Бе 20803ЯКБе 20703╔ФO1$│"-------------------------------"3сЮЗ:Зд10)"GALAXY MAP"3чиЗ4▓З"FOR QUADRANT"Q1;"-"Q24	╝З4╞З O1$4!╨А I│1 е 84/┌А J│1 е 84PфЕ M(I,J)│0 з З"***";:Бе 20404mюЗ  П( И(M(I,J)л1000),3);4{°З" ";:Л J4ГЛ I4НЗ O1$4ЩБе 18004о З"NA=SET COURSE"4╨*З"SR=SHORT RANGE SENSOR SCAN"4Є4З"LR=LONG  RANGE SENSOR SCAN"5	>З"PH=FIRE PHASERS"5)HЗ"TO=FIRE PHOTON TORPEDOES"5ARЗ"DA=DAMAGE REPORT"5V\З"GM=GALAXY MAP"5}fЗ"CQ=COMPUTE INTERQUADRANT COURSE"5вpЗ"CS=COMPUTE INTERSECTOR COURSE"5╗zЗ"SH=SHIELD CONTROL"5┴ДЗ5═ОБе 18005▐ШВ WARP DRIVE5эвЗ"COURSE";5ЎмЙ C16╢Е C1┤0 з 2210 :Д Е C1▓360 з 22106=└X│0:Е 9мC1о45┤7 з 2250 :Д X│16R╩C1│9мC1о45л2мSнX6m╘З"WARP FACTOR(0-12):";6v▐Й W16ИшЕ W1┤0 з 22106ЫЄЕ W1▓12 з 22106п№Е W1┤│.2 з 23606─	Е D(1)▓│0 з 23606ч	З"ENGINEER SCOTTY SAYS HE CAN"7
	З"ONLY GET .2 OUT OF THE WARP"7	$З"ENGINES."7&	.Бе 221079	8Е K3┤│0 з 23907E	BБж 42507W	LЕ E┤│0 з 45607e	VА I│1 е 77u	`D(I)│D(I)л17К	jЕ D(I)┤│0 з 24307Х	tD(I)│07Э	~Л I7┤	ИЕ  Д(0)▓.25 з 26507╔	ТR1│ Б( Д(0)н7л1)7▀	ЬЕ  Д(0)▓.5 з 25107√	жD(R1)│D(R1)м( Д(0)н5л1)8	░З"SPOCK REPORTS WE ENTERED A"81	║З"SPACE STORM."8=	─Бе 26508L	╬А I│R1 е 78`	╪Е D(I)┤0 з 25808h	тЛ I8y	ьА I│1 е R1м18Н	ЎЕ D(I)┤0 з 25808Х
Л I8б

Бе 26508к
R1│I8┬
D(I)│D(I)л Д(0)н5л18╫
(Е D(I)▓│0 з 26308ъ
2З"***TRUCE***"8Ў
<Бе 26509

FD(I)│09
PБе 26109
ZN│ Б(W1н8)9*
dE│EмNмNл59C
nЕ S5▓0 з E│Eм(W1н30)9M
xT│Tл19\
ВQ(S1,S2)│09e
МX│S19n
ЦY│S29Г
аЕ T▓T0лT9 з 45609П
кБж 39709Э
┤А I│1 е N9к
╛S1│S1лX19╖
╚S2│S2лX29▄
╥Е S1┤.5 з 2900 :Д Е S2┤.5 з 2900:
▄Е S1▓8.5 з 2900 :Д Е S2▓8.5 з 2900:!
цЕ Q(S1л.5,S2л.5)│0 з 2850:E
ЁЗ"ENTERPRISE BLOCKED BY OBJECT":f
·З"AT SECTOR" Б(S1);"-" Б(S2):sS1│S1мX1:АS2│S2мX2:МБе 2860:Ф"Л I:й,Q(S1л.5,S2л.5)│1:║6S1│ Б(S1л.5):╦@S2│ Б(S2л.5):╓JБе 990:єTQ1│ Б(Q1лW1нX1л(Xм.5)о8);^Е Q1▓│1 з 2930;hQ1│1;"rЕ Q1┤│8 з 2950;+|Q1│8;HЖQ2│ Б(Q2лW1нX2л(Yм.5)о8);[РЕ Q2▓│1 з 2980;dЪQ2│1;wдЕ Q2┤│8 з 3000;АоQ2│8;Х╕S1│ Б( Д(0)н8л1);к┬S2│ Б( Д(0)н8л1);╡╠Бе 620;╥╓В LONG RANGE SENSOR SCAN;чрЕ D(3)▓│0 з 3080<ъЗ"MR. CHECKOV SAYS LONG RANGE "<*ЇЗ"SENSORS ARE INOPERABLE."<6■Бе 1790<mЗ"LONG RANGE SENSOR SCAN FOR      QUADRANT"Q1","Q2<ИЗ"-------------------"<ЬА I│Q1м1 е Q1л1<з&N(1)│0<▓0N(2)│0<╜:N(3)│0<╤DА J│Q2м1 е Q2л1<ЇNЕ I┤1 ▒ I▓8 ▒ J┤1 ▒ J▓8 з 3180=	XN(JмQ2л2)│G(I,J)=bM(I,J)│G(I,J)=#lЛ J=tvЗ": " П( И(N(1)л1000),3)" : " П( И(N(2)л1000),3)" : " П( И(N(3)л1000),3)" :"=ПАЗ"-------------------"=ЧКЛ I=гФБе 1790=╕ЮВ PHASER CONTROL=═иЕ D(4)▓│0 з 3270=є▓З"MR. SULU REPORTS PHASERS DOWN."= ╝Бе 1790>8╞З"PHASERS LOCKED ON TARGET. ENERGYAVAILABLE = " Б(E)>Y╨З"NUMBER OF UNITS TO FIRE:";>a┌Й X>sфЕ X┤│0 з 1790>ЖюЕ EмX┤0 з 3270>Р°E│EмX>в
Е K3│0 з 3440>░
А I│1 е 9>╟
Е K(I,3)┤│0 з 3430>▀
 H│Xо╠D(0)н(2л Д(0))>є
*K(I,3)│K(I,3)мH?
4З  Б(H);"UNIT HIT ON KLINGON"?L
>З"AT SECTOR"K(I,1);"-"K(I,2);" (" Б(K(I,3))"LEFT)"?b
HЕ K(I,3)▓0 з 3430?n
RБж 4160?Б
\Е K9┤│0 з 4660?Й
fЛ I?Х
pБж 4250?з
zЕ E┤│0 з 4570?│
ДБе 1790?╩
ОВ PHOTON TORPEDOES?▀
ШЕ D(5)▓│0 з 3510@
вЗ"PHOTON TUBES ARE NOT OPERATIONAL"@
мБе 1790@$
╢Е P▓0 з 3540@I
└З"ALL PHOTON TORPEDOES EXPENDED"@U
╩Бе 1790@k
╘З"TORPRDO COURSE"@t
▐Й C1@Р
шЕ C1┤0 ▒ C1▓│360 з 3540@▓
ЄX│0:Е 9мC1о45┤7 з 3580 :Д X│1@╟
№C1│9мC1о45л2м8нX@╙Бж 3970@▄X│S1@хY│S2@я$P│Pм1A.З"TORPEDO TRACK:";A8X│XлX1ABY│YлX2A5LЕ X┤.5 ▒ Y┤.5 з 3930APVЕ X▓8.5 ▒ Y▓8.5 з 3930Af`З  Б(X);"-" Б(Y);AГjЕ Q(Xл.5,Yл.5)┤▓0 з 3710AПtБе 3640Aм~Е Q(Xл.5,Yл.5)┤▓2 з 3810A╦ИЗ"***KLINGON DESTROYED***"A▀ТK3│K3м1:K9│K9м1AЄЬЕ K9┤│0 з 4660BжА I│1 е 9B░Е  Б(Xл.5)┤▓K(I,1) з 3780B;║Е  Б(Yл.5)│K(I,2) з 3790BC─Л IBP╬K(I,3)│0B\╪Бе 3880ByтЕ Q(Xл.5,Yл.5)┤▓4 з 3850BПьЗ"STAR DESTROYED"BЫЎS3│S3м1BзБе 3880Bн
ЗB╬З"***STARBASE DESTROYED!***"B┌B3│B3м1Bэ(Q(Xл.5,Yл.5)│0C
2G(Q1,Q2)│K3н100лB3н10лS3C"<Е M(Q1,Q2)│0 з 3920C8FM(Q1,Q2)│G(Q1,Q2)CDPБе 3940CZZЗ"TORPEDO MISSED"CfdБж 4250CxnЕ E┤│0 з 4570CДxБе 1790CЮВX2│ Х((C1м1)н.785398)C╣МX1│м Е((C1м1)н.785398)C┐ЦРC╙аВ DAMAGE REPORTCшкЕ D(6)▓│0 з 4040D	┤З"DAMAGE REPORT UNAVAILABLE"D╛Бе 1790D╚ЗDA╥З"DEVICE         STATE OF REPAIR"DZ▄З"WARP ENGINES",D(1)DsцЗ"S.R. SENSORS",D(2)DМЁЗ"L.R. SENSORS",D(3)Dз·З"PHASER CONTROL",D(4)D┬З"PHOTON TORPEDO",D(5)D▌З"DAMAGE CONTROL",D(6)D°З"SHIELD CONTROL",D(7)D■"ЗE
,Бе 1790E6В ERASE KLINGONEG@З"KLINGON AT SECTOR"K(I,1);"-"K(I,2)EbJЗ" *** DESTROYED! ***"EvTK3│K3м1:K9│K9м1EН^Q(K(I,1),K(I,2))│0EкhG(Q1,Q2)│K3н100лB3н10лS3E┬rЕ M(Q1,Q2)│0 з 4230E╪|M(Q1,Q2)│G(Q1,Q2)E▐ЖРEєРВ KLINGON ATTACKFЪЕ C┤▓0 з 4300F)дЗ"STARBASE SHIELDS PROTECT THE"F;оЗ"ENTERPRISE"FA╕РFV┬В KLINGON ATTACKFd╠А I│1 е 9F{╓Е K(I,3)┤│0 з 4540FЯрH│(K(I,3)о╠D(0))н(2л Д(99)о100)F┤ъЕ S5▓0 з S5│S5мHF▐ЇЗ  Б(H);"UNIT HIT ON ENTERPRISE FROM"G	■З"KLINGON AT SECTOR";K(I,1);"-";K(I,2)GЕ S5▓0 з 4540GBЗ"MR. SULU SAYS SHIELDS ARE DOWN."GWR1│ Б( Д(0)н7л1)Gs&D(R1)│D(R1)м( Д(0)н5л1)GЖ0Е R1┤▓1 з 4420G┤:З"WARP ENGINES DAMAGED FROM HIT.":Бе 4530G╟DЕ R1┤▓2 з 4440GїNЗ"S.R. SENSORS DAMAGED FROM HIT.":Бе 4530HXЕ R1┤▓3 з 4460H6bЗ"L.R. SENSORS DAMAGED FROM HIT.":Бе 4530HIlЕ R1┤▓4 з 4480HrvЗ"PHASERS DAMAGED FROM HIT.":Бе 4530HЕАЕ R1┤▓5 з 4500HоКЗ"PHOTON TORPEDO TUBES HIT.":Бе 4530H┴ФЕ R1┤▓6 з 4520HшЮЗ"DAMAGE CONTROL DAMAGED.":Бе 4530IиЗ"SHIELD CONTROL DAMAGED."I▓E│Eм(Hо2)I╝Л II#╞РI.╨В LOSEI<┌Ю:Бж 5240ITфЗ"IT'S STARDATE"T:ЗIюЗ"THE ENTERPRISE HAS BEEN DESTROY-ED."Iз°З"THE FEDERATION WILL BE CONQUERED"I╩З"THERE ARE STILL"K9;"KLINGON"IтЗ"BATTLE CRUISERS."IюБж 5160I· Бе 5200J*В WINJ4Ю:Бж5240J*>З"IT IS STARDATE"T:ЗJQHЗ"THE LAST KLINGON BATTLE CRUISER"JoRЗ"IN THE GALAXY HAS BEEN"JБ\З"DESTROYED!"JзfЗ"THE FEDERATION HAS BEEN SAVED."J╬pЗ"YOU'VE BEEN PROMOTED TO ADMIRAL"JЄzЗ K0;"KLINGONS IN"TмT0;"YEARS."KДЗ"RATING =" Б(K0о(TмT0)н1000)K ОБж 5160K,ШБе 5200KCвЕ Q(I,J)┤▓0 з 4790KMмЗ".";Kd╢Е Q(I,J)┤▓1 з 4810Kn└З"E";KЕ╩Е Q(I,J)┤▓2 з 4830KП╘З"K";Kж▐Е Q(I,J)┤▓3 з 4850K░шЗ"B";K╟ЄЕ Q(I,J)┤▓4 з 4870K╤№З"*";K╫РKїВ RANDOM NUMBER GENERATORL
R1│ Б( Д(0)н8л1)L$R2│ Б( Д(0)н8л1)L8.Е Q(R1,R2)┤▓0 з 4890L>8РL]BЗ:З"ORDERS:  STARDATE = "TLcLЗLИVЗ"   AS COMMANDER OF THE UNITED"Lк`З"SPACESHIP ENTERPRISE, YOUR"L╨jЗ"MISSON IS TO RID THE GALAXY OF"LўtЗ"THE DEADLY KLINGON MENACE.TO DO"M~З"THIS, YOU MUST DESTROY THE"M=ИЗ"KLINGON INVASION FORCE OF "K9M`ТЗ"BATTLE CRUISERS. YOU HAVE"T9MДЬЗ"SOLAR YEARS TO COMPLETE YOUR"MлжЗ"MISSON.(UNTIL STARDATE"T0лT9;")"M╖░Бж 5160M╫║З"   YOU HAVE AT LEAST ONE"M№─З"SUPPORTING STARBASE. WHEN THE"N╬З"ENTERPRISE DOCKS AT ONE (IS"ND╪З"POSITIONED NEXT TO ONE) IT IS"NfтЗ"RESUPPLIED WITH ENERGY AND"NьЗ"PHOTON TORPEDOES."NеЎЗ"THE ENTERPRISE IS CURRENTLY IN"N╝З"QUADRANT"Q1"-"Q2N╥
З"SECTOR" S1"-"S2N▐Бж 5160NщБе 620O
(З:З"HIT ANY KEY TO CONTINUE"O#2C$│ Т:Е C$│"" з 5170O-<Ю:З:ЗO3FРOHPЗ"ANOTHER GAME?"O_ZC$│ Т:Е C$│""з5210OsdЕ C$┤▓"Y" з6070OnЮ:Бе100OХxА I│1 е 3:З:Л I:РOЫВЗO╕МЗ"DESTINATION QUADRANT";O─ЦЙ R1,R2O╪аЕ Q1┤│R1 з 5300OькЕ R2▓│Q2 з 5360O ┤Е Q1▓R1 з 5320P╛Е R2▓Q2 з 5440P&╚Е Q1▓│R1 з 5340P:╥Е R2┤│Q2 з 5470PM▄Е Q1┤R1 з 5360P`цЕ R2┤Q2 з 5530PГЁR5│ Ы(((Q1мR1)п2)л((R2мQ2)п2))PЧ·Е R2┤▓Q2 з 5400PаR6│0PмБе 5410P╘R6│90м(57.32н( Ф((Q1мR1)о(R2мQ2))))P№"З"COURSE SETTING:"; Б(R6);"DEGREES"Q,З"AT WARP";R5Q6Бе 1790Q=@R5│ Ы(((R1мQ1)п2)л((R2мQ2)п2))QeJR6│90л(57.32н( Ф((R1мQ1)о(R2мQ2))))QqTБе 5410QФ^R5│ Ы(((R1мQ1)п2)л((Q2мR2)п2))QиhЕ R2┤▓Q2 з 5510Q│rR6│180Q┐|Бе 5410QшЖR6│270м(57.32н( Ф((R1мQ1)о(Q2мR2))))QЇРБе 5410RЪR5│ Ы(((Q1мR1)п2)л((Q2мR2)п2))R@дR6│270л(57.32н( Ф((Q1мR1)о(Q2мR2))))RLоБе 5410RR╕ЗRm┬З"DESTINATION SECTOR";Ry╠Й R3,R4RН╓Е S1┤│R3 з 5610RбрЕ R4▓│S2 з 5670R┤ъЕ S1▓R3 з 5630R╟ЇЕ R4▓S2 з 5750R█■Е S1▓│R3 з 5650RяЕ R4┤│S2 з 5780SЕ S1┤R3 з 5670SЕ R4┤S2 з 5840SA&R7│(( Ы(((S1мR3)п2)л((R4мS2)п2)))л1)о10SU0Е R4┤▓S2 з 5710S^:R8│0SjDБе 5720SТNR8│90м(57.32н( Ф((S1мR3)о(R4мS2))))S║XЗ"COURSE SETTING:"; Б(R8);"DEGREES"S╠bЗ"AT WARP";R7S╪lБе 1790TvR7│(( Ы(((R3мS1)п2)л((R4мS2)п2)))л1)о10T,АR8│90л(57.32н( Ф((R3мS1)о(R4мS2))))T8КБе 5720TdФR7│(( Ы(((R3мS1)п2)л((S2мR4)п2)))л1)о10TxЮЕ S2┤▓R4 з 5820TГиR8│180TП▓Бе 5720T╕╝R8│270м(57.32н( Ф((R3мS1)о(S2мR4))))T─╞Бе 5720TЁ╨R7│(( Ы(((S1мR3)п2)л((S2мR4)п2)))л1)о10U┌R8│270л(57.32н( Ф((S1мR3)о(S2мR4))))U%фБе 5720U:юВ SHIELD CONTROLUO°Е D(7)▓│0 з 5910UpЗ"SHIELD CONTROL IS DAMAGED"U|Бе 1790UОЕ S5┤0 з S5│0U▓ З"ENERGY TO SHIELDS (0 LOWERS)"U╗*Й S6U▀4Е S6▓E з 5950 :Д Е S6▓│0 з 5990U■>З"ENERGY AVAILIABLE"; Б(E)VHЗ"SHIELDS ARE LOWERED."V#RS5│0V/\Бе 1790VAfЕ S6│0 з 6030VrpЗ"SHIELDS ARE RAISED.":З S6"UNITS DIVERTED."VЖzE│EмS6:S5│S5лS6VТДБе 1790VнОЕ S5┤│0 з S5│0:Бе 6050V╜ШE│EлS5:S5│0V┘вЗ"SHIELDS ARE LOWERED."VхмБе 1790Vы╢К~ЙL~аЎ+JАO╟RY ^~ДЙ5кfлgлк)БГБ<ВБh▓w▓w┤J┤J┤J┤J┤J┤J┤J┤J┤J┤J┐       999999999~Вs~Мё999999999~ВЖ~ОР999999999999999~ИF999~ИЁ~ВЬ~Зх~В╣999999~Г999лю        STARTREK9╡ 6400мSSTOP!QHRETURNUPSRETURNSSTOPPMODENFORyDRAWCOLORAUDIOPMODERR!TOP!QHRETURNUPSRETURNSSTOPPMODENFORyDRAWCOLORAUDIOPMODERR!аю 255000000vtpu`IF`SuRPMODEiON`````````````````````````````````````````````DIM`````````````````````````````ONaHaPMODETREADalPMODEiON```````MFORRDATACOLORAUDIOHSTOPSSTOPaQHRETURNUPSRETURNSSTOPPMODENFORDRAWCOLORAUDIOPMODERRa```````````sttyw`AUDIOHSTOPSSTOPaQHRETURNUPSRETURNSSTOPPMODENFORDRAWCOLORAUDIOPMODERRa````````````````````ruu`AUDIOHSTOPSSTOPaQHRETURNUPSRETURNSSTOPPMODENFORDRAWCOLORAUDIOPMODERRa``````````````````````OK``````````````````````````````DEL`vtppm```````````````````````````````````````````````````````                                                              ?                                                               ъ                                                               .                                                               p                                                                ╧                                                                A                                                                                                                                f                                                                щ                                                                H                                                                в                                                                я                                                               %                                                               h                                                               o                                                               ╦                                                               ┘                                                               g                                                               /                                                               6                                                                Ь                                                                >                                                                З                                                                2                                                                └                                                                !                                                                Ъ                                                                Т                                                               ╧                                                               @                                                               т                                                               k                                                               №                                                               %                                                               м                                                               ]                                                                w                                                                ю                                                                Ш                                                                ╔                                                                ч                                                                @                                                                ц                                                                Э                                                               √                                                               ы                                                               ┌