       10 // EOD sample program
       20 //
       30 i:=0
       40 WHILE NOT(EOD) DO
       50   READ a
       60   i:+1
       70 ENDWHILE
       80 //
       90 SYS assert, a=25
      100 SYS assert, i=5
      110 PRINT "Ok"
      120 // 
      130 DATA 1, 4, 9, 16, 25
