BBS: Inland Empire Archive
Date: 10-12-92 (15:40) Number: 373
From: PETE DUDESEK Refer#: NONE
To: MICHAEL BULL Recvd: NO
Subj: FD last caller Conf: (2) Quik_Bas
> MB> Now, does anyone have the
> MB> structures for the fd last system to/from fields? I want to be
> MB> able to insert the last BBS caller into the From field....
Here is something that I have worked up. I have not been
able to figure out the time and date of the calls of yet.
And I have no idea what bytes 169 thru 252 (eof) are. If
you find out could you please let me know .
TYPE FD
FromMarker1 AS STRING * 1
FromSystem AS STRING * 30
FromMarker2 AS STRING * 1
FromCity AS STRING * 40
FromZone AS INTEGER
FromNet AS INTEGER
FromNode AS INTEGER
FromPoint AS INTEGER
FromIDontKnow1 AS INTEGER
FromIDontKnow2 AS INTEGER
ToMarker1 AS STRING * 1
ToSystem AS STRING * 30
ToMarker2 AS STRING * 1
ToCity AS STRING * 40
ToZone AS INTEGER
ToNet AS INTEGER
ToNode AS INTEGER
ToPoint AS INTEGER
ToIDontKnow1 AS INTEGER
ToIDontKnow2 AS INTEGER
RestIHaveNoIdea AS STRING * 84
END TYPE
CLS
DIM LC AS FD
OPEN "LASTCALL.FD" FOR BINARY AS #1
GET 1, , LC
FromZone$ = MID$(STR$(LC.FromZone), 2)
FromNet$ = MID$(STR$(LC.FromNet), 2)
FromNode$ = MID$(STR$(LC.FromNode), 2)
FromPoint$ = MID$(STR$(LC.FromPoint), 2)
FromFullNode$ = FromZone$ + ":" + FromNet$ + "/" + FromNode$
IF VAL(Point$) > 0 THEN FromFullNode$ = FromFullNode$ + "." + FromPoint$
PRINT "From: "; LC.FromSystem; FromFullNode$
PRINT " "; LC.FromCity
PRINT
ToZone$ = MID$(STR$(LC.ToZone), 2)
ToNet$ = MID$(STR$(LC.ToNet), 2)
ToNode$ = MID$(STR$(LC.ToNode), 2)
ToPoint$ = MID$(STR$(LC.ToPoint), 2)
ToFullNode$ = ToZone$ + ":" + ToNet$ + "/" + ToNode$
IF VAL(Point$) > 0 THEN ToFullNode$ = ToFullNode$ + "." + ToPoint$
PRINT "To : "; LC.ToSystem; ToFullNode$
PRINT " "; LC.ToCity
--- Squish v1.01
# Origin: UBU-Midwest - Bensenville IL - 708-766-1089 (8:7401/13)
* Origin: FamilyNet Intl. Echogate [708] 887-7685 (1:115/887)
