!  labels.bas   a menu to help folks with the printing of labels
!  4/12/83  ske
!
!

map1 DUMMY,s,1




INITIALIZATION:
	? tab(-1,0);
	call BORDER
	? tab(5,30); "Label Printer Outer"
	? tab(10,10); 
	input "Do you need instructions? --> ", DUMMY
	if ucs(DUMMY) = "Y" &
	    then &
		call INSTRUCTIONS &
	    else &
		? tab(10,10); space(60)
	? tab(10,25); "Choices of the Day......."
	? tab(12,10); "1. Print Return Address Labels"
	? tab(13,10); "2. Print labels for names from the member file"
	? tab(14,10); "3. Format member file names two across for a print out"
	? tab(15,10); "4. Print labels for names from the dealer file"
	? tab(16,10); "5. Print labels for renewal letters"
	? tab(17,10); "6. Print labels for the final notices"
	? tab(18,10); "7. None of the above - EXIT"
	? tab(20,10); 
	input "Enter your choice --> ", CHOICE
	on CHOICE call RET'ADD, MEM'LABEL, MEM'REPORT, DEAL'LABEL, RENEW, &
	    FINAL, QUIT
	goto INITIALIZATION

! |||||||||||>>>>>>>>>>>========- level 1 -========<<<<<<<<<<<|||||||||


INSTRUCTIONS:
	call CLEAR'WINDOW
	? tab(10,10); "This program helps you format labels for the printer."
	? tab(11,10); "All of the labels are formatted to print three acress."
	? tab(12,10); "If you are printing information that came from ANDI files"
	? tab(13,10); "it assumes that you output the information to a file"
	? tab(14,10); "with the extension of .DAT. The finished results will"
	? tab(15,10); "be in a file of the same name with the extension .LST"
	? tab(16,10); "If you're printing return address labels, they don't"
	? tab(17,10); "go to a file, they go DIRECTLY to the printer, so be"
	? tab(18,10); "sure that no one else is using the printer, or your"
	? tab(19,10); "labels will be mingled with whatever else is being"
	? tab(20,10); "printed."
	? tab(22,10);
	input "Hit RETURN to continue --> ", DUMMY
	call CLEAR'WINDOW
	RETURN

RET'ADD:
	chain "DSK0:RETURN.CMD[2,2]"

MEM'LABEL:
	call CLEAR'WINDOW
	? tab(15,15); "sorry, insufficient programmer - try again later"
!	chain 
	call PAUSE
	return

MEM'REPORT:
	call CLEAR'WINDOW
	? tab(15,15); "This doesn't work yet - try again later"
!	chain
	call PAUSE
	return

DEAL'LABEL:
	call CLEAR'WINDOW
	? tab(15,15); "sorry, insomulant programmer - try again later"
!	chain
	call PAUSE
	return
RENEW:
	call CLEAR'WINDOW
	? tab(15,15); "This really will work some day"
!	chain
	call PAUSE
	return

FINAL:
	call CLEAR'WINDOW
	? tab(15,15); "sorry, insufficient programmer - try again later"
!	chain
	call PAUSE
	return

QUIT:
	call CLEAR'WINDOW
	? tab(21,35); "EXIT"
	? tab(22,1);
	end

! |||||||||||>>>>>>>>>>>========- level 2 -========<<<<<<<<<<<|||||||||

++include BORDER

CLEAR'WINDOW:
	for n = 10 to 22
	   ? tab(n,5); space(65);
	next n
	return

PAUSE:
	? tab(17,15); 
	input "Hit RETURN to continue --> ", DUMMY
	return