16 lines
250 B
Text
16 lines
250 B
Text
|
WHILE ("" = INKEY$)
|
||
|
|
PRINT Octal$(n)
|
||
|
|
n = n + 1
|
||
|
|
WEND
|
||
|
|
END
|
||
|
|
FUNCTION Octal$(what)
|
||
|
|
outp$ = ""
|
||
|
|
w = what
|
||
|
|
WHILE ABS(w) > 0
|
||
|
|
o = w AND 7
|
||
|
|
w = INT(w / 8)
|
||
|
|
outp$ = STR$(o) + outp$
|
||
|
|
WEND
|
||
|
|
Octal$ = outp$
|
||
|
|
END FUNCTION
|