       10 // CLOSE sample program
       20 //
       30 PROC deliet EXTERNAL "deliet.sq"
       40 //
       50 oopen
       60 CLOSE
       70 //
       80 oopen
       90 CLOSE FILE 1
      100 CLOSE FILE 2
      110 //
      120 oopen
      130 CLOSE FILE 1, 2
      140 //
      150 oopen
      160 CLOSE
      170 //
      180 deliet("ofile4")
      190 deliet("ofile5")
      200 PRINT "Ok"
      210 //
      220 PROC oopen
      230   OPEN FILE 1, "ofile4", WRITE 
      240   OPEN FILE 2, "ofile5", WRITE 
      250 ENDPROC oopen
