File TNTERM.PAS:
    som ('TNOK');    {'OK'}
            som ('TNFALLIG')   {'Fala ligada'}
            som ('TNFALDLG');  {'Fala desligada'}
        som ('TNGRAV');  {'Arquivo gravado'}
                                som ('TNDEL');
File TNMSG.PAS:
procedure som (nomeArq: string);
{                          executa um som
procedure som (nomeArq: string);    { essa rotina foi criada para facilitar atividades
