Submitted to the Fall, 1987 RSX SIG DECUS tape by:

Joseph E. Kulaga
Chemical Tecnology Division
Argonne National Laboratory
9700 S. Cass Ave.
Argonne, IL 60439
(312) 972 - 4327


This collection of software adds two features to DEC's FMS-11
forms software (versions 2.0 and 2.1), namely, run-time video
attribute control and read-with-timeout for single character
option fields.

Files in this distribution:

FDVTIO.SLP -- code modifications to be applied to
the FDVTIO.MAC source distributed with
the form driver package. Use SLP to
apply these changes.

FMVID.MAC -- routine to modify video attributes

FRVID.MAC -- routine to retrieve video attributes

FSTMO.MAC -- routine to set the timeout period

FSDEFC.MAC -- routine to set default input character
for response after timeout

DECUS.TEX -- draft version of paper submitted to
the Fall '87 DECUS Proceedings in
LaTeX format



A sample FORTRAN code sequence for these routines:

call fmvid (impure, 'FIELDA', 12) ! set video attribute of field
! FIELDA to bold & blinking
call fsdefc ('1') ! set default character to '1'
call fstmo (10) ! set time out to 10 sec
call fget (Iopt, term, 'DSPOPT') ! read option field

c .. Waiting for response or timeout. When we fall through, test value.

if (Iopt .eq. '0') then

c ........... code for Iopt = '0'

else if (Iopt .eq. '1') then

c ........... code for Iopt = '1'

else if (Iopt .eq. '2') then

c ........... code for Iopt = '2'
: :
: :
: :
endif