* INVENT.SAY
* Input/Output screen for the Inventory database.
ERASE
SET COLON OFF
? CHR(27)+"U"+"$"
? CHR(27)+"c"
SET CONSOLE OFF
DO INVENT.FAU
SET CONSOLE ON
@  1, 1 SAY 'INVENTORY DATABASE '
@  1,65 SAY Date()
@  2, 1 SAY '--------------------------------------------------------'
@  2,57 SAY '-----------------'
@ 20, 1 SAY '--------------------------------------------------------'
@ 20,57 SAY '-----------------'
? CHR(27)+"U"+"/"
@  3, 3 SAY 'ISBN'
@  5, 3 SAY 'TITLE'
@  7, 3 SAY 'AUTHOR'
@  9, 3 SAY 'PUBLISHER'
@ 11, 3 SAY 'VENDOR'
@ 13, 3 SAY 'PRICE'
@ 15, 3 SAY 'QOH'
@ 17, 3 SAY 'CAT/LOC'
@ 19, 3 SAY 'TYPE'
@ 15,27 SAY 'TBO'
@ 17,27 SAY 'ON ORD'
@ 19,27 SAY 'MISC.'
@  3,57 SAY 'Jan'
@  3,63 SAY 'Feb'
@  3,69 SAY 'Mar'
@  5,57 SAY 'Apr'
@  5,63 SAY 'May'
@  5,69 SAY 'Jun'
@  7,57 SAY 'Jul'
@  7,63 SAY 'Aug'
@  7,69 SAY 'Sep'
@  9,57 SAY 'Oct'
@  9,63 SAY 'Nov'
@  9,69 SAY 'Dec'
@ 12,54 SAY 'CURR MO'
@ 13,54 SAY 'PAST MO'
@ 14,54 SAY 'CURR YR'
@ 15,54 SAY 'PAST YR'
@ 18,51 SAY 'LST SOLD'
@ 19,51 SAY 'L INV DATE'
? CHR(27)+"U"+" "
? CHR(27)+"d"
SET COLON ON









SAY 'VENDOR DATABASE '
@  1,65 SAY DATE()
@  2, 1 SAY '============================================================'
@  2,61 SAY '==================='
@ 20, 1 SAY '============================================================'
@ 20,61 SAY '==================='
? CHR(27)+"/"
@  4, 5 SAY 'VENDOR CODE'
@  4,40 SAY 'PUBLISHER NAME'
@  7, 5 SAY 'ADDRESS FOR ORDERS:'
@  8, 5 SAY '----