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.
128 lines
3.9 KiB
128 lines
3.9 KiB
{ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
|
³ ³
|
|
³ X - P a c k e t ³
|
|
³ ³
|
|
³ ³
|
|
³ UNIT: X P O V R 3 . P A S ³
|
|
³ ³
|
|
³ Programmcode, der aus dem Overlayteil nachgeladen wird ³
|
|
ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ}
|
|
|
|
|
|
UNIT XPOVR3;
|
|
{$F+,O+}
|
|
|
|
Interface
|
|
|
|
Uses CRT,
|
|
DOS,
|
|
OVERLAY,
|
|
|
|
XPEMS,
|
|
XPXMS,
|
|
XPDEFS;
|
|
|
|
|
|
(* Proceduren und Funtionen der XPLINK.PAS *)
|
|
Procedure Lnk_Sort(Art : Byte);
|
|
Procedure Lnk_Init(TNr : Byte; Freq : Str8);
|
|
Procedure ALT_C_Connect(Kanal : Byte);
|
|
Function GetConPfad(Rufz : Str9) : String;
|
|
Function GetConStr(var Zeile : String) : Str80;
|
|
Function LinkExists(Name : Str9; var Gate : Byte) : Boolean;
|
|
Procedure LinkMod(var Zeile : Str80);
|
|
Procedure RemoteLnk(Kanal,T : Byte; Zeile : Str9);
|
|
Procedure SaveLinks(Kanal,TNr : Byte; Freq : Str8);
|
|
Procedure LinkLearn(Kanal : Byte; Zeile : Str80);
|
|
|
|
|
|
(* Proceduren und Funtionen der XPCRC.PAS *)
|
|
Procedure CRC_Datei(var Zeile : Str80);
|
|
Procedure GetNetRom;
|
|
|
|
|
|
(* Proceduren und Funtionen der XPCOL.PAS *)
|
|
Procedure Color_Einstellung;
|
|
|
|
(* Proceduren und Funtionen der XPMON.PAS *)
|
|
Procedure Stat_MonitorCalls(Kanal : Byte);
|
|
Procedure Calls_Monitoren(Kanal : Byte; Zeile : Str80);
|
|
Procedure Init_Call_monitoren(Kanal : Byte; Zeile : Str80);
|
|
Procedure Cancel_Call_monitoren(Kanal : Byte);
|
|
Procedure FreeMonitorKanal(Var KA : Byte ; Zeile : Str80);
|
|
|
|
|
|
(* Proceduren und Funtionen der XPMRK.PAS *)
|
|
Procedure Merker_Conn_Schreiben;
|
|
Procedure Merker_Conn_Lesen;
|
|
Procedure Merker_File_Schreiben;
|
|
Procedure Merker_File_Lesen;
|
|
|
|
|
|
(* Proceduren und Funtionen der XPMAKRO.PAS *)
|
|
Procedure Makrozeile_holen;
|
|
Procedure Makro_Aktivieren(Zeile : Str60);
|
|
Procedure MakroInit;
|
|
Procedure Makro_Erlernen(SK : Sondertaste; VC : Char);
|
|
Procedure Makro_Open_LearnFile;
|
|
|
|
(* Proceduren und Funtionen der XPAUTO.PAS *)
|
|
Procedure Auto_Aktivieren(Kanal : Byte; Zeile : Str60);
|
|
Procedure Auto_Init(Kanal : Byte);
|
|
Procedure Autozeile_Holen(Kanal : Byte);
|
|
Function AutoJmpZnNr(Kanal : Byte; Zeile : Str40) : Word;
|
|
|
|
|
|
(* Proceduren und Funtionen der XPPASS.PAS *)
|
|
Procedure Sysop_Einloggen(Kanal : Byte; Zeile : Str80);
|
|
Procedure Password_Auswert(Kanal : Byte; Zeile : String);
|
|
Procedure DieBox_PW_Scan(Kanal : Byte; Zeile : String);
|
|
Procedure Scan_PW_Array(Kanal : Byte);
|
|
Procedure BayBox_US_Scan(Kanal : Byte; Zeile : String);
|
|
Function GetPwParm (Nr : Byte; Zeile : Str80) : Str20;
|
|
Function Found_Pw_Call(Zeile : Str80; Cstr : Str9; AlStr:str9; AStr : Str6) : Boolean;
|
|
Function PseudoPriv(Laenge : Byte; Pstr : Str20; Dstr : Str80) : Str80;
|
|
Function Check_Parm(Zeile : String) : String;
|
|
Procedure RMNC_Auswert(Kanal : Byte; Zeile : Str80);
|
|
Procedure TheNet_SYS_Auswert(Kanal : Byte ; Zeile : String);
|
|
Procedure EZBOX_Auswert(Kanal : Byte; Zeile : Str80);
|
|
|
|
|
|
|
|
(* Proceduren und Funtionen der XPCONV.PAS *)
|
|
Procedure Conv_Tx_All (Kanal : Byte);
|
|
Procedure ConversTX (Kanal : Byte; All,Head : Boolean; Zeile : String);
|
|
Procedure ConversUser (Kanal : Byte);
|
|
Procedure ConversRemote (Kanal : Byte; Zeile : String);
|
|
Function ConversIni (Kanal : Byte; INI : Boolean) : Boolean;
|
|
Procedure ConversAuswert (Kanal,Nr : Byte);
|
|
Function ConversCall(Kanal : Byte) : Str20;
|
|
Procedure ConversQuit(Kanal : Byte);
|
|
|
|
|
|
Implementation
|
|
|
|
Uses XPACT,
|
|
XPACT1,
|
|
|
|
XPOVR,
|
|
XPOVR1,
|
|
XPOVR2,
|
|
XPOVR4,
|
|
XPOVR5,
|
|
xpovr6;
|
|
|
|
|
|
{$I XPLINK}
|
|
{$I XPCRC}
|
|
{$I XPCOL}
|
|
{$I XPMON}
|
|
{$I XPMRK}
|
|
{$I XPMAKRO}
|
|
{$I XPAUTO}
|
|
{$I XPPASS}
|
|
{$I XPCONV}
|
|
|
|
|
|
End.
|