496 lines
12 KiB
Plaintext
Executable File
496 lines
12 KiB
Plaintext
Executable File
{ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
|
³ ³
|
|
³ X - P a c k e t ³
|
|
³ ³
|
|
³ ³
|
|
³ X P I N I . P A S ³
|
|
³ ³
|
|
³ Initialisierung der globalen Variablen in XPDEFS.PAS ³
|
|
ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ}
|
|
|
|
|
|
Procedure Var_INIT (* Kanal : Byte *);
|
|
var i,i1 : Integer;
|
|
Begin
|
|
BackupBremsen:=false;
|
|
BackupJetzt:=true;
|
|
if Kanal <> 99 then
|
|
Begin
|
|
|
|
with K[Kanal]^ do { Variablen eines jeden Kanals initialisieren }
|
|
Begin
|
|
PWMerk:='';
|
|
SPRxCount:=0;
|
|
SPRxSoll:=0;
|
|
|
|
XBIN.AN:=false;
|
|
xbin.pdat:=false;
|
|
xbin.ok:=false;
|
|
xbin.retries:=0;
|
|
xbin.frameNr:=0;
|
|
xbin.DatPos:=0;
|
|
xbin.pdat:=false;
|
|
xbin.eof:=false;
|
|
|
|
BellCount:=0;
|
|
|
|
StopCODE:=0;
|
|
STOPComp:=False;
|
|
|
|
CompC:=false;
|
|
KompressUpd:=false;
|
|
SPComp:=false;
|
|
ReqName := false;
|
|
|
|
for i:=1 to 255 do
|
|
begin
|
|
Kompression[i]:=0;
|
|
end;
|
|
OnAct:='';
|
|
|
|
Node := FALSE;
|
|
|
|
|
|
FBBStreng:=false;
|
|
NZeile := '';
|
|
NodeTimeOut:=30;
|
|
TermTimeOut:=0;
|
|
TX_CRC:=0;
|
|
RX_CRC:=0;
|
|
ACZeile := '';
|
|
FTxName := Konfig.SavVerz;
|
|
FRxName := Konfig.SavVerz;
|
|
Autokenn:=false;
|
|
SystemErkannt:='';
|
|
RxLRet := true;
|
|
TxLRet := true;
|
|
SvLRet := true;
|
|
OwnCall := '*';
|
|
Call := ' ';
|
|
connected := false;
|
|
Outside := true;
|
|
QSO_Date := '';
|
|
QSO_Begin := '';
|
|
QSO_End := '';
|
|
ConText := '';
|
|
LogMerker := '';
|
|
BeLogEintr := false;
|
|
SendZeile := '';
|
|
TxByte := 0;
|
|
Loesch := false;
|
|
Insert_ON := true;
|
|
Rx_Beep := false;
|
|
Echo := 0;
|
|
SysTextEcho := false;
|
|
Cmd := false;
|
|
ObStat := 5;
|
|
if Kanal = 0 then UnStat := ObStat + 1
|
|
else UnStat := maxZ - 3;
|
|
X2 := 1;
|
|
Response := '';
|
|
for i := 1 to 6 do L_Status[i] := 0;
|
|
FlagTxBeep := false;
|
|
TxBeepAck := false;
|
|
First_Frame := true;
|
|
RemPath := '';
|
|
RX_Bin := 0;
|
|
RX_Save := false;
|
|
Save := false;
|
|
SplSave := false;
|
|
Spl_Time := '';
|
|
Spl_Baud := 0;
|
|
Spl_UmlMerk := 0;
|
|
FileSend := false;
|
|
FileSendRem := false;
|
|
FileSendWait := false;
|
|
TX_Bin := 0;
|
|
TX_Time := '';
|
|
TX_Baud := 0;
|
|
Drucker := false;
|
|
Umlaut := 0;
|
|
UmlautMerk := 0;
|
|
NR_Stelle := 0;
|
|
ConnectMerk := '';
|
|
ACMerk := '';
|
|
Pause := 0;
|
|
Paclen := 230;
|
|
MaxFrame := 3;
|
|
TNCKanal := #0;
|
|
{FwdMails:=0;
|
|
fwdstarted:=false;}
|
|
fwd:= false;
|
|
fwdgo:=false;
|
|
Kan_Char := #0;
|
|
TNC_Code := 0;
|
|
TNC_Count := 0;
|
|
Auto := true;
|
|
Auto_CON := false;
|
|
Ziel_Call := '';
|
|
Ignore := false;
|
|
NochNichtGelesen := false;
|
|
RemoteSave := false;
|
|
AnzLines := 0;
|
|
AnzNotiz := 0;
|
|
stV := 1;
|
|
Y1V := 1;
|
|
Y1C := 1;
|
|
X1V := 1;
|
|
X1C := 3;
|
|
NodeCon := false;
|
|
NodeCmd := false;
|
|
Mail_SP := false;
|
|
MerkInfo := '';
|
|
EinstiegsKanal := false;
|
|
AusstiegsKanal := false;
|
|
GegenKanal := 0;
|
|
Kanal_benutz := false;
|
|
RemConReady := false;
|
|
FoundCall := false;
|
|
Last_CR_Pos := 0;
|
|
unknown := false;
|
|
notRC := false;
|
|
ParmWrong := false;
|
|
Hold := false;
|
|
HoldStr := '';
|
|
HoldTime := 0;
|
|
RTF := false;
|
|
Cself := 0;
|
|
AutoZeile := '';
|
|
Auto1Zeile := '';
|
|
AutoTime := '';
|
|
AutoZaehl := 0;
|
|
AutoJump := 0;
|
|
AutoZyConst := 0;
|
|
AutoZyCount := 0;
|
|
AutoToConst := 0;
|
|
AutoToCount := 0;
|
|
AutoToAnz := 0;
|
|
AutoToMax := 0;
|
|
AutoToAnzJmp := 0;
|
|
AutoWait := 0;
|
|
AutoChMerk := 0;
|
|
AutoArt := 0;
|
|
AutoCheckLn := false;
|
|
AutoJmpPtr := 1;
|
|
FillChar(AutoJmpRet,SizeOf(AutoJmpRet),0);
|
|
Test := false;
|
|
TestMerk := 0;
|
|
Priv_Modus := false;
|
|
RemAll := false;
|
|
SysopParm := false;
|
|
Priv_Errechnet := '';
|
|
SysopStr := '';
|
|
SysopArt := '';
|
|
FillChar(StatZeile,SizeOf(StatZeile),0);
|
|
Rekonnekt := false;
|
|
Now_Msg_holen := true;
|
|
MeldeCompZ := '';
|
|
MeldeZeile := '';
|
|
MldOk := 0;
|
|
EigMail := false;
|
|
MsgToMe := false;
|
|
TNC_Puffer := false;
|
|
NotPos := 0;
|
|
Einer_st := false;
|
|
for i := 1 to maxVorZeilen do stTX[i] := false;
|
|
for i := 0 to 3 do PagesNot[i] := 0;
|
|
PagesAnz := 0;
|
|
BufPos := 0;
|
|
BufExists := false;
|
|
BufToLow := false;
|
|
FillChar(Conv,SizeOf(Conv),0);
|
|
RX_DatenPieps := false;
|
|
User_Name := '';
|
|
NeueZeilen := 0;
|
|
ScrZlnMerk := 0;
|
|
BoxZlnMerk := 0;
|
|
with Mo do
|
|
begin
|
|
MonBeide := false;
|
|
MonActive := false;
|
|
MonDisAbr := false;
|
|
MonHCall := false;
|
|
MonStrict := false;
|
|
MonSignal := false;
|
|
MonIFr := true;
|
|
MonUFr := false;
|
|
MonLast := '';
|
|
for i := 1 to 2 do
|
|
begin
|
|
MonNow[i] := false;
|
|
MonStr[i] := '';
|
|
MonFirst[i] := true;
|
|
MonFrameNr[i] := 0;
|
|
for i1 := 0 to 7 do MonCtrl[i][i1] := 0;
|
|
end;
|
|
end;
|
|
QsoScroll := false;
|
|
AutoBin := true;
|
|
AutoBinOn := true;
|
|
SPlus := true;
|
|
Spl_COR_ERR := false;
|
|
Ext_Poll := false;
|
|
C_Poll := false;
|
|
DieBoxPW := '';
|
|
DBoxScaned := false;
|
|
SysArt := 0;
|
|
UserArt := 0;
|
|
for i := 0 to maxSCon do SCon[i] := false;
|
|
ChkLstOpen := false;
|
|
FillChar(BoxStr,SizeOf(BoxStr),0);
|
|
FillChar(Rubrik,SizeOf(Rubrik),0);
|
|
FillChar(RunRub,SizeOf(RunRub),0);
|
|
NewChkLst := 0;
|
|
BoxScroll := false;
|
|
ChecksSorted := false;
|
|
PassRetry := 1;
|
|
PassRight := 1;
|
|
RxComp := false;
|
|
TxComp := false;
|
|
CompZeile := '';
|
|
TncAkt := 0;
|
|
TncNix := false;
|
|
Kopieren := 0;
|
|
KopierenFm:=0;
|
|
WishBuf := false;
|
|
NoCurJump := false;
|
|
use_RomLw := false;
|
|
SynchErrAnz := 0;
|
|
GrtFlag := false;
|
|
EigFlag := false;
|
|
FileFlag := false;
|
|
RemFlag := false;
|
|
User_AutoPW:=false;
|
|
user_komp:=0;
|
|
End;
|
|
End;
|
|
|
|
if Kanal = 99 then { globale Variablen intialisieren..(keine Kanalvariablen)}
|
|
begin
|
|
G^.ZeilenwTX := False;
|
|
G^.StatusModus:=0;
|
|
gotLastHr:=false;
|
|
lminute:=61;
|
|
ESC_Call:=false;
|
|
Versi:='';
|
|
Scan_:=false;
|
|
MailInBox:=Mailsvorhanden;
|
|
_OnAct:=false;
|
|
for i := 1 to maxArrayTNC do TNC_used[i] := false;
|
|
maxLink := 0;
|
|
Tnc_Anzahl := 0;
|
|
Mon_Anz := 0;
|
|
MPort := 0;
|
|
FirstA := false;
|
|
QRT := false;
|
|
FreiKanal := 0;
|
|
show := 0;
|
|
ShowMerk := 0;
|
|
maxPath := 0;
|
|
Unproto := 1;
|
|
TopBox := true;
|
|
NeuCall := '';
|
|
RemoteCall := '';
|
|
LastInfoCount := 0;
|
|
LastInfoFlag := false;
|
|
HistoryCount := 0;
|
|
Del := false;
|
|
FillChar(G^.Leer[1],80,B1);
|
|
G^.Leer[0] := Chr(80);
|
|
notScroll := false;
|
|
ZeigeRET := false;
|
|
Aufwaerts := false;
|
|
for i := 7 to 15 do
|
|
begin
|
|
G^.Fstr[i] := '';
|
|
G^.Fstx[i] := 1;
|
|
end;
|
|
FirstConCh := 1;
|
|
ch_aus := false;
|
|
DZeile := '';
|
|
CNr := 0; { Anzahl Connects auf 0 setzen, danach Wert lesen }
|
|
WBox := '';
|
|
WCall := '';
|
|
LaufZeit := 0;
|
|
Poll := 0;
|
|
PollTnr := 1;
|
|
PollRate := 5;
|
|
TNC_ReadOut := false;
|
|
JumpRxScr := true;
|
|
JumpRxZaehl := 5;
|
|
Win_Rout := false;
|
|
Win_Time := 5;
|
|
Box_Time := 10;
|
|
BoxZaehl := 10;
|
|
NowCurBox := false;
|
|
Priv_PassWord := '';
|
|
D_Spalte := 1;
|
|
Time_stamp := false;
|
|
PacOut := false;
|
|
Resync_Z := 0;
|
|
Nodes_Change := false;
|
|
Old_active_TNC := 0;
|
|
Klingel := true;
|
|
CtrlBeep := true;
|
|
_VGA := false;
|
|
ScreenSTBY := false;
|
|
TNC_K := false;
|
|
Ausgabe := true;
|
|
NTimeOut := 30;
|
|
VDisk := '';
|
|
use_Vdisk := true;
|
|
RomDisk := '';
|
|
Rom_Exists := false;
|
|
Print := false;
|
|
for i := 1 to 4 do LPT_Base[i] := LPT_PORTs[i];
|
|
LPT_vorhanden := false;
|
|
PrtPort := 1;
|
|
PrtFailure := false;
|
|
morsen := false;
|
|
MPause := 50;
|
|
HardCur := false;
|
|
Gross := true;
|
|
minTncBuf := 200;
|
|
maxTncBuf := minTncBuf - 50;
|
|
NowFenster := false;
|
|
ScrollVor := false;
|
|
BlTon := false;
|
|
XL := 0;
|
|
XR := 0;
|
|
ParmAnz := 0;
|
|
ParmPos := 254;
|
|
G^.DArt:=1;
|
|
G^.C1_Ton := 800;
|
|
G^.C1_TonTime := 100;
|
|
G^.C2_Ton := 1200;
|
|
G^.C2_TonTime := 100;
|
|
G^.Alarm_Freq := 1200;
|
|
G^.Alarm_Time := 20;
|
|
G^.RxPiepFreq := 1300;
|
|
G^.RxPiepTime := 50;
|
|
G^.TxPiepFreq := 400;
|
|
G^.TxPiepTime := 30;
|
|
G^.RemPiepFreq := 600;
|
|
G^.RemPiepTime := 400;
|
|
G^.PopFreq := 1400;
|
|
G^.PopFreqTime := 30;
|
|
G^.CTRL_G_Freq := 880;
|
|
G^.CTRL_G_Time := 80;
|
|
G^.TonHoehe := 1300;
|
|
G^.BLockAnfFreq := 700;
|
|
G^.BLockEndFreq := 350;
|
|
G^.BlockPiep1Time := 10;
|
|
G^.BlockPiep2Time := 10;
|
|
for i := 1 to 4 do NrStat[i] := i;
|
|
Eig_Mail_Zeile := '';
|
|
TNC_Halt := false;
|
|
polling := true;
|
|
IrqMask := 0;
|
|
XCP := 1;
|
|
Color := false;
|
|
EMS_Pages_Ins := 0;
|
|
File_Frame_max := 20;
|
|
Pseudo := false;
|
|
ConvHilfsPort := 0;
|
|
ReconMorsen := false;
|
|
ConMorsen := false;
|
|
{ ReconVoice := false;
|
|
ConVoice := false;}
|
|
MonID := 1;
|
|
ShTab_Pressed := false;
|
|
Braille80 := false;
|
|
ZeitArt := 'MEZ';
|
|
ZeitDiff := 0;
|
|
UseUTC := false;
|
|
TagOver := false;
|
|
ScreenInit := 5;
|
|
GesamtNotCh := 0;
|
|
GesamtVorCh := 0;
|
|
PortStufe := 0;
|
|
volle_Breite := false;
|
|
Vor_im_EMS := false;
|
|
use_EMS := false;
|
|
use_XMS := false;
|
|
Speek := false;
|
|
VSpeed := 400;
|
|
UeberNr := '';
|
|
SwapXms := false;
|
|
SwpHandle := 0;
|
|
SizeHeap := 0;
|
|
KeyDelay := 1;
|
|
GlobalTrenn := false;
|
|
BinOut := false;
|
|
Ins := true;
|
|
HighCol := false;
|
|
Kbd := 0;
|
|
TimeOut := 0;
|
|
HD_was_Active := false;
|
|
AnyConnect := false;
|
|
SortMhNr := 3;
|
|
Cursor_on := false;
|
|
CurX := 1;
|
|
CurY := 1;
|
|
DateiInfo := 1;
|
|
SSAV := 1;
|
|
RTC := false;
|
|
WishBoxLst := true;
|
|
WishDXC := true;
|
|
KillEsc := false;
|
|
WCTRL := true;
|
|
LogArt := 1;
|
|
Upload := false;
|
|
K_Record_on_Heap := false;
|
|
QRT_Text := true;
|
|
WeekDayStr := '';
|
|
WochenTag := '';
|
|
SynchError := false;
|
|
OverRun := false;
|
|
ColMon := 0;
|
|
MonCode5 := false;
|
|
HD_Read := 0;
|
|
KStat := false;
|
|
KStatTr := ' ';
|
|
ZlnMerk := true;
|
|
NoBinMon := true;
|
|
RX_TX_Win := false;
|
|
SplCountLines := false;
|
|
BiosOut := false;
|
|
MhKill := false;
|
|
AltQFlag := false;
|
|
HoldDXc := false;
|
|
HoldDXcStr := '';
|
|
G^.PromptStr := '#CALL# de #MCAL#>';
|
|
G^.TabStr := ' ';
|
|
maxMH := 25;
|
|
KeyCheck := false;
|
|
RecCheck := false;
|
|
for i := 1 to 10 do G^.SETL[i] := 7;
|
|
SETNr := 1;
|
|
TicAnz := 0;
|
|
ModMonFr := false;
|
|
WeFlag := false;
|
|
DirScroll := false;
|
|
KeyOpt := 0;
|
|
EraseChk := 0;
|
|
LogChk := 0;
|
|
SiAltD := false;
|
|
SiAltK := false;
|
|
TabFill := false;
|
|
MoniStaAnz := 0;
|
|
Idle := false;
|
|
Idle_Pos := true;
|
|
Idle_Anz := 10;
|
|
Idle_Count := 0;
|
|
Idle_Tout := 20;
|
|
Idle_TCount := 0;
|
|
Idle_TMerk := 0;
|
|
DelayCor := 1;
|
|
LockInt := false;
|
|
BackUpProc:=false;
|
|
BackUpLauf:=false;
|
|
{$IFDEF Sound}
|
|
WavStream:='';
|
|
{$ENDIF}
|
|
end;
|
|
End;
|