ML }  X c0C)HCCH Mhhݩh `eCDiCD`  RyHP   * 1H0芢@) Y0.Ș`i#(PMR\ \b Pgi 0  % @ / ՠ`d   0DDԝLH}N@  )?HI Y0`HIJH) * J j * hJJJ )HJ h i     } YS S0 i`ϣ߳ϣ߳H J3xj2h} 1 |9 ӭ45(420 *(0241өX.`  R *i)Lvw  ~*P}E 5 LN(G E  r s k rsrL ( E LO(0d( L iE0O +)$IC  H S8 }q p h   j 8no CDLQ CFl M  LO Ri)Llk2'")*F }$F$F$F$F$ 5 )ШF/Șl]kpqС,LQ/A! Ti)Zlk@ ܬ/i)(")")k }$F$F$F 5$/L /lF@jj(LNkle$$%8(k()` R 8 ELO Ri)^>jf | NrC s } ) vw5g   enfo Glvw LQ@iLm>j FL ~Jjjjii p qEh }jlrs`LQ:$ȱ$@+[_#{ 8  Խut! ai 8   E I   ] C } H h    ˰ 8  N   Lm E  ,  [ `LQ ,/ 8 ~/  Ơ? ѩ}/  [ /Lj0?MoLn FjMqLp NklLOLQnLoMlNLO R"(+}ըHH`Q R!!  % !   / .   FȑF! /GF \H"+0+* }! F tLQnm: J~nTF1F  *n+)5! n (, n)1JJJn(n*o} I ,0  ci a oF? @ , 8,0 ʩ0H Eh   i}  D ]DmmFLQvtu`*&!*@h ] 0 ^0` c 0l$$%}()()%*&J%H,@hH hH@,h $% 8i8$(%)0hhH ]h`() c 0H c 0 h}`hhh&JJ ](ll  LQ0  /qnoHH 9 9 H H  I9  9 } Nd EH  Q8 o n  FnoL HII/ Ih8`h`Lnon`no`u F }E VEhLO/luF l0BF/lɜɛ׽hE N  b VFL FREE SECTORS C} H) *Fh ):FȽ F FC IH' 0 d  i:Fȩ/F.l`CD/08HDIC}IHȰ/F`ȱ$>.+.i ȱ$:刄H !A \ Hȱ$*?ȝ 2. ? [_{ ,0}-:) 0$:>WI  IТ,LQH  0hLd ~ t u`C ?( 0(C.` E } R =! .ti S0N EE D XC )0')AY  )ע ? 0E088FG \o}n  (HhLcL3 iJ i Lqp 0=rspnqopqlk`jZj0  j FL`H}FhȑFȽlFi0 h FFLFpvqwgneofLF pq7  G0i 0 FJJh1FqȱFpȱFk`B!}08`hEE D 8. =D}tui( TʩL`b!)    cȌaȌd b`aab}H8 hdaHcd8 cH hHH  \h hc` =Hh I8ih( t  ( t(!` L\}CJfCJfCJfCDfC` a  HII  INdh  `h  `n)8jHniPoijIjFIjFIjh` a } I 38  8H0 I  ' H LQ8j Y  8j NdY  &I &I &IHeH.p!}Iiq  `!.莿 2Jjj }.m Ȉ!m FG` ɩLQ z "} e Hi04 \ Ȍ  8 i h !`I0 `C Y8.`DOS SYS#} I  ` ~ݩ.C/`ba.m۩mѤC9 `C L] H  ,- '0 l $}, BLVDE`D1:AUTORUN.SYS8hhJ ȱHȱIȱBȱDȱEeeHHLV)  %}1*  ,,p-  0 I &  '0   Lw)l, 0  I&LD1:MEM.SAV&}E:D1:DUP.SYSE:D1:DUP.SYSE:D1:DUP.}J)1CD8:DOS.SYS n  * \*`آ R'S )ɀ@  U))% BError lo(}ading MEM.SAV or memory!  0* b*c*d*e* R Hd*JSDd*J-=e* 0c*ʈд =}MYDOS 4)}.50 -- Copyright 1988,˛Disks 1D- 8S-D: = D1: ~= =1-8.Dir of D1:-D8: *. Dir of D:A. *}Disk Directory K. Save MemoryB. Run Cartridge L. Load MemoryC. Copy File(s) M. Run at AddressD. Delete File(s) N. L+}oad MEM.SAVE. Rename File(s) O. Change Config.F. Lock File(s) P. Set DensityG. Unlock File(s) Q. Make DirectoryH. Wr,}ite DOS Files R. Pick DirectoryI. Initialize Disk S. Set RAMdisk #J. Duplicate Disk V. Set Verify Flag  ?莼-}( 0  =Select Item ( for menu):@  =ɛL)1L,*L,:W@ ,,L=No such item!.}L*, -L*, BNeed new file name! BNo drive or director0}ies allowed in new name!Lock Unlock Delete Lock which file?â-#Unlock which file?ɢ-$((H @ AQ/wDel1}ete what file?Ѣ-!((H @ ANJ =Answer 'Y' or 'N'h `B L?;(( ~=( ~= =? =Y ?Lj.H @ AhR ?2}R)L*,LM/L-Lz-File to rename, new name? @ A(9', ȱ:>0{ ПFull directory name?Z"L.Dire3}ctory to be used as 'D:'? @ A(5)L.(I: ȱޝL*, BInvalid directory!L?( 4}(0Li-File source, destination? '( @C۩2ڭ82ܭC B9'0 @(ߍeލd(DЍ( ? 9'5} A rBȱޙ':>Ȍ(C0J* .B :'ȱ/.* #,ɛȝ:' ߰ A L?,(0L*, '6}ut(:'3?&' .'Ƚ:'?&'  .ى'Q?''(#( ~= =-->' ~=7}Q =YR_o (J(  0?B݌''BK)`''utz0( >(L0L*,L?nDisk to FORMAT:8} YA B(UTލ1 =(Press for Enhanced Dns)Type to Format Drive 8: =AIYZNj[R VL9}?L*,D8:DUP.SYSDrive to write DOS files to? YAH1:*K)2J) Z wB hpJ) 2<2U:}TC٩1ة۩کL;Source, Destination (Sectors)? YA)((9'( SA)((((( @(0% =Inser;}t both disks, type = A( A((/( B(( BDrives not compatible!J(j(9'Hi''<}h(ɛy BInvalid options! @-&& @)׍&&(&&&۩ک&&&&8* <4&&&& <4=}8*8(ܭ(ݥ2C, BNot enough memory! ک&&`(Mh  & =L?&i &>}&&&mm   =  &((&թԥԍ(Ս(((( ( ((C2((?}ՠԍ((,(0"( (( =m(m( & &("L*,  ( AL4,(, =Insert DES@}TINATION disk, press =Nͼ J) b( 0K) ?((ԭ(խ( ( (((L4Drive, new density:A} YA9'ɛ BDrive unchanged.(ު90٨Ȍ(SD  ABL)xԌҭHӭ@ @ ʎӆ@B}ӭ@@ :  $ӹ @hөԥX` Aˠ =RAM disk present? =NL#8 =xlC}on or E type RAMdisk? =Aό  L   M A, A6: ' =No extra memory available!L#8L7 & & D}& =Use default config for 0)ȩ ~= =K? =NL7 =Size(K)? ? @FjFjFjFj: =Page seqE}uence? ? @o* =RAM disk drive no? = 09) `8 -8**H***) 9 Ȋ)h9 @@ʊ F}H'h(#''/'(ɛ ? @(@: 3 ʽ' L7 =Duplicated sequence number!L7 =Wrong numbG}er of entries!L7K큅쀄 =Verify WRITEs? ; =NumberH} of File Buffers? ? @  6 Lw),R( ';L*,Drive number or : =ɛLC99L60Ȍ( =Remove I}drive? =Y =Is drive configurable? =YЂ =High capacity drive? =Yy =Is drive double sided? =Y ; =TracksJ}/side? ? @#0M P( ; =Step rate? =4/ ; ';L*, =Drive size (in sectors)? ? @H(K}h *;L*,RAM disk drive no? 8L*,Verify WRITEs? ;L*, =WNPy`(`(  LABSAVE:filename,start,end(,init(L},run)) @TUH @Cp` 2< @؆8օڊ BInvalid START-END range!۩ @  @M} hԄՠAμȌZ wB04*  0$ڍXۍY֍T׍U,0LBLB #CL?ֆ׌`Load MEM.SAV from whaN}t file? 0#L*,L?Load from what file?) @TU&̩Z wB &0&-&а&𨭼INIZ'O}RV0II BNO CARTRIDGE!Ԇխ  )L?Run from what address? ?ɛ @P} BAddress must be 1-4 hex digits! BHILV n=`hh =HH` =0{a Hɛ n= n=h` nQ}=L*, = = pHH =hh`K: p `(((( i ɀ((L?(`(B'(0!HH''^R}>I^>(`^>DH(`(HI`(o5 ~= =( B( >@A (J wB0x((HHIIDDES}E B ?(CɈK(٢A ~= =( BL>(B^>((ڤ ܝHݝI VL_>L?(" B !B J) T} B(L& R XY( ?&:0H&((& ( .( & ( .(ʩ(U}`ލD&ߍEBIʎH( V0`ԩ ؠ@ȱ@ȱ)@ BError -- 128&`$8f 3AԄձG/ V}$<68i/(Ԧ`H&եԦ&&eԅheԅԊe(iL*@&&&&ԅL*@B ? 3A?*(ɛ:W}./2SX(0ȱ/.ɛ(ލ9'ި0#:Ȱ :ފ :ȱ: : CAD CAޥX}`(eޅީe߅`(` @L\A @TUȪ: BFile name not allowed!: )  i( =0+L Y}TUD BNot a disk file!(0` =Insert SOURCE disk, press =,(pӮ(A(O  1B AB1BZ} ` % 1(L/ b(de BJKO L?O` B((*(([}(`ȱޙ((:>Ȍ(`D:`OS.SYS,DOS.SYShh =L*,  VLJ C C,pLiLF#Խ٩Յ׆ \} LB`((:>Ȍ(`D:`OS.SYS,DOS.SYShh =L*,  VLJ C C,pLiLF#Խ٩Յ׆  DOCUMENTATION FOR LABELJRB.BAS AND MENUJRB.BAS Turn on your Atari Computer with the Basic cartridge ins^}talled or if you are using an XL or XE (and you don't hold down the OPTION key) Basic will be available. You can also _}load in Turbo Basic if you want the program to run a bit faster. The disk contains Atari DOS 2.0s. If the disks you `}will be reading are double density or enhanced density you will have "boot" the computer with a disk containing a diffea}rent DOS that supports these densities. The first progran to run is MENUJRB.BAS. This will run automatically if youb} boot with this disk. (If you have booted the computer with another disk then at the "Ready" prompt type RUN "D:MENUc}JRB.BAS" and press Return.) Press Return a couple of times to get through some inroductory information until you get tod} the menu that provides three choices. Press "1", the first option, to configure the program to your particular printe}er. This will bring up another menu where you can select the printer type that matches your printer. Most printers suf}pport the Epson MX/RX/FX configuration. If your printer is not one of those listed try running the program using theg} Epson MX/FX/RX option first. If this does not provide satisfactory results you may have to run this program again andh} select Option 8 which will allow you to input the printer control codes for your printer. You will need your printeri} manual by your side if you need to enter in your own codes. After you have selected the type of printer from this lij}st, press Return and by following the instructions on the screen you will save a new file to your disk that contains thk}e printer data needed by LABELJRB.BAS, the label program. Once this is done you will return to a previous menu wherel} you will select the second option which is to run the program LABELJRB.BAS. The third option on this menu, printing m} from a file to the printer, is not used at this time. One of the problems with printing labels is waiting for the comn}puter to be available after it has finished printing a label. The program, LABELJRB.BAS, attempts to solve this by lo}etting you print to a file (if you have two drives or a ram disk). If you elect to do this you can "print" your labels p}quickly to a file and then return to this menu and have the program send the information in the file to the printer tq}o actually print the labels while you do other things. At this point you should press "2" and this will load the labelr} program, LABELJRB.BAS. After pressing Return to get through some information screens and the loading of the printers} configuration data, you will have the option of selecting the label size that you are using. You can also follow thet} instructions to select a label size that is different from thoise listed but you will have to input the label's dimenu}sions. After you have selected the label size you will ahve another menu with many letter options that identify the stv}atus of the label or the program. By pressing Return the program will read the filenames off the disk in drive 1. Iw}f you Press the letter "P" a label will be printed and if you press "R" you will be asked to identify ow many copies ofx} this label you want to have printed. Pressing any of the letters "A" through "M" will change the various options avay}ilable. They are all relatively self explainatory. Try pressing each of the letters to see what options are availablez}. You might want to start using the program with plain paper in your printer to see the effect the various options h{}ave on the labels to be printer before you try the program to actually print labels. This way you will waste fewer labe|}ls and be able to experiment.he program to actually print labels. This way you will waste fewer labe2`IIQQQQQQ4000QQQQ1Q1QQZ2D1DRFREEFILETMPDTXTCXTDNOSUBRXSPACEKBPTRDRINOSHOSHOWSECSOR ~}FREPPICCONPTYPLTYPSTPICOSUSIXTWUNREFMAASEXTXXTTTTPTRFILNEXTFLANONATARTNOSHOWSOMARLOCKECOFF }ONLRECLTOOMANGAPROGAMAXROLENGTMAWIDTWIDHEAHEADFLAOFFSETOFFSESDNROEXNOROEMPTMIDDLINDENSEPARATSEPARATE }LJDHEAHEAPTMULOFFSETLNKBYTDXXOVEREXTMATCEXTNKEEDREASHOWSOMCHR4@@@@ }B@@@ @ @ @ @ (<Pdl }PPPP;@@ @!@"@#@ }$%@&'()*+ ,-@.@e/Q0nQ1 2 3E }456789:;@ <=>?@A@HBC }DEFGH?3333IJ@KL@PMNOPQR }STUVWXYZ[\]^_`ab }cdefghijklmnopq@ }r@s &&PROGRAM DEVELOPED BY JOHN BABSON PUBLIC DOMAIN6-6-@'6-@36-@?6 }-@K6-BW6-@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-%, }   A063 --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:,%,..*6 }7B:,%,.7%<%,*B:, %& 67B:,%,. * A`& "&67B:,%,.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 wa }nt 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( Typ }e '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 pres }s 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 n }amesK(p( on the disk in drive .u(Lp(+( Disk is probably using a 0(T( non-standard for }mat. 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()( Pleas }e 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.2]($T(,(!This } program reads the file namesT(#from 5 1/4 in. disks and prints theS+(#file names on labels. Many printersS(#are supp }orted as well as most labell%(sizes. This program requiresK(!that you first run MENUJRB.BAS tol(tailor this progra }m for your++(#specific printer's characteristics.#(#( PUBLIC DOMAINM()( Pittsburgh Atari Comp }uterM( 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( pres }s Return to continue.:"@-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( t }he label you are using. Allv-(% numbers should be entered in inches.N( (Decimals - no fractions)Q(v( what is th }e Width of the Label?2((  A9@'B:,!26.7<, 6-B:,6-A:, !6- A@ } 6- '' AX( (/(! What is the length of the label X($ measured from the top of the label )&( to th }e 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 d }rive.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 fil }e names and sectors.H8 "-8($ A. Print file names only. R9 "-9(% B. Sort file names alphab }etically\9 "-9(% B. Sort files by extender f9 "-9(% B. Sort files by sectors. p }9 "-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 Perfe }ct (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 extenders3 " }-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 A }1p@ 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 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 num }ber 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 }  (>:,67B:,%,.>:, A4   6-6- $67,.+67$,.+$67,. '67,.-67$,.-$67 },.'$  6-" A5 3 --7+$,%<+$,%,47<@,36-   $- A*( N }O 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,$,%,47+$,% }<+$,%,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 (>:,67B:,%,.>:, A9PAdAU)"AU$ @2 }6-%@d!A'6-&A(!@6-&@2"!! @B)!@A@,$6Ad }AU)@ @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 18$( PRESS RETURN TO CONTINUE. A@8 ABcc67@ },.Ph8hhhhhhѢhh8ѥ0lхӥ҅ԥ̅΅Х˅eօϥeׅcc67@,.PРھȄب } ., ө ԥЅΥД))67Aa,.`ՠͪϑ͊$W6.@G6. }E6.)6.S26.2<6.3F6.-WEPSON MX/RX/FX$D:LABELJRB.BAS$W6.@G6. 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`IIQQQQQQ4000QQQQ1Q1QQZ2D1DRFREEFILETMPDTXTCXTDNOSUBRXSPACEKBPTRDRINOSHOSHOWSECSOR}FREPPICCONPTYPLTYPSTPICOSUSIXTWUNREFMAASEXTXXTTTTPTRFILNEXTFLANONATARTNOSHOWSOMARLOCKECOFF}ONLRECLTOOMANGAPROGAMAXROLENGTMAWIDTWIDHEAHEADFLAOFFSETOFFSESDNROEXNOROEMPTMIDDLINDENSEPARATSEPARATE}LJDHEAHEAPTMULOFFSETLNKBYTDXXOVEREXTMATCEXTNKEEDREASHOWSOMCHR4@@@@}B@@@ @ @ @ @ (<Pdl}PPPP;@@ @!@"@#@}$%@&'()*+ ,-@.@e/Q0nQ1 2 3E }456789:;@ <=>?@A@HBC}DEFGH?3333IJ@KL@PMNOPQR}STUVWXYZ[\]^_`ab}cdefghijklmnopq@}r@s &&PROGRAM DEVELOPED BY JOHN BABSON PUBLIC DOMAIN6-6-@'6-@36-@?6 }-@K6-BW6-@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-%,)}   A063 --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:,%,..*6-}7B:,%,.7%<%,*B:, %& 67B:,%,. * A`& "&67B:,%,.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 wa0}nt on the K( top of the label?N(q( Press Return for no changeD#( from last label. (#(N$ A46.1}4$ A X 6.b1B:,!$&@16.7@<$&@,l$v 0P: A`# AP2}#6-$ " $8 A)@.8 A,@%6-3}) ,$k AP(>:A%,( (C( The file  already exists.k(#Should I delete it or append to it?Q( Typ4}e 'D' to Delete.5( Type 'A' to Append.Q( Type Return to cancel.N A@"@:D,4@:65}-> K(>:A%,N$D"@:A,*@ 06-4 A(>:A%,D$5"AU6-6.P:+(>:6}A%,5 A0 Ak(>:A%,((@(% There is a problem with the printer.g(" Please check it and pres7}s Return.k K)(! Press 'P' for previous menu.3 A@>"@:P,A'K A0 A0 1 6-6-6-'8}6-&%6-)16-& B  6-  "6-&*  6-4'6-P:$,$!P:$,)"'6-%>9}  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}+$,&+$+%,,,6-P:'+%,,2 86-6-P:+&++&,$,,',886-P:+++&'&'&'&+%,$,$,'@,&?P,?}$  6-.''6-++&'&'&'&'&+%,$,$,8$Bu(>:A%,(((F(" Unable to read the file n@}amesK(p( on the disk in drive .u(Lp(+( Disk is probably using a 0(T( non-standard forA}mat. Y(^(c(f(p AAPV$` A j/ AP 67<,.=:,+/ t$~u(>:A%B},((($()(M( Unable to read the disk R(k( in drive .p(u(C()( PleasC}e check the drive 3 AAP6'9'C A@w(>:A%,((($()(J( Unable to read the diskO(rD}( directory in drive .w(K( (1( Please insert another disk; AAP>'A'K A@ AE} A ](>:A%,-6( LABELJRB.BAS<-Z( Version 1.2]($T(,(!ThisF} program reads the file namesT(#from 5 1/4 in. disks and prints theS+(#file names on labels. Many printersS(#are suppG}orted as well as most labell%(sizes. This program requiresK(!that you first run MENUJRB.BAS tol(tailor this prograH}m for your++(#specific printer's characteristics.#(#( PUBLIC DOMAINM()( Pittsburgh Atari CompI}uterM( Enthusiasts (P. A. C. E.)b( P. O. Box 13435;( Pittsburgh, PA 15243b(" Bulletin Board (J}412) 963-1355 ( ( AAP$> A-5( SELECT LABEL SIZE;->((W -)( K}WIDTH LENGTH/-2(8-W( 1. 3 1/2 by 15/162O -)( 2. 3 1/2 by 1 7/16/-O( 3. L}4 by 1 7/16<P-@/( 4. 2 3/4 by 1 1/2 5-P( 5. 5 by 3Fa -3(% 6. UserM} Specified dimensions.?-@a( P& "-@&(Width= =:,Z- "-@$N}@-(Length= =:,dY-@1( 7"C-@Y( Separation= =:,nK-@O}(-@<( * = Current selectionH-@K(xm-@9(% Select number to select label.E-P}@m(# Press 'P' for previous menu.--@ -( press 'Q' to Quit.F-@!4( presQ}s Return to continue.:"@-F(* "-(* "-(* "-@(* "-R}(* "-(*% A@"@:P,'% @"@:Q, AA4"@:1,6- A@$-*(S}*4 A4"@:2,6- A@$-*(*4 A4"@:3,6- A@$-*(*4 A:"T}@:4,6- A@*-@0(*: A4"@:5,6- A@$-*(*4 A>"@:6,6- U}A@$-*(*4 A> A"AU A$" A,# "6-@P6-#6-'6' "V}6-@P6-%''6-'@! "6-6-%'!6-'J) "6-@u!6-@P)6-'T "6-6-W}6-'^$h --(  r@ -@@(& |@ -@X}@(& $h(>:A%,(((( (E( Specify the Characteristics of h( tY}he label you are using. Allv-(% numbers should be entered in inches.N( (Decimals - no fractions)Q(v( what is thZ}e Width of the Label?2((  A9@'B:,!26.7<, 6-B:,6-A:, !6- A@[} 6- '' AX( (/(! What is the length of the label X($ measured from the top of the label )&( to th\}e 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 da}rive.l( ( ( A@v? A 6-&@H567@<@,.=:,? A067@<@,.17 b}A' A@-6.7 A`+ -A:,6+67,.>:A:,,   $S A@6. Ac}@#6.- A@36.= A@C6.M A@S6.   $8( UNABLE TO LOAD $ AAP. AC 8d} Ap 6. " $( "6-6-6-% A P($2 " A P6-6-%6-/ A P2$8 e}" A P6-@%6-+6-5 A P8$6-?:C:,:A%,"! Af}*M -(( LABELJRB.BAS.-M( LABEL STATUS4 - (>8 "-8($ A. Print filg}e names and sectors.H8 "-8($ A. Print file names only. R9 "-9(% B. Sort file names alphabq}0B#DOS SYSB6'DUP SYSB ]README DOCB}LABELJRBBASBLABELJRBCFGBLABELJRBBAKBwMENUJRB BASB)MENU Bw*MENUJRB BAKetically\9 "-9(% B. Sort files by extender f9 "-9(% B. Sort files by sectors. pr}9 "-9(% B. Don't sort the filenames. z7 "-7(# C. Show which files are locked.7 "-s}7(# C. Don't identify locked files.7 "-7(# D. Show number of free sectors.7 "-7(# D. Don't}t identify free sectors.> -+( E. Read from drive D1:*.*7-@$>(=:,9 "-9(% F. Letter Perfeu}ct (LJK) format 9 "-9(% F. Atari Dos 2 format. O -( G. Print to (4P:4-@v}O(printer % 0P:-@%(file: 5-@5(! H. Advance label w/o printing/ -w}/(! I. Offset the label spaces-@$(=:,4 "-4( J. No show certain extenders3 "x}-3( J. Show all files  B-@,( K. Print text/Date: >-@%@B( Y-@5(y}! L. Print disk number: ;"M-@&@Y(=:, 2-@2( M. Change title on label: $ )z}-@)(>:@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 A}1p@ 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 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 num}ber 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 }  (>:,67B:,%,.>:, A4   6-6- $67,.+67$,.+$67,. '67,.-67$,.-$67},.'$  6-" A5 3 --7+$,%<+$,%,47<@,36-   $- A*( N}O 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,$,%,47+$,%}<+$,%,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 (>:,67B:,%,.>:, A9PAdAU)"AU$ @2}6-%@d!A'6-&A(!@6-&@2"!! @B)!@A@,$6Ad}AU)@ @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 18$( PRESS RETURN TO CONTINUE. A@8 ABcc67@},.Ph8hhhhhhѢhh8ѥ0lхӥ҅ԥ̅΅Х˅eօϥeׅcc67@,.PРھȄب} ., ө ԥЅΥД))67Aa,.`ՠͪϑ͊$W6.@G6.}E6.)6.S26.2<6.3F6.-WEPSON MX/RX/FX$D:LABELJRB.BAK$W6.@G6.a"::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 |@-@@"@(& -@@ }* A(`4"@I A`>"@P A @H"@Q A)PR"@R+\ } Af 6-B:,p='@P:'@,/67%@,. =6-%@z-@'@/-@ &/}(7@<,7&%@,B2y@ $ A)##(LABELJRB.BAS reads the file''(directo}ry on a 5 1/4 Atari disk$$(and prints the file names on++(#pin-feed labels. The program sorts$$(file names and} automatically$$(adjusts the type size (pica,++(#compressed or superscript) to print++(#the maximum number of fi}le names on( the label.(**("The program works with most common++(#dot matrix printers and the printer$**("}configuration codes can be changed.))(!to suit your particular printer's8++(#capabilities. Standard label sizesB))(}!are supported as are non-standardL(sizes.V$($( Loading LABELJRB.BASW A"`%D:LABELJRB.BASb@-}@!@(& INSERT LABELJRB.BAS DISK IN DRIVE 1.c=-@"=(# PRESS RETURN WHEN READY j }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-}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`"} AP(6-2 A#"AU A`# A"@ AP " A2 " A3 " A3}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}o turn off any specialR("fonts. You can also include codesn(for double strike here.q([(( With the current settings}, theseJ(codes are sent to the printerM([(Set-up:  B:,"(None A@&-B:,(@:7<,, # }&(! A$P AP! A@ 6.-L-@"( +-@"<(No. > F A&PL}6.$4*"6-6-$ A  46- A # A:, 6-6.# A NP:A:,, )P:A:,,!}AUD( Enter a number under 255 please.N A`67<,.>:P:A:,,, &$0 "6-$: 6.D$N}X A).( PRINTER NORMAL (PICA)1(X("The proper set-up codes should setXi(( the printer to use the pica typ}eN(!font. You can also include codesf(for enhanced print.i(b[(( With the current settings, theseJ(codes are sent} to the printerM([(Set-up: l B:,"(None A v&-B:,(@:7<,, # &(& A$P AP}"#6-&$ 6.$V A),( PRINTER COMPRESSED/(V("The proper set-up codes should set[)(!th}e printer to use the compressed3(font.6([( 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.}$ A)o"( PRINTER SUPERSCRIPT%(L("The proper set-up codes should seto(the printer to use superscr}ipth (font.(5( With the current settings, theseW(codes are sent to the printerZ(h(Set-up:  B:,"(N}one A p &-B:,(@:7<,, # &(& A$P AP"#6-&$  6.*$4[ A)1( P}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}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#-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( Insert th}e disk from which`(you want to load .B U((( Press return when ready.+(.(1(; A(`@KU A }#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.BAS' D:MENUJRB.BAK<6.3 F6.-VSG-10 FOR IBM\ $f %%6-?:C:hB+9 A A% D:MENUJRB.BASD:MENU3 F6.-VSG-10 FOR IBM\ $f %%6-?:C:hG"::XFQAGDIRVKEZZQQQQQ4000QQQQ1Q1QQD1DRDCDNOKBPTRDRIPPICCONPTYPSTPICOSUS"+}IXTWUNPTRFILLNKBYT ",} "-} !"#$%&'()*+".},-./012 6-6-@'6-@36-@?6-@K6"/}-BW6-@c6-@o6-@ {6-@6-@6-@6-@ @P1 @@)@"0}'*@1 @0($2.@.@@K:<00;@ ,;@ ,;,;@ ,"1};,F&&;@,;AP,;@ ,P\ 6-6.D1:LABELPRN.DAT+6-@76-@@6.P:F6-\6.D1:LA"2}BELJRB.CFGZ. 6-.;,;,;,;,;,;,;,d;@H,n&&;@%,;@,;A%,x6-@"3}0 +AR@0SETCOLOR 2,0,04-@4( LABELJRB.BAS and MENUJRB.BAS)-@)( "4} )-@)  )-@)  )-@)  "5} *-@*  *-@*  *-@*  "6} *-@ *  +-@+  ,-@,( "7}  --@-    0-@0(   0-@"8}0    0-@0   "0-@0( "9} ,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"A}.0 A(`: +AR@DF06.&<6-@F ApNF6-@"B}<6.&| P. A. C. E. Presents |F ApXF6-@<6.&| MENUJRB.BAS and LABELJRB.BAS |F A"C}pbF6-@<6.&| Atari Disk Label Programs |F AplR6-@6-@H6.&"D}R Apv4-@@4( PUBLIC DOMAIN@-@@@(&"E}@-@@@(&| LABELJRB.BAS |@-@@ @(&| "F} Main Menu |@-@@@(&| |@-@@@(&| 1. Ch"G}ange/set Printer |@-@@@(&| Configuration. |@-@@@(&| "H} |@-@@@(&| 2. Run LABELJRB.BAS. labelmaker. |@-@@@(&| "I} |@-@@@(&| 3. Print from the file (buffer) |@-@@@(&"J}| to the printer. |@-@@@(&| |@-@@@"K}(&| 4. Quit. |@-@@ @(&| | @-@@!"L}@(&| Select number |@-@@"@(& -@@ "M}* A(`4"@I A`>"@P A @H"@Q A)PR"@R+\ "N} Af 6-B:,p='@P:'@,/67%@,. =6-%@z-@'@/-@ &/"O}(7@<,7&%@,B2y@ $ A)##(LABELJRB.BAS reads the file''(directo"P}ry on a 5 1/4 Atari disk$$(and prints the file names on++(#pin-feed labels. The program sorts$$(file names and"Q} automatically$$(adjusts the type size (pica,++(#compressed or superscript) to print++(#the maximum number of fi"R}le names on( the label.(**("The program works with most common++(#dot matrix printers and the printer$**(""S}configuration codes can be changed.))(!to suit your particular printer's8++(#capabilities. Standard label sizesB))("T}!are supported as are non-standardL(sizes.V$($( Loading LABELJRB.BASW A"`%D:LABELJRB.BASb@-"U}@!@(& INSERT LABELJRB.BAS DISK IN DRIVE 1.c=-@"=(# PRESS RETURN WHEN READY j "V}A(`t A~AR@ 6- A)D -,( SELECT PRINTER TYPE2-"W}5(;->(D-I -+( 1. Epson MX, RX or FX1-I( 2. Epson LQC -#( 3. Gemini 10"X}X)-C( 4. Prowriter K-@*( 5. Okidata 1920-K( 6. Star SG-10 g -/(! "Y} 7. Star SG-10 set for IBM;-@g(' 8. User Specified ConfigurationZ-@(-@!(--"Z}@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`""`} AP(6-2 A#"AU A`# A"@ AP " A2 " A3 " A3"a}0 " A3P " A3p " A3 " A4!-@-( ! $U "b}A)0( SET PRINTER CONFIGURATION3(U( 1. Initialize - Reset ( 2. Normal - Pica"b"( "c}3. Compressed =( 4. Superscriptb( 5. 1/6 inch line spacing,Q)(! 6. 1/12 inch line spacing"d}K( 7. Load ConfigurationN(Q(6O,($ Select number to modify config.O( Press RETURN to continue.@ "e} A'J""@:1, A" APT""@:2, Ap" AP^""@:3, AP" APh""@:"f}4, A " APr""@:5, A!" AP|""@:6, A!p" AP""@:7, A#`" AP"g}"AU$W A)+( PRINTER SET-UP.(W($The proper set-up codes should resetq+(#the printer t"h}o turn off any specialR("fonts. You can also include codesn(for double strike here.q([(( With the current settings"i}, theseJ(codes are sent to the printerM([(Set-up:  B:,"(None A@&-B:,(@:7<,, # "j}&(! A$P AP! A@ 6.-L-@"( +-@"<(No. > F A&PL"k}6.$4*"6-6-$ A  46- A # A:, 6-6.# A NP:A:,, )P:A:,,!"l}AUD( Enter a number under 255 please.N A`67<,.>:P:A:,,, &$0 "6-$: 6.D$N"m}X A).( PRINTER NORMAL (PICA)1(X("The proper set-up codes should setXi(( the printer to use the pica typ"n}eN(!font. You can also include codesf(for enhanced print.i(b[(( With the current settings, theseJ(codes are sent"o} to the printerM([(Set-up: l B:,"(None A v&-B:,(@:7<,, # &(& A$P AP"p}"#6-&$ 6.$V A),( PRINTER COMPRESSED/(V("The proper set-up codes should set[)(!th"q}e printer to use the compressed3(font.6([( With the current settings, theseR%(codes are sent to the printer((6("r}Set-up: ?B:,"H(NoneR A&-B:,(@:7<,, # &(& A$P AP"#6-&$ 6."s}$ A)o"( PRINTER SUPERSCRIPT%(L("The proper set-up codes should seto(the printer to use superscr"t}ipth (font.(5( With the current settings, theseW(codes are sent to the printerZ(h(Set-up:  B:,"(N"u}one A p &-B:,(@:7<,, # &(& A$P AP"#6-&$  6.*$4[ A)1( P"v}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"w}orm length).F(k( With the current settings, theseHR%(codes are sent to the printer((6(Set-up: ?B:,"H(None"x}R A!@R&-B:,(@:7<,, # &(\& A$P AP"#6-&$f 6.p$z\ A)2( PRINT"y}ER 1/12 INCH LINE SPACING5(\("The proper set-up codes should seto'(the printer for 1/12 inch line D(feeds (not for"z}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#-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( Insert th"}e disk from which`(you want to load .B U((( Press return when ready.+(.(1(; A(`@KU A"}#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.BAK)6.S26.2<6.3 F6.-VSG-10 FOR IBM\ $f %%6-?:C:h 0