home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 1B / DATAFILE_PDCD1B.iso / _pocketbk / pocketbook / 004 / oplexamp_z / EX_MUSIC.OPL < prev    next >
Text File  |  1992-08-27  |  321b  |  17 lines
  1. PROC scale:
  2. LOCAL freq,n%
  3. print "scale from middle C"
  4. print "press a key" :get :cls
  5. REM n% relative to middle A
  6. n%=3 REM start at middle C
  7. WHILE n%<16
  8.     freq=440*2**(n%/12.0)
  9.     REM middle A = freq 440Hz
  10.     BEEP 8,512000/freq-1.0
  11.     n%=n%+1
  12.     IF n%=4 OR n%=6 OR n%=9 OR n%=11 OR n%=13
  13.         n%=n%+1
  14.     ENDIF
  15. ENDWH
  16. ENDP
  17.