tutorial/group1/08.bas

   1 CLS\r
   2 \r
   3 FOR i = 100 TO 1000 STEP 50\r
   4   PRINT "current:"; i\r
   5   SOUND i, 1                            ' makes sound  <frequency, length>\r
   6 NEXT i\r
   7 \r