496 lines
12 KiB
Plaintext
496 lines
12 KiB
Plaintext
|
{<7B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ŀ
|
|||
|
<20> <20>
|
|||
|
<20> X - P a c k e t <20>
|
|||
|
<20> <20>
|
|||
|
<20> <20>
|
|||
|
<20> X P I N I . P A S <20>
|
|||
|
<20> <20>
|
|||
|
<20> Initialisierung der globalen Variablen in XPDEFS.PAS <20>
|
|||
|
<20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>}
|
|||
|
|
|||
|
|
|||
|
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;
|