       10 // INPUT sample program
       20 //
       30 PROC deliet EXTERNAL "deliet.sq"
       40 deliet("ofile2")
       50 //
       60 SELECT OUTPUT "ofile2"
       70 WHILE NOT(EOD) DO
       80   READ a$
       90   PRINT a$
      100 ENDWHILE
      110 SELECT OUTPUT ""
      120 //
      130 SELECT INPUT "ofile2"
      140 INPUT a, b, c
      150 SYS assert, a=1 AND b=2 AND c=3
      160 INPUT a$
      170 SYS assert, a$="      Dit is een test       "
      180 INPUT a$, b, c$
      190 SYS assert, a$="deze string bevat een , zie je wel" AND b=99 AND c$=" aapje"
      200 SELECT INPUT ""
      210 deliet("ofile2")
      220 PRINT "Ok"
      230 //
      240 DATA "1, 2,     3   "
      250 DATA "      Dit is een test       "
      260 DATA """deze string bevat een , zie je wel"" , 99, aapje"
