while 1
    i=i+1
    locate 1,1
    print i
    scan
wend