home *** CD-ROM | disk | FTP | other *** search
-
- Y
- STOCK TAKE SHEETS
- Y
- N
- 10,CODE
- CODE
- 30,ITEM
- ITEM
- 20,'----------'
- QUANITY
- DEC
- STORE !(DEC) TO DEC
- SET ESCAPE ON
- DO CASE
- CASE DEC='H'
- DO HELP
- CASE DEC='D'
- DO RESTART
- CASE DEC='B'
- DO OVERDUE
- CASE DEC='R'
- CANCEL
- CASE DEC='8'
- DO MENU6
- CASE DEC='G'
- DO REPORTG
- CASE DEC='1'
- DO WORDERS
- CASE DEC='A'
- DO MENU5
- CASE DEC='2'
- DO PACK
- CASE DEC='4'
- DO INVOICE
- CASE DEC='5'
- DO LEDGER
- CASE DEC='3'
- DO MENU4
- CASE DEC='6'
- DO MENU7
- CASE DEC='7'
- DO MENU2
-