home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / arexx / moos / demos / ex_funa.rexx next >
OS/2 REXX Batch file  |  1997-03-25  |  370b  |  21 lines
  1. /*
  2.  *
  3.  */
  4.  
  5. dev.0 = 2
  6. dev.1 = "SYS:"
  7. dev.2 = "RAM:"
  8.  
  9. DO n = 1 FOR dev.0
  10.     /*
  11.      *    From the caller script ARG(1) == "stem." and Info() is called
  12.      *    with "/stem.N.", where N change into the loop.
  13.      *
  14.      *    The slash, "/", indicates that the stem specified must be written
  15.      *    into the caller script.
  16.      */
  17.     IF ~Info(dev.n,"/" || ARG(1) || n || ".") THEN RETURN 0
  18. END
  19.  
  20. RETURN 1
  21.