home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / clarion / seterr.zip / SETERROR.CLA < prev   
Text File  |  1989-10-14  |  963b  |  43 lines
  1.  
  2. SetError     PROGRAM
  3.  
  4.          MAP
  5.            MODULE('SetErr'), BINARY
  6.          PROC(SetErr)
  7.            END  ! MODULE
  8.          END  ! MAP
  9.  
  10.  
  11. Screen         SCREEN      HUE(11,1)
  12.            ROW(1,1)      STRING('╔═{78}╗')
  13.            ROW(2,1)      REPEAT(23);STRING('║<0{78}>║') .
  14.            ROW(25,1)  STRING('╚═{78}╝')
  15.            ROW(3,26)  STRING('TEST THE `SET-ERRORCODE()'' LEM')
  16.            ROW(7,14)  STRING('ERRORCODE() =')
  17.            ROW(8,14)  STRING('ERROR() {5}=')
  18. Errorcode      ROW(7,28)  STRING(@N4),HUE(15,1)
  19. Error           ROW(8,28)  STRING(40),HUE(15,1)
  20.            ROW(10,14) STRING('SET ERRORCODE() TO :')
  21.          COL(35)  ENTRY(@N4),USE(Code),HUE(15,1),SEL(0,7),INS
  22.          .
  23.  
  24. Code         SHORT
  25. Esc_Key         EQUATE(256)
  26.  
  27.          CODE
  28.  
  29.  
  30.          OPEN(Screen)
  31.  
  32.          LOOP
  33.            ALERT(Esc_Key)
  34.            ErrorCode = ERRORCODE()
  35.            Error = ERROR()
  36.            SELECT(?Code)
  37.            ACCEPT
  38.            IF KEYCODE() = Esc_Key THEN RETURN.
  39.            SetErr(Code)
  40.          END  ! LOOP
  41.  
  42.  
  43.