home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol049 / puterr.pli < prev    next >
Text File  |  1984-04-29  |  516b  |  23 lines
  1. /* * *  PUT ERROR MSG TO CONSOLE  * * */
  2. PUTERR:    PROC (ERRMSG);
  3. /* THE FOLLOWING PUTS AN ERROR MESSAGE TO THE CONSOLE */
  4.     DCL    ERRMSG CHAR(80) VARYING;
  5.     DCL    (I,J) BIN(15);
  6.  
  7.     DCL    CONOUT ENTRY(CHAR(1));
  8.     DCL    EOL ENTRY(BIN(7),BIN(7));
  9.     DCL    PUTMSG ENTRY(BIN(7),BIN(7),CHAR(80) VARYING);
  10.  
  11.     DO I=1 TO 5;
  12.       CALL    EOL(24,1);
  13.       CALL    CONOUT(ASCII(07));  /* BEL */
  14.       CALL    PUTMSG(24,1,ERRMSG);
  15.       DO J=1 TO 10000;
  16.       END;
  17.       CALL  EOL(24,1);
  18.       DO J=1 TO 5000;
  19.       END;
  20.     END;
  21.     CALL    EOL(24,1);
  22.     END    PUTERR;
  23.