rem Benutzung im Videomodus @title Intervall-Video @param a Zahl der Filme @default a 5 @param b Film-Laufzeit (Min.) @default b 0 @param c Film-Laufzeit (Sek.) @default c 10 @param d Intervall (Min.) @default d 0 @param e Intervall (Sek.) @default e 10 t=60000*b+1000*c i=60000*d+1000*e if a<2 then let a=5 if t<1000 then let t=1000 if i<2000 then let i=2000 sleep 1000 print "Film 1 von", a click "shoot_full" sleep t click "shoot_full" for s=2 to a print "Warte", d, "Min.", e, "Sek." sleep i print "Film", s, "von", a click "shoot_full" sleep t click "shoot_full" next s end