562 lines
11 KiB
Plaintext
Executable File
562 lines
11 KiB
Plaintext
Executable File
#include "cg3200.h"
|
|
|
|
PAGE "" -1 -1 78 20
|
|
|
|
|
|
NUMBER F_CODDITTA 5
|
|
BEGIN
|
|
PROMPT 4 1 "Ditta "
|
|
FLAGS "FRD"
|
|
USE LF_NDITTE KEY 1
|
|
CHECKTYPE REQUIRED
|
|
INPUT CODDITTA F_CODDITTA
|
|
DISPLAY "Codice" CODDITTA
|
|
DISPLAY "Ragione sociale @50" RAGSOC
|
|
OUTPUT F_CODDITTA CODDITTA
|
|
OUTPUT F_RAGSOC RAGSOC
|
|
END
|
|
|
|
STRING F_RAGSOC 50
|
|
BEGIN
|
|
PROMPT 4 2 "Ragione sociale "
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_ANNO 4
|
|
BEGIN
|
|
PROMPT 47 1 "Anno esercizio "
|
|
HELP "Inserire un anno esercizio presente nella tabella oppure niente: in quest'ultimo caso non e' possibile fare il controllo competenza esercizio"
|
|
USE ESC
|
|
INPUT CODTAB F_ANNO
|
|
DISPLAY "Anno Esercizio@50" CODTAB
|
|
OUTPUT F_ANNO CODTAB
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
LIST F_RICERCA 25
|
|
BEGIN
|
|
PROMPT 4 4 "Ricerca "
|
|
ITEM "C|Clienti"
|
|
MESSAGE HIDE,2@|HIDE,3@|RESET,2@|RESET,3@|SHOW,1@
|
|
ITEM "F|Fornitori"
|
|
MESSAGE HIDE,1@|HIDE,3@|RESET,1@|RESET,3@|SHOW,2@
|
|
ITEM "P|Gruppo/conto/sottoconto"
|
|
MESSAGE HIDE,1@|HIDE,2@|RESET,1@|RESET,2@|SHOW,3@
|
|
END
|
|
|
|
NUMBER F_GRUPPOINI 3
|
|
BEGIN
|
|
PROMPT 4 5 "Da Gruppo - Conto - Sottoconto "
|
|
USE LF_CLIFO SELECT TIPOCF="C"
|
|
// CHECKTYPE NORMAL
|
|
INPUT GRUPPO F_GRUPPOINI
|
|
DISPLAY "Tipo" TIPOCF
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
OUTPUT F_GRUPPOINI GRUPPO
|
|
OUTPUT F_CONTOINI CONTO
|
|
OUTPUT F_SOTTOCONTOINI CODCF
|
|
OUTPUT F_DESCRINI RAGSOC
|
|
FLAGS "RZ"
|
|
GROUP 1
|
|
END
|
|
|
|
NUMBER F_CONTOINI 3
|
|
BEGIN
|
|
PROMPT 41 5 ""
|
|
COPY USE F_GRUPPOINI
|
|
// CHECKTYPE NORMAL
|
|
INPUT GRUPPO F_GRUPPOINI
|
|
INPUT CONTO F_CONTOINI
|
|
DISPLAY "Tipo" TIPOCF
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
OUTPUT F_GRUPPOINI GRUPPO
|
|
OUTPUT F_CONTOINI CONTO
|
|
OUTPUT F_SOTTOCONTOINI CODCF
|
|
OUTPUT F_DESCRINI RAGSOC
|
|
FLAGS "RZ"
|
|
GROUP 1
|
|
END
|
|
|
|
NUMBER F_SOTTOCONTOINI 6
|
|
BEGIN
|
|
PROMPT 47 5 ""
|
|
COPY USE F_GRUPPOINI
|
|
// CHECKTYPE NORMAL
|
|
INPUT GRUPPO F_GRUPPOINI
|
|
INPUT CONTO F_CONTOINI
|
|
INPUT CODCF F_SOTTOCONTOINI
|
|
DISPLAY "Tipo" TIPOCF
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
OUTPUT F_GRUPPOINI GRUPPO
|
|
OUTPUT F_CONTOINI CONTO
|
|
OUTPUT F_SOTTOCONTOINI CODCF
|
|
OUTPUT F_DESCRINI RAGSOC
|
|
FLAGS "RZ"
|
|
GROUP 1
|
|
END
|
|
|
|
STRING F_DESCRINI 50
|
|
BEGIN
|
|
PROMPT 4 6 "Ragione sociale "
|
|
FLAGS "D"
|
|
GROUP 1
|
|
END
|
|
|
|
NUMBER F_GRUPPOFINE 3
|
|
BEGIN
|
|
PROMPT 4 7 "A Gruppo - Conto - Sottoconto "
|
|
COPY USE F_GRUPPOINI
|
|
// CHECKTYPE NORMAL
|
|
INPUT GRUPPO F_GRUPPOFINE
|
|
DISPLAY "Tipo" TIPOCF
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
OUTPUT F_GRUPPOFINE GRUPPO
|
|
OUTPUT F_CONTOFINE CONTO
|
|
OUTPUT F_SOTTOCONTOFINE CODCF
|
|
OUTPUT F_DESCRFINE RAGSOC
|
|
FLAGS "RZ"
|
|
GROUP 1
|
|
END
|
|
|
|
NUMBER F_CONTOFINE 3
|
|
BEGIN
|
|
PROMPT 41 7 ""
|
|
COPY USE F_GRUPPOINI
|
|
// CHECKTYPE NORMAL
|
|
INPUT GRUPPO F_GRUPPOFINE
|
|
INPUT CONTO F_CONTOFINE
|
|
DISPLAY "Tipo" TIPOCF
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
OUTPUT F_GRUPPOFINE GRUPPO
|
|
OUTPUT F_CONTOFINE CONTO
|
|
OUTPUT F_SOTTOCONTOFINE CODCF
|
|
OUTPUT F_DESCRFINE RAGSOC
|
|
FLAGS "RZ"
|
|
GROUP 1
|
|
END
|
|
|
|
NUMBER F_SOTTOCONTOFINE 6
|
|
BEGIN
|
|
PROMPT 47 7 ""
|
|
COPY USE F_GRUPPOINI
|
|
// CHECKTYPE NORMAL
|
|
INPUT GRUPPO F_GRUPPOFINE
|
|
INPUT CONTO F_CONTOFINE
|
|
INPUT CODCF F_SOTTOCONTOFINE
|
|
DISPLAY "Tipo" TIPOCF
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
OUTPUT F_GRUPPOFINE GRUPPO
|
|
OUTPUT F_CONTOFINE CONTO
|
|
OUTPUT F_SOTTOCONTOFINE CODCF
|
|
OUTPUT F_DESCRFINE RAGSOC
|
|
FLAGS "RZ"
|
|
GROUP 1
|
|
END
|
|
|
|
STRING F_DESCRFINE 50
|
|
BEGIN
|
|
PROMPT 4 8 "Ragione sociale "
|
|
FLAGS "D"
|
|
GROUP 1
|
|
END
|
|
|
|
NUMBER F_GRUPPOINI2 3
|
|
BEGIN
|
|
PROMPT 4 5 "Da Gruppo - Conto - Sottoconto "
|
|
USE LF_CLIFO SELECT TIPOCF="F"
|
|
// CHECKTYPE NORMAL
|
|
INPUT GRUPPO F_GRUPPOINI2
|
|
DISPLAY "Tipo" TIPOCF
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
OUTPUT F_GRUPPOINI2 GRUPPO
|
|
OUTPUT F_CONTOINI2 CONTO
|
|
OUTPUT F_SOTTOCONTOINI2 CODCF
|
|
OUTPUT F_DESCRINI2 RAGSOC
|
|
FLAGS "RZ"
|
|
GROUP 2
|
|
MESSAGE COPY,F_GRUPPOINI
|
|
END
|
|
|
|
NUMBER F_CONTOINI2 3
|
|
BEGIN
|
|
PROMPT 41 5 ""
|
|
COPY USE F_GRUPPOINI2
|
|
// CHECKTYPE NORMAL
|
|
INPUT GRUPPO F_GRUPPOINI2
|
|
INPUT CONTO F_CONTOINI2
|
|
DISPLAY "Tipo" TIPOCF
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
OUTPUT F_GRUPPOINI2 GRUPPO
|
|
OUTPUT F_CONTOINI2 CONTO
|
|
OUTPUT F_SOTTOCONTOINI2 CODCF
|
|
OUTPUT F_DESCRINI2 RAGSOC
|
|
FLAGS "RZ"
|
|
GROUP 2
|
|
MESSAGE COPY,F_CONTOINI
|
|
END
|
|
|
|
NUMBER F_SOTTOCONTOINI2 6
|
|
BEGIN
|
|
PROMPT 47 5 ""
|
|
COPY USE F_GRUPPOINI2
|
|
// CHECKTYPE NORMAL
|
|
INPUT GRUPPO F_GRUPPOINI2
|
|
INPUT CONTO F_CONTOINI2
|
|
INPUT CODCF F_SOTTOCONTOINI2
|
|
DISPLAY "Tipo" TIPOCF
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
OUTPUT F_GRUPPOINI2 GRUPPO
|
|
OUTPUT F_CONTOINI2 CONTO
|
|
OUTPUT F_SOTTOCONTOINI2 CODCF
|
|
OUTPUT F_DESCRINI2 RAGSOC
|
|
FLAGS "RZ"
|
|
GROUP 2
|
|
MESSAGE COPY,F_SOTTOCONTOINI
|
|
END
|
|
|
|
STRING F_DESCRINI2 50
|
|
BEGIN
|
|
PROMPT 4 6 "Ragione sociale "
|
|
FLAGS "D"
|
|
GROUP 2
|
|
END
|
|
|
|
NUMBER F_GRUPPOFINE2 3
|
|
BEGIN
|
|
PROMPT 4 7 "A Gruppo - Conto - Sottoconto "
|
|
COPY USE F_GRUPPOINI2
|
|
// CHECKTYPE NORMAL
|
|
INPUT GRUPPO F_GRUPPOFINE2
|
|
DISPLAY "Tipo" TIPOCF
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
OUTPUT F_GRUPPOFINE2 GRUPPO
|
|
OUTPUT F_CONTOFINE2 CONTO
|
|
OUTPUT F_SOTTOCONTOFINE2 CODCF
|
|
OUTPUT F_DESCRFINE2 RAGSOC
|
|
FLAGS "RZ"
|
|
GROUP 2
|
|
MESSAGE COPY,F_GRUPPOFINE
|
|
END
|
|
|
|
NUMBER F_CONTOFINE2 3
|
|
BEGIN
|
|
PROMPT 41 7 ""
|
|
COPY USE F_GRUPPOINI2
|
|
// CHECKTYPE NORMAL
|
|
INPUT GRUPPO F_GRUPPOFINE2
|
|
INPUT CONTO F_CONTOFINE2
|
|
DISPLAY "Tipo" TIPOCF
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
OUTPUT F_GRUPPOFINE2 GRUPPO
|
|
OUTPUT F_CONTOFINE2 CONTO
|
|
OUTPUT F_SOTTOCONTOFINE2 CODCF
|
|
OUTPUT F_DESCRFINE2 RAGSOC
|
|
FLAGS "RZ"
|
|
GROUP 2
|
|
MESSAGE COPY,F_CONTOFINE
|
|
END
|
|
|
|
NUMBER F_SOTTOCONTOFINE2 6
|
|
BEGIN
|
|
PROMPT 47 7 ""
|
|
COPY USE F_GRUPPOINI2
|
|
// CHECKTYPE NORMAL
|
|
INPUT GRUPPO F_GRUPPOFINE2
|
|
INPUT CONTO F_CONTOFINE2
|
|
INPUT CODCF F_SOTTOCONTOFINE2
|
|
DISPLAY "Tipo" TIPOCF
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
OUTPUT F_GRUPPOFINE2 GRUPPO
|
|
OUTPUT F_CONTOFINE2 CONTO
|
|
OUTPUT F_SOTTOCONTOFINE2 CODCF
|
|
OUTPUT F_DESCRFINE2 RAGSOC
|
|
FLAGS "RZ"
|
|
GROUP 2
|
|
MESSAGE COPY,F_SOTTOCONTOFINE
|
|
END
|
|
|
|
STRING F_DESCRFINE2 50
|
|
BEGIN
|
|
PROMPT 4 8 "Ragione sociale "
|
|
FLAGS "D"
|
|
GROUP 2
|
|
END
|
|
|
|
NUMBER F_GRUPPOINI3 3
|
|
BEGIN
|
|
PROMPT 4 5 "Da Gruppo - Conto - Sottoconto "
|
|
USE LF_PCON
|
|
// CHECKTYPE NORMAL
|
|
INPUT GRUPPO F_GRUPPOINI3
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_GRUPPOINI3 GRUPPO
|
|
OUTPUT F_CONTOINI3 CONTO
|
|
OUTPUT F_SOTTOCONTOINI3 SOTTOCONTO
|
|
OUTPUT F_DESCRINI3 DESCR
|
|
FLAGS "RZ"
|
|
GROUP 3
|
|
MESSAGE COPY,F_GRUPPOINI
|
|
END
|
|
|
|
NUMBER F_CONTOINI3 3
|
|
BEGIN
|
|
PROMPT 41 5 ""
|
|
COPY USE F_GRUPPOINI3
|
|
// CHECKTYPE NORMAL
|
|
INPUT GRUPPO F_GRUPPOINI3
|
|
INPUT CONTO F_CONTOINI3
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_GRUPPOINI3 GRUPPO
|
|
OUTPUT F_CONTOINI3 CONTO
|
|
OUTPUT F_SOTTOCONTOINI3 SOTTOCONTO
|
|
OUTPUT F_DESCRINI3 DESCR
|
|
FLAGS "RZ"
|
|
GROUP 3
|
|
MESSAGE COPY,F_CONTOINI
|
|
END
|
|
|
|
NUMBER F_SOTTOCONTOINI3 6
|
|
BEGIN
|
|
PROMPT 47 5 ""
|
|
COPY USE F_GRUPPOINI3
|
|
// CHECKTYPE NORMAL
|
|
INPUT GRUPPO F_GRUPPOINI3
|
|
INPUT CONTO F_CONTOINI3
|
|
INPUT SOTTOCONTO F_SOTTOCONTOINI3
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_GRUPPOINI3 GRUPPO
|
|
OUTPUT F_CONTOINI3 CONTO
|
|
OUTPUT F_SOTTOCONTOINI3 SOTTOCONTO
|
|
OUTPUT F_DESCRINI3 DESCR
|
|
FLAGS "RZ"
|
|
GROUP 3
|
|
MESSAGE COPY,F_SOTTOCONTOINI
|
|
END
|
|
|
|
STRING F_DESCRINI3 50
|
|
BEGIN
|
|
PROMPT 4 6 "Descrizione "
|
|
FLAGS "D"
|
|
GROUP 3
|
|
END
|
|
|
|
NUMBER F_GRUPPOFINE3 3
|
|
BEGIN
|
|
PROMPT 4 7 "A Gruppo - Conto - Sottoconto "
|
|
COPY USE F_GRUPPOINI3
|
|
// CHECKTYPE NORMAL
|
|
INPUT GRUPPO F_GRUPPOFINE3
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_GRUPPOFINE3 GRUPPO
|
|
OUTPUT F_CONTOFINE3 CONTO
|
|
OUTPUT F_SOTTOCONTOFINE3 SOTTOCONTO
|
|
OUTPUT F_DESCRFINE3 DESCR
|
|
FLAGS "RZ"
|
|
GROUP 3
|
|
MESSAGE COPY,F_GRUPPOFINE
|
|
END
|
|
|
|
NUMBER F_CONTOFINE3 3
|
|
BEGIN
|
|
PROMPT 41 7 ""
|
|
COPY USE F_GRUPPOFINE3
|
|
// CHECKTYPE NORMAL
|
|
INPUT GRUPPO F_GRUPPOFINE3
|
|
INPUT CONTO F_CONTOFINE3
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_GRUPPOFINE3 GRUPPO
|
|
OUTPUT F_CONTOFINE3 CONTO
|
|
OUTPUT F_SOTTOCONTOFINE3 SOTTOCONTO
|
|
OUTPUT F_DESCRFINE3 DESCR
|
|
FLAGS "RZ"
|
|
GROUP 3
|
|
MESSAGE COPY,F_CONTOFINE
|
|
END
|
|
|
|
NUMBER F_SOTTOCONTOFINE3 6
|
|
BEGIN
|
|
PROMPT 47 7 ""
|
|
COPY USE F_GRUPPOFINE3
|
|
// CHECKTYPE NORMAL
|
|
INPUT GRUPPO F_GRUPPOFINE3
|
|
INPUT CONTO F_CONTOFINE3
|
|
INPUT SOTTOCONTO F_SOTTOCONTOFINE3
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_GRUPPOFINE3 GRUPPO
|
|
OUTPUT F_CONTOFINE3 CONTO
|
|
OUTPUT F_SOTTOCONTOFINE3 SOTTOCONTO
|
|
OUTPUT F_DESCRFINE3 DESCR
|
|
FLAGS "RZ"
|
|
GROUP 3
|
|
MESSAGE COPY,F_SOTTOCONTOFINE
|
|
END
|
|
|
|
STRING F_DESCRFINE3 50
|
|
BEGIN
|
|
PROMPT 4 8 "Descrizione "
|
|
FLAGS "D"
|
|
GROUP 3
|
|
END
|
|
|
|
DATE F_DATAINI
|
|
BEGIN
|
|
PROMPT 4 10 "Data inizio "
|
|
END
|
|
|
|
DATE F_DATAFINE
|
|
BEGIN
|
|
PROMPT 51 10 "Data fine "
|
|
END
|
|
|
|
BOOLEAN F_COMPESE
|
|
BEGIN
|
|
PROMPT 4 12 "Controllo competenza esercizio"
|
|
END
|
|
|
|
BOOLEAN F_STAMPAPROGRE
|
|
BEGIN
|
|
PROMPT 44 12 "Stampa progressivi attuali"
|
|
END
|
|
|
|
BOOLEAN F_STAMPATOTIVA
|
|
BEGIN
|
|
PROMPT 4 13 "Stampa totali documenti IVA"
|
|
END
|
|
|
|
BOOLEAN F_STAMPAMOVPROV
|
|
BEGIN
|
|
PROMPT 44 13 "Stampa movimenti provvisori"
|
|
END
|
|
|
|
LIST F_STAMPANUM 15
|
|
BEGIN
|
|
PROMPT 4 15 "Stampa numerazione "
|
|
ITEM "1|Registrazione"
|
|
ITEM "2|Riga giornale"
|
|
END
|
|
|
|
LIST F_TIPOSTAMPA 34
|
|
BEGIN
|
|
PROMPT 4 16 "Tipo stampa "
|
|
ITEM "1|Mastrini movimentati nel periodo"
|
|
ITEM "2|Mastrini con saldi diversi da 0"
|
|
ITEM "3|Completa"
|
|
END
|
|
|
|
|
|
BOOLEAN F_MEMORIZZA
|
|
BEGIN
|
|
PROMPT 4 17 "Memorizza scelte"
|
|
END
|
|
|
|
BUTTON DLG_OK 9 2
|
|
BEGIN
|
|
PROMPT -12 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_QUIT 9 2
|
|
BEGIN
|
|
PROMPT -22 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "" -1 -1 60 10
|
|
|
|
LIST F_NUMCARAT 10
|
|
BEGIN
|
|
PROMPT 4 2 "Numero caratteri "
|
|
ITEM "1|132 crt."
|
|
ITEM "2|198 crt."
|
|
END
|
|
|
|
LIST F_FORMATO 23
|
|
BEGIN
|
|
PROMPT 4 4 "Formato modulo di stampa "
|
|
ITEM "66|11 pollici (27,94 cm)"
|
|
ITEM "72|12 pollici (30,48 cm)"
|
|
END
|
|
|
|
LIST F_NUMMAST 5
|
|
BEGIN
|
|
PROMPT 4 6 "Numero mastrini per pagina "
|
|
ITEM "1|Uno"
|
|
ITEM "2|Due"
|
|
END
|
|
|
|
BUTTON DLG_OK 9 2
|
|
BEGIN
|
|
PROMPT -12 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_QUIT 9 2
|
|
BEGIN
|
|
PROMPT -22 -1 ""
|
|
END
|
|
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|