P Witte writes:
<>
>
> or slightly more elegantly:
>
> proc label
> local L, T
> let L = 2: let T = 22
> spoolon '_par1'
> lprint rept(chr(10), L): rem L + 1 linefeeds
> lprint tab T; name$
> lprint tab T; adda$
> lprint tab T; addb$
> lprint tab T; addc$
> lprint chr(12)
> spooloff
> endproc
Which leads on to:
proc labelC4
label;22,22
endproc
proc labelC2
label;2,22
endproc
(not actual values, just an example.. (not tested!))
proc label;lines,tabs
spoolon '_par1'
lprint rept(chr(10), lines): rem L + 1 linefeeds
lprint tab tabs; name$
lprint tab tabs; adda$
lprint tab tabs; addb$
lprint tab tabs; addc$
lprint chr(12)
spooloff
endproc
Per
_______________________________________________
QL-Users Mailing List
http://www.q-v-d.demon.co.uk/smsqe.htm
