GIT.Harvie.CZ / mirrors / Programs.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
blame | history | raw | HEAD
Added experimental makepkg-update-checksums.sh
[mirrors/Programs.git] / turbobasic / 1998 / 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
https://github.com/Harvie/Programs.git (mirrored @ Mon, 04 Nov 2024 22:50:15 +0100)
This page took 1.000312 seconds and 4 git commands to generate.