Nodelist /3

 BBS: Inland Empire Archive
Date: 02-26-93 (19:03)             Number: 398
From: ROBERT CHURCH                Refer#: NONE
  To: CORIDON HENSHAW               Recvd: NO  
Subj: Nodelist /3                    Conf: (2) Quik_Bas

      I.Zone = N.Zone
      I.Net = N.Net
      I.Node = N.Node
      IF N.Flags AND Pnt THEN I.Pnt = N.Hub ELSE I.Pnt = 0
      I.Offset = LOC(OutFd)

      PUT #Idx, , I
      PUT #OutFd, , N
      VarLenField$ = SystemName$ + Location$ + Phone$ + Sysop$
      PUT #OutFd, , VarLenField$
   END IF

NextIt:
LOOP UNTIL EOF(fd)

PRINT "TIME:  "; TIMER - T&; "seconds."

DEFINT A-Z
FUNCTION StrTok$ (Srce$, Delim$) STATIC

   IF LEN(Srce$) THEN
      SaveStr$ = Srce$
      Ln% = LEN(Srce$)
      Po% = 0
   END IF

   OldPo% = Po% + 1
   IF OldPo% > Ln% THEN
      StrTok$ = ""
      EXIT FUNCTION
   END IF

   Po% = INSTR(OldPo%, SaveStr$, Delim$)
   IF Po% = 0 THEN Po% = Ln% + 1

   StrTok$ = MID$(SaveStr$, OldPo%, Po% - OldPo%)

END FUNCTION

--- FMail 0.90
 * Origin: -= Floating Point =- Hillsboro, Oregon (1:105/330.3)