Listing of file='MENU.BAS;02' on disk='vmedia/inventory-sector.ccvf'
10 POKE 33278,0
20 PLOT 14,12,3,0,10
30 PRINT " INVENTORY CONTROL I"
40 PRINT " STOCK ADJUSTMENT S"
50 PRINT " CREATE NEW DATA FILE C"
55 PRINT " EXIT SYSTEM X"
60 PRINT :PRINT
70 PRINT " ENTER SELECTION ";
80 A= PEEK (33278)
90 IF A= ASC ("I")THEN LOAD "INVT.BAS":RUN
100 IF A= ASC ("S")THEN LOAD "ADJ.BAS":RUN
110 IF A= ASC ("C")THEN LOAD "CRE8.BAS":RUN
115 IF A= ASC ("X")THEN END
120 GOTO 80