99APNTADISEDSAREACOUNFILEFLAPSORTPCPTAGLABELNAMEFIRSTSECONDTHIRDFOURTHFIFTHSIXTHWTCOPIEDTIMEBRTOPSIDEASIDEBDNUDLI  !"#$%&' JJ   THE LABELLER JJ   Mail & Disk label creator JJ   Use w/tractor feed labels (JJ   by: Ken Watson 2$$ Elsa, Yukon, CANADA <pp   Ver. - 26/07/86  FPZ, A6.V,FAST in BASIC XLd+ + A0! A$+ A$pn A#@ A#PxT( 9( PRINTER SELECTIONT( Z-@@9(Type 'N' for NEC8023A/Prowriter<(Z('E' for Epson compatible>-@@#>(#by: Ken Watson, Elsa, Yukon, CANADA/ A@"@i%6-@/ Ap @x( AP A0 (} A#Pc( ;( DISK/MAIL SELECTIONW( c6-]( ( (( ISK LABEL (1( AIL LABEL; A@G"@wS6-] A0@h( A56-@++AR@5 A! ~ +(}%AA7AA(b(&򠠠tAR@~ A0a( ( ($(reate a new label'(@(iew labels on diskC(U( oad a labela6-c(#(rase a label from disk&(C(ag labels for printingF(c(oto disk label section0((erun this program!(0(rive #* A@!"@gA @*CREATE%"@6-% Ap"%"@i6-@% A,&"@vA&LOAD A LABEL6%"@6-@% Ap@"@' @J"@qA T@h( A0^)6-%@@)6-@h A0r[ 6.NO AP"6-@((}:-@@[(Loading and sorting files...|s6-6.D)67@,.=:,?67@,.:*.LABJ@g@@s6-@5@57@<@ ,4FREE A II@:7@<@,,!@G*@:7@<@,, @XA t6-%@'6-$@&@>67<%@,. j67%@<%@,.7@<@,t Ad7@<@,4NO#(}&()(,(Q( NO LABEL FILES ON THIS DISKT(W(Z(d A`!!"@*"A`!!"@*"@AB.6-?:C:,6-%@T@ *"`6-@l6-@!A` A F:B2y,@A@& (} Ap0;-@@#/(Ԡ to continue;6-: F:B2y,@ApD A0NU (}AAB--@@#U(# ag; =skip; =abortXc-@6(** TAG FILES FOR PRINTOUT **<(?(K6-@W6-@c6-@b5(7<%@,567<%@,.7<%@,l/ A@"AU%6-/ A0v"@2(  A` @( A 7( => tagged67<,.*+6-@76-"@ (;6-%@6-%@-6-%@;A;@('(1 A ; A06- A CREATE A FILE SECTIONw + A0)AR@;AA(MAAw(%ŠįůŠA( ( (This section will,"@7( A AP&"@( & AP( ;;(3 any file with the extender '.LAB'. You only haveqN(Fto type the main part of the filename - DO NOT add the extender -`-@@"q( '0' to AbortR-@@"(DRIVE #?, A@B @H)!@RH(R A U-@!@!6-A:>:,,%(+6-7"A A%PK A#@U A0i-@@'( Name of file:9-@@H(  Z-@@i(   6-@@$( 6AR*4-@@((6-@46-@4k@.@@K:@AdAUJ A0W)@k"AUA`>!"A&6. ! AH56-%@"@#(+6. 5 AR< 6. 6.>:,"-@%'(267<,.< A \o67@<@,.D667@<@,.=:,O67@<@,.:o67%@<%@,..LABf"@APp"@A%0zGAR@'-@@<(Now loading: G@5 A@5@@Q@@*@7@D@Q@"@ A@ A0M + A0)AAF;AAGMA Ar--(%Š̠C( ("(You may have up to ."9(@C A (@99(1 lines, each up to 37 characters (1 line) long.((Type lines now:l-@@@+-C('@&@)G S"e-@l(6)CA A01-@@58(<?(C$(  (" ($FAR@(}(=(Label will look like this:@(C(F(A-@A(' S-@@#-O(' S $M"!-@M('.M"@!-@M('8[-@@(+-@@/(A-@@E(W-@@[(BMA@d'-@@+(7"I-@@M(LL A0-@@".( Okay (Y/N)8 A@L"@xA @V @( A`[ + A0)ARN0@H:,$@@X A#P[(j7(PRINTOUT SCREEN-( 7 A0tk(h(]POSITION LABEL SO THAT THE TOP OF THE FIRST LABEL IS FLUSH WITH THE TOP OF THE PRINTER HEAD.k(~0-(%ŠŠԠŠҠӠΠ0(c( 1(# OF COPIES = K( W6-c6-=-@@ '( [0 to Exit]9-@%@="APBAR@'-@@ B(Press Ԡ to begin'@ 'AU F:@ , @A'@ 'AU@ F:@ , @A0 F:B2y,"@A` Ap-@@ 1( PRINTING.... <@\@@P:p"@A!"@A0 (@>:@,EB%(@>:@',>:@4,1"B(@!(@T24($(@L004$ A2<(@@MF1(@H "1(@GP00(@>:@',>:@w,>:@,Z))(@>:@',A>:@,d"@ APn-@xD(@(@*(@7(@D(@"(@0(@"%(@0(@%F:B2y,"@'% AP3-@%@ ( )"@3 A + A0)AA(;AAMA Ap_AR@k6-w6- A#Pr-@@9( ore copies of this label<(S( ave to diskV(r( erun the program ( ( nd the programM A@"@i# B7-@@<@ J+M#"@ A#@# A0%"@w6-% A "@A0 ( AP+6-@6. +@A> (} ((*(Can't save disk labels4 A > APN + A0)AR@;-@@N( Now saving: [ A@5@@8([( is already on this disk"D9(1do you still want to save it as this name? (Y/N)D@,! A@!"@xA6@A@(( saving...Jv AP@5@@B(@O(@\(@i(@v(@T"@6. ^%(@@% APh@.@@K:@AdAUJ A0\AnA@d{)@@$r2F:A,"A8(( AP2 A0|2F:A,"A`(( AP2 A0 A86-F:A,0"A8)"Ap)Ae86. X"Ap++A@f.(1(D(File not foundN A X Af"A8)"A`#+5A@f8(;(R(Drive not on line.\ A f A["Ae++A@f.(1(G( Illegal filenameQ A [ A A F:A,"A8A  AoF:A,"A8"+4A@f7(:(Q(Drive not on line.[ A o"@A0.F:A,"A8$6-@. A**F:A,"A6*"@A w + A0)A@f,(/(F(ERROR #F:A,I(L(w(ON LINE F:A,%AV$F:A,H( (H(:PUSH Ԡ TO RE-START PROGRAM Π TO END F:B2y,"@@%F:B2y,"@"+% A&)6-F:@,&A(& )$0@B7t$:3"6-@'6-@36-@D7<,0*ANi 6.#67@<@,.D=67@<@,.=:,V67@<@,.:]6.i6-@X}'67<,.7%%@<%%@,56-%@}7%%@<%%@,0 *7%%@<%%@,0*AbJ6-&@*67@<@%,.J67@%<@%,..LABl A v-6-%@6-%@-A` AP (} A#PW( ;( PRINTING PARAMETERSW( U-@@((ouble Strike::-@@U(idth: 1 7/16 or 15/16F-@ @(Π*"@<-@ @F(Ơ+"!-@@+ A-@$@//('^ |4-@@#4( Π to continue A@"AUAi"@h!-@ @+( 7"I-@ @S(Ơ_6-@i A @"@h!-@ @*(Π66-@ A "@!-@@0( B-@@]( i"u6-@ A 7"@!-@@-6-7 A%-@@ (% A  0*(" -(0$*@ 4 F:@ , A A!>$HpAA0>($}ˠ̠PARS(V(Y(`6.h6. p6. R^-@(Top:H(% Z-@@^\[-@!(Side A:E( W-@@[f]-@!(Side B:G(! Y-@@]pD-@@ &( Okay (Y/N) 0 A@D"@xA! z @( A!` A x-@"/(@QQ(@>:@',>:@4,]"n(@!x A" "A" C(@@&(@2"C(@G?(@ $"5(@X? A"@(@-17(@(@,4*"7(@5"+(@Y>:@,5 A"p(@-02 4(@ ((@2 A#-(@A) ""-(@ "@ (@(@B)  ;(@(@%"0(@;(@ ;-@%@ (.F:B2y,"@1'; AP   AP$ 6 + A0)AR@3 A#`6$. @ ( THE LABELLER - V.4.0=( @$8 26-F:AY,$AY.#A$`2"B %%6-F:A`,%AV$F:Aa,L .-@"*%F:%,%A(. V B6-P:C:,'AV,*6-C:,&$AV6ABA` 6BBA'AV3AY6$j ;A,t 226.(H Bh@ҍh@~ ;;67@A,.(h@ Щh@ Ѝ h@ 3367@,. h@ Щ h@h@ $ 8,2,6,9,12,13,14,15,27 ]];@ ,;@7,;@7,;@7,;@7,;@7,;@7,;@, RR;@P,;@&,;@&,;AP,;AP,;A",;@ , K6-6-'6-36-?6-K6-@ ##6.hhhhhhhhhhh tt67@&,.aх֢ׅͥ؅ͅeمͥ΅iΤϱː аȐѤوHˑhмжР` $ fAR@(}(!($(>(Type 'X' to delete H AR A@f@A q@3@3@6(9(Q( has been deleted[ A g6-q A0 ("@'6-( A0 $ D:LABEL4.BAS