Listing of file='MENU.BAS;03' on disk='vmedia/inventory-sector.ccvf'
100 REM ** LOGIC SHOP COMPUCOLOR GRAPHS V2.81 (C) R.A. NEILL ** 110 PLOT 6,3,12,14,3,0,6:PRINT "INVENTORY CONTROL" 120 PLOT 6,3,15,3,20,14:PRINT "1 - COMPUWORLD VERSION" 130 PRINT :PRINT 140 PRINT TAB( 20)"2 - UN-NAMED VERSION" 160 PLOT 29,6,1,14,3,0,25:PRINT "ENTER NUMBER OF DESIRED PROGRAMME: " 170 PLOT 3,35,25:POKE 33278,0 180 KB= PEEK (33278):IF KB= 0GOTO 180 190 IF KB< 49OR KB> 50GOTO 160 200 ON KB- 48GOTO 210,220 210 LOAD "MENU.BAS;01":RUN 220 LOAD "MENU.BAS;02":RUN