*DECK DISPLAY                                                            DISPLAY
         PROC DISPLAY((FUNK), MESS, (RESP),(LENG)); 
 #                                                                       DISPLAY
*****  THIS IS A COMPILER SERVICE ROUTINE 
***** THIS ROUTINE MUST BE COMPILED                                      DISPLAY
*     USE SYMPL COMPILER  WITH THE F OPTION                              DISPLAY
 #                                                                       DISPLAY
BEGIN                                                                    DISPLAY
    #                                                                    DISPLAY
          THIS ROUTINE IS FOR WRITING LOW-VOLUME OUTPUT TO THE
                 SOURCE LISTING FILE. 
  
               FUNK - IGNORED (ALWAYS PUTS OUT MSG AND RETURNS) 
                                                                         DISPLAY
               MESS =     126 CHARACTER MESSAGE TO BE WRITTEN OUT        DISPLAY
                                                                         DISPLAY
               RESP =     80 CHARACTER RESPONSE TO BE READ IN            DISPLAY
                                                                         DISPLAY
               LENG =     NUMBER OF CHARACTERS TO BE WRITTEN OUT.        DISPLAY
    #                                                                    DISPLAY
*CALL ASSEMOP 
         ARRAY MESS [12]  ;                                              DISPLAY
             ITEM MESS1 C(0,0,10)  ;                                     DISPLAY
         ITEM FUNK  ;                                                    DISPLAY
         ITEM LENG; 
         ITEM RESP; 
 CONTROL IFEQ CB5$TIMR,"NO";
 $BEGIN 
 CONTROL FI;
         ITEM I     ;                                                    DISPLAY
         ITEM CMESS C(10) = "  MESSAG ="  ;                              DISPLAY
         XREF PROC CBLIST  ;                                             DISPLAY
         ARRAY MSS [13];
             ITEM MSS1 C(0,0,10); 
    #                                                                    DISPLAY
         START PROCEDURE                                                 DISPLAY
    #                                                                    DISPLAY
         IF LENG GR 126 THEN                                             DISPLAY
             LENG = 126  ;                                               DISPLAY
         LENG = LENG + 10  ;                                             DISPLAY
         FOR I = 0 STEP 1 UNTIL 12 DO                                    DISPLAY
             BEGIN                                                       DISPLAY
             MSS1[I+1] = MESS1[I]  ;                                     DISPLAY
             END                                                         DISPLAY
         MSS1[0] = CMESS  ;                                              DISPLAY
         CBLIST(1,MSS,LENG)  ;                                           DISPLAY
         RETURN  ;                                                       DISPLAY
 CONTROL IFEQ CB5$TIMR,"NO";
 $END 
 CONTROL FI;
END                                                                      DISPLAY
         TERM                                                            DISPLAY
