* INVENT.FAU
STORE '          ' TO isbn
STORE '                              ' TO title
STORE '                    ' TO author
STORE '               ' TO publish
STORE '          ' TO vendor
STORE 0 TO price
STORE 0 TO onhand
STORE '   ' TO cat:loc
STORE '        ' TO misc
STORE 0 TO tbo
STORE 0 TO on:ord
STORE ' ' TO type
STORE 0 TO jan
STORE 0 TO feb
STORE 0 TO mar
STORE 0 TO apr
STORE 0 TO may
STORE 0 TO jun
STORE 0 TO jul
STORE 0 TO aug
STORE 0 TO sep
STORE 0 TO oct
STORE 0 TO nov
STORE 0 TO dec
STORE '        ' TO currmo
STORE '        ' TO pastmo
STORE '        ' TO curryr
STORE '        ' TO pastyr
STORE '        ' TO ldsold
STORE '        ' TO linvdate







@  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 'AUTHO