home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Media Share 9
/
MEDIASHARE_09.ISO
/
clarion
/
commandr.zip
/
COMMANDR.CLA
< prev
next >
Wrap
Text File
|
1988-08-20
|
2KB
|
123 lines
MEMBER
OMIT('**END**')
╔══════════════════════════════════════════════════╗
║ COMMANDR.CLA ║
║ ║
║ GENERIC MODULE FOR INPUT AND CTRL KEY HANDLING ║
║ ║
║ PROC(CHK_IDX_KEYS) ║
║ PROC(CHK_KEYS) ║
║ PROC(INPUT) ║
║ PROC(ALERT_KEYS) ║
║ ║
║ COPYRIGHT @1988 ║
║ MICHAEL RHEA AND COMPUSOFT SYSTEMS ║
║ 4714 CLAY ║
║ HOUSTON, TX 77023 ║
║ (713) 926-1711 ║
╚══════════════════════════════════════════════════╝
**END**
CHK_KEYS PROCEDURE
CODE
CASE KEYCODE()
OF ESC_KEY
CUR_FLD -=1
IF CUR_FLD < FST_FLD THEN CUR_FLD = FST_FLD.
OF UP_KEY
CUR_FLD -=1
IF CUR_FLD < FST_FLD THEN CUR_FLD = FST_FLD.
OF DOWN_KEY
CUR_FLD +=1
IF CUR_FLD > LST_FLD THEN CUR_FLD = LST_FLD.
OF PGUP_KEY
CUR_FLD = FST_FLD
OF PGDN_KEY
CUR_FLD = LST_FLD
OF CTRL_ESC
CUR_FLD = FST_FLD
OF CTRL_ENTER
RETURN
OF CTRL_D
RETURN
OF CTRL_L
RETURN
ELSE CUR_FLD +=1
.
RETURN
CHK_IDX_KEYS PROCEDURE
CODE
CASE KEYCODE()
OF ESC_KEY
IF COUNT = 0 THEN CUR_FLD -=1
ELSE COUNT -= 1.
IF CUR_FLD < FST_FLD THEN CUR_FLD = FST_FLD.
OF UP_KEY
IF COUNT = 0 THEN CUR_FLD -=1
ELSE COUNT -= 1.
IF CUR_FLD < FST_FLD THEN CUR_FLD = FST_FLD.
OF DOWN_KEY
IF COUNT = MAX_COUNT
COUNT = 0
CUR_FLD += 1
ELSE COUNT += 1.
IF CUR_FLD > LST_FLD THEN CUR_FLD = LST_FLD.
OF PGUP_KEY
CUR_FLD = FST_FLD
COUNT = 0
OF PGDN_KEY
CUR_FLD = LST_FLD
COUNT = 0
OF CTRL_ESC
CUR_FLD = FST_FLD
COUNT = 0
ELSE
IF COUNT = MAX_COUNT
COUNT = 0
CUR_FLD += 1
ELSE COUNT += 1.
.
RETURN
INPUT PROCEDURE(REC_WIN,PROMPT)
PROMPT STRING(1)
REC_WIN LONG
CODE
IF PROMPT = '-'
REC_KEY=REC_WIN + HLP_FIND
GET(HLP_FILE,MEM_KEY)
DISPLAY(FIELDS())
ACCEPT
CLEAR(HLP_NTS)
RETURN
.
IF PROMPT = 'N'
REC_KEY=REC_WIN
GET(HLP_FILE,MEM_KEY)
DISPLAY(FIELDS())
RETURN
.
IF PROMPT = 'C'
CLEAR(HLP_NTS)
RETURN.
RETURN
ALERT_KEYS PROCEDURE
CODE
ALERT(ESC_KEY)
ALERT(CTRL_ESC)
ALERT(PGUP_KEY)
ALERT(PGDN_KEY)
ALERT(CTRL_ENTER)
ALERT(CTRL_PGDN)
ALERT(DOWN_KEY)
ALERT(UP_KEY)
ALERT(CTRL_D)
ALERT(CTRL_L)
RETURN