PROGRAM testcpm;

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