69 lines
1.2 KiB
Plaintext
Executable File
69 lines
1.2 KiB
Plaintext
Executable File
#include <defmask.h>
|
|
#include "ba1100a.h"
|
|
|
|
PAGE "Scarico Archivio" -1 -1 70 13
|
|
|
|
STRING FLD_OUTFILE 50
|
|
BEGIN
|
|
PROMPT 2 1 "File di output "
|
|
HELP "Inserire il nome del file di output"
|
|
END
|
|
|
|
BOOLEAN FLD_WITHKEY
|
|
BEGIN
|
|
PROMPT 2 3 "Scarica con indice"
|
|
MESSAGE FALSE CLEAR,FLD_KEYNO|ENABLE,FLD_WITHDEL
|
|
MESSAGE TRUE ENABLE,FLD_KEYNO|"1",FLD_KEYNO|CLEAR,FLD_WITHDEL
|
|
END
|
|
|
|
NUMBER FLD_KEYNO 1
|
|
BEGIN
|
|
PROMPT 25 3 "Indice n.ro "
|
|
FLAGS "RD"
|
|
HELP "Inserire il numero di indice"
|
|
END
|
|
|
|
BOOLEAN FLD_WITHDEL
|
|
BEGIN
|
|
PROMPT 40 3 "Anche i record cancellati"
|
|
FLAGS "D"
|
|
END
|
|
|
|
BOOLEAN FLD_FIXLEN
|
|
BEGIN
|
|
PROMPT 2 5 "Lunghezza fissa"
|
|
MESSAGE FALSE ENABLE,FLD_FS|ENABLE,FLD_FD|ENABLE,FLD_RS
|
|
MESSAGE FALSE "\0x7c",FLD_FS|"\0",FLD_FD|"\n",FLD_RS
|
|
MESSAGE TRUE DISABLE,FLD_FS|DISABLE,FLD_FD|DISABLE,FLD_RS
|
|
MESSAGE TRUE "\0",FLD_FS|"\0",FLD_FD|"\n",FLD_RS
|
|
END
|
|
|
|
STRING FLD_FS 5
|
|
BEGIN
|
|
PROMPT 2 7 "Separatore di campi "
|
|
END
|
|
|
|
STRING FLD_FD 5
|
|
BEGIN
|
|
PROMPT 40 7 "Delimitatore di campi "
|
|
END
|
|
|
|
STRING FLD_RS 5
|
|
BEGIN
|
|
PROMPT 2 9 "Separatore di record "
|
|
END
|
|
|
|
BUTTON DLG_OK 9 2
|
|
BEGIN
|
|
PROMPT -14 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 9 2
|
|
BEGIN
|
|
PROMPT -24 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|