FOR I=0 TO 100 LOCATE0,0:PRINT I VSYNC 1 NEXT