GIT.Harvie.CZ / mirrors / Programs.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
blame | history | raw | HEAD
Borland TurboBASIC & TurboPASCAL stuff from 1998 when i started with programming...
[mirrors/Programs.git] / turbobasic / 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 @ Sun, 02 Jun 2024 03:50:13 +0200)
This page took 0.286603 seconds and 4 git commands to generate.