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