home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 3 Comm
/
03-Comm.zip
/
pmcom233.zip
/
CAPTURE.CMD
next >
Wrap
OS/2 REXX Batch file
|
1996-01-02
|
636b
|
26 lines
/*Example REXX program for Pmcomm*/
/*This program will get the characters from the current screen and */
/*redisplay them. */
Parse arg port portname screen_handle dde_in dde_output semaphore
Call RxFuncAdd "init_dll","RxPmcomm","init_dll"
Call init_dll
crlf = '0d0a'x
clear = '01b'x||'[2J'
Call Get_cursor_position "row",dde_in,dde_output
row = result
Call Get_cursor_position "column",dde_in,dde_output
col = result
if (row - 25) < 0 then row = 25
y = row - 25
do until y = row
Call Get_char_at y,0,80,dde_in,dde_output
str = result
Call Put_s str||crlf,screen_handle
y = y + 1
end
exit