Count in octal: Difference between revisions

=={{header|S-BASIC}}==

Although many (most?) BASICs have an OCT$ function, S-BASIC does not, so we have to supply our own

<lang BASIC>

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

</lang>

{out}

<pre>

1

2

3

4

5

6

7

10

...

77770

77771

77772

77773

77774

77775

77776

77777

</pre>