{ Kleiner Systemhack der bei OS2.0 die WBtitelzeile Weiß färbt }
{ um einen besseren Kontrast der Speicheranzeige zu erreichen. }

PROGRAM DetailPEN;

{$path "Pas:include/"}
{$incl "intuition.lib"}

VAR   WBscr:  ^Screen;

Function PeekL(a:long):long;
 Var p: ^long;
  Begin
    p:=ptr(a);
    PeekL:=p^
  End;

Function FindWBScreen:ptr;
 Var scr: ^Screen;
  Begin
   scr:=Ptr(PeekL(Long(IntBase)+60));
     FindWBScreen:=scr;
  end;

BEGIN
  OpenLib(IntBase,'intuition.library',0);    { Fenster,Screens,Messages etc.}
  WBscr:=FindWBScreen;
  WBscr^.DetailPen:=2;
END.