home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d6xx / d645 / dmd.lha / DMD / REXX / Append.dme < prev    next >
Text File  |  1992-04-26  |  289b  |  15 lines
  1. /* Append.dme © 1992 Fergus Duniho */
  2. /* Appends blocked text to buffer */
  3.  
  4. 'if !cb `unblock block block'
  5. bsave 'T:B1'
  6. Call Open 'B', 'T:B0', 'A'
  7. Call Open 'T', 'T:B1', 'R'
  8. L = Readln('T')
  9. Do Until EOF('T')
  10.     Call Writeln 'B', L
  11.     L = Readln('T')
  12. End
  13. Call Close 'T'
  14. Call Delete 'T:B1'
  15.