RosettaCodeData/Task/Count-in-octal/Phix/count-in-octal.phix
2016-12-05 23:44:36 +01:00

6 lines
120 B
Text

integer i = 0
constant ESC = #1B
while not find(get_key(),{ESC,'q','Q'}) do
printf(1,"%o\n",i)
i += 1
end while