Count in octal: Difference between revisions

Content added Content deleted
Line 182: Line 182:


=={{header|Forth}}==
=={{header|Forth}}==
Using INTS from [[Integer sequence#Forth]]
<lang forth>: octal
base @ 8 base !
<lang forth>: octal ( -- ) 8 base ! ; \ where unavailable

0
octal ints</lang>
begin
dup cr .
1+
dup 0=
until
drop
base ! ;</lang>


=={{header|Fortran}}==
=={{header|Fortran}}==