window 1, @"Count in Octal"

defstr word
dim as short i
text ,,,,, 50

print @"dec",@"oct"
for i = 0 to 25
  print i,oct(i)
next

HandleEvents