TITLE   'ARM07 - A/R MAP 070 - 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    'ARM070'
ARM070: CSEG
       PUBLIC  ARM070

;               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 CALL 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

You are viewing proxied material from gopher.floodgap.com. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.