	TITLE	'ARM011 - A/R MAP 011 - RECORD UPDATE BACKGROUND'
;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	'ARM011'
ARM011:	CSEG
	PUBLIC	ARM011

;		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 ***
	DDRK
	DGOTOXY 03,24 
	DDB	<'-- BILLING --'>
	DGOTOXY 04,01 
	DDB	<' 1) CONTACT'>
	DGOTOXY 05,01 
	DDB	<' 2) COMPANY'>
	DGOTOXY 06,01 
	DDB	<' 3) ADDRESS #1'>
	DGOTOXY 07,01 
	DDB	<' 4) ADDRESS #2'>
	DGOTOXY 08,01 
	DDB	<' 5) CITY, STATE'>
	DGOTOXY 08,41
	DDB	<' 6) ZIP'>
	DGOTOXY 09,01 
	DDB	<' 7) TELEPHONE'>
	DGOTOXY 09,28
	DDB	<' 8) EXT'>
	DGOTOXY 10,23 
	DDB	<'-- TECHNICAL --'>
	DGOTOXY 11,01 
	DDB	<' 9) CONTACT'>
	DGOTOXY 12,01 
	DDB	<'10) COMPANY'>
	DGOTOXY 13,01 
	DDB	<'11) ADDRESS #1'>
	DGOTOXY 14,01 
	DDB	<'12) ADDRESS #2'>
	DGOTOXY 15,01 
	DDB	<'13) CITY, STATE'>
	DGOTOXY 15,41
	DDB	<'14) ZIP'>
	DGOTOXY 16,01 
	DDB	<'15) TELEPHONE'>
	DGOTOXY 16,28
	DDB	<'16) EXT'>
	DGOTOXY 17,24 
	DDB	<'-- GENERAL --'>
	DGOTOXY 18,01 
	DDB	<'17) STATUS'>
	DGOTOXY 18,16 
	DDB	<'18) TERM'>
	DGOTOXY 18,29 
	DDB	<'19) BALANCE TYPE'>
	DGOTOXY 18,49 
	DDB	<'20) PRICE CODE'>
	DGOTOXY 18,66 
	DDB	<'21) DISC'>
	DGOTOXY 19,01
	DDB	<'22) TAX CODE'>
	DGOTOXY 19,17 
	DDB	<'23) SPECIAL'>
	DGOTOXY 20,01 
	DDB	<'24) CURRENT'>
	DGOTOXY 20,27 
	DDB	<'25) OVER 30'>
	DGOTOXY 20,53 
	DDB	<'26) OVER 60'>
	DGOTOXY 21,01 
	DDB	<'27) OVER 90'>
	DGOTOXY 21,27 
	DDB	<'28) LAST YEAR'>
	DDRKEND
	DB	0		;END OF MAP
	END
