CLS
COLOR 4,15
SCREEN 1
LOCATE 2,2
INPUT " ZAKÓDUJTE " ;A$
CLS
LOCATE 2,2
INPUT " ODKÓDUJTE " ;C$
IF A$=C$ THEN GOTO JEDNA
CLS
LOCATE 2,2
PRINT " ŠPATNÝ KÓD ( !!! ZABLOKOVÁNO !!! ) "
DO
SOUND RND*800+12,13
LOOP
JEDNA:
END