--- /dev/null
+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
\ No newline at end of file