' +JJJJ ?\>m0M='+l> /+l  P˵B̵CõDĵEµµBD ĵ ⵭µ ۰ µL` B H@Aﳈ  @A ਦ@A LL$ 鷎귭෍ᷩ췩緈JJJJx i L8ᷭ緍췩 i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&" ʎ L/  !"#$%&'()*+,-./0123456789:;<=>? ( 1 +".*$ (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#01)*#;?;/4>:(+02&<#)#0*Eb ;1h  !"`H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌` ƥ LꢭɛL`HIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   d@ŵLҦL [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\޼e<6e<ԍ L}JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\8õ浍õĵBD` L[W ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& $`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLLz L^ ۰L^  ȟ QlXJ̥KlV  ȟ QlV eօ3L׮ʊHLQ &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵLȿõ` F`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUTYP!pppp p p p p`" t""#x"p0p@p@@@p@!y q q t@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (  Ϡ@跻~!Wo*9~~ɬƬ~~~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL ꝍ ŤL{ BH [ h`Lo õ ڬL ꝍ ŤL~H hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8DH ؿ E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭  ˤLª 뷰` Lk ݵܵߵ޵ ^`8ܵ i B8` 9L%ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵BֵO G굎뵎쵬 뵎쵌`` ַ յյ`@ +õm浍õĵL õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(`# d֠ĭz#z #??     !̠Ҡ ԮǠгϠ̠Ԡ%ųǮԠ ̠Ҡ Ү̮Ү̮* This disk was prepared4* by David HillH* June 1, 1989NY5:15l "HELLO THERE"t 20 "Make sure 'Caps Lock' key is down"T0(16384)12725TT1T4002517:5 "Which label printer d CHECK FOR CONTROL-D FOR DELETE LINE>(KEY$)4İ2000:1030e CHECK FOR CONTROL-B FOR BOLDFACE(KEY$)2İ1440:1030 CHECK FOR CONTROL-T FOR CENTER LINE(KEY$)20İ1540:1030 CHECK FOR CONTROL-U FOR UNDERLINE  (KEY$)21(KEY$)8)Z1ĺ(8);:" ";:(8);:Z1ZZ1V CHECK DEL.; AND L$(COUNT) <> NULL((KEY$)127(KEY$)8)Z1L$(COUNT)(L$(COUNT),Z1):1030 CHECK FOR DEL BUT NO CHAR ENTERED((KEY$)127(KEY$)8)Z1L$(COUNT)"":865:1030# LOW ASCII CODE CHARACTERS SPACE (32) TO ~ (126)Q`(KEY$)31(KEY$)127ī1350j(KEY$)11ĢCOUNTCOUNT2:4:L$(COUNT);:Z(L$(COUNT))1:1030t 27 IS ASCII FOR ESC~(KEY$)27İ2780:770 CHECK FOR DEL OR L. ARROW-((KEY$)127UNTNLCOUNT1(W$(COUNT)"N"NUMNCB$W$(COUNT)"Y"NUMWC.(KEY$)10ĢCOUNTCOUNT2:4:L$(COUNT);:Z(L$(COUNT))1:10308(KEY$)11COUNTCOUNT1:COUNT0COUNTNLB 13 IS ASCII FOR RETURNL(KEY$)13KEY$(10):1040/V ALL; 20:1A"No. of characters: NORMAL= ";NC;" WIDE= ";WC;a ***** ENTER LABEL ***** qZ1:COUNT1NUMNC: SET NUM OF CHARACTERS4:COUNTCOUNT2:L$(COUNT);:Z(L$(COUNT))12730: GET KEY$(KEY$)10COUNTCOUNT1:CO*"ab nderline ide";*410::6>I1NL<HORI;". ";L$(I);U\`fII3wp18:"B = ";B$(I);z24:"T = ";T$(I);30:"U = ";U$(I);36:"W = ";W$(I);:19:1PN$;19:20"Number of lines= ";N:PN$"Printer: Apple"GKEY$"3"KEY$"4"İ3170:PN$"Printer: Epson"rKEY$"5"İ3260:PN$"Printer: Okidata"EB$"0"Č865:700 ***** SET UP EDIT SCREEN ***** 10: 22:1"Control: oldface elete

rint" 10:23v"2) Apple Dot Matrix"/"3) Epson LX-80"E"4) Epson FX-80"W"5) Okidata""6) Custom Printer (Not Installed)":"Enter choice (1-6): ";16368,0: CLEAR KEYBOARD2730(KEY$)27İ2780:590KEY$"1"KEY$"2"İ3080C36:WC18)KEY$"6"NL7:NC42:WC21D&(KEY$)27İ2780:370p0 CALL 865 IS ML CALL FOR SOUND ROUTINE:NL0Č865:480D ***** PRINTER ***** N10:XEB$"0"b:"Enter the printer to be used.":l"1) Imagewriter I and II"3.0" "6) 1.5 X 3.5"+ NL0:NC0:WC0J :"Enter choice (1-6): ";X 16368,0o 2730: GET KEY$ KEY$"1"NL5:NC30:WC15 KEY$"2"NL5:NC36:WC18 KEY$"3"NL5:NC42:WC21 KEY$"4"NL7:NC30:WC15 KEY$"5"NL7:N To Quit";* J SET TOP AND BOTTOM SCREEN; T34,3:35,20A ^k h ***** SET UP SIZE OF LABEL ***** u r10: |:"Enter size of label to be used.": "1) 1.0 X 2.5" "2) 1.0 X 3.0" "3) 1.0 X 3.5" "4) 1.5 X 2.5" "5) 1.5 X 2,255,208,243,963 L$(7),B$(7),T$(7),U$(7),W$(7)q I17:L$(I)"":B$(I)"N":U$(I)"N":W$(I)"N":T$(I)"Y": 270:370  ***** SET UP SCREEN ***** : 16 ""Label It!" ,I039:"_";: 621:I039:"_";: @1:29:"ESC:49Q 32,237,253,32,16,252,76,12,3,41,127,133,250,169,223,32,237,253,32,16,252 169,50,32,168,252,169,160,32,237,253,32,16,252,96 141,48,192,160,0,141,48,192,200,169,5,32,168,252,192,255,208,243 160,0,141,48,192,200,169,10,32,168,252,19INPUT ROUTINE AND CUSTOM BELL6 J768890:I:J,I:m 169,223,133,249,32,237,253,32,16,252,160,1,173,0 192,16,10,141,16,192,201,131,240,3,76,63,3,192,0,240,3,76,51,3 165,249,201,160,240,7,169,160,133,249,76,51,3,169,223,133,249,200,165,2# (C) 1988 UPTIME<42739,0:42740,166:0:::1002g(1101)6ĺ(13)(4)"BRUN LC.CONV"P 40 COLUMN VERSIONZ ***** INTIALIZE ***** dDOS$(13)(4)iDOS$"BSAVE PAGE3,A$300,L$D0"n(12);(21)x::255 POKE IN              :"|";:3&" 12:3:"Press to continue.";c&, 13:3:"Press to create a new label.";&6 14:3:"Press to quit Label It!";&@ 16368,0&J 2730: GET KEY ROUTINE&T KEY$"Q"KEY$"q"ī3000'^ (KEY$)13Ė27:1:" ESC: To Quit";:IS USED BY ML ROUTINE(% KEY$((250)).% O% ***** CHECK QUIT? ***** u% 1:27:868: REMOVE ESC DIALOG% 10:% PRINT DIALOG BOX% 2:9:QQ138:"_";:% 2:15:QQ138:"_";:% QQ16:1:9QQ:"|";:& QQ16:40:9QQSC TO QUIT PRINTING#$d P(16384)4$n P128ī2690f$x (P128)(27)COUNTNL:JJJ:16368,0:2700l$ }$ DOS$;"PR#0"$ 270:770$ ***** GET KEY ROUTINE ***** $ 768: CALL TO ML INPUT ROUTINE POKED IN ABOVE% ZERO PAGE LOCATION 250 OUNT)"N"ī25900# NUMNC:W$(COUNT)"Y"NUMWC[# NUMWCĺ(NUM((L$(COUNT)))));:2590z# (NUM((L$(COUNT))))2);# B$(COUNT)"Y"ĺBB$;#( U$(COUNT)"Y"ĺUB$;#2 W$(COUNT)"Y"ĺWB$;#< L$(COUNT)#F BE$;UE$;WE$;:#P $Z CHECK FOR Es Return To Print. ";#" 16368,0>" 2730:(KEY$)27ī770U" (KEY$)13ī2450`" 13:8" "Printing The Current Label!";" 16368,0" DOS$;"PR#1"" PN$"Printer: Epson"ĺ(9)"80N"" EB$;: ELITE" JJ1J" COUNT1NL# T$(CL$"":865:2280/! (KEY$)13J(LL$):2400Y!$ ((KEY$)48)((KEY$)57)Č865:2280e!. LLLL1u!8 LL4ī2380!B 865:LLLL1:2280!L KEY$;:LL$LL$KEY$!V 2280!` 12:6:J1ī770!j " Turn On Your Printer! ";!t 13:7"~ " Presof labels"; 13:123 "To Printed (1-99): ";A 16368,0K 2730` (KEY$)27ī770 ((KEY$)127(KEY$)8)LL1ĺ(8);:" ";:(8);:LL1LLLL1  ((KEY$)127(KEY$)8)LL1LL$(LL$,LL1):2280! ((KEY$)127(KEY$)8)LL1L2:4:L$(COUNT);:Z1\:f ***** PRINT LABEL ***** Dp10:[z PRINT DIALOG BOXv2:9:QQ138:"_";:2:15:QQ138:"_";:QQ16:1:9QQ:"|";:QQ16:40:9QQ:"|";:LL1:LL$""12:8 "Enter the number URN:";::" ";16368,0& 2730C(KEY$)27Ģ18:1:868u (KEY$)27Ģ1:27:" ESC: To Quit";:V:H:*(KEY$)13ī2060418:1:868>1:27:" ESC: To Quit";HL$(COUNT)"":COUNTCOUNT2:4:I142:" ";:RCOUNTCOUNTL$(COUNT)(L$(COUNT),WC):Z(L$(COUNT))1:COUNTCOUNT2:4:I142:" ";:nCOUNTCOUNT2:4:L$(COUNT);t ***** DELETE A LINE ***** H(36)1:V(37)1:865:1:27:"ESC: TO CANCEL";18:1"DELETE THIS LINE? PRESS RETX(KEY$)13ī1850)b18:1:868Gl1:27:" ESC: To Quit";^vCOUNTCOUNT3:40W$(COUNT)"N"W$(COUNT)"Y":NUMWC:1940W$(COUNT)"Y"W$(COUNT)"N":NUMNC:W$(COUNT);:1:27" ESC: To Quit";L(L$(COUNT))WC10!(L$(COUNT))(WC1)ī1910*86551:27;R"ESC: TO CANCEL";]18:1|"LINE MUST BE REDUCED! ";&"PRESS RETURN:";::" ";016368,0:2730D(KEY$)27Ģ18:1:868N(KEY$)27Ģ1:27:" ESC: To Quit";:V:H:**** UNDERLINE ***** -hH(36)1:V(37)13rJ|COUNTCOUNT3:34qU$(COUNT)"N"U$(COUNT)"Y":1690U$(COUNT)"Y"U$(COUNT)"N"U$(COUNT);V:H ***** WIDE ***** H(36)1:V(37)1W$(COUNT)"Y"ī19'V:H: RETURN TO ORIGINAL POSITION-3T ***** CENTER TEXT? ***** lH(36)1:V(37)1rCOUNTCOUNT3:28"T$(COUNT)"N"T$(COUNT)"Y":1590,T$(COUNT)"Y"T$(COUNT)"N"6T$(COUNT);@V:HJT^ *65:ZZ1:1030#n ECHO TO SCREEN.xKEY$;KL$(COUNT)L$(COUNT)KEY$U1030r ***** BOLDFACE ***** H(36)1:V(37)1COUNTCOUNT3:22B$(COUNT)"N"B$(COUNT)"Y":1490B$(COUNT)"Y"B$(COUNT)"N"B$(COUNT);İ1640:1030: CHECK FOR CONTROL-W FOR WIDE CHARACTERSV(KEY$)23İ1740:1030( CHECK FOR CONTROL-P TO PRINT LABEL2(KEY$)16ī2160<865:1030FZZ1P NC IS NUMBER OF CHARACTERS ALLOWED FOR THIS LABELZZNUM2ī1400d8WE$(30): WIDE END+ 0": WIDE END* 0* ***** OKIDATA ***** O* EB$(28): ELITE (12 CPI)r* UB$(27)"C":UNDERLINE BEGIN* UE$(27)"D": UNDERLINE END* BB$(27)"T": BOLDFACE BEGIN* BE$(27)"I": BOLDFACE END* WB$(31): WIDE BEGIN (6 CPI)+ FX-80 AND LX-80 ***** 9)b EB$(27)"M": ELITE (12 CPI)^)l UB$(27)"-1": UNDERLINE BEGIN)v UE$(27)"-0": UNDERLINE END) BB$(27)"G": BOLDFACE BEGIN) BE$(27)"H": BOLDFACE END) WB$(27)"W1": WIDE BEGIN (6 CPI)* WE$(27)"W7)(69):ELITE (12 CPI)>( UB$(27)(88): UNDERLINE BEGINb( UE$(27)(89): UNDERLINE END(& BB$(27)(33): BOLDFACE BEGIN(0 BE$(27)(34): BOLDFACE END(: WB$(14): WIDE BEGIN (6 CPI)(D WE$(15): WIDE END(N )X ***** EPSON +'h KEY$"N"KEY$"n"ī230: START OVER:'r 865:2890[' ***** QUIT ROUTINE ***** x' :::5:15:"BYE...":' DOS$"BLOAD PAGE3":768' ***** PRINTER CODES ***** ' ***** IMAGEWRITER I AND II AND APPLE DOT MATRIX ***** ( EB$(2I1NL854L6$;::LZ$;:(16384)155INLAIW:D$;"PR#0":420p TOGGLE DISK DRIVESDN1DN2:1060DN1$21912,DN.1630:4408 GET PRINT SHOP GRAPHICB AND CONVERT FOR PRINTINGLEF4:1360 V:60!\23:12:"RETURN FOR MENU")f12Jp"HOW MANY LABEL ROWS? ";NL$czNC2NC1ĺEX$(17)u(NL$)0420NL(NL$)F1NC2NC1ĺEX$(17):12:"PRESS ESCAPE TO STOP PRINTING"D$;"PR#"SL:(9)"255N":CM$;LZ$;4:420 LL$(I)K$:Ig*I14:LL$(I)" "LL$(I):LL(BK$)(LL$(I)):LL0LL$(I)LL$(I)(BK$,LL)4LL0LL$(I)(LL$(I),(BK$))>IHI14:789I,(LL$(I)):I:794,(793)RJ14:K1887964J:I1(LL$(J)):KI,((LL$(J),I,1)):I,J:7795,NC:796,NC:798,FILL(NC)2LL$(1)""770:2:I14::(LL$(I),3511(NC3)):I:12:"IS THE ADDRESS OK? ";:X$:X$"Y"X$(121)860:X$"N"X$(110)ĺ(7);:760 I14:2I2:"LINE "I":";:K$"":L(BK$)2:90:K155I ";PN$;::%23:5:(BL$,32):20:D$;"BLOAD ";PN$HGF1:420_ PRINT THE LABELS:(GF)1820:"HOW MANY LABELS ACROSS (1,2, OR 3): ";:"";NC$NC$"1"NC$"3"700:NC((NC$))NC2NC1BK$(BL$,35)NC3BK$(BL$,24)7) :420(D LOAD CONVERTED PICTURE8NEF3:1360`X:10:10:"ENTER PICTURE NAME: ":b23:12:"RETURN FOR MENU"l12v11:"";PN$:(PN$)0420PN$PN$".CVT":A$PN$:1660:PN$A$ L%(PN$"LOADING ")2:15:(19L%)::"LOADING96)A$((A$)32)"I1(HC$)HA$(HC$,I,1)PKI:I(HC$):500OI^1640:450PK530,590,700,1040,1100,1250,1460450 CATALOG ROUTINEEF6:1360:D$;"CATALOG"&:"PRESS RETURN TO CONTINUE...";:A$0EX$;(1U$UU$U$:BL$BL$" ":. ^D$(4):FLAG0:F0> hEF1:1360] rD$"BLOAD LABELMAKER.ML.0"| |D$"BLOAD LABELMAKER.ML.1" 1810 1760  GOSUB 1750: REM INTERFACE-SPECIFIC PATCHES EF2:1360 :1520 HC$"CLPTGSQ"A$::A$("PRINT SHOP LABEL MAKER":"BY DOUGLAS HILDEBRAND":"COPYRIGHT (C) 1987":"BY MICROSPARC, INC.":12:"PRESS RETURN TO CONTINUE";:Z$: @22528:DN(21912):N$"":AD$"":CS$"":GF0:LB$(91):EX$(27):SL1 JB$(136):U$(223) TI180:BB$BB$B$:U$;:LILI1:K$"":150[ LILĺB$;:U$" ";:B$B$;::" ";::B$;:LILI1:K$(K$,LI):150 B$;:U$U$;:B$;:B$;::" ";::B$;:LILI1:K$(K$,LI):150 K160150 "LILĺ(7);:150 ,(K);::" ";::B$;:K$K$(K128):LILI1:150 6::K128160! K159K255290H K141āKLIL:" ";::16368,0:X K155230z LI0K$EX$:U$;:16368,0: LILĺ" ";:B$; (BB$,LI);:140 (K136K255)280 LI0ĺ(7);:150 LI1ĺB$;:U$U$;:B$;:B$;::" ";::BB$,(K$)1)(UU$,L)(BB$,L):K$;::" ";:i n16384,128:K(16384):K141K155ĺB$" ";:16368,0:~ xK160K255110 BU$;:LI0:K$""::" ";::B$;:280 (UU$,L)(BB$,L);:LI0:K$"":16368,0::" ";::B$; 16368,0 K(16384) **********************; * LABEL.MAKER *X * BY DOUG HILDEBRAND *u( * COPYRIGHT (C) 1987 *2 * BY MICROSPARC, INC *< * CONCORD, MA 01742 *F **********************P310ZK$""140: INPUT ROUTINE, dBU$(B           !"#$%&'()*+,-./0123456789$;:LILI1:K$"":150[ LILĺB$;:U$" ";:B$B$;::" ";::B$;:LILI1:K$(K$,LI):150 B$;:U$U$;:B$;:B$;::" ";::B$;:LILI1:K$(K$,LI):150 K160150 "LILĺ(7);:150 ,(K);::" ";::B$;:K$K$(K128):LILI1:150 6::K128160! K159K255290H K141āKLIL:" ";::16368,0:X K155230z LI0K$EX$:U$;:16368,0: LILĺ" ";:B$; (BB$,LI);:140 (K136K255)280 LI0ĺ(7);:150 LI1ĺB$;:U$U$;:B$;:B$;::" ";::BB$,(K$)1)(UU$,L)(BB$,L):K$;::" ";:i n16384,128:K(16384):K141K155ĺB$" ";:16368,0:~ xK160K255110 BU$;:LI0:K$""::" ";::B$;:280 (UU$,L)(BB$,L);:LI0:K$"":16368,0::" ";::B$; 16368,0 K(16384) **********************; * LABEL.MAKER *X * BY DOUG HILDEBRAND *u( * COPYRIGHT (C) 1987 *2 * BY MICROSPARC, INC *< * CONCORD, MA 01742 *F **********************P310ZK$""140: INPUT ROUTINE, dBU$(B         420B$"T32":LZ$EX$"T14":CM$EX$"Q":FILL(1)21:FILL(2)21:FILL(3)7:EC$EX$"N"EX$"A":w12:"NO GRAPHIC IN MEMORY"&22:"PRESS RETURN TO CONTINUE";:Z$:042012:"NO GRAPHIC IN MEMORY"&22:"PRESS RETURN TO CONTINUE";:Z$:08:17968,48:17969,56:17970,56:PROWRITER/IMAGEWRITER GRAPHICS17972,4:17973,27:17974,84:17975,49:17976,52: PRO/IMWR 7/72-IN. LINE SPACINGL6$EX$"A"(16):LZ$EX$"1":CM$(15):FILL(1)21:FILL(2)21:FILL(3)7:EC$EX$"@":WL6$EX$T$ ZA$AA$? DATA FOR INTERFACE GOES HERE ROUTINE TO POKE INTERFACE DATA STARTING AT 17902--ENDS W/ RETURN17409,1:17495,10:17496,48:17510,1: PROWRITER/IMAGEWRITER PIN INVERSION?17964,6:17965,27:17966,83:17967,4CONVERTED PICTURE"?JX:LB$"T] - TOGGLE BETWEEN DRIVE 1 & 2"VTX:LB$"Q] - QUIT"^17:8:"DISK DRIVE ";::DN;::" IS ACTIVE"h19:9:"ENTER CHOICE: ";r|AA$""Z1(A$)T$(A$,Z,1)(T$)97T$((T$)32)AA$AA: SCREEN MENU :5>"PRINT SHOP LABEL MAKER"E8MX5tX:LB$"C] - CATALOG CURRENT DISK""X:LB$"G] - CONVERT PRINT SHOP GRAPHIC",X:LB$"L] - LOAD CONVERTED PICTURE"6X:LB$"P] - PRINT LABELS"@X:LB$"S] - SAVE 'A$"ERROR "(EC)" IN LINE "(EL):10:(BL$,((40(A$))2))A$:22:"ESC TO QUIT, RETURN TO TRY AGAIN";:A$::A$EX$ĴEF360,420,590,1100,1250,530 QUIT ROUTINE21912,1F01500(4)"PR#"SL:EC$:(12)(4)"PR#0"32883ZEC4A$"DISK IS WRITE-PROTECTED":1440ddEC6A$"FILE NOT FOUND ON THIS DISK":1440nEC8A$"I/O ERROR--CHECK DRIVE DOOR":1440xEC9A$"DISK FULL":1440EC10A$"FILE LOCKED":1440EC13A$"FILE TYPE MISMATCH":1440 11:"";PN$:PN$""420@PN$PN$".CVT":A$PN$:1660:PN$A$}L%(PN$"SAVING ")2:15:(19L%)::"SAVING ";PN$;::(23:5:(BL$,32)2D$;"BSAVE ";PN$;",A$5000,L$758"<420F ERROR HANDLERPEC(222):EL(219)256(218):216,0:ONVERTING ";GN$;:(23:5:(BL$,32)FKK1695616959:KK,0:KKg848: CONVERT THE PICTURE uGF1:420 SAVE CONVERTED PICTUREEF5:1360:(GF)1820:10:10:"ENTER PICTURE NAME: ":23:12:"RETURN FOR MENU"1210:10:"ENTER GRAPHIC NAME: ":?`23:12:"RETURN FOR MENU"Gj12et11:"";GN$:(GN$)0420}~A$GN$:1660:GN$A$851: CLEAR $4000-$43FFD$;"BLOAD ";GN$;",A$4000"23:5:(BL$,32)L%(GN$"CONVERTING ")2:15:(19L%)::"C - SAVE CONVERTED PICTURE"GJX:LB$"T] - TOGGLE BETWEEN DRIVE 1 & 2"^TX:LB$"Q] - QUIT"^17:8:"DISK DRIVE ";::DN;::" IS ACTIVE"h19:9:"ENTER CHOICE: ";r|AA$""Z1(A$)T$(A$,Z,1)(T$)97T$((T$)32) PR#0" : SCREEN MENU(:5F"PRINT SHOP LABEL MAKER"M8UX5|X:LB$"C] - CATALOG CURRENT DISK""X:LB$"G] - CONVERT PRINT SHOP GRAPHIC",X:LB$"L] - LOAD CONVERTED PICTURE"6X:LB$"P] - PRINT LABELS"@X:LB$"S]":1440/A$"ERROR "(EC)" IN LINE "(EL):10:(BL$,((40(A$))2))A$:22:"ESC TO QUIT, RETURN TO TRY AGAIN";:A$::A$EX$ĴEF360,420,590,1100,1250,530 QUIT ROUTINE21912,1F01500(4)"PR#"SL:EC$:(12)(4)":216,0:3288;ZEC4A$"DISK IS WRITE-PROTECTED":1440ldEC6A$"FILE NOT FOUND ON THIS DISK":1440nEC8A$"I/O ERROR--CHECK DRIVE DOOR":1440xEC9A$"DISK FULL":1440EC10A$"FILE LOCKED":1440EC13A$"FILE TYPE MISMATCH12! 11:"";PN$:PN$""420HPN$PN$".CVT":A$PN$:1660:PN$A$L%(PN$"SAVING ")2:15:(19L%)::"SAVING ";PN$;::(23:5:(BL$,32)2D$;"BSAVE ";PN$;",A$5000,L$758"<420F ERROR HANDLERPEC(222):EL(219)256(218)%)::"CONVERTING ";GN$;:023:5:(BL$,32)NKK1695616959:KK,0:KKo848: CONVERT THE PICTURE }GF1:420 SAVE CONVERTED PICTUREEF5:1360:(GF)1820:10:10:"ENTER PICTURE NAME: ":23:12:"RETURN FOR MENU"(V:10:10:"ENTER GRAPHIC NAME: ":G`23:12:"RETURN FOR MENU"Oj12mt11:"";GN$:(GN$)0420~A$GN$:1660:GN$A$851: CLEAR $4000-$43FFD$;"BLOAD ";GN$;",A$4000"23:5:(BL$,32)L%(GN$"CONVERTING ")2:15:(19LZ$;I1NL854$L6$;:BLZ$;:(16384)155INLII_:D$;"PR#0":420x TOGGLE DISK DRIVESDN1DN2:1060DN1$21912,DN.1630:4408 GET PRINT SHOP GRAPHICB AND CONVERT FOR PRINTINGLEF4:1360:I,J:760)\23:12:"RETURN FOR MENU"1f12Rp"HOW MANY LABEL ROWS? ";NL$kzNC2NC1ĺEX$(17)}(NL$)0420NL(NL$)F1NC2NC1ĺEX$(17):12:"PRESS ESCAPE TO STOP PRINTING"D$;"PR#"SL:(9)"255N":CM$;LK155I4:420 LL$(I)K$:Io*I14:LL$(I)" "LL$(I):LL(BK$)(LL$(I)):LL0LL$(I)LL$(I)(BK$,LL)4LL0LL$(I)(LL$(I),(BK$))>IHI14:789I,(LL$(I)):I:794,(793) RJ14:K1887964J:I1(LL$(J)):KI,((LL$(J),I,1))$,24)'795,NC:796,NC:798,FILL(NC):LL$(1)""770:2:I14::(LL$(I),3511(NC3)):I:12:"IS THE ADDRESS OK? ";:X$:X$"Y"X$(121)860:X$"N"X$(110)ĺ(7);:760 I14:2I2:"LINE "I":";:K$"":L(BK$)2:90:"LOADING ";PN$;::-23:5:(BL$,32):20BD$;"BLOAD ";PN$PGF1:420g PRINT THE LABELS:(GF)1820:"HOW MANY LABELS ACROSS (1,2, OR 3): ";:"";NC$NC$"1"NC$"3"700:NC((NC$))NC2NC1BK$(BL$,35)NC3BK$(BLEX$;(17):4200D LOAD CONVERTED PICTURE@NEF3:1360hX:10:10:"ENTER PICTURE NAME: ":b23:12:"RETURN FOR MENU"l12v11:"";PN$:(PN$)0420PN$PN$".CVT":A$PN$:1660:PN$A$L%(PN$"LOADING ")2:15:(19L%):::A$(96)A$((A$)32)*I1(HC$)PA$(HC$,I,1)PKI:I(HC$):500WIf1640:450PK530,590,700,1040,1100,1250,1460450 CATALOG ROUTINEEF6:1360:D$;"CATALOG"&:"PRESS RETURN TO CONTINUE...";:A$ 0U$UU$U$:BL$BL$" ":. ^D$(4):FLAG0:F0> hEF1:1360] rD$"BLOAD LABELMAKER.ML.0"| |D$"BLOAD LABELMAKER.ML.1" 1810: FOR IMAGEWRITER 1760 1750: INTERFACE-SPECIFIC PATCHES EF2:1360 :1520 HC$"CLPTGSQ"A$:"PRINT SHOP LABEL MAKER":"BY DOUGLAS HILDEBRAND":"COPYRIGHT (C) 1987":"BY MICROSPARC, INC.":12:"PRESS RETURN TO CONTINUE";:Z$: @22528:DN(21912):N$"":AD$"":CS$"":GF0:LB$(91):EX$(27):SL1 JB$(136):U$(223) TI180:BB$BB$B$:U@ѩРѥD@`LX1-FY E,FҍY EXQԩJLES@ԩJLEUԩJLEWԩJLE Y ELEԍY E Y ELD Y E Y EӭXLD`)Y`D<@@ѩ  Ѕҍ P D  Dь  qґ XͭJ  L!D@ Ӯ  L!D`  P҆өXXLDP҆Ӭ  `JLD`LD5FY E4FPӠP LDL FLDLE17966,83:17967,48:17968,48:17969,56:17970,56:PROWRITER 88 COL GRAPHICS!17972,4:17973,27:17974,84:17975,49:17976,52:PROWRITER 7/72-IN. LINE SPACING!!12:"NO GRAPHIC IN MEMORY"!22:"PRESS RETURN TO CONTINUE";:Z$:!400 T$)97T$((T$)32)% 4AA$AA$T$, >Z7 HA$AA$= R| \ 173,153,192,41,55,201,16,208,247,173,89,3,141,152,192,96 fI015:X:17902I,X:::SSC/IIC p17409,1:17495,10:17496,48:17510,1: PROWRITER PIN INVERSIONK!z17964,6:17965,27:O GRAPHIC IN MEMORY"?&22:"PRESS RETURN TO CONTINUE";:Z$:H0420BETWEEN DRIVE 1 & 2"wX:LB$"Q] - QUIT"17:8:"DISK DRIVE ";::DN;::" IS ACTIVE"19:9:"ENTER CHOICE: "; AA$""Z1(A$) T$(A$,Z,1) *(L6$EX$"T32":LZ$EX$"T14":CM$EX$"Q":FILL(1)21:FILL(2)21:FILL(3)7:EC$EX$"N"EX$"A":}12:"NO GRAPHIC IN MEMORY"&22:"PRESS RETURN TO CONTINUE";:Z$:0420EHIC IN MEMORY"&22:"PRESS RETURN TO CONTINUE";:Z$:04202:"N7967,48:17968,48:17969,56:17970,56:PROWRITER/IMAGEWRITER GRAPHICS17972,4:17973,27:17974,84:17975,49:17976,52: PRO/IMWR 7/72-IN. LINE SPACINGL6$EX$"A"(16):LZ$EX$"1":CM$(15):FILL(1)21:FILL(2)21:FILL(3)7:EC$EX$"@":]AA$AA$T$ZA$AA$$d 173,153,192,41,55,201,16,208,247,173,89,3,141,152,192,96I015:X:17902I,X::: SSC/IIC17409,1:17495,10:17496,48:17510,1: PROWRITER/IMAGEWRITER PIN INVERSIONE17964,6:17965,27:17966,83:1@@@@@`?5*Tkk*V,T$X(P @@````pPP ` ` OP`@@rM*U*U*U*UJ<4  @ DIIdibiCaB%^ 2-2YNpHd,X0r#%#qHJ(QS'*BR% :$p@@@  `@@C$$80 9a8lb @|p,D 1MUeeUH |@`PX       ~,V*kTk4*5 y@` 0\'Y*U*U*U*U) @`00hHH($IIK#KaLC4!R=X&Z&M9`@ P4 @'bRbT$G )T Eer*!%PRH. H(P `@x a@@ PXNC@@0#DD   or ."< (9:10P -" LABEL IT"Z .:10q 0" LABEL MAKER"{ 2:10 4" LABEL PRINTER"; BA$ FA$"A"A$"B"A$"C"66 P:A$"A"90 U:A$"B"100 X:A$"C"110 Z(4)"RUN00`@ACps0@0`_?0zp@?Bq?` `p`p@0~C`@sO90@AA v@`@ 8`p`s|pq a0`C@@0A0@~xC0p A}m@p@0`C0x @ x8 @`Ap@>?x@>``0~@0` aA| x          `cn~ @00B08p @08 aA|@~0@A0@}?`@ 0 A~a<` cN|x 0~0 p @08p#| a0@C0p``~ |qC@@8`0@aFL@0|<x?p&^ cB7`` F?C@@ `> ``@GXGa 0 @Hp&N c=?`@ @C0|C`@{?0(4)"PR#0":34,3::5:"RUN MORE LABELS? (Y/N) ";:AN$:AN$L @AN$"Y"ī80Z J34,0::NL))SPė:200 NLJ :14:"THIS IS THE WAY THE LABEL WILL LOOK:":c :C15:L$(C):C: 22:"IS THIS CORRECT? (Y/N) ";:AN$ AN$"Y"Ĺ34,3:290 AN$"N"ė:190 "::(4)"PR#1" ,C1NN:I15:(DW);(LT);L$(I):I::C; 6DTH ";:"";TY$0 TY$"1"TY$"2"TY$"3"1609 130X TY$"1"LT18:SP36:DW18w TY$"2"LT15:SP30:DW18 TY$"3"LT14:SP21:DW15 NL1N 21::"LINE #";NL;":"::(91);:L1SP:".";:L:(93) 15:2:"";L$(NL) (L$([P:::34,10:L$(5)LZ:"*** L A B E L P R I N T E R ***":xd5:"HOW MANY LABELS TO PRINT? ";NNn6:"HOW MANY LINES PER LABEL? ";NxN0N5ī110 8:"TYPE STYLE. 1) STANDARD":14)"2) CONDENSED":14)"3: DOUBLE WIX`ɄL l݅Y ,թ ڢY` AN$"Y"Ĺ34,3:290+ AN$"N"ė:190? "::(4)"PR#1"m ,C1NN:I15:(DW);(LT);L$(I):I::C 6(4)"PR#0":34,3::5:"RUN MORE LABELS? (Y/N) ";:AN$:AN$ @AN$"Y"ī80 J34,0::SP18:DW15 NL1NT 21::"LINE #";NL;":"::(91);:L1SP:".";:L:(93)h 15:2:L$(NL) (L$(NL))SPė:200 NL :14:"THIS IS THE WAY THE LABEL WILL LOOK:": :C15:L$(C):C: 22:"IS THIS CORRECT? (Y/N) ";:AN$DARD'"* ~13:"and '3' for 'BOLDFACE'.)" 8:"TYPE STYLE. 1) STANDARD":14)"2) CONDENSED":14)"3: DOUBLE WIDTH ";:"";TY$ TY$"1"TY$"2"TY$"3"160 130 TY$"1"LT78:SP30:DW27 TY$"2"LT113:SP36:DW27 TY$"3"LT14: F(4)"BRUN INPUT.ANYTHING"8P:::34,10:L$(5)kZ:"*** L A B E L P R I N T E R ***":d5:"HOW MANY LABELS TO PRINT? ";NNn6:"HOW MANY LINES PER LABEL? ";NxN0N5ī110 }12:"(For Epson, choose '2' for 'STAN    ` O` LABEL IT":(4)"RUN LABEL IT"P d(4)"RUN LABEL MAKER":(4)"RUN LABEL MAKER" n(4)"RUN LABEL PRINTER":(4)"RUN LABEL PRINTER"