       10 // SELECT OUTPUT test program
       20 //
       30 PROC deliet EXTERNAL "deliet.sq"
       40 deliet("ofile")
       50 SELECT OUTPUT "ofile"
       60 FOR f:=1 TO 10 DO PRINT "Output line ";f
       70 SELECT OUTPUT ""
       80 //
       90 RUN "selin1.sq"
