{ *** 4 BPW 7.0 16 *** }
unit Show16;
interface
uses
    WinTypes;

var
    Usil    :integer;
    Channel :word;
    Rate    :integer;
    Npoint  :integer;
    Channels:array[0..15] of word;
    Nch     :integer;

type
    TMakeData=function:WordBool;
    TPenColor=array[0..2] of longint;
    PointType=record
        X, Y:integer;
    End;

var
    PhWnd        :^HWND;
    PMsg         :^TMSG;
    PPP          :pointer;
    PPD          :pointer;
    PCount       :^word;
    PMaxX        :^word;
    PMaxY        :^word;
    PFrequency   :^word;
    PhInstanceDLL:^word;
    PStop        :^WORDBOOL;
    PPenWidth    :^integer;
    PPenColor    :^TPenColor;
    PWClass      :^TWndClass;
    PName        :PChar;
    PMakeData    :^TMakeData;


procedure _hWnd;
procedure _Msg;
procedure _PP;
procedure _PD;
procedure _Count;
procedure _MaxX;
procedure _MaxY;
procedure _Frequency;
procedure _hInstanceDLL;
procedure _Stop;
procedure _PenWidth;
procedure _PenColor;
procedure _WClass;
procedure _Name;
procedure _MakeData;
procedure InstallShow(hInst:word; nCmdShow:word);


implementation
procedure _hWnd;                                 external 'SHOW16' index 1;
procedure _Msg;                                  external 'SHOW16' index 2;
procedure _PP;                                   external 'SHOW16';
procedure _PD;                                   external 'SHOW16';
procedure _Count;                                external 'SHOW16' index 5;
procedure _MaxX;                                 external 'SHOW16' index 6;
procedure _MaxY;                                 external 'SHOW16' index 7;
procedure _Frequency;                            external 'SHOW16' index 8;
procedure _hInstanceDLL;                         external 'SHOW16' index 9;
procedure _Stop;                                 external 'SHOW16' index 10;
procedure _PenWidth;                             external 'SHOW16' index 11;
procedure _PenColor;                             external 'SHOW16' index 12;
procedure _WClass;                               external 'SHOW16' index 13;
procedure _Name;                                 external 'SHOW16' index 14;
procedure _MakeData;                             external 'SHOW16' index 15;
procedure InstallShow(hInst:word; nCmdShow:word);external 'SHOW16';


{**************************************************************************}
Begin
    PhWnd        :=@_hWnd;
    PMsg         :=@_Msg;
    PPP          :=@_PP;
    PPD          :=@_PD;
    PCount       :=@_Count;
    PMaxX        :=@_MaxX;
    PMaxY        :=@_MaxY;
    PFrequency   :=@_Frequency;
    PhInstanceDLL:=@_hInstanceDLL;
    PStop        :=@_Stop;
    PPenWidth    :=@_PenWidth;
    PPenColor    :=@_PenColor;
    PWClass      :=@_WClass;
    PName        :=@_Name
End.
