var B : Byte;
    A : Byte;

Begin
 ClrScr;
 b := BDOS(12);
 Writeln('CP/M Versionsnummer: ',B);
 Write('Eingabe (Hex): ');
 Readln(A);
 Write('BIOS 3 = ');
 BIOS(3,A);
 Writeln;
 Write('Eingabe (ASCII): ');
 B := BIOS(2);
 Writeln;
 Writeln('BIOS 2 = ',B);
End.