home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / system / printfiles / english / rexx / version < prev    next >
Text File  |  1995-02-27  |  587b  |  18 lines
  1. /* prf_version */
  2.  
  3. options results   /* Ergebnisse anfordern */
  4. if ~show(ports,'PRINTFILES')then do   /* Läuft PrintFiles schon ? */
  5.     address command 'printfiles'   /* wenn nicht, dann ein Startversuch */
  6. address command 'sys:rexxc/WaitForPort PRINTFILES'  /* noch ein bisschen abwarten */
  7. end   /*  */
  8. if ~(show(ports,'PRINTFILES')) then return 5   /* Rückgabewert 5 bei Mißerfolg */
  9. address  PRINTFILES  /* Kommandos an PrintFiles */
  10.  
  11. say
  12. say "********************************************"
  13. version
  14. say "You are using " result
  15. say "********************************************"
  16. say
  17.  
  18.