X-Git-Url: https://git.harvie.cz/?a=blobdiff_plain;f=turbobasic%2FCIS1AZ10.BAS;fp=turbobasic%2FCIS1AZ10.BAS;h=e6db5923c9d39e1de5e36ce24752b06a49f50abf;hb=0f95cc4b3314aff66038b3bf60ff6db6790bc15c;hp=0000000000000000000000000000000000000000;hpb=c366db83dc933f6f5c79ba92dce91769455593f1;p=mirrors%2FPrograms.git

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