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

diff --git a/turbobasic/NAH-CISL.BAS b/turbobasic/NAH-CISL.BAS
new file mode 100755
index 0000000..45730fa
--- /dev/null
+++ b/turbobasic/NAH-CISL.BAS
@@ -0,0 +1,17 @@
+V=TIMER
+PRINT V
+
+V=V-INT(V)
+PRINT V
+V=V*120
+PRINT V
+V=INT(V)
+
+G=RND*40
+I=G+V
+I=INT(V)+(G)
+I=I+55
+I=INT(V)+(G)+(I)
+I=INT(I)
+PRINT I
+END
\ No newline at end of file