program "BRIEVEN"
dcl ladres$=1,lstraat$=24,lgem$=24,olddat$=6
dcl l%,tabnum$=18(25)
dcl zendown$=94
field=m,zendown
dcl zenkode$=18,filler=1,zenrec$=75
field=m,zenkode
dcl zenkla$=8,zendat$=6,zentel%,zentel2%
field=m
dcl levtwnaam$=30
dcl x%,p#,newkode$=8
dcl leddown$=255
field=m,leddown
dcl ledkode$=8,filler=1,ledrec$=246
field=m,ledrec
dcl lednaam$=30,ledtwnaam$=30,ledstra$=30,ledgem$=30,ledtelf$=15,ledtelf2$=15
dcl ledfax$=15,ledbtw$=11,ledsoort$=2,ledklant$=1,ledzend$=1,ledsluit$=2
dcl leddat$=8,ledlev$=15,ledbank$=14,filler=100
field=m
#INCLUDE  "crinclu"
#INCLUDE  "crinclu2"

assign=45,"im0",wr,ex,im
assign=46,"im1",wr,ex,im

assign=02,bestand(04),wr,si                  ;klantenbestand
assign=03,left(bestand(04),3)+"DOK",wr,si    ;brieven
assign=04,bestand(03),wr,si                  ;leveranciers
assign=05,left(bestand(04),3)+"ADR",wr,si    ;adressen
assign=09,left(bestand(04),3)+"BRIEF",wr,si  ;adressen
x=5
open=2:&1,e
open=4:&1,e
open=5:&1,e
open=3:&20,e
goto &200
&20
cfile=3,d=75,k=18:&1,e
goto &200
&150
ldgo.seg 5
&200
print=1:clear,paint(kh,ka),naam,paint(kt,0),"  BRIEVEN ",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),"F1=Overzicht ",paint(kt,0)
&205
print=1:tab(01,05),atb(22)
ask=1,i=&1,u=&1,/80=&1000,/94=&150,/8a=&222,/8b=&224:tab(01,05),"Geef naamkode",esc,ledkode,tab(29)=ledkode
if ledkode=" " : goto  &205
ledkode=large(ledkode)
search=5,ledkode:&205,e,ledrec
goto &260
&222
up=5:&223,e,leddown
goto &260
&223
print=1:tab(01,24),atb(21)
ask=1,i=&205,u=&205,/8b=&224:tab(01,24),atb(2),berb,atb(0),fvolg,volg=j
goto &205
&224
down=5:&225,e,leddown
goto &260
&225
print=1:tab(01,24),atb(21)
ask=1,i=&205,u=&205,/8a=&222:tab(01,24),atb(2),bere,atb(0),fvoor,voor=j
goto &205
&260
print=1:tab(01,05),atb(22)
print=1:tab(01,05),"Naamkode : ",ledkode
print=1:tab(01,06),"Naam",tab(20),": ",paint(kh,ka),left(lednaam,len$(lednaam)),paint(kt,0)
print=1:tab(01,07),"Straat",tab(20),": ",ledstra
print=1:tab(01,08),"Gemeente",tab(20),": ",ledgem
print=1:paint(kl,0),tab(01,10),gener(79,hto),paint(kt,0)
&270 
j=" "
ask=1,i=&205,u=&205,/8a=&222,/8b=&224:tab(01,12),"Deze persoon  Y-N : "=j
j=large(j)
if j=" " : goto  &270
if j<>"Y" : goto  &205
&300
testd(1)=ndat
inldat1=testd(1)
ask=1,i=&205,u=&205:tab(01,12),"Geef datum : ",inldat1,tab(14)=inldat1
if len$(inldat1)<>6 : goto  &305
inldat1=left(inldat1,2)+"."+substr(inldat1,3,2)+"."+substr(inldat1,5,2)
&305
testd(1)=left(inldat1,len$(inldat1))+right(testd(1),8-len$(inldat1))
if substr(testd(1),3,1)<>"." : goto  &300
if substr(testd(1),6,1)<>"." : goto  &300
if len$(testd(1))<>8 : goto  &300
print=1:tab(14,12),testd(1) 
testd2(1)=right(testd(1),2)+substr(testd(1),4,2)+left(testd(1),2)
zendat=testd2(1)
&310
zentel=0
ask=1,i=&205,u=&300:tab(01,14),"Geef nummer : "=zentel
if zentel=0 : goto  &310
&320
zenkla=ledkode
zentel2=1
search=3,zenkode:&330,e,zenrec
goto &350
&330
j=" "
ask=1,i=&205,u=&310:tab(01,24),"Brief niet gevonden 'N'=Nieuw "=j
j=large(j)
if j<>"N" : goto  &205
for tel=1 to 44
zentel2=tel
zenrec=" "
insert=3,zenkode:&335,e,zenrec
goto &340
&335
print=1:tab(01,24),"Fout insert zenkode ",(-3),e,(e),zentel
stop
&340
next tel
&350
print=1:clear,paint(kh,ka),"F2=Afdrukken  F3=Annulatie  ", lednaam,paint(kt,0),"  ",zendat," Nr ",(-3),zentel
print=1:paint(kl,0),tab(01,02),gener(79,hto),paint(kt,0)
print=1:tab(01,03),atb(22)
&360 
for tel=1 to 22
zentel2=tel
zenrec=" "
search=3,zenkode:&370,e,zenrec
&370 
print=1:tab(01,tel+2),zenrec
next tel
&380 
zentel2=1
&400 
if zentel2<1 : goto  &500  
if zentel2>22 : goto  &500  
zenrec=" "
search=3,zenkode:&410,e,zenrec
&410
ask=1,i=&2000,u=&460,d=&450,/80=&500,/81=&2000,/82=&9000,/83=&415:tab(01,zentel2+2)=zenrec
goto &420
&415
zenrec=space(75)
modif=3,zenkode:&335,e,zenrec
print=1:bell,tab(01,zentel2+2),zenrec
goto &410
&420 
insert=3,zenkode:&430,e,zenrec
goto &450 
&430 
modif=3,zenkode:&450,e,zenrec
&450 
zentel2=zentel2+1
goto &400 
&460 
zentel2=zentel2-1
goto &400
&500 
print=1:clear,paint(kh,ka),"F2=Afdrukken  F3=Annulatie  ", lednaam,paint(kt,0),"  ",zendat," Nr ",(-3),zentel
print=1:paint(kl,0),tab(01,02),gener(79,hto),paint(kt,0)
print=1:tab(01,03),atb(22)
for tel=23 to 44
zentel2=tel
zenrec=" "
search=3,zenkode:&510,e,zenrec
&510 
print=1:tab(01,zentel2-20),zenrec
next tel
zentel2=23
&520 
if zentel2<23 : goto  &360 
if zentel2>44 : goto  &360 
zenrec=" "
search=3,zenkode:&530,e,zenrec
&530 
ask=1,i=&2000,u=&570,d=&560,/80=&360,/81=&2000,/82=&9000,/83=&545:tab(01,zentel2-20)=zenrec
&540 
insert=3,zenkode:&550,e,zenrec
goto &560 
&545
zenrec=space(75)
modif=3,zenkode:&335,e,zenrec
print=1:bell,tab(01,zentel2-20),zenrec
goto &530
&550 
modif=3,zenkode:&560,e,zenrec
&560 
zentel2=zentel2+1
goto &520 
&570 
zentel2=zentel2-1
goto &520 
&1000     ;overzicht
ldgo.seg 4
if phil=2 : goto  &350
if phil=3 : goto  &9000
goto &200
&2000     ;afdrukken
search=5,zenkla:&9000,e,ledrec
print=1:tab(01,24),atb(22)
j=" "
print=1:tab(01,23),"F1=Nieuwe kode en datum"
ask=1,i=&200,u=&200,/80=&8500,/82=&9000:tab(01,24),"O.K. om af te drukken  Y-N : "=j
j=large(j)
if j="F" : goto  &4000     ;fax
if j="Y" : goto  &3000
if j="N" : goto  &200
goto &2000
&3000
print=45:pc850
print=45:zes
print=45:emp
print=45:ital
print=45:endcon
print=45:tabv(00),tab(01+x)
print=45:naam
print=45:tabv(02),tab(01+x),titel(01)
print=45:tabv(01),tab(01+x),adres
print=45:tabv(01),tab(01+x),gemeen
print=45:tabv(01),tab(01+x),"Telefoon : ",telf1,tab(45),"Aan ",lednaam
print=45:tabv(01),tab(01+x),"Telefax  : ",fax,tab(45),ledtwnaam
print=45:tabv(01),tab(01+x),gener(23,hto),tab(45),ledstra
print=45:tabv(02),tab(45),ledgem
lijntel=9
if ledgem=" " : goto  &3015
print=45:tabv(01),tab(45),gener(len$(ledgem),hto)
lijntel=lijntel+1
&3015
print=45:tabv(01),tab(01+x),left(titel(02),len$(titel(02))),", ",ndat
print=45:tabv(02)
lijntel=lijntel+3
&3020
for tel=1 to 44
zentel2=tel
search=3,zenkode:&3030,e,zenrec
goto &3040
&3030
zenrec=" "
&3040
print=45:tabv(01),tab(x+1),zenrec
lijntel=lijntel+1
next tel
&3050
print=45:ff
close=45
lijntel=0
print=45:endemp
goto &200

&4000
print=46:pc850
print=46:zes
print=46:emp
print=46:ital
print=46:endcon
print=46:tabv(00),tab(01+x)
print=46:naam
print=46:tabv(02),tab(01+x),titel(01)
print=46:tabv(01),tab(01+x),adres
print=46:tabv(01),tab(01+x),gemeen
print=46:tabv(01),tab(01+x),"Telefoon : ",telf1,tab(45),"Aan ",lednaam
print=46:tabv(01),tab(01+x),"Telefax  : ",fax,tab(45),ledtwnaam
print=46:tabv(01),tab(01+x),gener(23,"-"),tab(45),ledstra
print=46:tabv(02),tab(45),ledgem
lijntel=9
if ledgem=" " : goto  &4015
print=46:tabv(01),tab(45),gener(len$(ledgem),"-")
lijntel=lijntel+1
&4015
print=46:tabv(01),tab(01+x),left(titel(02),len$(titel(02))),", ",ndat
print=46:tabv(02)
lijntel=lijntel+3
&4020
for tel=1 to 44
zentel2=tel
search=3,zenkode:&4030,e,zenrec
goto &4040
&4030
zenrec=" "
&4040
print=46:tabv(01),tab(x+1),zenrec
lijntel=lijntel+1
next tel
&4050
print=46:ff
close=46
lijntel=0
print=46:endemp
goto &200

&8500
klkode=zenkla
print=1:tab(01,22),atb(22)
ask=1,i=&200,u=&200:tab(01,24),"Geef nieuwe kode : "=ledkode
ledkode=shl(large(ledkode))
search=5,ledkode:&8502,e,ledrec
goto &8505
&8502
print=1:tab(01,24),atb(21)
ask=1,i=&8500,u=&8500,/80=&8510,/8a=&8503,/8b=&8504:tab(01,24),paint(kh,ka),"Naam ",ng,paint(kt,0),fvoor,voor,fvolg,volg=j
&8503
up=5:&8500,e,leddown
goto &8505
&8504
down=5:&8500,e,leddown
&8505
print=1:tab(01,22),atb(22)
print=1:tab(01,22),paint(kh,ka),left(lednaam,len$(lednaam)),paint(kt,0)," ",ledstra,atb(21)
ask=1,i=&8500,u=&8500,/8a=&8503,/8b=&8504:tab(01,24),"Deze naam  Y-N : "=j
j=large(j)
if j="Y" : goto  &8510
goto &8500
&8510
olddat=zendat
for tel=1 to 44
zenkla=klkode
zendat=olddat
zentel2=tel
zenrec=" "
search=3,zenkode:&8520,e,zenrec
&8520
zenkla=ledkode
zendat=right(ndat,2)+substr(ndat,4,2)+left(ndat,2)
insert=3,zenkode:&8550,e,zenrec
goto &8560
&8550
modif=3,zenkode:&8550,e,zenrec
&8560
zenkla=klkode
zendat=olddat
delete=3,zenkode:&8570,e
&8570
next tel
goto &200
&9000
print=1:tab(01,23),zenkla,zentel,zentel2
print=1:tab(01,24),atb(21)
j=" "
ask=1,i=&200,u=&200,/80=&8500:tab(01,24),"O.K. om te schrappen  Y-N : "=j
j=large(j)
if j="Y" : goto  &9010
if j="N" : goto  &200
goto &9000
&9010
for tel=1 to 100
zentel2=tel
delete=3,zenkode:&9015,e
goto &9020
&9015
print=1:tab(01,24),e
&9020
next tel
goto &200
eseg 0

segment 2
goto &15
&1
ret.seg
&15
print=1:tab(01,05),atb(22)
ask=1,i=&1,u=&1:tab(01,05),"Geef leverancierskode",esc,levkode,tab(37)=levkode
levkode=large(levkode)
if levkode=" " : goto  &15
search=4,levkode:&20,e,levrec
goto &40
&20
ask=1,i=&15,u=&15,/8a=&22,/8b=&24:tab(01,24),paint(kh,ka),"Leverancier",ng,paint(kt,0),fvoor,voor,fvolg,volg=j
goto &15
&22
up=4:&23,e,levdown
goto &40
&23
ask=1,i=&15,u=&15,/8b=&24:tab(01,24),paint(kh,ka),berb,paint(kt,0),fvolg,volg=j
goto &15
&24
down=4:&25,e,levdown
goto &40
&25
ask=1,i=&15,u=&15,/8a=&22:tab(01,24),paint(kh,ka),bere,paint(kt,0),fvoor,voor=j
goto &15
&40
print=1:tab(01,05),atb(22)
print=1:tab(01,05),"Leverancierskode : ",levkode
print=1:tab(01,07),"Naam",tab(20),": ",paint(kh,ka),left(levnaam,len$(levnaam)),paint(kt,0)
print=1:tab(01,08),"Straat & nr.",tab(20),": ",levstraa
print=1:tab(01,09),"Gemeente",tab(20),": ",levgem
print=1:paint(kl,0),tab(01,11),gener(79,hto),paint(kt,0)
&50
ask=1,i=&60,u=&15,/8a=&22,/8b=&24:tab(01,24),"Geef tav : "=levtwnaam
&60
ledkode=large(levkode)
lednaam=levnaam
ledtwnaam=levtwnaam
ledstra=levstraa
ledgem=levgem
&80
goto &1
eseg 2

segment 4
goto &600
&200
ret.seg 
&300
phil=3
goto &200
&600
phil=0
lijntel=6
print=1:clear,paint(kh,ka),naam,paint(kt,0),"  OVERZICHT BRIEVEN ",tab(70),ndat
print=1:paint(kl,0),tab(01,02),gener(79,hto),paint(kt,0)
testd(1)=ndat
inldat1=testd(1)
goto &610
&605
testd(1)="00.00.00"
inldat1=testd(1)
&610
ask=1,i=&200,u=&200,/80=&605:tab(01,04),"Geef datum : ",inldat1,tab(14)=inldat1
if len$(inldat1)<>6 : goto  &615
inldat1=left(inldat1,2)+"."+substr(inldat1,3,2)+"."+substr(inldat1,5,2)
&615
testd(1)=left(inldat1,len$(inldat1))+right(testd(1),8-len$(inldat1))
if substr(testd(1),3,1)<>"." : goto  &610
if substr(testd(1),6,1)<>"." : goto  &610
if len$(testd(1))<>8 : goto  &610
print=1:tab(14,04),testd(1) 
dat=testd(1)
ldgo.seg 200
ttest1=test1
&700
print=1:tab(01,05),atb(22)
zenkode=" "
ask=1,i=&200,u=&200:tab(01,05),"Geef beginkode : ",zenkla,tab(18)=zenkla
zenkla=shl(large(zenkla))
&704
print=1:tab(01,03),atb(22)
print=1:tab(01,04),"  Nr  Klant                   Brief"
print=1:paint(kl,0),tab(01,05),gener(79,hto),paint(kt,0)
zentel=0
zentel2=0
search=3,zenkode:&706,e,zenrec
goto &710
&705
up=3:&709,e,zendown
goto &710
&706
if phil=1 : goto  &705
down=3:&709,e,zendown
goto &710
&709
zoek=0
print=1:tab(01,24),atb(21)
ask=1,i=&200,u=&700:tab(01,24),paint(kh,ka),bere,paint(kt,0),num,ret=zoek
if zoek=0 : goto  &600
if zoek<6 : goto  &709
if zoek>(lijntel-1) : goto  &709
zenkode=tabnum(zoek)
search=3,zenkode:&600,e,zenrec
phil=2
search=5,zenkla:&300,e,ledrec
goto &200
&710
testd(1)=right(zendat,2)+"."+substr(zendat,3,2)+"."+left(zendat,2)
dat=testd(1)
ldgo.seg 200
ttest2=test1
if ttest2<ttest1 : goto  &706
if zenrec=space(65) : goto &706
print=1:tab(01,lijntel),paint(kn,ka),(--),lijntel,(e),paint(kn,ka2),(-3),zentel,(e)," ",paint(kt,ka5),zenkla," ",paint(kt,ka),left(zenrec,65),paint(kt,0)
tabnum(lijntel)=zenkode
lijntel=lijntel+1
if lijntel<22 : goto  &706
&713
zoek=0
print=1:tab(01,24),atb(21)
ask=1,i=&200,u=&200,"t"=&715,"T"=&715:tab(01,24),paint(kh,ka),bla,paint(kt,0)," T=terug ",num,ret=zoek
if zoek=0 : goto  &714
if zoek<6 : goto  &713
if zoek>(lijntel-1) : goto  &713 
zenkode=tabnum(zoek)
search=3,zenkode:&714,e,zenrec
phil=2
search=5,zenkla:&300,e,ledrec
goto &200
&714
for lijntel=6 to 24
tabnum(lijntel)=" "
next lijntel
print=1:tab(01,06),atb(22)
lijntel=6
goto &706
&715
if phil=1 : goto  &716
phil=1
goto &717
&716
phil=0
&717
goto &714
eseg 4

segment 5
open=9:&100,e
open=3:&100,e
&10
down=9:&100,e,tekdown
op &200,e
zenkla=tektyp
zentel=1
zentel2=tektel
zendat="500101"
tekrec=" "
search=9,tekkode:&15,e,tekrec
&15
zenrec=tekrec
insert=3,zenkode:&16,e,zenrec
goto &20
&16
modif=3,zenkode:&20,e,zenrec
&20
print=1:tabv(01),tektyp," ",tekrec
goto &10
&100
ret.seg 
&200
if e=83 : goto  &100
if e=115 : goto  &100
eseg 5

segment 200
test1=conv(right(dat,2))
test1=test1+1900
if test1>1950 : goto  &10
test1=test1+100
&10
test1=test1*372
test2=conv(substr(dat,4,2))
test2=test2*31
test1=test1+test2
test2=conv(left(dat,2))
test1=test1+test2
ret.seg
eseg 200
end


end

est1=test1+test2
ret.seg
eseg 200
end

)
test1=test1+test2
(dat,2))
test1=test1+test2
ret.seg
eseg 200
end

)
test1=test1+test2
(dat,2))
test1=test1+test2
ret.seg
eseg 200
end

)
test1=test1+test2