16 lines
297 B
Text
16 lines
297 B
Text
10 rem Count in ocatal
|
|
20 while ("" = inkey$ )
|
|
30 print octal$(n)
|
|
40 n = n+1
|
|
50 wend
|
|
60 end
|
|
200 function octal$(what)
|
|
210 outp$ = ""
|
|
220 w = what
|
|
230 while abs(w) > 0
|
|
240 o = w and 7
|
|
250 w = int(w/8)
|
|
260 outp$ = str$(o)+outp$
|
|
270 wend
|
|
280 octal$ = outp$
|
|
290 end function
|