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