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

A=0\r
FOR I=0 TO 24\r
A=A+1\r
REM CLS\r
COLOR 14,1\r
SCREEN 0\r
LOCATE A,A\r
PRINT I\r
NEXT I\r
END\1a
Commit	Line	Data
0f95cc4b H	1	A=0\r
	2	FOR I=0 TO 24\r
	3	A=A+1\r
	4	REM CLS\r
	5	COLOR 14,1\r
	6	SCREEN 0\r
	7	LOCATE A,A\r
	8	PRINT I\r
	9	NEXT I\r
	10	END\1a