       10 // REPEAT/UNTIL test program
       20 //
       30 i:=1
       40 REPEAT NULL UNTIL done
       50 SYS assert, i=21
       60 PRINT "Ok"
       70 //
       80 FUNC done
       90   i:+1
      100   RETURN i>20
      110 ENDFUNC done
