@L|}6CD l0C)HCC WhL/h `CmCDiD`  R@W1  Y0@R !L` D  C D     )16CS S)  C)D1 p p 0 C9DI pCDL~CiCDiD` D  C D     )16CS S)  C)D1 p p }0 C9DI pCDL~CiCDiD` DD˙` d J)L !}D L(( LL()  L| L( S LH 0p n  } CY?  q  L L  ` )} `A! d߰")-݆ "  $G@LLL&0") $G% }H0 3S8`G ȱG ȱG   Gȭ Gȭ GG}GHiH8(()) G$H% `(0 })8` d)L ݆ & LGȘ ݆LL d  ! LL d)N>Q  HH) }  hyhyB q L> Lm JJ  Ln*` dB%' }8  H H` 1 { LL   !L     Hh SY?  q  1L }  !? S   q 1 L   Ll  Lg E`L   !L)  q 1L}) `L0AM݊L݉ ML  N݆LLLNLMLHG!@}1F GȱGLLEEȩÑEȑEEȑE Ed E7EȩE  q} L !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF } G) *Gȩ GȽG GȌd q q G`  8   0G  `D}CEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?A[ 0 : L`L  `, 0`Y}`piH n0)բY? 08`0 }  0$L GGȽG L `8L`L}8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE`}E8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTE} H8EEȱEEȩEh J E8   . m  i`LI!)E1FR}1LJ舩9GIH`LJJ`HGHh l`} S gL   8 rii `дCDCG W  }C  Lq` X٨`DOS SYS IIIIIIIIIIIIIIIC`0 ߩ0}} } HE |||DDOS DOSDOS SYS }}}}CDOS SYSB*+DUP SYSBUAUTORUN SYSB VREADME DOCBvLABELJRBBASB LABELJRBCFGBw MENUJRB BASBLABELJR}BBAK 0`BDELV !B }`LVUQ   ]   TU J ]L!T  #      TU  } L ? .  t`GBJ V~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI   0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DELV䌚 !B y`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J V (` 9 V⪍ ઍ  -'}LLu DEHILV 9 .l 9 .l  `` s$B VBH(}I|DE V BLV nB,DE J V* \*` B V BLVDEHI BLVL)}1u H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@ Ҡ2e*}1i1232435ޥ<<8} 3E:}DISK OPERATING SYSTEM II VERSION 2.0SCOPYRIGHT 1980 ATARIA. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDGE J. D,}UPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRESSF. LOCK F-}ILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES9!&x#!7&p))'&X*./)L''-؆莟.}R'S  vW DEHHI 1A#! @ ~0ɛ8A0.) ȅ 1 1i/}il ! 1L NO SUCH ITEMSELECT ITEM OR FOR MENU! 0 .{z:*{}.|~ 1 0 00}JB 18L^%|DLl%DIRECTORY--SEARCH SPEC,LIST FILE? # 0 0 n&|D! 1L NOT A DISK FILE1}N !B 1L " 1 !BDED:}:1BJ|DE 1DEBH2}I 1 h0ߢ 0.  0?詛 1 ~0YЛ 1 "L<" "L 3} BL1TYPE "Y" TO DELETE...DELETE FILE SPECCOPY--FROM, TO?OPTION NOT ALLOWED COPYING---DN:4}# 0|D .L$A#B#C#JB|DE 1BHIDD#E 1D#0: B5} 1L B#C#C#B# B 1N#$0SYS1}:e#D# d# D# .d#ȽD# d# 𩛙d#X# 1,A#6}PdD#ELO- A.BJdD#E 1 1HH 0hh|DL^%1}:e# Lt% e#dD#EL%7} 1 0 . .0% 1L WILD CARDS NOT ALLOWED IN DESTINATION 0 A.|K@C}//3Hu ξL/L DRIVE TO WRITE DOS FILES TO?WRITING NEW DOS FILESTYPE "Y" TO WRITE DOS TO DRIVE 1.?}D1:DOS.SYSERROR - NOT VERSION 2 FORMAT. , &* բ( 1L `[) 0NΞ 0 L1M) 1@} L BAD LOAD FILELOAD FROM WHAT FILE?) 0 0#B 1L WHAT FILE TO LOCK?) 0 0$B 1L WHAT FILE TO UNLOCK?DUA}P DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO USE PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV. h  ,B}  `)  <0 2 2 0  ,   ,,ޢ* 1L ,K* 1 ~0 0C}FINSERT BOTH DISKS, TYPE RETURNERROR - DRIVES INCOMPATIBLE., 1 ~038  , 1L D}, &*  Lz+, 0 , 1 ~0 + Y,0!,0 ,L+ ,mm  v,"ǭE}0Ξ, 05,Lt+L +,Hh` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNF}INSERT DESTINATION DISK,TYPE RETURN`    `L,8,0( rG}L1(`ߢ) 1* 1 ~0Y`hhL S SL1) 8`NAME OF FILE TO MOVE?- 0 0|DLtH}% A., 1 <0 0 .@L# .BJ 1  DEHIB V L1 ,5 1 <0,L. I} JB|,A#Pd#DE 1 HI BDEHHII 1 B 1 , 1 <0,0Lf- B VJ},A#P, 1 <0 0L#L ߢ) 1* 1 ~0Yj383}mm ݭK}}`8}``|* ? ɛ,`|:(|/ 1L `DESTINATION CANT L}BE DOS.SYS0 0H{ $22Δ $28/L /) $2 Π $2 0 ξM}hAΞB,0 J 1 BޝDEHI,HDE 1HIHIDELSAVE-N}GIVE FILE,START,END(,INIT,RUN)O X0 1`BDEPHI V` X0H 1 L O}0 0 1L0`PLEASE TYPE 1 LETTER,0`hhL <0 1L0LA1 ,;ɛ7,"ɛ:ݦ1ݥP}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{Q}NAME TOO LONG B VL ` L1I H1EӝDL1|mDiE` V0`8d/8 i:"2!22 1R} L ERROR- 128ɛ+,' 20*.. өw2 1``2TOO MANY DIGITSINVALIDS} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4uT} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4uQ) !"`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.BAKKBPTRDRINOSHOSHOWSECSORa27642771-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}IXTWUNPTRFILLNKBYTB A@EP@@ w&0  } }@ @I@8@ @@@B@@@ @@@@}(0 D!"+#@$@%@&@'?(G)O*W+_},g-o./@ 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. Quit. |@-@@ @(&| | @-@@!/}@(&| Select number |@-@@"@(& -@@ 0}* A(`4"@I A`>"@P A @H"@Q A)PR"@R+\ 1} Af 6-B:,p='@P:'@,/67%@,. =6-%@z-@'@/-@ &/2}(7@<,7&%@,B2y@ $ A)##(LABELJRB.BAS reads the file''(directo3}ry on a 5 1/4 Atari disk$$(and prints the file names on++(#pin-feed labels. The program sorts$$(file names and4} automatically$$(adjusts the type size (pica,++(#compressed or superscript) to print++(#the maximum number of fi5}le names on( the label.(**("The program works with most common++(#dot matrix printers and the printer$**("6}configuration codes can be changed.))(!to suit your particular printer's8++(#capabilities. Standard label sizesB))(7}!are supported as are non-standardL(sizes.V$($( Loading LABELJRB.BASW A"`%D:LABELJRB.BASb@-8}@!@(& INSERT LABELJRB.BAS DISK IN DRIVE 1.c=-@"=(# PRESS RETURN WHEN READY j 9}A(`t A~AR@ 6- A)D -,( SELECT PRINTER TYPE2-:}5(;->(D-I -+( 1. Epson MX, RX or FX1-I( 2. Epson LQC -#( 3. Gemini 10;}X)-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-A}4 A@n4"@:4, A0-$(**6-4 A@x:"@:5, A0$-@*(*06-: A@4B}"@:6, A0-$(**6-4 A@4"@:7, A0-$(**6-4 A@2"@:8, A`"C} AP(6-2 A#"AU A`# A"@ AP " A2 " A3 " A3D}0 " A3P " A3p " A3 " A4!-@-( ! $U E}A)0( SET PRINTER CONFIGURATION3(U( 1. Initialize - Reset ( 2. Normal - Pica"b"( F}3. Compressed =( 4. Superscriptb( 5. 1/6 inch line spacing,Q)(! 6. 1/12 inch line spacingG}K( 7. Load ConfigurationN(Q(6O,($ Select number to modify config.O( Press RETURN to continue.@ H} A'J""@:1, A" APT""@:2, Ap" AP^""@:3, AP" APh""@:I}4, A " APr""@:5, A!" AP|""@:6, A!p" AP""@:7, A#`" APJ}"AU$W A)+( PRINTER SET-UP.(W($The proper set-up codes should resetq+(#the printer tK}o turn off any specialR("fonts. You can also include codesn(for double strike here.q([(( With the current settingsL}, theseJ(codes are sent to the printerM([(Set-up:  B:,"(None A@&-B:,(@:7<,, # M}&(! A$P AP! A@ 6.-L-@"( +-@"<(No. > F A&PLN}6.$4*"6-6-$ A  46- A # A:, 6-6.# A NP:A:,, )P:A:,,!O}AUD( Enter a number under 255 please.N A`67<,.>:P:A:,,, &$0 "6-$: 6.D$NP}X A).( PRINTER NORMAL (PICA)1(X("The proper set-up codes should setXi(( the printer to use the pica typQ}eN(!font. You can also include codesf(for enhanced print.i(b[(( With the current settings, theseJ(codes are sentR} to the printerM([(Set-up: l B:,"(None A v&-B:,(@:7<,, # &(& A$P APS}"#6-&$ 6.$V A),( PRINTER COMPRESSED/(V("The proper set-up codes should set[)(!thT}e printer to use the compressed3(font.6([( With the current settings, theseR%(codes are sent to the printer((6(U}Set-up: ?B:,"H(NoneR A&-B:,(@:7<,, # &(& A$P AP"#6-&$ 6.V}$ A)o"( PRINTER SUPERSCRIPT%(L("The proper set-up codes should seto(the printer to use superscrW}ipth (font.(5( With the current settings, theseW(codes are sent to the printerZ(h(Set-up:  B:,"(NX}one A p &-B:,(@:7<,, # &(& A$P AP"#6-&$  6.*$4[ A)1( PY}RINTER 1/6 INCH LINE SPACING4([("The proper set-up codes should set>k&(the printer for 1/6 inch line C(feeds (not fZ}orm length).F(k( With the current settings, theseHR%(codes are sent to the printer((6(Set-up: ?B:,"H(None[}R A!@R&-B:,(@:7<,, # &(\& A$P AP"#6-&$f 6.p$z\ A)2( PRINT\}ER 1/12 INCH LINE SPACING5(\("The proper set-up codes should seto'(the printer for 1/12 inch line D(feeds (not for]}m length).G(J(o( With the current settings, theseR%(codes are sent to the printer((6(Set-up: ?B:,"H(None^}R 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} A#-B:,%(-1  $ S 6. A"p6.# A"p)6.3 A"p96.C A"pI6.S A"pb}   $ Ap. .( UNABLE TO SAVE $ A(`. A#08 ` A$@(>:A%,( (D( Insert thc}e disk from which`(you want to load .B U((( Press return when ready.+(.(1(; A(`@KU Ad}#L  6. A$V + -A:,6+67,.>:A:,,`   $j S A#6. A##6.- A#36e}.= A#C6.M A#S6.t   ~ $ .( UNABLE TO LOAD $ A(`. A$  p(,(!To change them,f} enter the decimalM(number for the proper codes.p(You can send up to eight codes Y(.(# Press Return to retain the g}currentV(# setting. (Negative 1 for no codes)Y( $ A4@ *(*(This part of the program allows ++(#you toq}6?B'DOS SYSB*+DUP SYSBUAUTORUN SYSB VREADME DOCBvLABELJRBBASB LABELJRBCFGBw MENUJRB BASBLABELJRBBAKB"MENU Bw#MENUJRB BAK modify or set the particular ''(printer control codes that will ''(be used by LABELJRB.BAS so that ))(!they matchr} those required by your **("printer. Seven of the most common %%(types of printer are directly ((( supported. If s}your printer uses ((( control codes that are different &&(from those of the preselected  ''(printers, you can chant}ge any of( ))(!the codes to suit your particular2 %%(printer's characteristics by < ))(!following the instructions in u}theF ((( program and reading your printerP (manual.Z 6.d % 6-B:,AdAU%)n "AU$xv} +"A&*"6.!(~+ A&` "A&*" A&` -"A&6.7<&,#(~- A&` "@w}F A'p "@E A'p "@C A'p  @26-%@d !A'6-&A(x} !! @H)!@WA&`  (>:,67B:,%,.>:, A&` AdAU) "AU$ y} @26-%@d !A'6-&A( !@6-&@2 !! @H)!@AE " $, z}AdAU)6  @26-%@d@ !A'6-&A(J $T (>:A%,^ 3-3{}( MENUJRB.BASh 4-@4( Version 1.11r -@(| $ A)|} *(*(The program LABELJRB.BAS allows ''(you to redirect the information $$(that is normally sent to the ))(!pr}}inter 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 ))(!buffer. } This feature permits you ((( to make a large number of labels &&(rapidly without having to wait ''(for the printe}r. Once you have ))(!finished saving the label data to ))(!the file, using LABELJRB.BAS, use& &&(this utility to co}py 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.@G}6.E6.)6.S26.2<6.3F6.-WEPSON MX/RX/FX $ S6.@x6.E!6.+6.S46}.2>6.3H6.-SEPSON LQ $ W6.@G6.B1E"6.,6.S56.2?6.3 I6.-WGEMINI }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:h}iЎ `,,p $' D:MENUJRB.BAS' D:MENUJRB.BAKQ1QQD1DRDCDNOKBPTRDRIPPICCONPTYPSTPICOSUSB`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.BAKKBPTRDRINOSHOSHOWSECSORa+9 A A% D:MENUJRB.BASD:MENU709,4RUN"D:MENUL1NEED D1 THRU D4u G"::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-@&1}0    0-@0   "0-@0( &2} ,0-@0  PITTSBURGH ATARI 60-@0  COMPUTER ENTHUSIASTS@+-@+  &3} P. A. C. E.J0-@ 0  P. O. Box 13435 T1-@!1  Pittsburgh, PA 15243^4-&4}@"4  Bulletin Board (412) 963-1355h A40r(>:A%,| A),(,(!MENUJRB and LABELJRB were ma&5}de to((( assist the disk librarian of the!!(Pittsburgh Atari Computer((( Enthusiasts in managing the user%%(&6}group's disk library. It was))(!decided to place it in the Public))(!Domain so our members, other user**("group&7} members and others could use''(this program to print labels to""(help organize their disks.&(&(Please send &8}any comments or))(!suggestions about the programs to%%(the Pittsburgh Atari Computer%%(Enthusiasts, P. O. Box 1&9}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. |@-@@@(&| &A} |@-@@@(&| 2. Run LABELJRB.BAS. labelmaker. |@-@@@(&| &B} |@-@@@(&| 3. Print from the file (buffer) |@-@@@(&&C}| to the printer. |@-@@@(&| |@-@@@&D}(&| 4. Quit. |@-@@ @(&| | @-@@!&E}@(&| Select number |@-@@"@(& -@@ &F}* A(`4"@I A`>"@P A @H"@Q A)PR"@R+\ &G} Af 6-B:,p='@P:'@,/67%@,. =6-%@z-@'@/-@ &/&H}(7@<,7&%@,B2y@ $ A)##(LABELJRB.BAS reads the file''(directo&I}ry on a 5 1/4 Atari disk$$(and prints the file names on++(#pin-feed labels. The program sorts$$(file names and&J} automatically$$(adjusts the type size (pica,++(#compressed or superscript) to print++(#the maximum number of fi&K}le names on( the label.(**("The program works with most common++(#dot matrix printers and the printer$**("&L}configuration codes can be changed.))(!to suit your particular printer's8++(#capabilities. Standard label sizesB))(&M}!are supported as are non-standardL(sizes.V$($( Loading LABELJRB.BASW A"`%D:LABELJRB.BASb@-&N}@!@(& INSERT LABELJRB.BAS DISK IN DRIVE 1.c=-@"=(# PRESS RETURN WHEN READY j &O}A(`t A~AR@ 6- A)D -,( SELECT PRINTER TYPE2-&P}5(;->(D-I -+( 1. Epson MX, RX or FX1-I( 2. Epson LQC -#( 3. Gemini 10&Q}X)-C( 4. Prowriter K-@*( 5. Okidata 1920-K( 6. Star SG-10 g -/(! &R} 7. Star SG-10 set for IBM;-@g(' 8. User Specified ConfigurationZ-@(-@!(--&S}@K( * = Current selectionW-@Z(:-@:(& Select number to select printerF-@&T}4( press Return to continue.:"@-F(* "-(* "-(*  "-(* "&U}-@(* "-(*( "-(*2 "-%(*< F A'P4"@:1, A0&V}-$(**6-4 A@Z4"@:2, A0-$(**6-4 A@d4"@:3, A0-$(**6-&W}4 A@n4"@:4, A0-$(**6-4 A@x:"@:5, A0$-@*(*06-: A@4&X}"@:6, A0-$(**6-4 A@4"@:7, A0-$(**6-4 A@2"@:8, A`"&Y} AP(6-2 A#"AU A`# A"@ AP " A2 " A3 " A3&Z}0 " A3P " A3p " A3 " A4!-@-( ! $U &[}A)0( SET PRINTER CONFIGURATION3(U( 1. Initialize - Reset ( 2. Normal - Pica"b"( &\}3. Compressed =( 4. Superscriptb( 5. 1/6 inch line spacing,Q)(! 6. 1/12 inch line spacing&]}K( 7. Load ConfigurationN(Q(6O,($ Select number to modify config.O( Press RETURN to continue.@ &^} A'J""@:1, A" APT""@:2, Ap" AP^""@:3, AP" APh""@:&_}4, A " APr""@:5, A!" AP|""@:6, A!p" AP""@:7, A#`" AP&`}"AU$W A)+( PRINTER SET-UP.(W($The proper set-up codes should resetq+(#the printer t&a}o turn off any specialR("fonts. You can also include codesn(for double strike here.q([(( With the current settings&b}, theseJ(codes are sent to the printerM([(Set-up:  B:,"(None A@&-B:,(@:7<,, # &c}&(! A$P AP! A@ 6.-L-@"( +-@"<(No. > F A&PL&d}6.$4*"6-6-$ A  46- A # A:, 6-6.# A NP:A:,, )P:A:,,!&e}AUD( Enter a number under 255 please.N A`67<,.>:P:A:,,, &$0 "6-$: 6.D$N&f}X A).( PRINTER NORMAL (PICA)1(X("The proper set-up codes should setXi(( the printer to use the pica typ&g}eN(!font. You can also include codesf(for enhanced print.i(b[(( With the current settings, theseJ(codes are sent&h} to the printerM([(Set-up: l B:,"(None A v&-B:,(@:7<,, # &(& A$P AP&i}"#6-&$ 6.$V A),( PRINTER COMPRESSED/(V("The proper set-up codes should set[)(!th&j}e printer to use the compressed3(font.6([( With the current settings, theseR%(codes are sent to the printer((6(&k}Set-up: ?B:,"H(NoneR A&-B:,(@:7<,, # &(& A$P AP"#6-&$ 6.&l}$ A)o"( PRINTER SUPERSCRIPT%(L("The proper set-up codes should seto(the printer to use superscr&m}ipth (font.(5( With the current settings, theseW(codes are sent to the printerZ(h(Set-up:  B:,"(N&n}one A p &-B:,(@:7<,, # &(& A$P AP"#6-&$  6.*$4[ A)1( P&o}RINTER 1/6 INCH LINE SPACING4([("The proper set-up codes should set>k&(the printer for 1/6 inch line C(feeds (not f&p}orm length).F(k( With the current settings, theseHR%(codes are sent to the printer((6(Set-up: ?B:,"H(None&q}R A!@R&-B:,(@:7<,, # &(\& A$P AP"#6-&$f 6.p$z\ A)2( PRINT&r}ER 1/12 INCH LINE SPACING5(\("The proper set-up codes should seto'(the printer for 1/12 inch line D(feeds (not for&s}m length).G(J(o( With the current settings, theseR%(codes are sent to the printer((6(Set-up: ?B:,"H(None&t}R A"&-B:,(@:7<,, # &(& A$P AP"#6-&$ 6.$g A#P(>:A%&u},( (#(&()(K( Insert the disk to whichg(you want to save .Z('( Press return when ready.*(-(&v}0(: A(`?JP6.Z A"p A#  B:," A#!-B:,(@:7<,,!  B:,"&w} A#-B:,%(-1  $ S 6. A"p6.# A"p)6.3 A"p96.C A"pI6.S A"p&x}   $ Ap. .( UNABLE TO SAVE $ A(`. A#08 ` A$@(>:A%,( (D( Insert th&y}e disk from which`(you want to load .B U((( Press return when ready.+(.(1(; A(`@KU A&z}#L  6. A$V + -A:,6+67,.>:A:,,`   $j S A#6. A##6.- A#36&{}.= A#C6.M A#S6.t   ~ $ .( UNABLE TO LOAD $ A(`. A$  p(,(!To change them,&|} enter the decimalM(number for the proper codes.p(You can send up to eight codes Y(.(# Press Return to retain the &}}currentV(# setting. (Negative 1 for no codes)Y( $ A4@ *(*(This part of the program allows ++(#you to&~} modify or set the particular ''(printer control codes that will ''(be used by LABELJRB.BAS so that ))(!they match&} those required by your **("printer. Seven of the most common %%(types of printer are directly ((( supported. If &}your printer uses ((( control codes that are different &&(from those of the preselected  ''(printers, you can chan&}ge any of( ))(!the codes to suit your particular2 %%(printer's characteristics by < ))(!following the instructions in &}theF ((( program and reading your printerP (manual.Z 6.d % 6-B:,AdAU%)n "AU$x&} +"A&*"6.!(~+ A&` "A&*" A&` -"A&6.7<&,#(~- A&` "@&}F A'p "@E A'p "@C A'p  @26-%@d !A'6-&A(&} !! @H)!@WA&`  (>:,67B:,%,.>:, A&` AdAU) "AU$ &} @26-%@d !A'6-&A( !@6-&@2 !! @H)!@AE " $, &}AdAU)6  @26-%@d@ !A'6-&A(J $T (>:A%,^ 3-3&}( MENUJRB.BASh 4-@4( Version 1.11r -@(| $ A)&} *(*(The program LABELJRB.BAS allows ''(you to redirect the information $$(that is normally sent to the ))(!pr&}inter 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 ))(!buffer. &} This feature permits you ((( to make a large number of labels &&(rapidly without having to wait ''(for the printe&}r. Once you have ))(!finished saving the label data to ))(!the file, using LABELJRB.BAS, use& &&(this utility to co&}py 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.@G&}6.E6.)6.S26.2<6.3F6.-WEPSON MX/RX/FX $ S6.@x6.E!6.+6.S46&}.2>6.3H6.-SEPSON LQ $ W6.@G6.B1E"6.,6.S56.2?6.3 I6.-WGEMINI &}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:h&}iЎ `,,p $ D:MENUJRB.BAKQQ4000QQQQ1Q1QQD1DRDCDNOKBPTRDRIPPICCONPTYPSTPICOSUS$0