:CF$│ Р(FS$,(CFм1)н3л1,3):З@60,CF$;:Бж4040:Бе3780\7(ЛK\`2З@IлJ," ";:З@IлJл4," ";:ЛJ,I:Бе 3850\w<:Г FUNCTION SERVER\ПFR1│ Й(R1$): N$│ACC$\ЫPN$│ACC$\мZИ CF Бе 3420\сdЕ CF$┤▓"" з ACC$│ И(M):R1$│"":CF$│"":CF│1:Бе3840\єnM│MлR1:Бе3670]xR1│ Е(R1о57.29577951):Бе 4010]6ВR1│ Х(R1о57.29577951):Бе4010]WМR1│ Ц(R1о57.29577951):Бе4010]lЦR1│ACCпR1:Бе4010]Аа:Г** PRINT SUBS]╝кR1$│ И(R1):ACC$│"":LN│19м З(R1$):З@40, б(LN,32);R1$" ="]ч┤З@IлJ," ";:З@IлJл4," ";:Бж4040:Бе 3850^╛LN│19м З(ACC$):З@40, б(LN,32);ACC$;^$╚А DL│1е250:ЛDL:Р^*5Дм1):Бе4010]WМR1│ Ц(R1о57.29577951):Бе4010]lЦR1│ACCпR1:Бе4010]Аа:Г** PRINT SUBS]╝кR1$│ И(R1):ACC$│"":LN│19м З(R1$):З@40, б(LN,32);R1$" ="]ч┤З@IлJ," ";:З@IлJл4," ";:Бж4040:Бе 3850^╛LN│19м З(ACC$):З@40                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 0 
,,,,
 MRS. J. F. SCHUSTER,1482 ORCUTT RD.,SAN LUIS OBISPO,CA,93401
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         **J 	─Ю0:З@233," INITIALIZING ";JW	╬H1$│"60E020A0109050D070F030B0008040C0283808485818"J╝	╪А I│1 е 22:A(I)│ Й("&H"л Р(H1$,(Iн2)м1,2)):S│SлA(I):Л:Е S┤▓2208 з З"CHECKSUM ERROR # 1":К :Д S│0Kз	тH2$│"308D006CE68434048D2F8D2D8D2B8D21A601C6048D0CC605A6028D0635045A26E5394824028D128D0825028D0C5A26F23934063401C600200634063401C6FDB6FF204425FA86344A26FD8603F7FF20340286B24A26FDB7FF2035024A26053501350639340286F88A004A26FB350220DC"L	ьА I│1 е 112:S│ Й("&H"л Р(H2$,(Iн2)м1,2)):CK│CKлS:Т IлMA,S:Л:Е CK┤▓9737 з З"CHECKSUM ERROR # 2":КL	ЎPK│65280:РLF
T│4:Т MAл114,A(T):D│1:E│1:C│3:Бж 770:РLj

S│ Ж(PK) ░ 1:Е S│0 з2580 :Д2570LУ
T│4:Т MAл114,A(T):D│1:E│3:C│3:Бж 770LЮ
Бе 200L▒
(В** CALCULATORM
2FS$│" +  -  *  / CLR+/-OFFSTORCLM+ SINCOSTANY^X1/X":CF$│"":CF│1:R1$│"":R1│0:ACC$│"":ACC│0Mf
<Ю0:З"     SCIENTIFIC CALCULATOR":З" ":З:З@130, б(28,131);:Е M┤▓0 з З@65,"*MEM ";M;Mб
FЗ@162,"   +    -    *    /   CLR   ";:З@194, б(28,32);M▄
PЗ@226,"  +/-  OFF  STO  RCL  M+    ";:З@258, б(28,32);N
ZЗ@290,"  SIN  COS  TAN  Y^X  1/X   ";N:
dЗ@320, б(32,131);"   1    2    3    4    5    6Na
nЗ:З"   7    8    9    0    .   FN=N╘
xЗ б(32,140); б(7,128)"puff  c  to select"; б(6,128);:Т1515,128:Т1516,34:Т1518,34:Т1519,128:Т1522,128:Т1535,128Nъ
ВАI│353 е 480 й 64N·
МАJ│0е25 й 5O&
Ца 150,1:З@IлJ, Л(123);:З@IлJл4, Л(125);O_
аАK│1еDZн.5:S│ Ж(PK) ░ 1:Е S│0 з а240,1:Бе2760 :Д Л KO{
кЗ@IлJ," ";:З@IлJл4," ";OМ
┤Л J,I:Бе2690O╩
╛Е CF▓4 ░ CF┤▓14 з 2880 :Д З@IлJ," ";:З@IлJл4," ";:Бе 2690O▀
╚:Г NUMBER SERVERO∙
╥S│ Б(Iо64м2)н6лJо5м17P5
▄Е S│11 з ACC$│ACC$л".":Бж 3110:Бе 2720 :Д Е S│12 з 2810PШ
цACC$│ACC$л П( И(S),1):Е  З(ACC$)▓19 з З @32,"OVERFLOW!!!":А DL│1 е 3:а200,1:а150,1:Л DL:Бе2610Pм
ЁБж 3110:Бе 2720P╓
·З@IлJ," ";:З@IлJл4," ";:Бж3120:Бе2880P№А I│161 е 289 й 64:А J│2 е 22 й 5Q(а 100,2:З@IлJ, Л(123);:З@IлJл4, Л(125);QЮАK│1еDZн.4:S│ Ж(PK) ░ 1:Е S│0 з а240,1:CF│ Б(Iо64м2)н5л(Jм2)о5л1:CF$│ Р(FS$,(CFм1)н3л1,3):З@60,CF$;:Бж3120:Бе2750Qе"ЛKQ╬,З@IлJ," ";:З@IлJл4," ";:ЛJ,I:Бе 2820Qх6:Г FUNCTION SERVERR
@R1│ Й(R1$):ACC│ Й(ACC$)RXJИ CF Бе 2920,2930,2940,2950,2960,2970,2980,2990,3010,3020,3030,3040,3050,3060,3070RdTБе 2860Ry^:Г FUNCTION SUBSRПhR1│R1лACC:Бе 3090RеrR1│R1мACC:Бе 3090R║|R1│R1нACC:Бе3090SЖЕ ACC│0 з З@47,"ERROR":А DL│1е3:а200,1:а150,1:ЛDL:Бе 3100:Д R1│R1оACC:Бе3090SРБе2610:ГCLRS-ЪR1│мR1:Бе3090S:дЮ:Бе 200ScоM│R1:ЕM┤▓0зЗ@65,"*MEM "M :Д З@65," "Sn╕Бе2860Sг┬Е CF$┤▓"" з ACC$│ И(M):R1$│"":CF$│"":CF│1:Бе2810S╡╠M│MлR1:Бе2610S╫╓R1│ Е(R1о57.29577951):Бе 3090S°рR1│ Х(R1о57.29577951):Бе3090TъR1│ Ц(R1о57.29577951):Бе3090T.ЇR1│ACCпR1:Бе3090T[■Е R1│0 з ACC│0:Бе2950 :Д R1│1оR1:Бе 3090To:Г** PRINT SUBSTлR1$│ И(R1):ACC$│"":LN│19м З(R1$):З@40, б(LN,32);R1$" ="T╓З@IлJ," ";:З@IлJл4," ";:Бж3120:Бе 2820T■&LN│19м З(ACC$):З@40, б(LN,32);ACC$;U0А DL│1е250:ЛDL:РU/:З@96,K"- ";:A$│NAME$(K)UiDЕ A$│"X" з 1250 :Д N$│NUMBER$(K):а20,1:а 40,1:З A$,N$UtNБе 970U{X:ГUБ┌РUН
HБж 3670Uй
MАI│1е DZ:S│ Ж(PK) AMD 1U╥
RЕ S│0 з а 240,1:Бж 3670 :Д Л:Бе 3405V
\а240,1:З@97,"OK, DIALING "N$" NOW...":З:ЗV
aЕ  З(N$)┤1 з 3400V$
fТ 65313,4V9
pА G│1 е 1000:Л GVL
zА I│1 е  З(N$)Vg
ДZ(I)│ К( Р(N$,I,1))м48V~
ОЕ Z(I)│0 з Z(I)│10VЖ
ШЛ IV│
вА I│1 е  З(N$):Е Z(I)│10 з З0;:Д З Z(I);V─
мА V│1 е Z(I)V╙
╢Т 65313,52Vц
└А G│1 е 18:Л GVЇ
╩Т 65313,4W
╘А G│1 е 18:Л GW
▐Л VW#
шА G│1 е 500:Л GW\
ЄЕ Z(I)│1 ░ I│1 з А D│1 е 1000:Л::Гdelay if 1st #is 1Wd
№Л IWдЮ3:З@259," PUFF R TO LIFT RECEIVER.";:АI│1е3:а20,1:а100,1:ЛW╣А G│1 е 2500:Л GW╚Т 65313,52W╪$Ю0:П:Бе 200X.Ю3:З@97,"end of list...PLEASE TRY AGAIN":А G│1 е 2000:Л G:Бе 3620X'8Ж X,X6BPK│65280:РX=L:ГXgVCF$│"":CF│1:R1$│"":R1│0:ACC$│"":ACC│0X╗`Ю0:З"       --- U-DIALIT ---":З" ":З:З@130, б(28,131);:Е M┤▓0 з З@65,"*MEM ";M;XяjЗ@320, б(32,131);"   1    2    3    4    5    6YtЗ:З"   7    8    9    0         DYИ~З б(32,140); б(7,128)"puff  c  to select"; б(6,128);:Т1515,128:Т1516,34:Т1518,34:Т1519,128:Т1522,128:Т1535,128YЮИАI│353 е 480 й 64YоТАJ│0е25 й 5Y┌Ьа 100,1:З@IлJ, Л(123);:З@IлJл4, Л(125);ZжАK│1еDZн.5:S│ Ж(PK) ░ 1:Е S│0 з а240,1:Бе3790 :Д Л KZ/░З@IлJ," ";:З@IлJл4," ";Z@║Л J,I:Бе3720Z~─Е CF▓4 ░ CF┤▓14 з 3910 :Д З@IлJ," ";:З@IлJл4," ";:Бе 3720ZК╬:Г STOPZд╪S│ Б(Iо64м2)н6лJо5м17Z╧тЕ S│11 з S│12:Бе 3750 :Д Е S│12 з 3840[2ьACC$│ACC$л П( И(S),1):Е  З(ACC$)▓19 з З @32,"OVERFLOW!!!":А DL│1 е 3:а200,1:а150,1:Л DL:Бе3420[FЎБж 4030:Бе 3750[pЗ@IлJ," ";:З@IлJл4," ";:Бж4040:Бе3910[Ц
А I│161 е 289 й 64:А J│2 е 22 й 5[║З@IлJ, Л(123);:З@IлJл4, Л(125);\0АK│1еDZн.4:S│ Ж(PK) ░ 1:Е S│0 з а240,1:CF│ Б(Iо64м2)н5л(Jм2)о5л1NCEL";8jrЗ@327,"u-dialit";:а 200,1:А I│1 е DZ:S│ Ж(PK) ░ 1:Е S│0 з а 240,1:Бе 3400 :Д Л:З@327,"U-DIALIT";8uzБе 8708КДЮ0:П:K│1:а 240,58╥ОЮ0:З"       PUFF " Л(34)"C" Л(34)" TO DIAL:":З б(32,128):АI│1е6:З:Л8цША I│1 е 500:Л I8эв:Г9мЮ:З@96,K"- ";:Н A$93└Е A$│"X" з 1250 :Д Н N$:а20,1:а40,1:ЗA$,N$9C╩А G│1 е 1309T╘S│ Ж(PK) ░ 19eЄЕ S│0 з 10409m№Л G9~K│Kл1:Бе 9309ма240,1:З@97,"OK, DIALING "A$" NOW...":З:З9║Т 65313,49╧$А G│1 е 1000:Л G9т.А I│1 е  З(N$)9¤8Z(I)│ К( Р(N$,I,1))м48:BЕ Z(I)│0 з Z(I)│10:LЛ I:IVА I│1 е  З(N$):Е Z(I)│10 з З0;:Д З Z(I);:Z`А V│1 е Z(I):ijТ 65313,52:|tА G│1 е 18:Л G:К~Т 65313,4:ЭИА G│1 е 18:Л G:еТЛ V:╣ЬА G│1 е 500:Л G:єжЕ Z(I)│1 ░ I│1 з А D│1 е 1000:Л::Гdelay if 1st #iis 1:√░Л I;;║Ю3:З@259," PUFF R TO LIFT RECEIVER.";:АI│1е3:а20,1:а100,1:Л;P─А G│1 е 2500:Л G;_╬Т 65313,52;n╪Ю0:П:Бе200;┤тЮ3:З@97,"end of list...PLEASE TRY AGAIN":А G│1 е 2000:Л G:Бе 1240;┼ЎЖ OPERATOR,0;┘Ж WJNL,15355518;ь
Ж WBEM,4675240<Ж HELEN,7545534<Ж FIRE HALL,7545111<,(Ж IRENE,7544734<E2Ж AMBULANCE,14454133<]<Ж BRUMBAUGH,7544321<sFЖ MULCAHY,7545222<КPЖ HELEN H.,7545217<ЯZЖ V.F.W.,7544014<╡dЖ SHAFFER,7544888<╧nЖ WJAC TV,18006626116<уxЖ WYSN ,4678669<°ВЖ FETSKO,7545524=МЖ HINTOSH,7544702=&ЦЖ P.FLEEGLE,7544126==аЖ FR WADAS,7545224=TкЖ MIHELCIC,7545219=j┤Ж BULGERS,7545635=В╛Ж J.KUDASIK,7545269=Ш╚Ж B.MARKO,7544136=м╥Ж MAYOR,7544411=─▄Ж AMB.BLDG.,7545050=ЄцЖ SHADE SHED                     ,7544622> ЁЖ THOMASISEWSKI                  ,7545232>O·Ж SOBIESKI STORE                  ,7544691>eЖ SANDY W,7545675>zЖ BECKIE,7544717>РЖ J BURNS,7544195>┬"Ж HENRY SOBIESKI                     ,7545352>ё,Ж SENIOR CITIZENS                 ,7545615?6Ж SHADE HS,7544648?6@Ж DRUG STORE                     ,7545717?JJЖ ZUBEK,7544924?^TЖ DANTE,7544871?О^Ж CITIZENS BANK                    ,7544617?┴hЖ US NATIONAL BANK                    ,7544141?ЁrЖ MIKE'S MKT.                     ,7548200@|Ж JACK'S MKT.                    ,7544115@5ЖЖ FR LARRY,7545116@JРЖ MUHA'S,7544957@bЪЖ D.FLEEGLE,7544746@vдЖ DAVEY,7544423@КоЖ WVSC,14454186@б╕Ж A MALLOY,4674106@╒┬Ж WINDBER HOSPITAL                     ,4676611A╠Ж JOE SOBIESKI                     ,12556469A╓Ж JIM REESE,12551046AMрЖ C.C.POLICE                     ,7545130A{ъЖ DR SOBIESKI                    ,7544605AкЇЖ MEMORIAL HOSPITAL              ,15339000A▌■Ж MERCY HOSPITAL                     ,15331000BЖ DR.SOBIESKI                    ,15358236B%Ж DR.CARNEY,15367851BYЖ MIKE'S HOME                      ,13014792769B_КмBh°Ж X,BВВ** TYPWRITER FOR THEBЧВ** HANDICAPPED.BпВ** J.J. BARBARELLOC Бж 2560:PP│ Ж(65314):Е PPо2┤▓ Б(PPо2) з Ю3:З" YOUR PRINTER IS OFF  LINE!!!": АD│1 е 4000:ЛC$*Ю1:CNT│415:SPD│DZC=4А I│1 е 11:А J│0 е 5CИ>Т Jн64лIн2л1063,Jл(Iм1)н6:Л J,I:Т 1277,0:Т 1341,63:Т 1405,32:Т 1065,32CжHА I│1408 е 1439:Т I,140:ЛC╓RА I│1440 е 1536:Т I,128:Л:З @CNTл1, Л(197);Di\З@33,"sHIFT ";:З@97,"rUBOUT";:З@161,"eNTER";:З@225,"fASTER";:З@289,"sLOWER";:З@353,"eXIT";:З@257,;:З═"*###*   ";(50мSPD)о5;:Е UF│0 з З@38,"^";DИfА I│1 е 29 й 2:Е I│3 з I│9DЩpЗ@I, Л(128);Dгzа10,1D█ДА J│1 е SPD:S│ Ж(PK) ░ 1:Е S│0 з а240,1:Бе2210 :Д ЛDяОЗ@I, Л(32);:Л ID√ШБе 2150EJвТ Iл1024,255:А K│1 е 200:Л:А J│Iл1056 е Iл1472 л(I│1)н64 й 64:Т J, Ж(J)л64EZма 50,1:SS│0EТ╢А K│1 е SPD:S│ Ж(PK) ░ 1:Е S│0 з а240,1:Бе2260 :Д ЛE┬└Е SS│0 з Т J, Ж(J)м64:Л:Т Iл1024,96:Бе 2150Eч╩Т J, Ж(J)м64:Т Iл1024,96:Бе 2150E°╘Е I│1 з 2320F"▐Е CNT┤496 з CNT│CNTл1:а 200,1 :Д 2230FbшТ CNTл1024, Ж(J)лUFн( Ж(J)▓64)н( Ж(J)┤91)н64:Т CNTл1025,197FvЄА X│1 е SPDн5:ЛFЖ№З@I, Л(32);FЧ	SS│1:Бе 2230F╓	а 200,1:И ((Jм1057)о64)л1 Бе 2390,2340,2330,2350,2370,2410F°	Бж 2420:Е SS│0 з 2450 :Д 2290G;	$Е CNT▓415 з CNT│CNTм1:З@CNTл1, Л(197); Л(128);:Бе 2290 :Д 2290GS	.Е SPD▓0 з SPD│SPDм5G_	8Бе 2380Gm	BSPD│SPDл5GЪ	LЗ@257,;:З═"*###*   ";(50мSPD)о5;:Бе 2290G╚	VUF│(UF│0):Е UF│0 з З@38,"^"; :Д З@38," ";G╘	`Бе 2290H	jБж 2420:Е C$│"V" з Ю0:З@137," ";:З@448,;:Бе 2580 :Д 2290HМ	tC$│"":А S│1 е 200:Л:А S│1 е 10:Е Sо2┤▓ Б(Sо2)з З@Jм985л(J│1377)н64,"### ARE YOU SURE ? ###" :Д З@Jм985л(J│1377)н64," "H╠	~А T│1 е SPD:SS│ Ж(PK) ░ 1:Е SS│0 з а240,1:Бе2440 :Д Л T,S:РHх	ИC$│"V":З@Jм985," ":РI.	ТC$│"":А I│1440 е CNTл1024:J│ Ж(I):Е J▓90 з J│Jм64 :Д Е J┤27 з J│Jл96I|	ЬC$│C$л Л(J):Л:PP│ Ж(65314):Е PPо2┤▓ Б(PPо2) з З @416,"   ":А I│1 е 2000:ЛI┴	жЕ PPо2┤▓ Б(PPо2) з З@416,C$:CNT│415:А I│1 е 2000:Л:C$│"":Бе 2130Iу	░З#м2,C$:C$│"":CNT│415:Бе 2130J
	║В** STARTUP SUBROUTINE  8+&щ
:Г REFER TO THE FOLLOWING LINE     #'S. LINE #,                    200 MAIN MENU.180 KILL BREAK.   1000-1210 DIAL ROUTINE.         1190 & 3570 DIALING DELAY IF    FIRST # IS A 1.                 1260-2040 DATA PHONE #'S.       'q:Г 2560 PLUG N' PWR TURN VOX.      OFF.2580 TURN VOX. ON.          395 VOX REC. MESSAGE-->THRU     420 TURN PNP ON ETC.            '│:Г U-DIALIT 3400-                                            '╫:Г SET PRINTER X-10 MODULE, D-1(:Г SET VOX RECORDER MODULE, C-6                               (}:Г REMOVE ' IN LINE 180 TO         DISABLE BREAK KEY.                                         (Й
Бж 3290(┤Ю0:╚ 0:└ 1:Х 500,25000:М A(22):М Z(21)(╨В*   ASSISTANCE SYSTEM.( (В* C 1986 JOE F. SOBIESKI                 )2В*    V 5.2, 02/10/86)4<В*  64K,EXTENDED BASIC)PFМ NAME$(25),NUMBER$(25))inЮ0:MA│32000:╣ Г│MAл1)tЦDZ│100*┤:ГPOKE&HF8,&H32:POKE&HF9,&H62:POKE&HFA,&H1C:POKE&HFB,&HAF:POKE&HFC,&H7E:POKE&HFD,&HAD:POKE&HFE,&HA5:POKE&H19A,&H7E:POKE&H19B,&H0:POKE&H19C,&HF8*╛Бж 2500*┬╚Ю0:J│0:а40,10:З"         HI-TEC JB-ROBOT.       ";:З б(32,128): АI│1е10:З:Л:З@100,"PUFF" Л(34)"C" Л(34)"TO SELECT:":З@172,"CONTROL":З@236,"TELEPHONE":З@300,"CALCULATOR";*╪╥З@364,"VOX-NOTES"*ъ╙А DLY│1е500:Л+╘З@416,"            MAIN-MENU"+▄А DLY│1е500:Л+:цЗ@172,"control";:а220,1+VЁА I│1 е DZ:S│ Ж(PK) ░ 1+x·Е S│0 з а 240,1:Ю:Бе 830 :Д Л+з
З@172,"CONTROL";:З@236,"telephone";:а100,1+├
А I│1 е DZ:S│ Ж(PK) ░ 1+у
Е S│0 з а 240,1:Бж 850 :Д Л,
"З@236,"TELEPHONE";:З@300,"calculator";:а 50,1,/
,АI│1е DZ:S│ Ж(PK) ░ 1,P
6Е S│0 з а 240,1:Бж 2610 :Д Л,h
@З@300,"CALCULATOR";,Н
JЗ@364,"vox-notes";:а 30,1:а 20,1,й
TА I│1 е DZ:S│ Ж(PK) ░ 1,╚
^Е S│0 з а 30,1:Бе 390 :Д Л,▀
hЗ@364,"VOX-NOTES";-
iЗ@428,"main-menu";:а20,1:а10,1-
jА I│1 е DZ:S│ Ж(PK) ░ 1->
kЕ S│0 з а 200,1:Бе 367 :Д Л-U
mЗ@428,"MAIN-MENU";-`
nБе 380-s
oТ113,0:в&HA027-П
qА 1│1 е DZ:S│ Ж(PK) ░ 1-▒
rЕ S│0 з а 240,1:Бе 390 :Д 380-▌
|J│Jл1:Е J┤2л(TDн18) з 230 :Д 430:Бе 831.
ЖT│3:Т MAл114,A(T):D│6:E│1:C│3:Бж 770.3
ЛЗ@416,"PUFF C TO TURN VOX RECORDER OFF";.O
РА I│1 е DZ:S│ Ж(PK) ░ 1.s
ЪЕ S│0 з а 20,1:Бе 420 :Д Бе 400.е
дT│3:Т MAл114,A(T):D│6:E│2:C│3:Бж 770:Ю:Бе 200.┐
оА I│1 е DZ:S│ Ж(PK)░1.р
╕Е S│0 з а 15,3:Бе 430::Д 831.°
┬T│1:А DLY│1 е 250:Л/I
╠АI│53е51йм1:АJ│71е67йм1:A$│"T50;V31;O"л Л(I)лл";"л Л(J):╔ A$:ЛJ,I:АI│1е250:Л/}
╓З@0,"    ***** CONTROL MODE *****":З б(32,128);0
рЗ@100,"PUFF " Л(34)"C" Л(34)" TO SELECT:":З@169,"A HOUSE CODE":З@233,"B HOUSE CODE":З@297,"C HOUSE CODE":З@361,"TYPEWRITER":З@425,"CANCEL CONTROL MODE"08
ъИ T Бе 500,510,520,530,5400c
ЇЗ@169,"a";:А J│1 е1000:Л:а 220,1:Бе5500Б
■З@233,"b";:а 180,1:Бе 5500ЮЗ@297,"c";:а140,1:Бе 5500─З@361,"typewriter";:а 80,1:Бе 5500▐З@425,"cancel";:а40,10·&А I│1 е DZ:S│ Ж(PK) ░ 110Е S│0 з а240,1:Бе580 :Д Л15:T│Tл1:Е T▓5 з 450 :Д 4701UDЕ T│4 з 2080 :Д Е T│5 з 2001iNА DLY│1 е 500:Л1{XТ MAл114,A(T)1╪bD│1:Ю:З"          HOUSE CODE " Л(Tл64):З@64,"      CHOOSE DEVICE NUMBER":А DLY│1 е 500:Л1ёlЗ @175,D:а230мDн10,12
vА I│1 е DZ:S│ Ж(PK) ░ 12+АЕ S│0 з а240,1:Бе660 :Д Л2IКD│Dл1:Е D▓16 з 610 :Д 6202]ФА DLY│1 е 500:Л2╫ЮE│1:З@67,"PUFF " Л(34)"C" Л(34)" TO TURN DEVICE"D:З@142,"ON":З:З@206,"OFF":З@270,"ALL OFF":З@334,"DIM":З@398,"BRIGHT"2ЎиИ E Бе 690,700,710,720,7303#▓З@398,"BRIGHT":З@142,"on";:а220,1:Бе 7403N╝З@142,"ON";:З@206,"off";:а160,1:Бе 7403|╞З@206,"OFF";:З@270,"all off":а100,1:Бе7403к╨З@270,"ALL OFF";:З@334,"dim":а 60,1:Бе7403╤┌З@334,"DIM";:З@398,"bright":а 20,13эфА I│1 е DZ:S│ Ж(PK) ░ 14юЕ S│0 з а240,1:Бе770 :Д Л4$°E│Eл1л(E│5)н5:Бе 6804?E│Eл16:Е E▓19зC│1:ДC│34m:ГPOKE MA+115,A(D):POKE MA+113,3:X=USR(0)4ЧА H│1 е 10:Л H :ГSHORT DELAY REQURED.4┼ :ГPOKE MA+115,A(E):POKE MA+113,C:X=USR(0)5d"Ю3:З" GOOD! YOU WOULD  HAVE TURNED    SOME THING ON OR OFF IF YOU     HAD A PLUG 'N POWER CONNECTED,  SINCE THIS IS A DEMO            PUFF C TO CONTINUE."5┴*:ГIF E>19 THENPRINT@451,"puff "CHR$(34)"c"CHR$(34)" to stop dim/bright" ELSE CLS0:RETURN5у4S│ Ж(PK) ░ 1:Е S│0 з Р :Д 8205ї>Бж 450:Бе 2005■?Ю(0)6@S│ Ж(PK) ░ 1:Е S│0 зР :Д 8326>HВ******* TELEPHONE *******6аRЮ:А DLY│1 е DZн2.5:Л:АI│49е51:АJ│67е71:A$│"T50;V31;O"л Л(I)л";"л Л(J):╔ A$:ЛJ,I:АI│1еDZн2.5:Л7C\З" T E L E P H O N E  D I A L E R " б(32,128):З:З"    PUFF " Л(34)"C" Л(34)" TO:":З@199,"CONTINUE":З@263,"CANCEL TELEPHONE DIALER":З@327,"U-DIALIT";:Т1535,1287ФfЗ@199,"continue";:а220,1:А I│1 е DZ:S│ Ж(PK) ░ 1:Е S│0 з а 240,1:Бе 900 :Д Л8pЗ@199,"CONTINUE";:З@263,"cancel";:а100,1:А I│1 е DZ:S│ Ж(PK) ░ 1:Е S│0 з а 240,1:Бе 200 :Д Л:З@263,"CA J&#
:ГCOPYWRITE T&D SOFTWARE 1992&F
:Г''''''''''''''''''''''''''''&i:Г    PROGRAM - satellite    '&М:Г      BY DEAN HUIZENGA     '&п(:Г          12/11/86         '&╥2:Гnote: IF YOU HAVE A COCO 3,'&ї<:ГCHANGE LINE 100 TO READ AS ''F:ГFOLLOWS:  'PE=65497'       '';P:Г'''''''''''''''''''''''''''''XZХ 200,16363:МO$(5),T$(3)'edPE│65497'rnEX│40999'УxАX│16363 е 16381:НY:Т X,Y:ЛX'лВ╣ Г│16363:SC│0:RS│2'╜МЮ:╔"L255;V31"'хЦT$(1)│"sat":T$(2)│"ell":T$(3)│"ite"(аЗ@139,;:АY│1 е 3:АX│1 е 32(3кR│ Д(4):Е R│1 з O$(Y)│O$(Y)л Л(128):Бе 190(W┤O$(Y)│O$(Y)л Л(128л16н(Rм1)л15)(^╛ЛX(А╚ЗT$(Y);:╔"L255O1V31BABFCF":ЛY(б╥АP│1 е 160:X│ Г(0):╔"O1B":ЛP(│▄АP│1 е 750:ЛP(эцЗ@328,"BY DEAN HUIZENGA":╔"O5GABO4GABO3GABO2GABO1GAB")ЁBL│0:З@228,"NEED INSTRUCTIONS (Y/N)?"))·K$│ Т:X│ Д(0))M
BL│BLл1:Е BL│25 з З@247,"y/n)?")}
Е K$│"Y" з Бж 1000:Бе 300 :Д Е K$│"N" з 300)П
Е BL│50 з 240)Ъ
"Бе 250)░
,З@224, б(32," ");)╘
6BL│0:З@232,"HIGH SPEED (Y/N)?";)ц
@K$│ Т:X│ Д(0)*

JBL│BLл1:Е BL│25 з З@244,"y/n)?"*'
TЕ K$│"Y" з Т PE,0:Бе 380*H
^Е K$│"N" з Т (PEм1),0:Бе 380*Z
hЕ BL│50 з 310*e
rБе 320*|
|Ю0:ST│47:H│31:SH│0*з
ЖАX│64 е 128 й 32:З@X,O$((Xм32)о32);:ЛX*├
РЗ@ST, Л(223);:Ь(H,31,5)*ы
ЪЗ@0,"score";:З Л(128);SC;:Т 1029,58+
дЗ@19,"reserves";:З Л(128);RS;:Т 1051,58+G
оPK│ Ж(65280):Е PK│126 ▒ PK│254 з 440 :Д 430+S
╕J│ Н(0)+{
┬Е SH│1 з Э(LH,V):X│ Г(0) :Д X│ Г(0)+╝
╠Е SH│0 з PK│ Ж(65280):Е PK│126 ▒ PK│254 з V│30:SH│1:╔"O1BAG"+╨
╓Е SH│1 з Бж 510+ш
рЕ  Д(10)│5 з Бж 630,
ъЕ J┤15 ▒ J▓47 з Бж 690,
ЇБе 440,
■V│Vм1,(Е V┤2 з 850,?Е  С(H,V)┤▓0 з 570,LЬ(H,V,4),U&LH│H,[0Р,q:Е  С(H,V)│6 з 760,ГDSC│SCл С(H,V),йNЗ@(( Б(Vо2)н32)л Б(Hо2)), Л(128);,╜X╔"O1;BAGABFEDC",хbЗ@0,"score";:З Л(128);SC;:Т 1029,58,№lSH│0:Э(H,V):Бе 490-vR│ Д(2)-АЗ@ST, Л(128);-9КЕ R│1 з ST│STм1 :Д ST│STл1-`ФЕ ST┤32 з ST│63 :Д Е ST▓63 з ST│32-rЮЗ@ST, Л(223);-Ви╔"O5;BCB":Р-О▓Э(H,31)-б╝Е J┤15 з H│Hм1-┤╞Е J▓47 з H│Hл1-╒╨Е H┤0 з H│0 :Д Е H▓63 з H│63-у┌Ь(H,31,5)-щфР./юЖ 142,4,64,230,132,166,1,167,132,48,1,140,4,223,38,245,231,132,57.x°╔"L100O1CDEFBAGO2V10CDEFBAGO3V31CDEFBAGO4V10CDEFGABO5V31CDEFBAGL255".┤¤АX│1 е 25:З@ST, Л( Д(200)л55);:╔"O1BC":ЛX:З@ST, Л(128);.╟АX│1 е 1000:ЛX/АX│1 е 5:З@238,"bonus";:АPA│1 е 250:ЛPA:З@238, б(5, Л(128));:АPA│1 е 250:ЛPA:ЛX/.АX│1 е  Д(100)/: SC│SCл1/b*З@0,"score";:З Л(128);SC;:Т 1029,58/o4╔"O5;BC"/v>ЛX/БHБе 3800-RЮ4:╔"O1;V31BAGFEDCV29BAGFEDCV27BAGFEDCV25BAGFEDCV23BAGFEDCV21BAGFEDCV19BAGFEDCV17BAGFEDCV15BAGFEDCV13BAGFEDCV11BAGFEDCV9BAGFEDCV7BAGFEDCV5BAGFEDCV3BAGFEDCV1BAGFEDCV31"0>\Е RS│0 з 8900JfRS│RSм10UpБе 3800ЩzЮ3:╔"O5BAGFEDCO4V10BAGFEDCO3V31BAGFEDCO2V10BAGFEDCO1V31BAGFEDC"0╡ДЗ@136,"YOUR SCORE:";SC;0╔ОЕ SC▓HS з HS│SC0хШЗ@232,"HIGH SCORE:";HS;1	вBL│0:З@328,"PLAY AGAIN (Y/N)?";1мK$│ Т18╢BL│BLл1:Е BL│25 з З@340,"y/n)?";1X└Е K$│"Y" з RS│2:SC│0:Бе 3801}╩Е K$│"N" з Т(PEм1),0:Т 113,0:вEX1П╘Е BL│50 з 9301Ъ▐Бе 9401╗шЮ:З@6,"*** instructions ***"2дЄЗ" YOUR MISSION IS TO DESTROY THE ALIEN SATELLITE HIDING BEHIND   THE OZONE LAYER.                 TO DO THIS, YOU MUST CHIP AWAY THE OZONE LAYER SO YOU CAN REACHTHE SATELLITE. YOU RECIEVE PTS. FOR HITTING CERTAIN BLOCKS ON   ";39№З"THE OZONE LAYER, AND A BONUS OF 1 TO 100 PTS. FOR HITTING THE   SATELLITE.  HOWEVER, IF YOU MISSTHE SATELLITE, YOU WILL LOSE A  SHIP.":Бж 10803ХЮ:З" YOU RECIEVE THE FOLLOWING PTS. FOR THE FOLLOWING COLOR BLOCK ONTHE OZONE LAYER:":З3┌АX│2 е 4:З@106л(32н(Xм1)), Л(128л16н(Xм1)л15);" =";X;"POINTS":ЛX4СЗ:З" TO SHOOT YOUR GUIDED MISSILES, PRESS THE 'FIRE' BUTTON, AND TO GUIDE YOUR MISSILES, MOVE YOUR  SHIP WITH THE RIGHT JOYSTICK.   HIGH SCORES ARE CALCULATED AND  KEPT.":Бж 10804Ч$Ю4╚.З@139,"satellite":З@328,"BY DEAN HUIZENGA":Р4ч8BL│0:З@457,"PRESS <ENTER>"4ёBK$│ Т5LBL│BLл1:Е BL│25 з З@464,"enter>"5*VЕ K$│ Л(13) з Р5=`Е BL│50 з 10805IjБе 1090 THE RIGHT JOYSTICK.   HIGH SCORES ARE CALCULATED AND  KEPT.":Бж 10804Ч$Ю4╚.З@139,"satellite":З@328,"BY DEAN HUIZENGA":Р4ч8BL│0:З@457,"PRESS <ENTER>"4ёBK$│ Т5LBL│BLл1:Е                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 D(3)│1 з C$│C$л"EAST "83
rЕ D(4)│1 з C$│C$л"WEST "8L
wЗ "YOU CAN GO:":З C$8`
ЇЙ "WHAT NOW";A$8Ж
∙Е A$│"N" ░ D(1)│1 з LO│LOм6:Бе1008м
■Е A$│"S" ░ D(2)│1 з LO│LOл6:Бе1008╥Е A$│"E" ░ D(3)│1 з LO│LOл1:Бе1008°Е A$│"W" ░ D(4)│1 з LO│LOм1:Бе1009

:ГGO9BЕ A$│"GO CAR" ░ O(8)│LO з CR│1:З "YOU ARE IN YOUR CAR":Бе1009ГЕ A$│"GO OUT" ░ CR│1 зЗ "YOU GET OUT OF YOUR CAR":CR│0:Бе1009О:ГOPEN9╤!Е A$│"OPEN GLOVE" ░ CR│1 з GC│1:З "IT IS OPEN AND EMPTY":Бе100:&Е A$│"OPEN SPEGHETTI" ░ LO│25 з SP│1:З "IT IS OPEN":Бе500:I+Е A$│"OPEN SAUCE" ░ LO│25 з SC│1:З "IT IS OPEN":Бе500:Е0Е A$│"OPEN CABINET" ░ LO│25 з CA│1:З "IT IS OPEN":Бе500:╛5Е A$│"OPEN OVEN" ░ LO│25 з OV│1:З "IT IS OPEN":Бе500:╔::ГLOOK:■?Е A$│"LOOK POT" ░ O(3)│0 зЗ "IT IS LARGE!":Бе500;:DЕ A$│"LOOK SPEGHETTI" ░ O(4)│0 зЗ "IT IS PRE-CUT":Бе500;vIЕ A$│"LOOK SAUCE" ░ O(5)│0 зЗ "IT HAS MEAT IN IT":Бе500;╡NЕ A$│"LOOK CABINET" ░ O(6)│0 ░ CA│1 зЗ "IT IS EMPTY":Бе500<SЕ A$│"LOOK OVEN" ░ O(7)│LO ░ OV│1 зЗ "IT IS LARGE AND HAS A KNOB ON IT":Бе500<GXЕ A$│"LOOK CAR" ░ O(8)│LO зЗ "IT IS A BLUE SPORTSCAR":Бе500<ОYЕ A$│"LOOK GLOVE" ░ CR│1 зЗ "IT IS BLUE WITH A SHINY HANDLE":Бе500<╫[Е A$│"LOOK TREE" ░ O(2)│LO зЗ "IT IS STICKING OUT DANGEROUSLY":Бе500=\Е A$│"LOOK ROCKS" ░ O(1)│LO зЗ "THERE ARE FAIRLY LARGE":Бе500=$]:ГTURN=pbЕ A$│"TURN KNOB" ░ O(8)│LO ░ OV│1 з KN│1:З "IT IS TURNED TO HIGH":Бе500=zg:ГGET=║lЕ A$│"GET POT" ░ O(3)│LO зЗ "YOU HAVE THE POT":O(3)│0:Бе500>qЕ A$│"GET SPEGHETTI" ░ O(4)│LO зЗ "YOU HAVE THE SPEGHETTI":O(4)│0:Бе500>JvЕ A$│"GET SAUCE" ░ O(5)│LO зЗ "YOU HAVE THE SAUCE":O(5)│0:Бе500>U{:ГLEFT>ЬАЕ A$│"LEFT" ░ LO│2 ▒ LO│3 ▒ LO│11 з LT│1:З "YOU TURNED LEFT":Бе500>иЕ:ГRIGHT>уКЕ A$│"RIGHT" ░ LO│11 з RT│1:З "YOU TURNED RIGHT":Бе500>эП:ГPUT?EФЕ A$│"PUT SAUCE" ░ LO│25 з Й "WHERE";G$:Е G$│"POT" зЗ "IT IS IN THE POT":PS│1:Бе500?аЩЕ A$│"PUT SPEGHETTI" ░ LO│25 зЙ "WHERE";G$:Е G$│"POT" зЗ "IT IS IN THE POT":PP│1:Бе500?кЮ:ГEAT@гЕ A$│"EAT FOOD" ░ PS│1 ░ PP│1 ░ OV│1 ░ KN│1 зЗ "YOU HAVE EATEN YOUR FOOD IN 25 MINUTES":Бе950@,иЕ A$│"I" ▒ A$│"INV" зБе1000@v╝Е A$│"SLOW CAR" ░ LO│16 зЗ "YOU PUSH THE BRAKES A LITTLE.":BR│1:Бе500@Х Е A$│"L" ▒ A$│"LOO" зБе100@уpЕ A$│"SHI" ▒ A$│"FUC" ▒ A$│"DAM" ▒ A$│"DAR" зЗ "HEY, DON'T GET HOSTILE!!"AЕ G$│""зЗ "YOU CAN'T DO THAT":Бе500A0ДЗ "----WHAT?----":а 255,10:Бе500A{зЗ "YOU CONTINUE STRAIGHT AHEAD AND SMASH IN TO THE ROCKS!!YOU LOSE!":КA╞мЗ "YOU SWING TO THE RIGHT AND YOU  HIT THE ROCKS, AHHH!!! YOU LOSE!":КB▒З "YOU SWING TO THE RIGHT AND HIT THE BRANCH!!!!!! YOU LOSE!!!":КBЙ╢З "YOU WON!! YOU HAD FUN KAYAKING  AND YOU MADE IT HOME TO EAT     DINNER!!! CONGRATULATIONS!!!!!!!":╔ SO$(1):╔ SO$(1):КBт▐З "************YOU*LOSE************":╔ "CCCCE-DDCC;O2;B;O3;L2;C;V15;C;V10;V7;V5;C":КC
шЮ:З "************YOU HAVE************"CъЗ:З:З:ЗC1эЕ O(3)│0 зЗ "A POT"CVЄЕ O(4)│0 зЗ "A BOX OF SPEGHETTI"CАўЕ O(5)│O зЗ "A JAR OF HOMEMADE SAUCE"CК№Бе500▐З "************YOU*LOSE************":╔ "CCCCE-DDCC;O2;B;O3;L2;C;V15;C;V10;V7;V5;C":КC
шЮ:З "************YOU HAV                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Л&#
:ГCOPYWRITE T&D SOFTWARE 1992&*Ю3&L
З@0,"        KAYAK ADVENTURE"&xЗ@128,"              BY,              "&дЗ@224,"          KEVIN SMITH          "&р#SO$(1)│"L8;CEGECEGEDF#AF#DF#AF#EG#BG#EG#BG#;L4;O4;C;O3"&э(╔ SO$(1)'Ю2Ю:З "YOU ARE KAYAKING DOWN THE GREAT ROCKING RIP RIVER. YOUR GOAL IS TO KAYAK DOWN TO YOUR CAR AND   DRIVE HOME. THIS WILL NOT BE    EASY THOUGH, WITH MANY RAPIDS   AHEAD."'Ё7З "WHEN YOU GET HOME YOU ALSO MUST EAT DINNER. GOOD LUCK AND HAPPY KAYAKING!"(<╔ SO$(1):╔ SO$(1):╔ S0$(1)(^FЮ2:Ю3:Ю4:Ю5:Ю6:Ю7:Ю8:Ю0:Ю1:Ю2:Ю3:Ю4:Ю5:Ю6:Ю7:Ю8:Ю0:Ю1:Ю2:Ю3:Ю4:Ю5:Ю6:Ю7:Ю8(ШKЮ0:Ю1:Ю2:Ю3:Ю4:Ю5:Ю6:Ю7:Ю8:Ю0:Ю1:Ю2:Ю3:Ю4:Ю5:Ю6:Ю7:Ю8(Ў_LO│1:O(1)│5:O(1)│3:O(1)│11:O(1)│12:O(2)│2:O(3)│25:O(4)│25:O(5)│25:O(6)│25:O(7)│25:O(8)│18),aCR│0:SP│0:SC│0:OV│0:CA│0:LT│0:RT│0:PS│0:PP│0:BR│0)ЫdЮ:Е LO│1 з Ю3:З "YOU ARE IN A CALM PART OF THE   RIVER. THE RIVER IS ABOUT 70'   ACROSS. IT IS NICE HERE."*KiЕ LO│2 з Ю3:З "THE RIVER IS QUICKINING HERE,   HELP THERE IS A TREE BRANCH ON  THE RIGHT SIDE OF THE SHORE!":Й "RIGHT OR LEFT";F$: Е F$│"R" зБе945:Е F$│"L"з110:Е F$│""з100*┌nЕ LO│3 з Ю3:З "THE RIVER HAS TURNED INTO SWIFT RAPIDS NOW. QUICK! THERE ARE    ROCKS TO THE RIGHT!":Й "RIGHT OR LEFT";I$:Е I$│"RIGHT" з940+ZsЕ LO│9 з Ю3:З "THE RIVER HAS SLOWED DOWN TO AN ALMOST STOP. WHAT WILL YOU DO   NOW, AN EXPERIANCED KAYAKER    SHOULD KNOW."+╖xЕ LO│10 з Ю3:З "THE RIVER IS PRETTY DEAD HERE.  YOU SHOULD CONTINUE WHAT YOU DIDBEFORE!",?{Е LO│11 з Ю3:З "WOW, THE RIVER HAS TURNED INTO  RIPS! ROCKS STRAIGHT AHEAD!!!":Й "STRAIGHT,RIGHT OR LEFT";X$:Е X$│"STRAIGHT" з935:К,╩ВЕ LO│12 з Ю3:З "AGAIN THE RIVER HAS COME TO AN  ALMOST STOP, THERE ARE ROCKS TO THE RIGHT! YOU PARKING LOT IS TOTHE LEFT OF THE RIVER"-#ЗЕ LO│13 зЮ4:З "YOU ARE AT A DEAD END AND YOU   ARE LOST. HA,HA,HA,HA!!!!!!!!!":Бе990-ЦОЕ LO│14 ░ CR│1 з Ю5:З "YOU ARE DRIVING IN YOUR CAR     ALONG ROUTE 1. YOU NOTICE THE   SPEED LIMIT IS 35 MPH.".УЕ LO│15 ░ CR│1 ░ BR│1 з Ю5:З "YOU ARE DRIVING ON A BRIDGE AND YOU NOTICE THE SPEED LIMIT HAS  DROPPED TO 25 MPH.".zЦЕ LO│16 ░ CR│1 зЮ5:З "YOU ARE DRIVING ON THE STREET AND YOU NOTICE THE SPEED LIMIT IS BACK UP TO 35 MPH.".ЇЫЕ LO│17 з Ю5:З "YOU ARE DRIVING IN YOUR CAR AND YOU SEE A SIGN THAT READS:road construction ahead reduced speed zone"/|аЕ LO│18 з Ю5:З "YOU ARE IN THE PARKING LOT. BOY THAT KAYAKING WAS A LOT OF FUN  BUT NOW YOU MUST GO HOME AND    COOK & EAT DINNER!"/ЄвЕ LO│18 ░ CR│1 з Ю5:З "YOU ARE IN YOUR CAR IN THE      PARKING LOT. YOU SEE YOUR GLOVE COMPARTMENT TO THE RIGHT."0nзЕ LO│21 ░ CR│1 з Ю5:З "YOU ARE DRIVING ON WESTSIDE     DRIVE. HEY, THIS IS YOUR STREET, THATS GOOD BECAUSE im starved!"0■мЕ LO│22 ░ CR│1 з Ю5:З "YOU ARE DRIVING ON JR. STREET.  NO WONDER, IT'S SMALL! THE NEXT STREET IS YOUR'S. DO YOU MIND IFI COME OVER TO EAT?"1kпЕ LO│23 ░ CR│1 з Ю5:З "YOU ARE DRIVING ON WESKASET STREET. THIS LOOKS LIKE A BIG STREETFROM THIS POINT."1╗▒Е LO│25 зЗ "YOU ARE IN YOUR KITCHEN. YOU SEEA CABINET ON THE WEST    WALL."2?┤Е LO│25 ░ CR│1 зЗ "you just drove right into your  kitchen you fool!!! YOU ARE REALLY HURT AND NEED TO GO INTO THE HOSPITAL.":К2б╢Е LO│26 ░ CR│1 зЗ "YOU ARE IN YOUR DRIVEWAY, AND YOU CAME TO A STOP. NOW! TIME FOR DINNER!!!"2я╣Е LO│27 зЗ "YOU ARE REALLY HUNGRY AND ARE   FORCED TO GO OUT TO EAT. $$$"3P╗Е LO│27 ░ CR│1 з Ю5:З "YOU ARE DRIVING ON YOUR STREET  AND YOU SEE YOUR DRIVEWAY FROM HERE."3╝┐Е LO│29 ░ CR│1 з Ю5:З "YOU ARE DRIVING ON WESKASET STREET. YOU FEEL COOL WITH YOUR A/C  ON FULL BLAST."4└Е LO│30 з Ю4:З "YOU ARE AT A DEAD END! YOU ARE  LOST, HA, HA, HA!"4_┴Е LO│30 ░ CR│1 з Ю4:З "YOU ARE AT A DEAD END, AND YOU  ARE LOST! HA, HA, HA, HA!":Бе9904а├Е LO│26 зЗ "YOU ARE IN YOUR DRIVEWAY. IT IS A PAVED DRIVWAY"4щ┼Е LO│15 ░ BR│0 зЗ "YOU GO TOO FAST AND SWERVE OFF THE ROAD!!!":Бе99059╟Е LO│13 зЗ "YOU ARE AT A DEAD END, AND YOU  ARE LOST, HA, HA, HA, HA!!!!":К5N╚З "YOU SEE:":N│05k═Е O(1)│LO зЗ "ROCKS":N│15Р╥Е O(2)│LO зЗ "A TREE BRANCH":N│15н╫Е O(3)│LO зЗ "A POT":N│15╬▄Е O(4)│LO зЗ "SPEGHETTI":N│15ысЕ O(5)│LO зЗ "SAUCE":N│16цЕ O(6)│LO зЗ "A CABINET":N│16+ыЕ O(7)│LO зЗ "AN OVEN":N│16KЁЕ O(8)│LO зЗ "YOUR CAR":N│16mїЕ N│0 зЗ "NOTHING OF INTREST"6Д
,А X│1 е 4:D(X)│0:Л6╕
1Е LO│9 ▒ LO│23 ▒ LO│22 ▒ LO│27 ▒ LO│29 з D(1)│16Ї
6Е LO│3 ▒ LO│12 ▒ LO│16 ▒ LO│17 ▒ LO│21 ▒ LO│23 з D(2)│17f
;Е LO│1 ▒ LO│2 ▒ LO│9 ▒ LO│10 ▒ LO│11 ▒ LO│14 ▒ LO│15 ▒ LO│16 ▒ LO│17 ▒ LO│21 ▒ LO│29 ▒ LO│25 ▒ LO│26 з D(3)│17│
@Е LO│18 ▒ LO│17 ▒ LO│16 ▒ LO│15 ▒ LO│14 ▒ LO│22 ▒ LO│27 ▒ LO│26 з D(4)│17╜
^C$│""7█
cЕ D(1)│1 з C$│C$л"NORTH "7∙
hЕ D(2)│1 з C$│C$л"SOUTH "8
mЕ/:╝З#PD,"         FOR T&D BACKUPS        ";:Е PD┤▓0 з З#PD/v╞З#PD,"       BY JASON REIGHARD        ";:Е PD┤▓0 з З#PD/Г╨З#PD," "/┐┌З#PD,"     THIS PROGRAM WAS DESIGNED  ";:Е PD┤▓0 з З#PD/√фЗ#PD,"FOR THOSE PEOPLE WHO LIKE THE   ";:Е PD┤▓0 з З#PD07юЗ#PD,"LABELS ON YOUR T&D DISKS AND    ";:Е PD┤▓0 з З#PD0s°З#PD,"WANT SIMILAR LABELS FOR YOUR    ";:Е PD┤▓0 з З#PD0пЗ#PD,"BACKUP DISKS.  THIS PROGRAM WILL";:Е PD┤▓0 з З#PD0ыЗ#PD,"LET YOU HAVE THE ADVANTAGE OF   ";:Е PD┤▓0 з З#PD1'З#PD,"ALL TEN PROGRAM TITLES PLUS THE ";:Е PD┤▓0 з З#PD1c З#PD,"ISSUE NUMBER, YEAR AND MONTH.   ";:Е PD┤▓0 з З#PD1p*З#PD," "1}4З#PD," "1К>З#PD," "1ЦHБж 13901ЬRЮ1щ\З#PD,"      THIS PROGRAM DEFAULTS TO A";:Е PD┤▓0 з З#PD                 2%fЗ#PD,"TANDY DMP-133 PRINTER. THE VALU-";:Е PD┤▓0 з З#PD2apЗ#PD,"ES OF THE VARIBLES IN LINES 5&6 ";:Е PD┤▓0 з З#PD2ЭzЗ#PD,"MAY HAVE TO BE CHANGED TO SUIT  ";:Е PD┤▓0 з З#PD2┘ДЗ#PD,"YOUR PRINTER.  THEASE CONTROL   ";:Е PD┤▓0 з З#PD3ОЗ#PD,"CODES ARE SENT TO THE PRINTER IN";:Е PD┤▓0 з З#PD3QШЗ#PD,"LINES 460 AND AND 470.          ";:Е PD┤▓0 з З#PD3^вЗ#PD," "3ЪмЗ#PD,"      SAVING A FILE IS SIMPLE AS";:Е PD┤▓0 з З#PD3╓╢З#PD,"SELECTING 2 FROM THE MENU.  THE ";:Е PD┤▓0 з З#PD4└З#PD,"FILE IS SAVED UNDER THE ISSUE   ";:Е PD┤▓0 з З#PD4N╩З#PD,"PLUS THE EXTENSION '&&&'.       ";:Е PD┤▓0 з З#PD4[╘З#PD," "4Ч▐З#PD,"      WHEN YOU LOAD A ISSUE YOU ";:Е PD┤▓0 з З#PD4╙шЗ#PD,"SELECT 1 FROM THE MENU AND TYPE ";:Е PD┤▓0 з З#PD4▀ЄБж 13904х№Ю5!З#PD,"THE ISSUE NUMBER YOU WISH TO    ";:Е PD┤▓0 з З#PD5]З#PD,"LOAD.                           ";:Е PD┤▓0 з З#PD5jЗ#PD," "5ж$З#PD,"     EDITING IS ALSO VERY SIMPLE";:Е PD┤▓0 з З#PD5т.З#PD,".  YOU SELECT 3 FROM THE MENU.  ";:Е PD┤▓0 з З#PD68З#PD,"A DISPLAY OF THE CURRENT  LABEL ";:Е PD┤▓0 з З#PD6ZBЗ#PD,"IN MEMORY WILL PRINTED ON THE   ";:Е PD┤▓0 з З#PD6ЦLЗ#PD,"SCREEN.  YOU SIMPLY TYPE THE    ";:Е PD┤▓0 з З#PD6╥VЗ#PD,"NUMBER AT THE FAR LEFT TO REDO  ";:Е PD┤▓0 з З#PD7`З#PD,"THAT LINE OR TYPE @ TO RETURN   ";:Е PD┤▓0 з З#PD7JjЗ#PD,"TO THE MENU.                    ";:Е PD┤▓0 з З#PD7WtЗ#PD," "7У~З#PD,"     TO CREATE A LABEL CHOOSE 5 ";:Е PD┤▓0 з З#PD7╧ИЗ#PD,"FROM THE MENU AND ANSWER THE    ";:Е PD┤▓0 з З#PD8ТЗ#PD,"PROMTS ACCORDINGLY.             ";:Е PD┤▓0 з З#PD8ЬБж 13908жЮ8Y░З#PD,"      TO PRINT A LABEL READY    ";:Е PD┤▓0 з З#PD8Х║З#PD,"YOUR PRINTER AND SELECT 4 FROM  ";:Е PD┤▓0 з З#PD8╤─З#PD,"THEN MENU.                      ";:Е PD┤▓0 з З#PD8▐╬З#PD," "9╪З#PD,"      WHEN YOU WISH TO QUIT     ";:Е PD┤▓0 з З#PD9VтЗ#PD,"SELECT 6 FROM THE MENU.         ";:Е PD┤▓0 з З#PD9cьЗ#PD," "9ЯЎЗ#PD,"      THIS IS A VERY USEFULL    ";:Е PD┤▓0 з З#PD9█З#PD,"UTILITY AND SHOULD COME IN VERY ";:Е PD┤▓0 з З#PD:
З#PD,"HANDY.  SO ENJOY.               ";:Е PD┤▓0 з З#PD:$З#PD," ":1З#PD," ":>(З#PD," ":K2З#PD," ":X<З#PD," ":dFБж 1390:jPР:pdК:nЕPD┤▓0 з Р:ОxЗ@482,PM$;:ШВK$│ Т:лМЕK$│NL$ з 1410:▒ЦР:╘кЮ:З"LOAD":╗Й"ISSUE NUMBER>";I$;
┤╗Й"PRESS PLAY THEN ENTER";A$:З"LOOKING FOR ISSUE "I$;╛ЕI$│""з 10;-╚Щ "I",#м1,I$;?╥Й#м1,I$,M$,Y$;Z▄АX│1е10:Й#м1,P$(X):Л X;lсЪ#м1:F│1:Бе10;┤цЮ:З"PRESS PLAY AND RECORD AND PRESS ENTER":╗ЙA$:З"SAVING ISSUE "лI$;┼ЁЩ "O",#м1,I$;╫·З#м1,I$,M$,Y$;ЄАX│1е10:З#м1,P$(X):Л X<Ъ#м1:Бе10 ISSUE "I$;╛ЕI$│""з 10;-╚Щ "I",#м1,I$;?╥Й#м1,I$,M$,Y$;Z▄АX│1е10:Й#м1,P$(X):Л X;lсЪ#м1:F│1:Бе10;┤цЮ:З"PRESS PLAY AND RECORD AND PRESS ENTER":╗ЙA$:З"SAVING ISSUE "лI$;┼ЁЩ "O",#м1,I$;╫·З#м1,I$,M$,Y$;ЄАX│1е10:З#м1,P$(X):Л X<Ъ#м1:Бе1                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                6: З "HIT ANY KEY TO CONTINUE.";:Бе 2680J`	jЕ  м │ 13 з Ю:ё 5,2:З "ERROR # "; м;" IN LINE # "; нJТ	tЕ  м │ 13 з ё 5,5: ° 3,2,B: З "NOTICE:":° 3,2Jч	~Е  м │ 13 з ё 5,7: З "THE COMPUTER HAS RUN OUT OF STRING SPACE.  USE 'CLEAR' AT"K7	ИЕ  м │ 13 з ё 5,8: З "THE BEGINNING OF THE PROGRAM ROUTINE TO RESERVE MORE"KД	ТЕ  м │ 13 з ё 5,9: З "STRING SPACE.  BE SURE TO LEAVE ENOUGH MEMORY FOR"K│	ЬЕ  м │ 13 з ё 5,10: З "PROGRAM OPERTAION!"L	жЕ  м │ 13 з ё 5,12: З "W.A. QUEEN III";:а 200,2:а 100,10:А X │ 1 е 50: Л X: а 200,2: а 100,10LS	░Е  м │ 13 з ё 5,16: З "HIT ANY KEY TO CONTINUE.";:Бе 2680LЛ	║Е  м │ 5 з Ю:ё 5,2:З "ERROR # "; м;" IN LINE # "; нL╝	─Е  м │ 5 з ё 5,5: ° 3,2,B: З "NOTICE:":° 3,2M		╬Е  м │ 5 з ё 5,7: З "YOU MUST BE RICH!  AN OVER-FLOW ERROR HAS OCCURED."MY	╪Е  м │ 5 з ё 5,8: З "THEIR IS NOTHING YOU CAN DO TO REMEDY THIS SITUATION."Mз	тЕ  м │ 5 з ё 5,9: З "EXCEPT TO START OVER USING SMALLER NUMBERS OR GET A"M┘	ьЕ  м │ 5 з ё 5,10: З "LARGER COMPUTER......."N<	ЎЕ  м │ 5 з ё 5,12: З "W.A. QUEEN III";:а 200,2: а 100,10: А X │ 1 е 50: Л X: а 200,2: а 100,10Ny
Е  м │ 5 з ё 5,16: З "HIT ANY KEY TO CONTINUE.";:Бе 2680N▒

Е  м │ 1 з Ю:ё 5,2:З "ERROR # "; м;" IN LINE # "; нNт
Е  м │ 1 з ё 5,5: ° 3,2,B: З "NOTICE:":° 3,2O5
Е  м │ 1 з ё 5,7: З "A SYNTAX ERROR HAS OCCURED.  EITHER SOME ERRORS WERE NOT"OЙ
(Е  м │ 1 з ё 5,8: З "DISCOVERED DURING DE-BUGGING OR SOMETHING HAS HAPPENED TO"O▒
2Е  м │ 1 з ё 5,9: З "THE DISK FILE"P
<Е  м │ 1 з ё 5,11: З "W.A. QUEEN III";:а 200,2:а 100,10: А X │ 1 е 50: Л X: а 200,2: а 100,10PP
FЕ  м │ 1 з ё 5,16: З "HIT ANY KEY TO CONTINUE.";:Бе 2680P{
PВ ******> ROUTINE FOR ANY OTHER ERRORSPй
ZЮ:ё 5,2: З "ERROR # "; м;" IN LINE # "; нP╙
dё 5,5: З "HIT ANY KEY TO CONTINUE.";:Q

nа 200,2:а 100,10:А X │ 1 е 50:Л X:а 200,2:а 100,10Q
xAN$ │  ТQ-
ВЕ AN$ │ "" з 2680Q:
МЪ:Бе 110CONTINUE.";:Бе 2680P{
PВ ******> ROUTINE FOR ANY OTHER ERRORSPй
ZЮ:ё 5,2: З "ERROR # "; м;" IN LINE # "; нP╙
dё 5,5: З "HIT ANY KEY TO CONTINUE.";:Q

nа 200,2:а 100,10:А X │ 1 е 50:Л X:а 200                                                                                                                                                                                                                                                                 
&#:ГCOPYWRITE T&D SOFTWARE 1992&G
:ГLABEL PRINTER FOR T&D BACKUPS&_:ГBY JASON REIGHARD&ЦЕ  Ж(33021)│50з т32:Бж630 :Д Бж 630:Ю:Х500:МP$(10)&╡:ГFONTS PRESET FOR DMP-133&рPI│20  :ГISSUE # DATE FONT (CONDENSED)'PL│77  :ГPROGRAM NUMBER FONTS  (MICROFONT)'
Ю'wЗ"LABEL PRINTER FOR T&D BACKUPS":З"BY JASON REIGHARD"::ГPRINT"reserved for copyright notice" 'ХЗ:З"MENU":З"1 LOAD LABEL"'й(З"2 SAVE LABEL"'╜2З"3 EDIT LABEL"'╥<З"4 PRINT LABEL"'хFЗ"5 NEW LABEL"'єPЗ"6 QUIT"(Z╗Й"SELECT 1-6 >";A$(4dЕA$│"1" з Е  Ж(186)│14 з 250 :Д 1450(\nЕA$│"2" з Е  Ж(186)│14 з 620 :Д1510(}xЕA$│"3" з Е F│1 з 360 :Д 620(ЮВЕA$│"4" з Е F│1 з 530 :Д 620(░МЕA$│"5" з 170(°ЦЕA$│"6" з З"ARE YOU SURE":ЙA$:ЕA$│"Y"  з Ю:К :Д Е A$│"YES" з К :Д10)
аБе10)mкЮ:Е F│1 з Й"THIS WILL ERASE YOUR LABEL IN MEMORY. DO YOU WANT TO ERASE IT (Y/N)";A$:ЕA$│"Y" з 180 :Д 10)З┤╗Й"ISSUE NUMBER >";I$)Ъ╛╗Й"MONTH >";M$)┬╚╗Й"YEAR (DO NOT INCLUDE THE 19)";Y$)╨╥А X│1е 10)Ё▄З"PROGRAM "X">";:╗Й"";P$(X))°цЛ X*ЁF│1:Бе 10*+·Ю:╬:З"LOAD":╗Й"ISSUE NUMBER>";I$*:
ЕI$│""з 10*Q
Щ "I",#1,I$л"/&&&"*b
Й#1,I$,M$,Y$*|
"АX│1е10:Й#1,P$(X):Л X*Н
,Ъ#1:F│1:Бе10*з
6Ю:З"SAVING ISSUE "лI$*╛
@Щ "O",#1,I$л"/&&&"*╧
J┘#1,I$,M$,Y$*щ
TАX│1е10:┘#1,P$(X):Л X*Ў
^Ъ#1:Бе10+:
hЮ:З"EDIT LABEL.  TYPE NUMBER AT LEFT TO EDIT.  THE @ KEY QUITS.+h
rАX│1е10:Е X│10 з 380 :ДЗ X" "X" "P$(X):ЛX+y
|ЗX""X""P$(X)+О
ЖЗ" 11 ISSUE# "I$+в
РЗ" 12 MONTH "M$+╡
ЪЗ" 13 YEAR "Y$+╘
д╗Й"EDIT LINE NUMBER >";LN$+ц
оЕ LN$│"@"з 10+Ї
╕L│ Й(LN$),
┬ЕL┤11 з 490 :Д 460,.
╠Е L│11 з ╗Й"ISSUE # ";I$:Бе360,R
╓Е L│12 з ╗Й"MONTH > ";M$:Бе 360,И
рЕ L│13 з ╗Й"YEAR (DO NOT TYPE THE 19) ";Y$:Бе 360,Х
ъА X│1е10,╛
ЇЕ L│X з З"PROGRAM #"X;:ЙP$(X):Бе 360,┼
■ЛX,╧Бе360,хЗ"PRINTING LABEL",¤З#м2, Л(27); Л(PI);-0&З#м2,"               T&D ISSUE "I$" "M$" 19"Y$-H0З#м2, Л(27); Л(PL);-S:АX│1е5-rDЗ#м2,X". "P$(X);:PP$│P$(X)-ЩNАZ│1 е 20м З(P$(X))л3:З#м2," ";:ЛZ-▒XЗ#м2,Xл5". "P$(Xл5)-┐bЛ X :Бе10.lЕ F│1 з 310 :Д Ю4:З"PRINT NO LABEL IN MEMORY!!!":а200,9:╗Й"PRESS ENTER";A$:Бе10.PvЮ:З@227,"PRINT INSTRUCTIONS? (Y/N)":Y$│"Y":N$│"N":NL$│"".wАPM$│"PRESS ANY KEY TO CONTINUE...".ЖКАTD│0е1E32.РФK$│ Т.╝ЮЕK$│Y$ з PD│м2 :Д ЕK$│N$ з PD│0 :Д Л TD.┬иЮ.■▓З#PD,"         LABEL PRINTER          ";:Е PD┤▓0 з З#PD	·Бж 17508>ё 24,12: З "----------------------------------";8aё 18,11: З "NAME: ";:╗ Й N$(N)8ОЕ  З(N$(N)) ▓34 з ё 18,11:Бж 660:Бе 15508├"ё 24,14: З "----------------------------------";8щ,ё 15,13: З "ADDRESS: ";:╗ Й A$(N)96Е  З(A$(N)) ▓34 з ё 15,13:Бж 660:Бе 15809K@ё 24,16: З "----------------------------------";9nJё 18,15: З "CITY: ";:╗ Й C$(N)9ЫTЕ  З(C$(N)) ▓34 з ё 18,15:Бж 660:Бе 16109╨^ё 24,18: З "----------------------------------";9Їhё 17,17: З "STATE: ";:╗ Й S$(N):!rЕ  З(S$(N)) ▓34 з ё 17,17:Бж 660:Бе 1640:V|ё 24,20: З "----------------------------------";:}Жё 14,19: З "ZIP CODE: ";:╗ Й Z$(N):кРЕ  З(Z$(N)) ▓34 з ё 14,19:Бж 660:Бе 1670:╙Ъё 30,22: З "IS THIS CORRECT (Y/N)?";:▀дX$ │  Т:їоЕ X$ │ "Y" з 1450;╕Е X$ │ "N" з Бж 1750:Бе 1540;"┬Бе 1700;Э╠А B│A е N:N$(B)│N$(Aл1):A$(B)│A$(Aл1):C$(B)│C$(Aл1):S$(B)│S$(Aл1):Z$(B)│Z$(Bл1):Л B:A│Aм1:N│Nм1:Е A│N з Бе 1450 :Д Л A;╖╓В ******>CLEAR SCREEN;╚рё 0,10:З " ";┘ъё 0,11:З " ";ъЇё 0,12:З " ";√■ё 0,13:З " "<ё 0,14:З " "<ё 0,15:З " "<.ё 0,16:З " "<?&ё 0,17:З " "<Q0ё 0,18:З " " <b:ё 0,19:З " "<sDё 0,20:З " "<ДNё 0,21:З " "<ХXё 0,22:З " "<їbё 0,23:З "                                                                               ";<√lР= vВ ******> ERROR TRAPPING ROUTINE=&АВ=,КВ=fФЕ  м │ 23 з Ю:ё 5,2: З "ERROR # "; м;" IN LINE # "; н=ШЮЕ  м │ 23 з ё 5,5: ° 3,2,B: З "NOTICE:":° 3,2=ўиЕ  м │ 23 з ё 5,7: З "BEFORE ANY INPUT/OUTPUT OPERATIONS CAN BE PERFORMED, YOU MUST FIRST">V▓Е  м │ 23 з ё 5,8: З "SELECT OPTION (1) 'CREATE BUDGET' AT THE MAIN MENU.  THIS WILL OPEN">к╝Е  м │ 23 з ё 5,9: З "THE DATA FILES WHICH WILL BE USED TO STORE THE DATA THIS">╪╞Е  м │ 23 з ё 5,10: З "PROGRAM PRODUCES."?╨Е  м │ 23 з ё 5,12: З "W.A. QUEEN III";: а 200,2: а 100,10?U┌Е  м │ 23 з ё 5,16: З "HIT ANY KEY TO CONTINUE";: Бе 2680?РфЕ  м │ 26 з Ю: ё 5,2: З "ERROR # "; м;" IN LINE # "; н?┬юЕ  м │ 26 з ё 5,5: ° 3,2,B: З "NOTICE:":° 3,2@°Е  м │ 26 з ё 5,7: З "DISK FILE SPECIFIED CAN NOT BE FOUND.  CHECK THE DISK DIRECTORY."@NЕ  м │ 26 з ё 5,8: З "OR USE ANOTHER DISK."@▓Е  м │ 26 з ё 5,10: З "W.A. QUEEN III";:а 200,2: а 100,10: А X │ 1 е 50: Л X: а 200,2: а 100,10@ЁЕ  м │ 26 з ё 5,16: З "HIT ANY KEY TO CONTINUE";: Бе 2680A* Е  м │ 28 з Ю: ё 5,2:З "ERROR # "; м;" IN LINE # "; нA\*Е  м │ 28 з ё 5,5: ° 3,2,B: З "NOTICE:":° 3,2A░4Е  м │ 28 з ё 5,7: З "DISK BEING USED IN FULL.  YOU WILL HAVE TO START ANOTHER"A┘>Е  м │ 28 з ё 5,8: З "PROGRAM DISK."B<HЕ  м │ 28 з ё 5,10: З "W.A. QUEEN III";:а 200,2:а 100,10: А X │ 1 е 50: Л X: а 200,2: а 100,10ByRЕ  м │ 28 з ё 5,16: З "HIT ANY KEY TO CONTINUE";:Бе 2680B│\Е  м │ 30 з Ю:ё 5,2:З "ERROR # ";  м;" IN LINE # "; нBхfЕ  м │ 30 з ё 5,5: ° 3,2,B: З "NOTICE:":° 3,2C@pЕ  м │ 30 з ё 5,7: З "DISK BEING USED IS WRITE PROTECTED.  USE ANOTHER DISK OR REMOVE"CwzЕ  м │ 30 з ё 5,8: З "THE WRITE PROTECTION LABEL."C┌ДЕ  м │ 30 з ё 5,10: З "W.A. QUEEN III";:а 200,2:а 100,10: А X │ 1 е 50: Л X: а 200,2: а 100,10DОЕ  м │ 30 з ё 5,16: З "HIT ANY KEY TO CONTINUE";: Бе 2680DRШЕ  м │ 18 з Ю:ё 5,2:З "ERROR # ";  м;" IN LINE # "; нDДвЕ  м │ 18 з ё 5,5: ° 3,2,B: З "NOTICE:":° 3,2D▀мЕ  м │ 18 з ё 5,7: З "AN ATTEMPT WAS MADE TO OPEN A DATA FILE WHICH WAS ALREADY OPEN."E:╢Е  м │ 18 з ё 5,8: З "THIS ERROR WAS CORRECTED AUTOMATICALLY WHEN THIS ERROR OCCURED."EЯ└Е  м │ 18 з ё 5,10: З "W.A. QUEEN III";: а 200,2: а 100,10: А X │ 1 е 50: Л X: а 200,2: а 100,10E▄╩Е  м │ 18 з ё 5,16: З "HIT ANY KEY TO CONTINUE";:Бе 2680F╘Е  м │ 20 з Ю:ё 5,2:З "ERROR # "; м;" IN LINE # "; нFG▐Е  м │ 20 з ё 5,5: ° 3,2,B: З "NOTICE:":° 3,2FашЕ  м │ 20 з ё 5,7: З "AN INPUT/OUTPUT ERROR HAS OCCURED.  MAKE SURE ALL CONNECTIONS"FўЄЕ  м │ 20 з ё 5,8: З "ARE MADE PROPERLY.  IF THIS ERROR STILL OCCURES TRY USING A"G№Е  м │ 20 з ё 5,9: З "BACKUP DISK."GД	Е  м │ 20 з ё 5,11: З "W.A. QUEEN III";: а 200,2: а 100,10: А X │ 1 е 50: Л X: а 200,2: а 100,10G┴	Е  м │ 20 з ё 5,16: З "HIT ANY KEY TO CONTINUE";:Бе 2680G∙	Е  м │ 6 з Ю:ё 5,2:З "ERROR # "; м;" IN LINE # "; нH*	$Е  м │ 6 з ё 5,5: ° 3,2,B: З "NOTICE:":° 3,2HГ	.Е  м │ 6 з ё 5,7: З "THE COMPUTER HAS RUN OUT OF MEMORY.  THIS ERROR SHOULDN'T HAVE"H┌	8Е  м │ 6 з ё 5,8: З "OCCURED.  EITHER SOMETHING HAS HAPPENED TO THE DISK FILES OR"I3	BЕ  м │ 6 з ё 5,9: З "SOMETHING HAS HAPPENED TO THE COMPUTER.  USE A MEMORY CHECKING"IЗ	LЕ  м │ 6 з ё 5,10: З "PROGRAM TO SEE IF ANYTHING IS WRONG INSIDE THE COMPUTER."Iъ	VЕ  м │ 6 з ё 5,12: З "W.A. QUEEN III";:а 200,2: а 100,10: А X │ 1 е 50: Л X: а 200,2: а 100,10J'	`Е  м │ 6 з ё 5,1 +;&#
:ГCOPYWRITE T&D SOFTWARE 1992&T
В ******> COCO-3 CHRISTMAS CARD ADDRESS LIST&xВ ******> <C> 1991 T&D SOFTWARE&ЩВ ******> BY: W.A. QUEEN III&Я(В&е2В&╟<ў:у 2,0:° 3,2:Т &HE047,0:т 80&яFТ 41596,255:Т 41598,255:Т 41599,255& PИ я Бе 1910'Z└ 1'AdХ 10000:М N$(100), A$(100), C$(100), S$(100), Z$(100)'GnЮ'wxё 25,2: З "******************************";'зВё 25,3: З "* COCO-3 CHRISTMAS CARD LIST *";'╫Мё 25,4: З "*   <C> 1991  T&D SOFTWARE   *";(Цё 25,5: З "*                            *";(7аё 25,6: З "*     BY: W.A. QUEEN III     *";(gкё 25,7: З "******************************";(З┤ё 30,11: З "1. CREATE LIST"(и╛ё 30,12: З "2. PRINT LABELS"(╞╚ё 30,13: З "3. EDIT LIST"(ъ╥ё 30,14: З "4. RETURN TO BASIC")	▄ё 32,17: З "SELECT (1-4)";)ца 200,4)"ЁAN$ │  Т)8·Е AN$ │ "1" з 300)N
Е AN$ │ "2" з 710)d
Е AN$ │ "3" з 920)Й
Е AN$ │ "4" з:Ъ: Т 113,0:в 40999)Ф
"Бе 240)о
,В ******> CREATE LIST)┤
6В)║
@В)╞
JБж 1750)р
Tё 37,15:З "--------";*	
^ё 20,14:З"ENTER FILE NAME: ";:╗ Й L$*1
hЕ  З(L$) ▓8 з ё 20,14:Бж 660:Бе 350*=
rБж 1750*G
|N│Nл1*|
Жё 24,12: З "----------------------------------";*Я
Рё 18,11: З "NAME: ";:╗ Й N$(N)*╦
ЪЕ  З(N$(N)) ▓34 з ё 18,11:Бж 660:Бе 400+
дё 24,14: З "----------------------------------";+&
оё 15,13: З "ADDRESS: ";:╗ Й A$(N)+R
╕Е  З(A$(N)) ▓34 з ё 15,13:Бж 660:Бе 430+З
┬ё 24,16: З "----------------------------------";+к
╠ё 18,15: З "CITY: ";:╗ Й C$(N)+╓
╓Е  З(C$(N)) ▓34 з ё 18,15:Бж 660:Бе 460,
рё 24,18: З "----------------------------------";,/
ъё 17,17: З "STATE: ";:╗ Й S$(N),[
ЇЕ  З(S$(N)) ▓34 з ё 17,17:Бж 660:Бе 490,Р
■ё 24,20: З "----------------------------------";,╖ё 14,19: З "ZIP CODE: ";:╗ Й Z$(N),уЕ  З(Z$(N)) ▓34 з ё 14,19:Бж 660:Бе 520-ё 30,22: З "IS THIS CORRECT (Y/N)?";-&X$ │  Т--0Е X$ │ "Y" з 590-M:Е X$ │ "N" з Бж 1750:Бе 390-XDБе 550-ВNё 30,22: З "ENTER ANOTHER (Y/N)?   ";-МXX$│ Т-иbЕ X$│"Y" з X$│"":Бе 370-─lЕ X$│"N" з X$│"":Бе 640-╧vБе 600-уАЩ"O",1,L$:З#1,N.0КА A│1 е N:З#1,N$(A);",";A$(A);",";C$(A);",";S$(A);",";Z$(A):Л A:Ъ:Бе 110.IФВ ******> CLEAR LINE.OЮВ.UиВ.]▓З ".c╝Р.Ж╞В ******> PRINT ADDRESS LABELS.М╨В.Т┌В.ЮфБж 1750.╣юё 37,15: З "--------";.ф°ё 20,14: З "ENTER FILE NAME: ";:╗ Й L$/
Е  З(L$) ▓ 8 з ё 20,14:Бж 660:Бе 750/Бж 1750/Gё 33,14:° 3,2,B: З "READY PRINTER";:° 3,2/{ ё 23,16: З "PRESS <ENTER> WHEN READY TO PRINT";/З*X$ │  Т/а4Е X$ ┤▓  Л(13) з 810/м>Бж 1750/└HЩ"I",1,L$:Й#1,N/╬RА A│1 е N/ї\Й#1, N$(A),A$(A),C$(A),S$(A),Z$(A)0$fё 32,14:° 3,2,B:З "PRINTING LABELS";:° 3,20upЗ#м2:З#м2,N$(A):З#м2,A$(A):З#м2,C$(A);:З#м2,", ";:З#м2,S$(A):З#м2,Z$(A):З#м20}zЛ A0ГДЪ0ООБе 1100жШВ ******> EDIT LIST0мвВ0▓мВ0╛╢Бж 17500┘└ё 37,15: З "--------";1╩ё 20,14: З "ENTER FILE NAME: ";:╗ Й L$1-╘Е  З(L$) ▓ 8 з ё 20,14:Бж 660:Бе 9701<▐Щ "I",1,L$1FшЙ#1,N1СЄА A│1 е N:Е  М(1) з Бе 1200 :Д Й #1, N$(A), A$(A), C$(A), S$(A), Z$(A)1Э№Бж 17501╛ё 30,10:З L$;" NAMESET # ";A1°ё 20,11: З "----------------------------------------"2
ё 23,12: З N$(A)2"$ё 23,13: З A$(A)2@.ё 23,14: З C$(A);" "S$(A)2U8ё 23,15: З Z$(A)2РBё 20,16:  З "----------------------------------------"2кLё 35,17: З "L> LEAVE"2┼Vё 35,18: З "C> CHANGE"2р`ё 35,19: З "D> DELETE"2■jё 34,21: З "SELECT ONE:";3tX$│ Т3(~Е X$ │ "L" з X$ │"":Бе 11903HИЕ X$ │ "C" з X$ │"":Бе 12103aТЕ X$ │ "D" з Бе 17403mЬБе 11403ИжЕ A│N з Бе 1450::Д Л A3Ц░Ъ:Бе 14303в║Бж 17503╫─ё 24,12: З "----------------------------------";3·╬ё 18,11: З "NAME: ";:╗ Й N$(A)4'╪Е  З(N$(A)) ▓34 з ё 18,11:Бж 660:Бе 12304\тё 24,14: З "----------------------------------";4Вьё 15,13: З "ADDRESS: ";:╗ Й A$(A)4пЎЕ  З(A$(A)) ▓34 з ё 15,13:Бж 660:Бе 12604фё 24,16: З "----------------------------------";5
ё 18,15: З "CITY: ";:╗ Й C$(A)54Е  З(C$(A)) ▓34 з ё 18,15:Бж 660:Бе 12905iё 24,18: З "----------------------------------";5Н(ё 17,17: З "STATE: ";:╗ Й S$(A)5║2Е  З(S$(A)) ▓34 з ё 17,17:Бж 660:Бе 13205я<ё 24,20: З "----------------------------------";6Fё 14,19: З "ZIP CODE: ";:╗ Й Z$(A)6CPЕ  З(Z$(A)) ▓34 з ё 14,19:Бж 660:Бе 13506lZё 30,22: З "IS THIS CORRECT (Y/N)?";6xdX$ │  Т6ОnЕ X$ │ "Y" з 14206зxЕ X$ │ "N" з Бе 12106│ВБе 13806╬МЕ A│N з Бе 1450 :Д Л A7ЦЩ"O",1,L$:З#1,N:А A│1 е N:З#1,N$(A);",";A$(A);",";C$(A);",";S$(A);",";Z$(A)7/аЛ A:Ъ:Бе 1107;кБж 17507g┤ё 35,12:° 3,2,B: З "END OF FILE";:° 3,27Р╛ё 29,14: З "DO YOU WISH TO ADD ANY";7│╚ё 32,15: З "NEW NAMES <Y/N>?";7╤╥X$│ Т:Е X$│"N"з Ю:Бе 12007ч▄Е X$│"Y"з Бе 15207єцБе 14907¤ЁN│Nл18 ╓&&
:ГCOPYRIGHT (C) 1992 BY T&D S.S.&>:ГBY JEFF STEINPORT&_
Ю:З"   --DO YOU WISH TO--":З&~З"    (1)STORE A NEW FILE"&ЩЗ"    (2)SEE THE FILE"&л(З"    (3) END&─2Й"ENTER 1 2 OR 3";Q1&█<И Q1 Бе 80,130,420&хFБе 10& PЩ"O",#1,"MEMBERS/DAT"'
ZБж 430'!dЕ N$│""з Ъ#1:Бе 10'3n┘ #1,N$,A$,P$'=xБе 90'XВЩ "I",#1,"MEMBERS/DAT"'pМЩ "O",#2,"TEMP/DAT"'vЦЮ'ЛаЕ  М(1)│м1 з 320'ЭкЙ #1,N$,A$,P$'о┤З:З"NAME:"N$'╝╛З"NO.:"A$'╩╚З"CO.:"P$'є═З:Й"CHANGE THIS FILE(YES,NO)...";Q2$(╥Е Q2$│"NO"з 300(▄З"DO YOU WISH TO:"(8цЗ"1)CHANGE THE NAME?"(SЁЗ"2)DELETE THE COMIC?"(u·З"3)GO ON TO THE NEXT COMIC?"(}
Й N(Ф
И N Бе 290,160,300(Я
Бе 230(╣
"Й"INPUT NEW COMIC";A$(╦
,┘ #2,N$,A$,P$(╤
2Ю(▄
6Бе 160)
@З:Й"ADD NEW COMIC(YES,NO)...";Q3$)
JЕ Q3$│"NO" з 380)"
TБж 430)3
^Е N$│""з 380)E
h┘ #2,N$,A$,P$)P
rБе 340)\
|Ъ #1,#2)o
Ж╥"MEMBERS/DAT")Н
Р╓"TEMP/DAT"е"MEMBERS/DAT")Ч
ЪБе 10)в
дБе 490)╟
оЮ:З"PRESS<ENTER>WHEN FINISHED":З)р
╕Й"NAME OF COMIC:";N$)Є
┬Е N$│"" з 480*

╠Й"NO.:";A$*
╓Й"CO.:";P$*
рР*+
ъЗ"TAKE OUT DISK"*G
ЇЗ"OR WOULD YOU LIKE TO"*m
■З"PLAY ANOTHER GAME ON THIS DISK"*vЙ V$*КЕ V$│"YES"з 600*ЭЕ V$│"NO"Бе550*и&З"BYE"*о0К*┬XЙ"WHAT FILE";X$*╧b█:╙ X$,R*╒lОMIC:";N$)Є
┬Е N$│"" з 480*

╠Й"NO.:";                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Є&#
:ГCOPYWRITE T&D SOFTWARE 1992&3
Бж1000:Бе20&aY│Yл10:┼(X,Yм21)м(Z,Yм4),T,╜:И а(X,Y)Бе15&╗K│0:Y│Yм11:DX│8:DY│0:C│4:Бж1500:DX│м8:C│2:Бж1500:DX│0:DY│10:C│1:Бж1500:ЕK з100:ДБж800'X│XлD:┼(X,3)м(Xл21,12),T,╜:X│XлD:┼(X,3)м(Xл21,12),T,╜:ЕX┤▓XL ░ Т│""з20'ЕX│XL з 1600'5Е а(Xл4н(D┤0)л10,21)▓1з20'АX│Xл4н(D┤0)л8:╗(X,3)м(Xл7,3),╛:╞"BM=X;,10C1RFDR5UEBD3C4L2BL3L3":Бж1440'╩(X│Xл2:┼(X,4)м(Xл5,13),N,╜:╞"BM-2,-4C1RBF2DFR5EEBE2LBD4C4GBL9H":Бж1440(2┼(X,6)м(Xл5,15),N,╜:╞"BU2C1UBM+1,3DBR9UBM+1,-2UBM+3,3LGD2BL12U2":Бж1440(z<NL│NLл1:┼(X,8)м(Xл5,17),N,╜:Бж1440:╞"C1NU2ND2L2U7BR15D5LD3":─(X,0)м(Xл5,17),T,G:Y│21:Z│Xл5:Бе15(УdЕK│1░Y▓158Бж800:Бе20(лnDY│0:ЕK▓5Бж700:Бе20(ЄxЕ2░K зC│8:DX│м16:Бж1500:ЕK▓7зX│Xм8:Бе110:ДXL│Xм8:N│Xл6:C│Yл8:Бе160)7ВЕ4░K зC│8:DX│16:Бж1500:ЕK▓7зX│Xл8:Бе110:ДN│Xл14:XL│X:C│Yл8:Бе160)MМXL│X:N│Xл6:C│Yл18)]а╔"O5L55T55")ЭкАK│1е4:┼(XL,Y)м(N,C),T,и:╔"CBAGFEDO-":Л:SC│SCм10:ЕSC┤0зSC│0)┐┤NL│NLм1:╗(X,Y)м(Xл5,Yл8),╛,BF*
╛LF│LFм15:ЕLF┤0Бж1435:╗(250,150)м(250,120),╛:Бе10000:ДБж950:Бж1400:Бе20*X╝╔"O1L10T10":АK│1е4:┼(Xм8,Y)м(Xл14,Yл8),T,и:╔"DEFGABCO+":SC│SCл10:Бж1435:Л*z┴NL│NLм3:ЕLF┤150зLF│LFл5:Бж950*│╞Y│Yм1:─(Xм8,10)м(Xм3,Y),T,G:┼(Xм8,20)м(Xм3,Yл10),T,╜*т╦─(X,10)м(Xл5,Y),T,G:┼(X,20)м(Xл5,Yл10),T,╜+#╨─(Xл8,Y)м(Xл13,10),T,G:┼(Xл8,Yл10)м(Xл13,20),T,╜:Бж1400:Бе20+K ╔"O3L255T255AA":SC│SCл1:ЕY▓158з1400+й*D│DF(4н а(X,Y)л а(Xл2,Y)м6)мDF(4н а(X,Yл10)л а(Xл2,Yл10)м6):ЕD┤0зSC│SCмD:╔"O3L255T255ABC"+┤4Бе1400+рДY│Yм32:АX│0е10:З@YлX, Л( Д(26)л64);:Л:Р,ОЗ@X,A$:Z│Xм1:АY│1е З(A$):АC│0е4:ИN Бе920:B$│ Т:ЕB$┤▓""з930,RШЗ@ZлYл32нC," ";:З@ZлYл32л32нC, Р(A$,Y,1);:ЛC,Y,XвР,К╢┴4,1:╗(250,147)м(250,145мLF),╜:╗м(250,20),╛:Р,бш╚3,1:╝:Ю:Y│ Д(м Я),╚Є╞"BM1,40C2U3RLU3ERFD6":Y│522:Бж900,щ№╞"C4BM1,50U7R2FDGDFDG":Бж900-	╞"C3BM4,59C3GLHU5ERF":Бж900-)╞"C2BM4,70L3U4NRU3R3":Бж900-G$╞"BM1,80C3U4NRU3R3":Бж900-i.╞"BM1,90C4U4NU3R3NU3D4":Бж900-а8╞"BM1,100C2NR3U7":A$│"MIKE  MOORE":N│1:X│106:Бж910-╠B╞"BM1,109C4U5ERFD5G":A$│"BY":X│78:Бж910.G╞"BM1,119C3NU6FREU6":A$│"ALPHABET SOUP":X│41:Бж910.^L╞"C4BM0,14R11D157R2UC2NU156R226NU156DC4R2NL228U157R16":З@3,"SUBMITTED TO T&D SOFTWARE".╕VA$│"FREU2HLHU2ERFBR8HLGD6FREBR5U6ERFD6GBR6U8R2FD2GDFD2BR5NR3U4NRU4R3":╞"C2BM9,185XA$;/`╞"BM127,186U8D4R4U4D8BR3U8BM+8,1HLGD6FREU2BM+4,3U8D4R5U4D8BM+6,-1X 5&#:ГCOPYWRITE T&D SOFTWARE 1992&{
:Г note: IF YOU HAVE A COCO 2,     CHANGE THE VALUE OF 'PK' IN     LINE 2 TO 65495.&ИPK│65497&▒Ю0:З@105,"block";:З@112,"destroyer";&╜╔ "V31"&╤А X│1 е 500:Л X'!А X│0 е 32:Ь(X,30,2):А P│1 е 10:Л P:╔"L100;O1;C":А P│1 е 10:Л P:Э(X,30):Л X'0Ь(32,30,2)'DА X│1 е 500:Л X'N	а 1,1'Ц
А X│29 е 8 й м1:А P│1 е 15:Л P:Ь(32,X,4):А P│1 е 15:Л P:Э(32,X):Л X'░З@105, б(16, Л(191));'▌╔ "L255;O1;BAGFEDCBAFEDCBAEDCBADCBACBAB"'ў
З@105, б(16, Л(128));('З@105,"by";:З@108,"dean";:З@113,"huizenga";(;А X│1 е 500:Л X(HЭ(32,30)(ЩА X│33 е 63:Ь(X,30,2):А P│1 е 10:Л P:╔"L100;O1;C":А P│1 е 10:Л P:Э(X,30):Л X(нА X│1 е 500:Л X(ш╔ "L255;O5BAGFEDCO4BAGFEDCO3BAGFEDCO2BAGFEDCO1BAGFEDC"(юЮ)З@9,"block destroyer")─З:З" DESTROY AS MANY BLOCKS POSSIBLEBEFORE YOU ARE DESTROYED. YOU   CAN BE DESTROYED BY ONE OF TWO  WAYS. 1) BY HITTING THE CHARGED BLOCK (THERE IS ONE CHARGED     BLOCK PER SCREEN)."*7З"2) OR BY GETTING HIT BY THE     WHITE MISSILES WHICH TRAVEL FROMRIGHT TO LEFT AT THE BOTTOM OF  THE SCREEN."*BБж 134+8З:З" YOU MAY ALSO GET A NEW SCREEN  BY PRESSING 'Q', AS LONG AS YOU HAVE MORE THAN 25 POINTS, AND   THERE ARE NO WHITE MISSILES ON  THE SCREEN.                     note: WHEN RECIEVING A NEW      SCREEN,(BY PRESSING 'Q'), YOU'LLLOSE 25 PTS."+]З"YOU WILL ALSO GAIN 2 SHIELDS."+hБж 134,.З " WHEN A WHITE MISSILE IS COMING AT YOU, YOU CANNOT MOVE OUT OF  IT'S PATH. HOWEVER, YOU MAY USE A SHIELD. PRESS THE SPACEBAR FORSHIELDS, YOUR SHIP, AND THE     WHITE MISSILE WILL TURN BLUE.",9Бж 134-!З " WHEN SHOOTING, YOUR SHIP IS    IMMOBLE. ALSO, WHEN A WHITE     MISSILE IS HEADING FOR YOUR     SHIP, YOU CAN'T MOVE.           CONTROL: RIGHT JOYSTICK.        note: YOUR SCORE IS DISPLAYED ATTHE EXTREME LEFT OF THE SCREEN."-xЗ " THE NUMBER OF SHIELDS LEFT IS  DISPLAYED AT THE EXTREME RIGHT  OF THE SCREEN."-Ц З@456, "HIGH SPEED(Y/N)?"-╜!A$│ Т:Е A$│"Y" ▒ A$│"N" з 34 :Д 33-╙"Е A$│"Y" з Т PK,0-э#Е A$│"N" з Т (PKм1),0-∙$S│3:P│0.%Ю0.&&А X│1 е 100:H│ Д(61)л1:V│ Д(24)л1.;'Е X│50 з Q│H:W│V.L(Ь(H,V,4):Л X.Z)H│32:V│30.}*З@9,"block";:З@15,"destroyer";.С+J│ Н(0):K│ Н(1).п,Е P▓│25 ░  Т│"Q" з Бе 120.╖-C│2.╩.З@0,P;:З@28,S;.┌/Y│ Ж(65280).Ў0Е Y│254 ▒ Y│126 з Бж 59/	1Е J▓50 з Бж 73/2Е J┤10 з Бж 77//3Е K▓50 з Бж 81/B4Е K┤10 з Бж 85/O5Ь(H,V,2)/\6R│ Д(90)/o7Е R│30 з Бж 89/В8Е R│60 з Бж 98/Ц9Е R│90 з Бж 107/а:Бе 43/о;а 1,1:A│H/╕<Z│Vм1/┬=Z│Zм1/╧>Ь(A,Z,4)/ъ?Е A│Q ░ Zм1│W з Бе 1160@Е  С(A,Zм1)│4 з Бе 680(AЕ Z│2 з Э(A,2):╔"L200;O3;CDC":Р03BЭ(A,Z)0=CБе 610TD╔"L255;O1;BAGFEDC"0_EЭ(A,Z)0lFЭ(A,Zм1)0vGP│Pл10|HР0ЗIЭ(H,V)0СJH│Hл10гKЕ H▓62 з H│620йLР0┤MЭ(H,V)0╛NH│Hм10╬OЕ H┤0 з H│00╘PР0▀QЭ(H,V)0щRV│Vл10·SЕ V▓31з V│311TР1UЭ(H,V)1VV│Vм11'WЕ V┤29 з V│291-XР1AYА L│63 е 1 й м11MZЗ@28,S;1o[Е S▓0 ░  Т│ Л(32) з C│6:S│Sм11Л\Ь(L,29,C):╔"L255;O1;DC"1з]Е  С(Lм1,29)│2 з Бе 1231┤^Ь(H,V,C)1└_Э(L,29)1╚`Л L1╬aР1тbА L│63 е 1 й м11юcЗ@28,S;2dЕ S▓0 ░  Т│ Л(32) з C│6:S│Sм12,eЬ(L,30,C):╔"L255;O1;DC"2HfЕ  С(Lм1,30)│2 з Бе 1232UgЬ(H,V,C)2ahЭ(L,30)2iiЛ L2ojР2ГkА L│63 е 1 й м12ПlЗ@28,S;2▒mЕ S▓0 ░  Т│ Л(32) з C│6:S│Sм12═nЬ(L,31,C):╔"L255;O1;DC"2щoЕ  С(Lм1,31)│2 з Бе 1232ЎpЬ(H,V,C)3qЭ(L,31)3
rЛ L3sР3>t╔"L255;O1;BAGFEDCBAFEDCBAEDCBADCBACBAB":Ю3кuЗ@192," YOU HAVE HIT THE CHARGED BLOCK.                                 YOUR SHIP WAS BLOWN TO PIECES."3┐vА O│1 е 2000:Л O3╩wБе 1263╒xP│Pм253▀yS│Sл23щzБе 374{╔"L255;O1;BAGFEDCBAFEDCBAEDCBADCBACBAB":Ю4@|З@192,"    YOUR SHIP WAS DESTROYED."4U}А O│1 е 1000:Л O4e~Т 65494,0:Ю4zЗ@44,"game over"4ФАЗ@202,"YOUR SCORE:";P4▒БЗ@457,"PLAY AGAIN(Y/N)?"4╗ВA$│ Т4╬ГЕ A$│"Y" з О364ЎДЕ A$│"N" з Т(PKм1),0:Т 113,0:в409995
ЕБе 1305ЖЗ@457,"PRESS <ANY KEY>"5(Зв445395.ИЮ54ЙРSTROYED."4U}А O│1 е 1000:Л O4e~Т 65494,0:Ю4zЗ@44,"game over"4ФАЗ@202,"YOUR SCORE:";P4▒БЗ@457,"PLAY AGAIN(Y/N)?"4╗ВA$│ Т4╬ГЕ A$│"Y" з О364ЎДЕ A$│"N" з Т(PKм1),0:Т 113,0:в409995
ЕБе 1                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        ├ 
╟├┼╚┼.!╟┴╚%&'()╞┴╞╟╚01├23456┬┴┴           DIR     BAS+ЭCOVER   BAS,CVR-MOD BIN-wREMEMBERDAT
 "└NAMEFILEBAS#COMICS  BAS┘SOUP    BASїBUDGET  BAS$dLABELER BAS114     &&&
 *иKAYAK   BASОJB-ROBOTBAS/vJB-DEMO BAS.DESTROYRBAS 8BUDGET  ORG
 72BUDGET  UPD
 8-SATLITE BASMCARDLISTBAS>FILE   DAT
 9EST    DAT
 		                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                "JEFF STEINPORT                  1000 DISK DR.                   CASSETTE,MI.                    98765                           (555)-555-5555                  "
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              	&!
:ГCOPYRIGHT(C)1992 T&D S.S.&9:ГBY JEFF STEINPORT&GЮ:Х 10000&b(Щ"D",#1,"REMEMBER",192&z2L│0:M│0:N│0:O│0:P│0&Й<И Ё Бе 560&гFЗ"TO END PUSH  BREAK"&├PЗ"       FILE YOUR FRIENDS"&═ZБе570&╙dЮ&Єn╗ Й"NAME: ";S$:Е L│1 з 190'x╗ Й"PHONE: ";N$:Е M│2 з 190';В╗ Й"STREET ADDRESS: ";Q$:Е N│3 з 190'aМ╗ Й"CITY,STATE: ";CS$:Е O│4 з 190'ДЦ╗ Й"ZIP CODE: ";Z$:Е P│5 з 190'баЗ:З:Й"RECORD NUMBER: ";R'├кЗ"READY DISK AND PRESS ENTER"'┘┤A$│ Т:Е A$│""з180'№╛Е  З(S$)┤32 з S$│S$л" ":Бе 190(9╚Е  З(S$)▓32 з З"NAME TOO LONG PLEASE REENTER":L│1:Бе 110(\╥Е  З(N$)┤32 з N$│N$л" ":Бе 210(б▄Е  З(N$)▓32 з З"PHONE NUMBER TOO LONG,PLEASE REENTER":M│2:Бе 120(─цЕ  З(Q$)┤32 з Q$│Q$л" ":Бе 230)ЁЕ  З(Q$)▓32 з З"STREET ADDRESS TOO LONG,PLEASE REENTER":N│3:Бе 130)1·Е  З(CS$)┤32 з CS$│CS$л" ":Бе 250)y
Е  З(CS$)▓32 з З"CITY AND STATE TOO LONG,PLEASE REENETR":O│4:Бе 140)Ь
Е  З(Z$)┤32 з Z$│Z$л" ":Бе 270)▌
Е  З(Z$)▓32 з З"ZIP CODE TOO LONG,PLEASE REENTER":P│5:Бе 150)Ї
"S$│S$лQ$лCS$лZ$лN$*
,┘ #1,S$*

6┼#1,R**
@З"COMPLETE":АS│1 е 1000:Л S*2
JЪ#1*<
TБе 30*V
^Ю:Й"RECORD NUMBER:";R*a
h─ #1,R*m
rЙ #1,A$*v
|З A$*~
ЖЪ#1*Э
РЗ"PRESS ENTER TO CONTINUE"*┤
ЪA$│ Т:Е A$│""з 410*╛
дБе 30*ъ
оЮ:Й"WHAT FILE DO YOU WANT TO DELETE:";R+
╕Й"ARE YOU SURE(Y/N)";Y$+
┬Е Y$│"Y"з 500+*
╠Е Y$│"N"з 470+M
╓З"IF YOU DON'T WANT TO DELETE"+v
рЗ"FILE #"R;"THEN WHY DID YOU SELECT"+з
ъЗ"THIS SECTION?":А F│1 е 2000:Л F:Ъ #1:Бе 30+╖
ЇЗ"DELETING"+┬
■S$│" "+╬┘ #1,S$+┘┼ #1,R+∙З"DELETED":А F│1 е 1000:Л F,&Ъ#1:Бе 30,0Ъ#1:К,0:З"         DO YOU WANT TO",СDЗ"          1)SAVE A FILE                   2)SEE A FILE                    3)DELETE A FILE",░NЗ"             (1,2 OR 3)",╟XR$│ Т:Е R$│""з 600,┘bЕ R$│"1"з 100,ыlЕ R$│"2"з 350,¤vЕ R$│"3"з 430-АБе 5900Ъ#1:К,0:З"         DO YOU WANT TO",СDЗ"          1)SAVE A FILE                   2)SEE A FILE                    3)DELETE A FILE",░NЗ"             (1,2 OR 3)",╟XR$│ Т:Е R$│""з 600,┘bЕ R$│"1"з 100,ыlЕ R$│"2"з 350,¤vЕ R$│"3"з 430-                                                                                                                                                                                                                                                                 2a&#
:ГCOPYWRITE T&D SOFTWARE 1992&?
В ******> COCO-3 BUDGET&cВ ******> <C> 1992 T&D SOFTWARE&ДВ ******> BY: W.A. QUEEN III&К(В&Р2В&┤<Х:ў:у 2,0:° 3,2:Т &HE047,0:т 80&▄FТ 41596,255:Т 41598,255:Т 41599,255&ьPИ я Бе 1990&ЄZЮ'"dё 25,2: З "******************************";'Rnё 25,3: З "*        COCO-3 BUDGET       *";'Вxё 25,4: З "*   <C> 1992 T&D SOFTWARE    *";'▓Вё 25,5: З "*                            *";'тМё 25,6: З "*     BY: W.A. QUEEN III     *";(Цё 25,7: З "******************************";(3аё 30,11:З "1. CREATE BUDGET"(Uкё 30,12:З "2. UPDATE ACCOUNT"(z┤ё 30,13:З "3. PRINT-OUT SUMMARY"(Э╛ё 30,14:З "4. RETURN TO BASIC"(╝╚ё 33,17: З "SELECT (1-4)";(╚╥а 200,4(╒▄AN$ │  Т(ыцЕ AN$ │ "1" з 280)
ЁЕ AN$ │ "2" з 830)·Е AN$ │ "3" з 1290):
Е AN$ │ "4" з Т 113,0:в 40999)E
Бе 220)e
В ******> CREATE DATA FILES)k
"В)q
,В)Я
6Щ "D",#1, "BUDGET/ORG",5:╨ #1, 5  з OAMT$)╧
@Щ "D",#2, "BUDGET/UPD",5:╨ #2, 5  з UPDAMT$)█
JБж 1650)ё
TЕ  е(2) │ 0 з 400*

^А I │ 1 е 9*
h─ #2,I*%
rAMT(I) │  в(UPDAMT$)*:
|PTOT│PTOTлAMT(I)*B
ЖЛ I*N
РБж 1810*w
Ъё 20,13: З "TODAYS DATE (MM/DD/YY):"*Я
дё 12,15: З "PROJECTED INCOME FROM:"*╕
оё 36,15: З "SALARY:"*╤
╕ё 37,16: З "OTHER: "*ч
┬ё 44,13:╗ Й DATE$+

╠Е  З(DATE$) ┤ 8 з 450+
╓ё 44,15:╗ Й SAL$+-
рё 44,16:╗ Й OTHER$+@
ъSAL │  Й(SAL$)+W
ЇOTHER │  Й(OTHER$)+l
■BTOT │ SALлOTHER+rЮ+Сё 32,2: З "CURRENT BUDGET"+рё 15,4:° 3,2,U: З "ACCOUNT #      ACCOUNT DESCRIPTION      BALANCE";:° 3,2+ш&З:З+Ў0SUMBUD │0,:А I │ 1 е 9,pDЗ ═ "                ####%        %%                  %   $$####.##-";ACNO(I); SPACE$;DESC$(I);AMT(I),НNSUMBUD │ SUMBUD л AMT(I),ХXЛ I,ыbё 28,19:З ═ "%              %$$###.##"; "REMAINING MONEY:";BTOT м (SUMBUD м PTOT)-!lё 20,21:З "ENTER ACCOUNT # OF ITEM TO BE CHANGED"-Hvё 28,22:Й "(ENTER 000 TO QUIT)";AN-[АЕ AN │ 0 з 720-aКЮ-nФN│ANо100-ЧЮё 20,10:З "ACCOUNT NUMBER: ";ACNO(N)-╟иё 15,11:З "ACCOUNT DESCRIPTION:  ";DESC$(N)-■▓ё 20,12:З "CURRENT AMOUNT: ";: З ═ "###.##";AMT(N).'╝ё 17,14:Й "       NEW AMOUNT";AMT(N).2╞Бе 520.k╨DATE │  Й( О(DATE$,2) л  Р(DATE$,4,2) л  П(DATE$,2)).Б┌╘ OAMT$ │ ж(DATE).Мф┼ #1,1.ЬюА I │ 1 е 9.╡°╘ OAMT$ │  ж(AMT(I)).╨╘ UPDAMT$ │  ж(AMT(I)).▌┼ #1,Iл1.щ┼ #2, I.ё Л I.ў*Ъ/
4Бе 90/ >В ******> UPDATE DATA FILE/&HВ/,RВ/\\Щ "D",#1, "BUDGET/UPD",5:╨ #1, 5  з UPDAMT$/пfЩ "D",#2, "TFILE/DAT",36:╨ #2, 3  з ACNO$, 8  з DATE$, 20  з DESC$, 5  з TAMT$/┐pА I │ 1 е 9/╦z─ #1, I/фДAMT(I) │  в(UPDAMT$)/ьОЛ I/°ШБж 1650/■вЮ0
мSUMBUD │ 00,╢ё 32,2: З "CURRENT BUDGET"0{└ё 15,4:° 3,2,U: З "ACCOUNT #      ACCOUNT DESCRIPTION      BALANCE";:° 3,20Г╩З:З0У╘А I │ 1 е 90¤▐З ═ "                ####%        %%                  %   $$####.##-";ACNO(I); SPACE$;DESC$(I);AMT(I)1шSUMBUD │ SUMBUD л AMT(I)1"ЄЛ I1e№ё 28,19:З ═ "%              %$$###.##";"TOTAL BALANCE:";SUMBUD1Ыё 20,21:З "ENTER ACCOUNT # OF ITEM TO BE UPDATED"1┬ё 28,22:Й "(ENTER 000 TO QUIT)";AN1╓Е AN │ 0 з 12301▄$Ю1ы.N │ ANо10028ё 20,8:З "ACCOUNT NUMBER: ";AN2>Bё 15,9: З "ACCOUNT DESCRIPTION:  ";DESC$(N)2ВLё 19,10:З ═ "%               %###.##";"CURRENT BALANCE:";AMT(N)2еVё 20,12:Й "DATE(MM/DD/YY)";DT$2╛`Е  З(DT$) ┤ 8 з 11102юjё 7,13: Й "DESCRIPTION OF TRANSACTION:";DS$3#tё 7,16: З "(ENTER A NEGATIVE NUMBER FOR CREDIT)"3Q~ё 13,15: Й "AMOUNT OF TRANSACTION:";TRANS3mИAMT(N) │ AMT(N) м TRANS3ИТ╘ ACNO$ │  П( И(AN),3)3ЪЬ╘ DATE$ │ DT$3мж╘ DESC$ │ DS$3─░╘ TAMT$ │  ж(TRANS)3╓║┼ #2,  е(2)л13с─Бе 9303ё╬А I │ 1 е 94╪╘ UPDAMT$ │  ж(AMT(I))4т┼ #1,I4ьЛ I4%ЎЪ4/Бе 904K
В ******> PRINT SUMMARY4QВ4WВ4t(Щ "D",#1, "BUDGET/ORG",54З2╨ #1,5  з AMT$4д<Щ "D",#2, "TFILE/DAT",364сF╨ #2, 3  з TACNO$, 8  з TDATE$, 20  з TRDESC$, 5  з TMT$4эPБж 16504∙ZБж 18105)dё 31,11:° 3,2,B:З "PRINTING SUMMARY";:° 3,25=nА I │ 1 е  е(1)5Ix─ #1, I5bВDATE$ │  И( в(AMT$))5ММЕ  З(DATE$) ┤ 6 з DATE$ │ " " л DATE$5╨ЦDATE$ │  Р(DATE$,2,2) л "/" л  Р(DATE$,4,2) л "/" л  П(DATE$,2)5°аЗ #м2, д30) "BUDGET FOR THE PERIOD"6кЗ #м2, д31) "STARTING  ";DATE$6,┤З #м2: З #м26I╛З #м2, д28) "ACCOUNT OR"6u╚З #м2, д9) "ACCOUNT";д27) "TRANSACTION"6╬╥З #м2, д9) "NUMBER";д19)"DATE"; д27) "DESCRIPTION"; д47)"TRANSACTION";д61) "BALANCE"6т▄А I │ 2 е  е(1)6эц─ #1,I6ўЁЗ #м27M·З #м2, д9)ACNO(Iм1); д17)DATE$;д27)DESC$(Iм1);д59);:З #м2, ═ "$$####.##"; в(AMT$)7^BAL│ в(AMT$)7rА J │ 1 е  е(2)7}─ #2,J7в"Е ACNO(Iм1) ┤▓  Й(TACNO$) з 16107╣,BAL│BAL м  в(TMT$)7с6Е  в(TMT$) ┤ 0 з CR$│"CR" :Д CR$│""8W@З #м2, д17)TDATE$; д27)TRDESC$;д47);:З #м2, ═ "$$####.##"; В( в(TMT$));:З #м2, CR$;д59);:З #м2, ═ "$$####.##";BAL8_JЛ J8gTЛ I8m^Ъ8whБе 908ХrВ ******> ACCOUNT NUMBERS8Ы|В8бЖВ8▒РА I │ 1 е 98╟ЪACNO(I) │ I н 1008╧дЛ I8хоDESC$(1) │ "FOOD"8√╕DESC$(2) │ "RENT"9┬DESC$(3) │ "CAR"9+╠DESC$(4) │ "UTILITIES"9F╓DESC$(5) │ "INSURANCE"9]рDESC$(6) │ "TAXES"9wъDESC$(7) │ "CLOTHING"9ЦЇDESC$(8) │ "ENTERTAINMENT"9╡■DESC$(9) │ "MISCELLANEOUS"9╗Р9╥В *** CLEAR SCREEN9╪В9▐&В9я0ё 0,10:З " "::ё 0,11:З " ":Dё 0,12:З " ":"Nё 0,13:З " ":3Xё 0,14:З " ":Dbё 0,15:З " ":Ulё 0,16:З " ":fvё 0,17:З " ":xАё 0,18:З " " :ЙКё 0,19:З " ":ЪФё 0,20:З " ":лЮё 0,21:З " ":╝иё 0,22:З " ";▓ё 0,23:З "                                                                               ";;"╝Р;G╞В ******> ERROR TRAPPING ROUTINE;M╨В;S┌В;НфЕ  м │ 23 з Ю:ё 5,2: З "ERROR # "; м;" IN LINE # "; н;┐юЕ  м │ 23 з ё 5,5: ° 3,2,B: З "NOTICE:":° 3,2<°Е  м │ 23 з ё 5,7: З "BEFORE ANY INPUT/OUTPUT OPERATIONS CAN BE PERFORMED, YOU MUST FIRST"<}Е  м │ 23 з ё 5,8: З "SELECT OPTION (1) 'CREATE BUDGET' AT THE MAIN MENU.  THIS WILL OPEN"<╤Е  м │ 23 з ё 5,9: З "THE DATA FILES WHICH WILL BE USED TO STORE THE DATA THIS"< Е  м │ 23 з ё 5,10: З "PROGRAM PRODUCES."=> Е  м │ 23 з ё 5,12: З "W.A. QUEEN III";: а 200,2: а 100,10=|*Е  м │ 23 з ё 5,16: З "HIT ANY KEY TO CONTINUE";: Бе 2760=╖4Е  м │ 26 з Ю: ё 5,2: З "ERROR # "; м;" IN LINE # "; н=щ>Е  м │ 26 з ё 5,5: ° 3,2,B: З "NOTICE:":° 3,2>EHЕ  м │ 26 з ё 5,7: З "DISK FILE SPECIFIED CAN NOT BE FOUND.  CHECK THE DISK DIRECTORY.">vRЕ  м │ 26 з ё 5,8: З "OR USE A BACKUP DISK.">┌\Е  м │ 26 з ё 5,10: З "W.A. QUEEN III";:а 200,2: а 100,10: А X │ 1 е 50: Л X: а 200,2: а 100,10?fЕ  м │ 26 з ё 5,16: З "HIT ANY KEY TO CONTINUE";: Бе 2760?RpЕ  м │ 28 з Ю: ё 5,2:З "ERROR # "; м;" IN LINE # "; н?ДzЕ  м │ 28 з ё 5,5: ° 3,2,B: З "NOTICE:":° 3,2?╪ДЕ  м │ 28 з ё 5,7: З "DISK BEING USED IN FULL.  YOU WILL HAVE TO START ANOTHER"@
ОЕ  м │ 28 з ё 5,8: З "PROGRAM DISK."@dШЕ  м │ 28 з ё 5,10: З "W.A. QUEEN III";:а 200,2:а 100,10: А X │ 1 е 50: Л X: а 200,2: а 100,10@бвЕ  м │ 28 з ё 5,16: З "HIT ANY KEY TO CONTINUE";:Бе 2760@█мЕ  м │ 30 з Ю:ё 5,2:З "ERROR # ";  м;" IN LINE # "; нA
╢Е  м │ 30 з ё 5,5: ° 3,2,B: З "NOTICE:":° 3,2Ah└Е  м │ 30 з ё 5,7: З "DISK BEING USED IS WRITE PROTECTED.  USE ANOTHER DISK OR REMOVE"AЯ╩Е  м │ 30 з ё 5,8: З "THE WRITE PROTECTION LABEL."B╘Е  м │ 30 з ё 5,10: З "W.A. QUEEN III";:а 200,2:а 100,10: А X │ 1 е 50: Л X: а 200,2: а 100,10B@▐Е  м │ 30 з ё 5,16: З "HIT ANY KEY TO CONTINUE";: Бе 2760BzшЕ  м │ 18 з Ю:ё 5,2:З "ERROR # ";  м;" IN LINE # "; нBмЄЕ  м │ 18 з ё 5,5: ° 3,2,B: З "NOTICE:":° 3,2C№Е  м │ 18 з ё 5,7: З "AN ATTEMPT WAS MADE TO OPEN A DATA FILE WHICH WAS ALREADY OPEN."Cb	Е  м │ 18 з ё 5,8: З "THIS ERROR WAS CORRECTED AUTOMATICALLY WHEN THIS ERROR OCCURED."C╟	Е  м │ 18 з ё 5,10: З "W.A. QUEEN III";: а 200,2: а 100,10: А X │ 1 е 50: Л X: а 200,2: а 100,10D	Е  м │ 18 з ё 5,16: З "HIT ANY KEY TO CONTINUE";:Бе 2760D=	$Е  м │ 20 з Ю:ё 5,2:З "ERROR # "; м;" IN LINE # "; нDo	.Е  м │ 20 з ё 5,5: ° 3,2,B: З "NOTICE:":° 3,2D╚	8Е  м │ 20 з ё 5,7: З "AN INPUT/OUTPUT ERROR HAS OCCURED.  MAKE SURE ALL CONNECTIONS"E	BЕ  м │ 20 з ё 5,8: З "ARE MADE PROPERLY.  IF THIS ERROR STILL OCCURES TRY USING A"EG	LЕ  м │ 20 з ё 5,9: З "BACKUP DISK."Eм	VЕ  м │ 20 з ё 5,11: З "W.A. QUEEN III";: а 200,2: а 100,10: А X │ 1 е 50: Л X: а 200,2: а 100,10Eщ	`Е  м │ 20 з ё 5,16: З "HIT ANY KEY TO CONTINUE";:Бе 2760F!	jЕ  м │ 6 з Ю:ё 5,2:З "ERROR # "; м;" IN LINE # "; нFR	tЕ  м │ 6 з ё 5,5: ° 3,2,B: З "NOTICE:":° 3,2Fл	~Е  м │ 6 з ё 5,7: З "THE COMPUTER HAS RUN OUT OF MEMORY.  THIS ERROR SHOULDN'T HAVE"G	ИЕ  м │ 6 з ё 5,8: З "OCCURED.  EITHER SOMETHING HAS HAPPENED TO THE DISK FILES OR"G[	ТЕ  м │ 6 з ё 5,9: З "SOMETHING HAS HAPPENED TO THE COMPUTER.  USE A MEMORY CHECKING"Gп	ЬЕ  м │ 6 з ё 5,10: З "PROGRAM TO SEE IF ANYTHING IS WRONG INSIDE THE COMPUTER."H	жЕ  м │ 6 з ё 5,12: З "W.A. QUEEN III";:а 200,2: а 100,10: А X │ 1 е 50: Л X: а 200,2: а 100,10HO	░Е  м │ 6 з ё 5,16: З "HIT ANY KEY TO CONTINUE.";:Бе 2760HИ	║Е  м │ 13 з Ю:ё 5,2:З "ERROR # "; м;" IN LINE # "; нH║	─Е  м │ 13 з ё 5,5: ° 3,2,B: З "NOTICE:":° 3,2I	╬Е  м │ 13 з ё 5,7: З "THE COMPUTER HAS RUN OUT OF STRING SPACE.  USE 'CLEAR' AT"I_	╪Е  м │ 13 з ё 5,8: З "THE BEGINNING OF THE PROGRAM ROUTINE TO RESERVE MORE"Iм	тЕ  м │ 13 з ё 5,9: З "STRING SPACE.  BE SURE TO LEAVE ENOUGH MEMORY FOR"I█	ьЕ  м │ 13 з ё 5,10: З "PROGRAM OPERTAION!"J=	ЎЕ  м │ 13 з ё 5,12: З "W.A. QUEEN III";:а 200,2:а 100,10:А X │ 1 е 50: Л X: а 200,2: а 100,10J{
Е  м │ 13 з ё 5,16: З "HIT ANY KEY TO CONTINUE.";:Бе 2760J│

Е  м │ 5 з Ю:ё 5,2:З "ERROR # "; м;" IN LINE # "; нJф
Е  м │ 5 з ё 5,5: ° 3,2,B: З "NOTICE:":° 3,2K1
Е  м │ 5 з ё 5,7: З "YOU MUST BE RICH!  AN OVER-FLOW ERROR HAS OCCURED."KБ
(Е  м │ 5 з ё 5,8: З "THEIR IS NOTHING YOU CAN DO TO REMEDY THIS SITUATION."K╧
2Е  м │ 5 з ё 5,9: З "EXCEPT TO START OVER USING SMALLER NUMBERS OR GET A"L

<Е  м │ 5 з ё 5,10: З "LARGER COMPUTER......."Ld
FЕ  м │ 5 з ё 5,12: З "W.A. QUEEN III";:а 200,2: а 100,10: А X │ 1 е 50: Л X: а 200,2: а 100,10Lб
PЕ  м │ 5 з ё 5,16: З "HIT ANY KEY TO CONTINUE.";:Бе 2760L┘
ZЕ  м │ 1 з Ю:ё 5,2:З "ERROR # "; м;" IN LINE # "; нM

dЕ  м │ 1 з ё 5,5: ° 3,2,B: З "NOTICE:":° 3,2M]
nЕ  м │ 1 з ё 5,7: З "A SYNTAX ERROR HAS OCCURED.  EITHER SOME ERRORS WERE NOT"M▒
xЕ  м │ 1 з ё 5,8: З "DISCOVERED DURING DE-BUGGING OR SOMETHING HAS HAPPENED TO"M┘
ВЕ  м │ 1 з ё 5,9: З "THE DISK FILE"N;
МЕ  м │ 1 з ё 5,11: З "W.A. QUEEN III";:а 200,2:а 100,10: А X │ 1 е 50: Л X: а 200,2: а 100,10Nx
ЦЕ  м │ 1 з ё 5,16: З "HIT ANY KEY TO CONTINUE.";:Бе 2760Nг
аВ ******> ROUTINE FOR ANY OTHER ERRORSN╤
кЮ:ё 5,2: З "ERROR # "; м;" IN LINE # "; нN√
┤ё 5,5: З "HIT ANY KEY TO CONTINUE.";:O2
╛а 200,2:а 100,10:А X │ 1 е 50:Л X:а 200,2:а 100,10O?
╚AN$ │  ТOU
╥Е AN$ │ "" з 2760O]
▄Ъ:О│ I н 1008                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                "114","DECEMBER","91"
"BRODER DESTROYER"
"LOW RES 1+2"
"THE CASTLE"
"SKETCH IV"
"ENEMY ATTACK"
"MATH SOLVER"
"DREAM ESCAPE AD."
"TEST MAKER"
"CODES2,CODES3"
"MUNCHMAN"
&ь╚&Ж у
н&▐ь╚+г╚)'
Л&╨
▄&╦
$&╞5&о╚.40
п╚.о╚+ж╚-4ь╚44 о╚$о╚'942╠НУц╚-Oо╚                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Ъ&':ГCOPYRIGHT (C) T&D SOFTWARE 1992&9
Т 359,57:┐0,1&u╛Ю:Х2048:╚0:└4:З@229,"READING DISK DIRECTORY";:Т&HFF22,8&о╚А X│512 е 541:НA$:ТX, Й("&H"лA$):ЛX:╣ Г0│512:F│ г(0)&╬╥МA$(68):Y│1:P1│1:PO│4:T│247&·▄А X│3е11:▀0,17,X,A$,B$:C$│A$л О(B$,127)'4цА N│0е7:A$(Y)│ Р(C$,Nн32л1,8)л"."л Р(C$,Nн32л9,3)л" "'[ЁR│ К(A$(Y)):Е R│255зA$(Y)│"":Бе300'Д·A$(Y)│A$(Y)л Л( Ж(1547лNн32)л48)л" "'┐
Е  Ж(1548лNн32)│0 з A$(Y)│A$(Y)л"B" :Д A$(Y)│A$(Y)л"A"(
Е R│0 ▒  П(A$(Y),1)┤▓"B" ▒ ( Р(A$(Y),10,3)┤▓"BAS" ░  Р(A$(Y),10,3)┤▓"BIN") з A$(Y)│"":Бе290(<
A$(Y)│ О(A$(Y),12):Y│Yл1(F
"Л N,X(q
,P2│ Б((Yм1)о10):Е P2┤(Yм1)о10 зP2│P2л1(Т
6Ю:Зд6)"COLOR DISK DIRECTORY"(ц
@A$│ И(68мF)л" USED -"л И(F)л" FREE":Зд(32м З(A$))о2)A$:Зд10)"PAGE";P1;"OF";P2:З(°
JH│(P1м1)н10л1)
TА X│H е Hл9) 
^Е A$(X)│"" зЗ:Бе370)/
hЗд9);A$(X))5
rЛ)C
|Т&HFF22,8)Д
ЖАI│338 е 345:ТI,255:Л:K│POн32л8:Т529,&H80:A│ Г0(K):Т529,&H8B)Щ
РE│(P1м1)н10лPOм3*
ЪK$│ Т:ЕK$│"^" ░ PO│4 ░ P1▓1 з P1│P1м1:PO│13:A│ Г0(K):Бе310 :Д Е K$│"^" ░ PO▓4 з A│ Г0(K):PO│POм1:Бе390*y
дЕ K$│ Л(10) ░ PO┤13 ░ E┤Yм1 з A│ Г0(K):PO│POл1:Бе390 :Д Е K$│ Л(10)░ P1┤P2 ░ PO│13 з P1│P1л1:PO│4:A│ Г0(K):Бе310*О
оЕ K$│ Л(13) з450*Ш
╕Бе410*╛
┬ Р(A$(E),9,1)│".":T$│ О(A$(E),12)*ъ
╠Z$│ Т : Ю : З @233,"LOADING "л О(T$,8);+
╓Е  Ю(A$(E),"BIN") з Т 359,126:╙MT$:в+:
рЕ  Ю(A$(E),"BAS") з Т359,126:╙T$,R+D
ъБе410+Щ
ЇЖ BD,B3,ED,C3,4,0,1F,1,C3,0,E,ED,8D,0,D,A6,84,8B,40,A7,80,AC,8D,0,3,26,F4,39,0,0┬ Р(A$(E),9,1)│".":T$│ О(A$(E),12)*ъ
╠Z$│ Т : Ю : З @233,"LOADING "л О(T$,8);+
╓Е  Ю(A$(E),"BIN"                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 &C
:ГCOPYRIGHT (C) T&D SOFTWARE 1992   cover program  ISSUE #120&MХ 200&Е
Е Ж(14000)│188 ░  Ж(14001)│188 ░  Ж(14002)│188 з 22&╡Е  Ж(186)│14 з ╙M "CVR-MOD" :Д ЧM "CVR-MOD"&╤IS$│" COCO ISSUE #120 "&ьDT$│"   JUNE 1992    "'2A│ Э(IS$):A│ Ж(Aл2)н256л Ж(Aл3):АI│0е16:G│ Ж(AлI):Е G┤64 з G│Gл64'CТ14500лI,G:Л'ЙA│ Э(DT$):A│ Ж(Aл2)н256л Ж(Aл3):АI│0е16:G│ Ж(AлI):Е G┤64 з G│Gл64'ЪТ14700лI,G:Л'╢S1│1024:S2│1200:S3│1100(Т 3584,S1о256:Т3585,S1 ░ 255:Т3586,S2о256:Т3587,S2 ░ 255:Т3588,S3о256:Т 3589,S3 ░ 255( Бж 4000(B-Т3600,14000о256:Т3601,14000 ░ 255(h/Т3602, Д(7)н16:Т3603,( Д(17)м1)н2(Й0Т 3604,SPо256:Т3605,SP ░ 255(Х2в 15000(б7Бж 4000(╟<Т3600,14192о256:Т3601,14192 ░ 255)
>Т3602, Д(7)н16:Т3603,( Д(17)м1)н2:Е  Д(3)│1 з Т3603,0)!@Т3604,SPо256:Т3605,SP ░ 255)-Fв 15000)EKЕ  Д(5)│1 з Бж 5000)вPSC│SCл1:Е SC│3 з SC│0:Бе28 :Д S1│1024л Д(8)н32:S2│1024л Д(12)н32:S3│1024л Д(10)н32:Бе 30*VаP│ Д(5):ЕP│1зТ3590,5:Т3591,1:Т3592,1 :ДЕP│2 зТ3590,5:Т3591,1:Т3592,7 :ДЕP│3зТ3590,7:Т3591,6:Т3592,4 :ДЕP│4 зТ3590,0:Т3591,7:Т3592,5 :ДТ3590, Д(8)м1:Т3591, Д(8)м1:Т3592, Д(8)м1*iSP│ Д(20)н50:Р+И┐0:Ю:З@40,"T & D SOFTWARE";:З@71,"HOLLAND MICHIGAN";:З@130,"REPRODUCTION OF ANY OF THE       FOLLOWING IS PROHIBITED.":З@194,"T & D SOFTWARE SHALL HAVE"+дТЗ@226,"NO LIABILITY OR RESPONSIB-      ILITY TO CUSTOMER WITH RE-       SPECT TO ERROR, LOSS, OR         DAMAGES CAUSED BY THESE               PROGRAMS."+сЬЗ@421,"COCO CASSETTE NO. 120                JUNE  1992  +ўбЕ  Д(2)│1 з ┐ 0,1,жАTD│0е2000:Л,oР"NO LIABILITY OR RESPONSIB-      ILITY TO CUSTOMER WITH RE-       SPECT TO ERROR, LOSS, OR         DAMAGES CAUSED BY THESE               PROGRAMS."+сЬЗ@421,"COCO CASSETTE NO. 120                JUNE  1992  +ўбЕ  Д(2)│1 з ┐ 0,1,жАTD                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                m6░╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╛╕░╡╝╣░╢╝░╢╝▓╛╝╕╝╛╕║░║▒╣░╛╝╣╡╝╝░║╢▓╡А╡░╣│░║А║╗▓А░║А║║║╗│║╗│╢╡│░░║╢▓╡░╡░░░║║░║║░░░║░╡╡░║░║║┤▓╡░░░╕┤┤┤╝╕░┤╝А┤╝А╕ААА╕А┤┤А╕А╕╕А┤┤╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╛╕░╡╝╣░╢╝░░░░▒╝▓▒░░░░░░░░░░░АА░А║╢▓╡А╡А╣│░▒│░╖▓░╖▓▒АА▒░│▓▓│░│░░А║╢▓╡А╡ААА║║░║╡АА╡░▓╣╣╕╡░║╛░╡│╕░А╕┤┤┤╝╕А┤╝░┤╝░┤АА░╝░┤┤░░╝╕╕А░╝╕░╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝░ААААААААААААААААААААААААААААААА░ААААААААААААААААААААААААААААААА░ААААААААААААААААААААААААААААААА░ААААААААААААААААААААААААААААААА                                                                                                                                                                                                                                `ОЖАзАМ&∙Ж зНДзНБзН~╛пН{╛пНv╛пНq╢зНc╢зН]╢зНW0НZ╞└ЖАзАZ&√оНGmН=' 1НC
dоН64цН-
╡'5чН" 5 пН╛
@mН'оНМ'М 'М@' oН
ё
┤оН
ЄmН
ч' 1Н
ь
оН
с4цН
╫
u'5чН
╠ 5 пН
╚О8д▀mН
╢'оН
╖М('МH' oН
а
bоН
вmН
Ц' 1Н
Ъ▒оН
С4цН
Ж
#'5чН
{ 5 пН
xО9lНmН
e'оН
gМш'М╚' oН
O
 &ОжДM*ДpЛДpзН
5жДДкН
-КАзД0
М&▐9■3_Г&Ў╢╗Дp╖mН
&■╜mН &■╡mН°&■н╞FОd4Нб5О░0Z&ю9╞жазАZ&∙9╬`ьбДП║─П·эБ3_Г&ъ9]'┴
'┴'┴'┴'┴'┴' !0
 "0Ис 0Ир 0И▀ 0 0И 
0И  0И! 9Н║4Г-"Г<.5OM9Нг4Г-Гю.5OM95╦─Ж M9ОО2Н
94╢ #К╖ #╢  Д╖  оф0&№╢  ДК№╖  оф0&№1?&▐59                                                                                                        *                           :Ш0&№1?&▐59                                                                                                                                                                                                                                                                                                                                      A$;"/ ░МT(25),N(2),N$(9),DF(14)/:║N$(0)│"U8R4D8NUL2BR6"/T─N$(1)│"BU7ED8L2R4BR5"/t╬N$(2)│"NR3U2EREU3HLGBM+8,7"/Х╪N$(3)│"BUFREU2HEU2HLGBM+8,7"/┤тN$(4)│"BR3U8DGLGDR4BM+4,4"/╘ьN$(5)│"BUFREU3HL2U3R4BM+4,8/ЎЎN$(6)│"BRREU2HL2D3U6ERFBM+5,70N$(7)│"UE2E2U3L4BM+8,807
N$(8)│"BRREU2HEU2HLGD2BD2D2BM+8,10VN$(9)│"BUFREU6HLGD2FBM+7,40nАZ│1е9:НX:DF(X)│Z:Л0И(Ж 0,14,1,4,9,11,3,2,70╙2╞"BM+7,8C2XN$(0);BM248,151D8R4BM-2,2D8BM-2,2NR4D4NR2D4BD2NR4D4NR2D4R4"0∙<A$│"INSTRUCTIONS(Y/N)?":X│328:N│01FБж910:И Ю("AYN",B$)Бе1350,20001%P┐1,01FnSC│0:LF│45:NL│0:ML│405:Бж9501sxЕ Д(2)│1зD│4:X│0:XL│224:ДD│м4:X│224:XL│41Д}ЕNL│ML з17001нВN│ Д(9):─(0,21л10нN)м(5,32л10нN),N,G1√М╞"BM=X;,8BR5C4D4R2NU3R2NU2R2NUR4NUR2NU2R2NU3R2U4":┼(Xл10,1)м(Xл15,12),N,▒2&ЦX│Xм4н(D┤0):─(X,3)м(Xл21,12),T,G:A$│ Т2wЫSC$│ И(SC):┴2,1:╗(120,177)м(51,186),╛,BF:АC│2е З(SC$):╞N$( Й( Р(SC$,C,1))):Л2ЗаАC│0е10:Л:Р2┬▄Е а(X,Y)│ а(XлDX,YлDY)░ а(Xл2,Y)│ а(XлDXл2,YлDY)зK│KлC2╚цР3@а10,2:АX│XL еXLл20й4:╗(X,3)м(Xл3,12),╛,B:╔"T25L25CDCDCD":Л3&JLF│LFл5:SC│SCм5:ЕSC┤0зSC│030TБе1903ЯдA$│"DEFDEFABCABCO+":╔"O2L10T8":АC│1е3:╔A$:Ю0:З@234,"FABULOUS!";:З@298,"STAND BY!";:LF│LFл20:ЕLF▓155зLF│1553╓оSC│SCл200:╗(15,13)м(236,169),╛,BF:┐1,0:NL│0:Бе14004Й╨Ю:З" YOUR MISSION, SHOULD YOU ACCEPTIT, IS TO FILL A BOWL WITH SOUP-ALPHABET SOUP!":З" THE KIDS ARE MESSY EATERS SO BECAREFUL. IF YOU DROP TWO LETTERSNEXT TO EACH OTHER AS IN5v┌З" oo OR","o",,"o":З" THEY'LL EAT ONE BEFORE YOU WANTTHEM TO. THIS WILL MAKE YOU AGE FASTER (AND COST YOU POINTS).":З"IF YOU LINE UP THREE IN A ROW ASIN  ooo THEY WILL EAT THEM ALL, PROPERLY, YOU'LL FEEL YOUTHFUL &GET LOTS OF POINTS6фБж2200:З@5,"LETTERS OF THE ALPHABET":З@43,"ABCEFHLOU":З"(THE OTHERS WEREN'T IN THE PACK)ARE MOVED ACROSS THE TOP OF THE SCREEN & DROP EACH TME YOU PRESSA KEY.6─юЗ" IF A LETTER LANDS SAFELY, YOU  GET ONE POINT. IF A LETTER LANDSON ONE LATER IN THE ALPHABET YOUGET BONUS POINTS. YOU GET MORE  POINTS FOR a ON u THAN FOR b ON c.";6¤°З" YOU GET LOTS OF POINTS FOR":З"TRIPLES LIKE","aaa"7┤З" AVAILABLE LETTERS ARE SHOWN ON THE LEFT OF THE SCREEN.":Бж2200:З" YOUR SCORE IS SHOWN AT THE FOOTOF THE SCREEN, YOUR LIFELINE ON THE RIGHT. WHEN IT VANISHES, THEGAME IS OVER."8)З@160,"HINT : TRY TO SET UP PAIRS WITH A SPACE BETWEEN THEM FOR EXAMPL 7s&щ
:Г REFER TO THE FOLLOWING LINE     #'S. LINE #,                    200 MAIN MENU.180 KILL BREAK.   1000-1210 DIAL ROUTINE.         1190 & 3570 DIALING DELAY IF    FIRST # IS A 1.                 1260-2040 DATA PHONE #'S.       'q:Г 2560 PLUG N' PWR TURN VOX.      OFF.2580 TURN VOX. ON.          395 VOX REC. MESSAGE-->THRU     420 TURN PNP ON ETC.            '│:Г U-DIALIT 3400-                                            '╫:Г SET PRINTER X-10 MODULE, D-1(:Г SET VOX RECORDER MODULE, C-6                               (}:Г REMOVE ' IN LINE 180 TO         DISABLE BREAK KEY.                                         (Й
Бж 3290(┤Ю0:╚ 0:└ 1:Х 500,25000:М A(22):М Z(21)(╨В*   ASSISTANCE SYSTEM.( (В* C 1986 JOE F. SOBIESKI                 )2В*    V 5.2, 02/10/86)4<В*  64K,EXTENDED BASIC)PFМ NAME$(25),NUMBER$(25))inЮ0:MA│32000:╣ Г│MAл1)tЦDZ│100*┤:ГPOKE&HF8,&H32:POKE&HF9,&H62:POKE&HFA,&H1C:POKE&HFB,&HAF:POKE&HFC,&H7E:POKE&HFD,&HAD:POKE&HFE,&HA5:POKE&H19A,&H7E:POKE&H19B,&H0:POKE&H19C,&HF8*╛Бж 2500*┬╚Ю0:J│0:а40,10:З"         HI-TEC JB-ROBOT.       ";:З б(32,128): АI│1е10:З:Л:З@100,"PUFF" Л(34)"C" Л(34)"TO SELECT:":З@172,"CONTROL":З@236,"TELEPHONE":З@300,"CALCULATOR";*╪╥З@364,"VOX-NOTES"*ъ╙А DLY│1е500:Л+╘З@416,"            MAIN-MENU"+▄А DLY│1е500:Л+:цЗ@172,"control";:а220,1+VЁА I│1 е DZ:S│ Ж(PK) ░ 1+x·Е S│0 з а 240,1:Ю:Бе 830 :Д Л+з
З@172,"CONTROL";:З@236,"telephone";:а100,1+├
А I│1 е DZ:S│ Ж(PK) ░ 1+у
Е S│0 з а 240,1:Бж 850 :Д Л,
"З@236,"TELEPHONE";:З@300,"calculator";:а 50,1,/
,АI│1е DZ:S│ Ж(PK) ░ 1,P
6Е S│0 з а 240,1:Бж 2610 :Д Л,h
@З@300,"CALCULATOR";,Н
JЗ@364,"vox-notes";:а 30,1:а 20,1,й
TА I│1 е DZ:S│ Ж(PK) ░ 1,╚
^Е S│0 з а 30,1:Бе 390 :Д Л,▀
hЗ@364,"VOX-NOTES";-
iЗ@428,"main-menu";:а20,1:а10,1-
jА I│1 е DZ:S│ Ж(PK) ░ 1->
kЕ S│0 з а 200,1:Бе 367 :Д Л-U
mЗ@428,"MAIN-MENU";-`
nБе 380-s
oТ113,0:в&HA027-П
qА 1│1 е DZ:S│ Ж(PK) ░ 1-▒
rЕ S│0 з а 240,1:Бе 390 :Д 380-▌
|J│Jл1:Е J┤2л(TDн18) з 230 :Д 430:Бе 831.
ЖT│3:Т MAл114,A(T):D│6:E│1:C│3:Бж 770.3
ЛЗ@416,"PUFF C TO TURN VOX RECORDER OFF";.O
РА I│1 е DZ:S│ Ж(PK) ░ 1.s
ЪЕ S│0 з а 20,1:Бе 420 :Д Бе 400.е
дT│3:Т MAл114,A(T):D│6:E│2:C│3:Бж 770:Ю:Бе 200.┐
оА I│1 е DZ:S│ Ж(PK)░1.р
╕Е S│0 з а 15,3:Бе 430::Д 831.°
┬T│1:А DLY│1 е 250:Л/I
╠АIE","u u":З"AND DROP ANOTHER u IN BETWEEN."8кЗ"IF YOU DON'T DROP A LETTER, WHENIT REACHES THE FAR SIDE, YOU'LL LOSE POINTS AND LIFETIME.":З@426,"GET READY":Бж2200:Бе13608┼ШЗ@488,"PRESS ANY KEY";8┌вЕ Т│""з2210:ДЮ:Р9?'┴4,1:╗(168,102)м(84,90),╜,BF:╞"C2BM+7,3D6FREU2BU4HBM+6,8U4NRU3ERFD7BR5U8FRFRERED8BR5NR3U4NRU4R3"9z'╞"BR9NR4D8R4U8BR4D6F2UEU6BR5NR3D4NRD4R4BR4U8R2FD2GFD3"9л'$АK│0е55:╗(15л2нK,13лK)м(236мKн2,169мK),╛,B:Л9ъ'.╞"BM90,90C2ND8R3FD2GBM+6,4NU8R3BR5U4NRU3ERFD7BR8U4HU3BR3D3:@'8╞"BM+9,5U4NRU3ERFD7BM+8,-4D3GLHU6ERFBR5ND7ERFD3NLD4BR6U8BR7ND8M+6,8U8BR5NGRFD2GD4:t'BИ Ю("_YN", Т)Бе10050,10055,10070:а220,1:Бе10050:╖'GЕSC▓HS зHS│SC:─(51,177)м(101,186),T,G:┼(199,177)м(249,186),T,╜:▀'L╗(176,100)м(86,90),╛,BF:Бж1390:Бе20:ё'VЮ:З@238,"BYE"9,5U4NRU3ER                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                │53е51йм1:АJ│71е67йм1:A$│"T50;V31;O"л Л(I)лл";"л Л(J):╔ A$:ЛJ,I:АI│1е250:Л/}
╓З@0,"    ***** CONTROL MODE *****":З б(32,128);0
рЗ@100,"PUFF " Л(34)"C" Л(34)" TO SELECT:":З@169,"A HOUSE CODE":З@233,"B HOUSE CODE":З@297,"C HOUSE CODE":З@361,"TYPEWRITER":З@425,"CANCEL CONTROL MODE"08
ъИ T Бе 500,510,520,530,5400c
ЇЗ@169,"a";:А J│1 е1000:Л:а 220,1:Бе5500Б
■З@233,"b";:а 180,1:Бе 5500ЮЗ@297,"c";:а140,1:Бе 5500─З@361,"typewriter";:а 80,1:Бе 5500▐З@425,"cancel";:а40,10·&А I│1 е DZ:S│ Ж(PK) ░ 110Е S│0 з а240,1:Бе580 :Д Л15:T│Tл1:Е T▓5 з 450 :Д 4701UDЕ T│4 з 2080 :Д Е T│5 з 2001iNА DLY│1 е 500:Л1{XТ MAл114,A(T)1╪bD│1:Ю:З"          HOUSE CODE " Л(Tл64):З@64,"      CHOOSE DEVICE NUMBER":А DLY│1 е 500:Л1ёlЗ @175,D:а230мDн10,12
vА I│1 е DZ:S│ Ж(PK) ░ 12+АЕ S│0 з а240,1:Бе660 :Д Л2IКD│Dл1:Е D▓16 з 610 :Д 6202]ФА DLY│1 е 500:Л2╫ЮE│1:З@67,"PUFF " Л(34)"C" Л(34)" TO TURN DEVICE"D:З@142,"ON":З:З@206,"OFF":З@270,"ALL OFF":З@334,"DIM":З@398,"BRIGHT"2ЎиИ E Бе 690,700,710,720,7303#▓З@398,"BRIGHT":З@142,"on";:а220,1:Бе 7403N╝З@142,"ON";:З@206,"off";:а160,1:Бе 7403|╞З@206,"OFF";:З@270,"all off":а100,1:Бе7403к╨З@270,"ALL OFF";:З@334,"dim":а 60,1:Бе7403╤┌З@334,"DIM";:З@398,"bright":а 20,13эфА I│1 е DZ:S│ Ж(PK) ░ 14юЕ S│0 з а240,1:Бе770 :Д Л4$°E│Eл1л(E│5)н5:Бе 6804?E│Eл16:Е E▓19зC│1:ДC│34dТ MAл115,A(D):Т MAл113,3:X│ Г(0)4ОА H│1 е 10:Л H :ГSHORT DELAY REQURED.4│ Т MAл115,A(E):Т MAл113,C:X│ Г(0)4∙*Е E▓19 зЗ@451,"puff " Л(34)"c" Л(34)" to stop dim/bright" :Д Ю0:Р5'4S│ Ж(PK) ░ 1:Е S│0 з 200 :Д X│ Г(0):Бе82059>Бж 450:Бе 2005B?Ю(0)5e@S│ Ж(PK) ░ 1:Е S│0 з200 :Д 8325ДHВ******* TELEPHONE *******5цRЮ:А DLY│1 е DZн2.5:Л:АI│49е51:АJ│67е71:A$│"T50;V31;O"л Л(I)л";"л Л(J):╔ A$:ЛJ,I:АI│1еDZн2.5:Л6Й\З" T E L E P H O N E  D I A L E R " б(32,128):З:З"    PUFF " Л(34)"C" Л(34)" TO:":З@199,"CONTINUE":З@263,"CANCEL TELEPHONE DIALER":З@327,"U-DIALIT";:Т1535,1286┌fЗ@199,"continue";:а220,1:А I│1 е DZ:S│ Ж(PK) ░ 1:Е S│0 з а 240,1:Бе 900 :Д Л7KpЗ@199,"CONTINUE";:З@263,"cancel";:а100,1:А I│1 е DZ:S│ Ж(PK) ░ 1:Е S│0 з а 240,1:Бе 200 :Д Л:З@263,"CANCEL";7░rЗ@327,"u-dialit";:а 200,1:А I│1 е DZ:S│ Ж(PK) ░ 1:Е S│0 з а 240,1:Бе 3400 :Д Л:З@327,"U-DIALIT";7╗zБе 8707╨ДЮ0:П:K│1:а 240,58ОЮ0:З"       PUFF " Л(34)"C" Л(34)" TO DIAL:":З б(32,128):АI│1е6:З:Л8,ША I│1 е 500:Л I83в:Г8JмЮ:З@96,K"- ";:Н A$8y└Е A$│"X" з 1250 :Д Н N$:а20,1:а40,1:ЗA$,N$8Й╩А G│1 е 1308Ъ╘S│ Ж(PK) ░ 18лЄЕ S│0 з 10408│№Л G8─K│Kл1:Бе 9308Єа240,1:З@97,"OK, DIALING "A$" NOW...":З:З9Т 65313,49$А G│1 е 1000:Л G9(.А I│1 е  З(N$)9C8Z(I)│ К( Р(N$,I,1))м489ZBЕ Z(I)│0 з Z(I)│109bLЛ I9ПVА I│1 е  З(N$):Е Z(I)│10 з З0;:Д З Z(I);9а`А V│1 е Z(I)9пjТ 65313,529┬tА G│1 е 18:Л G9╨~Т 65313,49уИА G│1 е 18:Л G9ыТЛ V9 ЬА G│1 е 500:Л G:;жЕ Z(I)│1 ░ I│1 з А D│1 е 2000:Л::Гdelay if 1st #is A 1.:C░Л I:Г║Ю3:З@259," PUFF R TO LIFT RECEIVER.";:АI│1е3:а20,1:а100,1:Л:Ш─А G│1 е 2500:Л G:з╬Т 65313,52:╢╪Ю0:П:Бе200:№тЮ3:З@97,"end of list...PLEASE TRY AGAIN":А G│1 е 2000:Л G:Бе 1240;
ЎЖ OPERATOR,0;!Ж WJNL,15355518;4
Ж WBEM,4675240;HЖ HELEN,7545534;`Ж FIRE HALL,7545111;t(Ж IRENE,7544734;Н2Ж AMBULANCE,14454133;е<Ж BRUMBAUGH,7544321;╗FЖ MULCAHY,7545222;╥PЖ HELEN H.,7545217;чZЖ V.F.W.,7544014;¤dЖ SHAFFER,7544888<nЖ WJAC TV,18006626116<+xЖ WYSN ,4678669<@ВЖ FETSKO,7545524<VМЖ HINTOSH,7544702<nЦЖ P.FLEEGLE,7544126<ЕаЖ FR WADAS,7545224<ЬкЖ MIHELCIC,7545219<▓┤Ж BULGERS,7545635<╩╛Ж J.KUDASIK,7545269<р╚Ж B.MARKO,7544136<Ї╥Ж MAYOR,7544411=▄Ж AMB.BLDG.,7545050=:цЖ SHADE SHED                     ,7544622=hЁЖ THOMASISEWSKI                  ,7545232=Ч·Ж SOBIESKI STORE                  ,7544691=нЖ SANDY W,7545675=┬Ж BECKIE,7544717=╪Ж J BURNS,7544195>
"Ж HENRY SOBIESKI                     ,7545352>9,Ж SENIOR CITIZENS                 ,7545615>P6Ж SHADE HS,7544648>~@Ж DRUG STORE                     ,7545717>ТJЖ ZUBEK,7544924>жTЖ DANTE,7544871>╓^Ж CITIZENS BANK                    ,7544617?	hЖ US NATIONAL BANK                    ,7544141?8rЖ MIKE'S MKT.                     ,7548200?f|Ж JACK'S MKT.                    ,7544115?}ЖЖ FR LARRY,7545116?ТРЖ MUHA'S,7544957?кЪЖ D.FLEEGLE,7544746?╛дЖ DAVEY,7544423?╥оЖ WVSC,14454186?щ╕Ж A MALLOY,4674106@┬Ж WINDBER HOSPITAL                     ,4676611@N╠Ж JOE SOBIESKI                     ,12556469@g╓Ж JIM REESE,12551046@ХрЖ C.C.POLICE                     ,7545130@├ъЖ DR SOBIESKI                    ,7544605@ЄЇЖ MEMORIAL HOSPITAL              ,15339000A%■Ж MERCY HOSPITAL                     ,15331000ATЖ DR.SOBIESKI                    ,15358236AmЖ DR.CARNEY,15367851AбЖ MIKE'S HOME                      ,13014792769AзКмA░°Ж X,A╩В** TYPWRITER FOR THEA▀В** HANDICAPPED.AўВ** J.J. BARBARELLOBV Бж 2560:PP│ Ж(65314):Е PPо2┤▓ Б(PPо2) з Ю3:З" YOUR PRINTER IS OFF  LINE!!!": АD│1 е 4000:ЛBl*Ю1:CNT│415:SPD│DZBЕ4А I│1 е 11:А J│0 е 5B╨>Т Jн64лIн2л1063,Jл(Iм1)н6:Л J,I:Т 1277,0:Т 1341,63:Т 1405,32:Т 1065,32BюHА I│1408 е 1439:Т I,140:ЛCRА I│1440 е 1536:Т I,128:Л:З @CNTл1, Л(197);C▒\З@33,"sHIFT ";:З@97,"rUBOUT";:З@161,"eNTER";:З@225,"fASTER";:З@289,"sLOWER";:З@353,"eXIT";:З@257,;:З═"*###*   ";(50мSPD)о5;:Е UF│0 з З@38,"^";C╨fА I│1 е 29 й 2:Е I│3 з I│9CсpЗ@I, Л(128);Cыzа10,1D#ДА J│1 е SPD:S│ Ж(PK) ░ 1:Е S│0 з а240,1:Бе2210 :Д ЛD7ОЗ@I, Л(32);:Л IDCШБе 2150DТвТ Iл1024,255:А K│1 е 200:Л:А J│Iл1056 е Iл1472 л(I│1)н64 й 64:Т J, Ж(J)л64Dвма 50,1:SS│0D┌╢А K│1 е SPD:S│ Ж(PK) ░ 1:Е S│0 з а240,1:Бе2260 :Д ЛE
└Е SS│0 з Т J, Ж(J)м64:Л:Т Iл1024,96:Бе 2150E/╩Т J, Ж(J)м64:Т Iл1024,96:Бе 2150E@╘Е I│1 з 2320Ej▐Е CNT┤496 з CNT│CNTл1:а 200,1 :Д 2230EкшТ CNTл1024, Ж(J)лUFн( Ж(J)▓64)н( Ж(J)┤91)н64:Т CNTл1025,197E╛ЄА X│1 е SPDн5:ЛE╬№З@I, Л(32);E▀	SS│1:Бе 2230F	а 200,1:И ((Jм1057)о64)л1 Бе 2390,2340,2330,2350,2370,2410F@	Бж 2420:Е SS│0 з 2450 :Д 2290FГ	$Е CNT▓415 з CNT│CNTм1:З@CNTл1, Л(197); Л(128);:Бе 2290 :Д 2290FЫ	.Е SPD▓0 з SPD│SPDм5Fз	8Бе 2380F╡	BSPD│SPDл5Fт	LЗ@257,;:З═"*###*   ";(50мSPD)о5;:Бе 2290G	VUF│(UF│0):Е UF│0 з З@38,"^"; :Д З@38," ";G	`Бе 2290GY	jБж 2420:Е C$│"V" з Ю0:З@137," ";:З@448,;:Бе 2580 :Д 2290G╘	tC$│"":А S│1 е 200:Л:А S│1 е 10:Е Sо2┤▓ Б(Sо2)з З@Jм985л(J│1377)н64,"### ARE YOU SURE ? ###" :Д З@Jм985л(J│1377)н64," "H	~А T│1 е SPD:SS│ Ж(PK) ░ 1:Е SS│0 з а240,1:Бе2440 :Д Л T,S:РH-	ИC$│"V":З@Jм985," ":РHv	ТC$│"":А I│1440 е CNTл1024:J│ Ж(I):Е J▓90 з J│Jм64 :Д Е J┤27 з J│Jл96H─	ЬC$│C$л Л(J):Л:PP│ Ж(65314):Е PPо2┤▓ Б(PPо2) з З @416,"   ":А I│1 е 2000:ЛI		жЕ PPо2┤▓ Б(PPо2) з З@416,C$:CNT│415:А I│1 е 2000:Л:C$│"":Бе 2130I+	░З#м2,C$:C$│"":CNT│415:Бе 2130II	║В** STARTUP SUBROUTINE **Ih	─Ю0:З@233," INITIALIZING ";IЯ	╬H1$│"60E020A0109050D070F030B0008040C0283808485818"J	╪А I│1 е 22:A(I)│ Й("&H"л Р(H1$,(Iн2)м1,2)):S│SлA(I):Л:Е S┤▓2208 з З"CHECKSUM ERROR # 1":К :Д S│0Jя	тH2$│"308D006CE68434048D2F8D2D8D2B8D21A601C6048D0CC605A6028D0635045A26E5394824028D128D0825028D0C5A26F23934063401C600200634063401C6FDB6FF204425FA86344A26FD8603F7FF20340286B24A26FDB7FF2035024A26053501350639340286F88A004A26FB350220DC"KT	ьА I│1 е 112:S│ Й("&H"л Р(H2$,(Iн2)м1,2)):CK│CKлS:Т IлMA,S:Л:Е CK┤▓9737 з З"CHECKSUM ERROR # 2":КKc	ЎPK│65280:РKО
T│4:Т MAл114,A(T):D│1:E│1:C│3:Бж 770:РK▓

S│ Ж(PK) ░ 1:Е S│0 з2580 :Д2570K█
T│4:Т MAл114,A(T):D│1:E│3:C│3:Бж 770Kц
Бе 200K∙
(В** CALCULATORLW
2FS$│" +  -  *  / CLR+/-OFFSTORCLM+ SINCOSTANY^X1/X":CF$│"":CF│1:R1$│"":R1│0:ACC$│"":ACC│0Lо
<Ю0:З"     SCIENTIFIC CALCULATOR":З" ":З:З@130, б(28,131);:Е M┤▓0 з З@65,"*MEM ";M;Lщ
FЗ@162,"   +    -    *    /   CLR   ";:З@194, б(28,32);M$
PЗ@226,"  +/-  OFF  STO  RCL  M+    ";:З@258, б(28,32);MN
ZЗ@290,"  SIN  COS  TAN  Y^X  1/X   ";MВ
dЗ@320, б(32,131);"   1    2    3    4    5    6Mй
nЗ:З"   7    8    9    0    .   FN=N
xЗ б(32,140); б(7,128)"puff  c  to select"; б(6,128);:Т1515,128:Т1516,34:Т1518,34:Т1519,128:Т1522,128:Т1535,128N2
ВАI│353 е 480 й 64NB
МАJ│0е25 й 5Nn
Ца 150,1:З@IлJ, Л(123);:З@IлJл4, Л(125);Nз
аАK│1еDZн.5:S│ Ж(PK) ░ 1:Е S│0 з а240,1:Бе2760 :Д Л KN├
кЗ@IлJ," ";:З@IлJл4," ";N╘
┤Л J,I:Бе2690O
╛Е CF▓4 ░ CF┤▓14 з 2880 :Д З@IлJ," ";:З@IлJл4," ";:Бе 2690O'
╚:Г NUMBER SERVEROA
╥S│ Б(Iо64м2)н6лJо5м17O}
▄Е S│11 з ACC$│ACC$л".":Бж 3110:Бе 2720 :Д Е S│12 з 2810Oр
цACC$│ACC$л П( И(S),1):Е  З(ACC$)▓19 з З @32,"OVERFLOW!!!":А DL│1 е 3:а200,1:а150,1:Л DL:Бе2610OЇ
ЁБж 3110:Бе 2720P
·З@IлJ," ";:З@IлJл4," ";:Бж3120:Бе2880PDА I│161 е 289 й 64:А J│2 е 22 й 5Ppа 100,2:З@IлJ, Л(123);:З@IлJл4, Л(125);PцАK│1еDZн.4:S│ Ж(PK) ░ 1:Е S│0 з а240,1:CF│ Б(Iо64м2)н5л(Jм2)о5л1:CF$│ Р(FS$,(CFм1)н3л1,3):З@60,CF$;:Бж3120:Бе2750Pэ"ЛKQ,З@IлJ," ";:З@IлJл4," ";:ЛJ,I:Бе 2820Q-6:Г FUNCTION SERVERQI@R1│ Й(R1$):ACC│ Й(ACC$)QаJИ CF Бе 2920,2930,2940,2950,2960,2970,2980,2990,3010,3020,3030,3040,3050,3060,3070QмTБе 2860Q┴^:Г FUNCTION SUBSQ╫hR1│R1лACC:Бе 3090QэrR1│R1мACC:Бе 3090R|R1│R1нACC:Бе3090RSЖЕ ACC│0 з З@47,"ERROR":А DL│1е3:а200,1:а150,1:ЛDL:Бе 3100:Д R1│R1оACC:Бе3090RcРБе2610:ГCLRRuЪR1│мR1:Бе3090RВдЮ:Бе 200RлоM│R1:ЕM┤▓0зЗ@65,"*MEM "M :Д З@65," "R╢╕Бе2860Rы┬Е CF$┤▓"" з ACC$│ И(M):R1$│"":CF$│"":CF│1:Бе2810R¤╠M│MлR1:Бе2610S╓R1│ Е(R1о57.29577951):Бе 3090S@рR1│ Х(R1о57.29577951):Бе3090SaъR1│ Ц(R1о57.29577951):Бе3090SvЇR1│ACCпR1:Бе3090Sг■Е R1│0 з ACC│0:Бе2950 :Д R1│1оR1:Бе 3090S╖:Г** PRINT SUBSSєR1$│ И(R1):ACC$│"":LN│19м З(R1$):З@40, б(LN,32);R1$" ="TЗ@IлJ," ";:З@IлJл4," ";:Бж3120:Бе 2820TF&LN│19м З(ACC$):З@40, б(LN,32);ACC$;T[0А DL│1е250:ЛDL:РTw:З@96,K"- ";:A$│NAME$(K)T▒DЕ A$│"X" з 1250 :Д N$│NUMBER$(K):а20,1:а 40,1:З A$,N$T╝NБе 970T├X:ГT╔┌РT╒
HБж 3670Tё
MАI│1е DZ:S│ Ж(PK) AMD 1U
RЕ S│0 з а 240,1:Бж 3670 :Д Л:Бе 3405UH
\а240,1:З@97,"OK, DIALING "N$" NOW...":З:ЗU^
aЕ  З(N$)┤1 з 3400Ul
fТ 65313,4UБ
pА G│1 е 1000:Л GUФ
zА I│1 е  З(N$)Uп
ДZ(I)│ К( Р(N$,I,1))м48U╞
ОЕ Z(I)│0 з Z(I)│10U╬
ШЛ IU√
вА I│1 е  З(N$):Е Z(I)│10 з З0;:Д З Z(I);V
мА V│1 е Z(I)V
╢Т 65313,52V.
└А G│1 е 18:Л GV<
╩Т 65313,4VO
╘А G│1 е 18:Л GVW
▐Л VVk
шА G│1 е 500:Л GVд
ЄЕ Z(I)│1 ░ I│1 з А D│1 е 2000:Л::Гdelay if 1st #is 1Vм
№Л IVьЮ3:З@259," PUFF R TO LIFT RECEIVER.";:АI│1е3:а20,1:а100,1:ЛW
А G│1 е 2500:Л GWТ 65313,52W $Ю0:П:Бе 200Wf.Ю3:З@97,"end of list...PLEASE TRY AGAIN":А G│1 е 2000:Л G:Бе 3620Wo8Ж X,W~BPK│65280:РWЕL:ГWпVCF$│"":CF│1:R1$│"":R1│0:ACC$│"":ACC│0X`Ю0:З"       --- U-DIALIT ---":З" ":З:З@130, б(28,131);:Е M┤▓0 з З@65,"*MEM ";M;X7jЗ@320, б(32,131);"   1    2    3    4    5    6X]tЗ:З"   7    8    9    0         DX╨~З б(32,140); б(7,128)"puff  c  to select"; б(6,128);:Т1515,128:Т1516,34:Т1518,34:Т1519,128:Т1522,128:Т1535,128XцИАI│353 е 480 й 64XЎТАJ│0е25 й 5Y"Ьа 100,1:З@IлJ, Л(123);:З@IлJл4, Л(125);Y[жАK│1еDZн.5:S│ Ж(PK) ░ 1:Е S│0 з а240,1:Бе3790 :Д Л KYw░З@IлJ," ";:З@IлJл4," ";YИ║Л J,I:Бе3720Y╞─Е CF▓4 ░ CF┤▓14 з 3910 :Д З@IлJ," ";:З@IлJл4," ";:Бе 3720Y╥╬:Г STOPYь╪S│ Б(Iо64м2)н6лJо5м17ZтЕ S│11 з S│12:Бе 3750 :Д Е S│12 з 3840ZzьACC$│ACC$л П( И(S),1):Е  З(ACC$)▓19 з З @32,"OVERFLOW!!!":А DL│1 е 3:а200,1:а150,1:Л DL:Бе3420ZОЎБж 4030:Бе 3750Z╕З@IлJ," ";:З@IлJл4," ";:Бж4040:Бе3910Z▐
А I│161 е 289 й 64:А J│2 е 22 й 5[З@IлJ, Л(123);:З@IлJл4, Л(125);[xАK│1еDZн.4:S│ Ж(PK) ░ 1:Е S│0 з а240,1:CF│ Б(Iо64м2)н5л(Jм2)о5л1:CF$│ Р(FS$,(CFм1)н3л1,3):З@60,CF$;:Бж4040:Бе3780[(ЛK[и2З@IлJ," ";:З@IлJл4," ";:ЛJ,I:Бе 3850[┐<:Г FUNCTION SERVER[╫FR1│ Й(R1$): N$│ACC$[уPN$│ACC$[ЇZИ CF Бе 3420\)dЕ CF$┤▓"" з ACC$│ И(M):R1$│"":CF$│"":CF│1:Бе3840\;nM│MлR1:Бе3670\]xR1│ Е(R1о57.29577951):Бе 4010\~ВR1│ Х(R1о57.29577951):Бе4010\ЯМR1│ Ц(R1о57.29577951):Бе4010\┤ЦR1│ACCпR1:Бе4010\╚а:Г** PRINT SUBS]кR1$│ И(R1):ACC$│"":LN│19м З(R1$):З@40, б(LN,32);R1$" ="]/┤З@IлJ," ";:З@IлJл4," ";:Бж4040:Бе 3850]W╛LN│19м З(ACC$):З@40, б(LN,32);ACC$;]l╚А DL│1е250:ЛDL:Р]r5Дм1):Бе4010\ЯМR1│ Ц(R1о57.29577951):Бе4010\┤ЦR1│ACCпR1:Бе4010\╚а:Г** PRINT SUBS]кR1$│ И(R1):ACC$│"":LN│19м З(R1$):З@40, б(LN,32);R1                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ОFИЙHК	АКЙИИHЗHЙaЙ                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ЙHК	АКЙИИHЗHЙaЙ