**************************************************************** ** INVENTOR.PRG - handler for inventory checking and updating ** J Osako 9 Feb 1996 'This code is cursed' ** Copyright 1996 The Used Computer Store, All Rights Reserved **************************************************************** mchoice = 1 ACTIVATE WINDOW S_O_L @3,3 SAY 'This option is' @4,3 SAY 'not ready yet.' @5,3 GET mchoice FUNCTION '* OK;Cancel' READ DEACTIVATE WINDOW S_O_L RETURN