home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 September / Simtel20_Sept92.cdr / msdos / procomm / adl.arc / DL-VBG.CMD < prev   
OS/2 REXX Batch file  |  1987-07-10  |  478b  |  42 lines
  1. GOSU DL
  2. ASSI S1 S2
  3. GOSU DL
  4. ASSI S1 S3
  5. GOSU DL
  6. ASSI S1 S4
  7. GOSU DL
  8. ASSI S1 S5
  9. GOSU DL
  10. ASSI S1 S6
  11. GOSU DL
  12. ASSI S1 S7
  13. GOSU DL
  14. ASSI S1 S8
  15. GOSU DL
  16. ASSI S1 S9
  17. GOSU DL
  18. ALARM 3
  19. EXIT
  20.  
  21. DL:
  22. FIND S1 "XXX"
  23. IF FOUN
  24.    ALAR 3
  25.    EXIT
  26. ENDI
  27. RETRY:
  28. TRAN "D;"
  29. TRAN S1
  30. TRAN "!"
  31. WAIT "to abort the transfer." 15
  32. IF NOT WAIT
  33.    TRAN "!"
  34.    WAIT "File Function ?" 15
  35.    GOTO R        ;Label for the RETURN
  36. ENDI
  37. DOS "DSZ rz -y"
  38. WAIT "File Function ?"
  39. R:
  40. RETURN
  41.  
  42.