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:
REM CLS
LOCATE 20,15

PRINT "UKONCI stiskem enter"