program "ADRESSEN"

dcl selzoek$=30,selsoort$=1,selrec$=510
dcl newkode$=8,tabel$=8(25)
dcl x%,selindex%,selind2%

dcl adrdown$=519
field=m,adrdown
dcl adrkode$=8,filler=1,adrrec$=255(2)
field=m,adrrec(1)
dcl adrnaam$=30,adrnaam2$=30,adrstra$=30,adrpost$=4,adrgem$=30,adrland$=20
dcl adrtelf$=20,adrfax$=20,adrgsm$=20,adrmail$=40,adrbirth$=10,adrext$=50
dcl adrsoort$=1
field=m

#INCLUDE  "CRINCLU"
#INCLUDE  "CRINCLU2"

assign=45,"IM0",wr,ex,im

assign=02,left(bestand(04),3)+"ADR",wr,si
assign=04,left(bestand(04),3)+"KLA",wr,si
assign=05,left(bestand(05),3)+"LEV",wr,si
assign=09,left(bestand(05),3)+"TAD",wr,si

open=2:&7,e
goto &10
&7
cfile=2,d=510,lk=8 
&10
open=9:&11,e
goto &20
&11
cfile=9,d=70,lk=9 

&20
print=1:clear,paint(kh,ka),naam,paint(kt,0),"  ADRESSENBEHEER  ",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  F2=Lijst  F3=Etiket                                          ",paint(kt,0)
&25
print=1:tab(01,05),atb(22)
ask=1,i=&1,u=&1,/80=&4000,/81=&5000,/82=&6000,/83=&8000,/84=&9000,/8a=&2000,/8b=&3000:tab(01,05),"Geef naamkode",esc,adrkode,tab(29)=adrkode
if adrkode=" " : goto  &25
adrkode=large(adrkode)

search=2,adrkode:&30,e,adrrec(1),510
goto &40
&30
print=1:tab(01,24),atb(21)
ask=1,i=&20,u=&20,"nN"=&35:tab(01,24),paint(kh,ka),"Naam",ng,paint(kt,0)," ",paint(kh,ka),"N",paint(kt,0),"=nieuw  "=j
goto &20
&35
adrrec(1)=" "
adrrec(2)=" "
adrland="BELGIE"
adrbirth="  -  -"
insert=2,adrkode:&20,e,adrrec(1),510
&40
print=1:tab(01,05),atb(22)
print=1:tab(01,05),"Kode",tab(20),": ",adrkode,"."
print=1:tab(01,06),"Naam",tab(20),": ",adrnaam,"."
print=1:tab(01,07),"Naam 2",tab(20),": ",adrnaam2,"."
print=1:tab(01,08),"Straat",tab(20),": ",adrstra,"."
print=1:tab(01,09),"Postnr gemeente",tab(20),": ",adrpost," ",adrgem,"."
print=1:tab(01,10),"Land",tab(20),": ",adrland,"."
print=1:tab(01,11),"Telefoon",tab(20),": ",adrtelf,"."
print=1:tab(01,12),"Fax",tab(20),": ",adrfax,"."
print=1:tab(01,13),"Gsm",tab(20),": ",adrgsm,"."
print=1:tab(01,14),"E-mail",tab(20),": ",adrmail,"."
print=1:tab(01,15),"Geboren op",tab(20),": ",adrbirth,"."
print=1:tab(01,16),"Extra",tab(20),": ",adrext,"."
print=1:tab(01,17),"Soort",tab(20),": ",adrsoort,"."
print=1:tab(01,20),gener(79,hto)
&50
ask=1,i=&20,u=&20,/80=&51,/85=&7000,/8a=&2000,/8b=&3000:tab(22,06)=adrnaam
goto &60
&51
delete=2,adrkode:&20,e
down=2:&20,e,adrdown
goto &40
&60
ask=1,i=&200,u=&50,/8a=&2000,/8b=&3000:tab(22,07)=adrnaam2 
&70
ask=1,i=&200,u=&60:tab(22,08)=adrstra
&80
ask=1,i=&200,u=&70:tab(22,09)=adrpost
&85
ask=1,i=&200,u=&80:tab(27,09)=adrgem
&90
ask=1,i=&200,u=&85:tab(22,10)=adrland
&100
ask=1,i=&200,u=&90:tab(22,11)=adrtelf 
&110
ask=1,i=&200,u=&100:tab(22,12)=adrfax 
&120
ask=1,i=&200,u=&110:tab(22,13)=adrgsm 
&130
ask=1,i=&200,u=&120:tab(22,14)=adrmail
&140
ask=1,i=&200,u=&130:tab(22,15)=adrbirth
&150
ask=1,i=&200,u=&140:tab(22,16)=adrext 
&160
print=1:tab(01,24),atb(22)
ask=1,i=&200,u=&150:tab(22,17)=adrsoort
adrsoort=large(adrsoort)

&200
j=" "
print=1:tab(01,22),atb(22)
ask=1,i=&20,u=&160,/80=&1000:tab(01,24),paint(kh,ka),vali,paint(kt,0)," (A=annulatie) (F1=Nieuwe kode) : "=j
j=large(j)
if j="N" : goto  &20
if j="Y" : goto  &250
if j="A" : goto  &210
goto &200
&210
delete=2,adrkode:&20,e
goto &20
&250
insert=2,adrkode:&255,e,adrrec(1),510
goto &20
&255
modif=2,adrkode:&260,e,adrrec(1),510
goto &20
&260
print=1:tab(01,24),"Fout : ",e," ",adrkode
stop

&1000
print=1:tab(01,24),atb(21)
ask=1,i=&200,u=&200:tab(01,24),"Geef nieuwe kode : "=newkode
newkode=large(newkode)
if newkode=" " : goto  &1000
insert=2,newkode:&1010,e,adrrec(1),510
delete=2,adrkode:&1050,e
goto &20
&1010
if e=81 : goto  &1020
print=1:tab(01,24),"Fout insert newkode : ",e," ",adrkode
stop
&1020
print=1:tab(01,24),atb(21)
ask=1,i=&1000,u=&1000:bell,tab(01,24),"Deze kode bestaat reeds :",ret=j
goto &1000
&1050
if e=78 : goto  &20
print=1:tab(01,24),"Fout delete : ",e," ",adrkode
stop

&2000
up=2:&2005,e,adrdown
goto &40
&2005
print=1:tab(01,24),atb(21)
ask=1,i=&20,u=&20,/8b=&3000:tab(01,24),paint(kh,ka),berb,paint(kt,0),fvolg,volg=j
goto &20

&3000
down=2:&3005,e,adrdown
goto &40
&3005
print=1:tab(01,24),atb(21)
ask=1,i=&20,u=&20,/8a=&2000:tab(01,24),paint(kh,ka),bere,paint(kt,0),fvoor,voor=j
goto &20

&4000
adrkode=" "
l6=6
print=1:tab(03,03),paint(kh,ka),"  OVERZICHT ADRESSEN                                                       ",paint(kt,0)
&4001
print=1:tab(01,05),atb(22)
ask=1,i=&20,u=&20:tab(01,05),paint(kh,ka),"Geef selectie",paint(kt,0)," : ",selzoek,tab(17)=selzoek
selzoek=large(selzoek)
&4005
ask=1,i=&20,u=&4001:tab(01,07),paint(kh,ka),"Geef soort",paint(kt,0)," : ",selsoort,tab(14)=selsoort
selsoort=large(selsoort)
print=1:tab(01,05),atb(22)
print=1:tab(01,05),paint(kh,ka),tab(03),"Nr",tab(08),"Kode",tab(19),"Naam",tab(60),"Gemeente",paint(kt,0)
open=2:&20,e
&4010   
down=2:&4060,e,adrdown
selindex=0
selind2=0
selrec=adrrec(1)+adrrec(2)
selindex=index(selrec,selzoek)
selind2=index(adrsoort,selsoort)
if selzoek=" " : goto &4015
if selindex=0 : goto &4010
&4015
if selsoort=" " : goto &4025
if selind2=0 : goto &4010
&4025
print=1:tab(01,l6),paint(kt,ka4),gener(80," "),paint(kt,0)
if adrsoort=" "
print=1:tab(01,l6),paint(kn,ka2),"  ",(n2),l6,(e)," ",paint(kt,ka2),"  ",adrkode,"  ",paint(kt,ka3)," ",left(adrnaam,len$(adrnaam))," ",left(adrnaam2,len$(adrnaam2)),tab(60),paint(kn,ka5),adrpost+" "+left(adrgem,16),paint(kt,0)
goto &4030
endif
if adrsoort="K"
print=1:tab(01,l6),paint(kn,ka),"  ",(n2),l6,(e)," ",paint(kt,ka2),"  ",adrkode,"  ",paint(kt,ka3)," ",left(adrnaam,len$(adrnaam))," ",left(adrnaam2,len$(adrnaam2)),tab(60),paint(kn,ka5),adrpost+" "+left(adrgem,16),paint(kt,0)
goto &4030
endif
if adrsoort="L"
print=1:tab(01,l6),paint(kn,ka),"  ",(n2),l6,(e)," ",paint(kt,ka2),"  ",adrkode,"  ",paint(kt,ka)," ",left(adrnaam,len$(adrnaam))," ",left(adrnaam2,len$(adrnaam2)),tab(60),paint(kn,ka5),adrpost+" "+left(adrgem,16),paint(kt,0)
goto &4030
endif
if adrsoort="F"
print=1:tab(01,l6),paint(kn,ka),"  ",(n2),l6,(e)," ",paint(kt,ka2),"  ",adrkode,"  ",paint(kt,ka2)," ",left(adrnaam,len$(adrnaam))," ",left(adrnaam2,len$(adrnaam2)),tab(60),paint(kn,ka5),adrpost+" "+left(adrgem,16),paint(kt,0)
goto &4030
endif
if adrsoort="R"
print=1:tab(01,l6),paint(kn,ka),"  ",(n2),l6,(e)," ",paint(kt,ka2),"  ",adrkode,"  ",paint(kt,ka3)," ",left(adrnaam,len$(adrnaam))," ",left(adrnaam2,len$(adrnaam2)),tab(60),paint(kn,ka5),adrpost+" "+left(adrgem,16),paint(kt,0)
goto &4030
endif
if adrsoort="V"
print=1:tab(01,l6),paint(kn,ka),"  ",(n2),l6,(e)," ",paint(kt,ka2),"  ",adrkode,"  ",paint(kt,ka4)," ",left(adrnaam,len$(adrnaam))," ",left(adrnaam2,len$(adrnaam2)),tab(60),paint(kn,ka5),adrpost+" "+left(adrgem,16),paint(kt,0)
goto &4030
endif
print=1:tab(01,l6),paint(kn,ka2),"  ",(n2),l6,(e)," ",paint(kt,ka2),"  ",adrkode,"  ",paint(kt,ka3)," ",left(adrnaam,len$(adrnaam))," ",left(adrnaam2,len$(adrnaam2)),tab(60),paint(kn,ka5),adrpost+" "+left(adrgem,16),paint(kt,0)
&4030
tabel(l6)=adrkode
l6=l6+1
if l6<22 : goto  &4010
i=0
ask=1,i=&20,u=&20:tab(01,24),paint(kh,ka),bla,paint(kt,0),num,ret,esc,(n2)=i
&4040
if i<6 : goto  &4050
if i>l6-1 : goto  &4050
adrkode=tabel(i)
search=2,adrkode:&4010,e,adrrec(1),510
print=1:clear,paint(kh,ka),naam,paint(kt,0),"  ADRESSENBEHEER  ",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  F2=LIJST  F3=ETIKET                                          ",paint(kt,0)
goto &40
&4050
print=1:tab(01,06),atb(22)
l6=6
goto &4010
&4060
i=0
ask=1,i=&20,u=&20:tab(01,24),paint(kh,ka),bere,paint(kt,0),num,ret,esc,(n2)=i
&4070
if i<6 : goto  &20
if i>l6-1 : goto  &20
adrkode=tabel(i)
search=2,adrkode:&20,e,adrrec(1),510
print=1:clear,paint(kh,ka),naam,paint(kt,0),"  ADRESSENBEHEER  ",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  F2=Lijst  F3=Etiket                                          ",paint(kt,0)
goto &40

&5000
adrkode=" "
print=1:tab(03,03),paint(kh,ka),"  AFDRUKKEN ADRESSEN                                                       ",paint(kt,0)
&5001
print=1:tab(01,05),atb(22)
ask=1,i=&20,u=&20:tab(01,05),paint(kh,ka),"Geef selectie",paint(kt,0)," : ",selzoek,tab(17)=selzoek
selzoek=large(selzoek)
&5005
ask=1,i=&20,u=&5001:tab(01,07),paint(kh,ka),"Geef soort",paint(kt,0)," : ",selsoort,tab(14)=selsoort
selsoort=large(selsoort)
open=2:&20,e
l6=0
print=45:atb(6)
print=45:atb(70)
print=45:tabv(01),tab(05),"Kode     Naam",tab(50),"Straat",tab(85),"Gemeente",tab(115),adrtelf
print=45:tabv(01),gener(132,hto)
print=45:tabv(01)
lijntel=3
&5010   
down=2:&5060,e,adrdown
selindex=0
selind2=0
selrec=adrrec(1)+adrrec(2)
selindex=index(selrec,selzoek)
selind2=index(adrsoort,selsoort)
if selzoek=" " : goto &5015
if selindex=0 : goto &5010
&5015
if selsoort=" " : goto &5025
if selind2=0 : goto &5010
&5025
l6=l6+1
print=45:tabv(01),(n3),l6,(e)," ",adrkode," ",left(adrnaam,len$(adrnaam))," ",left(adrnaam2,len$(adrnaam2)),tab(50),adrstra,tab(85),adrpost+" "+left(adrgem,len$(adrgem))

if adrtelf=" "
adrtelf=adrgsm
endif

print=45:tab(115),adrtelf
print=45:tabv(01),gener(132,hto)
lijntel=lijntel+2
if lijntel<68 : goto &5010
print=45:page
print=45:tabv(01),tab(05),"Kode     Naam",tab(50),"Straat",tab(85),"Gemeente",tab(115),"Telefoon"
print=45:tabv(01),gener(132,hto)
print=45:tabv(01)
lijntel=3
goto &5010
&5060
print=45:tabv(01),"* Einde *",gener(123,hto)
print=45:page
close=45
adrkode=" "
goto &20

&6000
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)," ETIKETTEN                                                                ",paint(kt,0)
&6010
print=1:tab(01,05),atb(22)
ask=1,i=&20,u=&20,/8a=&6050,/8b=&6030:tab(01,05),"Geef naamkode",esc,adrkode,tab(29)=adrkode
adrkode=large(adrkode)
if adrkode=" " : goto  &6010
search=2,adrkode:&6025,e,adrrec(1),510
goto &6100
&6025
print=1:tab(01,24),atb(21)
ask=1,i=&6010,u=&6010,/8a=&6050,/8b=&6030:tab(01,24),paint(kh,ka),"Naam",ng,paint(kt,0),fvoor,voor,fvolg,volg=j
goto &6010
&6030
down=2:&6040,e,adrdown
goto &6100
&6040
print=1:tab(01,24),atb(21)
ask=1,i=&6010,u=&6010,/8a=&6050:tab(01,24),paint(kh,ka),bere,paint(kt,0),fvoor,voor=j
goto &6010
&6050
up=2:&6060,e,adrdown
goto &6100
&6060
print=1:tab(01,24),atb(21)
ask=1,i=&6010,u=&6010,/8b=&6030:tab(01,24),paint(kh,ka),berb,paint(kt,0),fvolg,volg=j
goto &6010
&6100
print=1:tab(01,05),atb(22)
print=1:tab(01,05),"Naamkode : ",adrkode
print=1:tab(01,07),"Naam",tab(20)," : ",paint(kh,ka),left(adrnaam,len$(adrnaam)),paint(kt,0)
print=1:tab(01,08),"Straat en nr.",tab(20)," : ",adrstra
print=1:tab(01,09),"Gemeente",tab(20)," : ",adrgem
print=1:paint(kl,0),tab(01,11),gener(79,hto),paint(kt,0)
&6110
j=" "
print=1:tab(01,13),atb(21)
ask=1,i=&6010,u=&6010,/8a=&6050,/8b=&6030:tab(01,13),"Etiket  Y-N : "=j
j=large(j)
if j="N" : goto  &6010
if j<>"Y" : goto  &6110
print=45:atb(6)
print=45:atb(71)
print=45:tabv(15),tab(65),"Aan ",left(adrnaam,len$(adrnaam))," ",adrnaam2
print=45:tabv(01),tab(65),adrstra
print=45:tabv(01),tab(65),adrpost," ",adrgem

if left(adrland,2)<>"BE"
print=45:tabv(01),tab(65),adrland
x=len$(adrland)+1
print=45:tabv(01),tab(65),gener(x,hto)
goto &6120
endif

x=len$(adrpost)+len$(adrgem)+1
print=45:tabv(01),tab(65),gener(x,hto)
&6120
print=45:page
close=45
goto &6000

&7000
print=1:clear,paint(kh,ka),naam,paint(kt,0),"  BIJKOMEND SCHERM VOOR : ",adrnaam
print=1:paint(kl,0),tab(01,02),ltb,gener(77,hto),rtb,tab(06),mtb
for tektel=1 to 20
print=1:tab(01,tektel+2),vte,tab(06),vte,tab(79),vte
next tektel
print=1:tab(01,23),lto,gener(77,hto),rto,tab(06),mto,paint(kt,0)
tektyp=adrkode
&7001
for tektel=1 to 20
tekrec=" "
search=9,tekkode:&7002,e,tekrec
&7002
print=1:tab(02,tektel+2),(-3),tektel,(e),tab(08),(u70),tekrec
next tektel
&7100
tektel=1
&7101
if tektel<1 : goto  &20   
if tektel>20 : goto  &20   
tekrec=" "
search=9,tekkode:&7102,e,tekrec
&7102
ask=1,i=&20,u=&7106:tab(08,tektel+2)=tekrec
&7103
insert=9,tekkode:&7104,e,tekrec
goto &7105
&7104
modif=9,tekkode:&7105,e,tekrec
&7105
tektel=tektel+1
goto &7101
&7106
tektel=tektel-1
goto &7101

&8000
ldgo.seg 1
goto &20

&9000
ldgo.seg 2
goto &20

eseg 0

segment 1

goto &100
&1
ret.seg
&100
open=4:&1,e
&110
down=4:&1,e,kldown
adrrec(1)=" "
adrrec(2)=" "
adrkode=klkode
adrnaam=klnaam
adrstra=klstra
adrpost=left(klgem,4)
x=len$(klgem)
x=x-5
adrgem=substr(klgem,6,x)

if klland="B"
adrland="BELGIE"
endif

adrtelf=kltelef
adrfax=klfax
adrgsm=klgsm
adrsoort="K"
insert=2,adrkode:next,e,adrrec(1),510
modif=2,adrkode:next,e,adrrec(1),510
goto &110

eseg 1

segment 2

goto &100
&1
ret.seg

&100
open=5:&1,e
&110
down=5:&1,e,levdown
adrrec(1)=" "
adrrec(2)=" "
adrkode=levkode
adrnaam=levnaam
adrstra=levstraa
adrpost=left(levgem,4)
x=len$(levgem)
x=x-5
adrgem=substr(levgem,6,x)

if levland="B"
adrland="BELGIE"
endif

adrtelf=levtele
adrfax=levfax
adrsoort="L"
insert=2,adrkode:next,e,adrrec(1),510
modif=2,adrkode:next,e,adrrec(1),510
goto &110

eseg 2

end