projects
/
qbasicapps.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
ca603a7ebd4b4b420554b72cfca5429029b069d2
[qbasicapps.git]
/
tutorial
/
group1
/
09.bas
1
CLS
\r
2
\r
3
FOR i = 1 TO 20
\r
4
\r
5
n = RND * 1000 ' generate random numbers 0 -- 999.9(9)
\r
6
PRINT "random number:"; n
\r
7
SOUND n + 40, 1
\r
8
\r
9
NEXT i
\r
10
\r