home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Media Share 9
/
MEDIASHARE_09.ISO
/
clarion
/
unalert.zip
/
UNALERT.COM
/
UALIB.CLA
< prev
next >
Wrap
Text File
|
1988-08-02
|
2KB
|
79 lines
TITLE('- Unalert Library Module')
SUBTITLE('PROCEDURE UNALERT - DEFINITION')
MEMBER('UNALRT')
unalert PROCEDURE(par:keyval)
OMIT('END OMIT'
┌──────────────────────────────────────────────────────────────────────────┐
│ This procedure will UNALERT a single ALERT key, even from within an │
│ ALERT range, using GETALERT and PUTALERT procedures from ALRT.BIN │
│ │
│ The ALRT binary module must be defined in the MAP │
└──────────────────────────────────────────────────────────────────────────┘
END OMIT
EJECT('PROCEDURE UNALERT - LOCAL VARIABLES')
GROUP,PRE(par)
keyval SHORT
END !GROUP
GROUP,PRE(tmp)
oldkey SHORT
END !GROUP
j_alertkeys GROUP,PRE(jak)
GROUP,DIM(16)
firstkey SHORT
lastkey SHORT
END !GROUP
END !GROUP
GROUP,PRE(lcv)
postition BYTE
END !GROUP
EJECT('PROCEDURE UNALERT - CODE')
CODE
CLEAR(j_alertkeys)
GETALERT(j_alertkeys)
LOOP lcv:postition = 1 TO 16
IF NOT INRANGE(par:keyval,jak:firstkey[lcv:postition] |
,jak:lastkey[lcv:postition])
CYCLE
ELSIF jak:firstkey[lcv:postition] = par:keyval |
AND jak:lastkey[lcv:postition] = keyval
jak:firstkey[lcv:postition] = 0
jak:lastkey[lcv:postition] = 0
PUTALERT(j_alertkeys)
RETURN
ELSIF jak:firstkey[lcv:postition] = par:keyval
jak:firstkey[lcv:postition] += 1
PUTALERT(j_alertkeys)
RETURN
ELSIF jak:lastkey[lcv:postition] = par:keyval
jak:lastkey[lcv:postition] -= 1
PUTALERT(j_alertkeys)
RETURN
ELSIF par:keyval > jak:firstkey[lcv:postition] |
AND par:keyval < jak:lastkey[lcv:postition]
oldkey = jak:lastkey[lcv:postition]
jak:lastkey[lcv:postition] = par:keyval-1
PUTALERT(j_alertkeys)
ALERT(par:keyval+1,oldkey)
RETURN
END !IF
END !LOOP