home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / clarion / isalert.zip / TESTALRT.CLA < prev   
Text File  |  1989-11-03  |  1KB  |  67 lines
  1.  
  2. !         Andrew Wilson
  3. !         Varitek Systems Ltd.
  4. !         #251 - 8232 120th Street
  5. !         Surrey, BC     Canada
  6. !         V3W 3N4
  7. !         604-596-6999
  8.  
  9.  
  10. TestAlrt     PROGRAM                 ! Test the IsAlert() Function.
  11.  
  12.          INCLUDE('Std_Keys.Cla')
  13.          INCLUDE('Shf_Keys.Cla')
  14.          INCLUDE('Ctl_Keys.Cla')
  15.          INCLUDE('Alt_Keys.Cla')
  16.  
  17.          MAP
  18.            MODULE('IsAlert'),BINARY
  19.          FUNC(IsAlert),LONG
  20.            END ! MODULE
  21.          END ! MAP
  22.  
  23.  
  24. Screen         SCREEN      HUE(11,1)
  25.            ROW(9,27)  STRING('Keycode')
  26.          COL(40)  STRING('is')
  27.            ROW(18,32) STRING('Ctrl-Break to Exit')
  28. Keycode           ROW(9,35)  STRING(@N_4),HUE(15,1)
  29. Status         COL(43)  STRING(12),HUE(15,1)
  30.            ROW(15,35) PAUSE('PRESS ANY KEY'),HUE(15,1)
  31.          .
  32.  
  33.          CODE
  34.  
  35.          OPEN(Screen)
  36.          ALERT()
  37.          ALERT(F1_KEY,F3_KEY)
  38.          ALERT(SHFT_F3,SHFT_F5)
  39.          ALERT(CTRL_F5,CTRL_F7)
  40.          ALERT(ALT_F8,ALT_F10)
  41.          ALERT(CTRL_E,CTRL_H)
  42.          ALERT(ALT_I,ALT_L)
  43.          ALERT(ALT_7,ALT_9)
  44.          ALERT(ESC_KEY)
  45.          ALERT(GMINUS_KEY)
  46.          ALERT(GPLUS_KEY)
  47.          ALERT(ALT_N)
  48.          ALERT(ALT_P)
  49.          ALERT(ALT_R)
  50.          ALERT(ALT_T)
  51.          ALERT(ALT_V)
  52.          ALERT(ALT_X)
  53.  
  54.  
  55.          LOOP
  56.            ACCEPT
  57.            Keycode = KEYCODE()
  58.            IF IsAlert(KEYCODE())
  59.          Status = 'Alerted'
  60.            ELSE
  61.          Status = 'Not Alerted'
  62.            END ! IF
  63.          END ! LOOP
  64.          RETURN
  65.  
  66.  
  67.