6N5LNLABELCOMJ5LNLABELDOCK 5LNLABELPASUp ͫCopyright (C) 1985 BORLAND IncBKaypro, no hiliteeedP=  E RC1B1~7#~=  oͦlԅ!!"~#(}:$= +*!6!*!!:(2!6:(>2!!!:O::O:!*! !45(! +/ 0y0( d!k6!{6``o&  :(͠|(  *"x2y( >28!"9!! og2"">~22!:05+:!Co&ͦͣ} [ (!e|ͧA8Q0G: x@!\w# (̓ ?(*( .( x_. _!h6# (?( *( ̓( w#>?> w#ͧ 8 !ɿ .,;:=?*[]<>{}a{ |͵};Ɛ'@'7||}>2Ͱ*Bک  "og"2>2! ""*B"[Rv*"^#V#^#V#N#FO/o&9O/o&9!9(> (G!9 w#Eͻw}8( RB0 >( RrRR!+ ͱ R!+ ͱ s!+ ͱ s!+ ͱ s!# ͱ s!+ ͱ T]KB!z> S>))0 = | |́́DMgo>jB0 7?= H͓<z5b)b<z {0Gɯgo||}||/g}/o#}o&K[xAJSJDM!b"!6J"DM'd } * W _}8(8J`9{T]=o`9y *  >( ͂ ͭ͘ }>( x‰ }} ˸T}ٕ(0D={ ,= ( ͓ 0%| , 7 ?(8ͭ x ͇ - s 8˸x ͐  ,-xG}s }مN 9s .>#n0͓ | = - nx ͈ ,-(-˸G,-s }ٕ?N 9.> 8ͭ ?= u+-(>͇ 0ͭ ͇ 8 ?x ͈ , 78ƀ8ƀ8ox٨!دoGOW_gɷɷ|لg{ً_zيWyىOxوG|ٔg{ٛ_zٚWyٙOx٘Gxٸyٹzٺ{ٻ|ټx٨ xx( ?}ٽ }ցs <(s 7| = |٤g{٣_z٢Wy١Ox٠G| ͭ ͂ }x>( ͭ}ƀ/ƀo  -͂ }0͏-͂ ͏,}l˸ 8 5 ͘ x( - 8͂ - 8,͂ }l8;*!͘ ! >5ͭ͘ ͘ ͭ--- ͂ ,,,-xGg?+2n*8t z~,->( x( ͙}. ͇͂ , ! >5,ͣ- o&0% ,͘  }gs }؉}颋.:}8c~I$I~L*ͣٷx˸ }0G,<} ,-(-͂ !>J0 ͙͘ o8 ͇ >( m.`1pF,t6|!wS<.z}[|%FXc~ur1}͇ٯx(<˸ 8 !~J 0/O!>t 8 =  o t͘ ͇ /o 0 ͏-͂ OT0 j oD,:j !I}袋.}8c~I$I~L! >ͭ͘ JØ oo ͘ = ͇ nf^VNF!DLT\I!!53!r1!͓!> x #-= o˸x͇(- }(x>8({ ,{ `iÄ!>( |s |́>)=|(DMbo˸88x(0 8> ́x(>-{(ay( z(>. ( {>E>+|(|Dg>-|/ 0:p# ~# +>0w#,-  60#~˸}րogM| .({ = ~> x0w#xG%͈ %͈ ZJDM%͈ = _~65+~hìx-Sx9?+{Η@}|{ { gZJDM0| ,7}o˸@ #yO!@9i&@  #@w#@/w#@w#!9! E9!!9~(+Fͻ!"9!(#>2*"| >"2:( ͷ *w*6 !\$![ (ͧ( #:~CONTRMKBDLSTCAUXUSR>2j:*ˮ~1:*:(@q##p[* :(  ~* < >26"!"""~>2""v>2>"!"ˮ(!~8>~O6~*"w(6(2(-()(6 (8 0 :(* y(~#+ (( 66 #6 #"*: y~o p .##~ͻ(.6w4._~ =*##55= *[R8*~#"= ͣ}== ͯ}͵}*#w+#~+>*~('l!0(ˮ]l!8ˮ!]~-#8~>27lˮw>O%7̄s #r%ͤ7̐ l ( (ˮ ql(ˮ ( l ˮ*O:~ ##~._q4((=ʦ==ʩ=ʬò*:4^q*##~6ͻ>2}*|(̈́|( ̈́6-#[RM8( G> A~#*(C! !TRUEFALSE!9N#Z~#( G~#> >    "~(lѻ(( !0 (ˮ!!>2S{:1:*6##ww#w$w#w:  ##N#F*B>2w#w#[s#r> "~ͯ*-w#ww##> ͯÂ""~>2:[R0 *4#4>2:[R> *4 #4(> >22*f(/˦:G(##~++ :O x yD!ͻ Q*:G(##~._.͛g<]=<͛*##w ͯ +4 #4x>>2:G("ͯ"*nˮ*0 S[ѷR8@* N#F#s#r- 0})jS\*##w+ N#FB ͯr+s>2!T]>)j)0 0= ^R!#^*^#V#N#F#^#V>2ͱ:1:*6 #-Nw#Fwq#p#6#w#w#w"~Â>">!DM!":*B:!>(>2>">!"2"~ʱ*w#wx(9* :O *-4 #4!*4 #4 *-N#Fq#pV+^Bq#pS[ѷR'* s#r$ s#rM <?*M!\  <( !\$>2>2M:>!(* \$\<(!4: [1ð\!(7"~> 2"S"Ns#FrB(Z#\: \<(?*"}K\! !*}#"}! x \* *>* 2""{_!"*nf}(HR0nf" ^VMDnfutqp*s#r*s#r"* vKB!1>( ~#fo{_"*R0RnfR0KqputsrNF( ^VNF^V*SutKqp R*R(~w~wnf ut"6#L*L*!""*NFy(* "*B0Cnf* [R*"*RS[s#r^#V""6#>O"w2x2*"!G"" 'z*"*>2"*"!G"""!\*: Os!~6go(\R*s#r_2x( s x(T]DMx(R0 U(͞O/o&9q# (!>F0#( ~ ( #]( ~ ( (#}(  i&T-a%ã}ͧo*!~6o&|:2!2}:__{ѯ2*|KB " z ^C User break+=  I/O Run-time error {͵, PC=*ͰNot enough memory Program aborted :m'1!e!%B>?͜ͻ35LNLABEL by Alan R. Therrien, Bergen/Rockland KUG  ͜ ͜ͻ?Distribution of this program for profit is strictly PROHIBITED  ͜ ͜ ͜ͻ;This program allows you to enter five lines of text (up to  ͜ͻ;forty characters long) which are then centered and printed  ͜ͻ9on 1.5" x 4" labels. You must use CAPS LOCK if you want  ͜ͻ0your labels printed in all upper case letters.  ͜ ͜ ͜ ͜ ͜ͻPress any Key to Continue.  ͠E#?!!gz$"͜ͻ Enter Line # *!'ͻ( (up to 40 characters), or 'Q' to quit.  !*+)))))(͏ !*+)))));ͤ!(E%#!*+)))));!Qe.͎!*+)))));!qe.͎}oE$!*##͜ ͜ ͜ͻ"Turn Printer ON and Adjust Labels  ͜ͻHit Any Key to Continue  ͠Eʂ$!!gzK%"!*+)!(!*+)))));ͤR!s#r!"!ͻ! # *!"*!*+)^#VE$!ͻ!*+)))));!ͫ *#Õ$!ͻ !ͻ !ͻ !ͻ # *+)^#VE$!ͻ!*+)))));!ͫ *#Õ$!ͻ !ͻ !ͻ !ͻ y 5LNLABEL v1.0 dated March 14, 1986 by Alan R. Therrien - Bergen/Rockland KUG FiveLineLabel was written in Turbo Pascal as a learning exercise in Turbo. Therefore you may find bugs or suggest improvements. All constructive criticism is welcomed and may be left on the Oxgate BBS by west coast users, or KUGNJ BBS for east coast users. This program is placed in the public domain as "shareware" and may not be distributed for profit. It is the sole property of Alan Therrien. WHAT 5LNLABEL IS: 5LNLABEL.COM - is designed to request five lines of text (up to a maximum of forty characters), center those lines, and print them on a standard sized 1.5" x 4" label. It's a convenient program for producing disk labels. 5LNLABEL.PAS - is the source code, written in Turbo Pascal (tm) for this program. 5LNLABEL.DOC - is the document file describing the purpose and use of this program. Note: This program is designed to print the labels in standard print. If you prefer your labels printed in another mode, the appropriate code and string length can be changed in the source code and recompiled in Turbo. See notations in the source code. I hope you find this useful. Happy Computing! Alan R. Therrien Northvale, NJ March 14, 1986Program FiveLineLabel; {A program which requests 5 lines, centers them, and prints the 5 lines on a 1.5 x 4 label} var A,I: Integer; Ans: Char; Line:Array [1..5] of String[40]; {Change String size to fit} Offset:Array [1..5] of Integer; {length accommodated by the} {print mode you select} Label Start; Begin clrscr; writeln('5LNLABEL by Alan R. Therrien, Bergen/Rockland KUG '); writeln; writeln('Distribution of this program for profit is strictly PROHIBITED '); writeln; writeln; writeln('This program allows you to enter five lines of text (up to '); writeln('forty characters long) which are then centered and printed '); writeln('on 1.5" x 4" labels. You must use CAPS LOCK if you want '); writeln('your labels printed in all upper case letters. '); writeln; writeln; writeln; writeln; writeln('Press any Key to Continue. '); repeat until keypressed; Start: Clrscr; For I:= 1 to 5 do begin repeat writeln('Enter Line # ',I,' (up to 40 characters), or ''Q'' to quit. '); readln(Line[I]); until Length(Line[I])<40; {Change to match String length above} If (Line[I]='Q') or (Line[I]='q') then Bios(0); end; writeln; writeln; writeln('Turn Printer ON and Adjust Labels '); writeln('Hit Any Key to Continue '); repeat until keypressed; For I:= 1 to 5 do begin Offset[I]:=(40-Length(Line[I]))div 2; {Change 40 to match above} A:=1; Repeat Write(Lst,Chr(32)); {Insert proper printer code after Lst} A:=A+1; {command} Until A>Offset[I]; WriteLn(Lst,Line[I]); end; Writeln(Lst); Writeln(Lst); Writeln(Lst); Writeln(Lst); Goto Start; End.