tutorial/group1/19.bas

   1 CLS\r
   2 \r
   3 1\r
   4 x = RND * 79 + 1\r
   5 y = RND * 22 + 1\r
   6 c = RND * 15\r
   7 \r
   8 COLOR c\r
   9 LOCATE y, x\r
  10 \r
  11 PRINT "x"\r
  12 SOUND x * 100 + 100, .1\r
  13 GOTO 1\r
  14 \r