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

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

diff --git a/turbobasic/NOTY1.BAS b/turbobasic/NOTY1.BAS
new file mode 100755 (executable)
index 0000000..c363680
--- /dev/null
+++ b/turbobasic/NOTY1.BAS
@@ -0,0 +1,39 @@
+SCREEN 0\r
+color 0,15\r
+cls\r
+INPUT " NOTA 1 " ;N1\r
+CLS\r
+INPUT " NOTA 2 " ;N2\r
+CLS\r
+INPUT " NOTA 3 " ;N3\r
+CLS\r
+INPUT " NOTA 4 " ;N4\r
+CLS\r
+INPUT " NOTA 5 " ;N5\r
+CLS\r
+INPUT " NOTA 6 " ;N6\r
+CLS\r
+INPUT " NOTA 7 " ;N7\r
+CLS\r
+INPUT " NOTA 8 " ;N8\r
+CLS\r
+INPUT " NOTA 9 " ;N9\r
+CLS\r
+INPUT " NOTA 10 " ;N10\r
+CLS\r
+INPUT " STISKNI *ENTER* " ;V\r
+CLS\r
+SOUND N1*12,12\r
+SOUND N2*12,12\r
+SOUND N3*12,12\r
+SOUND N4*12,12\r
+SOUND N5*12,12\r
+SOUND N6*12,12\r
+SOUND N7*12,12\r
+SOUND N8*12,12\r
+SOUND N9*12,12\r
+SOUND N10*12,12\r
+PRINT " KONEC "\r
+FOR I=0 TO 300\r
+NEXT I\r
+END\1a
\ No newline at end of file