home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Media Share 9
/
MEDIASHARE_09.ISO
/
clarion
/
unalert.zip
/
UATEST.CLA
< prev
next >
Wrap
Text File
|
1988-08-02
|
4KB
|
142 lines
TITLE('- Unalert Test Module')
SUBTITLE('PROCEDURE TEST - DEFINITION')
MEMBER('UNALRT')
test PROCEDURE
OMIT('END OMIT')
┌──────────────────────────────────────────────────────────────────────────┐
│ This procedure is for testing UNALERT. It will ALERT several keys, │
│ display the current list of alerted keys (using GETALERT) and then │
│ call UNALERT to remove individual keys from the list (including keys │
│ defined within a range and a key which is not in the list) │
│ │
│ The GROUP structure is defined in TEST and UNALERT (rather than as a │
│ GLOBAL), to allow the UNALERT procedure to be inserted into other │
│ programs, without requiring special GLOBAL data to be defined. │
└──────────────────────────────────────────────────────────────────────────┘
END OMIT
EJECT('PROCEDURE TEST - LOCAL SCREEN S_UA')
s_ua SCREEN PRE(sua),HUE(7,0)
OMIT('**-END-**') Rows 4 thru 25
┌────────────────┐
│ ALERT KEYS │
├────────────────┤
│ <<<<# - <<<<# │
│ │
│ │
│ │
│ │
│ │
│ │
│ │
│ │
│ │
│ │
│ │
│ │
│ │
│ │
│ │
└────────────────┘
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
**-END-**
ROW(4,32) STRING('┌─{16}┐')
ROW(5,32) STRING('│<0{16}>│')
ROW(6,32) STRING('├─{16}┤')
ROW(7,32) REPEAT(16);STRING('│<0{16}>│') .
ROW(23,32) STRING('└─{16}┘')
ROW(5,36) STRING('ALERT KEYS')
ROW(7,40) STRING('-')
REPEAT(16),INDEX(lcv:position)
fkey COL(34) STRING(@N_5)
lkey COL(42) STRING(@N_5)
.
message ROW(25,26) STRING(30)
.
EJECT('PROCEDURE TEST - LOCAL VARIABLE DEFINITIONS')
j_alertkeys GROUP,PRE(jak)
GROUP,DIM(16)
firstkey SHORT
lastkey SHORT
END !GROUP
END !GROUP
GROUP,PRE(lcv)
position BYTE
END !GROUP
GROUP,PRE(tmp)
nextkey STRING(5)
END !GROUP
EJECT('PROCEDURE TEST - CODE')
CODE
OPEN(s_ua)
ALERT(CTRL_ESC)
ALERT(F2_KEY,F3_KEY)
ALERT(F4_KEY,F5_KEY)
ALERT(F6_KEY,F10_KEY)
tmp:nextkey = CTRL_ESC
DO dispal
ASK
sua:message = NULL
UNALERT(CTRL_ESC)
tmp:nextkey = ENTER_KEY
DO dispal
ASK
sua:message = NULL
UNALERT(ENTER_KEY)
tmp:nextkey = F2_KEY
DO dispal
ASK
sua:message = NULL
UNALERT(F2_KEY)
tmp:nextkey = F5_KEY
DO dispal
ASK
sua:message = NULL
UNALERT(F5_KEY)
tmp:nextkey = F8_KEY
DO dispal
ASK
sua:message = NULL
UNALERT(F8_KEY)
tmp:nextkey = 0
DO dispal
ASK
EJECT('PROCEDURE TEST - ROUTINE DISPAL')
dispal ROUTINE
CLEAR(j_alertkeys)
GETALERT(j_alertkeys)
LOOP lcv:position = 1 TO 16
sua:fkey = jak:firstkey[lcv:position]
sua:lkey = jak:lastkey[lcv:position]
END !LOOP
IF tmp:nextkey = 0
sua:message = CENTER('Press ENTER to quit',SIZE(sua:message))
ELSE
sua:message = CENTER('Press ENTER to unalert ' |
& tmp:nextkey,SIZE(sua:message))
END !IF