home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rxtools.zip / crk / crkcat.cmd < prev    next >
OS/2 REXX Batch file  |  1999-04-15  |  727b  |  22 lines
  1. /* .crk files description generator by cygnus, 2:463/62.32 */
  2.  
  3. call RxFuncAdd 'SysFileTree', 'Rexxutil', 'SysFileTree'
  4.  
  5. call SysFileTree '*.crk', 'list', 'FO'
  6. say 'Found 'list.0 'crk files'
  7.  
  8. if list.0 \= 0 then do
  9.     percent = list.0%50+1
  10.     '@del cracks.lst 2>nul'
  11.  
  12.     rc = LineOut('cracks.lst', list.0 '.crk files. Descriptions:'||'0d0a'x||'----------------------------------------'||'0d0a'x||'')
  13.     call charout , 'Creating cracks.lst '
  14.  
  15.     do i = 1 to list.0
  16.         if i // percent = 0 then rc = charout(,'▒')
  17.         inp = LineIn(list.i)
  18.         rc = CharOut(cracks.lst, format(i,4) right(delstr(list.i,1,length(directory())+1),12) '-' inp||'0d0a'x)
  19.         rc = LineOut(list.i)
  20.     end
  21. end
  22. exit