Re: [ql-users] waiting for QPC print - meanwhile

[P Witte]

P Witte writes:

<>
> Thus:
> 
>    proc label
>        spoolon '_par1'
>        lprint
>        lprint
>        lprint
>        lprint '                      '+name$
>        lprint '                      '+adda$
>        lprint '                      '+addb$
>        lprint '                      '+addc$
>        lprint
>        lprint
>        lprint chr(12)
>        spooloff
>    endproc

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

Per
_______________________________________________
QL-Users Mailing List
http://www.q-v-d.demon.co.uk/smsqe.htm