program "SCHOOLPUNTEN"

dcl x%
dcl totk=6,totv=6
dcl tot1=6,tot2=6
dcl getal1=6,getal2=6,getal3=6,getal4=6
dcl gemid=6,herleid=6,aant=6,tell=6,noem=6,totaal=6
dcl tabnum$=8(24)
dcl selklas$=8

dcl leerdown$=249
field=m,leerdown
dcl leerkode$=8,filler=1,leerrec$=240
field=m,leerrec
dcl leerklas$=2,leernaam$=30
dcl leerken=6(10),leervaar=6(10)
dcl leerks$=2(10),leerkv$=2(10)
 
dcl leerk=6,leerv=6,leerakt=6
dcl leerkh=6,leervh=6
field=m

#INCLUDE  "CRINCLU"
#INCLUDE  "CRINCLU2"

assign=02,"AAAEXAM",wr,si                 ;leerlingenbestand
assign=45,"IM0",wr,ex,im

open=2:&10,e
goto &14
&10
cfile=2,d=240,k=8 

&14
print=1:clear,paint(kh,ka),naam,paint(kt,0),"  BEHANDELING LEERLINGEN",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=Afdrukken",atb(0)
if phil=1 : goto &60
&15
print=1:tab(01,05),atb(22)
ask=1,i=&1,u=&1,/80=&700,/81=&1000,/8a=&22,/8b=&24:tab(01,05),"Geef leerlingkode",esc,leerkode,tab(33)=leerkode
if leerkode=" " : goto  &15
leerkode=large(leerkode)
search=2,leerkode:&20,e,leerrec
goto &60 
&20
ask=1,i=&15,u=&15,/8a=&22,/8b=&24,"nN"=&29:tab(01,24),paint(kh,ka),"Leerling",ng,paint(kt,0)," ",paint(kh,ka),"N",paint(kt,0),"=Nieuw",fvoor,voor,fvolg,volg=j
goto &15
&22
up=2:&23,e,leerdown
goto &60
&23
print=1:tab(01,24),atb(21)
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=2:&25,e,leerdown
goto &60
&25
print=1:tab(01,24),atb(21)
ask=1,i=&15,u=&15,/8a=&22:tab(01,24),paint(kh,ka),bere,paint(kt,0),fvoor,voor=j
goto &15
&29
leerrec=" "
for tel= 1 to 10
leerken(tel)=0
leervaar(tel)=0
next tel
leerk=0
leerv=0
leerkh=0
leervh=0
leerakt=0
&60
phil=0
print=1:tab(01,05),atb(22)
print=1:tab(01,05),"Leerlingkode : ",leerkode
print=1:tab(01,07),"Naam : ",paint(kh,ka),left(leernaam,len$(leernaam)),paint(kt,0)
print=1:tab(01,08),gener(79,hto)
print=1:tab(50,07),"Klas : ",paint(11),leerklas,atb(0)
&70
print=1:tab(01,09),"Examen : ",(n2.n2),leerken(1)
print=1:tab(01,10),"       : ",(n2.n2),leerken(2)
print=1:tab(01,11),"       : ",(n2.n2),leerken(3)
print=1:tab(01,12),"       : ",(n2.n2),leerken(4)
print=1:tab(01,13),"       : ",(n2.n2),leerken(5)
print=1:tab(01,14),"       : ",(n2.n2),leerken(6)
print=1:tab(01,15),"       : ",(n2.n2),leerken(7)
print=1:tab(01,16),"       : ",(n2.n2),leerken(8)
print=1:tab(01,17),"       : ",(n2.n2),leerken(9)
print=1:tab(01,18),"       : ",(n2.n2),leerken(10)

print=1:tab(01,20),"Maximun examen  : ",(n3.n2),leerk
print=1:tab(30,20),"Herleiden tot   : ",(n3),leerkh
print=1:tab(01,22),gener(79,hto)
goto &300

&200
for tel=1 to 10
leerken(tel)=0
leervaar(tel)=0
next tel
leerk=0
leerv=0
leerkh=0
leervh=0
leerakt=0
modif=2,leerkode:next,e,leerrec
goto &70

&300
ask=1,i=&15,u=&15,/80=&200,/8a=&22,/8b=&24:tab(08,07)=leernaam
leernaam=large(leernaam)
&301
ask=1,i=&600,u=&300,/8a=&22,/8b=&24:tab(57,07)=leerklas
leerklas=large(leerklas)
&310
print=1:tab(01,24),atb(21)
ask=1,i=&600,u=&301,/80=&630,/8a=&22,/8b=&24:tab(10,09),(n2.n2)=leerken(1)
&311
ask=1,i=&600,u=&310,/8a=&22,/8b=&24:tab(10,10),(n2.n2)=leerken(2)
&312
ask=1,i=&600,u=&311,/8a=&22,/8b=&24:tab(10,11),(n2.n2)=leerken(3)
&313
ask=1,i=&600,u=&312,/8a=&22,/8b=&24:tab(10,12),(n2.n2)=leerken(4)
&314
ask=1,i=&600,u=&313,/8a=&22,/8b=&24:tab(10,13),(n2.n2)=leerken(5)
&315
ask=1,i=&600,u=&314,/8a=&22,/8b=&24:tab(10,14),(n2.n2)=leerken(6)
&316
ask=1,i=&600,u=&315,/8a=&22,/8b=&24:tab(10,15),(n2.n2)=leerken(7)
&317
ask=1,i=&600,u=&316,/8a=&22,/8b=&24:tab(10,16),(n2.n2)=leerken(8)
&318
ask=1,i=&600,u=&317,/8a=&22,/8b=&24:tab(10,17),(n2.n2)=leerken(9)
&319
ask=1,i=&600,u=&318,/8a=&22,/8b=&24:tab(10,18),(n2.n2)=leerken(10)

&400
if leerk=0
leerk=getal1
endif
ask=1,i=&600,u=&319,/8a=&22,/8b=&24,/80=&601:tab(19,20),(n3.n2),leerk,tab(19)=leerk
getal1=leerk
&401
if leerkh=0
leerkh=getal2
endif
ask=1,i=&600,u=&400,/8a=&22,/8b=&24:tab(48,20),(n3),leerkh,tab(48)=leerkh
getal2=leerkh
&403
print=1:tab(01,20),atb(22)
print=1:tab(01,20),"Maximun examen  : ",(n3.n2),leerk
print=1:tab(30,20),"Herleiden tot   : ",(n3),leerkh
print=1:tab(01,22),gener(79,hto)

&600
if leerk=0 : goto &400
if leerkh=0 : goto &401

print=1:tab(01,20),atb(22)
print=1:tab(01,23),gener(79,hto)
totk=0
totv=0

for tel=1 to 10
totk=totk+leerken(tel)
leerks(tel)=large(leerks(tel))
next tel

for tel=1 to 10
totv=totv+leervaar(tel)
next tel

if totk<>0
print=1:tab(01,20),"Totaal kennis      : ",(n4.n2),totk,(e),"/",(n6.n2),leerk,totk/leerk*leerkh,(e),"/",(n6.n2),leerkh
endif

if (totk<>0) 
tot1=totk/leerk*leerkh
print=1:tab(01,22),"TOTAAL : ",atb(6),paint(kn,ka5),(n3.n2),tot1,(e),"/",(n3.n2),leerkh,atb(0)
endif

&601
j=" "
ask=1,i=&15,u=&403,/80=&630,/8a=&22,/8b=&24:tab(01,24),paint(kh,ka),vali,paint(kt,0)," (A=annulatie) : "=j
j=large(j)
print=1:tab(01,24),atb(21)
if j="N" : goto  &15
if j="Y" : goto  &605
if j="A" : goto  &620
if j="P" : goto  &800
goto &600
&605
insert=2,leerkode:next,e,leerrec
modif=2,leerkode:next,e,leerrec
goto &15

&620
delete=2,leerkode:&15,e
goto &15

&630
for tel=1 to 10
leerken(tel)=0
leervaar(tel)=0
next tel
leerakt=0
leerk=0 
leerkh=0
leerv=0 
leervh=0
goto &605

&700
phil=0
print=1:clear,paint(kh,ka),naam,atb(0),"  OVERZICHT VAN DE PUNTEN ",tab(70),ndat
print=1:paint(kl,0),tab(01,02),gener(79,hto),atb(0)
&702
selklas=" "
ask=1,i=&14,u=&14:tab(01,05),"Geef klas : "=selklas 
selklas=large(selklas)
print=1:tab(01,03),atb(22)
print=1:tab(01,03),"Nr Naam                           Klas        Examen              TOTAAL",atb(0)
print=1:paint(kl,0),tab(01,04),gener(79,hto),atb(0)
lijntel=5
open=2

tell=0
noem=0
getal1=0
getal2=0
aant=0

&705
down=2:&707,e,leerdown
goto &710
&707
zoek=0
print=1:tab(01,24),atb(21)
ask=1,i=&14,u=&700:tab(01,24),paint(kh,ka),bere,atb(0),num,ret=zoek
if zoek=0 : goto  &700
if zoek<5 : goto  &707
if zoek>lijntel-1 : goto  &707
leerkode=tabnum(zoek)
search=2,leerkode:&700,e,leerrec
phil=1
goto &14
&710
if selklas=" " : goto &711
if selklas<>leerklas : goto &705
&711
print=1:tab(01,lijntel),paint(kn,ka),(--),lijntel,(e),paint(kn,ka2)," ",leernaam,paint(kt,ka3),"  ",leerklas,"  "

totk=0
tot1=0

for tel=1 to 10
totk=totk+leerken(tel)
next tel

if leerk<>0
tot1=totk/leerk*leerkh
endif

if tot1<>0
print=1:paint(kn,ka4),(n6.n2),totk,(e),"/",(n6.n2),leerk
print=1:paint(kn,ka3),(n6.n2),tot1,(e),"/",(n6.n2),leerkh
endif

tabnum(lijntel)=leerkode
lijntel=lijntel+1
if lijntel<22 : goto  &705
&713
zoek=0
print=1:tab(01,24),atb(21)
ask=1,i=&14,u=&14:tab(01,24),paint(kh,ka),bla,atb(0),num,ret=zoek
if zoek=0 : goto  &714
if zoek<5 : goto  &713
if zoek>lijntel-1 : goto  &713 
leerkode=tabnum(zoek)
search=2,leerkode:&714,e,leerrec
phil=1
goto &14
&714
for lijntel=1 to 24
tabnum(lijntel)=" "
next lijntel
print=1:tab(01,05),atb(22)
lijntel=5
goto &705

&800
print=45:atb(71)
print=45:tabv(01),"Naam : ",atb(6),paint(kn,ka4),leernaam,atb(0)
print=45:tabv(01),"Klas : ",atb(6),paint(kn,ka4),leerklas,atb(0)
print=45:tabv(01),gener(79,hto)

print=45:tabv(01),atb(6),paint(kn,ka5),"EXAMEN",atb(0),tabv(01)
for tel=1 to 10
print=45:tabv(01),(n6.n2),leerken(tel)
next tel

print=45:tabv(01),gener(79,hto)
print=45:tabv(01),"Maximun examen      : ",(n3.n2),leerk
print=45:tabv(01),"Herleiden tot       : ",(n3),leerkh

print=45:tabv(01),gener(79,hto)

totk=0
totv=0

for tel=1 to 10
totk=totk+leerken(tel)
leerks(tel)=large(leerks(tel))
next tel

if totk<>0
print=45:tabv(01),"Totaal examen       : ",(n3.n2),totk,(e),"/",(n3.n2),leerk,totk/leerk*leerkh,(e),"/",(n3.n2),leerkh
endif
if totk<>0
tot1=totk/leerk*leerkh
print=45:tabv(01),gener(79,hto)
print=45:tabv(01),"TOTAAL : ",atb(6),paint(kn,ka5),(n3.n2),tot1,(e),"/",(n3.n2),leerkh,atb(0)
endif
print=45:tabv(01),gener(79,hto)

print=45:page
goto &14

&1000
print=1:clear,paint(kh,ka),naam,paint(kt,0),"  AFDRUKKEN VAN DE PUNTEN",tab(70),ndat
print=1:paint(kl,0),tab(01,02),gener(79,hto),atb(0)

&1005
print=1:tab(01,05),atb(22)
selklas=" "
ask=1,i=&14,u=&14:tab(01,05),"Geef klas : "=selklas
if selklas=" " : goto &1005 
selklas=large(selklas)
j=" "
ask=1,i=&14,u=&1005:tab(01,07),"Deze klas",paint(kt,0),"  Y-N : "=j
j=large(j)
if j<>"Y" : goto &1005

open=2
print=45:atb(0)
print=45:atb(71)
print=45:tabv(01),"    AFDRUKKEN VAN DE EXAMENPUNTEN","    Klas : ",paint(9,15),selklas,atb(0)
print=45:tabv(01),gener(79,hto)
lijntel=2

&1010
down=2:&1050,e,leerdown
if selklas<>leerklas : goto &1010
if leerken(1)=0 : goto &1010

print=45:atb(71)
print=45:tabv(01),"Naam : ",paint(9,15),leernaam,atb(0)
print=45:tabv(01)
lijntel=lijntel+2

totk=0
for tel=1 to 10
totk=totk+leerken(tel)
leerks(tel)=large(leerks(tel))
next tel

if totk<>0
print=45:tabv(01),"Totaal examen : ",(n3.n2),totk,(e),"/",(n3.n2),leerk
tot1=totk/leerk*leerkh
print=45:tabv(01),"TOTAAL        : ",paint(2,15),(n3.n2),tot1,(e),"/",(n3.n2),leerkh,atb(0)

if (tot1<leerkh/2)
print=45:"<<<<<"
endif

lijntel=lijntel+2
endif

print=45:tabv(01),gener(79,hto)
lijntel=lijntel+1
if lijntel<teller(50)-15 : goto &1010
print=45:page
print=45:tabv(01),"    AFDRUKKEN VAN DE EXAMENPUNTEN     (vervolg)","    Klas : ",paint(9,15),selklas,atb(0)
print=45:tabv(01),gener(79,hto)
lijntel=2
goto &1010

&1050
print=45:tabv(01),"                                      (einde)"
print=45:page
lijntel=0
close=45
goto &1000
eseg 0

end