home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / Pearls / comm / Misc / ZVT / ZVTandGPFax < prev    next >
Text File  |  1995-02-04  |  629b  |  45 lines
  1. /* Script to start VoiXEL and GPFax */
  2.  
  3. say "Trying to start GPFax."
  4.  
  5. ADDRESS COMMAND 'WFP REXX_GPFAX 0'
  6.  
  7. if RC > 0 then
  8.     do
  9.         ADDRESS COMMAND 'run >nil: <nil: gpfax:gpfax -W -NP -Q -z'
  10.     end
  11.  
  12.  
  13. ADDRESS COMMAND 'WFP REXX_GPFAX 30'
  14.  
  15. if RC > 0 then
  16.     do
  17.         say "GPFax couldn't be run.  Exiting."
  18.         exit
  19.     end
  20.  
  21. ADDRESS rexx_gpfax closeserial
  22.  
  23. say "GPFax is running."
  24.  
  25. say "Trying to start ZVT."
  26.  
  27. ADDRESS COMMAND 'WFP ZVT.1 0'
  28.  
  29. if RC > 0 then
  30.     do
  31.         ADDRESS COMMAND 'run >nil: <nil: ZVT'
  32.     end
  33.  
  34. ADDRESS COMMAND 'WFP ZVT.1 30'
  35.  
  36. if RC > 0 then
  37.     do
  38.         say "ZVT couldn't start."
  39.         ADDRESS rexx_gpfax quit
  40.         exit
  41.     end
  42.  
  43. say "ZVT is running."
  44. exit
  45.