home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga MA Magazine 1998 #3
/
amigamamagazinepolishissue1998.iso
/
bazy
/
easyvideo
/
rexx
/
ev_test.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1996-05-31
|
592b
|
31 lines
/* 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