Google
 

Trailing-Edge - PDP-10 Archives - TRAFFIC-20_V4_840514 - traffic-demonstrations/dem2.frm
There are no other files named dem2.frm in the archive.
FORM DEM2
OUTPUT
RECORD
ERROR 24
E-ATT NORMAL

FIELD FILL21
SECTION 1
PROTECTED
TALL
BOLD
POS 2 15
VALUE "TRAFFIC V4"

FIELD FILL22
SECTION 1
PROTECTED
POS 5 1
VALUE "TRAFFIC-20 formats a screen as required by the user. It then handles all"

FIELD FILL23
SECTION 1
PROTECTED
POS 6 1
VALUE "I-O for the  calling  program, and  positions  the data on the screen as"

FIELD FILL24
SECTION 1
PROTECTED
POS 7 1
VALUE "necessary. It will perform many checks on any user input, and will allow"

FIELD FILL25
SECTION 1
PROTECTED
POS 8 1
VALUE "easy repeated input by preserving fields if required."

FIELD FILL26
SECTION 1
PROTECTED
POS 9 1
VALUE "Try completing this form.       Use the TAB key to go to the next field."

FIELD FILL27
SECTION 1
PROTECTED
POS 10 1
VALUE "  Note that I won't echo your room number to save on your drinks bill!"

FIELD BADGE2
SECTION 1
PREVIOUS
REQUIRED
NUMERIC
LENGTH 5
POS 14 7
FILL "_"
T-VAL "Badge"
T-POS 14 1

FIELD FNAME2
SECTION 1
PREVIOUS
ALPHABETIC
REQUIRED
LENGTH 12
ALLOW-LOWER
FILLER "_"
POS 14 27
T-POS 14 16
T-VAL "First Name"

FIELD SNAME2
SECTION 1
PREVIOUS
ALPHABETIC
REQUIRED
ALLOW-L
LENGTH 12
FILL "_"
POS 14 48
T-POS 14 40
T-VAL "Surname"

FIELD HOTEL2
SECTION 1
PREVIOUS
ALPHABETIC
REQUIRED
SPACES
LENGTH 33
FILL "."
POS 16 7
T-POS 16 1
T-VALUE "Hotel"

FIELD ROOM2
SECTION 1
NUMERIC
SECURE
REQUIRED
LENGTH 4
POS 16 48
FILL "#"
T-POS 16 40
T-VAL "Room No"

FIELD COMMENT2
SECTION 1
LENGTH 80
ANY
ALLOW-LOWER
POSITION 19 1
FILL "_"
T-POS 18 1
T-VAL "Any comments on your hotel"

FIELD TA
LENGTH 9
POS 21 1
ANY

FIELD QAGEN2
REQUIRED
YES-NO
POS 22 80
T-POS 22 40
T-VAL "Would you like to run over that again?"

EXIT