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

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

diff --git a/turbobasic/CIS1AZ10.BAS b/turbobasic/CIS1AZ10.BAS
new file mode 100755 (executable)
index 0000000..e6db592
--- /dev/null
+++ b/turbobasic/CIS1AZ10.BAS
@@ -0,0 +1,11 @@
+SCREEN 1\r
+V=TIMER\r
+PRINT "CAS" V\r
+V=INT(((V-INT(V))+.2)*10)\r
+PRINT "DALE" V\r
+FOR I=1 TO 19\r
+A=INT(RND*V+1)\r
+IF A=11 THEN A=A-V+1\r
+PRINT A\r
+NEXT I\r
+SOUND 1200,2\1a
\ No newline at end of file