[mirrors/Programs.git] / turbobasic / VIPIS.BAS

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\1a