	TITLE	'ARM000 - A/R MAP 000 - DRIVER 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	'ARM000'
ARM000:	CSEG
	PUBLIC	ARM000

;		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,10
	DDB	<'* * *  ACCOUNTS RECEIVABLE SYSTEM  * * *'>
	DGOTOXY 2,30
	DDB	<'MAIN MENU'>
	DGOTOXY 3,1 
	DDB	<'SELECT ONE OF THE FOLLOWING:',CR,LF>
	DDRK
	DDB	<'  0 - RETURN TO CP/M',CR,LF>
	DDB	<'  1 - CUSTOMER FILE MAINTENANCE',CR,LF>
	DDB	<'  2 - PRINT TECHNICAL LABELS',CR,LF>
	DDB	<'  3 - PRINT BILLING LABELS',CR,LF>
	DDB	<'  4 - PRINT FULL CUSTOMER REPORT',CR,LF>
	DDB	<'  5 - OFF-LOAD CUSTOMER FILE TO CP/M FILE',CR,LF>
	DDB	<'  6 - LOAD CUSTOMER FILE FROM CP/M FILE',CR,LF>
	DDB	<'  7 - PRINT CUSTOMER CALL REPORT',CR,LF>
	DDRKEND
	DDB	<'ENTER YOUR SELECTION: XXXXXX'>
	DB	0		;END OF MAP
	END
