home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d6xx / d645 / dmd.lha / DMD / REXX / Paginate.dme < prev    next >
Text File  |  1992-04-26  |  854b  |  35 lines
  1. /* Paginate.dme © 1991 by Fergus Duniho */
  2. /* Paginates Document */
  3.  
  4. Arg MARGIN
  5.  
  6. PAGENO = intreq('1st Page Number?',0,9999,1)
  7. LINES = intreq('Lines per Page?',1,60,50)
  8. If textreq('                 ','Paginate?','Cancel','Okay')=0 Then Exit
  9. BLANK = ' '
  10. FF = d2c(12)
  11.  
  12. saveas 'ram:text'
  13. Call Open 'Old', 'RAM:TEXT', 'R'
  14. Call Open 'New', 'RAM:TEXT2', 'W'
  15.  
  16. Do Until EOF('Old')
  17.     Do 4
  18.         Call Writeln 'New', BLANK
  19.     End
  20.     Do LINES
  21.         If EOF('Old') Then Call Writeln 'New', BLANK
  22.                       Else Call Writeln 'New', Readln('Old')
  23.     End
  24.     If PAGENO = 0 Then Call Writeln 'New', FF
  25.     Else Do
  26.         Call Writeln 'New', BLANK
  27.         Call Writeln 'New', BLANK
  28.         Call Writeln 'New', Center(PAGENO, MARGIN) || FF
  29.     End
  30.     PAGENO = PAGENO + 1
  31. End
  32.  
  33. Call Close 'New'
  34. 'unblock top block bottom block bdelete insfile RAM:TEXT2'
  35.