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