home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Media Share 9
/
MEDIASHARE_09.ISO
/
clarion
/
share.zip
/
SHARE.COM
/
SHARETST.CLA
< prev
Wrap
Text File
|
1985-08-15
|
2KB
|
65 lines
SHARETST PROGRAM !TEST SHARE ROUTINE
INCLUDE('\CLARION\STD_KEYS.CLA')
INCLUDE('\CLARION\CTL_KEYS.CLA')
INCLUDE('\CLARION\ALT_KEYS.CLA')
INCLUDE('\CLARION\SHF_KEYS.CLA')
REJECT_KEY EQUATE(CTRL_ESC)
ACCEPT_KEY EQUATE(CTRL_ENTER)
TRUE EQUATE(1)
FALSE EQUATE(0)
INCLUDE('SHARECDS.CPY'),LIST
MAP
INCLUDE('SHAREMOD.CPY'),LIST
.
SCREEN Screen Pre(SCR),Hue(7,0,0)
Row(1,1) String('<201,205{78},187>'),Enh
Row(2,1) Repeat(23);String('<186,0{78},186>'),Enh .
Row(25,1) String('<200,205{78},188>'),Enh
Row(8,24) String('Action:')
Row(10,10) String('Data to Send to File:')
Row(12,19) String('Return Code:')
Row(14,20) String('Error Code:')
STRING Row(10,32) String(40),Enh
ACTION Row(8,32) String(5),Rev
RETURN_CODE Row(12,32) String(@N17),Enh
ERROR_CODE Row(14,32) String(@N_5),Enh
ERROR_MSSG Col(38) String(30),Enh
.
HANDLE LONG
DATA_STRING STRING(40)
CODE
OPEN(SCREEN)
SCR:ACTION = 'OPEN'
DATA_STRING = 'C:\CLARION\ROLLINS\SHARECDS.CPY'
HANDLE = SHARE_OPEN(DATA_STRING,SHACC_RDWRT)
SCR:RETURN_CODE = HANDLE
SCR:ERROR_CODE = ERRORCODE()
SCR:ERROR_MSSG = ERROR()
IF ERRORCODE() = 0 THEN
LOOP
ASK
IF KEYCODE() = REJECT_KEY OR KEYCODE() = ESC_KEY THEN BREAK.
SCR:ACTION = 'READ'
SCR:RETURN_CODE = SHARE_READ(HANDLE,DATA_STRING,SIZE(DATA_STRING))
SCR:STRING = DATA_STRING
SCR:ERROR_CODE = ERRORCODE()
SCR:ERROR_MSSG = ERROR()
.
SCR:ACTION = 'CLOSE'
SHARE_CLOSE(HANDLE)
SCR:ERROR_CODE = ERRORCODE()
SCR:ERROR_MSSG = ERROR()
.
ASK