139 lines
2.0 KiB
Plaintext
Executable File
139 lines
2.0 KiB
Plaintext
Executable File
#include <defmask.h>
|
|
#include <tokens.h>
|
|
|
|
#include "ba1100a.h"
|
|
|
|
PAGE "Modifica Archivio" -1 -1 70 15
|
|
|
|
NUMBER FLD_NUM 4
|
|
BEGIN
|
|
FLAGS "RD"
|
|
PROMPT 2 1 "Numero "
|
|
END
|
|
|
|
STRING FLD_NOME 80 43
|
|
BEGIN
|
|
PROMPT 2 2 "Nome "
|
|
HELP "Nome del file"
|
|
FLAGS "D"
|
|
GROUP 1
|
|
END
|
|
|
|
STRING FLD_DESC 43
|
|
BEGIN
|
|
PROMPT 2 3 "Descrizione "
|
|
HELP "Descrizione assegnata al file"
|
|
FLAGS "D"
|
|
GROUP 1
|
|
END
|
|
|
|
STRING FLD_FORMULA 43
|
|
BEGIN
|
|
PROMPT 2 4 "Formula "
|
|
HELP "Formula per il calcolo su file"
|
|
FLAGS "D"
|
|
GROUP 1
|
|
END
|
|
|
|
NUMBER FLD_EOD 7
|
|
BEGIN
|
|
PROMPT 2 5 "Record usati "
|
|
HELP "Numero di record utilizzati"
|
|
WARNING "Numero di record errato"
|
|
NUM_EXPR {(#THIS_FIELD>=0) && (#THIS_FIELD<=#FLD_EOX)}
|
|
FLAGS "DR"
|
|
GROUP 1
|
|
END
|
|
|
|
BOOLEAN FLD_EXTEND
|
|
BEGIN
|
|
PROMPT 2 6 "Cambia dimensione"
|
|
HELP "Indicare se si desidera cambiare la dimensione del file"
|
|
MESSAGE FALSE DISABLE,FLD_EOX
|
|
MESSAGE TRUE ENABLE,FLD_EOX
|
|
FLAGS "D"
|
|
GROUP 1
|
|
END
|
|
|
|
NUMBER FLD_EOX 7
|
|
BEGIN
|
|
PROMPT 30 6 "Dimensione "
|
|
HELP "Dimensione da assegnare al file"
|
|
WARNING "Dimensione non corretta"
|
|
NUM_EXPR {#THIS_FIELD>=#FLD_EOD}
|
|
FLAGS "DR"
|
|
END
|
|
|
|
NUMBER FLD_FLAG 7
|
|
BEGIN
|
|
PROMPT 2 7 "Flags "
|
|
HELP "Flags del file"
|
|
FLAGS "DR"
|
|
GROUP 1
|
|
END
|
|
|
|
NUMBER F_LEN 7
|
|
BEGIN
|
|
PROMPT 30 7 "Lunghezza "
|
|
FLAGS "RD"
|
|
END
|
|
|
|
STRING F_TAB 3
|
|
BEGIN
|
|
PROMPT 2 9 "Tabella "
|
|
FLAGS "DU"
|
|
GROUP 1
|
|
END
|
|
|
|
BUTTON DLG_OK 9 2
|
|
BEGIN
|
|
PROMPT -14 -3 ""
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 9 2
|
|
BEGIN
|
|
PROMPT -24 -3 ""
|
|
END
|
|
|
|
BUTTON DLG_PACK 9 2
|
|
BEGIN
|
|
PROMPT -34 -3 "Compatta"
|
|
MESSAGE EXIT,K_F5
|
|
FLAGS "D"
|
|
GROUP 1
|
|
END
|
|
|
|
BUTTON DLG_RECORD 9 2
|
|
BEGIN
|
|
PROMPT -44 -3 "Record"
|
|
MESSAGE EXIT,K_F6
|
|
FLAGS "D"
|
|
GROUP 1
|
|
END
|
|
|
|
BUTTON DLG_DUMP 9 2
|
|
BEGIN
|
|
PROMPT -14 -1 "Scarica"
|
|
MESSAGE EXIT,K_F7
|
|
GROUP 1
|
|
END
|
|
|
|
BUTTON DLG_LOAD 9 2
|
|
BEGIN
|
|
PROMPT -24 -1 "Carica"
|
|
MESSAGE EXIT,K_F8
|
|
FLAGS "D"
|
|
GROUP 1
|
|
END
|
|
|
|
BUTTON DLG_EDIT 9 2
|
|
BEGIN
|
|
PROMPT -34 -1 "~Edit"
|
|
PICTURE BMP_EDIT
|
|
MESSAGE EXIT,K_F4
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|