You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

119 lines
3.8 KiB

{ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
³ ³
³ 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.