home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / scrmod.zip / FIRSTFIL.SCR < prev    next >
Text File  |  1992-01-03  |  252b  |  19 lines
  1. > windowshow()
  2. > watch(off)
  3. > cd('c:\os2')
  4. > text = firstfile ('*.cmd', handle)
  5. > loop:
  6. > if (text == '')
  7. > goto done
  8. > endif
  9. > message (text)
  10. > text = nextfile (handle)
  11. > goto loop
  12. > done:
  13. > watch(on)
  14. > timeout = 0
  15. > wait()
  16. > end
  17.  
  18.  
  19.