...

...

:
1.
2.
3. ,
4.
5.
6.
7. ˳

.
:

' NOMBIL, READERS BOOKS (' --).
,

1. ³, .
2. .
3.
) ³ .
) , .
) ³ .

) ³ .

) ³ .

4. .
5. .
6. .


***
CLEAR
RELEASE ALL
SET MOUSE OFF
SET BELL OFF
SET TALK OFF
SET ESCAPE OFF
SET DATE GERMAN
SET HELP OFF
ON KEY
CLEAR MACROS
***
DEFINE WINDOW BEGIN FROM 3,15 TO 16,64;
COLOR N / GR ,, GR + / GR DOUBL
ACTIVATE WINDOW BEGIN
PS = 0
DO WHILE PS = 0
@ 0,16 SAY ' '
@ 1,10 SAY ' ""'
@ 3,7 SAY ' "ײ ˲"'
@ 4,17 SAY '( 21)'
@ 6 , 2 SAY ': Ӳ-198 ..'
@ 7,2 SAY ': ..'
@ 11,21 SAY 'IJ :' GET PAS DEFAULT SPACE (10)
READ
DO CASE
CASE PAS # '332087S'
WAIT ' ' WINDOW
OTHERWISE
PS = 1
RELEASE WINDOW BEGIN
ENDCASE
ENDDO
*** ³ '
USE READERS IN A ORDER 1
USE BOOKS IN B ORDER 1
SET RELATION TO NOMBIL INTO B
SET SKIP TO B
***
DEFINE WINDOW F1 FROM 12,27 TO 20,73;
TITLE '';
COLOR W + / G DOUBL SHADOW
DEFINE WINDOW F3 FROM 13,10 TO 22,69;
TITLE ' H';
COLOR SCHEME 5 DOUBL SHADOW
DEFINE WINDOW SELECT FROM 3,2 TO 14,78;
TITLE ' Hò';
COLOR W + / GR, W + / GR, W + / GR, W + / GR ,, W + / N
DEFINE WINDOW SELECT1 FROM 2,0 TO 22,79 ;
TITLE ' H';
COLOR W + / BG
DEFINE WINDOW F4 FROM 11,0 TO 18,53;
TITLE 'HH ';
COLOR SCHEME 5 DOUBL SHADOW
DEFINE WINDOW BROWSE1 FROM 0,0 TO 4,79;
TITLE DTOC (DATE ());
COLOR W + / B
DEFINE WINDOW BROWSE FROM 5,0 TO 15,79;
COLOR SCHEME 10
DEFINE WINDOW NOMER FROM 15,25 TO 18,55;
TITLE ' ';
COLOR SCHEME 5 SHADOW
DEFINE WINDOW APPEND FROM 14,15 TO 22,69;
TITLE 'H ';
DOUBLE COLOR SCHEME 5 SHADOW
DEFINE WINDOW APPEND1 FROM 13,15 TO 23,69;
TITLE 'H Hò';
DOUBLE COLOR SCHEME 5 SHADOW
DEFINE WINDOW WHERE FROM 14,15 TO 23,54;
TITLE ' HH';
DOUBLE COLOR SCHEME 5 SHADOW
DEFINE WINDOW EXIT FROM 16,20 TO 19,60;
COLOR SCHEME 7 SHADOW
*** ()
SET COLOR TO W + / B, N / RB
SELECT A
M = 0
DO WHILE M # 5
CLEAR
@ 3,20 TO 13,58 DOUBL
@ 5,28 SAY 'H H:' COLOR BG / B
@ 7,28 PROMPT ' '
@ 8,28 PROMPT ' '
@ 9,28 PROMPT ' H'
@ 10,28 PROMPT ' H'
@ 11,28 PROMPT 'ղ'
MENU TO M
DO MENUGLAV
ENDDO
*** ʳ
*** ϳ
ON KEY
SET COLOR TO
SET BELL ON
SET MOUSE ON
SET HELP ON
CLEAR WINDOWS
CLOSE ALL
CLEAR
*** H
***
PROCEDURE MENUGLAV
DO CASE
CASE M = 1
DO MAIN
CASE M = 2
DO APPENDREADER
CASE M = 3
DO APPENDBOOK
CASE M = 4
DO DOLG
CASE M = 5
DO EXIT
ENDCASE
RETURN
***
PROCEDURE MAIN
D = 0
DO WHILE D = 0
SELECT A
ACTIVATE WINDOW NOMER
@ 0,1 SAY ' '
@ 1,4 GET A FUNCTION 'ZZZZ' PICTURE '9999' DEFAULT 0
I = 0
@ 0,21 GET I FUNCTION;
'* ; H' SIZE 1,1,0
READ CYCLE
***
DO CASE
CASE I = 1.AND.EMPTY (A)
WAIT 'H ' WINDOW
CASE I = 1.AND.! EMPTY (A) .AND.! SEEK (A)
WAIT ' ' + ALLTRIM (STR (A)) + ;
" 'WINDOW
CASE I = 2.OR.LASTKEY () = 27
DEACTIVATE WINDOW NOMER
D = 1
RETURN
OTHERWISE
DEACTIVATE WINDOW NOMER
D = 1
*** BROWSE-
DO KEY &&
n = RECNO ()
CLEAR
@ 16,0 SAY 'F1- F2-вH H F3-;
H F4-H HH '
DO BROWSE1
SELECT B
ACTIVATE WINDOW BROWSE TOP
BROWSE TITLE ' H, HH ²';
FIELDS WRITER: H = '': 15 ,;
NAME: H = 'HH': 33,;
YEAR: H = 'в .': 8,;
INVNOM: H = 'H ': 5,;
DATA: H = ' ײ': 11;
FOR NOMBIL = n;
NOEDIT NOAPPEND WINDOW BROWSE
DEACTIVATE WINDOW BROWSE
DEACTIVATE WINDOW BROWSE1
ENDCASE
ENDDO
ON KEY
RETURN
***
PROCEDURE APPENDREADER
SELECT A
N = RECCOUNT () + 1
D = 0
ACTIVATE WINDOW APPEND BOTTOM
DO WHILE D = 0
@ 1,1 SAY '... 'GET FIOn DEFAULT SPACE (30)
@ 3,1 SAY' 'GET ADDRn DEFAULT SPACE (40)
@ 5,1 SAY' H - ' + STR (N, 2)
I = 0
@ 6,30 GET I FUNCTION;
'* H ; H' SIZE 1,1,4
READ CYCLE
DO CASE
CASE I = 1.AND. '' # ALLTRIM (FIOn) .AND .;
'' #ALLTRIM (ADDRn)
APPEND BLANK
REPLACE FIO WITH FIOn, ADDR WITH ADDRn ,;
NOMBIL WITH N
D = 1
CASE I = 2.OR.LASTKEY () = 27
D = 1
OTHERWISE
WAIT ' ' WINDOW
ENDCASE
ENDDO
DEACTIVATE WINDOW APPEND
RETURN
*** H
PROCEDURE APPENDBOOK
SELECT B
N = RECCOUNT () + 1
D = 0
ACTIVATE WINDOW APPEND1 BOTTOM
DO WHILE D = 0
@ 1,1 SAY '' GET WRITERn DEFAULT SPACE (20)
@ 3,1 SAY 'HH' GET NAMEn DEFAULT SPACE (40)
@ 5,1 SAY 'в . 'GET YEARn FUNCTION' ZZZZ 'PICTURE' 9999 'DEFAULT 0
@ 7,1 SAY' H. - '+ STR (N, 2)
I = 0
@ 8,30 GET I FUNCTION;
'* H ; H' SIZE 1,1,4
READ CYCLE
DO CASE
CASE I = 1.AND. '' # ALLTRIM (WRITERn);
.AND. '' # ALLTRIM (NAMEn);
.AND. '' # ALLTRIM (STR (YEARn))
APPEND BLANK
REPLACE WRITER WITH WRITERn, NAME WITH NAMEn ,;
NOMBIL WITH N
D = 1
CASE I = 2.OR.LASTKEY () = 27
D = 1
OTHERWISE
WAIT ' ' WINDOW
ENDCASE
ENDDO
DEACTIVATE WINDOW APPEND1
RETURN
*** H
PROCEDURE DOLG
SET SPACE OFF
LOCATE FOR '' #ALLTRIM (DTOC (B.DATA, 1)). AND.B.DATA
IF! FOUND ()
WAIT ' !' WINDOW
RETURN
ENDIF
J = 1
I = 1
FILE = 'DOLG.TXT'
PATH = SYS (5) + CURDIR (SYS (5))
ACTIVATE WINDOW WHERE BOTTOM
SELECT A
@ 1,1 GET J FUNCTION;
'* R H ; H ; ' VALID A ()
@ 5,1 SAY ':'
@ 5,12 EDIT FILE SIZE 1,13,12 COLOR, W + / BG ,,,,,,,, W / RB;
DISABLE
@ 7,6 SAY ':'
@ 7,12 EDIT PATH SIZE 1,24 COLOR, W + / BG ,,,,,,,, W / RB;
DISABLE
@ 1,28 GET I FUNCTION;
'* OK; HA' SIZE 1,1,1
READ CYCLE
DO CASE
CASE I = 2.OR.LASTKEY () = 27 && ESC
DEACTIVATE WINDOW WHERE
CASE I = 1.AND.J = 1 &&
DEACTIVATE WINDOW WHERE
GO TOP
ACTIVATE WINDOW SELECT1
CLEAR
***
I = 1
LOCATE FOR '' #ALLTRIM (DTOC (B.DATA, 1 ));
.AND.B.DATA
IF FOUND ()
? ALLTRIM (STR (I)), '. ', FIO,' H : ', NOMBIL
A = NOMBIL
ENDIF
DO WHILE FOUND ()
IF ROW () = 17.OR.ROW () = 18
WAIT 'H ' WINDOW
CLEAR
ENDIF
IF A # NOMBIL
A = NOMBIL
I = I + 1
? ALLTRIM (STR (I)), '. ', FIO,' H : ', NOMBIL
ENDIF
? '', B.WRITER, B.NAME, '', B.INVNOM, '', B.DATA
CONTINUE
ENDDO
WAIT 'ʳ ' WINDOW
DEACTIVATE WINDOW SELECT1
CASE I = 1.AND.J = 2 &&
DEACTIVATE WINDOW WHERE
IF PRINTSTATUS ()
SET PRINTER ON
SET PRINTER TO LPT1
DO DOLGMEN &&
EJECT PAGE
SET PRINTER TO
SET PRINTER OFF
ELSE
WAIT ' !' WINDOW
ENDIF
CASE I = 1.AND.J = 3 &&
DEACTIVATE WINDOW WHERE
SET PRINTER ON

...
ur.co.ua