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