home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 574.lha / BackTalk_v1.51 / Rexx_Examples / asend.bt next >
Encoding:
Text File  |  1991-05-23  |  1.1 KB  |  59 lines
  1.  /* sendfile - send a file through BT */
  2.  
  3.  /* This is a "prompted" ascii upload script written by Larry Phillips */
  4.  /* It was written to demonstrate the usage of the ONSTRING and the    */
  5.  /* OFFSTRING commands.  It was also written because Larry feels the   */
  6.  /* xprascii.library leaves a lot to be desired.                       */
  7.  
  8. options results
  9.  
  10. myport = openport('BT_msg')
  11. if myport = 0 then do
  12.    MESSAGE "PORT ALREADY IN USE"
  13.    exit
  14. end
  15.  
  16. GETFILENAME
  17.  
  18. if words(result) < 1 then do
  19.    RESET
  20.    exit
  21. end
  22.  
  23. if open(infile,result,'r') ~= 0 then do
  24.    ONSTRING "^M"
  25.    do forever
  26.       x = readln(infile)
  27.       if EOF(infile) then do
  28.          OFFSTRING
  29.          call getout
  30.       end
  31.  
  32.       SEND x
  33.       call waitforit
  34.    end
  35. end
  36.  
  37. waitforit:
  38.    packet =  getpkt('BT_msg')
  39.    do while packet = '00000000'x
  40.       call waitpkt('BT_msg')
  41.       packet = getpkt('BT_msg')
  42.    end
  43.    arg0 = getarg(packet)
  44.    call reply(packet,0)
  45.    select
  46.       when arg0 = 'OFF' then return
  47.       when arg0 = 'MATCH' then nop
  48.       otherwise nop
  49.    end
  50. return
  51.  
  52. getout:
  53.   do until arg0 = 'OFF'
  54.     call waitforit
  55.   end
  56.   MESSAGE "----- File sent -----"
  57.   RESET
  58.   exit
  59.