cls
n = 1
start:
x = int((n-1)/20)
y = (n - x*20)*16
text x*50, y, str$(n)
inc n
if n < 101 then goto start
wait key