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