/* Interaktiver Test für EasyVideo 
	für Start aus EASYVIDEO
   (c) Jörg Trahm
*/

call open con,"CON:10/10/320/100/EasyVideo Test"
parse arg PortName
address(PortName)
call writeln con, "Ende mit EXIT"
options prompt "EVideo > "
options results
start:
signal on syntax
signal on error
do forever
 call writech con,"EVideo > "
 input=readln(con)
 interpret input
 call writeln con, "Ergebnis:"result":"
end

syntax:
 call writeln con, "Fehler" rc "in Zeile" sig1":" errortext(rc)
signal start

error:
 call writeln con, "Rückkehrcode:"rc
 call writeln con, "Ergebnis:"result":"
signal start