home *** CD-ROM | disk | FTP | other *** search
/ PC Online 1996 December / PCO1296.ISO / filesbbs / dos / terminat.arj / DEVELOP.EXE / PHONE.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-07-22  |  4.6 KB  |  78 lines
  1. {--------------------------------------------------------------------------}
  2. {                                                                          }
  3. {                   -=> Terminate Phone directory  <=-                     }
  4. {                                                                          }
  5. {   The phonebook has first one PhoneHeadRec, and then up to 500 PhoneRec  }
  6. {                                                                          }
  7. {  Structure is copyrighted material and may not be changed by others than }
  8. {                              SerWiz Comm                                 }
  9. {                                                                          }
  10. {--------------------------------------------------------------------------}
  11.  
  12. Const
  13.   MaxNumbers = 500;
  14.  
  15. Type
  16.  
  17.       PhoneRec = Record
  18.                    Name        : String[30]; { Name of system                 }
  19.                    Number      : String[24]; { Number to call                 }
  20.                    Device      : Byte;       { Device to use                  }
  21.                    Baud        : LongInt;    { Information on baudrate        }
  22.                    MinBaud     : Array[1..3] of Byte; { Minimum connect speed }
  23.                    Keyboard    : String[8];  { Keyboard file to use           }
  24.                    Terminal    : Byte;       { Emulation to use               }
  25.                    DialSuffix  : Byte;       { Which Dialsuffix after number  }
  26.                    DialPrefix  : Byte;       { Dialprefix                     }
  27.                    Password    : String[24]; { Password to use                }
  28.                    Open,Closed : Word;       { Opening hours 20:30 = 20*60+30 }
  29.                    User        : Byte;       { Username to use                }
  30.                    Comment1    : String[40]; { Note 1                         }
  31.                    Comment2    : String[40]; { Note 2                         }
  32.                    LoginScript : Byte;       { Autologin script               }
  33.                    Downloaddir : Byte;       { Download to which path         }
  34.                    Translate   : String[8];  { Translation table              }
  35.                    Capture     : String[8];  { Default capture file           }
  36.                    Note        : String[8];  { A file containing notes        }
  37.                    LocalEcho   : Boolean;    { Turn on local echo             }
  38.                    StripHigh   : Boolean;    { Strip above 127 from incoming  }
  39.                    RcvdBSdest  : Boolean;    { Backspace destroyes            }
  40.                    Color       : Byte;       { Attribute of entry             }
  41.                    JulDate     : Word;       { Julian date of last connect    }
  42.                    CalcMin     : Word;       { Time of last con. Hour*60+min  }
  43.                    Connects    : Word;       { Number of connects             }
  44.                    SecUsed     : LongInt;    { Seconds used on system         }
  45.                    UploadKb    : LongInt;    { Kilobytes of uploads           }
  46.                    DownloadKb  : LongInt;    { Kilobytes of downloads         }
  47.                    Costs       : LongInt;    { Total money used on system     }
  48.                    LastCosts   : LongInt;    { Used this month                }
  49.                  End;
  50.  
  51.   PhoneHeadRec = Record
  52.                    Encrypted  : Boolean;    { Is phonebook encrypted         }
  53.                    Seed       : Longint;    { Key to decrypt entries         }
  54.                    Version    : String[5];  { Version is Terminate           }
  55.                    Comment    : String[30]; { Phonebook note                 }
  56.                    Num        : Integer;    { Total entries                  }
  57.                    CurMonth   : Byte;       { Current month                  }
  58.                    MonthCosts : Array[1..12]{ For keeping track of how much  }
  59.                                 of Longint; { money used a hole year back    }
  60.                    PhonePos   : Integer;    { Last entry processed           }
  61.                    ScrPos,                  { Where on screen is menubar     }
  62.                    WritePos   : Byte;       { Last pos for left/right cursor }
  63.                    RangeStart,              { Last Range Start               }
  64.                    RangeStop  : Integer;    { Last Range stop                }
  65.                  End;
  66.  
  67.      PhoneType = Record
  68.                    Tag  : Boolean;
  69.                    P    : PhoneRec;
  70.                  End;
  71.  
  72. Var
  73.   PHead        : PhoneHeadRec;
  74.   Ph           : Array[0..MaxNumbers] of ^PhoneType;
  75.  
  76.                  { Record 0 is used for manual dialing }
  77.  
  78.