#  Georges Mauro 19.02.92 v1.00

#  A crude script for the vfr_record program to do a "loop" of three frames,
#  and automatically incrementing the timecode location.  This isn't the
#  nicest way to do this, but it should work.
 
     set fr1 = 0
     set fr2 = 0
     set se1 = 0
     set se2 = 1
     set mi1 = 0
     set mi2 = 0
     set ho1 = 0
     set ho2 = 1
     set frame = 0

     while ( $ho2 <= 2 )
        while ( $ho1 <= 9 )
           while ( $mi2 <= 5 )
              while ( $mi1 <= 9 )
                 while ( $se2 <= 5 )
                    while ( $se1 <= 9 )
                       while ( $fr2 <= 2 )
                          while ( $fr1 <= 9 )
                             if ( $frame <= 2 ) then
                                @ frame += 1
                             else
                                @ frame = 1
                             endif 
                             sleep 1
                             echo frame $frame
                             vfr_record toto $frame $frame 1 1 $ho2$ho1$mi2$mi1$se2$se1$fr2$fr1 beta_525 
                             echo $ho2$ho1$mi2$mi1$se2$se1$fr2$fr1
                             @ fr1 += 1
                          end   
                          @ fr1 = 0
                          @ fr2 += 1
                       end
                       @ fr2 = 0
                       @ se1 += 1
                    end
                    @ se1 = 0
                    @ se2 += 1
                 end
                 @ se2 = 0
                 @ mi1 += 1
              end
              @ mi1 = 0
              @ mi2 += 1
           end
           @ mi2 = 0
           @ ho1 += 1
        end
        @ ho1 = 0  
        @ ho2 += 1
     end
          
