cls
screen 1
COLOR 14,1
LOCATE 2,2
INPUT " ZAKÓDUJTE ALARM " ;KOD$
ZPED:
SCREEN 1
COLOR 14,1
LOCATE 2,2
cls
INPUT " ODKÓDUJTE ALARM " ;UNKOD$
IF UNKOD$=KOD$ THEN GOTO NOTALARM
SOUND 1000+12,100
GOTO ZPED
NOTALARM:
END