[Back to SCREEN SWAG index] [Back to Main SWAG index] [Original]

    function VidSeg: Word;
    var
      VidM: ^Byte;
    begin
      {$iFDEF VER70}
      VidM := Ptr(Seg0040,$0049);
      if VidM^ = 7 then VidSeg := SegB000 else VidSeg := SegB800;
      {$ELSE}
      VidM := Ptr($0040,$0049);
      if VidM^ = 7 then VidSeg := $B000 else VidSeg := $B800;
      {$ENDiF}
    end;

[Back to SCREEN SWAG index] [Back to Main SWAG index] [Original]