home *** CD-ROM | disk | FTP | other *** search
/ Amiga Elysian Archive / AmigaElysianArchive.iso / prog / arexx / rxarplib.lha / rexx / filelist / cfprt.txed < prev    next >
Encoding:
Text File  |  1988-08-04  |  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.