[mirrors/Programs.git] / turbobasic / 255-ZNAK.BAS

CLS\r
FOR A=0 TO 255\r
COLOR 0,15\r
SCREEN 0\r
LOCATE B,A\r
PRINT A CHR$ (A)"*          "\r
\r
\r
REM POKR:\r
REM LOCATE 5,5\r
REM PRINT CHR$ (A)\r
REM FOR I=0 TO 99999\r
REM NEXT I\r
NEXT A\r
END\1a
Commit	Line	Data
0f95cc4b H	1	CLS\r
	2	FOR A=0 TO 255\r
	3	COLOR 0,15\r
	4	SCREEN 0\r
	5	LOCATE B,A\r
	6	PRINT A CHR$ (A)"* "\r
	7	\r
	8	\r
	9	REM POKR:\r
	10	REM LOCATE 5,5\r
	11	REM PRINT CHR$ (A)\r
	12	REM FOR I=0 TO 99999\r
	13	REM NEXT I\r
	14	NEXT A\r
	15	END\1a