home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_disks / 300-399 / ff308.lzh / Vlt / rexx / GenSend.rexx < prev    next >
OS/2 REXX Batch file  |  1990-01-18  |  1KB  |  49 lines
  1. /* this is a test for a window which pulls stuff */
  2. parse upper arg sendfile "(" bitcheck
  3. parse var sendfile sendfile " AS " receivefile
  4.  
  5. sendfile = strip(sendfile)
  6. bitcheck = strip(bitcheck)
  7. receivefile = strip(receivefile)
  8.  
  9. if ~showlist('p',KERMITPORT) then mp = OpenPort(KERMITPORT)
  10.  
  11. address VLT
  12.  
  13.         SEND "*R"
  14.         call delay 50
  15.     SEND "*X7"
  16.         call delay 50
  17.     SEND "*R"
  18.         call delay 50
  19.         test = "kermit   *R"
  20.         test = '"'test'"'
  21.         SEND test
  22.  
  23.         t = waitpkt(KERMITPORT)
  24.         p = getpkt(KERMITPORT)
  25.         command = getarg(p)
  26.         t= reply(p,0)
  27.         call delay 60
  28.         
  29.         rstring = "receive "||receivefile||"*R"
  30.         rstring = '"'rstring'"'        
  31.  
  32.         SEND rstring
  33.  
  34.         call delay 100
  35.         KS sendfile 
  36.         
  37.         call delay 40
  38.         if bitcheck = BITNET then do 
  39.           SEND "'"||"CMS sendfile temp note a (note) *R"||"'"
  40.           call delay 150
  41.         end
  42.         SEND "QUIT*R"
  43.         SEND "*R"
  44.         SEND "*N"
  45.  
  46.  
  47. return 0 
  48.  
  49.