home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / system / printfiles / english / rexx / letter < prev    next >
Text File  |  1995-02-27  |  4KB  |  89 lines
  1. /* ************************************************************* */
  2. /* PrintFiles V1.4e Rev 48 Mar 27 1993  Preferences - Arexx File */
  3. /* generated   Sunday, April 11, 1993  14:17:56 */
  4. /* ************************************************************* */
  5.  
  6.  
  7. /* ************************************************************* */
  8. /* Start Block */
  9. /* ************************************************************* */
  10. options results   /* request results */ 
  11. if ~show(ports,'PRINTFILES')then do   /* PrintFiles already running ? */ 
  12.     address command 'printfiles'    /* if not, attempt to launch it */ 
  13. address command 'sys:rexxc/WaitForPort PRINTFILES'  /* wait...wait...wait */ 
  14. end   /*  */ 
  15. if ~(show(ports,'PRINTFILES')) then return 5   /* return 5 if we couldn't find PrintFiles */ 
  16. address  PRINTFILES  /* Kommandos an PrintFiles */ 
  17.  
  18.  
  19. /* ************************************************************* */
  20. /* Extras & Arexx-Prefs Block */
  21. /* ************************************************************* */
  22. icon ignore      /* ignore Icons  */
  23. prog ignore      /* ignore programs */
  24. insertdir 'SYS:'     /* default path of Filerequester */
  25. savedir 'df2:printfiles/english/rexx'     /* default path of SaveRequester */
  26. saveprefs '-cFWsRPiLdeha'       /* Saveprefs flags */
  27.      /* With    Comments */
  28.      /* Without   Filenames */
  29.      /* Without   OpenWindow-command */
  30.      /* With    Startup Code */
  31.      /* Without   Reset-command */
  32.      /* Without   Print-command */
  33.      /* With    Icon */
  34.      /* Without   Head/Footline */
  35.      /* With    Printer Prefs */
  36.      /* With    Extras & AREXX Prefs*/
  37.      /* With    Handler window prefs */
  38.      /* With    Text Replacement */
  39.  
  40. /* ************************************************************* */
  41. /* Handler Block */
  42. /* ************************************************************* */
  43. pass text 'intern'      /* process text files intern */
  44. pass prog 'intern'      /* process executables intern */
  45. pass icon 'intern'      /* process Icon files intern */
  46. pass iff 'intern'      /* process IFF-Files intern */
  47.  
  48. output 'printer'      /* Output to the printer device  */
  49. header on      /* Send Control Codes to the Printer */
  50.  
  51. /* ************************************************************* */
  52. /* Printer Prefs Block */
  53. /* ************************************************************* */
  54. copies 1     /* number of copies */
  55. 12cpi     /* set pitch to elite */
  56. lq     /* set print quality to nlq */
  57. page off      /* print page count */
  58. time off      /* print time */
  59. filename off      /* print filename */
  60. line off      /* print linennumbers */
  61. date off      /* print date */
  62. replace on       /* with text replacements */
  63. 6li     /* set 1/6 spacing */
  64. ff off      /* print FormFeed after each file */
  65. fpage on      /* print additional cr after each line */
  66. lmargin 1     /* set right margin */
  67. rmargin 79     /* set left margin */
  68. lines 61     /* number of lines per page */
  69.  
  70. /* ************************************************************* */
  71. /* Text Replace Block */
  72. /* ************************************************************* */
  73. prefix '\'      /* first character of replacement */
  74. insertreplace 'underline _ESC[4m'      /* replacement command and substitution */
  75. insertreplace 'propoff _ESC[1p'      /* replacement command and substitution */
  76. insertreplace 'normal _ESC[0m'      /* replacement command and substitution */
  77. insertreplace 'propon _ESC[2p'      /* replacement command and substitution */
  78. insertreplace 'italic _ESC[3m'      /* replacement command and substitution */
  79. insertreplace 'roman _ESC[3"r_ESCk_NULL'      /* replacement command and substitution */
  80. insertreplace 'datew _WDayE, MNameE _Day, 19_Year'      /* replacement command and substitution */
  81. insertreplace 'bold _ESC[1m'      /* replacement command and substitution */
  82. insertreplace 'date _MNameE _Day, 19_Year'      /* replacement command and substitution */
  83. insertreplace 'time _H12:_Min _AP'      /* replacement command and substitution */
  84. replace on       /* with text replacements */
  85.  
  86. /* ************************************************************* */
  87. /* *** End of File *** */
  88. /* ************************************************************* */
  89.