Borland TurboBASIC & TurboPASCAL stuff from 1998 when i started with programming...

[mirrors/Programs.git] / turbobasic / ALARM.BAS

diff --git a/turbobasic/ALARM.BAS b/turbobasic/ALARM.BAS
new file mode 100755 (executable)
index 0000000..5b4449d
--- /dev/null
+++ b/turbobasic/ALARM.BAS
@@ -0,0 +1,16 @@
+cls\r
+screen 1\r
+COLOR 14,1\r
+LOCATE 2,2\r
+INPUT " ZAKàDUJTE ALARM " ;KOD$\r
+ZPED:\r
+SCREEN 1\r
+COLOR 14,1\r
+LOCATE 2,2\r
+cls\r
+INPUT " ODKàDUJTE ALARM " ;UNKOD$\r
+IF UNKOD$=KOD$ THEN GOTO NOTALARM\r
+SOUND 1000+12,100\r
+GOTO ZPED\r
+NOTALARM:\r
+END\1a
\ No newline at end of file