home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / clarion / share.zip / SHARETST.CLA < prev   
Text File  |  1985-08-15  |  2KB  |  65 lines
  1. SHARETST     PROGRAM           !TEST SHARE ROUTINE
  2.  
  3.          INCLUDE('\CLARION\STD_KEYS.CLA')
  4.          INCLUDE('\CLARION\CTL_KEYS.CLA')
  5.          INCLUDE('\CLARION\ALT_KEYS.CLA')
  6.          INCLUDE('\CLARION\SHF_KEYS.CLA')
  7.  
  8. REJECT_KEY   EQUATE(CTRL_ESC)
  9. ACCEPT_KEY   EQUATE(CTRL_ENTER)
  10. TRUE         EQUATE(1)
  11. FALSE         EQUATE(0)
  12.  
  13.          INCLUDE('SHARECDS.CPY'),LIST
  14.  
  15.          MAP
  16.            INCLUDE('SHAREMOD.CPY'),LIST
  17.          .
  18.  
  19. SCREEN         Screen      Pre(SCR),Hue(7,0,0)
  20.            Row(1,1)      String('<201,205{78},187>'),Enh
  21.            Row(2,1)      Repeat(23);String('<186,0{78},186>'),Enh .
  22.            Row(25,1)  String('<200,205{78},188>'),Enh
  23.            Row(8,24)  String('Action:')
  24.            Row(10,10) String('Data to Send to File:')
  25.            Row(12,19) String('Return Code:')
  26.            Row(14,20) String('Error Code:')
  27. STRING           Row(10,32) String(40),Enh
  28. ACTION           Row(8,32)  String(5),Rev
  29. RETURN_CODE    Row(12,32) String(@N17),Enh
  30. ERROR_CODE     Row(14,32) String(@N_5),Enh
  31. ERROR_MSSG     Col(38)  String(30),Enh
  32.          .
  33.  
  34. HANDLE         LONG
  35. DATA_STRING  STRING(40)
  36.  
  37.          CODE
  38.  
  39.   OPEN(SCREEN)
  40.   SCR:ACTION = 'OPEN'
  41.  
  42.   DATA_STRING = 'C:\CLARION\ROLLINS\SHARECDS.CPY'
  43.   HANDLE = SHARE_OPEN(DATA_STRING,SHACC_RDWRT)
  44.   SCR:RETURN_CODE = HANDLE
  45.   SCR:ERROR_CODE = ERRORCODE()
  46.   SCR:ERROR_MSSG = ERROR()
  47.  
  48.   IF ERRORCODE() = 0 THEN
  49.     LOOP
  50.       ASK
  51.       IF KEYCODE() = REJECT_KEY OR KEYCODE() = ESC_KEY THEN BREAK.
  52.       SCR:ACTION = 'READ'
  53.       SCR:RETURN_CODE = SHARE_READ(HANDLE,DATA_STRING,SIZE(DATA_STRING))
  54.       SCR:STRING = DATA_STRING
  55.       SCR:ERROR_CODE = ERRORCODE()
  56.       SCR:ERROR_MSSG = ERROR()
  57.     .
  58.     SCR:ACTION = 'CLOSE'
  59.     SHARE_CLOSE(HANDLE)
  60.     SCR:ERROR_CODE = ERRORCODE()
  61.     SCR:ERROR_MSSG = ERROR()
  62.   .
  63.  
  64.   ASK
  65.