ALARM.BAS

   1 cls
   2 screen 1
   3 COLOR 14,1
   4 LOCATE 2,2
   5 INPUT " ZAKàDUJTE ALARM " ;KOD$
   6 ZPED:
   7 SCREEN 1
   8 COLOR 14,1
   9 LOCATE 2,2
  10 cls
  11 INPUT " ODKàDUJTE ALARM " ;UNKOD$
  12 IF UNKOD$=KOD$ THEN GOTO NOTALARM
  13 SOUND 1000+12,100
  14 GOTO ZPED
  15 NOTALARM:
  16 END\1a