Q0╖ ╫╜2О7рОК╜2ОюЖBзАЖYзДО7ыО#╜2О8ОJ╜2О8Оe╜2О8%Ох╜2|6╜нЯа'ўЖ╖6┤╖6╡Ж╟╖ "╖ ┼ЖкО.АО
АзА1?&·Ж О.рзАМ/&∙OО$О
АзА1?&·О7аЖ╖6╕ьБ¤6╢╜5╗М7р&єO╖63╜3J╜2╜5=╜3ш╜4╕}63'╜6
ОО$жазАМ0&Ў_О5ВжА*чжА*чжА*чжД*чД╢6л/C╢6┤& Й╢6╡▒6и& O╖6и╢6╡Б'L╖6╡╖6┤╜1ГОО  0&№1?&їО6WOзАМ6g&∙ *╜1Г№6▓│6й*%№6й¤6▓╠а¤63|63╜6
}63&їО6мжаз"М6п&Ў╜1ГО8GОк╜2О67OзАМ6п&∙ЖО5ВзАзАзАзД■╢╖ ─Ж╖ "╜2О7рО*╜2О8<Оj╜2О8AО╠╜2О  №6й√6лЙ¤6й0
Гd*∙├dў6оО  0
Г
*∙├
ў6мў6н╞О6пОэ╜1∙╞О6▓ОН╜1∙9жвЛpзАZ&ў9жа'зА °9ОЖ`зАМ&∙9╢5В╗5Г╗5Д╗5Е╖6л╢6з&Ш╢ 
Дў╖ 
╢ Дў╖ ╜2XHL╖6╢╢ 
К╖ 
╜2XL╖6╖ FО  О ЖАздцД+ААЛ@здцД+А@Л здцД+А ЛздцД+АЛздцД+АЛздцД+АDD9╢ Д
'Ж╖6╕╠74¤4є╜4Є╜5З9╠└а¤63№6╢¤3H|6з9Ў6з┴	*E╢3HА@+
=DVDVT╦@ 
@=DVDVTP╦@ў6╢Ў6з╢3IАD@=DVDVTP╦Dў6╖|6зЖ
╖6╕╠7?¤4є╜4Є9Ў3ITTО67жЕ'$░3H*
@Б.OзЕ╖6з|6и0ЕцИ*
Pє6йЙ¤6й9O╖6з9╢6┤'2О67╜5+─жЕ&&z6┤0Е╜5++
Ж
зД╜5+─'∙ ЖuзД╜5+─'∙PчИО67жД'лИБ
+Бu+O|6┤зАМ6G&цО67ОцД'3цИ*
PЖ╖6╕4X└O0й6╛ьД¤4є5жД╖6╢ў6╖4╜4Є50
М6G'1$ ╛9╜5++1О6WО67жД'жИ@'	0
М6G&Ё Г67же&южДзе1еЖ\=ШзиО6WжД'цИ┴F*¤6╢╦чИЖ╖6╕╜5╗z6╖╜5╗0
М6g&╪9¤6╢╦чИЖ
╖6╕╜5
'ЖT▒6╖&╤OзА ▄╢6╖БF& ╜5++О5В─jеЖ
зИ №6╢зИ0чИ@OзД │╢6╢Б*z5В сБ8*z5Гz5Г ╒БV*z5Дz5Д ╔z5Е ─О6ЗО6wжд&1!0
 "Jза╠@А¤63Ж╖6╕╠7¤4єжАц¤6╢4╜4Є5М6З&╬9О6─ьББ'╗6╢√6╖¤6╢╜5╗ ь9╜5тЖЎ6╕}6╝'	HHXXz6╝&ўдЯ6╣ў6╝▒6╝9╞=╢6╜=╖6╜√6╜╦sў6╜9ОV┐6╢О5ВО7Jжа╖5Ж╞
╢5Ж'╞z5Жў6╕№6╢лАыА¤6╢╜5╗М7а&▀М5Ж'№6╢├¤6╢ ╞9Ж
╖6╕╢6лG'(О0ЖЖF╖6╖Ж@╞?╖6╢L4╜5╗5ў6╢Z4╜5╗50&ц9╜5тЖ№Ў6╕}6╝'
IIXXz6╝&їдЯ6╣ў6╝║6╝зЯ6╣9╢6╢ЙS─DD¤6╗Ж Ў6╖=├$√6╗Й¤6╣9╞<ў #Ў 
─ўў 
Ў ─ўў №63╛65╖  Z&¤ў  Ў64Z&¤Ў640&ъ9АА@6─6╫6Ї■




¤




¤


√












№


№









 
     
 


  ■ 

 
      ¤√∙ў
√  ¤√∙№  ¤√ў
 
 
 











@D@E>F?F@FAFBF?G@GAG@H@I@J@K@L@M@N@O?PAP?QAQ>R@RBR>S@SBS@T@U@V@WMEGASHIELDWINEFRED`WASHINGTONl`JRnPO`BOX`wsrLOUISVILLEl`KY``tprpqPRESS`ANY`KEY`TO`BEGINHIGH`SCOREGAME`OVER 0                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     Эr
WьМЎ╜н%cМє▄GГ
эМщ╠DK│└&~└╘╠EX│А&~А└~аш4
mМ╦'5
oМ─mМ╛'╠EX│А&╜Х╧оМоп~нз5Б
В~5 ОЙL┐

qоНоНжАзамН
&ЎnЭv vNY    TIME DURING THIS PROGRAM AND    WATCH WHAT HAPPENS.":З:З"HIT ANY KEY"&■Е Т│""з3                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                E OVER";:╔"L20T5O5BAGFEDCO4BAGFEDCO3BAGFEDCO2BAGFEDCO1BAGFEDC"/Ь
ЇЮ:З"O.K.  YOU SCORED";SC;" RIGHT":З"OUT OF";NQ;".":З"THAT IS"; Б(100н(SCоNQ));"PERCENT..."/№
■Е SCоNQ┤.5 з R$│"YOU NEED TO CHECK UP ON HOW TO  DO THE QUESTIONS, AND SOME MORE PRACTICE."0OЕ SCоNQ▓│.5 ░ SCоNQ┤.65 з R$│"YOU NEED MORE PRACTICE, BUT THATWASN'T TOO BAD."0║Е SCоNQ▓│.65 ░ SCоNQ┤.85 з R$│"VERY GOOD, BUT YOU STILL COULD  USE A BIT MOR PRACTICE AT THIS  LEVEL."1Е SCоNQ▓│.85 з R$│"EXCELLENT!! MOVE UP A LEVEL, YOUKNOW WHAT YOU ARE DOING!!"1N&ЗR$:З@448,"PRESS '*' TO RESET LEVEL OR 'P' TO PLAY AGAIN...";1П0X$│ Т:Е X$│"" з 560 :Д Е X$│"P" з 260 :Д Е X$│"*" з О :Д 5602#:АI│28 е IYм2 йм1:Э(BXл3,Iл1):Ь(BXл3,I,0):а255мIн8,1:Л:АI│1е20:╔"L255T255O1CEDG":Ь(BXл Д(6),IYм Д(3), Д(8)):ЛI:АI│1е6:АJ│1е3:Э(BXлI,IYмJ):ЛJ,I:Р2UDАI│1е3:АJ│1е(IлIм1):Ь(3лBXлJмI,28лI,5):ЛJ,I:Р2ЕNАI│1е3:АJ│1е(IлIм1):Э(3лBXлJмI,28лI):ЛJ,I:Р2╕XАI│1е6:Ь(BXлI,IYмIо2,0):Ь(BXл6мI,IYмIо2,0):Л:Р2чbАI│1е6:Э(BXлI,IYмIо2):Э(BXл6мI,IYмIо2):Л:Р3MlАI│1е20:Ь(BXл Д(5),28л Д(3), Д(8)):╔"L255T255O1CGDF":ЛI:АI│BX е BXл5:АJ│29е31:Э(I,J):ЛJ,I:Бж610:Р"3░ЬЗ "   I WILL THEN COMPARE THE HEAT VALUES AND RETURN MY ANSWER AS ACOST FOR A CORD OF OAK.3╢жЗ3╝░З3р║Й "PRESS <ENTER> TO CONTINUE";Q3ш─Ю:З41╬З "FOR EXAMPLE, IF                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                Q│12 з 1810 :Д 155082Е Q┤1 ▒ Q▓11 з 1490 :Д 15608:L│Q8Y"Ю:З"YOU SELECTED:":З A$(L)8q,Й"CORRECT (Y/N)";Q$8У6Е  О(Q$,1)│"N" з 1490 :Д 16008╖@З:З"COMPARED TO WHICH WOOD":ЙW$8┬JН N$,H8сTЕ N$│"STOP" з 1950 :Д 16308№^Е N$│W$ з 1650 :Д 16109hБе 16109;rП:M│HоR(L):Е U$(L)┤▓"TON" з V│ Б(Mл.5):Бе 16709O|V│ Б(100нM)о1009YЖЮ:З:З9pРЗ"ONE CORD OF ";N$9ИЪЗ"IS EQUIVALENT TO"9ЫдЗV;U$(L);" OF"9жоЗA$(L)9╔╕З"FOR A TOTAL HEAT CONTENT OF"9ф┬З Hо1000;"MILLION BTU":╠З"AT 100% EFFICIENCY":З:'╓З"ENTER <M> TO RETURN TO THE MENU":NрЗ"ENTER <C> FOR A NEW CALCULATION":WъЙ Q$:rЇЕ Q$│"M" з 320 :Д 1790:О■Е Q$│"C" з 1440 :Д 1770:нВ GENERAL CONVERSION NOTES;7Ю:З"    THIS ROUTINE WILL MAKE A    COMPARISON OF A CORD OF ANY TYPEOF WOOD IN MY DATA TO ANY OF THENON-WOOD HEAT SOURCES IN MY DATA";СЗ"I WILL LIST ALL OF MY NON-WOOD  DATA AND YOU CHOOSE THE ONE YOU WANT TO KNOW ABOUT.<&З"THEN I WILL ASK WHICH WOOD YOU  WANT TO COMPARE AND WHEN YOU    ENTER A WOOD FROM MY DATA TABLE I WILL CALCULATE THE AMOUNT OF"<k0З"THE NON-WOOD SOURCE THAT IS     EQUIVALENT TO ONE CORD OF THE   CHOSEN WOOD."<О:Й"PRESS <ENTER> TO CONTINUE";Q<иDЮ:З:З"FOR EXAMPLE:":З=NЗ"SAY YOU WANT TO KNOW HOW MUCH   ANTHRACITE COAL YOU CAN REPLACE WITH A CORD OF OAK."=gXЗ"YOU SELECT ANTHRACITE COAL FROM THE LIST AND ENTER OAK AFTER THEPROMPT.  I WILL THEN RETURN:"=СbЗ:З"ONE CORD OF OAK IS EQUIVALENT TO"=┤lЗ"1.08 TON OF ANTHRACITE COAL"=╦vЗ:З"PRESS ANY KEY"=уАZ$│ Т:Е Z$│""з 1920=юКБе1440=ЇФР=·ЮП>иЗ"I DO NOT HAVE THAT WOOD DATA">B▓З"TRY ONE FROM MY DATA DISPLAY">g╝Й"DO YOU WANT TO SEE IT(Y/N)";Q$>Е╞Е  О(Q$,1)│"Y" з 980 :Д Р9,239,143,143,128,128,128,128,239,239,143,143,128,128,25,143,128,128,255,255,239,239,239,239,239,239,143?ц.Ж 143,239,                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                LENT TO PAYING"//4З"$";C;" FOR A CORD OF OAK."/5>З/OHЗ "FOR A CORD OF ";W$/ТRЗ "TOTAL AVAILABLE HEAT PER CORD ":З"IS"; Hо1000;"MILLION BTU"/╬\З "EQUIVALENT KILOWATT HOURS OF     ELECTRICITY ARE ";E0
fЗ "EQUIVALENT CUBIC FEET OF NATURALGAS ARE ";G0
pЗ: З0zР0"ДВ NOT IN DATA0(ОП0MШЗ "I DO NOT HAVE THAT WOOD DATA"0rвЗ "TRY ONE FROM MY DATA DISPLAY"0ШмЙ"DO YOU WANT TO SEE IT?(Y/N)";Q$0╢╢Е  О(Q$,1)│"Y" з 980 :Д Р0╝└Р0╒╩В  DISPLAY WOOD DATA0№╘Ю:З "HERE IS ALL OF MY WOOD DATA."1▐АY│1е700:ЛY1шЗ19ЄЮ:З "WOOD TYPE", "MILLIONS OF BTU"1b№З "--------------------------------"1qА Y│1 е 121|Н N$,H1УЕ N$│"STOP" з 11001г$З N$,Hо10001л.Л Y1╨8Й "PRESS <ENTER> TO CONTINUE";Q$1▄BБе 10101тLЗ2VЗ "THAT IS ALL MY FIREWOOD DATA"2
`П2jР2%tВ EXPLANATION2В~Ю:З "   THIS PROGRAM WAS WRITTEN IN  OREGON WHERE OAK IS MOSTLY THE  STANDARD FIREWOOD."2┘ИЗ "   SO, THIS PROGRAM COMPARES THEHEAT VALUE OF THE WOOD IN QUEST-ION WITH OAK.";3QТЗ " WHEN ASKED, ENTER THE KIND OF WOOD THAT YOU WANT  TO COMPARE AND THE PRICE THAT ISBEING ASKED FOR IT PER CORD."3░ЬЗ "   I WILL THEN COMPARE THE HEAT VALUES AND RETURN MY ANSWER AS ACOST FOR A CORD OF OAK.3╢жЗ3╝░З3р║Й "PRESS <ENTER> TO CONTINUE";Q3ш─Ю:З41╬З "FOR EXAMPLE, IF YOU ENTER 'FIR' AND $50 PER CORD, I WILL ANSWER:"47╪З4MтЗ "A CORD OF FIR"4eьЗ "AT $50 PER CORD"4ЛЎЗ "WOULD BE EQUIVALENT TO PAYING"4кЗ "$87 FOR A CORD OF OAK."4░
З4ўЗ "I WILL ALSO PRINT THE TOTAL HEATVALUE OF A CORD OF THE WOOD IN"5=З "QUESTION IN KILOWATT HOURS AND  IN CUBIC FEET OF NATURAL GAS."5a(Й "PRESS <ENTER> TO CONTINUE";Q5i2Ю:З5В<З"FOR A CORD OF FIR"5╜FЗ"TOTAL AVAILABLE HEAT PER CORD   IS 14.3 MILLION BTU"5∙PЗ"EQUIVALENT KILOWATT HOURS OF    ELECTRICITY ARE 4189"6.ZЗ"EQUIVALENT CUBIC FEET OF NATURALGAS ARE 14300"64dЗ6|nЗ "I LEAVE ANY EFFICIENCY OR ELECT-RICAL COST CALCULATIONS TO YOU."6─xЗ "I REALLY DON'T HAVE ROOM FOR ALLOF THE DATA THAT WOULD REQUIRE."6шВЙ "PRESS <ENTER> TO CONTINUE";Q6юМР7ЦВ GENERAL CONVERSION ROUTINE7аЮ:Н N$,H7;кЕ N$│"STOP" з 1470 :Д 14407G┤Бе 14407m╛А Y│1 е 11:Н A$(Y),R(Y),U$(Y):Л Y7s╚П7Ш╥Ю:З д4)"NON-WOOD HEAT SOURCES":З7з▄А Y│1 е 117╗цЗ Y;д4)A$(Y):ЛY7▌ЁЗ" 12 CONVERSION EXPLANATION"7°·З:Й"WHICH ONE(1-12)";Q8Е  Ж&dВ&$nВ  FIREWOOD COST PROGRAM&:xВ  D. BAKER  1983&XВВ   TRS-80 COLOR COMPUTER&^МВ&yЦВ  Q,Q$=USER RESPONSES&ФаВ  W$=INPUT, WOOD TYPE&пкВ  P=INPUT, WOOD PRICE&╔┤В  N$=DATA, WOOD TYPE&у╛В  H=DATA, HEAT VALUE&■╚В  X=HEAT VALUE OF OAK'╥В  C=CALCULATED WOOD COST'<▄В  E=HEAT IN KILOWATT HOURS'qцВ  G=HEAT IN CUBIC FEET OF           NATURAL GAS'ФЁВ  A$(L)=DATA, NON-WOOD SOURCE'╡·В  R(L)=DATA,NON-WOOD SOURCE'╪
В  U$(L)=DATA, NON-WOOD SOURCE'■
В  V=CALCULATED NON-WOOD QUANTITY(
В  Y=FOR-NEXT VARIABLE(!
"В  (=
,P│0: H│0: C│0: E│0: G│0(V
6МA$(12),R(12),U$(12)(\
@Ю(q
JЗ д13) "MENU": З(М
TЗ "1   CALCULATION": З(о
^З "2   AVAILABLE WOOD DATA":З(╚
hЗ "3   EXPLANATION":З(ъ
rЗ "4   NON-WOOD CONVERSION":З(¤
|З "5   QUIT":З)
ЖЙ "WHICH DO YOU WANT";Q)0
РЕ Q┤1 ▒ Q▓5 Бе 320)G
ЪЕ Q│5 з 460 :Д 420)e
дИ Q Бж 630,980,1150, 1440)Д
оЗ "ENTER <M> FOR THE MENU")й
╕Й "PRESS <ENTER> IF FINISHED";Q$)╝
┬Е Q$│"M" з 320)╘
╠З "GOODBYE FOR NOW"*

╓Ж APPLE, 26500, BLACK ASH,19100, WHITE ASH, 23600*;
рЖ ASPEN, 14700, BASSWOOD,13500, BEECH, 24000*z
ъЖ PAPER BIRCH, 20300, YELLOW BIRCH, 23600, BOXELDER, 17900*п
ЇЖ CEDAR, 12200, CHERRY, 20000, COTTONWOOD, 13500*▐
■Ж ELM, 19500, FIR, 14300, HACKBERRY, 20800+Ж HEMLOCK, 15900, HICKORY, 27700, HORNBEAM, 27300+KЖ HARD MAPLE, 24000, SOFT MAPLE, 18700, OAK, 25000+ЙЖ JACK PINE, 17100, NORWAY PINE, 17100, WHITE PINE, 14300+╗&Ж SPRUCE, 15900, TAMARACK,20800, ALDER, 15800+∙0Ж DOUGLAS FIR, 17600, LARCH, 20800, PONDEROSA PINE, 18100,:Ж REDWOOD, 18300, STOP, 00000,МDЖ ANTHRACITE COAL, 23000,TON,HI VOLATILE BITUMINOUS COAL, 22000, TON, LO VOLATILE BITUMINOUS COAL,28600, TON,▌NЖ LIGNITE COAL, 13800, TON, NO.1 FUEL OIL, 135, GAL, NO.2 FUEL OIL, 110, GAL-$XЖ KEROSENE, 135, GAL, PROPANE, 91, GAL, NATURAL GAS, 1, CUBIC FEET-bbЖ CHARCOAL, 13, LB, ELECTRICITY, 3.413, KWH, XXXX, 00, XX-hlК-ov Ю-ЭА╗ Й "WHICH WOOD DO YOU WANT TO BUY?  ";W$-гКЗ-оФН N$,H-─ЮЕ N$│"STOP" з 910-╓иЕ N$│W$ з 700-с▓Бе 660-ч╝П.╞З "WHAT IS THE ASKING PRICE PER".3╨Й "CORD IN WHOLE DOLLARS ONLY ";P .9┌З.dфЗ "YOU ENTERED $"P;:Й"RIGHT (Y/N):";Q$.}юЕ  О(Q$,1)│"N" з 710.Л°Ю:X│25000.аC│ Б((PнX)оHл.5).╖E│ Б(Hо3.413): G│H.═З "A CORD OF ";W$.ш З "AT $";P;" PER CORD"/*З "WOULD BE EQUIVA 
N&
:Г MATH 'VADERS&+:Г BY SIMON CLIFT&8└1:Х 400&h(Ю0:З@224,"**********MATH 'VADERS**********"&Ч2З @256,"*********BY SIMON CLIFT*********";&д<Т65495,0&█F╔"V31T5L4O2FB-O3DFL8FFL4FDL8DDL4DL4O2B-O3DO2B-L2F"'&PЮ1:З"WOULD THE SUPERVISOR PLEASE     ENTER THE GAME PARAMETERS NOW..."'█ZЗ"1. ADDITION":З"2. SUBTRACTION":З"3. MULTIPLICATION":З"4. DIVISION":З"5. CONTINUE":З"SELECT THE OPERATIONS I'LL USE, THE MORE OFTEN YOU ENTER ONE,THEMORE OFTEN I'LL USE IT..."'цdOP$│""( nЗ@354,OP$л"?"л Л(8)л" "л Л(8)л"?":X$│ Т:Е X$│"" з 110(SxЕ X$│ Л(8) ░  З(OP$)▓0 з OP$│ О(OP$, З(OP$)м1)(╬ВЕ X$│"1" з OP$│OP$л"+" :Д Е X$│"2" з OP$│OP$л"-" :Д Е X$│"3" з OP$│OP$л"*" :Д Е X$│"4" з OP$│OP$л"/" :Д Е X$│"5" з 160(┘МБе 110(ьЦЕ OP$│"" з 110)аЗ@416,;:Й"NUMBER OF QUESTIONS";NQ)#кЕ NQ┤1 з 160)^┤Ю:З"ENTER RANGE OF NUMBERS TO BE    USED OR PRODUCED:")Ц╛З"1. 1-9":З"2. 1-99":З"3. 1-999":З"SELECT OPTION:";)▄╚X$│ Т:Е X$│"" з 200 :Д Е X$┤"1" ▒ X$▓"3" з 200 :Д ЗX$:АI│1е500:ЛI)·╥NR│ Б(9.99н10п( Й(X$)м1))*F▄З:З"ENTER GAME SPEED:":З"1. FAST":З"2. MODERATE":З"3. SLOW":З"SELECT:";*ЕцX$│ Т:Е X$┤"1" ▒ X$▓"3" з 230 :Д ЗX$:АI│1е500:ЛI:GS│ Й(X$)*└ЁЗ:З"DO YOU WISH TO CONTINUE OR REDO?            (C/R)"*ы·X$│ Т:Е X$│"R" з 80 :Д Е X$┤▓"C" з 250+E
Ю0:АI│0е6:З б(64,128лIн16);:ЛI:BX│32:SC│0:Бж580:CN│0:З@0,"PRESS ANY KEY TO START...";+W
Е  Т│"" з 270+И
╔"T5L15O2CEGCEGECG":O$│ Р(OP$, Д( З(OP$)),1)+п
"Е O$│"+"зAN│ Д(NR):A│ Д(AN):B│ANмA+╘
,Е O$│"-"зA│ Д(NR):B│ Д(A):AN│AмB,
6Е O$│"*"з A│ Д( Б( Ы(NR))):B│ Д( Б( Ы(NR))):AN│AнB,C
@Е O$│"/"з AN│ Д( Б( Ы(NR))):B│ Д( Б( Ы(NR))):A│ANнB,`
JЗ@0,"SOLVE:";A;O$;B;"=?",
TAN$│"":IY│6:CN│CNл1:Бж 600,╪
^АI│1еGSн30:X$│ Т:Е X$│"" з 360 :Д Е (X$▓│"0" ░ X$┤│"9")▒ X$│ Л(13) ▒ X$│ Л(8) з 430 ,▀
hЛI-
rD│ Д(3)м2:Е BX┤5 з D│1 :Д Е BX▓27 з D│м1-,
|Бж590:Бж610:BX│BXлD:IY│IYл2-<
ЖБж580:Бж600-N
РЕ IY│30 з 480-W
Ъа1,1-b
дБе 350-О
оЕ X$▓│"0" з AN$│AN$лX$:З@23,AN$;:Бе 350.:
╕Е X$│ Л(13) з Е  Й (AN$)│AN з З@19,AN$;:З@23,"RIGHT!!!";:Бж 570:SC│SCл1:╔"L255T255O4CDEFGABBAGFEDC":Бж 610:Бе470:Д З@23,"WRONG";:╔"T3L1O1C":AN$│"":З@23,"     ";:Бе 350.z
┬Е X$│ Л(8) ░  З(AN$)▓0 з AN$│ О(AN$, З(AN$)м1):З@23,AN$л" ".Е
╠Бе 350.Ю
╓Е CN│NQ з 490 :Д 280.Ё
рБж 620:З@19,AN;"IS RIGHT";:╔"L4T4O2CE-CE-CE-CE-":АI│1 е 1000:ЛI:Е CN┤NQ з 280/=
ъЗ@268,"GAMRA):З(ARнZ)о3:Бе122088шЕA▓11з1050:ДЮ0:З@42,"cylinders";8PЄЗ@128,"height";:ЙX$8q№З:Й"circumference";Y$:Бж12408НЗ:З"lateral"B$"area"XнY8╥З:З"cubical"B$"contents";:RA│Yо(2нPI):AR│PIн(RAнRA):ЗARнX:Бе12208°ЕA▓12з1090:ДЮ0:З@43,"rectangles";91$З@128,;:Й"length";X$:Й"width";Y$:Й"height";Z$:Бж12409\.З"square"B$"area"2н((XнZ)л(YнZ)л(XнY))9Г8З"cubical"B$"contents"XнYнZ:Бе12209зBЕA▓13з1160:ДЮ0:З@44,"pyramids";9╨LЗ@128,"perimeter"B$"of"B$"base";:ЙX$9ьVЗ"slant"B$"height";:ЙY$:`З"area"B$"of"B$"base";:ЙZ$:Бж1240:=jЗ"vertical"B$"height";:ЙVH$:VH│ Й(VH$):[tЗ"lateral"B$"area"(XнY)о2:Е~З"cubical"B$"contents"(ZнVH)о3:Бе1220:ЫИЮ0:З@44,"prisms";:─ТЗ@192,"perimeter"B$"of"B$"base";:ЙX$:уЬЗ"area"B$"of"B$"base";:ЙY$:√жЙ"height";Z$:Бж1240;░З"lateral"B$"area"XнZ;3║З"cubical"B$"contents"YнZ;s─З@416,"press"B$"enter"B$"to"B$"continue";:ЙX$:X│ Й(X$):Бе50;б╬З@448,"last"B$"result"B$"was";:З@480,Q,:Р;┬╪X│ Й(X$):Y│ Й(Y$):Z│ Й(Z$):Р8,159,159,128,128,159,159,128,128,159,159,128,128,159,159,                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                A(3))м(A(2)нA(2)))/EЕA(0)▓0░A(3)▓0зA(2)│ Ы((A(3)нA(3))м(A(0)нA(0)))/hЕA(6)▓0░A(0)▓0зA(3)│A(0)о Х(B)/ИЕA(5)│45зA(0)│ Ы(A(1)лA(1))/д&T│Tл1:ЕT┤4зБе420:ДT│0:Р/о0Бж670/√:ЕA(2)▓0░A(3)▓0░A(5)▓0зA(4)│ Ы((A(2)нA(2)лA(3)нA(3))м2н(A(2)нA(3)н Х(A)))0HDЕA(4)▓0░A(3)▓0░A(6)▓0зA(2)│ Ы((A(4)нA(4)лA(3)нA(3))м2н(A(4)нA(3)н Х(B)))0ХNЕA(4)▓0░A(2)▓0░A(7)▓0зA(3)│ Ы((A(4)нA(4)лA(2)нA(2))м2н(A(4)нA(2)н Х(C)))0╟XЕA(4)▓0░A(6)▓0░A(5)▓0зA(2)│(A(4)н Е(B))о Е(A)0∙bЕA(4)▓0░A(7)▓0░A(5)▓0зA(3)│(A(4)н Е(C))о Е(A)1ClЕA(5)▓0░A(6)▓0░A(3)▓0зA(4)│(A(3)н Е(A))о Е(C):A(2)│(A(3)н Е(B))о Е(C)1хvЕA(4)▓0░A(2)▓0░A(7)▓0зP│.5н(180мA(7)):P│Pо57.29577951:P│ Ц(P):N│((A(4)мA(2))о(A(4)лA(2)))нP:N│ Ф(N):P│ Ф(P):P│Pн57.29577951:N│Nн57.29577951:A(5)│PлN:A(6)│PмN2ЕАЕA(2)▓0░A(3)▓0░A(4)▓0зAA│(((A(2)нA(2))л(A(3)нA(3)))м(A(4)нA(4)))о(2н(A(2)нA(3))):SB│A(3)нAA:SA│ Ы((A(3)нA(3))м(SBнSB)):A(5)│SAоSB:A(5)│ Ф(A(5))н57.295779512╥КЕA(2)▓0░SB▓0░SA▓0░A(7)│0зSB│A(2)мSB:A(7)│SAоSB:A(7)│ Ф(A(7))н57.295779512■ФЕA(2)▓0░SA▓0зA(0)│SA:A(1)│(A(2)нA(0))о23&ЮЕA(5)▓0░A(6)▓0зA(7)│180м(A(5)лA(6))3NиЕA(6)▓0░A(7)▓0зA(5)│180м(A(6)лA(7))3v▓ЕA(5)▓0░A(7)▓0зA(6)│180м(A(5)лA(7))3╡╝A│A(5)о57.29577951:B│A(6)о57.29577951:C│A(7)о57.29577951:Р3ч╞ЕA▓8з800:ДЮ0:З@100,"x=BASE y=POWER z=RESULT";4H╨З@160,"if"B$"value"B$"unknown"B$"press"B$"<ENTER>"B$B$;:Бж1230:Бж210:З@320,"z";:ЙZ$:Z│ Й(Z$)4e┌ЕX▓0░Y▓0зZ│XпY:Q│Z:Бе7904КфЕX▓0░Z▓0зY│ Щ(Z)о Щ(X):Q│Y:Бе7904бюЕY┤10зT│1000:ДT│104╩°З"PRESS KEY WHEN CALCULATION ENDS!";4ўQ│XпY:ЕQ┤Z зX│XлT :ДЕQ▓Z зX│Xм(T):T│Tн.15З@258,X,:S$│ Т:ЕS$│""з770:ДQ│X5=З@256,"x"X:З"y"Y:З"z"Z:З:Бе2405^ ЕA▓9з930:ДЮ0:З@43,"circles";5У*З@97,"press"B$"enter"B$"if"B$"value"B$"unknown";5Я4З@160,;5└>Й"radius";X$:Бж1240:ЕX▓0з8905┌HЙ"diameter";Y$:Бж12405яRЕY▓0зX│Yо2:Бе8906\Й"circumference";Z$:Бж12406(fЕZ▓0зX│Zо(2нPI):Бе8906UpЙ"area";SA$:SA│ Й(SA$):ЕSA▓0зX│ Ы(SAоPI)6rzY│2нX:Z│PIнY:SA│PIн(XнX)6╣ДЗ@160,"radius"X:З"diameter"Y:З"circumference"Z:З"square"B$"area"SA6цОЗ"sphere"B$"surface"B$"area":ЗXнXн(4нPI)7"ШЗ"sphere"B$"cubical"B$"contents":ЗXп3н((4нPI)о3):Бе122075вЕA▓10з1000:ДЮ07GмЗ@44,"cones";7l╢З@96,"base"B$"circumference":ЙX$7З└З"slant"B$"height":ЙY$7м╩З"vertical"B$"height":ЙZ$:Бж12407╠╘З"lateral"B$"area"(YнX)о2:З8▐З"cubical"B$"contents";:RA│Xо(2нPI):AR│PIн(RAн ├&-
МA$(14):АA│1е14:НA$(A):Л:B$│ Л(128):A│1&?PI│3.14159265&ИЖADDITION,SUBTRACTION,MULTIPLICATION,DIVISION,SQUARE ROOT,SOLID CUBE&╨(ЖTRIANGLE,POWER,CIRCLES,CONE,CYLINDER,SOLID RECTANGLE,PYRAMID,PRISM&є2Ю0:З@7,"mathematic"B$"helper";'*<З@65,"use"B$"arrows"B$"for"B$"function"B$"choice";'5FБж1230'\PЗ@106,"then"B$"enter";:З@128,A$(A)'ФZZ$│ Т:ЕZ$│""зАF│134е137й3:З@64, Л(F);:╔"P50":Л:Бе90'╗dЕZ$│ Л(08)зA│Aм1:ДЕZ$│ Л(09)зA│Aл1'╘nЕA▓14зA│1:ДЕA┤1зA│14'∙xЕZ$│ Л(13)з130:ДЗ@128,A$(A):Бе90(ВЕA│1Бж210:Q│XлY:ЗQ:Бе240:Д140(=МЕA│2Бж210:Q│XмY:ЗQ:Бе240:Д150(_ЦЕA│3Бж210:Q│XнY:ЗQ:Бе240:Д160(КаЕA│4Бж210:ЕY│0з50:ДQ│XоY:ЗQ:Бе240:Д170(│кЕA│5зS│1:Бж210:Q│ Ы(X):ЗQ:Бе240:Д180(╠┤ЕA▓┤6з260:ДS│1:Бж210(Ї╛З@288,"cubic"B$"contents";:Q│Xп3:ЗQ)╚З"sq"B$"surface"B$"area"(XнX)н6:Бе1220)D╥З@224,"enter":ЕX▓┤0зЗ"x?"X:Бе230)Y▄Й"x";X$:X│ Й(X$))ХцЕS│1зS│0:З@320," =";:Р :ДЙ"y";Y$:Y│ Й(Y$):З@320," =";:Р)█ЁЗ@352,"save"B$"result y-n ";:Z$│ Т:ЕZ$│"Y"зX│Q :ДЕZ$│"N"зX│0:Д240)ф·Бе50)■
ЕA▓7з710:ДZ│0:Ю0:D│33*и
F$(0)│"vertical"лB$л"height":F$(1)│"square"лB$л"area":F$(2)│"base":F$(3)│"hypotenuse":F$(4)│"opposite":F$(5)│"angle"лB$л"a":F$(6)│"angle"лB$л"b":F$(7)│"angle"лB$л"c"*є
З@93,"b";:АQ│125е381й32:З@Q,"O";:Л:З@413,"c";:АQ│412е404йм1:З@Q,"B";:Л+
"АQ│124е373й31:З@Q,"H";:Л:З@403,"a";+g
,З@418,"ANGLE c = 90 DEGREES? <Y><N>";:З@418, б(30,B$);:R$│ Т:ЕR$│""з300+в
6З@0,"use"B$"arrows"B$"to"B$"move"B$"up"B$"or"B$"down";+р
@З@480,"PRESS"B$"enter"B$"<OR>"B$"n"B$"FOR"B$"NEW"B$"SET";,%
JАS│0е7:D│Dл32:З@Dм1,F$(S),:Л:D│65:ЕR$│"Y"▒R$│"N"з340:ДD│33:Бе300,H
TZ$│ Т:ЕZ$│""з340:ДЗ@Dм1,F$(Z),,Л
^ЕZ$│ Л(13)зЗ@416,F$(Z),:ЙIN$:IN│ Й(IN$):З@416, б(32,B$);:Бж400,░
hЕZ$│"N"зАZ│0е7:A(Z)│0:Л:A│7:Бе50,╤
rЕZ$│ Л(94)░Z▓│1зD│Dм32:Z│Zм1,Є
|ЕZ$│ Л(10)░Z┤│6зD│Dл32:Z│Zл1-
ЖЗ@Dм1,">";A(Z),:Бе340--
РA(Z)│IN:ЕR$│"Y"зA(7)│90:Д560-K
ЪЕA(5)▓│90▒A(6)▓│90зA(Z)│0-l
дЕA(0)▓0зA(4)│A(0):ДA(0)│A(4)-У
оЕA(2)▓0зЕA(0)│A(2)зA(5)│45:A(6)│45- 
╕ЕA(0)▓0░A(2)▓0зA(1)│(A(2)нA(0))о2:A(3)│ Ы((A(2)нA(2))л(A(0)нA(0))):AA│A(0)оA(2):A(5)│ Ф(AA)н57.29577951.+
┬Бж680:ЕA(0)▓0░A(1)▓0зA(2)│(2нA(1))оA(0).Q
╠ЕA(1)▓0░A(2)▓0зA(0)│(2нA(1))оA(2).t
╓ЕA(3)▓0░A(6)▓0зA(4)│A(3)н Х(B).Ч
рЕA(3)▓0░A(5)▓0зA(4)│A(3)н Е(A).║
ъЕA(0)▓0░A(5)▓0зA(3)│A(0)о Е(A).▌
ЇЕA(2)▓0░A(5)▓0зA(3)│A(2)о Х(A)/
■ЕA(2)▓0░A(3)▓0зA(0)│ Ы((A(3)нROGRAM."/╪Бж 260/*ьЩ "O",#1,"SORTEDML"/6ЎЗ#1,CC$/EЗ#1,TITLE$/QЗ#1,NP$/`
А I│1 е EL/qЗ#1,NAME$(I)/ВЗ#1,ADDR$(I)/Т(З#1,CSZ$(I)/з2Е I┤EL з З#1,NP$/п<Л I/╗FЗ#1,CC$/├PЪ#1/╔ZЮ0dЗ"SORTED MAILING LIST IS SAVED.   PRESS ANY KEY TO RETURN TO THE  LAST MENU."0.nБж 260:Бе 35050GX:Г***INSTRUCTIONS***0gbЗ@ 6,"tw sort instructions"0▓lЗ@32,"1> USE TELEWRITER TO CREATE A      MAILING LIST IN THIS FORMAT:"0┴vЗ@100,"^;"0тАЗ@132,"^T CLUB MAILING LIST"0ёЕЗ@164,"^N"1	КЗ@196,"JOHN A. DOE"1&ФЗ@228,"123 FIRST STREET"1HЮЗ@260,"ALBUQUERQUE, NM 87908"1WиЗ@292,"^N"1n▓З@324,"JANE SMITH"1Л╝З@356,"2468 MAIN STREET"1и╞З@388,"AURORA, IL 60516"1╖╨З@420,"^;"1▐┌З"2> ASCII SAVE LIST AS 'SORT ML'"1щфБж 2601яюЮ2	°З@10,"to use tw sort"2JЗ@64,"A> INSERT ASCII MAILING LIST       DISK TO BE SORTED."2vЗ@192,"B> SELECT SORT OF OPTION 1 OR 2"2П З@324,"1) NAME SORT"2з*З@356,"2) ZIP SORT"2▓4Бж 3002║>Ю 02╞HБе 101010лL):в:Бе 3003	шЗ"WRONG FILE TYPE...HIT A KEY":в 44                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                4,12,A6,C4,27,2A,A6,C4,E6,45,A0,45,24,02,E6,C4,34,01,AE,42,10,AE,47,6D,45,26,04,32,61,20,29,A6,80,A0,A0,27,04,32,61,20,05,5A,26,F3,35,01,23,18,AE,42,10,AE,47,AF,47,10,AF,42,A6,C4,E6,45,E7,C4,A7,45,EA,459▄ЖEA,E4,E7,E4,33,45,AE,61,30,1F,AF,61,26,B0,A6,E4,32,63,26,A1,32,62,399цР9 Ё:Г9'·:Г98:ГDIRECTIONS9>Ю:З" THIS PROGRAM WILL PRESENT THE   CONTENTS OF YOUR DISK SORTED    IN BLOCKS OF 10 FILES.  YOU     MAY TYPE IN COMMANDS NEXT TO    THE FILE SUCH AS KILL, COPY     OR RENAME.  THESE WILL ACT ON   THE ADJACENT FILE.":┘"З:З" YOU MAY ALSO TYPE IN CERTAIN    COMMANDS WHICH WILL CHANGE THE  VIEW.  FOR EXAMPLE HELP, QUIT   AGAIN OR THE ARROW KEYS.  HELP  WILL GIVE YOU THE SPECIFIC      ACTIONS FOR EACH KEY.";,З:З"HIT A KEY TO CONTINUE";:в44539:Ю;▌6З" THE PROGRAM CONTAINS A MACHINE  LANGUAGE SORT AND AUTO REPEAT   KEY FOR CURSOR AND SCREEN       MOVEMENT.  THE PROTECT FEATURE  WILL STORE AND RETRIEVE THE     FILE ALLOCATION TABLE AND DIR.  TRACKS TO GRAN 68."<_@З:З" BECAUSE ONLY 1 GRAN (68) IS     USED FOR PROTECTION, THE        NUMBER OF FILES IS LIMITED TO   LESS THAN 56 FILE/DISK."<ОJЗ:З"HIT A KEY TO CONTINUE";:в44539:Ю:Бе 60<еTЮ:С :ГQUIT COMMAND<┬^О :ГREAD DIRECTORY AGAIN<╤h:ГHARDCOPY<¤rЗ @416,"ENTER TITLE OF DIRECTORY":Й TI$=|З #м2,TI$=,ЖА I│0 е QQ:З#м2,NA$(I)"    "=2РЛ=<ЪЗ #м2=GдБе 300лQ$:Р№TA$│ О(Q$,(66лLN))╕Е AL ▓30 з A(I)│2┬Л M ╠Р                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    RESORT THE DIRECTORY B BEGIN  - REREAD THE DIRECTORY C COPY   - COPY TO OTHER DISK   D DUMP   - PRINT SORTED DIR.    H help   - DISPLAY THIS SCREEN  K KILL   - DELETE FROM DISK     L LIST   - LIST AN ASCII FILE"0║З" P PROTECT- COPY DIR/FAT TO GR68 Q QUIT   - END THE PROGRAM      R RENAME - RENAME FILE          X EXEC   - RUN A PROGRAM        ^ ARROW  - PREVIOUS FILE        V ARROW  - CURSOR TO NEXT FILE  <-ARROW  - SELECT PREV. SCREEN"0с З" ->ARROW  - SELECT NEXT SCREEN";1*З@480," HIT ANY KEY TO CONTINUE";:в 44539:Бе 30014:Г16>:ГLIST AN ASCII FILE1<HЮ1URЩ "I",1,NA$(CSн10лL)1b\SW│ М(1)1ЪfЕ SW з Ъ:З:З"HIT ENTER TO CONTINUE":в44539:Ю:Бе 3001мp╗Й #1,A$:З A$1─zA$│ Т:Е A$│"" з 8601▀ДЕ A$│"Q" з SW│1:Бе 8701ёОв44539:Бе 8601°Ш:Г2в:ГRESORT DIRECTORY2"мБж 1380:Бе 3002)╢:Г2E└:Г RUN BASIC OR EXEC ML2h╩З @448,"EXECUTE "NA$(CSн10лL);2Ы╘Е  П(NA$(CSн10лL),3)│"BAS" з О ""лNA$(CSн10лL)2╫▐Е  П(NA$(CSн10лL),3)│"BIN" з ╙M""лNA$(CSн10лL):в:Бе 3003	шЗ"WRONG FILE TYPE...HIT A KEY":в 44539:Бе 3003Є:Г3,№:ГGET OR SAVE DIRECTORY32Ю3JЗ "pROTECTION MENU"3nЗ "1 SAVE DIRECTORY TO GRAN 68"3Т$З "2 GET DIRECTORY FROM GRAN 683й.Й "ENTER 1 OR 2";A3╛8И A Бе 1110,12703╩BБе 10303чL:ГSAVE DIRECTORY TO GR684VЙ"ENTER DATE(MM/DD/YY)";DA$4`▀0,17,2,A$,B$4;jЕ  Р(A$,68,1)│ Л(&HC9) з 11604]tЕ  Р(A$,68,1)│ Л(&HFF) з 11604Я~З"GRAN 68 IN USE...CONTINUE(Y/N)":Й Z$:Е Z$│"Y" з 1160 :Д 3004╕И Р(A$,68,1)│ Л(&HC9)4╦Тр 0,17,2,A$,B$4▀Ьр 0,34,11,A$,B$4южА DS│3 е 95░▀ 0,17,DS,A$,B$5&║Е DS│9 з  Р(B$,120, З(DA$))│DA$5<─р 0,34,DSл9,A$,B$5E╬Л DS5Z╪ Р(B$,120,8)│DA$5dтБе3005Вь:ГGET DIRECTORY FROM GR685ЦЎ▀ 0,34,18,A$,B$5лDA$│ Р(B$,120,8)5╦
З "DATE LAST SAVED WAS "DA$5√Й"CONTINUE RESTORE(Y/N)";A$:Е A$┤▓"Y" з 3006
А DS│2 е 96(▀0,34,DSл9,A$,B$632р 0,17,DS,A$,B$6<<Л DS6GFБе 3006NP:Г6иZ:ГML SORT ROUTINE (BILL BARDEN - JUN.82 TRS80 MICROCOMPUTER NEWS P.13 MODIFIED BY ME)6╡dA│0:NN│06┼n╣ Г0│&H0E026╫xNN│ Э(NA$(0))6яВТ &H0E00, Б(NNо256)7МТ &H0E01,NNм Б(NNо256)н2567ЦA│ Г0(0)7!аР7(к:Г7=┤:ГML SORT LOADER7е╛З"LOADING MACHINE LANGUAGE SORT":А ADDR│&H0E02 е &H0E68:Н A$:Т ADDR, Й("&H"лA$):CK│CKл Й("&H"лA$):Л7╘╚Е CK┤▓10805 з З"ERROR IN TYPING ML SORT":С8╔╥ЖBE,0E,00,34,10,EE,E4,AE,5E,30,1F,4F,3 К&
Х 2000&оT$│"***********************         *FULL SCREEN DIRECTORY*         *      COPYRIGHT      *         *BILL BONNELL 11/08/84*         *********************** "&╔Ю:Е  Ж(&HE02)│190 з 60&ю(Бж 1470:З@263,"DIRECTIONS(Y/N)";'2A$│ Т:Е A$│"Y" з 1530 :Д Е A$┤▓"N" з 50'F<Ю:З@164,T$:З"        reading directory"'SFЗ@164,T$'aPМ NA$(60)'hZ:Г'Аd:ГREADING DIRECTORY'ПnTRACK │ 17'ЯxА S│ 3 е 11'▒В▀F,17,S,A$,B$'╞МA$│A$л О(B$,127)'▄ЦА P│ 1 е 255 й 32'ЄаNAME$│  Р(A$,P,8)(кEXT$│ Р(A$,Pл8,3)(:┤Е EXT$┤▓"   "з EXT$│"."лEXT$:NAME$│NAME$лEXT$(Z╛Е  О(NAME$,1)│ Л(255) з 240(x╚Е  О(NAME$,1)│ Л(0) з 220(Р╥NA$(QQ)│NA$:QQ│QQл1(Ч▄ЛP(ЮцЛS(╗ЁБж 1380 :ГSORT DIRECTORY(┘·QQ│QQм1:GR│ г(0) :Г#FILES(∙
NS│ Б(QQо10л1)м1 :Г#SCREENS)
CS│0 :ГCURRENT SCREEN)T
CM$│ Л(8)л Л(9)л Л(10)л Л(94)л"KRCHLAPQXBD" :ГCOMMAND STRING)p
"L│0:OL│0 :ГLINE:OLDLINE)Т
,A$│ Т:Ю:А I│CSн10л0 е CSн10л9)Я
6З NA$(I))е
@Л)┴
JЗ @20,"SCREEN"CSл1"OF";)╤
TЗ @52,NSл1;) 
^З@320,"<===========options============>";*(
hЗ@352,"A B C D H K L P Q R X ARROWS"*P
rЗ@148,"SPACE LEFT":З@180,GR"GRANS";*_
|Т &HFF40,0*с
ЖА KT│338 е 345:Т KT,255:Л:A$│ Т:З @Lн32л15, Л(143);:З@Lн32л15, Л(128);:З @ 84,"FILE"CSн10лLл1"OF ";:З@116,QQл1;:Е A$│"" з 390*Ї
РЗ @Lн32л15,A$;+P
ЪИ  Ю(1,CM$,A$)л1 Бе 390,430,440,470,520,580,650,730,770,840,940,1030,1620,970,1630,1640+Z
дБе390+Ф
оЮ:CS│CSм1:Е CS┤0 з CS│NS:Бе 290 :Д Бе 290:ГLEFT ARROW+╧
╕Ю:CS│CSл1:Е CS▓NS з CS│0:Бе 290 :Д Бе 290:ГRIGHT ARROW+╓
┬:Г+ч
╠:ГDOWN ARROW+ё
╓L│Lл1,
рЕ L▓9 ▒ CSн10лL▓QQ з L│0,>
ъЗ@OLн32л15, Л(143);:OL│L:Бе 390:ГDOWN ARROW,E
Ї:Г,T
■:ГUP ARROW,^L│Lм1,nЕ L┤0 з L│9,МЕ CSн10лL▓QQ з L│QQмCSн10,░&З@OLн32л15, Л(143);:OL│L:Бе 390,╖0:Г,═::ГKILL AND RESORT,їDЗ@448,"KILL "NA$(CSн10лL)" (Y/N)?";, NA$│ Т-4XЕ A$│"Y" з ╥ NA$(CSн10лL):NA$(CSн10лL)│"":Бе 240-RbЕ A$│"N" з З@448,"":Бе390-Yl:Г-fv:ГRENAME-qАБе 590-еКЗ@448,"";:Й"NEW NAME OR ENTER";A$:Е A$│"" з 300-╬ФPS│ Ю(A$,"."):Е PS│0 з PS│ Ю(A$,"/")-▀ЮЕ PS│0 з 650.иA$│ О( Р(A$,1,PSм1)л"        ",8)л Р(A$,PS).7▓╓ NA$(CSн10лL) е A$:NA$(CSн10лL)│A$.B╝Бе 300.I╞:Г.Y╨:ГCOPY FILE.╦┌З@448," COPYING ";NA$(CSн10лL);:▐ NA$(CSн10лL):Ю:Т &HFF40,0:З"INSERT SOURCE DISK...HIT ANY KEY":в44539:Бе 290.╒фБе290.▄ю:Г.ч°:ГHELP.эЮ/╙З" A AGAIN  - ╟&
└1:Х 16000&6М NAME$(250),ADDR$(250),CSZ$(250)&<Ю&HБе 7010&`d:Г***SUBROUTINES***&Аn:Г***LAST NAME SEPARATOR***&НxZ│ З(N$)&ЫВА K│1 е Z&мМLN$│ П(N$,K)&┘ЦЕ  О(LN$,1)│" " з LN$│ П(LN$,Kм1) :Д Л K&▀аР&∙┤:Г***ZIP SEPARATOR***'
╚ZIP$│ П(CSZ$,5)'5╥Е  О(ZIP$,1)│"-" з ZIP$│ П(CSZ$,10)'P▄Е  Й(ZIP$)│0 з ZIP$│""'VцР'i·:Г***INKEY$***'Р
З@483,"press any key to continue";'г
а 150,2:а 50,2'н
A$│ Т'┬
"Е A$│""з280 :Д Р'╔
':Г'Ё
,З@483, "press 1 or 2 to continue";(
6а 50,2:а 150,2(
@CH$│ Т:CH│ Й(CH$)(6
JЕ CH│1 ▒ CH│2 з Р :Д 320(U
T:Г***END OF SUBROUTINES***(\
^:Г({ш:Г***MAILING LIST INPUT***(ТЄЩ "I",#1,"SORT ML"(йўЙ#1,CC$,TITLE$,NP$(─∙З"MAILING LIST TITLED"(т·З  П(TITLE$, З(TITLE$)м3)(¤√З"IS NOW BEING SORTED")№EL│1)
А RL│1 е 3)7Е  М(1) з Ъ#1:EL│ELм1:Бе 3505)GЙ #1,L$(RL))mЕ  О(L$(RL),1)│"^" з 1025 :Д Л RL)з$Е  П(L$(1),1)│" " зL$(1)│ О(L$(1), З(L$(1))м1):Бе1060)с.Е  П(L$(3),1)│" " зL$(3)│ О(L$(3), З(L$(3))м1):Бе1070)ў8И CH Бе 2010,2510*╨:Г***LAST NAME SORT****+┌Е EL│1 з I│1:Бе 3050*?фN$│L$(1):Бж 120*KюCN$│LN$*\°А I│1 е ELм1*sN$│NAME$(I):Бж 120*УЕ CN$▓│LN$ з Л I    :Д 3000*дI│EL:Бе 3050*╣	─:Г***ZIP SORT****╥	╬Е EL│1 з I│1:Бе 3050*ш	╪CSZ$│L$(3):Бж 200*ї	▌CZ$│ZIP$+	тА I│1 е ELм1+	ьCSZ$│CSZ$(I):Бж 200+>	ЎЕ CZ$▓│ZIP$ з Л I   :Д 3000+O
I│EL:Бе 3050+lо:Г***NAME REORGANIZER***+В╕А J│EL е Iл1 й м1+Ъ┬NAME$(J)│NAME$(Jм1)+▓╠ADDR$(J)│ADDR$(Jм1)+╚╓CSZ$(J)│CSZ$(Jм1)+╨рЛ J+уъNAME$(I)│L$(1)+ЎЇADDR$(I)│L$(2),■CSZ$(I)│L$(3),EL│ELл1, Бе 1025,=
м:Г***SORTED LIST MENU***,C
▒Ю,f
╢З@3,"sort complete-what next?",П
└З@96,"1> PRINT SORTED MAILING LIST.",╫
╩З@192,"2> STORE SORTED MAILING LIST       ON DISK IN ASCII FORMAT.",т
╘Бж 300,°
▐И CH Бе 4010,5010-а:Г***PRINT SORTED LIST***-%кА I│1 е EL-7┤З#м2,NAME$(I)-I╛З#м2,ADDR$(I)-Z╚З#м2,CSZ$(I)-c═З#м2-k╥Л I-w▄Бе 3505-ФИ:Г***SAVE SORTED LIST***-ЪТЮ-└ЬЗ@3,"to save sorted mailing list"-ЇжЗ@64,"A> INSERT DISK FOR SAVING NEW      FILE.".║З@128,"B> PRESS ANY KEY TO START SAVE".Д─З@192,"C> SORTED MAILING LIST WILL BE     SAVED IN ASCII FORMAT AS        FILE NAME 'SORTEDML'."/╬З@288,"D> TO EDIT, RENAME OR SAVE IN      TW BINARY FORMAT, INPUT LIST    TO TELEWRITER USING ASCII          READ-IN P                                                                                                                                                                                                                                                                                  ╔ ┴┼╟──╞┼╔%&'()*+├-.─0├╟                  TITLE   BAS"_WILDBLUEBAS#YFSDIR   BAS НTWSORT  BAS!╩HALTHIEFBAS$яMATHHELPBAS╞FIREWOODBASЙINVASIONBASQLINKSORTBAS,LISTING2BAS/ыRESET   BINзLISTING3BAS1xMEGASHLDBIN[                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 \&
Х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"'5iЗ@329,"NOVEMBER 1985"'BnЗ@426,B$'wxв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   *"(]ЫЗ@258,"*ALL PROGRAMS COPYRIGHT 1985*       * HOT COCO MAGAZINE *"(БЬЗ@357,"** CW COMMUNICATIONS **"(гЮЗ@390,"*  PETERBOROUGH, NH *"(░аЗ@458,B$(цкв15000:А X│1е130:Л:A$│ Т:Е A$│ Л(13) з 200 :Бе170(ё┤Бе 170)W╛Ж 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)k╚Ю:Т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*RцЖ 9F,AF,CF,BF*[ЁЖ 00,7D,1,DA,27,D8,34,7F,8D,1E,86,40,C6,3,33*─цЖ 8D,FF,4B,8D,25,8B,9,5A,26,F5,80,1A,31,3F,81,49,26,EB,8E+ЁЖ 5,FF,9F,88,35,FF,86,CF,8E,4,20,A7,80,1F,12,A7,80,8C,                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 V&(dВ * WILD BLUE YONDER * COLOR BASIC&MnЮ3: З @ 232, "WILD BLUE YONDER";&ЙxХ 800: P│1024: М A$(24),J(3): А A│1 е 21: B$│B$л Л(175)&ЬВЕ A│1 з B1$│B$&пМЕ A│2 з B2$│B$&┬ЦЕ A│3 з B3$│B$&╒аЕ A│4 з B4$│B$&шкЕ A│5 з B5$│B$&√┤Е A│6 з B6$│B$'╛Е A│9 з B9$│B$'.╚Л: Ю3: U$│ Л(94): D$│ Л(10)'Z╥A$(0)│B$: A$(1)│B$: A$(2)│B9$л"477"лB9$'x▄A$(3)│B6$л"544833463"лB6$'ЪцA$(4)│B4$л"1451114517135"лB4$'╥ЁA$(0)│B$: A$(1)│B$: A$(5)│B3$л"494967555876685"лB3$'°·A$(6)│B2$л"37298356739187585"лB2$(
A$(7)│B2$л"14784292711822763"лB2$(F
A$(8)│B1$л"7218553113133428613"лB1$(n
A$(9)│B1$л"4267252422543281773"лB1$(Ч
"A$(10)│B1$л"4165111914344319827"лB1$(║
,A$(11)│"435232232425351135537"(▌
6A$(12)│"271511315332423775427")
@A$(13)│"252261244634121265188"))
JA$(14)│B1$л"4375193445294195748"лB1$)R
TA$(15)│B1$л"4167834341312323624"лB1$){
^A$(16)│B1$л"7326153923215758954"лB1$)в
hA$(17)│B2$л"16734812121228941"лB2$)╔
rA$(18)│B2$л"25478756135787293"лB2$)ю
|A$(19)│B3$л"656467252263474"лB3$*
ЖA$(20)│B4$л"2312333213211"лB4$*0
РA$(21)│B6$л"744573447"лB6$*_
ЪA$(22)│B9$л"334"лB9$: A$(23)│B$: A$(24)│B$*v
дH│398: Y│0: Бж 660*А
оX$│ Т*┤
╕H1│ Ж(PлH): Т PлH,255: Бж 670: Т PлH,H1: Бж 670*ю
┬Е PF▓349 ░ PF┤357 з Т PлH,255: а 100л Д(50),1: Бе 450+
╠Е X$│"" з 430+"
╓Е X$│D$ ░ Y▓0 з Y│Yм1: H│Hл32+D
рЕ X$│U$ ░ Y┤9 з Y│Yл1: H│Hм32+a
ъЕ X$│D$ ▒ X$│U$ з Бж 660+Ф
ЇЕ X$│"N" ▒ X$│"S" ▒ X$│"W" ▒ X$│"E" з C$│C$лX$+╟
■PK│ Й( Л(H1м64)): З @ 93,C$;: Е  З(C$)┤2 з 430,)Е C$┤▓"NN" ░ C$┤▓"SS" ░ C$┤▓"WW" ░ C$┤▓"EE" ░ C$┤▓"NW" ░ C$┤▓"SE" ░ C$┤▓"SW" ░ C$┤▓"NE" з 680,EЕ C$│"NN" з H│Hм(PKн32),aЕ C$│"SS" з H│Hл(PKн32),x&Е C$│"WW" з H│HмPK,П0Е C$│"EE" з H│HлPK,о:Е C$│"NE" з H│HлPKм(PKн32),═DЕ C$│"NW" з H│HмPKм(PKн32),ьNЕ C$│"SW" з H│HмPKл(PKн32)-XЕ C$│"SE" з H│HлPKл(PKн32)-$bЕ  Ж(PлH)┤▓175 з 680-3lSC$│SC$лC$-xvJ(0)│ Ж(PлHм32): J(1)│ Ж(PлHл32): J(2)│ Ж(PлHм1): J(3)│ Ж(PлHл1)-│АPF│0: А T│0 е 3: Е J(T)▓112 ░ J(T)┤122 з J(T)│J(T)м113-╒КPF│PFлJ(T): Л: Бж 680: Бе 430.
ФG│Y: А X│4 е 484 й 32: З @ X,A$(G);: G│Gл1: Л: Р.ЮА T│1 е 20: Л: Р.>иC$│"": З @ 93,B3$;: Бе 430.U▓В * END OF LISTINGR SOMEWHERE IN  LINES 360 &Бе400&╙M"MAINLOGO&'<а 176,2&3Aа 185,2&?Fа 193,2&KKа 204,4&WPа 193,2&cUа 204,4&lW Я│0&YЕ  Я│250 з 100&ЙZБе 89&Рd Aь&$
:Г****************************&G:Г*       HALT THIEF II      *&j:Г*     CASSETTE VERSION     *&Н:Г*  (C) 1984 BY WADE JENSE  *&░:Г****************************&╬Ю:АL│29696е30207:ТL,128:Л'Т65478,0:Т65481,0:Т65482,0:Т65485,0:Т65487,0:Т65489,0:Т65490,0'АL│1е110'&	НST':
Т(STл29696),255'Fа55,1:Л'RАR│1е20'[
НV,Z'lТ(Vл28674),Z'yа200,5:Л(oЖ37,41,43,44,45,46,47,49,55,56,57,58,59,254,253,317,378,376,375,374,373,372,370,369,368,367,366,364,360,356,226,227,69,73,75,79,81,89,252,251,316,315,346,340,336,332,328,324,292,260,228,229,165,133,101,102,103,104,105,107,108,109,110,111,113)(Ж121,250,282,314,311,310,309,308,304,300,299,298,297,296,230,137,139,143,145,153,248,247,276,272,268,264,232,169,171,175,177,178,179,180,181,185,246,245,244,242,241,240,239,238,236)─Ж1403,9,1404,9,1442,40,1443,3,1444,41,1446,49,1447,57,1448,56,1449,52,1451,2,1452,25,1454,23,1455,1,1456,4,1457,5,1459,10,1460,5,1461,14,1462,19,1463,5)╪АLV│30208е32255)сН LE)ьТLV,LE)ЄЛ*ьЖ 128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,143,143,143,143,207,207,143,143,143,143,143,143,143,143,143,143,143,143,143,143,143,143,143,143,143,143,143,143,143+уЖ 143,128,128,2,143,128,128,128,128,128,128,239,239,239,239,143,143,36,36,36,36,36,36,36,143,143,143,143,143,143,143,143,143,128,128,1,143,128,128,159,159,128,128,239,239,239,239,143,143,36,36,36,36,36,143,143,143,239,239,5,12,239,239,143,143,╥Ж128,128,14,143,239,239,128,128,128,128,239,239,239,239,143,143,143,143,239,239,143,143,143,128,128,128,128,128,128,128,143,143,128,128,11,143,239,239,159,159,128,128,255,255,128,128,175,175,128,128,255,255,128,128,159,159,128,128,255-╕Ж 255,128,128,207,207,128,128,143,143,128,128,128,128,128,128,143,143,128,128,143,143,128,128,128,128,128,128,128,128,128,128,36,36,36,36,143,143,128,128,143,143,128,128,159,159,128,128,143,143,143,143,143,143,143,143,143,143.░Ж 143,143,175,175,143,143,143,143,143,143,143,143,128,128,12,143,128,128,128,128,128,128,143,143,128,128,143,143,239,239,239,239,239,239,128,128,128,128,128,128,128,128,143,143,128,128,22,143,128,128,159,159,128,128,255,255,128,128,175,175,128/бЖ 128,255,255,128,128,159,159,128,128,159,159,128,128,207,207,128,128,12,143,128,128,128,128,128,128,143,143,128,128,143,143,239,239,239,239,239,239,128,128,128,128,128,128,128,128,143,143,128,128,143,143,128,128,159,159,128,128,143,1430ЧЖ 143,143,143,143,143,143,143,143,143,143,143,143,143,143,175,175,143,143,143,143,128,128,143,143,128,128,128,128,128,128,128,128,128,128,143,143,239,239,239,239,239,239,143,143,128,128,128,128,128,128,143,143,128,128,49,143,143,143,5,12,1281НЖ 128,159,159,128,128,175,175,128,128,255,255,128,128,175,175,128,128,159,159,128,128,207,207,128,128,143,143,143,143,143,143,128,128,128,128,128,128,143,143,128,128,128,128,128,128,143,143,128,128,128,128,128,128,143,143,128,128,143,143,1432Ж 143,143,143,143,143,143,143,143,143,143,143,143,143,143,143,143,143,143,143,143,143,143,143,143,143,143,143,128,1282¤ Ж 128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,143,143,143,143,207,207,143,143,143,143,143,143,143,143,143,143,207,207,143,143,143,143,143,143,143,143,143,1433ї!Ж 143,143,128,128,143,143,128,128,128,128,128,128,239,239,239,239,143,143,128,128,128,128,128,128,143,143,128,128,143,143,143,143,143,143,128,128,143,143,128,128,159,159,128,128,255,255,128,128,175,175,128,128,159,159,128,128,175,175,128,128,54ы"Ж 12,143,143,143,143,128,128,1,143,128,128,128,128,128,128,128,128,128,128,143,143,128,128,128,128,128,128,143,143,128,128,128,128,239,239,143,143,128,128,14,143,239,239,159,159,143,143,143,143,143,143,143,143,143,143,143,143,143,143,143,1435ц#Ж 128,128,255,255,128,128,207,207,128,128,20,143,239,239,128,128,143,143,128,128,128,128,128,128,239,239,239,239,239,239,143,143,128,128,128,128,128,128,143,143,128,128,9,143,143,143,175,175,143,143,143,143,131,128,159,159,128,128,255,255,128,1286┌$Ж 175,175,128,128,159,159,128,128,143,143,128,128,17,143,128,128,128,128,128,128,128,140,143,143,131,128,128,128,128,128,128,128,143,143,128,128,128,128,128,128,143,143,128,128,21,143,128,128,159,159,128,128,239,239,128,140,175,175,131,1287╤%Ж 159,159,128,128,143,143,128,128,159,159,128,128,207,207,128,128,5,143,128,128,128,128,128,128,128,128,128,128,128,140,143,143,128,128,128,128,143,143,128,128,128,128,128,128,143,143,128,128,19,143,128,128,159,159,128,128,159,159,128,128,1318╚&Ж 131,143,143,143,143,143,143,143,143,143,143,175,175,143,143,143,143,128,128,143,143,128,128,128,128,128,128,128,128,128,128,143,143,239,239,239,239,239,239,143,143,128,128,128,128,128,128,143,143,128,128,143,143,143,143,5,12,128,128,159,1599┴'Ж 128,128,175,175,128,128,255,255,128,128,175,175,128,128,159,159,128,128,207,207,128,128,50,143,143,143,143,143,128,128,128,128,128,128,143,143,128,128,128,128,128,128,143,143,128,128,128,128,128,128,143,143,128,128,143,143,143,143,143,143,143:+(Ж 143,143,143,143,143,143,143,143,143,143,143,143,143,143,143,143,143,143,143,143,143,143,143,128,128;!)Ж 128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,143,143,143,143,207,207,143,143,143,143,143,143,207,207,143,143,143,143,143,143,207,207,143,143,143,143,143,143<*Ж 143,143,128,128,143,143,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,143,143,143,143,143,143,128,128,10,143,128,128,159,159,128,128,159,159,128,128,159,159,128,128,159,159,128,128,159,159,128,128,5,12=
+Ж143,143,143,143,128,128,5,143,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,239,239,143,143,128,128,23,143,143,143,143,143,143,143,175,175,143,143,143,143,143,143,255,255,143,143,143,143>,Ж 128,128,255,255,128,128,207,207,128,128,5,143,128,128,128,128,128,128,128,128,128,128,143,143,239,239,128,128,239,239,143,143,128,128,128,128,128,128,143,143,128,128,49,143,128,128,159,159,128,128,159,159,128,128,143,143,143,143,175,175>Ё-Ж 143,143,143,143,143,143,175,175,143,143,143,143,128,128,18,143,128,128,128,128,239,239,227,227,227,227,143,143,239,239,128,128,239,239,143,143,128,128,128,128,239,239,143,143,128,128,25,143,128,128,255,255,239,239,239,239,239,239,143?ц.Ж 143,239,239,255,255,239,239,143,143,128,128,255,255,239,239,143,143,128,128,143,143,128,128,128,128,128,128,128,128,128,128,143,143,239,239,128,128,239,239,143,143,128,128,128,128,239,239,143,143,128,128,143,143,128,128,159,159,128,128,159@▌/Ж 159,128,128,143,143,143,143,175,175,143,143,143,143,143,143,175,175,143,143,143,143,128,128,143,143,128,128,128,128,128,128,128,128,128,128,239,239,239,239,128,128,128,128,143,143,128,128,128,128,128,128,143,143,128,128,143,143,143,143,5,12A╓0Ж 128,128,159,159,128,128,255,255,128,128,159,159,128,128,159,159,128,128,159,159,128,128,207,207,128,128,51,143,143,143,143,143,128,128,128,128,128,128,128,128,128,128,128,128,128,128,143,143,128,128,128,128,128,128,143,143,128,128,143,143,143BP1Ж 143,143,143,143,143,143,143,143,143,143,143,143,143,143,143,143,143,143,143,143,143,143,143,143,143,143,143,128,128CJ2Ж 128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,143,143,143,143,207,207,143,143,143,143,143,143,207,207,143,143,143,143,143,143,207,207,143,143,143,143,143,143,143DC3Ж 143,128,128,143,143,128,128,128,128,128,128,143,143,128,128,128,128,128,128,143,143,128,128,128,128,128,128,143,143,143,143,143,143,128,128,6,143,128,128,159,159,128,128,143,143,128,128,159,159,128,128,175,175,128,128,159,159,128,128,5,12,143E;4Ж143,143,143,128,128,21,143,128, 128,128,128,128,128,143,143,128,128,128,128,128,128,143,143,128,128,128,128,128,128,128,128,128,128,143,143,128,128,18,143,128,128,159,159,128,128,175,175,128,128,255,255,128,128,128,140,143,131,159,159,128,128F/5Ж159,159,128,128,207,207,128,128,19,143,128,128,128,128,128,128,143,143,128,128,128,128,239,239,239,239,143,143,128,128,128,128,128,128,128,128,143,143,128,128,143,143,143,143,175,175,143,143,143,143,143,143,143,143,143,143,143,143,143,143G6Ж175,175,143,143,143,143,128, 128,143,143,128,128,143,143,128,128,128,128,128,128,128,128,128,128,239,239,239,239,239,239,128,128,128,128,239,239,143,143,128,128,143,143,128,128,143,143,143,143,175,175,143,143,143,143,128,128,255,255H7Ж128,128,159,159,128,128,255,255,143,143,143,143,128,128,143,143,128,128,12,143,128,128,128,128,239,239,143,143,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,143,143,128,128,22,143,128,128,255,255,239,239,143,143I8Ж143,143,143,143,143,143,159,159,143,143,143,143,128,128,159,159,128,128,143,143,128,128,12,143,128,128,128,128,128,128,128,128,128,128,143,143,128,128,128,128,128,128,143,143,128,128,128,128,128,128,143,143,128,128,143,143,143,143,5,12,128IЎ9Ж128,159,159,128,128,175,175,128,128,159,159, 128,128,175,175,128,128,159,159,128,128,207,207,128,128,52,143,143,143,143,143,128,128,128,128,128,128,143,143,128,128,128,128,128,128,143,143,128,128,128,128,128,128,143,143,128,128,143,143Jt:Ж143,143,143,143,143,143,143,143,143,143,143,143, 143,143,143,143,143,143,143,143,143,143,143,143,143,143,143,143,128,128JЦ<:Г***************************J╕=:Г*      HALT THIEF II      *J█>:Г*     CASSETTE VERSION     *J¤?:Г*  (C) 1984 BY WADE JENSE *K@:Г***************************KHAR│ Д(м Я):Т65470,0:Т65481,0:Т65482,0KzBЮ:З"    WELCOME TO HALT THIEF II":Бж281:Бж273KШCМDE(8),DC(5),MV$(2),MO(4)KмDАL│1е5:НDC(L):ЛK└EАL│1е8:НDE(L):ЛKшFЮ:З@230,"HOW MANY PLAYERS(2-6)";:ЙPKЇGЕP▓6з73LHЕP┤2з74:Д75L3IЗ@322,"THERE IS A LIMIT OF 6 PLAYERS":Бе70LaJЗ@322,"THIS GAME REQUIRES 2 PLAYERS":Бе70L}KМN$(P),S(P),P$(P),AB(P)LбLМMN(P),CX$(15),CC$(P,3),NN(P,8)L┴MTF│Pл1:МZ(TF),MK(10),PO(10)L╠NМXY(P)L┘OАL│1еP:ЮMPЗ@96,"LIMIT OF 3-8 CHARACTERS PER NAME"M"QЗ@164,"NAME #";L;:ЙN$(L)MDRAB│ З(N$(L)):ЕAB▓8 ▒ AB┤3 з81MJSЛMgTRA│ Д(P):B│1:WW│1:PT│128MyUАL│1еP:N│BлRAMНVЕ N▓P з N│1лPмBMЩWN│1лPмBM╕XP$(N)│N$(B):N$(B)│"":B│Bл1M╛YЛMфZЮ:АL│1еP:НDN$:N$(L)│DN$лP$(L)лDN$N[З@35,"#";L;"PLAYER IS ";N$(L):НS(L)N,\З@485,"PRESS <C> TO CONT.";NE]I$│ Т:ЕI$│"C"з94:Д93Nl^Л:Ю:З@36,"EACH PLAYER BEGINS WITH"NО_З@71,"$300 AND 3 CARDS":Бж247NЭ`АL│1е500:ЛN╫aCX$(1)│"GO 3 EXTRA SPACES":CX$(2)│"GO 4 EXTRA SPACES"O	bCX$(3)│"3 EXTRA CLUES":CX$(4)│"4 EXTRA CLUES"O?cCX$(5)│"GO 5 EXTRA SPACES":CX$(6)│"5 EXTRA CLUES"OГdCX$(7)│"COLLECT $200 FROM BANK":CX$(8)│"COLLECT $100 FROM BANK"O║eCX$(9)│"GO 6 EXTRA SPACES":CX$(10)│"6 EXTRA CLUES"OяfCX$(11)│"BUY A TIP-$100":CX$(12)│"BUY A TIP-$50"P"gCX$(13)│"FREE TIP":CX$(14)│"TAKE ANOTHER TURN"PChАLL│1еP:Ю:ЗP$(LL):MN(LL)│300PjiАL│1е3:RF│ Д(CZ):CC$(LL,L)│CX$(RF)PаjЗ"   ("L") "CX$(RF):Л:З@482,"PRESS <C> TO CONT.";P╗kI$│ Т:ЕI$│"C"з108:Д107P═lЛ:Бж109:Бе116PщmRS│ Д(4):Z(TF)│RS:Бж193QnRG│ Д(511):PZ│RGл(29696л(DLн512))Q#oPA│ Ж(PZ):TT│PZQ>pЕ PA│255 з TP│PZ :Д110QЩqАL│1е10:╔"V31T135L204ABGO5GBA":Л:Т(30183л(DLн512)),67:Т(30184л(DLн512)),76:CL│67:CK│82Q╞rАL│1еP:Z(L)│RS:XY(L)│(29764л(DLн512)):ЛLQ╤sCS│0:РQчtБж202:Бж206:Бж194Q№uII$│ Т:A│0:Бж244RvЕII$│"N"зA│1 :Д ЕII$│"T"зA│2R>wЕII$│"E"зA│3 :Д ЕII$│"V"зA│4R_xЕII$│"S"зA│5 :Д ЕII$│"Z"зA│6RАyЕII$│"W"зA│7 :Д ЕII$│"Q"зA│8RНzЕA▓0з132Rо{ЕII$│"U"з138 :Д ЕII$│"A"з147R╨|ЕII$│"D"з138 :Д ЕII$│"R"Бж222Rё}ЕII$│"C"з167 :Д ЕII$│"F"з165S~ЕII$│"X"зБе128:ДЕII$│"H"з295SБе117S1АБж193:ТXY(WW),PTSBБTL$│ Т:Бж244S`ВЕTL$│"X"зБж280:Д129:Бе131SvГБж195:Бж203:Бе117SЛДЕMV│0з231:Да31,2S╬ЕPH│XY(WW)лDE(A):ЕPH┤(29696л(DLн512)) ▒ PH▓(30207л(DLн512))з135S°ЖPP│ Ж(PH):АLC│1е5:ЕPP│DC(LC)з136 :Д ЛTЗБж245:Бе117T5ИБж246:MV│MVм1:ТXY(WW),PT:PT│PP:XY(WW)│PHTEЙБж203:Бе117TSКЕMV│0з231TdЛЕ PT│5 з 141TtМБж245:Бе117TННЕII$│"U"░Z(WW)│4з140TжОЕII$│"D"░Z(WW)│1з140T╡ПТXY(WW),PTTтРЕII$│"U"зZ(WW)│Z(WW)л1:XY(WW)│XY(WW)л512UСЕ II$│"D" з Z(WW)│Z(WW)м1:XY(WW)│XY(WW)м512U6ТБж246:MV│MVм1:Бж194:Бж203:Бе117UTУ╔"O3L2T10V31ABABABABABAB"UxФЕXY(WW)│TP ▒ (XY(WW)л1)│TP з151UЩХБж245:MN(WW)│MN(WW)м100:MV│0UпЦ╔"O1V31T1C":Бе117UЄЧТXY(WW),PT:ЕZ(WW)┤▓Z(TF)з149 :Д АL│1е3:╔"O2T6L3V31GP2GP2GA":ЛLV
ШRQ│ Д(AZ):ЕRQ│1з161V>Щ╔"O2V25T2AGAGAGAGAG":Т65478,0:Т65481,0:Т65482,0V\ЪЮ:З@136,"CONGRATULATIONS"VКЫЗ@203,P$(WW):З@294,"YOU CAUGHT THE THIEF"V░ЬMN(WW)│MN(WW)лRZ:ЕMN(WW)▓│MZ з159V┼ЭАL│1е600:ЛL:CS│0VсЮБж109:Бж202:Бж206:Бе117WЯЮ:З@136,"CONGRATULATIONS":З@203,P$(WW)WYаЗ@294,"YOU WON THE GAME":Й"ANOTHER GAME [Y/N]";IN$:Е IN$│"Y"з О 65м :Д КWzбАL│1е10:╔"V30T45L1GO4ACEG":ЛWФвБж192:АLS│1е5:Бж206:ЛWкгБж194:Бж203:Бе117W║дБж222:Бе117XеАL│(30187л(DLн512))е(30203л(DLн512)):ТL,143:ЛL:CS│0:ТXY(WW),PT:WW│WWл1:ЕWW▓P з WW│1X4жБж206:Бж280:Бж194:Бж202:Бе117X^зЕCS│1з135:ДТ65478,0:Т65481,0:Т65482,0XПиЮ:АL│1е3:З"   ("L") "CC$(WW,L):ЛL:ТXY(WW),PTX╝йCS│0:З"TO RETURN WITHOUT USING CARD <5>"XёкЙ"CARD #(1-3)";IY:ЕIY┤1▒IY▓3з Бж 195:Бж203:Бе117YSлАLZ│1е14:ЕCC$(WW,IY)│CX$(LZ)з И LZ Бе 177,176,182,181,175,180,184,185,174,179,186,187,188,191Y_мЛ:Бе170YЖнRF│ Д(CZ):CC$(WW,IY)│CX$(RF):Бе117YХоES│6:Бе178YдпES│5:Бе178Y│░ES│4:Бе178Y╝▒ES│3Yр▓MV│MVлES:Бж195:Бж203:CS│1:Бе173Yя│EC│6:Бе183Y■┤EC│5:Бе183Z
╡EC│4:Бе183Z╢EC│3ZH╖Бж193:АLT│1еEC:Бж206:Л:Бж194:Бж203:CS│1:Бе173ZЗ╕CS│1:MN(WW)│MN(WW)л200:Бж195:Бж203:ЕMN(WW)▓ MZ зБе159:Д173Z╞╣CS│1:MN(WW)│MN(WW)л100:Бж195:Бж203:ЕMN(WW)▓ MZ зБе159:Д173Z█║MN(WW)│MN(WW)м50ZЁ╗MN(WW)│MN(WW)м50[╝Бж193:PQ│ Ж(TP)[$╜ТTP,20:АZL│1е400:ЛZL:ТTP,PQ[?╛CS│1:Бж194:Бж203:Бе173[a┐Бж193:Бж206:Бж194:Бж202:Бе173[t└Е Z(TF)│DL з Р[З┴DL│Z(TF):Бе196[Ш┬ЕZ(WW)│DL зР[е├DL│Z(WW)[м─:Г[╚┼И DL Бе 198,199,200,201\╞Т65479,0:Т65481,0:Т65482,0:Т65485,0:Т65487,0:Т65489,0:Р\@╟Т65478,0:Т65480,0:Т65483,0:Т65485,0:Т65487,0:Т65489,0:Р\|╚Т65479,0:Т65480,0:Т65483,0:Т65485,0:Т65487,0:Т65489,0:Р\╕╔Т65478,0:Т65481,0:Т65483,0:Т65485,0:Т65487,0:Т65489,0:Р\╞╩MV│ Д(DZ)\∙╦АL│(30187л(DLн512))е(30203л(DLн512)):ТL,143:ЛL]I╠Бж254:Бж260:Т(30196л(DLн512)),100:Т(30183л(DLн512)),CL:Т(30184л(DLн512)),CK]k═PT│ Ж(XY(WW)):ТXY(WW),S(WW):Р]Ш╬Бж192:MK(1)│TPм64:MK(2)│TPм60:MK(3)│TPл4]└╧MK(4)│TPл68:MK(5)│TPл64:MK(6)│TPл60]█╨MK(7)│TPм4:MK(8)│TPм68]ц╤АL│1е8]·╥PO(L)│ Ж(MK(L))^╙ЕMK(L)│MM з PO(L)│128^╘Л^/╒АL│1е8:XT(L)│0:Л^B╓АLL│1е3:АL│1е8^`╫ЕPO(L)│12 ▒ PO(L)│5 з 233^z╪ЕPO(L)│DC(LL)зXT(L)│1^У┘ЕPO(L)│S(WW)зXT(L)│1^Ы┌Л:Л^и█RA│ Д(8)^┼▄ЕXT(RA)│1зTP│MK(RA):Д219^╒▌MM│TT:TT│TP^ю▐ЕPO(RA)│255з223:Д224_%▀АL│1е5:╔"V31T135L2O4ABGO5GBA":ЛL:CL│67:CK│82:Бе230_>рЕPO(RA)│159з225:Д226_БсАL│1е2:╔"T55V31L2O1CDEFGABO2CDEFGAP1P1P1":ЛL:CL│83:CK│80:Бе230_ЪтЕPO(RA)│175з227:Д228_╤у╔"V9":АL│1е20:╔"V+O1T100L1D-":ЛL:CL│68:CK│82:Бе230_ЄфЕPO(RA)│5▒PO(RA)│12з229:Д222`х╔"V24T20L2CDEFGAB":CL│69:CK│76`EцТ(30183л(DLн512)),CL:Т(30184л(DLн512)),CK:Р`МчБж245:АLL│1е10:Т(30202л(DLн512)),112:Т(30203л(DLн512)),112:АL│1е10`╟шЛL:Т(30202л(DLн512)),96:Т(30203л(DLн512)),96:ЛLL:Бе117`█щЕMK(L)│MM з 216`ыъMM│TT:TT│TPaыRL│ Д(3):ЕRL│1▒RL│2з216:ДTP│MK(L)agь╔"V24T20L2CDEFGAB":Т(30183л(DLн512)),69:Т(30184л(DLн512)),76:CL│69:CK│76:PO(RA)│5aИэЕZ(TF)│4з239 :Д ЕZ(TF)│1з240aзюRC│ Д(4):ЕRC┤│2з239 :Д 240a╫яZ(TF)│Z(TF)м1:TP│TPм512:АL│1е999:ЛL:Бж192:РbЁZ(TF)│Z(TF)л1:TP│TPл512:АL│1е999:ЛL:Бж192:РbёЖ255,159,175,128,5b=ЄЖ-32,-30,2,34,32,30,-2,-34b_єЖ@,0,^,30,_,31,#,35,%,37,&,38bРЇТ(30177л(DLн512)),96:Т(30178л(DLн512)),127:Рb└їТ(30180л(DLн512)),78:Т(30181л(DLн512)),79:РbЁЎТ(30180л(DLн512)),79:Т(30181л(DLн512)),75:Рb¤ўА LL│1еPc°AB(LL)│ З(P$(LL))c(∙А L│AB(LL)е1 йм1c=·NM$│ П(P$(LL),L)cR√NN(LL,L)│ К(NM$)cZ№Л:Лc`¤Рcm■NL│30194c~ А L│1еAB(WW)cЪ
Т(NLл(DLн512)),NN(WW,L)cж

NL│NLм1cм
Лc▓
Рc╩
MV$│ И(MV):NL│30202c┌
А L│2е1 йм1cь
NM$│ П(MV$,L)c■
MV(L)│ К(NM$)d
Т(NLл(DLн512)),(MV(L)л64)d*
	NL│NLл1:ЛdF

MN$│ И(MN(WW)):NL│30197dV
А L│4е1 йм1dh
NM$│ П(MN$,L)dz

MO(L)│ К(NM$)dШ
Т(NLл(DLн512)),(MO(L)л64)dж
NL│NLл1:Лdм
Рd▀
Ю:З@224,"DIFFACULTY (1-4) 1=EASY, 4=HARD";:ЙDAe
Е DA▓4 ▒ DA┤1 з 273 :Д DB│ Б(DA)e 
И DB Бе 276,277,278,279eF
CZ│14:AZ│5:DZ│12:MZ│2000:RZ│800:Рel
CZ│12:AZ│4:DZ│10:MZ│2500:RZ│700:РeС
CZ│10:AZ│3:DZ│8:MZ│3000:RZ│600:Рe╡
CZ│6:AZ│2:DZ│6:MZ│3500:RZ│500:Рeъ
АL│(30187л(DLн512))е(30203л(DLн512)):ТL,143:ЛL:Рf
З:З"         --HELP TABLE--"f)
З"N-NORTH":З"T-NORTHEAST"fF
З"E-EAST":З"V-SOUTHEAST"fd
З"S-SOUTH":З"Z-SOUTHWEST"fБ
З"W-WEST":З"Q-NORTHWEST"fЧ
З"U-UP":З"D-DOWN"f╜
З:З"   PRESS ANY KEY TO CONTINUE"f╥
 I$│ Т:ЕI$│""з288f∙
!Ю:З"       --HELP TABLE CONT.--":Зg
"З"A-ARREST":З"R-REPEAT CLUE"gG
#З"C-USE CARD":З"X-DISPLAY THIEF'S LEVEL"gv
$З"X-RETURN TO YOUR LEVEL":З"F-FINISH TURN"gм
%З"H-HELP TABLE":З:З"   PRESS ANY KEY TO CONTINUE"g─
&I$│ Т:ЕI$│""з294:ДРgы
'ТXY(WW),PT:Бж281:Бж195:Бж203:Бе173                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
&
Ю:╚ 0:└ 1:Х 3000&HМ NAME$(100),PTR(100),BALANCE(100),AVAIL(100)&aЗ@139,"-LINKSORT-":З&{(З@170,"A LINKED LIST"&Я2З@197,"FILE MANAGEMENT PROGRAM"&╗<З@233,"BY BRUCE BAUDER"&╒FЗ@266,"MARCH 5, 1984"&▀P┐ 0,1&ЄZА T│1 е 1500:Л'dЮ:Й "TAPE(T) OR DISK(D)";IO$'LnЕ IO$│"T" з DEVICE│м1 :Д Е IO$│"D" з DEVICE│1 :Д 100'ХxЙ "OUTPUT LIST TO PRINTER (Y/N)";HC$:Е HC$ ┤▓ "Y" ░ HC$ ┤▓ "N" з 120'╪ВЕ HC$│"Y" з З:З "MAKE SURE PRINTER IS READY.":А Y │ 1 е 1000:Л'▀М:Г(
Ц:Г***************************(#а:Г*  MAIN LOOP STARTS HERE  *(Eк:Г***************************(M┤Ю 6(a╛З@0, б(32,"*");(Д╚З@103,"<ENTER CHOICE NUMBER>";(Ъ╥З@135, б(21,"*");(╗▄З@199,"1) CREATE FILE     ";(▄цЗ@231,"2) READ FILE       ";(¤ЁЗ@263,"3) INSERT NEW NAME ";)·З@295,"4) DELETE NAME     ";)?
З@327,"5) PRINT THE LIST  ";)a
З@359,"6) SAVE AND EXIT   "; )w
З@480, б(31,"*");)Ж
"Т 1535,106)Ю
,T$│ Т:Е T$│"" з 300)л
6T│ Й(T$))┴
@Е T┤1 ▒ T▓6 з 300)ц
JИ T Бж 420,570,340,1230,1480,390*
TЕ T│3 з Бж 800:Бж 890   :ГINSERT*6
^Е T│3 з З"INSERT ANOTHER (Y/N)" :Д 380*N
hU$│ Т:Е U$│"" з 360*a
rЕ U$│"Y" з 340*l
|Бе 180*Т
ЖБж 1710:Бе 1860   :ГSAVE AND EXIT*Щ
Р:Г*а
Ъ:Г*┬
д:Г****************************ф
о:Г*   CREATE NEW FILE       *+
╕:Г***************************+
┬Ю:NUMBER│0+5
╠З"ENTER NAMES AND BALANCES"+T
╓З"TYPE 'XX' WHEN FINISHED"+i
р╗ Й "NAME?";CUS$+
ъЕ CUS$│"XX" з 530+У
ЇЙ "BALANCE";AMT+╢
■Бж 890     :ГSEARCH AND INSERT+╪Бе 480      :ГGET NEXT RECORD+єБж 1710    :ГSAVE LIST+∙Р,&:Г,0:Г,)::Г***************************,KD:Г*     READ IN FILE        *,mN:Г***************************,ДXЮ:Е DEVICE│1 з 650,бbЗ "REWIND TAPE TO START",└lЗ "PRESS PLAY ON RECORDER",сvЗ "PRESS <ENTER> WHEN READY",∙АZ$│ Т:Е Z$│"" з 640-КЩ "I",#DEVICE,"NAMES"-$ФNUMBER│1:G│0-;ЮЕ  М(DEVICE) з 750-\иЙ #DEVICE,CUS$   :ГREAD NAME-А▓Й #DEVICE,AMT    :ГREAD BALANCE-и╝NAME$(NUMBER)│CUS$   :ГINSERT NAME -╥╞BALANCE(NUMBER)│AMT  :ГINSERT BALANCE-∙╨PTR(G)│NUMBER        :ГSET POINTER.┌NUMBER│NUMBERл1:G│Gл1.фБе 670.,юЪ #DEVICE.@°NUMBER│NUMBERм1.FР.M:Г.T:Г.u :Г**************************.Ц*:Г*    GET CUSTOMER        *.╖4:Г**************************.╜>Ю.тH╗ Й "ENTER CUSTOMER NAME: ";CUS$/RЙ "ENTER CUSTOMER BALANCE";AMT/\Р/f:Г/p:Г/:z:Г**************************/[Д:Г*    SEARCH FOR INSERT   */|О:Г**************************/ДШP│0/ивTEMP│PTR(P)          :ГGET LINK/╥мЕ P│0 з BACK│P   :ГFIRST CELL IN LIST0╢Е (CUS$ ┤ NAME$(TEMP)) ▒ (PTR(P)│0) з Бж 1010:Р   :ГIF FOUND THEN INSERT0/└BACK│PTR(P)0:╩P│TEMP0E╘Бе 9300L▐:Г0Sш:Г0tЄ:Г**************************0Х№:Г*    INSERT CUSTOMER     *0╢:Г**************************0сЕ COUNT ▓ 0 з 1140   :ГAVAILABLE CELLS0їNUMBER│NUMBERл11>$NAME$(NUMBER)│CUS$:BALANCE(NUMBER)│AMT     :ГINSERT NAME AND BALANCE1n.Е PTR(P)│0 з 1110    :ГLAST ELEMENT IN LIST1а8PTR(NUMBER)│PTR(P)       :ГPOINT TO NEXT CELL1╤BPTR(P)│NUMBER            :ГPOINT TO NEW CELL1╫LР2	VPTR(P)│NUMBER            :ГINSERT END OF LIST2`PTR(NUMBER)│02!jР2StDCELL│AVAIL(COUNT)       :ГGET AVAILABLE CELL2~~NAME$(DCELL)│CUS$        :ГINSERT NAME2мИBALANCE(DCELL)│AMT       :ГINSERT BALANCE2▐ТPTR(DCELL)│TEMP          :ГPOINT TO NEXT CELL3ЬPTR(BACK)│DCELL          :ГPOINT TO NEW CELL3!жCOUNT│COUNTм13'░Р3.║:Г35─:Г3V╬:Г**************************3w╪:Г*  SEARCH FOR DELETE     *3Шт:Г**************************3ЮьЮ3╜Ў╗ Й "NAME TO DELETE? ";DE$3┼P│03┌
Е NUMBER ┤ 1 з Р3√TEMP│PTR(P)       :ГGET LINK4Е P│0 з BACK│P4s(Е (PTR(TEMP)│0) ░ (NAME$(TEMP) ┤▓ DE$) з З "SEARCH FAILURE. "DE$" NOT IN LIST":А CT│1 е 1000:Л:Р4й2Е NAME$(TEMP)│DE$ з Бж 1390:Р       :ГDELETE NAME4╣<BACK│PTR(P)4─FP│TEMP4щPБе 1300       :ГSEARCH NEXT CELL4ЁZ:Г4ўd:Г5n:Г**************************59x:Г*      DELETE CUSTOMER   *5ZВ:Г**************************5СМPTR(BACK)│PTR(TEMP)            :ГPOINT AROUND CELL5╤ЦЕ PTR(TEMP)│0 з NUMBER│NUMBERм1:Р       :ГLAST CELL IN LIST6аCOUNT│COUNTл1:AVAIL(COUNT)│TEMP      :ГSTORE POSITION OF CELL6кР6 ┤:Г6'╛:Г6H╚:Г**************************6i╥:Г*        PRINT LIST      *6К▄:Г**************************6гцЮ:J│0:CT│0:TT│0:ST│06╠ЁЕ HC$│"Y" з З#м2,"NAME","","BALANCE"7·Е HC$│"Y" з З#м2, Л(11);:З#м2,"____",""," _______":З#м27!З "NAME","BALANCE":З71TEMP│PTR(J)7EЕ TEMP│0 з 16307Z"ST│BALANCE(TEMP)7Н,З NAME$(TEMP),"";:З═ "$#####.##";BALANCE(TEMP)7╒6Е HC$│"Y" з З#м2,NAME$(TEMP),"","";:З#м2,═"$#####.##";BALANCE(TEMP)7щ@Е TEMP│0 з 16507■JCT│CTл1:TT│TTлST8'TJ│TEMP:Бе 1550     :ГPRINT NEXT CELL8k^З:З "TOTAL CUSTOMERS:";CT:З"TOTAL BALANCE:";:З ═"$######.##";TT8╚hЕ HC$│"Y" з З#м2:З#м2,"TOTAL CUSTOMERS:";CT:З#м2,"TOTAL BALANCE:";:З#м2,═"$######.##";TT8ьrЗ:З "PRESS ANY KEY TO CONTINUE"9
|Е HC$│"Y" з А T│1 е 5:З#м2:Л9&ЖK$│ Т:Е K$│"" з 16709,РР93Ъ:Г9:д:Г9[о:Г**************************9|╕:Г*       SAVE LIST        *9Э┬:Г**************************9│╠Е DEVICE│1 з 17809╙╓Ю:З "PRESS PLAY AND RECORD"9ЄрЗ "HIT ANY KEY WHEN READY":ъG$│ Т:Е G$│"" з 1770:)ЇJ│0:Щ "O",#DEVICE,"NAMES":9■TEMP│PTR(J):MЕ TEMP│0 з 1840:gЗ #DEVICE,NAME$(TEMP):ГЗ #DEVICE,BALANCE(TEMP):Ц&J│TEMP:Бе 1790:д0Ъ #DEVICE:к:Р:╩DЙ " CONFIRM EXIT (Y/N)";EX$:·NЕ EX$│"Y" з 1880 :Д Е EX$│"N" з 180 :Д 1860;XК DATA TO ANY OF THENON-WOOD HEAT SOURCES IN MY DATA";СЗ"I WILL LIST ALL OF MY NON-WOOD  DATA AND YOU CHOOSE THE ONE YOU WANT TO KNOW ABOUT.<&З"THEN I WILL ASK WHICH WOOD YOU  WANT TO COMPARE AND WHEN YOU    ENTER A WOOD FROM MY DATA TABLE I WILL                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  ш&!Ю:Х200,&H7F00:ЧM"RESET":Бе2&[
Т&H7F00,LNо256:Т&H7F01,LNм256н Б(LNо256):Т&H7F02,SC:Р&ёLN│4:SC│1:Бж1:Ю:З"TURN OFF TAPE RECORDER":З"PUSH THE RESET BUTTON AT ANY    TIME DURING THIS PROGRAM AND    WATCH WHAT HAPPENS.":З:З"HIT ANY KEY"&■Е Т│""з3'╚4,1:╝1:┐1,1:╚3'4┴2,1:╗(120,90)м(130,100),╜,BF'FLN│7:SC│0:Бж1'К╚4,1:Ю5:З@168,"IF RED  PUSH reset";:З@200,"IF BLUE PUSH ENTER";'зАT│1е160:Л:Е Т│ Л(13)з10'╤	┐1,1:АT│1е160:Л:┐0,0:Е Т│ Л(13)з10:Д8'ф
LN│11:SC│1:Бж1'∙╚4,1:╝:┐1,1:╚3,1(*┬(128,96),96,4,.8:┬(90,70),9,4:┬(166,70),9,4(W
├(128,96),2,4:├(90,70),4,4:├(166,70),4,4(а┬(128,110),70,3,.4,.05,.45:┬(128,145),10,3,1.5,.9,.65:├(128,145),3,3(╕╚4,1:LN│16:SC│1:Бж1(╞Е Т│""з16(фЮ:З"PUSH THE RESET BUTTONе5                             H│RHл1:ЛK:Бе24000
┼(20,62мRH)м(23,97мRH),R1,╜:Р0G
WP│WPл1:ЕWP│5зWP│10~
"АI│0е2:ЕOC(Iл1)│0зБж350:Л:ДИWP Бж310,320,330,340:Л0╩
,ЕOC(Iл1)│0з350:ДЕOC(Iл2)│1зИWP Бе310,320,330,340:ДИWP Бе310,340,330,3200°
6┼(S5(I),S6(I))м(S5(I)л16,S6(I)л14),S1,╜:Р1%
@┼(S5(I),S6(I))м(S5(I)л16,S6(I)л14,S4,╜:Р1S
J┼(S5(I),S6(I))м(S5(I)л16,S6(I)л14),S2,╜:Р1Б
T┼(S5(I),S6(I))м(S5(I)л16,S6(I)л14),S3,╜:Р1п
^┼(S5(I),S6(I))м(S5(I)л16,S6(I)л14),S0,╜:Р2
rЕOC(7)│0з380:Д╞"C1BM86,24R14U3D6BM90,24C4R14U3D6":A│ а(86,26):┴A:╞"BM86,0D4R2U4BD12D12L2U12":┴4:Р2`
|╞"C1BM90,24R14U3D6BM86,24C4R14U3D6":╞"BM86,0C1D4R2U4BD12D11L2U11":┴4:Р2╜
РЕOC(8)│0з410:Д╞"C1BM62,24L14U3D6C4BM58,24L14U3D6":┴C2:╞"BM60,24D26R2NU26R10U1L10U1R10":Р3
Ъ╞"C1BM58,24L14U3D6C4BM62,24L14U3D6":A│ а(74,48):┴A:╞"BM60,25D25R2NU25R10U1L10U1R10C4":Р3╠
оPW(1)│ Ш((PWм100)о17):ЕPW┤101з460:ДЕPW▓400з470:ДЕPW(1)│PW(2) зР:ДPW(2)│PW(1):PW(3)│0:┴C2:Бж450:╗(74,68мPW(1))м(102,68мPW(1)),╜:├(86,68мPW(1)л1),C1,C2:├(86,68мPW(1)м1),4,C2:┴44
╕╗(74,68мPW(1))м(102,68мPW(1)),╜:Бж450:┴C1:╗(84,80)м(90,80),╜:┴4:Бж370:Бе4004]
┬╞"BM84,80L4H8U25E8R4U15R6D15R4F8D25G8L10BM80,70R14D5L14U5":РW(2)│PW(1):PW(3)│0:┴C2:Бж450:╗(74,68мPW(1))м(102,68мPW(1)),╜:├(86,68мPW(1)л1),C1,C2:├(86,68мPW(1)м1),4,C2:┴44
╕╗(74,68мPW(1))м(102,68мPW(1)),╜:Бж450:┴C1:╗(84                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ,Y)м(G,Yл6),╜/$║╗(X,Y)м(Xм6,Gм46),╜/>─╗(X,Y)м(Xл6,Gм46),╜:╝/G╬ЛG:Р/YтАK│Y е Yл20й2/qь┬(X,K),2:┬(X,K),2,0/~ЎЛK:Бж600/ЧАK│1е5й2:┬(X,Yл19),K/в
ЛK:╝:РX,Y),P,0.╢~ЛP:Р.╚ТАG│Xм6е Xл6й4           :ГINSERT E                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 u&
Х200:└1:NN│13&6Ю:З"TRUE-FALSE TEST GENERATOR"&FЙ"TITLE";T$&k(М Q$(NN),A$(NN),S(NN),JW(NN):N│1&}2Н Q$(N),A$(N)&в<Е Q$(N)│"END" з 68 :Д N│Nл1:Бе50&мDN│Nм1'
FЗ:З"THERE ARE";N;"QUESTIONS.":З"HOW MANY ARE TO BE ON THE TEST":Й NQ:Е NQ▓N з 70'VPЗ:З"PRINTER SHOULD BE CONNECTED,":З"AND TURNED ON BEFORE HITTING":З"    (ENTER)"'_ZЙ IO'ЖdЗ#м2, б(40м З(T$)о2,32);T$:З#м2,""'ХnА A│1 е NQ'╝xR│ Д(N):Е JW(R)│1 з 120 :Д JW(R)│1'╟ВS(A)│R'эМЗ#м2,"( ) "; И(A);") ";:TL$│Q$(R)(ЦL│ З(TL$):Е L┤73 з З#м2,TL$:Бе180(FаА G│72 е 30 йм1:Е  Р(TL$,G,1)│" " з 170 :Д Л G(АкЗ#м2, О(TL$,Gм1):TL$│ П(TL$,LмG):З#м2, б(8,32);:Бе150(И┤Л A(Ю╛АA│1е10:З#м2,"":Л(┼╚З#м2, б(40м З(T$)о2,32);T$:З#м2,""(╥╥АA│1е NQ)▄З#м2,"(";A$(S(A));") "; И(A);") ";:TL$│Q$(S(A))),цL│ З(TL$):Е L┤73 з З#м2,TL$:Бе260)_ЁА G│72 е 30 йм1:Е  Р(TL$,G,1)│" " з 250 :Д Л G)Щ·З#м2, О(TL$,Gм1):TL$│ П(TL$,LмG):З#м2, б(8,32);:Бе230)а
ЛA)ж
К)╚ЄЖ THE SYMBOL FOR GOLD IS G.,F)∙№Ж WATER HAS THREE ELEMENTS IN ITS FORMULA.,F*5Ж KINETIC ENERGY IS ENERGY DUE TO AN OBJECT'S MOTION.,T*╦Ж TWO ELEMENTS COMBINE TO FORM A COMPOUND. THE SYMBOL FOR THE ELEMENT WHICH IS OXIDIZED IS ALWAYS PLACED ON THE LEFT IN THE COMPOUND'S FORMULA.,T*√Ж THE OXIDATION NUMBER FOR SULFATE IS -2.,T+2$Ж THERE ARE TWO OXYGEN ATOMS IN A HYDROXIDE ION.,F+U.Ж OZONE IS TRIATOMIC OXYGEN.,T+Г8Ж PH PAPER IS BLUE IN A BASIC SOLUTION.,T+пBЖ A SOLUTION WITH A PH OF 3 IS BASIC.,F+яLЖ FERROUS IS THE IRON ION WITH AN OXIDATION NUMBER OF +2.,T,IVЖ THE NONMETALS ARE LOCATED ON THE LEFT SIDE OF THE PERIODIC TABLE OF THE ELEMENTS.,F,h`Ж SODIUM'S SYMBOL IS Na.,T,t'Ж END,E2) зР:ДPW(2)│PW(1):PW(3)│0:┴C2:Бж450:╗(74,68мPW(1))м(102,68мPW(1)),╜:├(86,68мPW(1)л1),C1,C2:├(86,68мPW(1)м1),4,C2:┴44
╕╗(74,68мPW(1))м