Google
 

Trailing-Edge - PDP-10 Archives - TRAFFIC-20_V4_840514 - traffic-demonstrations/dem3.frm
There are no other files named dem3.frm in the archive.
FORM DEM3
OUTPUT
RECORD
ERROR 24
E-ATT BOLD BLINKING REVERSE

FIELD FILL31
PROTECTED
TALL
BOLD
POS 2 12
VALUE "TRAFFIC V4"

FIELD FILL32
PROTECTED
POS 5 1
VALUE "But TRAFFIC-20 will allow you to exploit the features of the VT100"

FIELD FILL33
PROTECTED
POS 6 1
VALUE "terminal.  There are some powerful uses of these features which we"

FIELD FILL34
PROTECTED
POS 7 1
VALUE "will see shortly.  First, the more simple use of  VT100 attributes"

FIELD FILL35
PROTECTED
POS 8 1
VALUE "on a per field basis."

FIELD FILL36
PROTECTED
POS 9 1
VALUE "You can normally get help by typing '?'. If not, try PF4."

FIELD FNAME3
SECTION 2
PROTECTED
POSITION 13 1
LENGTH 12
TALL
BOLD
T-POS 12 1
T-VALUE "I believe you said you were "

FIELD SNAME3
SECTION 2
PROTECTED
POSITION 13 21
LENGTH 12
TALL
BOLD

FIELD FILL37
PROTECTED
POS 16 5
WIDE
REVERSE
VALUE "TODAYS DELIVERY"

FIELD TOGO
SECTION 1
PREVIOUS
NUMERIC
LENGTH 4
POSITION 19 2
REVERSE
FILL "_"
REQUIRED
LOWER "0010"
UPPER "2000"
T-POS 18 1
T-ATT BOLD
T-VAL "TO GO"
HELP "The number of tons you intend to send"

FIELD ININ
SECTION 1
NUMERIC
LENGTH 3
POSITION 19 8
REVERSE
FILL "_"
REQUIRED
PREVIOUS
T-POS 18 9
T-ATT BOLD
T-VAL "IN"
HELP "Type the number of lorries you intend to use"

FIELD GIVES3
PROTECTED
LENGTH 4
MONEY
REVERSE
POS 19 13
T-POS 18 13
T-ATT BOLD
T-VAL "GIVES"

FIELD COST3
PREVIOUS
LENGTH 4
MONEY
POS 19 20
REVERSE
FILL "_"
T-POS 18 21
T-ATT BOLD
T-VAL "COST"
HELP "Enter the cost per ton you intend to charge"

FIELD TOTAL3
PROTECTED
LENGTH 9
MONEY
POS 19 29
REVERSE
T-POS 18 34
T-ATT BOLD
T-VALUE "TOTAL"

FIELD QCHANGE3
REQUIRED
YES-NO
POSITION 22 80
T-POS 22 44
T-VAL "Do you want to change anything?"

EXIT