program "FINANCIEEL" 

dcl sfdown$=197
field=m,sfdown
dcl sfkode$=14,filler=1,sfrec$=180
field=m,sfkode
dcl sfdat=6,sfkod$=8 
field=m

#include "CRINCLU" 
#include "CRINCLU2"

assign=2,bestand(09),wr,si
assign=3,left(bestand(09),6)+"S",wr,si

open=2:&1,e  
dfile=3:next,e
cfile=3,d=180,k=14:next,e

&10
print=1:clear,paint(kh,ka),naam,paint(kt,0),"  FINANCIEEL SORTEREN     ",tab(70),ndat
print=1:paint(kl,0),tab(01,02),ltb,gener(77,hto),rtb
print=1:tab(01,03),vtb,tab(79),vte
print=1:tab(01,04),lto,gener(77,hto),rto,paint(kt,0)
print=1:tab(03,03),paint(kh,ka),"                                                                            ",paint(kt,0)
&20
down=2:&50,e,findown        
dat=findat
test1=conv(right(dat,2))
test1=test1+1900
if test1>1950 : goto &21
test1=test1+100
&21
test1=test1*372
test2=conv(substr(dat,4,2))
test2=test2*31
test1=test1+test2
test2=conv(left(dat,2))
test1=test1+test2
sfdat=test1
sfkod=finkode
sfrec=finrec
insert=3,sfkode:&22,e,sfrec
goto &20
&22 
print=1:tab(01,24),"Fout insert : ",(-3),e
stop

&50
dfile=2:&55,e
&55
cfile=2,d=180,lk=8 
&60
open=3:&1,e
teller(04)=1
&70
down=3:&100,e,sfdown
finkode=sfkod
fintel=teller(04)
finrec=sfrec
insert=2,finkode:&70,e,finrec
teller(04)=teller(04)+1
goto &70
&100
par(3)=param3
goto &1

eseg 0

end




::tttt

tt1=test1+1900
if test1>191fintel+1
goto &192
&200
ask=1,i=&300,u=&185,/8a=&170,/8b=&175:tab(23,12)=findat
&205
ask=1,i=&225,u=&200,/8a=&170,/8b=&175:tab(23,1