program "FINANCIEEL" dcl telopf% dcl fokdown$=98 field=m,fokdown dcl fokkode$=17,filler=1,fokrec$=80 field=m,fokkode dcl fokkllv$=1,fokname$=8,fokfak$=6,foktel% field=m #include "CRINCLU" #include "CRINCLU2" assign=2,bestand(10),wr,si assign=3,"SORTOPF",wr,si &3200 dfile=3:next,e cfile=3,d=80,k=17 open=2:&1,e &3230 down=2:&3300,e,fakdown foktel=0 fokkllv=fakkllv fokname=fakname fokfak=right(fakdat,2)+substr(fakdat,4,2)+left(fakdat,2) fokrec=fakrec &3240 print=1:tabv(01),fokkllv," ",fokname," ",fokfak insert=3,fokkode:&3250,e,fokrec goto &3230 &3250 foktel=foktel+1 goto &3240 &3300 open=3:&1,e dfile=2:next,e cfile=2,d=80,lk=15:&1,e &3320 telopf=0 &3330 down=3:&3350,e,fokdown telopf=telopf+1 print=1:tab(01,24),fokkllv," ",fokname," ",fokfak fakkode=fokkode fakrec=fokrec &3335 fakfak=conv(foktel) insert=2,fakkode:&3340,e,fakrec goto &3330 &3340 foktel=foktel+1 goto &3335 &3350 teller(05)=telopf+1 par(3)=param3 goto &1 eseg 0 end    d d dseg