INTERNET
 :
  |    

/

, . /

1 | 2 | 3 | 4

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


Copyright © 2005—2007 «RefStore.Ru»