===========================================================================
 BBS: The Abacus * HST/DS * Potterville MI
Date: 06-11-93 (19:48)             Number: 214
From: JEFFERY FOY                  Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: Fido to Internet here          Conf: (35) Quick Basi
---------------------------------------------------------------------------
Ever wondered how to convert a Fidonet address to an Internet address?
Well the following code does it quite nicely. My thanks to Joe Negron
for the majority of the parsing code. Enjoy.

--8<-------8<--
   INPUT "Enter User's First   Name: ", F$
   INPUT "Enter User's Last    Name: ", L$
   INPUT "Enter User's Fido Address: ", S$

   Colon% = INSTR(1, S$, ":")             'Get the position of the colon
   Slash% = INSTR(Colon%, S$, "/")        'Get the position of the slash
   Pnt% = INSTR(Slash%, S$, ".")          'Get the position of the point
   IF Pnt% = 0 THEN
      Pnt% = LEN(S$)
   END IF

   Zone$ = MID$(S$, 1, Colon% - 1)
   Net$ = MID$(S$, Colon% + 1, Slash% - Colon% - 1)
   Node$ = MID$(S$, Slash% + 1, Pnt% - Slash% - 1)
   Pnt$ = MID$(S$, Pnt% + 1)

   PRINT "User's Internet Address: ";
   PRINT F$ + "." + L$ + "@";            ' first the name

   IF Pnt$ = "" THEN
      PRINT "f" + Node$ + ".";
      PRINT "n" + Net$ + ".";
      PRINT "z" + Zone$ + ".fidonet.org"
   ELSE
      PRINT "p" + Pnt$ + ".";
      PRINT "f" + Node$ + ".";
      PRINT "n" + Net$ + ".";
      PRINT "z" + Zone$ + ".fidonet.org"
   END IF

   END
--8<-------8<--

... Are thunder thighs produced by eating lighting?
___ Blue Wave/QWK v2.12

--- Maximus 2.01wb
 * Origin: In Memory Of Freddie Mercury (1:343/58.206)
SEEN-BY: 1/211 11/2 4 13/13 101/1 108/89 109/25 110/69 114/5 123/19 124/1
SEEN-BY: 153/752 154/40 77 157/110 159/100 125 430 575 950 203/23 209/209
SEEN-BY: 261/1023 280/1 390/1 396/1 15 397/2 2230/100 2440/5 3603/20