PROGRAM testcpm;

begin
 clrscr;
 IF (BDOS($0C)=34) Then
     write('CP/M v2.2 detectado')
  ELSE
     write('CP/M Plus (v3.1) detectado');
end.