home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Club Amiga de Montreal - CAM
/
CAM_CD_1.iso
/
files
/
264b.lha
/
Uemacs_v3.10
/
pos.cmd
< prev
next >
Wrap
OS/2 REXX Batch file
|
1989-07-02
|
565b
|
33 lines
30 store-macro
!if &seq $pending TRUE
update-screen
!return
!endif
set %tline &cat &cat &cat "Line = " $curline " Col = " $curcol
*it
save-window
1 next-window
previous-window
!if ¬ &seq $cbufname "Position"
run pset
!goto it
!endif
beginning-of-file
overwrite-string &cat %tline " "
restore-window
!endm
store-procedure pset
1 next-window
previous-window
2 split-current-window
1 resize-window
1 select-buffer "Position"
add-mode "black"
add-mode "GREEN"
previous-window
set $cmdhook execute-macro-30
!endm
run pset