**************************************************************** ** SERVICE.PRG - handler for hardware service records ** J Osako 29 Jan 1996 'This code is cursed' ** Copyright 1996 The Used Computer Store, All Rights Reserved **************************************************************** *PROCEDURE main 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