Category : Databases and related files
Archive   : DLITE10.ZIP
Filename : PRINT.FRB
_ERR
_SIZE
_PRINTER
_CUR OÓ
_ARGS )N)(
A !
Missing field list. 3
OOPS = O* OÓ
WHIL
_ARGS )P !
WHIL
_ARGS )PI3
_ERR =
_ARGS
_ERR
ð?I'3
_ARGS = O'
_FLDS
ð?
Ô@
Ø@3
_ERR =
ð?3
_SIZE =
_err = error() /Ó
_ERR
Ô@
Ø@A +
3
_ERR = ï
store &_args to array _flds -ÿOÓ
_ERR
Ô@
Ø@A !
_FLDS
_SIZE 3
_SIZE =
_FLDS
_SIZE O' /(
oops=message() O' OÓ
LPTDEVICE )(
A !
# Make sure printer is on line . . . <