ЕP$│"N"зП:Бе14:Д27!uX1│ Й(X$(1))нD1:X2│ Й(X$(2))нD3:X3│ Й(X$(3))нD1:X4│ Й(X$(4))нD3:X5│ Й(X$(5))нD1:X6│ Й(X$(6))нD3!ЪЕX5▓255 з X7│X7л1:X5│X5м255:Бе29!┐ЕX6▓255 з X8│X8л1:X6│X6м255:Бе30"ДPC$(13)│"X1="л П( И(X1), З( И(X1))м1)л":X2="л П( И(X2), З( И(X2))м1)л":X3="л П( И(X3), З( И(X3))м1)л":X4="л П( И(X4), З( И(X4))м1)л":X5="л П( И(X5), З( И(X5))м1)л":X6="л П( И(X6), З( И(X6))м1)#I PC$(14)│"X7="л П( И(X7), З( И(X7))м1)л":X8="л П( И(X8), З( И(X8))м1)л":D1="л П( И(D1), З( И(D1))м1)л":D2="л П( И(D2), З( И(D2))м1)л":D3="л П( И(D3), З( И(D3))м1)л":D4="л П( И(D4), З( И(D4))м1)#Е!PC$(13)│"312 "лPC$(13):PC$(14)│"313 "лPC$(14)л":RETURN"$"Ю:Бж44:ё18,4:°2,2:З"PRINTER MODULE IS READY TO BE SAVED TO DISK":ё18,6:З"PLEASE INPUT FILENAME / NO EXTENTION PLEASE":°3,2$8#ё35,8:╗ЙF$:Е З(F$)▓8зё35,8:З:Бе35:ДF$│F$л"/BAS"$f$Щ"O",#1,F$:АT│1е14:З#1,PC$(T):ЛT:Ъ#1:°3,2$и%Q$│F$л" NOW SAVED TO DISK":PA│ Б(80м З(Q$))о2:ёPA,10:°2,2:ЗQ$$Ї&R$│"LOAD LABELPRC/BAS AND MERGE "лF$:PA│ Б(80м З(R$))о2:ёPA,12:°1,2:ЗR$%D'ё9,14:З"NOW 'KILL' LABELPRC/BAS ON YOUR DISK AND RE-SAVE LABELPRC/BAS":°3,2&(ё4,17:З"Although this program is provided to you 'FREE', a donation for its use":ё19,19:З"would be greatly appreciated. Send to:":ё5,21:З"George Quellhorst. 63 South State Street #10. Painesville,Ohio.44077";&H)°2,2:ё28,23:З"PRESS BREAK TO ESCAPE";:°3,2&R*Бе 42&a+:Г Gosubs.&╡,ё17,0:°1,2:З"PRINTER CONFIGURATION PROGRAM FOR LABELPRC/BAS":ё17,1:З б(46,42):Р'2-ё25,21:°2,2:З"IS THIS CORRECT <";:ё42,21:°1,2,B:З"Y":ё43,21:°2,2:З">ES OR <":ё51,21:°1,2,B:З"N":ё52,21:°2,2:З">O":°3,2:Р'|.LN│299:АT│1е10:НB$:LN│LNл1:PC$(T)│ П( И(LN),3)л" "лB$л"=CHR$("лPC$(T)'щ/N│ Ю(1,PC$(T),","):ЕN│0зPC$(T)│PC$(T)л")" :ДPC$(T)│ О(PC$(T),Nм1)л")+CHR$("л П(PC$(T), З(PC$(T))мN):Бе47(0ЛT:PC$(11)│"310 DE$=NP$+CI$+CE$"(1АT│1е2:O│1(З2N│ Ю(O,PC$(T),"("):O│ Ю(Oл1,PC$(T),")"):ЕN│0з51 :ДA│ Й( Р(PC$(T),Nл1,(OмNм1))):C$(T)│C$(T)л Л(A):Бе50(Р3ЛT:Р(╡4:Г One up 10 and 12cpi testprint)_5T1$│"0000000001111111111222222222233333":T2$│"1234567890123456789012345678901234":З#м2,C$(1);T1$:З#м2,T2$:АT│1е4:З#м2:Л:З#м2,C$(2);T1$;"3333344":З#м2,T2$;"5678901":Р)Д6:Г Two up 10 and 12cpi testprint*Z7T1$│"000000000111111111122222222223333333333444444444455555555556666666":T2$│"123456789012345678901234567890123456789012345678901234567890123456":З#м2,C$(1);T1$:З#м2,T2$:АT│1е4:З#м2:Л:З#м2,C$(2);T1$:З#м2,T2$:Р:Р)Д6:Г Two up 10 and 12cpi testprint*Z7T1$│"000000000111111111122222222223333333333444444444455555555556666666":T2$│"1234567890123456789012345678901234567890                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                \Ж
5:Г Get printhead position variables.\╞
6P1│0:P2│ Б((360мL(A))о2):Р                     :Г 1up 10cpi]
7P1│0:P2│ Б((456мL(A))о2):ЕPL(Aл5)┤5з314:Д315  :Г 2up 10 cpi]F
8P1│0:P2│ Б((432мL(A))о2):Р                     :Г 1up 12cpi]Е
9P1│0:P2│ Б((540мL(A))о2):ЕPL(Aл5)┤5з314:Д315  :Г 2up 12cpi]╬
:P3│1:P4│ Б((456мL(Aл5))о2)л225:Бе316              :Г 2up 10cpi right^
;P3│2:P4│ Б((540мL(Aл5))о2)л66                       :Г 2up 12cpi right^V
<ЕP4▓255 зP3│P3л1:P4│P4м255:Бе316 :ДР    :Г Fixes P3 & P4^wшТ65496,.:АT│1е5:З#м2,L$(T):Л^}щС^Я╨Т65496,.:АT│1е10:З#м2,L$(T):Л2)л225:Бе316              :Г 2up 10cpi right^
;P3│2:P4│ Б((540мL(Aл5))о2)л66               riables._G
6P1│0:P2│ Б((360мL(A))о2):Р                     :Г 1up 10cpi_З
7P1│0:P2│ Б((456мL(A))о2):ЕPL(Aл5)┤5з314:Д315  :Г 2up 10 cpi_╟
8P1│0:P2│ Б((432мL(A))о2):Р                     :Г 1up 12cpi`
9P1│0:P2│ Б((540мL(A))о2):ЕPL(Aл5)┤5з314:Д315  :Г 2up 12cpi`O
:P3│1:P4│ Б((456мL(Aл5))о2)л225:Бе316              :Г 2up 10cpi right`Ъ
;P3│2:P4│ Б((540мL(Aл5))о2)л66                       :Г 2up 12cpi right`╫
<ЕP4▓255 зP3│P3л1:P4│P4м255:Бе316 :ДР    :Г Fixes P3 & P4`■
=Т65496,.:АT│1е5:Бж109:З#м2,L$(T):Л12cpi`O
:P3│1:P4│ Б((456мL(Aл5))о2)л225:Бе316              :Г 2up 10cpi right`Ъ
;P3│2:P4│ Б((540мL(Aл5))о2)л66                       :Г 2up 12cpi right`╫
<ЕP4▓255 зP3│P3л1:P4│P4м255:Бе316 :ДР    :Г Fixes P3 & P4`■
=Т65496,.:АT│1е5:Бж109:З#м2,L$(T):Л"    ";:LOCATE31,20:PRINT"    ";:LOCATE14,12:PRINT"INPUT PAST END OF FILE. THIS FILE CONTAINS";LOF(1);"LABELS":LOCATE12,14:PRINT"OR NUMBER ENTERED FOR LAST LABEL < NUMBER FOR FIRST LABEL":ATTR3,2:RETURN
221 GOSUB181:LOCATE63,18:PRINT"    ":LOCATE63,20:PRINT"    ":LOCATE6,14:PRINT"YOU ENTERED A NON-ALPHABETICAL CHARACTER  -  OR 2ND INPUT < 1ST INPUT":RETURN
222 UNLOAD:WIDTH80:POKE65496,.:LOCATE32, FOR LAST LABEL < NUMBER FOR FIRST LABEL":ATTR3,2:RETURN
221 GOSUB181:LOCATE63,18:PRINT"    ":LOCATE63,20:PRINT"    ":LOCATE6,14:PRINT"YOU ENTERED A NON-ALPHABETICAL CHARACTER  -  OR 2ND INPUT < 1ST INPUT"                                                                                                                                                                                                                                                                 [P
:Г Config program for NON Radio Shack printers. (c) 1989 George Quellhorst└Т65497,.:Х2300:МPC$(14):ў:т80:у9,54:у10,27:у12,1:у2,1:Ю3:°3,2:Т&HF80F,0:Т&HF84F,0:Т&HF89C,0:Т140,185:в43350вЖ NLQ / 10 CPI ....... ,NLQ / 12 CPI ....... ,ITALIC ............. ,CANCEL ITALIC ...... ,ELONGATED .......... ,CANCEL ELONGATED ... ,PRINTHEAD POSITION . ,DATA PROCESSING MODE ,HALF LINEFEED ...... ,FULL LINEFEED ...... цЖ PRINTER BAUD RATE .. ,NP$,CP$,IT$,CI$,EL$,CE$,PP$,DP$,HL$,FL$∙Бж44:°2,2:ё4,4╓З"Input the appropiate printer codes for your printer separated by a comma":ё6,5:З"For example for the DMP130 you have to send CHR$(27);CHR$(66);CHR$(1)":ё13,6:З"To start ITALIC. Input this as 27,66,1 and press ENTER8ё3,23:°1,2:З"PRINTER BAUD RATE: 300=180 / 600=87 / 1200=41 / 2400=18 / 4800=7 / 9600=1";:°3,2b°3,2:П:АT│1е11:НA$:ё14,Tл8:ЗA$;":":ЛTБ	АT│1е10:ё37,Tл8:╗ЙPC$(T):Л┐
ё37,19:╗ЙBD$:Т150, Й(BD$):PC$(12)│"311 POKE150,"лBD$:Бж45фP$│ Т:ЕP$│"Y"з13:ДЕP$│"N"з12:Д11АT│1е11:ё37,Tл8:З:Л:ё1,21:З:Бе90
ЕPC$(8)│""зPC$(8)│PC$(1):Бж46:ДБж46═Ю:Бж44:°3,2:ё2,3:З б(76,45):°2,2:ё3,4:З"Now insert your ONE UP labels into the printer as instructed in the manual":ё29,6:З"PRESS ENTER WHEN READY":°3,22ё2,23:°1,2:З"If you do not have one/up or two/up labels press ENTER only for these inputs";:°3,2cP$│ Т:ЕP$│ Л(13)зТ65496,.:Бж53:°1,2:Бе17:Д16╦ё8,8:З"Enter 10 CPI number":ё28,8:°3,2:╗ЙX$(1):ё49,8:°1,2:З"Enter 12 CPI number":ё69,8:°3,2:╗ЙX$(2)cё2,9:°3,2:З б(76,45):ё3,10:°2,2:З"Now insert your TWO UP labels into the printer as instructed in the manual":ё29,12:З"PRESS ENTER WHEN READY":°3,2ЖP$│ Т:ЕP$│ Л(13)зБж55:Бе20:Д19ё5,14:°1,2:З"Enter FIRST 10 CPI number":ё31,14:°3,2:╗ЙX$(3):ё46,14:°1,2:З"Enter SECOND 10 CPI number":ё73,14:°3,2:╗ЙX$(5)Уё5,16:°1,2:З"Enter FIRST 12 CPI number":ё31,16:°3,2:╗ЙX$(4):ё46,16:°1,2:З"Enter SECOND 12 CPI number":ё73,16:°3,2:╗ЙX$(6):ё2,17:З б(76,45) 	ё2,19:°1,2:З"Enter 10 CPI character dot width":°3,2:ё35,19:╗ЙD1$:D1│ Й(D1$):D2│D1н2:D2$│ И(D2):ЕD1│0 зD1│12:D2│24 Аё42,19:°1,2:З"Enter 12 CPI character dot width":°3,2:ё75,19:╗ЙD3$:D3│ Й(D3$):D4│D3н2:D4$│ И(D4):ЕD3│0 зD3│12:D4│24 еЕ X$(1)│""зX$(1)│"33":X$(2)│"40" ▀ЕX$(3)│""зX$(3)│"36":X$(4)│"43":X$(5)│"43":X$(6)│"52" шБж45!P$│ Т:ЕP$│"Y"з28:Д1):NP$│NP$л"*":CP$│CP$л"*":IT$│IT$л"*":CI$│CI$л"*":EL$│EL$л"*":CE$│CE$л"*":PP$│PP$л"*":DE$│DE$л"*":P$(1)│NP$лCP$:P$(2)│IT$лCI$:P$(3)│EL$лCE$:P$(4)│DE$лPP$e╪┌рZ,34,13,P$(1),P$(2):рZ,34,14,P$(3),P$(4):рZ,34,15,BP$,D1$fe█Ю:ЕIN│6зё28,12:°1,2,B:З"NOW LOADING CATALOG/BAS":°3,2:╙"CATALOG/BAS",R :ДЕP│7 зё28,12:°1,2,B:З"NOW LOADING FORMLTR/BAS":╙"FORMLTR/BAS",RfЙ·:Г Put printer codes into A$(A)fо√A$(A)│DE$:Q(A)│D1:PL(A)│1:M│32:Рf╫№A$(A)│DE$лIT$:Q(A)│D1:PL(A)│2:M│32:Рg¤A$(A)│DE$лEL$:Q(A)│D2:PL(A)│3:M│16:Рg-■A$(A)│DE$лIT$лEL$:Q(A)│D2:PL(A)│4:M│16:РgV A$(A)│DE$лCP$:Q(A)│D3:PL(A)│5:M│36:РgГ
A$(A)│DE$лCP$лIT$:Q(A)│D3:PL(A)│6:M│36:Рg░

A$(A)│DE$лCP$лEL$:Q(A)│D4:PL(A)│7:M│18:Рgс
A$(A)│DE$лCP$лIT$лEL$:Q(A)│D4:PL(A)│8:M│18:Рh
:Г Calculate printhead position variableshL
P1│0:P2│ Б((X1мL(A))о2):Р                   :Г 1up 10cpihН
P1│0:P2│ Б((X3мL(A))о2):ЕPL(A)┤5з264:Д265  :Г 2up 10cpi lefth╩
P1│0:P2│ Б((X2мL(A))о2):Р                   :Г 1up 12cpii
P1│0:P2│ Б((X4мL(A))о2):ЕPL(A)┤5з264:Д265  :Г 2up 12cpi leftiQ
P3│X7:P4│ Б((X3мL(A))о2)лX5:Бе266              :Г 2up 10cpi rightiЩ
	P3│X8:P4│ Б((X4мL(A))о2)лX6                      :Г 2up 12cpi righti╙

ЕP4▓255 зP3│P3л1:P4│P4м255:Бе266 :ДР :Г Is P4 > 255 ?iў
Т65496,.:Щ"D",#1,FF$,240:FO│1:Рj-
█:RA│0:SP│0:RT│0:ES│0:K│0:IS│0:FO│0:Т65497,.:Бе10jb

█:т80:Т65496,.:ё32,11:°3,2:З"ALL FILES CLOSED":Кj╡
Ю:ё28,11:З"PROGRAM NOT YET FINISHED":ё24,13:З"PLEASE PRESS BREAK FOR MAIN MENUj└
Бе 280j▄
":Г Printer code module.jЄ
,NP$│ Л(27)л Л(18)k
-CP$│ Л(27)л Л(29)k$
.IT$│ Л(27)л Л(66)л Л(1)k@
/CI$│ Л(27)л Л(66)л Л(0)kV
0EL$│ Л(27)л Л(14)kl
1CE$│ Л(27)л Л(15)kВ
2PP$│ Л(27)л Л(16)kС
3DP$│ Л(19)kз
4HL$│ Л(27)л Л(28)k╜
5FL$│ Л(27)л Л(54)k╤
6DE$│NP$лCI$лCE$kт
7Т150,18:DM│0l
8X1│396:X2│480:X3│432:X4│516:X5│6:X6│114l6
9X7│2:X8│2:D1│12:D2│24:D3│12:D4│24:РмL(A))о2)л225:Бе266              :Г 2up 10cpi rightZ

	P3│2:P4│ Б((540мL(A))о2)л66                       :Г 2up CH$лCR$лCH$л Л(14):Q(A)│24:PL(A)│3:M│15:Р[q
0A$(A)│A1$лCH$лCR$лCH$л Л(66)л Л(1)лCH$л Л(14):Q(A)│24:PL(A)│4:M│15:Р[Ю
1A$(A)│A1$лCH$лHR$:Q(A)│12:PL(A)│5:M│36:Р[▄
2A$(A)│A1$лCH$лHR$лCH$л Л(66)л Л(A):Q(A)│12:PL(A)│6:M│36:Р\
3A$(A)│A1$лCH$лHR$лCH$л Л(14):Q(A)│24:PL(A)│7:M│18:Р\]
4A$(A)│A1$лCH$лHR$лCH$л Л(66)л Л(1)лCH$л Л(14):Q(A)│24:PL(A)│8:M│18:Р\Ж
5:Г Get printhead position variables.\╞
6P1│0:P2│ Б((360мL(A))о2):Р                     :Г 1up 10cpi]
7P1│0:P2│ Б((456мL(A))о2):ЕPL(Aл5)┤5з314:Д315  :Г 2up 10 cpi]F
8P1│0:P2│ Б((432мL(A))о2):Р                     :Г 1up 12cpi]Е
9P1│0:P2│ Б((540мL(A))о2):ЕPL(Aл5)┤5з314:Д315  :Г 2up 12cpi]╬
:P3│1:P4│ Б((456мL(Aл5))о2)л225:Бе316              :Г 2up 10cpi right^
;P3│2:P4│ Б((540мL(Aл5))о2)л66                       :Г 2up 12cpi right^V
<ЕP4▓255 зP3│P3л1:P4│P4м255:Бе316 :ДР    :Г Fixes P3 & P4^wшТ65496,.:АT│1е5:З#м2,L$(T):Л^}щС^Я╨Т65496,.:АT│1е10:З#м2,L$(T):Л2)л225:Бе316              :Г 2up 10cpi right^
;P3│2:P4│ Б((540мL(Aл5))о2)л66               riables._G
6P1│0:P2│ Б((360мL(A))о2):Р                     :Г 1up 10cpi_З
7P1│0:P2│ Б((456мL(A))о2):ЕPL(Aл5)┤5з314:Д315  :Г 2up 10 cpi_╟
8P1│0:P2│ Б((432мL(A))о2):Р                     :Г 1up 12cpi`
9P1│0:P2│ Б((540мL(A))о2):ЕPL(Aл5)┤5з314:Д315  :Г 2up 12cpi`O
:P3│1:P4│ Б((456мL(Aл5))о2)л225:Бе316              :Г 2up 10cpi right`Ъ
;P3│2:P4│ Б((540мL(Aл5))о2)л66                       :Г 2up 12cpi right`╫
<ЕP4▓255 зP3│P3л1:P4│P4м255:Бе316 :ДР    :Г Fixes P3 & P4`■
=Т65496,.:АT│1е5:Бж109:З#м2,L$(T):Л12cpi`O
:P3│1:P4│ Б((456мL(Aл5))о2)л225:Бе316              :Г 2up 10cpi right`Ъ
;P3│2:P4│ Б((540мL(Aл5))о2)л66                       :Г 2up 12cpi right`╫
<ЕP4▓255 зP3│P3л1:P4│P4м255:Бе316 :ДР    :Г Fixes P3 & P4`■
=Т65496,.:АT│1е5:Бж109:З#м2,L$(T):Л"    ";:LOCATE31,20:PRINT"    ";:LOCATE14,12:PRINT"INPUT PAST END OF FILE. THIS FILE CONTAINS";LOF(1);"LABELS":LOCATE12,14:PRINT"OR NUMBER ENTERED FOR LAST LABEL < NUMBER FOR FIRST LABEL":ATTR3,2:RETURN
221 GOSUB181:LOCATE63,18:PRINT"    ":LOCATE63,20:PRINT"    ":LOCATE6,14:PRINT"YOU ENTERED A NON-ALPHABETICAL CHARACTER  -  OR 2ND INPUT < 1ST INPUT":RETURN
222 UNLOAD:WIDTH80:POKE65496,.:LOCATE32, FOR LAST LABEL < NUMBER FOR FIRST LABEL":ATTR3,2:RETURN
221 GOSUB181:LOCATE63,18:PRINT"    ":LOCATE63,20:PRINT"    ":LOCATE6,14:PRINT"YOU ENTERED A NON-ALPHABETICAL CHARACTER  -  OR 2ND INPUT < )│24:PL(A)│4:M│15:Р[Ю
1A$(A)│A1$лCH$лHR$:Q(A)│12:PL(A)│5:M│36:Р[▄
2A$(A)│A1$лCH$лHR$лCH$л Л(66)л Л(A):Q(A)│12:PL(A)│6:M│36:Р\
3A$(A)│A1$лCH$лHR$лCH$л Л(14):Q(A)│24:PL(A)│7:M│18:Р\]
4A$(A)│A1$лCH$лHR$лCH$л Л(66)л Л(1)лCH$л Л(14):Q(A)│24:PL(A)│8:M│18:Р10,R$(1),R$(2):▀Z,34,11,R$(3),R$(4):▀Z,34,12,R$(5),R$(6):Y│ Й( О(R$(1),1)):АT│1е5:PR(T)│ Й( Р(R$(T),2,1)):R$(T)│ П(R$(T), З(R$(T))м2):ЕT┤│YзN│ Ю(1,R$(T),"\"):R$(T)│ О(R$(T),Nм1):ДR$(T)│S$S┬бЛ:РSЄвё15,16:З"1. LABEL# TO LABEL#";:ЕRT│1зRT│0:РT"гё47,16:З"2. LETTER TO LETTER";:ЕRT│1зRT│0:РTЕдё18,18:З"FIRST LABEL:";:ё18,20:З"LAST  LABEL:";:ё27,23:°5,2:З"PRESS BREAK FOR MAIN MENU";:°2,2Tнеё50,18:З"FROM LETTER:":ЕRT│1зRT│0:РT╧жё50,20:З"TO   LETTER:":°3,2:РTёзё33,14:З"PLEASE SELECT:";X$:РUеиё31,18:З"     ";:ё31,20:З"    ";:ё14,12:З"INPUT PAST END OF FILE. THIS FILE CONTAINS"; е(1);"LABELS":ё12,14:З"OR NUMBER ENTERED FOR LAST LABEL < NUMBER FOR FIRST LABEL":°3,2:РV!йё63,18:З"    ";:ё63,20:З"    ";:ё13,12:З"INPUT PAST END OF FILE. LAST LETTER IN THIS FILE IS <"; Р(D$(1),3,1)">":°3,2:РVЪкБж138:ё63,18:З"    ":ё63,20:З"    ":ё6,14:З"YOU ENTERED A NON-ALPHABETICAL CHARACTER  -  OR 2ND INPUT < 1ST INPUT":РVнлАT│1е1500:ЛT:РVым:Г Input printing specifications and calculate variables.W"нX$│"":B│5:т80:Бж156:ЕP│5▒P│6з191:ДЕFO│1з175:ДБж267WNо°1,2:Бж167:Бж138:°2,2:RT│0:Бж162:ё48,14WvпX$│ Т:ЕX$│"1"з176:ДЕX$│"2"з177:Д175Wа░°2,2:RT│1:Бж167:°1,2:Бж162:°3,2:Бе178W╩▒°2,2:RT│1:Бж167:°1,2:Бж163:°3,2:Бе181X▓°3,2:ё31,18:ЙL1$:L1│ Й(L1$):°2,2:RT│1:Бж165:ЕL1│0 зё31,18:З"      ";:Бж138:Бе178Xs│°3,2:ё31,20:ЙL2$:L2│ Й(L2$):°2,2:RT│1:Бж166:ЕL2│0зё31,20:З"      ";:Бж138:Бе179X└┤ЕL2▓ е(1)▒L1▓L2 зБж138:°2,2:Бж168:Бж171:°4,2:Бж168:°1,2:Бж167:Бе178:Д185YP╡ё63,18:ЙL1$:ё63,20:ЙL2$:Е К(L2$)┤ К(L1$)▒ К(L1$)┤65▒ К(L1$)▓90▒ К(L2$)┤65▒ К(L2$)▓90з°2,2:Бж170:°3,2:Бж171:°4,2:Бж170:°1,2:Бж167:°3,2:Бе181Yp╢ЕL2$┤▓"Z"зL2$│ Л( К(L2$)л1)Yї╖L1│0:L2│0:SR│1:Бж80:Т65496,.:АI│1е е(1):─#1,I:ЕL1│0 ░ Р(D$(1),3,1)│▓L1$зL1│I :ДЕL2$│"Z"зL2│ е(1):ДЕL2│0 ░ Р(D$(1),3,1)│▓L2$зL2│IZM╕ЛI:ЕL1│0 зБж138:Бж169:Бж171:°4,2:Бж169:Бе181 :ДЕL2│0 зL2│ е(1) :ДЕL2┤▓ е(1)зL2│L2м1Z{╣ЕP┤5зSR│1:Бж80:─#1,L1:L3│L1:L1│L1л1:L4│L1[║W1│ Й( О(D$(1),1)):АT│1е5:L$(T)│D$(T):D$(T)│"":PL(T)│ Й( Р(L$(T),2,1)):L$(T)│ П(L$(T), З(L$(T))м2):ЕT┤│W1зN│ Ю(1,L$(T),"\"):L$(T)│ О(L$(T),Nм1):ДL$(T)│S$[i╗Л:N│ Ю(1,L$(1),","):ЕN│0з188:ДL$(1)│ П(L$(1), З(L$(1))мN)л" "л О(L$(1),Nм1)\╝ЕL1▓L2 зАT│6е10:L$(T)│"":Л:K│1:Бе191:ДЕ(ES│1▒IS│1)░TU│2 зW2│W1:АT│1е5:L$(Tл5)│L$(T):PL(Tл5)│PL(T):Л:Бе193:ДЕTU│1 зАT│6е10:L$(T)│"":Л:Бе192:ДЕP│1з191\╒╜ЕP┤▓4 з191:ДSR│1:Бж80:─#1,L1:Т65497,.:L1│L1л1:W2│ Й( О(D$(1),1)):АT│1е5:A│Tл5:L$(A)│D$(T):D$(T)│"":PL(A)│ Й( Р(L$(A),2,1)):L$(A)│ П(L$(A), З(L$(A))м2):ЕT┤│W2 зN│ Ю(1,L$(A),"\"):L$(A)│ О(L$(A),Nм1):ДL$(A)│S$]%╛Л:N│ Ю(1,L$(6),","):ЕN│0з192:ДL$(6)│ П(L$(6), З(L$(6))мN)л" "л О(L$(6),Nм1)]л┐ЕP┤4зW2│Y:АT│1е5:L$(Tл5)│R$(T):PL(Tл5)│PR(T):Л:ДЕP│5▒P│6зW1│Y:W2│Y::АT│1е5:L$(T)│R$(T):L$(Tл5)│R$(T):PL(T)│PR(T):PL(Tл5)│PR(T):ЛT^#└ЕIS│1▒ES│1з193:ДЕP│2▒P│5зB│5:Бж144:АT│1е5:B│Bл1:ё21,B:ЗL$(T):Л:ДB│5:Бж144:АT│1е5:B│Bл1:ё0,B:ЗL$(T):ё42,B:ЗL$(Tл5):Л^■┴ЕW1│1зL$(3)│L$(1):PL(3)│PL(1):L$(1)│S$:PL(1)│1:ДЕW1│2зL$(4)│L$(2):PL(4)│PL(2):L$(2)│L$(1):PL(2)│PL(1):L$(1)│S$:PL(1)│1:ДЕW1│3зL$(4)│L$(3):PL(4)│PL(3):L$(3)│L$(2):PL(3)│PL(2):L$(2)│L$(1):PL(2)│PL(1):L$(1)│S$:PL(1)│1_ь┬ЕW2│1зL$(8)│L$(6):PL(8)│PL(6):L$(6)│S$:PL(6)│1:ДЕW2│2зL$(9)│L$(7):PL(9)│PL(7):L$(7)│L$(6):PL(7)│PL(6):L$(6)│S$:PL(6)│1:ДЕW2│3зL$(9)│L$(8):PL(9)│PL(8):L$(8)│L$(7):PL(8)│PL(7):L$(7)│L$(6):PL(7)│PL(6):L$(6)│S$:PL(6)│1:L$(10)│S$:PL(10)│1`├АT│1е10:ЕPL(T)│0зPL(T)│1:Л:ДЛ`|─АA│1е10:ИPL(A)Бж251,252,253,254,255,256,257,258,251,252,253,254,255,256,257,258:L(A)│ Б( З(L$(A))нQ(A)):Л`█┼АA│1е10:ЕTU│1░PL(A)┤5зБж260:ДЕTU│2░PL(A)┤5зБж261:ДЕTU│1░PL(A)▓4зБж262:ДЕTU│2░PL(A)▓4зБж263a>╞ЕA┤6▒TU│1зL$(A)│A$(A)лPP$л Л(P1)л Л(P2)лL$(A):ЛA:ДЕTU│2зL$(A)│A$(A)лPP$л Л(P3)л Л(P4)лL$(A):ЛAaФ╟ЕP▓4зё13,16:°1,2:З"HOW MANY RETURN ADDRESS LABELS DO YOU WANT TO PRINT":°3,2:Д201a╜╚ё38,18:Й"";M1:RA│1:M1│ Б((M1оTU)л.5)a▐╔ЕRA│1▒ES│1▒IS│1зMP│1:АS│1еM1a■╩:Г Print labels to printer.b╦Т65496,.:З#м2,DP$;:ЕTU│1з208bП╠ЕW1│4░W2│4зЗ#м2:З#м2,HL$:З#м2,FL$;:АT│1е4:З#м2,L$(T);L$(Tл5):ЛT:З#м2,HL$:З#м2,FL$;:ЕMP│1зЛS:MP│0:Бе214:Д214b┘═ЕW2│4зЗ#м2:З#м2,HL$;:АT│1е5:З#м2,L$(T):З#м2,L$(Tл5):Л:З#м2,FL$;:Бе214c#╬ЕW1│4зЗ#м2:З#м2,HL$;:АT│1е5:З#м2,L$(Tл5):З#м2,L$(T):Л:З#м2,FL$;:Бе214ca╧З#м2:АT│1е5:З#м2,L$(T);L$(Tл5):Л:ЕMP│1зЛS:MP│0:Бе214:Д214cИ╨ЕW1│4зU│1:V│4:Бж212:ДU│1:V│5:Бж213cи╤Е(ES│1▒IS│1)з211:ДЕP┤▓1з211c╨╥ЕW2│4зU│6:V│9:Бж212:ДU│6:V│10:Бж213cэ╙ЕMP│1зЛS:MP│0:Бе214:Д214d-╘З#м2,HL$:З#м2,FL$:АT│UеV:З#м2,L$(T):ЛT:З#м2,HL$:З#м2,FL$;:РdM╒З#м2:АT│UеV:З#м2,L$(T):ЛT:Рd~╓ЕES│1зES│0:°4,2:Бж135:Бж127:ЕI│ е(1)з98:Д105d╡╫ЕIS│1зIS│0:RT│0:IN$│"":Т65497,0:ЕSP│1зA│0:Бе82:Д25d╫╪ЕRA│1 з268:ДЕL1┤│L2 з185:Д268eЩ┘Ю:Т65496,.:BP$│ И( Ж(150)):D1$│ И(D─#1,I:Т65497,.:АT│1е6:L$(T)│"":R$(T)│"":ЛT:SR│1:Бж80:°2,2:Бж143:АT│1е6:L$(T)│D$(T):ЛTBcW1$│ О(L$(1),1):W1│ Й(W1$):B│5:ё36,5:°2,2:З"PRC";:°3,2:АT│1е6:PL$(T)│ Р(L$(T),2,1):PL(T)│ Й(PL$(T)):L$(T)│"["л П(PL$(T),1)л"] "л П(L$(T), З(L$(T))м2):X│36:B│Bл1:ёX,B:ЗL$(T):ЛTBEdЕI│ е(1)зё41,3:°1,2,B:З"L A S T   L A B E L";:°3,2:Бж138BaeЕLL│1зLL│0:Бе102:ДБж127BяfЕ Ж(343)│247з103:ДЕ Ж(344)│247з104:ДP$│ Т:ЕP$│"E"зES│1:Бе107:ДЕP$│"D"з110:ДЕP$│"P"зES│1:Бж135:°1,2,B:Бж149:Бж137:Бе85:ДЕP$│ Л(3)з268:Д102CgЕI│┤1зI│ е(1):Бе98:ДLL│1:I│Iм1:Бе98C-hЕI│ е(1)зI│1:Бе98CAiI│Iл1:LL│1:Бе98Cnj:Г Set up to edit label and goto editor.DkSP│1:B│5:C│1:АT│1е6:B│Bл1:PL$(T)│ Р(L$(T),2,1):PL$(T)│ П(PL$(T),1):L$(T)│ П(L$(T), З(L$(T))м4):N│ Ю(1,L$(T),"]"):L$(T)│ О(L$(T),N):X│40:ёXм4,B:З"[";PL$(T);"]";:ЛDll°4,2:Бж143:°1,2,B:Бж130:Бж135:Бж132:Бж146:W1│0:DL│1:X│40:B│6:C│(Bм5):ёX,B:З"";:Бе50DЗm:ГDelete a mixed labelEnТ65496,.:ё36,3:°2,2,B:З"NOW DELETING LABEL NUMBER";I;:°3,2:╨#1,240 зQF$:JJ│1:Щ"D",#2,"TEMP/DAT",240:╨#2,240 зEF$:АY│1е е(1):ЕY│I з112E3o─#1,Y:╘EF$│QF$:┼#2,JJ:JJ│JJл1EgpЛY:█:FO│0:ё36,3:З б(26,32):╥FF$:╓"TEMP/DAT"еFF$EЛqЕFO│1з114:ДБж267:ЕI▓ е(1)зI│Iм1E┤rSR│1:Бж143:─#1,I:Бж134:Т65497,.:Бе98E╞s:ГAlphabetizeFitт80:Т41598,255:ё24,7:°1,2:З"S O R T I N G    T H E   F I L E";:ё24,8:З б(32,42):°3,2:ё26,11:З"1. SORT FILE BY LAST NAME":ё26,14:З"2. ABORT. BACK TO MAIN MENU"FФuAP$│ Т:ЕAP$│"1"з118:ДЕAP$│"2"з268:Д117F▓vТ65496,.:ЕFO│1з119:ДБж267GSwЮ:╨#1,240 зWW$:ё24,8:°1,2:З"N O W   A L P H A B E T I Z I N G";:LO│ е(1):ё26,11:З"THIS FILE CONTAINS";LO;"LABELS":ё29,14:°2,2:З"P L E A S E   W A I T";:°3,2G╝xАI│2е е(1):АJ│1е(Iм1):ё36,17:ЗI;" ";J;:─#1,I:WX$│WW$:WY$│ Р(WX$,3,40):─#1,J:NC$│WW$:NE$│ Р(NC$,3,40)GчyЕNE$▓WY$з╘WW$│NC$:┼#1,I:╘WW$│WX$:┼#1,JG·zЛ J,I:Т41598,3H6{Бж138:ё35,20:°1,2,B:З" D O N E";:Бж171:°3,2:Бж138:Бе268HR|:Г Screen print gosubs.Hю}ё41,15:З"RETURN ADDRESS PREVIOUSLY INPUTTED":Бж138:ё49,17:З"DO YOU WISH TO CHANGE":ё46,19:З"YOUR PRESENT RETURN ADDRESS":ё53,21:З"<Y>ES OR <N>O":°3,2:РI-~ё41,3:З б(32,32):ё41,3:°1,2:З"INPUT RETURN ADDRESS":°3,2:РI╧ё50,14:°1,2,B:З" P R E S S";:ё36,16:°2,2:З"LEFT/RIGHT ARROW FOR NEXT/PREVIOUS LABEL";:ё46,18:°1,2:З"[D] TO DELETE "; Л(253);:ё46,19:З"[E] TO EDIT..."; Л(253)JАё46,20:З"[P] TO PRINT.."; Л(253):ё63,19:З"THIS LABEL";:Бж134:РJAБё4,3:З"SELECT PRINTER CODE LINE";C;:°3,2:РJjВё41,3:З"INPUT LINE NUMBER";C;:°3,2:РJЩГё4,3:З"SELECT SINGLE PRINTER CODE";:°3,2:РK3Дё54,13:°1,2:З"P R E S S":ё42,15:°2,2:З"ARROWS: TO MANIPULATE CURSOR":ё42,16:З"CLEAR : TO CLEAR INPUT WINDOW":ё42,17:З"[ F1 ]: TO PRINT OR SAVE LABEL"K║Её42,18:З"[ F2 ]: TO TOGGLE BETWEEN  CODE":ё50,19:З"SELECTOR / INPUT WINDOW":ё42,20:З"[CTRL]: FOR SINGLE PRINTER CODE":°5,2:Бж134:РKюЖё44,22:°5,2:З"PRESS BREAK FOR MAIN MENU":°3,2:РLЗАT│13е22:ё36,T:°4,2:З б(39,32):ЛT:°3,2:РLЕИ°1,2,B:Бж148:ё44,15:З"1. SAVE  LABEL / INPUT NEXT";:ё44,16:З"2. PRINT LABEL / INPUT NEXT";:°1,2:Бж149MЙё44,18:З"1. PRINT LABEL / ONE UP";:ё44,19:З"2. PRINT LABEL / TWO UP";:ё44,20:З"3. HOW MANY..../ >";:ё46,22:°5,2:З"PRESS BREAK FOR MAIN MENU":°3,2:РM/КАT│1е10:в:Л:РMfЛё44,15:°2,2:З"1. SAVE  LABEL / INPUT NEXT";:°3,2:РMЭМё44,16:°2,2:З"2. PRINT LABEL / INPUT NEXT";:°3,2:РM╘Нё44,18:°2,2:З"1. PRINT LABEL / ONE UP";:°3,2:P│1:РNОё44,19:°2,2:З"2. PRINT LABEL / TWO UP";:°3,2:P│3:РN.Пё41,3:З"LABEL NUMBER";I:°3,2:РN╔РLB$│"PRINTING LABEL NUMBER":RT$│"PRINTING RETURN ADDRESS":ЕP│2зё21,4:°1,2:ЗLB$;L3:°3,2:Р:ДЕP│4зё0,4:°1,2:ЗLB$;L3:ЕK│1з°3,2:Р:Дё42,4:K│0:ЗLB$;L4:°3,2:РO>СЕP│1▒P│3зё0,4:°1,2:ЗLB$;L3:ё42,4:ЗRT$:°3,2:Р:ДЕP│5зё21,4:°1,2:ЗRT$:°3,2:Р:ДЕP│6зё0,4:°1,2:ЗRT$:ё42,4:ЗRT$:°3,2:РOxТё40,13:°1,2:З"EDITING LABEL NUMBER";I;"PRESS";:°3,2:РOЩУБж138:Бж135:Бж127:LL│1:Бе104O╝Фё47,14:З"PLEASE SELECT":°3,2:РO▀Хё47,17:З"PLEASE SELECT":°3,2:РPЦё8,4:З"M A I N   M E N U";:°3,2:РP2Чё48,4:З"P R I N T E R   M E N U";:°3,2:РPЫШё1,22:°2,2:З"PRESS NUMBER DESIRED / SPACEBAR TO TOGGLE MENU'S  /  CTRL TO CLOSE FILES - END";:°3,2:РQЩё45,14:°1,2:З"LOCATE LABEL BY LAST NAME":ё45,16:°3,2:З"ENTER SMALLEST NUMBER OF":ё45,18:З"SIGNIFICANT CHARACTERS":РQSЪё45,20:З"[ LAST NAME FIRST ]":ё45,22:°4,2:З б(32,32):°3,2:РQдЫё40,19:°3,2:З Л(252);:ё45,19:З"7. PROCESS A FORM LETTER";:ё78,19:З Л(252);:РRwЬЕP│1зQ$│"1 UP AND RETURN ADDRESS":ДЕP│2зQ$│"1 UP NO RETURN ADDRESS":ДЕP│3зQ$│"2 UP AND RETURN ADDRESS":ДЕP│4зQ$│"2 UP NO RETURN ADRESS":ДЕP│5зQ$│"1 UP RETURN ADDRESS ONLY":ДЕP│6зQ$│"2 UP RETURN ADDRESS ONLYR╬ЭQ$│"PRINT LABELS:  "лQ$:L│ Б((80м З(Q$))о2):ёL,0:°2,2:ЗQ$:ёL,1:З б( З(Q$),42):°3,2RюЮИPБе160,159,160,159,160,160RЇЯРS║а▀Z,34,Л/Gё5,22:°5,2:З"PRESS NUMBER DESIRED";:°3,2:АT│3е22:ё33,T:З Л(252);:Л/╨W$│"[ ]":АT│1е6:L$(T)│ П( И(T),1)л б(35,127)л" ]":ЛT:ё36,5:°2,2:З"PRC";:°3,2:X│36:B│5:АT│1е6:B│Bл1:ёX,B:ЗW$;" ";L$(T):Л:ЕRT│1зRT│0:Р/·ЕIN$│"2"з91:ДЕIN$│"3"з94:ДЕIN$│"4"з280=C│1:Бж135:Бж132:ЕSP│1з°4,2:Бж129:Бе32:ДЕSP│0з°1,2,B:Бж129:Бе320ВZ│ Ж(235):▀Z,17,2,A$,B$:Е Р(A$,68,1)│ Л(201)з°1,2:Бж125:Бе29:Д300иP$│ Т:ЕP$│"Y"з30:ДЕP$│"N"з268:Д291RA│1:C│1: Р(A$,68,1)│ Л(201):рZ,17,2,A$,B$:°2,2:Бж126:°4,2:Бж125:Бж132:°1,2,B:Бж1291":Г Get printer codes routine.19 ЕSP│1з49:ДЕC▓6зC│61S!A│C:IN$│ Т:ЕIN$│""з331Ж"Е Ж(344)│191░RT│0з°4,2:Бж129:°1,2,B:Бж130:Бе491╔#Е Ж(344)│191░RT│1з°4,2:Бж129:°1,2,B:Бж130:ё40,B:З"";:RT│0:Бе502$Е Ж(342)│191зSP│1:A│0:°4,2:Бж129:°1,2,B:Бж131:Бе452/%:Г This line reserved for DMP110 use only.2c&ЕIN$│ Л(12)зX│40:C│1:B│6:°1,2,B:Бж129:RT│1:Бж252к'Е Й(IN$)┤1▒ Й(IN$)▓8з32:ДИ Й(IN$)Бж251,252,253,254,255,256,257,2582╞(°4,2:Бж129:°1,2,B:Бж13033)W$│"["л П( И(PL(C)),1)л"]":L$(C)│ б(M,127)л" ]":ё36,Cл5:ЗW$;" ";L$(C):ЕRT│1зRT│0:X│40:ёX,B:З"";:Бе50:Д493k*:Г Select single printercode for part of the label.3╟+D│C:АS│D е6:W$(S)│"[ ]":L$(S)│ П( И(S),1)л б(35,127)л" ]":ё36,Sл5:ЗW$(S);" ";L$(S):ЛS:Р3·,:Г Select single printercode for entire label.4\-IN$│ Т:ЕIN$│""▒ Й(IN$)┤1▒ Й(IN$)▓8з45:ДИ Й(IN$)Бж251,252,253,254,255,256,257,258:ЕSP│1зM(0)│M4|.C│1:°4,2:Бж131:°1,2,B:Бж1305/M│M(0):АT│1е6:Q(T)│Q(A):PL(T)│PL(A):W$(T)│"["л П( И(PL(T)),1)л"]":L$(T)│ П( И(T),1)л б(Mм1,127)л" ]":ё36,Tл5:ЗW$(T);" ";L$(T):ЛT:ЕSR│1зSR│0:Р5 0:Г The Editor5?1X│40:B│6:C│(Bм5):ёX,B:З"";5S2P$│ Т:ЕP$│""з505Л3в:Е Ж(343)│191зSR│0:C│6:ЕW1│0 ░ DL│0 зW1│5:Бе72:Д725▌4Е Ж(344)│191зRT│1:SR│0:SP│0:ё41,3:°4,2:Бж130:°1,2,B:Бж129:ЕDL│0зБж43:Бе32:Д3265Е Ж(342)│191зSP│1:A│0:°4,2:Бж130:°1,2,B:Бж131:Бе456L6Е(Xм40)│ З(L$(C))м2░P$┤▓ Л(13)░P$┤▓ Л(8)зБж138:Бе506Ь7ЕP$│ Л(9)зX│Xл1:C│(Bм5):Е(Xм40)│ З(L$(C))м2зX│40:B│Bл1:ЕB▓11зB│11:ёX,B:Бе506╗8ЕP$│ Л(8)зX│Xм1:ЕX┤40зX│406ь9ЕP$│ Л(10)зX│40:LN│1:B│Bл1:C│(Bм5):ЕB▓11зB│67:ЕP$│ Л(94)зX│40:LN│1:B│Bм1:C│(Bм5):ЕB┤6зB│117K;ЕLN│1зLN│0:C│(Bм5):ёX,B:З"";:°1,2,B:Бж1307Е<ЕP$│ Л(8)▒P$│ Л(9)▒P$│ Л(10)▒P$│ Л(94)зёX,B:З"";:Бе507д=C│(Bм5):ёX,B:L│ З(L$(C))м27ь>ЕP$│ Л(12)зSP│0:X│40:B│6:C│1:°4,2:Бж130:°1,2,B:Бж129:RT│1:Бж25:Бе338?ЕP$│ Л(13)зP$│ Л(92):ё40,Bл1:З"";8I@ Р(L$(C),(Xм39),1)│P$:ёX,B:ЗP$;:ё40,B:ЗL$(C):X│Xл18│AЕ Р(L$(C),(Xм40),1)│ Л(47)зX│Xл1: Р(L$(C),(Xм40),1)│ Л(92):ё40,B:ЗL$(C):W1│Cм1:B│11:C│6:X│40:U│1:Бе678°BЕ Р(L$(C),(Xм40),1)│ Л(92)зU│1:B│Bл1:C│(Bм5):X│40:ЕB▓11зB│11:C│69,CЕU│1░SP│0зU│0:RT│1:°4,2:Бж130:°1,2,B:Бж129:Бе329UDЕU│1░SP│1зU│0:°1,2,B:Бж130:ёX,B:Бе509МEЕP$│ Л(9)░(Xм40)│ З(L$(C))м2зX│40:B│Bл1:ЕB▓11зB│119ЯFёX,B:З"";:Бе509┌G:Г Create disk file and print to screen before saving.:7HB│5:°4,2:Бж129:°4,2:Бж130:ЕDL│1 ░W1│0 зАT│1е5:Е О(L$(T),1)│"/"зW1│Tм1:Бе73:ДЛ:ЕW1│0зW1│5;IW1$│ П( И(W1),1):АT│1е6:R$(T)│ б( З(L$(T))м2,127)л" ]":N│ Ю(1,L$(T),"\"):N$│ О(L$(T),N):R$(T)│N$л П(R$(T), З(R$(T))м З(N$)):PL$(T)│ И(PL(T)):PL$(T)│ П(PL$(T),1):L$(T)│W1$лPL$(T)лR$(T):R$(T)│"["лPL$(T)л"] "лR$(T);XJB│Bл1:ё40,B:З б(38,32);:ё36,B:ЗR$(T);:ЛT:ЕDL│1з80:ДБж135:Бж136:Бж138;┐KЕRA│1зRA│0:Т65496,.:Z│ Ж(235):рZ,34,10,L$(1),L$(2):рZ,34,11,L$(3),L$(4):рZ,34,12,L$(5),L$(6):Бе268;ёLG$│ Т:G│ Й(G$):ЕG┤1▒G▓2▒G$│""з76:ДИGБж139,140; MИGБе78,85<NЕFO│1з79:ДБж267</OI│ е(1):ЕI│0зI│1:ДI│Iл1<ЙP╨#1,40 зD$(1),40 зD$(2),40 зD$(3),40 зD$(4),40 зD$(5),40 зD$(6):ЕSR│1зSR│0:Т65497,.:Р<ъQ╘D$(1)│L$(1):╘D$(2)│L$(2):╘D$(3)│L$(3):╘D$(4)│L$(4):╘D$(5)│L$(5):╘D$(6)│L$(6):┼#1,I:Т65497,.=@RЕSP│1░ES│0 зDL│0:C│1:RT│0:SR│1:Бж47:°1,2,B:Бж130:Бе27:ДЕDL│0зRT│0:C│1:IN$│"":Бе25=ЩSЕDL│1зDL│0:SP│0:ES│0:F│I:C│1:АI│F е е(1):Бж135:°4,2:Бж129:°4,2:Бж130:°2,2:Бж143:Бе98=╝T:Г Print label without saving.=ЁUЕES│1зБж138:Д°3,2:IS│1:Бж148:°1,2,B:Бж149:Бж138>)VTU$│ Т:TU│ Й(TU$):ЕTU┤1▒TU▓2▒TU$│""з86:ДИTUБж141,142>ОW°3,2:Бж149:ё44,20:°1,2:Бж138:╗Й"6. HOW MANY..../ >  ";M1$:°3,2:M1│ Й(M1$):ЕTU│2зM1│ Б((M1о2)л.5)>╠XL1│0:L2│0:ё46,22:°2,2,B:З" N O W   P R I N T I N G";:°3,2> YЕES│1з186:ДАT│1е5:D$(T)│L$(T):L$(T)│"":Л:Бе186?"Z:Г Find specific label number.?а[°2,2:Бж138:ё40,13:З"PLEASE INPUT LABEL NUMBER":°3,2:ё66,13:╗Й"";LB$:LB│ Й(LB$):ЕLB│0зё66,13:З"   ";:Бе91:ДЕFO│1з92:ДБж267@+\°4,2:Бж135:I│LB:ЕI▓ е(1)зБж138:°1,2,B:ё44,13:З"INPUT PAST END OF FILE":ё42,15:°3,2:З"THIS FILE CONTAINS"; е(1);"LABELS":Бж171:Бе91:Д98@F]:Г Find specific name.@Z^ЕFO│1з95:ДБж267@Х_SR│1:Бж80:Бж153:Бж154:ё44,22:°3,2:╗Й" ";NL$:L1│ З(NL$)@╓`АLB│1е е(1):─#1,LB:ЕNL$┤│ Р(D$(1),3,L1)зI│LB:°4,2:Бж135:Бе98@ёaЛLB:I│ е(1):Бж135:Бе98ATbТ65496,.: O:&N
:Г First version 02/08/1987. Redone 04/28/1989. to 07/05/1989 ** 4:00 pm&▐█:Т65497,.:└1:Х2300:╤2,1000:Бж300:ў:ST$│ б(32,32):т80:у9,54:у10,27:у12,1:у2,1:Ю3:°3,2:Т&HF80F,0:Т&HF84F,0:Т&HF89C,0:Т140,185:в43350:ИЁБе268'╚Ж 1. INPUT NEW / ADDITIONAL LABELS,1. 1 UP / AND RETURN ADDRESS,2. FIND SPECIFIC LABEL NUMBER,2. 1 UP / NO RETURN ADDRESS,3. FIND SPECIFIC NAME,3. 2 UP / AND RETURN ADDRESS,4. INPUT YOUR RETURN ADDRESS,4. 2 UP / NO RETURN ADDRESS(гЖ 5. SORT BY LAST NAME,5. 1 UP / RETURN ADDRESS ONLY,6. PRINT MASTER MAILING LIST,6. 2 UP / RETURN ADDRESS ONLY,7. FILENAME,7. PROCESS A FORM LETTER,1. NORMAL..................<32>,,2. NORMAL ITALIC...........<32>,)oЖ 3. NORMAL ELONGATED........<16>,,4. NORMAL/ELONGATED/ITALIC.<16>,,,5. ELITE...................<36>,,6. ELITE/ITALIC............<36>,,7. ELITE ELONGATED.........<18>,,8. ELITE/ELONGATED/ITALIC..<18>*
S$│ б(15,32):Z│ Ж(235):▀Z,17,2,A$,B$:Е Р(A$,68,1)│ Л(200)▒ Р(A$,68,1)│ Л(201)з10:ДЕ Р(A$,68,1)│ Л(255)з Р(A$,68,1)│ Л(200):рZ,17,2,A$,B$:Бе10*░Ю:З"GRANULE 67 ON THIS DISK IS PART OF AN EXISTING FILE":З:З"SINCE YOUR RETURN ADDRESS IS STORED ON THIS GRANULE":З:З"THIS DISK CANNOT BE USED TO RUN THE LABEL PROCESSOR"*ёЗ:З"PREPARE A NEWLY FORMATTED DISK AND RUN THIS PROGRAM":З:К+	:Г Main menu.+Я
т80:U$│ Л(252):°1,2:ё17,0:З"D E L U X E   L A B E L   P R O C E S S O R":ё17,1:З б(43,42):°2,2:Бж150:°2,2:Бж151:АT│7е19:ё1,T:ЗU$:ё40,T:ЗU$:ё78,T:ЗU$;:Л+╒П:J│5:АT│1е7:J│Jл2:НA$:ё5,J:ЗA$;:НA$:ё45,J:ЗA$;:Л,ЕFF$│""зБж152:Бе13:Дё18,19:°2,2:ЗFF$;:°2,2,B:Бж150:Бж152:Бе15,│
ё5,19:°4,2:ЗST$;:ё5,19:°3,2:З"7.";:ё8,19:°2,2,B:З"FILENAME:";:ё18,19:Бж138:°3,2:╗ЙFF$:ЕFF$│""зFF$│"LABEL":ДЕ З(FF$)▓8зё8,19:°4,2:ЗST$;:Бж155:Бж138:Бе13-FF$│FF$л"/DAT":ё8,19:°3,2:З"FILENAME:":ё18,19:°2,2:ЗFF$;:°2,2,B:Бж150:Бж155-ZIN$│ Т:IN│ Й(IN$):ЕIN$│" "з16:ДЕ Ж(342)│191з269:ДИIN Бе20,20,20,20,116,217,13:Бе15-v°2,2:Бж150:°2,2,B:Бж151-тP$│ Т:P│ Й(P$):ЕP$│" "з18:ДЕ Ж(342)│191з269:ДЕP┤1▒P▓7з17:ДЕP│7з217:ДЕP│1▒P│2▒P│5зTU│1:Бе173:ДTU│2:Бе173.°2,2:Бж151:°2,2,B:Бж150:Бе15.+:Г Draw main input and edit screen..Хт80:ё6,0:°2,2:З"L A B E L   P R O C E S S O R   /   P R I N T E R   -   E D I T O R";:ё6,1:З б(67,42).─П:АT│1е14:НA$:Л:J│4:АT│1е16:J│Jл1:НA$:ё1,J.·ЕDM│1 ░ T│12 ▒ DM│1 ░ T│16 з°2,2:ЗA$; :Д °3,2:ЗA$/ T&R
:ГREADME.BAS (c) 1988 A.S.Hallock. Revised 07/13/1989 (c) George Quellhorst.&╨ў:т40:Х1000:у2,1:у10,27:Ю3:°2,2:Т65434,1:Т&HF80F,0:Т&HF84F,0:Т&H89C,0:З:З:З"README/BAS Courtesy of Arthur S. Hallock":З:З'kТ&HA27E,&HFF:Т&HA27F,&HFF:З:З"    This program is designed to print":З:З"        a MESSAGE  to your screen":З:З"       using the Color Computer III":З'эЗ:З:З"     Touch SPACEBAR to start program":З:З:З"        Touch SPACEBAR to resume":З:З:З"       after reading a full screen"(I$│ Т:ЕI$│" "з6 :Д5()у0,1:у1,63:ф4:Т65434,1:ч1,0:L│1(BЩ"I",#1,"README/DAT"(QЕL│▓23 з10(Ы	Е М(1) з11 :Д╗Й#1,A$:Е З(A$)┤2 зA$│"":L│Lл1:Бе8 :Дю(0,L),A$:L│Lл1:Бе8(├
I$│ Т:ЕI$│"" з10 :ДL│0:ц0:L│Lл1:Бе8(·Ъ:ю(0,Lл3),"All Done>  Tap any key for DOS":а200,5)I$│ Т:ЕI$│""з12)S
т40:ў:Ю1:Т&HA27E,3:Т&HA27F,3:З:З"Thank you for using READme.BAS"Е М(1) з11 :Д╗Й#1,A$:Е З(A$)┤2 зA$│"":L│Lл1:Бе8 :Дю(0,L),A$:L│Lл1:Бе8(├
I$│ Т:ЕI$│"" з10 :ДL│0:ц0:L│Lл1:Бе8(·Ъ:ю(0,Lл3),"All Done>  Tap any key for DOS":а200,5)                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    ┴ ╚─#┼%&─()*+╔┬┬╟                   ╔╚          DOS BOOTDAT
 B
18-Oct-89 15:28README  BAS!WREADME  DAT
 "рLABELPRCBAS =18-Oct-89 15:31CATALOG BAS$AFORMLTR BAS'эCONFIG  BAS^DMP110  BAS ,╜DMP130  BAS -║PRINTME BAS.                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                


                     **********************************
                                                       
                              LABEL PROCESSOR          

                     CATALOG / PHONE LIST / FORMLETTER 

                                 PRINTER               
                                                       
                     FOR THE COLOR COMPUTER III AND THE
                     DMP110 / DMP130 / DMP130A / DMP132
                                 PRINTERS              
                                                       
                                                       
                         AN  "HONOR WARE"  PRODUCT     
                                                       
                     **********************************





    Dear Prospective Customer,

    Due to the tremendous increase in the price of advertising and the price of
printing manuals, we are trying out a radically new marketing technique

    This program has  been shipped to you FREE of charge without any obligation
on your part whatever. It was shipped so to speak on the "HONOR" system, if you
don't like this program,  or you have no use for it,  you do not owe us a single
cent. You won't even have to bother sending the program back to us

    However,  we would appreciate it if  you could give  this program to every
single person you know that might have a use for it.  WE ALSO REQUEST THAT YOU
LEAVE THIS LETTER ON THE DISK.  Because in order for this "SYSTEM" to work, we
the programmers,  have to rely on the voluntary distribution of this and other
similar programs to make a living.

    Here's how it works: Regardless of how and were you obtained this program,
whether it was shipped to you directly by the programmers or you got it from a
friend or relative, you got it absolutely for FREE.



    This program took months and months to develop and test,  and a lot of time
and effort was spent trying to present you with a GOOD and HIGH QUALITY program
    Therefore we, have to rely on your honor to make a living, doing what we do
best, writing high quality programs for the COLOR COMPUTER III

    Therefore,  if you like this program and have a use for it, we respectfully
request that you send us a check in the amount of $20.00 so that we may recover
the cost of  mailing these programs out to you,  and perhaps allow us to make a
few pennies on the side and feed our families

 IF THIS TURNS OUT TO BE A SUCCESSFULL WAY OF MARKETING OUR PROGRAMS, YOU CAN
  LOOK FORWARD TO MANY MORE GOOD, BUT CHEAP PROGRAMS FOR YOUR COLOR COMPUTER

    We wrote a very good and comprehensive manual for the programs on this disk
complete with an index and a table of contents.  All you have to do is LOAD the
program on the disk called PRINTME/BAS, TURN THE DISK OVER and press RUN-ENTER.
    This program will give you instructions  "ON THE SCREEN" telling you how to
print the manual.  This manual can be printed on ALL printers regardless of the
make or model of your printer.






  WE SINCERELY  HOPE THAT YOU ENJOY THIS PROGRAM AND DISTRIBUTE IT AMONG YOUR
  FRIENDS AND RELATIVES.  AND AS WE MENTIONED BEFORE, IF YOU DO NOT LIKE THIS
           PROGRAM OR HAVE NO USE FOR IT, YOU DO NOT OWE US ANYTHING,
              OTHERWISE SEND YOUR CHECK OR MONEYORDER MADE OUT TO:


                           GEORGE QUELLHORST
                       63 SOUTH STATE STREET #10
                         PAINESVILLE,OHIO.44077


     YOUR CONTRIBUTION WILL BE GREATLY APPRECIATED.  THANK YOU AND ENJOY !

 THANK YOU AND ENJOY !

N WI                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 >&8
:Г CATALOG/BAS. (c) 07/11/1989. George Quellhorst.&─█:Т65496,.:Х2300:ў:МL$(12),PL(12):S$│ б(32,32):т80:у9,54:у10,27:у12,1:у2,1:Ю3:°1,2:Т&HF80F,0:Т&HF84F,0:Т&HF89C,0:Т140,180:в43350:ИЁБе58&№:Г Get variables from label processor off the disk.'[Z│ Ж(235):▀Z,34,13,Q$(1),Q$(2):▀Z,34,14,Q$(3),Q$(4):▀Z,34,15,BP$,D1$:BP│ Й(BP$):D1│ Й(D1$)(ЕBP│0зё11,10:З"YOU MUST FIRST CALL THIS PROGRAM FROM THE LABEL PROCESSOR":ё13,12:З"THEREAFTER YOU MAY RUN IT AS A STAND-ALONE PROGRAM":ё23,14:З"PROVIDING YOU USE THE SAME DISK":°3,2:З:З:К({Т150,BP:A│1:АT│1е4:N│ Ю(1,Q$(T),"*"):P$(A)│ О(Q$(T),N):A│Aл1:P$(A)│ П(Q$(T),128мN):A│Aл1:ЛT)АT│1е8:N│ Ю(1,P$(T),"*"):P$(T)│ О(P$(T),Nм1):ЛT:NP$│P$(1):CP$│P$(2):IT$│P$(3):CI$│P$(4):EL$│P$(5):CE$│P$(6):DE$│P$(7):PP$│P$(8):N1│0:N2│D1н3:N4│D1н45)8ЕN4▓255 зN3│N3л1:N4│N4м255:Бе8)J	:Г Main menu.)э
Ж 1. PRINT TELEPHONE DIRECTORY,2. PRINT MASTER MAILING LIST,3. RETURN TO FORM LETTER PRG,4. RETURN TO LABEL PROCESSOR,5. CLOSE FILES / END PROGRAM,6. FILENAME*Б█:т40:°1,2:ё1,0:З"MAILING LIST / PHONE DIRECTORY PRINTER":ё1,1:З б(38,42):°2,2:ё11,4:З"M A I N    M E N U":°1,2:ё10,23:З"PRESS NUMBER DESIRED";*▓П:J│6:АT│1е6:J│Jл2:НA$:ё5,J:°3,2:ЗA$;:Л:Бж57*┘
ЕFF$│""з14:Дё18,18:°2,2:ЗFF$;:Бе16+Yё18,18:°4,2:ЗS$:ё8,18:°2,2,B:З"FILENAME:";:ё18,18:Бж57:°3,2:╗ЙFF$:ЕFF$│""зFF$│"LABEL":ДЕ З(FF$)▓8зё8,18:°4,2:ЗS$;:Бж57:Бе14+ЦFF$│FF$л"/DAT":ё8,18:°3,2:З"FILENAME:":ё18,18:°2,2:ЗFF$;+╔IN$│ Т:IN│ Й(IN$):ИIN Бе17,17,70,70,59,14:Бе16+э█:Щ"D",#1,FF$,240:L1│1:L2│ е(1),>╨#1,40 зD$(1),40 зD$(2),40 зD$(3),40 зD$(4),40 зD$(5),40 зD$(6):ЕSR│1зSR│0:Р,╝ЕIN│2з20 :Дт40:Z│1:S│1:ё8,0:°1,2:З"NOW PRINTING PHONE LIST":ё8,1:З б(23,42):ё7,23:З"PRESS BREAK FOR MAIN MENU";:°3,2:Бе21-,т40:Z│1:S│1:ё8,0:°1,2:З"NOW PRINTING ENTIRE FILE";:ё8,1:З б(24,42):ё7,23:З"PRESS BREAK FOR MAIN MENU";:°3,2-╗Е е(1)│0зЮ:ё10,12:°1,2:З"FILE DOES NOT EXIST":V$│FF$л" BEING KILLED":LO│ Б((40м З(V$))о2):ёLO,14:ЗV$:Бж57:Ъ#1:╥FF$:FF$│"":АT│1е1000:Л:Бе58-√SR│1:Бж18:Т65496,.:─#1,L1:Т65497,.:L3│L1:L1│L1л1:L4│L1:Бж52.бW1│ Й( О(D$(1),1)):АT│1е5:L$(T)│D$(T):D$(T)│"":PL(T)│ Й( Р(L$(T),2,1)):L$(T)│ П(L$(T), З(L$(T))м2):ЕT┤│W1 зN│ Ю(1,L$(T),"\"):L$(T)│ О(L$(T),Nм1):ДL$(T)│ б(20,46).·Л:ЕIN│1з25:ДN│ Ю(1,L$(1),","):ЕN│0з25:ДL$(1)│ П(L$(1), З(L$(1))мN)л" "л О(L$(1),Nм1)/ИL$(6)│D$(6):D$(6)│"":PL(6)│ Й( Р(L$(6),2,1)):L$(6)│ П(L$(6), З(L$(6))м2):N│ Ю(1,L$(6),"\"):ЕN│0зL$(6)│ б(20,46):Бе26:ДL$(6)│ О(L$(6),Nм1)/▒ЕL2│L3 зАT│7е12:L$(T)│"":Л:FL│1:Бе31/рSR│1:Бж18:Т65496,.:─#1,L1:Т65497,.:L1│L1л10ФW1│ Й( О(D$(1),1)):АT│1е5:A│Tл6:L$(A)│D$(T):D$(T)│"":PL(A)│ Й( Р(L$(A),2,1)):L$(A)│ П(L$(A), З(L$(A))м2):ЕT┤│W1 зN│ Ю(1,L$(A),"\"):L$(A)│ О(L$(A),Nм1):ДL$(A)│ б(20,46):PL(A)│10эЛ:ЕIN│1з30:ДN│ Ю(1,L$(7),","):ЕN│0з30:ДL$(7)│ П(L$(7), З(L$(7))мN)л" "л О(L$(7),Nм1)1ЕL$(12)│D$(6):D$(6)│"":PL(12)│ Й( Р(L$(12),2,1)):L$(12)│ П(L$(12), З(L$(12))м2):N│ Ю(1,L$(12),"\"):ЕN│0зL$(12)│ б(20,46):Бе31:ДL$(12)│ О(L$(12),Nм1)1иАT│1е12:ЕPL(T)│0 зPL(T)│1:Л:ДЛ1╬ :Г Print the master mailing list.23!ЕIN│1зё2,7:°3,2:ЗL$(1):ё2,9:ЗL$(6):ЕFL│1 зё2,14:З:ё2,16:З:Бе43 :Дё2,14:ЗL$(7):ё2,16:ЗL$(12):Бе432Ь"B│5:Бж60:АT│1е6:B│Bл1:ё2,B:ЗL$(T):Л:ЕFL│0зАT│1е6:B│Bл1:ё2,Bл4:ЗL$(Tл6):ЛT :ДАT│1е8:B│Bл1:ё2,Bл2:З:ЛT2т#АA│1е12:И PL(A) Бж62,63,64,65,66,67,68,69,62,63,64,65,66,67,68,692¤$Т65496,.:ЕZ│1зБж54:Z│03Ъ%ЛA:З#м2:ЕFL│0зЗ#м2,PP$; Л(N1); Л(N2);"LABEL NUMBER ";Q$;PP$; Л(N3); Л(N4);"LABEL NUMBER "R$:З#м2,PP$; Л(N1); Л(N2); б(16,61);PP$; Л(N3); Л(N4); б(16,61)3ў&ЕFL│1зЗ#м2,DE$;PP$; Л(N1); Л(N2);"LABEL NUMBER ";Q$:З#м2,DE$;PP$; Л(N1); Л(N2); б(16,61)4i'АT│1е6:З#м2,DE$;PP$; Л(N1); Л(N2);L$(T);DE$;PP$; Л(N3); Л(N4);L$(Tл6):ЛT:З#м2,DE$;PP$; Л(N1); Л(N2); б(74,45)4Х(Е Б(L4о12)│L4о12░L4┤L2 зS│Sл1:Бж54:З#м24к)ЕL1▓ е(1)з56:Д224├*:Г Print phone book.5	+Т65496,0:G$│PP$л Л(0)л Л(D1н5):S$│ б(68,45):З#м2,DE$;:ЕZ│1 з Бж555>,A│ З(L$(1))л З(L$(6)):A$│L$(1)л б(68мA,46)лL$(6)5u-B│ З(L$(7))л З(L$(12)):B$│L$(7)л б(68мB,46)лL$(12)5Н.Т65496,0:З#м2,G$;A$6/Е Б(L3о45)│L3о45 ░L4┤L2 зS│Sл1:З#м2,G$;S$:АM│1е4:З#м2:ЛM:Бж55:Бе48 :ДЕ Б(L3о5)│L3о5 ▒(FL│1)зЗ#м2,G$;S$:ЕFL│1 з5660ЕFL│0 зЗ#м2,G$;B$6:1Е ( Б(L4о5)│L4о5) зЗ#м2,G$;S$6]2ЕL1▓ е(1) зЗ#м2,G$;S$:Бе56:Д226r3:ГGosubs Gosubs.6┤4Q$│ И(L3):Q$│ П(Q$, З(Q$)м1):Е З(Q$)┤3зQ$│"00"лQ$:Q$│ П(Q$,3)6°5R$│ И(L4):R$│ П(R$, З(R$)м1):Е З(R$)┤3зR$│"00"лR$:R$│ П(R$,3):Р7г6АT│1е3:З#м2:ЛT:A$│"M A S T E R   C A T A L O G   F O R:  "лFF$л".  P A G E:"л И(S):P1│ З(A$):P2│ Б((80мP1)о2):З#м2,DE$; б(P2,32);A$:З#м2,DE$; б(P2,32); б(P1,61):Z│0:Р8Q7АT│1е3:З#м2:ЛT:A$│"P H O N E   L I S T   F O R:  "лFF$л".  P A G E:"л И(S):P│ З(A$):V│ Б((80мP)о2):З#м2,DE$; б(V,32);A$:З#м2, б(V,32); б(P,61):Z│0:З#м2:З#м2:З#м2,G$;S$:Р8╝8т80:ё13,11:°1,2,B:З"D O N E   R E T U R N I N G   T O   M A I N   M E N U":°3,2:Бж57:АT│1е1500:ЛT:Бе588╬9АT│1е10:в:Л:Р8я:█:т80:FL│0:K│0:Т65497,.:Бе119$;█:т80:°3,2:Т65496,0:ё32,11:З"ALL FILES CLOSED":К9y<LB$│"PRINTING LABEL NUMBER":ё2,4:°2,2:ЗLB$;L3:ЕFL│1з°3,2:Р:Дё2,14:ЗLB$;L4:°3,2:Р9Э=:Г Put printer codes into A$(A)9╖>L$(A)│DE$лL$(A)лDE$:Р9╒?L$(A)│DE$лIT$лL$(A)лDE$:Р9є@L$(A)│DE$лEL$лL$(A)лDE$:Р:AL$(A)│DE$лIT$лEL$лL$(A)лDE$:Р:3BL$(A)│DE$лCP$лL$(A)лDE$:Р:UCL$(A)│DE$лCP$лIT$лL$(A)лDE$:Р:wDL$(A)│DE$лCP$лEL$лL$(A)лDE$:Р:ЭEL$(A)│DE$лCP$лIT$лEL$лL$(A)лDE$:Р;=Fт80:Т65496,.:ЕIN│3зХ200:ё28,12:°1,2,B:З"NOW LOADING FORMLTR/BAS":╙"FORMLTR/BAS",R :ДЕIN│4 зХ200:ё27,12:°1,2,B:З"NOW LOADING LABELPRC/BAS":╙"LABELPRC/BAS",R$лCP$лIT$лL$(A)лDE$:Р:wDL$(A)│DE$лCP$лEL$лL$(A)лDE$:Р:ЭEL$(A)│DE$лCP$лIT$лEL$лL$(A)лDE$:Р;=Fт80:Т65496,.:ЕIN│3зХ200:ё28,12:°1,2,B:З"NOW LOADING FORMLTR/BAS":╙"FORMLTR/BAS",R :ДЕIN│4 зХ2                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ,ъN
:Г FORMLTR/BAS. (C) 03/10/1988.V01. - 07/12/1989.V02. George Quellhorst.██:Т65496,.:Х5000:ў:МL$(88),PL(12):S$│ б(32,32):т80:у9,54:у10,27:у12,1:у2,1:Ю3:°1,2:Т&HF80F,0:Т&HF84F,0:Т&HF89C,0:Т140,180:в43350:ИЁБе150■:Г Get variables off the disk.ЕZ│ Ж(235):▀Z,34,13,Q$(1),Q$(2):▀Z,34,14,Q$(3),Q$(4):▀Z,34,15,BP$,D$:▀Z,34,16,A1$,A2$:BP│ Й(BP$):D1│ Й(D$):Е О(A1$,1)┤▓ Л(255)зLH│1EЕBP│0зё11,10:З"YOU MUST FIRST CALL THIS PROGRAM FROM THE LABEL PROCESSOR":ё13,12:З"THEREAFTER YOU MAY RUN IT AS A STAND-ALONE PROGRAM":ё23,14:З"PROVIDING YOU USE THE SAME DISK":°3,2:З:З:КеТ150,BP:V│1:АT│1е4:N│ Ю(1,Q$(T),"*"):P$(V)│ О(Q$(T),N):V│Vл1:P$(V)│ П(Q$(T),128мN):V│Vл1:ЛT?АT│1е8:N│ Ю(1,P$(T),"*"):P$(T)│ О(P$(T),Nм1):ЛT:NP$│P$(1):CP$│P$(2):IT$│P$(3):CI$│P$(4):EL$│P$(5):CE$│P$(6):DE$│P$(7):PP$│P$(8):N1│0:N2│D1н3:N4│D1н45bЕN4▓255 зN3│N3л1:N4│N4м255:Бе84	Ж 1. START FORM LETTER PROCESS,2. RETURN TO CATALOG PRINTER,3. RETURN TO LABEL PROCESSOR,4. INPUT PERSONAL LETTERHEAD,5. CLOSE FILES / END PROGRAM,6. ACTIVATE WORD PROCESSOR,7. LBL.FILENAME,*. LTR.FILENAMEк
Ж 1. NORMAL PRINT ...... <76>,2. ITALIC PRINT ...... <76>,3. NORMAL ELONGATED .. <38>,4. ELONGATED ITALIC .. <38>yЖ 1. START A NEW FILE,2. CONTINUE ENTERING TEXT,3. LIST FILE TO SCREEN,4. LIST FILE TO PRINTER,5. EDIT FILE IN MEMORY,6. LOAD FILE IN MEMORY, 7. SAVE FILE TO DISK,8. DELETE/INSERT A LINE,9. CLEAR MEMORYЇ█:т40:°1,2:ё5,0:З"FORMLETTER AND WORD PROCESSOR":ё5,1:З б(29,42):ё11,4:°2,2:Бж154:°1,2:ё10,23:З"PRESS NUMBER DESIRED";

:Г The main menu.oП:J│4:АT│1е8:J│Jл2:НA$:ё5,J:°3,2:ЗA$;:Л:ЕLH│1зё8,12:°1,2:З"INPUT PERSONAL LETTERHEAD":°3,2:Бж163вЕFF$│""з16:Дё20,18:°3,2:З":":ё21,18:°2,2:ЗFF$;ЄЕF$│""зё21,20:°2,2:З"NOT IN MEMORY":Бе17 :Дё20,20:°3,2:З":":ё21,20:°2,2:ЗF$°2,2,B:Бж154>IN$│ Т:IN│ Й(IN$):ИIN Бе 107,161,161,21,149,38,19:Бе18═°2,2:Бж154:ё21,18:°4,2:ЗS$:ё12,18:°2,2,B:З"FILENAME:";:ё21,18:Бж163:°3,2:╗ЙFF$:ЕFF$│""зFF$│"LABEL":ДЕ З(FF$)▓8зё12,18:°4,2:ЗS$;:Бж163:Бе19 FF$│FF$л"/DAT":ё12,18:°3,2:З"FILENAME:":ё21,18:°2,2:ЗFF$;:°2,2,B:Бж154:Бе18 6:Г Input Letterhead. Ст80:ё14,0:°1,2:З"I N P U T    P E R S O N A L    L E T T E R H E A D":ё14,1:З б(51,42)!П:J│3:АT│1е8:НA$:ЛT:ё6,3:°2,2:З б(66,45):АT│1е4:НA$(T):ЛT:ё6,4:ЗA$(1):ё45,4:ЗA$(3):ё6,6:ЗA$(2):ё45,6:ЗA$(4):ё6,7:З б(66,127):Т282,0!\J│10:АT│1е6:Бж126:ЕST│1 з28:ДP1│0:P2│ Б(((LнD)м( З(HD$)нD))о2)!ЕP2▓255зP1│P1л1:P2│P2м255:Бе25!ЫИ PC Бж 155,156,157,158!вЛT"AТ282,255:ё16,9:З:Бж163:ё19,9:°2,2:З"WOULD YOU LIKE A TEST PRINT <":ё48,9:°1,2,B:З"Y";:ё49,9:°2,2:З"> OR <";:ё55,9:°1,2,B:З"N";:ё56,9:°2,2:З">O":Бж163:°3,2"fP$│ Т:ЕP$│"Y"з30:ДЕP$│"N"з33:Д29"░ё16,9:З:Бж163:ё18,9:°2,2:З"POSITION PAPER IN PRINTER AND PRESS ENTER""╞Е Т│ Л(13)з32:Д31"ч Т65496,.:АT│1еW:З#м2,L$(T):Л#z!ё16,9:З:Бж163:ё21,9:°2,2:З"SAVE THIS HEADER TO DISK <":ё47,9:°1,2,B:З"Y";:ё48,9:°2,2:З"> OR <";:ё54,9:°1,2,B:З"N";:ё55,9:°2,2:З">O":Бж163:°3,2#а"P$│ Т:ЕP$│"Y"з35:ДЕP$│"N"з150:Д34$ #A$│ б(128,255):рZ,34,16,A$,A$:рZ,34,17,A$,A$:рZ,34,18,A$,A$:ЕW┤6 зАF│Wл1 е 6:L$(F)│ б(128, Л(0)):ЛF:ЕT│1зA│0:W│0:LH│0:Бе150$б$L$(1)│ П( И(W),1)лL$(1):рZ,34,16,L$(1),L$(2):рZ,34,17,L$(3),L$(4):рZ,34,18,L$(5),L$(6):АT│1е6:L$(T)│"":ЛT:A│0:W│0:LH│1:Бе150$╝%:Г The word processor.%(&т40:Т65497,.:Т282,255:WP│1:ST│0:ET│0:EN│0:DH│0:ё6,0:°1,2:З"W O R D   P R O C E S S O R":ё6,1:З б(27,42)%д'П:АT│1е12:НA$:ЛT:J│2:АT│1е9:J│Jл2:J(T)│J:ё8,J:°3,2:НA$(T):ЗA$(T):Л:ё2,23:°2,2:З"PRESS NUMBER DESIRED / BREAK FOR MAIN";%ю(P$│ Т:P│ Й(P$):ЕP│1 ▒ P│2 з ET│1 :ДЕP│2 зET│2 :ДЕP┤1 ▒ P▓9 ▒ P$│""з40&)И P Бе 44,42,49,49,63,71,89,94,151&)*ЕA│0зБж170:Бе40&h+т80:°3,2:ё0,22:АD│1еA:F│D:Бж159:З"[";A$;"] ";L$(D):ЛD:Бе45&М,ЕA▓1зБж170:Бе40:Дт80:°3,2:ё0,22&д-Т282,0:З:M│72:Бж130&╟.ЕEN│1з47:ДЕST│1зA│Aм1:Бе47:Д45&у/Т282,255:т40:Бж163:Бе38&·0:Г List to screen.'^1ЕA│0з42 :Дт80:°2,2:ЕP$│"4"з59:ДЕA▓22зАS│1 е 22:Бж55:ЛS:S│Sм1:Бж56 :ДЕA┤22 зАS│1е A:Бж55:ЛS:Бе53'h2P$│ Т'Р3ЕA┤▓S ░ Ж(342)│247зS│Sл1:Бж55:ДБж56'Э4ЕS┤A з50'╦5°1,2:З"     PRESS SPACEBAR FOR MENU":°3,2'х6P$│ Т:ЕP$│" "з38 :Д54(	7F│S:Бж159:в:З"["A$;"] ";L$(S):Р(E8°1,2:З"      HOLD DOWN DOWNARROW TO CONTINUE SCROLLING"(m9P$│ Т:Е Ж(342)│247зё0,22:°2,2:Р:Д57(А::Г Print file.(ш;ё19,0:Бж163:°1,2:З"POSITION PAPER IN PRINTER AND PRESS ENTER":ё28,1:°2,2:З"Press SPACEBAR to abort")
<Е Т│ Л(13)з61:ДЕ Т│" "з38:Д60)O=Т65496,.:АT│1 е A:З"  ";L$(T):З#м2,"   ";L$(T):Л:°3,2:Бж163:Бе38)j>:Г Single line Editor.)└?ЕA│0з42:Дт80:Т282,0:°1,2:ё24,1:З"WORD PROCESSOR  /  LINE EDITOR":ё24,2:З б(30,42)*D@°2,2:З"      "; б(68,127):╗Й"                ENTER LINE NUMBER TO EDIT / PRESS <ENTER> TO ABORT.        > ";EL$:F│ Й(EL$):Бж159*бAЕF│0 з38 :ДЕF▓A з°1,2:З:З"                            THIS FILE HAS ONLY";A;"LINES":Бе64+B°3,2:ЗA$;"> ";L$(F):З"    ^         ^                                                            ^  ";:ЕSR│1зSR│0:Р+MCЗ:°2,2:З"    ENTER STRING TO BE REPLACED:":°3,2+мD°1,2:З"  > ";:╗ЙSR$:ЄC$,H,I,J:Е Ю(1,L$(F),SR$)│0 з°1,2:ё32,J:З"STRING NOT FOUND":Бе64:°3,2,GE°2,2:З"  > ENTER REPLACEMENT STRING:":З"  > ";:°1,2:╗ЙRS$:N│ Ю(1,L$(F),SR$):C│Nл З(SR$)м1:L$(F)│ О(L$(F),Nм1)лRS$л П(L$(F), З(L$(F))мC):SR│1:Бж66:Бе64,SF:Г Load,аGЕA▓0зБж170:Бе40:ДТ65496,.:т40:ё14,1:°1,2:З"LOAD A FILE":ё14,2:З б(11,42),╙Hё3,5:°2,2:З"PLEASE SPECIFY LETTERHEAD DESIRED"-]Iё7,7:°2,2:З"[":ё8,7:°1,2,B:З"R":ё9,7:°2,2:З"]ETURN - [":ё19,7:°1,2,B:З"D":ё20,7:°2,2:З"]ISK - [":ё28,7:°1,2,B:З"N":ё29,7:°2,2:З"]ONE"-╓JP$│ Т:ЕP$│"D"зDH│1:LH$│"LOADED FROM DISK" :ДЕP$│"R"зDH│2:LH$│"RETURN ADDRESS" :ДЕP$│"N"зDH│3:LH$│"NO LETTERHEAD":Д74.%KLH$│"LETTERHEAD WILL BE:  "лLH$:L│ Б((40м З(LH$))о2):ёL,9:°1,2:ЗLH$:LH$│"".XLё4,14:°2,2:З"FILENAME <EXTENTION DAT ASSUMED>".ЯMё14,16:З">":ё16,16:╗ЙF$:ЕF$│""з38 :ДЕ З(F$)▓8 зё12,16:З:Бж163:Бе77/DNё8,18:°1,2,B:З"NOW LOADING ";F$;"/DAT":°3,2:ЕDH│1з▀Z,34,16,L$(1),L$(2):▀Z,34,17,L$(3),L$(4):▀Z,34,18,L$(5),L$(6):W│ Й( О(L$(1),1)):L$(1)│ П((L$(1)), З(L$(1))м1)/·OЕDH│2 з▀Z,34,10,L$(1),L$(2):▀Z,34,11,L$(3),L$(4):▀Z,34,12,L$(5),L$(6):W│ Й( О(L$(1),1)):АT│1е5:L$(T)│ П(L$(T), З(L$(T))м2):ЕT┤│W зN│ Ю(1,L$(T),"\"):L$(T)│ О(L$(T),Nм1):ДL$(T)│""0PЕDH│2зЛT0_QАT│W е 1йм1:L$(Tл3)│L$(T):Л:АT│1е3:L$(T)│"":Л:L$(Wл4)│"":L$(Wл5)│"":A│Wл6:ЕDH│3зA│40ЬRF$│F$л"/DAT":Щ"D",#1,F$,10:LO│ е(1):Ъ#1:ЕLO│0 з╥F$:Бе1670░SFL│A:Щ"I",#1,F$0┐TЕ  М(1)з870╘U╗Й#1,L$(A):A│Aл10▌VБе840ЎWЪ#1:A│Aм1:Бж163:Бе381X:Г Save1YЕA│0з421UZё11,J(P):З"FILENAME >":ё22,J(P):╗ЙF$:Е З(F$)▓8 зё12,7:З:Бж163:Бе901И[ЕF$│""зё8,J(P):°3,2:ЗA$(P):Бе40 :ДF$│F$л"/DAT"1ё\ё8,J(P):°1,2,B:З"NOW SAVING ";F$:Щ"O",#1,F$:АT│1 е A:З#1,L$(T):ЛT:Ъ#1:Бж163:ё8,J(P):°3,2:ЗA$(P):Бе401 ]:Г Delete2Э^Y│J(P):ЕA│0з°3,2:ё8,Y:ЗA$(P):Бе42:ДБж163:ё11,Y:°2,2:З"<":ё12,Y:°1,2,B:З"D";:ё13,Y:°2,2:З">ELETE OR <";:ё24,Y:°1,2,B:З"I";:ё25,Y:°2,2:З">NSERT":Бж163:°3,22▒_P$│ Т:ЕP$│""з953`ЕP$│"D"зё11,Y:°2,2:З"LINE TO BE DELETED":Бе97 :ДЕP$│"I"зё11,Y:°2,2:З"LINE TO BE INSERTED"3Vaё30,Y:°3,2:З">":ё31,Y:╗ЙDL$:DL│ Й(DL$):ЕDL│0зё8,Y:°3,2:ЗA$(P):Бе403лbЕDL▓A ░P$│"D" ▒ DL▓Aл1 зё11,Y:°1,2:З"LAST LINE IS";A:Бж162:ё8,Y:°3,2:ЗA$(P):Бе403ёcЕP$│"I"зт80:WP│1:LN│20:Бе103 :Дё11,Y:°1,2,B:З"W O R K I N G":°3,241dL$(DL)│"":АT│DL е A:SS$│L$(Tл1):L$(DL)│SS$:DL│DLл1:ЛT:A│Aм14\eё11,Y:°2,2:З"[NUMBER] OR [ENTER]":Бе974jf:Г Insert4ўgF│DL:ET│2:Бж159:ё26,LN:°1,2:З"NOW INSERTING LINE NUMBER ";A$:°2,2:LN│LNм1:ЕLN│2зё35,LN:°2,2,B:З"LAST LINE":Бж163:°2,2 :ДЕLN│1зST│1:Бе1065MhЕA▓│61 зё0,22:З:ё27,22::°1,2,B:З"YOU ALREADY HAVE 60 LINES":°3,2:Бж162:Бж162:Бе385qiM│72:X│2:B│22:QQ│1:Т282,0:Бж1305╞jАT│A е DL йм1:L$(Tл1)│L$(T):L$(T)│"":Л:L$(DL)│HD$:DL│DLл1:Е ST│1 ▒ EN│1 з46:Д1035тk:Г Process form letter.6^lт40:ё8,0:°1,2:З"PROCESSING A FORM LETTER":ё8,1:З б(24,42):ЕA│0зё6,11:°1,2,B:З"YOUR LETTER IS NOT IN MEMORY":Бж162:Бе1506Жmё2,4:°2,2:ЗF$;" IS IN MEMORY":Бж1636ЇnЕFF$│""зё2,6:°1,2,B:З"YOU DID NOT ENTER A FILENAME":Бж162:Бе150 :Дё2,6:°2,2,B:З"NOW OPENING ";FF$;" FILE"7JoЩ"D",#1,FF$,240:Е е(1)│0 зё2,6:°1,2,B:ЗFF$;" DOES NOT EXIST":Ъ#1:╥FF$:Бж162:Бе1507Ыp╨#1,40 зD$(1),40 зD$(2),40 зD$(3),40 зD$(4),40 зD$(5),40 зD$(6):ЕSR│1зSR│0:Р7─qё2,6:°2,2:ЗFF$;" FILE IS OPEN":Бж1637ёrё2,9:°2,2:З"FIRST LABEL TO BE PRINTED >"8^sё30,9:╗ЙL1$:L1│ Й(L1$):ЕL1│0зё30,9:З:Бе115:ДЕL1▓ е(1)з164 :Дё2,9:°1,2:З"PRINTING FROM LABEL NUMBER ";L1$8Лtё2,11:°2,2:З"LAST LABEL TO BE PRINTED >"9uё29,11:╗ЙL2$:L2│ Й(L2$):ЕL2│0зё29,11:З:Бе117:ДЕL2▓ е(1) ▒ L1▓L2 з165 :Дё2,11:°1,2:З"......... TO: LABEL NUMBER ";L2$:ё6,22:З9,vАI│L1 е L2:SR│1:Бж112:─#1,I9┤wW1│ Й( О(D$(1),1)):АT│1е5:M$(T)│D$(T):D$(T)│"":M$(T)│ П(M$(T), З(M$(T))м2):ЕT┤│W1 зN│ Ю(1,M$(T),"\"):M$(T)│ О(M$(T),Nм1):ДM$(T)│" ":xЛ:N│ Ю(1,M$(1),","):ЕN│0з121:ДM$(1)│ П(M$(1), З(M$(1))мN)л" "л О(M$(1),Nм1):iyM$(6)│D$(6):D$(6)│"":M$(6)│ П(M$(6), З(M$(6))м2):N│ Ю(1,M$(6),"\"):ЕN│0з122:ДM$(6)│ О(M$(6),Nм1):МzL$(FL)│ б(10,32)л"Dear "лM$(1):╪{Т65496,.:АT│1еA:З#м2,"   "L$(T):ЛT::ГLL=66-A:FORT=1TO LL:PRINT#-2:NEXTT:щ|ЛI:Ъ#1:Бе150;}:Г Input printer codes;^~J│Jл2:ё16,9:°3,2:З"PLEASE INPUT PRINTERCODE LINE:";T;" >":ё6,10:°2,2:З б(66,127):°3,2;Сё53,9:╗ЙPC$:Е Й(PC$)┤1▒ Й(PC$)▓4зё53,9:З:Бе127;▀АPC│ Й(PC$):ЕPC│1 ▒ PC│2 зM│74:L│80:D│D1 :Д ЕPC│3 ▒ PC│4 зM│38:L│40:D│D1н2;°Б:Г The input Editor.<ФВX│2:B│22:K$│ б(30,127)л" LAST  LINE "л б(30,127)л" ]":M$│ б(M,127)л" ]":A│Aл1:ЕA│▓54 ░ET│1 зEN│1:Бж163:L$│K$ :Д ЕA│▓60 ░ET│2 зEN│1:L$│K$:Бж163 :Д L$│M$<иГё2,22:°2,2:ЗL$;<╚ДТ65497,0:X│2:B│22:ёX,B:З"";<▌ЕP$│ Т:ЕP$│""з133=/Жв:ЕP$│ Л(10)░X│2зX│12:L$│ б(10,32)л П(L$, З(L$)м10):ё2,B:ЗL$;:ёX,B:З"";:Бе133=dЗЕ(Xм2)│ З(L$)м2░P$┤▓ Л(13)░P$┤▓ Л(8)зБж163:Бе133=ЩИЕP$│ Л(9)зX│Xл1:Е(Xм40)│ З(L$)м2зX│40:ёX,B:Бе133=╢ЙЕP$│ Л(8)зX│Xм1:ЕX┤2зX│2=¤КЕP$│ Л(8)▒P$│ Л(9)▒P$│ Л(10)▒P$│ Л(12)▒ Ж(344)│191зёX,B:З"";:Бе133>!ЛЕP$│ Л(13)зP$│ Л(92):ё40,B:З"";>QМ Р(L$,(Xм1),1)│P$:ёX,B:ЗP$;:ё2,B:ЗL$;:X│Xл1>НЕ Р(L$,(Xм2),1)│ Л(92)зHD$│L$:L$│"":Бе143>УОёX,B:З"";:Бе133>пПЕX│3 зW│Tм1:ST│1 :Д W│T>тРN│ Ю(1,HD$,"\"):HD$│ О(HD$,Nм1):ЕWP│1з145:Д147?,СЕQQ│1з146:ДF│A:Бж159:ё0,22:°3,2:L$(A)│HD$:HD$│"":З"[";A$;"] ";L$(A):Р?[ТF│DL:Бж159:ё0,22:°3,2:З"[";A$;"] ";HD$:З:Р?АУё2,B:З:ё0,J:З"[";PC$;"] ";HD$;:Р?ОФ:ГGosubs.?иХт80:█:Т65496,.:°3,2:К?╪Цт80:█:Т65497,.:Т282,255:WP│0:ST│0:°3,2:Бе12@MЧБж163:ё11,20:°2,2:З"CLEAR MEMORY <":ё25,20:°1,2,B:З"Y":ё26,20:°2,2:З"> OR <":ё32,20:°1,2,B:З"N":ё33,20:°2,2:З">"@ТШP$│ Т:ЕP$│"Y"з153:ДЕP$│"N"зё11,20:°3,2:З"CLEAR MEMORY":Бе40:Д152A	Щё11,20:°2,2,B:З"NOW CLEARING MEMORY":Бж162:АT│1е66:L$(T)│"":ЛT:A│0:W│0:ST│0:F$│"":ё11,20:°3,2:З"CLEAR MEMORY":Бе40A(Ъё15,4:З"MAIN  MENU":°3,2:РARЫL$(T)│DE$лPP$л Л(P1)л Л(P2)лHD$лDE$:РAАЬL$(T)│DE$лPP$л Л(P1)л Л(P2)лIT$лHD$лDE$:РAоЭL$(T)│DE$лPP$л Л(P1)л Л(P2)лEL$лHD$лDE$:РAрЮL$(T)│DE$лPP$л Л(P1)л Л(P2)лIT$лEL$лHD$лDE$:РBЯA$│ П(( И(F)), З( И(F))м1):Е Й(A$)┤│9зA$│"0"лA$BаРB║бт80:Т65496,.:ЕIN│2зХ200:ё28,12:°1,2,B:З"NOW LOADING CATALOG/BAS":╙"CATALOG/BAS",R :ДЕIN│3 зХ200:ё28,12:°1,2,B:З"NOW LOADING LABELPRC/BAS":╙"LABELPRC/BAS",RB╙вБж163:АT│1е1500:ЛT:РBцгАG│1е10:в:ЛG:РC"дё2,9:°1,2,B:З"INPUT PAST END OF FILE":Бж169:Бж162:Бе114CeеЕL1▓L2 зё2,11:°1,2,B:З"FIRST INPUT > SECOND INPUT":Бж162:Бе116CмжЕL2▓ е(1)зё2,11:°1,2,B:З"INPUT PAST END OF FILE":Бж169:Бж162:Бе116Dзё2,18:З:LL$│F$л" DOES NOT EXIST":L│ Б((40м З(LL$))о2):ЕRT│0 зёL,18:°1,2,B:ЗLL$ :ДёL,4:°1,2,B:ЗLL$D*иБж162:ЕRT│1з150:Д38D`йё6,22:°2,2:З"THIS FILE CONTAINS"; е(1);"LABELS":РDщкЕA│0зё11,J(P):°1,2,B:З"BUFFER EMPTY":Бж162:ё8,J(P):°3,2:ЗA$(P):Р :ДЕA▓1 з ё11,J(P):°1,2,B:З"BUFFER FULL":Бж162:ё8,J(P):°3,2:ЗA$(P):Р зёL,18:°1,2,B:ЗLL$
37 IFDM=1 ANDIN$="6"THENIN$="2"ELSEIFDM=1 ANDIN$="8"THENIN$="4"
300 NP$=CHR$(27)+CHR$(18)
301 CP$=CHR$(27)+CHR$(29)
302 IT$=CHR$(27)+CHR$(66)
303 CI$=CHR$(27)+CHR$(18)
304 EL$=CHR$(27)+CHR$(14)
305 CE$=CHR$(27)+CHR$(15)
306 PP$=CHR$(27)+CHR$(16)
307 DP$=CHR$(19)
308 HL$=CHR$(27)+CHR$(28)
309 FL$=CHR$(27)+CHR$(54)
310 DE$=NP$+CI$+CE$
311 POKE150,41:DM=1
312 X1=396:X2=360:X3=432:X4=430:X5=18:X6=10
313 X7=2:X8=2:D1=12:D2=24:D3=10:D4=20:RETURN
$(14)
305 CE$=CHR$(27)+CHR$(15)
306 PP$=CHR$(27)+CHR$(16)
307 DP$=C                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                
37 ' This line reserved for DMP110 use only.
300 NP$=CHR$(27)+CHR$(18)
301 CP$=CHR$(27)+CHR$(29)
302 IT$=CHR$(27)+CHR$(66)+CHR$(1)
303 CI$=CHR$(27)+CHR$(66)+CHR$(0)
304 EL$=CHR$(27)+CHR$(14)
305 CE$=CHR$(27)+CHR$(15)
306 PP$=CHR$(27)+CHR$(16)
307 DP$=CHR$(19)
308 HL$=CHR$(27)+CHR$(28)
309 FL$=CHR$(27)+CHR$(54)
310 DE$=NP$+CI$+CE$
311 POKE150,18:DM=0
312 X1=396:X2=480:X3=432:X4=516:X5=6:X6=114
313 X7=2:X8=2:D1=12:D2=24:D3=12:D4=24:RETURN
$(14)
305 CE$=CHR$(27)+CHR$(15)
306 PP$=CHR$(27)+CHR$(16)
307 DP$=CHR$                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ¤&:
:Г PRINTME/BAS By George Quellhorst. (c) 07/20/1989.&|Х2000:Т65496,.:Т140,180:Т150,18:Т&HF80F,0:Т&HF84F,0:Т&HF89C,0&кў:T│1:в43350:Бж21:у1,1:у10,27:т80:Ю2:°3,1'>ё26,0:°2,1:З"M A N U A L   P R I N T E R":ё26,1:З б(27,42):ё3,4:З"THIS PROGRAM WILL PRINT THE ENTIRE MANUAL FOR ALL PROGRAMS ON THIS DISK":ё5,6'ЧЗ"TO YOUR PRINTER.":ё23,6:°7,1:З"BE SURE YOU HAVE ENOUGH PAPER,  THERE ARE 59 PAGES"(#ё20,9:°3,1:З"YOU MUST  NOW SET THE BAUDRATE CONSTANT";:ё20,10:З"TO CORRESPOND WITH THE ONE YOUR PRINTER";:ё30,11:З"IS CURRENTLY SET TO"(оё1,14:°2,1:З"600 BAUD=87  /  1200 BAUD=41  /  2400 BAUD=18  /  4800 BAUD=7  /  9600 BAUD=1":ё18,16:З"PLEASE INPUT PROPER BAUD RATE > "(╩ё50,16:╗ЙBD$:BD│ Й(BD$))	Е BD│87 ▒ BD│41 ▒ BD│18 ▒ BD│7 ▒ BD│1 зТ150,BD:Бе10 :Дё49,16:З"    ":а50,1:Бе8)ф
ё10,19:°1,1:З"YOU MUST NOW INSERT YOUR PAPER IN THE PRINTER IN SUCH A WAY":ё8,21:З"THAT THE FIRST LINE PRINTED WILL BE ON THE VERY TOP OF THE PAPER":ё25,23:°2,1:З"PLEASE PRESS <ENTER> TO START";*P$│ Т:ЕP$│ Л(13)з12:Д11*HЮ:°3,1:ё19,23:З"PRINTING HAS STARTED, PRESS BREAK TO ABORT";:ИЁБе24*y
°3,1:АX│1е12:АY│1е10:в:ЛY:З:З:АZ│1е200:ЛZ:ЛX*ИЩ"I",#1,F$*ШЕ  М(1) з19*о╗Й#1,L$:F│1:A│Aл1*фЕT┤5зЗ"    ";L$:З#м2,"    ";L$ :ДЕT│6зЗL$:З#м2,L$*юБе 15+Ъ#1:а100,1:ЕT│6зК+'T│Tл1:A│0:ЕT│5 з25 :ДБж21:Бе14+XT$│ И(T):T$│ П(T$,1):F$│"MANUAL"лT$л"/TXT":Р+ХТ65497,0:F│ Ю(F,L$,"@"):ЕF│0з17:Д Р(L$,F,1)│ Л(124):Бе22+дТ65496,.:Р+рЪ#1:Ю:З"PRINTING ABORTED":З:З"ALL FILES ARE CLOSED":З:К+№T│6:F$│"INDEX/TXT":Бе14T│6зК+'T│Tл1:A│0:ЕT│5 з25 :ДБж21:Бе14+XT$│ И(T):T$│ П(T$,1):F$│"MANUAL"лT$л"/TXT":Р+ХТ65497,0:F│ Ю(F,L$,"@"):ЕF│0з17:Д Р(L$,F,1)│ Л(124):Бе22+дТ65496,.:Р+рЪ#1:Ю:З"PRINTING ABORTED":З:З"ALL FILES ARE CLOSED":З:К+№T│6:F$│"INDEX/TXT":Бе14                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                OS╬
j7╖&<┐&=О&┐
k▄К¤&~м|pпф╛&?жА┐&?M&╢&<╛&=╖
j┐
kЖ
5Р'WIDTH40:LOAD"README",R