home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Database / x-evd43.lha / EasyVideo / Rexx / EV_Test.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1996-05-31  |  592 b   |  31 lines
  1. /* Interaktiver Test für EasyVideo 
  2.     für Start aus EASYVIDEO
  3.    (c) Jörg Trahm
  4. */
  5.  
  6. call open con,"CON:10/10/320/100/EasyVideo Test"
  7. parse arg PortName
  8. address(PortName)
  9. call writeln con, "Ende mit EXIT"
  10. options prompt "EVideo > "
  11. options results
  12. start:
  13. signal on syntax
  14. signal on error
  15. do forever
  16.  call writech con,"EVideo > "
  17.  input=readln(con)
  18.  interpret input
  19.  call writeln con, "Ergebnis:"result":"
  20. end
  21.  
  22. syntax:
  23.  call writeln con, "Fehler" rc "in Zeile" sig1":" errortext(rc)
  24. signal start
  25.  
  26. error:
  27.  call writeln con, "Rückkehrcode:"rc
  28.  call writeln con, "Ergebnis:"result":"
  29. signal start
  30.  
  31.