8L2C)pJJJJ IH(ȱH:=IH[H`@HcH  $ +   I/H`JLNGȄBȄF aK  haaFF  mJm# KKJ UJ )J ۈ) ;J3ȱJFȱJGJKaȄM  aaNNJFLGJL LL !Cb" %n"o" (#M8( % ) L'"p"q" (\4, )7(P0  ( @p 8  x"!b"i"0 ~&i"0 %r"s" (,) &Սt"u" ( %L'")0I0hx H( +gDLP1.1B-S,(&S(&&DLP1.1f.&("DLP.DOC.AWPP!S (&'DLP.DOCI&("DLP1.1.BAK-R(&STARTUPRTN&("'DLP.PIC & ("DLPNK70 I%' &PRODOS }<Q',BASIC.SYSTEM((Q ҨFINDER.ROOT<70 p70 FINDER.DATA=70 p70 )DLP.SETUPQ8 &:͋73 DLP.DOC.CRW? &PRODOS `DaElH$?EGvѶK+`L HHLy XP LM ŠϠĠӠS)*+,+`F)) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8R %Щ ߩx"L! )L! 8'  )ɀ)4,- U JNT) x"Lv"w" ( !` a"M)Fi/ e"3 k"  !"#$%&آ <B*IBGF08Lé'+8H <,``h(`@ڍL3<>=?<>CAB@?A` 1 L  <>`ڢF]PL8i m L   6< L  BLRAM' hLDLHB-9F 3"aɿ LLB Nϰ H  @h( L Lj  @`eLJCAB@=?.<ʆ>,=?BC8 é&'112``* G** c*` v* G* c*`hh8`8`***`}*`e`H)hJJ*0JJ)` (< ( < *? ( < (? ( < (? ( <*? * **? *? *? ( < *? ( <ȱȱȱȱ0]cȱeem*ȱ*ȱ**ȱ**ȱ* )* * )L(`L?* *Ll) ) L( )Ll)8e` ,$`ee` < @( )m((.(( M(i  ``) |'(j21 z& {&!` ({&z&(i({&(( CBDFGE (r&$ 3(,}&r& … 3(ŅL&JJJJ`Ϡ'8`r&h)hr')L&18|&"m11 2H22h2舌|&|&12H)M0 h10200I20h2 (`LE%12 `_'"L  <8# ȱ)ɀ  )( ` (Xp0`ŠӠֱíԠŠҬî̠ӠĮʎ1|&… (n}&Dž (\%Tz&Lc()8= (J 8'z&'{& 3((ʎ1|&|&|&3223 `%YYZLYLYLY뿭` 8!@8` %MNЩUMߩ  L 5   8 0 8  `0 / X& & +&&7&P^& S ɘL   V7 L ' 0% '8 Jm ʈ0  0ŠϠĠ͢Š͠͠ϠŠŠϠĠخ͠ ͍B B(8. ) ɘ"    L=#=#&ŠϠĠԠŠ ԩ m# m# J Qڨ)̰m] нȱ ̀𩠙 i F >l"m" h" iL X%;"L8"ΠΠҠ`y""""""*$ Fk%YeQP!/RB}QBiBB}\ ĉFEL/#> ț6 hh@ihAiH(ؠȱ@JJJJq@)@Yvȱ@Hȱ@Ah@y@cYe J) LL LJiB LJ) >xhHHHHL(  ްƠx@BEOD  ް(`( C)CJJJlB O-`J,~@~@}J@` ߩ%S @ ~`E hhhߺ0 h ߐ( ߐ ߐ ߐ  0 HϭߍLпllllIL/FHGI ҭJjHIHB>IؙJJ W: ELyHIHI`JKJK`FHIG ( Ȣ؝؈JL)eKM`)` J zJ͟ $0 ΎJFJL8`JGBJ P ؑ@`M8`8@ؐʈI묆)z8zz Ly LةC8`؍)@ i)z8zyJ ^ ؅F Lo) +%J(a *FإGؐ.` *JHIH ۩ ٰz{`JJJJ;i v묅͚ vٍ0  `H8` `ٍyٍiB0H0FG h0`FG `ϩBxED0C ް(`(8`{ `ٽJJJJ`H͐hn)NjNjNjN. CH͐ v;٭ *Nۙ۰ڙک `Z8` C# (`{ .{ .{ .{8۰*Jzܝ٭(ܝ`)َ 8ʈ` 0ٝ)i `8`R ꍐz{ vNمFمG < ΐ0 FGL鮅0 ٭{٭zٽ8`H8`  ,z { 8` z E8`1ݾ00 Y 0ʩ 谼 谷`12)1`0`Ȏi 0U`)8`ά` W xG 0A)H ܝʈh٭0٭)ܝ٭*ܝ٥F٥G٭'ȱHά`Ύ8EeHI |SB:0M ٙKٙIFNGʈ d献`8m0`,0H hi PȽάhٍ0GF8yאFG  $0 G01܅I `P܍QR d8D`F` ]lH)HFȍNHGO $%܍&܍!ܢ8* J8` L ܝ>)I 'ܝ:`F8iRFPGQ`F܅IH3H ( )O 밨G%܈D" T)Ii)܍R*܍E'ܮ( 4 䭐 $H %HFFHGHG 됬`R8`)` EHS` #Q'܅IHHSSЍS@`8 ` ͍% ΍Q8`ʈ@qȱ@cȱ@mopfNxOyS)5SI0ܢܽ iP'E* 7deFG (GH Lv܅IR mEIH` tq qM0PQ ESHNFOG 밳NN` G8`F@ 0 > LK8`: ;I8`FHGH hGhF܌ բFܽܕF芝ܝ 밶:; <܅I m=IHHyHȘI Lܝ` @c@ k@Ю׍S)mיSi 뎅`C8` @ r3N@) G莱 ⭮i`0 Y; 뮅ٝ٘ 0 W,0 .H hȑNWȮّNW8`ٍّNά0N뎒׮Б` L` @>S)I38Mdeם`K8`@Nȱ@O@ rIiNȽבN)/ȩ/N`@[ WHJjjjhA ,'KI؍0JHhh8` Qx")T'P) ɺiL; )?     ~ `l@Hȱ@IױHXATȱH ɯȩ׍̒5H)/@a)_ .0 :A[8@`,FإG`BH PFإG`,H hHB؅F  ؅GxDE؍00C ް(`(8` vL'J  6"L vH  6 9ؙ` @ P8`K8`B8` L؈SJJJJحq) ) )Ю ЪGdF $ ᭔ع+ؠ 2H  :h8` 䮅ٽ ٬ؠ@` ( L )8`)i п` H h)N$%hꭋILhH),Nx8 (8` ԍ`@ABe 2U,,CnZ1IJK,-NOPQRSuHUSTON!' @  K cXXK تKo`V8`no` , on cI9XX`)HJJJh`OeNeO࿰ c9XАO`@ȭ@` ON INJKO`Hх 밽܅F݅G ` c* Z% L`L뮴HH hFhG܍ݍ 8 `FHGH  hGhF`ݹܙ݊`@Bɼ>K@J5 c9X(N    ܮ `J HH hh` 0 @ L/L Z`̸Yܝ ݝ0̸ȩFG   0` ܅F݅G ` c Zͬ LȹL@ȅH@IL,0` G וֹ= YH.q)N 0 >deS)@LP8` D᮴ ֩SGHG v L䬅yٙ٭yٙ٩`K CEdFeG 6%&ȹP8` i` %ם0 B %)( ȹ`8m8m@8` G8`F Pq)@N8`S)@J טyרםSS)׍Sde 밑 Ȣ؝I؈ 2h(8H ( h(8Hh(`ؑ@`@ȱ@ ` B@8ZS d鮅ٍٍٍsHٍr8fhgSJJJJS)S@` %I -q) 0@S)N8` @LL =@ ؝~@~ݞ@ʈL2 KIJHȢݞ)Jn 8 θ ؍ ؍ DH8 ع)ꭵJJJJ )߹0 )p )@ ) ȩ ؝L0NO 방 PQNOFG 嬆؍f؍g؝h ؝c zS) zS )حM͚ v`H@h`h``N8`  ) 1⬆iع `  عiعi` )؍0CGHFHBFG ުhFhG`@4͔ L @Ai ׭2` . :#ع؍0 Y讅)`.@+ i 8` L ؊ PLE΢ʱNLMOMEKP%MEK΢L$ O, PeNNO 2(` C  7 2JzHI{HI؊ }LE  *` A Hz ع H{ ؙ؊ؠIhHIhH } `؝}zIzؐ` f~ؽ؝z f % f؝~z؈` ` H  Ph)N@ 1; L  2$ )bJ Y ) H 4hL )  )حJjI{HIzHNO 8 ؍JL`R΢ʱLN1MOMEKP/MEK΢L7L-M O,p莡eNNO(`JNKOL 2/ "P L8 y WؑJ`L@ȱ@ `@Nȱ@O LL L r L 2 "pJ덣 )@፦NJOK 2iKK΢΢ IJΣ JФ̭JjHFIH HIGxKE ް((H hH h8`8@ȭ@L2쬆8N !"#$Ԡ͠ˠĠԠҠLKL`BLL ެެެެެެެެެެެެެެެ(C)APPLE'83xLLM Mh@8nЍLޭ 0J @,,LNLG ASTARTUP$#   / XXύX?klmnÍoL) "6L'?"(0`6708" = ***)<0h)ύh0HHHH " ׍hhhhhhh .hh8`JIMJAYKERRY&MIKEB,H & [ 9 XL&%L t 1 )L`0  `i  e`ԍ : þ myɯϠrd s  ߅ E  [/LV)/0 ȱ)ѥ0͎ +q рtu p  1L H h)],T !k & <L)Lf۰ H h'$ 1 10ȱ 1 1 0 /XoώX) ʎߍ8  & E   L  < & 1  c  E QbrdȄ`eȄp cs '  fd0a `L & ! <ɛ)8V%֌&8V֌֠)HV)hH)hHIhդD?DRIDQD)҅; ?JDQD]ՎՎՎ`MY pӭY)p  ӭp`C)`BFGV 8``8LխӅ:HhHh Ո թ թ ՘VYҪҦ>:Y)Ң`;R?AJ;<ȰY)Ң`Y?)Ң`ȐҰ ;HhHh=Ң`Hh `Hh`DEiȍ0֌1֍ZԍsԍԍԍԥDEԌ8TԌ8WpԌqԠ 7I꽌ɪ꽌ɭ蠪:љVE:8`]ѾV]H)]ѾV]ҙ)]ѾT]ҙ)] >8hUD` ԝY`> Hh݌(`HCJJJJ)*h`0($ p,&"op8`kkV꽌ɪɖxlӽ*kӽ-kәmMlӈ 꽌ɪ`8` *L o % ԽYӍZӭoӝY 3Ѡ шNZ`rZLkӭZӍq8r7IZӐiZkӐk 8 ѹs ӭq ѹ| kн Z)*>>` @ $(,048<@DHLPTX\`dh 0ުlptx| ֽ ְ& .Vӈ  JJJJH 8h Ei 8EX`'8`jӍWӥC)p> pӥCYӍY 轊( ( ӈBV ( ӭp0 \BkJ ՠ@iӦ> Ӑi'j:ZH i@ioZZH h ѐȭnWǥBJ Ӱ8XӦ>` Ր+>P׽8H  ): e: y8鰕:Jjjj<)yאi8i;i(*=>hPם8`;Zx3QZYXXWV[HEVhEhH)IWHPHHHAHHHLaVEWLӿJJH !h穖tp% ;"Z/݀>">"' 1" 7"5).莀/ ;" " 6" >" 1"6"$ "g"" !"""""IzL')*+,-./0123456789:;j>>m>` _m8injkiljo풼i>?Ek?>Q>> L> \/ e>>?́?ޱ>ȥpnG @p;G=po:Q>>>̀ `` \> ̀ `e>>?́?>?Emn(>e>ȱ>e?>Q>ؠ> ie>>?`|;}=:<~:<=;`||m};>:8o>oȑ>ppȑ>> :op`G DKJپھ pHJh` D!hgt}~p `~t}p8n~ni}tpi~~tso8pinii>j?k̈́>~|p|Ii||̈́ l - `>i>L8933LΞAAJL ةޘг uv $ 8LƞaЌ>?@`>?@`B8` K  춼LK ҟ ҟ ( KK`HJJJJ8`HK)` #hhL𚾤3 @LtJ)s@J b  l`a?sa?,E30ɍФ3 E3HD F3 Ʉ%h3 bM E  lLthɍLL3`3,A0s0% Ipn DpnI:L ؅303پھ p H־Ǿh۰8L־Jjjjɾ)Ⱦ8 ѱ OLӜ ĤLLX>(F`־ؾپھ׾` bɄ KDEF vLl v lL bKɍKL?` w  vLl@$݅3`(l8L3LX>(Ƀ,`3,G0]ɾ g` H`پ_پ p _پ׾`>( p۾m׾) W)ʩ@`ɾ>(O puȾ ɾ-O ]c־Jjjj `O>0O l PODEF޾ p ޾ p($ذ v (0 ( L?ԦʚLeةީa s  lL b,FLg,DL,C0$3 >@ Ɉ 3ɾꩈL(3ɾ;Ƀ B94 l% bʽ  ՚,S` H EH06172839h` v97L75v^a ?/( va?LLLɍ$?`?a ɍɥAH93827160hH46576879h`,C bL ɍ b w,S0 @ lLޭBYL 8!9 詍` "  à4"/pŠϠŠà͠ӠàԠŬh,PIN'ҍIxy /L6Ix y JpnoF /= plm /w)!,ZJYH)h****)  md8幙`\H[< h  /( 载쳼󩭙L/id /`H) hJJJJ ɺi` M  ` ת.8 `O`S  AI-L9 ᪰B C VWS`޾Lp h־Ҿ,G0^W)TP) ecfdپھ׾ؾӾ p$c d pccddީ 8`ȾɾʾNfne}ȾȾI>Ie f`8` P־ǾҾ,G0C f=W)_``\"׾پӾؾھ pD`־ǾY׾ؾOW)ݩȾɾʾ pD`8`W)CB) 5W) =)W)@! pZ}ȾȾ󰹩 p` ־ǾҾ,G 8`׾ؾ f p vۥs׾tؾE`  - APPLE ORCHARD BBS -8 = (919) 764-3834 =S =-=-=-=-=-=-=-=-=-=-=\ "610v , =- CENTER TITLE -= 64:1:868:(20(A$)2)1:A$:7:: @ =- PRINT MENUS -= JVT10:N1MC:(VT2N):10:N;". ";M$(N): TN1:430 ^470&=?@ABCDEFGHIJKLMNO'gf)7STARTUPUPTEMRAZHDLP.PICUPTEMRA7DLP.DOCUPTEMRA7HDLP1.1TUPTEMRA DLP.SETUPTEMRA BASIC.SYSTEMRAHPRODOSPSK5.25A*LLwLLL) `8` ԠŬLLʮq$6,⨁ K6, VtI=v!gNVt Vt  lg~TV     T[fouu~ՠٯ* PWN*]ĿNTz @n6VC/+A>@I5gN Oz @n[Dz @nd0,~z @`$仫@v$⩔,C[B?I>孓`仫6VtCicQĿUKqtVt Nֵ#ح#׮2}q :IC@@ -!S    !C- !ABELSDFRV@@ !$(19@EüϠž(+@ABCDEFGHIKLMNPSsƬƀ#(ZZV4G_0=( A P FjL\5p-e9ABSAVERIFYBLOADELETEBYECATALOGOPENWRITEXECREATEFRESTORENAMEBRUNLOCKCHAIN#FLUSHREADPOSITIONOMONPR#PREFIXCLOSEAPPEND6D(!쫂8 ( 8о(־Ǿ,G 8`_`W)H־Jjjjh p̭ fLᶢǾ ת..8 ۭ (8mȾȾmɾɾʾiʾ` Lpl8l:/,s hK138K149İ450:NN1:NMCN1L rK136K139İ450:NN1:N1NMCo |K177K176MCİ450:NK176| K141ı K155N0: 430:350  =- PRINT POINTER -= (VT2N):10::N;">";::  =- ERASE POINTER -=  (VT2N):10:N;". ";:%  =- GET A KEY -= 3 16368,0N K(16384):K128480c 16368,0:510:}  =- MAKE A CLICK -= X(16336)(16336):  =- OPEN DISK DIRECTORY & GET VOLUME NAME -= N 10:"Put disk to be labelled in Drive ";DR;" andTUP$)4:(((SETUP$,I,4)));:\,((EN$));:VL$;:36,21:BF$;" BLKS FREE";:((EF$))u6I13:C$(FII)"":@I1FI3JC$(I)" "C$(I1)" "C$(I2)T^(12)hD$"PR#0"r| =- CONFIGURE MENU -= CH0A$"Confi,15,3)D$"CLOSE"!1550'@ =- PRINT LABEL -= A$"Print Label":310:10:"Make sure printer is ready, then press":"a key. Press ESC for the Label Menu.":470K155ı!"D$"PR#";SLOT:I1(IS$)4:(((IS$,I,4)));::I1(SEK155ĺD$"CLOSE":&K1411490>K217K2491420FIFI1:7:37:FI:FI42FIFI1:8:958:12:(7);"Only 42 files will fit on a label.":"Press a key to print label.":470:1490C$(FI)T$:1400T$:T$""1490BF$:BF$(BF$310:530:K155ıd540xn22:1:"ESC to abort to Label Disks menu,":"RETURN to stop selecting & print label."xT$:T$""1500T$(T$,2,10)" "(T$,18,3)" "(T$,26,3)14:T$:20:"Include this file?":470K206K238ī1400(15502<:"There are ";FILES;" files on this disk.":"Only 42 files will fit on a label.":"Use the Select File option to select ":"42 or fewer files for the label."F1130P =- SELECT FILES FOR LABEL -= ZA$"Select Files":":310530K155ı'540/I1IC$(I):C$(I)""1250m7:31:"Files: ";I:II1:1230BF$:BF$(BF$,15,3)D$"CLOSE"FILESI1FILES42ī1340 I1FILESC$(I)(C$(I),2,10)" "(C$(I),18,3)" "(C$(I),26,3)M0:I1M0:M$(I)M0$(I)::330;BN1120,1670,2420,2380EL1080bV =- LABEL DISK MENU -= |`A$"Label Disks":310jMCM1:I1M1:M$(I)M1$(I)::330tNM1N0ı~N1180,13701120 =- PRINT ALL FILES -= A$"Print All Files15:"Version 1.0"213:"By Dave Touvell"a"======================================="k34,6v1050D$"RESTORE";PF$;"DLP.SETUP":1060216,0:1670$216,0)D$;"PREFIX":PF$. =- MAIN MENU -= 8A$"Main Menu":310:MCPrinter Slot","Printer Interface Setup","Choose Printer","Return to Main Menu"M0:N1M0:M0$(N)::M1:N1M1:M1$(N)::M2:I1M2:M2$(I)::M3:I1M3:M3$(I)::"======================================="12:"Disk Labeller Pro"tion","See Documentation","Quit to BASIC",3,"Print All Files on Label","Select Files for Label","Return to Main Menu" 5,"Epson MX/FX/RX","Imagewriter II","Okidata Microline 192","Custom Setup","Return to Configuration menu"P 5,"Drive Number","0:12:15:"Press a key":510:(16384)127Ģ12:15:" ":(16384)127850l\16368,0:255f =- INIT VARIABLES -= pSLOT1:DRIVE1:IS$" 009 054 053 078"zD$(4)C$(100)D$"PREFIX":PF$w 4,"Label a disk","ConfiguraP:12:UP$UP1:12:UP$0UP:12:BK$9510JDN:12:DN$] DN1:12:DN$nDN:12:BK$ UPUP1:DNDN1*UP67304I11000:>8:6:"A ProDOS Disk Label Printer":510H21:8:"This program is FREEWARE":510YR10 b:lUP12:DN127vUP$"Disk Labeller Pro"SDN$" By Dave Touvell "oBK$" "L$"======================================="L$:510I222I:(1):"=";:39:"=":510L$:510I1750: U ":"press a key. Press ESC to return to ":"the Label Disk menu.";:470:g D$"PREFIX/,D";DRIVE| &D$"PREFIX":VL$ 0D$;"OPEN";VL$;",TDIR":D$;"READ";VL$ :Z$,Z$,Z$ DFILES0:7::"Volume: ";VL$;:31:"Files: " NX =- TITLE PAGE -=guration":310216,0C:MCM3:I1MC:M$(I)M3$(I)::330VNM3N01740qN1770,1870,1810,1910{1680CH1ė:12:10:"Saving SETUP file...":D$"STORE";PF$;"DLP.SETUP" =- SELECT DRIVE -= [A$"Drive Selection":310:10:"Enter the Drive number for the disk to":"be cataloged: ";DR;(8);:Z$:Z$(13)ė:tZ$"1"Z$"2"ī1770DRIVE(Z$):CH1:: =- INTERFACE SETUP -= A$"Printer Interface Setup":310w:10:"Enter the DECIMAL value of each":"ch"Press a key to return to the Main menu.";:470:1080>* Y* -=-=-=-=-=-=-=-=-=-=-t* = DISK LABELLER PRO =* - VERSION 1.0 -* = BY DAVE TOUVELL =* -=-=-=-=-=-=-=-=-=-=-D$"OPEN";PF$;"DLP.DOC"5) D$"READ";PF$;"DLP.DOC"@) 2530H) L1e) Z$:Z$;:Z$(13)LL1t) L162470) 24:1:"Press a key to continue. (ESC to quit.)";:470:K1552510) :2460) 216,0) D$"CLOSE":8* 216,0:D$"CLOSE":24:1:+($ (ZZ$)JZZ$(ZZ$,(ZZ$)J):23007(. ZZ$Z1$=(8 X(B =- EXIT TO BASIC -= t(L A$"Quit to BASIC":310(V 12:4:"Are you sure you want to quit? ";:Z$:Z$"Y"Z$"y"ĉ::(` (j =- SEE DOCUMENTATION -= (t A$"Documentation":310)~ 32"1'(ZZ$,1)" "ZZ$(ZZ$,(ZZ$)1):2260]'(ZZ$,1)" "ZZ$(ZZ$,(ZZ$)1):2270|'(ZZ$,1)" "ZZ$ZZ$" "'Z1$""'J1' (ZZ$,1)" "ZZ$(ZZ$,(ZZ$)1):2310' (ZZ$,J,1)" "JJ1:2320( Z1$Z1$" "("000"(ZZ$,J1),3)23:22:868:EF$&7:1:35,11:958:35,24:"Press RETURN if these values are OK, or":"Press ESC to change them. ":470:K1552060&K1412200&SETUP$CM$SO$LS$FL$&CH1:& =- PARSE CODE STRING -= 'ZZ$""ZZ$" 019:22:868:FL$n%p21:"Expanded mode On:";:22:EN$;:21:22:"";ZZ$:ZZ$"":21:22:868:EN$:2180%z2250:EN$ZZ$:21:22:868:EN$%23:"Expanded mode Off:";:22:EF$;:23:22:"";ZZ$:ZZ$"":23:22:868:EF$:2200&2250:EF$ZZ$:Z$:15:22:868:SO$m$H17:"6/72in line spacing:";:22:LS$;:17:22:"";ZZ$:ZZ$""Ģ17:22:LS$:2140$R2250:LS$ZZ$:17:22:868:LS$$\19:"17 line form length:";:22:FL$;:19:22:"";ZZ$:ZZ$"":19:22:868:FL$:2160%f2250:FL$ZZ$:alone to accept the value shown."{# 13:"Condensed (17CPI) On: ";:22:CM$;:13:22:"";ZZ$:ZZ$""Ģ13:22:CM$:2100#*2250:CM$ZZ$:13:22:868:CM$#415:"Superscript On: ";:22:SO$;:15:22:"";ZZ$:ZZ$""Ģ15:22:SO$:2120$>2250:SO$Z SETUP$" =- CUSTOM PRINTER -= A"A$"Custom Printer":310" 7:"Enter the decimal values of each ":"character of the printer command code ":"needed for each function below. "##"Seperate each value with a space. Press":"RETURN ITER II SETUP.! =- OKIDATA MICROLINE -= !:12:7:"Okidata Microline Selected.":14:8:"Press a key to continue.":470"CM$" 029":SO$" 027 076":LS$" 027 037 057 012":FL$" 027 072 049 055":EN$" 031":EF$" 032":CH1::OKIDATA MICROLINE 192 020":CH1::EPSON SETUP7  =- IMAGEWRITER II -= :12:8:"Imagewriter II Selected.":14:8:"Press a key to continue.":470!CM$" 027 081":SO$" 027 120":LS$" 027 084 012":FL$" 027 072 048 050 048 052":EN$" 014":EF$" 015":CH1::IMAGEWR:330N0NM2ı2N1970,2010,2030,2050<1910X =- EPSON MX/FX/RX -= :12:8:"Epson MX/FX/RX Selected.":14:8:"Press a key to continue.":470 CM$" 015":SO$" 027 083 048":LS$" 027 065 006":FL$" 027 067 017":EN$" 014":EF$":!D =- PRINTER SLOT -= wNA$"Printer Slot":310::10:"Enter Printer Slot: ";SLOT;(8);:Z$:Z$(13)ė:XZ$"1"Z$"7"ī1870bSLOT(Z$):CH1::l =- PRINTER MENU -= vA$"Select Printer":310:MCM2:I1MC:M$(I)M2$(I):aracter of the command string needed":"to set your printer interface card for":"a 65 character line. Seperate each"&"value by a space. Press RETURN alone":"for no change: ";:22:IS$;:22:"";ZZ$:ZZ$""ı02250:IS$ZZ$:15:22:868:IS$:CH1plSUP@DNUDݕB̕L&XISLDRIFLSDS@PfDPM0 N`M1@M2@M3`M4M5M6@CHA=MC`VTK C^SVL JEFEBaged to do so. Disk Labeller Pro runs on any Apple II capable of running ProDOS 8, with at least one disk drive, lowercase capability, and a dot matrix printer that will print Condensed Superscript (17 CPI, 1/2 height) characters. This program will read Disk Labeller Pro Version 1.1 by Dave Touvell Documentation File October 18, 1987 GEnie Mail address: D.TOUVELL This is a public domain program. You may give copies of it away, and are encoura diskDLP.SETU VAR 6DLP.DOC TXT 17DLP1.1 BAS 25DLP.PIC BIN 17STARTUP BAS 1BASIC.SY SYS 21PRODOS SYS 324 X 1-7/16 inch3-1/2 X 15/16 inch /DLP1.1/154/DLP1.1/ 027 084 012 027 120 027 081/DLP/Y009 054 053 078menu, "See Current Setup", to see tDrive LocationSee Current SetupReturn to Setup MenuCustom SetupOkidata Microline 192Imagewriter IIGemini STAR (Old Model)Epson MX/FX/RXReturn to Main MenuSelect Files for LabelPrint All Files on LabelQuit to BASICSee DocumentationSetupCatalog a diskLabel ve LocationSee Current SetupReturn to Main menuPrint to PrinterPrint to Screen4 X 1-15/16 labels3-1/2 X 15/16 labelsReturn to Setup MenuKey Click?Print 'Free Blocks'?Label SizeReturn to Main MenuOther OptionsChoose PrinterPrinter Interface SetupPrinter Slo (M( M( ӒŒ  tSetup 015 014 027 084 012 027 120 027 081Imagewriter IIReturn to Main MenuOther OptionsChoose PrinterPrinter Interface SetupPrinter SlotDriM( ” M( ycPM( B+ M( דɓ  xM( nZ P<M(6e.ޔΔΔΔΔL( M>Cp( PRSTUStZsVkFI`BhT`N_NCLILPRLLLPXtPZ_LSf 0dpVXYZ[\]^_`abcdyza ProDOS disk volume directory, then print a label consisting of the Volume name, Number of Free Blocks, and the Name, Type, and Size of the files in the volume directory. You can let Disk Labeller Pro print all of the files on the disk, or you can choose tion or Disk Labeller Pro will not work properly. When you are done, you will be asked to press RETURN if the values are correct, or to press ESC to re-enter the values if you made a mistake. If you press RETURN you will be returned to the "Configuration"The Decimal ASCII code for ESC is 27, for S is 83, and for 0 is 48.) If Disk Labeller Pro has been configured before, the current values of each code will be shown. You may press RETURN alone to keep the values shown. You must enter a value for each funces as a series of DECIMAL numbers; one decimal number per ASCII character in the command set. Separate each number by a space. For example, to set Superscript mode on an Epson RX-80 printer the code set is:"S0". This would be entered as: 27 83 48. (r Pro for it by choosing the "Custom Printer" option. You will then be asked for the printer command codes needed to implement various print functions. Consult your printer manual for the codes needed to implement each function, then enter each set of codct values for your printer will be installed and you will be returned to the "Configuration" menu. If your printer is not listed here, and is capable of Condensed Superscript print mode (17 characters per inch, half height), you can configure Disk Labelleer this string you will again be at the "Configuration" menu. Next, select the "Choose Printer" option, and you will see the "Choose Printer" menu. If your printer type is listed in this menu, just move the pointer to that line and press RETURN. The correterface card. Press RETURN to leave it as it is, or enter a new setup string in the same form that will set the interface card to allow a 65 character line. The leading zeroes are not necessary, but each value should be separated by a space. After you ent will be displayed in its decimal ASCII form. When the program is run for the first time this string will be "009 054 053 078". This is the decimal ASCII representation of "65N", the string needed by the Apple Parallel (and most other parallel) innd enter the slot number that your printer is in, or press RETURN for no change from the slot displayed. You will again be at the "Configuration" menu. The next option is "Printer Interface Setup". Choose this option and the current interface setup stringor the slot and drive number of the disk drive in which the disks to be labelled will be. Press RETURN if you want to leave them as the numbers displayed. You will then be returned to the "Configuration" menu. Choose the next option, "Set Printer Slot", aou can return to the previous menu by pressing the ESC key. When the program is run for the first time, you will be at the "Configuration" menu. Move the menu pointer to the first option, "Select Drive", and press the RETURN key. You will then be asked fe Left/Right arrow keys, the Up/Down arrow keys, or by pressing a number key. When the pointer is on the option that you wish to choose, press the RETURN key. At most places in the program where you are asked to press a key to continue, or at any menu, yompressed superscript text that are not listed through the "Custom Printer" option. You may print on standard 3-1/2 X 15/16 inch or 4 X 1-7/16 inch labels. Disk Labeller Pro is menu driven for ease of use. The menu selection pointer may be moved with thto be shown the catalog entry for each file, and asked whether you wish to include it on the label. Several printers are supported, and may be selected from the "Select Printer" menu. The program may be configured for other printers capable of printing c menu. Next, select "Other Options" and you will be presented with a menu that lets you select the label size, turn the key click on or off, and specify whether or not to print the number of free blocks on the label. Change the ones you want, then press ESC or select "Return to Configuration Menu". You are now finished with Configuration. Select the "Return to Main Menu" option or press ESC. The disk drive will come on as Disk Labeller Pro saves the configuration in a VAR file named "DLP.SETUP", and you "630% , =- CENTER TITLE -= P 64:1:868:(20(A$)2)1:A$:7::i @ =- PRINT MENUS -= JVT8:N1MC:(VT2N):10:N;". ";M$(N): TN1:430 ^470 hK138K149İ450:NN1:NMCN1 rK136K139İ450:NN1:N1NMC |Keghijklmnopqrstuvwx{| DOMAIN AND -* = MAY BE DISTRIBUTED=E - FREELY, BUT MAY -` = NOT BE SOLD. ={ -=-=-=-=-=-=-=-=-=-=- = SEND ALL COMMENTS = - OR QUESTIONS TO - = GENIE MAIL ADDRESS= - [D.TOUVELL]. - =-=-=-=-=-=-=-=-=-=-=d=-=-=-=-=-=-=-=-=-=-=7n- -Rx= DISK LABELLER PRO =m- VERSION 1.1 -= BY DAVE TOUVELL =- -=-=-=-=-=-=-=-=-=-=-=- THIS PROGRAM HAS -= BEEN PLACED IN THE= - PUBLICake sure that the file DLP.DOC is available in the same prefix as the program was run from, or you will get an error. After the screen is full, you will be prompted to press any key for the next screenful, or you may press the ESC key to return to the Mainn label another disk or return to the Main menu. The "See Documentation" option on the Main menu displays this file. Select whether you want it displayed to the screen or printed out on the printer in the slot that Disk Labeller Pro is configured for. Mlayed or you have selected the maximum number of files that will fit on the label, you will be asked for the disk title and number of copies, as explained above. After the label has been printed you will be returned to the "Label Disks" menu. You may the for no; or you may press ESC to abort and return to the "Label Disks" menu, or press RETURN to stop selecting files and print the label. The Volume name and the number of files selected so far are shown above the file entry. When all files have been dispr 0 or ESC to abort the printing and return to the "Print Labels" menu. If you choose the "Select Files to Print" option you will be shown the catalog entry for each file and asked if this file is to be included on the label. You can press Y for yes, or Nd asked to enter a title for the top line of the label. Just press RETURN if you want to leave it as the volume shown. You will then be asked to enter the number of copies of this label that you want to print. You can enter a number from 1 to 9, or enteame and number of files on the disk will be displayed. If there are more files on the disk than will fit on the label you will be returned to the "Label Disks" menu and prompted to use the "Select Files" option. Otherwise, you will shown the volume name anhown the entry for each file and asked whether or not to include it on the label. If you choose to print all the files, you will be prompted to put the disk to be labelled into the drive that you selected during configuration and press a key. The volume nwill be at the "Main Menu". You are now ready to label disks. Select "Label Disks" from the Main Menu, and you will be shown the "Label Disks" menu. Here you have the option of having all of the files in the disk catalog on the printed label, or being s177K176MCİ450:NK176* K141ı; K155N0:I 430:350d  =- PRINT POINTER -= (VT2N):10::N;">";::  =- ERASE POINTER -= (VT2N):10:N;". ";:  =- GET A KEY -= 16368,0 K(16384):K128480 16368,0:510:+  =- MAKE A CLICK -= O SND$"Y"X(16336)(16336)U   =- OPEN DISK DIRECTORY & GET VOLUME NAME -=  10:"Put disk to be labelled in Slot "DS",":"Drive "DR" and press a key. Press ESC to":"return to the Label DisksA$"Select Files":310:540:K155ı1560"22:1:"ESC to abort to Label Disks menu,":"RETURN to stop selecting & print label.",T$:T$""16806T$(T$,2,LS(LS,4))" "(T$,18,3)" "(T$,26,3)@14:T$:20:"Include this file?":470(C$(I),2,LS(LS,4))" "(C$(I),18,3)" "(C$(I),26,3)@J1730Pl =- TOO MANY FILES -= :"There are "FI" files on this disk. Use":"option 2 to select ";LS(LS,3);" or fewer files.":1300 =- SELECT FILES FOR LABEL -= ( PRINT ALL FILES -= 4FA$"Print All Files":310=P540JZK155ıSd560[nI1uxC$(I):C$(I)""14207:31:"Files: ";I:II1:1400BF$:BF$(BF$,15,3)D$"CLOSE"FILESI1FILESLS(LS,3)ī1520I1FILES:C$(I)0,1940,3080,30401240qA$"Disk Catalog":310::D$"CAT,D"DRIVE::8:"Press a key to continue.":470: =- LABEL DISK MENU -=  A$"Label Disks":310MCM1:I1M1:M$(I)M1$(I)::330NM1N0ı(N1350,155021290< =-4,6  =- RESTORE SETUP -= +1200RD$"RESTORE";PF$;"DLP.SETUP":1210216,0:1940: NO SETUP FILE - GOTO SETUP216,0D$;"PREFIX":PF$ =- MAIN MENU -= A$"Main Menu":310:MCM0:I1M0:M$(I)M0$(I)::330N1290,127M5$(I):$8M6:I1M6:M6$(I):FB =- PRINT SCREEN HEADING -= NL:}V"======================================="`12:"Disk Labeller Pro"j15:"Version 1.1"t13:"By Dave Touvell"~"======================================="3","4 X 1-15/16 labels"[ 3,"Print to Screen","Print to Printer","Return to Main menu"z =- READ MENU STRINGS -= M0:N1M0:M0$(N)::M1:N1M1:M1$(N)::M2:I1M2:M2$(I)::M3:I1M3:M3$(I):$M4:I1M4:M4$(I): .M5:I1M5:u" 7,"See Current Setup","Drive Location","Printer Slot","Printer Interface Setup","Choose Printer","Other Options","Return to Main Menu" 4,"Label Size","Print 'Free Blocks'?","Key Click?","Return to Setup Menu" 2,"3-1/2 X 15/16 labelsdisk","Setup","See Documentation","Quit to BASIC",3,"Print All Files on Label","Select Files for Label","Return to Main Menu" 6,"Epson MX/FX/RX","Gemini STAR (Old Model)","Imagewriter II","Okidata Microline 192","Custom Setup","Return to Setup Men15/16 inch":3-1/2 X 15/16 INCH LABELSLS(1,0)17:LS(1,1)60:LS(1,2)18:LS(1,3)42:LS(1,4)10:LS$(1)"4 X 1-7/16 inch":4 X 1-7/16 INCH LABELSD$(4)C$(100)D$"PREFIX":PF$ =- DATA FOR MENUS -=  5,"Label a disk","Catalog a 510:(16384)127Ģ12:15:" ":(16384)127880Sz16368,0:255o =- INIT VARIABLES -= SLOT1:DRIVE1:IS$"009 054 053 078":FB$"Y":LS0:DSLOT6:P$"NONE"(LS(0,0)11:LS(0,1)57:LS(0,2)17:LS(0,3)30:LS(0,4)8:LS$(0)"3-1/2 X :12:BK$510% DN:12:DN$8*DN1:12:DN$I4DN:12:BK$]>UPUP1:DNDN1kHUP6760{RI11000:\8:6:"A ProDOS Disk Label Printer":510f21:2:"This program is in the Public Domain":510@p100:12:15:"Press a key":sk Labeller Pro".DN$" By Dave Touvell "JBK$" "{L$"======================================="L$:510I222I:(1):"=";:39:"=":510L$:510I1750:UP:12:UP$UP1:12:UP$  UP menu.";:470: &5 0D$"PREFIX/,S";DS;",D";DRJ :D$"PREFIX":VL$t DD$;"OPEN";VL$;",TDIR":D$;"READ";VL$ NZ$,Z$,Z$ XFILES0:7::"Volume: ";VL$;:31:"Files: " b l =- TITLE PAGE -= v: SND$"Y" UP12:DN12UP$"DiJK206K238ī15800TK155ĺD$"CLOSE":@^K1411670XhK217K2491600rFIFI1:7:37:FI:FILS(LS,3)FIFI1:8:958:12:(7);"Only ";LS(LS,3);" files will fit on a label.":"Press a key to print label.":470:1670|C$(FI)T$:1580T$:T$""16702BF$:BF$(BF$,15,3)AD$"CLOSE"K1730Qj =- PRINT LABEL -= A$"Print Label":310:10:"Disk Title: ";VL$;:13:"";TTL$:TTL$""TTL$VL$:10:13:TTL$12:"Print how many copies? 1";(8);:NC$:510:NC":470*P CM$" 015 027 066":SO$" 027 083 000":LS$" 027 065 006":EN$" 027 027 066 002":EF$CM$:P$"Gemini STAR":CH1::: GEMINI STAR SETUP*Z =- IMAGEWRITER II -= *d :12:8:"Imagewriter II Selected.":14:8:"Press a key to continue.":470~+":14:8:"Press a key to continue.":470)2 CM$" 015":SO$" 027 083 048":LS$" 027 065 006":EN$" 014":EF$" 020":P$"Epson MX/FX/RX":CH1::: EPSON SETUP)< =- GEMINI STAR -= *F :12:8:"Gemini Star Selected.":14:8:"Press a key to continue.$"7"ī2500%( SLOT(Z$):CH1::?( =- PRINTER MENU -= \( A$"Select Printer":310( :MCM2:I1MC:M$(I)M2$(I)::330( N0NM2ı( N2600,2630,2660,2690,2720( 2540( =- EPSON MX/FX/RX -= +)( :12:8:"Epson MX/FX/RX Selected.y a space. Press RETURN alone":"for no change: ";:22:IS$;:22:"";ZZ$:ZZ$""ı~' 2910:IS$ZZ$:15:22:868:IS$:CH1' ' =- PRINTER SLOT -= ' A$"Printer Slot":310::10:"Enter Printer Slot: ";SLOT;(8);:Z$:Z$(13)ė: ( Z$"1"ZCH1::'&~ =- INTERFACE SETUP -= M& A$"Printer Interface Setup":310& :10:"Enter the DECIMAL value of each":"character of the command string needed":"to set your printer interface card for":"a 65 character line. Seperate each"T' "value bged: ";DS;(8);:Z$:Z$(13)2380,%. Z$D%8 Z$"1"Z$"7"2340Y%B DSLOT(Z$):CH1%L 12:"Enter the Drive number for the disk to":"be cataloged: ";DR;(8);:Z$:Z$(13)ė:%V Z$%` Z$"1"Z$"2"2380%j DRIVE(Z$):CH1:: &t DRIVE(Z$):8:"Key click on? ";SND$;(8);:Z$:510:Z$(13)Z$(27)ıa$Z$"y"Z$"Y"CH1:SND$"Y":$ Z$"n"Z$"N"CH1:SND$"N":$ 2290$ =- Drive Selection -= $%$ A$"Drive Selection":310:10:"Enter the Slot number for the disk to":"be catalo470:LS1:CH1::4# =- PRINT FREE BLOCKS? -= #:12:5:"Print 'Free Blocks' on label? ";FB$;(8);:Z$:510:Z$(13)Z$(27)ı#Z$"y"Z$"Y"FB$"Y":CH1:#Z$"n"Z$"N"FB$"N":CH1:#2240# =- KEYCLICK ON/OFF -= >$:12: Size":310::MCM5:I1MC:M$(I)M5$(I)::330B"N2210,2220L"2180":12:5:"3-1/2 X 15/16 labels selected.":14:8:"Press a key to continue.":470:LS0:CH1::#:12:6:"4 X 1-15/16 labels selected.":14:8:"Press a key to continue.":$!!418:5:"Key click? "SND$M!>23:8:"Press a key to continue.":470S!Hn!R =- OTHER OPTIONS -= !\A$"Other Options":310::MCM4:I1MC:M$(I)M4$(I)::330:NM4N0ı!fN2180,2240,2290:2140!p!z =- LABEL SIZE -= 1"A$"Label '  =- SEE CURRENT SETUP -= C A$"Current Setup":310v :8:5:"Disk Location: Slot "DS", Drive "DR 10:5:"Printer Location: Slot "SL 12:5:"Printer: "P$ 14:5:"Label Size: "LS$(LS)!*16:5:"Print 'Free Blocks'? "FB =- SETUP MENU -= CH02A$"Setup":310=216,0e:MCM3:I1MC:M$(I)M3$(I)::330xNM3N02010N2040,2340,2500,2440,2540,21401950 CH1SETUP$LS$SO$CM$::12:8:"Saving DLP.SETUP file...":D$"STORE"PF$"DLP.SETUP"6,27LS3(P$"Gemini STAR")7:BF$" FREE";VI1(EF$)4:(((EF$,I,4)));::b&LINES1{0I13:C$(FII)""::I1FI3DC$(I)" "C$(I1)" "C$(I2)NLINESLINES1XbLLINESLS(LS,0)::lNvD$"PR#0"$(27)NC$"0"ıNC$6NC$(13)NC1:1790PNC$"1"NC$"9"1730^NC(NC$)jN1NCD$"PR#";SLOT:I1(IS$)4:(((IS$,I,4)));::I1(SETUP$)4:(((SETUP$,I,4)));:-I1(EN$)4:(((EN$,I,4)));::TTL$;:FB$"Y"Ĺ3n CM$" 027 081":SO$" 027 120":LS$" 027 084 012":EN$" 014":EF$" 015":P$"Imagewriter II":CH1::: IMAGEWRITER II SETUP+x =- OKIDATA MICROLINE -= + :12:7:"Okidata Microline Selected.":14:8:"Press a key to continue.":470~, CM$" 029":SO$" 027 076":LS$" 027 037 057 012":EN$" 031":EF$" 032":P$"Okidata Microline 192":CH1::: OKIDATA MICROLINE 192 SETUP, =- CUSTOM PRINTER -= , A$"Custom Printer":310?- 7:"Enter the decimal values of each ":"character of the print Disk Labeller Pro Version 1.1 by Dave Touvell Documentation File October 18, 1987# GEnie Mail address: D.TOUVELLLJThi, O=====|====|====|====|====|====|====|====|====|====|====|====|====|====|====|===ASIC -= '1XfA$"Quit to BASIC":2200o1f12:4:"Are you sure you want to quit? ";:Z$:Z$"Y"Z$"y"ĉ::u1 g1g =- SEE DOCUMENTATION -= 1gA$"Documentation":22001g:MCM6:I1MC:M$(I)M6$(I)::24001gN0NMCı1hN26650,277502h1):25100+0pb(ZZ$,1)" "ZZ$ZZ$" "60bZ1$"">08cJ1k0c(ZZ$,1)" "ZZ$(ZZ$,(ZZ$)1):255000d(ZZ$,J,1)" "JJ1:256000ddZ1$Z1$" "("000"(ZZ$,J1),3)0d(ZZ$)JZZ$(ZZ$,(ZZ$)J):254000,eZZ$Z1$0e 1e =- EXIT TO BZZ$" 032"91h (ZZ$,1)" "ZZ$(ZZ$,(ZZ$)1):2920e1r (ZZ$,1)" "ZZ$(ZZ$,(ZZ$)1):29301| (ZZ$,1)" "ZZ$ZZ$" "1 Z1$""1 J11 (ZZ$,1)" "ZZ$(ZZ$,(ZZ$)1):29701 (ZZ$,J,1)" "JJ1:2980 2 Z1$Z1$" "("000"(ZZ$:EF$0" 7:1:35,11:958:35,24:"Press RETURN if these values are OK, or":"Press ESC to change them. ":470:K15527300, K141285006 SETUP$CM$SO$LS$0@ P$"Custom Printer"0J CH1:0T =- PARSE CODE STRING -= 1^ ZZ$""8:LS$b/ 19:"Expanded mode On:";:22:EN$;:19:22:"";ZZ$:ZZ$"":19:22:868:EN$:2830/ 2910:EN$ZZ$:19:22:868:EN$/ 21:"Expanded mode Off:";:22:EF$;:21:22:"";ZZ$:ZZ$"":21:22:868:EF$:28500 2910:EF$ZZ$:21:22:868$:13:22:868:CM$h. 15:"Superscript On: ";:22:SO$;:15:22:"";ZZ$:ZZ$""Ģ15:22:SO$:2790. 2910:SO$ZZ$:15:22:868:SO$. 17:"6/72in line spacing:";:22:LS$;:17:22:"";ZZ$:ZZ$""Ģ17:22:LS$:2800/ 2910:LS$ZZ$:17:22:86other printers work, so that I can include more ready-made printer setups in the next version, and of suggested improvements to the program. turn you to the Main Menu. If you have any problems, suggestions, or comments, please leave E-Mail to me on GEnie, GE-mail address "D.TOUVELL". I am particularly interested in hearing of any problems with printers, and of the printer codes needed to make Menu. The "Catalog a Disk" option shows the directory of the disk in the current drive. If you select the Quit to BASIC option from the Main Menu, you will be asked to verify that you wish to do this. If you answer Y then you will be in BASIC. N will reer command code ":"needed for each function below. "- "Seperate each value with a space. Press":"RETURN alone to accept the value shown."- 13:"Condensed (17CPI) On: ";:22:CM$;:13:22:"";ZZ$:ZZ$""Ģ13:22:CM$:2770. 2910:CM$ZZ~s is a public domain program. You may give copies of it away, and are encouraged to do so. NLDisk Labeller Pro runs on any Apple II capable of running ProDOS 8, with at LJleast one disk drive, lowercase capability, and a dot matrix printer that enter each set of codes as a series of DECIMAL numbers; KIone decimal number per ASCII character in the command set. Separate each number byNLa space. For example, to set Superscript mode on an Epson RX-80 printer the LJcode set is:"S0". ThNLabeller Pro for it by choosing the "Custom Printer" option. You will then be HFasked for the printer command codes needed to implement various print LJfunctions. Consult your printer manual for the codes needed to implement NLeach function, then for your printer Iwill be installed and you will be returned to the "Configuration" menu.NLIf your printer is not listed here, and is capable of Condensed Superscript Kprint mode (17 characters per inch, half height), you can configure Disk Pgain be at the "Configuration" menu.IGNext, select the "Choose Printer" option, and you will see the "Choose LJPrinter" menu. If your printer type is listed in this menu, just move the MKpointer to that line and press RETURN. The correct values it as it is, or enter a new setup string in the same form MKthat will set the interface card to allow a 65 character line. The leading 1zeroes are not necessary, but each value shouldPNbe separated by a space. After you enter this string you will ahen the program is run for the first time this string will be "009 054 053 NL078". This is the decimal ASCII representation of "65N", the string PNneeded by the Apple Parallel (and most other parallel) interface card. Press LJRETURN to leaveRN for no change from the slot displayed. 0You will again be at the "Configuration" menu.KIThe next option is "Printer Interface Setup". Choose this option and the NLcurrent interface setup string will be displayed in its decimal ASCII form. NLWd will be. Press RETURN if you want to HFleave them as the numbers displayed. You will then be returned to the "Configuration" menu.MKChoose the next option, "Set Printer Slot", and enter the slot number that MKyour printer is in, or press RETUrst time, you will be at the "Configuration" menu.KIMove the menu pointer to the first option, "Select Drive", and press the OMRETURN key. You will then be asked for the slot and drive number of the disk OMdrive in which the disks to be labelleon that you wish to LJchoose, press the RETURN key. At most places in the program where you are JHasked to press a key to continue, or at any menu, you can return to the (previous menu by pressing the ESC key.A?When the program is run for the fi6 inch or 4 X 1-7/16 inch labels.PNDisk Labeller Pro is menu driven for ease of use. The menu selection pointer MKmay be moved with the Left/Right arrow keys, the Up/Down arrow keys, or by NLpressing a number key. When the pointer is on the optiy be NLselected from the "Select Printer" menu. The program may be configured for NLother printers capable of printing compressed superscript text that are not OMlisted through the "Custom Printer" option. You may print on standard 3-1/2 )X 15/1he volume directory. OMYou can let Disk Labeller Pro print all of the files on the disk, or you can LJchoose to be shown the catalog entry for each file, and asked whether you OMwish to include it on the label. Several printers are supported, and maCwill print Condensed Superscript (17 CPI, 1/2 height) characters.LJThis program will read a ProDOS disk volume directory, then print a label /consisting of the Volume name, Number of FreeMKBlocks, and the Name, Type, and Size of the files in tis would be entered as: 27 83 48. (The Decimal MKASCII code for ESC is 27, for S is 83, and for 0 is 48.) If Disk Labeller JHPro has been configured before, the current values of each code will be PNshown. You may press RETURN alone to keep the values shown. You must enter a MKvalue for each function or Disk Labeller Pro will not work properly. When PNyou are done, you will be asked to press RETURN if the values are correct, or JHto press ESC to re-enter the values if you made a mistake. If he label, you Lwill be asked for the disk title and number of copies, as explained above.MKAfter the label has been printed you will be returned to the "Label Disks" Dmenu. You may then label another disk or return to the Main menu.NLThe "Se RETURN to stop selecting files OMand print the label. The Volume name and the number of files selected so far MKare shown above the file entry. When all files have been displayed or you LJhave selected the maximum number of files that will fit on tt Files to Print" option you will be shown the NLcatalog entry for each file and asked if this file is to be included on the MKlabel. You can press Y for yes, or N for no; or you may press ESC to abort PNand return to the "Label Disks" menu, or pressC to quit.)";:470:K1553310,5 :318075 216,0H5 D$"CLOSE":5 216,0:D$"PR#0":D$"CLOSE":24:1:"Press a key to return to the Main menu.";:470:1240 6 :12:"Make sure printer is ready and press a key. (ESC for Documentation Menu).":4L$L$Z$4 NLL320074 P(L$):(L$,1)" "3260W4 (L$,P,1)" "PP1:3240{4 X$(L$,(L$)P1):L$(L$,P1)4 (L$,1)" "L$(L$,(L$)1):32604 L$:LL1:LLP31904 PR0āI16:::3180 5 24:1:"Press a key to continue. (ES310-3 :MCM6:I1MC:M$(I)M6$(I)::330=3 N0NMCıN3& N3130,3340X30 3080m3: PR0:LL39:LP163D D$"OPEN";PF$;"DLP.DOC"3N D$"READ";PF$;"DLP.DOC"3X 33303b X$""3l L1:N0:3v L$X$:N(X$):X$""3 Z$:Z$(13)3260 4 NN1:,J1),3)32 (ZZ$)JZZ$(ZZ$,(ZZ$)J):2960?2 ZZ$Z1$E2 `2 =- EXIT TO BASIC -= |2 A$"Quit to BASIC":3102 12:4:"Are you sure you want to quit? ";:Z$:Z$"Y"Z$"y"ĉ::2 2 =- SEE DOCUMENTATION -= 3 A$"Documentation":ume shown. You will then be asked to enter the number of copies of MKthis label that you want to print. You can enter a number from 1 to 9, or Menter 0 or ESC to abort the printing and return to the "Print Labels" menu.IGIf you choose the "Selecl be LJreturned to the "Label Disks" menu and prompted to use the "Select Files" OMoption. Otherwise, you will shown the volume name and asked to enter a title OMfor the top line of the label. Just press RETURN if you want to leave it as MKthe volpted to put the disk to PNbe labelled into the drive that you selected during configuration and press a MKkey. The volume name and number of files on the disk will be displayed. If JHthere are more files on the disk than will fit on the label you wilere you have the option of MKhaving all of the files in the disk catalog on the printed label, or being NLshown the entry for each file and asked whether or not to include it on the label.PNIf you choose to print all the files, you will be prom as Disk Labeller Pro saves LJthe configuration in a VAR file named "DLP.SETUP", and you will be at the "Main Menu".NLYou are now ready to label disks. Select "Label Disks" from the Main Menu, MKand you will be shown the "Label Disks" menu. H number of free blocks on the label. Change the ones you @want, then press ESC or select "Return to Configuration Menu".LJYou are now finished with Configuration. Select the "Return to Main Menu" NLoption or press ESC. The disk drive will come onyou press 9RETURN you will be returned to the "Configuration" menuOMNext, select "Other Options" and you will be presented with a menu that lets OMyou select the label size, turn the key click on or off, and specify whether OMor not to print thee Documentation" option on the Main menu displays this file. Select OMwhether you want it displayed to the screen or printed out on the printer in NLthe slot that Disk Labeller Pro is configured for. Make sure that the file NLDLP.DOC is available in the same prefix as the program was run from, or you MKwill get an error. After the screen is full, you will be prompted to press PNany key for the next screenful, or you may press the ESC key to return to the Main Menu.MKThe "Catalog a Disk" f printing compressed superscript text that are not listed through the "Custom Printer" option. You may print on standard 3-1/2 X 15/16 inch or 4 X 1-7/16 inch labels. Disk Labeller Pro is menu driven for ease of use. The menu selection pointer may be m can choose to be shown the catalog entry for each file, and asked whether you wish to include it on the label. Several printers are supported, and may be selected from the "Select Printer" menu. The program may be configured for other printers capable oProDOS disk volume directory, then print a label consisting of the Volume name or Disk Title, Number of Free Blocks, and the Name, Type, and Size of the files in the volume directory. You can let Disk Labeller Pro print all of the files on the disk, or youed to do so. Disk Labeller Pro runs on any Apple II capable of running ProDOS 8, with at least one disk drive, lowercase capability, and a dot matrix printer that will print Condensed Superscript (17 CPI, 1/2 height) characters. This program will read a Disk Labeller Pro Version 1.1 by Dave Touvell Documentation File January, 1988 GEnie Mail address: D.TOUVELL This is a public domain program. You may give copies of it away, and are encourag5l#5l-=-=-=-=-=-=-=-=-=-=->5`m= DISK LABELLER PRO =Y5m- VERSION 1.1 -t5(n= BY DAVE TOUVELL =5n-=-=-=-=-=-=-=-=-=-=-c44l216,0:D$"PR#0":D$"CLOSE":24:1:"Press a key to return to the Main menu.";:3800:104004fl:12:"Make sure printer is ready and press a key. (ESC to abort to Documentation Menu). ":3800:K155ı4klPRSLOT:LL79:LP605plD$"PR#"PR:26700P1:2721503TjX$(L$,(L$)P1):L$(L$,P1)Y3rj(L$,1)" "L$(L$,(L$)1):27250s3|jL$:LL1:LLP270503jPR0āI16:::270003j24:1:"Press a key to continue. (ESC to quit.)";:3800:K155275003k:270003lk216,04kD$"CLOSE":266002hPR0:LL39:LP1692LhD$"OPEN";PF$;"DLP.DOC"U2hD$"READ";PF$;"DLP.DOC"a2i27700k2FiX$""y2xiL1:N0:2iL$X$:N(X$):X$""2iZ$:Z$(13)272502iNN1:L$L$Z$2@jNLL271002JjP(L$):(L$,1)" "27250 3Oj(L$,P,1)" "PHmake other printers work, so that I can include more ready-made printer Ksetups in the next version, and of suggested improvements to the program.he Main Menu.PNIf you have any problems, suggestions, or comments, please leave E-Mail to me JHon GEnie, GE-mail address "D.TOUVELL". I am particularly interested in LJhearing of any problems with printers, and of the printer codes needed to Joption shows the directory of the disk in the current drive.OMIf you select the Quit to BASIC option from the Main Menu, you will be asked JHto verify that you wish to do this. If you answer Y then you will be in ,BASIC. N will return you to toved with the Left/Right arrow keys, the Up/Down arrow keys, or by pressing a number key. When the pointer is on the option that you wish to choose, press the RETURN key. At most places in the program where you are asked to press a key to continue, or at any menu, you can return to the previous menu by pressing the ESC key. If Disk Labeller Pro can't find the file DLP.SETUP when it is run, you will automatically be shown the Setup Menu. Select the first item on this menu, "See Current Setup", to see how t be shown the "Label Disks" menu. Here you have the option of having all of the files in the disk catalog on the printed label, or being shown the entry for each file and asked whether or not to include it on the label. If you choose to print all the filnu" option or press ESC. The disk drive will come on as Disk Labeller Pro saves the configuration in a VAR file named "DLP.SETUP", and you will be at the "Main Menu". You are now ready to label disks. Select "Label Disks" from the Main Menu, and you wille key click on or off, and specify whether or not to print the number of free blocks on the label. Change the ones you want, then press ESC or select "Return to Setup Menu". You are now finished installing Disk Labeller Pro. Select the "Return to Main Mevalues are correct, or to press ESC to re-enter the values if you made a mistake. If you press RETURN you will be returned to the "Setup" menu. Next, select "Other Options" and you will be presented with a menu that lets you select the label size, turn thbefore, the current values of each code will be shown. You may press RETURN alone to keep the values shown. You must enter a value for each function or Disk Labeller Pro will not work properly. When you are done, you will be asked to press RETURN if the ber by a space. For example, to set Superscript mode on an Epson RX-80 printer the code set is:"S0". This would be entered as: 27 83 48. (The Decimal ASCII code for ESC is 27, for S is 83, and for 0 is 48.) If Disk Labeller Pro has been configured ed to implement various print functions. Consult your printer manual for the codes needed to implement each function, then enter each set of codes as a series of DECIMAL numbers; one decimal number per ASCII character in the command set. Separate each numnter is not listed here, and is capable of Condensed Superscript print mode (17 characters per inch, half height), you can configure Disk Labeller Pro for it by choosing the "Custom Printer" option. You will then be asked for the printer command codes need, and you will see the "Choose Printer" menu. If your printer type is listed in this menu, just move the pointer to that line and press RETURN. The correct values for your printer will be installed and you will be returned to the "Setup" menu. If your prithat will set the interface card to allow a 65 character line. The leading zeroes are not necessary, but each value should be separated by a space. After you enter this string you will again be at the "Setup" menu. Next, select the "Choose Printer" option string will be "009 054 053 078". This is the decimal ASCII representation of "65N", the string needed by the Apple Parallel (and most other parallel) interface card. Press RETURN to leave it as it is, or enter a new setup string in the same form the slot displayed. You will again be at the "Setup" menu. The next option is "Printer Interface Setup". Choose this option and the current interface setup string will be displayed in its decimal ASCII form. When the program is run for the first time thised will be. Press RETURN if you want to leave them as the numbers displayed. You will then be returned to the "Setup" menu. Choose the next option, "Set Printer Slot", and enter the slot number that your printer is in, or press RETURN for no change from he program is configured. Press a key to return to the Setup Menu. Move the menu pointer to the next option, "Select Drive", and press the RETURN key. You will then be asked for the slot and drive number of the disk drive in which the disks to be labelles, you will be prompted to put the disk to be labelled into the drive that you selected during configuration and press a key. The volume name and number of files on the disk will be displayed. If there are more files on the disk than will fit on the label you will be returned to the "Label Disks" menu and prompted to use the "Select Files" option. Otherwise, you will shown the volume name and asked to enter a title for the top line of the label. Just press RETURN if you want to leave it as the volume show-= 5300* 4 =- CENTER TITLE -= U 4:1:868:(20(A$)2)1:A$:7::o  =- PRINT MENUS -= ` VT10:N1MC:(VT2N):10:N;". ";M$(N): N1:3400 ( 3800 K138K149İ3600:NN1:NMCN1 K136K139İ3600:NN1:N1N} DOMAIN AND -* L= MAY BE DISTRIBUTED=E - FREELY, BUT MAY -` = NOT BE SOLD. ={ x-=-=-=-=-=-=-=-=-=-=- = SEND ALL COMMENTS = @- OR QUESTIONS TO - = GENIE MAIL ADDRESS= - [D.TOUVELL]. - l =-=-=-=-=-=-=-=-=-=d=-=-=-=-=-=-=-=-=-=-=7- -R,= DISK LABELLER PRO =m- VERSION 1.1 -= BY DAVE TOUVELL =X- -=-=-=-=-=-=-=-=-=-=-= - THIS PROGRAM HAS -= BEEN PLACED IN THE= - PUBLICtups in the next version, and of suggested improvements to the program. comments, please leave E-Mail to me on GEnie, GE-mail address "D.TOUVELL". I am particularly interested in hearing of any problems with printers, and of the printer codes needed to make other printers work, so that I can include more ready-made printer set drive. If you select the Quit to BASIC option from the Main Menu, you will be asked to verify that you wish to do this. If you answer Y then you will be in BASIC. Any other key will return you to the Main Menu. If you have any problems, suggestions, or run from, or you will get an error. After the screen is full, you will be prompted to press any key for the next screenful, or you may press the ESC key to return to the Main Menu. The "Catalog a Disk" option shows the directory of the disk in the currenon the Main menu displays this file. Select whether you want it displayed to the screen or printed out on the printer in the slot that Disk Labeller Pro is configured for. Make sure that the file DLP.DOC is available in the same prefix as the program was, you will be asked for the disk title and number of copies, as explained above. After the label has been printed you will be returned to the "Label Disks" menu. You may then label another disk or return to the Main menu. The "See Documentation" option ress RETURN to stop selecting files and print the label. The Volume name and the number of files selected so far are shown above the file entry. When all files have been displayed or you have selected the maximum number of files that will fit on the labelhoose the "Select Files to Print" option you will be shown the catalog entry for each file and asked if this file is to be included on the label. You can press Y for yes, or N for no; or you may press ESC to abort and return to the "Label Disks" menu, or pn. You will then be asked to enter the number of copies of this label that you want to print. Make sure that the printer is ready and then enter a number from 1 to 9, or enter 0 or ESC to abort the printing and return to the "Print Labels" menu. If you cMC) T K177K176MCİ3600:NK1766 K141ıG  K155N0:W 3400:2600r =- PRINT POINTER -= H (VT2N):10::N;">";:: =- ERASE POINTER -= (VT2N):10:N;". ";: t =- GET A KEY -= 16368,0 <K(16384):K1283900! 16368,0:4200:;  =- MAKE A CLICK -= _ hSND$"Y"X(16336)(16336)e  0 =- OPEN DISK DIRECTORY & GET VOLUME NAME -= " 10:"Put disk to be labelled in Slot "DS",":"Drive "DR" and press a key. Press ESC to":"return tont label."!5T$:T$""14700W5T$(T$,2,LS(LS,4))" "(T$,18,3)" "(T$,26,3)L614:T$:20:"Include this file?":38006K206K238ī137007K155ĺD$"CLOSE":x7K141146007K217K24913900w@8FIFI1:7:37:FI:FILS(LS,3)Select File option to select ":LS(LS,3);" or fewer files for the label."X3:11000|3 =- SELECT FILES FOR LABEL -= X4A$"Select Files":2200:4500:K155ı44600  522:1:"ESC to abort to Label Disks menu,":"RETURN to stop selecting & priLOSE"p0FILESI100FILESLS(LS,3)ī13100?81I1FILES1C$(I)(C$(I),2,LS(LS,4))" "(C$(I),18,3)" "(C$(I),26,3)2d2152002K,3:"There are ";FILES;" files on this disk.":"Only "LS(LS,3)" files will fit on a label.":"Use the I)::2400\+NM1N0ı/+N11500,13400:$,10900W, =- PRINT ALL FILES -= v,A$"Print All Files":2200P-4500-K155ı.4600|.I1.C$(I):C$(I)""12200D/7:31:"Files: ";I:II1:12000/BF$:BF$(BF$,15,3) 0D$"C0:MCM0:I1M0:M$(I)M0$(I)::2400K)N10900,10700,17100,26600,26200Vh)10400)A$"Disk Catalog":2200::D$"CAT,D"DRIVE::8:"Press a key to continue.":3800:0* =- LABEL DISK MENU -= *A$"Label Disks":2200 *MCM1:I1M1:M$(I)M1$($15:"Version 1.1"3%13:"By Dave Touvell"b%"======================================="l%34,6xH&10000&D$"RESTORE";PF$;"DLP.SETUP":10100'216,0:17100t'216,0'D$;"PREFIX":PF$<( =- MAIN MENU -= &(A$"Main Menu":220"_"M0:N1M0:M0$(N)::M1:N1M1:M1$(N)::M2:I1M2:M2$(I)::M3:I1M3:M3$(I):y(#M4:I1M4:M4$(I):2#M5:I1M5:M5$(I):<#M6:I1M6:M6$(I):#:#"======================================="T$12:"Disk Labeller Pro" Printer","Other Options","Return to Main Menu"`" 4,"Label Size","Print 'Free Blocks'?","Sound On/Off","Return to Configuration menu"j" 2,"3-1/2 X 15/16 labels","4 X 1-15/16 labels"t" 3,"Print to Screen","Print to Printer","Return to Main menuLabel","Select Files for Label","Return to Main Menu"! 6,"Epson MX/FX/RX","Gemini Star","Imagewriter II","Okidata Microline 192","Custom Setup","Return to Configuration menu"1! 6,"Drive Number","Printer Slot","Printer Interface Setup","Choose/16 LABEL SPECS`LS(1,0)17:LS(1,1)60:LS(1,2)18:LS(1,3)42:LS(1,4)10: 4 X 1-7/16 labelsl D$(4)yl C$(100) D$"PREFIX":PF$74! 5,"Label a disk","Catalog a disk","Configuration","See Documentation","Quit to BASIC",3,"Print All Files on Press a key":4200:(16384)127Ģ12:15:" ":(16384)1277800b16368,0:255~@ =- INIT VARIABLES -= SLOT1:DRIVE1:IS$"009 054 053 078":FB$"Y":LS0:DSLOT6LS(0,0)11:LS(0,1)57:LS(0,2)17:LS(0,3)30:LS(0,4)8:3-1/2 X 15UP1:12:UP$ UP:12:BK$*4200;XDN:12:DN$NDN1:12:DN$_ DN:12:BK$sUPUP1:DNDN1UP66600LI11000:8:6:"A ProDOS Disk Label Printer":420021:8:"This program is FREEWARE":4200Ox100:12:15:":DN12$UP$"Disk Labeller Pro"@DDN$" By Dave Touvell "\BK$" " L$"======================================="pL$:4200I2228I:(1):"=";:39:"=":4200L$:4200dI1750:UP:12:UP$, the Label Disks menu.";:3800:( F D$"PREFIX/,S";DS;",D";DR[ \D$"PREFIX":VL$ D$;"OPEN";VL$;",TDIR":D$;"READ";VL$ $Z$,Z$,Z$ FILES0:7::"Volume: ";VL$;:31:"Files: "  P =- TITLE PAGE -= : :SND$"Y"|UP12FIFI1:8:958:12:(7);"Only ";LS(LS,3);" files will fit on a label.":"Press a key to print label.":3800:146008C$(FI)T$:137009T$:T$""14600l9BF$:BF$(BF$,15,3)9D$"CLOSE"4:15200:: =- PRINT LABEL -= U`;A$"Print Label":2200:10:"Disk Title: ";VL$;:13:"";TTL$:TTL$""TTL$VL$:10:13:TTL$;12:"Print how many copies? 1";(8);:NC$:4200:NC$(27)NC$"0"ı(D$"P a key to continue.":3800*XCM$" 029":SO$" 027 076":LS$" 027 037 057 012":FL$" 027 072 049 055":EN$" 031":EF$" 032":CH1:::OKIDATA MICROLINE 192 SETUP *Y =- CUSTOM PRINTER -= *tYA$"Custom Printer":2200g+Y7:"Enter the decimal values ess a key to continue.":3800)WCM$" 027 081":SO$" 027 120":LS$" 027 084 012":FL$" 027 072 048 050 048 052":EN$" 014":EF$" 015":CH1:::IMAGEWRITER II SETUP)W =- OKIDATA MICROLINE -= *HX:12:7:"Okidata Microline Selected.":14:8:"Pressi Star Selected.":14:8:"Press a key to continue.":3800(TVCM$" 015":SO$" 027 083 048":LS$" 027 065 006":FL$" 027 067 017":EN$" 014":EF$" 020":CH1:::GEMINI SETUP(V =- IMAGEWRITER II -= )W:12:8:"Imagewriter II Selected.":14:8:"PrX/FX/RX -= _'T:12:8:"Epson MX/FX/RX Selected.":14:8:"Press a key to continue.":3800'(UCM$" 015":SO$" 027 083 048":LS$" 027 065 006":FL$" 027 067 017":EN$" 014":EF$" 020":CH1:::EPSON SETUP 'U =- GEMINI STAR -= <(U:12:8:"GeminSLOT;(8);:Z$:Z$(13)ė:8&@QZ$"1"Z$"7"ī20700P&QSLOT(Z$):CH1::j&R =- PRINTER MENU -= &lRA$"Select Printer":2200&R:MCM2:I1MC:M$(I)M2$(I)::2400&4SN0NM2ı&SN21700,22000,22300,22600,22900&S21100 '`T =- EPSON Macter line. Seperate each"|%LO"value by a space. Press RETURN alone":"for no change: ";:22:IS$;:22:"";ZZ$:ZZ$""ı%O24900:IS$ZZ$:15:22:868:IS$:CH1%P%xP =- PRINTER SLOT -= &PA$"Printer Slot":2200::10:"Enter Printer Slot: ";vMDRIVE(Z$):CH1::1$MDRIVE(Z$):CH1::N$ N =- INTERFACE SETUP -= u$NA$"Printer Interface Setup":2200%N:10:"Enter the DECIMAL value of each":"character of the command string needed":"to set your printer interface card for":"a 65 char number for the disk to":"be cataloged: ";DS;(8);:Z$:Z$(13)19810Q#LZ$j#LZ$"1"Z$"7"19700#MDSLOT(Z$):CH1#bM12:"Enter the Drive number for the disk to":"be cataloged: ";DR;(8);:Z$:Z$(13)ė:#gMZ$#lMZ$"1"Z$"2"19810$ =- Sound ON/OFF -= `"K:12:8:"Key click on? ";SND$;(8);:Z$:4200:Z$(13)Z$(27)ı"dKZ$"y"Z$"Y"CH1:SND$"Y":"KZ$"n"Z$"N"CH1:SND$"N":",L19200"L =- Drive Selection -= I#LA$"Drive Selection":2200:10:"Enter the Slot4:8:"Press a key to continue.":3800:LS1:CH1::V!H =- PRINT FREE BLOCKS? -= ! I:12:5:"Print 'Free Blocks' on label? ";FB$;(8);:Z$:4200:Z$(13)Z$(27)ı!pIZ$"y"Z$"Y"FB$"Y":CH1:!IZ$"n"Z$"N"FB$"N":CH1:!8J18700"JABEL SIZE -= N DHA$"Label Size":2200::MCM5:I1MC:M$(I)M5$(I)::2400a XHN18540,18550l bH18500 lH:12:5:"3-1/2 X 15/16 labels selected.":14:8:"Press a key to continue.":3800:LS0:CH1::6!vH:12:6:"4 X 1-15/16 labels selected.":1ECH1SETUP$CM$SO$LS$FL$::12:10:"Saving DLP.SETUP file...":D$"STORE"PF$"DLP.SETUP"eEPF =- LABEL OPTIONS -= FA$"Other Options":2200::MCM4:I1MC:M$(I)M4$(I)::2400:NM4N0ıGN18500,18700,19200:18100|G G =- LLINES1t@*@LLINESLS(LS,0)::1((EN$));:TTL$;:FB$"Y"Ĺ36,21LS3:BF$" FREE";>((EF$))>LINES1H?I13:C$(FII)"":?I1FI3@C$(I)" "C$(I1)" "C$(I2) @LINESof each ":"character of the printer command code ":"needed for each function below. "+ = DISK LABELLER PRO =6H - VERSION 1.1 -6R = BY DAVE TOUVELL =6\ -=-=-=-=-=-=-=-=-=-=-how By Dave Touvell Disk Labeller ProY ((4)"BLOAD DLP.PIC,A$4000"8I15000:L(4)"-DLP1.1" or":"Press ESC to change them. ":3800:K15523000V/_K14124400q/`SETUP$CM$SO$LS$FL$|/|`CH1:/` =- PARSE CODE STRING -= /DaZZ$""ZZ$" 032"/a(ZZ$,1)" "ZZ$(ZZ$,(ZZ$)1):25000 0 b(ZZ$,1)" "ZZ$(ZZ$,(ZZ$)2:868:EN$:24200;.$^24900:EN$ZZ$:21:22:868:EN$.^23:"Expanded mode Off:";:22:EF$;:23:22:"";ZZ$:ZZ$"":23:22:868:EF$:24400.^24900:EF$ZZ$:23:22:868:EF$D/P_7:1:35,11:958:35,24:"Press RETURN if these values are OK,22:LS$:238006-\24900:LS$ZZ$:17:22:868:LS$-\19:"17 line form length:";:22:FL$;:19:22:"";ZZ$:ZZ$"":19:22:868:FL$:24000-\]24900:FL$ZZ$:19:22:868:FL$.]21:"Expanded mode On:";:22:EN$;:21:22:"";ZZ$:ZZ$"":21:2ݫժժժ`9~g|LI3yЪժժݫժժժ݀ЪժժݫժժժժժժժժժժժժժժժժժժݫժժժЪժժݫժժժЪժժݻݻݻݻݻݻݻݻݻݻݻݻݻݻݻݻݻݻݻݻժժժժժժջժժժܻЪժժջժժժժժժժժժժժժժժժժժժջժժժݻЪժժջժժժܻЪժժջݫժժժ`aaX~ow}}_ЪժժݫժժժժժЪժժݫժժժЪժժݫժժժЪժժݫժժժ؃ЪժժݫժժժժժժժժժժժժժժժժժժݫժժժЪժժݫժժժԪՊЪժժݫժժժЪժժݫժժժ?NLyg8 ~apЪժժݫժժժժժЪժժݫժժժЪժժݻݻݻݻݻݻݻݻݻݻݫժժժЪժժݫժժժЪժժݫժժժժժժժժժժժժժժժժժժݫժժժ؃ЪժժݫժժժЪժժժժժL3NLOIyЪժժջժժժݻЪժժջժժժժժժժժժժժժժժժժժժջժժժժժժջժժժЪժժջݻݻݻݻݻݻݻݻݻݻժժժЪժժջժժժժժЪժժջժժժЪժժջժժժЪժժջժժժՀЪժժջժժժժժժժժժժժժժժժժժժջժժժЪժժջժժժԪՊЪժժջժժժܻЪժժջժժժ?NOgyЪժժջժժժժժЪժժջժժժܻЪժժջݻݻݻݻݻݻݻݻݻݻժժժЪժժջժժժܻЪժժջժժժժժժժժժժժժժժժժժժջժժժЪժժջժժժܻЪժժջݫժժժLN xOIyЪժժݫժժժЪժժݫժժժժժժժժժժժժժժժժժժݫժժժЪժժݫժժժЪժժݻݻݻݻݻݻݻݻݻݻݫժժժЪժժݫժժժժժЪժժݫժժժЪժժݫժժժ{{c`aaXan}{{m]}ЪժժݫժժժՀЪժժݫժժժժժժժժժժժժժժժժժժݫժժժЪժժݫժժժЪՂЪժժݫժժժЪժժݫժժժ?fyOgyЪժժݫժժժժժЪժժݫժժժЪժժݻݻݻݻݻݻݻݻݻݻݫժժժЪժժݫժժժЪժժݫժժժժժժժժժժժժժժժժժժݫժժժ݀ЪժժݫժժժЪժժժժժL9~3fIyOIIyЪժժջժժժݻЪժժջժժժժժժժժժժժժժժժժժժջժժժЪժժջժժժЪժժջݻݻݻݻݻݻݻݻݻݻժժժ?pLs8L|ypЪժժջժժժժժЪժժջժժժЪժժջժժժ{{]^^^_W_voouz}{{m]{}ЪժժջժժժЪՂЪժժջժժժժժժժժժժժժժժժժժժջժժժЪժժջժժժЪՂЪժժջժժժܻЪժժջժժժ?pOgy@ЪժժջժժժժժЪժժջժժժܻЪժժջݫժժժLGL3NyOI9yЪժժݫժժժЪժժݫժժժժժժժժժժժժժժժժժժݫժժժժժժݫժժժЪժժݻݻݻݻݻݻݻݻݻݻݻݻݻݻݻݻݻݻݻݻժժժЪժժջժժժܻЪժժջժժժժժժժժժժժժժժժժժժջժժժЪժժջժժժܻЪժժջժժժ?pLs8L|ypЪժժջժժժժժЪժժջժժժЪժժջժժժ{{]^^^_W_voouz}{{m]{}ЪժժջժժժЪՂЪժժջժժժժժժժժժժժժժժժժժժջժժժЪժժջժժժЪՂЪժժջժժժܻЪժժջժժժ?pOgy@ЪժժջժժժժժЪժժջժժժܻЪժժջݻݻݻݻݻݻݻݻݻݻժժժժժժջժժժܻЪժժջժժժժժժժժժժժժժժժժժժջժժժݻЪժժջժժժܻЪժժջժժժqЪժժջժժժЪժժջժժժժժժժժժժժժժժժժժժջժժժժժժջժժժܻЪժժջݻݻݻݻݻݻݻݻݻݻժժժ;]^^a_W}vou:};m];]ЪժժջժժժԪՊЪժժջժժժЪժժջժժժ|yЪժժջժժժЪժժջժժժժժժժժժժժժժժժժժժջժժժЪժժջժժժժժЪժժջժժժܻЪժժջժժժ?N9L|gOIO|9fЪժժջժժժժժЪժժջժժժ؋ЪժժջݻݻݻݻݻݻݻݻݻݻժժժݻЪժժջժժժܻЪժժջժժժЪժժջժժժՀЪժժջժժժܻЪժժջݫժժժdЪժժݫժժժЪժժݫժժժժժժժժժժժժժժժժժժݫժժժժժժݫժժժЪժժݻݻݻݻݻݻݻݻݻݻݫժժժ{Bc^^~_WCnoG}{B FaЪժժݫժժժԪՊЪժժݫժժժЪժժݫժժժ|LyЪժժݫժժժ؃ЪժժݫժժժժժժժժժժժժժժժժժժݫժժժЪժժݫժժժժժЪժժݫժժժЪժժݫժժժ?N~g H|9fЪժժݫժժժժժЪժժݫժժժЪժժݻݻݻݻݻݻݻݻݻݻݫժժժЪժժݫժժժЪժժݫժժժժժժժժժժժժժժժժժժݫժժժ؃ЪժժݫժժժЪժժժժժ`G`|8<yЪժժջժժժЪժժջժժժժժժժժժժժժժժժժժժջժժժժժժջժժժ؋Ъժժջݻݻݻݻݻݻݻݻݻݻժժժ{~^^^_w~ow}{~_ЪժժջժժժժժЪժժջժժժЪժժջժժժ|`xyЪժժջժժժЪժժջժժժժժժժժժժժժժժժժժժջժժժЪժժջժժժժժЪժժջժժժܻЪժժջժժժ?NII|gOII@9fЪժժջժժժժժЪժժջժժժܻЪժժջժժժL9~3fIyOIIyЪժժջժժժݻЪժժջժժժժժժժժժժժժժժժժժժջժժժЪժժջժժժЪժժջݻݻݻݻݻݻݻݻݻݻݻݻݻݻݻݻݻݻݻݻݫժժժЪժժݫժժժЪժժݫժժժժժժժժժժժժժժժժժժݫժժժ݀ЪժժݫժժժЪժժժժժ{~^^^_w~ow}{~_ЪժժջժժժժժЪժժջժժժЪժժջժժժ|`xyЪժժջժժժЪժժջժժժժժժժժժժժժժժժժժժջժժժЪժժջժժժժժЪժժջժժժܻЪժժջժժժ?NII|gOII@9fЪժժջժժժժժЪժժջժժժܻЪժժջݻݻݻݻݻݻݻݻݻݻժժժЪժժջժժժܻЪժժջժժժժժժժժժժժժժժժժժժջժժժЪժժջժժժܻЪժժջݫժժժLGL3NyOI9yЪժժݫժժժЪժժݫժժժժժժժժժժժժժժժժժժݫժժժժժժݫժժժЪժժݻݻݻݻݻݻݻݻݻݻݫժժժ`aaX~ow}}_ЪժժݫժժժժժЪժժݫժժժЪժժݫժժժЪժժݫժժժ؃ЪժժݫժժժժժժժժժժժժժժժժժժݫժժժЪժժݫժժժԪՊЪժժݫժժժЪժժݫժժժ?NLyg8 ~apЪժժݫժժժժժЪժժݫժժժЪժժݻݻݻݻݻݻݻݻݻݻݫժժժЪժժݫժժժЪժժݫժժժժժժժժժժժժժժժժժժݫժժժ؃ЪժժݫժժժЪժժժժժL3NLOIyЪժժջժժժݻЪժժջժժժժժժժժժժժժժժժժժժջժժժժժժջժժժЪժժջݻݻݻݻݻݻݻݻݻݻժժժЪժժջժժժժժЪժժջժժժЪժժջժժժЪժժջժժժՀЪժժջժժժժժժժժժժժժժժժժժժջժժժЪժժջժժժԪՊЪժժջժժժܻЪժժջժժժ?NOgyЪժժջժժժժժЪժժջժժժܻЪժժջݻݻݻݻݻݻݻݻݻݻժժժЪժժջժժժܻЪժժջժժժժժժժժժժժժժժժժժժջժժժЪժժջժժժܻЪժժջݫժժժLN xOIyЪժժݫժժժЪժժݫժժժժժժժժժժժժժժժժժժݫժժժЪժժݫժժժЪժժݻݻݻݻݻݻݻݻݻݻݫժժժЪժժݫժժժժժЪժժݫժժժЪժժݫժժժ{{c`aaXan}{{m]}ЪժժݫժժժՀЪժժݫժժժժժժժժժժժժժժժժժժݫժժժЪժժݫժժժЪՂЪժժݫժժժЪժժݫժժժ?fyOgyЪժժݫժժժժժЪժժݫժժժЪժժժժժ`G`|8<yЪժժջժժժЪժժջժժժժժժժժժժժժժժժժժժջժժժժժժջժժժ؋ЪժժջݻݻݻݻݻݻݻݻݻݻݻݻݻݻݻݻݻݻݻݻݫժժժЪժժݫժժժЪժժݫժժժժժժժժժժժժժժժժժժݫժժժ؃ЪժժݫժժժЪժժ2:868:EN$:24200;.$^24900:EN$ZZ$:21:22:868:EN$.^23:"Expanded mode Off:";:22:EF$;:23:22:"";ZZ$:ZZ$"":23:22:868:EF$:24400.^24900:EF$ZZ$:23:22:868:EF$D/P_7:1:35,11:958:35,24:"Press RETURN if these values are OK,22:LS$:238006-\24900:LS$ZZ$:17:22:868:LS$-\19:"17 line form length:";:22:FL$;:19:22:"";ZZ$:ZZ$"":19:22:868:FL$:24000-\]24900:FL$ZZ$:19:22:868:FL$.]21:"Expanded mode On:";:22:EN$;:21:22:"";ZZ$:ZZ$"":21:2$""Ģ13:22:CM$:23400@,[24900:CM$ZZ$:13:22:868:CM$,h[15:"Superscript On: ";:22:SO$;:15:22:"";ZZ$:ZZ$""Ģ15:22:SO$:23600,[24900:SO$ZZ$:15:22:868:SO$-0\17:"6/72in line spacing:";:22:LS$;:17:22:"";ZZ$:ZZ$""Ģ17:of each ":"character of the printer command code ":"needed for each function below. "+08cJ1k0c(ZZ$,1)" "ZZ$(ZZ$,(ZZ$)1):255000d(ZZ$,J,1)" "JJ1:256000ddZ1$Z1$" "("000"(ZZ$,J1),3)0d(ZZ$)JZZ$(ZZ$,(ZZ$)J):254000,eZZ$Z1$0e 1e =- EXIT TO BDN12#UP$"Disk Labeller Pro"?DDN$" By Dave Touvell "[BK$" " L$"======================================="pL$:4200I2228I:(1):"=";:39:"=":4200L$:4200dI1750:UP:12:UP$,Uthe Label Disks menu.";:3800:' E D$"PREFIX/,S";DS;",D";DRZ \D$"PREFIX":VL$ D$;"OPEN";VL$;",TDIR":D$;"READ";VL$ $Z$,Z$,Z$ FILES0:7::"Volume: ";VL$;:31:"Files: "  P =- TITLE PAGE -= : :SND$"Y"|UP12:1283900 16368,0:4200::  =- MAKE A CLICK -= ^ hSND$"Y"X(16336)(16336)d  0 =- OPEN DISK DIRECTORY & GET VOLUME NAME -= ! 10:"Put disk to be labelled in Slot "DS",":"Drive "DR" and press a key. Press ESC to":"return to MC( T K177K176MCİ3600:NK1765 K141ıF  K155N0:V 3400:2600q =- PRINT POINTER -= H (VT2N):10::N;">";:: =- ERASE POINTER -= (VT2N):10:N;". ";: t =- GET A KEY -= 16368,0 <K(16384):K-= 5300* 4 =- CENTER TITLE -= U 4:1:868:(20(A$)2)1:A$:7::o  =- PRINT MENUS -= ` VT8:N1MC:(VT2N):10:N;". ";M$(N): N1:3400 ( 3800 K138K149İ3600:NN1:NMCN1 K136K139İ3600:NN1:N1N DOMAIN AND -* L= MAY BE DISTRIBUTED=E - FREELY, BUT MAY -` = NOT BE SOLD. ={ x-=-=-=-=-=-=-=-=-=-=- = SEND ALL COMMENTS = @- OR QUESTIONS TO - = GENIE MAIL ADDRESS= - [D.TOUVELL]. - l =-=-=-=-=-=-=-=-=-=d=-=-=-=-=-=-=-=-=-=-=7- -R,= DISK LABELLER PRO =m- VERSION 1.1 -= BY DAVE TOUVELL =X- -=-=-=-=-=-=-=-=-=-=-= - THIS PROGRAM HAS -= BEEN PLACED IN THE= - PUBLIC5l#5l-=-=-=-=-=-=-=-=-=-=->5`m= DISK LABELLER PRO =Y5m- VERSION 1.1 -t5(n= BY DAVE TOUVELL =5n-=-=-=-=-=-=-=-=-=-=-c44l216,0:D$"PR#0":D$"CLOSE":24:1:"Press a key to return to the Main menu.";:3800:104004fl:12:"Make sure printer is ready and press a key. (ESC to abort to Documentation Menu). ":3800:K155ı4klPRSLOT:LL79:LP605plD$"PR#"PR:26700P1:2721503TjX$(L$,(L$)P1):L$(L$,P1)Y3rj(L$,1)" "L$(L$,(L$)1):27250s3|jL$:LL1:LLP270503jPR0āI16:::270003j24:1:"Press a key to continue. (ESC to quit.)";:3800:K155275003k:270003lk216,04kD$"CLOSE":266002hPR0:LL39:LP1692LhD$"OPEN";PF$;"DLP.DOC"U2hD$"READ";PF$;"DLP.DOC"a2i27700k2FiX$""y2xiL1:N0:2iL$X$:N(X$):X$""2iZ$:Z$(13)272502iNN1:L$L$Z$2@jNLL271002JjP(L$):(L$,1)" "27250 3Oj(L$,P,1)" "PASIC -= '1XfA$"Quit to BASIC":2200o1f12:4:"Are you sure you want to quit? ";:Z$:Z$"Y"Z$"y"ĉ::u1 g1g =- SEE DOCUMENTATION -= 1gA$"Documentation":22001g:MCM6:I1MC:M$(I)M6$(I)::24001gN0NMCı1hN26650,277502hP1:12:UP$UP:12:BK$)4200:XDN:12:DN$MDN1:12:DN$^ DN:12:BK$rUPUP1:DNDN1UP66600LI11000:8:6:"A ProDOS Disk Label Printer":420021:8:"This program is FREEWARE":4200Nx100:12:15:"Press a key":4200:(16384)127Ģ12:15:" ":(16384)1277800a16368,0:255}@ =- INIT VARIABLES -= SLOT1:DRIVE1:IS$"009 054 053 078":FB$"Y":LS0:DSLOT6LS(0,0)11:LS(0,1)57:LS(0,2)17:LS(0,3)30:LS(0,4)8:3-1/2 X 15/C$(I1)" "C$(I2))@LINESLINES1/t@I@LLINESLS(LS,0)::PD$"PR#";SLOT:I1(IS$)4:(((IS$,I,4)));::I1(SETUP$)4:(((SETUP$,I,4)));:>((EN$));:TTL$;:FB$"Y"Ĺ36,27LS3:BF$" FREE";>((EF$))>LINES1H?I13:C$(FII)"":?I1FI3@C$(I)" "- PRINT LABEL -= t`;A$"Print Label":2200:10:"Disk Title: ";VL$;:13:"";TTL$:TTL$""TTL$VL$:10:13:TTL$;12:"Print how many copies? 1";(8);:NC$:4200:NC$(27)NC$"0"ı(