🚀 go-pugleaf

In article <1990May4.141617.22765@EE.Surrey.Ac.UK>, ee86ccb@EE.Surrey.Ac.UK (BAILIFF Cris) writes:
> A trick I learnt about a while ago may be useful - I'll try
> and describe it here, but I may not completely succeed - you need to
> try it it see it work...
> 

Nifty trick...

Here is a small basic program that I wrote to help me layout pages

50 INPUT"Enter the number of printed pages";N
60 EX=(((N/4)-(INT(N/4)))*4)
70 EX=4-EX:IF EX=4 THEN EX=0
80 NP=N+EX
100 NS=NP/4
105 CLS:PRINT:PRINT
120 PRINT"You will need ";NS;" sheets of paper and you will have ";EX;" blank page";:IF EX<> 1 THEN ES$="s " ELSE ES$="  "
121 PRINT ES$;"at the end"
150 O=NP:N=-1:M=NP+2:P=NP+1
200 PRINT :PRINT"The pages will have to be layed out as follows."
210 PRINT :PRINT" Bottom face down              Top face up"
220 T1=NP/2
230 FOR I= 1 TO NS
235 N=N+2:O=N+1:M=M-2:P=P-2
240 PRINT N,M,O,P
250 NEXT I


Cheers
Woody
P.S.  I use Basic for one-shots..