home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / os2 / pmcom109.arj / CAPTURE.CMD next >
Encoding:
Text File  |  1991-09-04  |  638 b   |  26 lines
  1. /*Example REXX program for Pmcomm*/
  2. /*This program will get the characters from the current screen and */
  3. /*redisplay them. */
  4.  
  5. Parse arg port portname screen_handle dde_in dde_output semaphore
  6.  
  7. Call RxFuncAdd "init_dll","RxPmcomm","init_dll"
  8. Call init_dll
  9.  
  10. crlf = '0d0a'x
  11. clear = '01b'x||'[2J'
  12.  
  13. Call Get_cursor_position "row",dde_in,dde_output
  14. row = result
  15. Call Get_cursor_position "column",dde_in,dde_output
  16. col = result
  17. if (row - 25) < 0 then row = 25
  18. y = row - 25
  19. do until y = row
  20.     Call Get_char_at y,0,"162",dde_in,dde_output
  21.     str = result
  22.     Call Put_s str||crlf,screen_handle
  23.     y = y + 1
  24. end
  25. exit
  26.