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

SCREEN 0\r
INPUT " ZADEJ 1 (šEDá) NEBO JEN ENTER(MODRá)";L\r
IF L=1 THEN COLOR 0,15:GOTO RAZ\r
COLOR 14,1\r
\r
RAZ:\r
FOR I=2 TO 500\r
REM CLS PRI KAZDEM CYKLU VYMAZE OBRAZOVKU, TAKZE NAPIS BLIKA\r
CLS\r
SCREEN 0\r
LOCATE 9,23\r
PRINT " DOBRY DEN! JAK SE MATE ? "\r
\r
A$=INKEY$\r
IF A$="X" THEN KONEC\r
KEY (11) STOP\r
\r
FOR B=0 TO 300\r
NEXT B\r
\r
NEXT I\r
KONEC:\r
LOCATE 20,15\r
FOR T=0 TO 2000\r
CLS\r
PRINT "UKONCI LIBOVOLNOU KLAVESOU"\r
KEY (19) STOP\r
NEXT T\1a
Commit	Line	Data
0f95cc4b	1	SCREEN 0\r
6c1eebfd	2	INPUT " ZADEJ 1 (šEDá) NEBO JEN ENTER(MODRá)";L\r
0f95cc4b H	3	IF L=1 THEN COLOR 0,15:GOTO RAZ\r
	4	COLOR 14,1\r
	5	\r
	6	RAZ:\r
	7	FOR I=2 TO 500\r
	8	REM CLS PRI KAZDEM CYKLU VYMAZE OBRAZOVKU, TAKZE NAPIS BLIKA\r
	9	CLS\r
	10	SCREEN 0\r
	11	LOCATE 9,23\r
	12	PRINT " DOBRY DEN! JAK SE MATE ? "\r
	13	\r
	14	A$=INKEY$\r
	15	IF A$="X" THEN KONEC\r
	16	KEY (11) STOP\r
	17	\r
	18	FOR B=0 TO 300\r
	19	NEXT B\r
	20	\r
	21	NEXT I\r
	22	KONEC:\r
	23	LOCATE 20,15\r
	24	FOR T=0 TO 2000\r
	25	CLS\r
	26	PRINT "UKONCI LIBOVOLNOU KLAVESOU"\r
	27	KEY (19) STOP\r
	28	NEXT T\1a