home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-387-Vol-3of3.iso / t / ter70.zip / PASCAL._XE / PHONE.34 < prev    next >
Text File  |  1992-09-26  |  4KB  |  71 lines
  1. { Phone directory variabler }
  2.  
  3. { The phonebook has first one PhoneHeadRec, and then up to 500 PhoneRec }
  4.  
  5. Const
  6.   MaxNumbers34 = 500;
  7.  
  8. Type
  9.  
  10.     PhoneRec34 = Record
  11.                    Name       : String[30]; { Name of system                 }
  12.                    Number     : String[25]; { Number to call                 }
  13.                    Baud       : LongInt;    { Baudrate to use                }
  14.                    Parity     : Char;       { Parity to use                  }
  15.                    DataBits,                { Databits to use                }
  16.                    StopBits   : Byte;       { Stopbits to use                }
  17.                    Script     : String[8];  { Script to use at connect       }
  18.                    Terminal,                { Emulation to use               }
  19.                    Protocol,                { Protocol to use as default     }
  20.                    DialPrefix : Byte;       { Dialprefix                     }
  21.                    Password   : String[24]; { Password to use                }
  22.                    Open,Closed: Word;       { Opening hours 20:30 = 20*60+30 }
  23.                    User       : Byte;       { Username to use                }
  24.                    Comment1,                { Note 1                         }
  25.                    Comment2   : String[40]; { Note 2                         }
  26.                    AutoLogon  : Byte;       { Autologon style                }
  27.                    LogonChar  : Char;       { Used by autologon              }
  28.                    Translate,               { Translation table              }
  29.                    Capture    : String[8];  { Default capture file           }
  30.  
  31.                    LocalEcho,               { Turn on local echo             }
  32.                    StripHigh,               { Strip above 127 from incoming  }
  33.                    RcvdBSdest : Boolean;    { Backspace destroyes            }
  34.                    Color      : Byte;       { Attribute of entry             }
  35.  
  36.                    { Statistics }
  37.                    JulDate,                 { Julian date of last connect    }
  38.                    CalcMin,                 { Time of last con. Hour*60+min  }
  39.                    Connects   : Word;       { Number of connects             }
  40.                    SecUsed,                 { Seconds used on system         }
  41.                    UploadKb,                { Kilobytes of uploads           }
  42.                    DownloadKb,              { Kilobytes of downloads         }
  43.                    Costs      : LongInt;    { Money used on system           }
  44.                  End;
  45.  
  46.  
  47. PhoneHeadRec34 = Record
  48.                    Encrypted  : Boolean;    { Is phonebook encrypted         }
  49.                    Seed       : Longint;    { Key to decrypt entries         }
  50.                    Version    : String[5];  { Version is Terminate           }
  51.                    Comment    : String[30]; { Phonebook note                 }
  52.                    Num,                     { Total entries                  }
  53.                    PhonePos,                { Last entry processed           }
  54.                    ScrPos,                  { Where on screen is menubar     }
  55.                    RangeStart,              { Last Range Start               }
  56.                    RangeStop  : Integer;    { Last Range stop                }
  57.                    LastSort,                { Last used sortmethod           }
  58.                    WritePos,                { Last pos for left/right cursor }
  59.                    InsertNum  : Byte;       { GlobalMenu, Strip/Insert '-'   }
  60.                  End;
  61.  
  62.    PhoneType34 = Record
  63.                    Tag  : Boolean;
  64.                    P    : PhoneRec34;
  65.                  End;
  66.  
  67. Var
  68.   PHead34      : PhoneHeadRec34;
  69.   Ph34         : Array[1..MaxNumbers34] of ^PhoneType34;
  70.  
  71.