X-Git-Url: http://git.harvie.cz/?a=blobdiff_plain;f=turbobasic%2FALARM.BAS;h=be592ec2487b948718e2503cb932dbbd4225ec1c;hb=6c1eebfd3f2dcd4be9ee64d739511f443c53fa33;hp=5b4449de7382b2bed330bc1c5b98ce67c7a2c5ef;hpb=0f95cc4b3314aff66038b3bf60ff6db6790bc15c;p=mirrors%2FPrograms.git diff --git a/turbobasic/ALARM.BAS b/turbobasic/ALARM.BAS old mode 100755 new mode 100644 index 5b4449d..be592ec --- a/turbobasic/ALARM.BAS +++ b/turbobasic/ALARM.BAS @@ -2,13 +2,13 @@ cls screen 1 COLOR 14,1 LOCATE 2,2 -INPUT " ZAKàDUJTE ALARM " ;KOD$ +INPUT " ZAKÓDUJTE ALARM " ;KOD$ ZPED: SCREEN 1 COLOR 14,1 LOCATE 2,2 cls -INPUT " ODKàDUJTE ALARM " ;UNKOD$ +INPUT " ODKÓDUJTE ALARM " ;UNKOD$ IF UNKOD$=KOD$ THEN GOTO NOTALARM SOUND 1000+12,100 GOTO ZPED