N | |||
1 | |||
: | N | ||
:1 | N | ||
:2 | N | ||
:3 | N | ||
:4 | N | ||
:1 | N | ||
:2 | N | ||
:3 | N | ||
:4 | N | ||
:1 | N | ||
:2 | N | ||
:3 | N | ||
:4 | N | ||
. / | N | ||
: | N | ||
: | N | ||
. | N | ||
N | |||
1 | |||
N | |||
N | |||
N | |||
N | |||
1 | N | ||
2 | N | ||
N | |||
N | |||
N | |||
: PROP FRM (), TRUD.FRM ( ), UPK.FRM (), SOHR.FRM ( ), WTORG.FRM ( ). NEUSP.FRM (), SEM.FRM ( ), PIT.FRM ( ), MED.FRM ( ), UBN.FRM ( ), GRD.FRM ( ).
, ( -.. ).
140
____________ MAIN. PRG _________________
erase
set colon on
set talk off
store ' ' to rl,dd,d3
do whiled3<>'3'
erase
do while dd<>'l'.and. dd <>'2'.and. dd<>'3'
@ 5,12 say ' 1). 1 '
@ 6,12 say ' 2). 2
@ 7,12 say ' 3). '
@ 8,12 say ' ' get dd
read
loop
enddo
If dd<>'3'
do case
case dd= '1'
use newws Index kl
case dd = '2'
use newwsl Index kll
endcase
do menu
else
store '3' to d3
endif store ' ' to dd
loop
enddo
cancel
_______ MENU.PRG ____________________
MENU.PRG : SERVIS2.PRG (), APPN PRG (), NEWBD.PRG ( ), SERVIS3.PRG (), DOC.PRG (). SERVIS2.PRG, - DOP.PRG, .
141
set format to screen
store 0 to dl, d2
do while d2<>8
goto top
erase
store 0 to dl
text
1) 4)
2) 5)
3) 6)
endtext
do while d1<>l.and. dl<>2.and. dl<>3.and. dl<>4;.and. dl<>5.and.
|
|
dl<>6
@ 9,1 say ' ' get dl picture '9'
read
loop
enddo
do case
case dl=3
do DOP
do SERVIS2
case dl=2
do APPN
case dl=l
do NEWBD
case dl=4
do SERVIS3
case dl=5
do DOC
case dl=6
store 8 to d2
endcase
loop
enddo
return
_____________ DOP.PRG ______________
DOP.PRG , kkk. , kkk , , - .
142
store 0 to kl
store to kl
store to pp
***
@ 10,1 say ' *
do while pp
@ 10,13 get kl picture '99-99'
read
if val($(kl,l,2))<12.and. val($(kl,4,2))<l2
store F to pp
endif
loop
enddo
*** kkk
if val ($(kl,4,2))=0
store 12 to kl
else
store val($(kl,4,2))+l to kl
endif
store 'Kacc>val ($ (kl, 1,2))1.and. Knacc<kl' to kkk
return
____________ SERV1S2.PRG _________________
. , , , .
143
erase
set colon off
set talk off
goto top
if val(dd)=l
do shapka
else do shapkal
endif
store 1 to numl,num2
store to log
store ' ' to rl
store 0 to pointer, num
store 't' to dl
count to num
do while num1<num.and. num2<num.and. log
store 10 to line
store 't' to dl
@ 21,25 say '>>
@ 22,25 say " '
if val(dd)=l
do newws2
else
do newws21
endif
skip - line + 10
store 10 to line
do i zm2
store pointer+1 to pointer
loop
if num1<num
skip
endif
enddo
_____________ SHAPKA.PRG _____________
144
erase
text
1
, . | ||||||||
1 2 3 4 | 1 2 3 4 | 1 2 3 4 | . | . | ||||
endtext
return.
____________ SHAPKA1.PRG ____________
145
erase
text
2
, | |||||||||||
/ | . | . | |||||||||
1. ? ?
2. ANSI/SPARC ?
3. ?
4. ?
5. ?
|
|
6. dBASE.
7. dBASE IV?
8. ?
9. dBASE?
10. ?
11. .
12. ?
13. ?
14. ?
15. dBASE?
16. :
) ;
) ;
) ;
) ;
) , ;
) ;
) ;
) ;
) ;
) -;
) .
17. -.
18. ?
19. dBASE?
20. ?
21. dBASE?
22. ?
23. , dBASE?