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)
    POKE VARPTR(Result%), TempL%
    POKE VARPTR(Result%) + 1, TempH%
    WPeek% = Result%

'----------------------------Cut here---------------------------------

Hope this helps!

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

--- Maximus 2.01wb
 * Origin: Oakland BBS (1:133/706)
Outer Court
Echo Basic Postings

Books at Amazon:

Back to BASIC: The History, Corruption, and Future of the Language

Hackers: Heroes of the Computer Revolution (including Tiny BASIC)

Go to: The Story of the Math Majors, Bridge Players, Engineers, Chess Wizards, Scientists and Iconoclasts who were the Hero Programmers of the Software Revolution

The Advent of the Algorithm: The Idea that Rules the World

Moths in the Machine: The Power and Perils of Programming

Mastering Visual Basic .NET