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

[mirrors/Programs.git] / turbobasic / noty2.bas

diff --git a/turbobasic/noty2.bas b/turbobasic/noty2.bas
new file mode 100755 (executable)
index 0000000..2d2e129
--- /dev/null
+++ b/turbobasic/noty2.bas
@@ -0,0 +1,143 @@
+SCREEN 0\r
+\r
+Color 0,15\r
+\r
+cls\r
+\r
+INPUT " NOTA 1 " ;N1\r
+\r
+CLS\r
+\r
+INPUT " NOTA 2 " ;N2\r
+\r
+CLS\r
+\r
+INPUT " NOTA 3 " ;N3\r
+\r
+CLS\r
+\r
+INPUT " NOTA 4 " ;N4\r
+\r
+CLS\r
+\r
+INPUT " NOTA 5 " ;N5\r
+\r
+CLS\r
+\r
+INPUT " NOTA 6 " ;N6\r
+\r
+CLS\r
+\r
+INPUT " NOTA 7 " ;N7\r
+\r
+CLS\r
+\r
+INPUT " NOTA 8 " ;N8\r
+\r
+CLS\r
+\r
+INPUT " NOTA 9 " ;N9\r
+\r
+CLS\r
+\r
+INPUT " NOTA 10 " ;N10\r
+SCREEN 0\r
+\r
+Color 0,15\r
+\r
+cls\r
+\r
+INPUT " NOTA 11 " ;N11\r
+\r
+CLS\r
+\r
+INPUT " NOTA 12 " ;N12\r
+\r
+CLS\r
+\r
+INPUT " NOTA 13 " ;N13\r
+\r
+CLS\r
+\r
+INPUT " NOTA 14 " ;N14\r
+\r
+CLS\r
+\r
+INPUT " NOTA 15 " ;N15\r
+\r
+CLS\r
+\r
+INPUT " NOTA 16 " ;N16\r
+\r
+CLS\r
+\r
+INPUT " NOTA 17 " ;N17\r
+\r
+CLS\r
+\r
+INPUT " NOTA 18 " ;N18\r
+\r
+CLS\r
+\r
+INPUT " NOTA 19 " ;N19\r
+\r
+CLS\r
+\r
+INPUT " NOTA 20 " ;N10\r
+\r
+CLS\r
+\r
+INPUT " STISKNI *ENTER* " ;V\r
+\r
+CLS\r
+\r
+SOUND N1*12,12\r
+\r
+SOUND N2*12,12\r
+\r
+SOUND N3*12,12\r
+\r
+SOUND N4*12,12\r
+\r
+SOUND N5*12,12\r
+\r
+SOUND N6*12,12\r
+\r
+SOUND N7*12,12\r
+\r
+SOUND N8*12,12\r
+\r
+SOUND N9*12,12\r
+\r
+SOUND N10*12,12\r
+\r
+\r
+SOUND N11*12,12\r
+\r
+SOUND N12*12,12\r
+\r
+SOUND N13*12,12\r
+\r
+SOUND N14*12,12\r
+\r
+SOUND N15*12,12\r
+\r
+SOUND N16*12,12\r
+\r
+SOUND N17*12,12\r
+\r
+SOUND N18*12,12\r
+\r
+SOUND N19*12,12\r
+\r
+SOUND N20*12,12\r
+\r
+PRINT " KONEC "\r
+\r
+FOR I=0 TO 300\r
+\r
+NEXT I\r
+\r
+END\r
+\r
+\1a
\ No newline at end of file