home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Media Share 9
/
MEDIASHARE_09.ISO
/
clarion
/
commandr.zip
/
MAK_HELP.CLA
< prev
next >
Wrap
Text File
|
1988-08-20
|
2KB
|
70 lines
EDIT_HLP PROGRAM
OMIT('**END**')
╔══════════════════════════════════════════════════╗
║ EDIT_HLP.CLA ║
║ ║
║ GENERIC MODULE FOR INPUT AND CTRL KEY HANDLING ║
║ ║
║ COPYRIGHT @1988 ║
║ MICHAEL RHEA AND COMPUSOFT SYSTEMS ║
║ 4714 CLAY ║
║ HOUSTON, TX 77023 ║
║ (713) 926-1711 ║
╚══════════════════════════════════════════════════╝
**END**
INCLUDE('\STD_KEYS.CLA')
SCREEN SCREEN WINDOW(14,80),HUE(11,1)
ROW(1,1) STRING('╔═{78}╗')
ROW(2,1) STRING('║<0{78}>║')
ROW(3,1) STRING('╟─{78}╢')
ROW(4,1) REPEAT(10);STRING('║<0{78}>║') .
ROW(14,1) STRING('╚═{78}╝')
ROW(2,28) STRING('UNIVERSAL HELP-MEMO PROGRAM')
ROW(4,2) STRING('RECORD NUMBER:')
COL(17) ENTRY(@P###P),USE(REC_KEY)
ROW(9,3) TEXT(4,76),USE(HLP_NTS)
.
HLP_FILE FILE,CREATE,RECLAIM
MEM_KEY KEY(REC_KEY)
HLP_NTS MEMO(304)
HLP_REC RECORD
REC_KEY LONG
..
FND_FLAG STRING(1)
LAST_REC LONG
CODE
ALERT(ESC_KEY)
OPEN(SCREEN)
OPEN(HLP_FILE)
IF ERRORCODE()=2 THEN CREATE(HLP_FILE).
REC_KEY=1
GET(HLP_FILE,MEM_KEY)
DISPLAY()
ENT_KEY
FND_FLAG='N'
SELECT(?REC_KEY)
ACCEPT
IF KEYCODE()=ESC_KEY THEN RETURN.
LAST_REC = REC_KEY
GET(HLP_FILE,MEM_KEY)
DISPLAY()
IF ERRORCODE()>0 THEN ERASE(?HLP_NTS)
ELSE
DISPLAY()
FND_FLAG='Y'
GOTO ENT_MEM.
ENT_MEM
ACCEPT
IF KEYCODE() = ESC_KEY THEN RETURN.
IF FND_FLAG='Y' THEN PUT(HLP_FILE) ELSE ADD(HLP_FILE).
ERASE
REC_KEY = LAST_REC +1
DISPLAY()
GOTO ENT_KEY
RETURN