Re: 1980 Basic Sought

<ArarghMail804NOSPAM@[EMAIL PROTECTED]
> wrote in message 
news:ftvlv35geav069m24gptsieot401nno8uq@[EMAIL PROTECTED]
> On Mon, 7 Apr 2008 23:08:17 -0400, "Tom Lake" <tlake@[EMAIL PROTECTED]
>
> wrote:
>
> <snip>
>>
>>CHR$(PEEK(SADD(a$))) turns that ASCII value back
>>into a character and so the letter T will print.
>
> Ok, I see where you are going.
>
> Won't work with PDS or VBDOS far strings, as those strings are not in
> the "DEF SEG".

With SSEG it does.  That's the beauty.  It returns the address of the
string 
as
an offset (near pointer) from the current data segment.  SADD can
be used with both near and far strings.  If the string is a far string,
use the SSEG function to determine its segment.

a$ = "Test"
Segment = SSEG(a$)
Offset = SADD(a$)
DEF SEG = Segment

? CHR$(PEEK(SADD(a$)))
will still print "T" no matter if a$ is near or far.

Tom Lake