home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / TIKTP12A.LZH / FIDONET.PAS < prev    next >
Pascal/Delphi Source File  |  1992-05-13  |  640b  |  32 lines
  1. (*#module(turbo_comp=>off)*)
  2. IMPLEMENTATION Unit FidoNet ;
  3.  
  4. IMPORT
  5.   utility *
  6. {  TURBOSYS}
  7.   ;
  8.  
  9. Procedure Fido_Address { (Line: MAXSTRING; VAR Zone,Net,Node,Point: Word) ; };
  10.  
  11. Begin
  12.   Zone := 0 ;
  13.   If Pos(':',Line) <> 0 Then Begin
  14.     Zone := Str_To_Word(Field(Line,':',1)) ;
  15.     Line := Field(Line,':',2) ;
  16.   End ;
  17.  
  18.   Net := Str_To_Word(Field(Line,'/',1)) ;
  19.   Line := Field(Line,'/',2) ;
  20.  
  21.   If Pos('.',Line) = 0 Then Begin
  22.     Node := Str_To_Word(Line) ;
  23.     Point := 0 ;
  24.   End Else Begin
  25.     Node := Str_To_Word(Field(Line,'.',1)) ;
  26.     Point := Str_To_Word(Field(Line,'.',2)) ;
  27.   End ;
  28. End ;
  29.  
  30. Begin
  31. End .
  32.