home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Media Share 9
/
MEDIASHARE_09.ISO
/
clarion
/
commandr.zip
/
COPY_HLP.CLA
< prev
next >
Wrap
Text File
|
1988-08-20
|
2KB
|
80 lines
COPY_HLP PROGRAM
OMIT('**END**')
╔══════════════════════════════════════════════════╗
║ COPY_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 HUE(11,1)
ROW(3,4) STRING('Enter Low Value to Copy From:')
COL(35) ENTRY(@N4),USE(LOWVAL)
ROW(4,4) STRING('Enter Hi Value to Copy From:')
COL(35) ENTRY(@N4),USE(HIVAL)
ROW(6,4) STRING('Enter Low Value to Copy To:')
COL(35) ENTRY(@N4),USE(LO_INC)
ROW(7,4) STRING('Enter Hi Value to Copy To:')
COL(35) ENTRY(@n4),USE(HI_INC)
.
HLP_FILE FILE,CREATE,RECLAIM
MEM_KEY KEY(REC_KEY)
HLP_NTS MEMO(304)
HLP_REC RECORD
REC_KEY LONG
..
BAK_FILE FILE,CREATE,RECLAIM
BEM_KEY KEY(BEC_KEY)
BLP_NTS MEMO(304)
BLP_REC RECORD
BEC_KEY LONG
..
FND_FLAG STRING(1)
LAST_REC LONG
LowVal Long
HiVal Long
LO_INC Long
HI_INC LONG
CTR LONG
CODE
ALERT(ESC_KEY)
OPEN(SCREEN)
SELECT(1)
loop I# = 1 to 4
Accept
.
OPEN(HLP_FILE)
IF ERRORCODE()=2 THEN RETURN.
CTR = 0
Loop I# = LO_INC TO HI_INC
REC_KEY = LOWVAL + CTR
IF REC_KEY > HIVAL THEN REC_KEY = HIVAL.
GET(HLP_FILE,MEM_KEY)
IF ERRORCODE() = 35 THEN CYCLE.
REC_KEY = I#
ADD(HLP_FILE)
IF ERRORCODE() > 0
BLP_NTS = HLP_NTS
GET(HLP_FILE,MEM_KEY)
HLP_NTS = BLP_NTS
PUT(HLP_FILE)
.
CTR +=1
.