home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 07 / tricks / playdisk.pas < prev    next >
Pascal/Delphi Source File  |  1990-06-06  |  917b  |  33 lines
  1. (* ------------------------------------------------------ *)
  2. (*                   PLAYDISK.PAS                         *)
  3. (*  Demo für Verwendung der Unit MUSIC für Textdateien    *)
  4. (*       Beispieldatei:  BACH.MSK  (auf Databox)          *)
  5. (*         (c) 1989  Alexander Sunder  & TOOLBOX          *)
  6. (* ------------------------------------------------------ *)
  7. PROGRAM Play_Musik_aus_Datei;
  8.  
  9. USES crt, Music;
  10.  
  11. VAR
  12.   Datei : TEXT;
  13.   Zeile : STRING;
  14.  
  15. BEGIN
  16.   IF ParamCount > 0 THEN BEGIN
  17.     Zeile := ParamStr(1);
  18.     Assign(Datei, Zeile + '.MSK');
  19.     {$I-}
  20.     Reset(Datei);
  21.     {$I+}
  22.     IF IOResult = 0 THEN BEGIN
  23.       WHILE NOT (Eof(Datei)) DO BEGIN
  24.         ReadLn(Datei, Zeile);
  25.         Play(Zeile);
  26.       END;
  27.       Close(Datei);
  28.     END;
  29.   END;
  30. END.
  31. (* ------------------------------------------------------ *)
  32. (*               Ende von PLAYDISK.PAS                    *)
  33.