Atvast Antivitus vs Mis programas de matematicas

[B14ck_53r4f1]

Me a pasado una cosa muy curiosa, estaba programando en TURBO PASCAL, por eso de quitarle el oxido a mis conocimientos de programacion, y se me ocurrio hacer un programa de matematicas, pues resulta que mientras compilaba el programa principal despues de haber compilado la unidad de este programa , mi antivirus (ATVAST antivirus v4.3) me ha dado un aviso de virus encontrado, es decir, que el codigo fuente que he programado lo ha identificado como maligno, pongo a continuacion el codigo principal y la unidad de lo que estaba probando y me dió error, para ver si alguien me puede ayudar.

PROGRAMA PRINCIPAL ( EN TURBO PASCAL )
----------------------------------------------------
PROGRAM MOS; {Mathematical Operating System}
USES CRT,U_MOS; { Created by Ivan Lopez Lopez }

BEGIN
ClrScr;

While STATUS = True do
Begin
COMANDO;
End

END.

UNIDAD DEL PROGRAMA
-----------------------------------------------------
UNIT U_MOS;

INTERFACE
USES CRT;
VAR
STATUS : BOOLEAN; {Variable booleanam, indica el estado de la appz}

PROCEDURE COMANDO; {Pide la entrada de un comando}
Procedure Switch(Cadena : String); {Subprocedumiento de comprobación del comando de entrada}

IMPLEMENTATION

PROCEDURE COMANDO;
VAR
Cadena : String;
BEGIN
Write('User$:');
Read(Cadena);

Switch(Cadena);
END;

Procedure Switch(Cadena : String);
Begin
If Cadena = 'Clear' then ClrScr
Else Writeln('FUNCION NO ENCONTRADA');
End;

BEGIN
STATUS := TRUE;
END.