****************************************************************
** printout.prg - Handler for form and label printing 
** J Osako    29 Jan 1996	'This code is cursed'
** Copyright 1996 The Used Computer Store, All Rights Reserved
****************************************************************

* PROCEDURE main

	IF !USED('Form_lst')
		USE Form_lst IN 10		
	ENDIF
	SELECT Form_lst
	COPY TO ARRAY forms
	DEFINE WINDOW PrintOpt FROM 1,1 TO 6,14; 
		NONE CLOSE FLOAT
MOVE WINDOW printOpt CENTER

	ACTIVATE WINDOW PrintOpt
	@0,0 GET sheet FROM forms;
		DEFAULT forms[1]
	READ
	DO (ALLTRIM(sheet)) IN printout
	DEACTIVATE WINDOW PrintOpt
RETURN

**********
** label() - print out software labels

PROCEDURE label
	ACTIVATE WINDOW S_O_L
	@3,3 SAY 'This option is'
	@4,3 SAY 'not ready yet.'
	WAIT
	DEACTIVATE WINDOW S_O_L	
RETURN

PROCEDURE tag
	ACTIVATE WINDOW S_O_L
	@3,3 SAY 'This option is'
	@4,3 SAY 'not ready yet.'
	WAIT
	DEACTIVATE WINDOW S_O_L	
RETURN

PROCEDURE flyer
	ACTIVATE WINDOW S_O_L
	@3,3 SAY 'This option is'
	@4,3 SAY 'not ready yet.'
	WAIT
	DEACTIVATE WINDOW S_O_L	
RETURN

PROCEDURE inventory
	ACTIVATE WINDOW S_O_L
	@3,3 SAY 'This option is'
	@4,3 SAY 'not ready yet.'
	WAIT
	DEACTIVATE WINDOW S_O_L	
RETURN