****************************************************************
** PURCHASE.PRG - handler for customer purchases
** 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