Who are my parents?

 BBS: Inland Empire Archive
Date: 09-06-92 (18:09)             Number: 219
From: TONY ELLIOTT                 Refer#: NONE
  To: FRANCOIS ROY                  Recvd: NO  
Subj: Who are my parents?            Conf: (2) Quik_Bas

Continued from the previous message...


FUNCTION WPeek% (Segment&, Offset%)

    'Peeks a word (two bytes) and returns it as a result of the function

    DEF SEG = Segment&
    TempL% = PEEK(Offset%)
    TempH% = PEEK(Offset% + 1)
    DEF SEG
    POKE VARPTR(Result%), TempL%
    POKE VARPTR(Result%) + 1, TempH%
    WPeek% = Result%

END FUNCTION
'----------------------------Cut here---------------------------------

Hope this helps!

Tony
___
 X 1st 1.01b #1030s X Take a bite out of crime .. Abolish the IRS!

--- Maximus 2.01wb
 * Origin: Oakland BBS (1:133/706)