home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l460 / 3.ddi / DEMOS.DI$ / LALALA.M < prev    next >
Encoding:
Text File  |  1993-03-07  |  410 b   |  18 lines
  1. function lalala()
  2. %LALALA Modern version of LALA.
  3. %
  4. %    See also LAUGH, SOUNDDEMO.
  5.  
  6. %    Copyright (c) 1984-93 by The MathWorks, Inc.
  7.  
  8. if strcmp(computer,'SUN4')
  9.    % Read the file, Sun's .au format, and send it to the speaker.
  10.    fr = fopen('lalala.dat','rb');
  11.    fw = fopen('/dev/audio','w');
  12.    fwrite(fw,fread(fr));
  13.    fclose(fr);
  14.    fclose(fw);
  15. else
  16.    error('Sound capability required.')
  17. end
  18.