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