home *** CD-ROM | disk | FTP | other *** search
/ A.N.A.L.O.G. Magazine 1985 October / 85_oct.atr / online7.act < prev    next >
Text File  |  2023-02-26  |  1KB  |  1 lines
  1. ¢MODULE  ; Example 7¢¢; This subroutine prints out an¢; English explanation for the user¢; when a system error occurs (Only¢; errors 128 through 144 are given¢; for space reasons)¢¢DEFINE LASTERR = "144"¢¢CHAR ARRAY¢  s128() = "BREAK key abort",¢  s129() = "IOCB already open",¢  s130() = "Nonexistent device",¢  s131() = "IOCB Write only",¢  s132() = "Illegal handler command",¢  s133() = "IOCB not Open",¢  s134() = "Illegal IOCB number",¢  s135() = "IOCB Read only",¢  s136() = "End of file",¢  s137() = "Truncated record",¢  s138() = "Device timeout",¢  s139() = "Device NAK",¢  s140() = "Serial frame error",¢  s141() = "Cursor out of range",¢  s142() = "Serial bus overrun",¢  s143() = "Checksum error",¢  s144() = "Device done error",¢  generic() = "Error %U!%E"¢¢PROC dummy=*() [¢  s128 s129 s130 s131 s132 s133 s134¢  s135 s136 s137 s138 s139 s140 s141¢  s142 s143 s144 ]¢¢MODULE  ; for variable declaration¢¢CARD ARRAY¢  errstrs = dummy¢¢PROC PrintError(BYTE errnum)¢  IF errnum > 128 THEN¢    IF errnum > LASTERR THEN¢      PrintF(generic, errnum)¢    ELSE¢      PrintE(errstrs(errnum - 128))¢    FI¢  FI¢RETURN¢¢