If (eState = RECORDER_DOING_NOTHING) Then
      RecorderStateName = "Idle"
   Else
      RecorderStateName = "Unknown"
   End If
End Function

Public Function MediaTypeName(ByVal eType As MEDIA_TYPES) As String
   If (eType = MEDIA_CD_EXTRA) Then
      MediaTypeName = "CD-Extra"
   ElseIf (eType = MEDIA_CD_I) Then
      MediaTypeName = "CD-I"
   ElseIf (eType = MEDIA_CD_OTHER) Then
      MediaTypeName = "Other CD Type"
   ElseIf (eType = MEDIA_CD_ROM_XA) Then
      MediaTypeName = "CD-ROM XA"
   ElseIf (eTy