50 lines
522 B
Plaintext
50 lines
522 B
Plaintext
|
PAGE "Monitor" -1 -1 50 20
|
||
|
|
|
||
|
|
LIST 101 24 -3
|
||
|
|
BEGIN
|
||
|
|
PROMPT 0 0 ""
|
||
|
|
END
|
||
|
|
|
||
|
|
STACK 102 -3 10
|
||
|
|
BEGIN
|
||
|
|
PROMPT 27 0 ""
|
||
|
|
END
|
||
|
|
|
||
|
|
STACK 103 -3 -3
|
||
|
|
BEGIN
|
||
|
|
PROMPT 27 11 ""
|
||
|
|
END
|
||
|
|
|
||
|
|
BUTTON DLG_NEXTREC 9 2
|
||
|
|
BEGIN
|
||
|
|
PROMPT -14 -1 ""
|
||
|
|
PICTURE 124
|
||
|
|
MESSAGE EXIT,K_F11
|
||
|
|
END
|
||
|
|
|
||
|
|
BUTTON DLG_LASTREC 9 2
|
||
|
|
BEGIN
|
||
|
|
PROMPT -24 -1 ""
|
||
|
|
PICTURE 1671
|
||
|
|
MESSAGE EXIT,K_F10
|
||
|
|
END
|
||
|
|
|
||
|
|
BUTTON DLG_ELABORA 9 2
|
||
|
|
BEGIN
|
||
|
|
PROMPT -34 -1 ""
|
||
|
|
PICTURE BMP_LASTREC
|
||
|
|
MESSAGE EXIT,K_F5
|
||
|
|
END
|
||
|
|
|
||
|
|
BUTTON DLG_QUIT 9 2
|
||
|
|
BEGIN
|
||
|
|
PROMPT -44 -1 ""
|
||
|
|
MESSAGE EXIT,K_QUIT
|
||
|
|
END
|
||
|
|
|
||
|
|
|
||
|
|
ENDPAGE
|
||
|
|
|
||
|
|
ENDMASK
|
||
|
|
|