       10 // GET$ test program
       20 //
       30 PROC deliet EXTERNAL "deliet.sq"
       40 //
       50 deliet("testfile.txt")
       60 SYS sysout, "testfile.txt"
       70 PRINT "XYZZY"
       80 SYS sysout, ""
       90 //
      100 OPEN FILE 1, "testfile.txt", READ 
      110 x$:=GET$(1,1); y$:=GET$(1,2); z$:=GET$(1,100)
      120 SYS assert, x$="X"
      130 SYS assert, y$="YZ"
      140 SYS assert, z$="ZY"+CHR$(10)
      150 SYS assert, EOF(1)
      160 CLOSE FILE 1
      170 deliet("testfile.txt")
      180 PRINT "Ok"
