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