75 if isSoundEnabled then WriteLnToConsole(msgOK)

    75 if isSoundEnabled then WriteLnToConsole(msgOK)

    76                   else WriteLnToConsole(msgFailed);

    76                   else WriteLnToConsole(msgFailed);

    77 Mix_AllocateChannels(Succ(chanTPU));

    77 Mix_AllocateChannels(Succ(chanTPU));

    78 if isMusicEnabled then Mix_VolumeMusic(50);

    78 if isMusicEnabled then Mix_VolumeMusic(50);

    79 

    79 

    83 end;

    82 end;

    84 

    83 

    85 procedure ReleaseSound;

    84 procedure ReleaseSound;

    86 var i: TSound;

    85 var i: TSound;

    87 	t: Longword;

    86 	t: Longword;