A=0
FOR I=0 TO 24
A=A+1
REM CLS
COLOR 14,1
SCREEN 0
LOCATE A,A
PRINT I
NEXT I
END