segment 0

mask 1024+512+256+43

goto &2

&1     ;naar hoofdmenu
assign=1,"CRDIAL"
chain=1:next,e
print=1:clear
stop

&2
assign=1,"CRBKEYS",wr
open=1:&create,e
goto &params

&create
cfile=1,d=255:&1,e
for i=1 to 10
best(i)="CRKEYBE"
namen(i)="CRKEYBE"
ii=conv(i)
firmas(i)="FIRMA"+conv(ii)
next i
par(32)=pr

assign=1,"CRKEYBE",wr
open=1:&crkeybe,e
goto &params

&crkeybe 
cfile=1,d=255:&1,e
best(process+1)="CRKEYBE"

param1=" "
for i=1 to 50
teller(i)=0
next i

rekbnbt=" "  
rekbkos=" "

for i=1 to 25
bestand(i)=" "
next i

for i=1 to 50
kodes(i)=" "
next i

par(1)=param1
par(2)=param2

for i=1 to 34
vastrek(i)=" "
next i

vfinrek(1)=" "
vfinrek(2)=" "
vfinrek(3)=" "

for i=1 to 5
verkod(i)=0
verper(i)=0
vervak(i)=" "
vertek(i)=" "
next i

for i=1 to 15
kleur(i)=15
next i


i=1
for i1=10 to 40
dianr(i)=i1
dianr2(i)=i1
i=i+1
next i1

for i=1 to 30
oproep(i)=" "
oproep2(i)=" "
next i

for i=1 to 20
oms(i)=" "
oms2(i)=" "
omt(i)=" "
omt2(i)=" "
next i

oproep(1)="CRFIRM"
oproep(2)="CRBPAR"
oms(1)="FIRMA'S"
oms(2)="PARAMETERS"

for e=1 to 50
teken(e)=" "
kk(e)=0
next e

kk(01)=179
kk(02)=179
kk(03)=196
kk(04)=196
kk(05)=197
kk(06)=218
kk(07)=191
kk(08)=194
kk(09)=192
kk(10)=217
kk(11)=193
kk(12)=195
kk(13)=180

teken(01)=chr$(kk(01))
teken(02)=chr$(kk(02))
teken(03)=chr$(kk(03))
teken(04)=chr$(kk(04))
teken(05)=chr$(kk(05))
teken(06)=chr$(kk(06))
teken(07)=chr$(kk(07))
teken(08)=chr$(kk(08))
teken(09)=chr$(kk(09))
teken(10)=chr$(kk(10))
teken(11)=chr$(kk(11))
teken(12)=chr$(kk(12))
teken(13)=chr$(kk(13))

par(3)=param3
par(4)=param4
par(5)=param5
par(6)=param6
par(7)=param7
par(8)=param8
par(10)=param10
par(11)=param11
par(12)=param12
par(15)=param15 
par(16)=param16 
par(18)=param18 
par(24)=param24 
par(32)=pr

&params
pr=par(32)
assign=1,best(process+1),wr
open=1:&crkeybe,e

param1=par(1)
param2=par(2)
param3=par(3)
param4=par(4)
param7=par(7)
param15=par(15)
param16=par(16)
param18=par(18)
param24=par(24)

zwart=0
rood=1
groen=2
bruin=3
blauw=4
magenta=5
cyan=6
lgrijs=7
dgrijs=8
lrood=9
lgroen=10
geel=11
lblauw=12
lmagenta=13
lcyan=14
wit=15

kt=kleur(01)
kt2=kleur(02)
kl=kleur(03)
kn=kleur(04)
kgra=kleur(05)
kh=kleur(06)
kh2=kleur(07)
kh3=kleur(08)
kh4=kleur(09)
kh5=kleur(10)
ka=kleur(11)
ka2=kleur(12)
ka3=kleur(13)
ka4=kleur(14)
ka5=kleur(15)

jaar=conv(conv(date(1)))
maand=conv(conv(date(2)))
dag=conv(conv(date(3)))
ndag=dag
njaa=right(jaar,2)
nja=right(jaar,4)
nmaa=maand
npun="."
npun1="."
punt1="."
punt2="."
fvoor=" F11"
fvolg=" F12"
volg="=volgende : "
voor="=vorige : "
berb="Begin van het bestand bereikt :"
bere="Einde van het bestand bereikt :"
esc=" (esc=einde) : "
ret=" (return=vervolg) : "
bla="Scherm volzet : "
num=" nummer : "
ng=" niet gevonden : "
vali="Validatie van deze gegevens  Y-N : "
annu="Annulatie van deze gegevens  Y-N : "

vtb=teken(01)
vte=teken(02)
htb=teken(03)
hto=teken(04)
kruis=teken(05)
ltb=teken(06)
rtb=teken(07)
mtb=teken(08)
lto=teken(09)
rto=teken(10)
mto=teken(11)
mtl=teken(12)
mtr=teken(13)    

&datum
for i=1 to 12
datum(i)=31
next i

datum(04)=30
datum(06)=30
datum(09)=30
datum(11)=30
datum(02)=28

if jaar="2008"
datum(02)=29
endif

if jaar="2012"
datum(02)=29
endif

if jaar="2016"
datum(02)=29
endif

&begin
print=1:atb(6)
eeprintrec

&begin

erec

&begin

ein

eeegin

e&begin

v,printrec

&begin

e&beg