home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / system / printfiles / deutsch / rexx / an_drucker next >
Text File  |  1995-02-27  |  1KB  |  29 lines
  1. /* ************************************************************* */
  2. /* PrintFiles V1.31d Aug 15 1992  Preferences - Arexx File */
  3. /*  erzeugt am   Sonntag, 16. August 1992  11:49:49 */
  4. /* ************************************************************* */
  5.  
  6.  
  7. /* ************************************************************* */
  8. /* Start Block */
  9. /* ************************************************************* */
  10. options results   /* Ergebnisse anfordern */
  11. if ~show(ports,'PRINTFILES')then do   /* Läuft PrintFiles schon ? */
  12.     address command 'printfiles'   /* wenn nicht, dann ein Startversuch */
  13. address command 'sys:rexxc/WaitForPort PRINTFILES'  /* noch ein bisschen abwarten */
  14. end   /*  */
  15. if ~(show(ports,'PRINTFILES')) then return 5   /* Rückgabewert 5 bei Mißerfolg */
  16. address  PRINTFILES  /* Kommandos an PrintFiles */
  17.  
  18.  
  19. /* ************************************************************* */
  20. /* Verteiler Block */
  21. /* ************************************************************* */
  22.  
  23. output 'printer'      /* Ausgabe in eine Datei   */
  24. header on      /* Ohne Steuerzeichen für den Drucker */
  25.  
  26. /* ************************************************************* */
  27. /* *** Ende der Datei *** */
  28. /* ************************************************************* */
  29.