home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / Raytracing / Raytracer / LightWave.lha / Lightwave / Toaster / Arexx_Examples / lwm / CheckFSSeq.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1993-09-23  |  525 b   |  22 lines
  1. /*  CheckFSSeq.rexx -- Check for missing frames in sequence of FRAMESTORES */
  2. /*  By Arnie Cachelin © 1993 NewTek, Inc. */
  3.  
  4. parse arg dir base start total 
  5.  
  6. if dir ="" | base="" | start="" | total="" then do
  7.     say "USAGE rx CheckFSSeq FSDir Comment Start# Count"
  8.     exit
  9.     end
  10.  
  11. f=start
  12. if f<1000 then d=3
  13. else d=4
  14. if right(base,1)~='/' | right(base,1)~=':' then base=base||'/' 
  15. do f=start to start+total
  16.     sname=dir||right(f,d,'0')||'.FS.'base
  17.      if ~exists(sname) then say "Missing: "sname
  18.     if f<1000 then d=3
  19.     else d=4
  20.     end
  21.  
  22. exit