[mirrors/Programs.git] / turbobasic / 1998 / POZDRAV.BAS

FOR I=0 TO 5000\r
CLS\r
SCREEN 0\r
COLOR 14,1\r
LOCATE 10,5\r
PRINT " DOBRY DEN! JAK SE MATE ? "\r
\r
A$=INKEY$\r
IF A$="X" THEN KONEC\r
\r
FOR B=0 TO 300\r
NEXT B\r
\r
NEXT I\r
KONEC:\r
CLS\1a
Commit	Line	Data
	1	FOR I=0 TO 5000\r
	2	CLS\r
	3	SCREEN 0\r
	4	COLOR 14,1\r
	5	LOCATE 10,5\r
	6	PRINT " DOBRY DEN! JAK SE MATE ? "\r
	7	\r
	8	A$=INKEY$\r
	9	IF A$="X" THEN KONEC\r
	10	\r
	11	FOR B=0 TO 300\r
	12	NEXT B\r
	13	\r
	14	NEXT I\r
	15	KONEC:\r
	16	CLS\1a