home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / UE311CMD.ZIP / POS.CMD < prev    next >
OS/2 REXX Batch file  |  1990-06-19  |  597b  |  33 lines
  1. 30    store-macro
  2.     !if &seq $pending TRUE
  3.         update-screen
  4.         !return
  5.     !endif
  6.     set %tline &cat &cat &cat "Line = " $curline " Col = " $curcol
  7. *it
  8.     save-window
  9.     1 next-window
  10.     previous-window
  11.     !if ¬ &seq $cbufname "Position"
  12.         run pset
  13.         !goto it
  14.     !endif
  15.     beginning-of-file
  16.     overwrite-string &cat %tline "                "
  17.     restore-window
  18. !endm
  19.  
  20. store-procedure    pset
  21.     1 next-window
  22.     previous-window
  23.     2 split-current-window
  24.     1 resize-window
  25.     1 select-buffer "Position"
  26.     add-mode "black"
  27.     add-mode "GREEN"
  28.     previous-window
  29.     set $cmdhook execute-macro-30
  30. !endm
  31.  
  32. run pset
  33.