TITLE 'ARM040 - A/R MAP 040 - 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 'ARM040' ARM040: CSEG PUBLIC ARM040 ; 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 FILE LIST REPORT * * *'> 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