tutorial/group2/02.bas

   1 1\r
   2 s = s + 1       ' speed\r
   3 PRINT s; "x"\r
   4 \r
   5 FOR a = 100 TO 1000 STEP s\r
   6   SOUND a, .1\r
   7 NEXT a\r
   8 \r
   9 FOR a = 1000 TO 100 STEP -s\r
  10   SOUND a, .1\r
  11 NEXT a\r
  12 \r
  13 GOTO 1\r
  14 \r