ЖЖ└╖ "╖ ╟╖ ╔╖ ╦╖ ┼╠╖¤¤¤
ОэБМ&∙Оо┐ОМН;Ж╖О ┐НЖ╖ОрН
Ж╖ОаН~е┐ОЬНz'╛╞: ъ9╛жаБ'Б
'Б %зА ю9Й: шА*к*к

vUA
|'q╜б┴'ЎБ	'Б'(Б 'AБX'└ т╛М┐'┌ОФНа|╛ОМНФ ╞╛Мб'╛ОФНДz╛ОМ╜q й№Г Г%Э
цД.VЖАзДJ&¤зД ф╛6Н$╛╞└:6Н№├
А
6Н|'~е|~еЖ`╖
жАцДзАz
жДчАz
&Ё7ЖзД9|
Г@
ОФ╜t╢
Б'■В~е
q~а' ";:З@290,"7. SPELL BOOK";:З@322,"8. THIEF ABILITIES";:З@354,"9. SAVING THROWS";:З@386,"0. COMBAT INFORMATION";:З                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                , A╬D│97:А S│1 е 12A6╪З@Dм1,D2$(S):D│Dл32:Л S:РA<тРAMьА X│1 е 10:ЮA`ЎА T│1 е 50:Л TAВЗ@233,"ILLEGAL ENTRY":а 100,1AЫ
А Y│1 е 50:Л Y,X:Ю:РAбРA├З:З:Зд6)"1.SUMMARIZE CHARGES"Aт(З:Зд6)"2.SUMMARIZE USEAGE"B
2З:Зд6)"3.YEAR-TO-DATE SU                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                З#м2,"NO"; :ДЗ#м2,"YES";8]МЗ#м2,"    6) LOW POWER (QRP)-";:ЕCAT(6)│0 зЗ#м2,"NO" :ДЗ#м2,"YES"8аОЗ#м2,"  7) FIELD DAY SITE-";:ЕCAT(7)│0 зЗ#м2,"NO" :ДЗ3м2,"YES"8╥РЗ#м2:З#м2,"TOTAL CONTACTS:";Iм1:LN│LNл5:Бж1829PТЗ#м2,"COUNTRIES WRKD:";CT;д21)"STATES WRKD:";STм1;д37)"PREFIXES:";PFм1;д49)"ZONES:";ZOм1;д59)"MEMBERS WRKD:";MBм1:LN│LNл19xФЗ#м2:З#м2,"TOTAL SCORE:";TP:LN│LNл2:%ЦЗ#м2:З#м2,; Л(31)"LOG:-W4CNZ"; Л(30);д50)"DATE:-";D$:З#м2:З#м2,д5)"CALL";д15)"FREQ";д22)"TIME";д30)"OUT NR.";д40)"IN NR.";д51)"MY RST";д59)"RST";д66)"MEMBR NR.":LN│LNл4:;ШАG│1 еI:ЕG│I з158:уЪЗ#м2:З#м2,д4)EN$(1,G);д15)EN$(2,G);д22)EN$(3,G);д30);:З#м2,═"**####.";G;:З#м2,д41)EN$(4,G);д52)EN$(5,G);д59)EN$(6,G);д67)EN$(11,G):LN│LNл2:Е LN│▓60 з156 :ДЛG:Бе158;
ЬАSK│1 е6:З#м2:ЛSK:LN│0:ЛG;aЮЗ#м2:З#м2:З#м2,д40)"OPERATOR(s):------------------------":LN│LNл3:SK│66мLN:АLS│1 еSK:З#м2:Л;xаа180,3:а150,3:Бе22;ЙвВ REVIEW LOG;ндЮ:NB│1:З@1,"LOG-":З@8,"DATE:"D$<JжАK│1 еI:З@64,"CALL:";EN$(1,K):ЕEN$(1,K)│"AA" з174 :ДЗ@76,"FREQ:";EN$(2,K):З@85,"TIME:";EN$(3,K):З@96,"NMBR (OUT):";:З═"**####";NB:З@114,"(IN):";EN$(4,K)<риЗ@128,"MY RST:";EN$(5,K):З@147,"RST:";EN$(6,K):З@160,"COUNTRY:";EN$(7,K):З@192,"STATE:";EN$(8,K):З@224,"PREFIX:";EN$(9,K):З@242,"ZONE:";EN$(10,K)=8кЗ@256,"MBR NMBR:";EN$(11,K):З@273,"NOTES:";EN$(12,K):З@B,B$:З@Q,Q$;:Бж16:NB│NBл1:ЛK=UмЕA$│"#" ▒ A$┤▓ Л(13) з22=АоЮ:З@170,"END OF FILE":АTM│1е999:Л:Бе22=У░В EXIT ROUTINE=┤▓Ю:З@174,"END":АTM│1еTD:Л:Ю:К=╧┤В COMPUTATION ROUTINES=х╢Т65495,0:АCU│1 еI>╕ЕCU▓1 зАCD│1 еCUм1:ЕEN$(7,CD)│EN$(7,CU)з188 :ДЛCD>O║ЕEN$(1,CU)│"AA" ▒EN$(7,CU)│"NA" з190 :Д CT│CTл1>W╝ЛCU>d╛АSU│1 еI>Ь└Е SU▓1 зАSD│1 еSUм1:ЕEN$(8,SD)│EN$(8,SU) з196 :ДЛSD>┐┬ЕEN$(8,SU)│"NA" з196 :ДST│STл1>╟─ЛSU>╘╞АPU│1 еI?╚Е PU▓1 зАPD│1 еPUм1:ЕEN$(9,PD)│EN$(9,PU) з204 :ДЛPD?/╩ЕEN$(9,PU)│"NA" з204 :ДPF│PFл1?7╠ЛPU?D╬АZU│1 еI?~╨Е ZU▓1 зАZD│1 еZUм1:ЕEN$(10,ZD)│EN$(10,ZU) з212 :ДЛZD?в╥ЕEN$(10,ZU)│"NA" з214 :ДZO│ZOл1?к╘ЛZU?╖╓АMU│1 еI?█╪ЕEN$(11,MU)│"NA" з218 :ДMB│MBл1?у┌ЛMU@▄ЕDA│1 зDX│(CTм1) :ДЕDM│1 зDX│(DXнCTм1)@8▐ЕZA│1 зZP│ZOм1 :ДЕ ZM│1 зZP│ZPн(ZOм1)@ZрЕSA│1 зSP│STм1 :ДSP│SPн(STм1)@ГтЕCA│1 зCP│PFм1 :ДЕSM│1 зCP│CPн(PFм1)@мфЕMA│1 зMP│MBм1 :ДЕMM│1 зMP│MPн(MBм1)@┘цTP│QPлDXлSPлCPлZPлMPлMOлOFлPP:Т65494,0:Р@шшВ PCLEARER@Їъ└1:Бе12<":З@3526АR│1051 е1055:SS│ Ж(R):З@90лJ, Л(SS);:ET$(J)│ Л(SS):J│Jл1:ЛR:EN$(3,I)│ET$(0)лET$(1)лET$(2)лET$(3)лET$(4):J│008:З@96,"nmbr (out):";:З═"**####.";NN:З@114,"(in):-------":ТV,119:╗ЙEN$(4,I):З@128,"my rst:------":З@147,"RST:------":ТV,135:╗ЙEN$(5,I):З@147,"rst:------":ТV,1510╤:╗ЙEN$(6,I):З@160,"country:-----------------------":ТV,168:╗ЙEN$(7,I):З@192,"state:-------------------------":ТV,198:╗ЙEN$(8,I):З@224,"prefix:-----":З@242,"ZONE:---":ТU,4:ТV,231:╗ЙEN$(9,I)1u<З@242,"zone:---":ТU,4:ТV,247:╗ЙEN$(10,I):З@256,"mbr nmbr:-------":З@273,"NOTES:->":З@351,"<":ТU,5:ТV,9:╗ЙEN$(11,I):З@273,"notes:->":З@351,"<":ТV,23:╗ЙEN$(12,I)1│>З@417,"CALL'AA' ENDS ENTRY MODE":Бж82:З@B,B$:З@Q,Q$;:Бж161├@ЕA$│"#" з221╪BNN│NNл1:N│Nл1:ЛI1щDВ DUPE CHECK2FЕI▓1 з72 :ДЕI│1 з74 :ДР2HТ65495,0:АDU│1 еIм12^JЕEN$(1,DU)│EN$(1,I) ░ EN$(2,DU)│EN$(2,I) з76 :ДЕI│1 зР :ДЛDU2rLТ65494,0:DU│0:Р2кNТ65494,0:а50,5:З@69,"dupe!!":АTM│1 е500:Л:DU│0:Бе462╣PВ SAVE LOG2┴R┌ И2╘TFS$│"L"л И(NN)2эVЩ"O",#1,FS$л"/LOG:1"37XЕI│1 з┘#1,CN$:АP│1 е7:┘#1,CAT(P):ЛP:┘#1,QP,DX,ZP,MO,OP,PP,CP,SP,MP,D$3ОZАZ│1 е3:┘#1,EN$(Z,I):ЕEN$(1,I)│"AA" зЪ#1:Бе22 :ДЛZ:┘#1,NN:АZ│4 е12:┘#1,EN$(Z,I):ЛZ3Ш\Ъ#1:Р3з^В LOAD LOG3ў`Ю:З@103,"DISK DRIVE READY?":З@226,"PRESS <ENTER> TO LOAD LOGS":З@B,B$;:Бж164bЕA$┤▓ Л(13) з224dNR│1:I│14+fFS$│"L"л И(NR)4ehЗ@356,"LOADING LOG:-";FS$л"/LOG":Щ"I",#1,FS$л"/LOG:1"4xjЕ М(1)│м1 з1144┬lЕI│1 зЙ#1,CN$:АP│1 е7:Й#1,CAT(P):ЛP:Й#1,QP,DX,ZP,MO,OP,PP,CP,SP,MP,D$5nАZ│1 е3:Й#1,EN$(Z,I):ЕEN$(1,I)│"AA" з114 :ДЛZ:Й#1,NN:АZ│4 е12:Й#1,EN$(Z,I):ЛZ50pЪ#1:I│Iл1:NR│NRл1:Бе1025qrЪ#1::Ю:а180,1:З@230,"DISK LOAD COMPLETE.":АTM│1 еTD:ЛTM:Бе225БtВ PRINT LOG5╠vЮ:З@105,"PRINTER READY?";:З@B,B$:З@Q,Q$;:Бж16:ЕA$│"#" ▒ A$┤▓ Л(13) з226xЮ:LN│0:З@171,"PRINTING":З#м2:З#м2, Л(31)"CONTEST:-"; Л(30)67zX│1:Y│ З(CN$):LN│LNл2:З#м2, Р(CN$,X,1);6M|З#м2, Р(CN$,X,1);6З~Е  Ъ(м2)▓70 зЕ Р(CN$,X,1)│ Л(32) зЗ#м2, Л(13):LN│LNл16гАЕX│Y з130 :ДX│Xл1:Бе1246╗ВЗ#м2, Л(13):LN│LNл17
ДЗ#м2,"STATION INFO: 1) CW-";:Е CAT(1)│0 зЗ#м2,"NO"; :ДЗ#м2,"YES";7?ЖЗ#м2,"    2) PHONE-";:ЕCAT(2)│0 зЗ#м2,"NO"; :ДЗ#м2,"YES";7╦ИЗ#м2,"     3) SINGLE OPERATOR-";:ЕCAT(3)│0 зЗ#м2,"NO"; :ДЗ#м2,"YES":З#м2,"  4) MULTIPLE OPERATOR-";:ЕCAT(4)│0 зЗ#м2,"NO"; :ДЗ#м2,"YES";8КЗ#м2,д15)"    5) EMERGENCY POWER-";:ЕCAT(5)│0 з &"
В***************************&AВ UNIVERSAL CONTEST LOGGER&`В BY:BURT WITHAM JR. W4CNZ&|В    3501 SEA GULL ROAD&ЬВ VIRGINIA BEACH, VA. 23452&╡В     (804)-340-2628&╤В   ALL RIGHTS RESERVED&юВ  VERSION  1.0  1/26/83'	В***************************'
Х2000:Бе234'ЩY│233:Ю2:АX│1024 е1055:ТX,Y:ТXл480,Y:Л:АX│1024 е1535й32:ТX,Y:ТXм1,Y:Л:З@163," UNIVERSAL CONTEST LOGGER ";:АTM│1 еTD:Л'ЁМD$(3),EN$(12,200),ET$(5):J│0:N│1:U│136:V│137:CT│0:SA│0:PF│0:ZO│0:MB│0:TD│999:Бе18(	A$│ Т:ЕA$│"" з16 :ДР(ZQ│484:Q$│"PRESS ANY KEY TO CONTINUE":B│449:B$│" PRESS '#' TO RETURN TO MENU"(jВ MAIN MENU)Ю:З@12,"M E N U ":З@65,"1) ENTER CONTEST DATA":З" 2) LOG QSO DATA":З" 3) LOAD LOG":З" 4) PRINT LOG":З" 5) REVIEW LOG":З" 6) EXIT PROGRAM":З:З" SELECT (1 - 6)":ЙM)HЕM┤1 ▒ M▓7 за1,5:Бе22 :Д И M Бе28,46,96,118,164,178)[В CONTEST DATA)ЙЮ:З@33,;:╗Й"CONTEST NAME AND OBJECT:";CN$*З@193,"CATEGORIES: 1)  CW   2)  PHONE":З" 3)  SINGLE OPER.":З" 4)  MULTIPLE OPER.":З" 5)  EMERG. PWR.":З" 6)  LOW PWR.":З" 7)  FIELD DAY SITE"*Ю З@448,;:Й"IF ITEM NOT APPLICABLE ENTER '0'     OTHERWISE ENTER '1'.        ";CAT(1),CAT(2),CAT(3),CAT(4),CAT(5),CAT(6),CAT(7)+\"Ю:З@33,"MULTIPLIER POINTS:":З@97,"(ENTER 0 IF NOT USED- NR.OF PTS IF USED -ENTER 1 UNDER EITHER   ADD OR MULT.)":З@206,"(USED)  (+)  (X)":З@224,;:Й"QSO PTS:      ";QP:З@245,"----------",$Й"DX PTS:       ";DX:З@277,;:ЙDA:З@282,;:ЙDM:Й"ZONE PTS:     ";ZP:З@309,;:ЙZA:З@314,;:ЙZM:Й"MODE PTS:     ";MO:З@341,;:ЙMA:З@346,;:ЙMM:Й"NR.OP. PTS:   ";OP:З@373,;:ЙOA:З@378,;:ЙOM,б&Й"PREFIX PTS:   ";CP:З@405,;:ЙCA:З@410,;:ЙCM:Й"STATE PTS:    ";SP:З@437,;:ЙSA:З@442,;:ЙSM:Й"MEMBER PTS:   ";MP:З@469,;:ЙMA:З@474,;:ЙMM:Ю,ы(З@33,"FORMAT FOR CONTEST NUMBERS:'XXXXXX'";:NN│NNл000001.:АTM│1 еTD:Л-S*Ю:З@129,;:╗Й"ENTER CORRECT DATE TO START.    USE FORMAT: XX/XX/XX            ";D$:З@Q,Q$;:Бж16:Бе22-b,В QSO DATA..Ю:З@66,"HAVE YOU STARTED A M/L TIME   ROUTINE?":АTM│1 еTD:Л:З@129,"WHEN ENTERING LOG DATA, IF AN  ITEM DOES NOT PERTAIN TO THIS   CONTEST ENTER 'NA'.":З@B,B$:З@Q,Q$;:Бж16:ЕA$│"#" з22.+0АI│1 е300.В2Ю:З@1,"LOG-":З@8,"DATE:";D$:З@64,"call:-------":З@76,"FREQ:----":З@85,"TIME:-----".№4ТU,4:ТV,69:╗ЙEN$(1,I):ЕEN$(1,I)│"AA" з62 :ДЗ@76,"freq:----":З@85,"TIME:-----":ТV,81:╗ЙEN$(2,I):Бж70:З@85,"time:-----"/mTURE TO    TAPE. WHEN YOU PRESS THE 'S'    KEY, HOLD ON IT UNTIL YOU SEE   CHARACTERS BEING GENERATED      AT THE TOP LEFT OF THE SCREEN."0\З:З" THE PROGRAM USES 64 BY 32       LOW RESOLUTION GRAPHICS,        ALTHOUGH THE COLOURS CAN        BE QUITE DAZZLING AND REAL-     ISTIC."0<fЗ" 'R' KEY -- RELOCATES DOT."0apЗ"   ++PRESS ANY KEY TO BEGIN++"0pzЕ Т│""з8900yДБе306)м(59,86),╜:╗(59,86)м(69,76),╜:╗(14,85)м(44,85),╜:╗(74,85)м(104,85),╜:╗(14,87)м(104,87),╜:╗(58,71)м(58,54),╜:╗(60,71)м(60,54),╜:╗(                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                
Ъ0ОЖ`╖1ЧзАМ &∙╜й(ОЖпзН	╢1ЧзН ё4О  ┐1Ш5НJ4╛1Ш0&ю59╜б┴& ц54PН_Н╞4_DYXН
5Z&єН5 ┐╞ў  НО╛0&№9М,╞9Ў "W$
94P╢ "G%·Н'╢ "G%ЄO4╞Н╢ "Gf`Z&ЇН
5D5НН├9ННО╢0&№9Д4Д`'5Б@,К@з0
 Q5Б
'(Б
'=Б'hБ&~йHБ&╞`ў1Ч╜й(О9Б'\Б'k9Ў1Чч0И ┐1ШМ&Н-№1Ш─:9Ў1ЧчМ&цў1Ч94┐1Ш№1Ш─&5 ъ50 ▀╞`ў1Ч╜1А9М&
9Ў1Чч0 ╠Ў1ЧчМ &╜1А00
 ╣Ў1Чч0ИрМ- к0И  е┐1ШОжИ зАМ&Ў╛1Ш0Ир9
 0-;L4;B;O4;L4;C;L8;D;L16;F;L4;F;L16;G;L16;F;L8;D;L4;C"(PЗ@288,"DO YOU NEED INSTRUCTIONS(Y/                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
z&I
Ю:З"    JOYSTICK/KEYBOARD DRAW":З:Й"  DO YOU NEED INSTRUCTIONS";DY$&[Е DY$│"Y"з560&mX│31:Y│15:C│6&{(Т 65495,0&Г2J│1&К<Ю0&бFЕ Ж(341)│247зY│Yм1&╕PЕ Ж(342)│247зY│Yл1&╧ZЕ Ж(343)│247зX│Xм1&цdЕ Ж(344)│247зX│Xл1&ўnЕ Т│"S"з 470'xЕX┤0зX│0'ВЕX▓63зX│63' МЕY┤2зY│2'/ЦЕY▓31зY│31'DаЕ Ж(339)│239зC│1'YкЕ Ж(340)│239зC│2'n┤Е Ж(341)│239зC│3'Г╛Е Ж(342)│239зC│4'Ш╚Е Ж(343)│239зC│5'н╥Е Ж(344)│239зC│6'┬▄Е Ж(345)│239зC│7'╫цЕ Ж(338)│223зC│8'ьЁЕ Ж(338)│239зC│0(·Е Ж(340)│253зJK│1(
Е Т│"L"з520(2
Е Ж(339)│191▒ Ж(341)│254зЮ0(D
ЕC│0зЭ(A1,S1)(Q
"Ь(X,Y,C)(_
,A1│X:S1│Y(З
6З@0,"HORIZONTAL:";X," VERTICAL :";Y(Ь
@Е Ж(340)│251з420(к
JЕJK│1з350(│
TБе70(╟
^H│ Н(0):V│ Н(1)(╫
hЕH┤20зX│Xм1(ч
rЕH▓40зX│Xл1(ў
|ЕV┤20зY│Yм1)
ЖЕV▓40зY│Yл1)
РЕ Ж(341)│253з JK│9)(
ЪБе110)S
дЗ@0,"                               ";)p
оЗ@0,"RELOCATION OF DOT";){
╕Э(X,Y))Е
┬Й X,Y)О
╠Бе70)Ы
╓Т65494,0)в
рЯИ)═
ъАDL│33е255:З@0, Л(DL);:АD2│0е5:ЛD2:ЛDL)ю
ЇШM"DRAWINGS",1056,1535,40999)№
■а1,1:Бе70*	Т65494,0*З@0,"loading";*-ЧM"DRAWINGS"*;&а5,1:Бе70*A0Ю*c:З"    JOYSTICK/KEYBOARD DRAW"*ВDЗ"       BY AARON FRANSEN"*жNЗ:З" THIS IS A DRAWING PROGRAM"*╩XЗ" WHICH UTILIZES THE KEYBOARD"*ьbЗ" OR THE JOYSTICK TO MOVE A"+lЗ" COLORED DOT AROUND THE "+vЗ" SCREEN."+DАЗ:З" \\PRESS ANY KEY TO CONTINUE//"+TКЕ  Т│""з650+ZФЮ+qЮЗ" HERE IS A LIST"+ЛиЗ" OF THE COMMANDS :"+ъ▓З:З" ARROW KEYS -- MOVE DOT IN                     DIRECTION OF                    ARROW.",)╝З" 'S' KEY    -- SAVES DRAWING                   TO TAPE.",j╞З" 'L' KEY    -- LOADS DRAWING                   FROM TAPE.",╧╨З" NO.0 TO 8  -- CHANGES COLOUR                  OF DOT.'0'IS                    'BLACKOUT'DOT.",ў┌З:З" \\PRESS ANY KEY TO CONTINUE//"-фЕ Т│""з740-юЮ-r°З:З" 'J' KEY    -- CHANGES CONTROL                 OF THE DOT TO                   THE JOYSTICK."-╪З" 'K' KEY    -- CHANGES CONTROL                 OF THE DOT TO                   THE ARROW KEYS."-¤З" clear KEY  -- CLEARS SCREEN."."З" FIRE BUTTON-- CLEARS SCREEN.". З:З" THE HORIZONTAL AND VERTICAL     LOCATIONS ARE PRINTED AT THE    TOP OF THE SCREEN.".з*З:З" \\PRESS ANY KEY TO CONTINUE//".╢4Е Т│""з820.╝>Ю.┬HЗ/ЙRЗ" YOU WILL REQUIRE A BLANK TAPE   TO SAVE THE DRAWN PIC ╓&
В"ELEMENTS"&B:ГSTEVE BLYN -COMPUTER ISLAND, NEW YORK-1983&bCT│0 :Г***CT IS THE COUNTER&Н(W│0  :Г***W IS THE # OF WRONG EXAMPLES&є2L│25 :Г***L IS THE NUMBER OF DATA PAIRS. IF YOU ADD MORE DATA,MERELY ADJUST THIS NUMBER TO MATCH.'<МA$(L),B$(L)'"FА T│1е L:Н A$(T),B$(T):ЛT'ZPЮ:АT│1024е1119:ТT,207:Л:З@6,"elements and symbols";'fZCT│CTл1'xdЕ CT▓10 з 300'ЫnЗ@67,"element";:З@83,"symbol";'зxR│ Д(L)'╜ВA$│A$(R):B$│B$(R)'▀МA$(R)│A$(L):B$(R)│B$(L):L│Lм1'ьЦЗ@128,A$' аЗ@144,"";:Й C$(кЕ C$┤▓B$ з 210(5┤Е C$│B$ з АT│220е255й5:аT,1:ЛT(t╛З@320, Л(255); Л(255);" YAY...PRESS ENTER TO GO ON";:Й EN$(А╚Ю:Бе 80(д╥З@320,"SORRY,THE SYMBOL IS ";B$(┤▄а20,6:а10,6(╪цЗ@386,"PRESS <ENTER> TO GO ON";(¤ЁW│Wл1::Г***# OF WRONG RESPONSES")·Бж 270)
Й ENTER$:Ю:Бе 80)?
:ГREMEMBER WRONG ANSWERS HERE)U
X$(W)│A$:Y$(W)│B$)[
"Р)Д
,Ю:З" HERE ARE YOUR REVIEW EXAMPLES ")ж
6А T│1 е 32:З Л(204);:а230,1:Л)Ё
@Е W│0 з А T│50е250й10:аT,1:Л:З" HURRAY, YOU MADE NO MISTAKES.":Бе 370*D
JАT│1еW:ЗT;X$(T),Y$(T):Л ::Г***THIS IS WHERE THE WRONG EXAMPLES ARE PRINTED OUT.*к
TЖ BROMINE,BR,CALCIUM,CA,CARBON,C,COPPER,CU,FLOURINE,F,GOLD,AU,HYDROGEN,H,IODINE,I,IRON,FE,LEAD,PB+O
^Ж MAGNESIUM,MG,MANGANESE,MN,MERCURY,HG,NICKEL,NI,NITROGEN,N,OXYGEN,O,PHOSPHORUS,P,PLATINUM,PT,POTASSIUM,K,SILVER,AG,SODIUM,NA,SULPHUR,S,TIN,SN,URANIUM,U,ZINC,ZN+w
hЗ:З"YOUR SCORE WAS ";10н(10мW);"%."+Ю
rЗ"WANT TO PLAY AGAIN (y/n)";:Й EN$+╜
|Е  О(EN$,1)│"Y" з О :Д 390+╒
ЖЮ:З" BYE FOR NOW":К(144)л Л(156);+°ЬА R│174 е 186,
жА                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 M84,116;U20R12F4D4G4L4F8L4H8D8L4"/9Й╞"BM88,104;U4R8D4L8"/SО╞"BM106,116;U3R3D3L3"/БШ╞"BM120,116;U4R4U12L4U4R12D4L4D12R4D4L12"/Ыв╞"BM138,116;U3R3D3L3"/┐м╞"BM152,116;U20R12F4D4G4L8D8L3"/┘╢╞"BM156,104;U4R8D4L8"/ф└Бж2050/ь┼╝:Ю/Ў╩Бе1870
шБе10000!▄Й"ENTER YOUR COMBINATION";X05ЁЕX│ Д(10) з 1800;·Р0M╨АT│1е500:ЛT:Р0`АT│1е1000:ЛT:Р";:Зд11)"";W10П
РЗ@352,"F-RATIO";:Зд11)"";F0░
ХЗ@384,"PROB(F)";:Зд11)"";1мX1
ЪЗ"*DO YOU WISH TO RUN THE PROGRAM AGAIN: Y OR N?*": Й L$: Е L$│"Y" з 415 :                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 &&
:ГPRINT DIRECTORY PROGRAM&::Г********************&U:Г*        BY        *&p(:Г*                  *&Л2:Г*   MICHAEL PLOG   *&ж<:Г*                  *&┴F:Г********************&╦d└1:╚0&╓nХ 2000&эxМ P$(2,6),Q$(68,3)'ВU$│"%       % % %   % %   %%  % %  % %"'МЮ':ЦЙ"NAME OF DISKETTE";X$'FаЗ#м2,X$'TкЗ#м2:З#м2'y┤З#м2,д27)"GRANULE";д66)"GRANULE"'╨╛З#м2,"Name      Ext  Type  ASC   ST  NUM";д39)"Name      Ext  Type  ASC   ST  NUM"'ё╚З#м2, б(34,45);д39) б(34,45)'·╥З#м2(▄▀0,17,2,F$,X$(
,А Z│3 е 11(-
6▀0,17,Z,A$,B$(>
@X$│A$:Бж 400(O
JX$│B$:Бж 400(W
TЛ Z(b
^Бе 700(w
РА J│1 е 128 й 64(Е
ЪА R│1 е 2(Ф
дY│(Rм1)н32(н
оP$(R,1)│ Р(X$,JлY,8)(╧
╕Е  О(P$(R,1),1)│ Л(255) з 700)
┬Е  О(P$(R,1),1) │  Л(0) з P$(R,1) │  Л(35) л  П(P$(R,1),7))+
╠P$(R,2) │  Р(X$,JлYл8,3))O
╓P$(R,3) │  И( К( Р(X$,JлYл11))))k
рX │  К( Р(X$,JлYл12,1)))У
ъЕ X┤▓0 з P$(R,4)│"A" :Д P$(R,4)│"B")п
ЇX │  К( Р(X$,JлYл13,1)))┴
■P$(R,5)│ И(X))╠Бж 600*З#м2,═U$; P$(R,1); P$(R,2); P$(R,3); P$(R,4); P$(R,5); P$(R,6); *0Е R│1 з З#м2,д39); :Д З#м2*8&Л R*@0Л J*F:Р*NXG│0*XbG│Gл1*qlB │  К( Р(F$,Xл1,1))*ЙvЕ B┤70 з X│B:Бе 610*ЫАP$(R,6)│ И(G)*бКР*п╝З#м2:З#м2*═╞З#м2, г(0)"FREE GRANULES"*█╨З#м2:З#м2*№┌З#м2,"FILE ALLOCATION TABLE"+фЗ#м2+юА I│1 е 6+,°З#м2,д10нI) Л(48лI);+4Л I+=З#м2+JАJ│1 е 6+a З#м2,"0123456789";+i*Л J+}4З#м2,"01234567"+Ж>З#м2+ЫHЗ"WAIT A MOMENT"+кДА I│1 е 68+╝ОY$│ Р(F$,I,1)+╔ШY│ К(Y$)+╫вY1$│ И(Y)+∙мИ  З(Y1$) Бе 950,960,990,1010,╢З"SHOULD NEVER GET HERE":С,(└Y1$│"0"лY1$,<╩ Р(Y1$,2,1)│"0",H╘Бе 1020,\▐ Р(Y1$,1,1)│"0",hшБе 1020,zЄY1$│ П(Y1$,3),Е№АJ│1е3,ЯQ$(I,J) │  Р(Y1$,J,1),зЛ J,пЛ I,╝LАJ│1 е 3,╩VАI│1 е 68,▄`З#м2,Q$(I,J);,фjЛ I,эtЗ#м2,ї~Л J-╨З#м2:З#м2-┌З#м2, б(80,61)-фЗ#м2-%юК+З:╗Й"WHAT IS THE MORAL OF THE STORY ?";S$(P,8)-^,Р-д-З#м2:З#м2,S$(PмNн Б((Pм1)оN),1)л" MET "лS$(Pл1лUмNн Б((PлU)оN),2)-х.АQ│3е4:L│QлPл(Qм1)нUм1мNн Б((QлPлQнUмUм2)оN):З#м2,S$(L,Q):ЛQ./З#м2,"HE SAID: "лS$(P                                                                                                                                                                                                                                                                 
a&KЮ&$PЗ@264,"CAN YOU STOP IT?"&@RЗ@360,"BY DAVE STEWART"&ЗZЗ@480,"** AS YOU READ,PRESS < ENTER >  TO ADVANCE THE MATERIAL **"&ЬdZ$│ Т:ЕZ$│""з100'3nЮ:З"YOU ARE ON A TOUR OF AN OLD     ATOMIC BOMB CONTROL SIGHT.  ALL BOMBS CONTAINED THEREIN WERE    SUPPOSE TO HAVE BEEN DEACTIVATEDYEARS BEFORE."'HwZ$│ Т:ЕZ$│""з119'╛xЮ:З"SUDDENLY LIGHTS BEGIN FLASHING, BUZZERS ARE GOING OFF AND THE   DOORS OF THE CONTROL ROOM ARE   SEALED SHUT."(A}З:З"YOU ARE TRAPPED!   WHAT ARE YOU GOING TO DO?  NO ONE CAN EXPLAINHOW IT HAPPENED;YOU ONLY KNOW   YOU MUST STOP IT SOMEHOW."(VZ$│ Т:ЕZ$│""з127)
ВЮ:З"BELOW THE FLASHING LIGHTS IS A  CONTROL PANEL. THE SIGN ON THE  PANEL READS(IN CASE OF EMERGENCY,ENTER SECRET CODE TO DEACTIVATEBOMBS)HOWEVER,NO ONE THERE KNOWS THE CODE.")ЯЗЗ"YOUR ONLY CHANCE IS TO GUESS THE CODE.YOU HAVE ONLY ONE CLUE--ITIS A NUMBER BETWEEN 1 AND 10.YOUHAVE FIVE CHANCES TO GUESS IT----GOOD LUCK!!!")╥МЗ:З"PRESS <ENTER> WHEN YOU ARE READY TO START")чСZ$│ Т:ЕZ$│""з145)їЦЮ:Бж 1500*еБж1500*иБж1500*кБж1500*!пБж1500*+▒Бе195*D┤а100,5:а160,5:а200,5*d╣Ю:З@264,"YOU WIN!!!":Бж2000*К║Ю:З@264,"YOU SAVED US ALL":Бж2000*╜╗З@480,"PRESS<ENTER> IF YOU WANT TO PLAY AGAIN"*╥╛Z$│ Т:ЕZ$│""з190*▐┐Ю:Бе110*ф├╝*Ї╚╚4,1:┐1,1:╝+╥┬(10,20),10:а10,3:╝+"▄┬(15,25),12:а15,3+(с╝+@ц┬(25,32),15:а20,3:╝+XЁ┬(35,40),18:а25,3:╝+p·┬(50,50),20:а30,3:╝+И
┬(68,60),25:а35,3:╝+а
┬(86,70),30:а40,3:╝+╣
┬(108,80),35:а45,3:╝+╓
┬(129,90),40:а50,3:а55,3+▀
1╝(3)+я
6╚1,1:┐1,1:╝,'
@╞"BM116,192;U16H8E8U4H12E8H4E20F20G4F8G12D4F8G8D16",?
EАS│55е255й5:аS,1:ЛS,Q
J┬(100,144),20,c
T┬(100,124),15,u
^┬(115,115),20,З
h┬(130,100),30,Щ
r┬(145,115),20,л
|┬(160,124),15,╜
Ж┬(160,144),20,█
Р┬(80,164),25:┬(80,138),18,·
Ъ┬(95,125),25:┬(155,125),25-
д┬(170,138),18:┬(170,164),25-8
о┬(95,100),30:┬(60,125),30-X
╕┬(165,100),30:┬(195,125),30-w
┬┬(30,140),30:┬(225,140),30-Ф
╠┬(75,50),30:┬(100,50),30-▓
╤┬(130,50),30:┬(160,50),30-╧
╓┬(45,80),30:┬(20,110),30-ю
█┬(200,80),30:┬(230,110),30-∙
ъБж2000- I╝.N╚4,1:┐1,1:╝.)X╞"BM84,68;R85D2L85U2".@b╞"BM120,68;H5E4D7"._l╞"BM123,68;U16H12U2F14D15".ov┬(122,36),5.Л{┬(116,35),3:┬(130,35),3.зА┬(117,40),3:┬(122,44),3.├К┬(127,40),3:┬(118,30),3.╙Ф┬(125,30),3.ўЮ╞"BM126,52;E6R3D3L1G8D12E6R2G6"/ Д╞"B Э&dВ *** INPUT DATA ***& nЮ&1xЙ "HEIGHT";H&AВЙ "WIDTH";W&SМЙ "X,Y";X0,Y0&nЦЙ "ANGLE IN DEGREES";A&ВаA │ Aо57.295779&Йк:Г&н╚В *** SET SCREEN; DRAW AXES ***&╖╥╚ 4,1&╛▄╝1&╚ц┴ 0,1&сЁ╗(0,181)м(255,181),╜&Ў·╗(0,0)м(0,181),╜'
┐ 1,0'
Бж 2040'%
"Е  Т│"" з 290 :Д 110',
,:Г'E╨В *** DEFRECTSUB ***'j┌В REQUIRES X0,Y0 THE COORDINATES'ЙфВ   OF ONE CORNER AND USES'зюВ   DRAWSUB1 AND DRAWSUB2'└°Бж 3030  :ГDRAW AXES'яX1│X0:Y1│Y0:X2│X0лWн Х(A):Y2│Y0м.8нWн Е(A)(Бж 3540  :ГDRAW LINE(,X2│X1мHн Е(A): Y2│Y1м.8нHн Х(A)(8 Бж 3540(\*X2│X1мWн Х(A): Y2│Y1л.8нWн Е(A)(h4Бж 3540(y>X2│X0: Y2│Y0(ЕHБж 3540(ЛRР(Т\:Г(й╕В *** DRAWSUB1 ***(╞┬В SETS LOWER LEFT CORNER(█╠В   OF RECTANGLE(Ў╓Y0│181м.8нY0: ╜(X0,Y0)(№рР)ъ:Г)
мВ *** DRAWSUB2 ***)6
╢В DRAWS LINE FROM X1,Y1)P
└В   TO X2,Y2 AND SETS)n
╩В   X1 TO X2 AND Y1 TO Y2)Е
╘╗(X1,Y1)м(X2,Y2),╜)Ц
▐X1│X2: Y1│Y2)Ь
шРS, THE F-RATIO    CANNOT BE CALCULATED.":Бе 410)я╛F│OоW1:Е F┤.001 з 170 :Д 195)·├SS│BлW*╚                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                S#|З#м2,═"$###.##";T2;:З#м2,д51)"";SHЖЗ#м2,═"$###.##";T3;:З#м2,д62)"";SlРЗ#м2,═"$##.##";T4;:З#м2,д71)"";SЙЪЗ#м2,═"$###.##";T2лT3лT4SодC9$│"UTILITY":C8│10:Бж 5840:T4│0S▌оЗ#м2,д19)"ELECTRIC";д37)"GAS";д51)"WATER";SЇ╕З#м2,д65)"UTILITY"T-┬З#м2,д6)"MONTH";д20)"TOTAL";д36)"TOTAL";д51)"TOTAL";TK╠З#м2,д66)"TOTAL":З#м2,C6$TZ╓А X│1 е 12TnрЗ#м2,д7)D2$(X);TЗъT1│E2(X)лE3(X)лE4(X)TаЇT2│G2(X)лG3(X)лG4(X)T╣■T3│W2(X)лW4(X)лW5(X)T▐З#м2,д19)"";:З#м2,═"$###.##";T1;UЗ#м2,д34)"";:З#м2,═"$###.##";T2;U(З#м2,д50)"";:З#м2,═"$###.##";T3;U;&T4│T4лT1лT2лT3Uf0З#м2,д64)"";:З#м2,═"$####.##";T1лT2лT3Un:Л XU{DЗ#м2,C6$UмNЗ#м2,д6)"TOTALS";д64)"";:З#м2,═"$####.##";T4U╕XБе 1200U┐b:ГU╞l:ГUхv:Г     MANUAL PROGRAM STOPUьА:ГUєК:ГVФЮ:С:Ю:Бе 1200VЮ:ГVи:ГV.▓:Г     PRINTER ROUTINEV5╝:ГV<╞:ГVU╨З#м2,C3$;C4$;C5$;C1$Vv┌З#м2,дC8)C9$л" BILL SUMMARY"VЛфЗ#м2,C1$;C5$;C2$VЬюЗ#м2,C1$;C1$Vв°Р"E"з565Vш+Бж845:ЕA$│"R"зX│68:ДЕA$│"S"зX│99:ДЕA$│"U"зX│63:Д840VЄ0Бе820W5ЕA$┤▓"G"                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                │T1лE5(X)мE6(X):T2│T2лE2(X)J6▐T3│T3лE3(X):T4│T4лE4(X)JMшЕ E1$(X)│"" з 4930JiЄЗ#м2,д4);E1$(X);д12)"";JР№З#м2,═"######";E5(X);:З#м2,д22)"";J╖З#м2,═"######";E6(X);:З#м2,д33)"";JтЗ#м2,═"####";E5(X)мE6(X);:З#м2,д41)"";K
З#м2,═"$###.##";E2(X);:З#м2,д52)"";K1$З#м2,═"$##.##";E3(X);:З#м2,д62)"";KX.З#м2,═"$##.##";E4(X);:З#м2,д71)"";K~8З#м2,═"$###.##";E2(X)лE3(X)лE4(X)KПBЛ X:З#м2,C6$KмLЗ#м2,д3)"TOTALS";д33)"";K╬VЗ#м2,═"####";T1;:З#м2,д41)"";Kє`З#м2,═"$###.##";T2;:З#м2,д51)"";LjЗ#м2,═"$###.##";T3;:З#м2,д62)"";L<tЗ#м2,═"$##.##";T4;:З#м2,д71)"";LY~З#м2,═"$###.##";T2лT3лT4LfИЗ#м2,C4$LВТC9$│"GAS":C8│11:Бж 5840L╡ЬЗ#м2,д14)"METER READINGS";д33)"GAS";д43)"GAS";L▐жЗ#м2,д53)"GAS";д63)"STATE";д73)"GAS"M░З#м2,д3)"MONTH";д12)"PRESENT";д21)"PREVIOUS";д32)"USEAGE";MU║З#м2,д41)"SERVICE";д53)"COST";д64)"TAX";д72)"TOTAL"Mb─З#м2,C6$Mz╬T1│0:T2│0:T3│0:T4│0MЙ╪А X│1 е G9MлтT1│T1лG5(X)мG6(X):T2│T2лG2(X)M╟ьT3│T3лG3(X):T4│T4лG4(X)M▐ЎЕ G1$(X)│"" з 5200M·З#м2,д4);G1$(X);д12)"";N!
З#м2,═"######";G5(X);:З#м2,д22)"";NHЗ#м2,═"######";G6(X);:З#м2,д33)"";NsЗ#м2,═"####";G5(X)мG6(X);:З#м2,д41)"";NЫ(З#м2,═"$###.##";G2(X);:З#м2,д52)"";N┬2З#м2,═"$##.##";G3(X);:З#м2,д61)"";Nъ<З#м2,═"$###.##";G4(X);:З#м2,д71)"";OFЗ#м2,═"$###.##";G2(X)лG3(X)лG4(X)O!PЛ X:З#м2,C6$O>ZЗ#м2,д3)"TOTALS";д33)"";O`dЗ#м2,═"####";T1;:З#м2,д41)"";OЕnЗ#м2,═"$###.##";T2;:З#м2,д51)"";OкxЗ#м2,═"$###.##";T3;:З#м2,д62)"";O╬ВЗ#м2,═"$##.##";T4;:З#м2,д71)"";OыМЗ#м2,═"$###.##";T2лT3лT4O°ЦЗ#м2,C4$PаC9$│"WATER":C8│11:Бж 5840PMкЗ#м2,д14)"METER READINGS";д32)"WATER";д42)"WATER";P|┤З#м2,д52)"SEWER";д63)"STATE";д71)"UTILITY"P╗╛З#м2,д3)"MONTH";д12)"PRESENT";д21)"PREVIOUS";д32)"USEAGE";PЇ╚З#м2,д42)"CHARGE";д52)"CHARGE";д64)"TAX";д72)"TOTAL"Q
╥З#м2,C6$Q▄T1│0:T2│0:T3│0:T4│0Q(цА X│1 е W9QJЁT1│T1лW6(X)мW1(X):T2│T2лW2(X)Qf·T3│T3лW4(X):T4│T4лW5(X)Q}Е W1$(X)│"" з 5470QЩЗ#м2,д4);W1$(X);д12)"";Q└З#м2,═"######";W6(X);:З#м2,д22)"";Qч"З#м2,═"######";W1(X);:З#м2,д33)"";R,З#м2,═"####";W6(X)мW1(X);:З#м2,д41)"";R:6З#м2,═"$###.##";W2(X);:З#м2,д52)"";Ra@З#м2,═"$##.##";W4(X);:З#м2,д62)"";RИJЗ#м2,═"$##.##";W5(X);:З#м2,д71)"";RоTЗ#м2,═"$###.##";W2(X)лW5(X)лW4(X)R┐^Л X:З#м2,C6$R▄hЗ#м2,д3)"TOTALS";д33)"";R■rЗ#м2,═"####";T1;:З#м2,д41)"";Й Q:РA╬D│97:А S│1 е 12A6╪З@Dм1,D2$(S):D│Dл32:Л S:РA<тРAMьА X│1 е 10:ЮA`ЎА T│1 е 50:Л TAВЗ@233,"ILLEGAL ENTRY":а 100,1AЫ
А Y│1 е 50:Л Y,X:Ю:РAбРA├З:З:Зд6)"1.SUMMARIZE CHARGES"Aт(З:Зд6)"2.SUMMARIZE USEAGE"B
2З:Зд6)"3.YEAR-TO-DATE SUM"B#<З:Зд6)"4.RETURN TO MAIN LIST"B)FРB8PА X│1 е 12BPZЕ E1$(X)│D2$(X) з РBhdЕ G1$(X)│D2$(X) з РBАnЕ W1$(X)│D2$(X) з РBЧxЛ X:Y1│1:Бж 3820:РB═ВЖ JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,DECB╘М:ГB█Ц:ГB■а:Г     LOAD DATA FROM CASSETTECк:ГC┤:ГC'╛Ю:З C7$;:Е ZQ│1 з 4500CB╚Зд11)"LOAD DATA":З C7$C`╥З:Зд7)"1. LOAD DATA TAPE"C▄З:Зд7)"2. PRESS PLAY ONLY"CЪцЗ:Зд7)"3. PRESS ENTER"CжЁ╗ Й ZZ$C╣·Ю:З:З:З:З C7$;C▐Зд6)"YOU ARE LOADING DATA":З C7$CЁЩ"I",м1,"NEW"DЙ#м1,E9,G9,W9D"А X│1 е 12D?,Й#м1,E1$(X),E2(X),E3(X),E4(X),E5(X),E6(X)Dm6Й#м1,G1$(X),G2(X),G3(X),G4(X),G5(X),G6(X)DЫ@Й#м1,W1$(X),W1(X),W2(X),W4(X),W5(X),W6(X)DгJЛ XDмTЪ#м1D╡^ZQ│1D┴hБе 1200D╬rN3│N3лN1D█|N4│N4лN2DтЖ:ГDщР:ГE
Ъ:Г     SAVE DATA TO CASSETTEEд:ГEо:ГE%╕Ю:З C7$;E@┬Зд11)"SAVE DATA":З C7$E^╠З:Зд7)"1. LOAD DATA TAPE"EБ╓З:Зд7)"2. PRESS RECORD & PLAY"EЬрЗ:Зд7)"3. PRESS ENTER"Eиъ╗ Й ZZ$E╗ЇЮ:З:З:З:З C7$;E▀■Зд6)"YOU ARE SAVING DATA":З C7$EёЩ"O",м1,"NEW"FЗ#м1,E9,G9,W9FА X│1 е 12F@&З#м1,E1$(X),E2(X),E3(X),E4(X),E5(X),E6(X)Fn0З#м1,G1$(X),G2(X),G3(X),G4(X),G5(X),G6(X)FЬ:З#м1,W1$(X),W1(X),W2(X),W4(X),W5(X),W6(X)FгDЛXFмNЪ#м1F╖XБе1200F╛b:ГF┼l:ГFтv:Г     DATA RELOAD ERRORFщА:ГFЁК:ГGФЮ:З@64,C7$:З:ЗG#ЮЗд6)"DATA ALREADY LOADED":ЗGKиЗд2)"DO YOU WANT TO RELOAD? (Y/N)";Ga▓АII│1е10:а100,3:ЛGm╝╗ Й KK$GК╞Е KK$│"Y" з 4030 :Д 1200GС╨:ГGШ┌:ГG╖ф:Г     INPUT PRINT ROUTINEG╛ю:ГG┼°:ГG▄З"STATE SALES TAX"GЎЗ"PRESENT METER READ"HЗ"PREVIOUS METER READ"H- З:З:Зд10)"MAKE ENTRIES"H=*З@118,"";:РH`4Ю:Зд6)"YEAR-TO-DATE SUMMARY":РHg>:ГHnH:ГHЙR:Г     PRINTER ROUTINEHР\:ГHЧf:ГHжpЮ:З:З C7$;H└zЗд12)"PRINTING":З C7$HрДC9$│"ELECTRIC":C8│9:Бж 5840IОЗ#м2,д14)"METER READINGS";д31)"ELECTRIC";д41)"ELECTRIC";ILШЗ#м2,д53)"FUEL";д63)"STATE";д71)"ELECTRIC"IЛвЗ#м2,д3)"MONTH";д12)"PRESENT";д21)"PREVIOUS";д32)"USEAGE";I─мЗ#м2,д42)"CHARGE";д52)"ADJUST";д64)"TAX";д72)"TOTAL"I╤╢З#м2,C6$Iщ└T1│0:T2│0:T3│0:T4│0I°╩А X│1 е E9J╘T1AS COST=$"N2лN3лN481JЗ@355,"TOTAL UNITS USED="N58ETБж 3780:Бе 25008d^Ю:Зд8)"GAS BILL SUMMARY":Р8kh:Г8rr:Г8Р|:Г     WATER BILL SUMMARY8ЧЖ:Г8ЮР:Г8╛ЪБж 3380:Бж 3870:Бж 3760:Й A8▌дИ A Бе 3000,3130,3260,12008ёоБж 3820:Бе 29708¤╕Бж 33809$┬З"MON   WATER  SEWER  TAX   TOTAL"9;╠З C7$:D│97:Бж 37909W╓M1│69:M2│76:M3│83:M4│889fрА X│1 е 129ОъM1│M1л32:M2│M2л32:M3│M3л32:M4│M4л329ЭЇА Y│1 е 129└■Е W1$(Y)│D2$(X) з 3080 :Д 31209▐З@M1,"";:З═"$##.##";W2(Y)9¤З@M2л1,"";:З═"$#.##";W4(Y):З@M3,"";:З═"$#.##";W5(Y):G&З@M4л1,"";:З═"$##.##";W2(Y)лW4(Y)лW5(Y);:a0Л Y,X:Бж 3780:Бе 2970:Б:Ю:Зд6)"UNITS OF WATER USED":жDЗ" MON  PRESENT  PREVIOUS  USED":┐NP7│103:P8│113:P9│120:╤XЗ C7$:Бж 3790:ыbА X│1 е 12:А Y│1 е 12;lЕ W1$(Y)│D2$(X) з 3190 :Д 3220;*vЗ@P7,"";:З═"####";W6(Y);FАЗ@P8,"";:З═"####";W1(Y);hКЗ@P9,"";:З═"####";W6(Y)мW1(Y);pФЛ Y;ПЮP7│P7л32:P8│P8л32:P9│P9л32;ЧиЛ X;л▓Бж 3780:Бе 2970;╖╝Бж 4660;╧╞P2│0:P4│0:P5│0:P6│0;▐╨А X│1 е 12<┌P2│P2лW2(X):P4│P4лW4(X):P5│P5лW5(X)<фP6│P6л(W6(X)мW1(X))<&юЛ X<E°З@99,"BASE WATER CHRG=$"P2<b
З@163,"SEWER CHARGE=$"P4<В
З@227,"STATE SALES TAX=$"P5<м
З@291,"TOTAL WATER COST=$"P2лP3лP4лP5<╠
 З@355,"TOTAL UNITS USED="P6<р
*Бж 3780:Бе 2970=

4Ю:Зд6)"WATER BILL SUMMARY":Р=
>:Г=
H:Г=0
R:Г     UTILITY BILLS SUMMARY=7
\:Г=>
f:Г=`
pЮ:Зд6)"SUMMARY OF UTILITITES"=З
zЗ"MON  ELECT   GAS   WATER  TOTAL"=С
ДЗ C7$=а
ОА X│1 е 12=░
ШTU(X)│0:Л X=╝
вБж 3790=▄
мQ1│101:Q2│107:Q3│113:Q4│121=ы
╢А X│1 е 12=·
└А Y│1 е 12>
╩Е E1$(Y)│D2$(X) з 3540 :Д 3560>I
╘З@Q1м1,"";:З═"$##.##";E2(Y)лE3(Y)лE4(Y)>k
▐TU(X)│TU(X)лE2(Y)лE3(Y)лE4(Y)>О
шЕ G1$(Y)│D2$(X) з 3570 :Д 3590>╕
ЄЗ@Q2,"";:З═"$##.##";G2(Y)лG3(Y)лG4(Y)>┌
№TU(X)│TU(X)лG2(Y)лG3(Y)лG4(Y)>¤Е W1$(Y)│D2$(X) з 3600 :Д 3620?)З@Q3л1,"";:З═"$##.##";W2(Y)лW4(Y)лW5(Y)?KTU(X)│TU(X)лW2(Y)лW4(Y)лW5(Y)?S$Л Y?r.Q1│Q1л32:Q2│Q2л32:Q3│Q3л32?Б8Л X:Q4│120?РBА X│1 е 12?еLЕ TU(X)┤1 з 3680?╟VЗ@Q4л1,"";:З═"$###.##";TU(X);?ч`Q4│Q4л32:Л X:Бж 3780:Ю:TB│0?ЎjА X│1 е 12@
tTB│TBлTU(X):Л X@/~Ю:З:Зд5)"YEARLY UTILITY SUMMARY"@bИЗ:З:Зд2)"TOTAL UTILITY COST=";:З═"$####.##";TB@vТБж 3780:Бе 1200@ЭЬЗ"  MON    CHARGE    TAX    TOTAL"@кжЗ D7$;:Р@╨░З@450,"ENTER ONE OF THE ABOVE";:Р@╫║:ГA─З@482,"PRESS <ENTER> TO CONTINUE";:З@WMл160,"";:Й W1(W9)/(иБж 3770:Бе 1200//▓:Г/6╝:Г/W╞:Г     ELECTRIC BILL SUMMARY/^╨:Г/e┌:Г/ЕфБж 2440:Бж 3870:Бж 3760:Й A/дюИ A Бе 2050,2190,2320,1200/╕°Бж 3820:Бе 2020/─Бж 2440/ыЗ"MON   CHRGE  FUADJ   TAX  TOTAL"0З C7$:D│97:Бж 37900 M1│69:M2│76:M3│83:M4│880-*А X│1 е 120U4M1│M1л32:M2│M2л32:M3│M3л32:M4│M4л320d>А Y│1 е 120ЗHЕ E1$(Y)│D2$(X) з 2130 :Д 21700еRЗ@M1,"";:З═"$##.##";E2(Y)0├\З@M2,"";:З═"$##.##";E3(Y)0рfЗ@M3,"";:З═"$#.##";E4(Y)1
pЗ@M4л2,"";:З═"$##.##";E2(Y)лE3(Y)лE4(Y);1zЛ Y,X1+ДБж 3780:Бе 20201AОЮ:Зд12)"KWH USED"1fШЗ" MON  PRESENT  PREVIOUS  USED"1вL7│101:L8│110:L9│1201СмЗ C7$:Бж 37901а╢А X│1 е 121п└А Y│1 е 121╥╩Е E1$(Y)│D2$(X) з 2260 :Д 22901ё╘З@L7л2,"";:З═"#####";E5(Y)2▐З@L8л3,"";:З═"#####";E6(Y)23шЗ@L9,"";:З═"#####";E5(Y)мE6(Y)2VЄЛ Y:L7│L7л32:L8│L8л32:L9│L9л322^№Л X2r	Бж 3780:Бе 20202~	Бж 46602Ы	L2│0:L3│0:L4│0:L5│0:L6│02к	$А X│1 е 122╥	.L2│L2лE2(X):L3│L3лE3(X):L4│L4лE4(X)2ъ	8L5│L5л(E5(X)мE6(X))2Є	BЛ X3	LЗ@99,"BASE ELECT. CHRG=$"L232	VЗ@163,"FUEL ADJUSTMENT=$"L33R	`З@227,"STATE SALES TAX=$"L43z	jЗ@291,"TOTAL ELECT. COST=$"L2лL3лL43Ш	tЗ@355,"TOTAL KWH USED="L53м	~Бж 3780:Бе 20203╨	ИЮ:Зд5)"ELECTRIC BILL SUMMARY":Р3╫	Т:Г3▐	Ь:Г3·	ж:Г     GAS BILL SUMMARY4
	░:Г4	║:Г4(	─Бж 2910:Бж 3870:Бж 3760:Й A4G	╬И A Бе 2530,2670,2790,12004[	╪Бж 3820:Бе 25004g	тБж 29104О	ьЗ" MON  GASSV  GASCT  STAX  TOTAL"4е	ЎЗ C7$:D│97:Бж 37904┴
M1│69:M2│76:M3│83:M4│884╨

А X│1 е 124°
M1│M1л32:M2│M2л32:M3│M3л32:M4│M4л325
А Y│1 е 125*
(Е G1$(Y)│D2$(X) з 2610 :Д 26505H
2З@M1,"";:З═"$##.##";G2(Y)5f
<З@M2,"";:З═"$##.##";G3(Y)5Г
FЗ@M3,"";:З═"$#.##";G4(Y)5п
PЗ@M4л1,"";:З═"$##.##";G2(Y)лG3(Y)лG4(Y)5╣
ZЛ Y,X5═
dБж 3780:Бе 25005ф
nЮ:Зд12)"GAS USAGE"6	
xЗ" MON  PRESENT  PREVIOUS  USED"6"
ВF7│101:F8│110:F9│12064
МЗ C7$:Бж 37906N
ЦА X│1 е 12:А Y│1 е 126q
аЕ G1$(Y)│D2$(X) з 2730 :Д 27606П
кЗ@F7л2,"";:З═"####";G5(Y)6н
┤З@F8л3,"";:З═"####";G6(Y)6╧
╛З@F9,"";:З═"####";G5(Y)мG6(Y)6╫
╚Л Y6Ў
╥F7│F7л32:F8│F8л32:F9│F9л327
▄Л X:Бж 3780:Бе 25007
цБж 466077
ЁN2│0:N3│0:N4│0:N5│0:N6│07F
·А X│1 е 127nN2│N2лG2(X):N3│N3лG3(X):N4│N4лG4(X)7ЖN5│N5л(G5(X)мG6(X))7ОЛ X7л"З@99,"BASE GAS CHRG=$"N27╠,З@163,"COST OF GAS CHRG=$"N37ь6З@227,"STATE SALES TAX=$"N48@З@291,"TOTAL G 0з&!ш:Г     HOME UTILITY PROGRAM&8Є:Г              BY&U№:Г       DENNIS H. WEIDE&n:Г          (C) 1982&u:Г&|:Г&Г$:Г&б.:Г     INITIALIZE PROGRAM&и8:Г&пB:Г&╗LЮ:Х 300&╙VH1$│"MONTH OF BILL"&Є`H2$│"YEAR-TO-DATE SUMMARY"'$jC1$│ Л(10):C2$│ Л(30):C3$│ Л(31):C4$│ б(5,10)'UtC5$│ б(40,"%"):C6$│ б(80,"-"):C7$│ б(32,"=")'З~М D2$(12),E1$(12),E2(12),E3(12),E4(12),E9(12)'йИМ E5(12),E6(12),TU(12),W1(12)'┌ТМ G1$(12),G2(12),G3(12),G4(12),G5(12),G6(12)(ЬМ W1$(12),W2(12),W3(12),W4(12),W5(12),W6(12)('жА X│1 е 12:Н D2$(X):Л X(I░Ю:Зд5)"UTILITY BILLS PROGRAM"(S║Q│3:З(t─ЗдQ)"1.ENTER ELECTRIC BILLS"(Р╬ЗдQ)"2.ENTER GAS BILLS"(о╪ЗдQ)"3.ENTER WATER BILLS"(╙тЗдQ)"4.SUMMARIZE ELECTRIC BILLS"(єьЗдQ)"5.SUMMARIZE GAS BILLS")ЎЗдQ)"6.SUMMARIZE WATER BILLS")9ЗдQ)"7.SUMMARIZE UTILITY BILLS")Y
ЗдQ)"8.LOAD DATA FROM TAPE")wЗдQ)"9.SAVE DATA TO TAPE")ХЗдQ)"10.PRINT TO PRINTER")╡(ЗдQ)"11.END RUN OF PROGRAM")┼2Бж 3760:Й A*<И A Бе 1430,1630,1830,2020,2500,2970,3440,4030,4280,4720,5780*FЮ:Бж 3820:Бе 1200*)PБж 3820*5ZБе 1200*<d:Г*Cn:Г*bx:Г     ELECTRIC BILL ENTRY*iВ:Г*pМ:Г*ТЦЮ:З:Зд6)"ELECTRIC BILL ENTRY"*гаE9│E9л1:PO│0*пкЗ:З H1$*╦┤З"BASE ELECTRIC CHARGE"*т╛З"FUEL ADJUSTMENT"* ╚Бж 4610:EM│118:Й E1$(E9)+&╥А X│1 е 12:Е E1$(E9)│D2$(X) з PO│1+<▄Л X:Е PO│1 з 1520+PцБж 3820:Бе 1430+iЁЗ@EMл32,"";:Й E2(E9)+В·З@EMл64,"";:Й E3(E9)+ЫЗ@EMл96,"";:Й E4(E9)+╡З@EMл128,"";:Й E5(E9)+╧З@EMл160,"";:Й E6(E9)+у"Бж 3770:Бе 1200+ъ,:Г+ё6:Г,@:Г     GAS BILL ENTRY,J:Г,T:Г,6^Ю:З:Зд9)"GAS BILL ENTRY",GhG9│G9л1:PO│0,SrЗ:З H1$,k|З"GAS SERVICE CHRG",ГЖЗ"COST OF GAS CHRG",аРБж 4610:EM│118:Й G1$(G9),пЪА X│1 е 12,╦дЕ G1$(G9)│D2$(X) з PO│1,ЇоЛ X:Е PO│1 з 1720 :Д Бж 3820:Бе 1630-
╕З@EMл32,"";:Й G2(G9)-&┬З@EMл64,"";:Й G3(G9)-?╠З@EMл96,"";:Й G4(G9)-Y╓З@EMл128,"";:Й G5(G9)-sрЗ@EMл160,"";:Й G6(G9)-ЗъБж 3770:Бе 1200-ОЇ:Г-Х■:Г-▒:Г     WATER BILL ENTRY-╕:Г-┐:Г-▐&Ю:З:Зд8)"WATER BILL ENTRY"-я0W9│W9л1:PO│0-√:З:З H1$.DЗ"BASE WATER CHARGE".(NЗ"SEWER CHARGE".EXБж 4610:WM│118:Й W1$(W9).lbА X│1 е 12:Е W1$(W9)│D2$(X) з PO│1.ХlЛ X:Е PO│1 з 1910 :Д Бж 3820:Бе 1830.оvЗ@WMл32,"";:Й W2(W9).╟АЗ@WMл64,"";:Й W4(W9).рКЗ@WMл96,"";:Й W5(W9).·ФЗ@WMл128,"";:Й W6(W9)/ЮNU4BD3BR1,D7E3F3U7BD7BR1,D1F5D1BL5U1E5U1BD7,D2F2ND3E2U2BD7BR1,R5D1G5D1R5/X╚3:┐4:Бе1010IDE ";/ГцЗ#D9,"YOUR BODY CAN LAY THERE0PЁЗ#D9," DOING DAMAGE FOR SEVERAL DAYS,  OR EVEN WEEKS. YOU SHOULD ALSO  COVER YOUR BODY AS MUCH AS YOU  CAN, AND WASH UP                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 	Y&ш╝:Х100:Бж1110:Бе 1800&:Є┬(159,91),100,3,.4,.75,.25&[№┬(255,91),254,3,.17,.32,.695&Е╗(17,91)м(24,91),╜:╗(20,88)м(20,94),╜&й╛(1,91):╛(1,90):╛(1,89):╛(1,92)&╒╜(2,90,3):╜(2,89,3):╜(2,91,3):╜(2,92,3)'$╗(120,88)м(180,88),╜:╗(180,88)м(165,73),╜:╗(180,88)м(165,103),╜'U.╞HM$:╞"S4":BB$│"THE FALLOUT PATTERN WILL"л Л(10):Бж1200'╢8BB$│"OCCUR AS A CIGAR-LIKE SHAPE"л Л(10):Бж1200:BB$│"DOWN-WIND FROM THE BLAST"л Л(10):Бж1200(
BBB$│ Л(10)л Л(10)л" BLAST"л Л(10)л Л(10):Бж1200:╞"S8":BB$│"    WIND"л Л(10):Бж1200(LАL│1е2000:Л:О(,VМAZ$(60)(9`АLE│0е60(JjНAZ$(LE):ЛLE([tNC$│"BR3BU7"(i~NL$│"BD4"(wИBS$│"BL9"(ИТHM$│"BM0,10"(СЬCC│1(ЧжР(о░CC│1:АTT│1е З(BB$)(├║A9$│ Р(BB$,TT,1)(▀─ЕA9$│ Л(94)з╞HM$:Бе1320(·╬ЕA9$│" "з╞"BR9":Бе1320)╪ЕA9$│ Л(8) з╞BS$:Бе1320):тЕA9$│ Л(10)з╞"BD12BL250":Бе1320)TьЕA9$│ Л(12) з╝:Бе1320)pЎЕ" "▓A9$ ▒"Z"┤A9$ з1320)|CC│CCл1)й
ЕCC▓27 з╞NL$:АI│1е27:╞BS$:ЛI:CC│1:Бе1310)▓╞NC$)╟╞AZ$( К(A9$)м30))╤#╞"BR1)╫(Л)▌2Р)ш<Бе1340) FЖ' !"#$%&'()*+,-./*єPЖ BD7BR5,NR1D4R1NU4BD2ND1L1D1R1,ND1R1D1NL1D1G1BR3E1U2L1D1R1BD6,BD1R1NU1ND4R3NU1NR1D3NL4NR1D1BD2,BD1BR2NU1NR2L1G1F1R2F1G1L1NL2D1BR2BD1,R1D1L1NU1BR5G5BR5L1D1R1NU1,BR1BD1ND1E1R1F1D1G1L1NH1G1D2F1R1E1U2NH1NE1F1BD2,ND1R1D1NL1D1G1BD4BR1,BR1G1D5F1+kZЖ F1D5G1BR1,BR3D3NL3ND3NE2NF2NG2NH2R3BD4,BD3R3NU3ND3R3BD4,BD4ND1R1D1NL1D1G1BR1,BD4R4BD3,BD7U1R1D1NL1,BR5BD1G5BR5BD1+ud:Г0-8,\nЖBD1BR1D5F1R1E1U5H1L1G1BD6BR5,BD1E1D7L1R2BR1,BD1E1R3F1D2G1L3G1D2R5,BD1E1R3F1D1G1NL2F1D2G1L3H1BF1BR4,BD4NR5E4D7BR1,NR5D3R4F1D2G1L3H1BF1BR4,BD1BR5H1L3G1D5F1R3E1U2H1L3G1BF3BR2,ND1R5D1G5D1BR5,BD1E1R3F1D1G1NL3F1D2G1L3H1U2E1H1NU1BF5,kx:Г9:;<=>?@-:ВЖ BD6F1R3E1U5H1L3G1D2F1R3E1BD4,BD1R1D1L1U1BD3R1D1L1U1BD3BR2,BD1R1D1L1U1BD3NR1D1R1NU1D1G1BR2,BD1BR3G3F3,BD3NR4BD2R4BD2,BD1F3G3BR3,BD1E1R2F1D1G2BD2ND1L1D1R1BR3,BD2BR1ND2E1R1F1D2G1L1H1BR3D1R1U4H1L3G1D5F1R4-EМ:Г A-H-ЇЦЖ BD7U3NR5U3E1R3F1D6,ND7R4F1D1G1NL4F1D2G1NL4BR1,BD1D5F1R3E1U1BU3U1H1L3G1BD6BR5,D7R4E1U5H1L4BD7BR5,NR5D3NR4D4R5,NR5D3NR4D4BR5,BD1D5F1R3E1U2NL2BU2U1H1L3G1BD6BR5,D7U4R5NU3D4- а:Г I-T.┘кЖ R4L2D7L2R4BR1,BD5D1F1R3E1U6BD7,D7U4R3E2NU1G2F2D2,D7R5,ND7F3E3D7BR1,ND7F5NU5D2,BD1D5F1R3E1U5H1L3G1BD6BR5,ND7R4F1D2G1L4BD3BR5,BD1D5F1R3E1U5H1L3G1D4BR3F2,ND7R4F1D1G1NL4F1D3,BD1D1F1R3F1D2G1L3H1BU5E1R3F1BD6,R4L2D7BR2.ф┤:Г U-Z/G╛Ж D6F1R3E1U6BD7,D4F3E3 
┴&
В    PROGRAM "DSKDET"&3В     (DISK-DETACH)&9В&J
Х 200,&H6FFF&\Т &H7000,&H12&kА N│1 е 16&З(Т &H7000лN, Ж(&HA073лN)&П2Л N&д3Т &H7000л17,&H8E&╣4Т &H7000л18,&H7F&╬5Т &H7000л19,&HFE&▐6А N│20 е 78&¤7Т &H7000лN, Ж(&HA073лNл12)'8Л N'<А N│1 е 167'4FТ &H7000л78лN, Ж(&H8001лN)'<PЛ N'RZТ &H7000л246,&H7E'hdТ &H7000л247,&H80'~nТ &H7000л248,&HB0'ОxТ &H72,&H70'ЮВТ &H73,&H00'└МЗ "PRESS RESET TO DETACHDISK"0)л Л(10)л" BLAST"л Л(10)л Л(10):Бж1200:╞"S8":BB$│"    WIND"                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                
^K$│"L8GB-EP100EP100L2EV15E"/0
hL$│"V15L2AV10G"/M
r╔A$лB$лC$лD$лE$лF$лG$лH$/_
|├(128,96),5,5/p
Ж├(28,90),5,5/Б
Р╔I$лJ$лK$лA$/М
Ъ╔G$лL$/Э
д╔A$лB$лC$лD$/р
о╝:╗(38,48)м(180,48),╜:╗(38,64)м(168,64),╜:╗(168,64)м(168,80),╜0!
╕╗(168,80)м(70,80),╜:╗(168,80)м(184,96),╜:╗(200,96)м(70,96),╜0h
┬╗(92,112)м(244,112),╜:╗(244,112)м(244,128),╜:╗(244,128)м(92,128),╜0м
╠╗(244,112)м(180,48),╜:╗(152,48)м(200,96),╜:╗(204,72)м(236,72),╜1
╓╗(236,72)м(252,88),╜:╗(252,88)м(252,96),╜:╗(252,88)м(220,88),╜:╗(252,96)м(228,96),╜1
р┬(38,56),81"
ъ┬(70,88),812
Ї┬(92,120),81<
■Бе510(76,58),5,0,2:┬(40,98),5,0,2:┬(6,138),5,0,2I╗AБж72:╗(129,101)м(104,89),╜:╗м(63,108),╜:╗м(56,50),╜:╗м(95,32),╜:╗м(104,89),╜JB╗(91,106)м(109,115),╜:╗м(118,179),╜:╗м(163,158),╜:╗м(156,94),╜:                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ┬(128,96),150нRо(9лR):ЛR:Бж81G/6Бж74:Бж75:Бе54GB7Бж71:Бж82:Бж73Gм8Бж72:АI│0е10:╗(128,7нI)м(7нI,192м4нI),╜:╗м(128,150м7нI),╜:╗м(256м7нI,192м4нI),╜:╗м(128,7нI),╜:ЛI:Бж82G┐9Бж74:Бж75:Бе57Gр:Бж71:АX│5е250й14:АY│5е185й14H";╗(Xм2,Yм2)м(Xл2,Yл2),╜,BF:╗(Xл5,Yл5)м(Xл9,Yл9),╜,BF:ЛY,X:Бж73Hb<Бж72:АX│5е250й14:АY│5е185й14:╗(Xм4,Yм4)м(Xл4,Yл4),╜,BF:ЛY,XHu=Бж74:Бж75:Бе61H═>Бж71:╗(76,48)м(246,48),╜:╗м(246,68),╜:╗м(76,68),╜:╗(246,68)м(176,148),╜:╗м(6,148),╜I9?╗(6,128)м(156,128),╜:╗м(192,88),╜:╗м(40,88),╜:╗(40,108)м(156,108),╜:╗м(176,88),╜:╗(156,108)м(156,128),╜Ij@┬(76,58),5,0,2:┬(40,98),5,0,2:┬(6,138),5,0,2I╗AБж72:╗(129,101)м(104,89),╜:╗м(63,108),╜:╗м(56,50),╜:╗м(95,32),╜:╗м(104,89),╜JB╗(91,106)м(109,115),╜:╗м(118,179),╜:╗м(163,158),╜:╗м(156,94),╜:╗м(109,115),╜JdC╗(130,104)м(128,80),╜:╗(89,96)м(93,121),╜:╗(95,32)м(168,62),╜:╗(118,179)м(49,139),╜JрD╗(160,128)м(177,122),╜:╗м(168,62),╜:╗м(128,80),╜:╗м(156,95),╜:╗(58,72)м(41,81),╜:╗м(49,138),╜:╗м(92,121),╜:╗м(63,108),╜KE╗(58,72)м(41,81),╜:╗м(49,138),╜:╗м(92,121),╜:╗м(63,108),╜K1FБж74:Бж75:Бе70KIG╚4,1:╝1:┐1,1:┴0,5:РKaH╚4,5:╝1:┐1,1:┴0,5:РKtIАT│1е2000:ЛT:РKЬJАP│1е5й4:╚4,P:┐1,1:АT│1е2000:ЛT,P:РKнKЕ Т│"R"з9:ДРKЇLАI│0е192й32:╗(Iн4о3,0)м(256,192мI),╜:╗(0,I)м(256м4нIо3,192),╜:ЛI:РL$M╗(18,22)м(98,162),╜:╗(158,22)м(238,162),╜:РLwN┬(168,96),31,0:┬(88,96),31,0:╗(120,66)м(136,126),╜,B:╗(200,66)м(216,126),╜,B:РLиO╗(0,72)м(256,120),╜,B:╗(0,0)м(256,192),╜,B:РL╦P┬(88,96),10,0:┬(168,96),10,0:РLшQ╗(88,56)м(168,136),╜,B:РL¤R┬(128,96),40,0:Р,╥
ХЗ "    PRESS ANY KEY TO RETURN          TO FIRST PAGE OF MENU",ў
ЧЗ "  PRESS (BREAK) TO EXIT MENU"-
ШЕ  Т│"" з 408 :Д Бе 240-#
ЪЗ б(32,45);R┬h&@IЙzАYВRА°:╗ЙN$:╘I3$│N$5╓YЗ@365,R$;:Бе14355ю^З@98,;:╗ЙN$:╘I4$│N$6cЗ@173,R$;:Бе                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ■>
МA(8):МB(14)>bЮ0:C│159:АJ│0е11:АK│0е480й32:Т1034лJлK,C:ЛK,J:АJ│1е3:Т1446лJ,C:Т1461лJ,C:ЛJ>аC│128:АJ│1е6:Т1194л32нJ,C:Т1205л32нJ,C:ЛJ:Т1259,C:Т1268,C>═Ж1029,1030,1049,1050,1065,1078,1260,1267>ыАJ│1е8:НA(J):ТA(J),156:ЛJ?6Ж1291,1292,1299,1300,1321,1322,1333,1334,1415,1416,1417,1430,1431,1432?UАJ│1е14:НB(J):ТB(J),147:ЛJ?ї└8:З@7,"OPTICAL  ILLUSIONS";:З@335,"BY";:З@426,"r&d.delbourgo";:З@456,"15,willowdene av.";:З@481,"hobart,tasmania, australia7005";:╔"L20O3CEGO4CO3GEC":Бж73@▒	Ю0:З@39,"OPTICAL ILLUSIONS";:З@101,"(1) MULLER-LYER      ";:З@133,"(2) ZOLLNER LINES    ";:З@165,"(3) POGGENDORFF      ";:З@197,"(4) PONZO-EHRENSTEIN ";:З@229,"(5) HERING-WUNDT     ";AP
З@261,"(6) EBBINGHAUS       ";:З@293,"(7) PINCUSHION EFFECT";:З@325,"(8) ORBISON          ";:З@357,"(9) HERING-SPRINGER  ";:З@389,"(0) IMPOSSIBLE SHAPES";AЪЗ@451,"PRESS YOUR CHOICE NUMBER ";:З@483,"PRESS R TO RETURN TO MENU";AоI$│ Т:ЕI$│""з12A╜
ЕI$│"1"з24A╠ЕI$│"2"з30A█ЕI$│"3"з35AъЕI$│"4"з39A∙ЕI$│"5"з42BЕI$│"6"з47BЕI$│"7"з52B&ЕI$│"8"з55B5ЕI$│"9"з58BDЕI$│"0"з62BMБе12BАБж71:╗(78,75)м(178,75),╜:╗(78,125)м(178,125),╜Bп╞"BM78,75C0H8BD16E8":╞"BM178,75C0E8BD16H8"Bу╞"BM86,125C0BU8G8F8":╞"BM170,125C0BU8F8G8":Бж73CБж75:╞"BM78,75C1H8BD16E8":╞"BM178,75C1E8BD16H8"CK╞"BM86,125C1BU8G8F8":╞"BM170,125C1BU8F8G8":Бж73CYБж75:Бе24CgБж71:Бж76CтАJ│0е128й64:АK│Jл8е184й8:╗((KмJ)н4о3м10,K)м((KмJ)н4о3л10,K),╜:ЛK:АK│8е184мJ й8:╗((KлJ)н4о3м10,K)м((KлJ)н4о3л10,K),╜:ЛKDM АK│Jл40е184й8:╗(Kн4о3,KмJм40)м(Kн4о3,KмJм24),╜:ЛK:АK│8е152мJ й8:╗(Kн4о3,KлJл24)м(Kн4о3,KлJл40),╜:ЛK:ЛJD[!Бж72:Бж76Dn"Бж74:Бж75:Бе34D|#Бж71:Бж77D╔$╗(167,38)м(193,146),╜,BF:╗(203,38)м(229,146),╜,BF:╗(45,38)м(71,146),╜,BFD╫%Бж72:Бж77Dъ&Бж74:Бж75:Бе38E&'Бж71:АI│0е96й16:╗(0,I)м(256,96),╜:╗м(0,192мI),╜:ЛI:Бж78E4(Бж72:Бж78EG)Бж74:Бж75:Бе41EZ*Бж71:Бж79:Бж73E╗+АI│0е256й32:╗(I,0)м(256мI,192),╜:ЛI:АJ│15е60й15:╗(0,J)м(256,192мJ),╜:╗(0,192мJ)м(256,J),╜:ЛJE╔,Бж72:Бж79E№-АI│0е256й16:╗(128,0)м(I,96),╜:╗м(128,192),╜:ЛIF.Бж74:Бж75:Бе46F/Бж71:Бж80Fh0┬(88,76),7,0:┬(88,116),7,0:АX│0е32й32:АY│0е20й20:┬(72лX,86лY),7,0:ЛY,XF╣1┬(168,64),15,0:┬(168,128),15,0:АX│0е52й52:АY│0е30й30:┬(142лX,81лY),15,0:ЛY,XF╟2Бж72:Бж80F┌3Бж74:Бж75:Бе51Fэ4Бж71:Бж81:Бж73G5Бж72:АR│1е10: =&E
:ГOPTICAL2 - NORM LATNER-JAN 83********************************&RХ5000:Ю0&ЕАX│1е5:З @ 204,"OPTICAL";:З @ 267,"ILLUSIONS";&Э(АT│1е200:ЛT:а10нX,2&о2Т359,13:┐0,1&╞<АT│1е200:ЛT:а35нX,2&╥F┐0,0:ЛX&▀PТ359,126&эZ╚4:╝:┐1,1'jd╗(71,52)м(71,27),╜:╗(71,27)м(96,14),╜:╗(96,14)м(119,27),╜:╗(119,27)м(119,40),╜:╗(119,40)м(108,46),╜:╗(108,46)м(108,72),╜'╧n╗(108,59)м(96,64),╜:╗(96,64)м(71,52),╜:╗(71,27)м(96,40),╜:╗(96,40)м(119,27),╜:╗(96,40)м(96,64),╜("x╗(84,58)м(71,64),╜:╗(71,64)м(71,90),╜:╗(71,90)м(96,103),╜:╗(96,103)м(119,90),╜(wВ╗(119,90)м(119,78),╜:╗(108,72)м(132,84),╜:╗(108,72)м(96,78),╜:╗(96,78)м(71,64),╜(═М╗(96,78)м(96,103),╜:╗(84,96)м(71,103),╜:╗(71,103)м(71,128),╜:╗(71,128)м(96,140),╜))Ц╗(96,140)м(119,128),╜:╗(119,128)м(119,103),╜:╗(119,103)м(108,96),╜:╗(96,116)м(96,140),╜)Ва╗(119,103)м(96,116),╜:╗(96,116)м(71,103),╜:╗(84,134)м(71,141),╜:╗(71,141)м(71,167),╜)▀к╗(71,167)м(96,180),╜:╗(96,180)м(119,167),╜:╗(119,167)м(119,141),╜:╗(119,141)м(108,134),╜*m┤╗(119,154)м(132,160),╜:╗(132,160)м(156,148),╜:╗(156,148)м(156,122),╜:╗(156,122)м(132,110),╜:╗(132,110)м(119,116),╜:╗(132,160)м(132,134),╜*∙╛╗(156,136)м(167,141),╜:╗(167,141)м(190,128),╜:╗(190,128)м(190,103),╜:╗(190,103)м(167,91),╜:╗(167,91)м(144,103),╜:╗(144,103)м(167,116),╜+Ы╚╗(167,116)м(167,141),╜:╗(144,103)м(144,116),╜:╗(167,116)м(190,103),╜:╗(190,116)м(202,122),╜:╗(202,122)м(226,110),╜:╗(226,110)м(226,84),╜:╗(226,84)м(202,72),╜+╔╥╗(202,72)м(177,84),╜:╗(177,84)м(177,96),╜,v▄╗(177,84)м(202,98),╜:╗(202,98)м(226,84),╜:╗(202,98)м(202,122),╜:╗(190,66)м(190,78),╜:╗(190,66)м(167,53),╜:╗(167,53)м(144,66),╜:╗(144,66)м(144,90),╜:╗(144,90)м(156,96),╜-"ц╗(144,66)м(167,78),╜:╗(167,78)м(190,66),╜:╗(167,78)м(167,91),╜:╗(132,84)м(144,78),╜:╗(156,59)м(156,46),╜:╗(156,46)м(132,33),╜:╗(132,33)м(119,40),╜:╗(108,46)м(132,59),╜-╛Ё╗(132,59)м(156,46),╜:╗(132,59)м(132,84),╜:╗(71,141)м(96,154),╜:╗(96,154)м(96,180),╜:╗(96,154)м(119,141),╜:╗(119,128)м(132,134),╜:╗(132,134)м(156,122),╜-▀·A$│"V10O3L8FO3L8GO3CP100O3C"-№
B$│"O3L8DO3L8FO2B-P100B".
C$│"L8AO3L8CO2FP100E".$
D$│"L2EF".=
"E$│"V20L8CL8EGP100G".S
,F$│"L8CL8FAP100A".q
6G$│"L8CL8EL8GB-P100AP100".В
@H$│"L2AV15G".╩
JI$│"V10O3L8CO3L8E-O2AP100AL8B-O3L8DO2GP100GL8AO3L8CO2F+P100F+L2F+G".№
TJ$│"V20L8B-O3L8DO2GP100O2GL8AO3L8CO2FP100O2F"/                                                                                                                                                                                                                                                                        ┬┴	
┬┬
╞┬╚──┴┬├╟╚┼╚&'(┬*+,─╟/├─╔34┬67┼╟:;<=╚      MENU383 BAS"'CHARFINDBAS#ILLUSIONBAS 
OPTICAL2BAS!@ARRAYS  BAS$PFALLOUT BAS%╬FALLOUT2BAS\DSKDET  BAS─ATTORNEYBAS)бHOMEUTILBASкSCREENCLBAS-┐ANOVA   BAS.CROT-RECTBASаPAR-RECTBAS0*CONSEQS BAS1аPRINTDIRBAS)STOP IT BASdSUB HUNTBAS2fELEMENTSBAS┘CADET TRBAS5DUMBTERMBINдJK DRAW BAS}CONTLOGRBASSPELLINGBAS8JDRAGBYTEBAS9╒INVADERSBINР                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 $$
:ГRAINBOW ON TAPE MONTHLY MENU7╚3,1:╝:┐0,1:Ю0кRB$│"U8R4FD2GNL4FD3BR5U6E2R2F2D2NL6D4BR5NU8BR5U8F7NDU7BR5D8R4EU2HNL4EU2HNL4BR6NR4GD6FR4EU6HBR5D6F2E2NU4F2E2U6"ч(┬(256,130),168,3,.7,.50,.25:┬(256,126),142,3,.75,.50,.25 2╞"S4BM116,126C3L50"<├(100,124),3,3NFАI│0е30й30:АY│0е1:┬(256мI,130лY),168,2,.7,.50,.25:ЛY:ЛIdP╞"BM20,132C2R161"vZ├(75,130),2,2Цd┬(256,130),257,4,.45,.5,.25╢n┬(256,138),226,4,.56,.5,.25╩x╞"BM0,128C4R45"▄В├(15,126),4,4°М╗(0,126)м(256,147),╛,BF Ц╗(0,0)м(256,192),╛,B *а╗(0,0)м(256,22),╛,BF iк╞"S20BM150,124C3R20EU10HL20GD10FR3UE2L5U7ER18FD7L5NL12F2D" Е┤┬(176,90),8:┬(220,90),8 │╛╗(176,82)м(220,82),╜:╗(176,98)м(220,98),╜ ┼╚├(176,70),3,3!╥┐1,1:АI│1е8:R$│ И(Iл10)л","л И(Iл168):╞"S12BM"лR$л"C4"лRB$:Л!▄╞"S12BM19,177C3"лRB$!\ц╚3,1:┐1,1:АI│1е300:Л:┐1,0:АI│1е300:Л:┐1,1:А I│1 е 500:ЛI!bЁЮ!В·З"       RAINBOW  ON  TAPE"!в
З"       (C) FALSOFT, 1983"!и
З!ы
З "   YOU CAN LOAD THESE PROGRAMS        FROM OUR MARCH ISSUE"!ё
"З"
'З "  (XX)=PAGE NUMBER OF LISTING""
(З"C
,З "(13) CHARFIND","(28) ILLUSION""f
-З"(28) OPTICAL2","(35) ARRAYS""К
.З"(42) FALLOUT","(50) FALLOUT2""н
/З"(54) DSKDET","(56) ATTORNEY""╥
0З"(66) HOMEUTIL","(86) SCREENCL""╪
3З"№
TЗ"   PRESS ANY KEY TO CONTINUE"#
^Е  Т│""з350#
hЮ#9
mЗ "  (XX)= PAGE NUMBER OF LISTING"#?
nЗ#d
rЗ " (96) ANOVA","(107) ROT-RECT"#К
sЗ"(109) PAR-RECT","(110) CONSEQS"#░
tЗ"(128) PRINTDIR","(136) STOP IT"#╫
uЗ"(144) SUB HUNT","(152) ELEMENTS"# 
vЗ"(155) CADET TR","(161) DUMBTERM*"$%
wЗ"(166) JK DRAW","(180) CONTLOGR"$K
xЗ"(198) SPELLING","(204) DRAGBYTE$e
yЗ"","(218) INVADERS*"$Й
РЗ"  *=MACHINE LANGUAGE PROGRAM"$П
СЗ$╥
ХЗ "    PRESS ANY KEY TO RETURN          TO FIRST PAGE OF MENU"$ў
ЧЗ "  PRESS (BREAK) TO EXIT MENU"%
ШЕ  Т│"" з 408 :Д Бе 240%#
ЪЗ б(32,45);З@8," *BIBLIOGRAPHY* ";:АBG│32е380й32:З@BG, б(32,143);:Л-o┴З@32,"S)"S$;-Б╞З@49,"(T)"T$;-Т╦З@64,"A)"A$;-д╨З@96,"1)"T1$;-▓╤З@178,R$;-┼╒З@192,"2)"T2$;-╙╓З@274,R$;-х┌З@288,"P)"P$;-ў▀З@320,"V)"V$;.	фЗ@3                                                                                                                                                                                                                                                                 &dВ ** CHARACTER FINDER&!╟:&<╚В ** WHO$ IS CHARACTER&B╥Ю&b▄Й "NAME OF CHARACTER"; WHO$&h
+:&С
,В ** START AT BEGINNING OF DATA FILE&Ч
6П&Э
П:&╕
РВ ** READ RECORD. EOF?&─
ЪН NAME$&ь
дН STR, CON, SIZ, INQ, POW, DEX, CHA'
оЕ NAME$│"ENDFILE" з 810 :Д 510'
є:'3
ЇВ ** IS IT OUR CHARACTER?'Q
■Е NAME$│WHO$ з 610 :Д 410'WW:'tXВ ** FOUND OUR CHARACTER'zbЗ'ЛlЗ "STR", STR'ЬvЗ "CON", CON'нАЗ "SIZ", SIZ'╛КЗ "INT", INQ'╧ФЗ "POW", POW'рЮЗ "DEX", DEX'ёиЗ "CHA", CHA'ў╗:(╝В ** TELL HOW TO DO AGAIN(╞З(>╨З "TO DO AGAIN, PRESS ANY KEY"(Y┌Е  Т │ "" з 730 :Д 210(_:(z В ** OOPS! NOT IN FILE(Х*З "I DON'T KNOW " WHO$(╕4З "TO DO AGAIN, PRESS ANY KEY"(╙>Е  Т │ "" з 830 :Д 210(┘Г:(эшВ ** DATA FILE )ЄЖ ALOYSIOUS, 10, 11, 10, 12, 10, 12, 9)@№Ж BAROSTAN, 17, 17, 13, 8, 7, 15, 6)hЖ BRIDLA, 11, 12, 10, 15, 6, 11, 16)РЖ DERNFARA, 13, 13, 8, 13, 4, 17, 6)╖Ж JOLEEN, 13, 11, 7, 13, 8, 17, 13)▄$Ж ROKANA, 9, 9, 9, 17, 18, 9, 10) .Ж ENDFILE, 0, 0, 0, 0, 0, 0, 0°?° А?у■?■?я р я ░?р И■√ ° А?у■?├■?я р ┐ р?р В■√ ° А?у■?├■?я р ┐ р?р В■√ ° А?у■?у■?я р ┐ р?р АГ■√ ° А?у■?у■?я р ┐ р?р АГ■√ ° А?у■?у■?я р ┐ р?р А#■√ ° А?у■?у■?я А ┐ р?р А#■√ р А?у■?у■?я А ┐ р?р А                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 M&# :Г**************************&D
:Г*      HALF LIFE DEMO    *&e:Г*  ###LENTEC SOFTWARE### *&Ж:Г*    BY DAVID LENGYEL    *&з:Г**************************&╗(:Г BUILD ARRAYS&╧2М X(144),Y(144)&▀<А I│1 е 144&яFН X(I),Y(I)&ўPЛ I'-ZЖ 0,1,5,1,10,1,15,1,20,1,25,1,30,1,35,1,40,1,45,1'c\Ж 0,3,5,3,10,3,15,3,20,3,25,3,30,3,35,3,40,3,45,3'Щ^Ж 0,5,5,5,10,5,15,5,20,5,25,5,30,5,35,5,40,5,45,5'╧dЖ 0,7,5,7,10,7,15,7,20,7,25,7,30,7,35,7,40,7,45,7(fЖ 0,9,5,9,10,9,15,9,20,9,25,9,30,9,35,9,40,9,45,9(EhЖ 0,11,5,11,10,11,15,11,20,11,25,11,30,11,35,11,40,11,45,11(ЕnЖ 0,13,5,13,10,13,15,13,20,13,25,13,30,13,35,13,40,13,45,13(┼pЖ 0,15,5,15,10,15,15,15,20,15,25,15,30,15,35,15,40,15,45,15)rЖ 0,17,5,17,10,17,15,17,20,17,25,17,30,17,35,17,40,17,45,17)EtЖ 0,19,5,19,10,19,15,19,20,19,25,19,30,19,35,19,40,19,45,19)ЕxЖ 0,21,5,21,10,21,15,21,20,21,25,21,30,21,35,21,40,21,45,21)┼zЖ 0,23,5,23,10,23,15,23,20,23,25,23,30,23,35,23,40,23,45,23*|Ж 0,25,5,25,10,25,15,25,20,25,25,25,30,25,35,25,40,25,45,25*E~Ж 0,27,5,27,10,27,15,27,20,27,25,27,30,27,35,27,40,27,45,27*aАЖ 0,29,5,29,10,29,15,29*НМ:ГINPUT HALF LIFE TIME VARIABLE ********мЦЮ:З д7)"ENTER TIME FACTOR"*┤аЙ H*╜кЮ(0)*▐п:Г *** SET ALL DOTS BLUE ****ю┤А I│1 е 144+
╛Ь(X(I),Y(I),3)+	╚Л I+%═:Г *** MAIN ROUTINE ***+.╥ Я│0+I▄З@493,"TIME=" Б( Яо6);+WцI│ Д(144)+МыЕ  С(X(I),Y(I))│4 з З@493,"TIME=" Б( Яо6);:Бе240+єэR│ Д(H):Е R┤▓1з220 :Д N│Nл1:З@56,"X="N;:Ь(X(I),Y(I),4):З@493,"TIME=" Б( Яо6);:Е N│144 з 370 :Д 240,?ЁЕ N│72 ░ F┤1 з а100,1:F│1:З@120,"HALF ";:З@152,"LIFE ";:З@184, Б( Яо6);,Т·Е N│108 ░ F┤2 з а 150,1:F│2:З@216,"2ND HALF";:З@248,"LIFE    ";:З@280, Б( Яо6),х Е N│126 ░ F┤3 з а 200,1:F│3:З@312,"3RD HALF";:З@344,"LIFE    ";:З@376, Б( Яо6)-7

Е N│135 ░ F┤4 з а250,1:F│4:З@408,"4TH HALF";:З@440,"LIFE    ";:З@472, Б( Яо6)-A
JБе220-L
rБе 370╜:╗(71,141)м(96,154),╜:╗(96,154)м(96,180),╜:╗(96,154)м(119,141),╜:╗(119,128)м(132,134),╜:╗(132,134)м(156,122),╜-▀·A$│"V10O3L8FO3L8GO3CP100O3C"-№
B$│"O3L8DO3L8FO2B-P100B".                                                                                                                                                                                                                                                                 ╦&
Ю:Бе 1750&9Х250:Е  Ж(65314) ░1 зD│0 :ДD│м2:Бе810&├Ю3:Е Ж(65314) ░1 зD9│0:Бж1110:Т65314,13::ДЙ" I SEE A PRINTER ATTACHED, DO   YOU WANT OUTPUT TO PRINTER";A$:Е О(A$,1)│"Y"зD9│м2::ДD9│0'%(З#D9," THIS PROGRAM IS SIMPLY AN AID  TO HELP YOU KNOW WHAT TO DO IN  CASE OF NUCLEAR ATTACK.'L2З#D9:З#D9,"THERE ARE TWO SECTIONS.'Ь<З#D9,"  (1) TABLES WHICH HELP YOU TO  PLOT WHERE THE RADIATION WILL   FALL.'╪FЗ#D9,"  (2) EXPLAINATIONS OF HOW TO   PROTECT YOURSELF.'хNЕD9│м2зЮ(:PЗ#D9:З#D9,"DO YOU WANT WIND/FALLOUT TABLES":Й"";W$:З#D9, Л(13):Е О(W$,1)│"N"з190(xZЗ#D9," SINGLE PATTERN":Й"";Z$:З#D9:Е О(Z$,1)│"N"зZ│0:ДZ│1(┴dЗ#D9," SIZE BOMB IN MEGATONS (1,5,10,   OR 50)":Й"";S$:З#D9:S│ Й(S$)(сnЕS│1▒S│5▒S│10▒S│50з112:Д100)╩pЮ:З@67,"ANY RADIO STATIONS STILL ABLETO BROADCAST WILL TRANSMIT BOTH VALUABLE SURVIVAL INFORMATION   AND INFO ABOUT HEAVY RADIATION  IN YOUR AREA. IN CASE YOU CANNOTPICK UP BROADCASTS FOR YOUR AREAYOU SHOULD MAKE A GUESS AT WIND*qЗ"SPEED AND DIRECTION BASED ON THEWEATHER PATTERNS IN YOUR LOCALE.*sБж510*exЕZ│1зЗ#D9," WIND SPEED (MPH)":Й"";W$:З#D9:W│ Б( Й(W$)):ЕW┤0▒W▓300з120*┤ВЮ:З#D9:З#D9, Л(12)"     WIND/FALLOUT PATTERN":З#D9,"       "S"MEGATON BOMB*╚МЗ#D9, б(32,61);*▌ЦЕZ│0зАW│10е50й10*чаБж530*ёкБж510*№┤ЕZ│0зЛ+A╛З#D9,"DO YOU WANT PROTECTION METHODS ":Й"";Z$:Е О(Z$,1)│"N"з1000+z╚Ю:З#D9,"PROTECT AGAINST RADIOACTIVE DUST"; б(32,61);,c╦З#D9,"   IF YOU ARE CAUGHT OUTSIDE AT THE INSTANT OF THE EXPLOSION:   YOU MAY RECEIVE FLASH-BURNS AND TEMPORARY OR PERMANENT BLINDNESS  CLOSE YOUR EYES IMMEDIATELY ! THROW YOURSELF FACE-DOWN TO THE GROUND. PULL YOUR HOOD OR SOME,╛╠З#D9,"CLOTHING OVER YOUR HEAD,  FOLD  YOUR HANDS UNDER YOU. A CULVERT,DRAIN, EVEN A ";-9═З#D9,"SMALL GROUND SWELLCOULD PROTECT YOU. THE INFERNO  OF THE FIREBALL WILL LAST FROM  ONE AND A HALF TO TWO MINUTES.-C╨Бж510-щ╤З#D9,"  A SEVERE DOUBLE SHOCKWAVE WILLFOLLOW AT ABOUT 5 SECONDS PER   MILE OF DISTANCE FROM BLAST (AT FIFTY MILES THIS EQUATES TO FOURMINUTES DELAY AFTER FLASH.).}╥З#D9,"   THE DUST WILL DESCEND FROM   ABOVE, AND COLLECT ON THE GROUNDTO BE STIRRED UP AS YOU WALK, ORBY PASSING MILITARY OR CIVILIAN VEHICLES./a▄З#D9,"   YOU SHOULD COVER YOUR MOUTH  WITH A HANDKERCHIEF OR ANY CLEANCLOTH YOU CAN BREATHE THROUGH.  THIS IS EVEN MORE IMPORTANT THANCOVERING UP YOUR BODY, AS ANY":Бж510:З#D9:З#D9,"RADIOACTIVE PARTICLES WHICH GET INSIDE ";/ГцЗ#D9,"YOUR BODY CAN LAY THERE0PЁЗ#D9," DOING DAMAGE FOR SEVERAL DAYS,  OR EVEN WEEKS. YOU SHOULD ALSO  COVER YOUR BODY AS MUCH AS YOU  CAN, AND WASH UPON REENTERING   YOUR SHELTER. IF WATER IS AT A  PREMIUM, AT LEAST BRUSH OFF...!";19єЗ#D9,"    IF YOU ARE WITHIN THE CROSS-WIND DISTANCE OF THE 10 ROENTGENPER HOUR ZONE, YOU ARE ALREADY  GETTING SOME RADIATION. YOU MUSTGET INSIDE AS FAST AS POSSIBLE. EVERY THREE FEET OF AIR OR THREEINCHES OF DIRT BETWEEN YOU AND1шїБж510:З#D9,"THE RADIATION CUTS THE LEVEL YOUARE GETTING IN HALF, SO RUN TO  THE CELLAR OR ANY CENTRAL ROOM  WITHOUT WINDOWS, COVER UP WITH ANY CLOTHES, BLANKETS, ETC. AND2╧ўЗ#D9,"WAIT. THE FIRST HOUR OR MORE THELEVEL OF RADIATION INCREASES TO MAXIMUM, THEN BEGINS TO DROP OFF SLOWLY. EVEN IF YOU HAD NO TIMETO DRAW WATER, YOU CAN STAY HID FOR AT LEAST A DAY, OR MORE.     DO NOT COME OUT IN THE OPEN2∙°З#D9,"  UNTIL YOU ABSOLUTELY HAVE TO!3	·Бж510:Бе7703
U│10:Р3"
V│8:U│8:Р30
V│7:U│7:Р3>
"V│6:U│6:Р3L
,U│5:V│5:Р3W
6U│32:Р3b
@U│25:Р3m
JU│22:Р3x
TU│19:Р3Г
^U│16:Р3О
hU│37:Р3Щ
rU│34:Р3д
|U│31:Р3п
ЖU│28:Р3║
РU│25:Р3╞
ЪU│104:Р3╤
дU│97:Р3▄
оU│91:Р3ч
╕U│85:Р3Є
┬U│80:Р41
╠ЕL│100зU│ Б(Uн10лV):U│ Б(Uн10о21м9):V│Uм Б(Uо10н10):U│Uо104l
╓ЕL│1000зU│ Б(Uн10лV):U│ Б(Uо11):V│Uм Б(Uо10н10):U│Uо104й
рЕL│3000зU│ Б(Uн10лV):U│ Б(Uо21л1):V│Uм Б(Uо10н10):U│Uо104ш
ъЕS▓5 ░L│3000зU│ Б(Uн10лV):U│ Б(Uо2):V│Uм Б(Uо10н10):U│Uо104ю
ЇР5D
■ЕD9│0 зЗ@480,"   PRESS ANY KEY TO CONTINUE:";::ДЗ#D9,"PRESS ANY KEY TO CONTINUE:"5XЕ Т│""з520:ДЮ:Р5yЗ#D9:З#D9," "W" M.P.H. WIND 5╔&З#D9,"LEVEL*UPWIND*CROSS*DOWN*MAXWIDTH":З#D9," R/HR   MI.   MI.   MI.   MI.60L│10:Бж570:L│100:Бж570:L│1000:Бж570:L│3000:Бж570:Р6
5ЕW┤5зW│56И:B│0:D│ Б(936н Б((Wл5)о10)):ЕS│10зD1│10:B│10:M│2420::ДЕS│1зD1│44:M│515::ДЕS│5зD1│15:B│5:M│1512::ДЕS│50зD1│3:B│15:M│80666ЮDD│Dн10:D│ Б(DоD1)6рNЕL│100зD│ Б(Dо2.7)::ДЕL│1000зD│ Б(Dо7.3)::ДЕL│3000зD│ Б(Dо13)6єXЕW┤5 ░L│1Бж5707/bM│MоW:ЕL│100зM│Mо1.9::ДЕL│1000зM│Mо4.7::ДЕL│3000зM│Mо117EgЕBл Б(Wо10)┤1зB│17пlV│0:B│Bл Б(Wо10):ИB Бж260,270,280,290,300,310,320,330,340,350,360,370,380,390,400,410,420,430,440,4508DvБж460:ЕL│10зC1│110:C2│350:C3│400:C4│1250::ДЕL│100зC1│47:C2│150:C3│180:C4│550::ДЕL│1000зC1│14:C2│46:C3│60:C4│175::ДЕL│3000зC1│4:C2│15:C3│16:C4│508RАЕS▓┤1з6608ЖКC│м110н(L│10)м47н(L│100)м14н(L│1000)м4н(L│3000)8ХФЕS▓┤10з6808╦ЮC│м400н(L│10)м180н(L│100)м60н(L│1000)м16н(L│3000)8┘иЕS▓┤5з7009▓C│м350н(L│10)м150н(L│100)м46н(L│1000)м15н(L│3000)9╝ЕS▓┤50з7209V╞C│м1250н(L│10)м550н(L│100)м175н(L│1000)м50н(L│3000)9a╨C│Cо109n┌ЕM│0зM│19фЕW┤5зU│C:V│E9ЧщЕU▓C зC1│U:U│C:C│C1:юЗ#D9,═" ####";L;:З#D9,═" ###.#";U;:З#D9,═" ###.#";C;:З#D9,═" #####";D;:ЕM▓│10зЗ#D9,═"  ####";M::ДЗ#D9,═"    ##.#";M:°Р;З#D9,"IF YOU HAVE PRIOR WARNING THAT  A NUCLEAR EXPLOSION IS IMMINENT,  DRAW WATER",,"  IF YOU HAVE A CELLAR, GO OUT  AND SHOVEL DIRT, GRAVEL, ETC.   AROUND THE FOUNDATION AND BACK- FILL OVER WINDOWS. DRAG BOARDS, MATTRESSES, OR ANYTHING TO ;·З#D9,"FLOOR OVER YOUR SHELTER AREA, TOCUT DOWN RADIATION.","  IF YOU ARE GOING TO WAIT IN A CLOSET, PICK ONE NEAR THE CENTEROF THE HOUSE, PULL MATTRESSES OROTHER HEAVY FURNITURE AROUND IT.":Бж510:З#D9,"LAYING IN A BATHTUB WITH A TABLE<eЗ#D9,"OR HEAVY MATTRESS OVER IT MIGHT PROTECT YOU IF THE HOUSE SHOULD COLLAPSE DURING THE SHOCK-WAVE."=OЗ#D9,"BUT IS NOT SUFFICIENT AGAINST   THE RADIATION (FALLOUT). AFTER  THE SHOCK-WAVE, IF YOUR HOUSE ISDESTROYED, RUN TO A NEIGHBOR'S, OR ANY PUBLIC FALLOUT SHELTER IFLESS THAN A MINUTE OR TWO AWAY..   BUT GET AS FAR FROM THE DUST=ЩЗ#D9,"FALLING OUT OF THE SKY AS YOU    CAN.",,"    GOOD LUCK !":Бж510=дБе1000=к К=│*Ю:З"=┌4З:З"  CALCULATING PROGRAM LOCATION>>:ГPOKE150,174:'THIS POKE SETS BAUD RATE FOR SILENT 700 PRINTER>:HX1│ Ж(116)н256л Ж(117)л1>URX2│ Ж(39)н256л Ж(40)л1>b\X3│X1мX2>haП>}fНA$:ЕA$▓┤"^"з870>ЕpНA$>ЫzЕ О(A$,1)│"^"з880>нДЕA$│"END"з920>╜ОX│Xл1:Бе880>╬ШЕ X3│0 з 950?4вЗ:З"I SEE RESERVED MEMORY...BUT THIS IS A high priority PROGRAM, SO THEY ARE GONE NOW, SORRY...!"?^мЗ:АM│1е15:╔"L255O4CDEFGABO5BAGFEDC":Л?s╢X2│X1мX:Х 200,X2?Б└Т&H167,57?Э╩П:X│ Ж(39)н256л Ж(40)л1?╛╘З"   ONE  MOMENT, PLEASE...!?╔▐Бе1560?╧шО?╒VР?▄:Г?у:Г?ыНA$@"Е  О(A$,1)┤▓"^" з1590@,MR(Y)│X:Y│Yл1:Бе1560@16ЕA$│"END"з1610@L@ТX, Й(A$):X│Xл1:Бе1560@ЗJЖ ^,52,22,214,111,193,254,38,2,141,5,53,22,126,130,115@╚TЖ 129,13,38,27,124,3,249,246,3,249,241,3,252,37,12,246,3,251@√^Ж 189,162,133,90,38,250,127,3,249,127,3,250,57AThЖ 129,12,38,20,125,3,249,39,14,134,13,189,162,133,141,213,125,3,249,38,246,134,12,57B	rЖ 124,3,250,246,3,250,241,3,253,37,36,129,48,37,7,192,10,241,3,253,37,25,134,13,141,22,141,177,246,3,255,247,3,250,39,8,134,32,189,162,133,90,38,250,18,18,57,57,126,162,133,ENDB7|Т&H168, Б(MR(0)о256):Т(&H169),MR(0) ░ 255B`ЪТ&H3FB,8:Т&H3FC,25:Т&H3F9,0:Т&H3FA,0BmдТ&H3FF,0B{оТ&H3FD,32BЛ╕Т&H167,&H7EBг┬Ж 141,3,126,142,144Bл├:Г^B║╠D│2:Ю:Бе30B╩╓╚0:└2:Бе 203350BЄ╨АY│1еX:ЕSE$│S$(Y)з4000:Д3350CфАY│1еX:Е                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ЮЮ
Х 5001:ГSPECIAL POWER OF ATTORNEYO:ГBY GLENN B KNIGHT, 1982rЗ "THIS PROGRAM WILL CREATE A"ШЗ "SPECIAL POWER OF ATTORNEY FOR"╢#З "ONE OF FIVE PURPOSES."╝(Зт-З "IT HAS BEEN PREPARED WITH THE"2З "AID OF AN ATTORNEY AND SHOULD".7З "BE SUITABLE--WHEN NOTARIZED--"N<З "FOR GENERAL APPLICATION"TAЗvFЗ "IF THIS DOCUMENT DOES NOT"ЬKЗ "APPEAR DIRECTLY APPLICABLE TO"┐PЗ "YOUR PARTICULAR SITUATION,"▄UЗ "CONSULT AN ATTORNEY."тZЗ _Й "PRESS [ENTER] WHEN READY";E$ dЮ iЗ .nЗ "TURN ON PRINTER AND" Bs "ALIGN PAPER" HxЗ l}Й "PRESS [ENTER] WHEN READY";F$ }ВЗ "STAND BY" ОЗЗ#м2,  Л(31) ┤МЗ#м2, "SPECIAL POWER OF ATTORNEY" ┼СЗ#м2,  Л(30) ┘ЦЗ#м2,  б(80,42)!ЫЙ "NAME OF PERSON(S) GRANTING POA";N$!аЗ "STREET ADDRESS"!#еЙ A$!3кЙ "CITY";T$!EпЙ "COUNTY";C$!V┤Й "STATE";S$!s╣З "NAME OF APPOINTEE(S)"!}╛Й AN$!Ф├З "STREET ADDRESS"!Ю╚Й AA$!п═Й "CITY";AT$!┬╥Й "COUNTY";AC$!╘╫Й "STATE";AS$!я▄З "DATE POA TO EXPIRE""сЗ "(DAY MONTH YEAR)""цЙ D$"ыЮ"@ЁЗ "SELECT TYPE OF POWER OF ATTORNEY""TїЗ "A=SELL AUTO""l·З "B=REGISTER AUTO""Н З "C=MEDICAL CARE FOR CHILD""й
З "D=LEASE REAL ESTATE""╟
	Й "E=SELL REAL ESTATE";P$"█
Е P$│"A" Бе 800"я
Е P$│"B" Бе 900#
Е P$│"C" Бе 1100#
Е P$│"D" Бе 1200#.
"Е P$│"E" Бе 1300#9
'
е 240#]
,Ю:З "PRINTING, PLEASE STAND BY"#Ъ
1З#м2, "KNOW ALL MEN BY THESE PRESENTS, that I, ";N$;"//"#╦
6З#м2, "a legal resident of ";A$;", ";T$;"//"#·
;З#м2, "County of ";C$;" State of ";S$;"//"$Q
@З#м2, "desiring to execute a SPECIAL POWER OF ATTORNEY have made, constituted and"$Ю
EЗ#м2, "appointed, and by these presents do make, constitute and appoint"$╬
JЗ#м2, AN$;" whose address is ";AA$;", ";AT$$·
OЗ#м2, "County of ";AC$;" State of ";AS$%N
TЗ#м2, "my Attorney-in-Fact to act as follows, GIVING AND GRANTING unto my said"%r
YЗ#м2, "attorney full power to:"%x
^Р%Ф
cЗ "(DO NOT USE COMMAS)"%Ъ
hР%ы
РЗ#м2, "FURTHER, I do authorize my aforesaid Attorney-in-Fact to perform all"&?
ХЗ#м2, "necessary acts in the execution of the aforesaid authorization with the"&В
ЪЗ#м2, "same validity as I could effect if personally present."&▄
ЯЗ#м2, "Any act or thing lawfully done hereunder by my said attorney shall be binding"'0
дЗ#м2, "on myself and my heirs, legal and personal representatives, and assigns"'З
йЗ#м2, "PROVIDED, however, that all business transacted hereunder for me or for my"'┘
оЗ#м2, "account shall be transacted in my name, and that all indorsements and"(2
│З#м2, "instruments executed by my said attorney for the purpose of carrying out the"(В
╕З#м2, "foregoing powers shall contain my name, followed by that of my said"(┐
╜З#м2, "attorney and the designation 'Attorney-in-Fact'.")
┬З#м2, "FURTHER, unless sooner revoked or terminated by me, this Special Power of")\
╟З#м2, "Attorney shall become NULL and VOID from and after ";D$;".")▒
╠З#м2, "IN WITNESS WHEREOF, I have hereunto set my hand and seal this     day of")╘
╤З#м2, "              19     .")р
╓З#м2,""*8
█З#м2, "WITNESS┼S:                             ------------------------------(SEAL)"*D
рЗ#м2,""*{
хЗ#м2, "------------------------------         ";A$*З
ъЗ#м2,""*╞
яЗ#м2, "------------------------------         ";T$;", ";S$*╥
ЇЗ#м2,""*¤
∙З#м2, "------------------------------"+XЮ+*]З "DO YOU WISH TO HAVE THE NOTARY"+FbЗ "STATEMENT ATTACHED?"+XgЙ "Y OR N";Q$+mlЕ Q$│"N" Бе 2000+yqЗ#м2,""+НvЗ#м2,  б(80,42)+д{З "NAME OF NOTARY"+оАЙ NN$+╩Е "STATE OF COMMISSION"+╘КЙ NS$+уПЗ "COUNTY"+эФЙ NC$,
ЩЗ "DATE COMMISSION EXPIRES",&ЮЗ "(DAY MONTH YEAR)",0гЙ NE$,TВиЮ:З "PRINTING, PLEASE STAND BY",nнЗ#м2, "State of ";NS$,Й▓З#м2, "County of ";NC$,├╖З#м2, "I, ";NN$;д35);"a Notary Public in and for the"-╝З#м2, "County and State aforesaid, do hereby certify that on the     day of"-V┴З#м2, "           , 19    , before me personally appeared";N$-░╞З#м2, "who is known by me to be the identical person who is described in, whose name".╦З#м2, "is subscribed to, and who signed and executed the foregoing instrument, and".d╨З#м2, "having first made known to him the contents thereof, he personally acknowledged".└╒З#м2, "to me that he signed and sealed the same on the date it bears as his true, free"/┌З#м2, "and voluntary act and deed for the uses, purposes and considerations therein"/0▀З#м2, "set forth."/ГфЗ#м2, "In Witness Whereof, I have hereunto set my hand and official seal this"/гщЗ#м2, "day and year above."/пюЗ#м2,""/╗sЗ#м2,""/╟°З#м2,""0¤З#м2, "                                  ----------------------------------------"0bЗ#м2, "                                  "NN$;", Notary Public"0КЗ#м2, "My Commission Expires: ";NE$0ЦБе 20000Ь Ю0╕%З "POA TO SELL AN AUTO"0├*Бж 3550щ/З "MINIMUM PRICE YOU WILL ACCEPT"0ї4Й "$";S1
9Бж 10001
>Бж 300 1ICЗ#м2, "Sell, in my name, for a price not less than $";S1МHЗ#м2, "a vehicle described as: ";SA$;" ";SB$;", ";SC$;", ";SD$1▒MЗ#м2, "VIN ";SE$;" ENGINE # "SF$2RЗ#м2, "and to transfer title thereto.  I further authorize my Attorney-in-Fact"2YWЗ#м2, "to do and perform any and all acts necessary in connection with renewal"2к\З#м2, "or cancellation, in my name, of the registration and/or insurance of"2╟aЗ#м2, "said automobile."2╥fБе 4002╪ДЮ2їЙЗ "POA TO REGISTER AUTO"3ОБж 3553УБж 10003.ШЗ "STATE TO BE REGISTERED IN"38Э	 RG$3CвБж 3003КзЗ#м2, "Register, in my name, the following described automobile: "3▓мЗ#м2, SA$;" ";SB$;", ";SC$;", ";SD$3╪▒З#м2, "VIN ";SE$;" ENGINE # ";SF$3¤╢З#м2, "in the state of ";RG$;"."4╗Бе 4004!шЗ "DESCRIBE VEHICLE"48эЙ "MODEL YEAR";SA$4QЄЙ "MANUFACTURER";SB$4bўЙ "TYPE";SC$4t№Й "COLOR";SD$4О
Й "VEHICLE ID NO";SE$4дЙ "ENGINE NO";SF$4кР4░LЮ4╒QЗ "POA FOR CHILD'S MEDICAL CARE"4рVБж 3554■[З "NAME(S) OF CHILD(REN)"5`Й MA$5eБж 3005^jЗ#м2, "Authorize and execute consent for any and all medical care and"5▓oЗ#м2, "treatment, including major surgery, deemed necessary by a duly licensed"6tЗ#м2, "physician selected by my Attorney-in-Fact for the health and well being of my"6=yЗ#м2, "following named child(ren): ";MA$;"."6H~Бе 4006N░Ю6s╡З "POA FOR LEASE OF REAL ESTATE"6~║Бж 3556Ъ┐З "ADDRESS OF PROPERTY"6д─Й LA$6╠╔З "MINIMUM ACCEPTABLE RENT PER MO."6╪╬Й "$";L6у╙Бж 3007<╪З#м2, "Enter upon and take posession of the following  described property, together"7k▌З#м2, "with all improvemens thereon: ";LA$7┬тЗ#м2, "to lease the same upon terms acceptable to my Attorney-in-Fact (but in  no"8чЗ#м2, "event shall such rental be less than $";L;" per month);"8^ьЗ#м2, "to collect, receive and deposit to my credit the rents or income therefrom;"8лёЗ#м2, "and to manage and repair the stuctures and improvements thereon."8╢ЎБе 4008╝Ю8▄З "POA TO SELL REAL ESTATE"8чБж 3559#З "MINIMUM ACCEPTABLE PRICE"9(Й "$";P93-З "ADDRESS OF REAL ESTATE"9=2Й PA$9f7З "LEGAL DESCRIPTION OF REAL ESTATE"9p<Й PB$9{AБж 3009└FЗ#м2, "Sell and convey in fee the following described property,":KЗ#м2, "together with all improvements thereon, for such amounts as he":RPЗ#м2, "in his judgment deems advisaтle, but not less than $";P;":":`UЗ#м2, PA$:nZЗ#м2, PB$:y_Бе 400:ПxЮ:З "ALIGN PAPER":│}Й "PRESS [ENTER] WHEN READY";O$:─ВЗ#м2,  Л(31):ъЗЗ#м2, "SPECIAL POWER OF ATTORNEY":√МЗ#м2,  Л(30);СЗ#м2,  б(80,42);#▄Е P$│"A" Бе 830;7сЕ P$│"B" Бе 930;LцЕ P$│"C" Бе 1125;aыЕ P$│"D" Бе 1235;vЁЕ P$│"E" Бе 1345;|╨Ю;г╒З "YOUR SPECIAL POWER OF ATTORNEY";╟┌З "HAS BEENаPRINTED.  YOU MUST";ю▀З "HAVE IT NOTARIZED TO BE LEGAL.";ЇфЗ<щЗ#м2,  б(80,42)<*юЗ "DO YOU WANT ANOTHER COPY?"<>єЙ "(Y OR N)";W$<T°Е W$│"Y" Б е 1400<Z¤Ю<~З@197, "IT HAS BEEN A PLEASURE"<ЧЗ@265, "SERVING YOU"<ЭК PRINTING  *** ";D╚
ЭЕI$│"B"зP│1:Бе3495D▐
вЕI$│"C"зP│2:Д3480DЄ
зЕTE$│"ALL"з3200E
мАY│1еX:─                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ╝&

Х500&-:Г****************************&X:ГSCREEN CONTROL BY R.ROBERTS     8/82&{(:Г****************************&Б2Ю'i<Z$│"LINES 20 THROUGH 130 ARE NOT NEEDED FOR THE SUBROUTINE. THEY DEMONSTRATE HOW THE SUBROUTINE WORKS. THE FIRST TIME THIS STRING APPEARS IT IS SHOWN AS IF PRINTED BY A PRINT STATEMENT. THE SECOND TIME IS THE SUBROUTINE'S WORK.'yFЗZ$:З:Бж140'ГPБж310(ВZZ$│"THIS STRING CONTAINS 245 CHARACTERS AND FILLS ABOUT 8 SCREEN LINES. ONE STRING THIS SIZE WILL FILL ABOUT HALF THE SCREEN. USING THIS SUBROUTINE ELIMINATES THE NEED FOR SEVERAL PRINT STATEMENTS IN A PROGRAM JUST TO ASSURE PROPER SPACING AND FORMAT)dБж140:Бж310:Z$│"DO YOU KNOW THAT YOU DON'T HAVE TO PUT A QUOTATION MARK AT THE END OF A STRING IF IT WILL BE THE LAST CHARACTER IN THE LINE?":Бж140)╩nZ$│"NEXT A DEMONSTRATION OF HOW A LINE CAN BE PUT AT THE END OF THE PRECEEDING LINE OR HOW IT CAN START A NEW LINE. THE DIFFERENCE BEING WHICH LINE THE GOSUB CALLS.":Бж150*>xZ$│"THIS IS AN ADD ON LINE THE FIRST TIME IT APPEARS. THE SECOND TIME IT STANDS ALONE.":T$│Z$:Бж140:Z$│T$:Бж140*HВБе130*eМZW│1 :Г***HERE FOR PRINT*ЭЦЕ Ъ(0)┤▓0░ О(Z$,1)┤▓" " зЗ" "; :Г***HERE FOR PRINT;*╩аЕ Ъ(0)│0░ О(Z$,1)│" "зZ$│ П(Z$, З(Z$)м1)*┌кZL│32м Ъ(0)*ш┤ZS│ З(Z$)+	╛Е ZS┤│ZL зZZ$│Z$:Бж290:Бе270+V╚Е  Р(Z$,ZL,1)│" " ▒ Р(Z$,ZLл1,1)│" " зZZ$│ О(Z$,ZL):Бж290:ZR│ZSмZL :Д220+m╥Z$│ П(Z$,ZR):Бе150+В▄А ZR│ZL е 1 й м1+┐цЕ  Р(Z$,ZR,1)│" "зZZ$│ О(Z$,ZR):Бж290:ZR│ З(Z$)мZR:Бе210+╟ЁЛZR+√·Е256н Ж(136)л Ж(137)л З(ZZ$)┤1503 зЗ Л(8):Бе150,
Бж310:Бе150,
Е ZW│0 зР,N
ZW│0:Е256н Ж(136)л Ж(137)▓1503 зР :ДЗ" "; Л(8):Р,{
"Е256н Ж(136)л Ж(137)л З(ZZ$)▓1512 зБж310,З
,ЗZZ$;:Р,╗
6З@490,"hit enter to continue";:а200,1:╗ЙZI$:Ю:РD2$(X) з PO│1,ЇоЛ X:Е PO│1 з 1720 :Д Бж 3820:Бе 1630-
╕З@EMл3                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 @&
Ю&&З"        ****ONE WAY****"&NЗ"******ANALYSIS OF VARIANCE******"&kЗ"           WRITTEN BY"&ЙЗ"          SAM SHERRILL"&й#З"        3578 ZUMSTEIN AVE&╦(З"      CINCINNATI, OH 45208"&у-А TM│1 е 750:Л TM:Ю&°2В **DATA INPUT**'7З"NUMBER OF SAMPLES":Й SP'%<А I│1 е SP'dAЗ"NUMBER OF MEASURES FOR SAMPLE   NUMBER";I:Й N:А JN│1 е N'vFЗ"MEASURE";JN'~KЙ A'НPА KN│1 е A'еUВ **DATA ANALYSIS**'пZP│PлA'╗_M│MлAп2'─dЛ JN'╬iR│PоN'┘nБж 500'уsC│CлP'эxD│DлN'¤}V│(MмNнRп2)(ВW│WлV(ЗM│0:N│0:R│0:P│0(#МЛ I()СЮ(4ЦZG│CоD(AЫQ│DнZGп2(LаU│EнZG(mеB│(HлQ)лU:Е H│Q з 170 :Д 175)7кЗ"THERE IS LITTLE OR NO VARIATION AMONG THE"SP"SAMPLES: THUS, THE  VALUE OF F IS CLOSE TO 0.  THE  NULL HYPOTHESIS WHICH ASSERTS   THERE ARE NO DIFFERENCES AMONG  THE SAMPLES IS ACCEPTABLE.":Бе 410)FпO│Bо(SPм1))j┤W1│Wо(DмSP):Е W1▓0 з 190 :Д 185)╬╣З"THERE IS NO WITHIN-SAMPLE       VARIATION: THUS, THE F-RATIO    CANNOT BE CALCULATED.":Бе 410)я╛F│OоW1:Е F┤.001 з 170 :Д 195)·├SS│BлW*╚D1│SPм1:D2│DмSP*═S│D1* ╥T│D2*+╫DF│SлT*3▄Z│F*?сJ│2о9оS*KцK│2о9оT*wыY│ В((1мK)нZп(1о3)м1лJ)о Ы(KнZп(2о3)лJ)*ЭЁЕ T┤4 з Y│Yн(1л.08нYп4оTп3):Д 245*┌їX│.5о(1лYн(.196854лYн(.115194лYн(.000344лYн.019527))))п4*ї·X│ Б(Xн10000л.5)о10000*  X│1мX+"
В **RESULTS OF DATA ANALYSIS**+I
	З"THE PROBABILITY AN F-VALUE OF ";+_
З═"######.###";F;+И
З" WOULD OCCUR BY CHANCE  IS "1мX"."+╩
З"THE TRADITIONAL SIGNIFICANCE    LEVELS ARE .05, .01, .001."+ц
Е 1мX▓ .05 з 300 :Д 290,
"Е 1мX ┤ .001 з 310 :Д 295,&
'Е .05 ▓│1мX ▒ 1мX│▓.001 з 315,Ш
,З"BY THESE STANDARDS, THE F-VALUE ABOVE IS NOT SIGNIFICANT AND    NEITHER ARE THE DIFFERENCES     AMONG THE";,Ў
1З═"##";SP;:З" SAMPLES; THUS, THE  NULL HYPOTHESIS OF NO DIFFERENCEIS ACCEPTABLE.": Бе 320-Ы
6З"BY THESE STANDARDS, THE F-VALUE ABOVE IS SIGNIFICANT, AS ARE THEDIFFERENCES AMONG THE";:З═"##";SP;:З" SAMPLES;THUS, THE NULL HYPOTHESIS IS RE-JECTED.": Бе 320.Т
;З"BY THESE STANDARDS, THE F-VALUE ABOVE MAY OR MAY NOT BE SIGNIFI-CANT SINCE THE PROBABILITY OF   ITS OCCURENCE FALLS BETWEEN .05 AND .001. YOU MAY WISH TO WITH- HOLD JUDGMENT REGARDING THE     ACCEPTANCE OR REJECTION OF THE  NULL HYPOTHESIS..╟
@З"*PRESS ANY KEY FOR A DISPLAY OF THE RESULTS.*".щ
EA$│ Т: Е A$┤▓"" Бе 340 :Д 330.Ї
JБе 325/
OВ **RESULTS IN TABULAR FORM**/
TЮ/7
YЗд12)"SUMS OF SQUARES"/T
^З@32,"TOTAL";:Зд11)"";SS/p
cЗ@64,"AMONG";:Зд11)"";B/Н
hЗ@96,"WITHIN";:Зд11)"";W/│
mЗ@128,;:Зд12)"DEGREES OF FREEDOM"/╤
rЗ@160,"TOTAL";:Зд11)"";DF/ю
wЗ@192,"AMONG";:Зд11)"";S0
|З@224,"WITHIN";:Зд11)"";T04
БЗ@256,;:Зд12)"ESTIMATE OF VARIANCE"0Q
ЖЗ@288,"AMONG";:Зд11)"";O0p
ЛЗ@320,"WITHIN";:Зд11)"";W10П
РЗ@352,"F-RATIO";:Зд11)"";F0░
ХЗ@384,"PROB(F)";:Зд11)"";1мX1
ЪЗ"*DO YOU WISH TO RUN THE PROGRAM AGAIN: Y OR N?*": Й L$: Е L$│"Y" з 415 :Д 4201

ЯО1
дК1"
ЇG│NнRп2:H│HлG1/
∙L│м2нNнR19
■E│EлL1?Р1fШЗ" MON  PRESENT  PREVIOUS  USED"1вL7│101:L8│110:L9│1201СмЗ C7$:Бж 37901а╢А X│1 е 121п└А Y│1 е 121╥╩Е E1$(Y)│D2$(X) з 2260 :Д 22901ё╘З@L7л2,"";:З═"#####";E5(Y)2▐З@L8л3,""                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 '&dВ *** INPUT DATA ***& nЮ&1xЙ "HEIGHT";H&AВЙ "WIDTH";W&SМЙ "X,Y";X0,Y0&ZЦ:Г&~╚В *** SET SCREEN; DRAW AXES ***&И╥╚ 4,1&П▄╝1&Щц┴ 0,1&▓Ё╗(0,181)м(255,181),╜&╟·╗(0,0)м(0,181),╜&╤
┐ 1,0&▌
Бж 2040&Ў
"Е  Т│"" з 290 :Д 110&¤
,:Г'╨В *** DEFRECTSUB ***';┌В REQUIRES X0,Y0 THE COORDINATES'ZфВ   OF ONE CORNER AND USES'xюВ   DRAWSUB1 AND DRAWSUB2'С°Бж 3030  :ГDRAW AXES'пX1│X0:Y1│Y0:X2│X0лW:Y2│Y1'╚Бж 3540  :ГDRAW LINE'╫Y2│Y0м.8нH'у Бж 3540'э*X2│X0'∙4Бж 3540(>Y2│Y0(HБж 3540(RР(\:Г(3╕В *** DRAWSUB1 ***(P┬В SETS LOWER LEFT CORNER(e╠В   OF RECTANGLE(А╓Y0│181м.8нY0: ╜(X0,Y0)(ЖрР(Нъ:Г(д
мВ *** DRAWSUB2 ***(└
╢В DRAWS LINE FROM X1,Y1(┌
└В   TO X2,Y2 AND SETS(°
╩В   X1 TO X2 AND Y1 TO Y2)
╘╗(X1,Y1)м(X2,Y2),╜) 
▐X1│X2: Y1│Y2)&
шРNE FROM X1,Y1)P
└В   TO X2,Y2 AND SETS)n
╩В   X1 TO X2 AND Y1 TO Y2)Е
╘╗(X1,Y1)м(X2,Y2),╜)Ц
▐X1│X2: Y1│Y2)Ь
шРS, THE F-RATIO    CANNOT BE CALCULATED.":Бе 410)я╛F│OоW1:Е F┤.001 з 170 :Д 195)·├SS│BлW*╚                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Э&
Т359,13:┐0,1&XЮ0:Т65495,0:АH│1024е1535:ТH,63:ЛH:Т65494,0:З@234,"CONSEQUENCES!";&ЮЗ@453,"BY T. AND R. DELBOURGO";:╔"O3L10CCL5EL10EEL5GL10GGL5O4CP1"&▀Х4500:Ю0:Й"enter THE NUMBER OF PLAYERS     (MAXIMUM OF 8)";N&ьМS$(N,8)& АP│1еN:Бж35:ЛP'WЮ0:З"IF YOU ARE READY NOW, I WILL    MIX UP THE STORIES AND THEIR    CONSEQUENCES."'▓З(Nм1)"DIFFERENT MIXED-UP SETS OF"N"STORIES FOLLOW:":З@448,"PRESS ANY KEY TO CONTINUE"'┼	I$│ Т:ЕI$│""з9'▐
АU│0 е Nм2:АP│1еN:Ю0(MR│PмNн Б((Pм1)оN):L│Pл1лUмNн Б((PлU)оN):З@0, Л(127л16нR)лS$(R,1)л" MET "л Л(127л16нL)лS$(L,2):а89,3:а108,3(дАQ│3е4:L│QлPл(Qм1)нUм1мNн Б((QлPлQнUмUм2)оN):З Л(127лLн16)лS$(L,Q):а101л8нQ,3:ЛQ:З(э
K│Pл4л4нUмNн Б((Pл3л4нU)оN):З Л(Kн16л127)л"HE SAID: "лS$(K,5):а147,3)9K│Pл5л5нUмNн Б((Pл4л5нU)оN):З Л(16нKл127)л"SHE SAID: "лS$(K,6):З:а159,3)ОАQ│7е8:L│QлPл(Qм1)нUм1мNн Б((QлPлQнUмUм2)оN):З Л(127лLн16)лS$(L,Q):а128л6нQ,3:ЛQ)╬З@448,"PRESS ANY KEY TO CONTINUE":З@488,"PRESS P TO PRINT";)тI$│ Т:ЕI$│""з17)єЕI$│"P"зБж45)№ЛP,U*5Ю0:З"DO YOU WANT TO SEE THE ORIGINAL STORIES? (Y/N)"*II$│ Т:ЕI$│""з21*ZЕI$│"Y"зБе25*kЕI$│"N"зБе30*tБе21*ЭАP│1еN:Ю(P):З"PLAYER"P"'S STORY:-":З*╬ЗS$(P,1)л" MET "лS$(P,2):ЗS$(P,3):ЗS$(P,4):З* З"HE SAID: "лS$(P,5):З"SHE SAID: "лS$(P,6):З++ЗS$(P,7):ЗS$(P,8):аPн30,10:АJ│1е4000:ЛJ+2ЛP+[Ю0:З@228,"MORE CONSEQUENCES? (Y/N)";+oA$│ Т:ЕA$│""з31+} ЕA$│"Y"зО+е!ЕA$│"N"з Ю0:З@224,"THE END.....";:К+о"Бе31+┬#Ю(P):З"PLAYER"P+є$╗Й"enter NAME OF MALE CHARACTER :  ";S$(P,1),&%З:╗Й"enter NAME OF FEMALE CHARACTER :";S$(P,2),Y&З:╗Й"WHERE DID THEY MEET ?           ";S$(P,3),М'З:╗Й"DESCRIBE THE SCENE :            ";S$(P,4),┐(З:╗Й"WHAT DID HE SAY ?               ";S$(P,5),Є)З:╗Й"WHAT DID SHE SAY ?              ";S$(P,6)-%*З:╗Й"WHAT WAS THE CONSEQUENCE ?      ";S$(P,7)-X+З:╗Й"WHAT IS THE MORAL OF THE STORY ?";S$(P,8)-^,Р-д-З#м2:З#м2,S$(PмNн Б((Pм1)оN),1)л" MET "лS$(Pл1лUмNн Б((PлU)оN),2)-х.АQ│3е4:L│QлPл(Qм1)нUм1мNн Б((QлPлQнUмUм2)оN):З#м2,S$(L,Q):ЛQ./З#м2,"HE SAID: "лS$(Pл4л4нUмNн Б((Pл3л4нU)оN),5).P0З#м2,"SHE SAID: "лS$(Pл5л5нUмNн Б((Pл4л5нU)оN),6).С1АQ│7е8:L│QлPл(Qм1)нUм1мNн Б((QлPлQнUмUм2)оN):З#м2,S$(L,Q):ЛQ.Ь2З#м2:Р ANY KEY FOR A DISPLAY OF THE RESULTS.*".щ
EA$│ Т: Е A$┤▓"" Бе 340 :Д 330.Ї
JБе 325/
OВ **RE c&	
РЮ 8&/
ЇЗ@100,"DO YOU NEED INSTRUCTIONS";&N&З@263,"PRESS [Y] FOR YES";&mXЗ@327,"PRESS [N] FOR NO ";&xКII$│ Т&О╝Е II$│"" з Бе 500&еюЕ II$│"Y"з Бе 1000&╝ Е II$│"N"з Бе 4100&├шЮ3&╒LЗ  б(32,"X");&√░З@96,"     ****SUB------HUNT****"'З@192,"BY        *CARL SHELL*"'JxЗ@448,"REQUIRES*****EXTENDED BASIC-16K"'c▄А YYY│1 е 2000:Л YYY'|@Ю 3:З@32, б(32,"X");'зд      З@96,"[***]=     YOUR DESTROYER"'═З@192,"[G]=       MOVE SHIP LEFT"'ЇlЗ@288,"[H]=       MOVE SHIP RIGHT"(╨З@384,"[F]=       DEPTH CHARGES"(B4З@448,"   TO CONTINUE PRESS [ENTER]"([ШЕ  Т│""з 2200 :Д Ю 3(А№З@32,"       POINTS TO REMEMBER"(к	`З@96,"1-GAME IS 500 UNITS(SEC.) LONG"(╓	─З@160,"2-IF SUB GETS TO TOP L. -5 PTS."(√
(З@224,"3-EACH FLEET HAS 10 SUBS") 
МЗ@288,"4-EACH SUB WORTH 10 PTS.")F
ЁЗ@352,"5-EACH FLEET WORTH 50 PTS.)qTЗ@416,"6-TIME STOPS UNTIL CHARGES HIT")Ъ╕З@480,"   TO CONTINUE PRESS [ENTER]")┤Е  Т│"" з 3100 :Д Ю 3)▐АЗ@0," ************RATING************")¤фЗ@64,"  <   =   LESS THAN"*%
HЗ@128," 500 =   COMMANDER IN CHIEF"*M
мЗ@192,"<450 =   SECTRETARY OF NAVY"*rЗ@256,"<400 =   ADMIRAL OF NAVY"*ЧtЗ@320,"<300 =   FLEET COMMANDER"*╛╪З@384,"<200 =   DESTROYER CAPTAIN"*ч<З@448,"   PRESS ANY KEY TO C0NTINUE"+аЕ  Т│"" з 4000 :Д 4100+╚ 0,1:└ 1:Х 1000+"hQQ│501+-╠М P(9)+C0Ю 3:З  б(76,144);+XФЗ@44,"SUB-HUNT";+j╞А X│1 е 8:Л X+|°З  б(12,144);+О\З  б(32,227);+а╚З  б(96,159);+╗ИЗ@143, Л(158)л Л(157);+цТЗ@174, Л(156)л Л(144)л Л(144)л Л(156);+°ЬА R│174 е 186,
жА L│143 е 155,'А X│0 е 9,-'BP(X)│ Д(288)л221,?'tЕ X│0 з 10200,|'жА Q│0 е Xм1:Е P(X)│▓P(Q)л4 ▒ P(X)│┤P(Q)м4 з Л Q :Д 10050,Щ'╪З@ P(X), Л(172)л Л(164);,б(
Л X,п(<А X│0 е 9,─(nЕ P(X)│0 з 10600,╘(аP(X)│P(X)м1,¤(╥Е P(X)┤192 з З@192, Л(175);:Бе 10700-)З@ P(X)л2, Л(175);-1)6З@ P(X), Л(172)л Л(164);-9)hЛ X-T)ЪЕ A$┤▓"F" з 10750 :Д Р-Ж)╠З@ P(X)л2, Л(175);:XX│XXм5:P(X)│508: Бе 10500-Р)■A$│ Т-└*0QQ│QQм1:З@ 0,"SCORE=" XX ;: З@21,"TIME="QQ;-╙*bЕ QQ│0 з 12950.2*иЕ A$│"H"з З @96,  б(96,159);:З@Rл2, Л(156)л Л(144)л Л(144)л Л(156);:З@Lл2, Л(158)л Л(157);.M*▓Е A$│"H" з R│Rл2:L│Lл2.a*╝Е R┤162 з R│162.u*┴Е R▓186 з R│186.Й*╞Е L┤131 з L│131.Э*╦Е L▓155 з L│155.√*╨Е A$│"G" з З@96, б(96,159);:З@Rм2, Л(156)л Л(144)л Л(144)л Л(156);:З@Lм2, Л(158)л Л(157);/*┌Е A$│"G" з R│Rм2:L│Lм2/.*°Е A$│"F" з Бж 11300/;+└Бж 10300/H+ЄБе 10750/Q,$II│R/`,VА I│0 е 10/s,ИЕ I│10 з а 1,2/А,║II│IIл32/Х,ьЕ II▓511 з 12100/в-Бж 10300/└-PЗ@II, Л(173);:╔"T80;05;G"/═-ВА T│0 е9/ь-┤Е P(T)│II з 11750 :Д 117250
-═Е P(T)л1│II з 11750 :Д 119500-цБж 138000..Е Z│10  з 121500W.1З@R, Л(156)л Л(144)л Л(144)л Л(156);0p.6З@L, Л(158)л Л(157);0Ш.JP(T)│0:XX│XXл10:Z│Zл1:З@II, Л(175);0┤.|Е Z│10 з 12150 :Д 121000╝.оЛ T0╬.рЗ@II, Л(175);0╓/Л I0щ/DA$│"":Бе 103000ё/vZ│01/иЮ(0):З@224,"ALL SUBS DESTROYED!!"1@/┌З@32,"SCORE=" XX          "TIME=" QQ1c0А TM│1 е 15:╔"T45CDEFGAB":Л TM1{0>А YYY│1 е 800:Л YYY1К0pА AA│1 е 71┬0в╔"T75C;05C;01C;05C;01C;05C;01C;05C;01C;05C;01C;05C"2
0╘Ю 3:З@32,"       --BATTLE STATIONS--":З@128,"        ***A-L-E-R-T!***"21Л AA2A18Ю 3:З@128,"    ANOTHER FLEET ON RADAR"2i1jЗ@352,"     PREPARE DEPTH-CHARGES!"2Ц1ЬЗ@480," DESTROYED FLEET-BONUS-50 POINTS"2д1╬А YYY│1е82╖2а 110,3:а 10,42┴22Л YYY2╒2dXX│XXл50:Бе44002х2ЦА YYY│1 е 832╚Ю 3:З @64,"BATTLE IS OVER-ENEMY RETREATED!"3)2·а  1,3:а 110,103A3,А YYY│1 е 600:Л YYY3I3^Ю 33a3РА YYY│1 е 800:Л YYY3О3┬З@192,"**A REVIEW OF YOUR PERFORMANCE**"3ж3ЇА YYY│1 е 800:Л YYY3╨4&Е XX┤ 50 з З"STICK TO RAFTS":Бе 149003¤4XЕ XX┤100 з З"SAFE IN A ROW BOAT":Бе149004%4КЕ XX┤150 з З"DINGHY PILOT":Бе 149004L4╝Е XX┤200 з З"P.T.CREWMAN":Бе 149004y4юЕ XX┤300 з З"DESTROYER CAPTAIN":Бе 149004д5 Е XX┤400 з З"FLEET COMMANDER":Бе 149004╥5RЕ XX┤450 з З"ADMIRAL OF THE NAVY":Бе1490055ДЕ XX┤500 з З"SECRETARY OF THE NAVY":Бе149005$5╢З"COMMANDER-IN CHIEF":Бе149005-5шЮ(0)536╝5=6L┐ 1,15Q6~А I│ 2 е96 й 8 5q6░┬ (128,96),I:╔"T70CDEFGABC"5y6тЛ I5В7Ю(0)5й7FЗ@32,"     THAT WAS A DIRECT HIT!"5═7xЗ@160,"         GOOD SHOT MATE"5Ё7кЗ@384,"          YOU SUNK IT!"6,7▄╔"T99C;01C;05C;01C;05C;01C;05C;01C;05C;01C;05C;01C;05C"6:8А TM│1 е26c8@╔"T255CDEFGABCDEFGABCDEFGABCDEFGABC"6l8rЛ TM6Б8дА TT│1 е600:Л TT6Ч8╓Ю 3:З  б(76,144);6м9З@44,"SUB-HUNT";6╛9:З  б(12,144);6╨9lЗ  б(32,227);6т9ЮЗ  б(96,159);6ш:Р7:4A$│"T5;C;E;F;L1;G;P4;L4;C;E;F;L1;G"75:fB$│"P4;L4;C;E;F;L2;G;E;C;E;L1;D"7Z:ШC$│"P8;L4;E;E;D;L2.;C;L4;C;L2;E"7x:╩D$│"L4;G;G;G;L1;F;L4;E;F"7ж:№E$│"L2;G;E;L4;C;L8;D;D+;E;G;L4;A;L1;03;C"7─;.X$│"XA$;XB$;XC$;XD$;XE$;"7═;`╔ X$7¤;ТЮ 5:З@96,"**WOULD YOU LIKE TO PLAY AGAIN**"8#;─З@256,"        ENTER [Y] FOR YES"8H;ЎЗ@320,"        ENTER [N] FOR NO"8S<(II$│ Т8g<ZЕ II$│""з 153008}<МЕ II$│"N" з 156008У<╛Е II$│"Y" з 159508╦<Ё                 Ю 0:З@128,"         ***OK MATE***"8Ї="З@352,"    ***YOU ARE DISCHARGED***"9=TА YYY│1 е 4009=ЖЛ YYY9=╕Ю 091=ъА  YYY│1 е 100:Л YYY9>>Бе 156009D>NО9b>фЗ@256,"PRESS       ENTER"29ОъM1│M1л32:M2│M2л32:M3│M3л32:M4│M4л329ЭЇА Y│1 е 129└■Е W1$(Y)│D2$(X) з 3080 :Д 31209▐З@M1,"";:З═"$##.##";W2(Y)9¤З@M2л1,"";:З═"$#.##";W4(Y):                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 &1
:ГCADET TRAINER FOR 16K 80C BY JOHN FRAYSSE&Q:ГBOX 822 DAHLGREN VA.22448&ZБе60&╕(┬(B,C),2,1,1:╗(Bм6,Cл1)м(Bл6,Cл1),╜:╜(Bм8,Cл1,1):╜(Bл8,Cл1,1):╜(Bл2,Cм2,1):╜(Bм2,Cм2,1):Р&ш2А II│0е LN й2:╗(BлII,C)м(BлII,CлHT),╜:ЛII:Р',<Ю0:Т65495,0:АI│0е31й2:C│ Д(7)л1:АJ│0е63:Ь(J,I,C):ЛJ:ЛI:Т65494,0'╪FЗ@128,"         cadet trainer":З@192,"        by john fraysse":╔"L8;A;O4;L16;C;L4;C;O3;L16;B-;L16;A;L8;G;L4;A;L4;B-;L4;B;O4;L4;C;L8;D;L16;F;L4;F;L16;G;L16;F;L8;D;L4;C"(PЗ@288,"DO YOU NEED INSTRUCTIONS(Y/N)";:ЙZ$:ЕZ$│"N"з160)ZЮ:З"YOU ARE A SPACE CADET AT THE    ACADEMY. YOU ARE LEARNING TO USEYOUR PHOTON TORPEDOS. YOUR GOAL IS TO LOCK YOUR TORPEDO ON AND  GUIDE IT WITH THE RIGHT JOYSTICKTO A SPECIFIED PART OF THE      TARGET. THE FIRST DISPLAY IS THETARGET ";)╓dЗ"WITH YOUR AIM POINT SHOWNAS A  FLASHING CROSS. PRESS THE FIRE BUTTON TO DRAW YOUR DISPLAYSCREEN. THE ENEMY CRAFT WILL    APPEAR ONLY BRIEFLY DUE TO HIS  CLOAKING DEVICE.":Й"PRESS <ENTER> TO CONTINUE";Z$*nТ65495,0:АI│0е31й2:C│ Д(7)л1:АJ│0е63:Ь(J,I,C):Ь(J,Iл1,C):ЛJ:ЛI*ЇxЮ:З"YOU MUST GET THE CROSS HAIR TO  WITHIN 8 PIXELS OF THE TARGET'S LAST POSITION TO ACHIEVE A BOOSTINTO THE TARGET AREA. ONCE THIS HAS BEEN DONE YOU MUST GUIDE THETORPEDO TO ITS MARK. YOUR SCORE IS THE TOTAL OF ";+тВЗ"YOUR FIVE       LOCK-ON TIMES AND YOUR MISS     DISTANCES. THE LOWER YOUR TOTAL THE BETTER. DIFFICULTLY LEVELS  (1-5) INCREASE THE RATE AT WHICHTARGETS APPEAR AND SHORTEN YOUR HOMING TIME. LEVELS ABOVE 2 HAVEMANUEVERING TARGETS. ";,МЗ"GOOD LUCK! PRESS <ENTER> TO START";:ЙZ$,JЦАI│0е31й2:C│ Д(7)л1:АJ│0е63:Ь(J,I,C):Ь(J,Iл1,C):ЛJ:ЛI,ЦаЕ Ж(&H3EB9)┤▓&H32 зХ200,&H3EB0:АI│&H82B9 е&H831E:ТIм&H4400, Ж(I):Л:Д190,╣кАI│0е2:Т&H3EBDлI,18:Л:I│&H3F1E-┤ТI,&H26:ТIл1,3:ТIл2,&H7E:ТIл3,&H83:ТIл4,&H22:ТIл5,&H7E:ТIл6,&HA4:ТIл7,&H4C-╛Т&H19B,&H3E:О200-t╚Х10:М N(1),N1(1),A(155),AX(64),A1(64),A2(30),A3(13),XT(4),YT(4),A4(10),DX(4),DY(4).$╥Т65495,0:IT│0:MM│0:L│1:XT(0)│0:XT(1)│50:XT(2)│20:XT(3)│м20:XT(4)│м50:YT(0)│0:YT(1)│0:YT(2)│27:YT(3)│27:YT(4)│0:IT│0:IC│0:Ю0:З@225,"CADET TRAINER -";:Й"ENTER LEVEL";L:Бе250.О▄╝:╗(3,55)м(7,55),╜:╗(5,53)м(5,57),╜:─(3,53)м(7,57),N,G:╝:АI│0е90:B│ Д(252)л2:C│ Д(189)л2:╜(B,C,1):Л I/VцАI│0е10:B│ Д(245)л7:C│ Д(180)л7:┬(B,C), Д(3)л1,1,1:┬(B,C), Д(1)л1,1,1:ЛI:B│ Д(220)л17:C│ Д(165)л15:┬(B,C),10,1,1:┬(B,C),15,1,.25:┬(B,C),17,1,.25:B│Bм7:C│Cм7:HT│2:LN│14:Бж50:B│Bм3:C│Cл6:HT│2:LN│20/ЩЁБж50:B│Bл3:C│Cл6:HT│2:LN│14:Бж50:X│ Д(239)л8:Y│ Д(176)л8:Бе340/╢·╚4,1:╝:┐1,1:ЕL┤1▒L▓5зL│10q
┬(59,86),15,1,1,.5,1:┬(149,86),9,1,1,.5,1:┬(204,86),6,1,1,.5,1:┬(9,86),5,1,1:┬(109,86),5,1,1:┬(9,86),3,1,1:┬(109,86),3,1,1:┬(39,59),5,1,1:┬(79,59),5,1,1:┬(39,59),3,1,1:┬(79,59),3,1,11/
╗(49,76)м(59,86),╜:╗(59,86)м(69,76),╜:╗(14,85)м(44,85),╜:╗(74,85)м(104,85),╜:╗(14,87)м(104,87),╜:╗(58,71)м(58,54),╜:╗(60,71)м(60,54),╜:╗(44,58)м(74,58),╜:╗(44,60)м(74,60),╜:├(59,80),1,11ц
├(9,86),1,1:├(109,86),1,1:B│49:C│86:HT│5:LN│20:Бж50:┬(119,86),3,1,1:┬(134,69),3,1,1:┬(164,69),3,1,1:┬(179,86),3,1,1:╗(116,86)м(176,86),╜:╗(149,86)м(143,80),╜:╗(149,86)м(154,80),╜2н
"╗(137,69)м(161,69),╜:╗(149,77)м(149,66),╜:┬(119,86),1,1,1:┬(179,86),1,1,1:┬(134,69),2,1,1:┬(164,69),2,1,1:├(149,82),1,1:B│143:C│86:HT│3:LN│12:Бж50:┬(186,86),2,1,1:┬(194,75),2,1,1:┬(214,75),2,1,13r
,┬(222,86),2,1,1:╗(204,86)м(208,82),╜:╗(204,86)м(200,82),╜:╗(188,86)м(220,86),╜:╗(204,80)м(204,73),╜:╗(196,75)м(212,75),╜:├(204,83),1,1:B│200:C│86:HT│2:LN│8:Бж50:┬(227,86),1,1,1:┬(232,80),1,1,14
6┬(244,80),1,1,1:┬(249,86),1,1,1:╗(238,86)м(236,84),╜:╗(238,86)м(240,84),╜:╗(227,86)м(249,86),╜:╗(238,83)м(238,79),╜:╗(233,80)м(243,80),╜:╗(236,86)м(240,86),╜4u
@─(4,54)м(114,92),A,G:─(116,66)м(182,92),A1,G:─(184,72)м(224,92),A2,G:─(226,78)м(250,92),A3,G4у
J┬(XT(IT)л59,86мYT(IT)),2,1,1:┬(XT(IT)л59,86мYT(IT)),2,0,1:TI│0:IC│1:Е Ж(65280)│126▒ Ж(65280)│254з220:Д3305
TR│20оL:─(Xм2,Yм2)м(Xл2,Yл2),N1,G:Бе36057
^Бж40:─(Xм2,Yм2)м(Xл2,Yл2),N1,G:Бе4605╣
hX1│X:Y1│Y:X│ Н(0)н3.95л2:Y│ Н(1)н2.95л2:┼(X1м2,Y1м2)м(X1л2,Y1л2),N1,░:─(Xм2,Yм2)м(Xл2,Yл2),N1,G:┼(Xм2,Yм2)м(Xл2,Yл2),N,▒:аI,15╨
rЕ  Д(R)│2з380:Д3906J
|B│ Д(123)л66:C1│ Д(4):C│C1н48м10:─(Bм8,Cм2)м(Bл8,Cл2),A4,G:XX│B:YY│C:Бж40:┼(Bм8,Cм2)м(Bл8,Cл2),A4,░:Е TI│0з  Я│0:TI│16l
ЖЕ В(XмB)┤9░ В(YмC)┤9з400:Д3606Ф
РP│ Ж(65280):Е  P│126▒P│254з410:Д3607
ЪIC│2:MM│MMл Б( Яо60):┼(Xм2,Yм2)м(Xл2,Yл2),N1,░:╔"V31O1T100L100":АI│0е30:╚3:┐1,1:╔"CC+":╚4:┐1,1:ЛI:TX│B:TY│C:SX│ А(128мB):SY│ А(96мC)79
дЕL┤3з440:ДЕL│5з450:Д4307s
оАI│1е4:DX(I)│18нSXнLнLо16:DY(I)│25нSYнLнLо16:ЛI:Бе3507Ч
╕АI│1е4:DX(I)│0:DY(I)│0:ЛI:Бе3508
┬DX(1)│18нSX:DX(2)│DX(1):DY(1)│25нSY:DY(2)│DY(1):RD│ А( Д(3)м2):DX(3)│DX(1)нRD:DY(3)│DY(1):DX(4)│DX(3):DY(4)│мDY(1)нRD:Бе3508[
╠АI│66е102мL:X1│X:Y1│Y:X│ Н(0)н3.95л2:Y│ Н(1)н2.95л2:XX│TX:YY│TY8╡
╓┼(X1м2,Y1м2)м(X1л2,Y1л2),N1,░:─(Xм2,Yм2)м(Xл2,Yл2),N1,G:┼(Xм2,Yм2)м(Xл2,Yл2),N,▒:аI,18╙
рIS│ Б(Iо7):ЕISмIо7┤▓0з5408√
ъIS│ISм9:И IS Бе 500,510,520,530,5409y
ЇTX│TXлDX(IS):TY│TYлDY(IS):┼(Bм8,Cм2)м(Bл8,Cл2),A4,░:─(TXм12,TYм8)м(TXл12,TYл6),AX,G:┼(TXм12,TYм8)м(TXл12,TYл6),A3,▒:Бе5409 
■TX│TXлDX(IS):TY│TYлDY(IS):┼(XXм12,YYм8)м(XXл12,YYл6),AX,░:─(TXм20,TYм14)м(TXл20,TYл6),AX,G:┼(TXм20,TYм14)м(TXл20,TYл6),A2,▒:Бе540:ЖTX│TXлDX(IS):TY│TYлDY(IS):┼(XXм20,YYм14)м(XXл20,YYл6),AX,░:─(TXм33,TYм20)м(TXл33,TYл6),AX,G:┼(TXм33,TYм20)м(TXл33,TYл6),A1,▒:Бе540:хTX│TXлDX(IS):TY│TYлDY(IS):┼(XXм33,YYм20)м(XXл33,YYл6),AX,░:┼(TXм55,TYм32)м(TXл55,TYл6),A,▒:эЛ I;О&╔"V31O1T100L100":АI│0е6:╚3:┐1,1:╔"CC+DD+EFF+GG+AA+BC":╚4:┐1,1:ЛI:M│ Б( Ы((TXлXT(IT)мX)п2л(TYмYT(IT)мY)п2)):Ю0:З@256,"        LEVEL=";L;"MISS=";M:АI│0е2000:Л;╢0IC│0:IT│ITл1:MM│MMлM:ЕIT│5з570:Д250<:Ю0:З@256,"       SCORE=";MM;"LEVEL=";L:Т65494,0:╗Й"    PRESS <ENTER> TO REPLAY?   ";Z$:Бе210(X))<&юЛ X<E°З@99,"BASE WATER CHRG=$"P2<b
З@163,"SEWER CHARGE=$"P4<В
З@227,"STATE SALES TAX=$"P5<м
З@291,"TOTAL WATER COST=$"P2лP3лP4лP5<╠
 З@355,"TOTAL UNITS USED="P6<р
*Бж 3780:Бе 2970=

4Ю:Зд6)"WATER BILL SUMMARY"                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 G&F
В USE SEPARATE CASSETTES FORRECORDING PROGRAM AND AURAL WORDLIST&LЮ&XY│0:Z│0&`б И&~З @ 7, "SPELLING TEST": З&╔
З "BE SURE CASSETTE IS REWOUND AND TAPE MACHINE IS IN 'PLAY' MODE.": З& З "BE SURE VOLUME CONTROL ON TV IS TURNED UP.": З'`Й "PRESS <ENTER> WHEN YOU'RE READY,THEN WAIT TILL COMPUTER ASKS YOUFOR CORRECT SPELLING.";E$'fЮ'nЯ И'Б(А X │ 1 е 1800'Й2Л X'С<Я к'░FЙ "HOW DO YOU SPELL IT";A$'∙ZВ TO CHANGE WORD LIST TYPE NEW WORDS AFTER 'DATA' - 3 WORDSPER LINE.((dЖ TOBOGGAN, INDIAN, CABIN, PELICAN, BUTTON(TeЖ CANNON, DRAGON, PARDON, RIBBON, WAGON(~fЖ EATEN, GIVEN, HIDDEN, RIDDEN, OLDEN(мgЖ MITTEN, HEAVEN, OFTEN, SALMON, MOCCASIN(╡xН F$(┐yY│Yл1(▐}Е A$│F$ з Бе 130 :Д Бе 200(ЁВЕ Y│20 Бе 140)`ГВ THE NUMBER IN "Y= " IN  LINE 130 SHOULD BE THE SAME AS  THE NUMBER OF WORDS IN THE LIST.SAME IN LINE 220.)fДЗ)ЧЕЙ "CORRECT. PRESS <ENTER> FOR NEXT WORD.";E$)бЗБе 20)┴МЗ "         CORRECT":Бе 300)у╚З "WRONG. IT IS SPELLED "F$:З)э╥Z│Zл1) ▄Е Y│20 Бе 305*&цЙ "PRESS <ENTER> FOR NEXT WORD";E$*0ЁБе 20*6
,З*<
1З*Z
6З "        END OF TEST":З*Г
@З "HERE IS YOUR SCORE IN"Y"WORDS.":З*Я
JЗ "        INCORRECT:"Z*╜
TЗ "          CORRECT:"YмZ*├
^К*ї▐В 1000 BEGINS ROUTINE FOR RECORDING WORD LIST+TшЗ "PUT RECORDER IS RECORD MODE BUT WITH 'AUX' PLUG OUT OF ITS JACK SO MICROPHONE IS ON.":З+эЗ "TAPE RUNS 4 SECS. FOR EACH WORD.":З+┬ЄЗ "WHEN WORD LIST IS RECORDED ENTER'BREAK' AND REWIND TAPE.":З,	№Й "PUSH <ENTER> WHEN READY; WAIT 2 SECONDS AND SPEAK ONE WORD.";E$,
Ю,Я И,*А X │ 1 е 1840,2Л X,:$Я к,F.Бе 1010TATE PTS:    ";SP:З@437,;:ЙSA:З@442,;:ЙSM:Й"MEMBER PTS:   ";MP:З@469,;:ЙMA:З@474,;:ЙMM:Ю,ы(З@33,"FORMAT FOR CONTEST NUMBERS:'XXXXXX'";:NN│NNл000001.:АTM│1 еTD:Л-S*Ю:З@129,;:╗Й"EN                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 +╥&
:Г***COPYRIGHT 1983***&>:Г***PRICKLY-PEAR SOFTWARE***&^:Г***ALL RIGHTS RESERVED***&uХ999,16344:Бж11030&ЮАX│16345е16383:НXX:ТX,XX:ЛX:Т346,169'mdЮ:XJ│ Г0(XJ):З@46,"MENU";:З@98,"1. LOAD OR SAVE INFORMATION";:З@130,"2. PRINT OUT INFORMATION";:З@162,"3. START A NEW CHARACTER";:З@194,"4. UPDATE BASIC INFORMATION";:З@226,"5. NON-MAGICAL POSSESSIONS";("nЗ@258,"6. MAGICAL POSSESSIONS";:З@290,"7. SPELL BOOK";:З@322,"8. THIEF ABILITIES";:З@354,"9. SAVING THROWS";:З@386,"0. COMBAT INFORMATION";:З@453,"KEY YOUR CHOICE (1-0)";:K$│ Т(^xK$│ Т:ЕK$┤▓"0"░ Й(K$)┤1з120:ДK│ Й(K$):Бж11020:ЕK│0зK│10(ЪВИK Бе1000,2000,3000,4000,5000,6000,7000,8000,9000,10000(╖ч:Г***SAVE INFORMATION***(°шЮ:З" DO YOU WANT TO LOAD OR SAVE A   CHARACTER (L/S)?":K$│ Т).ЄK$│ Т:ЕK$┤▓"L"░K$┤▓"S"з1010:ДБж11020:ЕK$│"L"з1500)i№Й"CHARACTER NAME (8 OR FEWER      LETTERS PLEASE)";CN$)╪З"PRESS PLAY AND RECORD ON THE    TAPE RECORDER, AND THEN HIT ANY KEY TO SAVE THE CHARACTER":K$│ Т:Бж11000)щЩ"O",#м1,CN$*АX│0е18:З#м1,B$(X):ЛX*&$АX│0е60:З#м1,NP$(X):ЛX:З#м1,NC*Y.АX│0е20:З#м1,MP$(X,0):З#м1,MP$(X,1):ЛX:З#м1,MC*М8АX│0е60:З#м1,SB$(X,0):З#м1,SB$(X,1):ЛX:З#м1,SC*еBАX│1е5:З#м1,ST(X):ЛX*└LАX│0е20:З#м1,CI$(X):ЛX*╧░Ъ#м1:Бе100+R▄Ю:З"LOADING A CHARACTER WILL ERASE  THE CURRENT MEMORY.  ARE YOU    sure YOU WANT TO DO THIS (Y/N)?":K$│ Т:Бж11060:ЕK$│"N"з100+ЩцХ:Бж11030:Ю:Й"NAME OF THE CHARACTER YOU WANT  TO LOAD";CN$:Бж11020+кЁЩ"I",#м1,CN$+─·АX│0е18:Й#м1,B$(X):ЛX+чАX│0е60:Й#м1,NP$(X):ЛX:Й#м1,NC,АX│0е20:Й#м1,MP$(X,0):Й#м1,MP$(X,1):ЛX:Й#м1,MC,MАX│0е60:Й#м1,SB$(X,0):Й#м1,SB$(X,1):ЛX:Й#м1,SC,f"АX│1е5:Й#м1,ST(X):ЛX,Б,АX│0е20:Й#м1,CI$(X):ЛX,Р@Ъ#м1:Бе100,о╧:Г***PRINT INFORMATION***-╨Ю:З"DO YOU WANT THE INFORMATION     PRINTED ON THE SCREEN OR ON THE PRINTER? (S/P)":K$│ Т-I┌K$│ Т:ЕK$┤▓"S"░K$┤▓"P"з2010:ДБж11020:ЕK$│"S"зDV│0:ДDV│м2-жфЮ:ЕDV│м2зЗ"MAKE SURE THE PRINTER IS ON LINEAND THEN HIT ANY KEY TO START.":K$│ Т:Бж11000-ЁюЗ#DV,C$(7);" = ";B$(7):АX│0е6:З#DV,C$(X);" = ";B$(X):ЛX:ЕDV│0зБж11050.$°АX│8е18:З#DV,C$(X);" = ";B$(X):ЛX:ЕDV│0зБж11050.fZX│0:Ю:З#DV,"NON-MAGICAL POSSESSIONS":АX│0е60:ЕNP$(X)│""з2070.ТЗ#DV,NP$(X):ZX│ZXл1:ЕZX▓13░DV│0зБж11050.╝ЛX:ЕDV│0зЗ"HIT ANY KEY":K$│ Т:Бж11000/ ZX│0:Ю:З#DV,"MAGIC ITEMS           CHARGES":АX│0е20:ЕMP$(X,1)│""з2100/B*З#DV,MP$(X,0);д27);MP$(X,1):ZX│ZXл1:ЕZX▓13░DV│0зБж11050/l4ЛX:ЕDV│0зЗ"HIT ANY KEY":K$│ Т:Бж11000/г>ZX│0:Ю:З#DV,"SPELL BOOK":АX│0е60:ЕSB$(X,1)│""з2130/▐HЗ#DV,SB$(X,0);д4);SB$(X,1):ZX│ZXл1:ЕZX▓13░DV│0зБж110500RЛX:ЕDV│0зЗ"HIT ANY KEY":K$│ Т:Бж110000'\ЕB$(17)│"0"▒B$(17)│""з22000ДfЮ:З#DV,"PICK POCKETS ---- ";PP:З#DV,"OPEN LOCKS ------ ";OL:З#DV,"FIND TRAPS ------ ";FT1pЗ#DV,"MOVE SILENTLY --- ";MS:З#DV,"HIDE IN SHADOWS - ";HS:З#DV,"HEAR NOISE ------ ";HN:З#DV,"CLIMB WALLS ----- ";CW:З#DV,"READ LANGUAGES -- ";RL1@zЕDV│0зЗ"HIT ANY KEY":K$│ Т:Бж110001ЎШЮ:З#DV,"SAVING THROWS":З#DV,"DEATH, POISON, ETC. =";ST(1):З#DV,"PETRIFICATION OR POLY. =";ST(2):З#DV,"RODS AND WANDS =";ST(3):З#DV,"BREATH WEAPONS =";ST(4):З#DV,"SPELLS =";ST(5)2вЕDV│0зЗ"HIT ANY KEY":K$│ Т:Бж110002zмЮ:З#DV,"ARMOR CLASS = ";CI$(0):З#DV,"TO HIT ADJ. = ";CI$(1):З#DV,"DAMAGE ADJ. = ";CI$(2)2б╢ЕDV│0зЗ"HIT ANY KEY":K$│ Т:Бж110002т└Ю:З#DV,"WEAPONS OF PROFICIENCY":ZX│0:АX│3е20:ЕCI$(X)│""з22603╩З#DV,CI$(X):ZX│ZXл1:ЕZX▓13░DV│0зБж1105038╘ЛX:З"HIT ANY KEY":K$│ Т:Бж11000:Бе1003T╖:Г***START CHARACTER***3▐╕Ю4:З@128,"STARTING A NEW CHARACTER WILL   CLEAR INFORMATION CURRENTLY IN  MEMORY!!!  ARE YOU sure YOU WANTTO DO THIS (Y/N)???";:K$│ Т4┬K$│ Т:ЕK$┤▓"Y"░K$┤▓"N"з3010:ДБж11020:ЕK$│"N"з1004!╟Х:Бж110304┌╠Ю:Й" CHARACTER NAME";B$(7):Бж11020:З:Й" STRENGTH";B$(0):Бж11020:Й" EX. STRENGTH %";B$(1):Бж11020:Й" INTELLIGENCE";B$(2):Бж11020:Й" WISDOM";B$(3):Бж11020:Й" DEXTERITY";B$(4):Бж110205╓Й" CONSTITUTION";B$(5):Бж11020:Й" CHARISMA";B$(6):Бж110205КрЮ:З" ";B$(7):З:З" CLASS OR CLASSES SEPARATED BY   A SLASH (/)":Й" ";B$(8):Бж11020:Й" ALIGNMENT";B$(9):Бж110205яъЮ:З@68,"INDICATE RACE";:З@134,"1. DWARF";:З@166,"2. ELF";:З@198,"3. GNOME";:З@230,"4. HALF-ELF";65ЇЗ@262,"5. HALFLING";:З@294,"6. HALF-ORC";:З@326,"7. HUMAN";:K$│ Т6i■K$│ Т:K│ Й(K$):ЕK┤1▒K▓7з3070:ДБж11020:B$(18)│K$6ХИK Бе3090,3100,3110,3120,3130,3140,31506пB$(10)│"DWARF":Бе31606╟B$(10)│"ELF":Бе31606с&B$(10)│"GNOME":Бе31606■0B$(10)│"HALF-ELF":Бе31607:B$(10)│"HALFLING":Бе316078DB$(10)│"HALF-ORC":Бе31607KNB$(10)│"HUMAN"7чXЮ:З" ";B$(7):З" ";B$(8):З:З" LEVEL(S) (SEPARATE WITH /)":Й" ";B$(16):Бж11020:З:З" THIEVING SKILLS LEVEL":Й" ";B$(17):Бж11020:Е Й(B$(17))▓17зB$(17)│"17"8ИbЮ:З" ";B$(7):З:Й" AGE";B$(11):Бж11020:З:Й" SEX";B$(14):Бж11020:З:Й" HEIGHT";B$(12):Бж11020:З:Й" WEIGHT";B$(13):Бж11020:З:Й" HIT POINTS";B$(15):Бж11020:Бе1008зЯ:Г***UPDATE INFORMATION***8├аЮ:XJ│ Г0(XJ):А X│0 е 188цкЗ@34,"IS THIS CORRECT? (Y/N)";9┤З@98,C$(X);" = ";B$(X);:K$│ Т9>╛K$│ Т:ЕK$┤▓"Y"░K$┤▓"N"з4030:ДБж11020:ЕK$│"N"з40459Z╚Ю:XJ│ Г0(XJ):Л X:Бе 1009└═ЕX│18зЗ@353,"1=DWARF, 2=ELF, 3=GNOME,        4=HALF-ELF, 5=HALFLING,         6=HALF-ORC, 7=HUMAN":╥З@162,"ENTER THE NEW ";C$(X);:З@194,"";:ЙB$(X):Бж11020:Бе4040: З:Г***NON-MAGICAL ITEMS***:зИЮ:XJ│ Г0(XJ):З@98,"1. INVENTORY";:З@162,"2. ADD ITEMS";:З@226,"3. DELETE ITEMS";:З@290,"4. RETURN";:З@420,"KEY YOUR CHOICE";:K$│ Т:╤ТK$│ Т:K│ Й(K$):ЕK┤1▒K▓4з5010:ДБж11020:эЬИK Бе5100,5200,5300,100;ьZX│0:Ю:З@10,"INVENTORY":АX│0е60;%ЎЕNP$(X)│""з5150;HЗNP$(X):ZX│ZXл1:ЕZX▓13зБж11050;O
ЛX;wЗ"HIT ANY KEY":K$│ Т:Бж11000:Бе5000;╣PЮ:З"ENTER AN ITEM (ZZ TO QUIT)":Й" ";K$:Бж11020:ЕK$│"ZZ"з5000;╔UЕNC▓60з5230;ьZNP$(NC)│K$:NC│NCл1:ЕNC▓60з5230;ўdБе5200<nЗ"FILE FULL":АX│1е2000:ЛX:Бе5000<M┤Ю:З"WHAT DO YOU WANT TO DELETE?":ЙK$:Бж11020<i╛АX│0еNC:ЕK$│NP$(X)з5330<Ц╚ЛX:З"FILE NOT FOUND":АX│1е2000:ЛX:Бе5000<д╥NP$(X)│""<─▄АY│X еNC:NP$(Y)│NP$(Yл1):ЛY<чцАX│0е61:ЕNP$(X)│""зNC│X:Бе5000<юЁЛX=o:Г***MAGICAL POSSESSIONS***=░pЮ:XJ│ Г0(XJ):З@98,"1. INVENTORY";:З@162,"2. ADD ITEMS";:З@226,"3. DELETE ITEMS";:З@290,"4. CHANGE CHARGES";:З@354,"5. RETURN";:З@420,"KEY YOUR CHOICE";:K$│ Т=┌zK$│ Т:K│ Й(K$):ЕK┤1▒K▓5з6010:ДБж11020=√ДИK Бе6100,6200,6300,6400,100>╘ZX│0:Ю:З@10,"INVENTORY":АX│0е20>5▐ЕMP$(X,0)│""з6150>hшЗMP$(X,0);д27);MP$(X,1):ZX│ZXл1:ЕZX▓13зБж11050>oЄЛX>ЧЗ"HIT ANY KEY":K$│ Т:Бж11000:Бе6000>┘8Ю:З"ENTER AN ITEM (ZZ TO QUIT)":Й" ";K$:Бж11020:ЕK$│"ZZ"з6000>щ=ЕMC▓20з6230??Й"ENTER THE CHARGES";MP$(MC,1):Бж11020?9BMP$(MC,0)│K$:MC│MCл1:ЕMC▓20з6230?DLБе6200?iVЗ"FILE FULL":АX│1е2000:ЛX:Бе6000?ЪЬЮ:З"WHAT DO YOU WANT TO DELETE?":ЙK$:Бж11020?╕жАX│0еMC:ЕK$│MP$(X,0)з6330?х░ЛX:З"FILE NOT FOUND":АX│1е2000:ЛX:Бе6000@
║MP$(X,0)│"":MP$(X,1)│""@9─АY│X еMC:MP$(Y,1)│MP$(Yл1,1):MP$(Y,0)│MP$(Yл1,0):ЛY@^╬АX│0е21:ЕMP$(X,0)│""зMC│X:Бе6000@e╪ЛX@лЮ:З" ON WHICH ITEM DO YOU WANT TO    CHANGE THE CHARGES?":Й" ";K$@╔
АX│0е21:ЕMP$(X,0)│K$з6450@╨ЛX@√З" ITEM NOT FOUND":АX│1е2000:ЛX:Бе6000Ag2З:З" THE ITEM HAS ";MP$(X,1);" CHARGES":З" NOW.  INPUT THE CORRECT.":Й" NUMBER";MP$(X,1):Бж11020:Бе6000AАW:Г***MAGIC SPELLS***B(XЮ:XJ│ Г0(XJ):З@98,"1. ADD A SPELL";:З@162,"2. DELETE A SPELL";:З@226,"3. SORT THE SPELLS";:З@290,"4. SPELL BOOK";:З@354,"5. RETURN";:З@450,"KEY YOUR CHOICE";:K$│ ТBRbK$│ Т:K│ Й(K$):ЕK┤1▒K▓5з7010:ДБж11020BslИK Бе7100,7200,7300,7400,100BЕ╝Ю:ЕSC▓60з7190Bю┴З" ENTER THE SPELL NAME (ZZ TO     QUIT)":Й" ";SB$(SC,1):Бж11020:ЕSB$(SC,1)│"ZZ"зSB$(SC,1)│"":Бе7000C)╞З:Й" WHAT LEVEL";SB$(SC,0):Бж11020:SC│SCл1:ЕSC▓60з7190C4╨Бе7100CYЗ"FILE FULL":АX│1е2000:ЛX:Бе7000CГ Ю:З" SPELL TO DELETE":Й" ";K$:Бж11020Cб*АX│0еSC:ЕK$│SB$(X,1)з7240C╧4ЛX:З" FILE NOT FOUND":АX│1е2000:ЛX:Бе7000D%HSB$(X,0)│"":SB$(X,1)│"":АXX│X е60:SB$(XX,0)│SB$(XXл1,0):SB$(XX,1)│SB$(XXл1,1):ЛXXDJRАX│0е60:ЕSB$(X,1)│""зSC│X:Бе7000DQ\ЛXDхДЮ:З" SORTING":АX│0еSCм2:ЕSB$(X,0)▓SB$(Xл1,0)зK$│SB$(X,0):SB$(X,0)│SB$(Xл1,0):SB$(Xл1,0)│K$:K$│SB$(X,1):SB$(X,1)│SB$(Xл1,1):SB$(Xл1,1)│K$:Бе7300DєОЛX:Бе7000EшZX│0:Ю:З@10,"SPELLBOOK":АX│0е60E-ЄЕSB$(X,1)│""з7450E_№ЗSB$(X,0);д4);SB$(X,1):ZX│ZXл1:ЕZX▓13зБж11050EfЛXEОЗ"HIT ANY KEY":K$│ Т:Бж11000:Бе7000Eк?:Г***THIEVING SKILLS***E░@ЮE╩TL│ Й(B$(17)):ЕL│0з100F&^PP│DA(L,0):OL│DA(L,1):FT│DA(L,2):MS│DA(L,3):HS│DA(L,4):HN│DA(L,5):CW│DA(L,6):RL│DA(L,7)FAhD│ Й(B$(4)):ЕD▓18зD│18FВrD│Dм8:ИD Бж8180,8190,8200,8210,8220,8220,8220,8230,8240,8250FУЪK│ Й(B$(18))F╞дИK Бж8110,8120,8130,8140,8150,8160,8170:Бе8260FяоOL│OLл10:FT│FTл15:CW│CWм10:RL│RLм5:РG╕PP│PPл5:OL│OLм5:MS│MSл5:HS│HSл10:HN│HNл5:РGW┬OL│OLл5:FT│FTл10:MS│MSл5:HS│HSл5:HN│HNл10:CW│CWм15:РGn╠PP│PPл10:HS│HSл5:РG╖╓PP│PPл5:OL│OLл5:FT│FTл5:MS│MSл10:HS│HSл15:HN│HNл5:CW│CWм15:RL│RLм5:РGюрPP│PPм5:OL│OLл5:FT│FTл5:HN│HNл5:CW│CWл5:RL│RLм10:РGЇъРH'ЇPP│PPм15:OL│OLм10:FT│FTм10:MS│MSм20:HS│HSм10:РHX■PP│PPм10:OL│OLм5:FT│FTм10:MS│MSм15:HS│HSм5:РHw PP│PPм5:FT│FTм5:MS│MSм10:РHЕ MS│MSм5:РHЛ РHЩ &OL│OLл5:РH└ 0PP│PPл5:OL│OLл10:MS│MSл5:HS│HSл5:РHЄ :PP│PPл10:OL│OLл15:FT│FTл5:MS│MSл10:HS│HSл10:РI DЗ@67,"PICK POCKETS ----  ";PPI6 NЗ@99,"OPEN LOCKS ------  ";OLIY XЗ@131,"FIND TRAPS ------  ";FTI| bЗ@163,"MOVE SILENTLY ---  ";MSIЯ lЗ@195,"HIDE IN SHADOWS -  ";HSI┬ vЗ@227,"HEAR NOISE ------  ";HNIх АЗ@259,"CLIMB WALLS -----  ";CWJ КЗ@291,"READ LANGUAGES --  ";RLJ@ ФЗ@355,"PRESS ANY KEY TO GO ON";:K$│ Т:Бж11000:Бе100JZ#':Г***SAVING THROWS***Jн#(Ю:З"ENTER THE SAVING THROW AGAINST:":З:Й"DEATH, POISON, PARALY.";ST(1):Бж11020J¤#2З:Й"PETRIFICATION OR POLY.";ST(2):Бж11020:З:Й"RODS AND WANDS";ST(3):Бж11020KC#<З:Й"BREATH WEAPONS";ST(4):Бж11020:З:Й"SPELLS";ST(5):Бж11020:Бе100Kb':Г***COMBAT INFORMATION***K╔'Ю:Й" ARMOR CLASS";CI$(0):Бж11020:З:Й" ADJ. TO HIT";CI$(1):Бж11020:З:Й" DAMAGE ADJ.";CI$(2):Бж11020L'З:З" DO YOU WANT TO ADD WEAPONS OF   PROFICIENCY? (Y/N)":K$│ ТL$'$Бж11060:ЕK$│"N"з100LB'.АX│3е20:ЕCI$(X)┤▓""з10060LЫ'8Ю:Й" ENTER THE WEAPON YOU WANT TO    ADD. (OR ENTER 'ZZ' TO QUIT)   ";CI$(X):Бж11020L╝'BЕCI$(X)│"ZZ"зCI$(X)│"":Бе100L├'LЛXLы'VЗ"NO MORE SPACE":АX│1е2000:ЛX:Бе100M	*°В***HIT A KEY TO GO ON***M%+Е Т│""з11010:ДБж11020:РM:+:Г***KEY BEEP***M[+╔"T255L255O5CDEFGABAGFEDC":РMx+:Г***DIMENSION ARRAYS***M╛+МDA(17,7),B$(18),C$(18),NP$(62),ST(5),CI$(20),MP$(22,1),SB$(62,1)M═+╣ Г0│16345MЁ+П:АX│1е17:АY│0е7:НDA(X,Y):ЛY,XN+АX│0е18:НC$(X):ЛXN+ РN%+):Г***LIST ROUTINE***NY+*З"HIT ANY KEY FOR MORE";:K$│ Т:Бж11000:ZX│0:Ю:РNo+3:Г***YES OR NO***NЫ+4K$│ Т:ЕK$┤▓"Y"░K$┤▓"N"з11060:ДБж11020:РN╡.р:Г***THIEVING DATA***O`.ъЖ 30,25,20,15,10,10,85,0,35,29,25,21,15,10,86,0,40,33,30,27,20,15,87,0,45,37,35,33,25,15,88,20,50,42,40,40,31,20,90,25,55,47,45,47,37,20,92,30,60,52,50,55,43,25,94,35P4.ЇЖ 65,57,55,62,49,25,96,40,70,62,60,70,56,30,98,45,80,67,65,78,63,30,99,50,90,72,70,86,70,35,99.1,55,100,77,75,94,77,35,99.2,60,105,82,80,99,85,40,99.3,65,110,87,85,99,93,40,99.4,70,115,92,90,99,99,50,99.5,75Pp.■Ж 125,97,95,99,99,50,99.6,80,125,99,99,99,99,55,99.7,80PМ/:Г***CHARACTERISTICS***Q1/Ж STRENGTH,EX.STR. %,INTELLIGENCE,WISDOM,DEXTERITY,CONSTITUTION,CHARISMA,NAME,CLASS,ALIGNMENT,RACE,AGE,HEIGHT,WEIGHT,SEX,HIT POINTS,LEVELS,THIEVING LEVEL,RACE #QM/:Г***ML ROUTINE DATA***Q╤/Ж 198,32,182,1,90,142,4,0,167,128,140,4,31,38,249,142,5,224,167,128,140,6,0,38,249,142,4,32,167,132,167,31,58,140,6,0,38,246,57W1(X);:З#м2,д33)"";R,З#м2,═"####";W6(X)м