home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / printer / printfiles / rexx / sources < prev   
Encoding:
Text File  |  1995-02-27  |  1.4 KB  |  38 lines
  1. /* PrintFiles V0.91e  Preferences - Arexx File */
  2.  
  3. options results   /* request results */
  4. if ~show(ports,'PRINTFILES')then do   /* PrintFiles already running ? */
  5.     address command 'printfiles'    /* if not, attempt to launch it */
  6.  address command 'sys:rexxc/WaitForPort PRINTFILES'   /* wait...wait...wait */
  7. end   /*  */
  8. if ~(show(ports,'PRINTFILES')) then return 5   /* return 5 if we couldn't find PrintFiles */
  9.  
  10. address printfiles
  11.  
  12. insertdir 'SYS:'     /* Default directory  of FileRequester */
  13. savedir 'REXX:'     /* Default directory of SaveRequester */
  14. 15cpi     /* set pitch to condensed */
  15. draft     /* set print quality to draft */
  16. page on      /* print page count */
  17. time on      /* print time */
  18. filename on      /* print filename */
  19. line on      /* print linennumbers */
  20. date on      /* print date */
  21. 8li     /* set 1/8 spacing */
  22. ff on      /* print FormFeed after each file */
  23. fpage on      /* print additional cr after each line */
  24. lmargin 0     /* set right margin */
  25. rmargin 128     /* set left margin */
  26. lines 80     /* number of lines per page */
  27. saveprefs '-cFWsRPiL'       /* Saveprefs flags */
  28.      /* With    Comments */
  29.      /* Without   Filenames */
  30.      /* Without   OpenWindow-command */
  31.      /* With    Startup Code */
  32.      /* Without   Reset-command */
  33.      /* Without   Print-command */
  34.      /* With    Icon */
  35.      /* Without   Head/Footline */
  36. icon ignore      /* ignore Icons  */
  37. prog ignore      /* ignore programs */
  38.