program "CRDIAL"

dcl igino,cgino,egino,agino,t1gino,t2gino,t3gino,dgino,mgino,jgino
dcl kleursoort$=20(15)
dcl naamdag$=10,keuze$=2
dcl joor$=4,minuut$=2,uur$=2,second$=2

#INCLUDE  "CRINCLU"
#INCLUDE  "CRINCLU2"

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

&10
param5=par(5)
param6=par(6) 
param7=par(7) 
gosub &1000
goto &20
&12
ask=1,i=&20,u=&20:tab(40,21),(z2)=dag
if conv(dag)<1  : goto  &12
if conv(dag)>31 : goto  &12
date(3)=dag 
&14
ask=1,i=&20,u=&12:tab(43,21),(z2)=maand
if conv(maand)<1  : goto  &14
if conv(maand)>12 : goto  &14
date(2)=maand
&15
ask=1,i=&20,u=&14:tab(46,21),(z4)=jaar
if conv(jaar)<1997 : goto  &15
if conv(jaar)>2010 : goto  &15
date(1)=jaar
&16
ask=1,i=&20,u=&15:tab(67,21)=uur
if conv(uur)<0  : goto  &16
if conv(uur)>24 : goto  &16
date(5)=uur
&17
ask=1,i=&20,u=&16:tab(72,21)=minuut
if conv(minuut)<0  : goto  &17
if conv(minuut)>59 : goto  &17
date(6)=minuut
&18
ask=1,i=&20,u=&17:tab(77,21)=second
if conv(second)<0  : goto  &18
if conv(second)>59 : goto  &18
date(7)=second
gosub &1000

&20
print=1:clear,tab(02,02),paint(kh,ka),space(78)
print=1:clear,tab(03,02),paint(kh,ka),left(naam,len$(naam)),paint(kt,0),tab(80),vte
print=1:paint(kl,0)
print=1:tab(01,01),ltb,gener(78,htb),rtb
print=1:tab(01,02),vtb,tab(80),vte
print=1:tab(01,03),lto,gener(78,htb),rto
print=1:tab(02,04),paint(kh,ka),"F1=Stop  F2=Datum  F3=Bestand  F4=Firma  F5=Parameters",paint(kl,0)
print=1:tab(38,20),ltb,gener(41,htb),rtb
print=1:tab(51,20),mtb,tab(65),mtb,tab(70),mtb,tab(75),mtb
print=1:tab(38,22),lto,gener(41,hto),rto
print=1:tab(51,22),mto,tab(65),mto,tab(70),mto,tab(75),mto
print=1:tab(38,21),vtb,tab(51),vtb,tab(65),vtb,tab(70),vtb,tab(75),vtb
print=1:tab(65,21),vtb,"    ",vtb,"    ",vtb,"    ",vte
print=1:tab(40,21),paint(kt,0),ndag,".",nmaa,".",jaar,tab(53),naamdag,paint(kl,0)
print=1:tab(01,05),ltb,gener(78,hto),rtb,tab(27,05),mtb,tab(54),mtb
for i=6 to 16
print=1:tab(01,i),vtb,tab(27,i),vtb,tab(54,i),vtb,tab(80,i),vtb
next i
print=1:tab(01,17),lto,gener(78,hto),rto,tab(27,17),mto,tab(54,17),mto

for e=6 to 16
print=1:tab(02,e),paint(kn,ka3),space(25),tab(28),space(26),tab(55),space(25)
next e

i1=7
for i=1 to 10
if oms(i)<>" "
print=1:tab(02,i1),paint(kn,ka3),(---),dianr(i),(e),"...",paint(kt2,ka3),oms(i),"       "
endif
i1=i1+1
next i

i1=7
for i=11 to 20
if oms(i)<>" "
print=1:tab(28,i1),paint(kn,ka3),(---),dianr(i),(e),"...",paint(kt2,ka3),oms(i),"        "
endif 
i1=i1+1
next i

i1=7
for i=21 to 30
if omt(i-20)<>" "
print=1:tab(55,i1),paint(kn,ka3),(---),dianr(i),(e),"...",paint(kt2,ka3),omt(i-20),"       "
endif
i1=i1+1
next i

&50
uur=date(5)
minuut=date(6)
second=date(7)
uur=shr(uur)
minuut=shr(minuut)
second=shr(second)
print=1:paint(kt,0),tab(67,21),uur,tab(72),minuut,tab(77),second
print=1:tab(01,24),"Terminal : ",(nz),process
&51
print=1:tab(61,18),paint(kt,0),"Nummer prog : "
ask=1,u=&59,d=&60,/9=&65,/80=&65,/81=&12,/82=&4500,/83=&5910,/84=&5920:tab(75,18)=keuze
a=conv(conv(keuze))
if a<10 : goto  &52
if a>39 : goto  &52
if oproep(a-9)=" " : goto &51 
toassi=oproep(a-9)
assign=1,toassi:&51,e
chain=1:&51,e
stop
&52
if keuze="  " : goto  &50
keuze=large(keuze)
goto &5000

&59
param5=par(5)
param6=par(6) 
param7=par(7) 
goto &20
&60
param5=par(10)
param6=par(11)
param7=par(12)
goto &20

&65
close=1:next,e
print=1:clear
stop

&1000
jaar=conv(conv(date(1)))
maand=conv(conv(date(2)))
dag=conv(conv(date(3)))
uur=conv(conv(date(5)))
minuut=conv(conv(date(6)))
second=conv(conv(date(7)))
ndat=dag+"."+maand+"."+right(jaar,2)
ldgo.seg 100
print=1:tab(38,21),vtb," ",ndag,".",nmaa,".",jaar," ",vtb," ",naamdag
return
 
&4500
print=1:clear,paint(kh,ka),naam,paint(kt,0),"  KONTROLE OP DE AANWEZIGE BESTANDEN ",tab(70),ndat
print=1:paint(kl,0),tab(01,02),gener(79,hto),paint(kt,0)
print=1:tabv(03)
print=1:tabv(01),"01 Rekeningenbestand      : ",bestand(01)
assign=10,bestand(01),wr,si
open=10:&4501,e
goto &4502
&4501
print=1:tab(38),paint(kh,ka),"Bestand niet aanwezig !!",paint(kt,0)
&4502
print=1:tabv(01),"02 Maandhistoriek         : ",bestand(02)
assign=10,bestand(02),wr,si
open=10:&4503,e
goto &4504
&4503
print=1:tab(38),paint(kh,ka),"Bestand niet aanwezig !",paint(kt,0)
&4504
print=1:tabv(01),"03 Leveranciersbestand    : ",bestand(03)
assign=10,bestand(03),wr,si
open=10:&4505,e
goto &4506
&4505
print=1:tab(38),paint(kh,ka),"Bestand niet aanwezig !!",paint(kt,0)
&4506
print=1:tabv(01),"04 Klantenbestand         : ",bestand(04)
assign=10,bestand(04),wr,si
open=10:&4507,e
goto &4508
&4507
print=1:tab(38),paint(kh,ka),"Bestand niet aanwezig !!",paint(kt,0)
&4508
print=1:tabv(01),"05 Artikelbestand         : ",bestand(05)
assign=10,bestand(05),wr,si
open=10:&4509,e
goto &4510
&4509
print=1:tab(38),paint(kh,ka),"Bestand niet aanwezig !!",paint(kt,0)
&4510
;print=1:tabv(01),"06 Jaarhistoriek rekening : ",bestand(06)
;assign=10,bestand(06),wr,si
;open=10:&4511,e
;goto &4512
;&4511
;print=1:tab(38),paint(kh,ka),"Bestand niet aanwezig !!",paint(kt,0)
&4512
print=1:tabv(01),"07 Aankoopdagboek         : ",bestand(07)
assign=10,bestand(07),wr,si
open=10:&4513,e
goto &4514
&4513
print=1:tab(38),paint(kh,ka),"Bestand niet aanwezig !!",paint(kt,0)
&4514
print=1:tabv(01),"08 Verkoopdagboek         : ",bestand(08)
assign=10,bestand(08),wr,si
open=10:&4515,e
goto &4516
&4515
print=1:tab(38),paint(kh,ka),"Bestand niet aanwezig !!",paint(kt,0)
&4516
print=1:tabv(01),"09 Financieel dagboek     : ",bestand(09)
assign=10,bestand(09),wr,si
open=10:&4517,e
goto &4518
&4517
print=1:tab(38),paint(kh,ka),"Bestand niet aanwezig !!",paint(kt,0)
&4518
print=1:tabv(01),"10 Openstaande fakturen   : ",bestand(10)
assign=10,bestand(10),wr,si
open=10:&4519,e
goto &4520
&4519
print=1:tab(38),paint(kh,ka),"Bestand niet aanwezig !!",paint(kt,0)
&4520
print=1:tabv(01),"11 Klantenhistoriek       : ",bestand(11)
assign=10,bestand(11),wr,si
open=10:&4521,e
goto &4522
&4521
print=1:tab(38),paint(kh,ka),"Bestand niet aanwezig !!",paint(kt,0)
&4522
print=1:tabv(01),"12 Leveranciers historiek : ",bestand(12)
assign=10,bestand(12),wr,si
open=10:&4523,e
goto &4524
&4523
print=1:tab(38),paint(kh,ka),"Bestand niet aanwezig !!",paint(kt,0)
&4524
ask=1,i=&10,u=&10:tab(01,24),esc=j
goto &10

&5000
if keuze="A " 
toassi="CRAANK"
goto &5300
endif
if keuze="B " 
toassi="CRBFAK"
goto &5300
endif
if keuze="C " 
toassi="CRCENT"
goto &5300
endif
if keuze="FA" 
toassi="CRLFAK"
goto &5300
endif
if keuze="E " 
toassi="      "
goto &5300
endif
if keuze="F " 
toassi="CRFINA"
goto &5300
endif
if keuze="G " 
toassi="      "
goto &5300
endif
if keuze="H " 
toassi="CRKLHI"
goto &5300
endif
if keuze="I " 
toassi="      "
goto &5300
endif
if keuze="J " 
toassi="      "
goto &5300
endif
if keuze="K " 
toassi="CRBKLA"
goto &5300
endif
if keuze="L " 
toassi="CRBLEV"
goto &5300
endif
if keuze="M " 
toassi="      "
goto &5300
endif
if keuze="N " 
toassi="      "
goto &5300
endif
if keuze="O " 
toassi="      "
goto &5300
endif
if keuze="P " 
toassi="      "
goto &5300
endif
if keuze="Q " 
toassi="      "
goto &5300
endif
if keuze="R " 
toassi="CRBREK"
goto &5300
endif
if keuze="S " 
toassi="      "
goto &5300
endif
if keuze="T " 
toassi="      "
goto &5300
endif
if keuze="U " 
toassi="      "
goto &5300
endif
if keuze="V " 
toassi="CRVERK"
goto &5300
endif
if keuze="W " 
toassi="      "
goto &5300
endif
if keuze="X " 
toassi="      "
goto &5300
endif
if keuze="Y " 
toassi="      "
goto &5300
endif
if keuze="X " 
toassi="      "
goto &5300
endif
if keuze="Z " 
toassi="      "
goto &5300
endif
if keuze="AR" 
toassi="CRBART"
goto &5300
endif
if keuze="AD" 
toassi="CRBADR"
goto &5300
endif
if keuze="CF" 
toassi="CRCFAK"
goto &5300
endif
if keuze="FA" 
toassi="CRBFAK"
goto &5300
endif
if keuze="HR" 
toassi="CRLIHM"
goto &5300
endif
if keuze="LA" 
toassi="CRLAAN"
goto &5300
endif
if keuze="LL" 
toassi="CRLLEV"
goto &5300
endif
if keuze="LF" 
toassi="CRLFIN"
goto &5300
endif
if keuze="LR" 
toassi="CRLREK"
goto &5300
endif
if keuze="LK" 
toassi="CRLKLA"
goto &5300
endif
if keuze="LV" 
toassi="CRLVER"
goto &5300
endif

&5200
toassi="      "
goto &20

&5300
assign=2,toassi:&20,e
chain=2:&20,e
stop

&5910
toassi="CRFIRM"
goto &5300

&5920
toassi="CRBPAR"
goto &5300

eseg 0

segment 100
 
&10
restore 1
dgino=conv(dag)
mgino=conv(maand)
joor=jaar
jgino=conv(jaar)
if mgino>2 : goto  &15
jgino=jgino-1
mgino=mgino+12
&15
t1gino=jgino/100
egino=int(t1gino)
cgino=jgino-egino*100
t1gino=2.6001*(mgino-2)-0.2
t2gino=cgino/4
t3gino=egino/4
agino=int(t1gino)+dgino+cgino+int(t2gino)+int(t3gino)-2*egino
t1gino=agino/7
agino=agino-int(t1gino)*7+1
for igino=1 to agino
read=0:naamdag
next igino
&100
ret.seg
data "Zondag","Maandag","Dinsdag","Woensdag","Donderdag","Vrijdag","Zaterdag"
eseg 100			

end




end




end












































t