home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l074 / 1.ddi / SIREN.TRU < prev    next >
Encoding:
Text File  |  1985-01-05  |  390 b   |  15 lines
  1. ! Imitates the sound of a siren.
  2. !
  3. FOR cycle = 1 to 10                    ! Repeat 10 times
  4.  
  5.     FOR freq = 400 to 815 step 15      ! Increasing frequency
  6.         SOUND freq, .02                ! For .02 seconds
  7.     NEXT freq
  8.  
  9.     FOR freq = 815 to 400 step -15     ! Decreasing frequency
  10.         SOUND freq, .02                ! For .02 seconds
  11.     NEXT freq
  12.  
  13. NEXT cycle
  14. END
  15.