FlagVM/flagpole/irtests/divgrow.fp

10 lines
No EOL
146 B
GLSL

$inc fvmstd.fp
proc main
1 @divisor
while &divisor 100 u< do
0x31 :putchar
&divisor 10 u* @divisor
endwhile
0x32 :putchar
endproc