6 Бе 930,940,950(+вKF│N7м(BT$(J)┤B1$(K)):Р(GмKF│N7м(BT$(J)▓B1$(K)):Р(c╢KF│N7м(BT$(J)│B1$(K)):Р({└И N6 Бе 970,980,990(Ф╩KF│N7м(ET(J)┤E(K)):Р(н╘KF│N7м(ET(J)▓E(K)):Р(╞▐KF│N7м(ET(J)│E(K)):Р(ёшD$│"":D$│ Т:Е  З(D$)│0 з 1000 :ДЗD$;:Р)ЄБж1020:ЕN│0зР:ДБж1070:Бж1100:P│0:Бе520)T№Ю:З"<list> subsystem":Бж780:Бж1560:Й"# OF FIELDS";N)КЕN▓NF з NS│0:N│NF:АI│0еNF:NG(I)│I:NS│NSлNA(I):Л:Р)ЪNS│0:АI│1еN)ЇЗ@448, б(63,32);:З@448,I;:Й"field #";NG(I):ЗDN$(NG(I));" (Y/N)";:Бж1000:ЕD$┤▓"Y"з1050*$NS│NSлNA(NG(I)):Л:Р*;.Е и(YT) з Бж1330:З#P,DK$;"   ";D0$:З#P," "*╗8Е YT з Бж1330:Р :Д АI│1еN:J│NG(I):Е NT(J)┤▓3 з B$│ б(NA(J)м З(DN$(J)),32)лDN$(J)л" " :Д B$│DN$(J)л б(NA(J)м З(DN$(J))л1,32)*ыBЗ#P,B$;:FT(J)│0:Л:З#P," ":З#P, б(NSлN,45):Р+/LАI│1еNI:KI│ К( Р(DI$,I,1)):Бж260:Бж270:ЕDV$(0)│ Л(17)зЛI:Бе1230+JVБж1120:Л:Бж1230:YT│0:Р+А`АJ│1еN:K│NG(J):И NT(K) Бе1130,1150,1170,1190,1210+─jЕK│0зЗ#P,═"#### ";KI;:Бе1220:ДЗ#P,═"#### ";ET(K);:Е YT з З#P,""+╧tБе1220+ё~З#P,═CI$;ET(K);:Е YT з З#P,""+№ИБе1220,4ТЗ#P,BT$(K)л б(NA(K)м З(BT$(K))л1,32);:Е YT з З#P,"",?ЬБе1220,sжЗ#P,═CM$;ET(K);:FT(K)│FT(K)лET(K):Е YT з З#P,"",~░Бе1220,б║З#P,═CL$;BT$(K);:Е YT з З#P,"",░─Л:Бж1570:Р,▄╬Е YT з YT│0:Р :Д З#P, б(NSлN,45):АI│1еN-╪ЕNT(NG(I))│4зЗ#P,═CM$;FT(NG(I));:ДЗ#P, б(NA(NG(I))л1,32);-:тЛ:З#P," ":Е P з Бж620:Р:Д Р-ЮьL│NS(1):DI$│"":АI│1еNI:NI│I:KI│NI:Бж260:─#2,KI:BT$(1)│DV$(1):Бж600:З@480,"record #";NI;"     ";-жЎЛ:Р-▒Бж1350-─
M│Mм1:ЕM│0 з Р-ЇЕM┤Nм1з DD$│AA$(M):Бж190:Бж120:ЕD$│"O"з1280.
ЕM│Nм1зЗ:Бж180:Бе120.(Бж1380:Бе1280.[2З:З"LINEPRINTER (Y/N) ";:Бж1000:ЕD$│"Y" з P│м2 :Д Ю:P│0.c<З:Р.╒FN│N9:Ю(W1):З@W,DR$;:АI│1еN:Q│36лIн32:З@Q,═"#";I;:З@Qл4,Q$(I);:ЛI:Q│36лIн32:З@Q,═"#";0;:З@Qл4,"return";:Q│Qл64/PЗ@Q,"your"лBL$л"choice";:Бж1000:M│ Й(D$)л1:ЕM▓Nл1з1360:ДР/&Z┌ И:╚0:└1:Бе50/3d:Гcreate/mnЮ:AT$│"BNSMD":NX(1)│1:NX(2)│5:NX(3)│0:NX(4)│5:NX(5)│30	xЗд5)"create a new file":З:Й"name of diskfile ";DF$:Е З(DF$)▓8з1400 :Д З:Й"file title--or enter for same   name as above";DK$:ЕDK$│""з DK$│DF$:З@175,DK$0)}Й"number of fields";NF:NT│00TВАI│1еNF:Ю:З"#";I:Й"field name ";DN$(I)0╝МЗ"field type":З:З"bYTE":З"nUMBER":З"sTRING":З"mONEY":З"dATE":З:Й"your choice";DT$:NT(I)│ Ю(AT$,DT$)0чЦЕDT$│"S"зЙ"field length ";NS(I):Бе14500√аNS(I)│NX(NT(I))1кNT│NTлNS(I):Л:NT│NTл11+┤Щ"O",#1,DF$л"/DT"1m╛З#1,DK$;",";NF;NI;N;NT;:АI│1еNF:З#1,DN$(I);",";NT(I);NS(I);:Л1│╚Щ"D",#2,DF$л"/I":╨#2,1  з DY$,255  з DX$:╘DY$│ Л(0):┼#2,1:Ъ#2:Ъ#11╩╥ЗDK$;" IS CREATED"1╓╫Бж 16001с▄Бе15802цЗ"ZERO FILES (Y/N) ";:Бж1000:ЕD$│"Y"з1520 :Д Р2>ЁЗ:З"ZERO <R>ECORD OR <F>ILE ";:Бж10002Ь·ЕD$│"F" з 1540 :Д АJ│1еNF:ЕNT(J)┤3▒NT(J)│4зET(J)│0:Бж420:Л:┼#2,KI:Бе520 :Д Л:┼#2,KI:Бе5202ЁАI│1еNI:KI│ К( Р(DI$,I,1)):Бж260:Бж270:АJ│1еNF:ЕNT(J)┤3▒NT(J)│4 з ET(J)│0:Бж4203ЛJ:┼#2,KI:ЛI:KI│1:Бж530:Р3fЙ"<H>ORIZ OR <V>ERT ";YT$:YT│(YT$│"V"):Е YT з Й"# LINES BETWEEN RECORDS ";YN:Р :Д Р3"АM7│1еYN:З#P," ":Л:Р4,L│1:N3│1:АI│3е10:▀ 0,17,I,M$(0),M$(1):АK│0е1:АJ│1е4:Q$│ Р(M$(K),(Jм1)н32л1,11):Е П(Q$,3)│"DT " ░  К(Q$)┤▓0 з Q$(L)│ О(Q$,8):AA$(L)│Q$(L):L│Lл14Г6ЛJ,K,I:█0:DR$│"files":W1│2:Q$(L)│"other"лBL$л"files":Q$(Lл1)│"create"лBL$л"new"лBL$л"file":W│10:N│Lл1:N9│N:Р4┴@AT$│"DEFKLPRZ@":AT$│"AOS"л Л(8)л Л(9)л Л(10)л Л(94)лAT$:Р(Jм1)н32л1,11):Е П(Q$,3)│"DT " ░  К(Q$)┤▓0 з Q$(L)│ О(Q$,8)                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ┬	
Бе3Бе40!╤2,768:Бе2Y:ГCOPYRIGHT(C) 1983 CLOAD         PUBLICATIONS INC.i
:Г    filesН:Г  BY R.A.D. HEWKO   MAY 22/82Ф:ГЯ(Бе1370╙2Х1000:МDN$(30),NA(30),NT(30),NS(30):BL$│ Л(128)Ё<Ю:З@12,"files":З@162,"";
FЙ"DATE MM/DD/YY ";D0$oPCM$│"$$########.## ":CI$│"########  ":CL$│"%        %":NB(1)│5:NB(2)│13:NB(3)│0:NB(4)│13:NB(5)│9zZБж1580МdБж1600:Бж1280▒nЮ:█ 0:З"SESSION IS TERMINATED":К╪xЕNI│0зN│1:Бе160 :ДN3│1:Бж520:Бе150▐ВЮпМЗ"         key":З:З"<A>DD","--> NEXT RECORD":З"<D>ELETE","<-- LAST RECORD":З"<E>DIT","^ UP 10":З"<F>IND","V BACK 10":З"<K>EY","<L>IST":З"<O>FF","<P>RINT":З"<R>ESET","<S>EARCH":З"<Z>ERO","@ PRESENT RECORD"╕СM9│1ЦЕ M9 з З@390,"your choice";:Д З@384,"your choice---or enter for menu";*ЧM9│0:Бж1000:N│ Ю(AT$,D$):Е N│0з130zаЗ:И N Бж 290,330,630,760,760,760,760,690,720,790,130,1010,610,1260,1510,520лкЕD$│"O" з M│0:Р :Д Е N0│0з 150 :Д N0│0:Бе160└┤Й"FILENAME ";DD$ў╛D$│DD$л"/DT":N(1)│0:Щ"I",#2,D$:Й#2,DK$,NF,NI,NX,NT]╚NS│0:АI│1 е NF:Й#2,DN$(I),NT(I),NS(I):NA(I)│NB(NT(I)):ЕNA(I)│0 з NA(I)│NS(I):ЕNA(I)┤10 з NA(I)│10o╥Л:NT(0)│1:█ 0─▄Щ"D",#2,DD$л"/I",256:╨#2,1  з DY$,255  з DX$:─#2,1:NI│ К(DY$):DI$│ О(DX$,NI):█ 0цN│0:Щ"D",#2,DD$,NT:NS(0)│1:АI│0еNF:╨#2,N  з CD$,NS(I)  з DV$(I):N│NлNS(I):ЛLЁDK$│ б(16м З(DK$)о2,32)лDK$:DN$(0)│"CODE":NA(0)│5:РН·N3│(N3▓0 ░ N3┤│ З(DI$))нмN3:N3│N3м(N3│0):KI│ К( Р(DI$,N3,1))м
ЕKI▓NI ▒ KI┤1 зKI│1:Р :Д Р╔
─#2,KI:АJ│0еNF:Бж460:Л:Рш
АJ│0еNF:Бж420:ЛJ:┼ #2,KI:Р
"Е NI│255 зЗ"file space full":Р :ДNI│NIл1:E│0:F│0W
,Бж320:З:З"          <add>":З"record #";NI:KI│NI:Бж260Ч
6АJ│1еNF:ЗDN$(J),:Бж360:Бж420:Л:┼#2,KI:L│NS(1):Бж600:Бж520:Рй
@Ю:З#P,DK$:З:РЎ
JЕ JP│1 з Р:Д █ 0:Щ"D",#2,DD$л"/I":Бж340:╘DY$│ Л(NI):╘DX$│DI$:┼#2,1:█ 0:Р
T╨#2,1  з DY$,255  з DX$:Р.
^╘DY$│ Л(0):╘DX$│DI$:РN
hИNT(J)Бе370,370,380,370,390c
rET(J)│0:ЙET(J):Р}
|BT$(J)│" ":╗ЙBT$(J):Рп
ЖC$│"":B$│D0$:З б(10,8);:Й"MM/DD/YY ";C$:Бж410ё
РBT$(J)│ Л( Й( П(B$,2)))л Л( Й( О(B$,2)))л Л( Й( Р(B$,4,2))):Р
ЪЕC$│""зЗ@(Jн32л144),B$:Р:ДB$│C$:Р:
дИ NT(J) Бе 430,440,450,440,450R
о╘DV$(J)│ Л(ET(J)):Рj
╕╘DV$(J)│ ж(ET(J)):Р
┬╘DV$(J)│BT$(J):Рв
╠И NT(J) Бе 470,480,490,480,510╩
╓ET(J)│ К(DV$(J)):BT$(J)│ И(ET(J)):РЄ
рET(J)│ в(DV$(J)):BT$(J)│ И(ET(J)):Р
ъBT$(J)│DV$(J):Р,
ЇA$│ П( И( К( Р(B$,A,1))л100),2):РО
■B$│DV$(J):A│2:Бж500:BT$(J)│A$л"/":A│3:Бж500:BT$(J)│BT$(J)лA$л"/":A│1:Бж500:BT$(J)│BT$(J)лA$:РвЕ IV з Р:ДБж250│Бж320:─#2,KI∙З#P,"record #";KI;д23);D0$:ЕDV$(0)│ Л(17) зЗ@200,"file deleted":Р <&АJ│1еNF:Бж460:З#P,J;DN$(J);д16);:ИNT(J) Бе 560,560,560,570,580 Q0З#P,BT$(J):Бе590 k:З#P,═ CM$;ET(J):Бе590 АDЗ#P,═ CL$;BT$(J) ИNЛ:Р ┬XK│KI:DS$│BT$(1):N2│0:N1│NI:N3│1:Бж660:N3│N3л1:Бж680:Р эbБж1330:З#P,"":Бж540:З#P,"":P│0:Ю:Бе520!lЗ#P, Л(11):P│0:Р!/vЕNT(1)│5з670:ДЗ"search for";DN$(1);:ЙDS$!╨АL│ З(DS$):Е О(DS$,1)│"#"зKI│ Й( П(DS$,Lм1)):N3│ Ю(DI$, Л(KI)):Бж260:Бж320:─#2,KI:Бе540:ДБж650:ЕJF│1зЗ"file not found":Й"<ENTER> TO CONTINUE";D$:Бе520:ДБе520!цКN2│0:N1│NIл1:JF│0"~ФЕN1мN2┤│1зJF│1:N3│N2:Р:ДN3│ Б((N1лN2)о2):KI│ К( Р(DI$,N3,1)):Бж260:─#2,KI:BT$(1)│ О(DV$(1),L):Е DS$┤BT$(1)з N1│N3:Бе660:ДЕDS$▓BT$(1)зN2│N3:Бе660:ДР"╞ЮL│4:Й"search for cv#";NQ:DS$│ Л(NQ)л"   ":Бж650:N3│N3м(N3┤NI):Бе520#(иЕN3│NI з DI$│DI$л Л(K):Р:Д Е N3│1 з DI$│ Л(K)лDI$:Р :Д DI$│ О(DI$,N3м1)л Л(K)л П(DI$,NIмN3):Р#Q▓З"delete (Y/N/U) ";:Бж1000:ЕD$│"N"зР#r╝A1$│ Л(17):ЕD$│"U"зA1$│ Л(0)#С╞╘DV$(0)│A1$:┼#2,KI:Бж530:Р#ш╨З@416,"edit field #";:Бж1000:Е К(D$)┤48 ▒  К(D$)▓57 ▒  Й(D$)┤0 ▒  Й(D$)▓NF зN0│1:Р$┌J│ Й(D$):Бж460:З:З"change";BT$(J);"to";:Бж360$jфБж420:┼#2,KI:ЕJ│1зC$│ Л(KI):K│ Ю(DI$,C$):DI$│ О(DI$,Kм1)л П(DI$,NIмK):Бж600$tюБе520$У°K│NлNм9:ЕK▓1зK│10н(NлNм13)$╡N3│N3лK:N3│N3м(N3│0)нNI:Бе520$╓АJ│0еNF:ЗJ;"  ";DN$(J):Л:З:Р%EЮ:З"<find> subsystem":З:Бж780:З"SCREEN(S) OR LIST(L) ";:Бж1000:D1$│D$:З:Й"# OF SEARCH FIELDS";M:ЕM│0зБе520%] АI│1еM:ЕI▓1зЮ:Бж780%═*Й"search field";NK(I):J│NK(I):З"comparison data";:Бж360:B1$(I)│BT$(J):ЕNT(J)│3 ▒ NT(J)│5 з 820:Д E(I)│ET(J)&z4З"    (1) LESS THAN":З"    (2) NOT LESS THAN":З"    (3) GREATER THAN":З"    (4) NOT GREATER THAN":З"    (5) EQUAL TO":З"    (6) NOT EQUAL TO":Й"comparison type";NH(I):Л&Х>ЕD1$│"L"зБж1020:Бж1070&╩HАL│1еNI:KQ│1:N3│L:Бж250:Бж270:ЕDV$(0)│ Л(17)з880';RАK│1еM:J│NK(K):Бж460:ЕNH(K)▓4 ░ NT(J)│3 з KF│ Ю(BT$(J),B1$(K))л1:KF│KFнм(NH(K)│5)м(NH(K)│6)н((KF│1)л1):Бе870'}\N6│(NH(K)л1)о2:N7│N6лN6мNH(K):ЕNT(J)│3 ▒ NT(J)│5зБж920:ДБж960'аfKQ│(KFм1)нKQ:Л:Е KQ┤▓0 з Бж900'┴pЛ:Е D1$│"L"  з Бж1230:Бж1000'╦zБе520'ўДЕ D1$│"L"  з Бж1120:Р :Д Бж520:Бж1000:Р(ШИ N(I),18,1)"     " Р(T$(I),19,18)"   " Р(T$(I),37,2)h
rЕ Р(T$(I),18,1)▓"R"з380:ДЕTY┤3зBA│BAлAM :ДBA│BAмAMЙ
|Л:Бж490:ЕLC▓54зLC│LCл1:Бж530
ЖLC│LCл9:З#м2:З#м2:Бж410:З#м2:З#м2,д10)"CURRENT BALANCE  ";:З#м2,═"#####.##-";BL:З#м2:З#м2,д10)"BANK TOTAL       ";:З#м2,═"#####.##-";BK7
РЕLC┤66зLC│LCл1:З#м2:Бе400:Д50~
ЪЕBT┤0зЗ#м2,д10)"BUDGET SURPLUS   ";:ДЗ#м2,д10)"BUDGET DEFICIT   ";Ю
дЗ#м2,═"#####.##-";BT:З#м2:Р│
оTY$│"DEPOSIT ":Р╚
╕TY$│"INTEREST":Р▌
┬TY$│"FEE     ":РЄ
╠TY$│"        ":Р
╓TY$│"WITHDRAW":Р
рTY$│"MEMO    ":Р=
ъЕLC▓57зLC│LCл1:Бж530:LC│LCм1S
ЇBA│BAнм1:BT│BTлBA└
■H│0:З#м2:Бж520:З#м2,д30);:З#м2,═"#####.##-";BA;:З#м2,"  "BD$:BA│0:З#м2:З#м2:LC│LCл4:OB$│ Р(T$(I),37,2):Р 
H│Hл1:НBC$:ЕBC$│"END"зП:BD$│">> UNKNOWN <<":Р:ДНBD$:ЕBC$│OB$зП:Р:Д520 (З#м2:ЕLC┤66зLC│LCл1:Бе530 лЗ#м2:З#м2:З#м2,д19)"BUDGET REPORT"д41)TT$:З#м2:З#м2,д5)"DATE     TYPE   ITEM #    AMOUNT    CLEAR     DESCRIPTION      BUDGET"!&З#м2,д5)"-----   ------  ------   --------   -----   -----------------  ------":З#м2:LC│8:Р!:0Ю0:З@169," SORTING ";:B│1:S│TMм1:SN│0:PS│0!П:PS│PSл1:З@265," PASS ="PS;:АJ│B еS:K│Jл1:Е Р(T$(K),37,2)┤ Р(T$(J),37,2)Бж30:Л:ДЛ"
DЕSN│0зР:ДS│SN:B│Bл1:SN│0:PS│PSл1:З@265," PASS ="PS;:АK│S еB йм1:J│Kм1:Е Р(T$(K),37,2)┤ Р(T$(J),37,2)Бж30:Л:ДЛ"&NЕSN│0зР:ДB│SNм1:S│Sм1:SN│0:Бе570"▐XЕTF│1зH│0:Бе620:ДTF│1:Ю0:З@170," TOTALING ";:АI│1еTM:H│0:OB$│ Р(T$(I),37,2):Бж520:AM│ Й( Р(T$(I),10,8)):Е Р(T$(I),18,1)▓"R"з610:ДЕ Р(T$(I),5,1)┤"2"зBA(H)│BA(H)лAM :ДBA(H)│BA(H)мAM#
bЗ@261," AT ITEM"I"OF"TM;:Л:H│0#MlBT│0:Ю:Зд9)"BUDGET REPORT",LG$:LC│0:Й"USE PRINTER";A$:Е О(A$,1)│"Y"з700#rvЮ:Зд9)"BUDGET REPORT":ЗLG$;:LC│0#ЎАH│Hл1:НBC$:ЕBC$│"END"з650:ДНBD$:З@64лLCн32,BD$:Бж660:З@64лLCн32л24,═"#####.##";BA:LC│LCл1:ЕLC┤12з640:ДБж220:ЕA$│"Q"зП:Бе50:Д630$КП:Бж220:ЕA$│"Q"з50:ДH│0:Бе630$9ФBA│BA(H):ЕBA┤0зBA│м1нBA:Р:ДР$TЮBA│м1нBA(H):BT│BTлBA:Р$eиЕLC▓59зБж730$у▓LC│LCл3:З#м2:З#м2:З#м2,д12);:З#м2,═"#####.##-";BT;:ЕBT┤0зЗ#м2,д32)"BUDGET SURPLUS":Бе400:ДЗ#м2,д32)"BUDGET DEFICIT":Бе400%'╝З:З"PREPARE PRINTER.":З:╗Й"REPORT TITLE? ";TT$:Бж740:LC│LCм1:Ю0%Т╞H│Hл1:НBC$:ЕBC$│"END"зП:Бе680:ДНBD$:Бж670:З#м2,д12);:З#м2,═"#####.##-";BA;:З#м2,д25)BC$д32)BD$:LC│LCл1%о╨ЕLC▓62зБж730:Бе710:Д710%╠┌ЕLC┤66зLC│LCл1:З#м2:Бе730&7фЗ#м2:З#м2:З#м2,д7)"BUDGET REPORT"д29)TT$:З#м2:З#м2,д14)"AMOUNT"д24)"CODE"д32)"DESCRIPTION":З#м2:LC│7:Р&=юВ&U°В CHART OF ACCOUNTS&[В&tЖ AC,AUTOMOBILE CARE&ТЖ AI,AUTOMOBILE INSURANCE&м Ж AM,AMERICAN EXPRESS&└*Ж AP,APPLIANCES&┘4Ж BF,BALANCE FORWARD&Ї>Ж BK,BOOKS & MAGAZINES'HЖ CE,COMPUTER EXPENSE''RЖ CI,COMPUTER INCOME'9\Ж CL,CLOTHING'^fЖ CM,CONDOMINIUM MAINTENANCE FEE'spЖ CP,CAR PAYMENT'РzЖ EC,VISA (EXECU-CHARGE)'гДЖ ED,EDUCATION'║ОЖ EN,ENTERTAINMENT'╚ШЖ FD,FOOD'ъвЖ FO,FOLEY'S DEPARTMENT STORE'¤мЖ FU,FURNITURE(╢Ж GF,GIFTS(└Ж GS,GASOLINE(6╩Ж JC,J. C. PENNEY'S(M╘Ж LT,ELECTRIC BILL(g▐Ж MA,MARI'S ALLOWANCE(|шЖ MC,MASTER CARD(ХЄЖ ME,MEDICAL EXPENSE(│№Ж MI,MISCELLANEOUS INCOME(═Ж MT,MORTGAGE PAYMENT(фЖ MS,MISCELLANEOUS(ўЖ PA,PAY CHECK)$Ж PH,TELEPHONE BILL)/.Ж RE,RELIGIOUS & CHARITABLE)K8Ж RI,RENTER'S INSURANCE)fBЖ SA,SAVINGS (REGULAR))}LЖ SI,SAVINGS (IRA))ЫVЖ SR,SEAR'S ROEBUCK & CO.)▓`Ж TV,CABLE TV BILL)└jЖ TY,TOYS)╥tЖ VA,VACATION)э~Ж VS,VISA (MACON  GA.))ўИЖ END*ТХ800:╚0:└1:Бе40L)/.Ж RE,RELIGIOUS & CHARITABLE)K8Ж RI,RENTER'S INSURANCE)fBЖ SA,SAVINGS (REGULAR))}LЖ SI,SAVINGS (IRA))ЫVЖ SR,SEAR'S ROEBUCK & CO.)▓`Ж TV,CABLE TV BILL)└jЖ TY,TOYS)╥tЖ VA,VACATION)э~Ж VS,VISA (MACON  GA.))ўИЖ END*ТХ80                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                (J),57,4)│ П( И( Й(Q$)),4)л"   "&J╞З@329,": " Й( Р(T$(J),57,4)):SF│SFм1:Р&╞╨ЕTM│MX зР:ДЮ:Зд10)"ADD NEW ITEM":З б(32,191);:TM│TMл1:T$(TM)│ б(61,32):З"ITEM NO."TM:З:╗Й"NAME? ";D$: Р(T$(TM),1,15)│D$'┌З@128,д5)"NAME:"д12) Р(T$(TM),1,15);:З@160:╗Й"BRAND? ";B$: Р(T$(TM),16,15)│B$'rфЗ@160,д4)"BRAND:"д12) Р(T$(TM),16,15):З:╗Й"UNITS? ";U$:U$│ О(U$,6): Р(T$(TM),31,6)│U$'ЎюЗ@192,д4)"UNITS:"д12)U$:З:ЗK$U$;:╗Й"? ";P$: Р(T$(TM),37,7)│ П( И( Й(P$)),7):З@224,д4)"PRICE:"д12)"$" Й( Р(T$(TM),37,7))"PER "U$(i°З:╗Й"COUPONS? ";A$: Р(T$(TM),44,3)│A$:З@256,д2)"COUPONS:"д12) О(A$,3):З:╗Й"HOW OFTEN? ";F$: Р(T$(TM),47,10)│F$(ЦЗ@288,д3)"PERIOD:"д12) Р(T$(TM),47,10):З(Ў╗Й"QUANTITY? ";Q$: Р(T$(TM),57,4)│ П( И( Й(Q$)),4):З@320," QUANTITY: " Й( Р(T$(TM),57,4)):З)rЗ@384, б(32,191);:З"ENTER Correct TO START OVER, OR":З"PRESS <ENTER> TO CONTINUE, OR":З"<UP> TO EXIT Add MODE.";:J│TMм1)╤ A$│ Т:ЕA$│""з800:ДЕA$│ Л(13)з720:ДЕA$│"C"зTM│TMм1:Бе720:ДЕA$┤▓ Л(94)за128,1:Бе800:ДA$│"":Р)█*Ю:К:Р)щ4ЕTM┤2з140*>Ю0:З@169," SORTING ";:B│1:S│TMм1:N│0:PS│0*mHPS│PSл1:З@265," PASS =";PS;:АJ│B еS:K│Jл1:Е Р(T$(K),1,30)┤ Р(T$(J),1,30)Бж30:Л:ДЛ*ГRЕN│0зР:ДB│Bл1:N│0*▌\PS│PSл1:З@265," PASS =";PS;:АK│S еB йм1:J│Kм1:Е Р(T$(K),1,30)┤ Р(T$(J),1,30)Бж30:Л:ДЛ*∙fЕN│0зР:ДS│Sм1:N│0:Бе840+
pХ300:╚0:└1:Бе40│0:PS│0*mHPS│PSл1:З@265," PASS =";PS;:АJ│B еS:K│Jл1:Е Р(T$(K),1,30)┤ Р(T$(J),1,30)Бж30:Л:ДЛ*ГRЕN│0зР:ДB│Bл1:N│0*▌\PS│PSл1:З@265," PASS =";PS;:АK│S еB йм1:J│Kм1:Е Р(T$(K),1,30)┤ Р(T$(J),1,30)Бж30:Л:ДЛ*∙fЕN│0зР:ДS│Sм1:N│0:Бе840+
pХ                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 9:ГCOPYRIGHT(C) 1983 CLOAD         PUBLICATIONS INC.t
:ГE P MEINERS, 9350 COUNTRY CREEK 30, HOUSTON TX 77036Бе1170иSN│K:T$│T$(K):T$(K)│T$(J):T$(J)│T$:Р+(MX│ Б( Уо43):M│MXн38:Т1024, Б(MXо256):Т1025,MXм Ж(1024)н256:ХM:MX│ Ж(1024)н256л Ж(1025):MX│MXм9:МT$(MX),BA(100):LG$│ б(32,191)║2Ю:З:ЗLG$;:Зд6)"BUDGET ANALYSIS MENU":ЗLG$:Зд6)"1  LOAD CHECK FILE":Зд6)"2  BUDGET REPORT":Зд6)"3  CHART OF ACCOUNTS":Зд6)"4  EXIT PROGRAM"╤<З:Зд6)"SELECTION?"FA$│ Т:ЕA$│""з70:ДA│ Й(A$):И A Бе150,290,180,90'Pа128,1:З@390,"TRY AGAIN!":Бе704ZЮ:К:Бе50ЖdTF│0:АI│1е100:BA(I)│0:Л:З:Й"FILE NAME";F$:F$│ О(F$,8):Е Ж(188)│6зDV│м1:ДБж130┤nЕDV│1зЮ0:Р:ДЗ:З"POSITION CASSETTE.":Бе140╒xЗ" ";:ЕF$│""зР:ДЗ">"F$" ";:РВЗ:Й"USE DISK";A$:Е О(A$,1)▓┤"Y"зDV│м1:Р:ДDV│1:F$│F$л".DAT":Р@М╗Й"PRESS <ENTER> WHEN READY ";A$:Ю0:РsЦЕTM▓0зЗ@390,"";:Й"ARE YOU SURE";A$:ЕA$▓┤"Y"з50·аЮ:TM│0:Зд8)"LOAD FILE SETUP":ЗLG$;:Бж100:З@384," SEARCH FOR FILE";:Бж120:Щ"I",DV,F$:Ю0:З@384," LOADING FILE";:Бж120:Й#DV,LC$,BL,BKIкЕ М(DV)▒TM│MX зЪ#DV:Бе50:ДTM│TMл1:╗Й#DV,T$(TM):З@448," AT RECORD"TM;:Бе170Щ┤Ю:Зд7)"CHART OF ACCOUNTS":ЗLG$:Й"USE PRINTER";PS$:Е О(PS$,1)│"Y"зБж230:Бе50┬╛Ю:Зд7)"CHART OF ACCOUNTS":ЗLG$;:LC│0$╚НBC$:ЕBC$│"END"з210:ДНBD$:З@64лLCн32,BC$"  "BD$:LC│LCл1:ЕLC┤12з200:ДБж220:ЕA$│"Q"зП:Бе50:Д190@╥П:Бж220:ЕA$│"Q"з50:Д190r▄З@480,"'Q' QUIT,  'ENTER' NEXT PAGE ";:╗ЙA$:РвцЗ:З"PREPARE PRINTER.":З:Бж140:Бж270:LC│LCм1·ЁНBC$:ЕBC$│"END"зП:Бе250:ДНBD$:З#м2,д20)BC$д26)BD$:LC│LCл1:ЕLC▓61зБж260:Бе240:ДБе240·ЕLC┤66зLC│LCл1:З#м2:Бе250:Д50:
ЕLC┤66зLC│LCл1:З#м2:Бе260Ч
З#м2:З#м2:З#м2,д25)"CHART OF ACCOUNTS":З#м2:З#м2,д19)"CODE"д30)"DESCRIPTION":З#м2:LC│7:Ръ
З"THE 'DETAIL' REPORT REQUIRES A","SORT, THE 'SUMMARY' REPORT","DOES NOT.":З:Р
"ЕTM│0зЗ@390,"MEMORY EMPTY!":Бе70e
,Ю:Зд9)"BUDGET REPORT":ЗLG$:Бж280:Й"PERFORM 'DETAIL' REPORT";A$:Е О(A$,1)▓┤"Y"з600u
6ЕTM▓1зБж560я
@Ю:Зд9)"BUDGET REPORT":ЗLG$:З"PREPARE PRINTER.":З:╗Й"REPORT TITLE? ";TT$:Бж540:LC│LCм1:OB$│ Р(T$(1),37,2):BA│0:BT│0:Ю0
JАI│1еTM:ЕOB$▓┤ Р(T$(I),37,2)зБж490/
TLC│LCл1:ЕLC▓62зБж530з
^З#м2,д5); Р(T$(I),1,2)"/" Р(T$(I),3,2)"  ";:TY│ Й( Р(T$(I),5,1))л1:И TY Бж430,440,450,460,470,480:CK$│ Р(T$(I),6,4)1
hAM│ Й( Р(T$(I),10,8)):З#м2,TY$"  "CK$"    ";:З#м2,═"#####.##-";AM;:З#м2,"    " Р(T$ 9:ГCOPYRIGHT (C) 1983 CLOAD        PUBLICATIONS INC.u
:ГE P MEINERS, 9350 COUNTRY CREEK #30, HOUSTON TX 77036Бе880зN│1:T$│T$(K):T$(K)│T$(J):T$(J)│T$:Р(MX│ Б( Уо66):M│MXн61:Т1024, Б(MXо256):Т1025,MXм Ж(1024)н256:ХM:MX│ Ж(1024)н256л Ж(1025):MX│MXм7,2МT$(MX):K$│"PRICE PER ":X│96а<З@0,д8)"SHOPPING  MENU":З б(32,191):Зд8)"LOAD FILE":Зд8)"SAVE FILE":Зд8)"CLEAR SELECT FLAGS":Зд8)"ENTER PRICES")FЗд8)"UPDATE & LIST FILE":Зд8)"SORT FILE":Зд8)"EXIT":З б(64,32) б(32,191)"<UP> & <DOWN> KEYS MOVE POINTER,USE <ENTER> TO MAKE CHOICE"cPТ1535,96:З б(31,32);:З@480," MAX ="MX;д20)"USED ="TM;╥ZЗ@X,д5)"->";:A$│ Т:ЕA$│""з90:ДЕA$│ Л(94)зБж130:Бе90:ДЕA$│ Л(10)▒A$│" "зБж120:Бе90:ДЕA$┤▓ Л(13)за128,1:Бе90dS│(Xм64)о32:И S Бж320,240,150,180,470,820,810
nБе606xЗ@X,д5)"  ";:X│Xл32:ЕX▓288зX│96:Р:ДР_ВЗ@X,д5)"  ";:X│Xм32:ЕX┤96зX│288:Р:ДРЖМЗ@359,"";:╗Й"MEMORY EMPTY!! ";A$:Р┬ЦЕTM│0з140:ДЮ:АJ│1еTM:ЕT$(J)┤▓""зЗ@0,"WORKING AT"J"OF"TMшаЕT$(J)│""з170:Д Р(T$(J),61,1)│" "ЁкЛ:Р■┤ЕTM│0з140D╛Ю:АJ│1еTM:Е П(T$(J),1)▓" "зБж200:Л:Р:ДЗ@0,"WORKING AT"J"OF"TM:Л:Р╕╚З@0,д10)"PRICE REPORT":Бж540:З@416:З@416,"NEW PRICE? ";:╗ЙP$:ЕP$┤▓""з Р(T$(J),37,7)│ П( И( Й(P$)),7)л"   ":Р:ДРь╥A$│ Т:ЕA$┤▓""зР:ДЕ Ж(343)┤▓247░ Ж(344)┤▓247з210▄Е Ж(343)│247зA$│ Л(8):Р)цЕ Ж(344)│247зA$│ Л(9):Р:Д210ЛЁЕTM│0з140:ДЮ:Зд8)"SAVE FILE SETUP":З б(32,191);:Бж270:З@384," WRITING FILE";:Бж300:Щ"O",DV,F$╨·K│0:АI│0еTM:ЕT$(I)┤▓""зK│Kл1:З#DV,T$(I):З@448," AT ITEM"K"OF"TM;▌
Л:Ъ#DV:Р
З:Й"FILE NAME";F$:F$│ О(F$,8):Е Ж(188)│6зDV│м1:ДБж290E
ЕDV│1зЮ0:Р:ДЗ:З"POSITION CASSETTE.":Бе310Ж
"З:Й"USE DISK";A$:Е О(A$,1)┤▓"Y"зDV│м1:Р:ДDV│1:F$│F$л"/DAT":Рз
,З" ";:ЕF$│""зР:ДЗ">"F$" ";:Р╤
6╗Й"PRESS <ENTER> WHEN READY ";A$:Ю0:Р	
@ЕTM│0з330:ДЗ@359,"";:Й"ARE YOU SURE?";A$:ЕA$┤▓"Y"зРИ
JЮ:TM│0:Зд8)"LOAD FILE SETUP":З б(32,191);:Бж270:З@384," SEARCH FOR FILE";:Бж300:Щ"I",DV,F$:Ю0:З@384," LOADING FILE";:Бж300╥
TЕ М(DV)▒TM│MX зЪ#DV:Р:ДTM│TMл1:╗Й#DV,T$(TM):З@448," AT ITEM"TM;:Бе340
^Ю:З"PREPARE PRINTER":З:╗Й"PRINT WHOLE FILE? (Y/N) ";ALL$:ALL$│ О(ALL$,1)9
hЮ0:Бж450:LC│LCм1:TT│0
rАJ│1еTM:ЕT$(J)│""зЛ:Бе410:ДЕALL$│"Y"▒ П(T$(J),1)│"S"з380:ДЛ:Бе410С
|LC│LCл1:Бж4403
ЖЗ#м2,д4) Р(T$(J),31,6)"   " Р(T$(J),44,3)"   " Р(T$(J),1,15)" " Р(T$(J),16,15)"    ";:З#м2,═"$###.##"; Й( Р(T$(J),37,7));:З#м2,═"#####.#"; Й( Р(T$(J),57,4));u
РЗ#м2,"   -----":TT│TTл Й( Р(T$(J),37,7))н Й( Р(T$(J),57,4)):ЛХ
ЪLC│LCл3:Бж440:ЕLC│8зLC│LCл2╓
дЗ#м2:З#м2:З#м2,д35)"ESTIMATED TOTAL    ";:З#м2,═"$###.##";TT∙
оЕLC┤66зLC│LCл1:З#м2:Бе430:ДЮ:Р
╕ЕLC┤63зР:ДЗ#м2:З#м2:З#м2:З#м2L
┬З#м2:З#м2:З#м2:З#м2,д30)"SHOPPING LIST":З#м2п
╠З#м2,д4)"UNITS  COUPONS    NAME            BRAND             PRICE    QTY   CHECK":З#м2:LC│8:Р┐
╓Ю:ЕTM│0з720
рJ│0:Ю:З"TO LOCATE A ITEM, ENTER THE NAMEOTHERWISE JUST PRESS <ENTER>.":╗Й"? ";DD$:Ю:SF│0╟
ъЕA$│ Л(94)зР:ДJ│Jл1:Бж520:ЕJ▓TM ░SF┤1з500:ДЕJ▓TM зJ│0:Бе490:ДЕT$(J)│""░A$│ Л(8)Бж620:Бе490:ДK│ Ю(1, Р(T$(J),1,30),DD$):ЕK│0░A$│ Л(8)Бж620:Бе490:ДЕK│0з490:ДБж530:Бе490■
ЇЮ:З"*NOT FOUND*":З@64,"PRESS ANY KEY TO CONTINUE." 
■Е Т│""з510:ДJ│0:DD$│"":Бе490 EЕDD$│""зР:ДЗ@0,"*SEARCHING* ";J:Р qЗ@0,д6)"VIEW / CHANGE ITEM":Бж540:Бе580 ╚SF│SFл1:З б(32,191)"ITEM NO."J:З:Е Р(T$(J),61,1)│"S"зЗ@80,"SELECTED !!";:З@128,"";!&Зд5)"NAME:"д12) Р(T$(J),1,15):Зд4)"BRAND:"д12) Р(T$(J),16,15):U$│ Р(T$(J),31,6)!г0Зд4)"UNITS:"д12)U$:Зд4)"PRICE:"д12)"$" Й( Р(T$(J),37,7))"PER "U$:Зд2)"COUPONS:"д12) Р(T$(J),44,3):З"   PERIOD:"д12) Р(T$(J),47,10)!▀:З" QUANTITY:"д11) Й( Р(T$(J),57,4)):З@384, б(32,191);:Р"FDЗ" Add        Change      Delete":З" Select     Unselect    List":З" <LEFT>     <RIGHT>     <UP>";"jNБж210:ЕA$│"L"зБж350:J│0:A$│"":Р"пXЕA$│"S"з Р(T$(J),61,1)│"S":Р:ДЕA$│"U"з Р(T$(J),61,1)│" ":J│Jм1:Р#/bЕA$│ Л(8)Бж620:Р:ДЕA$│"A"Бж720:Р:ДЕA$│"C"Бж630:J│Jм1:Р:ДЕA$│"D"зT$(J)│"":SF│SFм1:Р:ДЕA$│ Л(9)зР:ДЕA$│ Л(94)зР:Да128,1:Бе590#KlJ│Jм2:ЕJ│▓0зР:ДJ│TMм1:Р#сvЗ@416,"ENTER NEW DATA OR":З"  JUST PRESS <ENTER> TO RETAIN":З"  THE CURRENT DATA." б(12,32);:З@137,"? ";:╗ЙD$:ЕD$┤▓""з Р(T$(J),1,15)│D$л б(15,32)$5АЗ@137,":  " Р(T$(J),1,15):З@169,"? ";:╗ЙB$:ЕB$┤▓""з Р(T$(J),16,15)│B$л б(15,32)$ЫКЗ@169,":  " Р(T$(J),16,15):З@201,"? ";:╗ЙU$:ЕU$┤▓""з Р(T$(J),31,6)│U$л б(6,32):ДU$│ Р(T$(J),31,6)$╞ФЕ П(U$,1)│" "зU$│ О(U$, З(U$)м1):Бе660%ЮЗ@201,":  "U$:З@233,"? ";:╗ЙP$:ЕP$┤▓""з Р(T$(J),37,7)│ П( И( Й(P$)),7)л"   "%mиЗ@233,":  $" Й( Р(T$(J),37,7))"PER "U$:З@265,"? ";:╗ЙA$:ЕA$┤▓""з Р(T$(J),44,3)│A$%┴▓З@265,":  " Р(T$(J),44,3):З@297,"? ";:╗ЙF$:ЕF$┤▓""з Р(T$(J),47,10)│F$л б(10,32)&╝З@297,":  " Р(T$(J),47,10):З@329,"? ";:╗ЙQ$:ЕQ$┤▓""з Р(T$NAL FILE IN   
MEMORY IS NOT CHANGED.          
     4. "CREATE/EDIT FILE", WILL
DISPLAY THE FILE CURRENTLY IN   
MEMORY ON THE SCREEN AND ALLOW  
YOU TO CHANGE OR REVIEW IT.  IN 
ORDER TO ERASE A FILE IN MEMORY 
AND BEGIN A NEW FILE, YOU MUST  
SELECT MENU OPTION 8 AND "RUN"  
keeptext AGAIN.  OF COURSE, IT  
WOULD BE WISE TO SAVE THE FILE  
IN MEMORY BEFORE YOU DO THIS.   
THIS MAY SEEM LIKE A TEDIOUS    
PROCEDURE, BUT IT IS DESIGNED   
TO KEEP YOUR TEXT FROM BEING    
EASILY LOST.                    
     5. "PARAGRAPH PRINT", WILL 
PRODUCE LETTER STYLE PRINTOUT.  
THERE ARE TWO TYPES OF LINES    
RECOGNIZED BY THE PARAGRAPH     
PRINTING MODULE: TEXT & TITLES. 
TITLES HAVE A "@" IN COLUMN 1   
ON THE SCREEN, TEXT IS ANYTHING 
ELSE.  THE TYPE OF TITLE IS     
INDICATED BY THE CHARS. AFTER   
THE "@", AS FOLLOWS:            
@R...RIGHT JUSTIFIED.           
@L...LEFT JUSTIFIED.            
@C...CENTERED.                  
@B...CENTERED DOUBLE WIDTH TYPE.
@/...LEFT JUSTIFIED AT THE TOP  
     OF THE NEXT PAGE OF PRINT. 
@U...DOUBLE WIDTH TITLE.        
     30 CHARS. FROM THE "@U"    
     LINE ADDED TO THE 32 CHARS.
     OF THE NEXT LINE TO FORM 1 
     PRINTED LINE, INDENTED TO  
     COLUMN 10.                 
@NN..PAGE HEADINGS.  THE 1ST "N"
     IS THE NUMBER 0, 1, 2 OR 3,
     REPRESENTING THE HEADING #,
     YOU MAY SPECIFY UP TO 4    
     HEADINGS. THE 2ND "N" IS   
     THE NUMBER 0 OR 1, MEANING 
     THE 1ST HALF, 0, OR THE 2ND
     HALF, 1, OF THE HEADING.   
     THESE HEADINGS REMAIN IN   
     EFFECT UNTIL CHANGED. THEY 
     ARE AUTOMATICALLY PRINTED  
     AT THE TOP OF EACH PAGE.   
HOW TO FORM PARAGRAPHS:         
1. THE 1ST LINE OF A PARAGRAPH  
   MAY BE INDENTED.             
2. A PARAGRAPH IS TERMINATED BY 
   A TITLE LINE OR A BLANK LINE.
3. ALL SPACES, BUT 1, FOUND AT  
   THE END OF A SCREEN LINE WILL
   BE IGNORED.                  
4. TEXT WITHIN PARAGRAPHS MAY BE
   UNDERLINED, BY ENCLOSING THE 
   PART TO BE UNDERLINED WITHIN 
   [ AND ].                     
BACK TO THE NEXT MENU OPTION:   
     6. "COLUMN PRINT", THE FILE
IN MEMORY WILL BE PRINTED, IN   
DOUBLE COLUMNS, 32 CHARS. WIDE. 
THIS GIVES THE PRINT A NEWSPAPER
APPEARANCE.                     
     7. "HIGH SPEED" DOES THE   
"POKE 65495,0".  IT MAKES THE   
ROM ROUTINES RUN AT TWICE THE   
NORMAL CLOCK SPEED.  THE PROGRAM
WILL SLOW THE CPU TO NORMAL WHEN
I/O OR OPTION 8 IS REQUESTED.   
YOU MAY SLOW THE CPU TO NORMAL  
MANUALLY, IF NECESSARY, WITH THE
"POKE 65494,0".                 
     8."STOP", WILL BRING THE   
CPU BACK TO NORMAL SPEED AND    
RETURN CONTROL TO BASIC. YOU MAY
CONTINUE THE PROGRAM WITHOUT    
LOSS BY ENETERING "CONT" OR     
"GOTO60". IF YOU "RUN" THE      
PROGRAM, MEMORY WILL BE ERASED. 
       *** NOTES ***            
1. keeptext DRIVES THE PRINTER  
   AT 1200 BAUD, TO CHANGE THIS 
   YOU MUST REPLACE LINE 15  OF 
   THE PROGRAM. YOU MUST POKE150
   WITH A VALUE FROM THE R. S.  
   MANUAL AND PUT THE BAUD RATE 
   INTO B$.                     
   EX.  15 POKE150,87:B$="600"  
2. keeptext USES CONTROL CODES  
   FOR THE R. S. DMP-100.  IF   
   THIS DOES NOT WORK FOR YOU,  
   LOOK AT LINE 96  FOR THE     
   UNDERSCORE AND LINE 100 THRU 
   103  FOR THE DOUBLE WIDTH    
   CHARACTERS.                  
3. AT THE END OF EACH PRINTOUT, 
   keeptext WILL ASK YOU IF YOU 
   WISH TO CHAIN PRINT A FILE.  
   IF YOU ANSWER WITH A CAPITOL 
   "Y", THEN MENU OPTION 2,     
   "LOAD FILE", IS PERFORMED AND
   THE NEW FILE WILL BEGIN TO   
   PRINT AFTER THE LOAD IS DONE.
   PAGE NO.S WILL NOT BE RESET. 
-----------LAST LINE------------
TO CHAIN PRINT A FILE.  
   IF YOU ANSWER WITH A CAPITOL 
   "Y", THEN MENU OPTION 2,     
   "LOAD FILE", IS PERFORMED AND
   THE NEW FILE WILL BEGIN TO   
   PRINT AFTER THE LOAD IS DONE.
   PAGE NO.S WILL NOT BE RESET. 
-----                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          keeptext       PAGE 1 

IN THIS DOCUMENT,  THE KEYBOARD 
KEYS ARE REFERRED TO BY PUTTING 
THE NAME OF THE KEY WITHIN < AND
>,  EXAMPLE:  <CLEAR> MEANS THE 
CLEAR KEY.  SOME KEY NAMES HAVE 
BEEN SHORTENED,  EXAMPLE:  <UA> 
FOR UP-ARROW,  <RA> FOR RIGHT-  
ARROW, ETC.                     
THE PROGRAM HAS TWO MODES, TEXT 
AND COMMAND.  THESE MODES ARE   
INDICATED BY THE CURSOR COLOR,  
RED FOR COMMAND, WHITE FOR TEXT.
NOW GO TO THE NEXT PAGE,  PRESS 
<CLEAR> THEN <DA>.              
                         PAGE 2 
THE  <CLEAR>  KEY CAUSES A MODE 
CHANGE. NOW PRESS <CLEAR> TO GO 
INTO TEXT MODE. EXPERIMENT WITH 
THE ARROW KEYS,  TO SEE HOW THE 
CURSOR MOVES AROUND THE SCREEN. 
THE SCREEN ROLLS UP OR DOWN WHEN
CURSOR IS  PUSHED  AGAINST  THE 
UPPER OR LOWER  EDGES  OF  THE  
SCREEN. ALL KEYS WILL REPEAT, IF
HELD DOWN. YOU MAY POSITION THE 
CURSOR WHERE NEEDED, THEN CHANGE
THE TEXT JUST BY ENTERING THE   
NEW INFORMATION.                
NOW ENTER COMMAND MODE AND PRESS
<DA> TO SEE NEXT PAGE.          
                         PAGE 3 
NOW, WHILE YOU ARE IN COMMAND   
MODE, PRESS <T> AND EXAMINE THE 
COMMAND LIST. LET'S STUDY THE   
COMMANDS ONE AT A TIME. ROLL THE
SCREEN BACK AND FORTH WHENEVER  
NECESSARY.                      
1 INSERT LINE...MOVE THE CURSOR 
  WHERE YOU WISH TO INSERT THE  
  LINE, PRESS <CLEAR> THEN <I>. 
2 DELETE LINE...MOVE THE CURSOR 
  TO THE LINE YOU WISH TO DELETE
  PRESS <CLEAR> THEN <D>.       
3 SEARCH TEXT...MOVE CURSOR TO  
  THE PLACE WHERE YOU WANT THE  
  SEARCH TO START, PRESS <CLEAR>
  THEN <S>.  ENTER THE TARGET   
  TEXT STRING. IF A FIND IS MADE
  THE CURSOR IS PUT ON THE FIRST
  POSITON OF THE FIND.  IF YOU  
  WANT TO CONTINUE SEARCH, PRESS
  <S>, IF NOT, PRESS ANY OTHER  
  KEY AND THE SEARCH WILL STOP. 
4 CHANGE TEXT...MOVE CURSOR AS  
  FOR #3 ABOVE, PRESS <CLEAR>   
  THEN <C>. ENTER TARGET TEXT   
  STRING AND REPLACEMENT STRING.
  IF A FIND IS MADE, THE CURSOR 
  IS PUT ON THE FIRST POSITION  
  OF THE FIND. IF YOU WANT TO   
  CONTINUE SEARCH, PRESS <S>, IF
  YOU WANT TO CHANGE THE FIND,  
  PRESS <C>, PRESS ANY OTHER KEY
  TO STOP THE SEARCH.           
5 CURSOR TO HOME...PRESS <CLEAR>
  THEN <H>, TO MOVE CURSOR TO   
  UPPER LEFT CORNER OF SCREEN.  
6 CURSOR TO FOOT...PRESS <CLEAR>
  THEN <F>, TO MOVE CURSOR TO   
  LOWER LEFT CORNER OF SCREEN.  
7 GO TO MENU...PRESS <CLEAR>    
  THEN <M>, TO RETURN CONTROL TO
  MENU.                         
8 PAGE FORWARD & BACKWARD...    
  PRESS <CLEAR>, THEN <DA> FOR  
  FORWARD OR <UA> FOR BACKWARD. 
9 CHARACTER ADD & DELETE...MOVE 
  THE CURSOR WHEREVER A CHAR-   
  ACTER NEEDS TO BE ADDED OR    
  DELETED, PRESS <CLEAR> THEN   
  <RA> TO ADD OR <LA> TO DELETE.
10 "KUT & PASTE"...ALL "KUT &   
   PASTE" COMMANDS ARE ENTERED  
   IN COMMAND MODE.  TO BEGIN,  
   YOU MUST MARK THE FIRST LINE 
   TO BE CUT WITH <K> OR <G>.   
   BOTH KEYS WILL MARK THE TEXT 
   TO BE CUT, BUT TEXT MARKED   
   WITH <K> WILL BE DELETED     
   AND TEXT MARKED WITH <G> WILL
   REMAIN IN PLACE.  THEN MARK  
   THE FINAL LINE TO CUT WITH   
   <.>, THE GROUP OFF LINES SO  
   MARKED WILL BE PLACED IN THE 
   "KUT & PASTE BUFFER AND      
   DELETED IF INDICATED. TO THEN
   PASTE THIS TEXT, MOVE THE    
   CURSOR TO THE PLACE WHERE THE
   TEXT IS DESIRED AND MARK IT  
   WITH <P>. THE TEXT WILL BE   
   INSERTED BEFORE THE MARKED   
   LINE. YOU MAY NOT "KUT &     
   PASTE" MORE THAN 16 LINES AT 
   ONE TIME.  THE CUT TEXT WILL 
   REMAIN IN THE BUFFER UNTIL   
   THE NEXT CUT, SO IT CAN BE   
   PASTED MORE THAN ONCE.       

NOTES:                          
1 AFTER A 'CHAR DEL' OR 'CHAR   
  ADD' THE <UA> OR <DA> KEYS    
  WILL MOVE ONLY 1 LINE INSTEAD 
  OF 1 PAGE, UNTIL YOU ENTER    
  COMMAND MODE AGAIN. THIS IS   
  AN AID WHEN JUSTIFING MANY    
  LINES OF TEXT AT ON TIME.     
2 YOU MAY EXPERIENCE SOME DELAY 
  IN RESPONSE WHEN USING THIS   
  PROGRAM.  THIS IS NORMAL FOR  
  ANY PROGRAM WRITTEN ONLY IN   
  BASIC.  EVERY ATTEMPT HAS BEEN
  MADE TO INSURE SPEED.         

LET US STUDY THE MENU OPTIONS.  
     1. "SAVE FILE", WILL WRITE 
TO DISK OR TAPE, THE CURRENT    
FILE IN MEMORY.                 
     2. "LOAD FILE", WILL ERASE 
THE FILE IN MEMORY AND REPLACE  
IT WITH A FILE READ FROM DISK OR
TAPE.  BECAUSE IT ERASES THE    
FILE IN MEMORY, THE USER WILL BE
WARNED, GIVEN A CHANCE TO ABORT 
AND RETURN TO THE MENU.  THE    
WARNING WILL ONLY APPEAR IF THE 
FILE IN MEMORY CONTAINS MORE    
THAN 1 LINE.                    
     3. "APPEND FILE", WILL READ
A FILE FROM DISK OR TAPE AND ADD
IT TO THE END OF THE FILE IN    
MEMORY.  THE ORIGI 8
Х200,32767Бе 50#Бе703(└4:╚2:Бе 30M2Е Ж(25)м Ж(188)┤24з40Z<Бе 30000БF╣ Г│ Ж(27)н256л Ж(28)м1874:Т359,57Т_:Г *********│d:Г PUT PROGRAM NAMES IN DATAnЖ Keep Text,Keep Address,Keep List,Keep Check,Keep Budget,Tape Inventory,Filess:Г*********Nx:ГPUT DATE (NAME FOR              SILVERWARE) IN R$fВR$│" Practicals #1"vЗ:Г*********ХМ:ГCOPYRIGHT (C) CLOAD 1982╙Ц:ГMENU PROGRAM FOR SILVERWARE     COLOR COMPUTER PROGRAMSха:ГVERSION 2.1к:ГN=NUMBER OF PROGRAMS┤:Г╛:Г,╚Бж300::ГREAD & PRINT MENUK╥Бж400::ГGET USER SELECTIONh╫╚2:Т359,126:Ю0:З Л(128);п▄И Q Бе 1100,1200,1300,1400,1500,1600,1700,1800,1900,2000,2100,2200╬цБе 200::ГILLEGAL SELECTIONы
,:ГPRINT AND READ ROUTINE∙
1╚4:╝:┐1,1
6П:Ю:N│0::ГINIT;
@З@10,"SilverWare":З @31л(32м З(R$))о2,R$:ЗD
TН C$_
^ЕC$│"DONE"зA│ Г(272):Рi
hN│Nл1Е
rЗ"   "; Л(64лN);") ";C$П
|Бе340д
Р:ГGET USER INPUT─
ЪЗ:З"    Pick a letter... ";╥
ЯA│ Г(272)ч
дQ$│ Т:ЕQ$│""з420

оQ│( К(Q$)▒32)м96:ЕQ┤1▒Q▓N з420
╕ЗQ$;:A│ Г(272):Р&у:Г6ш:Г*********FLО"KEEPTEXT"V░О"KEEPADDR"fО"KEEPLIST"vxО"KEEPCHEK"Ж▄О"KEEPBUDG"Х@О"TAPEINV"вдО"FILES"оБе11000║lБе11000╞╨Бе11000╥4Бе11000▐ШБе11000ю╕:Г*********┬Бе11000 :ГNOT A SELECTION*╓Бе13000 :ГSPECIAL MESSAGEЗрБе14000 :ГLOAD LARGE BIN                  A$ = FILENAME                   A=NEWLINE ADDRЮ':ГMESSAGE ROUTINES┤*°:ГNOT A SELECTION╚*¤╚4:Т359,57:┐1,1+Ю:З:З:З:З"  Sorry, that's not a selection this month."+Бе 19000&2╚:ГSPECIAL MESSAGE:2═╚4:Т359,57:┐1,1@2╥ЮY2ц:ГPRINT MESSAGE HEREe6жБе19000Д6п:Г************************г6░:Г*LOAD LARGE BINARY FILES┬6▒:Г************************S6║C│ Ж(47)н256л Ж(48)л1:N│ Ж(C)н256л Ж(Cл1):E│ Ж(N)н256л Ж(Nл1):P│Aм1:АX│Nм1 е E:ТP, Ж(X):P│Pл1:Л:ТC, Б(Aо256):ТCл1,Aм( Б(Aо256)н256):Бе 14030_6─╙M A$:вl6╬Бе 14020xJ8:ГCONT.ЬJBЗ:З"Hit any key to continue..."кJGA│ Г(272)┴JLQ$│ Т:ЕQ$│""з19020╦JVБе200╓N Ж DONEхu0└4:╚2:Бе704w▄╖У║Г-
 ╜│ээН
2]'
M&C 
OзН
"1Н
#пН
Ц╢Б&Ж
зН
┴#╞ Б&цЖзН¤┴#╞чНЁЖ =эНъ╠гНуэН▀ЖцН╪=жН╓=Ж =эН─▄╖гН╛пН╖оН╗Ц╢Б'\╞чНжпНвжАпНа0НЗД╞=уНС╞ж└4DDDDжЖи з 5ДжЖи!з!1и Z&тоНmоНd1"jН]&╡1й
`М-ж >╞ чНJпНFжАД╞=уН=╞ж└иН7з 1и Z&ЄоН$1!jН&╤1й
`М-┬5ў03<?└├╠╧Ёє№ $Я/
<>BB<@@@|BBBB|<B@@B<>BBBB><B~@B<|<BBBB>B<@@@|BBBBB0|B<@@DHpHDBB0wIIAAA\bBBBB<BBBB<|BBBB|@@@<BBBB>LR`@@@>@<|>
BBBBF:BBBB$AAAIIwB$$BBBBBB>B<~ ~000IUкUкUкUкUкUк ББББББББББ >>>>>IA""**II<`┴├┴`<└Ё<Г├Г<Ё└
0@@АА@@  

	 @А°└аР
А@ 	
Ра└°$BБB$<<BB АЮ░р└р░ЮА БB$     АКАКАКАКАА  
Q
Q
Q
Q

  Б╜ееееееееееееееееее╜Б <~<~╜╜Щ<BB├Щ╜╜ЩZ<<<BBB

;^|xА└рар░°▄■z><<█ █ БЩБЩБ  БЩБЩБ "A"<BZ$$ZB<ЁР 	 Р 	 Р 	
 ЁА@ 
є
 @А
А╧А
>A@@NQQI>"AAAAA~!!!>!!!~>A@@@@@A>~!!!!!!!~@@@~@@@@@@~@@@@>A@@@GAA>AAAAAAAA>>D8ABDHpHDBA@@@@@@@@AcUIAAAAAAAaQIECAA>AAAAAAA>~AAA~@@@@>AAAAIEB=~AAA~HDBA>A@@>

A>AAAAAAAA>AAAAAA"AAAAAIUcAAA""AAAAA"
 @<       <@@ 

<<*I  $$$ $$ $$>I(
	I>pQr'E%BF9A""A

 @@>ACEIQaA>>>A
 >A



A>
"@@@~

A>>A@@~AAA>

  >AAA>AAA>>AAA?

A>   >A
°▒

 @@>ACEIQaA>>>A
 >A



A>
"@@@~

A>>A@@~AAA>

  >AAA>AAA>>AAA?

A>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  ─┼╞╞!╟#$%┴'(┼*+╚-.─                         DAT
 KEEPADDRBAS&KEEPLISTBASKEEPCHEKBAS)KEEPBUDGBASTAPEINV BAS,бAWAY    BAS ;KEEPTEXTBAS"CINST    DAT
 KEEPADDRBAS&KEEPLISTBASKEEPCHEKBAS)╛KEEPBUDGBASTAPEINV BAS,бFILES   BAS┼                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 @&%
:ГCOPYRIGHT (C) 1983 CLOAD INC.&?:ГEDWIN P MEINERS III&\:Г9350 COUNTRY CREEK #30&t:ГHOUSTON, TX 77036&~Бе118&ЭCN│ Б( Уо370):Бж18:ХM:Бж17&√Е Q│1 зQ│0:A$│"4":Бе10::ДЮ:З"   MENU":З:З" 1 SAVE FILE":З" 2 LOAD FILE":З" 3 APPEND FILE"'nЗ" 4 CREATE/EDIT FILE":З" 5 PARAGRAPH PRINT":З" 6 COLUMN PRINT":З" 7 HIGH SPEED":З" 8 INSTRUCTIONS":З" 9 STOP"'╒	З@385,"ENTER NUMBER";:З@449,HI$" SPEED":З" MAX LINES"TM" LINES USED"MX;:PA│1423:ТPA,63:CR│207:Бж64(
ЕA$│"1"зБж37:Бе7:ДЕA$│"7"зТ65495,0:HI$│"HIGH":Бе9(CЕA$│"5"зБе92:ДЕA$│"6"зБе82:ДЕA$│"3"зI│MXл1:Бж38:Бе7(зЕA$│"2"з13:ДЕA$│"4"з20:ДЕA$│"9"зЮ0:Т155,80:Бж15:К:Бе7:ДЕA$│"8"зQ│1:Бе13::ДЗ@402,"ENTER 1-9":Бе9)*
ЕMX│0з14:ДЮ4:З@170,"> WARNING <";:З@224,"THE FILE IN MEMORY WILL BE LOST":Й"DO YOU WISH TO CONTINUE";A$:Е О(A$,1)┤▓"Y"зQ│0:Бе7)DБж18:ХM:Бж17:Бж38:Бе7)gТ150,41:B$│"1200"::ГPRINT BAUD)КТ155,132:Т65494,0:HI$│"SLOW":Р)ЁA$│" ":LL│0:TL│0:TI│0:MX│0:PA│0:P│0:I│0:J│0:K│0:CN│ Ж(1024):TM│CNн8м1:МT$(TM),CP$(15),HD$(3):Бе15*Т1024,CN:M│CNн320л150:ЕQ│1з Т1025,1:Р*5TI│ Б(Pо32):TL│TIлSL:Р*>Бж46*лPA│1024лP:CR│207:Бж64:LL│ К(A$):ЕLL▓63░LL┤94з24:ДЕLL▓96░LL┤123зLL│LLм96:Бе24:ДЕLL▓13░LL┤64зLL│LLл64:Бе24+ЕLL│94зP│Pм32:Бж28:Бе21:ДЕLL│10зP│Pл32:Бж28:Бе21:ДЕLL│8зP│Pм1:Бж28:Бе21:ДЕLL│9зP│Pл1:Бж28:Бе21+.ЕLL│13зБж31:Бе21:ДЕLL│12з32+TБж19:TP│Pм(TIн32)л1:ЕTL▓MX зMX│TL+uЕT$(TL)│""зT$(TL)│ б(32," ")+е Р(T$(TL),TP)│A$:Т1024лP,LL:P│Pл1:Бж28:Бе21+ЄLL│ К(A$):ЕLL▓63░LL┤96зР:ДЕLL┤64зLL│LLл64:Р:ДЕLL▓96░LL┤123зLL│LLм96:Р:ДР,5I│ Б(Pо32):ЕSLлI▓TM зP│Iн32м1:Р:ДЕP┤0зБж30:Р:ДЕP▓511зБж29:Р:ДР,`ЕSL│TM зP│511:Р:ДSL│SLл1:Бж46:P│Pм32:Р,ЗЕSL│0зP│0:Р:ДSL│SLм1:Бж46:P│Pл32:Р,║TI│ Б(Pо32):P│(TIл1)н32:ЕP┤481зР:ДP│512:Бж29:Р,╩ CR│191:Бж64-!Бж36:ЕA$│"I"з44:ДЕA$│"D"з45:ДЕA$│"M"з7:ДЕA$│"S"▒A$│"C"зБж69:Бе21-X"ЕA$│ Л(10)з48:ДЕA$│ Л(94)з49:ДЕA$│ Л(8)з50:ДЕA$│ Л(9)з60:ДЕA$│"K"з75-─#ЕA$│"H"зP│0:Бе21:ДЕA$│ Л(12)з21:ДЕA$│"F"зP│480:Бе21:ДЕA$│"T"з54:ДЕA$│"."з76:ДЕA$│"P"з79:ДЕA$│"G"з75:Д32-ч$ЕA$▓│"a"зA$│ Л( К(A$)м32):Р:ДР.b%Ю:З"FILE OUTPUT INFO":Бж40:З@384," WRITING FILE";:Бж43:Щ"O",DV,F$:АI│0еMX:З#DV,T$(I):З@448," AT LINE"I"OF"MX;:Л:Ъ#DV:Р.╘&Q│ Ж(1025):Ю:З"FILE INPUT INFO":Бж40:З@384," SEARCH FOR FILE";:Бж43:Щ"I",DV,F$:Ю0:З@384," LOADING FILE";:Бж43/'Е М(DV)▒I▓TM зЪ#DV:Р:Д╗Й#DV,T$(I):MX│I:I│Iл1:З@448," AT LINE"MX;:Бе39/_(F1$│"":Бж16:Бж170:З:Бж119:F$│ О(F$,8):Е Ж(188)│6зDV│м1:ДБж42/М)ЕDV│1зЮ0:Р:ДЗ:З"POSITION CASSETTE.":Бе90/Ё*Е Q│1 з DV│1:F$│"INST/DAT":Р::ДЗ:Й"USE DISK";A$:Е О(A$,1)┤▓"Y"зDV│м1:Р:ДDV│1:F$│F$л"/DAT"лF1$:Р0+З" ";:ЕF$│""зР:ДЗ">"F$" ";:Р0i,ЕMX│TM з20:ДБж19:MX│MXл1:K│TLл1:АI│MX еK йм1:T$(I)│T$(Iм1):Л:T$(TL)│"":P│TIн32:Бе200е-Бж19:MX│MXм1:АI│TL еMX:T$(I)│T$(Iл1):Л:T$(MXл1)│"":Бе200╥.Ю:SM│SL:АI│0е448й32:ЕSM┤│MX зЗ@I,T$(SM);15/SM│SMл1:Л:ЕSM▓MX зSM│MX:Р:ДЕT$(SM)┤▓""зЗ@480, О(T$(SM),31);:A$│ П(T$(SM),1):Бж27:Т1535,LL:Р:ДР1[0I│SLл16:ЕI▓TM з32:ДSL│I:Бж46:Бе321~1SL│ В(SL▓15)н(SLм16):Бж46:Бе321в2Бж19:TP│Pм(TIн32):ЕT$(TL)│""з5323T$(TL)│ О(T$(TL),TP)л П(T$(TL),31мTP)л" ":I│32нTI:З@I, О(T$(TL),31);:Т1055лI,96:CR│191:Бж642U4ЕA$│ Л(8)з50:ДЕA$│ Л(9)з60:ДЕA$│ Л(94)зP│Pм32:Бж28:ДЕA$│ Л(10)зP│Pл32:Бж28:Д332m5PA│1024лP:Бж64:Бе522┼6Ю:З"<CLEAR> COMMANDS":З:З"<I>  INSERT LINE":З"<D>  DELETE LINE":З"<S>  SEARCH TEXT"3"7З"<C>  CHANGE TEXT":З"<H>  CURSOR TO HOME":З"<F>  CURSOR TO FOOT":З"<T>  TEACH COMMANDS"3Л8З"<M>  GO TO MENU":З"<UA> PAGE BACKWARD":З"<DA> PAGE FORWARD":З"<LA> CHAR DEL":З"<RA> CHAR ADD":Бж593╜9Ю:З"MORE <CLEAR> COMMANDS":З:З"KUT & PASTE":З4[:З"<K>  MARK START OF KUT TEXT":З"<.>  MARK END OF KUT TEXT":З"<P>  PASTE KUT TEXT HERE":З"<G>  SAME AS <K>,":Зд5)"BUT TEXT IS NOT DELETED":Бж59:Бж46:Бе324j;З@448:Бе904О<Бж19:TP│Pм(TIн32):ЕT$(TL)│""з635=T$(TL)│ О(T$(TL),TP)л" "л Р(T$(TL),TPл1,31мTP):I│32нTI:З@I, О(T$(TL),31);:A$│ П(T$(TL),1):Бж27:ТIл1055,LL:CR│191:Бж645[>ЕA$│ Л(9)з60:ДЕA$│ Л(8)з50:ДЕA$│ Л(94)зP│Pм32:Бж28:ДЕA$│ Л(10)зP│Pл32:Бж28:Д335s?PA│1024лP:Бж64:Бе625А@H│ Ж(PA)6AI│0:ТPA,CR:Е Я┤13з66:ДЕ Ж(338)л Ж(339)л Ж(340)л Ж(341)л Ж(342)л Ж(343)л Ж(344)л Ж(345)┤▓2040зA$│ Т:ЕA$┤▓""з68:ДA$│KEY$:ТPA,H:Р6BЕH┤▓96зТPA,H68CA$│ Т:ЕA$│""зI│Iл1:ЕI│25з65:Д676QD Я│0:KEY$│A$:ТPA,H:Р6оEБж19:TP│Pм(TIн32)л1:SW$│A$:Ю:З:╗Й"  SEARCH FOR? ";S$:PP│0:ЕSW$│"C"з╗Й"REPLACE WITH? ";C$6╙FЮ4:З"SEARCH IN PROGRESS":TP│TPл17GPP│ Ю(TP,T$(TL),S$):ЕPP┤▓0з72:ДЕTL│MX з73:ДTL│TLл1:TP│1:Бе717eHTP│PP:SL│TL:P│PPм1:PA│1024лP:Бж46:Бж64:Бж36:ЕA$│"S"з70:ДЕA$│SW$зБж74:Бе70:ДР7pIБж46:Р7╡JA$│ О(T$(TL),PPм1)лC$л П(T$(TL),33мPPм З(S$)):T$(TL)│ О(A$,32):Р7тKKT$│A$:ТPA,128:TI│ Б(Pо32):CL│TIлSL:Бе218LБж19:PC│0:ЕCL▓TL з20:ДЕTLмCL▓15зTL│CLл158!MЕTL▓MX зTL│MX8дNАI│CL еTL:J│IмCL:CP$(J)│T$(I):PC│PCл1:Л:ЕKT$│"G"з20:ДJ│MXмPC:АI│CL еJ:T$(I)│T$(IлPC):Л:J│MX:MX│MXмPC:АI│MXл1еJ:T$(I)│"":Л:Бе208╗OБж19:ЕTL▓MX зMX│TL8цPMX│MXлPC:ЕMX▓TM зDM│MXмTM:MX│TM :ДDM│09HQJ│TLлPCмDM:АI│MX еJ йм1:K│IмPC:T$(I)│T$(K):Л:CL│0:J│Jм1:АI│TL еJ:T$(I)│CP$(CL):CL│CLл1:Л:Бе209VRБж89:PM│19ТSLN│0:Бж91:АI│0еMX й110:Бж107:АJ│I еIл54:ЕJ▓MX зЛ:Л:Бе999щTЗ@448," AT LINE"J"OF"MX;:LN│LNл1:З#м2,д5)T$(J);:ЕJл55┤│MX зЗ#м2,д45)T$(Jл55):ДЗ#м29ўUЛ:Бж108:Л:1VЮ3:Й"CHAIN TO ANOTHER FILE";A$:Е О(A$,1)┤▓"Y"зЮ4:Бе88:~WТ1025,PG:Т1026,PM:Бж18:ХM:PG│ Ж(1025):PM│ Ж(1026):Бж17:Бж38:И PM Бе83,93:ХXАI│0е65:З#м2:Л:Бе7:щYБж15:Ю:З"PRINTER SETUP":З:З" 1 POSITION PAPER":З" 2 SET BAUD RATE TO "B$:З:PG│0;Z╗Й"PRESS <ENTER> WHEN READY.  ";A$:Ю0:Р;9[Ю0:З@384," PRINTING FILE";:Бе43;G\Бж89:PM│2;г]WL│77:C$│".":Бж91:LN│99:АI│0еMX:Е О(T$(I),1)│"@"▒T$(I)│""▒T$(I)│ б(32," ")зБж100:Л:Бе99;┤^ЕLN│99зБж107;ш_Бж111:АJ│1еLS:A$│ Р(S$,J,1):Е Ъ(м2)┤5зЗ#м2,д5);<1`ЕA$│"["зWL│WLл1:З#м2, Л(15);:Бе98:ДЕA$│"]"зWL│WLл1:З#м2, Л(14);:Бе98<paЕC$┤▓"."░A$│" "░ Ъ(м2)│5з98:ДЗ#м2,A$;:C$│" ":ЕA$│" "зБж109<xbЛ:Л<бcЕLN┤55зЗ#м2:LN│LNл1:Бе99:ДБж108:Бе86=dC$│".":CZ│30:A$│ Р(T$(I),2,1):Бж114:ЕA$│"U"зTB│10:ДЕA$│"C"зTB│26:ДЕA$│"R"зTB│46:ДЕA$│"B"зTB│13:CZ│31:ДЕA$│"H"зР:ДTB│5=/eЕ Ъ(м2)▓4зБж104=yfЕTB│10зЗ#м2,дTB) П(T$(I),30);:ЕI│MX зЗ#м2:Р:ДI│Iл1:З#м2,T$(I):Бж105:Р=зgЗ#м2,дTB) Л(CZ) П(T$(I),30) Л(30):Бж105:Р=╛hWL│77:З#м2:Бж105:Р=їiЗ@448," AT LINE"I"OF"MX;:LN│LNл1:ЕLN▓54зБж106:Р:ДР= jБж108>-kLN│0:З#м2:АK│0е3:З#м2,д11)HD$(K):Л:З#м2:Р>alPG│PGл1:З#м2:З#м2:З#м2,д36)"-"PG"-":З#м2:З#м2:Р>ГmK│ Ю(Jл1,S$," "):ЕK▓0зK│KмJм1>бnЕK▓(WLм Ъ(м2))зБж104:Р:ДР>▓oLS│ З(T$(I))>╪pЕ Р(T$(I),LS,1)│" "зLS│LSм1:Бе112?qS$│ О(T$(I),LSм(LS┤32)):LS│ З(S$):ЕI┤MX зS$│S$лT$(Iл1):Р:ДР?ЗrЕA$┤"0"▒A$▓"3"з115:ДK│ Й(A$):A$│"H":Е Р(T$(I),3,1)│"0"зHD$(K)│ П(T$(I),29):Р:ДHD$(K)│HD$(K)л П(T$(I),29):Р?ЭsБж36:ЕLN│99зБж107?мtЕA$┤▓"/"зР?├uБж104:ЕLN▓0з117:ДР?╓vХ550:╚0:└1:Бе6@wЕ F$│""зР :ДЕ  Р(F$, З(F$)м1,1)│":"з F1$│ П(F$,2):F$│ О(F$, З(F$)м2)@%xР@9БЕ MX┤▓0 з Бж150@РВЮ:З@416,"LOADING INSTRUCTIONS (INST/DAT).":DV│1:F$│"INST.DAT":Щ"I",DV,F$:Бж39:Бе20AЦЮ:З:З:Й"ARE YOU SURE YOU WANT TO LOAD   THE INSTRUCTIONS?  THE CURRENT  TEXT WILL BE DESTROYED !!";Q$:Е О(Q$,1)┤▓"Y"з7:ДРA9кЕ Q│1 зF$│"INST"::Д ╗Й"FILE NAME? ";F$A?мР416,"LOADING INSTRUCTIONS (INST/DAT).":DV│1:F$│"INST.DAT":Щ"I",DV,F$:Бж39:Бе20AЦЮ:З:З:Й"ARE YOU SURE YOU WANT TO LOAD   THE INSTRUCTIONS?  THE CURRENT  TEXT WILL BE DESTROYED !!";Q$:Е О(                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 |9
:ГCOPYRIGHT(C) 1983 CLOAD         PUBLICATIONS INC.S
:ГEDWIN P MEINERS IIIp:Г9350 COUNTRY CREEK #30И:ГHOUSTON, TX 77036Т(Бе830╗2Бж795:CN│ Б( Уо(Lл5)):Бж790:ХM:Бж800i<Ю:З"   ADDR MENU":З:З" 1 SAVE FILE":З" 2 LOAD FILE":З" 3 APPEND FILE":З" 4 INSERT ADDR":З" 5 REVIEW & EDIT ADDR":З" 6 SEARCH FOR ADDR":З" 7 LIST FILE":З" 8 PRINT LABELS"ИFЗ" 9 SORT FILE":З"10 STOP"$PЗ@481,"MAX ADDR"TM"   ADDR USED"MX;:З@384:Й" ENTER NUMBER";A$:ЕA$│"1"зБж170:Бе60:ДЕA$│"2"з110:ДЕA$│"4"зTL│0:Бж130:Бе60:ДЕA$│"10"зЮ:Т155,80:К:Бж810:Бе60ЯZЕA$│"6"зБж370:Бе60:ДЕA$│"7"зБж390:Бе60:ДЕA$│"8"зБж590:Бе60:ДЕA$│"9"зБж640:Бе60:ДЕA$│"3"зБж200:Бе60:ДЕA$│"5"зБж270:Бе60┐dЗ@416:З" 1-10 PLEASE!":Бе80>nЕMX│0з120:ДЮ4:З@170,"> WARNING <";:З@224,"THE FILE IN MEMORY WILL BE LOST":Й"DO YOU WISH TO CONTINUE";A$:Е О(A$,1)┤▓"Y"з60fxБж790:ХM:Бж800:I│1:Бж210:MA│MX:Бе60еВБж540:ЕTL▓TM зР:ДЮ:З"ADDRESS SETUP       ^ FOR MENU":З:S│0!МS│Sл1:ЕS▓4з142:ДЗ"LINE";:З═"##";S;:З"? ";:╗ЙA$:Е S│1 ░ A$│"^"зР:ДЕA$│""з142:ДT$(TL)│T$(TL)л О(A$,30)л"]":Е S│1 з R1$│A$,НБе 140╖ОЗ:╗Й"REFERENCE NAME, OR <ENTER>      FOR FIRST 10 CHARACTERS OF      LINE 1: ";A$:Е A$│""з A$│ О(R1$,10):З"REFERENCE NAME IS: ";A$::ДЗ▐ПT$(TL)│ О(A$,20)л"["лT$(TL):R1$│""'ЦЗ:╗Й"ADDRESS TYPE? ";A$:T$(TL)│T$(TL)л"\"л О(A$,7)л"\":ЕTL▓MA зMA│TLeаЗ:╗Й"COMMENT? ";A$:T$(TL)│T$(TL)л О(A$,100):MX│MXл1:Бе130нкЮ:З"FILE OUTPUT INFO":Бж230:З@384," WRITING FILE";:Бж260:Щ"O",DV,F$Є┤K│0:АI│0еMA:ЕT$(I)┤▓""зK│Kл1:З#DV,T$(I):З@448," AT ADDR"K"OF"MX; ╛Л:Ъ#DV:Р╚I│MAл1:Бж210:Р|╥Ю:З"FILE INPUT INFO":Бж230:З@384," SEARCH FOR FILE";:Бж260:Щ"I",DV,F$:Ю0:З@384," LOADING FILE";:Бж260╧▄Е М(DV)▒I▓TM зЪ#DV:Р:Д╗Й#DV,T$(I):MA│I:MX│MXл1:I│Iл1:З@448," AT ADDR"MA;:Бе220цБж820:З:Й"FILE NAME";F$:F$│ О(F$,8):Е Ж(188)│6зDV│м1:ДБж250=ЁЕDV│1зЮ0:Р:ДЗ:З"POSITION CASSETTE.":Бе690~·З:Й"USE DISK";A$:Е О(A$,1)┤▓"Y"зDV│м1:Р:ДDV│1:F$│F$л"/DAT":РЯ
З" ";:ЕF$│""зР:ДЗ">"F$" ";:Р
ЕMX│0зР:ДЮ:З"EDIT SETUP          ^ FOR MENU":З:╗Й"REF NAMES? ";A$:ЕA$│"^"зР:ДБж770:I│0:CL$│"C, D, -, ^, OR <ENTER>"Z
I│Iл1:ЕI▓MA з270:ДK│ Ю(T$(I),"["):ЕK│0з280:ДБж740:ЕA$┤▓"T"з280╜
"Бж560:ЕCMD$│"-"з300:ДЕCMD$│"D"зMX│MXм1:T$(I)│"":Бе280:ДЕCMD$│"C"зБж310:Бе280:ДЕCMD$│"^"зР:Д280Ў
,I│Iм1:ЕI┤│0зI│0:Бе280:ДK│ Ю(T$(I),"["):ЕK│0з280:Д290Ь
6S│0:Ю:З"CHANGE    " Л(95)" DELETES A ADDR LINE":K│ Ю(T$(I),"["):З"REF NAME: "; Р(T$(I),1,Kм1):╗Й"????????? ";A$:ЕA$│""зNT$│ Р(T$(I),1,Kм1)л"[":ДNT$│ О(A$,20)л"["D
@S│Sл1:ЕS▓4з340:ДJ│Kл1:K│ Ю(J,T$(I),"]"):ЕK│0зБж360:Бе340:ДЗ"LINE";:З═"##";S;:З": " Р(T$(I),J,KмJ):╗Й"??????? ";A$:ЕA$│ Л(95)зS│Sм1:Бе320:ДЕA$│""зA$│ Р(T$(I),J,KмJ)d
JNT$│NT$л О(A$,30)л"]":Бе320┐
TБж760:З"ADDRESS TYPE: " Р(T$(I),J,KмJ):╗Й"????????????? ";A$:ЕA$│""зA$│ Р(T$(I),J,KмJ)V
^NT$│NT$л"\"л О(A$,7)л"\":J│Kл1:З"COMMENT: " Р(T$(I),J, З(T$(I))мJл1):╗Й"???????? ";A$:ЕA$│""зT$(I)│NT$л Р(T$(I),J, З(T$(I))мJл1):Р:ДT$(I)│NT$лA$:Рл
hЗ"LINE";:З═"##";S;:З"? ";:╗ЙA$:ЕA$│""зР:ДNT$│NT$л О(A$,30)л"]":S│Sл1:ЕS▓4зР:Д360 
rЕMX│0зР:ДЮ:З"SEARCH SETUP        ^ FOR MENU":З:╗Й"TARGET? ";M$:ЕM$│"^"зР:ДI│0:CL$│"^ OR <ENTER>" f
|I│Iл1:ЕI▓MA з370:ДK│ Ю(T$(I),M$):ЕK│0з380:ДK│ Ю(T$(I),"["):Бж560:ЕCMD$│"^"зР:Д380 Ч
ЖS│0:Бж550:Бж520:АI│1еMA:ЕT$(I)│""зЛ:ДБж410:Л ╡
РЕL┤66зЗ#м2:L│Lл1:Бе400:ДР Ў
ЪБж500:IA│0:KA│ Ю(T$(I),"["):S│Sл1:З#м2,═"#####";S;:З#м2,".";!V
дL│Lл1:IA│IAл1:ЕKA│0з430:ДJA│KAл1:KA│ Ю(JA,T$(I),"]"):ЕKA│0з430:ДЗ#м2,д9) Р(T$(I),JA,KAмJA);!y
оИ IA Бж450,460,470,480,480,480!П
╕ЕIA┤6з420:ДЗ#м2:Р!╦
┬K│ Ю(T$(I),"["):З#м2,д42)"REF NAME:  " Р(T$(I),1,Kм1):Р!¤
╠Бж760:З#м2,д42)"ADDR TYPE: " Р(T$(I),J,KмJ):Р"L
╓З#м2,д42)"COMMENTS:  ";:J│Kл1:З#м2, О( Р(T$(I),J, З(T$(I))мK),23):K│Jл23:Р"Щ
рЕK▓ З(T$(I))зБж490:Р:ДЗ#м2,д45) О( Р(T$(I),K, З(T$(I))мKл1),32):K│Kл32:Р"╕
ъIA│6:ЕKA│0зР:ДЗ#м2:L│Lл1:Р"─
ЇЕL┤59зР"▌
■З#м2:L│Lл1:ЕL┤66з510#
АL│0е2:З#м2:Л:З#м2,д9)"ADDRESS LIST: "F$#"АL│0е1:З#м2:Л:L│6:Р#KTL│TLл1:ЕTL▓TM зР:ДЕT$(TL)│""зР:Д540#Ы&Ю:З"PRINTER SETUP":З:З" 1 POSITION PAPER":З" 2 SET BAUD RATE TO "B$:З:Бе690#х0Ю:З"ADDRESS DISPLAY"д29);:З═"###";I;:З:З"REF NAME: " Р(T$(I),1,Kм1):З$':J│Kл1:K│ Ю(J,T$(I),"]"):ЕK│0з580:ДЗ"   " Р(T$(I),J,KмJ):Бе570$ЮDЗ:Бж760:З"ADDRESS TYPE: " Р(T$(I),J,KмJ):З:J│Kл1:З"COMMENT: " Р(T$(I),J, З(T$(I))мJл1):З@480,"CMD: "CL$;:ЙCMD$:Ю:Р$щNЮ:З"LABEL SELECT        ^ FOR MENU":З:╗Й"ADDRESS TYPES? ";A$:ЕA$│"^"зР%SЙ"1 OR 2 UP LABELS";A:Е A│1 ▒ A│2 з UL│A::Д595%eTЗ:Бж599:Й" 1 TO BE PRINTED";L8:Е UL│2зЗ:Бж599:Й" 2 TO BE PRINTED";L9%uUБж770:Бе600%кWЗ"AT WHAT TAB POSITION WOULD YOU  LIKE LABEL";:Р%╕XБж550:I│0%ЇbI│Iл1:ЕI▓TM зР:ДЕT$(I)│""з610:ДБж750:ЕA$┤▓"T"з610:ДTL│I&AlЕ UL│1з 630:Д I│Iл1:ЕI▓TM зTN│0:ДЕT$(I)│""з620:ДБж750:ЕA$┤▓"T"з620:ДTN│I&QvБж700:Бе610&eАЮ0:IM│0:ЕMA┤2зР&НКIM│IMл1:S│0:I│MA:Бж660:ЕS┤▓0з650:ДР&╦ФJ│Iм1:ЕT$(J)│""░T$(I)┤▓""зБж680:Бе670:ДЕT$(J)▓T$(I)зБж680&фЮI│Iм1:ЕI┤│IM зР:Д660'иA$│T$(I):T$(I)│T$(J):T$(J)│A$:S│1:Р'6▓╗Й"PRESS <ENTER> WHEN READY ";A$:Ю0:Р'g╝L│0:З#м2:JF│ Ю(T$(TL),"["):KF│ Ю(T$(TN),"[")'w┴Е UL│1зKF│0'╚╞ЕJF│0з720:ДJ│JFл1:JF│ Ю(J,T$(TL),"]"):ЕJF│0з720:ДЗ#м2,дL8) Р(T$(TL),J,JFмJ);(╨ЕKF│0з730:ДK│KFл1:KF│ Ю(K,T$(TN),"]"):ЕKF│0з730:ДЗ#м2,дL9) Р(T$(TN),K,KFмK);(9┌З#м2:L│Lл1:ЕL┤4з710:ДЗ#м2:Р(yфЕM$┤│ Р(T$(I),1,Kм1)░N$▓│ Р(T$(I),1,Kм1)зA$│"T":Р:ДA$│"F":Р(┐юБж760:ЕM$┤│ Р(T$(I),J,KмJ)░N$▓│ Р(T$(I),J,KмJ)зA$│"T":Р:ДA$│"F":Р)°K│ Ю(T$(I),"\"):J│Kл1:K│ Ю(J,T$(I),"\"):ЕK┤▓0зР:ДK│ З(T$(I)):J│K:Р)yЕA$│""зM$│"":N$│ б(20,255):Р:ДK│ Ю(A$,"-"):ЕK│0зM$│ О(A$,20):N$│M$:Р:ДЕK│1зM$│"":N$│ О( Р(A$,2, З(A$)м1),20):Р)╧M$│ О( Р(A$,1,Kм1),20):ЕK│ З(A$)зN$│ б(20,255):Р:ДN$│ О( Р(A$,Kл1, З(A$)мK),20):Р)ыТ1024,CN:Бж795:M│CNнL:Р*
L│110:Р::ГAVE. ADDRESS LENGTH*- CN│ Ж(1024):TM│CNм3:МT$(TM)*O*Т150,87:B$│"600"::ГPRINT BAUD*g4Т155,132:Т65494,0:Р*{>Х300:╚0:└1:Бе50M$│ О( Р(A$,1,Kм1),20):ЕK│ З(A$)зN$│ б(20,255):Р:ДN$│ О( Р(A$,Kл1, З(A$)мK),20):Р)ыТ1024,CN:Бж795:M│CNнL:Р*
L│110:Р::ГAVE.                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  ╗9:ГCOPYRIGHT(C) 1983 CLOAD         PUBLICATIONS INC.t
:ГE P MEINERS, 9350 COUNTRY CREEK 30, HOUSTON TX 77036~Бе960зSN│K:T$│T$(K):T$(K)│T$(J):T$(J)│T$:Р█(Бж80:ЕTY▓5▒CC$▓"R"зР:ДЕTY┤3зBL│BLлAM :ДBL│BLмAM	2ЕCC$┤▓"C"зР:ДЕTY┤3зBK│BKлAM:Р:ДBK│BKмAM:Р=<Бж80:ЕTY▓5▒CC$▓"R"зР:ДЕTY┤3зBL│BLмAM :ДBL│BLлAMkFЕCC$▓┤"C"зР:ДЕTY┤3зBK│BKмAM:Р:ДBK│BKлAM:Р▒PCC$│ Р(T$(I),18,1):AM│ Й( Р(T$(I),10,8)):TY│ Й( Р(T$(I),5,1))л1:Р7ZMX│ Б( Уо43):M│MXн38:Т1024, Б(MXо256):Т1025,MXм Ж(1024)н256:ХM:MX│ Ж(1024)н256л Ж(1025):MX│MXм8:МT$(MX):LC$│"    ":LG$│ б(32,191)вdЮ:Зд10)"KEEP CHEK":ЗLG$;д7)"1  LOAD FILE":Зд7)"2  SAVE FILE":Зд7)"3  ISSUE ITEMS":Зд7)"4  CLEAR ITEMS"nЗд7)"5  CHECK REGISTER":Зд7)"6  CHANGE ITEMS":Зд7)"7  SORT ITEMS":Зд7)"8  EXIT PROGRAM":ЗLG$;wxЗ@421,═"CHECKBOOK    $#####.##-";BL:З@453,═"CLEARED BANK $#####.##-";BK:З@485,═"ITEM COUNT     ###/###";TM;MX;╨ВЗ@357,"SELECTION?";:A$│ Т:ЕA$│""з130:ДA│ Й(A$):И A Бе230,280,310,740,510,790,920,150°МЗ@368,"TRY AGAIN!   ";:а128,1:Бе130ЦЮ:К:Бе100<аCM$│ Т:ЕCM$▓┤""зР:ДЕ Ж(343)▓┤247░ Ж(344)▓┤247з160xкЕ Ж(343)│247зCM$│ Л(8):Р:ДЕ Ж(344)│247зCM$│ Л(9):Р:Д160▓┤З:Й"FILE NAME";F$:F$│ О(F$,8):Е Ж(188)│6зDV│м1:ДБж200р╛ЕDV│1зЮ0:Р:ДЗ:З"POSITION CASSETTE.":Бе220!╚З:Й"USE DISK";A$:Е О(A$,1)┤▓"Y"зDV│м1:Р:ДDV│1:F$│F$л".DAT":РB╥З" ";:ЕF$│""зР:ДЗ">"F$" ";:Рl▄╗Й"PRESS <ENTER> WHEN READY ";A$:Ю0:РдцЕTM▓0зЗ@368,"";:Й"ARE YOU SURE";A$:ЕA$┤▓"Y"зЮ:Бе1005ЁЮ:TM│0:Зд8)"LOAD FILE SETUP":ЗLG$;:Бж180:З@384," SEARCH FOR FILE";:Бж210:Щ"I",DV,F$:Ю0:З@384," LOADING FILE";:Бж210:Й#DV,IW,BL,BK:LC$│ И(IW)Е·Е М(DV)▒TM│MX зЪ#DV:Бе100:ДTM│TMл1:╗Й#DV,T$(TM):З@448," AT RECORD"TM;:Бе250м
а128,1:З@368,"MEMORY EMPTY!":Бе130╥
а128,1:З@368,"MEMORY FULL!":Бе130@
ЕTM│0з260:ДЮ:Зд8)"SAVE FILE SETUP":ЗLG$;:Бж180:З@384," WRITING FILE";:Бж210:Щ"O",DV,F$:З#DV, Й(LC$),BL,BK}
"АI│0еTM:ЕT$(I)┤▓""зЗ#DV,T$(I):З@448," AT RECORD"I"OF"TM;О
,Л:Ъ#DV:Бе100ш
6ЕTM│MX з270:ДЮ:NI$│ О( И( Й(LC$)л1)л"    ",5):З"ISSUE ITEMS      NEXT ITEM#"NI$;:ЗLG$P
@TM│TMл1:T$(TM)│ б(38,32):З@448,═"CHECK $#####.##-";BL:З═"BANK  $#####.##-";BK;:З@498,"'Q' TO QUIT";ж
JЗ@96,"    ";:╗Й"ITEM NO? ";CK$:ЕCK$│"Q"з400:ДБж440: Р(T$(TM),6,4)│ П("   "лCK$,4)[
TЗ@498,"'_' TO CHANGE";:З@128,"";:╗Й"  DATE? mmdd ";DT$:ЕDT$│"_"з430:ДЕ З(DT$)┤▓4з420:ДЕ О(DT$,2)┤"01"▒ О(DT$,2)▓"12"з420:ДЕ П(DT$,2)┤"01"▒ П(DT$,2)▓"31"з420:Д Р(T$(TM),1,4)│DT$Ш
^╗Й"DESCRIPTION? ";CD$:ЕCD$│"_"з460:Д Р(T$(TM),19,18)│CD$ы
h╗Й"     AMOUNT? ";AM$:ЕAM$│"_"з470:Д Р(T$(TM),10,8)│ П("      "л И( Й(AM$)),8)V
r╗Й"BUDGET CODE? ";BD$:ЕBD$│"_"з480:Д Р(T$(TM),37,2)│BD$:Е Й( Р(T$(TM),6,4))▓ Й(LC$)зLC$│ Р(T$(TM),6,4)д
|Бж410:З@256:З@256,"       ";:╗Й"TYPE? ";TY$:ЕTY$│"_"з490:ДЕTY$│""зTY$│"3"
ЖI│TM:ЕTY$┤"0"▒TY$▓"5"з500:Д Р(T$(TM),5,1)│TY$:ЕTY$│"1"▒TY$│"2"з Р(T$(TM),18,1)│"C":Бж40:Бе310:ДБж40:Бе310.
РT$(TM)│"":TM│TMм1:Бе100Ъ
ЪЗ@320,"  0 = DEPOSIT"д16)"3 = CHECK":З"  1 = INTEREST"д16)"4 = WITHDRAWAL":З"  2 = FEE"д16)"5 = MEMO":Р╤
дЗ@160,"INVALID DATE";:а128,1:З@128:З@128,"";:Бе340я
оЗ@128:З@96:З@96,"";:Бе330 
╕ЕCK$│""зCK$│NI$:ДР 
┬З@108,CK$:Р 6
╠З@160:З@128:З@128,"";:Бе340 V
╓З@192:З@160:З@160,"";:Бе350 v
рЗ@224:З@192:З@192,"";:Бе360 Ь
ъЗ@288:З@256:З@224:З@224,"";:Бе370 ╔
ЇЗ@288,"INVALID TYPE";:а128,1:З@256:Бе380!Б
■ЕTM│0з260:ДЮ:Зд9)"PRINTER SETUP":ЗLG$:З"PREPARE PRINTER FOR USE.":З:Зд12)"FROM,THRU,YR":З"ENTER DATES mmdd,mmdd,yy":Й"          ";M1$,M2$,YR$:Бж670:Бж690:LC│LCм1:TK│0:BL│0:BK│0:Ю0!╥АI│1еTM:ЕT$(I)│""зЛ:Бе540:ДCN│ Й( Р(T$(I),1,4)):ЕCN▓│CF зTK│1:ДЕCN┤│CT зTK│0!ыБж40:ЕTK│1Бж570:Л:ДЛ"ЕLC▓57зLC│LCл1:Бж680"А&LC│LCл4:З#м2:З#м2,д10)"CURRENT BALANCE  ";:З#м2,═"#####.##-";BL:З#м2:З#м2,д10)"BANK TOTAL       ";:З#м2,═"#####.##-";BK"г0ЕLC┤66зLC│LCл1:З#м2:Бе560:Д100"╗:LC│LCл1:ЕLC▓62Бж680#DЗ#м2,"  " Р(T$(I),1,2)"/" Р(T$(I),3,2)"  ";:И TY Бж600,610,620,630,650,660:CK$│ Р(T$(I),6,4)#ЗNЗ#м2,TY$"  "CK$"    ";:З#м2,═"#####.##-";AM;:З#м2,"    "CC$"     " Р(T$(I),19,18)"   " Р(T$(I),37,2):Р#ЬXTY$│"DEPOSIT ":Р#▒bTY$│"INTEREST":Р#╞lTY$│"FEE     ":Р#█vTY$│"        ":Р#ЁАTY$│"CHECK   ":Р$КTY$│"WITHDRAW":Р$ФTY$│"MEMO    ":Р$nЮCF│ Й(M1$):CT│ Й(M2$):D1$│ П(M1$,2):D2$│ П(M2$,2):M1$│ О(M1$,2):M2$│ О(M2$,2):Р$МиЗ#м2:ЕLC┤66зLC│LCл1:Бе680%8▓З#м2:З#м2:З#м2,д25)"CHECK REGISTER"д55)M1$"/"D1$" - "M2$"/"D2$"  19"YR$:З#м2:З#м2,"  DATE     TYPE   ITEM #     AMOUNT   CLEAR   DESCRIPTION        BUDGET":З#м2:LC│7:Р%Е╝Зд7)"DATE:  " Р(T$(I),1,2)"/" Р(T$(I),3,2):Зд4)"ITEM NO:  " Р(T$(I),6,4)%м╞Зд5)"AMOUNT:  $" Й( Р(T$(I),10,8))&7╨З"DESCRIPTION:  " Р(T$(I),19,18);:Зд5)"BUDGET:  " Р(T$(I),37,2):TY│ Й( Р(T$(I),5,1))л1:И TY Бж600,610,620,640,650,660:Зд7)"TYPE:  "TY$&y┌З:З═"     CHECK $#####.##-";BL:З═"     BANK  $#####.##-";BK:Р&°фЕTM│0 з260:ДЮ:АI│1еTM:З@0,"SEARCH FOR OUTSTANDING AT"I;:ЕT$(I)│""▒ Р(T$(I),5,1)│"5"з750:ДЕ Р(T$(I),18,1)┤▓" "з750:ДБж760:Ю'юЛ:Бе100'Ь°Ю:Зд10)"CLEAR ITEMS":ЗLG$;:Бж700:З:З"  ENTER CODE:  ' ' = OUTSTANDING";:Зд15)"'C' = CLEARED":Зд15)"'S' = STOPPED":З"'Q' TO QUIT"д15)"'V' = VOIDED";(A$│ Т:ЕA$│""з770:ДЕA$│"Q"зI│TM:Р:ДЕA$│" "▒A$│"C"з780:ДЕA$│"S"▒A$│"V"Бж60:ДЗ@354,"INVALID CLEAR CODE";:а128,1:Бе770(5 Р(T$(I),18,1)│A$:Бж80:Бж50:Р(├CM$│" ":ЕTM│0 з260:ДЮ:Зд9)"CORRECT ITEMS":ЗLG$:З@480,"'Q' TO QUIT";:З@96,"";:╗Й"WHICH DATE? mmdd ";DT$:ЕDT$│"Q"з100:ДЗ@480,"SEARCHING  ";)G АI│1еTM:З@0,═"###";I;:ЕT$(I)│""░CM$│ Л(8)Бж910:ДЕT$(I)│""з810:ДЕDT$│""▒DT$│ Р(T$(I),1,4)зЗ@96,"";:Бж700:Бж820:ДЕCM$│ Л(8)зБж910)s*Л:ЕCM$│ Л(94)▒CM$│"D"з790:ДDT$│"":Бе800)║4З@416,LG$;:З"  Change     Delete":З"  <LEFT>     <RIGHT>    <UP>";*4>Бж160:ЕCM$│"D"зБж60:T$(I)│"":ДЕCM$│"C"Бж850:ДЕCM$│ Л(8)Бж910:ДЕCM$│" "▒CM$│ Л(9)з840:ДЕCM$│ Л(94)зI│TM :Да128,1:Бе830*:HР*цRЗ@107,"? ";:╗ЙDA$:ЕDA$│""з860:ДЕ З(DA$)┤▓5з900:ДЕ О(DA$,2)┤"01"▒ О(DA$,2)▓"12"з900:ДЕ П(DA$,2)┤"01"▒ П(DA$,2)▓"31"з900:Д Р(T$(I),1,2)│ О(DA$,2): Р(T$(I),3,2)│ П(DA$,2)+c\З@107,":  " Р(T$(I),1,2)"/" Р(T$(I),3,2):З@384:З@171,"? ";:Бж60:╗ЙAM$:ЕAM$┤▓""з Р(T$(I),10,8)│ П("      "л И( Й(AM$)),8)+╠fБж40:З@171,":  $" Й( Р(T$(I),10,8)):З@203,"? ";:╗ЙCD$:ЕCD$┤▓""з Р(T$(I),19,18)│CD$л б(18м З(CD$),32),pЗ@203,":  " Р(T$(I),19,18);:З@235,"? ";:╗ЙBD$:ЕBD$┤▓""з Р(T$(I),37,2)│BD$л"  ",EzЗ@235,":  " Р(T$(I),37,2):I│Iм1:Р,eДЗ@384,"INVALID DATE";:Бе850,АОI│Iм2:ЕI┤0зI│TMм1:Р:ДР,║ШЕTM┤2з100:ДЮ0:З@169," SORTING ";:B│1:S│TMм1:SN│0:PS│0-
вPS│PSл1:З@265," PASS ="PS;:АJ│B еS:K│Jл1:Е Р(T$(K),1,9)┤ Р(T$(J),1,9)Бж30:Л:ДЛ-мЕSN│0з100:ДS│SN:B│Bл1:SN│0:PS│PSл1:З@265," PASS ="PS;:АK│S еB йм1:J│Kм1:Е Р(T$(K),1,9)┤ Р(T$(J),1,9)Бж30:Л:ДЛ-ж╢ЕSN│0з100:ДB│SNм1:S│Sм1:SN│0:Бе930-║└Х400:╚0:└1:Бе90вPS│PSл1:З@265," PASS ="PS;:АJ│B еS:K│Jл1:Е Р(T$(K),1,9)┤ Р(T$(J)                                                                                                                                                                                                                                                                 Ю9
В COPYRIGHT (C) 1983 CLOAD        PUBLICATIONS INC.D
Бе3000gЕ  У ▓16383 з Z│3700 :Д Z│1500~A│ Б(( Ум3700)о30)Ъ#B│ Б(Aо256):C│Aм(Bн256)░(Т&H1E9,B:Т&H1EA,C╛2ХAн30л200▌<DX│ Ж(&H1E9)н256л Ж(&H1EA)ъFМXX$(DX)	PPK│ Ж(188):ЕPK│6зF│м1:ДF│1ZNF│0:Ю2dВ *** FIND OUT WHAT TO DOQnЗд6)"TAPE LIBRARY SYSTEM "ixЗ::Г BY  GB JANSSENРВЗ "   RECORDS=";TT;"      MAX=";DXзМЗд9)"G = GET/LOAD"║ЦЗд9)"L = LIST"═аЗд9)"F = FIND"▀кЗд9)"A = ADD"Ї┤Зд9)"C = CHANGE"	╛Зд9)"D = DELETE"╚Зд9)"S = SORT"0╥Зд9)"R = RENUM"F▄Зд9)"P = PRINTER"^цЗд9)"K = KEEP/SAVE"pЁЗд9)"E = END"П·Й"      SELECT OPTION ";A$Я
ЕA$│"G"з770▒
ЕA$│"L"Бе1040┴
ЕA$│"F"з390╥
"ЕA$│"A"Бе490т
,ЕA$│"C"з930Є
6ЕA$│"D"з630
@ЕA$│"S"з1800
JЕA$│"R"з860$
TЕA$│"P"з16107
^ЕA$│"K"Бе1370KL
hЕA$│"E"зБж1280:КU
rБе90d
|В *** FINDo
ЖБж1280М
РЗ@448,"PROGRAM NAME":ЙT$┤
ЪT$│T$л"        ":T$│ О(T$,8):P│0:Ю0╛
дP│Pл1╧
оЕP▓TT зБе460Є
╕Е Р(XX$(P),7,8)│T$зNF│1:Бж1320№
┬Бе420

╠ЕNF│0зБж1560
╓Бж1580:Бе90+
рВ *** ADD6
ъБж1280B
ЇTT│TTл1n
■Й"SEQ#(3)";B$:Бж2300:SQ$│ О(B$л"   ",3)ЪЙ"TAPE(3)";B$:Бж2300:LB$│ О(B$л"   ",3)─Й"NAME(8)";B$:NM$│ О(B$л"        ",8)чЙ"TYPE(1)";B$:TY$│ О(B$л" ",1)&Й"POSITION(5)";B$:PS$│ П("     "лB$,5)C0Й"REMARKS(10)";B$:RM$│ О(B$л"          ",10)Q:ЕA$│"C"зРuDXX$(TT)│LB$лSQ$лNM$лTY$лPS$лRM$ЦNЙ"MORE INPUT";B$:B$│ О(B$,1)жXЕB$│"Y"з500пbБе90╜lВ *** DEL╚vБж1280шАЗ@448,"WHAT SEQ#(SXXX)":ЙT$ЕT$│ Р(T$,2,3):B$│T$:Бж2300:T$│"S"лB$.КT$│ Р(T$л"   ",2,3):D1│0:ФD1│D1л1JЮЕD1▓TT з740mиЕ Р(XX$(D1),4,3)│T$зNF│1:Бе700w▓Бе660З╝ЕD1│TT з730Э╞XX$(D1)│XX$(D1л1)╛╨ЕD1л1│TT з730:ДD1│D1л1:Бе710╧┌TT│TTм1:Бе90рфЕNF│0зБж1560щюБе90¤°В *** GET INPUTX│0Й"FILE NAME";F$;ЕPK│6з800:ДF$│F$л"/DAT":Бе810t Бж1280:З:З:З" READY CASSETTE WITH INPUT TAPE":Бж1580В*Щ"I",F,F$Ф4Е М(F)│м1з840░>X│Xл1:╗Й#F,XX$(X):Бе820╔HЪ#F:TT│X:Бж1280:Бе90┘RВ *** RENUMх\P│0:X│0їfP│Pл1:X│Xл5pЕP▓TT з90zDS$│ И(Xл1000)3Д Р(XX$(P),4,3)│ П(DS$,3)=ОБе870NШВ *** CHANGEГвБж1280:З@448,"WHAT SEQ#(SXXX) OR END":ЙT$:Бе1050┬мБж1300:PS│0:TS│TT:TT│P:З"  IF NO CHANGE PRESS ENTER":Бж510х╢ЕLB$│"   "зLB$│ Р(XX$(TT),1,3)└ЕSQ$│"   "зSQ$│ Р(XX$(TT),4,3)0╩ЕNM$│"        "зNM$│ Р(XX$(TT),7,8)R╘ЕTY$│" "зTY$│ Р(XX$(TT),15,1)x▐ЕPS$│"     "зPS$│ Р(XX$(TT),16,5)дшЕRM$│"          "зRM$│ Р(XX$(TT),21,10)╚ЄXX$(TT)│LB$лSQ$лNM$лTY$лPS$лRM$╫№TT│TS:Бе90єВ *** FIND WHAT TO LIST 1Бж1280:З@448,"WHICH TAPE#(TXXX) OR SEQ#(SNNN) OR ALL":ЙT$ DЕT$│"ALL"з1450 l$P│0:X│0:X$│ Р(T$,1,1):T$│ Р(T$,2,3) Д)B$│T$:Бж 2300:T$│B$ Х.ЕX$│"S"з1200 к8В *** LIST TAPE  └BT$│ О(T$л"   ",3) уLЕT$│ Р(XX$(P),1,3)зNF│1:Бе1120!
VP│Pл1:ЕP▓TT з1170:ДБе1100!`ЕA$│"C"з940!jX│Xл1!4tЕPS│0зБж1300:ДБж1340!Z~ЕX│11зЗд12)"MORE":Бж1580:PS│0:X│0!eИБе1110!vТЕNF│0зБе1560!ЛЬБж1580:PS│0:Бе90!ЮжВ *** LIST SEQ!┴░ЕT$│ Р(XX$(P),4,3)зNF│1:Бе1230!╫║P│Pл1:ЕP▓TT з1250!т─Бе1200!Є╬ЕA$│"C"з940"╪Бж1300:PS│0"тЕNF│0зБж1560"#ьБж1580:Бе90"3ЎВ *** CLEAR"<Ю0:Р"O
В *** PRINT IT"XЮ0:З"aPS│1"Б(Зд11)"TAPE "; Р(XX$(P),1,3)"з2З"SEQ   NAME  TYP  POS   REMARKS"#<З Р(XX$(P),4,3);" "; Р(XX$(P),7,8);" "; Р(XX$(P),15,1);" "; Р(XX$(P),16,5);" "; Р(XX$(P),21,10)#FР#'PВ *** SAVE OUTPUT#;ZЙ"FILE NAME";F$#_dЕPK│6з1390:ДF$│F$л"/DAT":Бе1400#ШnБж1280:З:З:З"READY CASSETTE WITH OUTPUT TAPE":Бж1580#кxX│1:Щ"O",F,F$#╣ВЗ#F,XX$(X)#╒МX│Xл1:ЕX▓TT з1430:Д1410#тЦЪ#F:Бе90#ЎаВ *** PRINT ALL#■кP│1$
┤X│0:Бж1300$╛P│Pл1:X│Xл1$-╚ЕP▓TT з1510$;╥ЕX│5з1540$M▄Бж1320:Бе1470$XцБж1580$aЁPS│0$j·Бе90$|Бж1580:Бе1460$РВ *** NOT FOUND$┼Ю0:З@235,"not"; Л(128);"found";:Бж1580:NF│0:Бе90$▐"В *** WAIT FOR INPUT$Є,B$│ Т:ЕB$┤▓""зР%"6АWL│490е500:НA$:З@WL,A$;:АLW│1е20:ЛLW:ЛWL:П%X@АWL│490е500:З@WL, Л(128);:АLW│1е20:ЛLW:ЛWL:Бе1580%kJВ *** PRINTER %ЫTЮ0:З:З"   TAPEINV PRINTER SUBSYSTEM":Бж1890%╬^Й"   SELECT PRINTER OPTION ";A$:LM│59:LC│0:X│1&hЕA$│"1"з1660:ДЕA$│"2"з1670:ДЕA$│"3"з1680:ДЕA$│"4"з1690:Д1620&"rВ *** TAPE/SEQ&5|B│1:L│3:Бе1700&HЖB│3:L│3:Бе1700&[РB│7:L│8:Бе1700&oЪB│15:L│1:Бе1700&zдБж1770&СоPV$│ Р(XX$(X),B,L)&▓╕Е Р(XX$(X),B,L)┤▓PV$ зБж1780'?┬З#м2,д5); Р(XX$(X),4,3);"   "; Р(XX$(X),1,3);"   "; Р(XX$(X),7,8);"   "; Р(XX$(X),15,1);"   "; Р(XX$(X),16,5);"       "; Р(XX$(X),21,10)'m╠PV$│ Р(XX$(X),B,L):X│Xл1:ЕX▓TT зЗ#м2:Бе90'й╓LC│LCл1:ЕLC▓LM зБж1780:Бж1780:Бж1780:Бж1780:Бж1770:LC│0'╬рЕA$│"2"з1710:ДЕA$│"3"з1710:Д1720(!ъЗ#м2:З#м2:З#м2,"     SEQ# TAPE   PROGRAM  TYPE POSITION     REMARKS":LC│LCл3:Р(4ЇЗ#м2:LC│LCл1:Р(M■В *** SORT SUBSYSTEM(XБж1280(ЖЗ:З"  TAPE LIBRARY SORT SUBSYSTEM":Бж1890(лЙ"   SELECT SORT SEQ OPTION ";A$(╝&ЕA$│"1"з1900(═0ЕA$│"2"з1930(▐:ЕA$│"3"з1950(яDЕA$│"4"з1970(·NБе1800)XВ *** GET OPTION)]bЗд7)"1 = TAPE/SEQ":Зд7)"2 = SEQ#":Зд7)"3 = PROGRAM NAME":Зд7)"4 = TYPE":Р)vlВ *** TAPE/SEQ# SEQ )ЙvB│1:L│6:Бе1990)ЭАВ *** SEQ# SEQ )░КB│4:L│3:Бе1990)╚ФВ *** PROG NAME SEQ)█ЮB│7:L│8:Бе1990)юиВ *** TYPE SEQ*▓B│15:L│1:Бе1990*╝В *** COMMON SORT*;╞Ю0:З@237,"sortin";:SN│TT:SM│SN*K╨SM│ Б(SMо2)*[┌ЕSM│0Бе2110*mфSK│SNмSM:SJ│1*wюSY│SJ*Д°SL│SYлSM*оЕ Р(XX$(SY),B,L)▓ Р(XX$(SL),B,L)з2080*║SJ│SJл1*╤ЕSJ▓SK з2000:Д2030*¤ SZ$│XX$(SY):XX$(SY)│XX$(SL):XX$(SL)│SZ$+
*SY│SYмSM+4ЕSY┤1з2060:Д2040+(>Бе90+DHЖ p,r,e,s,s, ,e,n,t,e,r+Г№Е  З(B$)┤3з Е  З(B$)│2зB$│"0"лB$ :Д Е  З(B$)│1з B$│"00"лB$+Й	Р+Э╕Х200:╚0:└1:Бе20(SL),B,L)з2080*║SJ│SJл1*╤ЕSJ▓SK з2000:Д2030*¤ SZ$│XX$(SY):XX$(SY)│XX$(SL):XX$(SL)│SZ$+