> Does anyone have the record structures for the more popular
> BBS message base formats (Fido , JAM, Huson ). I
> can't seem to find them anywhere...
Opus:
open "1.msg" for binary as #1
seek #1,36
get$ #1,36,recipient$
print "The recipient is " recipient$
rem message header is 190 bytes long, go to end of header
seek #1,190
rem now read the text
do until eof(1)
get$ #1,1,text$
rem now find out if there's a ctrl-A, if so, read through to end of EID
while text$ = chr$(1)
rem read characters and discard 'em until we find a cr
do until text$ = chr$(13)
get$ #1,1,text$
loop
wend
print text$;
loop
close
end
--- Msgedsq 2.2e
---------------
* Origin: THE BIG ELECTRIC CAT Melville Sask *SDS* *PDN* (1:140/53)
|