119 lines
3.8 KiB
Plaintext
Executable File
119 lines
3.8 KiB
Plaintext
Executable File
{ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
|
³ ³
|
|
³ X - P a c k e t ³
|
|
³ ³
|
|
³ ³
|
|
³ UNIT: X P O V R 5 . P A S ³
|
|
³ ³
|
|
³ Programmcode, der aus dem Overlayteil nachgeladen wird ³
|
|
ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ}
|
|
|
|
|
|
UNIT XPOVR5;
|
|
{$F+,O+}
|
|
|
|
Interface
|
|
|
|
Uses CRT,
|
|
DOS,
|
|
OVERLAY,
|
|
|
|
XPEMS,
|
|
XPXMS,
|
|
XPDEFS;
|
|
|
|
|
|
(* Proceduren und Funktionen der XPUSER.PAS *)
|
|
Procedure UserZeigen (Kanal : Byte; VAR Call2:Str9);
|
|
Procedure GetUser(var udi:longint);
|
|
Procedure PutUser(Neu: User_typ2; Var Resultat : Byte; Typ : Byte; VAR _DPos:longint; Shard:Boolean);
|
|
Function UserSuchroutine (CallS : Str10; var USu:longint; Sali, shart:boolean) : Boolean;
|
|
Function UserSuchen (VAR USuch:Longint; SCall:string; SAlias:boolean) : Boolean;
|
|
Procedure DatensatzHolen(DatP:Longint; Var UDs: User_typ2);
|
|
Procedure NeuNameSave(User2: User_typ2; Var Result : Byte);
|
|
Procedure UserAnwesend;
|
|
|
|
(* XPUSEDIT.Pas *)
|
|
Procedure UserEditieren(User_:User_Typ2; Kanal :Byte; Neu:boolean; ZMax:Byte; VAR NeuPos : LongInt);
|
|
Function UserShow (Kanal:Byte;Suche:Str9) : Boolean;
|
|
|
|
(* XPMAIL.PAS *)
|
|
Procedure StartMailPolling(Kanal : byte; RXCall:str9);
|
|
Procedure Link_Holen (Var Port : Byte; Var CString : Str80);
|
|
Procedure MailVersucheRauf (DPos:LongInt);
|
|
Function MailsVorhanden : Boolean;
|
|
Procedure MailKillen (Box, RX:Str10; DPos : longint);
|
|
Procedure MailSpeichern (Mail : Mail_Typ);
|
|
Procedure MailsZeigen (Kanal : Byte);
|
|
Procedure MailPollGo (Kanal:Byte; NFwd:boolean);
|
|
Procedure MailSchliessen (Kanal:byte);
|
|
procedure CancelMailPoll (Kanal:Byte);
|
|
procedure LinksVorbereiten(Port:byte;QRG:Str10);
|
|
procedure LinksKillen;
|
|
|
|
|
|
{XPXBIN}
|
|
Function XBinStr (Kanal : Byte; Zeile : String; TXPos:longint) : String;
|
|
Procedure XBinCheck (kanal : Byte; XBinZ:string; DtPos:longint; XZeile:string);
|
|
procedure XBinWrite (kanal:Byte; Zeile:string);
|
|
Procedure XBinSend (Kanal : Byte; OFlag : Boolean);
|
|
Procedure OpenXBinProt (Kanal:byte);
|
|
Procedure CloseXBinProt (Kanal:byte);
|
|
|
|
{XPQTH}
|
|
|
|
PROCEDURE QTH_Pruefen (QTH : STRING;
|
|
VAR
|
|
OESLAE,
|
|
NOEBRE : REAL;
|
|
VAR
|
|
STATUS : BOOLEAN);
|
|
PROCEDURE QTH_ENTFG_RICHTG (QTH1 : STRING;
|
|
QTH2 : STRING;
|
|
VAR
|
|
ENTFG,
|
|
RICHTG : REAL;
|
|
VAR
|
|
STATUS : BOOLEAN);
|
|
FUNCTION WINKEL_IN_ALT(OESLAE,NOEBRE :REAL):STRING;
|
|
FUNCTION WINKEL_IN_NEU(OESLAE,NOEBRE :REAL):STRING;
|
|
FUNCTION WINKEL_IN_GMS (OESLAE,NOEBRE:REAL):STRING;
|
|
Procedure Compute_QTH (Var Zeile : Str80 );
|
|
|
|
{$IFNDEF no_Netrom} {//db1ras}
|
|
{Funktionen und Prozeduren in XPNETROM.PAS}
|
|
Procedure NodesSortieren;
|
|
Procedure NodesLifetime;
|
|
Function NodesAnzahl(Nafu:Boolean) : integer;
|
|
Procedure NodeListen(Naf : Boolean);
|
|
Procedure BCastKillen;
|
|
Procedure REMNodesListen (Kanal:Byte;CZeile:String);
|
|
Procedure REMRoutesListen (Kanal:Byte; CZeile:String);
|
|
{$ENDIF}
|
|
|
|
|
|
|
|
Implementation
|
|
|
|
Uses XPACT,
|
|
XPACT1,
|
|
|
|
XPOVR,
|
|
XPOVR1,
|
|
XPOVR2,
|
|
XPOVR3,
|
|
xpovr4,
|
|
xpovr6;
|
|
|
|
|
|
{$I XPUSER}
|
|
{$I XPUSEDIT}
|
|
{$I XPMAIL}
|
|
{$I XPQTH}
|
|
{$I XPXBIN}
|
|
|
|
{$IFNDEF no_Netrom} {//db1ras}
|
|
{$I XPNETROM}
|
|
{$ENDIF}
|
|
End.
|