Source code in the s-basic programming language

rem - return p mod q
function mod(p, q = integer) = integer
end = p - q * (p / q)

rem - return octal representation of n
function oct$(n = integer) = string
var s = string
s = ""
while n > 0 do
  begin
     s = chr(mod(n,8) + '0') + s
     n = n / 8
  end
end = s

rem - count in octal until overflow
var i = integer
i = 1
while i > 0 do
  begin
    print oct$(i)
    i = i + 1
  end

end