	TITLE	'ARM020 - A/R MAP 020 - LABEL MENU'
;PROGRAM
;PROGRAMMER
;		ROBERT M. WHITE
;DATE WRITTEN
;		APRIL 10, 1981
;COPYRIGHT
;		(C)COPYRIGHT 1981, H&W COMPUTER SYSTEMS, INC.
;PURPOSE
;		THIS ROUTINE WRITES THE MAP GIVEN AT THE END OF
;		THE PROGRAM TO TERMINAL AND RETURNS CONTROL TO
;		THE CALLER.
;INPUT
;		NONE
;OUTPUT
;REMARKS
;		1.  REQUIRES REL 2.0 OR ABOVE OF CP/M.

;				* * *  CONTROL CHARACTER EQUATES  * * *
CR	EQU	00DH		;CARRIAGE RETURN
LF	EQU	00AH		;LINE FEED

;		DO INITIALIZATION.
	MACLIB	SCRNMAC
	TRMDFN			;DEFINE TERMINAL.
	NAME	'ARM020'
ARM020:	CSEG
	PUBLIC	ARM020

;		OUTPUT THE MAP OF LINES.
	LXI	H,MAP
BGNLIN:
	MOV	A,M		;GET NUMBER OF CHARACTERS.
	ORA	A
	RZ			;...YES, QUIT.

;		OUTPUT A LINE.
	CALL	STROUT
	EXTRN	STROUT
	JMP	BGNLIN		;LOOP FOR ALL LINES.

;		MAP OF LINES
MAP:				;*** OUTPUT CHARACTER MAP ***
	DCLS
	DGOTOXY 1,15
	DDB	<'* * *  CUSTOMER TECHINICAL LIST 1-UP LABELS  * * *'>
	DGOTOXY 2,30
	DDB	<'MAIN MENU'>
	DGOTOXY 3,1 
	DDB	<'SELECT ONE OF THE FOLLOWING:',CR,LF>
	DDRK
	DDB	<'  0 - RETURN TO MAIN MENU',CR,LF>
	DDB	<'  1 - PRINT THE REPORT',CR,LF>
	DDRKEND
	DDB	<'ENTER YOUR SELECTION: XXXXXX'>
	DB	0		;END OF MAP
	END
