{->>>>Machine<<<<----------------------------------------------}
{                                                              }
{ Filename: MACHINE.SRC -- Last modified 10/20/85              }
{                                                              }
{ This routine returns the model ID code, a string description }
{ of the machine model, and the release date of the ROM BIOS.  }
{--------------------------------------------------------------}

FUNCTION Machine(VAR ROMDate   : String80;
                 VAR ModelCode : Byte) : String80;

VAR
  I : Integer;

BEGIN
  ModelCode := MEM[$F000 : $FFFE];
  CASE ModelCode OF
    254,255 : Machine := 'PC/XT/Portable';
    253     : Machine := 'PCjr';
    252     : Machine := 'PC/AT';
    ELSE Machine := 'Non-IBM compatible'
  END; {CASE}
  FOR I := 1 TO 8 DO   { Copy the ROM Date from ROM }
    ROMDate[I] := CHR(MEM[$F000 : $FFF4+I]);
  ROMDate[0] := Chr(8) { Set ROM date string length }
END;