PROGRAM FUERELISE(INPUT,OUTPUT);                                                
(* DEMONSTRATION DES PROZEDUR PLAY                                            *)
(* 10.9.1986  FLORIAN MATTHES                                                 *)
(* DIESES PROGRAMM IST ALLEN UNMUSIKALISCHEN COMPUTERBESITZERN GEWIDMET.      *)
(* MIT ETWAS MEHR AUFWAND LASSEN SICH AUCH DREISTIMMIGE STUECKE SPIELEN.      *)
                                                                                
PROCEDURE PD;                                                                   
BEGIN                                                                           
  PLAY("IO5E#DE#DEO4BO5DCO4ARCEABR");                                           
END; (* PD *)                                                                   
                                                                                
PROCEDURE PE;                                                                   
BEGIN                                                                           
 PD; PLAY("IE#GBO5CO4RE"); PD;PLAY("IDO5CO4B");                                 
END; (* PE *)                                                                   
                                                                                
PROCEDURE PF;                                                                   
BEGIN                                                                           
 PLAY(".QO5EO4IG.QO5DO4IFO5EDO4.Q");                                            
 PLAY("O5CO4IEO5DCO4BEO5EO4EO5EO4EO5EEO6EO5#DE#DE#DE#DO4");                     
 PD; PLAY("IE#GBQO5CO4IRE"); PD; PLAY("IDIO5CO4IB");                            
END; (* PF *)                                                                   
                                                                                
BEGIN                                                                           
  (*  'NSTRUMENT DEFINIEREN': *)                                                
  ENVELOPE(0,4,4,8,5,2,2048); PLAY("T0");                                       
                                                                                
  PE; PLAY(".QAI "); PE; PLAY("QAI BO5CDO4"); PE;                               
  PLAY("QAIRO5CCCO4HO5AO4.QO5FO4SO5E");                                         
  PLAY("O4QO5EDO4.IO5$BO4SO5CO4IO5CGF$B#DO4$BQ.O5CO4");                         
  PLAY("QASAGA$BHO5CO4IO5D#DO4.QO5E");                                          
  PLAY("O4IO5EFO4AHO5CO4.QO5DO4SBO5CGO4GO5GO4AO5GO4BO5GCGDO4");                 
  PLAY("SO5GEGO4GO5ECGFEDGFDCGO4GO5GO4AO5GO4BO5GCGDGEO4");                      
  PLAY("SO5GO6CO5ECGFEDGFDEFE#DEO4BO5E#DEO4BO5E#DO4.QO5EO4IB");                 
  PLAY("IO5E#DO4.QO5EO4IBO5E#DE#DE#DO4"); PE; PLAY("QARIBO5CD");                
  PF; PLAY("WA ");                                                              
END.