       10 // SELECT INPUT test program
       20 //
       30 TRAP
       40   SELECT INPUT "ofile"
       50   FOR f:=1 TO 10 DO
       60     INPUT a$
       70     SYS assert, a$="Output line "+STR$(f)
       80   ENDFOR f
       90   SELECT INPUT ""
      100 HANDLER
      110   RUN "selout1.sq"
      120 ENDTRAP
      130 //
      140 DELETE "ofile"
      150 PRINT "Ok"
