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