home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / packery / snatchdiz / genlistfile next >
Text File  |  1977-12-31  |  430b  |  24 lines
  1. .k DIR/A,FILE/A,EXEPATH
  2. .def <EXEPATH> "C:"
  3.  
  4. failat 20
  5.  
  6. C:cd >NIL: <DIR>
  7. resident "<EXEPATH>SnatchDIZ" FORCE
  8.  
  9. IF WARN
  10.  C:Echo "*nBe sure to set EXEPATH to the path of SnatchDIZ if it aint in C:."
  11.  C:Echo "It must end with : or / ..."
  12.  QUIT
  13. ENDIF
  14.  
  15. C:Echo "*nCreating listfile of <DIR> ... " NOLINE
  16. S:SPat "SnatchDIZ >NIL:" #? LF T:LF.TMP S
  17.  
  18. C:Copy T:LF.TMP <FILE>
  19. C:Delete >NIL: T:LF.TMP
  20.  
  21. C:Echo "done!"
  22.  
  23. resident SnatchDIZ remove
  24.