,E4,32,63,26,A1,32,62,39S1╓Е  Ж(&H0243)│&H77 з РSтрЕ Ж(&H010D)│216зЮ:Т&H0243,&H77:З"INSTALL A SPOOLER IN UPPER 32K  (Y/N): YOU WILL ONLY BE ASKED   THIS QUESTION ONCE AT THE START OF THE SESSION.":Бж80:ЕA$┤▓"Y"зР :Д3050:Д РTQъB│0:Т&HFFDE,0:АI│&H7F5D е&H7FFF:НA$:ТI, Й("&H"лA$):B│Bл Й("&H"лA$):Л:Е B┤▓16854 з З"ML ERROR IN SPOOLER":СUFЇЖ34,12,30,8D,00,52,BF,01,68,96,96,97,E6,30,8C,F0,8E,FE,FF,AF,8D,00,85,8E,80,00,AF,8D,00,80,AF,8D,00,7E,30,8D,00,05,BF,01,0D,35,92,AE,8D,00,6F,AC,8D,00,6D,27,20,F6,FF,22,54,25,1A,7F,FF,DF,A6,84,7F,FF,DE,BD,8E,0C,30,01,AC,8D,00,50,26,03,8E,80V;■Ж00,AF,8D,00,49,7E,D8,AF,34,02,96,6F,81,FE,27,05,35,02,7E,CC,1C,35,02,0C,9C,81,0D,26,04,0F,9C,86,0D,32,62,34,10,AE,8D,00,27,1A,50,7F,FF,DF,A7,84,7F,FF,DE,1C,AF,30,01,AC,8D,00,11,26,03,8E,80,00,AC,8D,00,0A,27,FA,AF,8D,00,06,35,90,25,FF,7F,FFVIЖ7F,FF,00VUв&H7F5DV[РVЩ&Е Ж(25)│14зХ11536,&H7F5C:Бе20 :Д ╚0:└1:Х10000,&H7F5C:Бе20                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  2,PT$,N6,RP$,SB$J)	VАI│1еN6:┘#2,LI$(I):ЛIJ9	`Ъ#2:Бе 2480J[	jЗ"ENTER A DEVICE# FOR OUTPUT"JС	tЗ"-2 PRINTER,-1 CASSETTE,0 SCREEN OR >1 FOR DISK"J─	~ЙDV:Е DV│1 з З"DEVICE 1 IN USE-REENTER":Бе2430K
	ИЕ DV│м1 ▒ DV▓1 з Й"ENTER A FILENAME TO SAVE ASCII  DATA DUMP";BB$K3	ТЗ"HIT KEY WHEN DEVICE IS READY":Бж80KU	ЬЕ DV│м1 ▒ DV▓1 з Щ"O",#DV,BB$K[	жРKn	░Бж2410:АJ│1еLOKЬ	║ЕFR│0зGR│J :ДЕJ│1зGR│FR :ДGR│ Й( П(S$,3))Kз	──#1,GRK╔	╬ЕRP$│"Y"зЗ#DV,═"REC:### ";GR;K╒	╪АM│1еN6Kє	тЕ З(LI$(M))│0зЗ#DV:Бе2620L	ьАK│1е З(LI$(M))L!	ЎZZ│ К( Р(LI$(M),K,1))L;
A$│ Р(S$,S(ZZ),L(ZZ))LQ

Е SB$┤▓"Y" з 2600LБ
Е  П(A$,1)│" " з A$│ О(A$, З(A$)м1):Бе 2580LЧ
Е  З(A$)│0 з 2610L╚
(ЕPT$│"Y"зЗ#DV,F$(ZZ)":"A$;" ";:ДЗ#DV,A$;" ";L╘
2ЛK:З#DVL█
<ЛMLт
FЛJM

PАM│1еN6:З#DV:Л::Ъ#DV:Бе100M
ZЮM!
dЗ г(0)"granules free"M-
nАI│3е11M?
x▀0,17,I,A$,B$MJ
ВАJ│0е3Mv
МC$│ Р(A$,Jн32л1,12):D$│ Р(B$,Jн32л1,12)MС
ЦЕ О(C$,1)│ Л(255)з2790Mк
аЕ О(C$,1)│ Л(0)з2780M·
кЕ Р(C$,9,3)┤▓"DEF"░ Р(C$,9,3)┤▓"DAT"░ Р(C$,9,2)┤▓"RP"░ Р(C$,9,2)┤▓"LB"з2780N 
┤NN$│ О(C$,8)л"/"л Р(C$,9,3):K│Kл1NY
╛ЕKF│1зЕ О(NN$,8)│F1$з╥NN$:ЗNN$" killed":Бе2780:Д2780N╦
╚ЕCF│1з Е  О(NN$,8)│F1$з ▐ NN$:Т&HFF40,0:З:ЗNN$" copied":З"INSERT SOURCE DISK AND HIT ENTER":Бж80:Бе2780:Д2780N╘
╥ЗNN$N·
▄Е О(D$,1)│ Л(255)зI│11:J│3:Бе2850O
цЕ О(D$,1)│ Л(0)з 2850Od
ЁЕ Р(D$,9,3)┤▓"DEF"░ Р(D$,9,3)┤▓"DAT"░ Р(D$,9,2)┤▓"RP"░ Р(D$,9,2)┤▓"LB"з2850OК
·NN$│ О(D$,8)л"/"л Р(D$,9,3):K│Kл1O├ЕKF│1зЕ О(NN$,8)│F1$з╥NN$:ЗNN$" killed":Бе2850:Д2850P5ЕCF│1з Е  О(NN$,8)│F1$з ▐ NN$:Т&HFF40,0:З:ЗNN$" copied":З"INSERT SOURCE DISK AND HIT ENTER":Бж80:Бе2850:Д2850P>ЗNN$PE"ЛJPL,ЛIPu6Т&HFF40,0:З"hit any key to continue"P~@Бж80PДJОPкTХ10000:Бж70:Е F1$│"        "з 100P╗^CF│1:Бе 2660P╙hЗ"SORTING":A│0:NN│0Pуr╣ Г0│&H01DCPї|NN│ Э(IX$(0))QЖТ&H01DA, Б(NNо256)Q*РТ&H01DB,NNм Б(NNо256)н256Q7ЪA│ Г0(0)Q=дРQgоЮ:З"LOADING sort ROUTINE INTO MEMORY"Q╪╕B│0:А ADDR│&H01DC е&H0242:НA$:ТADDR, Й("&H"лA$):B│Bл Й("&H"лA$):Л:Е B┤▓10945 з З"ML ERROR IN SORT ROUTINE":СR═┬Ж BE,01,DA,34,10,EE,E4,AE,5E,30,1F,4F,34,12,A6,C4,27,2A,A6,C4,E6,45,A0,45,24,02,E6,C4,34,01,AE,42,10,AE,47,6D,45,26,04,32,61,20,29,A6,80,A0,A0,27,04,32,61,20,05,5A,26,F3,35,01,23,18,AE,42,10,AE,47,AF,47,10,AF,42,A6,C4,E6,45,E7,C4,A7,45,EA,4S╠ЖEA,E4,E7,E4,33,45,AE,61,30,1F,AF,61,26,B0,A6ORMAT(Y/N)":Бж80:ЕA$│"Y"з2140AaрЙ"ENTER FILE extension CONTAINING REPORT SPECS. or HIT enter";A$AqъЕA$│""з1810AУЇЩ"I",2,F1$л"/"лA$:Й#2,TY$,NS$A░■ЕTY$┤▓"REPORT"зЪ2:Бе1760A┐Ъ#2:Бе1840BuNS$│"NNNNNNNNNNNNNNNNNNNNNNNNNNNNNN":АI│1еN:З"PRINT "F$(I)" ";:З"(Y/N)":Бж80: Р(NS$,I,1)│A$:ЛI:Й"ENTER FILE extension TO STORE   REPORT SPECS. (IE RP1-9)        or HIT enter";A$BЕЕA$│""з1840B░&Щ"O",2,F1$л"/"лA$:┘#2,"REPORT",NS$:Ъ#2B╗0Бж2410B┌:Бж2050:PG│1:Бж1960:АJ│1еLOC	DЕFR│0зGR│J :ДЕ J│1зGR│FR :ДGR│ Й( П(S$,3))C-N─#1,GR::З#DV,═"### ";GR;:АI│1еNCGXЕ Р(NS$,I,1)│"N"з1900CxbЗ#DV,═"%"л б(TB(I),32)л"%"; Р(S$,S(I),L(I));ClЛICмvЗ#DV:ЕTB(0)▓QWм1зЗ#DV, б(10,"."):LI│LIл1C╙АЕLI│LP зБж2040:LI│0:PG│PGл1:Бж1960C┌КЛJDФАJ│LIн(NLм(NL▓1))еLPн(NLм(NL▓1)):З#DV:Л:З#DV:З#DV:Бе100D ЮБе100D[иЗ#DV,"report of file "F$" page"PG:З#DV:З#DV, б(LL,"=")Dl▓З#DV,"rec.";DП╝АII│1еN:Е Р(NS$,II,1)│"N"з2000D╕╞:З#DV,═"%"л б(TB(II),32)л"%";F$(II);D└╨ЛIID╔┌З#DVD▌фЗ#DV, б(LL,"=")DуюРDў°АI│1е3:З#DV:Л:РETB(0)│0:FP│0:АI│1еNE)Е Р(NS$,I,1)│"N"з2100E5FP│FPл1Ee Е З(F$(I))▓L(I)зTB(I)│ З(F$(I)):ДTB(I)│L(I)E{*TB(0)│TB(0)лTB(I)EВ4ЛIE╗>TB(0)│TB(0)л4л(FPм1)н2:ЕTB(0)▓QWм1зLL│QWм1:ДLL│TB(0)FBHNL│ Б(TB(0)оQWл.999):LP│ Б(58о(NLм(NL▓1))):NB│62мNLмLPн(NLм(NL▓1)):ЗLP"lines/page ":ЗNL"lines in header and ":ЗNB"lines in footer"FHRРFН\Й"ENTER FILE extension CONTAINING REPORT SPECS. or HIT enter";A$FЭfЕA$│""з2230F│pЩ"I",2,F1$л"/"лA$F┐zЙ#2,TY$FЁДЕTY$┤▓"LABELS"зЗ"wrong spec file":Ъ#2:Бе2140GОЙ#2,PT$,N6,RP$,SB$G!ШАI│1еN6:Й#2,LI$(I):ЛIG)вЪ#2G4мБе2480GС╢З"DO YOU WANT titles TO PRINT     (y/n)?":Бж80:З:PT$│A$:Й"HOW MANY lines IN LABEL<11";N6G┌└З"DO YOU WANT 1 SPACE BETWEEN     LABEL FIELDS(Y/N)?";:Бж80:З:SB$│A$H╩З"DO YOU WANT rec.# TO PRINT(y/n)":Бж80:З:RP$│A$H=╘Бж640:З"HIT KEY TO CONTINUE":Бж80:АK│1еN6H╒▐M│0:LI$(K)│"":Ю:З"FOR line"K"TYPE field# FOLLOWED BY return FOR EACH FIELD YOU    WANT TO PRINT - A null return   TO END THIS LINE SPECIFICATION." HЇшM│Mл1:З@128л(Mм1)н5,"";:ЙAIЄЕA│0з2330I5№ЕA▓N зЗ@128л(Mм1)н5,"   INVALID ":M│Mм1:Бе2280ID	ЕM▓N з2330Ic	LI$(K)│LI$(K)л Л(A):Бе2280Ij	ЛKI┴	$Й"ENTER FILE extension TO STORE   REPORT SPECS. (IE LB1-9)        or HIT enter";A$I╤	.ЕA$│""з2480Iч	8Щ"O",2,F1$л"/"лA$I°	B┘#2,"LABELS"J	L┘#ЬБж8808жЕFR│0з12108f░З"first index record="FR:З"last index record="LA:З"indexed by field: "F$(F)8И║З:З"last rec="LO:Й"record#";J8г─ЕJ▓LO з1210:ДЕJ┤│0з1008о╬Бж14008╠╪З"enter <-Q#URADPNLS?->";8╒тБж809AьЕA$│"?"з1230:ДЕA$│"S"зБж640:Бе1490:ДЕA$│ Л(8)зJ│ Й( Р(S$, З(S$)м5,3)):Бе1220:ДЕA$┤▓"P"з1350:ДЕ S9 з13209АЎTB(0)│0:АI│1еN:Е З(F$(I))▓L(I)зTB(I)│ З(F$(I)):ДTB(I)│L(I)9ЩTB(0)│TB(0)лTB(I):ЛI9╤
TB(0)│TB(0)л(Nм1)н2л4:ЕTB(0)▓QWм1зLL│QWм1:ДLL│TB(0)9тЗ#DV,"REC ";:2А II│1е N:З#DV,═"%"л б(TB(II),32)л"%";F$(II);:ЛII:З#DV:З#DV, б(LL,"="):S9│1:F(З#DV,═"### ";J;:Ж2АI│1еN:З#DV,═"%"л б(TB(I),32)л"%"; Р(S$,S(I),L(I));:ЛI:З#DV:ж<ЕTB(0)▓QWм1зЗ#DV, б(10,"."):╩FЕA$│ Л(9)зJ│ Й( П(S$,3)):Бе1220;PPЕA$│"L"зJ│Jм1:Бе1220:ДЕA$│"N"зJ│Jл1:Бе1220:ДЕA$│"#"з1210:ДЕA$│"U"з970:ДЕA$│"R"з1370:ДЕA$│"A"з910:ДЕA$│"Q"з100:ДЕA$│"D"з1390:Д1250;[ZБж1060;fdБе1230;БnT$│ Л(0):Бж1160:Бе1230;еx─#1,J:Ю:З"record#";J:K│0:АI│1еN<ВPS│32н(IлK):ES│32н(IлK)л З(F$(I))л1лL(I):SS│ESмL(I)л3:K│Kл Б((ESмPS)о32):ЕES▓448зЗ"-MORE-";:Бж80:Ю:K│мI:Бе1410<PМЗ@PS,═"## ";I;:ЗF$(I)":"; Р(S$,S(I),L(I)):Л:A$│ Т:Р<XЦЪ#1<wаЗ"KILL FOR SURE(Y/N)":Бж80<ИкЕA$┤▓"Y"з100<У┤Ю:KF│1<Ю╛Бе2670<┤╚Бж870:Бж880:Бж640<▌╥З"SEARCH ";:Й"FIELD # OR <ENTER>";A$<ъ▄F│ Й(A$)=	цЙ"ENTER search string";SS$=ЁЕSS$│""зSS$│ Л(0)=.·LO│ е(1):Ю=RЗ"cURRENT OR fIRST RECORD":Бж80=pЕA$│"C"░J▓0з JJ│J :Д JJ│1=БА II│JJ е LO=Я"─#1,II:З@0,"record"II"  "=н,ЕF│0з1610=▄6Е Р(S$,S(F), З(SS$))│SS$зJ│II:Бж1400:Д1650=ч@Бе1620>JЕ Ю(S$,SS$)┤▓0зJ│II:Бж1400:Д1650>.TЗ"q TO END SEARCH ELSE ENTER">7^Бж80>IhЕA$│"Q"зII│LO>OrЛ>m|З@480,"mENU/vIEW/sEARCH";>дЖБж80:Ю:O1│ Ю(1,"MVS",A$):ИO1л1Бе1660,100,1220,1490?РБж870:Бж880:Бж640:З"INDEX ";:Й" field #";F:Й"ENTER length FOR INDEX OR enter";LI:ЕLI│0зLI│L(F)?ЪЕ F┤│0 ▒ F▓N з 100?┌дЗ"READING":LO│ е(1):АI│1еLO:─#1,I:IX$(Iм1)│ Р(S$,S(F),LI)л П("    "л И(I),3):Л:Бж2920:З"WRITING":IX$(LO)│IX$(0):АI│1еLO:J│ Й( П(IX$(Iм1),3)):─#1,J:T$│S$: Р(T$, З(T$)м2,3)│ П(IX$(I),3)@*оЕIм2▓│0з Р(T$, З(T$)м5,3)│ П(IX$(Iм2),3):Д Р(T$, З(T$)м5,3)│ П(IX$(LOм1),3)@w╕╘S$│T$:┼#1,J:Л:Ъ#1:LA│ Й( П(IX$(LOм1),3)):FR│ Й( П(IX$(0),3)):IX│1:Бе860@З┬Бж870:Бж880@ё╠ЕFR┤▓0зЮ:З"FILE IS INDEXED. DO YOU WANT    REPORT IN FILE OR INDEX SEQUENCE (F/I)":Бж80:ЕA$┤▓"I"зFR│0A╓З"LABEL FACKUP"/~
╕З"m->MAKE DATABASE FROM DIRECTORY":З"f->FILES: LIST OF DAT,DEF,RP,LB":З"q->QUIT   ?->help":З"enter TO CHANGE FILES";/▒
┬Бж80:O│ Ю( Л(13)л"DAVKSCRBMFQ?",A$)м1:ЕO┤0з450/є
╠ЕO▓0░O┤11зЮ:З"TYPE ? FOR HELP OR HIT ENTER":Бж80:ЕA$│"?" з1000
╓ЕO│8зБе29000
рЕ O│м1 з 1000'
ъЕO│0Бж70:Бе1000Q
ЇЕ F0$│"" ░ O┤10 з Бж70:Е F0$│"" з 1000Т
■ИOл1Бе100,530,900,1170,1440,1480,1680,1730,2900,190,2650,1100ЬБе1000┼Ю:F$│F1$л"/DEF":K│0:SW│0:I│0:Ю:Бе6000┌ЕIмK│▓15зЮ:K│Iм11
&З@0,"field(\ to quit)"д18)"length"10З@32н(IмK),I;:╗ЙF$(I)12:ЕF$(I)│"\"зN│Iм1:Р1ZDЗ@32н(IмK)л16,"";:ЙL(I):ЕL(I)│0з5601eNSW│1:Р1ВXЗ"rEVIEW OR cREATE":Бж801бbЕA$│"R"з630:ДЕA$┤▓"C"з 1001┼lI│Iл1:Бж540:ЕF$(I)│"\"з750:Д6201╓vБж870:Бе 7501▄АЮ1хКRL│02
ФK│0:З@0,"file "F$;" field review2ЮАI│1еN27иЕIмK│14зЗ"-MORE-";:Бж80:K│I:Ю2E▓P(I)│RLл12n╝З@32н(IмK),═"## ";I;:ЗF$(I);д16)L(I)2}╞RL│RLлL(I)2Г╨Л2Я┌З"record length="д16)RL2йфK│0:Р2▄юБж640:З"CORRECTION ";:Й"field # OR <ENTER>";A$2Ї°I│ Й(A$):ЕA$│""з8103
ЕI│0з7503Ю:K│I:Бж5603 ЕI▓N з N│I3, Ю:Бе7503T*З"HARD COPY(Y/N)":Бж80:ЕA$┤▓"Y"з8403│4З#DV,"file "F$" record definition":З#DV,"field#";д10);"name";д30);"length":З#DV, б(40,"=")3∙>АI│1еN:З#DV,I;д10);F$(I);д30);L(I):Л:З#DV, б(40,"="):З#DV,д30);RL4HЕSW┤▓1з1004RF│0:FR│0:LA│04^\Ъ#1:Щ"O",#1,F$:┘#1,FR,LA,N,F:АI│1еN:┘#1,F$(I),L(I),P(I):Л:Бе1004■fЮ:E│0:L│0:F$│F1$л"/DEF":З@0,"file name ";F$:Щ"I",#1,F$:Й#1,FR,LA,N,F:L│0:АI│1еN:S(I)│0:Л:АI│1еN:Й#1,F$(I),L(I),P(I):L│LлL(I):S(I)│Eл1:E│S(I)лL(I)м1:Л:Ъ#1:Р5pЩ"D",#1,F1$л"/DAT",L58z╨1,L  з S$:╘S$│"":LO│ е(1):Р5HДБж870:Бж8805QОJ│LO5`ШЕJ▓1з─#1,J5jвJ│Jл15uмБж10605Ь╢ЕV$│"QUIT"зJ│Jм1:LO│J:T$│"":Бе12305ж└Бе9305▒╩Бж14005╙╘Й"enter field# to update";UD$5т▐I│ Й(UD$):5ЁшЕI│0з12305■ЄЕI▓N з9806+№З б(L(I),"."):TT$│S$:╗ЙV$:ZZ│L(I)м З(V$)6FЕZZ▓0зV$│V$л б(ZZ," ")6m Р(TT$,S(I),L(I))│V$:T$│TT$:Бж11606xБе12306Ф$Ю:З"record"J:K│0:АI│1еN6ў.PS│32н(IлK):ES│32н(IлK)л З(F$(I))л1лL(I):SS│ESмL(I)л3:K│Kл Б((ESмPS)о32):ЕES▓448зЮ:K│мI:Бе10707Z8З@PS,═"## ";I;:ЗF$(I);":"; б(L(I),"."):З@SS,"";:╗ЙV$:ЕV$│""зV$│ Р(S$,S(I),L(I)):З@SS,V$:Бе11507kBЕV$│"QUIT"зР7~LZZ│L(I)м З(V$)7НVЕZZ┤0з11407Ь`ЕZZ│0з11507░jV$│V$л б(ZZ,32)7├tV$│ О(V$,L(I))7╥~T$│T$лV$:Л7ыИ╘S$│T$:┼#1,J:T$│"":Р7¤ТЮ:ЕIX│0зБж870826,A1,32,62,39S'╓Е  Ж(&H0243)│&H77 з РS╪рЕ Ж(&H010D)│215зЮ:Т&H0243,&H77:З"INSTALL A SPOOLER IN UPPER 32K  (Y/N): YOU WILL ONLY BE ASKED   THIS QUESTION ONCE AT THE START OF THE SESSION.":Бж80:ЕA$┤▓"Y"зР :Д3050:Д РTRъЗ"loading":B│0:Т&HFFDE,0:АI│&H7F5D е&H7FFF:НA$:ТI, Й("&H"лA$):B│Bл Й("&H"лA$):Л:Е B┤▓16911 з З"ML ERROR IN SPOOLER":СUGЇЖ34,12,30,8D,00,52,BF,01,68,96,96,97,E6,30,8C,F0,8E,FE,FF,AF,8D,00,85,8E,80,00,AF,8D,00,80,AF,8D,00,7E,30,8D,00,05,BF,01,0D,35,92,AE,8D,00,6F,AC,8D,00,6D,27,20,F6,FF,22,54,25,1A,7F,FF,DF,A6,84,7F,FF,DE,BD,8E,0C,30,01,AC,8D,00,50,26,03,8E,80V<■Ж00,AF,8D,00,49,7E,D7,BC,34,02,96,6F,81,FE,27,05,35,02,7E,CB,4A,35,02,0C,9C,81,0D,26,04,0F,9C,86,0D,32,62,34,10,AE,8D,00,27,1A,50,7F,FF,DF,A7,84,7F,FF,DE,1C,AF,30,01,AC,8D,00,11,26,03,8E,80,00,AC,8D,00,0A,27,FA,AF,8D,00,06,35,90,25,FF,7F,FFVJЖ7F,FF,00VVв&H7F5DV\РVЪ&Е Ж(25)│14зХ11536,&H7F5C:Бе20 :Д ╚0:└1:Х10000,&H7F5C:Бе20                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  P$,SB$J	VАI│1еN6:┘#2,LI$(I):ЛIJ/	`Ъ#2:Бе 2480JQ	jЗ"ENTER A DEVICE# FOR OUTPUT"JЗ	tЗ"-2 PRINTER,-1 CASSETTE,0 SCREEN OR >1 FOR DISK"J║	~ЙDV:Е DV│1 з З"DEVICE 1 IN USE-REENTER":Бе2430K	ИЕ DV│м1 ▒ DV▓1 з Й"ENTER A FILENAME TO SAVE ASCII  DATA DUMP";BB$K)	ТЗ"HIT KEY WHEN DEVICE IS READY":Бж80KK	ЬЕ DV│м1 ▒ DV▓1 з Щ"O",#DV,BB$KQ	жРKd	░Бж2410:АJ│1еLOKТ	║ЕFR│0зGR│J :ДЕJ│1зGR│FR :ДGR│ Й( П(S$,3))KЭ	──#1,GRK┐	╬ЕRP$│"Y"зЗ#DV,═"REC:### ";GR;K╦	╪АM│1еN6Kщ	тЕ З(LI$(M))│0зЗ#DV:Бе2620K¤	ьАK│1е З(LI$(M))L	ЎZZ│ К( Р(LI$(M),K,1))L1
A$│ Р(S$,S(ZZ),L(ZZ))LG

Е SB$┤▓"Y" з 2600Lw
Е  П(A$,1)│" " з A$│ О(A$, З(A$)м1):Бе 2580LН
Е  З(A$)│0 з 2610L╛
(ЕPT$│"Y"зЗ#DV,F$(ZZ)":"A$;" ";:ДЗ#DV,A$;" ";L╩
2ЛK:З#DVL╤
<ЛML╪
FЛJLў
PАM│1еN6:З#DV:Л::Ъ#DV:Бе100L¤
ZЮM
dЗ г(0)"granules free"M#
nАI│3е11M5
x▀0,17,I,A$,B$M@
ВАJ│0е3Ml
МC$│ Р(A$,Jн32л1,12):D$│ Р(B$,Jн32л1,12)MЗ
ЦЕ О(C$,1)│ Л(255)з2790Mа
аЕ О(C$,1)│ Л(0)з2780MЁ
кЕ Р(C$,9,3)┤▓"DEF"░ Р(C$,9,3)┤▓"DAT"░ Р(C$,9,2)┤▓"RP"░ Р(C$,9,2)┤▓"LB"з2780N
┤NN$│ О(C$,8)л"/"л Р(C$,9,3):K│Kл1NO
╛ЕKF│1зЕ О(NN$,8)│F1$з╥NN$:ЗNN$" killed":Бе2780:Д2780N┴
╚ЕCF│1з Е  О(NN$,8)│F1$з ▐ NN$:Т&HFF40,0:З:ЗNN$" copied":З"INSERT SOURCE DISK AND HIT ENTER":Бж80:Бе2780:Д2780N╩
╥ЗNN$NЁ
▄Е О(D$,1)│ Л(255)зI│11:J│3:Бе2850O

цЕ О(D$,1)│ Л(0)з 2850OZ
ЁЕ Р(D$,9,3)┤▓"DEF"░ Р(D$,9,3)┤▓"DAT"░ Р(D$,9,2)┤▓"RP"░ Р(D$,9,2)┤▓"LB"з2850OА
·NN$│ О(D$,8)л"/"л Р(D$,9,3):K│Kл1O╣ЕKF│1зЕ О(NN$,8)│F1$з╥NN$:ЗNN$" killed":Бе2850:Д2850P+ЕCF│1з Е  О(NN$,8)│F1$з ▐ NN$:Т&HFF40,0:З:ЗNN$" copied":З"INSERT SOURCE DISK AND HIT ENTER":Бж80:Бе2850:Д2850P4ЗNN$P;"ЛJPB,ЛIPk6Т&HFF40,0:З"hit any key to continue"Pt@Бж80PzJОPаTХ10000:Бж70:Е F1$│"        "з 100P▒^CF│1:Бе 2660P╔hЗ"SORTING":A│0:NN│0P┘r╣ Г0│&H01DCPы|NN│ Э(IX$(0))QЖТ&H01DA, Б(NNо256)Q РТ&H01DB,NNм Б(NNо256)н256Q-ЪA│ Г0(0)Q3дРQ]оЮ:З"LOADING sort ROUTINE INTO MEMORY"Q╬╕B│0:А ADDR│&H01DC е&H0242:НA$:ТADDR, Й("&H"лA$):B│Bл Й("&H"лA$):Л:Е B┤▓10945 з З"ML ERROR IN SORT ROUTINE":СR├┬Ж BE,01,DA,34,10,EE,E4,AE,5E,30,1F,4F,34,12,A6,C4,27,2A,A6,C4,E6,45,A0,45,24,02,E6,C4,34,01,AE,42,10,AE,47,6D,45,26,04,32,61,20,29,A6,80,A0,A0,27,04,32,61,20,05,5A,26,F3,35,01,23,18,AE,42,10,AE,47,AF,47,10,AF,42,A6,C4,E6,45,E7,C4,A7,45,EA,4S
╠ЖEA,E4,E7,E4,33,45,AE,61,30,1F,AF,61,26,B0,A6,E4,32,63,":Бж80:ЕA$│"Y"з2140AWрЙ"ENTER FILE extension CONTAINING REPORT SPECS. or HIT enter";A$AgъЕA$│""з1810AЙЇЩ"I",2,F1$л"/"лA$:Й#2,TY$,NS$Aж■ЕTY$┤▓"REPORT"зЪ2:Бе1760A╡Ъ#2:Бе1840BkNS$│"NNNNNNNNNNNNNNNNNNNNNNNNNNNNNN":АI│1еN:З"PRINT "F$(I)" ";:З"(Y/N)":Бж80: Р(NS$,I,1)│A$:ЛI:Й"ENTER FILE extension TO STORE   REPORT SPECS. (IE RP1-9)        or HIT enter";A$B{ЕA$│""з1840Bж&Щ"O",2,F1$л"/"лA$:┘#2,"REPORT",NS$:Ъ#2B▒0Бж2410B╨:Бж2050:PG│1:Бж1960:АJ│1еLOB DЕFR│0зGR│J :ДЕ J│1зGR│FR :ДGR│ Й( П(S$,3))C#N─#1,GR::З#DV,═"### ";GR;:АI│1еNC=XЕ Р(NS$,I,1)│"N"з1900CnbЗ#DV,═"%"л б(TB(I),32)л"%"; Р(S$,S(I),L(I));CulЛICвvЗ#DV:ЕTB(0)▓QWм1зЗ#DV, б(10,"."):LI│LIл1C╔АЕLI│LP зБж2040:LI│0:PG│PGл1:Бж1960C╨КЛJDФАJ│LIн(NLм(NL▓1))еLPн(NLм(NL▓1)):З#DV:Л:З#DV:З#DV:Бе100DЮБе100DQиЗ#DV,"report of file "F$" page"PG:З#DV:З#DV, б(LL,"=")Db▓З#DV,"rec.";DЕ╝АII│1еN:Е Р(NS$,II,1)│"N"з2000Dо╞:З#DV,═"%"л б(TB(II),32)л"%";F$(II);D╢╨ЛIID┐┌З#DVD╙фЗ#DV, б(LL,"=")D┘юРDэ°АI│1е3:З#DV:Л:РETB(0)│0:FP│0:АI│1еNEЕ Р(NS$,I,1)│"N"з2100E+FP│FPл1E[ Е З(F$(I))▓L(I)зTB(I)│ З(F$(I)):ДTB(I)│L(I)Eq*TB(0)│TB(0)лTB(I)Ex4ЛIE▒>TB(0)│TB(0)л4л(FPм1)н2:ЕTB(0)▓QWм1зLL│QWм1:ДLL│TB(0)F8HNL│ Б(TB(0)оQWл.999):LP│ Б(58о(NLм(NL▓1))):NB│62мNLмLPн(NLм(NL▓1)):ЗLP"lines/page ":ЗNL"lines in header and ":ЗNB"lines in footer"F>RРFГ\Й"ENTER FILE extension CONTAINING REPORT SPECS. or HIT enter";A$FУfЕA$│""з2230FйpЩ"I",2,F1$л"/"лA$F╡zЙ#2,TY$FцДЕTY$┤▓"LABELS"зЗ"wrong spec file":Ъ#2:Бе2140F¤ОЙ#2,PT$,N6,RP$,SB$GШАI│1еN6:Й#2,LI$(I):ЛIGвЪ#2G*мБе2480GЗ╢З"DO YOU WANT titles TO PRINT     (y/n)?":Бж80:З:PT$│A$:Й"HOW MANY lines IN LABEL<11";N6G╨└З"DO YOU WANT 1 SPACE BETWEEN     LABEL FIELDS(Y/N)?";:Бж80:З:SB$│A$H╩З"DO YOU WANT rec.# TO PRINT(y/n)":Бж80:З:RP$│A$H3╘Бж640:З"HIT KEY TO CONTINUE":Бж80:АK│1еN6H╦▐M│0:LI$(K)│"":Ю:З"FOR line"K"TYPE field# FOLLOWED BY return FOR EACH FIELD YOU    WANT TO PRINT - A null return   TO END THIS LINE SPECIFICATION." HъшM│Mл1:З@128л(Mм1)н5,"";:ЙAH°ЄЕA│0з2330I+№ЕA▓N зЗ@128л(Mм1)н5,"   INVALID ":M│Mм1:Бе2280I:	ЕM▓N з2330IY	LI$(K)│LI$(K)л Л(A):Бе2280I`	ЛKI╖	$Й"ENTER FILE extension TO STORE   REPORT SPECS. (IE LB1-9)        or HIT enter";A$I╟	.ЕA$│""з2480I▌	8Щ"O",2,F1$л"/"лA$Iю	B┘#2,"LABELS"J	L┘#2,PT$,N6,RжЕFR│0з12108\░З"first index record="FR:З"last index record="LA:З"indexed by field: "F$(F)8~║З:З"last rec="LO:Й"record#";J8Щ─ЕJ▓LO з1210:ДЕJ┤│0з1008д╬Бж14008┬╪З"enter <-Q#URADPNLS?->";8╦тБж8097ьЕA$│"?"з1230:ДЕA$│"S"зБж640:Бе1490:ДЕA$│ Л(8)зJ│ Й( Р(S$, З(S$)м5,3)):Бе1220:ДЕA$┤▓"P"з1350:ДЕ S9 з13209vЎTB(0)│0:АI│1еN:Е З(F$(I))▓L(I)зTB(I)│ З(F$(I)):ДTB(I)│L(I)9ПTB(0)│TB(0)лTB(I):ЛI9╟
TB(0)│TB(0)л(Nм1)н2л4:ЕTB(0)▓QWм1зLL│QWм1:ДLL│TB(0)9╪З#DV,"REC ";:(А II│1е N:З#DV,═"%"л б(TB(II),32)л"%";F$(II);:ЛII:З#DV:З#DV, б(LL,"="):S9│1:<(З#DV,═"### ";J;:|2АI│1еN:З#DV,═"%"л б(TB(I),32)л"%"; Р(S$,S(I),L(I));:ЛI:З#DV:Ь<ЕTB(0)▓QWм1зЗ#DV, б(10,"."):└FЕA$│ Л(9)зJ│ Й( П(S$,3)):Бе1220;FPЕA$│"L"зJ│Jм1:Бе1220:ДЕA$│"N"зJ│Jл1:Бе1220:ДЕA$│"#"з1210:ДЕA$│"U"з970:ДЕA$│"R"з1370:ДЕA$│"A"з910:ДЕA$│"Q"з100:ДЕA$│"D"з1390:Д1250;QZБж1060;\dБе1230;wnT$│ Л(0):Бж1160:Бе1230;Ыx─#1,J:Ю:З"record#";J:K│0:АI│1еN<ВPS│32н(IлK):ES│32н(IлK)л З(F$(I))л1лL(I):SS│ESмL(I)л3:K│Kл Б((ESмPS)о32):ЕES▓448зЗ"-MORE-";:Бж80:Ю:K│мI:Бе1410<FМЗ@PS,═"## ";I;:ЗF$(I)":"; Р(S$,S(I),L(I)):Л:A$│ Т:Р<NЦЪ#1<mаЗ"KILL FOR SURE(Y/N)":Бж80<~кЕA$┤▓"Y"з100<Й┤Ю:KF│1<Ф╛Бе2670<к╚Бж870:Бж880:Бж640<╙╥З"SEARCH ";:Й"FIELD # OR <ENTER>";A$<р▄F│ Й(A$)< цЙ"ENTER search string";SS$=ЁЕSS$│""зSS$│ Л(0)=$·LO│ е(1):Ю=HЗ"cURRENT OR fIRST RECORD":Бж80=fЕA$│"C"░J▓0з JJ│J :Д JJ│1=wА II│JJ е LO=Х"─#1,II:З@0,"record"II"  "=г,ЕF│0з1610=╥6Е Р(S$,S(F), З(SS$))│SS$зJ│II:Бж1400:Д1650=▌@Бе1620>JЕ Ю(S$,SS$)┤▓0зJ│II:Бж1400:Д1650>$TЗ"q TO END SEARCH ELSE ENTER">-^Бж80>?hЕA$│"Q"зII│LO>ErЛ>c|З@480,"mENU/vIEW/sEARCH";>ЪЖБж80:Ю:O1│ Ю(1,"MVS",A$):ИO1л1Бе1660,100,1220,1490>¤РБж870:Бж880:Бж640:З"INDEX ";:Й" field #";F:Й"ENTER length FOR INDEX OR enter";LI:ЕLI│0зLI│L(F)?ЪЕ F┤│0 ▒ F▓N з 100?╨дЗ"READING":LO│ е(1):АI│1еLO:─#1,I:IX$(Iм1)│ Р(S$,S(F),LI)л П("    "л И(I),3):Л:Бж2920:З"WRITING":IX$(LO)│IX$(0):АI│1еLO:J│ Й( П(IX$(Iм1),3)):─#1,J:T$│S$: Р(T$, З(T$)м2,3)│ П(IX$(I),3)@ оЕIм2▓│0з Р(T$, З(T$)м5,3)│ П(IX$(Iм2),3):Д Р(T$, З(T$)м5,3)│ П(IX$(LOм1),3)@m╕╘S$│T$:┼#1,J:Л:Ъ#1:LA│ Й( П(IX$(LOм1),3)):FR│ Й( П(IX$(0),3)):IX│1:Бе860@}┬Бж870:Бж880@ч╠ЕFR┤▓0зЮ:З"FILE IS INDEXED. DO YOU WANT    REPORT IN FILE OR INDEX SEQUENCE (F/I)":Бж80:ЕA$┤▓"I"зFR│0A╓З"LABEL FORMAT(Y/N)╕З"m->MAKE DATABASE FROM DIRECTORY":З"f->FILES: LIST OF DAT,DEF,RP,LB":З"q->QUIT   ?->help":З"enter TO CHANGE FILES";/з
┬Бж80:O│ Ю( Л(13)л"DAVKSCRBMFQ?",A$)м1:ЕO┤0з450/щ
╠ЕO▓0░O┤11зЮ:З"TYPE ? FOR HELP OR HIT ENTER":Бж80:ЕA$│"?" з100/∙
╓ЕO│8зБе29000

рЕ O│м1 з 1000
ъЕO│0Бж70:Бе1000G
ЇЕ F0$│"" ░ O┤10 з Бж70:Е F0$│"" з 1000И
■ИOл1Бе100,530,900,1170,1440,1480,1680,1730,2900,190,2650,1100ТБе1000╗Ю:F$│F1$л"/DEF":K│0:SW│0:I│0:Ю:Бе6000╨ЕIмK│▓15зЮ:K│Iм10ў&З@0,"field(\ to quit)"д18)"length"10З@32н(IмK),I;:╗ЙF$(I)1(:ЕF$(I)│"\"зN│Iм1:Р1PDЗ@32н(IмK)л16,"";:ЙL(I):ЕL(I)│0з5601[NSW│1:Р1xXЗ"rEVIEW OR cREATE":Бж801ЧbЕA$│"R"з630:ДЕA$┤▓"C"з 1001╗lI│Iл1:Бж540:ЕF$(I)│"\"з750:Д6201╠vБж870:Бе 7501╥АЮ1█КRL│02ФK│0:З@0,"file "F$;" field review2ЮАI│1еN2-иЕIмK│14зЗ"-MORE-";:Бж80:K│I:Ю2;▓P(I)│RLл12d╝З@32н(IмK),═"## ";I;:ЗF$(I);д16)L(I)2s╞RL│RLлL(I)2y╨Л2Х┌З"record length="д16)RL2ЯфK│0:Р2╥юБж640:З"CORRECTION ";:Й"field # OR <ENTER>";A$2ъ°I│ Й(A$):ЕA$│""з8102ўЕI│0з7503Ю:K│I:Бж5603ЕI▓N з N│I3" Ю:Бе7503J*З"HARD COPY(Y/N)":Бж80:ЕA$┤▓"Y"з8403й4З#DV,"file "F$" record definition":З#DV,"field#";д10);"name";д30);"length":З#DV, б(40,"=")3я>АI│1еN:З#DV,I;д10);F$(I);д30);L(I):Л:З#DV, б(40,"="):З#DV,д30);RL3■HЕSW┤▓1з1004RF│0:FR│0:LA│04T\Ъ#1:Щ"O",#1,F$:┘#1,FR,LA,N,F:АI│1еN:┘#1,F$(I),L(I),P(I):Л:Бе1004ЇfЮ:E│0:L│0:F$│F1$л"/DEF":З@0,"file name ";F$:Щ"I",#1,F$:Й#1,FR,LA,N,F:L│0:АI│1еN:S(I)│0:Л:АI│1еN:Й#1,F$(I),L(I),P(I):L│LлL(I):S(I)│Eл1:E│S(I)лL(I)м1:Л:Ъ#1:Р5
pЩ"D",#1,F1$л"/DAT",L5.z╨1,L  з S$:╘S$│"":LO│ е(1):Р5>ДБж870:Бж8805GОJ│LO5VШЕJ▓1з─#1,J5`вJ│Jл15kмБж10605Т╢ЕV$│"QUIT"зJ│Jм1:LO│J:T$│"":Бе12305Ь└Бе9305з╩Бж14005╔╘Й"enter field# to update";UD$5╪▐I│ Й(UD$):5цшЕI│0з12305ЇЄЕI▓N з9806!№З б(L(I),"."):TT$│S$:╗ЙV$:ZZ│L(I)м З(V$)6<ЕZZ▓0зV$│V$л б(ZZ," ")6c Р(TT$,S(I),L(I))│V$:T$│TT$:Бж11606nБе12306К$Ю:З"record"J:K│0:АI│1еN6э.PS│32н(IлK):ES│32н(IлK)л З(F$(I))л1лL(I):SS│ESмL(I)л3:K│Kл Б((ESмPS)о32):ЕES▓448зЮ:K│мI:Бе10707P8З@PS,═"## ";I;:ЗF$(I);":"; б(L(I),"."):З@SS,"";:╗ЙV$:ЕV$│""зV$│ Р(S$,S(I),L(I)):З@SS,V$:Бе11507aBЕV$│"QUIT"зР7tLZZ│L(I)м З(V$)7ГVЕZZ┤0з11407Т`ЕZZ│0з11507жjV$│V$л б(ZZ,32)7╣tV$│ О(V$,L(I))7╚~T$│T$лV$:Л7сИ╘S$│T$:┼#1,J:T$│"":Р7єТЮ:ЕIX│0зБж8707¤ЬБж8808 0Ы&В  DISK ROM VERSION 1.0&)
Бе 3110&lМF$(30),L(30),S(30),P(30),IX$(700),TB(30),HP(11,1):DV│м2:QW│80&▀А I│1 е 11:А J│0 е 1:Н HP(I,J):ЛJ,I:Ж1,28,29,45,46,59,60,64,66,84,85,104,105,144,145,151,152,174,175,178,65,65';(В SET UP OKI PRINTER OFR 9600 BAUD: PRINT"TURN ON PRINTER":POKE150,1:PRINT#DV,CHR$(24);'V2Е Ж(&H1DC)┤▓190зБж2990'`<Бе100'─FЮ:Й"specify a file name (8 OR LESS  CHARACTERS";A$:ЕA$│""зР :ДF0$│A$:F1$│ О(F0$л"        ",8):Р'╬PA$│ Т'ЎZA$│ Т:Е A$│""з90:ДЕA$│"?"Бж120:Р:ДР(dЮ:A$│ Т:Ъ:O│0:Бе410(nЪ:Ю:К:Бе100(5xЮ:ЕO▓0 ░ O┤12 з140(cВЗ"CHOOSE A MENU OPTION AND TYPE ?":Бе 180(ОМJ│0:Щ"D",2,"HELP/DAT",32:╨ #2,32  з A$(фЦА I│HP(O,0) е HP(O,1):─#2,I:ЗA$;:J│Jл1:ЕJ│15з З"hit enter for more";:в44539:Ю:J│0(ъаЛ)кЗ:З"     hit enter to continue";)"┤в 44539:O│м1:Р)*╛K│0)Ш╚Ю:Й"INSERT DISK, ? ENTER A TWO      CHARACTER CODE FOR THIS DISK";K1$:▀0,17,2,A$,B$:FA$│ О(A$,68):АI│3е11)к╥▀0,17,I,A$,B$)╡▄АJ│0е3)сцC$│ Р(A$,Jн32л1,32):D$│ Р(B$,Jн32л1,32)*ЁЕ О(C$,1)│ Л(255)зJ│3:I│11:Бе 320*@·Е О(C$,1)│ Л(0)з280:ДPG│ К( Р(C$,14,1)):GR$│"":Бж390*э
C$│ О(C$,11)л П( И( К( Р(C$,12,1))),1)л П( И( К( Р(C$,13,1))),1)л П("0"л Ь( К( Р(C$,14,1))),2)л П("0"л Ь( К( Р(C$,15,1))),2)л П("0"л Ь( К( Р(C$,16,1))),2)л П(" "лK1$,2)+
IX$(K)│C$лGR$:K│Kл1++
Е О(D$,1)│ Л(255)зJ│3:I│11:Бе 320+d
"Е О(D$,1)│ Л(0)з320:ДPG│ К( Р(D$,14,1)):GR$│"":Бж390,
,D$│ О(D$,11)л П( И( К( Р(D$,12,1))),1)л П( И( К( Р(D$,13,1))),1)л П("0"л Ь( К( Р(D$,14,1))),2)л П("0"л Ь( К( Р(D$,15,1))),2)л П("0"л Ь( К( Р(D$,16,1))),2)л П(" "лK1$,2),)
6IX$(K)│D$лGR$:K│Kл1,1
@Л J,9
JЛ I,g
TТ&HFF40,0:З"MORE DIRECTORIES(Y/N)";:Бж 80,z
^Е A$│"Y" з 200,е
hЗ:Й"INSERT DATABASE DISK,HIT ENTER";A$,├
rБж870:Бж880:FR│0:LA│0:F│0-
|А I│LO е LOлKм1:╘ S$│IX$(IмLO):З О(S$,30):┼ #1,Iл1:Л:Бе860-+
ЖNG│ К( Р(FA$,PGл1,1)):ЕNG▓191зNG│0:Р-N
РGR$│GR$л"/"л Ь(NG):PG│NG:Бе390-▓
ЪЗ"   /***DATA BASE MANAGER***\      <**** COPYRIGHT 04/85 ****>      \***  W.S. BONNELL   ***/".1
дTL$│ б(28,128): Р(TL$,15, З(F0$)л5)│"file"л Л(128)лF0$:Е  Ж(&H10D)н256л Ж(&H10E)│&H7F88 з  Р(TL$,3,8)│"spool"л Л(128)л"on".√
оЗ"menu"TL$;:З"d->DEFINE RECORD FIELDS":З"a->ADD RECORDS":З"v->VIEW, MODIFY RECORDS":З"k->KILL A DATABASE":З"s->SEARCH FOR FIELD":З"c->CREATE AN INDEX":З"r->REPORTS/LABELS/ASCII OUTPUT":З"b->BACKUP"/t
 0Ъ&В  DISK ROM VERSION 1.1&)
Бе 3110&lМF$(30),L(30),S(30),P(30),IX$(700),TB(30),HP(11,1):DV│м2:QW│80&▀А I│1 е 11:А J│0 е 1:Н HP(I,J):ЛJ,I:Ж1,28,29,45,46,59,60,64,66,84,85,104,105,144,145,151,152,174,175,178,65,65'E(В  SET UP FOR 9600 BAUD WITH THE OKI PRINTER:PRINT"TURN ON PRINTER":POKE150,1:PRINT#DV,CHR$(24); '`2Е Ж(&H1DC)┤▓190зБж2990'j<Бе100'╬FЮ:Й"specify a file name (8 OR LESS  CHARACTERS";A$:ЕA$│""зР :ДF0$│A$:F1$│ О(F0$л"        ",8):Р'╪PA$│ Т(ZA$│ Т:Е A$│""з90:ДЕA$│"?"Бж120:Р:ДР(dЮ:A$│ Т:Ъ:O│0:Бе410((nЪ:Ю:К:Бе100(?xЮ:ЕO▓0 ░ O┤12 з140(mВЗ"CHOOSE A MENU OPTION AND TYPE ?":Бе 180(ШМJ│0:Щ"D",2,"HELP/DAT",32:╨ #2,32  з A$(юЦА I│HP(O,0) е HP(O,1):─#2,I:ЗA$;:J│Jл1:ЕJ│15з З"hit enter for more";:в44539:Ю:J│0(ЇаЛ)кЗ:З"     hit enter to continue";),┤в 44539:O│м1:Р)4╛K│0)в╚Ю:Й"INSERT DISK, ? ENTER A TWO      CHARACTER CODE FOR THIS DISK";K1$:▀0,17,2,A$,B$:FA$│ О(A$,68):АI│3е11)┤╥▀0,17,I,A$,B$)┐▄АJ│0е3)ыцC$│ Р(A$,Jн32л1,32):D$│ Р(B$,Jн32л1,32)*ЁЕ О(C$,1)│ Л(255)зJ│3:I│11:Бе 320*J·Е О(C$,1)│ Л(0)з280:ДPG│ К( Р(C$,14,1)):GR$│"":Бж390*ў
C$│ О(C$,11)л П( И( К( Р(C$,12,1))),1)л П( И( К( Р(C$,13,1))),1)л П("0"л Ь( К( Р(C$,14,1))),2)л П("0"л Ь( К( Р(C$,15,1))),2)л П("0"л Ь( К( Р(C$,16,1))),2)л П(" "лK1$,2)+
IX$(K)│C$лGR$:K│Kл1+5
Е О(D$,1)│ Л(255)зJ│3:I│11:Бе 320+n
"Е О(D$,1)│ Л(0)з320:ДPG│ К( Р(D$,14,1)):GR$│"":Бж390,
,D$│ О(D$,11)л П( И( К( Р(D$,12,1))),1)л П( И( К( Р(D$,13,1))),1)л П("0"л Ь( К( Р(D$,14,1))),2)л П("0"л Ь( К( Р(D$,15,1))),2)л П("0"л Ь( К( Р(D$,16,1))),2)л П(" "лK1$,2),3
6IX$(K)│D$лGR$:K│Kл1,;
@Л J,C
JЛ I,q
TТ&HFF40,0:З"MORE DIRECTORIES(Y/N)";:Бж 80,Д
^Е A$│"Y" з 200,п
hЗ:Й"INSERT DATABASE DISK,HIT ENTER";A$,═
rБж870:Бж880:FR│0:LA│0:F│0-
|А I│LO е LOлKм1:╘ S$│IX$(IмLO):З О(S$,30):┼ #1,Iл1:Л:Бе860-5
ЖNG│ К( Р(FA$,PGл1,1)):ЕNG▓191зNG│0:Р-X
РGR$│GR$л"/"л Ь(NG):PG│NG:Бе390-╝
ЪЗ"   /***DATA BASE MANAGER***\      <**** COPYRIGHT 04/85 ****>      \***  W.S. BONNELL   ***/".;
дTL$│ б(28,128): Р(TL$,15, З(F0$)л5)│"file"л Л(128)лF0$:Е  Ж(&H10D)н256л Ж(&H10E)│&H7F88 з  Р(TL$,3,8)│"spool"л Л(128)л"on"/
оЗ"menu"TL$;:З"d->DEFINE RECORD FIELDS":З"a->ADD RECORDS":З"v->VIEW, MODIFY RECORDS":З"k->KILL A DATABASE":З"s->SEARCH FOR FIELD":З"c->CREATE AN INDEX":З"r->REPORTS/LABELS/ASCII OUTPUT":З"b->B ї&;dВ * ADD-A-DAZZLE * TRS-80 COLOR BASIC AND MC-10 BASIC&YnЮ3: Х 500: A$│"123456789"&exPK│1024&НВВ * MC-10, MAKE ABOVE LINE PK=16384&─МА X│66 е 418 й 32: А Y│1 е 12: Т PKлXлY,128: Л Y,X&█ЦX│204: Z│1: Бж 360'&аZ$│ Т: Е Z$│"" ▒ Z$┤▓"N" ░ Z$┤▓"W" ░ Z$┤▓"E" ░ Z$┤▓"S" ░ Z$┤▓"S" з 160'hкЕ Z$│"N" ░  Ж(PKлXм32)┤▓128 ▒ Z$│"S" ░  Ж(PKлXл32)┤▓128 з 160'и┤Е Z$│"W" ░  Ж(PKлXм1)┤▓128 ▒ Z$│"E" ░  Ж(PKлXл1)┤▓128 з 160'╛╛Е Z$│"N" з X│Xм32'╘╚Е Z$│"S" з X│Xл32'щ╥Е Z$│"W" з X│Xм1'■▄Е Z$│"E" з X│Xл1(цZ│Zл1: Е Z▓9 з Z│1( ЁБж 360(x·P│ Ж(PKлX)м48: U│ Ж(PKлXм32)м48: D│ Ж(PKлXл32)м48: L│ Ж(PKлXм1)м48: R│ Ж(PKлXл1)м48(╢
Е U▓0 ░ U┤10 ░ D▓0 ░ D┤10 ░ L▓0 ░ L┤10 ░ R▓0 ░ R┤10 з 370(┼
ST$│ST$лZ$(╒
Е U▓9 з U│0(х
"Е D▓9 з D│0(ї
,Е L▓9 з L│0)
6Е R▓9 з R│0)'
@Е P│U ▒ P│D ▒ P│L ▒ P│R з 370)I
JSC│SCл(PнU)л(PнD)л(PнL)л(PнR))a
TЗ @ 480,"SCORE:"SC;)l
^Бе 160)Й
hТ PKлX, К( Р(A$,Z,1)): Р)┤
rЗ @ 0,"PRESS A KEY FOR ANSWER STRING";)═
|C$│ Т: Е C$│"" з 380)Ї
ЖЮ: З ST$: З: З "FINAL SCORE:"SC: К ┼(Xл2,F                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ў&
АI│4096е4615&НX&"ТI,X&)(ЛI&32в4096&S<Ж142,128,0,166,31,67,167,31&pFЖ161,31,39,3,142,64,0,31&РPЖ20,134,53,183,255,3,28,175&▒ZЖ189,169,40,142,17,50,189,17&╤dЖ37,173,159,160,0,128,48,37&ёnЖ248,129,3,34,244,183,17,48'xЖ189,16,181,134,255,167,196,142'3ВЖ18,6,206,19,6,166,196,39'SМЖ95,129,255,39,96,52,80,198'sЦЖ8,166,192,173,159,160,2,90'ФаЖ38,247,134,47,173,159,160,2'╡кЖ198,3,166,192,173,159,160,2'╓┤Ж90,38,247,142,17,127,189,17'Ў╛Ж37,53,80,173,159,160,0,129(╚Ж89,39,8,129,78,39,4,129(3╥Ж69,38,240,173,159,160,2,52(R▄Ж2,134,13,173,159,160,2,53(pцЖ2,129,78,39,19,129,69,39(УЁЖ20,166,77,230,134,111,134,106(╡·Ж134,31,152,77,42,245,111,196(╓
Ж51,200,32,32,152,141,11,125(ў
Ж9,133,38,251,15,113,110,159)
Ж255,254,134,3,140,134,2,183)7
"Ж17,49,198,2,190,192,6,206)W
,Ж18,6,182,17,49,167,132,182)u
6Ж17,48,167,1,134,17,237,2)Ф
@Ж239,4,173,159,192,4,166,6)▒
JЖ38,10,51,201,1,0,92,193)╥
TЖ12,38,223,57,142,17,165,133)Ё
^Ж4,38,31,142,17,179,133,8*
hЖ38,24,142,17,193,133,16,38*0
rЖ17,142,17,208,133,32,38,10*P
|Ж142,17,224,133,64,38,3,142*p
ЖЖ17,242,141,25,50,98,142,17*Т
РЖ137,141,18,173,159,160,0,129*▓
ЪЖ89,16,39,254,227,129,78,16*╘
дЖ39,255,132,32,238,166,128,39*є
оЖ6,173,159,160,2,32,246,57+
╕Ж0,0,68,73,83,75,32,80++
┬Ж85,82,71,69,32,85,84,73+H
╠Ж76,73,84,89,32,86,49,46+e
╓Ж49,13,67,79,80,89,82,73+В
рЖ71,72,84,32,49,57,56,51+Я
ъЖ32,77,65,82,75,32,68,46+╝
ЇЖ32,71,79,79,68,87,73,78+┘
■Ж13,13,68,82,73,86,69,32+ЎЖ78,85,77,66,69,82,32,40,Ж48,45,51,41,63,13,0,32,/Ж40,89,47,78,47,69,41,63,K&Ж0,82,69,83,84,65,82,84,h0Ж32,84,72,69,32,80,82,79,Е:Ж71,82,65,77,32,40,89,47,бDЖ78,41,63,13,0,42,42,42,╛NЖ76,79,83,84,32,68,65,84,┌XЖ65,13,0,42,42,42,67,82,ўbЖ67,32,69,82,82,79,82,13-lЖ0,42,42,42,83,69,69,75-/vЖ32,69,82,82,79,82,13,0-LАЖ42,42,42,87,82,73,84,69-hКЖ32,70,65,85,76,84,13,0-ЕФЖ42,42,42,87,82,73,84,69-вЮЖ32,80,82,79,84,69,67,84-╛иЖ13,0,42,42,42,68,82,73-█▓Ж86,69,32,78,79,84,32,82-Ў╝Ж69,65,68,89,13,0,0,720),╜(                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    ───╚┼╞%&├(╔╚╔──./012345┼              TITLE   BAS"_CONTROL BAS#сDAZZLE  BAS °PURGE   BAS!·INFLATE BAS$ЯMASTER10BASЮMASTER11BASЭUTILITY BAS'SNOOPER BAS)[SPECS   BAS*RESTORE BAS+нADDRESS BAS,ъGUITAR  BAS-ю                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 \&
Х200,15000:Ю&'B$│"<HIT ENTER>"&:АX│15000е15103&R(НOP$:N│ Й("&H"лOP$)&c2ТX,N:S│SлN:Л&Б<З@72,"HOT COCO MAGAZINE "&ЦFЗ@139,"PRESENTS"&ЮPЗ:З&╪ZЗ д4) Л(130)л Л(131)л"              "л Л(129)л Л(135)'dЗ д4) Л(136)л Л(140)л" N S T A N T  "л Л(132)л Л(140)л" O C O"'5iЗ@329," JANUARY 1986"'BnЗ@426,B$'wxв15000:АX│1е130:Л:A$│ Т:Е A$│ Л(13)  з 140:Бе120'ВВБе 120'╬МЮ:З@65, " SPECIFIC INSTRUCTIONS FOR       PROGRAMS APPEAR IN HOT COCO "(ЦЗ@162,"* cload FOR BASIC PROGRAMS *    * cloadm FOR ML PROGRAMS   *"(]ЫЗ@258,"*ALL PROGRAMS COPYRIGHT 1986*       * HOT COCO MAGAZINE *"(БЬЗ@357,"** CW COMMUNICATIONS **"(гЮЗ@390,"*  PETERBOROUGH, NH *"(░аЗ@458,B$(цкв15000:А X│1е130:Л:A$│ Т:Е A$│ Л(13) з 200 :Бе170(ё┤Бе 170)W╛Ж 31,8D,00,5F,1F,21,E6,8D,00,5D,3A,1F,12,8E,04,00,A6,A0,A7,80,8D,44,8C,04,20,26,F5,8E,04,3F,A6,A0)k╚Ю:Т113,0:в40999)╘╥Ж A7,00,8D,36,30,88,20,8C,05,FF,26,F2,8E,06,00,A6,A0,A7,82,8D,25,8C,05,E0,26,F5,8E,05,C0,A6,A0,A7,00*@▄Ж 30,88,E0,8D,14,8C,04,00,26,F2,A6,8D,00,18,4C,81,04,26,01,4F,A7,8D,00,0E,39,81,BF,26,04,31,8D,00,01,39*RцЖ 9F,AF,CF,BF*[ЁЖ 00▄╚3,1:╝:┐1,0:┴3,2$Зц╗(20,30)м(90,30),╜$ШЁ╗м(110,50),╜$й·╗м(110,86),╜$║╗м(100,96),╜$╠╗м(110,106),╜$▐╗м(110,142),╜$я"╗м(90,162),╜%,╗м(20,162),                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ▐&>dВ*CONTROL PANEL*TRS-80 EXTENDED COLOR BASIC 16K* RAMELLA&]nЮ: ╚ 3,1: ┴ 3,0: ╝3: ┐ 1,1&ПxМ M(10,58): М R(3): R(0)│12: R(2)│11: R(3)│12&╢ВS$│ Л(94)л Л(10)л Л(8)л Л(9)л"123"&▌М┴ 1,1: ╗(5,5)м(248,30),╜,BF: ┴ 2,1')Ц┬(28,18),8,,1,.15,.85: ┬(44,18),8: N$│"U15F3D3F3D3F3U15": ╞"BM59,25"лN$'aа╞"BM81,25;U15L6R11": ╞"BM90,25;U15R6F2D3G2L6R2F6D2"'Тк┬(111,18),8: L$│"U15D15R10": ╞"BM122,25;"лL$'╥┤╞"BM154,25;U15R6F2D3G2L6": ╞"BM168,25;U4E2U4E4F4D4L8R8F2D4"(╛╞"BM187,25"лN$: ╞"BM205,25;R10L10U8R4L4U7R10": ╞"BM220,25;"лL$([╚┴ 1,1: ┬(230,160),50: ├(250,160),2,1: ┬(200,140),8: ┬(240,172),10(Т╥А X│1 е 40: ┬(4л Д(176),110л Д(70)), Д(4), Д(4): Л(└▄┴ 1,0: ╗(2,35)м(252,105),╜,BF: А A│1 е 35(єцB│ Д(4)м1: Е B│1 ▒ R(B)│0 з 230 :Д R(B)│R(B)м1)-ЁX│ Д(12)н20м12: Y│ Д(3)н20л20: Е  а(Xл9,Yл9)┤▓5 з 240)X·┴ B,1: ┬(Xл9,Yл9),7: ├(Xл9,Yл9),B,B: Л)c
Бж 360)П
A$│ Т: S│ Ю(S$,A$): Е S│0 ▒ A$│"" з 270)┤
Е S▓4 з S│Sм4: L│Sн20л20: Бж 320*
"Е S│1 ░ Y┤80 з ─(Xл2,Yл20)м(Xл19,Yл40),M,G: А F│Yл20 е Y й м2: ┼(Xл2,F)м(Xл19,Fл20),M,╜: Л*n
,Е S│2 ░ Y▓40 з ─(Xл2,Yм20)м(Xл19,Y),M,G: А F│Yм20 е Y й 2: ┼(Xл2,F)м(Xл19,Fл20),M,╜: Л*Б
6Бж 360: Бе 270*╡
@A$│ Т: S│ Ю(S$,A$): Е A$│"" ░ S┤▓3 ░ S┤▓4 з 320+
JЕ S│3 з Q│ а(16,Lл9): ─(27,L)м(247,Lл20),M,G: ┼(7,L)м(227,Lл20),M,╜: ┬(236,Lл9),7,Q: ├(236,Lл9),Q,Q+Д
TЕ S│4 з Q│ а(236,Lл9): ─(7,L)м(227,Lл20),M,G: ┼(27,L)м(247,Lл20),M,╜: ┬(16,Lл9),7,Q: ├(16,Lл9),Q,Q+К
^Р+▒
hА Y│40 е 80 й 20: А X│7 е 227 й 20+╫
rP│ а(Xл9,Yл9): Е P│5 з Р :Д Л X,Y+▌
|К30,101),╜%·╕├(25,35),2,3&┬                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Ь
:ГBY J. D. Ray0:Г   5065 FRANCE AVENUES:Г   N. CHARLESTON, S.C. 29406u(:Г   <C> COPYRIGHT JAN., 1985З2:ГVERSION 2.1Ъ<CC│172:АVV│1е6▒FЮ:З@CC,"INFLATION"╛PCC│CCм32╧ZА Z│1е250:ЛZ╫dЛVVЁnЗ@202,"BY J. D. RAY"xЗ@233,"COPYRIGHT 1985"ВА J│1е950:ЛJ&МХ 100FЦМ INF(15),A(12),R(12),M(50)\аАX│1е15:НINF(X):Лбк:ГINFLATION RATES LISTED IN 180 ARE FOR 1985-1972, IN THAT ORDERц┤Ж 3.7,4.0,3.8,6.1,10.4,13.5,11.3,7.7,6.5,5.8,9.1,11.0,6.2,3.3,0 ■╛Q│0:D│0:MOD│0:SIG│0,╚H$│"#####.##":P$│"##.#":Z$│"$$###,###.##"]╥T$│"$###,###.##":D$│"#######.##":E$│"###.##"y▄STA$│"ACTUAL INFLATION"ШцPRO$│"PROJECTED INFLATION"нЁK$│"APPLICATION"║·YEAR$│""▄
Ю:З@167,"PROGRAM APPLICATION"Ї
З@228,"<1> ";:ЗSTA$
З@260,"<2> ";:ЗPRO$%
"З@292,"<3> TUTORIAL"9
,З@356,"<4> END"S
6З@420,"SELECTION #: "t
@MENU$│ Т:Е MENU$│"1"з Бе 360Н
JЕ MENU$│"2" з Бе 770д
TЕ MENU$│"3"з 1230 ┴
^Е MENU$│"4"з 1200 :Д 320╟
hЮщ
rЗ"      STRAIGHT APPLICATION"я
|З
ЖЗ"ENTER YEAR TO BEGIN APPLICATION"9
РЗ"        BETWEEN 1972-1986":З[
ЪЙ "ENTER YEAR (19XX): "; YEAR┐
дЕ YEAR┤1972 ▒ YEAR▓1986 з З"  PLEASE USE YEAR BETWEEN               1972 - 1986!":а 150,4:Бе390▄
оX│1986мYEAR:KK│X:YR│YEAR
╕З:З"ENTER AMOUNT TO BEGIN           APPLICATION:":З(
┬Й "AMOUNT $ ";A1
╠AM│Ag
╓Е A┤0 з З"ENTER A POSITIVE AMOUNT - PLEASE":Бе450╙
рЮ:З@1,"BASED ON";:З═Z$;AM;:З" IN "YR", THE FOLLOWING AMOUNT IS NEEDED  TO KEEP IN LINE WITH INFLATION:"√
ъЗ" YEAR:   RATE:       ADJ. AMOUNT"
ЇL│160:M│141
■ЕQ│10 зР,Q│0:M│141:L│1605I│0:QЗ@L,YEAR;:Зд19);:З═Z$;Ag&Q│Qл1:YEAR│YEARл1А0I│AнINF(X)о100:A│AлIШ:L│Lл32:M│Mл32:Q│Qл1▒DЕ Q│10 з Бж710:Бж480рNЗ@L,YEAR;:З═H$;INF(X);:З"%";:Зд19);:З═Z$;AїXЕ PR$│"Y"зБж1170bYEAR│YEARл1:X│Xм1lЕ Q▓10 з Q│02vЕ YEAR▓1986 з 650<АБе560_КЕ PR$│"Y"зЗ#м2:З#м2:З#м2:Бе190бФЗ:Й"WOULD YOU LIKE A PRINTED COPY   OF THIS CHART? (Y/N)";PR$╢ЮЕ PR$│"Y"зБе1060└иБе190╞▓З╫╝А P│1е500:ЛP¤╞З:З"    HIT <ENTER> TO CONTINUE";╨в44539┌Р5фЗ"   HIT <ENTER> TO CONTINUE";:З:З?юБе190e°:ГPROJECTED INFLATION APPLICATIONoЮ:D│0ЛЗ"          PROJECTION"tЗ:З"  THIS IS A PROJECTION OF THE   EFFECT INFLATION WILL HAVE ON   YOUR DOLLARS IN THE FUTURE.     YOU WILL NEED TO ENTER THE      YEAR TO BEGIN THE PROJECTION,   THE AMOUNT TO BE PROJECTED,     THE YEAR TO END THE PROJECTION," З"AND THE ESTIMATED INFLATION     RATE FOR THE PERIOD.  THERE ARE NO YEAR LIMITATIONS TO THIS     APPLICATION.  THIS, OF COURSE,  IS AN ESTIMATE."*Бж710L4Ю:З:З"ENTER THE YEAR TO BEGIN THE     PROJECTION:"^>Й "YEAR: ";YRЧHЗ:З"ENTER THE AMOUNT TO BE USED IN  THE PROJECTION:"кRЙ"AMOUNT: ";DD▀\З:З"ENTER THE YEAR TO END THE       PROJECTION:"ЇfЙ"END YEAR: ";YS6pЗ:З"ENTER THE AVERAGE ESTIMATED IN- FLATION RATE: (PER YEAR)"NzЙ"EST. RATE: ";RATEZДP│YSмYRsОFV│DDн(1лRATEо100)пPШШD│0:Ю:З#D,"          PROJECTION"┬вЗ#D:З#D,"BEGINNING YEAR:",:З#D,YR:З#DумЗ#D,"AMOUNT",:З#D,═Z$;DD:З#D "╢З#D,"EST. INFLATION",:З#D,═P$;RATE;:З#D," %  PER YEAR":З#D T└З#D,"PROJECTED AMOUNT NEEDED IN YEAR";YS;":"; ^╩Q$│ Т u╘З@363," ";:З═Z$;FV Ш▐Е D│м2 з З#м2,═Z$;FV:D│0:Бе740 зшАL│1е50:ЛL ┐ЄЕ Q$│ Л(13)з Бж1040 ┘№З@363,"             " фБе 970!/З"WOULD YOU LIKE TO HAVE A PRINTEDCOPY OF THIS PROJECTION? (Y/N)":ЙCC$!IЕ CC$│"Y"зБе1060:Д740!c$:ГPRINTER SUB-ROUTINE!l.X│KK!Ъ8Е MENU$│"1" з З#м2,д16);:З#м2,STA$:Бе1100!╚BЕ MENU$│"2" з З#м2,д30);:З#м2,PRO$:Бе1190!╤LЗ#м2!тVA│AM:YEAR│YR"b`З#м2,"     BASED ON ";:З#м2,═Z$;A;:З#м2," IN "YEAR", THE FOLLOWING":З#м2,"AMOUNT IS NEEDED TO KEEP IN LINE WITH INFLATION:""~jЗ#м2, Л(15) :ГUNDERLINE"╖tЗ#м2," YEAR:  INFLATION:      CHANGE    ADJ. AMOUNT""╫~З#м2, Л(14) :ГEND ENDERLINE"тИБе 480#<ТЗ#м2," ";:З#м2,YEAR;:З#м2,═D$;INF(X);:З#м2,"%   ";:З#м2,═T$;I;:З#м2,"   ";:З#м2,═Z$;A#BЬР#QжD│м2:Бе930#c░:ГEND ROUTINE#г║Ю:З:Й"ARE YOU SURE? PROGRAM WILL BE   ERASED!!  (Y/N) ";ED$#═─Е ED$│"Y"зТ113,0:в40999:Е ED$│"N"з190#щ╬Ю:З"         INFLATION"$М╪З:З" THIS PROGRAM ATEMPTS TO PRO-    VIDE THE USER WITH THE EFFECTS  OF INFLATION ON YOUR HARD       EARNED DOLLAR.  THIS PROGRAM    CAN BE USED IN TWO WAYS:"$ЦтБж690%cьЮ:З:З" 1) THE ACTUAL APPLICATION          LETS YOU SEE THE EFFECT OF      INFLATION BETWEEN THE YEARS     OF 1972 - 1985.  THE ANNUAL     INFLATION RATES ARE LISTED      WITH THE APPLICATION.":З:Бж690&ЎЮ:З"  THE INFLATION RATES USED WERE   FOUND IN 'U.S. NEWS AND WORLD   REPORT'  THE INFLATION RATE     FOR 1985 IS ESTIMATED AT 3.7%.      THE RATES USED ARE:":З& X2│14:АX1│1972е1985&9
ЗX1;" ";INF(X2);"%",&IX2│X2м1:ЛX1&iА S1│0 е 14:TT│INF(S1)лTT:Л&У(TT│TTо14:З"AVERAGE: ";:З═ P$;TT;:З"%"&Э2Бж700'G<Ю:З:З" 2) THE PROJECTION APPLICATION      ALLOWS THE USER TO USE ANY      YEAR AND ANY INFLATION RATE     TO PROJECT FUTURE EFFECTS OF    INFLATION ON OUR DOLLAR.":З'АFЗ" 3) END WILL ERASE PROGRAM FROM     MEMORY.":Бж690(HPЮ:З:З" REMEMBER THAT INFLATION RATES   ARE AVERAGES OF THE ACTUAL IN-  CREASES IN CERTAIN CONSUMER     PRODUCTS.  THEY REFLECT THE     COST OF FOOD, HOUSING, UTIL-    ITIES, AND OTHER ESENTIALS."(РZЗ:З" ENTER YEARS AS 19XX AND DOLLAR  AMOUNTS WITHOUT COMMAS.":Бж690(ЫdБе 190)мXX:З@450," penalty =";:З═"$####";XX:а200,5:Бж4190:Бе920:Д1160)M~R(N)│R(N)м Д(R(N)):WP(N)│WP(N                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 &шВ DISK UTILITIES&,ЄВ BY MIKE JOHNSON&2№В&:└ 4&EХ 1000&RМ GR(68)&X$Ю&p.З"ENTER SELECTION:"&Ц8З"   (1) MACHINE LANGUAGE PARAM."&╖BЗ"   (2) GRANULE ALLOCATION"&▄LЗ"   (3) DIRECTORY MANIPULATION"&юVЗ"   (4) END"'`EN$│ Т:Е EN$│"" з       1120'jEN│ Й(EN$)'7tЕ EN┤1 ▒ EN▓4 з 1120'W~И EN Бж 2000,2500,4000,3520'xИЗ"PRESS ENTER TO GO TO MENU"'РТЕ  Т┤▓ Л(13) з 1170'ЬЬБе 1060'вжК'╛╨В MACHINE LANGUAGE FILE'╙┌В     PARAMETERS'юфВ M. JOHNSON : 3/11/83'ЇюВ'·°Ю($З @ 163,"MACHINE LANGUAGE PARAMETERS"(IЗ @ 261,"PRESS <ENTER> TO BEGIN"(`Е  Т┤▓ Л(13)з 2070(f Ю(л*З"DO YOU WANT THE PARAMETERS IN   DECIMAL OR HEXADECIMAL (D/H)?"(├4N$│ Т:Е N$│""з 2100(ц>Е N$┤▓"H" ░ N$┤▓"D" з     2080)HВ  READ DIRECTORY SECTOR) RВ  LOOK FOR BINARY FILES)&\В)6fА SE│3 е 11)Pp▀ 0,17,SE,A$(1),A$(2))^zА I│1 е 2)oД:  А J│0 е 3)РО:    EN$│ Р(A$(I),Jн32л1,32))╜Ш:    Е  К( О(EN$,1))│0            з 2240)юв:    Е  К( О(EN$,1))│             255 з 2490*#м:    Е  Р(EN$,13,1)┤▓                Л(0) з 2240*Y╢:    Е  Р(EN$,12,1)│                 Л(2) Бж 2310*e└:   Л J*m╩Л I*v╘Л SE*Р▐В  FIND FIRST GRANULE*кшВ  OF PROGRAM AND GET*─ЄВ  PARAMETERS FROM IT*╩№В*т	GR│ К( Р(EN$,14,1))*ё	T│ Б(GRо2)+	S│(GRмTн2)н9л1+	$Е GR▓32 з T│Tл1++	.▀ 0,T,S,AD$,D$+b	8LN│ К( О(AD$,1))л               К( Р(AD$,2,1))н256+Ъ	BST│ К( Р(AD$,3,1))л              К( Р(AD$,4,1))н256+╚	LЕ LN│0 ▒ LNлST▓ Ж(116)н256л Ж(117) з 2400,	VЕ N$│"D" з З  О(EN$,11);д16);ST;д24);LN::Д З  О(EN$,11);д16); Ь(ST);д24); Ь(LN),3	`В  PAGE FORMATTING,F	jВ      SECTION,L	tВ,d	~CC│CCл1:Е CC┤13 з Р,m	ИCC│0,s	ТЗ,У	ЬЗ"PRESS ENTER TO CONTINUE";,л	жЕ  Т┤▓ Л(13) з 2470,▒	░Ю,╖	║Р,╘	─В GRANULE-A GRAPHIC REP-,ё	╬В RESENTATION OF GRANULE-	╪В ALLOCATION AND ALLOCA--%	тВ      TION EDITOR-C	ьВ WRITTEN BY MIKE JOHNSON-a	ЎВ FOR THE TRS-80 COCO 16K-v
В        3/20/83-|

В-Т
В INITIALIZATION:-│
<Ю:З@199,"GRANULE ALLOCATION"-╓
FЗ@261,"PRESS <ENTER> TO START"-ь
PЕ  Т┤▓ Л(13)з2640.

ZВ LOAD SECTOR INTO STRING.&
dВ VARIABLES A1$ AND A2$.,
nВ.E
x▀ 0,17,2,A$(1),A$(2).`
ВБж 2790:  :ГLOAD ARRAY.f
МЮ.К
ЦЗ"DO YOU WANT A DISPLAY? (Y/N)".╕
аN$│ Т:Е N$│"N" з 3330 :Д Е N$┤▓"Y" з 2720.▌
кЙ"(U)SED OR (F)REE GRANULES";EN$/

┤Е EN$┤▓"U" ░ EN$┤▓"F"        з Ю:Бе 2730/
╛Е EN$│"U" з F3│1/4
╚Е EN$│"F" з F3│0/R
╥Бж 2920:  :ГGRAPHIC DISP./^
▄Бе 3330/z
цВ LOAD ARRAY SUBROUTINE/Ц
ЁВ   LOADS ARRAY GR WITH/▓
·В   0'S AND 1'S TO COR-/╧В   RESPOND WITH THE USE/чВ   OF THE GRANULE./эВ/№"А I│1 е 680,:  A│ К( Р(A$(1),I,1))0-6:  Е A┤▓255 з C│10B@:  Е A│255 з C│00QJ:  GR(I)│C0YTЛ I0_^Р0}hВ DISPLAY CONTENTS MODULE0ЩrВ    GRAPHICLY DISPLAYS0╢|В    THE CONTENTS OF THE0╩ЖВ    GR() ARRAY0╨РВ0┌Ъ╚ 4,10рд╝0ъо┐ 1,10Є╕I│00■┬Бж 30601╠╝1
╓I│171рБж 30601ъР1(ЇF2│114■Бж 32301KА J│Iн2л1 е Iн2л341W:  PO│J1p:  Е J▓34 з PO│POм341К&:  Е GR(J)┤▓F3 з 31801Щ0:  SC│POо21┤::  Е SC┤▓ Б(SC) з F│м11═D:  Е SC│ Б(SC) з F│11▐N:  SC│ Б(SC)1ўX:  SC│128л(FнSCн5м2)2b:  ├(SC,96),1,12lЛ J2vF2│02(АБж 32302;КЕ  Т│"" з 32102AФР2PЮА J│1 е 172hи:  ┬(128,96),Jн5,F22p▓Л J2В╝Е F2│0 з 33002Ь╞╗(127,12)м(127,182),╜2╢╨╗(128,12)м(128,182),╜2┬┌Бе 33202хф╗(127,12)м(127,182),         ╛3ю╗(128,12)м(128,182),         ╛3°Р3*
В CHANGE GRANULE ALLOC-3E
В ATION FROM KEYBOARD.3K
В3Q
 Ю3И
*З"TO CHANGE A SECTOR INPUT THE #  OF THE GRANULE."3п
4З"INPUT 68 FOR GRANULE # TO STOP."3╕
>Й GR3╦
HЕ GR│68 з 35103ч
RSP│ К( Р(A$(1),GRл1,1))4
\Е SP│255 з З"THE GRANULE WAS FREE"4Y
fЕ SP┤68 з З"THE GRANULE IS USED. THE NEXT   GRANULE IN THE FILE IS";SP4╨
pЕ SP▓191 ░ SP┤255 з NB│SP ░ 31: З"THE GRANULE IS USED. IT IS THE  LAST IN A FILE. ";NB;" SECTORS  OF IT ARE USED."5
zЙ"DO YOU WANT TO CHANGE IT TO A   USED OR UNUSED SECTOR (1/0)";U5B
ДЕ U│0 з  Р(A$(1),GRл1,1)│ Л(255):Бе 35005Ъ
ОЕ U│1 з Й"DO YOU WANT IT TO BE PART OF A  FILE OR THE END OF A FILE.      (P/E)";A$5∙
ШЕ A$│"P" з Й"ENTER NUMBER OF NEXT GRANULE";G:Е G┤0 ▒ G▓67 з 3480 :Д  Р(A$(1),GRл1,1)│ Л(G)6k
вЕ A$│"E" з Й"ENTER NUMBER OF SECTORS USED IN LAST GRANULE";S:Е S┤0 ▒ S▓9 з 3490 :Д  Р(A$(1),GRл1,1)│ Л(Sл192)6w
мБе 33606Т
╢р 0,17,2,A$(1),A$(2):Р6Ш
└К6╘аЗ:З"PRESS ENTER WHEN READY TO GOTO  DIRECTORY SUB-MENU"6єкЕ  Т┤▓ Л(13) з        40107┤О"SNOOPER" ";I;:ЗF$(I);":"; б(L(I),"."):З@SS,"";:╗ЙV$:ЕV$│""зV$│ Р(S$,S(I),L(I)):З@SS,V$:Бе11507kBЕV$│"QUIT"зР7~LZZ│L(I)м З(V$)7НVЕZZ┤0з11407Ь`ЕZZ│0з11507░jV$│V$л б(ZZ,32)7├tV$│ О(V$,L(I))7╥~T$│T$лV$:Л7ыИ╘S$│T$:┼#1,J:T$│"":Р7¤ТЮ:ЕIX│0зБж8708 X&аХ 3000&"кМ EN$(67),AR$(67)&>┤Ю:З"DIRECTORY SUB MENU"&_╛З"   1) ALPHABETIZE CATALOG"&~╚З"   2) CHANGE FILE SPECS"&Я╥З"   3) RESTORE OLD ENTRIES"&╜▄З"   4) DIRCTORY LISTING"&▐цЗ"   5) RETURN TO MAIN MENU"&ЇЁEN$│ Т:EN│ Й(EN$)'
·Е EN┤1 ▒ EN▓5 з 4080'2И EN Бж 5000,6000,7000,7500,7750'WЗ"PRESS ENTER TO RETURN TO MENU"'~Е  Т┤▓ Л(13) з        4120 :Д 4020'─ИЗ:З"PRESS ENTER WHEN DISK TO BE     ALPHABETIZED IS IN THE DRIVE"'уТЕ  Т┤▓ Л(13) з        5010'яЬБж 9000(*жЙ"DO YOU WANT TO SORT BY NAME OR  EXTENSION (1/2)";EN$(N░EN│ Й(EN$):Е EN┤1 ▒ EN▓2 з 5030(Т║А I│1 е N:Е EN│1 з AR$(I)│ О(EN$(I),8) :Д AR$(I)│ Р(EN$(I),9,3)(Ю─Л I:G│N(░╬Е G┤│1 з 5150(╛╪G│ Б(Gо2)(╚тM│NмG(рьF│0:А I│1 е M:P│IлG(№ЎЕ AR$(I)┤│AR$(P) з 5130)LT1$│AR$(I):T2$│EN$(I):AR$(I)│AR$(P):EN$(I)│EN$(P):AR$(P)│T1$:EN$(P)│T2$:F│1)a
Л I:Е F▓0 з 5100)mБе 5070)}Бж 8000:З:Р)╖pЗ:З"PRESS ENTER WHEN THE UTILITY    DISK IS IN PLACE")╓zЕ  Т┤▓ Л(13) з        6010)уДО"SPECS"*XЗ:З"PRESS ENTER WHEN THE UTILITY    DISK IS IN PLACE"*<bЕ  Т┤▓ Л(13) з        7010*KlО"RESTORE"*SLЮ:╬*YVР*УFЗ:З"PRESS ENTER WHEN THE UTILITY    DISK IS IN PLACE"*▓PЕ  Т┤▓ Л(13) з        7760*╜ZХ 1000*╠dО"UTILITY"*╘@L│0*эJ:  A$(0)│"":A$(1)│""+6T:     А J│0 е 1:А K│0 е 3:C│Kл(Jн4)л(Lн8)л1:A$(J)│A$(J)лEN$(C):Л K,J+>^I│L+|hЕ  З(A$(0))┤128 з A$(0)│A$(0)л Л(255)л б(127м З(A$(0)),0)+║rЕ  З(A$(1))┤128 з A$(1)│A$(1)л Л(255)л б(127м З(A$(1)),0)+╒|р 0,17,Lл3,A$(0),A$(1)+▌ЖL│I,
РL│Lл1:Е L┤│ Б(Nо8) з       8010,ЪA$(0)│ Л(255)л б(127,0),1дA$(1)│ б(128,0),Lор 0,17,Lл3,A$(0),A$(1),R╕Р,Z#(N│1,i#2А A│3 е 11,В#<▀ 0,17,A,A$(0),A$(1),Р#FА J│0 е 1,з#P:  А I│0 е 96 й 32,├#Z:  EN$│ Р(A$(J),Iл1,32),я#d:  Е  К( Р(EN$,1,1))│          0 з 9100-#n:  Е  К( Р(EN$,1,1))│          255 з 9110-/#x:  EN$(N)│EN$-<#В:  N│Nл1-K#М:  Л I,J,A-W#ЦN│Nм1:РOCO 16K-v
В        3/20/83-|

В-Т
В INITIALIZATION:-│
<Ю:З@199,"GRANULE ALLOCATION"-╓
FЗ@261,"PRESS <ENTER> TO START"-ь
PЕ  Т┤▓ Л(13)з2640.

ZВ LOAD SECTOR                                                                                                                                                                                                                                                                  &pВ CHANGE FILE SPECS&$zХ 3000&2ДМ EN$(68)&8ОЮ&VШЗ@200,"CHANGE FILE SPECS"&yвЗ@261,"PRESS <ENTER> TO START"&ШмЕ  Т┤▓ Л(13) з        6060&ж╢Ю:Бж 9000&─└Й"ENTER NAME OF FILE";FI$&╪╩I│ Ю(1,FI$,"/")&я╘Е I│0 з Ю: Бе 6080'▐Е  З(FI$)мI┤▓3 з Ю:      Бе 6080'KшSR$│ О(FI$,Iм1)л б(8м З( О(FI$,Iм1)),32)л П(FI$,3)'ГЄА I│1 е N:EN$│ О(EN$(I),11):Е SR$│EN$ з 6160 :Д Л I'Щ№З"FILE NOT FOUND"'╜А I│1 е 600:Л I:Ю:      Бе 6080'╠З @224,"";'ЇЗ  О(EN$(I),8);д10); Р(EN$(I),9,3);($F$(0)│"BASC":F$(1)│"DATA"(0.F$(2)│"MACH":F$(3)│"TEXT"(T8З д15);F$( К( Р(EN$(I),12,1)));(oBFL│ К( Р(EN$(I),13,1))(ЫLЕ FL│0 з З д20);"BIN"; :Д З д20);"ASC";(╗VЗ д23); К( Р(EN$(I),14,1));(█`З д26); К( Р(EN$(I),16,1));(ЁjЗ@256,"";:╗ ЙNA$)tЕ  З (NA$)▓8 з 6250)~З@266,"";:╗ ЙEX$)5ИЕ  З (EX$)▓3 з 6270)JТЗ@271,"";:╗ ЙTY$)bЬЕ  З(TY$)┤▓4 з 6290)wжЗ@276,"";:╗ ЙFL$)П░Е  З(FL$)┤▓3 з 6310)д║З@280,"";:╗ ЙGR$)╗─Е  З(GR$)▓2 з 6330)╨╬З@284,"";:╗ ЙBT$)ч╪Е  З(BT$)▓3 з 6350*тА A│0 е 3:Е F$(A)│TY$ з 6390 :Д Л A*ьБе 6160*SЎEN$│NA$л б(8м З(NA$),32)лEX$л б(3м З(EX$),32)л Л(A)*ЛЕ FL$│"BIN" з A│0 :Д Е FL$│"ASC" з A│255 :Д Бе 6160*Э
EN$│EN$л Л(A)*┬GR│ Й(GR$):Е GR┤0 ▒ GR▓67 з 6160*╒EN$│EN$л Л(GR)*√(BT│ Й(BT$):Е BT┤0 ▒ BT▓256 з 6170+2EN$│EN$л Л(0)л Л(BT)+,<EN$(I)│EN$л б(16,0)+8FБж 8000+aPЗ:З"PRESS <ENTER> TO RETURN TO MENU"+АZЕ  Т┤▓ Л(13) з        6490+ПdО"SNOOPER"+Ч@L│0+░J:  A$(0)│"":A$(1)│""+∙T:     А J│0 е 1:А K│0 е 3:C│Kл(Jн4)л(Lн8)л1:A$(J)│A$(J)лEN$(C):Л K,J,
^I│L,?hЕ  З(A$(0))┤128 з A$(0)│A$(0)л Л(255)л б(127м З(A$(0)),0),}rЕ  З(A$(1))┤128 з A$(1)│A$(1)л Л(255)л б(127м З(A$(1)),0),Ш|р 0,17,Lл3,A$(0),A$(1),аЖL│I,─РL│Lл1:Е L┤│ Б(Nо8) з       8010,рЪA$(0)│ Л(255)л б(127,0),ЇдA$(1)│ б(128,0)-ор 0,17,Lл3,A$(0),A$(1)-╕Р-#(N│1-,#2А A│3 е 11-E#<▀ 0,17,A,A$(0),A$(1)-S#FА J│0 е 1-j#P:  А I│0 е 96 й 32-Ж#Z:  EN$│ Р(A$(J),Iл1,32)-▓#d:  Е  К( Р(EN$,1,1))│          0 з 9100-р#n:  Е  К( Р(EN$,1,1))│          255 з 9110-Є#x:  EN$(N)│EN$- #В:  N│Nл1.#М:  Л I,J,A.#ЦN│Nм1:Р$ AND A2$.,
nВ.E
x▀ 0,17,2,A$(1),A$(2).`
ВБж 2790:  :ГLOAD ARRAY.f
МЮ.К
ЦЗ"DO YOU WANT A DISPLAY? (Y/N)".╕
аN$│ Т:Е N$│"N" з 3330 :Д Е N$┤▓"Y" з 2720.▌
кЙ"(U)SED OR (F)REE GRANULES";EN$/

┤Е EN$┤▓"U" ░ EN$┤▓"F"         к&XВ RESTORE OLD FILE NAMES&)bХ 3000&7lМ EN$(68)&=vЮ&SАЗ @204,"RESTORER"&wКЗ @261,"PRESS <ENTER> TO START"&ЦФЕ  Т┤▓ Л(13) з        7060&вЮБж 9000&░▓А I│1 е N&с╝:  Е  О(EN$(I),1)│ Л(0) з  Р(EN$(I),1,1)│"r"&щ╞Л I&ї╨Бж 8000'┌З:З"PRESS ENTER TO RETURN TO MENU"';фЕ  Т┤▓ Л(13) з        7140'JюО"SNOOPER"'R@L│0'kJ:  A$(0)│"":A$(1)│""'┤T:     А J│0 е 1:А K│0 е 3:C│Kл(Jн4)л(Lн8)л1:A$(J)│A$(J)лEN$(C):Л K,J'╝^I│L'·hЕ  З(A$(0))┤128 з A$(0)│A$(0)л Л(255)л б(127м З(A$(0)),0)(8rЕ  З(A$(1))┤128 з A$(1)│A$(1)л Л(255)л б(127м З(A$(1)),0)(S|р 0,17,Lл3,A$(0),A$(1)([ЖL│I(РL│Lл1:Е L┤│ Б(Nо8) з       8010(ЫЪA$(0)│ Л(255)л б(127,0)(пдA$(1)│ б(128,0)(╩ор 0,17,Lл3,A$(0),A$(1)(╨╕Р(╪#(N│1(ч#2А A│3 е 11)#<▀ 0,17,A,A$(0),A$(1))#FА J│0 е 1)%#P:  А I│0 е 96 й 32)A#Z:  EN$│ Р(A$(J),Iл1,32))o#n:  Е  К( Р(EN$,1,1))│          255 з 9110)Б#x:  EN$(N)│EN$)О#В:  N│Nл1)Э#М:  Л I,J,A)й#ЦN│Nм1:РЗ(GR$)▓2 з 6330)╨╬З@284,"";:╗ ЙBT$)ч╪Е  З(BT$)▓3 з 6350*тА A│0 е 3:Е F$(A)│T                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ч&Ю8:АX│0 е 31:З  Л(143);:Л&/А X│0 е 127&?(З Л(138);:Л&bZА X│0е127:З@(352лX), Л(138);:Л&ЙdЙ"PRESS RETURN TO CONTINUE     ";Y&мnЮ:З:З"ENVELOPE SIZE OPTIONLIST&╞xЗ:З"   (1)  STANDARD"&▄ВЗ"   (2)   LEGAL"&ёМЗ:З"SELECT ONE "'ЦS$│ Т:Е S$│"" з150'*аS│ Й(S$):ЕS│1 ▒ S│2з180ELS150'@к:ГENVELOPE FORMAT'X┤Е S│1з K│3:L│30:M│6'q╛Е S│2 з K│5:L│53:M│6'Ж╚:ГRETURN ADDRESS'Щ╥A$│"YOUR NAME"'о▄B$│"YOUR STREET"'╔цC$│"YOUR CITY & STATE"'╧ЁЮ'Ё·Ю:З:З:З"MAILING ADDRESS":З:З(	
Й"NAME:         ";D$("
Й"STREET /P.O.BX";E$(;
Й"CITY          ";F$(G
"G$│", "(`
,Й"STATE         ";H$(x
6Й"ZIP CODE     ";I$(Ю
@Ю7:З@233,"INSERT ENVELOPE";:╗Й Y$(╡
JЗ#м2, Л(27); Л(49)(╦
TЗ#м2,дK);:З#м2,A$(с
^З#м2,дK);:З#м2,B$(ў
hЗ#м2,дK);:З#м2,C$)
rА X│1 е M:З#м2, Л(10);:Л)$
|З#м2, Л(13)):
ЖЗ#м2,дL);:З#м2,D$)P
РЗ#м2,дL);:З#м2,E$)r
ЪЗ#м2,дL);:З#м2,F$лG$лH$;G$;I$)Н
дА X│1еM:З#м2, Л(10);:Л)╡
оЮ:З:З"DO YOU WISH A DUPLICATE Y/N ")╦
╕N$│ Т:Е N$│""з440)▄
┬Е N$│"Y"з320)ц
╠Бе250тА A│0 е 3:Е F$(A)│T                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Lы6:Г Chord Call     Copyright 1983 by Brad Maiani @
╚ 4,1H╝ 4R┐ 1,1c(В   G CLEF 1w2╞"BM 10,18;U16"Й<╞"BM 10,5;F5"ЫF╞"BM15,10;G5"кP┬(10,20),5└ZВ   STAFF LINES 1╘dА V│ 8 е 24 й 4щn╗(3,V)м(250,V),╜ёxЛ VВВ   BAR LINES 1МА B │ 3 е 250 й 62.52Ц╗(B,8)м(B,24),╜Jа╗(250,8)м(250,24),╜RкЛ Bc┤В   G CLEF 2w╛╞"BM 10,78;U16"Й╚╞"BM10,65;F5"Ь╥╞"BM 15,70;G5"м▄┬ (10,80),5┬цВ   STAFF LINES 2╫ЁА V│ 68 е 84 й 4ь·╗(3,V)м(250,V),╜Ї
Л V
В   BAR LINES 2
А B│2 е 250 й 62.55
"╗ (B,68)м(B,84),╜O
,╗ (250,68)м(250,84),╜W
6Л Bh
@В   G CLEF 3~
J╞ "BM 10,140;U16"У
T╞ "BM 10,127;F5"ж
^╞"BM15,132;G5"╢
h┬(10,142),5╠
rВ   STAFF LINES 3у
|А V│ 130 е 146 й 4°
Ж╗(3,V)м(250,V),╜
РЛ V
ЪВ   BAR LINES 3+
дА B│2 е 250 й 62.5B
о╗(B,130)м(B,146),╜]
╕╗(250,130)м(250,146),╜e
┬Л B
╠╞"BM25,40L7D10R7U5L5"Ц
╓╞"BM39,40D10L7U10"и
р╞"BM46,40D10"┐
ъ╞"BM62,40L10R5D10"█
Ї╞"BM74,50U10L7D5R7L7D5"ў
■╞"BM82,50U10R7D4L7R5D6"╞"BM162,40L7D10R7"*╞"BM176,40D10U5L7U5D10"D╞"BM189,40L7D10R7U10"a&╞"BM195,50U10R7D4L7R5D6"{0╞"BM215,40L7D10R7U10"У:╞"BM100,100L7D10R7"оD╞"BM112,100L7D10R7U10"╟N╞"BM124,100D10L7U10"хX╞"BM128,110U10R7D4L7R5D6"b╞"BM146,100L7D5R7D5L7"l╞"BM156,100L7D5R5L5D5R7"/v┬(41,170),7,5IА╞"BM42,168U1L3D5R3U1"[К╞"BM55,168D5"wФ╞"BM58,168R3D3L3U3R3D5"ХЮ╞"BM66,168L3D2R3U2D5L3U3"▒и╞"BM68,168R3D2L3R3D3L3"╙▓╞"BM90,168L3D2R3U2D2R1D3L4U3"я╝╞"BM94,168D2R1D3U3R1U2"╞╞"BM117,168L3D2R3U2D2R1D3L4U3"3╨╞"BM124,168L3D5U3R3U2D2L1D3"P┌╞"BM130,168L3D5U3R3U2D5"iф╞"BM136,168L3D5R3U5"Кю╞"BM167,168L4D5U5R2D3U3R2D5"з°╞"BM173,168L3D5U3R3U2D5"║╞"BM176,168D5"╫╞"BM181,168L3D5U3R3U2D5"ю╞"BM187,173U5L3D5"
 ╞"BM190,168D5"*А X │ 1 е 3000 : Л X#4Ю(3)N>З@32,"****YOUR SELECTION PLEASE:*****"kHЗ@192,"<A>=INSTRUCTIONS"ПRЗ@224,"<B>=CALL YOUR CHORDS!!!"зWЗ@256,"<C>=TUNE-UP"┴\Z$│ Т:ЕZ$│""з860:Д870┘fЕZ$│"A"зБж890:Бе830ьpЕZ$│"B"зБж2110 uЕZ$│"C"зБе7300zЮ(0)ДАX│1е255й25$ОаX,1:ЛXGШЗ@0,"YOU HAVE THREE (3) TYPES"dвЗ@32,"OF CHORDS YOU CAN"ЕмЗ@64,"ASK ME FOR , AND I'LL"е╢З@96,"SHOW YOU TWO WAYS TO"╔└З@128,"PLAY THE CHORD YOU WANT"щ╩З@448,"( PRESS ANY KEY...)"╘N$│ Т:ЕN$│""з980:Д990▐Ю(0),шЗ@0,"THE THREE TYPES ARE :"=ЄЗ@64,"MAJOR"N№З@96,"MINOR"cЗ@128,"DOMINANT"ВЗ@448,"(PRESS ANY KEY...)"ЮN$│ Т:ЕN$│""з1050:Д1060з$Ю(0)╦.З@0,"IF I WAS TELLING A LITTLE"ю8З@32,"KID ABOUT MAJOR CHORDS,"BЗ@64,"I'D SAY THEY SOUND 'HAPPY'";LЗ@96,"PRESS ANY KEY AND I'LL SHOW"ZVЗ@128,"YOU WHAT I MEAN..."v`N$│ Т:ЕN$│""з1120:Д1130}j└4Рt╚4,1:┐1,1:╝(0)г~┬(128,96),40,1└И┬(128,96),20,1,1,.00,.50╥Т┬(108,76),3,1фЬ┬(148,76),3,1#ж╔"T5;O1;C;E;G;O2;C;O1;F;A;O2;C;F;O1;G;O2;B;D;O3;G;O1;L5;C"3░АX│1е500:ЛXA║┐1,0:Ю(0)`─З@0,"IF YOU,(OR THE KID!)"З╬З@32,"ASKED ME ABOUT MINOR CHORDS"з╪З@64,"I'D HAVE TO SAY THEY"└тЗ@96,"SOUNDED 'SAD'"√ьЗ@128,"PRESS ANY KEY AND I'LL SHOW YOU WHAT I MEAN..." ЎN$│ Т:ЕN$│""з1270:Д1280  ╝(0) .
╚4,1:┐1,0 A┬(128,96),40,1 _┬(128,116),15,1,1,.50,.00 q(┬(108,76),3,1 Г2┬(149,76),3,1 ╚<╔"T3;O1;C;E-;G;O2;C;O1;F;A-;O2;C;F;O1;G;O1;B-;O2;D;O2;G;O1;L5;C" ╪FАX│1е500:ЛX сPЮ(0)!ZЗ@0,"AND IF EITHER OF YOU"!#dЗ@32,"ASKED ME ABOUT DOMINANT"!HnЗ@64,"CHORDS, I'D TELL YOU THEY"!hxЗ@96,"SOUND REAL COOL,MAN,"!БВЗ@128,"REAL COOL!!!"!оМЗ@160,"PRESS ANY KEY AND I'LL SHOW 'YA."!╩ЦN$│ Т:ЕN$│""з1430:Д1440!╙а╝(0)!ск╚4,1:┐1,1!Ї┤┬(128,96),40,1"╛┬(128,116),15,1,0,.50,.00"&╚┬(108,76),3,1,0":╥┬(149,76),3,1,0"Э▄╔"T6;O1;C;C;E;E;G;G;B-;B-;F;F;A;A;O2;C;C;E-;E-;O1;G;G;B;B;O2;D;D;F;F;O1;C;C;E-;C;F#;F;E-;L5;C""нцАX│1е500:ЛX"╗Ё┐1,0:Ю(0)"т·З@0,"SORRY ABOUT THAT LAST BIT..."#З@32,"IT WASN'T ALL DOMINANT CHORDS"#0З@64,"BUT I COULDN'T RESIST!!!!"#AАX│1е2000:ЛX#J"Ю(0)#^,З@0,"ANYWAY..."#6З@32,"NOW THAT YOU KNOW HOW"#л@З@64,"THE DIFFERENT CHORD TYPES SOUND,"#╦JЗ@96,"HERE'S HOW TO ASK ME"#уTЗ@128,"FOR THEM..."#Ї^АX│1е2000:ЛX#¤hЮ(0)$!rЗ@0,"THERE ARE 12 NOTES IN THE"$K|З@32,"MUSICAL ALPHABET.(THAT'S ALL!)"$nЖЗ@64,"THEY ARE:A,B,C,D,E,F,G."$ЧРЗ@96,"THE MISSING 5 NOTES COME FROM"$╜ЪЗ@128,"'SHARPING' AND 'FLATTING'"$▄дЗ@160,"THESE SEVEN NOTES."%оЗ@192,"A SHARP LOOKS LIKE < # >."%&╕З@224,"IT MEANS PLAY THE NOTE "%O┬З@256,"ONE FRET HIGHER THAN NORMAL."%w╠З@288,"A FLAT LOOKS LIKE A SMALL B"%Ш╓З@320,"IN MOST MUSIC,BUT MY"%┴рЗ@352,"FLATS LOOK LIKE THIS: < b >."%ьъЗ@384,"FLATS MEAN PLAY ONE FRET LOWER"&ЇЗ@448,"PRESS ANY KEY"&"■N$│ Т:ЕN$│""з1790:Д1800&+Ю(0)&WЗ@0,"IF YOU WANT TO SEE A MAJOR CHORD,"&pЗ@32,"ALL YOU DO IS"&Ъ&З@64,"PRESS THE LETTER OF THE CHORD!"&─0З@96,"IF IT'S A MINOR CHORD YOU WANT"&щ:З@128,"PRESS THE CHORD'S LETTER"'DЗ@160,"WITH A MINUS SIGN <-> AFTER IT."'?NЗ@192,"IF YOU WANT A DOMINANT CHORD,"'hXЗ@224,"PRESS THE CHORD'S LETTER AND"'ОbЗ@256,"PUT A SEVEN <7> AFTER IT."'▓lЗ@416,"PRESS ANY KEY AND WE'LL"'╓vЗ@448,"FINISH ALL THIS TALK..."'ЄАN$│ Т:ЕN$│""з1920:Д1930'√КЮ(0)(!ФЗ@0,"IF YOU WANT A C MAJOR CHORD"(>ЮЗ@32,"JUST PRESS < C >."(eиЗ@64,"IF YOU WANT A C MINOR CHORD"(Г▓З@96,"JUST PRESS < C- >."(д╝З@128,"FOR DOMINANT CHORDS,"(╛╞З@160,"PRESS < C7 >."(█╨З@160,"YOU PRESS < C7 >")┌З@192,"SHARPS AND FLATS (#'S AND b'S)")0фЗ@224,"COME BEFORE THE MINUS (-) AND")OюЗ@256,"DOMINANT <7> SIGNS")g°З@288,"LIKE THIS :")ЗЗ@320,"C#- (C SHARP MINOR)")еЗ@352,"Bb7 (B FLAT SEVEN))╖З@384,"0.K.?")█ З@416,"PRESS ANY KEY AND WE'RE")√*З@448,"OFF TO CHORD CALL!!"*4N$│ Т:ЕN$│""з2100:Д2110*>Ю*IHЗ@0,"WHAT CHORD WOULD YOU LIKE TO SEE "*QRЙX$*g\ЕX$│""з2120:Д2150*rfБж6710*ЕpЕX$│"A"зБе2520*ЩzЕX$│"A-"зБе2630*нДЕX$│"A7"зБе2740*┴ОЕX$│"Bb"зБе2830*╓ШЕX$│"Bb-"зБе2970*ывЕX$│"Bb7"зБе3110*■мЕX$│"B"зБе3250+╢ЕX$│"B-"зБе3390+&└ЕX$│"B7"зБе3530+9╩ЕX$│"C"зБе3660+M╘ЕX$│"C-"зБе3770+a▐ЕX$│"C7"зБе3890+}шЕX$│"C#"▒X$│"Db"зБе4020+ЫЄЕX$│"C#-"▒X$│"Db-"зБе4160+╣№ЕX$│"C#7"▒X$│"Db7"зБе4290+╠	ЕX$│"D"зБе4410+р	ЕX$│"D-"зБе4530+Ї	ЕX$│"D7"зБе4650,	$ЕX$│"Eb"зБе4770,	.ЕX$│"Eb-"зБе4910,2	8ЕX$│"Eb7"зБе5050,E	BЕX$│"E"зБе5190,Y	LЕX$│"E-"зБе5290,m	VЕX$│"E7"зБе5370,А	`ЕX$│"F"зБе5450,Ф	jЕX$│"F-"зБе5590,и	tЕX$│"F7"зБе5710,─	~ЕX$│"F#"▒X$│"Gb"зБе5840,т	ИЕX$│"F#-"▒X$│"Gb-"зБе5970-	ТЕX$│"F#7"▒X$│"Gb7"зБе6090-	ЬЕX$│"G"зБе6210-'	жЕX$│"G-"зБе6310-;	░ЕX$│"G7"зБе6420-W	║ЕX$│"Ab"▒X$│"G#"зБе6480-u	─ЕX$│"Ab-"▒X$│"G#-"зБе6560-У	╬ЕX$│"Ab7"▒X$│"G#7"зБе6630-Ю	╙В **A -░	╪╞"BM27,145R5"-╩	т╞"BM51,145R6D3L6D3R6"-▄	ь╞"BM66,145D6"-°	Ў╞"BM75,145R6D3L6R6D3L6".	
┬(54,83),6,8.

┬(66,83),6,8.+
┬(78,83),6,8.=
Бж6810:Бж7220.Z
(╞"BM120,25U10R5D5L5R5D5".x
2╔"T1;O1;A;O2;E;A;O3;C#;E".г
<N$│ Т:ЕN$│"N"з2110:ДЕN$│"A"з2610:Д2620.о
AВ **A-.└
F╞"BM27,145R5".┌
P╞"BM51,145R6D3L6D3R6".Ў
Z╞"BM63,145R6D3L6R6D3L6"/
d╞"BM78,145D6"/
n┬(54,83),6,8/*
x┬(66,83),6,8/;
В┬(78,58),6,8/M
МБж6940:Бж7220/x
Ц╞"BM120,25U10R5D5L5R5D5":╞"BM130,20R5"/Х
а╔"T1;O1;A;O2;E;A;O3;C;E"/└
кN$│ Т:ЕN$│"N"з2110:ДЕN$│"A"з2720:Д2730/╦
пВ **A7/▌
┤╞"BM27,145R5"/ў
╛╞"BM51,145R6D3L6D3R6"0
╚╞"BM75,145R6D3L6R6D3L6"0$
╥┬(54,83),6,805
▄┬(78,83),6,80G
цБж7060:Бж72200t
Ё╞"BM120,25U10R5D5L5R5D5":╞"BM128,20R4D5"0П
·╔"O1;A;O2;E;G;O3;C#;E"0║N$│ Т:ЕN$│"N"з2110:ДЕN$│"A"з2810:Д28200┼	В **Bb0╫╞"BM27,145R5"0щ╞"BM39,145R5"1"╞"BM51,145R6D3L6D3R6"1,╞"BM63,145R6D3L6R6D3L6"196╞"BM75,145D3R6L1U3D6"1K@╞"BM89,145D6"1]J┬(54,108),6,81oT┬(66,108),6,81Б^┬(78,108),6,81Тh┬(90,58),6,81дrБж6810:Бж72301╫|╞"BM120,25U10R5D5L5R6D5L6":╞"BM130,20D5R3U3L3"1ЁЖ╔"T1;O1;F;B-;O2;D;F"2РN$│ Т:ЕN$│"N"з2110:ДЕN$│"A"з2950:Д29602'ХВ **Bb-29Ъ╞"BM27,145R5"2Kд╞"BM39,145R5"2gо╞"BM51,145R6D3L6R6D3L6"2Б╕╞"BM63,145D3R6L1U3D6"2Ы┬╞"BM75,145R6D3L6D3R6"2н╠╞"BM89,145D6"2┐╓┬(54,108),6,82╤р┬(66,108),6,82тъ┬(78,83),6,82єЇ┬(90,58),6,83■Бж6940:Бж72303F╞"BM120,25U10R5D5L5R6D5L6":╞"BM130,20D5R3U3L3":╞"BM135,20R5"3`╔"T1;O1;F;B-;O2;D-;F"3ЛN$│ Т:ЕN$│"N"з2110:ДЕN$│"A"з3090:Д31003Ч!В **Bb73й&╞"BM27,145R5"3╗0╞"BM39,145R5"3╫:╞"BM51,145R6D3L6R6D3L6"3щD╞"BM64,145D6"4N╞"BM75,145D3R6L1U3D6"4X╞"BM90,145D6"4'b┬(54,108),6,848l┬(66,58),6,84Jv┬(78,108),6,84[А┬(90,58),6,84mКБж7060:Бж72304░Ф╞"BM120,25U10R5D5L5R6D5L6":╞"BM130,20D5R3U3L3":╞"BM135,20R5D5"4╔Ю╔"T1;O1;F;A-;O2;D;F"4ЇиN$│ Т:ЕN$│"N"з2110:ДЕN$│"A"з3230:Д32404■нВ **B5▓╞"BM27,145R5"5"╝╞"BM39,145R5"5<╞╞"BM51,145R6D3L6D3R6"5X╨╞"BM63,145R6D3L6R6D3L6"5r┌╞"BM75,145D3R6L1U3D6"5Дф╞"BM89,145D6"5Цю┬(54,133),6,85и°┬(66,133),6,85║
┬(78,133),6,85╦
┬(90,83),6,85▌
Бж6810:Бж72405№
 ╞"BM120,25U10R5D5L5R6D5L6"6
*╔"T1;O1;F#;B;O2;D#;F#"6B
4N$│ Т:ЕN$│"N"з2110:ДЕN$│"A"з3370:Д33806M
9В **B-6_
>╞"BM27,145R5"6q
H╞"BM39,145R5"6Н
R╞"BM51,145R6D3L6R6D3L6"6з
\╞"BM63,145D3R6L1U3D6"6┴
f╞"BM75,145R6D3L6D3R6"6╙
p╞"BM89,145D6"6х
z┬(54,133),6,86ў
Д┬(66,133),6,87	
О┬(78,108),6,87
Ш┬(90,83),6,87,
вБж6940:Бж72407Y
м╞"BM120,25U10R5D5L5R6D5L6":╞"BM130,20R5"7s
╢╔"T1;O1;F#;B;O2;D;F#"7Ю
└N$│ Т:ЕN$│"N"з2110:ДЕN$│"A"з3510:Д35207й
┼В **B77╗
╩╞"BM27,145R5"7╒
╘╞"BM39,145R6D3L6D3R6"7ч
▐╞"BM54,145D6"8
ш╞"BM64,145R6D3L6R6D3L6"8
Є╞"BM90,145D3R6L1U3D6"8.
№┬(42,83),6,88?┬(54,58),6,88P┬(66,83),6,88a┬(90,83),6,88s$Бж7060:Бж72408в.╞"BM120,25U10R5D5L5R6D5L6":╞"BM130,20R5D5"8┴8╔"T1;O1;B;O2;D#;A;B;O3;F#"8ьBN$│ Т:ЕN$│"N"з2110:ДЕN$│"A"з3640:Д36508ЎGВ **C9L╞"BM27,145R5"9$V╞"BM39,145R6D3L6R6D3L6"9>`╞"BM51,145R6D3L6D3R6"9Pj╞"BM78,145D6"9bt┬(42,108),6,89s~┬(54,83),6,89ДИ┬(78,58),6,89ЦТБж6810:Бж72509▒Ь╞"BM125,25U2L7D10R7U2"9╦ж╔"T1;O1;C;E;G;O2;C;E"9Ў░N$│ Т:ЕN$│"N"з2110:ДЕN$│"A"з3750:Д3760:
╡В **C-:║╞"BM27,145R5":-─╞"BM39,145D3R6L1U3D6":?╬╞"BM54,145D6":Y╪╞"BM75,145R6D3L6D3R6":kт┬(42,108),6,8:|ь┬(54,58),6,8:НЎ┬(78,58),6,8:Я╞"BM88,145R5":▒
Бж6940:Бж7250:┌╞"BM125,25U2L7D10R7U2":╞"BM130,28R5":Ї╔"T1;O1;C;E-;G;O2;C;";(N$│ Т:ЕN$│"N"з2110:ДЕN$│"A"з3870:Д3880;*-В **C7;<2╞"BM27,145R5";X<╞"BM39,145R6D3L6R6D3L6";rF╞"BM51,145R6D3L6D3R6";МP╞"BM63,145D3R6L1U3D6";ЮZ╞"BM78,145D6";░d┬(42,108),6,8;┴n┬(54,83),6,8;╙x┬(66,108),6,8;фВ┬(78,58),6,8;ЎМБж7060:Бж7250<!Ц╞"BM125,25U2L7D10R7U2":╞"BM130,27R4D6"<<а╔"T1;O1;C;E;B-;O2;C;E"<gкN$│ Т:ЕN$│"N"з2110:ДЕN$│"A"з4000:Д4010<rпВ **C#<Д┤╞"BM27,145R5"<Ц╛╞"BM39,145R5"<░╚╞"BM51,145D3R6L1U3D6"<┬╥╞"BM65,145D6"<▐▄╞"BM75,145R6D3L6R6D3L6"<°ц╞"BM89,145R6D3L6D3R6"=
Ё┬(54,108),6,8=·┬(66,58),6,8=,┬(78,83),6,8==┬(90,58),6,8=OБж6810:Бж7260=}"╞"BM120,25R6D10L6U10":╞"BM130,28D7R3U4L3"=Ч,╔"T1;O1;F;A-;O2;D-;F"=┬6N$│ Т:ЕN$│"N"з2110:ДЕN$│"A"з4140:Д4150=╬;В **C#-=р@╞"BM27,145R5"=·J╞"BM51,145R6D3L6D3R6">T╞"BM39,145R5">^╞"BM66,145D6">:h╞"BM75,145R6D3L6R6D3L6">Vr╞"BM75,145R6D3L6R6D3L6">g|┬(54,83),6,8>xЖ┬(66,58),6,8>ЙР┬(78,83),6,8>ЫЪБж6940:Бж7260>╫д╞"BM120,25R6D10L6U10":╞"BM130,28D7R3U4L3":╞"BM135,30R5">ёо╔"T1;O1;E;G#;O2;C#;E">¤│В **C#7?(╕N$│ Т:ЕN$│"N"з2110:ДЕN$│"A"з4270:Д4280?:┬╞"BM27,145R5"?L╠╞"BM39,145R5"?f╓╞"BM51,145D3R6L1U3D6"?xр╞"BM66,145D6"?Тъ╞"BM89,145R6D3L6D3R6"?дЇ┬(54,108),6,8?╡■┬(66,58),6,8?╞┬(90,58),6,8?╪Бж7060:Бж7260@╞"BM120,25R6D10L6U10":╞"BM130,28D7R3U4L3":╞"BM135,30R3D5"@/&╔"T1;O1;F;A-;B;O2;F"@Z0N$│ Т:ЕN$│"N"з2110:ДЕN$│"A"з4390:Д4400@d5В **D@v:╞"BM27,145R5"@ИD╞"BM39,145R5"@ЪN╞"BM66,145D6"@╢X╞"BM75,145R6D3L6R6D3L6"@╨b╞"BM87,145R6D3L6D3R6"@сl┬(66,83),6,8@єv┬(78,108),6,8AА┬(90,83),6,8AКБж6810:Бж7270A0Ф╞"BM120,25R6D10L6U10"AIЮ╔"T1;O1;D;A;O2;D;F#"AtиN$│ Т:ЕN$│"N"з2110:ДЕN$│"A"з4510:Д4520AнВ **D-AС▓╞"BM27,145R5"Aг╝╞"BM39,145R5"A╜╞╞"BM63,145R6D3L6D3R6"A┘╨╞"BM75,145R6D3L6R6D3L6"Aы┌╞"BM90,145D6"A№ф┬(66,83),6,8Bю┬(78,108),6,8B°┬(90,58),6,8B1Бж6940:Бж7270BY╞"BM120,25R6D10L6U10":╞"BM130,30R5"Bq╔"T1;O1;D;A;O2;D;F"BЬ N$│ Т:ЕN$│"N"з2110:ДЕN$│"A"з4630:Д4640Bз%В **D7B╣*╞"BM27,145R5"B╦4╞"BM39,145R5"Bх>╞"BM63,145R6D3L6D3R6"BўH╞"BM78,145D6"CR╞"BM87,145R6D3L6R6D3L6"C$\┬(66,83),6,8C5f┬(78,58),6,8CFp┬(90,83),6,8CXzБж7060:Бж7270CВД╞"BM120,25R6D10L6U10":╞"BM130,30R3D5"CЫО╔"T1;O1;D;A;O2;C;F#"C╞ШN$│ Т:ЕN$│"N"з2110:ДЕN$│"A"з4750:Д4760C╤ЭВ **EbCув╞"BM27,145R5"Cїм╞"BM39,145R5"D╢╞"BM54,145D6"D!└╞"BM63,145R6D3L6D3R6"D;╩╞"BM75,145D3R6L1U3D6"DW╘╞"BM88,145R6D3L6R6D3L6"Dh▐┬(54,58),6,8Dzш┬(66,108),6,8DМЄ┬(78,133),6,8DЮ№┬(90,108),6,8D░Бж6810:Бж7280Dр╞"BM120,25L6D5R5L5D5R6":╞"BM125,29D6R3U4L3"D√╔"T1;O1;E-;B-;O2;E-;G"E&$N$│ Т:ЕN$│"N"з2110:ДЕN$│"A"з4890:Д4900E2)В **Eb-ED.╞"BM27,145R5"EV8╞"BM39,145R5"EpB╞"BM52,145D3R6L1U3D6"EКL╞"BM63,145R6D3L6D3R6"EжV╞"BM75,145R6D3L6R6D3L6"E╕`╞"BM90,145D6"E╩j┬(54,133),6,8E▄t┬(66,108),6,8Eю~┬(78,133),6,8E И┬(90,83),6,8F=Т╞"BM120,25L6D5R5L5D5R6":╞"BM125,29D6R3U4L3":╞"BM130,31R5"FOЬБж6940:Бж7280Fkж╔"T1;O1;G-;B-;O2;E-;G-"FЦ░N$│ Т:ЕN$│"N"з2110:ДЕN$│"A"з5030:Д5040Fв╡В **Eb7F┤║╞"BM27,145R5"F╞─╞"BM39,145R5"F╪╬╞"BM54,145D6"FЄ╪╞"BM63,145R6D3L6D3R6"Gт╞"BM75,145D3R6L1U3D6"G(ь╞"BM88,145R6D3L6R6D3L6"G9Ў┬(54,58),6,8GK┬(66,108),6,8G]
┬(78,108),6,8Go┬(90,108),6,8GББж7060:Бж7280G┴(╞"BM120,25L6D5R5L5D5R6":╞"BM125,29D6R3U4L3":╞"BM130,31R3D4"G▄2╔"T1;O1;E-;B-;O2;D-;G"H<N$│ Т:ЕN$│"N"з2110:ДЕN$│"A"з5170:Д5180HAВ **EH+F╞"BM39,145R6D3L6D3R6"HGP╞"BM52,145R6D3L6R6D3L6"HYZ╞"BM66,145D6"Hjd┬(42,83),6,8H{n┬(54,83),6,8HМx┬(66,58),6,8HЮВБж6810:Бж7290H╝М╞"BM125,25L10D5R8L8D5R10"H▄Ц╔"T1;O1;E;B;O2;E;G#;B;O3;E"IаN$│ Т:ЕN$│"N"з2110:ДЕN$│"A"з5270:Д5280IеВ **E-I,к╞"BM39,145R6D3L6D3R6"IH┤╞"BM52,145R6D3L6R6D3L6"IY╛┬(42,83),6,8Ij╚┬(54,83),6,8I|╥Бж6940:Бж7290Iи▄╞"BM125,20L10D5R8L8D5R10":╞"BM127,25R5"I╟ц╔"T1;O1;E;B;O2;E;G;B;O3;E"IЄЁN$│ Т:ЕN$│"N"з2110:ДЕN$│"A"з5350:Д5360I¤їВ **E7J·╞"BM39,145R6D3L6D3R6"J)╞"BM66,145D6"J:┬(42,83),6,8JK┬(66,58),6,8J]"Бж7060:Бж7290JЛ,╞"BM120,25L10D5R8L8D5R10":╞"BM125,30R3D5"Jл6╔"T1;O1;E;B;O2;D;G#;B;O3;E"J╓@N$│ Т:ЕN$│"N"з2110:ДЕN$│"A"з5430:Д5440JрEВ **FJЄJ╞"BM27,145R5"KT╞"BM39,145R5"K ^╞"BM51,145R6D3L6R6D3L6"K:h╞"BM63,145R6D3L6D3R6"KLr╞"BM78,145D6"K^|╞"BM90,145D6"KpЖ┬(54,108),6,8KБР┬(66,83),6,8KТЪ┬(78,58),6,8Kгд┬(90,58),6,8K╡оБж6810:Бж7180K╧╕╞"BM125,25L8D4R6L6D6"Kч┬╔"T1;O1;F;A;O2;C;F"L╠N$│ Т:ЕN$│"N"з2110:ДЕN$│"A"з5570:Д5580L$╓╞"BM27,145R5"L/█В **F-LAр╞"BM39,145R5"L]ъ╞"BM51,145R6D3L6R6D3L6"LЛЇ╞"BM66,145D6":╞"BM78,145D6":╞"BM90,145D6"LЭ■┬(54,108),6,8Lо┬(66,58),6,8L┐┬(78,58),6,8L╨┬(90,58),6,8Lт&Бж6940:Бж7180M
0╞"BM125,25L8D4R6L6D6":╞"BM127,30R5"M#:╔"T1;O1;F;A-;O2;C;F"MNDN$│ Т:ЕN$│"N"з2110:ДЕN$│"A"з5690:Д5700MYIВ **F7MkN╞"BM27,145R5"M}X╞"BM39,145R5"MПb╞"BM54,145D6"Mйl╞"BM63,145R6D3L6D3R6"M╔v╞"BM78,145D6":╞"BM90,145D6"M┌А┬(54,58),6,8MыК┬(66,83),6,8M№Ф┬(78,58),6,8N
Ю┬(90,58),6,8NиБж7060:Бж7180NI▓╞"BM125,25L8D4R6L6D6":╞"BM126,30R3D5"Nb╝╔"T1;O1;E-;A;O2;C;F"NН╞N$│ Т:ЕN$│"N"з2110:ДЕN$│"A"з5820:Д5830NШ╦В **F#Nк╨╞"BM27,145R5"N╝┌╞"BM39,145R5"N╪ф╞"BM51,145R6D3L6R6D3L6"NЄю╞"BM63,145R6D3L6D3R6"O°╞"BM78,145D6":╞"BM90,145D6"O$┬(54,133),6,8O6┬(66,108),6,8OG┬(78,83),6,8OX ┬(90,83),6,8Oj*Бж6810:Бж7190OЭ4╞"BM125,25U2L10D10R10U6L5":╞"BM130,26D7R4U3L4"O╣>╔"T1;O1;G-;B-;O2;D-;G-"OфHN$│ Т:ЕN$│"N"з2110:ДЕN$│"A"з5950:Д5960OЁMВ **F#-PR╞"BM27,145R5"P\╞"BM39,145R5"P0f╞"BM51,145R6D3L6R6D3L6"P^p╞"BM66,145D6":╞"BM78,145D6":╞"BM90,145D6"Ppz┬(54,133),6,8PБД┬(66,83),6,8PТО┬(78,83),6,8PгШ┬(90,83),6,8P╡вБж6940:Бж7190PЎм╞"BM125,25U2L10D10R10U6L5":╞"BM130,26D7R4U3L4":╞"BM137,29R5"Q╢╔"T1;O1;G-;A;O2;D-;G-"Q<└N$│ Т:ЕN$│"N"з2110:ДЕN$│"A"з6070:Д6080QH┼В **F#7QZ╩╞"BM27,145R5"Ql╘╞"BM39,145R5"Q~▐╞"BM54,145D6"Q┤ш╞"BM63,145R6D3L6D3R6":╞"BM78,145D6":╞"BM90,145D6"Q┼Є┬(54,83),6,8Q╫№┬(66,108),6,8Qш┬(78,83),6,8Q∙┬(90,83),6,8RБж7060:Бж7190RN$╞"BM125,25U2L10D10R10U6L5":╞"BM130,26D7R4U3L4":╞"BM138,27R3D6"Ri.╔"T1;O1;E;B-;O2;D-;G-"RФ8N$│ Т:ЕN$│"N"з2110:ДЕN$│"A"з6190:Д6200RЮ=В **GR║B╞"BM27,145R6D3L6R6D3L6"R╘L╞"BM39,145R6D3L6D3R6"RюV╞"BM88,145D3R6L1U3D6"S`┬(30,108),6,8Sj┬(42,83),6,8S#t┬(90,108),6,8S5~Бж6810:Бж7200STИ╞"BM127,25U2L10D10R10U6L5"SsТ╔"T1;O1;G;B;O2;D;G;B;O3;G"SЮЬN$│ Т:ЕN$│"N"з2110:ДЕN$│"A"з6290:Д6300SйбВ **G-S╗ж╞"BM27,145R5"S═░╞"BM42,145D6"Sщ║╞"BM75,145R6D3L6R6D3L6"T─╞"BM87,145D3R6L1U3D6"T╬┬(41,58),6,8T&╪┬(78,108),6,8T8т┬(90,108),6,8TJьБж6940:Бж7200TwЎ╞"BM127,25U2L10D10R10U6L5":╞"BM131,27R5"TХ╔"T1;O1;B-;O2;D;G;O3;D;G"T└
N$│ Т:ЕN$│"N"з2110:ДЕN$│"A"з6400:Д6410T╦В **G7U╞"BM27,145R6D3L6R6D3L6":╞"BM39,145R6D3L6D3R6":╞"BM90,145D6"U7┬(30,108),6,8:┬(42,83),6,8:┬(90,58),6,8UI(Бж7060:Бж7200Ux2╞"BM127,25U2L10D10R10U6L5":╞"BM129,27R3D6"UЧ<╔"T1;O1;G;B;O2;D;G;B;O3;F"U┬FN$│ Т:ЕN$│"N"з2110:ДЕN$│"A"з6460:Д6470U═KВ **AbUэP╞"BM27,145R5":╞"BM39,145R5"V1Z╞"BM54,145D6":╞"BM66,145D6":╞"BM78,145D6":╞"BM89,145D3R6L1U3D6"V\d┬(54,58),6,8:┬(66,58),6,8:┬(78,58),6,8Vnn┬(90,133),6,8VАxБж6810:Бж7210V▒В╞"BM120,27U10R5D5L5R5D5":╞"BM131,20D7R3U4L3"V╧М╔"T1;O1;E-;A-;O2;C;O3;A-"V·ЦN$│ Т:ЕN$│"N"з2110:ДЕN$│"A"з6540:Д6550WЫВ **Ab-W&а╞"BM27,145R5":╞"BM39,145R5"W\к╞"BM54,145D6":╞"BM66,145D6":╞"BM89,145D3R6L1U3D6"WИ┤┬(54,58),6,8:┬(66,58),6,8:┬(90,133),6,8WЪ╛Бж6940:Бж7210W┘╚╞"BM120,27U10R5D5L5R5D5":╞"BM129,20D7R3U4L3":╞"BM137,22R5"WЇ╥╔"T1;O1;E-;A-;B;O2;A-"X▄N$│ Т:ЕN$│"N"з2110:ДЕN$│"A"з6610:Д6620X+сВ **Ab7Xgц╞"BM27,145R5":╞"BM39,145R5":╞"BM54,145D6":╞"BM66,145D6"XПЁ╞"BM78,145D6":╞"BM88,145R6D3L6D3R6"X║·┬(54,58),6,8:┬(66,58),6,8:┬(78,58),6,8X╦┬(90,83),6,8Y╞"BM120,27U10R5D5L5R5D5":╞"BM129,20D7R3U4L3":╞"BM135,21R4D6"YБж7060:Бж7210Y9"╔"T1;O1;E-;A-;O2;C;G-"Yd,N$│ Т:ЕN$│"N"з2110:ДЕN$│"A"з6690:Д6700Yw6╚4,1:┐1,0:╝(0)YУ@╗(18,40)м(102,140),╜,BFY░J╗(150,40)м(234,140),╜,BFY┴TАY│40е140й25Y╫^╗(18,Y)м(234,Y),╛Y▐hЛYYяrАX│18е234й12Z|╗(X,40)м(X,140),╛ZЖЛXZРРZ$ЪАA│162е222й12Z4д┬(A,58),6,8Z;оЛAZM╕┬(198,83),6,8Z`┬┬(174,108),6,8Zs╠┬(186,108),6,8ZН╤В **BAR CHORD ROUTINEZа╓╞"BM162,145D6"Z╜р╞"BM172,145R6D3L6R6D3L6"Z╪ъ╞"BM184,145D3R6L1U3D6"ZєЇ╞"BM196,145R6D3L6D3R6"[■╞"BM210,145D6"[╞"BM222,145D6"[Р[1АA│162е222й12[A&┬(A,58),6,8[H0ЛA[[:┬(174,108),6,8[nD┬(186,108),6,8[БN╞"BM162,145D6"[ЮX╞"BM172,145R6D3L6R6D3L6"[╣b╞"BM184,145D3R6L1U3D6"[╠l╞"BM198,145D6"[▀v╞"BM210,145D6"[ЄА╞"BM222,145D6"[°КР\
ФАA│162е222й12\Ю┬(A,58),6,8\!иЛA\4▓┬(174,108),6,8\F╝┬(198,83),6,8\Y╞╞"BM162,145D6"\v╨╞"BM172,145R6D3L6R6D3L6"\Й┌╞"BM186,145D6"\дф╞"BM196,145R6D3L6D3R6"\╖ю╞"BM210,145D6"\╩°╞"BM222,145D6"\╨Р\ф╞"BM140,58D6":Р]╞"BM140,58R6D3L6D3R6":Р] ╞"BM140,58R6D3L6R6D3L6":Р]:*╞"BM140,58D3R6L1U3D6":Р]V4╞"BM140,58L6D3R6D3L6":Р]t>╞"BM140,58U1L6D6R6U3L6":Р]МH╞"BM140,58U1R6D6":Р]мR╞"BM140,58R3D6L3U3R3L3U3":Р]╚\╞"BM140,58L3D3R3U3D6":Р]Ёf╞"BM134,58D6":╞"BM140,58L3D6R3U6":Р^p╞"BM134,58D6":╞"BM140,58D6":Р^<z╞"BM134,58D6":╞"BM140,58R6D3L6D3R6":Р^UннВ  TUNE-UP ROUTINE^[ДЮ^rОЗ@0,"LOW E STRING"^УШЗ@32,"PRESS A TO HEAR AGAIN"^│вЗ@64,"OR N FOR NEXT STRING"^┬м╔"T1;O1;E"^э╢J$│ Т:ЕJ$│"A"з7340:ДЕJ$│"N"з7360:Д7350_└З@0,"A STRING"_╩╔"T1;O1;A"_:╘J$│ Т:ЕJ$│"A"з7370:ДЕJ$│"N"з7390:Д7380_M▐З@0,"D STRING"_\ш╔"T1;O2;D"_ЗЄJ$│ Т:ЕJ$│"A"з7400:ДЕJ$│"N"з7420:Д7410_Ъ№З@0,"G STRING"_й╔"T1;O2;G"_╘J$│ Т:ЕJ$│"A"з7430:ДЕJ$│"N"з7450:Д7440_чЗ@0,"B STRING"_Ў$╔"T1;O2;B"`!.J$│ Т:ЕJ$│"A"з7460:ДЕJ$│"N"з7480:Д7470`98З@0,"HIGH E STRING"`^=З@64,"OR N FOR NEXT INSTRUCTION"`mB╔"T1;O3;E"`ШLJ$│ Т:ЕJ$│"A"з7490:ДЕJ$│"N"з7505:Д7500`ЮQЮ`└VЗ@0,"ARE YOU TUNED-UP? (Y/N)"`ъ`J$│ Т:ЕJ$│"Y"з820:ДЕJ$│"N"з7300:Д7520