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,"AAALEER",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  F3=Nulstelling",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,/82=&900,/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)
print=1:tab(01,09),"Kennis : ",(n2.n2),leerken(1)
print=1:tab(30,09),"Vaardigheid : ",(n2.n2),leervaar(1)
print=1:tab(01,10),"Kennis : ",(n2.n2),leerken(2)
print=1:tab(30,10),"Vaardigheid : ",(n2.n2),leervaar(2)
print=1:tab(01,11),"Kennis : ",(n2.n2),leerken(3)
print=1:tab(30,11),"Vaardigheid : ",(n2.n2),leervaar(3)
print=1:tab(01,12),"Kennis : ",(n2.n2),leerken(4)
print=1:tab(30,12),"Vaardigheid : ",(n2.n2),leervaar(4)
print=1:tab(01,13),"Kennis : ",(n2.n2),leerken(5)
print=1:tab(30,13),"Vaardigheid : ",(n2.n2),leervaar(5)
print=1:tab(01,14),"Kennis : ",(n2.n2),leerken(6)
print=1:tab(30,14),"Vaardigheid : ",(n2.n2),leervaar(6)
print=1:tab(30,15),"Vaardigheid : ",(n2.n2),leervaar(7)
print=1:tab(30,16),"Vaardigheid : ",(n2.n2),leervaar(8)
print=1:tab(30,17),"Vaardigheid : ",(n2.n2),leervaar(9)
print=1:tab(30,18),"Vaardigheid : ",(n2.n2),leervaar(10)
print=1:tab(01,15),"Kennis : ",(n2.n2),leerken(7)
print=1:tab(01,16),"Kennis : ",(n2.n2),leerken(8)
print=1:tab(01,17),"Kennis : ",(n2.n2),leerken(9)
print=1:tab(01,18),"Kennis : ",(n2.n2),leerken(10)
print=1:tab(30,19),"Aktiviteit  : ",(n2.n2),leerakt

print=1:tab(01,20),"Maximun kennis  : ",(n3.n2),leerk
print=1:tab(30,20),"Herleiden tot   : ",(n3),leerkh
print=1:tab(01,21),"Max akt+vaardig : ",(n3.n2),leerv
print=1:tab(30,21),"Herleiden tot   : ",(n3),leervh
print=1:tab(01,22),gener(79,hto)

for tel=1 to 10
x=9
if leerks(tel)="CL"
x=10
endif
print=1:tab(15,tel+8),paint(x),leerks(tel),atb(0)
next tel

for tel=1 to 10
x=8
if leerkv(tel)="EO"
x=9
endif
if leerkv(tel)="EE"
x=10
endif
if leerkv(tel)="CO"
x=11
endif
if leerkv(tel)="CE"
x=12
endif
print=1:tab(50,tel+8),paint(x),leerkv(tel),atb(0)
next tel

&300
ask=1,i=&15,u=&15,/80=&630,/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,/9=&320,/8a=&22,/8b=&24:tab(10,09),(n2.n2)=leerken(1)
;ask=1,i=&600,u=&310,/8a=&22,/8b=&24:tab(15,09)=leerks(1)
&311
ask=1,i=&600,u=&310,/8a=&22,/8b=&24:tab(10,10),(n2.n2)=leerken(2)
;ask=1,i=&600,u=&311,/8a=&22,/8b=&24:tab(15,10)=leerks(2)
&312
ask=1,i=&600,u=&311,/8a=&22,/8b=&24:tab(10,11),(n2.n2)=leerken(3)
;ask=1,i=&600,u=&312,/8a=&22,/8b=&24:tab(15,11)=leerks(3)
&313
ask=1,i=&600,u=&312,/8a=&22,/8b=&24:tab(10,12),(n2.n2)=leerken(4)
;ask=1,i=&600,u=&313,/8a=&22,/8b=&24:tab(15,12)=leerks(4)
&314
ask=1,i=&600,u=&313,/8a=&22,/8b=&24:tab(10,13),(n2.n2)=leerken(5)
;ask=1,i=&600,u=&314,/8a=&22,/8b=&24:tab(15,13)=leerks(5)
&315
ask=1,i=&600,u=&314,/8a=&22,/8b=&24:tab(10,14),(n2.n2)=leerken(6)
;ask=1,i=&600,u=&315,/8a=&22,/8b=&24:tab(15,14)=leerks(6)
&316
ask=1,i=&600,u=&315,/8a=&22,/8b=&24:tab(10,15),(n2.n2)=leerken(7)
;ask=1,i=&600,u=&316,/8a=&22,/8b=&24:tab(15,15)=leerks(7)
&317
ask=1,i=&600,u=&316,/8a=&22,/8b=&24:tab(10,16),(n2.n2)=leerken(8)
;ask=1,i=&600,u=&317,/8a=&22,/8b=&24:tab(15,16)=leerks(8)
&318
ask=1,i=&600,u=&317,/8a=&22,/8b=&24:tab(10,17),(n2.n2)=leerken(9)
;ask=1,i=&600,u=&318,/8a=&22,/8b=&24:tab(15,17)=leerks(9)
&319
ask=1,i=&600,u=&318,/8a=&22,/8b=&24:tab(10,18),(n2.n2)=leerken(10)
;ask=1,i=&600,u=&319,/8a=&22,/8b=&24:tab(15,18)=leerks(10)

&320
ask=1,i=&600,u=&319,/8a=&22,/8b=&24:tab(44,09),(n2.n2)=leervaar(1)
;ask=1,i=&600,u=&320,/8a=&22,/8b=&24:tab(50,09)=leerkv(1)
&321
ask=1,i=&600,u=&320,/8a=&22,/8b=&24:tab(44,10),(n2.n2)=leervaar(2)
;ask=1,i=&600,u=&321,/8a=&22,/8b=&24:tab(50,10)=leerkv(2)
&322
ask=1,i=&600,u=&321,/8a=&22,/8b=&24:tab(44,11),(n2.n2)=leervaar(3)
;ask=1,i=&600,u=&322,/8a=&22,/8b=&24:tab(50,11)=leerkv(3)
&323
ask=1,i=&600,u=&322,/8a=&22,/8b=&24:tab(44,12),(n2.n2)=leervaar(4)
;ask=1,i=&600,u=&323,/8a=&22,/8b=&24:tab(50,12)=leerkv(4)
&324
ask=1,i=&600,u=&323,/8a=&22,/8b=&24:tab(44,13),(n2.n2)=leervaar(5)
;ask=1,i=&600,u=&324,/8a=&22,/8b=&24:tab(50,13)=leerkv(5)
&325
ask=1,i=&600,u=&324,/8a=&22,/8b=&24:tab(44,14),(n2.n2)=leervaar(6)
;ask=1,i=&600,u=&325,/8a=&22,/8b=&24:tab(50,14)=leerkv(6)
&326
ask=1,i=&600,u=&325,/8a=&22,/8b=&24:tab(44,15),(n2.n2)=leervaar(7)
;ask=1,i=&600,u=&326,/8a=&22,/8b=&24:tab(50,15)=leerkv(7)
&327
ask=1,i=&600,u=&326,/8a=&22,/8b=&24:tab(44,16),(n2.n2)=leervaar(8)
;ask=1,i=&600,u=&327,/8a=&22,/8b=&24:tab(50,16)=leerkv(8)
&328
ask=1,i=&600,u=&327,/8a=&22,/8b=&24:tab(44,17),(n2.n2)=leervaar(9)
;ask=1,i=&600,u=&327,/8a=&22,/8b=&24:tab(50,16)=leerkv(9)
&329
ask=1,i=&600,u=&328,/8a=&22,/8b=&24:tab(44,18),(n2.n2)=leervaar(10)
;ask=1,i=&600,u=&329,/8a=&22,/8b=&24:tab(50,18)=leerkv(10)
&330
ask=1,i=&600,u=&329,/8a=&22,/8b=&24:tab(44,19),(n2.n2)=leerakt

&400
if leerk=0
leerk=getal1
endif
ask=1,i=&600,u=&330,/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
&402
if leerv=0
leerv=getal3
endif
ask=1,i=&600,u=&401,/8a=&22,/8b=&24:tab(19,21),(n3.n2),leerv,tab(19)=leerv
getal3=leerv 
&403
print=1:tab(01,20),atb(22)
print=1:tab(01,20),"Maximun kennis  : ",(n3.n2),leerk
print=1:tab(30,20),"Herleiden tot   : ",(n3),leerkh
print=1:tab(01,21),"Max akt+vaardig : ",(n3.n2),leerv
print=1:tab(30,21),"Herleiden tot   : ",(n3),leervh
print=1:tab(01,22),gener(79,hto)
if leervh=0
leervh=getal4
endif
ask=1,i=&600,u=&402,/8a=&22,/8b=&24:tab(48,21),(n3),leervh,tab(48)=leervh
getal4=leervh
&600
if leerk=0 : goto &400
if leerkh=0 : goto &401
if leerv=0 : goto &402
if leervh=0 : goto &403

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))
leerkv(tel)=large(leerkv(tel))
next tel

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

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 totv<>0
print=1:tab(01,21),"Totaal vaardigheid : ",(n4.n2),totv,(e),"/",(n6.n2),leerv,totv/leerv*leervh,(e),"/",(n6.n2),leervh
endif
if (totk<>0) and (totv<>0) 
tot1=totk/leerk*leerkh
tot2=totv/leerv*leervh
print=1:tab(01,22),"TOTAAL : ",atb(6),paint(kn,ka5),(n3.n2),tot1+tot2,(e),"/",(n3.n2),leerkh+leervh,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  Kennis      Vaardig      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
totv=0
tot1=0
tot2=0

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

for tel=1 to 10
totv=totv+leervaar(tel)
next tel
totv=totv+leerakt
if leerk<>0
tot1=totk/leerk*leerkh
print=1:paint(kn,ka),(n8.n2),tot1
endif
if leerv<>0
tot2=totv/leerv*leervh
print=1:paint(kn,ka2),(n8.n2),tot2
endif

if (tot1+tot2)<>0
print=1:paint(kn,ka4),(n4.n2),tot1+tot2
print=1:paint(kn,ka4),"/"
print=1:paint(kn,ka4),(n4.n2),leerkh+leervh
aant=aant+1
tell=tell+tot1+tot2
getal1=tell/aant
noem=noem+leerkh+leervh
getal2=noem/aant
print=1:paint(kn,ka),tab(01,23),(n8.n2),getal1,getal2
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),"KENNIS",atb(0),tabv(01)
for tel=1 to 10
print=45:tabv(01),(n6.n2),leerken(tel)
gosub &850
next tel

print=45:tabv(01),gener(79,hto)
print=45:tabv(01),atb(6),paint(kn,ka5),"VAARDIGHEID",atb(0),tabv(01)
for tel=1 to 10
print=45:tabv(01),(n6.n2),leervaar(tel)
gosub &860
next tel

print=45:tabv(01),gener(79,hto)
print=45:tabv(01),atb(6),paint(kn,ka5),"AKTIVITEIT",atb(0)
print=45:tabv(02),(n6.n2),leerakt

print=45:tabv(01),gener(79,hto)
print=45:tabv(01),"Maximun kennis      : ",(n3.n2),leerk
print=45:tabv(01),"Herleiden tot       : ",(n3),leerkh
print=45:tabv(02),"Maximun akt+vaardig : ",(n3.n2),leerv
print=45:tabv(01),"Herleiden tot       : ",(n3),leervh
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))
leerkv(tel)=large(leerkv(tel))
next tel

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

if totk<>0
print=45:tabv(01),"Totaal kennis       : ",(n3.n2),totk,(e),"/",(n3.n2),leerk,totk/leerk*leerkh,(e),"/",(n3.n2),leerkh
endif
if totv<>0
print=45:tabv(01),"Totaal vaardigheid  : ",(n3.n2),totv,(e),"/",(n3.n2),leerv,totv/leerv*leervh,(e),"/",(n3.n2),leervh
endif
if (totk<>0) and (totv<>0) 
tot1=totk/leerk*leerkh
tot2=totv/leerv*leervh
print=45:tabv(01),gener(79,hto)
print=45:tabv(01),"TOTAAL : ",atb(6),paint(kn,ka5),(n3.n2),tot1+tot2,(e),"/",(n3.n2),leerkh+leervh,atb(0)
endif
print=45:tabv(01),gener(79,hto)

print=45:page
goto &14

&850
x=9
if leerks(tel)="CL"
x=10
endif
print=45:"   ",atb(6),paint(x),leerks(tel),atb(0)
return

&860
x=8
if leerkv(tel)="EO"
x=9
endif
if leerkv(tel)="EE"
x=10
endif
if leerkv(tel)="CO"
x=11
endif
if leerkv(tel)="CE"
x=12
endif
print=45:"   ",atb(6),paint(x),leerkv(tel),atb(0)
return

&900
print=1:tab(01,05),atb(22)
j=" "
ask=1,i=&14,u=&14:tab(01,05),"Schrappen punten  Y-N  : "=j
j=large(j)
if j<>"Y" : goto &900
open=2
&910
down=2:&920,e,leerdown
for tel=1 to 10
leerken(tel)=0
leervaar(tel)=0
next tel
leerakt=0
leerk=0 
leerkh=0
leerv=0 
leervh=0
modif=2,leerkode:next,e,leerrec
goto &910
&920
leerkode=" "
open=2
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
&1006
totaal=0
ask=1,i=&14,u=&1005:tab(01,09),"Uitkomst herleiden tot : ",(n3.n2)=totaal
if totaal=0 : goto &1006

open=2
lijntel=0

&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 : ",atb(6),paint(9,15),leernaam,atb(0),"    Klas : ",atb(6),paint(9,15),leerklas,atb(0)
print=45:tabv(01),gener(50,hto)
lijntel=lijntel+2
totk=0
totv=0

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

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

if totk<>0
print=45:tabv(01),"Totaal kennis       : ",(n3.n2),totk,(e),"/",(n3.n2),leerk,totk/leerk*leerkh,(e),"/",(n3.n2),leerkh
lijntel=lijntel+1
endif
if totv<>0
print=45:tabv(01),"Totaal vaardigheid  : ",(n3.n2),totv,(e),"/",(n3.n2),leerv,totv/leerv*leervh,(e),"/",(n3.n2),leervh
lijntel=lijntel+1
endif
if (totk<>0) and (totv<>0) 
tot1=totk/leerk*leerkh
tot2=totv/leerv*leervh
print=45:tabv(01),"TOTAAL : ",atb(6),paint(2,15),(n3.n2),tot1+tot2,(e),"/",(n3.n2),leerkh+leervh,atb(0)
getal1=tot1+tot2
getal2=leerkh+leervh
getal3=getal1/getal2*totaal
print=45:tabv(01),"     Herleiding tot : ",(n3.n2),totaal,(e)," = ",paint(1,15),(n3.n2),getal3,atb(0)
endif
print=45:tabv(01),gener(79,hto)
lijntel=lijntel+3
if lijntel<teller(50)-20 : goto &1010
print=45:page
lijntel=0
goto &1010
&1050
print=45:page
lijntel=0
close=45
goto &1000
eseg 0

end