sP.$3$6$12$15$18"PRINTMENU"''" 1=PRINT"'" 2=WYZIGEN KOP"
P.'" 3=PRINTER SETTING"'" 4=HOE ITEMS PRINTEN"
P.'" 5=OMKEER RESET"'" 6=OMKEREN BY PRINTEN"
P.'" 7=SELEKTEREN"'" 8=GEEN SELEKTIE"''
i@=4;IN."U WENST"$S;IFL.S<1OR?S=94;G.a
GOS.f;IFK<1ORK>8G.s
$IFK=1G.1520
.IFK=2GOS.350;GOS.410;GOS.290;G.s
8IFK=3G.1180
BIFK=4GOS.1330;G.s
LIFK=5F.I=0TOA;W?I=I;N.;G.s
VIFK=6G.1140
`IFK=7G.1860
jIFK=8U?4=-1;G.s
tGOS.770;@=0;P.';F.I=0TOA;P.I"E KOLOM = "$NN(W?I)
~IN.'"DIT WORDT NR"$S;IF?S=94G.s
IFL.S>0GOS.f;W?I=K
N.;G.s
F.I=5TO10
IFI=9;I=10
IFI=5P."PRINTER"
IFI=6P."KOP"
IFI=7P."PAG NR"
IFI=8P."DATUM"
IFI=10P."NIEUWE BLZ NA IEDER REC"
IFQ?I;P."=J "
IFQ?I=0P."=N "
IN.$S;IF?S=74Q?I=1
IF?S=78Q?I=0
N.
IFQ?5P."PAPIERLENGTE IN REGELS"'"(INCH*6)="Q?11;IN.$S;GOS.f;IFK=0G.1320
Q?11=K
(G.s
2J=0
0V?J=K
J=J+1;IFJ<=A;G.1340
R.
?U=0;IFQ?5;IN."VANAF PAGNR"$S;GOS.f;U?11=K
IF?U+2>U?11;P.$21$2$15$27$67$Q?11
IFQ?10=0GOS.l
N=0;T=RR0;DOGOS.j;IFU?5;GOS.p
T=T+B;GOS.e;U.K ORT>=RR1;P.$12;G.s
"l?U=?U+1;IFQ?5;IF?U>=U?11;P.$21$2$15$27$67$Q?11$27$87$1
,P.'';IFQ?8;P.$NN(A+2)
6IFQ?7;C=61;GOS.n;P."PAG"?U
@P.';IFQ?6=0G.1640
JC=(68-L.NN(A+1))/2;GOS.n;P.$NN(A+1),'
TGOS.n;DOP."=";U.C.=C+L.NN(A+1);P.''
^IFQ?4;P."GESORTEERD OP "$NN(Q?4)
hIFU?4<>255GOS.230
rP.$27$87$0
|P.''';C=0;F.M=0TOA;J=W?M;IFP?J&1=0G.1690
C=C+V?J;Z=0;D=0;IFP?J&2;D=NNJ
GOS.x
N.;P.'';U?1=12;IFQ?6;U?1=14
R.
jIFU?4=255U?5=1;R.
U?5=0;J=U?4;R=T+O?J;GOS.q;IFZ;G.g
E=RR6;IFD=0D=RR3-1
GOS.b;IFU?6=2G.k
E=RR7;GOS.b;IFU?6=3G.k
U?5=1;G.k
gIFD>=RR6;IFD<=RR7;U?5=1
kIFU?10;U?5=U?5:1
R.
bIF$D=$E;U?6=1;R.
U?6=0;Z=L.D;IFL.EE?I;U?6=3;I=Z;N.;R.
0IFD?I255GOS.230
NIN.'"SELECTIE OP NR"$S;GOS.f;E=K;IFL.S<1G.a
XU?10=0;IFE<0E=-E;U?10=1
bU?4=E;IN.'"VAN "$S;IFL?E;GOS.h;RR6=J
lIFL?E=0RR6=U+80;$RR6=$S
vIN.'"TOT "$S;IFL?E;GOS.h;RR7=J
IFL?E=0RR7=1+RR6+L.RR6;$RR7=$S
G.s
L
;G.s
.ecords";P.RR5'$15;R.
";P.RR5'$15;R.
records";P.RR5'$15;R.
talrecords";P.RR5'$15;R.
;GOS.o;OI=I+1;U.S?I>47;$#100=$(S A F @ @