@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@W!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr d M * @  $ % CC$$)%1 Udߥ$9%: !0 S$%} DD˙`  }J)Lr J  ((  p L ()   J}L= ( L 0q A    IB JC;? D W } LL  ` W )LA!  ߰")-݆ p" } $G@LL 08`Q")<2Q0 -G$Ș݆ UL# ; p8(()(0ʥ)NQ` }$GȘ݆LU )L ݆ L GȘ ݆LL )W>Z   HH)H  }p h  hyhy D L> L JJ    ! LA*` BF }7'8  M HN H` 8 Z  \LdJJ!"! GFE@F (!L }EE !E^ ^ E E7EȩEdE/EȩE  D } .L }  ;F d  ;?F7F? ( .   Z D LL d } . D  L    p  E` , d)  D L) 0BM݊L݉} ML  N݆ L NLML [ TEqEHȱEqEh 0Gȹ G} HLL GɛL  LFREE SECTORS G) *Gȩ GȽG GȌ*jj >G} C8jJ3j2CD( C202C ԠBX` N 1? l LlD:RAMDISK}.COMLu L1 L ;LHL  T`  `8  ɐ     `TU  } L ? .  t`GBJ ~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI4 0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D8:MEM.SAV J y08 B|DEHI$} V0 0`B;DEL`?<0LV`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D8:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J  (` 9 V⪍ ઍ  -'}LLu ÝDEHILV 9 .l 9 .l  `` s$B BH(}I|DE V BLV nB,DE JLV B V BLVDEIʩ BꭝLu } 3E:}DISK OPERATING SYSTEM II VERSION COPYRIGHT 1984 ATARI CORP.A. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDG*}E J. DUPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRES+}SF. LOCK FILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES P. FORMAT SINGLEL !N',}#"&))9(&*)/h)''-&؆莟R'S  vL/ˢ L }Insert DOS 2.0s, type Y Λx -}DEfHI 1莏#q! @ y0ɛ8A0,' ȅ 1 1ild! 1L!NO SUCH ITEMSELECT.} ITEM OR FOR MENU! 0 .z:*{}.|{ 1 0 0JB 18L%|DL/}%DIRECTORY--SEARCH SPEC,LIST FILE?[# 0 0 &|D3" 1L!NOT A DISK FILEN !B 1L!E# 1 !BD0}ED:}:1BJ|DE 1DEBHI 1 h0ߢ 0.1}  0?詛 1 y0YЛ 1 ;#L" ;#L! BL1TYPE "Y" TO DELETE...DELETE FILE SPEC2}COPY--FROM, TO?OPTION NOT ALLOWED697 FREE SECTORS COPYING---D8:COPY32.COMl# 0|D .L/%#3}##JB|DE 1BHID#E 1#0: B 1L!#͑### B 1#c$0SY4}S1}:## # # .#Ƚ# # 𩛙## 1,#PD#ELJ- <.BJD#E 5}1 1HH 0hh|DL%1}:̳# L% #D#EL% 1 0 . .0O% 1L!WILD CARDS NOT A6}LLOWED IN DESTINATION 0 <.|K}N 2 FORMAT. t* 5) 1L!`) 0NΞ 0 L1) 1 L!BAD LOAD FILELOAD FROM WHAT FILE?) 0 ?}0#B 1L!WHAT FILE TO LOCK?) 0 0$B 1L!WHAT FILE TO UNLOCK?DUP DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO US@}E PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV.FE! +L1   `*  70 2 2A} 0.* 1 y0 0)INSERT BOTH DISKS, TYPE RETURN^, 1 y038逍 N, 1L! ,B}C, t*  Lx+, 0 ^, 1 y0 , ,0,0 ,L+ ,I0 ,Vǭ0C}Ξ, 0 }, 1 y0C,ШC, 0K'!" H H 'h h Lx+!EF 5L1L!D,I,HhD}` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNINSERT DESTINATION DISK,TYPE RETURNE}`  `8 rL1`-* 1P* 1 y0Y`hhL!NAME OF FILE TO MOVE?- 0 0|DL% <.F},^ 1 70 0 .@L# .BJ 1  DEHIB V L1 ,} 1 70,L.  G}JB|,#P#DE 1 HI BDEHHII 1 B 1 ,^ 1 70,0La- B V,#PH},^ 1 70 0L#L!-* 1P* 1 y0Yj383}mm ݭI}}`8}``|* ? ɛ,`|:-)| / 1L!`DESTINATION CANT BE DOJ}S.SYS0 0H{ 24Δ 28/L!/) 2 Π 2 0 ξK}hAΞB,0 J 1 BDEHI,HÝDE 1HIHIDELSAVE-GIVE L}FILE,START,END(,INIT,RUN)O S0 1`BDEPHI V` S0H 1 L!M}0 0 1L~0`PLEASE TYPE 1 LETTER,0`hhL! 70 1L0L<1 ,;ɛ7,"ɛ:ݦ1ݥN}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{NAMEO} TOO LONG B VL!` L1I H1EΝDL1|mDiE` V0`8d/8 i:222 1 LP}!ERROR- 144ɛ+,' 20*.. өr2 1``2TOO MANY DIGITSINVALID HEXAQ}DECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8uR} ECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8uQ) !"`3!3?@@A@HB@C |}@D?ffffE@FG@H?3333I@J@K@ L@PM@YN@OPQ@R@ }}SAT@U?3333V@W@PX@Y@Z[<D\@]^@_@`ab@ ~}cde@f@gh@TiAUjklmnopq }r@s &&PROGRAM DEVELOPED BY JOHN BABSON6-6-@'6-@36-@?6-@K6-B }W6-@c6-@o6-@ {6-@6-@6-@6-@gg;@ ,;@ ,;@ , };@ ,;@ ,;,;@ ,;@ ,;@,;,(a<;A,;@,;@,;AP,;@ , }G67,. X67@,. a67,.2% ABAR%@<e 6-6.D1:*.*6-"6-(6-.6-:6- }@F6-@O6.P:e6.D1:LABELJRB.CFGFO 6-.;,;,;,;,;,;,;,:6-@F6-@eO; }$,P7 ;$,#;$,;$,;$,1K:76-Z Ad ALOAD PTR CONFIGn Ax 6- } A5  A  A%%( Press RETURN to continue. AAP A@(>:A%,E67 },. 67$,. $67,./67,. <67$,. E67,.I67,.=67$,.=$67,.*6-16-676-=6-C6 }-I6- A06- Ap  -B:,<)@:7<,, @2)@:7<,,!A'667<,. <6- }$  " A'$ A@7<,4  A@7<,4FREE  A0" 6-%,   A06 }3 --7+$,%<+$,%,47<@,36-@ J3 "6-%367+$,%<+$,%,.7<@,T 6-" }A5P^3 6-"+67+$,%<+$,%,.7<,36-%h)6.7<,6. Ap) Ar% 6.6-6- }%6.7<,|%*7%<%,4ARC%67<,.+ 6-6.7<,'**7%<%,4ARC'67<,.+ -% }7<,4  A@67B:,%,.7<,  7%<%,4  A`*67B:,%,..*67B:,%,.7%<%, }*B:, %& 67B:,%,. * A`& "&67B:,%,.7%<@%,$( ""( 6-( A } ""(6- 6- A0 6. ("(<( (<( There are  files on this d }isk.&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 } Ak(>: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-)1 }6-& 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 i }n 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 theS+(#file names on labels. Many printersS(#are supported as well as mo }st labell%(sizes. This program requiresK(!that you first run MENUJRB.BAS tol(tailor this program for your++(#s }pecific printer's characteristics.#(#( PUBLIC DOMAINM()( Pittsburgh Atari ComputerM( Enthu }siasts (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 dimensio }ns.?-@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 continu }e.:"@-F(* "-(* "-(* "-@(* "-(* "- }(*% A@"@:P,'% @"@:Q, AA4"@:1,6- A@$-*(*4 A4 }"@:2,6- A@$-*(*4 A4"@:3,6- A@$-*(*4 A:"@:4,6- A@ }*-@0(*: A4"@: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 us }ing. Allv-(% numbers should be entered in inches.N( (Decimals - no fractions)Q(v( what is the Width of the Labe }l?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 l }abel.)(/(  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 separa }tion 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-&@H567@<@,.=:,? A067@<@,.17 A }' A@-6.7 A`+ -A:,6+67,.>: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 id }entify locked files.7 "-7(# D. Show number of free sectors.7 "-7(# D. Don't identify free sec }tors.> -+( 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. Offs }et the label spaces-@$(=:,4 "-4( J. No show certain extenders3 "-3( J. Sh }ow 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 RET }URN 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.DAT667<,.=:,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 t }ext is to be printedf(% on the right hand side of the label?| G+(# (Up to eight characters long only)7-@A A4 }G6.  4 A'@  B:,!6.7<, $ I(>:A%,((((F(% What is the number of the next dis }k?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   (>:,67B: },%,.>:, A4   6-6- $67,.+67$,.+$67,. '67,.-67$,.-$67,.'$  6- }" A5 3 --7+$,%<+$,%,47<@,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( pre }ss Return to continue.t$ A@!"@:P,)"@:p,$$~/!@d* @f%% A7@/ A7"AU$ } A7 6-" A7 -K?7++&@e,$,%<++&@e,$,%,47+$,%<+$,%,E6-K6 }- 6-P:+&@e,'@,. "6.7+$,%%:A%,((+(S(#THIS OPTION DOES NOT WORK WITH THISiF:AB&,A@(# VERSION OF DOS. YO }U 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-0A }B&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)!@W!}A9P (>:,67B:,%,.>:, A9PAdAU)"AU$ @26-%@d!}!A'6-&A(!@6-&@2"!! @B)!@A@,$6AdAU)@!} @26-%@dJ!A'6-&A(T$^$@@$@hAB&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 18$( PRESS RETURN TO CONTINUE. A@8 ABcc67@,.Ph8hhh!}hhhѢhh8ѥ0lхӥ҅ԥ̅΅Х˅eօϥeׅcc67@,.PРھȄب ., !}ө ԥЅΥД))67Aa,.`ՠͪϑ͊$W6.@G6.E6.)6.!}S26.2<6.3F6.-WEPSON MX/RX/FX$)D:LABELJRB.BAS)D:LABELJRB.BAKKBPTRDRINOSHOSHOWSECSOR a27642771-1-1-1-12769-1-1-1-1-1-115-1-1-1-1-1-1-127830-1-1-1-1-12750-1-1-1-1-1-12751% }18-1-1-1-1-1-1-12769-1-1-1-1-1-115-1-1-1-1-1-1-127830-1-1-1-1-12750-1-1-1-1-1-12751$"::XFQAGDIRVKEZZQQQQQ4000QQQQ1Q1QQD1DRDCDNOKBPTRDRIPPICCONPTYPSTPICOSUS) }IXTWUNPTRFILLNKBYT ) } )} !"#$%&'()*+)},-./012 6-6-@'6-@36-@?6-@K6)}-BW6-@c6-@o6-@ {6-@6-@6-@6-@ @P1 @@)@)}'*@1 @0($2.@.@@K:<00;@ ,;@ ,;,;@ ,)};,F&&;@,;AP,;@ ,P\ 6-6.D1:LABELPRN.DAT+6-@76-@@6.P:F6-\6.D1:LA)}BELJRB.CFGZ. 6-.;,;,;,;,;,;,;,d;@H,n&&;@%,;@,;A%,x6-@)}0 +AR@0SETCOLOR 2,0,04-@4( LABELJRB.BAS and MENUJRB.BAS)-@)( )} )-@)  )-@)  )-@)  )} *-@*  *-@*  *-@*  )} *-@ *  +-@+  ,-@,( )}  --@-    0-@0(   0-@)}0    0-@0   "0-@0( )} ,0-@0  PITTSBURGH ATARI 60-@0  COMPUTER ENTHUSIASTS@+-@+  )} P. A. C. E.J0-@ 0  P. O. Box 13435 T1-@!1  Pittsburgh, PA 15243^4-)}@"4  Bulletin Board (412) 963-1355h A40r(>:A%,| A),(,(!MENUJRB and LABELJRB were ma)}de to((( assist the disk librarian of the!!(Pittsburgh Atari Computer((( Enthusiasts in managing the user%%()}group's disk library. It was))(!decided to place it in the Public))(!Domain so our members, other user**("group)} members and others could use''(this program to print labels to""(help organize their disks.&(&(Please send ) }any comments or))(!suggestions about the programs to%%(the Pittsburgh Atari Computer%%(Enthusiasts, P. O. Box 1)!}3435,((( Pittsburgh, PA 15243 or call our))(!Bulletin Board at (412) 963-1355.&(((( Press RETURN to continue)"}.0 A(`: +AR@DF06.&<6-@F ApNF6-@)#}<6.&| P. A. C. E. Presents |F ApXF6-@<6.&| MENUJRB.BAS and LABELJRB.BAS |F A)$}pbF6-@<6.&| Atari Disk Label Programs |F AplR6-@6-@H6.&)%}R Apv4-@@4( PUBLIC DOMAIN@-@@@(&)&}@-@@@(&| LABELJRB.BAS |@-@@ @(&| )'} Main Menu |@-@@@(&| |@-@@@(&| 1. Ch)(}ange/set Printer |@-@@@(&| Configuration. |@-@@@(&| ))} |@-@@@(&| 2. Run LABELJRB.BAS. labelmaker. |@-@@@(&| )*} |@-@@@(&| 3. Print from the file (buffer) |@-@@@(&)+}| to the printer. |@-@@@(&| |@-@@@),}(&| 4. Documentation |@-@@ @(&| | @-@@!)-}@(&| Select number |@-@@"@(& -@@ ).}* A(`4"@I A`>"@P A @H"@Q A)PR!"@R!% D:DISPLAY.MAN)/}\ Af 6-B:,p='@P:'@,/67%@,. =6-%@z-@'@/-@ &)0}/(7@<,7&%@,B2y@ $ A)##(LABELJRB.BAS reads the file''(di)1}rectory on a 5 1/4 Atari disk$$(and prints the file names on++(#pin-feed labels. The program sorts$$(file name)2}s and automatically$$(adjusts the type size (pica,++(#compressed or superscript) to print++(#the maximum number )3}of file names on( the label.(**("The program works with most common++(#dot matrix printers and the printer$)4}**("configuration codes can be changed.))(!to suit your particular printer's8++(#capabilities. Standard label sizesB)5}))(!are supported as are non-standardL(sizes.V$($( Loading LABELJRB.BASW A"`%D:LABELJRB.BAS)6}b@-@!@(& INSERT LABELJRB.BAS DISK IN DRIVE 1.c=-@"=(# PRESS RETURN WHEN READY )7}j A(`t A~AR@ 6- A)D -,( SELECT PRINTER TYPE)8}2-5(;->(D-I -+( 1. Epson MX, RX or FX1-I( 2. Epson LQC -#( 3. Gemi)9}ni 10X)-C( 4. Prowriter K-@*( 5. Okidata 1920-K( 6. Star SG-10 g -/():}! 7. Star SG-10 set for IBM;-@g(' 8. User Specified ConfigurationZ-@(-@!();}--@K( * = Current selectionW-@Z(:-@:(& Select number to select printerF-@)<}4( press Return to continue.:"@-F(* "-(* "-(*  "-(*)=} "-@(* "-(*( "-(*2 "-%(*< F A'P4"@:1,)>} A0-$(**6-4 A@Z4"@:2, A0-$(**6-4 A@d4"@:3, A0-$(*)?}*6-4 A@n4"@:4, A0-$(**6-4 A@x:"@:5, A0$-@*(*06-: A@)@}4"@:6, A0-$(**6-4 A@4"@:7, A0-$(**6-4 A@2"@:8, A`)A}" AP(6-2 A#"AU A`# A"@ AP " A2 " A3 ")B} A30 " A3P " A3p " A3 " A4!-@-( ! $)C}U A)0( SET PRINTER CONFIGURATION3(U( 1. Initialize - Reset ( 2. Normal - Pica"b"( )D} 3. Compressed =( 4. Superscriptb( 5. 1/6 inch line spacing,Q)(! 6. 1/12 inch line sp)E}acingK( 7. Load ConfigurationN(Q(6O,($ Select number to modify config.O( Press RETURN to continue.)F}@  A'J""@:1, A" APT""@:2, Ap" AP^""@:3, AP" APh")G}"@:4, A " APr""@:5, A!" AP|""@:6, A!p" AP""@:7, A#`" A)H}P"AU$W A)+( PRINTER SET-UP.(W($The proper set-up codes should resetq+(#the prin)I}ter to turn off any specialR("fonts. You can also include codesn(for double strike here.q([(( With the current set)J}tings, theseJ(codes are sent to the printerM([(Set-up:  B:,"(None A@&-B:,(@:7<,, )K}# &(! A$P AP! A@ 6.-L-@"( +-@"<(No. > F A&P)L}L6.$4*"6-6-$ A  46- A # A:, 6-6.# A NP:A:,, )P:A)M}:,,!AUD( Enter a number under 255 please.N A`67<,.>:P:A:,,, &$0 "6-$: 6.D)N}$NX A).( PRINTER NORMAL (PICA)1(X("The proper set-up codes should setXi(( the printer to use the pic)O}a typeN(!font. You can also include codesf(for enhanced print.i(b[(( With the current settings, theseJ(codes are)P} sent to the printerM([(Set-up: l B:,"(None A v&-B:,(@:7<,, # &(& A$P A)Q}P"#6-&$ 6.$V A),( PRINTER COMPRESSED/(V("The proper set-up codes should set[))R}(!the printer to use the compressed3(font.6([( With the current settings, theseR%(codes are sent to the printer()S}(6(Set-up: ?B:,"H(NoneR A&-B:,(@:7<,, # &(& A$P AP"#6-&$ 6)T}.$ A)o"( PRINTER SUPERSCRIPT%(L("The proper set-up codes should seto(the printer to use sup)U}erscripth (font.(5( With the current settings, theseW(codes are sent to the printerZ(h(Set-up:  B:,")V}(None A p &-B:,(@:7<,, # &(& A$P AP"#6-&$  6.*$4[ A)1()W} PRINTER 1/6 INCH LINE SPACING4([("The proper set-up codes should set>k&(the printer for 1/6 inch line C(feeds ()X}not form length).F(k( With the current settings, theseHR%(codes are sent to the printer((6(Set-up: ?B:,"H()Y}NoneR A!@R&-B:,(@:7<,, # &(\& A$P AP"#6-&$f 6.p$z\ A)2( )Z}PRINTER 1/12 INCH LINE SPACING5(\("The proper set-up codes should seto'(the printer for 1/12 inch line D(feeds (no)[}t form length).G(J(o( With the current settings, theseR%(codes are sent to the printer((6(Set-up: ?B:,"H()\}NoneR A"&-B:,(@:7<,, # &(& A$P AP"#6-&$ 6.$g A#P(>:)]}A%,( (#(&()(K( Insert the disk to whichg(you want to save .Z('( Press return when ready.*)^}(-(0(: A(`?JP6.Z A"p A#  B:," A#!-B:,(@:7<,,!  B:)_}," A#-B:,%(-1  $ S 6. A"p6.# A"p)6.3 A"p96.C A"pI6.S)`} A"p   $ Ap. .( UNABLE TO SAVE $ A(`. A#08 ` A$@(>:A%,( (D( Inse)a}rt the disk from which`(you want to load .B U((( Press return when ready.+(.(1(; A(`@K)b}U A#L  6. A$V + -A:,6+67,.>:A:,,`   $j S A#6. A##6.- A#)c}36.= A#C6.M A#S6.t   ~ $ .( UNABLE TO LOAD $ A(`. A$  p(,(!To change )d}them, enter the decimalM(number for the proper codes.p(You can send up to eight codes Y(.(# Press Return to retain)e} the currentV(# setting. (Negative 1 for no codes)Y( $ A4@ *(*(This part of the program allows ++(#y)f}ou to modify or set the particular ''(printer control codes that will ''(be used by LABELJRB.BAS so that ))(!they )g}match those required by your **("printer. Seven of the most common %%(types of printer are directly ((( supported.)q}+BŠBB렣BB%DOS SYSB*)DUP SYSBSAUTORUN SYSBTREADME DOCBtLABELJRBBASB LABELJRBCFGBw MENUJRB BASBLABELJRBBAKB MENU Bw!MENUJRB BAKBrDISPLAY MAN If your printer uses ((( control codes that are different &&(from those of the preselected  ''(printers, you can)r} change any of( ))(!the codes to suit your particular2 %%(printer's characteristics by < ))(!following the instruction)s}s in theF ((( program and reading your printerP (manual.Z 6.d % 6-B:,AdAU%)n "AU)t}$x +"A&*"6.!(~+ A&` "A&*" A&` -"A&6.7<&,#(~- A&` )u}"@F A'p "@E A'p "@C A'p  @26-%@d !A'6-&A()v} !! @H)!@WA&`  (>:,67B:,%,.>:, A&` AdAU) "AU$)w}  @26-%@d !A'6-&A( !@6-&@2 !! @H)!@AE " $)x}, AdAU)6  @26-%@d@ !A'6-&A(J $T (>:A%,^ 3-)y}3( MENUJRB.BASh 4-@4( Version 1.11r -@(| $ A))z} *(*(The program LABELJRB.BAS allows ''(you to redirect the information $$(that is normally sent to the ))){}(!printer and save this information ((( in a file called 'LABELPRN.DAT'. **("This section of the program allows **()|}"you to 'print' to the printer from %%(this file. This is crude but **("effective substitute for a printer ))(!buf)}}fer. This feature permits you ((( to make a large number of labels &&(rapidly without having to wait ''(for the p)~}rinter. Once you have ))(!finished saving the label data to ))(!the file, using LABELJRB.BAS, use& &&(this utility )}to copy the label0 %%(data directly to the printer.: )()( Press RETURN to continue.D A(`N  A)()}(((X ,,( On what drive is 7@,?b (  A'l +! @H)!@H%@+ A1Pv %%)}67@<@,.=:&@H, @ A20@#@@@@ - A2@-@@)}P: ! A2` @0! Ap f A)(>:A%,( (<( Unable to open F A(`Q@)}\@f Ap d A)(((:( Please check the Printer.D A(`O@Z@d Ap)}  @0 Ap 0 A)(((0( PRINTING ... %(%( This may take a while. $ W6.)}@G6.E6.)6.S26.2<6.3F6.-WEPSON MX/RX/FX $ S6.@x6.E!6.+6.S)}46.2>6.3H6.-SEPSON LQ $ W6.@G6.B1E"6.,6.S56.2?6.3 I6.-WGE)}MINI 10-X $ U6.c1!6.N!6.Q+6.s146.A?6.T12I6.XUPROWRITER $* L 6.6.)}6.$6.J-6.696.%912B6.CLOKIDATA4 $> M 6.@6.56.(6.S16.2;6.3E6)}.-MSG-10H $R V 6.@6.I6.)6.S26.2<6.3 F6.-VSG-10 FOR IBM\ $f %%6-?:C:)}hiЎ `,,p $D2:MENUJRB.BAS6.S26.2<6.3 F6.-VSG-10 FOR IBM\ $f %%6-?:C:(6`nIIQQQQQQ4000QQQQ1Q1QQZ2D1DRFREEFILETMPDTXTCXTDNOSUBRXSPACEKBPTRDRINOSHOSHOWSECSOR-}FREPPICCONPTYPLTYPSTPICOSUSIXTWUNREFMAASEXTXXTTTTPTRFILNEXTFLANONATARTNOSHOWSOMARLOCKECOFF-}ONLRECLTOOMANGAPROGAMAXROLENGTMAWIDTWIDHEAHEADFLAOFFSETOFFSESDNROEXNOROEMPTMIDDLINDENSEPARATSEPARATE-}LJDHEAHEAPTMULOFFSETLNKBYTDXXOVEREXTMATCEXTNKEEDREASHOWSOMCHR4@@@@-}B@@@ @ @ @ @ (<Pdl-}6P$PPP;6@@ @!@"@#@-}$%@&'()*+ ,-@.@e/QQ0nQQ1 2 3E -}45@6@7@89:@;@<=@>?@@A@HB@C-}@D?ffffE@FG@H?3333I@J@K@ L@PM@YN@OPQ@R@-}SAT@U?3333V@W@PX@Y@Z[<D\@]^@_@`ab@-}cde@f@gh@TiAUjklmnopq-}r@s &&PROGRAM DEVELOPED BY JOHN BABSON6-6-@'6-@36-@?6-@K6-B-}W6-@c6-@o6-@ {6-@6-@6-@6-@gg;@ ,;@ ,;@ ,-};@ ,;@ ,;,;@ ,;@ ,;@,;,(a<;A,;@,;@,;AP,;@ ,-}G67,. X67@,. a67,.2% ABAR%@<e 6-6.D1:*.*6-"6-(6-.6-:6--}@F6-@O6.P:e6.D1:LABELJRB.CFGFO 6-.;,;,;,;,;,;,;,:6-@F6-@eO;-}$,P7 ;$,#;$,;$,;$,1K:76-Z Ad ALOAD PTR CONFIGn Ax 6--} A5  A  A%%( Press RETURN to continue. AAP A@(>:A%,E67-},. 67$,. $67,./67,. <67$,. E67,.I67,.=67$,.=$67,.*6-16-676-=6-C6-}-I6- A06- Ap  -B:,<)@:7<,, @2)@:7<,,!A'667<,. <6--}$  " A'$ A@7<,4  A@7<,4FREE  A0" 6-%,   A06-}3 --7+$,%<+$,%,47<@,36-@ J3 "6-%367+$,%<+$,%,.7<@,T 6-" -}A5P^3 6-"+67+$,%<+$,%,.7<,36-%h)6.7<,6. Ap) Ar% 6.6-6--}%6.7<,|%*7%<%,4ARC%67<,.+ 6-6.7<,'**7%<%,4ARC'67<,.+ -%-}7<,4  A@67B:,%,.7<,  7%<%,4  A`*67B:,%,..*67B:,%,.7%<%,-}*B:, %& 67B:,%,. * A`& "&67B:,%,.7%<@%,$( ""( 6-( A-} ""(6- 6- A0 6. ("(<( (<( There are  files on this d-}isk.&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-} Ak(>: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-)1-}6-& 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 i-}n 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 theS+(#file names on labels. Many printersS(#are supported as well as mo-}st labell%(sizes. This program requiresK(!that you first run MENUJRB.BAS tol(tailor this program for your++(#s-}pecific printer's characteristics.#(#( PUBLIC DOMAINM()( Pittsburgh Atari ComputerM( Enthu-}siasts (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 dimensio-}ns.?-@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 continu-}e.:"@-F(* "-(* "-(* "-@(* "-(* "--}(*% A@"@:P,'% @"@:Q, AA4"@:1,6- A@$-*(*4 A4-}"@:2,6- A@$-*(*4 A4"@:3,6- A@$-*(*4 A:"@:4,6- A@-}*-@0(*: A4"@: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 us-}ing. Allv-(% numbers should be entered in inches.N( (Decimals - no fractions)Q(v( what is the Width of the Labe-}l?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 l-}abel.)(/(  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 separa-}tion 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-&@H567@<@,.=:,? A067@<@,.17 A-}' A@-6.7 A`+ -A:,6+67,.>: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 id-}entify locked files.7 "-7(# D. Show number of free sectors.7 "-7(# D. Don't identify free sec-}tors.> -+( 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. Offs-}et the label spaces-@$(=:,4 "-4( J. No show certain extenders3 "-3( J. Sh-}ow 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 RET-}URN 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.DAT667<,.=:,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 t-}ext is to be printedf(% on the right hand side of the label?| G+(# (Up to eight characters long only)7-@A A4-}G6.  4 A'@  B:,!6.7<, $ I(>:A%,((((F(% What is the number of the next dis-}k?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   (>:,67B:.},%,.>:, A4   6-6- $67,.+67$,.+$67,. '67,.-67$,.-$67,.'$  6-.}" A5 3 --7+$,%<+$,%,47<@,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( pre. }ss Return to continue.t$ A@!"@:P,)"@:p,$$~/!@d* @f%% A7@/ A7"AU$. } A7 6-" A7 -K?7++&@e,$,%<++&@e,$,%,47+$,%<+$,%,E6-K6.}- 6-P:+&@e,'@,. "6.7+$,%%:A%,((+(S(#THIS OPTION DOES NOT WORK WITH THISiF:AB&,A@(# VERSION OF DOS. YO.}U 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-0A.}B&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)!@W.}A9P (>:,67B:,%,.>:, A9PAdAU)"AU$ @26-%@d.}!A'6-&A(!@6-&@2"!! @B)!@A@,$6AdAU)@.} @26-%@dJ!A'6-&A(T$^$@@$@hAB&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 18$( PRESS RETURN TO CONTINUE. A@8 ABcc67@,.Ph8hhh.}hhhѢhh8ѥ0lхӥ҅ԥ̅΅Х˅eօϥeׅcc67@,.PРھȄب ., .}ө ԥЅΥД))67Aa,.`ՠͪϑ͊$W6.@G6.E6.)6..}S26.2<6.3F6.-WEPSON MX/RX/FX$)D:LABELJRB.BAS)D:LABELJRB.BAKKBPTRDRINOSHOSHOWSECSOR,a+9 A A% D:MENUJRB.BASD:MENURB.BAS)D:LABELJRB.BAKKBPTRDRINOSHOSHOWSECSOR0G"::XFQAGDIRVKEZZQQQQQ4000QQQQ1Q1QQD1DRDCDNOKBPTRDRIPPICCONPTYPSTPICOSUS6"}IXTWUNPTRFILLNKBYT 6#} 6$} !"#$%&'()*+6%},-./012 6-6-@'6-@36-@?6-@K66&}-BW6-@c6-@o6-@ {6-@6-@6-@6-@ @P1 @@)@6'}'*@1 @0($2.@.@@K:<00;@ ,;@ ,;,;@ ,6(};,F&&;@,;AP,;@ ,P\ 6-6.D1:LABELPRN.DAT+6-@76-@@6.P:F6-\6.D1:LA6)}BELJRB.CFGZ. 6-.;,;,;,;,;,;,;,d;@H,n&&;@%,;@,;A%,x6-@6*}0 +AR@0SETCOLOR 2,0,04-@4( LABELJRB.BAS and MENUJRB.BAS)-@)( 6+} )-@)  )-@)  )-@)  6,} *-@*  *-@*  *-@*  6-} *-@ *  +-@+  ,-@,( 6.}  --@-    0-@0(   0-@6/}0    0-@0   "0-@0( 60} ,0-@0  PITTSBURGH ATARI 60-@0  COMPUTER ENTHUSIASTS@+-@+  61} P. A. C. E.J0-@ 0  P. O. Box 13435 T1-@!1  Pittsburgh, PA 15243^4-62}@"4  Bulletin Board (412) 963-1355h A40r(>:A%,| A),(,(!MENUJRB and LABELJRB were ma63}de to((( assist the disk librarian of the!!(Pittsburgh Atari Computer((( Enthusiasts in managing the user%%(64}group's disk library. It was))(!decided to place it in the Public))(!Domain so our members, other user**("group65} members and others could use''(this program to print labels to""(help organize their disks.&(&(Please send 66}any comments or))(!suggestions about the programs to%%(the Pittsburgh Atari Computer%%(Enthusiasts, P. O. Box 167}3435,((( Pittsburgh, PA 15243 or call our))(!Bulletin Board at (412) 963-1355.&(((( Press RETURN to continue68}.0 A(`: +AR@DF06.&<6-@F ApNF6-@69}<6.&| P. A. C. E. Presents |F ApXF6-@<6.&| MENUJRB.BAS and LABELJRB.BAS |F A6:}pbF6-@<6.&| Atari Disk Label Programs |F AplR6-@6-@H6.&6;}R Apv4-@@4( PUBLIC DOMAIN@-@@@(&6<}@-@@@(&| LABELJRB.BAS |@-@@ @(&| 6=} Main Menu |@-@@@(&| |@-@@@(&| 1. Ch6>}ange/set Printer |@-@@@(&| Configuration. |@-@@@(&| 6?} |@-@@@(&| 2. Run LABELJRB.BAS. labelmaker. |@-@@@(&| 6@} |@-@@@(&| 3. Print from the file (buffer) |@-@@@(&6A}| to the printer. |@-@@@(&| |@-@@@6B}(&| 4. Quit. |@-@@ @(&| | @-@@!6C}@(&| Select number |@-@@"@(& -@@ 6D}* A(`4"@I A`>"@P A @H"@Q A)PR"@R+\ 6E} Af 6-B:,p='@P:'@,/67%@,. =6-%@z-@'@/-@ &/6F}(7@<,7&%@,B2y@ $ A)##(LABELJRB.BAS reads the file''(directo6G}ry on a 5 1/4 Atari disk$$(and prints the file names on++(#pin-feed labels. The program sorts$$(file names and6H} automatically$$(adjusts the type size (pica,++(#compressed or superscript) to print++(#the maximum number of fi6I}le names on( the label.(**("The program works with most common++(#dot matrix printers and the printer$**("6J}configuration codes can be changed.))(!to suit your particular printer's8++(#capabilities. Standard label sizesB))(6K}!are supported as are non-standardL(sizes.V$($( Loading LABELJRB.BASW A"`%D:LABELJRB.BASb@-6L}@!@(& INSERT LABELJRB.BAS DISK IN DRIVE 1.c=-@"=(# PRESS RETURN WHEN READY j 6M}A(`t A~AR@ 6- A)D -,( SELECT PRINTER TYPE2-6N}5(;->(D-I -+( 1. Epson MX, RX or FX1-I( 2. Epson LQC -#( 3. Gemini 106O}X)-C( 4. Prowriter K-@*( 5. Okidata 1920-K( 6. Star SG-10 g -/(! 6P} 7. Star SG-10 set for IBM;-@g(' 8. User Specified ConfigurationZ-@(-@!(--6Q}@K( * = Current selectionW-@Z(:-@:(& Select number to select printerF-@6R}4( press Return to continue.:"@-F(* "-(* "-(*  "-(* "6S}-@(* "-(*( "-(*2 "-%(*< F A'P4"@:1, A06T}-$(**6-4 A@Z4"@:2, A0-$(**6-4 A@d4"@:3, A0-$(**6-6U}4 A@n4"@:4, A0-$(**6-4 A@x:"@:5, A0$-@*(*06-: A@46V}"@:6, A0-$(**6-4 A@4"@:7, A0-$(**6-4 A@2"@:8, A`"6W} AP(6-2 A#"AU A`# A"@ AP " A2 " A3 " A36X}0 " A3P " A3p " A3 " A4!-@-( ! $U 6Y}A)0( SET PRINTER CONFIGURATION3(U( 1. Initialize - Reset ( 2. Normal - Pica"b"( 6Z}3. Compressed =( 4. Superscriptb( 5. 1/6 inch line spacing,Q)(! 6. 1/12 inch line spacing6[}K( 7. Load ConfigurationN(Q(6O,($ Select number to modify config.O( Press RETURN to continue.@ 6\} A'J""@:1, A" APT""@:2, Ap" AP^""@:3, AP" APh""@:6]}4, A " APr""@:5, A!" AP|""@:6, A!p" AP""@:7, A#`" AP6^}"AU$W A)+( PRINTER SET-UP.(W($The proper set-up codes should resetq+(#the printer t6_}o turn off any specialR("fonts. You can also include codesn(for double strike here.q([(( With the current settings6`}, theseJ(codes are sent to the printerM([(Set-up:  B:,"(None A@&-B:,(@:7<,, # 6a}&(! A$P AP! A@ 6.-L-@"( +-@"<(No. > F A&PL6b}6.$4*"6-6-$ A  46- A # A:, 6-6.# A NP:A:,, )P:A:,,!6c}AUD( Enter a number under 255 please.N A`67<,.>:P:A:,,, &$0 "6-$: 6.D$N6d}X A).( PRINTER NORMAL (PICA)1(X("The proper set-up codes should setXi(( the printer to use the pica typ6e}eN(!font. You can also include codesf(for enhanced print.i(b[(( With the current settings, theseJ(codes are sent6f} to the printerM([(Set-up: l B:,"(None A v&-B:,(@:7<,, # &(& A$P AP6g}"#6-&$ 6.$V A),( PRINTER COMPRESSED/(V("The proper set-up codes should set[)(!th6h}e printer to use the compressed3(font.6([( With the current settings, theseR%(codes are sent to the printer((6(6i}Set-up: ?B:,"H(NoneR A&-B:,(@:7<,, # &(& A$P AP"#6-&$ 6.6j}$ A)o"( PRINTER SUPERSCRIPT%(L("The proper set-up codes should seto(the printer to use superscr6k}ipth (font.(5( With the current settings, theseW(codes are sent to the printerZ(h(Set-up:  B:,"(N6l}one A p &-B:,(@:7<,, # &(& A$P AP"#6-&$  6.*$4[ A)1( P6m}RINTER 1/6 INCH LINE SPACING4([("The proper set-up codes should set>k&(the printer for 1/6 inch line C(feeds (not f6n}orm length).F(k( With the current settings, theseHR%(codes are sent to the printer((6(Set-up: ?B:,"H(None6o}R A!@R&-B:,(@:7<,, # &(\& A$P AP"#6-&$f 6.p$z\ A)2( PRINT6p}ER 1/12 INCH LINE SPACING5(\("The proper set-up codes should seto'(the printer for 1/12 inch line D(feeds (not for6q}m length).G(J(o( With the current settings, theseR%(codes are sent to the printer((6(Set-up: ?B:,"H(None6r}R A"&-B:,(@:7<,, # &(& A$P AP"#6-&$ 6.$g A#P(>:A%6s},( (#(&()(K( Insert the disk to whichg(you want to save .Z('( Press return when ready.*(-(6t}0(: A(`?JP6.Z A"p A#  B:," A#!-B:,(@:7<,,!  B:,"6u} A#-B:,%(-1  $ S 6. A"p6.# A"p)6.3 A"p96.C A"pI6.S A"p6v}   $ Ap. .( UNABLE TO SAVE $ A(`. A#08 ` A$@(>:A%,( (D( Insert th6w}e disk from which`(you want to load .B U((( Press return when ready.+(.(1(; A(`@KU A6x}#L  6. A$V + -A:,6+67,.>:A:,,`   $j S A#6. A##6.- A#366y}.= A#C6.M A#S6.t   ~ $ .( UNABLE TO LOAD $ A(`. A$  p(,(!To change them,6z} enter the decimalM(number for the proper codes.p(You can send up to eight codes Y(.(# Press Return to retain the 6{}currentV(# setting. (Negative 1 for no codes)Y( $ A4@ *(*(This part of the program allows ++(#you to6|} modify or set the particular ''(printer control codes that will ''(be used by LABELJRB.BAS so that ))(!they match6}} those required by your **("printer. Seven of the most common %%(types of printer are directly ((( supported. If 6~}your printer uses ((( control codes that are different &&(from those of the preselected  ''(printers, you can chan6}ge any of( ))(!the codes to suit your particular2 %%(printer's characteristics by < ))(!following the instructions in 6}theF ((( program and reading your printerP (manual.Z 6.d % 6-B:,AdAU%)n "AU$x6} +"A&*"6.!(~+ A&` "A&*" A&` -"A&6.7<&,#(~- A&` "@6}F A'p "@E A'p "@C A'p  @26-%@d !A'6-&A(6} !! @H)!@WA&`  (>:,67B:,%,.>:, A&` AdAU) "AU$ 6} @26-%@d !A'6-&A( !@6-&@2 !! @H)!@AE " $, 6}AdAU)6  @26-%@d@ !A'6-&A(J $T (>:A%,^ 3-36}( MENUJRB.BASh 4-@4( Version 1.11r -@(| $ A)6} *(*(The program LABELJRB.BAS allows ''(you to redirect the information $$(that is normally sent to the ))(!pr6}inter and save this information ((( in a file called 'LABELPRN.DAT'. **("This section of the program allows **("you 6}to 'print' to the printer from %%(this file. This is crude but **("effective substitute for a printer ))(!buffer. 6} This feature permits you ((( to make a large number of labels &&(rapidly without having to wait ''(for the printe6}r. Once you have ))(!finished saving the label data to ))(!the file, using LABELJRB.BAS, use& &&(this utility to co6}py the label0 %%(data directly to the printer.: )()( Press RETURN to continue.D A(`N  A)(((6}(X ,,( On what drive is 7@,?b (  A'l +! @H)!@H%@+ A1Pv %%67@6}<@,.=:&@H, @ A20@#@@@@ - A2@-@@6}P: ! A2` @0! Ap f A)(>:A%,( (<( Unable to open F A(`Q@6}\@f Ap d A)(((:( Please check the Printer.D A(`O@Z@d Ap 6} @0 Ap 0 A)(((0( PRINTING ... %(%( This may take a while. $ W6.@G6}6.E6.)6.S26.2<6.3F6.-WEPSON MX/RX/FX $ S6.@x6.E!6.+6.S466}.2>6.3H6.-SEPSON LQ $ W6.@G6.B1E"6.,6.S56.2?6.3 I6.-WGEMINI 6}10-X $ U6.c1!6.N!6.Q+6.s146.A?6.T12I6.XUPROWRITER $* L 6.6.6.6}$6.J-6.696.%912B6.CLOKIDATA4 $> M 6.@6.56.(6.S16.2;6.3E6.6}-MSG-10H $R V 6.@6.I6.)6.S26.2<6.3 F6.-VSG-10 FOR IBM\ $f %%6-?:C:h6}iЎ `,,p $ D:MENUJRB.BAKQQ4000QQQQ1Q1QQD1DRDCDNOKBPTRDRIPPICCONPTYPSTPICOSUS40######## ;;@,#6. D:README.DOC/6-;6- @ @@@@@:}K:" A) A6-%@)-@)@(!&@*"@2'( @`:}((@>:,-*"AU' 6-%@* @`2 <-(@#F:@,!@!- AF!:}@T AZ @ d(ԠΠϠn)@x(>:A%,$ F:A,A6Au:}:F:A,"A6#@.@:6-@/4 D:MANUAL.1%6. D:MANUAL.2/ @/4 D:MANUAL:}.2%6. D:MANUAL.3/ @a(0(%END OF MANUAL - PRESS TO RE-RUND(ANY KEY TO EXITVAdAUa@:}F:B2y,"@%<F:Ad,AU*AdAU<% D:MENUJRB.BAS  AU*'(ERROR F:A:}, CHECK DISK*,@*@$6&-@@"(@& @6-$) +@:}@) A+-@@+( DISK LABELLER  ( ((S)creen or (P)rinter)@!!"@):}"AA&!!"@)"AAu0 A0?26-@7/@@E:2$X ( (W:}idth 1) 40 columns]( 2) 80 columnsb<)@6-&@H< @)!@Al46-$@@:}1@@P:4$B A0(ˠҠĠԠBAdAU)@@:} A  D:DISPLAY.MANB A0(ˠҠĠԠBAdAU)@@8'P:4$B A0(ˠҠĠԠBAdAU)@@ A :} D:DISPLAY.MANB A0(ˠҠĠԠBAdAU)@@ A 8