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

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

diff --git a/turbobasic/BUDIK.BAS b/turbobasic/BUDIK.BAS
new file mode 100755 (executable)
index 0000000..1374a79
--- /dev/null
+++ b/turbobasic/BUDIK.BAS
@@ -0,0 +1,12 @@
+INPUT "POCET MINUT" ;M\r
+FOR I = 1 TO M STEP 1\r
+PRINT "MINUTA " I\r
+WAIT(600)\r
+C=M-I\r
+PRINT "ZBYVA " C " MINUT"\r
+NEXT I\r
+FOR J = 1 TO 15 STEP 1\r
+SOUND RND*200+11,12\r
+WAIT(15)\r
+NEXT J\r
+END\1a
\ No newline at end of file