¿À`nI—IQ°Q±Q²Q³Q´Q4000°QµQ¸Q¹Q1±Q1²Q¶Q·Z2°D1¤DR¤FREE¤FILE¤TMP¤D¤TXT¤C¤XT¤DNO¤SUBR¤X¤SPACE¤KB¤PTR¤DRIÖNOSHO×SHOWSECÔSORÔFREÂPPICÁCONÄPTYPÅLTYPÅST¤PI¤CO¤SU¤SIX¤TW¤UN¤REÃFMAØA¤S¤EXT¤XXT¤TTT¤PTRFILÅÃÄNÕEXTFLAÇNONATARÉTÔÎNOSHOWSOMÅÚARÃLOCËÓKEÙCOÌFFONÔLÆRECLÎTOOMANÙGAPRO×GAÐMAXRO×LENGTÈMAØWIDTÈWIDHEAÄHEADFLAÇOFFSET²OFFSEÔSÌÁDNÏRO×EXÔNORO×EMPTÙMIDDLÅINDENÔSEPARATÅSEPARATE²ÊÅÂÌØLJËDHEAÄHEAÄPTÒMULÔÙOFFSET³LNKÂBYTÅDXXÔÒOVEÒRÒEXTMATCÈEXTNÏKEEÙDREAÄSHOWSOMÅCHR4¨@@@@B@@@ @ @ @ @ (<Pdl€”6Pä嶶›$PëPP;6–Ñ@@ @!@"@#@$%@&å'í(õ)ý*+ ,-@.@e/QQ0nQQ1¿ ÃÃ2‚ ÃÃ3E ÃÃ45@6@7@89:@;@<=@>?@@A@HB@C@D?ffffE@FG@H?3333I@J@K@ L@PM@YN@OPQ@R@SAˆ‘T@U?3333V@W@PX@Y@Z[<D\@]^@_@`ab@cde@f@gh@TiAUjklmnopqr@s &&PROGRAM DEVELOPED BY JOHN BABSON›Ÿ6€-6-@'6‚-@36ƒ-@?6„-@K6…-BW6†-@c6‡-@o6ˆ-@ {6‰-@‡6Š-@“6‹-@Ÿ6Œ-@ggŽ;@ ,;@ ,;@ ,‘;@ ,’;@ ,“;‡,”;@ ,•;@ ,–;@€,—;,(a<˜;A‚,™;@€,š;@€,›;AP,œ;@ ,G6š7,. X6š7@€,. a6š7‚,.š2% AB€AR%@‚‚<e 6-6.D1:*.*6ž-€"6Ÿ-(6 -.6¡-:6¢-@F6£-@O6œ.P:e6Ž.D1:LABELJRB.CFGFO 6¥-.¦;‡,§;‡,¨;‡,©;‡,ª;‡,«;‡,¬;‡,:6­-@F6®-@eO¯;­$®,P7 °;­$®,#±;ƒ$®,²;ƒ$®,³;ƒ$®,1ƒ„€K:76´-€Z Ad A€LOAD PTR CONFIG›n Ax 6ñ-‚ A5 Œ A €– A %%( Press RETURN to continue.ª AAP´ A@¾(>:A%,ÈE6¯7,. 6¯7®$­,. $6¯7‚,.¯/6°7,. <6°7®$­,. E6°7‚,.°ÒI6±7,.=6±7®$ƒ,.=$6±7‚,.±*6µ-€16¶-676·-€=6¸-€C6¹-€I6·-€Ü A06º-€æ Apð ‘ …»-B:‘,ú<)@:‘7»<»,, @2)@:‘7»<»,,!A'66‘7»<»,. <6¹-$ » ¹" A'$ A@‘7ƒ<ƒ,4  A@‘7†<ˆ,4FREE  A0" 6·-·%, ¶ € A063 »-€¶-±7+»$ƒ,%<+»$ƒ,%ƒ,4‘7‰<@,36¸-@ »J3 ¸"€6¶-¶%36±7+¶$ƒ,%<+¶$ƒ,%ƒ,.‘7‰<@,T 6ž-€¼" A5P^3 6¸-€ž"€+6¯7+µ$­,%<+µ$­,%­,.‘7<­,36µ-µ%h)6’.‘7<­,6‘. Ap) Ar% 6‘.6½-‚¾6½-%6‘.’7<,|%¾*’7ˆ%½<‰%½,4ARC%6‘7<,.+†¿ 6½-€6‘.’7<‚,'¾*¿*’7ˆ%½<‰%½,4ARC'6‘7‚<‚,.+š À-ƒ‡%‚¤’7À<À,4  A@®6‘7B:‘,%,.’7À<À, À¸ ’7ˆ%‚<‰%‚,4  A`Â*6‘7B:‘,%,..*6‘7B:‘,%,.’7ˆ%‚<‰%‚,Ì*B:‘, Š%‚&½ 6‘7B:‘,%,. * A`Ö& Ÿ"&6‘7B:‘,%,.’7Š%‚<@%‚,à$ê( ž"€º"€(‘ 6º-( Aô ž"€º"(‘6º-€þ 6ž-€ A0 6.‘ (º"(<( (<( There are · files on this disk.&6 ·&µ!€6( There are µ files on the label.0$:q A(4( What Title do you want on the K( top of the label?N(q( Press Return for no changeD#( from last label. (™#(N$ A46–.›–4$ A X 6™.–b1B:™,!£$Ì&@16™.™7@<£$Ì&@,l$v œ0P: A`€# AP‚‚‡€œ#6´-€Š$” ´" $ž8 A€‚)‚@œ.‚8 A¨,‚‚@œ%6´-) …,$²k AP(>:A%,( (C( The file œ already exists.k(#Should I delete it or append to it?¼Q( Type 'D' to Delete.5( Type 'A' to Append.Q( Type Return to cancel.ÆN A@€Á"@:D,‚4‚@œ:6´-> …K(>:A%,N$ÐDÁ"@:A,‚*‚@ œ06´-4 …A(>:A%,D$Ú5Á"AU6´-€6œ.P:+(>:A%,5 A0ä Aîk(>:A%,((@(% There is a problem with the printer.g(" Please check it and press Return.k …øK)(! Press 'P' for previous menu.3 A@€>Á"@:P,A'K A0 A0 1 6Â-6Ã-¢6Ä-'‹6Å-­&‚%6Æ-€)¾16Å-­& B ¿ 6Å-­  Ÿ"€6Å-Å&„*  6Â-4'6Ç-P:È$Š,È$Š!P:È$Š,)Ç"€'6Ç-Ç%> Ç 6Ç-H(6É-P:+Ê&+Ç'Š,&+ƒ'Š,,'Ä,(6Ë-Â$+É&¡,R Æ" A @\)++Ã$Ì,&+Â&,,'++%Å,$Â, ) Af Ë µ6Â-Â% Ap A @z.Ã"£*Ä"'Š*Æ"€6Â-Â&!6Æ-$'. A„Ã"£*Ä"'‹6Ä-'Š6Â-Ž Ã"¢6Ä-'‹6Ã-£6Â-˜ 6Ë-€6Â-€¢$¬36Í-P:Ì$¢,6Î-€6Ï-Ð36Ñ-P:+Í&B:™,,'‚,&‚&B:”,¶4$6Ò-Í&B:”,&B:™,&Ñ&B:=:Ó,,&B:—,&„*Ñ 4 A pÀ AÊ-6Í-P:Ì$£,6Î--6Ñ-P:+Í&B:™,,'‚,&‚&B:”,Ô2$6Ò-Í&B:”,&B:™,&Ñ&B:=:Ó,,&B:—,&„26Ï-Ð$@pÞ$è7 Ñ -6™.™7:A%,(((F(" Unable to read the file namesK(p( on the disk in drive .u(Lp(+( Disk is probably using a 0(T( non-standard format. Y(^(c(f(p AAPV$` A j/ AP 67‚<‚,.=:,+‹€/ …t$~u(>:A%,((($()(M( Unable to read the disk R(k( in drive .p(u(ˆC()( Please check the drive 3 AAP6'9'C A@’w(>:A%,((($()(J( Unable to read the diskO(r( directory in drive .w(œK( (1( Please insert another disk; AAP>'A'K A@¦ A A °](>:A%,-€€6( LABELJRB.BAS<-€Z( Version 1.1](º$ÄT(,(!This program reads the file namesT(#from 5 1/4 in. disks and prints theÎS+(#file names on labels. Many printersS(#are supported as well as most labelØl%(sizes. This program requiresK(!that you first run MENUJRB.BAS tol(tailor this program for yourâ++(#specific printer's characteristics.ì#(#( PUBLIC DOMAINöM()( Pittsburgh Atari ComputerM( Enthusiasts (P. A. C. E.)b( P. O. Box 13435;( Pittsburgh, PA 15243b(" Bulletin Board (412) 963-1355 ( ( AAP$> A-€ƒ5( SELECT LABEL SIZE;-€„>((W -€†)( WIDTH LENGTH/-€‹2(8-€ŒW( 1. 3 1/2 by 15/162O -€‡)( 2. 3 1/2 by 1 7/16/-€ˆO( 3. 4 by 1 7/16<P-€@/( 4. 2 3/4 by 1 1/2 5-€‰P( 5. 5 by 3Fa -€Š3(% 6. User Specified dimensions.?-€@a( P& ¥"‹-‡@&(Width= =:Ì,Z- ¥"‹-@$@-(Length= =:Ê,dY-€@1( 7¥"‹C-‡@Y( Separation= =:È,nK-€@(-€@<( * = Current selectionH-€@K(xm-€@9(% Select number to select label.E-€@m(# Press 'P' for previous menu.‚--€@ -( press 'Q' to Quit.ŒF-€@!4( press Return to continue.:¥"@-„ŒF(*– ¥"‚-„‡(*  ¥"ƒ-„ˆ(*ª ¥"„-„@(*´ ¥"†-„‰(*¾ ¥"‹-„Š(*È% A@€Á"@:P,'% @ÒÁ"@:Q, AAÜ4Á"@:1,6¥- A@$-„Œ*(*4 A€æ4Á"@:2,6¥-‚ A@$-„‡*(*4 A€ð4Á"@:3,6¥-ƒ A@$-„ˆ*(*4 A€ú:Á"@:4,6¥-„ A@*-„@0(*: A€4Á"@:5,6¥-† A@$-„‰*(*4 A€>Á"@:6,6¥-‹ A@$-„Š*(*4 A€> AÁ"AU A€$" A€,# ¥"6Ì-@P6Ê-#6È-'Š6' ¥"‚6Ì-@P6Ê-%'‚'6È-'Š@! ¥"ƒ6Ì-„6Ê-%'‚!6È-'‹J) ¥"„6Ì-@u!6Ê-@P)6È-'ŠT ¥"†6Ì-†6Ê-ƒ6È-'„^$h »-ŒŠ-„»(  »r@ ¥‹-€@@(& |@ ¥‹-€@@(& †$h(>:A%,(((( (E( Specify the Characteristics of h( the label you are using. Allšv-(% numbers should be entered in inches.N( (Decimals - no fractions)Q(v( what is the Width of the Label?¤2((  A9@'B:›,!‹26›.›7<‹,® 6Ü-€B:›,€6Ü-A:›,¸ Ü!€6Ì-Ü A@ 6¥- '' AÌX( (/(! What is the length of the label X($ measured from the top of the label Ö)&( to the top of the next label.)(à/(  A9@$B:›,!‹/6›.›7<‹,ê 6Ü-€B:›,€6Ü-A:›,ô Ü!€6Ê-Ü Aþ 6¥- '' As( (1(# what is the Separation between theX(" labels that is not to be printed?[(i( s A9@ B:›,!‹6›.›7<‹, 6Ü-€B:›,€6Ü-A:›,& Ü!€6È-Ü AP0 6¥- '' A:: È!Ê (-( The separation is too long.0(: AD ( (N$Xl A A((;(On what drive is the file[(Ž7@, for configuringl( the printer?bS(+( Insert the disk in the drive andS(#then press the number of the drive.l( ( ( A@€v? A 6Á-Á&@H56Ž7@<@,.=:Á,? A0€6Ž7@<@,.1Š7 A„„„€Ž' A@-6¦.“7 A`”+ »-‡„•A:•,6+6“7»,.>:A:•,,ž  » $¨S A@6§.“ A@#6¨.“- A@36©.“= A@C6ª.“M A@S6«.“²  … „¼$Æ8( UNABLE TO LOAD Ž$ AAP. AC 8 ApÐ 6°.¯Ú  "€ $ä(  "6Ý-€6Þ-ƒ6ß-‰% A P($î2  "‚ A P6Ý-€6Þ-‰%6ß-ƒ/ A P2$ø8  "ƒ A P6Þ-@%6ß-„+6Ý-5 A P8$6à-?:C:˜,:A%,ñ"€! A€*M -€€(( LABELJRB.BAS.-€M( LABEL STATUS4 -€‚ (>8 Ÿ"-€ƒ8($ A. Print file names and sectors.H8 Ÿ"€-€ƒ8($ A. Print file names only. R9  "-€„9(% B. Sort file names alphabetically\9  "‚-€„9(% B. Sort files by extender f9  "ƒ-€„9(% B. Sort files by sectors. p9  "€-€„9(% B. Don't sort the filenames. z7 ¿"-€†7(# C. Show which files are locked.„7 ¿"€-€†7(# C. Don't identify locked files.Ž7 ¡"-€‹7(# D. Show number of free sectors.˜7 ¡"€-€‹7(# D. Don't identify free sectors.¢> -€Œ+( E. Read from drive D1:*.*7-@$Œ>(=:,¬9 á"-€‡9(% F. Letter Perfect (LJK) format ¶9 á"€-€‡9(% F. Atari Dos 2 format. ÀO -€ˆ( G. Print to (œ4P:4-@ˆO(printer Ê% œ0P:-@ˆ%(file: œÔ5-€@5(! H. Advance label w/o printingÞ/ -€‰/(! I. Offset the label spacesè-@$‰(=:Ð,ò4 ¼"-€Š4( J. No show certain extendersü3 ¼"€-€Š3( J. Show all files  B-€@,( K. Print text/Date: >-@%@B(” Y-€@5(! L. Print disk number: ;â"M-@&@Y(=:Ó,— 2-€@2( M. Change title on label: $ )-@)(>:@4,™>:@4,. = ñ"€-€@=(# Files on Disk= Label= 8 ; ñ"€-@@"(=:·,4-@0@;(=:µ,B ? ñ"€*µ!Ë-@@&(=:·,8-@0@?(=:Ë,L 7-€@7(# Select letter for status changeV 7-‚@ 7(#[Q]uit [S]ize Change [+-]Disk No.` ; ñ"€-‚@!;(![P]rint 1 Label [R]epeat labels.j ; ñ"-‚@!;(! o '-€@#'( t D-‚@"6(" press RETURN to read next disk.: …D A@€y '-€@#'( Working ...~ Á"@:S,' Aˆ Á"@:Q, AA’ ,Á"@:A, A&`" A€, A œ "Á"@:B, A&€" A ¦ ,Á"@:C, A'@" A€, A ° ,Á"@:D, A'`" A€, A º "Á"@:E, A'€" A Ä 2Á"@:F, A(@" A€(6ñ-2 A Î "Á"@:G, A(P" A Ø "Á"@:H, A3" A â "Á"@:I, A( " A €ì "Á"@:J, A&@" A €ö "Á"@:K, A)0" A € "Á"@:L, A' " A € "Á"@:M, Ap" A € "Á"@:+, A0" A#  "Á"@:-, A1 " A# ( @ñ"€*Á"@:P, A€& A0,6å-6 A1p@ A 2 Dñ"€*Á"@:R, A€& A00 A1P: A1pD A €< Á"AU6ñ-€$F A P , ¼"6¼-€ A5 # A)6ñ-€,$Z 6 ¼"€6¼- A# A5- A36ñ-€6$d  Ÿ"€6Ÿ-$n  Ÿ"6Ÿ-€$x  6 - % !ƒ6 -€‚ $Œ  ã"6ã-€$–  ã"€6ã- A)0$   â"6â-€$ª  â"€6â- A)€$´  ¿"6¿-€$¾  ¿"€6¿-$È  ¡"6¡-€$Ò  ¡"€6¡-$Ü  "‡6-€æ  6-%!„6-‡ð  "ä A'€ú $  Ð!€6Ð-€$  Ð"€ A)$  A8P$" " 6ä-ä%‚6´-€ä!‡"6ä-€,  ä!„6ä-‡6  ä" A(P@ 6 6œ.P:ä€(6œ.D :LABELPRN.DAT66œ7‚<‚,.=:ä,J $T _(>:A%,((((B(! How many spaces should the label_( be offset to the right?^ ;(  A9@%6Ð-P:A:›,,5Ð €)Ð!A2;6Ð-€h $r f(>:A%,((((<( What text is to be printedf(% on the right hand side of the label?| G+(# (Up to eight characters long only)7-@‡A A4G6”.›†  ”4 A'@  B:”,!‡6”.”7<‡,š $¤ I(>:A%,((((F(% What is the number of the next disk?I(® A0€¸ =-@‡ A46–.›&6—.-–436Ó-€= A0p 9'–7B:–, 7 A0(‚¦«.»-P:+Ê$Š,%? ,3(‚7 »H $R 6›.\ % 6è-B:›,AdAU%)ƒéf é"AU$p +é"A&*è"6›.!(~+ A4 z é"A&*è"€ A4 „ -é"A&6›.›7<è&,#(~- A4 Ž é @26é-é%@d˜ é!A'6é-é&A(¢ !!é @2)é!A"A4 ¬  (>:é,6›7B:›,%,.>:é,¶ A4 À  6ê-€6¼-€Ê $6²7,.+6²7®$ƒ,.+$6²7‚,.²Ô '6³7,.-6³7®$ƒ,.-$6³7‚,.³'$Þ  6ž-€ê"€ A5€è 3 ë-€ê-²7+ë$ƒ,%<+ë$ƒ,%ƒ,4‘7‰<@,36ž-ò  ëü $- A*( NO SHOW FILES-(N*(" You can eliminate the printing ofN( files with selected extenders.6ì-6@$8 ë-€¶$ë'@"P:ë'@,26ì-ì%@86í-.ë!@% A6`8:-ì@%í:(>:ë%@e,. ±7+ë$ƒ,%<+ë$ƒ,%ƒ,B 6í-í%L ëV--€@ -( * = Current selection`5-€@!5(! Select number of extender.j4-€@"4( press Return to continue.t$ A@€!Á"@:P,)Á"@:p,$$~/Á!@d*Á @f%¶% A7@/ A7ˆÁ"AU$’ A7œ 6î-€ê" A7€¦ ë-€ê°K?±7++Á&@e,$ƒ,%<++Á&@e,$ƒ,%ƒ,4²7+ë$ƒ,%<+ë$ƒ,%ƒ,E6î-K6ï-ëº ëÄ6ð-P:+Á&@e,'@,Î. î"6³.²7+ï$ƒ,%ƒ%:A%,((+(S(#THIS OPTION DOES NOT WORK WITH THISiF:AB&,A@(# VERSION OF DOS. YOU WILL HAVE TO i($ REBOOT WITH ANOTHER VERSION (2.0S).(gF:AB&,A@(# IN ORDER TO READ LJK FORMAT DISKS g(" (LETTER PERFECT OR DATA PERFECT).28F:AB&,A6á-€!'$'. AAP8 A €<3F:AB&,"A6á-0AB&A3$F$P$Z$d 6›.n% 6è-B:›,AdAU%)ƒéxé"AU$‚+é"A&*è"6›.!(~+ A9PŒé"A&*è"€ A9P–-é"A&6›.›7<è&,#(~- A9P é"@F A@`ªé"@E A@`´é"@C A@`¾é @26é-é%@dÈé!A'6é-é&A(Ò!!é @H)é!@WA9PÜ (>:é,6›7B:›,%,.>:é,æ A9PðAdAU)ƒÁúÁ"AU$Á @26Á-Á%@dÁ!A'6Á-Á&A(Á!@–6Á-Á&@2"!!Á @B)Á!@A@€,$6AdAU)ƒÁ@Á @26Á-Á%@dJÁ!A'6Á-Á&A(T$^$@@$@háAB&Ar(>:A%,(((((|%%( Do you want to run†""( D1:MENUJRB.BAS?$($( [Y]es or [N]o?‘ ABsš(( ¤+ A@€Á"@:Y,+%D1:MENUJRB.BAS®(>:A%,±6 B6($ INSERT MENUJRB.BAS DISK IN DRIVE 1²8$( PRESS RETURN TO CONTINUE. A@€8 AB¸cc6˜7@,.PØh8é…Ùh…Ìh…Ëh…×h…Öh…Òh…Ñ¢hhèäÙÐö8¥Ñé…Ñ¥Òé…Ò0l¥Ñ…ӥ҅ԥ̅΅Х˅ÍeÖ…Ï¥Ðe×…Âcc6˜7@,.PР¹¾†Ú¾ÈÈȄبˆ±ÍÑÏð ¥Úа.,° ÈÊÐê¤ØÄÙÐÒÆÓ©ÿÅÓЦÔð ÆԥЅΥϬ¥Õð†ÕДÌ))6˜7Aa,.`†Õ ±Íª±Ï‘ÍŠ‘ÏÈÄÖÐñðËÖ$àW6¦.@G6§.E6¨.)6©.S26ª.2<6«.3F6¬.-WEPSON MX/RX/FX›ê$€)D:LABELJRB.BAS)D:LABELJRB.BAK