/* RexxStart für EasyVideo
   (c) Jörg Trahm
*/

AutoSichern=15             /* Zeit in Minuten für Automatisches Sichern*/

call addlib('rexxsupport.library',0,-30)
call addlib('rexxreqtools.library',0,-30)
call delay(50)
parse arg PortName
address(PortName)
options results
signal on syntax
signal on error


ZaehlerAutoSichern = 0

/* nur für EasyVideo-Start */

EV_Setze "RexxAnzeige=Nein"


/* Sekundentakt Endlosschleife */

Start:
do while show('p', PortName)

 select                     
 /* automatisches Speichern */
  When ZaehlerAutoSichern >= AutoSichern then do
   EV_Sichern
   ZaehlerAutoSichern = 0
   end
  OtherWise
   call delay(3000)
   ZaehlerAutoSichern = ZaehlerAutoSichern + 1

 end

end
exit

syntax:
 NOP
signal Start

error:
 NOP
signal Start