SCREEN 0
INPUT " ZADEJ 1 (çED ) NEBO JEN ENTER(MODR )";L
IF L=1 THEN COLOR 0,15:GOTO RAZ
COLOR 14,1

RAZ:
FOR I=2 TO 500
REM CLS PRI KAZDEM CYKLU VYMAZE OBRAZOVKU, TAKZE NAPIS BLIKA
CLS
SCREEN 0
LOCATE 9,23
PRINT " DOBRY DEN! JAK SE MATE ? "

A$=INKEY$
IF A$="X" THEN KONEC
KEY (11) STOP

FOR B=0 TO 300
NEXT B

NEXT I
KONEC:
LOCATE 20,15
FOR T=0 TO 2000
CLS
PRINT "UKONCI LIBOVOLNOU KLAVESOU"
KEY (19) STOP
NEXT T