include "ConsoleWindow
defstr word

dim as short i

for i = &o000000 to &o000031      // 0 to 25 in decimal
   print oct$(i); " in octal ="; i
next