       10 // STOP test program
       20 //
       30 PROC deliet EXTERNAL "deliet.sq"
       40 deliet("temp")
       50 //
       60 SELECT OUTPUT "temp"
       70 PRINT "con"
       80 SELECT OUTPUT ""
       90 SYS sysin, "temp"
      100 STOP
      110 deliet("temp")
      120 PRINT "Ok"
