home *** CD-ROM | disk | FTP | other *** search
/ C++ Games Programming / CPPGAMES.ISO / fgl / fglight / exfor.arj / TEMP / 15-01.FOR < prev    next >
Text File  |  1995-01-20  |  710b  |  34 lines
  1. $INCLUDE: 'C:\FG\FASTGRAF.FI'
  2.  
  3.       PROGRAM MAIN
  4.  
  5.       INTEGER FREQ
  6.  
  7.       CALL FG_INITPM
  8.       WRITE(6,*) '20 Hz tone...'
  9.       CALL FG_SOUND(20,3)
  10.       CALL FG_WAITFOR(18)
  11.  
  12.       WRITE(6,*) '100 Hz tone...'
  13.       CALL FG_SOUND(100,3)
  14.       CALL FG_WAITFOR(18)
  15.  
  16.       WRITE(6,*) '1000 Hz tone...'
  17.       CALL FG_SOUND(1000,3)
  18.       CALL FG_WAITFOR(18)
  19.  
  20.       WRITE(6,*) 'warble...'
  21.       CALL FG_SOUND(400,1)
  22.       CALL FG_SOUND(410,1)
  23.       CALL FG_SOUND(400,1)
  24.       CALL FG_SOUND(410,1)
  25.       CALL FG_WAITFOR(18)
  26.  
  27.       WRITE(6,*) 'sliding tone from 100 to 500 Hz...'
  28.       DO 10 FREQ = 100,500,10
  29.          CALL FG_SOUND(FREQ,2)
  30. 10    CONTINUE
  31.  
  32.       STOP ' '
  33.       END
  34.