home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DP Tool Club 19
/
CD_ASCQ_19_010295.iso
/
vrac
/
0151ter2.zip
/
0151TER2._XE
/
rar
/
PASCAL.EXE
/
PHONE.100
< prev
next >
Wrap
Text File
|
1994-07-22
|
5KB
|
88 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 }
{ Strathrory Systems Limited }
{ }
{--------------------------------------------------------------------------}
{ This structure is still the same as 0.38, the only changes is that: }
{ Number is now 24 chars long, the 25 char is now used for the device }
{ Suffix has replaced protocol }
{ Terminal has changed name to Emulation, Terminate will update auto.. }
Const
MaxNumbers = 500;
Type
PhoneRec = Record
Name : String[30]; { Name of system }
Number : String[24]; { Number to call }
Device : Byte; { Device to use }
Baud : LongInt; { Information on baudrate }
Parity : Char; { Information on Parity }
DataBits, { Information on Databits }
StopBits : Byte; { Information on Stopbits }
Keyboard : String[8]; { Script to use at connect }
Terminal, { Emulation to use }
DialSuffix, { Which Dialsuffix after number }
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 }
LoginScript, { Autologin script }
Downloaddir: Byte; { Download to which path }
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 }