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

[mirrors/Programs.git] / turbobasic / T-BASIC.BAS

diff --git a/turbobasic/T-BASIC.BAS b/turbobasic/T-BASIC.BAS
new file mode 100755 (executable)
index 0000000..228db95
--- /dev/null
+++ b/turbobasic/T-BASIC.BAS
@@ -0,0 +1,45 @@
+\r
+SOUND RND*10000+20,30\r
+SCREEN 0\r
+CLS\r
+COLOR 15,9\r
+LOCATE 6,24\r
+PRINT " MEGA ZVUKY         UKON¬I  ENTER "\r
+LOCATE 7,24\r
+PRINT " -------------------------------- "\r
+\r
+\r
+\r
+SOUND RND*100+36,21\r
+SOUND RND*1000+39,36\r
+SOUND RND*150+33,69\r
+SOUND RND*10321+34,20\r
+SOUND RND*1999+99,56\r
+SOUND RND*9999+99,50\r
+SOUND RND*300+99,50\r
+SOUND RND*400+99,50\r
+SOUND RND*500+99,50\r
+SOUND RND*600+99,50\r
+SOUND RND*700+99,50\r
+SOUND RND*800+99,50\r
+SOUND RND*900+99,50\r
+SOUND RND*100+9,20\r
+\r
+\r
+\r
+\r
+\r
+\r
+\r
+\r
+\r
+\r
+\r
+\r
+\r
+\r
+\r
+SOUND RND*1000+99,36\r
+\r
+SOUND RND*632+900,60\r
+\1a
\ No newline at end of file