proc pri_lec (kaf)
#include "box.ch"
#define NULL 0
set cursor off
clear
@ 5,5 say "Ļšåäģåņ "
@ 5,18 get pred
@ 7,5 say "Ńåģåńņš "
@ 7,18 get ns
read
sele 10
use &kaf+"np1"
go top
locate for PREDM=pred .and. LEK>0 .and. Sem=ns
sele 11
use &kaf+"npr"
go A_pr
lektor=Prep
sele 10
go top
locate for PREDM=pred .and. Sem=ns
clear
@ 1,1 say "Ļšåäģåņ: "
@ 1,10 say pred
@ 2,1 say "Ńåģåńņš: "
@ 2,10 say ns pict "999"
@ 3,1 say "ŌČĪ ėåźņīšą: "
@ 3,14 say lektor
@ 4,1 say "ŚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄĀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄĀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄĀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄæ"
@ 5,1 say "³ Ļš.ēąķ˙ņč˙ ³ Ėąįīšąņ. šąį. ³ ČŠŃ ³ Źóšń.ļšīåźņčš. ³"
@ 6,1 say "ĆÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´"
i=7
do while !eof()
*āūāīä ńļčńźą
sele 11
go A_pr
prepod=Prep
sele 10
if Pz>0
@ i,1 say "³"
@ i,3 say prepod
else
@ i,1 say "³"
endif
if Lba >0
@ i,22 say "³"
@ i,24 say prepod
else
@ i,22 say "³"
endif
if Irs >0
@ i,43 say "³"
@ i,45 say prepod
else
@ i,43 say "³"
endif
if Kur >0
@ i,64 say "³"
@ i,66 say prepod
@ i,85 say "³"
else
@ i,64 say "³"
@ i,85 say "³"
endif
i++
continue
enddo
@ i,1 say "ĄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄĮÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄĮÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄĮÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄŁ"
@ i+1,5 say "Ęåėąåņå āūāåńņč ķą ļå÷ąņü [y\n] "
@ i+1,40 get otw
read
if otw = "Y" .or. "y"
set print on
set devi to print
sele 10
go top
locate for PREDM=pred .and. Sem=ns
clear
@ 1,1 say "Ļšåäģåņ: "
@ 1,10 say pred
@ 2,1 say "Ńåģåńņš: "
@ 2,10 say ns pict "999"
@ 3,1 say "ŌČĪ ėåźņīšą: "
@ 3,14 say lektor
@ 4,1 say "ŚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄĀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄĀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄĀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄæ"
@ 5,1 say "³ Ļš.ēąķ˙ņč˙ ³ Ėąįīšąņ. šąį. ³ ČŠŃ ³ Źóšń.ļšīåźņčš. ³"
@ 6,1 say "ĆÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´"
i=7
do while !eof()
*āūāīä ńļčńźą
sele 11
go A_pr
prepod=Prep
sele 10
if Pz>0
@ i,1 say "³"
@ i,3 say prepod
else
@ i,1 say "³"
endif
if Lba >0
@ i,22 say "³"
@ i,24 say prepod
else
@ i,22 say "³"
endif
if Irs >0
@ i,43 say "³"
@ i,45 say prepod
else
@ i,43 say "³"
endif
if Kur >0
@ i,64 say "³"
@ i,66 say prepod
@ i,85 say "³"
else
@ i,64 say "³"
@ i,85 say "³"
endif
i++
continue
enddo
endif
return