10 rem LOOPUNTL.BAS
20 i = 0
30 do
40 i = i + 1
50 print "Value of i is";i
60 loop until i > 12