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.38
< prev
next >
Wrap
Text File
|
1992-09-30
|
5KB
|
83 lines
{--------------------------------------------------------------------------}
{ }
{ -=> Terminate Phone directory <=- }
{ }
{ The phonebook has first one PhoneHeadRec, and then up to 500 PhoneRec }
{ }
{ Structure is copyrighted material and may not be changed by other than }
{ the author: Bo Bendtsen }
{ }
{--------------------------------------------------------------------------}
Const
MaxNumbers = 500;
Type
PhoneRec = Record
Name : String[30]; { Name of system }
Number : String[25]; { Number to call }
Baud : LongInt; { Baudrate to use }
Parity : Char; { Parity to use }
DataBits, { Databits to use }
StopBits : Byte; { Stopbits to use }
Script : String[8]; { Script to use at connect }
Terminal, { Emulation to use }
Protocol, { Protocol to use as default }
DialPrefix : Byte; { Dialprefix }
Password : String[24]; { Password to use }
Open,Closed: Word; { Opening hours 20:30 = 20*60+30 }
User : Byte; { Username to use }
Comment1, { Note 1 }
Comment2 : String[40]; { Note 2 }
AutoLogon : Byte; { Autologon style }
LogonChar : Char; { Used by autologon }
Translate, { Translation table }
Capture, { Default capture file }
Note : String[8]; { A file containing notes }
LocalEcho, { Turn on local echo }
StripHigh, { Strip above 127 from incoming }
RcvdBSdest : Boolean; { Backspace destroyes }
Color : Byte; { Attribute of entry }
{ Statistics }
JulDate, { Julian date of last connect }
CalcMin, { Time of last con. Hour*60+min }
Connects : Word; { Number of connects }
SecUsed, { Seconds used on system }
UploadKb, { Kilobytes of uploads }
DownloadKb, { Kilobytes of downloads }
Costs, { Total money used on system }
LastCosts : LongInt; { Used this month }
End;
PhoneHeadRec = Record
Encrypted : Boolean; { Is phonebook encrypted }
Seed : Longint; { Key to decrypt entries }
Version : String[5]; { Version is Terminate }
Comment : String[30]; { Phonebook note }
Num : Integer; { Total entries }
CurMonth : Byte; { Current month }
MonthCosts : Array[1..12]{ For keeping track of how much }
of Longint; { money used a hole year back }
PhonePos : Integer; { Last entry processed }
ScrPos, { Where on screen is menubar }
WritePos : Byte; { Last pos for left/right cursor }
RangeStart, { Last Range Start }
RangeStop : Integer; { Last Range stop }
End;
PhoneType = Record
Tag : Boolean;
P : PhoneRec;
End;
Var
PHead : PhoneHeadRec;
Ph : Array[0..MaxNumbers] of ^PhoneType;
{ Record 0 is used for manual dialing }