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