72 lines
2.1 KiB
Plaintext
Executable File
72 lines
2.1 KiB
Plaintext
Executable File
{ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
|
³ ³
|
|
³ X - P a c k e t ³
|
|
³ ³
|
|
³ ³
|
|
³ UNIT: X P O V R 4 . P A S ³
|
|
³ ³
|
|
³ Programmcode, der aus dem Overlayteil nachgeladen wird ³
|
|
ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ}
|
|
|
|
|
|
UNIT XPOVR4;
|
|
{$F+,O+}
|
|
{-$DEFINE Sound}
|
|
|
|
Interface
|
|
|
|
Uses CRT,
|
|
DOS,
|
|
OVERLAY,
|
|
|
|
XPEMS,
|
|
XPXMS,
|
|
XPDEFS;
|
|
|
|
|
|
(* Proceduren und Funtionen der XPREM.PAS *)
|
|
Procedure Remote(Kanal : Byte; Art : Integer; CZeile : Str80);
|
|
Procedure Send_Prompt(Kanal : Byte; Art : Integer);
|
|
Procedure Ch_Dir(Kanal : Byte; Var Zeile : Str80);
|
|
Function REM_Auswert(Kanal, Art : Byte; Komm : Str80) : Byte;
|
|
Procedure TNC_Auswert(Kanal : Byte; Var TncKom, Doc : Str20);
|
|
Procedure Mk_Dir(Kanal : Byte; var Zeile : Str80);
|
|
Procedure Rm_Dir(Kanal : Byte; var Zeile : Str80);
|
|
Function Call_Exist(Kanal,Art : Byte; Zeile : Str9) : Boolean;
|
|
Procedure SendToChannel(Kanal,Art,von,bis : Byte; Zeile : Str80);
|
|
Procedure Quit(Kanal : Byte);
|
|
Function QSO_Time(Kanal : Byte) : Str20;
|
|
Function Rom_Ready : Boolean;
|
|
Procedure REM_HelpLong(Kanal : Byte; IDstr : Str6);
|
|
Procedure ComputeRTF(Kanal : Byte; Zeile : Str80);
|
|
|
|
(* Proceduren und Funtionen der XPSCROL.PAS *)
|
|
Procedure Notiz_Zeigen(Kanal : Byte);
|
|
Procedure FileScroll(Kanal : Byte);
|
|
Procedure CheckSort(Kanal,Spalte,AnzSp : Byte; Dpos : LongInt; SC : Char);
|
|
Procedure OpenDBox(Kanal : Byte);
|
|
Procedure CloseDBox(Kanal : Byte);
|
|
|
|
Procedure Sprechen (Zeile : Str80) ;
|
|
|
|
Procedure SprachMenu;
|
|
|
|
Implementation
|
|
|
|
Uses XPACT,
|
|
XPACT1,
|
|
|
|
XPOVR,
|
|
XPOVR1,
|
|
XPOVR2,
|
|
XPOVR3,
|
|
xpovr5,
|
|
xpovr6;
|
|
|
|
|
|
{$I XPREM}
|
|
{$I XPSCROL}
|
|
{$I xpspeak}
|
|
|
|
End.
|