home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / applications / wp / xes131.lha / XES / REXX / CopyRec.xdme < prev    next >
Encoding:
Text File  |  1994-12-23  |  411 b   |  20 lines
  1. /* CopyRec.xdme */
  2. /* This copies a block of text that is marked both as
  3.  * a rectangle and as a vertical block */
  4.  
  5. arg start end
  6. width = end - start
  7.  
  8. bsave "T:temp"
  9. call open(input,"T:temp","R")
  10. call open(output,"T:rectangle","W")
  11.  
  12. do forever
  13.     line = substr(readln(input),start,width)
  14.     if eof(input) then leave
  15.     call writeln(output,line)
  16. end
  17. call close(input)
  18. call close(output)
  19. call delete("T:temp")
  20.