home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / logo / winlogo / lib / echo.lg < prev    next >
Text File  |  1992-11-02  |  252b  |  13 lines
  1. to echo :arg
  2. print mci sentence [open new type waveaudio alias wa buffer] :arg
  3. mci [record wa]
  4. print "Recording...
  5. wait :arg
  6. print "Stopped...
  7. mci [seek wa to start]
  8. print "Playing...
  9. mci [play wa wait]
  10. print "Stopped...
  11. mci [close wa]
  12. end
  13.