program "KLANTEN" 

dcl koper%,x%,gemid=6,gemid2=6,tabgroot=6(20),totdag=6(20)
dcl klein=6,groot=6,newklant$=8
dcl tabhis$=12(18),winst=6(12),totaal=6(12),tot=6,maanden$=10(12),oldklant$=8
dcl aant=6,aant2=6,aantal=6(12),bedrag=6(12),totw=6(12),totwinst=6
dcl oldkode$=12,olddat$=8
dcl selart$=4,selma1%,selma2%,selma3%,selma4%,selmaand%,selkode$=10
dcl totart=6,percent=6,omzet=6
dcl totaal2=6

#INCLUDE  "CRINCLU"
#INCLUDE  "CRINCLU2"             

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

assign=02,bestand(05),wr,si                  ;artikel bestand
assign=03,left(bestand(04),3)+"HKA",wr,si    ;historiek klanten
assign=11,bestand(04),wr,si                  ;klantenbestand
assign=12,bestand(03),wr,si                  ;leverancierbestand

open=2:&1,e
open=11:&1,e
open=3:&7,e
goto &10
&7
cfile=3,d=200,lk=12:&1,e
&10
maanden(1)="JAN"
maanden(2)="FEB"
maanden(3)="MRT"
maanden(4)="APR"
maanden(5)="MEI"
maanden(6)="JUN"
maanden(7)="JUL"
maanden(8)="AUG"
maanden(9)="SEP"
maanden(10)="OKT"
maanden(11)="NOV"
maanden(12)="DEC"
dat=ndat
ldgo.seg 200
tndat=test1
testd(1)=ndat
goto &100

&70
ldgo.seg 1
goto &100

&91
ldgo.seg 8
goto &100

&100
print=1:clear,paint(kh,ka),naam,atb(0),"  KLANT-HISTORIEKEN ",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,atb(0)
print=1:tab(03,03),paint(kh,ka),"F1=Overzicht  F2=Afdruk hist.  F3-F4=Schrappen",atb(0)
&105
print=1:tab(01,05),atb(22)
&106
ask=1,i=&1,u=&1,/80=&70,/81=&91,/82=&2000,/83=&1000,/8a=&117,/8b=&119:tab(01,05),"Geef klantenkode",esc,klkode,tab(32)=klkode
if klkode=" " : goto  &106
klkode=large(klkode)   
search=11,klkode:&115,e,klrec     
goto &130
&115
print=1:tab(01,24),atb(21)
ask=1,i=&105,u=&105,/8a=&117,/8b=&119:tab(01,24),paint(kh,ka),"Klant",ng,atb(0),fvoor,voor,fvolg,volg=j
goto &105
&117    
up=11:&118,e,kldown
goto &130
&118
print=1:tab(01,24),atb(21)
ask=1,i=&105,u=&105,/8b=&119:tab(01,24),paint(kh,ka),berb,atb(0),fvolg,volg=j
goto &105
&119
down=11:&120,e,kldown
goto &130
&120
print=1:tab(01,24),atb(21)
ask=1,i=&105,u=&105,/8a=&117:tab(01,24),paint(kh,ka),bere,atb(0),fvoor,voor=j
goto &105
&130
print=1:tab(01,05),atb(22)
print=1:tab(01,05),"Klantenkode : ",klkode
print=1:tab(01,07),"Naam klant",tab(20),": ",paint(kh,ka),left(klnaam,len$(klnaam)),atb(0)
print=1:tab(01,08),"Adres     ",tab(20),": ",klstra
print=1:tab(01,09),"Gemeente  ",tab(20),": ",klgem
print=1:paint(kl,0),tab(01,11),gener(79,hto),atb(0)
&135
print=1:tab(01,24),atb(21)
print=1:tab(01,24),paint(kh,ka),"F1=nieuwe kode  F2=schrappen",atb(0)
ask=1,i=&100,u=&100,/80=&1100,/81=&1400,/8a=&117,/8b=&119:tab(01,13),"Deze klant  Y-N : ",j,tab(19)=j
j=large(j)
if j="N" : goto  &105
print=1:clear,paint(kh,ka),klnaam,atb(0)," ",klkode," ",klgem
print=1:tab(01,02),ltb,gener(78,hto),rtb
print=1:tab(01,03),vtb," Kode ",tab(10),"Artikel",tab(40),vte,tab(50),vte,tab(60),vte,tab(70),vte,tab(80),vte
print=1:tab(01,04),lto,gener(78,hto),rto
&135a
selma1=conv(substr(ndat,4,2))
selma4=selma1
selma1=selma1-2
if selma1>0 : goto  &140
selma1=selma1+12
&140
ask=1,i=&100,u=&100:tab(01,23),"Geef maand selektie  1--12 : ",(n2),selma1,tab(30)=selma1
if selma1<1 : goto  &140
if selma1>12 : goto  &140
selma2=selma1+1
if selma2<13 : goto  &141
selma2=1
&141
selma3=selma2+1
if selma3<13 : goto  &142
selma3=1
&142
print=1:tab(43,03),(-3),selma1,tab(53),selma2,tab(63),selma3,tab(72),(e),"1-",(n2),selma4
lijntel=5
klhklant=klkode
klhart=" "
search=3,klhkode:&150,e,klahrec
&150
if j="T" : goto  &155
down=3:&300,e,klarhis
goto &160
&155
up=3:&300,e,klarhis
&160
if klhklant<>klkode : goto  &300
artkey=klhart
aant=0
aant2=0
for e=1 to 12
aant=aant+klhaant(e)
aant2=aant2+klhbed(e)
next e
dat=klhdat
ldgo.seg 200
ttest1=test1
dat=ndat
ldgo.seg 200
tndat=test1
ttest1=ttest1+240
if ttest1<tndat : goto  &180
&170
search=2,artkey:&180,e,artrec(1),750
goto &210
&180
delete=3,klhkode:&150,e
goto &150
&210
print=1:tab(01,lijntel),klhart,tab(10),paint(kh,ka),artoms,atb(0),tab(40),vte,(-6.n2),klhaant(selma1),tab(51),klhaant(selma2),tab(61),klhaant(selma3),tab(71),aant,tab(50),(u),vte,tab(60),vte,tab(70),vte,tab(80),vte
print=1:tab(01,lijntel+1),klhdat,tab(40),vte,tab(50),vte,tab(60),vte,tab(70),vte,tab(79),vte
print=1:tab(41,lijntel+1),paint(kh,ka),(-6.n2),klhbed(selma1),tab(51),klhbed(selma2),tab(61),klhbed(selma3),tab(71),aant2,atb(0),tab(80),(u),vte
print=1:tab(01,lijntel+2),gener(80,hto)
lijntel=lijntel+3
&220
if lijntel<23 : goto  &150
print=1:tab(01,24),atb(21)
j=" "
ask=1,i=&100,u=&100:tab(01,24),paint(kh,ka),bla,atb(0)," ",paint(kh,ka),"T",atb(0),"=terug",ret=j
j=large(j)
print=1:tab(01,05),atb(22)
lijntel=5
goto &150
&300
print=1:tab(01,24),atb(21)
j=" "
ask=1,i=&100,u=&100:tab(01,24),paint(kh,ka),bere,atb(0)," ",paint(kh,ka),"T",atb(0),"=terug",ret=j
j=large(j)
print=1:tab(01,05),atb(22)
lijntel=5
if j="T" : goto  &155
goto &100
&990
print=1:bell
selma1=13
goto &1001
&1000
print=1:tab(01,10),atb(21)
selma1=0
print=1:tab(01,05),paint(kh,ka),"F1=nulstelling van alle maanden ",atb(0)
ask=1,i=&100,u=&100,/80=&990:tab(01,06),paint(kh,ka),"nulstelling :",atb(0)," Geef maand op  1--12 : "=selma1
if selma1<1 : goto  &1000
if selma1>12 : goto  &1000
&1001
open=3:&1,e
&1005
down=3:&100,e,klarhis
op &1030,e
&1010
if selma1=13 : goto  &1011
klhaant(selma1)=0
klhbed(selma1)=0
goto &1015
&1011
for tel=1 to 12 
klhaant(tel)=0
klhbed(tel)=0
next tel
&1015
print=1:tab(01,24),klhklant," ",klhart
modif=3,klhkode:&1020,e,klahrec
goto &1005
&1020
print=1:tab(01,24),"Fout modif klhkode : ",e," ",klhkode
stop
&1030
if e=83 : goto  &100
if e=115 : goto  &100
goto &1010

&1100
; nieuwe klantenkode van bestaande historiek
oldklant=klkode
&1105
print=1:tab(01,05),atb(22)
ask=1,i=&105,u=&105,/8a=&1117,/8b=&1119:tab(01,05),"Geef nieuwe klantenkode",esc=klkode
if klkode=" " : goto  &1105
klkode=large(klkode)   
search=11,klkode:&1115,e,klrec     
goto &1130
&1115
print=1:tab(01,24),atb(21)
ask=1,i=&1105,u=&1105,/8a=&1117,/8b=&1119:tab(01,24),paint(kh,ka),"Klant",ng,atb(0),fvoor,voor,fvolg,volg=j
goto &1105
&1117    
up=11:&1118,e,kldown
goto &1130
&1118
print=1:tab(01,24),atb(21)
ask=1,i=&1105,u=&1105,/8b=&1119:tab(01,24),paint(kh,ka),berb,atb(0),fvolg,volg=j
goto &1105
&1119
down=11:&1120,e,kldown
goto &1130
&1120
print=1:tab(01,24),atb(21)
ask=1,i=&1105,u=&1105,/8a=&1117:tab(01,24),paint(kh,ka),bere,atb(0),fvoor,voor=j
goto &1105
&1130
print=1:tab(01,05),atb(22)
print=1:tab(01,05),"Klantenkode : ",klkode
print=1:tab(01,07),"Naam klant",tab(20),": ",paint(kh,ka),left(klnaam,len$(klnaam)),atb(0)
print=1:tab(01,08),"Adres     ",tab(20),": ",klstra
print=1:tab(01,09),"Gemeente  ",tab(20),": ",klgem
print=1:tab(01,11),paint(kl,0),gener(79,hto),atb(0)
&1135
ask=1,i=&1105,u=&1105,/8a=&1117,/8b=&1119:tab(01,13),"Deze klant  Y-N : ",j,tab(19)=j
j=large(j)
if j="N" : goto  &1105
&1140
klhkode=oldklant
newklant=klkode
klhart=" "
&1150
search=3,klhkode:&1160,e,klahrec
&1160
down=3:&100,e,klarhis
if klhklant<>oldklant : goto  &100
delete=3,klhkode:&1160,e
klhklant=newklant
insert=3,klhkode:&1170,e,klahrec
goto &1180
&1170
modif=3,klhkode:&1180,e,klahrec
&1180
klhklant=oldklant
search=3,klhkode:&1160,e,klahrec
goto &1160

&1400
search=3,klkode:&1410,e,klahrec
&1410
down=3:&105,e,klarhis
if klkode<>klhklant : goto  &105 
delete=3,klhkode:&1410,e
print=1:tab(01,24),klhklant," ",klhart
goto &1410

&1900
ldgo.seg 5
goto &100

&2000
print=1:clear,paint(kh,ka),naam,atb(0),"  SCHRAPPEN OVERBODIGE DATA ",tab(70),ndat
print=1:paint(kl,0),tab(01,02),gener(79,hto),atb(0)
&2005
klhkode=" "
ask=1,i=&100,u=&100,/80=&1900:tab(01,05),"Geef beginkode : ",klhkode,tab(18)=klhkode
klhkode=large(klhkode)
&2010
search=3,klhkode:&2020,e,klahrec
&2020
down=3:&100,e,klarhis 
op &2050,e
&2025
artoms=" "
search=2,klhart:&2040,e,artrec(1),750
search=11,klhklant:&2040,e,klrec
print=1:tab(01,24),atb(21)
if klniet="Y" : goto  &2040
dat=klhdat
ldgo.seg 200
ttest1=test1
if teller(50)<>0 : goto  &2026
teller(50)=360 
par(3)=param3
&2026
ttest1=ttest1+conv(teller(50))
print=1:tab(01,20),klhklant," ",klhart," ",artoms," ",klhdat,(-10),ttest1-tndat
&2030
aant=0
for e=1 to 12
aant=aant+klhaant(e)
next e
if kodes(25)="Y" 
if aant=0 : goto  &2040
endif 
&2035
if ttest1>tndat : goto  &2020
print=1:tab(01,24),"Aantal ",(-8.n2),aant
ask=1,i=&100,u=&2020,"yY"=&2040:tab(20,24)," Schrappen  Y-N : "=j
goto &2020
&2040
delete=3,klhkode:&2020,e
goto &2020
&2050
if e=83 : goto  &100
if e=115 : goto  &100
goto &2025

eseg 0

segment 1

goto &200

&1
ret.seg

&200
print=1:clear,paint(kh,ka),naam,atb(0),"  NIET AFGENOMEN PRODUKTEN ",tab(70),ndat
print=1:paint(kl,0),tab(01,02),gener(79,hto),atb(0)
&201
print=1:tab(01,05),atb(22)
&202
ask=1,i=&1,u=&1,/8a=&217,/8b=&219:tab(01,05),"Geef klantenkode",esc,klkode,tab(32)=klkode
if klkode=" " : goto  &202
klkode=large(klkode)
&210
search=11,klkode:&212,e,klrec
goto &225
&212
print=1:tab(01,24),atb(21)
ask=1,i=&201,u=&201,/8a=&217,/8b=&219:tab(01,24),paint(kh,ka),"Klant",ng,atb(0),fvoor,voor,fvolg,volg=j
goto &201
&217
up=11:&218,e,kldown
goto &225
&218
print=1:tab(01,24),atb(21)
ask=1,i=&201,u=&201,/8b=&219:tab(01,24),paint(kh,ka),berb,atb(0),fvolg,volg=j
goto &201
&219
down=11:&220,e,kldown
goto &225
&220
print=1:tab(01,24),atb(21)
ask=1,i=&201,u=&201,/8b=&219:tab(01,24),paint(kh,ka),bere,atb(0),fvoor,voor=j
goto &201
&225
print=1:tab(01,05),atb(22)
print=1:tab(01,05),"Klantenkode : ",klkode
print=1:tab(01,06),"Naam",tab(20),": ",paint(kh,ka),left(klnaam,len$(klnaam)),atb(0)," ",klniet,atb(21)
print=1:tab(01,07),"Straat",tab(20),": ",klstra
print=1:tab(01,08),"Gemeente",tab(20),": ",klgem
print=1:paint(kl,0),tab(01,10),gener(79,hto),atb(0)
&230
ask=1,i=&200,u=&201,/8a=&217,/8b=&219,"aA"=&460:tab(01,12),"Deze klant  Y-N (A=annulatie) : ",j,tab(33)=j
j=large(j)
if j="N" : goto  &201
if j<>"Y" : goto  &230
&240
inldat1=testd(1)
print=1:tab(01,24),paint(kh,ka),"F1=manueel invoeren historiek artikels ",atb(0)
&241
ask=1,i=&200,u=&200,/80=&500:tab(01,14),"Geef uiterste datum op : ",testd(1),tab(26,14)=inldat1 
if len$(inldat1)<>6 : goto  &245
inldat1=left(inldat1,2)+"."+substr(inldat1,3,2)+"."+substr(inldat1,5,2)
&245
testd(1)=left(inldat1,len$(inldat1))+right(testd(1),8-len$(inldat1))
if substr(testd(1),3,1)<>"." : goto  &241
if substr(testd(1),6,1)<>"." : goto  &241
if len$(testd(1))<>8 : goto  &241
print=1:tab(26,14),testd(1)
dat=testd(1)
ldgo.seg 200
ttest1=test1
a=conv(conv(substr(testd(1),4,2)))
&250
lijntel=5
print=1:clear,paint(kh,ka),naam,atb(0),"  LIJST NIET GEKOCHTE PRODUKTEN ",tab(70),testd(1)
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,atb(0)
print=1:tab(03,03),paint(kt,0),klkode," ",klnaam,tab(47),"Datum",tab(65),"Aantal",atb(0)
&260
klhklant=klkode
klhart=" "
search=3,klhkode:&270,e,klahrec
&270
down=3:&310,e,klarhis
&275
if klkode<>klhklant : goto  &310
if klniet="Y" : goto  &290
dat=klhdat
ldgo.seg 200
ttest2=test1
if ttest2>ttest1 : goto  &270
&280
artkey=klhart
search=2,artkey:&290,e,artrec(1),750
goto &300
&290
delete=3,klhkode:&270,e
goto &270
&300
aant=0
for tel=1 to 12
aant=aant+klhaant(tel)
next tel
tabhis(lijntel-4)=klhkode
print=1:tab(01,lijntel),paint(kn,ka2),"   ",artkey,"  ",paint(kt,ka3),"  ",artoms,"  ",paint(kt,ka4),"   ",klhdat,"  ",paint(kn,ka5),"  ",(-12.n2),aant,atb(0)
lijntel=lijntel+1
if lijntel>22 : gosub  &320
goto &270
&310
for e=1 to lijntel-5
print=1:tab(01,e+4),paint(kh,ka),(n2),e,atb(0)
next e
print=1:tab(01,24),atb(21)
j=" "
ask=1,i=&200,u=&200,/80=&410,/81=&420:tab(01,24),paint(kh,ka),bere,atb(0)," F1-F2 ",ret,esc=j
goto &200
&320
for e=1 to lijntel-5
print=1:tab(01,e+4),paint(kh,ka),(n2),e,atb(0)
next e
print=1:tab(01,24),atb(21)
ask=1,i=&200,u=&200,/80=&410,/81=&420:tab(01,24),paint(kh,ka),bla,atb(0)," F1-F2 ",ret,esc=j
print=1:tab(01,05),atb(22)
lijntel=5
return
&410
tel=0
print=1:tab(01,24),atb(21)
ask=1,i=&450,u=&200:tab(01,24),"Geef lijnnummer te schrappen artikel : "=tel
if tel=0 : goto  &410
if tel<1 : goto  &410
if tel>lijntel-5 : goto  &410
klhkode=tabhis(tel)
delete=3,klhkode:&410,e
print=1:tab(47,tel+4),atb(21),tab(47),paint(kh,ka)," G  e  s  c  h  r  a  p  t ",atb(0)
goto &410
&420
print=1:tab(01,24),atb(21)
ask=1,i=&450,u=&200:tab(01,24),"Geef lijnnummer te wijzigen  artikel : "=tel
if tel=0 : goto  &420
if tel<1 : goto  &420
if tel>lijntel-5 : goto  &420
klhkode=tabhis(tel)
search=3,klhkode:&420,e,klahrec
print=1:tab(01,24),atb(21)
&430
ask=1,i=&450,u=&200:tab(01,24),"Geef maand : "=tel
if tel<1 : goto  &430
if tel>12 : goto  &430
&435
ask=1,i=&450,u=&430:tab(20,24),"Geef aantal : ",(-6.n2),klhaant(tel),tab(34)=aant
if aant=0 : goto  &435
klhaant(tel)=aant
artkey=klhart
search=2,artkey:&290,e,artrec(1),750
ask=1,i=&450,u=&435:tab(45,24),"Geef prijs : ",(-6.n2),artbedr(1),tab(58)=artbedr(1)
klhbed(tel)=aant*artbedr(1)
modif=3,klhkode:&420,e,klahrec
goto &420
&450
print=1:tab(01,05),atb(22)
lijntel=5
klhkode=tabhis(lijntel-4)
for tel=1 to 18
tabhis(tel)=" "
next tel
goto &270
&460
search=3,klkode:&470,e,klahrec
&470
down=3:&480,e,klarhis
if klkode<>klhklant : goto  &480
delete=3,klhkode:&470,e
print=1:tab(01,24),klhklant," ",klhart
goto &470
&480
goto &200

&500
print=1:clear,paint(kh,ka),naam,atb(0),"  MANUEEL INVOEREN KODEN ",tab(70),ndat
print=1:paint(kl,0),tab(01,02),gener(79,hto),atb(0)
&510
print=1:tab(01,05),atb(22)
ask=1,i=&200,u=&200,/8a=&521,/8b=&522:tab(01,05),"Geef artikelkode : ",artkey,tab(20),(n4)=artkey
if artkey=" " : goto  &510
&520
search=2,artkey:&510,e,artrec(1),750
print=1:tab(20,05),artkey 
print=1:tab(01,07),atb(21)
print=1:tab(01,07),paint(kh,ka),left(artoms,len$(artoms)),atb(0)
goto &530
&521
up=2:&510,e,artdown(1),768
goto &520
&522
down=2:&510,e,artdown(1),768
goto &520
&530
klhklant=klkode
klhart=shr(artkey)
&540
print=1:tab(01,24),atb(21)
ask=1,i=&510,u=&510,/8a=&521,/8b=&522:tab(01,10),"Bijvoegen  Y-N : ",j,tab(18)=j
j=large(j)
if j="Y" : goto  &550
goto &510
&550
klhdat=ndat
for e=1 to 12
klhbed(e)=0
klhaant(e)=0
next e
insert=3,klhkode:&560,e,klahrec
goto &510
&560    
if e=81 : goto  &510
print=1:tab(01,24),atb(21)
print=1:tab(01,24),"Fout insert klhkode : ",e,klhkode
stop

eseg 1

segment 5

goto &100
&1
ret.seg
&100
print=1:clear,paint(kh,ka),naam,atb(0),"  SCHRAPPEN HISTORIEKGEGEVENS KLANT ",tab(70),ndat
print=1:paint(kl,0),tab(01,02),gener(79,hto),atb(0)
&105
print=1:tab(01,05),atb(22)
&106
ask=1,i=&1,u=&1,/8a=&117,/8b=&119:tab(01,05),"Geef klantenkode",esc,klkode,tab(32)=klkode
if klkode=" " : goto  &106
klkode=large(klkode)   
search=11,klkode:&115,e,klrec     
goto &130
&115
print=1:tab(01,24),atb(21)
ask=1,i=&105,u=&105,/8a=&117,/8b=&119:tab(01,24),paint(kh,ka),"Klant",ng,atb(0),fvoor,voor,fvolg,volg=j
goto &105
&117    
up=11:&118,e,kldown
goto &130
&118
print=1:tab(01,24),atb(21)
ask=1,i=&105,u=&105,/8b=&119:tab(01,24),paint(kh,ka),berb,atb(0),fvolg,volg=j
goto &105
&119
down=11:&120,e,kldown
goto &130
&120
print=1:tab(01,24),atb(21)
ask=1,i=&105,u=&105,/8a=&117:tab(01,24),paint(kh,ka),bere,atb(0),fvoor,voor=j
goto &105
&130
print=1:tab(01,05),atb(22)
print=1:tab(01,05),"Klantenkode : ",klkode
print=1:tab(01,07),"Naam klant",tab(20),": ",paint(kh,ka),left(klnaam,len$(klnaam)),atb(0)
print=1:tab(01,08),"Adres     ",tab(20),": ",klstra
print=1:tab(01,09),"Gemeente  ",tab(20),": ",klgem
print=1:paint(kl,0),tab(01,11),gener(79,hto),atb(0)
&135
j=" "
ask=1,i=&105,u=&105,/8a=&117,/8b=&119:tab(01,13),"Deze klant  Y-N : "=j
j=large(j)
if j=" " : goto  &135
if j<>"Y" : goto  &105
klhklant=klkode
klhart=" "
search=3,klhkode:&150,e,klahrec
&150
down=3:&300,e,klarhis
print=1:tab(01,24),klhart
if klhklant<>klkode : goto  &300
delete=3,klhkode:&150,e
goto &150
&300
print=1:tab(01,24),atb(21)
ask=1,i=&105,u=&105:tab(01,24),paint(kh,ka),bere,atb(0),ret=j
goto &105

eseg 5

segment 8

x=0
goto &100

&1
ret.seg

&100
print=1:clear,paint(kh,ka),naam,atb(0),"  AFDRUKKEN KLANT-STATISTIEKEN ",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,atb(0)
&105
print=1:tab(01,05),atb(22)
&106
ask=1,i=&1,u=&1,/8a=&117,/8b=&119:tab(01,05),"Geef klantenkode",esc,klkode,tab(32)=klkode
if klkode=" " : goto  &106
klkode=large(klkode)   
search=11,klkode:&115,e,klrec     
goto &130
&115
print=1:tab(01,24),atb(21)
ask=1,i=&105,u=&105,/8a=&117,/8b=&119:tab(01,24),paint(kh,ka),"Klant",ng,atb(0),fvoor,voor,fvolg,volg=j
goto &105
&117    
up=11:&118,e,kldown
goto &130
&118
print=1:tab(01,24),atb(21)
ask=1,i=&105,u=&105,/8b=&119:tab(01,24),paint(kh,ka),berb,atb(0),fvolg,volg=j
goto &105
&119
down=11:&120,e,kldown
goto &130
&120
print=1:tab(01,24),atb(21)
ask=1,i=&105,u=&105,/8a=&117:tab(01,24),paint(kh,ka),bere,atb(0),fvoor,voor=j
goto &105
&130
print=1:tab(01,05),atb(22)
print=1:tab(01,05),"Klantenkode : ",klkode
print=1:tab(01,07),"Naam klant",tab(20),": ",paint(kh,ka),left(klnaam,len$(klnaam)),atb(0)
print=1:tab(01,08),"Adres     ",tab(20),": ",klstra
print=1:tab(01,09),"Gemeente  ",tab(20),": ",klgem
print=1:paint(kl,0),tab(01,11),gener(79,hto),atb(0)
&135
print=1:tab(01,24),atb(21)
ask=1,i=&100,u=&100,/8a=&117,/8b=&119:tab(01,13),"Deze klant  Y-N : ",j,tab(19)=j
j=large(j)
if j="N" : goto  &105
tel=12
for a=1 to 12
totaal(a)=0
next a
&140
print=45:atb(70)
print=45:atb(6)
print=45:tabv(01),klkode," ",klnaam," ",klstra," ",klgem," ",kltelef
print=45:tabv(01),gener(132,hto)
print=45:tabv(01),"Kode",tab(10),"Artikel  Maanden ŻŻŻ",tab(40),"³"
for e=1 to 12
print=45:(-7),e
next e
print=45:tabv(01),gener(132,hto)
lijntel=4
klhklant=klkode
klhart="    "
search=3,klhkode:&150,e,klahrec
&150
down=3:&300,e,klarhis
if klhklant<>klkode : goto  &300
artkey=klhart
aant=0
aant2=0
for e=1 to tel
aant=aant+klhaant(e)
aant2=aant2+klhbed(e)
totaal(e)=totaal(e)+klhbed(e)
next e
search=2,artkey:&206,e,artrec(1),750
if artoms=" " 
&206
print=1:bell,tab(01,24),artkey
delete=3,klhkode:&150,e
goto &150
endif
&210
print=45:tabv(01),klhart,tab(10),artoms,tab(40),"³"
for e=1 to tel
print=45:(-4.n2),klhaant(e)
next e
lijntel=lijntel+1
goto &220

print=45:tabv(01),klhdat,tab(40),"³"
for e=1 to tel
print=45:(-4.n2),klhbed(e)
next e
print=45:tabv(01),"Tot : ",(-12.n2),aant,aant2,tab(40),"³"
print=45:tabv(01),gener(132,hto)
lijntel=lijntel+3
&220
if lijntel<printtel(07)-10 : goto  &150
print=45:page
close=45
print=45:atb(70)
print=45:atb(6)
print=45:tabv(01),klkode," ",klnaam," ",klstra," ",klgem," ",kltelef
print=45:tabv(01),gener(132,hto)
print=45:tabv(01),"Kode",tab(10),"Artikel  Maanden ŻŻŻ",tab(40),"³"
for e=1 to 12
print=45:(-7),e
next e
print=45:tabv(01),gener(132,hto)
lijntel=4
goto &150
&300
if lijntel<printtel(07)-10 : goto  &310
print=45:page
close=45
lijntel=0
&310
for e=1 to 12
print=45:tabv(01),maanden(e),(-8.n4),totaal(e)
lijntel=lijntel+1
next e
print=45:page
close=45
lijntel=0
goto &100

eseg 8

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

((dat,4,2))
test2=test2*31
test1=test1+test2
tes