home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / clarion / unalert.zip / UNALERT.COM / UATEST.CLA < prev   
Text File  |  1988-08-02  |  4KB  |  142 lines
  1.          TITLE('- Unalert Test Module')
  2.          SUBTITLE('PROCEDURE TEST - DEFINITION')
  3.  
  4.          MEMBER('UNALRT')
  5.  
  6. test         PROCEDURE
  7.  
  8.  
  9.   OMIT('END OMIT')
  10.   ┌──────────────────────────────────────────────────────────────────────────┐
  11.   │ This procedure is for testing UNALERT. It will ALERT several keys,         │
  12.   │ display the current list of alerted keys (using GETALERT) and then         │
  13.   │ call UNALERT to remove individual keys from the list (including keys     │
  14.   │ defined within a range and a key which is not in the list)             │
  15.   │                                         │
  16.   │ The GROUP structure is defined in TEST and UNALERT (rather than as a     │
  17.   │ GLOBAL), to allow the UNALERT procedure to be inserted into other         │
  18.   │ programs, without requiring special GLOBAL data to be defined.         │
  19.   └──────────────────────────────────────────────────────────────────────────┘
  20.   END OMIT
  21.  
  22.          EJECT('PROCEDURE TEST - LOCAL SCREEN S_UA')
  23.  
  24. s_ua         SCREEN      PRE(sua),HUE(7,0)
  25.  OMIT('**-END-**')      Rows 4 thru 25
  26.                    ┌────────────────┐
  27.                    │   ALERT KEYS    │
  28.                    ├────────────────┤
  29.                    │ <<<<# - <<<<#    │
  30.                    │        │
  31.                    │        │
  32.                    │        │
  33.                    │        │
  34.                    │        │
  35.                    │        │
  36.                    │        │
  37.                    │        │
  38.                    │        │
  39.                    │        │
  40.                    │        │
  41.                    │        │
  42.                    │        │
  43.                    │        │
  44.                    │        │
  45.                    └────────────────┘
  46.  
  47.              ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
  48. **-END-**
  49.  
  50.            ROW(4,32)  STRING('┌─{16}┐')
  51.            ROW(5,32)  STRING('│<0{16}>│')
  52.            ROW(6,32)  STRING('├─{16}┤')
  53.            ROW(7,32)  REPEAT(16);STRING('│<0{16}>│') .
  54.            ROW(23,32) STRING('└─{16}┘')
  55.            ROW(5,36)  STRING('ALERT KEYS')
  56.            ROW(7,40)  STRING('-')
  57.               REPEAT(16),INDEX(lcv:position)
  58. fkey         COL(34)    STRING(@N_5)
  59. lkey         COL(42)    STRING(@N_5)
  60.               .
  61. message           ROW(25,26) STRING(30)
  62.          .
  63.  
  64.          EJECT('PROCEDURE TEST - LOCAL VARIABLE DEFINITIONS')
  65.  
  66. j_alertkeys GROUP,PRE(jak)
  67.            GROUP,DIM(16)
  68. firstkey     SHORT
  69. lastkey         SHORT
  70.            END !GROUP
  71.          END !GROUP
  72.  
  73.          GROUP,PRE(lcv)
  74. position       BYTE
  75.          END !GROUP
  76.  
  77.          GROUP,PRE(tmp)
  78. nextkey           STRING(5)
  79.          END !GROUP
  80.  
  81.          EJECT('PROCEDURE TEST - CODE')
  82.  
  83.          CODE
  84.            OPEN(s_ua)
  85.  
  86.            ALERT(CTRL_ESC)
  87.            ALERT(F2_KEY,F3_KEY)
  88.            ALERT(F4_KEY,F5_KEY)
  89.            ALERT(F6_KEY,F10_KEY)
  90.            tmp:nextkey = CTRL_ESC
  91.            DO dispal
  92.            ASK
  93.  
  94.            sua:message = NULL
  95.            UNALERT(CTRL_ESC)
  96.            tmp:nextkey = ENTER_KEY
  97.            DO dispal
  98.            ASK
  99.  
  100.            sua:message = NULL
  101.            UNALERT(ENTER_KEY)
  102.            tmp:nextkey = F2_KEY
  103.            DO dispal
  104.            ASK
  105.  
  106.            sua:message = NULL
  107.            UNALERT(F2_KEY)
  108.            tmp:nextkey = F5_KEY
  109.            DO dispal
  110.            ASK
  111.  
  112.            sua:message = NULL
  113.            UNALERT(F5_KEY)
  114.            tmp:nextkey = F8_KEY
  115.            DO dispal
  116.            ASK
  117.  
  118.            sua:message = NULL
  119.            UNALERT(F8_KEY)
  120.            tmp:nextkey = 0
  121.            DO dispal
  122.            ASK
  123.  
  124.          EJECT('PROCEDURE TEST - ROUTINE DISPAL')
  125.  
  126. dispal         ROUTINE
  127.            CLEAR(j_alertkeys)
  128.            GETALERT(j_alertkeys)
  129.  
  130.            LOOP lcv:position = 1 TO 16
  131.          sua:fkey = jak:firstkey[lcv:position]
  132.          sua:lkey = jak:lastkey[lcv:position]
  133.            END !LOOP
  134.  
  135.            IF tmp:nextkey = 0
  136.          sua:message = CENTER('Press ENTER to quit',SIZE(sua:message))
  137.            ELSE
  138.          sua:message = CENTER('Press ENTER to unalert '               |
  139.          & tmp:nextkey,SIZE(sua:message))
  140.            END !IF
  141.  
  142.