home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 216.lha / RexxArpLib_v2.1 / rexx / filelist / cfprt.txed < prev    next >
Encoding:
Text File  |  1996-02-15  |  224 b   |  18 lines
  1. /* cfprt */
  2.  
  3. P = getenv("DUTOPort")
  4.  
  5. do i = 1
  6.   x = showlist('p')
  7.   z = index(x,P)
  8.   if z=0 then leave i
  9.   call delay 10
  10. end
  11.  
  12. x = setenv("dufromdir",)
  13. x = setenv("dutodir",)
  14. x = setenv("DUTOPort",)
  15. call delay 50
  16. quit 1
  17. exit
  18.