home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l074 / 1.ddi / PHONE.TRU < prev    next >
Encoding:
Text File  |  1985-01-21  |  297 b   |  14 lines

  1. ! Imitate ringing of a telephone.
  2. !
  3. FOR ring = 1 to 8           ! Let ring 8 times
  4.  
  5.    FOR i = 1 to 30          ! Each ring = 30 alternations
  6.       SOUND 600, .03        ! Freq 600 for .03 sec.
  7.       SOUND 1500, .03       ! Then 1500 for .03 sec.
  8.    NEXT i
  9.  
  10.    PAUSE 2
  11.  
  12. NEXT ring
  13. END
  14.