Re: Paging Brad Stone-SCNMSGF help

["Sims, Ken" <KSIMS@xxxxxxxxxxxxxxxx>]

Hi Jeff -

>The previous statement in the source setting the pointer reads:
>
>       Eval            TextPtr = %Addr(Data(OsMsg))

>'Data' is an array defined 1A Dim(32767).  So since OsMsg is an _offset_
>not a _position_, I changed this statement to:
>
>       Eval            TextPtr = %Addr(Data(OsMsg + 1))
>
>and now I feel better.  And it works, too.

That will do it.  However cleaner would be:

        Eval            TextPtr = %Addr(Data) + OsMsg

You eliminate the "+ 1" because you offsetting from a pointer, which is the
way that offsets are intended to work.  Also you then don't need an array,
just a data structure.

Ken
Southern Wine and Spirits of Nevada, Inc.
Opinions expressed are my own and do not necessarily represent the views of
my employer or anyone in their right mind.