{

  BIOS & XBIOS calls

}


PROCEDURE BConOut ( device , c : INTEGER );
   BIOS ( $03 );
FUNCTION BConIn ( device : INTEGER ) : LONG_INTEGER;
   BIOS(2);

FUNCTION Phys_Base : LONG_INTEGER;
   XBIOS (2);
FUNCTION Get_Rez : INTEGER;
   XBIOS (4);
PROCEDURE Set_Palette ( VAR palette : Palette_Buffer );
   XBIOS (6);
FUNCTION XBIOS_Set_Color ( register,color : INTEGER ) : INTEGER;
   XBIOS (7);
FUNCTION Random_Number : LONG_INTEGER;
   XBIOS ( $11 );