home *** CD-ROM | disk | FTP | other *** search
/ C++ Games Programming / CPPGAMES.ISO / fgl / fglight / exfor.arj / TEMP / 15-02.FOR < prev    next >
Text File  |  1995-01-20  |  685b  |  31 lines
  1. $INCLUDE: 'C:\FG\FASTGRAF.FI'
  2.  
  3.       PROGRAM MAIN
  4.  
  5.       INTEGER VOLUME
  6.       INTEGER FG_TESTMODE
  7.  
  8.       CALL FG_INITPM
  9.       IF (FG_TESTMODE(9,0) .EQ. 0) THEN
  10.          STOP 'This program requires a PCjr or a Tandy 1000 system.'
  11.       END IF
  12.  
  13.       WRITE(6,*) '2048 Hz periodic noise...'
  14.       CALL FG_VOICE(4,2,15,3)
  15.       CALL FG_WAITFOR(18)
  16.  
  17.       WRITE(6,*) '2048 Hz white noise...'
  18.       CALL FG_VOICE(5,2,15,3)
  19.       CALL FG_WAITFOR(18)
  20.  
  21.       WRITE(6,*) '500 Hz tone of increasing volume...'
  22.       DO 10 VOLUME = 1,15
  23.          CALL FG_VOICE(1,500,VOLUME,0)
  24.          CALL FG_WAITFOR(4)
  25. 10    CONTINUE
  26.  
  27.       CALL FG_QUIET
  28.  
  29.       STOP ' '
  30.       END
  31.