4561 lines
115 KiB
Plaintext
4561 lines
115 KiB
Plaintext
|
{
|
|||
|
Verteilung der Hilfe-Nummern und Textmarkierungen:
|
|||
|
|
|||
|
1 #SETUP# - Allgemeine Setup-Meldungen
|
|||
|
|
|||
|
>> Hilfen <<
|
|||
|
2 #EDITOR# - Editor-Hilfe
|
|||
|
3 #TNC# - TNC-Haupteinstellungen
|
|||
|
4 #TNCINI# - TNC-Initialisierung
|
|||
|
5 #TNCDeIni# - TNC-Deini
|
|||
|
6 #DIRS# - Verzeichnisse
|
|||
|
7 #VER# - Verschiedenes
|
|||
|
8 #MAIL# - Mailframes
|
|||
|
9 #RAM# - Speicheroptionen
|
|||
|
10 #PRT# - Drucker
|
|||
|
11 #BLIND# - Blindensetup
|
|||
|
|
|||
|
>> Auswahlen <<
|
|||
|
15 #RESP# - Responses (ja, nein ...)
|
|||
|
20 #TNCS# - TNC-Setup
|
|||
|
21 #TNCI# - TNC-Ini/deini f<>r Setup
|
|||
|
30 #DIRT# - Dir-Screen
|
|||
|
40 #VERT# - Verschiedenes-Screen
|
|||
|
50 #MAIL# - Mailframe-auswertung
|
|||
|
60 #RAMT# - Speicher-Screen
|
|||
|
70 #PRTT# - Druck-Screen
|
|||
|
80 #BLINDT# - Blinden-Screen
|
|||
|
90 - PERS<52>nliches
|
|||
|
100 - SOUND
|
|||
|
|
|||
|
255 #MAIN# - Hauptmen<65>
|
|||
|
}
|
|||
|
|
|||
|
Program XPackSet;
|
|||
|
|
|||
|
{-$Define Sound}
|
|||
|
USES Dos, CRT, strings, XPSetTas
|
|||
|
{$IFDEF Sound} {//db1ras}
|
|||
|
, SBDet
|
|||
|
{$ENDIF}
|
|||
|
;
|
|||
|
|
|||
|
CONST
|
|||
|
ConfigDat = 'CONFIG.XP';
|
|||
|
MaxHilfeZeilen = 66;
|
|||
|
kennst = 'XPacket-Configuration-File. Do NOT edit!';
|
|||
|
|
|||
|
|
|||
|
Texte : array[0..26] of string[20] =
|
|||
|
('#Nox#',
|
|||
|
'#SETUP#', '#EDITOR#',
|
|||
|
'#TNC#', '#TNCINI#',
|
|||
|
'#TNCDEINI#','#DIRS#',
|
|||
|
'#VER#', '#MAIL#',
|
|||
|
'#RAM#', '#PRT#',
|
|||
|
'#BLIND#', '#QUIET#',
|
|||
|
'#RESP#', '#TNCS#',
|
|||
|
'#TNCI#', '#DIRT#',
|
|||
|
'#VERT#', '#MAILSC#',
|
|||
|
'#RAMT#', '#PRTT#',
|
|||
|
'#BLINDT#', '#PERST#',
|
|||
|
'#PERSH#', '#MAIN#',
|
|||
|
'#SOUND#', '#SOUNDH#');
|
|||
|
|
|||
|
|
|||
|
|
|||
|
ESC = #27;
|
|||
|
maxhmenu=10;
|
|||
|
maxtnc = 8;
|
|||
|
x = 2;
|
|||
|
xml =26;
|
|||
|
yml =5;
|
|||
|
xtnc =25;
|
|||
|
ytnc =3;
|
|||
|
ytid =4;
|
|||
|
xtid =6;
|
|||
|
xverz = 2;
|
|||
|
yverz = 7;
|
|||
|
yver = 3;
|
|||
|
xver = 23;
|
|||
|
|
|||
|
xper = 17;
|
|||
|
yper = 7;
|
|||
|
|
|||
|
xsp =27;
|
|||
|
ysp =10;
|
|||
|
ybld = 7;
|
|||
|
xbld = 25;
|
|||
|
xdr = 30;
|
|||
|
ydr = 11;
|
|||
|
xsn = 25;
|
|||
|
ysn = 11;
|
|||
|
y = 7;
|
|||
|
nohhg = Darkgray;
|
|||
|
highvg = black;
|
|||
|
highhg = white;
|
|||
|
specvg = white;
|
|||
|
TNC_Art : Array[0..4] of String[4] =
|
|||
|
('----',
|
|||
|
'TNC2','TNC3','TFPC','FALC');
|
|||
|
|
|||
|
|
|||
|
TYPE
|
|||
|
str2=string[2];
|
|||
|
str8=string[8];
|
|||
|
str10=string[10];
|
|||
|
str80=string[80];
|
|||
|
str20=string[20];
|
|||
|
str30=string[30];
|
|||
|
str70=string[70];
|
|||
|
strk = string[41];
|
|||
|
|
|||
|
TNC_Konf = Record {1.73/1.80}
|
|||
|
Art : Byte; {tfpcx, tnc ....}
|
|||
|
MaxKan : Byte;
|
|||
|
NodeKan : Byte;
|
|||
|
Identi : Str2;
|
|||
|
Port : Byte;
|
|||
|
Tickzeile : Boolean;
|
|||
|
Com,
|
|||
|
IRQ : Byte;
|
|||
|
Adresse : Str8;
|
|||
|
Baud : Longint;
|
|||
|
AfuPort,
|
|||
|
Fifo : Boolean;
|
|||
|
MultiplexNr : Byte;
|
|||
|
PortNam : str20;
|
|||
|
IniA : array[1..16] of str30;
|
|||
|
IniB : str70;
|
|||
|
DIniA : array[1..16] of str30;
|
|||
|
DIniB : str70;
|
|||
|
TX_X0, {TNC-Command TX-Sperre AN}
|
|||
|
TX_X1 : string[5];{TNC-Command TX-Sperre AUS}
|
|||
|
TX_Bundle : Byte; {B<>ndel-Nummer um f<>r mehrere Antennen Sets zuzulassen}
|
|||
|
end;
|
|||
|
|
|||
|
|
|||
|
QuietZeit = Record
|
|||
|
StdAnf, MinAnf,
|
|||
|
StdEnd, MinEnd : Byte;
|
|||
|
Aktiv : boolean;
|
|||
|
end;
|
|||
|
|
|||
|
QuietZeiten = Array[1..3] of QuietZeit;
|
|||
|
|
|||
|
Sich_Rec18 = Record
|
|||
|
QSOAblauf,
|
|||
|
Dateien,
|
|||
|
User,
|
|||
|
Shutdown : Boolean;
|
|||
|
end;
|
|||
|
|
|||
|
Konfig_Rec = Record {1.74}
|
|||
|
kenner: strk;
|
|||
|
TNC : array[1..MaxTnc] of TNC_KONF;
|
|||
|
RemVerz,
|
|||
|
SavVerz,
|
|||
|
MailVerz : String;
|
|||
|
Teil1 : byte;
|
|||
|
RunVerz,
|
|||
|
BinVerz,
|
|||
|
SPlVerz,
|
|||
|
MakVerz,
|
|||
|
ViewVerz,
|
|||
|
EditVerz,
|
|||
|
SPKVerz,
|
|||
|
TempVerz : str80;
|
|||
|
Teil5 : byte;
|
|||
|
CDRom : Char;
|
|||
|
ZeitBez : str8;
|
|||
|
UTCDiff : integer;
|
|||
|
teil2 : byte;
|
|||
|
UTCBenutzen,
|
|||
|
Echtzeit : Boolean;
|
|||
|
PopupZeit : integer;
|
|||
|
LockIRQ : Boolean;
|
|||
|
SichAbfr : Boolean;
|
|||
|
IDLE : Boolean;
|
|||
|
ScrSavZ : Byte;
|
|||
|
PromptS : Str30;
|
|||
|
NTimeOut,
|
|||
|
TTimeOut,
|
|||
|
MaxFrameStd,
|
|||
|
PacLenStd,
|
|||
|
MaxNodes,
|
|||
|
Lifetime : integer;
|
|||
|
Teil4 : byte;
|
|||
|
version : integer;
|
|||
|
|
|||
|
QuietDH,
|
|||
|
QuietZG : Boolean;
|
|||
|
QuietZt : QuietZeiten;
|
|||
|
|
|||
|
|
|||
|
MH : Byte;
|
|||
|
BackScRam : Byte;
|
|||
|
VorschZRam: Byte;
|
|||
|
BufferDat : Boolean;
|
|||
|
|
|||
|
LPTNr : Byte;
|
|||
|
LPTAdr : Str8;
|
|||
|
|
|||
|
SoftHardC,
|
|||
|
WinRout : Boolean;
|
|||
|
WinRoutTime: Byte;
|
|||
|
RXBeepStart,
|
|||
|
AchzigBrail,
|
|||
|
Steuerz,
|
|||
|
MarkTon,
|
|||
|
AusgabeBios: Boolean;
|
|||
|
Teil3 : Byte;
|
|||
|
MailFErl : Boolean;
|
|||
|
MailFrame : array[1..10] of str10;
|
|||
|
OwnMailFr : Boolean;
|
|||
|
OwnMailPfad: String[50];
|
|||
|
MailFrameZeit : Byte;
|
|||
|
|
|||
|
PersName,
|
|||
|
PersQTH : string[30];
|
|||
|
PersLoc : string[10];
|
|||
|
|
|||
|
CBFilter : Boolean;
|
|||
|
ReqNam : Boolean;
|
|||
|
NodeSound : Boolean;
|
|||
|
MaxLoginUser : Byte;
|
|||
|
|
|||
|
Sicherheit : Sich_Rec18;
|
|||
|
|
|||
|
WavOut, MidiOut, WavSprach, bool4, bool5, bool6 : boolean;
|
|||
|
BackupTime, SBHiDMA, SBLoDMA, SBIRQ, byte5, byte6 : byte;
|
|||
|
MidiADR, SBBaseADR, word3, word4, word5, word6 : word;
|
|||
|
|
|||
|
end;
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
Screen = ARRAY [1..2000] OF
|
|||
|
RECORD
|
|||
|
Zeichen : CHAR;
|
|||
|
Attribut : BYTE;
|
|||
|
END;
|
|||
|
|
|||
|
BildZeiger = ^Screen;
|
|||
|
TextPuffer_ = array[1..65000] of char;
|
|||
|
|
|||
|
VAR
|
|||
|
CBFilterStatus:boolean;
|
|||
|
BreakStatus:boolean;
|
|||
|
TextPuffer : ^textPuffer_;
|
|||
|
TextPuff:Pchar;
|
|||
|
PufferLang,
|
|||
|
Result : word;
|
|||
|
RespT : array [1..5] of string[10];
|
|||
|
HelpNr:integer;
|
|||
|
HelpB : array[1..60] of String[77];
|
|||
|
HilfeThemen : array [1..120] of LongINt;
|
|||
|
HZeil:integer;
|
|||
|
helpeditor,
|
|||
|
HelpSETUP : Array[1..52] of String[77];
|
|||
|
|
|||
|
RespN,
|
|||
|
HEditorN,
|
|||
|
HSetupN: byte;
|
|||
|
HMenN:byte;
|
|||
|
|
|||
|
HDAT:file;
|
|||
|
BDAT:file of byte;
|
|||
|
Datei: File of Konfig_Rec;
|
|||
|
dateiw: file of byte;
|
|||
|
datsize:longint;
|
|||
|
Register:Registers;
|
|||
|
HMIt : Array[1..maxhmenu] of string[25];
|
|||
|
cen,can,cse,
|
|||
|
CursorEnde, CursorAnf, CursorSeite : Word;
|
|||
|
|
|||
|
Konfig12:Konfig_Rec;
|
|||
|
Konfig : Konfig_Rec;
|
|||
|
|
|||
|
i : Integer;
|
|||
|
S : String;
|
|||
|
Mono : Screen ABSOLUTE $B000 : 0000;
|
|||
|
Color : Screen ABSOLUTE $B800 : 0000;
|
|||
|
ch:char;
|
|||
|
confok,
|
|||
|
HilfeRSaved:boolean;
|
|||
|
Bildspeicher,
|
|||
|
Rahmen,
|
|||
|
HilfeRahmen,
|
|||
|
EditorHilfe,
|
|||
|
HauptMenu : BildZeiger;
|
|||
|
Item:Byte;
|
|||
|
Tau:Byte;
|
|||
|
dirs:boolean;
|
|||
|
|
|||
|
HelpDatDa : Boolean;
|
|||
|
|
|||
|
|
|||
|
Function int_str (i : LongInt) : Str10;
|
|||
|
Var Hstr : String[10];
|
|||
|
Begin
|
|||
|
str(i,Hstr);
|
|||
|
int_str := Hstr;
|
|||
|
End;
|
|||
|
|
|||
|
|
|||
|
|
|||
|
Function Hex (Dezimal : LongInt; Stellenzahl : Byte) : Str8;
|
|||
|
Const HexChars : Array [0..15] of Char = ('0','1','2','3','4','5','6','7',
|
|||
|
'8','9','A','B','C','D','E','F');
|
|||
|
Var Stelle : Byte;
|
|||
|
Begin
|
|||
|
if (Stellenzahl > 8) then Stellenzahl := 8;
|
|||
|
Hex := ' ';
|
|||
|
Hex[0] := Chr(Stellenzahl);
|
|||
|
for Stelle := Stellenzahl downto 1 do
|
|||
|
begin
|
|||
|
Hex[Stelle] := HexChars[Dezimal and $0F];
|
|||
|
Dezimal := Dezimal shr 4;
|
|||
|
end;
|
|||
|
End;
|
|||
|
|
|||
|
|
|||
|
function UpC(Zeile:string):string;
|
|||
|
var z:byte;
|
|||
|
uz:string;
|
|||
|
begin
|
|||
|
uz:='';
|
|||
|
for z:=1 to length(zeile) do
|
|||
|
uz:=uz+upcase(zeile[z]);
|
|||
|
upc:=uz;
|
|||
|
end;
|
|||
|
|
|||
|
|
|||
|
Function EndFill(MaxZ : Byte; Zch : Char; FillSt : string) : string;var ifi:byte;
|
|||
|
begin
|
|||
|
while length(FillSt)<MaxZ do
|
|||
|
begin
|
|||
|
FillSt:=FillSt+Zch;
|
|||
|
end;
|
|||
|
EndFill:=FillSt;
|
|||
|
end;
|
|||
|
|
|||
|
|
|||
|
Procedure IThema (Kap : LongInt);
|
|||
|
var Zaehler:longint;
|
|||
|
Hstr:string[77];
|
|||
|
begin
|
|||
|
HZeil:=0;
|
|||
|
Zaehler:=0;
|
|||
|
{ repeat
|
|||
|
Readln(hdat,hstr);
|
|||
|
inc(Zaehler);
|
|||
|
until (Zaehler=HilfeThemen[kap]) or (EOF(HDat));
|
|||
|
|
|||
|
if not EOF(Hdat) then}
|
|||
|
Zaehler:=HilfeThemen[kap];
|
|||
|
while TextPuffer^[Zaehler]<>#13 do inc(Zaehler);
|
|||
|
inc(Zaehler);
|
|||
|
repeat
|
|||
|
|
|||
|
{ Readln(hdat,hstr);}
|
|||
|
hstr:='';
|
|||
|
while TextPuffer^[Zaehler]<>#13 do
|
|||
|
begin
|
|||
|
inc(Zaehler);
|
|||
|
if TextPuffer^[Zaehler]<>#13 then Hstr:=Hstr+TextPuffer^[zaehler];
|
|||
|
end;
|
|||
|
inc(Zaehler);
|
|||
|
if (Pos('#END#',Upc(Hstr))<>1) and (Pos('#REM',Upc(hstr))<>1) then
|
|||
|
begin
|
|||
|
case KAP of
|
|||
|
20: begin
|
|||
|
inc(HZeil);
|
|||
|
if hzeil<20 then HelpB[HZeil]:=EndFill(25,' ',Hstr)
|
|||
|
else HelpB[HZeil]:=EndFill(16,' ',Hstr);
|
|||
|
end;
|
|||
|
21: begin
|
|||
|
inc(HZeil);
|
|||
|
HelpB[HZeil]:=EndFill(25,' ',Hstr);
|
|||
|
end;
|
|||
|
30: begin
|
|||
|
inc(HZeil);
|
|||
|
HelpB[HZeil]:=EndFill(18,' ',Hstr);
|
|||
|
end;
|
|||
|
40: begin
|
|||
|
inc(HZeil);
|
|||
|
HelpB[HZeil]:=EndFill(25,' ',Hstr);
|
|||
|
end;
|
|||
|
50: begin
|
|||
|
inc(HZeil);
|
|||
|
HelpB[HZeil]:=EndFill(22,' ',Hstr);
|
|||
|
end;
|
|||
|
60: begin
|
|||
|
inc(HZeil);
|
|||
|
HelpB[HZeil]:=EndFill(25,' ',Hstr);
|
|||
|
end;
|
|||
|
70: begin
|
|||
|
inc(HZeil);
|
|||
|
HelpB[HZeil]:=EndFill(15,' ',Hstr);
|
|||
|
end;
|
|||
|
80: begin
|
|||
|
inc(HZeil);
|
|||
|
HelpB[HZeil]:=EndFill(25,' ',Hstr);
|
|||
|
end;
|
|||
|
90: begin
|
|||
|
inc(HZeil);
|
|||
|
HelpB[HZeil]:=EndFill(15,' ',Hstr);
|
|||
|
end;
|
|||
|
100: begin
|
|||
|
inc(HZeil);
|
|||
|
HelpB[HZeil]:=EndFill(24,' ',Hstr);
|
|||
|
end;
|
|||
|
else begin
|
|||
|
inc(Hzeil);
|
|||
|
HelpB[hzeil]:=hstr;
|
|||
|
end;
|
|||
|
end;
|
|||
|
end;
|
|||
|
until (upc(HStr)='#END#');
|
|||
|
end;
|
|||
|
|
|||
|
|
|||
|
Procedure Alarm;
|
|||
|
begin
|
|||
|
sound(1400);delay(20);nosound;
|
|||
|
end;
|
|||
|
|
|||
|
|
|||
|
PROCEDURE Warte (HdstlSec : WORD);
|
|||
|
VAR wi : INTEGER;
|
|||
|
wstd1, wmin1, wsec1, wsec1001 : Word;
|
|||
|
wstd2, wmin2, wsec2, wsec1002 : Word;
|
|||
|
wrsec, wrstd, wrmin, wrsec100 : word;
|
|||
|
BEGIN
|
|||
|
GETTIME (wstd1, wmin1, wsec1, wsec1001);
|
|||
|
wrsec100 := 0;
|
|||
|
wi := 0;
|
|||
|
WHILE wrsec100 < HdstlSec DO
|
|||
|
BEGIN
|
|||
|
wi := wi + 1;
|
|||
|
GETTIME (wstd2, wmin2, wsec2, wsec1002);
|
|||
|
wrstd := wstd2 - wstd1;
|
|||
|
wmin2 := wmin2 + (wrstd * 60);
|
|||
|
wrmin := wmin2 - wmin1;
|
|||
|
wsec2 := wsec2 + (wrmin * 60);
|
|||
|
wrsec := wsec2 - wsec1;
|
|||
|
wsec1002 := wsec1002 + (wrsec * 100);
|
|||
|
wrsec100 := wsec1002 - wsec1001;
|
|||
|
END;
|
|||
|
END;
|
|||
|
|
|||
|
|
|||
|
Function GDir : String;
|
|||
|
var d:byte;
|
|||
|
pf:string;
|
|||
|
|
|||
|
begin
|
|||
|
{ Getdir(0,p);}
|
|||
|
PF:=ParamStr(0);
|
|||
|
while ((PF[length(PF)]<>'\') and (PF<>'')) do
|
|||
|
begin
|
|||
|
delete(PF,length(PF),1);
|
|||
|
end;
|
|||
|
if PF[length(PF)]='\' then delete(PF,length(PF),1);
|
|||
|
GDir:=PF;
|
|||
|
end;
|
|||
|
|
|||
|
Function SubExists (Name : string;EVVerz:Boolean) : boolean;
|
|||
|
var Datei : Text;
|
|||
|
sex : boolean;
|
|||
|
begin
|
|||
|
if not EVVerz then Name := Name + '\$$TEST$$.$$$';
|
|||
|
Assign(Datei,Name);
|
|||
|
{$I-} if not evverz then Rewrite(Datei) else reset(Datei); {$I+}
|
|||
|
if IOResult = 0 then
|
|||
|
begin
|
|||
|
close(Datei);
|
|||
|
if not evverz then erase(Datei);
|
|||
|
SEx := true;
|
|||
|
end else SEx := false;
|
|||
|
SubExists:=sex;
|
|||
|
end;
|
|||
|
|
|||
|
|
|||
|
Procedure RenDir (ODirSt, NDirSt : string);
|
|||
|
var df : file;
|
|||
|
begin
|
|||
|
assign (df, OdirSt);
|
|||
|
rename(df, NdirSt);
|
|||
|
end;
|
|||
|
|
|||
|
|
|||
|
function MDir(Pfad:string; EVVerz:Boolean) : boolean;
|
|||
|
begin
|
|||
|
if not subexists(Pfad, EVVerz) then
|
|||
|
begin
|
|||
|
{$I-}
|
|||
|
{ Get directory name from command line }
|
|||
|
MkDir(pfad);
|
|||
|
if IOResult <> 0 then
|
|||
|
begin
|
|||
|
WriteLn(helpSetup[18]+': ',Pfad);
|
|||
|
mdir:=false;
|
|||
|
end
|
|||
|
else
|
|||
|
begin
|
|||
|
WriteLn(helpSetup[19]+': ', Pfad);
|
|||
|
mdir:=true;
|
|||
|
end;
|
|||
|
end else writeln(helpSetup[20]+': ', Pfad);
|
|||
|
end;
|
|||
|
|
|||
|
|
|||
|
|
|||
|
FUNCTION FarbMon : BOOLEAN;
|
|||
|
VAR Regs_ : REGISTERS;
|
|||
|
BEGIN
|
|||
|
INTR ($11, Regs_);
|
|||
|
IF Regs_.ax AND $30 = $30 THEN
|
|||
|
FarbMon := FALSE
|
|||
|
ELSE
|
|||
|
FarbMon := TRUE;
|
|||
|
END;
|
|||
|
|
|||
|
{*****************************************************}
|
|||
|
|
|||
|
Function Balken(AnzZ:Byte;Zc:char):String;
|
|||
|
var blk:string;
|
|||
|
blz:byte;
|
|||
|
begin
|
|||
|
blk:='';
|
|||
|
for blz:=1 to AnzZ do
|
|||
|
blk:=blk+Zc;
|
|||
|
Balken:=blk;
|
|||
|
end;
|
|||
|
|
|||
|
PROCEDURE SaveBild (VAR Bild : BildZeiger);
|
|||
|
BEGIN
|
|||
|
IF FarbMon THEN
|
|||
|
Bild^ := Color
|
|||
|
ELSE
|
|||
|
Bild^ := Mono;
|
|||
|
END;
|
|||
|
|
|||
|
{*****************************************************}
|
|||
|
|
|||
|
PROCEDURE LadeBild (Bild : BildZeiger);
|
|||
|
BEGIN
|
|||
|
IF FarbMon THEN
|
|||
|
Color := Bild^
|
|||
|
ELSE
|
|||
|
Mono := Bild^;
|
|||
|
END;
|
|||
|
|
|||
|
|
|||
|
PROCEDURE CursorTest;
|
|||
|
|
|||
|
BEGIN
|
|||
|
Register.ah := $0F;
|
|||
|
INTR ($10, Register);
|
|||
|
CursorSeite := Register.BH;
|
|||
|
Register.ah := $03;
|
|||
|
Register.BH := CursorSeite;
|
|||
|
INTR ($10, Register);
|
|||
|
CursorAnf := Register.ch;
|
|||
|
CursorENDe := Register.cl;
|
|||
|
END;
|
|||
|
|
|||
|
|
|||
|
|
|||
|
{*****************************************************}
|
|||
|
|
|||
|
PROCEDURE CursorAus;
|
|||
|
|
|||
|
VAR Register : REGISTERS;
|
|||
|
|
|||
|
BEGIN
|
|||
|
Register.ah := $01;
|
|||
|
Register.BH := CursorSeite;
|
|||
|
Register.ch := $20;
|
|||
|
Register.cl := $0;
|
|||
|
INTR ($10, Register);
|
|||
|
END;
|
|||
|
|
|||
|
{*****************************************************}
|
|||
|
|
|||
|
PROCEDURE CursorEin;
|
|||
|
|
|||
|
VAR Register : REGISTERS;
|
|||
|
|
|||
|
BEGIN
|
|||
|
Register.ah := $01;
|
|||
|
Register.ch := CursorAnf;
|
|||
|
Register.cl := CursorENDe;
|
|||
|
Register.BH := CursorSeite;
|
|||
|
INTR ($10, Register);
|
|||
|
|
|||
|
END;
|
|||
|
|
|||
|
|
|||
|
PROCEDURE CursorBlock;
|
|||
|
|
|||
|
VAR Register : REGISTERS;
|
|||
|
|
|||
|
BEGIN
|
|||
|
Register.ah := $01;
|
|||
|
CursorAnf := 1;
|
|||
|
CursorENDe := 7;
|
|||
|
IF NOT FarbMon THEN
|
|||
|
CursorENDe := 13;
|
|||
|
Register.ch := CursorAnf;
|
|||
|
Register.cl := CursorENDe;
|
|||
|
INTR ($10, Register);
|
|||
|
|
|||
|
END;
|
|||
|
|
|||
|
{*****************************************************}
|
|||
|
|
|||
|
PROCEDURE CursorStrich;
|
|||
|
|
|||
|
VAR Register : REGISTERS;
|
|||
|
|
|||
|
BEGIN
|
|||
|
Register.ah := $01;
|
|||
|
CursorAnf := 6;
|
|||
|
CursorENDe := 7;
|
|||
|
IF NOT FarbMon THEN
|
|||
|
BEGIN
|
|||
|
CursorAnf := 12;
|
|||
|
CursorENDe := 13;
|
|||
|
END;
|
|||
|
Register.ch := CursorAnf;
|
|||
|
Register.cl := CursorENDe;
|
|||
|
INTR ($10, Register);
|
|||
|
|
|||
|
END;
|
|||
|
|
|||
|
{*****************************************************}
|
|||
|
|
|||
|
|
|||
|
PROCEDURE FARBE (Vorn, Hinten : BYTE);
|
|||
|
BEGIN
|
|||
|
TEXTCOLOR (Vorn);
|
|||
|
TEXTBACKGROUND (Hinten);
|
|||
|
END;
|
|||
|
|
|||
|
PROCEDURE TextZent (Txt : STRING;
|
|||
|
xl, xr, y : INTEGER);
|
|||
|
|
|||
|
VAR
|
|||
|
j, k, i, xmax : INTEGER;
|
|||
|
|
|||
|
BEGIN
|
|||
|
xmax := xr - xl;
|
|||
|
i := LENGTH (Txt);
|
|||
|
j := xmax - i;
|
|||
|
j := j DIV 2;
|
|||
|
GOTOXY (xl + j, y);
|
|||
|
WRITE (Txt);
|
|||
|
END;
|
|||
|
|
|||
|
Function MakeString(Zahl:Integer) : String;
|
|||
|
var mst:string;
|
|||
|
begin
|
|||
|
str(Zahl, MSt);
|
|||
|
Makestring:=mst;
|
|||
|
end;
|
|||
|
|
|||
|
Function MakeInt(Zch:string) : integer;
|
|||
|
var Za, feh: integer;
|
|||
|
begin
|
|||
|
val(Zch, Za, feh);
|
|||
|
MakeInt:=za;
|
|||
|
end;
|
|||
|
|
|||
|
|
|||
|
PROCEDURE Help(Edit : Boolean; VorHelp:Integer);
|
|||
|
const yh=1;
|
|||
|
var tsa :char;
|
|||
|
min, max, ordnung,
|
|||
|
ih :byte;
|
|||
|
Hscreen,
|
|||
|
raus :boolean;
|
|||
|
|
|||
|
begin
|
|||
|
min:=1;
|
|||
|
|
|||
|
{case ih of
|
|||
|
3: begin
|
|||
|
Ordnung:=HTNCN
|
|||
|
end;
|
|||
|
4: ordnung:=HTncIniN;
|
|||
|
5: ordnung:=htncdeinin;
|
|||
|
6: ordnung:=hdirsn;
|
|||
|
7: ordnung:=HverN;
|
|||
|
8: ordnung:=hmailN;
|
|||
|
9: ordnung:=hramn;
|
|||
|
10: ordnung:=hprtn;
|
|||
|
11: ordnung:=hblindN;
|
|||
|
12: ordnung:=hquietN;
|
|||
|
end;}
|
|||
|
|
|||
|
Hscreen:=true;
|
|||
|
cursoraus;
|
|||
|
SaveBild(EditorHilfe);
|
|||
|
farbe(highvg,highhg);
|
|||
|
IThema(HelpNr);
|
|||
|
HelpB[hzeil+1]:='';
|
|||
|
if Edit then
|
|||
|
begin
|
|||
|
max:=HZeil;
|
|||
|
for ordnung:=1 to HEditorN do
|
|||
|
HelpB[Hzeil+ordnung+1]:=HelpEditor[ordnung];
|
|||
|
HZeil:=max+HEditorN+1;
|
|||
|
end;
|
|||
|
ordnung:=HZeil;
|
|||
|
max:=ordnung;
|
|||
|
if ordnung>22 then max:=22;
|
|||
|
if not HilfeRSaved then
|
|||
|
begin
|
|||
|
gotoxy(1,1);
|
|||
|
write('<27>'+BAlken(78,'<27>')+'<27>');
|
|||
|
|
|||
|
for ih:=1 to 22 do
|
|||
|
write('<27>'+balken(78,' ')+'<27>');
|
|||
|
|
|||
|
write('<27>'+BAlken(78,'<27>')+'<27>');
|
|||
|
textzent(' '+helpSetup[1]+' ',1,80,1);
|
|||
|
SaveBild(HilfeRahmen);
|
|||
|
HilfeRSaved:=true;
|
|||
|
end else LadeBild(HilfeRahmen);
|
|||
|
repeat
|
|||
|
if Hscreen then
|
|||
|
begin
|
|||
|
window(1,1,80,25); gotoxy(1,24);
|
|||
|
write('<27>'+BAlken(78,'<27>')+'<27>');
|
|||
|
textzent(' '+helpSetup[3]+' ',1,80,24);
|
|||
|
window(2,2,79,23); clrscr;
|
|||
|
for ih:=min to max-1 do
|
|||
|
writeln(helpb[ih]);
|
|||
|
write(helpb[max]);
|
|||
|
end;
|
|||
|
|
|||
|
tsa:=taste;
|
|||
|
raus:=true;
|
|||
|
Hscreen:=true;
|
|||
|
case Tsa of
|
|||
|
Pgdn: begin
|
|||
|
if max<ordnung then
|
|||
|
begin
|
|||
|
min:=min+22;
|
|||
|
max:=max+22;
|
|||
|
if max>ordnung then max:=ordnung;
|
|||
|
end else
|
|||
|
begin
|
|||
|
alarm;
|
|||
|
HScreen:=false;
|
|||
|
end;
|
|||
|
end;
|
|||
|
Pgup: begin
|
|||
|
if min>1 then
|
|||
|
begin
|
|||
|
min:=min-22;
|
|||
|
max:=min+21;
|
|||
|
if max>ordnung then max:=ordnung;
|
|||
|
end else
|
|||
|
begin
|
|||
|
alarm;
|
|||
|
HScreen:=false;
|
|||
|
end;
|
|||
|
end;
|
|||
|
end;
|
|||
|
|
|||
|
if (Tsa=PgUp) or (tsa=PgDn) then
|
|||
|
begin
|
|||
|
raus:=false;
|
|||
|
{Hscreen:= not Hscreen; }
|
|||
|
end;
|
|||
|
|
|||
|
until raus;
|
|||
|
window(1,1,80,25);
|
|||
|
if VorHelp<>0 then IThema(VorHelp);
|
|||
|
LadeBild(EditorHilfe);
|
|||
|
end;
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
PROCEDURE Editor(VAR Zeile:String;xe,ye,Stellen:Byte;Gross,spaces:Boolean;VAR T:Char;VH:integer);
|
|||
|
var xpo : integer;
|
|||
|
zeilang : integer;
|
|||
|
einfuegen,
|
|||
|
korrekt : boolean;
|
|||
|
zaeh : integer;
|
|||
|
hzeil : string;
|
|||
|
begin
|
|||
|
xpo:=1;
|
|||
|
einfuegen:=false;
|
|||
|
CursorBlock;
|
|||
|
zeilang:=length(zeile);
|
|||
|
Repeat
|
|||
|
gotoxy(xe-1+xpo,ye);
|
|||
|
t:=taste;
|
|||
|
gotoxy(xe,ye);
|
|||
|
korrekt:=false;
|
|||
|
case t of
|
|||
|
F1: begin
|
|||
|
Help(true,VH);
|
|||
|
gotoxy(xe-1+xpo,ye);
|
|||
|
cursorein;
|
|||
|
end;
|
|||
|
Einf: begin
|
|||
|
einfuegen := not einfuegen;
|
|||
|
if einfuegen then CursorStrich else CursorBlock;
|
|||
|
end;
|
|||
|
cslt: begin
|
|||
|
dec(xpo);
|
|||
|
if xpo<1 then
|
|||
|
begin
|
|||
|
xpo:=1;
|
|||
|
alarm
|
|||
|
end;
|
|||
|
end;
|
|||
|
csrt: begin
|
|||
|
inc(xpo);
|
|||
|
if xpo>stellen then begin
|
|||
|
xpo:=stellen;
|
|||
|
alarm
|
|||
|
end;
|
|||
|
end;
|
|||
|
Pos1: begin
|
|||
|
xpo:=1;
|
|||
|
end;
|
|||
|
Ende: begin
|
|||
|
if xpo<zeilang+1 then xpo:=zeilang+1;
|
|||
|
if xpo>stellen then xpo:=stellen;
|
|||
|
end;
|
|||
|
#8: begin
|
|||
|
if (xpo>1) and (zeilang<>0) then
|
|||
|
begin
|
|||
|
hzeil:='';
|
|||
|
for zaeh:=1 to length(zeile) do
|
|||
|
if zaeh<>xpo-1 then hzeil:=hzeil+Zeile[zaeh];
|
|||
|
Zeile:=hzeil;
|
|||
|
dec(xpo);
|
|||
|
farbe(highvg,highhg);
|
|||
|
gotoxy(xe,ye); write(zeile+' ');
|
|||
|
dec(zeilang);
|
|||
|
end else Alarm;
|
|||
|
end;
|
|||
|
Entf: begin
|
|||
|
if (zeilang<>0) then
|
|||
|
begin
|
|||
|
hzeil:='';
|
|||
|
for zaeh:=1 to length(zeile) do
|
|||
|
if zaeh<>xpo then hzeil:=hzeil+Zeile[zaeh];
|
|||
|
Zeile:=hzeil;
|
|||
|
farbe(highvg,highhg);
|
|||
|
gotoxy(xe,ye); write(zeile+' ');
|
|||
|
dec(zeilang);
|
|||
|
end else Alarm;
|
|||
|
end;
|
|||
|
end;
|
|||
|
if (not spaces) and (T=#32) then t:=#1;
|
|||
|
if (T in [#32..#126, #129..#165]) then
|
|||
|
begin
|
|||
|
if Gross then T:=Upcase(T);
|
|||
|
if einfuegen then
|
|||
|
begin
|
|||
|
if ((xpo<=Stellen) and (zeilang<stellen)) then
|
|||
|
begin
|
|||
|
zeilang:=length(zeile);
|
|||
|
if (einfuegen) and (zeilang>0) and (xpo<=zeilang) then
|
|||
|
begin
|
|||
|
hzeil:='';
|
|||
|
for zaeh:=1 to zeilang do
|
|||
|
begin
|
|||
|
if zaeh=xpo then hzeil:=hzeil+t;
|
|||
|
hzeil:=hzeil+zeile[zaeh];
|
|||
|
end;
|
|||
|
zeile:=hzeil;
|
|||
|
end else zeile:=zeile+t;
|
|||
|
farbe(highvg,highhg);
|
|||
|
write(zeile);
|
|||
|
inc(xpo);
|
|||
|
inc(zeilang);
|
|||
|
zeilang:=length(zeile);
|
|||
|
end else alarm;
|
|||
|
end; {if einfuegen}
|
|||
|
if not einfuegen then
|
|||
|
begin
|
|||
|
if (zeilang<xpo) and (xpo<=stellen) then
|
|||
|
begin
|
|||
|
zeile:=zeile+t;
|
|||
|
if xpo<stellen then inc(xpo);
|
|||
|
zeilang:=length(zeile);
|
|||
|
farbe(highvg,highhg);
|
|||
|
write(zeile);
|
|||
|
end
|
|||
|
else begin
|
|||
|
if xpo<=zeilang then zeile[xpo]:=t else alarm;
|
|||
|
if xpo<stellen then inc(xpo);
|
|||
|
farbe(highvg,highhg);
|
|||
|
write(zeile);
|
|||
|
end;
|
|||
|
end;
|
|||
|
if xpo>Stellen then xpo:=Stellen;
|
|||
|
end;
|
|||
|
Until T in [ESC, PgUp, PgDn, CR, CSDn, CSUp, TAB, Shift_Tab];
|
|||
|
cursorstrich;
|
|||
|
cursorAus;
|
|||
|
end;
|
|||
|
|
|||
|
|
|||
|
|
|||
|
Procedure InitVar;
|
|||
|
var tn:byte;
|
|||
|
verz:string;
|
|||
|
begin
|
|||
|
verz:=gdir;
|
|||
|
FillChar(Konfig,SizeOf(Konfig),0);
|
|||
|
with Konfig do
|
|||
|
begin
|
|||
|
Kenner:=kennst;
|
|||
|
for tn:=1 to maxtnc do
|
|||
|
begin
|
|||
|
if tn=1 then TNC[tn].Art :=1
|
|||
|
else TNC[tn].Art :=0;
|
|||
|
TNC[tn].MaxKan :=10;
|
|||
|
TNC[tn].NodeKan :=0;
|
|||
|
TNC[tn].Identi :='XP';
|
|||
|
TNC[tn].Port := 0;
|
|||
|
TNC[tn].Tickzeile :=false;
|
|||
|
TNC[tn].Com :=1;
|
|||
|
TNC[tn].IRQ :=4;
|
|||
|
TNC[tn].Adresse :='3F8';
|
|||
|
TNC[tn].Baud :=9600;
|
|||
|
TNC[tn].Fifo :=False;
|
|||
|
TNC[tn].MultiplexNr:=0;
|
|||
|
tnc[tn].PortNam :='TNC-Port '+MakeString(tn);
|
|||
|
TNC[tn].AfuPort :=false;
|
|||
|
for i:=1 to 16 do tnc[tn].IniA[i]:='';
|
|||
|
for i:=1 to 16 do tnc[tn].DIniA[i]:='';
|
|||
|
tnc[tn].IniA[1]:='XP0TER';
|
|||
|
tnc[tn].IniA[2]:='XP0NOD';
|
|||
|
tnc[tn].IniA[3]:='C XP';
|
|||
|
tnc[tn].IniA[4]:='@T3 30000';
|
|||
|
tnc[tn].iniA[5]:='M UISC';
|
|||
|
tnc[tn].iniA[6]:='W 10';
|
|||
|
tnc[tn].iniA[7]:='F 300';
|
|||
|
tnc[tn].iniA[8]:='T 25';
|
|||
|
tnc[tn].iniA[9]:='@T2 150';
|
|||
|
tnc[tn].iniA[10]:='P 80';
|
|||
|
tnc[tn].iniA[11]:='N 20';
|
|||
|
tnc[tn].iniA[11]:='X 1';
|
|||
|
tnc[tn].IniB:='U 0';
|
|||
|
tnc[tn].DIniB:='U 1 Sri, Terminal im DOS.';
|
|||
|
end;
|
|||
|
|
|||
|
RemVerz:= Verz+'\REMOTE';
|
|||
|
SavVerz:= Verz+'\SAVE';
|
|||
|
MailVerz:= VErz+'\MAIL';
|
|||
|
RunVerz:= Verz+'\RUN';
|
|||
|
tempVerz:= Verz+'\TMP';
|
|||
|
BinVerz:= Verz+'\BIN';
|
|||
|
SPlVerz:= Verz+'\7PLUS';
|
|||
|
MakVerz:= Verz+'\MAKRO';
|
|||
|
ViewVerz:= Verz+'\VIEWER\VIEW.EXE';
|
|||
|
EditVerz:= Verz+'\EDITOR\EDITOR.EXE';
|
|||
|
spkverz:= verz+'\SPK';
|
|||
|
CDRom := 'R';
|
|||
|
|
|||
|
ZeitBez := 'MEZ';
|
|||
|
UTCDiff := -1;
|
|||
|
UTCBenutzen:= false;
|
|||
|
Echtzeit := true;
|
|||
|
PopupZeit := 5;
|
|||
|
LockIRQ := FALSE;
|
|||
|
SichAbfr := TRUE;
|
|||
|
IDLE := FALSE;
|
|||
|
ScrSavZ := 5;
|
|||
|
PromptS := '#CALL# de #MCAL#>';
|
|||
|
NTimeOut := 30;
|
|||
|
TTimeOut := 0;
|
|||
|
MaxFrameStd := 2;
|
|||
|
PacLenStd := 230;
|
|||
|
MaxNodes := 30;
|
|||
|
Lifetime := 90;
|
|||
|
|
|||
|
MH := 30;
|
|||
|
BackScRam := 4;
|
|||
|
VorschZRam := 20;
|
|||
|
BufferDat := false;
|
|||
|
|
|||
|
LPTNr := 1;
|
|||
|
LPTAdr := '3BC';
|
|||
|
|
|||
|
SoftHardC := false;
|
|||
|
WinRout := false;
|
|||
|
WinRoutTime := 1;
|
|||
|
RXBeepStart := TRUE;
|
|||
|
AchzigBrail := True;
|
|||
|
Steuerz := True;
|
|||
|
MarkTon := True;
|
|||
|
AusgabeBios := FAlse;
|
|||
|
|
|||
|
MailFErl := true;
|
|||
|
for i:=1 to 10 do MailFrame[i]:='';
|
|||
|
MailFrame[1]:='MAIL';
|
|||
|
|
|||
|
OwnMailFr := True;
|
|||
|
OwnMailPfad := 'MAIL';
|
|||
|
MailFrameZeit := 60;
|
|||
|
|
|||
|
MaxLoginUser := 3;
|
|||
|
ReqNam:=true;
|
|||
|
|
|||
|
quietDH:=false;
|
|||
|
quietzg:=false;
|
|||
|
for i:=1 to 3 do
|
|||
|
begin
|
|||
|
QuietZt[i].StdAnf:=12;
|
|||
|
QuietZt[i].minanf:=0;
|
|||
|
QuietZt[i].minend:=0;
|
|||
|
QuietZt[i].Stdend:=12;
|
|||
|
quietzt[i].aktiv:=false;
|
|||
|
end;
|
|||
|
PersName:='';
|
|||
|
PersLoc:='';
|
|||
|
PersQTH:='';
|
|||
|
end;
|
|||
|
end;
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
Procedure DirCheck;
|
|||
|
begin
|
|||
|
writeln;writeln;
|
|||
|
farbe(white,black);
|
|||
|
writeln(helpSetup[21]+':');
|
|||
|
writeln;
|
|||
|
with konfig do
|
|||
|
begin
|
|||
|
dirs:=mdir (RemVerz,false);
|
|||
|
dirs:=mdir (SavVerz,false);
|
|||
|
dirs:=mdir (MailVerz,false);
|
|||
|
dirs:=mdir (RunVerz,false);
|
|||
|
dirs:=mdir (BinVerz,false);
|
|||
|
dirs:=mdir (splVerz,false);
|
|||
|
dirs:=mdir (makVerz,false);
|
|||
|
dirs:=mdir (TempVerz,false);
|
|||
|
writeln;
|
|||
|
writeln;
|
|||
|
writeln(helpSetup[22]+':');
|
|||
|
writeln;
|
|||
|
if not SubExists(ViewVerz,true) then writeln(viewverz+' '+helpSetup[23]+'!')
|
|||
|
else writeln(viewverz+' '+helpSetup[24]+'.');
|
|||
|
if not SubExists(editVerz,true) then writeln(editverz+' '+helpSetup[23]+'!')
|
|||
|
else writeln(editverz+' '+helpSetup[24]+'.');
|
|||
|
end;
|
|||
|
writeln;
|
|||
|
end;
|
|||
|
|
|||
|
|
|||
|
|
|||
|
Procedure HMenu(VAR It:Byte; Var Tast:Char);
|
|||
|
var italt:byte;
|
|||
|
flagy:boolean;
|
|||
|
begin
|
|||
|
italt:=it;
|
|||
|
Repeat
|
|||
|
flagy:=false;
|
|||
|
CursorAus;
|
|||
|
farbe(white, black);
|
|||
|
TextZent(Balken(25,' '),2,80,y+2+italt);
|
|||
|
TextZent(HMIt[itAlt],2,80,y+2+italt);
|
|||
|
italt:=it;
|
|||
|
farbe(highvg, highhg);
|
|||
|
TextZent(Balken(25,' '),2,80,y+2+it);
|
|||
|
TextZent(HMIt[it],2,80,y+2+it);
|
|||
|
if (Konfig.PersName='') or (Konfig.PersLoc='') or (Konfig.PersQTH='') then
|
|||
|
begin
|
|||
|
flagy:=true;
|
|||
|
it:=9;
|
|||
|
tast:=CR;
|
|||
|
end;
|
|||
|
if not flagy then Tast:=taste;
|
|||
|
Case Tast Of
|
|||
|
CsDn,
|
|||
|
CsRt: It:=it+1;
|
|||
|
CsUp,
|
|||
|
CsLt: It:=It-1;
|
|||
|
Pos1: It:=1;
|
|||
|
Ende: It:=maxhmenu;
|
|||
|
end;
|
|||
|
if it>maxhmenu then it:=1;
|
|||
|
if it<1 then it:=maxhmenu;
|
|||
|
until (Tast=ESC) or (Tast=CR);
|
|||
|
CursorEin;
|
|||
|
end;
|
|||
|
|
|||
|
|
|||
|
Procedure TNCIniDeini(Ini : Boolean);
|
|||
|
var x, y:Byte;
|
|||
|
Tast:char;
|
|||
|
Eingabe:string;
|
|||
|
Ausw:Byte;
|
|||
|
Lang:Byte;
|
|||
|
|
|||
|
begin
|
|||
|
eingabe:='';
|
|||
|
farbe(white,Black);
|
|||
|
clrscr;
|
|||
|
ladebild(Rahmen);
|
|||
|
if ini then begin
|
|||
|
Textzent(helpSetup[10]+' '+MakeString(Tau),2,80,ytid-2);
|
|||
|
textzent(endfill(length(helpSetup[10])+2,'<27>',eingabe),2,80,ytid-1);
|
|||
|
farbe(Specvg, black);
|
|||
|
textzent(helpSetup[8],2,80,23);
|
|||
|
end
|
|||
|
else begin
|
|||
|
Textzent(helpSetup[11]+' '+MakeString(Tau),2,80,ytid-2);
|
|||
|
textzent(endfill(length(helpSetup[11])+2,'<27>',eingabe),2,80,ytid-1);
|
|||
|
farbe(Specvg, black);
|
|||
|
textzent(helpSetup[8],2,80,23);
|
|||
|
end;
|
|||
|
farbe(white,black);
|
|||
|
y:=ytid-1; x:=xtid;
|
|||
|
gotoxy(x,y+2); write(HelpB[17]+':');
|
|||
|
gotoxy(x,y+4); write(HelpB[18]+':');
|
|||
|
farbe(highvg,highhg);
|
|||
|
for i:=1 to 16 do
|
|||
|
begin
|
|||
|
y:=y+2;
|
|||
|
if i=9 then
|
|||
|
begin
|
|||
|
y:=ytid+1;
|
|||
|
x:=xtid+40;
|
|||
|
end;
|
|||
|
|
|||
|
if (i in [1,2]) and (ini) then gotoxy(x+18,y) else gotoxy(x,y);
|
|||
|
if (i in [1,2]) and (ini) then write(Balken(12,' ')) else write(Balken(30,' '));
|
|||
|
if (i in [1,2]) and (ini) then gotoxy(x+18,y) else gotoxy(x,y);
|
|||
|
if ini then write(Konfig.TNC[tau].INIA[i])
|
|||
|
else write(Konfig.TNC[tau].DINIA[i]);
|
|||
|
end;
|
|||
|
gotoxy(xtid,y+2);
|
|||
|
write(Balken(70,' '));
|
|||
|
gotoxy(xtid,y+2);
|
|||
|
if ini then write(Konfig.TNC[tau].inib)
|
|||
|
else write(Konfig.TNC[tau].Dinib);
|
|||
|
|
|||
|
Ausw:=1;
|
|||
|
|
|||
|
|
|||
|
repeat
|
|||
|
{Tast:=Taste;}
|
|||
|
Case Tast of
|
|||
|
F1:Help(false,0);
|
|||
|
cr,csdn,tab:
|
|||
|
begin
|
|||
|
inc(Ausw);
|
|||
|
if Ausw>17 then Ausw:=1;
|
|||
|
end;
|
|||
|
csUP,shift_tab:
|
|||
|
begin
|
|||
|
Dec(Ausw);
|
|||
|
if Ausw<1 then Ausw:=17;
|
|||
|
end;
|
|||
|
end;
|
|||
|
|
|||
|
Case Ausw of
|
|||
|
1,2,3,4,5,6,7,8:
|
|||
|
begin
|
|||
|
y:=0;
|
|||
|
for i:=1 to Ausw do y:=y+2;
|
|||
|
y:=y+ytid-1;
|
|||
|
x:=xtid;
|
|||
|
lang:=30;
|
|||
|
if ini then eingabe:=Konfig.tnc[tau].IniA[Ausw]
|
|||
|
else eingabe:=Konfig.tnc[tau].DIniA[Ausw]
|
|||
|
end;
|
|||
|
9..16:
|
|||
|
begin
|
|||
|
y:=0;
|
|||
|
for i:=9 to Ausw do y:=y+2;
|
|||
|
y:=y+ytid-1;
|
|||
|
x:=xtid+40;
|
|||
|
lang:=30;
|
|||
|
if ini then eingabe:=Konfig.tnc[tau].Inia[i]
|
|||
|
else eingabe:=Konfig.tnc[tau].DInia[i];
|
|||
|
end;
|
|||
|
17:
|
|||
|
begin
|
|||
|
y:=ytid+17;
|
|||
|
x:=xtid;
|
|||
|
lang:=70;
|
|||
|
if ini then eingabe:=Konfig.tnc[tau].IniB
|
|||
|
else eingabe:=Konfig.tnc[tau].DInib
|
|||
|
end;
|
|||
|
end;
|
|||
|
|
|||
|
|
|||
|
if (Ausw in [1,2]) and (ini) then
|
|||
|
begin
|
|||
|
repeat
|
|||
|
if eingabe='#' then
|
|||
|
begin
|
|||
|
eingabe:='';
|
|||
|
if (ausw in [1,2]) and (ini) then gotoxy(xtid+18,ytid-1+(ausw*2));
|
|||
|
if (ausw in [1,2]) and (ini) then write(Balken(12,' '));
|
|||
|
end;
|
|||
|
Editor(eingabe,x+18,y,12,true,false,Tast,0);
|
|||
|
i:=0;
|
|||
|
if eingabe<>'#' then
|
|||
|
while (Length(eingabe)>i) do
|
|||
|
begin
|
|||
|
inc(i);
|
|||
|
if not (eingabe[i] in ['A'..'Z', 'a'..'z', '1'..'9', '0', '-']) then eingabe:='#';
|
|||
|
end;
|
|||
|
until eingabe<>'#';
|
|||
|
end;
|
|||
|
if (ini) and (AUsw >2) then Editor(eingabe,x,y,lang,false,true,Tast,0);
|
|||
|
if not ini then Editor(eingabe,x,y,lang,false,true,Tast,0);
|
|||
|
|
|||
|
|
|||
|
Case Ausw of
|
|||
|
1..16: begin
|
|||
|
if ini then Konfig.tnc[tau].IniA[Ausw]:=eingabe
|
|||
|
else Konfig.tnc[tau].DIniA[Ausw]:=eingabe;
|
|||
|
end;
|
|||
|
17:
|
|||
|
begin
|
|||
|
if ini then Konfig.tnc[tau].IniB:=eingabe
|
|||
|
else Konfig.tnc[tau].DInib:=eingabe;
|
|||
|
end;
|
|||
|
end;
|
|||
|
until Tast=ESC;
|
|||
|
end;
|
|||
|
|
|||
|
|
|||
|
Procedure tncMaske(tau:byte; stat:Byte); {//db1ras}
|
|||
|
var dummy:string;
|
|||
|
Begin
|
|||
|
farbe(white,black);
|
|||
|
If stat=0 Then Begin
|
|||
|
dummy:='';
|
|||
|
IThema(20);
|
|||
|
clrscr;
|
|||
|
ladebild(Rahmen);
|
|||
|
TEXTZent(helpSetup[9]+' '+MakeString(Tau),2,80,ytnc-1);
|
|||
|
TextZent(EndFill(length(helpSetup[9])+2,'<27>',dummy),2,80,ytnc);
|
|||
|
End;
|
|||
|
With Konfig Do Begin
|
|||
|
gotoxy(xtnc,ytnc+1); writeln(helpb[1]+': ',TNC_Art[TNC[tau].Art]);
|
|||
|
If TNC[tau].Art=0 Then
|
|||
|
farbe(DarkGray,black);
|
|||
|
gotoxy(xtnc,ytnc+2); writeln(helpb[2]+': ',TNC[tau].IDenti);
|
|||
|
gotoxy(xtnc,ytnc+3); writeln(helpb[3]+': ',TNC[Tau].Port);
|
|||
|
gotoxy(xtnc,ytnc+4); writeln(helpb[4]+': ',TNC[tau].MaxKan);
|
|||
|
gotoxy(xtnc,ytnc+5); writeln(helpb[5]+': ');
|
|||
|
gotoxy(xtnc+27,ytnc+5);
|
|||
|
if TNC[tau].Tickzeile then write (respt[1]) else write(RespT[2]);
|
|||
|
|
|||
|
If TNC[tau].Art=3 Then
|
|||
|
farbe(DarkGray,black);
|
|||
|
gotoxy(xtnc,ytnc+6); writeln(helpb[6]+': ',TNC[tau].COM);
|
|||
|
gotoxy(xtnc,ytnc+7); writeln(helpb[7]+': ',TNC[tau].Adresse);
|
|||
|
gotoxy(xtnc,ytnc+8); writeln(helpb[8]+': ',TNC[tau].irq);
|
|||
|
gotoxy(xtnc,ytnc+9); writeln(helpb[9]+': ',TNC[tau].Baud);
|
|||
|
gotoxy(xtnc,ytnc+10);writeln(helpb[10]+': ',TNC[tau].Multiplexnr);
|
|||
|
gotoxy(xtnc,ytnc+11);write (helpb[11]+': ');
|
|||
|
if TNC[tau].Fifo then write(respt[1]) else write(RespT[2]);
|
|||
|
|
|||
|
If TNC[tau].Art=3 Then
|
|||
|
farbe(white,black);
|
|||
|
gotoxy(xtnc,ytnc+12);write(helpb[12]+': ',konfig.tnc[tau].portnam);
|
|||
|
gotoxy(xtnc,ytnc+13);write(helpb[13]+': ',konfig.tnc[tau].NodeKan,' ');
|
|||
|
gotoxy(Xtnc, ytnc+14); write(HelpB[16]+': ');
|
|||
|
if TNC[tau].AfuPort then write(respt[1]) else write(RespT[2]);
|
|||
|
gotoxy(xtnc, ytnc+15); write(HelpB[14]);
|
|||
|
gotoxy(xtnc, ytnc+16); write(HelpB[15]);
|
|||
|
If TNC[tau].Art=0 Then
|
|||
|
farbe(white,black);
|
|||
|
End;
|
|||
|
If stat=0 Then Begin
|
|||
|
textzent(helpSetup[7],2,80,21);
|
|||
|
farbe(specvg,black);
|
|||
|
textzent(helpSetup[4],2,80,22);
|
|||
|
textzent(helpSetup[8],2,80,23);
|
|||
|
farbe(white,black);
|
|||
|
End;
|
|||
|
End;
|
|||
|
|
|||
|
|
|||
|
PROCEDURE TNCSet;
|
|||
|
var tast:char;
|
|||
|
fuel:byte;
|
|||
|
Ausw, Auswa : Byte;
|
|||
|
Change:boolean;
|
|||
|
|
|||
|
begin
|
|||
|
HelpNr:=3;
|
|||
|
with Konfig do
|
|||
|
begin
|
|||
|
Ausw:=1;
|
|||
|
farbe(white, black);
|
|||
|
clrscr;
|
|||
|
cursoraus;
|
|||
|
{COM, IRq; ADR, Tick, Art, MaxKan, Multiplex, Fifo, Port, Baud, ID}
|
|||
|
|
|||
|
tncmaske(tau,0);
|
|||
|
farbe(highvg,highhg);
|
|||
|
gotoxy(xtnc+27,ytnc+1);write(tnc_art[tnc[tau].art]);
|
|||
|
change:=true;
|
|||
|
repeat
|
|||
|
if (Ausw<>2) and (ausw<>7) and (ausw<>12) then tast:=taste;
|
|||
|
Auswa:=ausw;
|
|||
|
Case Tast of
|
|||
|
Pgdn:
|
|||
|
begin
|
|||
|
Tau:=tau+1;
|
|||
|
if Tau>8 then Tau:=1;
|
|||
|
tncMaske(Tau,0);
|
|||
|
farbe(highvg,highhg);
|
|||
|
gotoxy(xtnc+27,ytnc+1);write(tnc_art[tnc[tau].art]);
|
|||
|
Ausw:=1;
|
|||
|
end;
|
|||
|
PgUp:
|
|||
|
begin
|
|||
|
Tau:=tau-1;
|
|||
|
if Tau<1 then Tau:=8;
|
|||
|
tncMaske(Tau,0);
|
|||
|
farbe(highvg,highhg);
|
|||
|
gotoxy(xtnc+27,ytnc+1);write(tnc_art[tnc[tau].art]);
|
|||
|
Ausw:=1;
|
|||
|
end;
|
|||
|
CsDn, Tab:
|
|||
|
begin
|
|||
|
If tnc[tau].art<>0 Then Begin {//db1ras}
|
|||
|
Ausw:=Ausw+1;
|
|||
|
if Ausw>16 then Ausw:=1;
|
|||
|
If (tnc[tau].art=3) And (Ausw=6) Then Ausw:=12; {//db1ras}
|
|||
|
Change:=true;
|
|||
|
End;
|
|||
|
end;
|
|||
|
CR:
|
|||
|
begin
|
|||
|
if (Ausw<>15) and (Ausw<>16) And (tnc[tau].art<>0) then {//db1ras}
|
|||
|
begin
|
|||
|
Ausw:=Ausw+1;
|
|||
|
if Ausw>16 then Ausw:=1;
|
|||
|
If (tnc[tau].art=3) And (Ausw=6) Then Ausw:=12; {//db1ras}
|
|||
|
Change:=true;
|
|||
|
tast:=#1;
|
|||
|
end;
|
|||
|
end;
|
|||
|
CsUp, Shift_Tab:
|
|||
|
begin
|
|||
|
If tnc[tau].art<>0 Then Begin {//db1ras}
|
|||
|
Ausw:=Ausw-1;
|
|||
|
if Ausw<1 then Ausw:=16;
|
|||
|
If (tnc[tau].art=3) And (Ausw=11) Then Ausw:=5; {//db1ras}
|
|||
|
Change:=true;
|
|||
|
End;
|
|||
|
end;
|
|||
|
end;
|
|||
|
|
|||
|
if Change then
|
|||
|
begin
|
|||
|
change:=false;
|
|||
|
farbe(white,black);
|
|||
|
gotoxy(xtnc+27,ytnc+Auswa);
|
|||
|
case AuswA of
|
|||
|
1: write(tnc_art[tnc[tau].art]);
|
|||
|
2: write(tnc[tau].identi+' ');
|
|||
|
3: write(tnc[tau].port);
|
|||
|
4: write(tnc[tau].maxkan,' ');
|
|||
|
5: if TNC[tau].Tickzeile then write (RespT[1]) else write(RespT[2]);
|
|||
|
6: write(tnc[tau].com);
|
|||
|
7: write(tnc[tau].adresse+' ');
|
|||
|
8: write(tnc[tau].irq,' ');
|
|||
|
9: write(tnc[tau].baud,' ');
|
|||
|
10:write(tnc[tau].MultiplexNr);
|
|||
|
11:begin
|
|||
|
if tnc[tau].Fifo then write(RespT[1]) else write(RespT[2]);
|
|||
|
end;
|
|||
|
12:begin
|
|||
|
write(balken(21,' '));
|
|||
|
gotoxy(xtnc+27,ytnc+Auswa);
|
|||
|
write(tnc[tau].PortNam);
|
|||
|
end;
|
|||
|
13: write(tnc[tau].NodeKan,' ');
|
|||
|
14: if tnc[tau].AfuPort then write(RespT[1]) else write(RespT[2]);
|
|||
|
15: begin
|
|||
|
gotoxy(xtnc,ytnc+auswa);
|
|||
|
Write(HelpB[14]);
|
|||
|
end;
|
|||
|
|
|||
|
16: begin
|
|||
|
gotoxy(xtnc,ytnc+auswa);
|
|||
|
Write(HelpB[15]);
|
|||
|
end;
|
|||
|
end;
|
|||
|
farbe(highhg,black);
|
|||
|
{ textzent(Balken(78,' '),2,80,21);}
|
|||
|
textzent(Balken(78,' '),2,80,22);
|
|||
|
textzent(Balken(78,' '),2,80,23);
|
|||
|
farbe(highvg, highhg);
|
|||
|
gotoxy(xtnc+27,ytnc+Ausw);
|
|||
|
case Ausw of
|
|||
|
1: begin
|
|||
|
write(tnc_art[tnc[tau].art]);
|
|||
|
farbe(specvg,black);
|
|||
|
textzent(helpSetup[4],2,80,22);
|
|||
|
textzent(helpSetup[8],2,80,23);
|
|||
|
end;
|
|||
|
2: begin
|
|||
|
write(tnc[tau].identi);
|
|||
|
farbe(specvg,black);
|
|||
|
textzent(helpSetup[8],2,80,23);
|
|||
|
end;
|
|||
|
3: begin
|
|||
|
write(tnc[tau].port);
|
|||
|
farbe(specvg,black);
|
|||
|
textzent(helpSetup[4],2,80,22);
|
|||
|
textzent(helpSetup[8],2,80,23);
|
|||
|
end;
|
|||
|
4,13: begin
|
|||
|
write(tnc[tau].maxkan);
|
|||
|
farbe(specvg,black);
|
|||
|
textzent(helpSetup[5],2,80,22);
|
|||
|
textzent(helpSetup[8],2,80,23);
|
|||
|
end;
|
|||
|
5: begin
|
|||
|
if TNC[tau].Tickzeile then write (RespT[1]) else write(RespT[2]);
|
|||
|
farbe(specvg,black);
|
|||
|
textzent(helpSetup[4],2,80,22);
|
|||
|
textzent(helpSetup[8],2,80,23);
|
|||
|
end;
|
|||
|
6: begin
|
|||
|
write(tnc[tau].com);
|
|||
|
farbe(specvg,black);
|
|||
|
textzent(helpSetup[4],2,80,22);
|
|||
|
textzent(helpSetup[8],2,80,23);
|
|||
|
end;
|
|||
|
7: begin
|
|||
|
write(tnc[tau].adresse);
|
|||
|
farbe(specvg,black);
|
|||
|
textzent(helpSetup[8],2,80,23);
|
|||
|
end;
|
|||
|
8: begin
|
|||
|
write(tnc[tau].irq);
|
|||
|
farbe(specvg,black);
|
|||
|
textzent(helpSetup[5],2,80,22);
|
|||
|
textzent(helpSetup[8],2,80,23);
|
|||
|
end;
|
|||
|
9: begin
|
|||
|
write(tnc[tau].baud);
|
|||
|
farbe(specvg,black);
|
|||
|
textzent(helpSetup[4],2,80,22);
|
|||
|
textzent(helpSetup[8],2,80,23);
|
|||
|
end;
|
|||
|
10: begin
|
|||
|
write(tnc[tau].MultiplexNr);
|
|||
|
farbe(specvg,black);
|
|||
|
textzent(helpSetup[4],2,80,22);
|
|||
|
textzent(helpSetup[8],2,80,23);
|
|||
|
end;
|
|||
|
11:begin
|
|||
|
if tnc[tau].Fifo then write(RespT[1]) else write(RespT[2]);
|
|||
|
farbe(specvg,black);
|
|||
|
{ textzent('Fifo-Unterst<73>tzung.',2,80,22);}
|
|||
|
textzent(helpSetup[4],2,80,22);
|
|||
|
textzent(helpSetup[8],2,80,23);
|
|||
|
end;
|
|||
|
12:begin
|
|||
|
write(balken(20,' '));
|
|||
|
gotoxy(xtnc+27,ytnc+Ausw);
|
|||
|
write(tnc[tau].PortNam);
|
|||
|
farbe(specvg,black);
|
|||
|
textzent(helpSetup[8],2,80,23);
|
|||
|
end;
|
|||
|
14: begin
|
|||
|
if tnc[tau].AfuPort then write(RespT[1]) else write(RespT[2]);
|
|||
|
farbe(specvg,black);
|
|||
|
{ textzent('Fifo-Unterst<73>tzung.',2,80,22);}
|
|||
|
textzent(helpSetup[4],2,80,22);
|
|||
|
textzent(helpSetup[8],2,80,23);
|
|||
|
end;
|
|||
|
15: begin
|
|||
|
gotoxy(xtnc, ytnc+ausw);
|
|||
|
write(Helpb[14]);
|
|||
|
farbe(specvg,black);
|
|||
|
textzent(helpSetup[6],2,80,22);
|
|||
|
textzent(helpSetup[8],2,80,23);
|
|||
|
end;
|
|||
|
16: begin
|
|||
|
gotoxy(xtnc, ytnc+ausw);
|
|||
|
write(Helpb[15]);
|
|||
|
farbe(specvg,black);
|
|||
|
textzent(helpSetup[6],2,80,22);
|
|||
|
textzent(helpSetup[8],2,80,23);
|
|||
|
end;
|
|||
|
end;
|
|||
|
end;
|
|||
|
|
|||
|
if (Tast=cr) and (Ausw=15) then
|
|||
|
begin
|
|||
|
HelpNr:=4;
|
|||
|
TNCIniDeini(true);
|
|||
|
TNCMaske(tau,0);
|
|||
|
farbe(highvg,highhg);
|
|||
|
gotoxy(xtnc, ytnc+15); write(HelpB[14]);
|
|||
|
farbe(specvg,black);
|
|||
|
textzent(helpSetup[6],2,80,23);
|
|||
|
HelpNr:=3;
|
|||
|
end;
|
|||
|
if (Tast=cr) and (Ausw=16) then
|
|||
|
begin
|
|||
|
HelpNr:=5;
|
|||
|
TNCIniDeini(false);
|
|||
|
TNCMaske(tau,0);
|
|||
|
farbe(highvg,highhg);
|
|||
|
gotoxy(xtnc, ytnc+16); write(HelpB[15]);
|
|||
|
farbe(specvg,black);
|
|||
|
textzent(helpSetup[6],2,80,23);
|
|||
|
HelpNr:=3;
|
|||
|
end;
|
|||
|
|
|||
|
If Ausw=1 then
|
|||
|
begin
|
|||
|
Case Tast of
|
|||
|
CsRt:
|
|||
|
begin
|
|||
|
Tnc[tau].art:=tnc[tau].art+1;
|
|||
|
if tnc[tau].art>4 then tnc[tau].art:=0;
|
|||
|
tncMaske(tau,1); {//db1ras}
|
|||
|
end;
|
|||
|
CsLt:
|
|||
|
begin
|
|||
|
if tnc[tau].art=0 then tnc[tau].art:=4 else
|
|||
|
Tnc[tau].art:=tnc[tau].art-1;
|
|||
|
tncMaske(tau,1); {//db1ras}
|
|||
|
end;
|
|||
|
end;
|
|||
|
if tnc[tau].art>4 then tnc[tau].art:=0;
|
|||
|
farbe(highvg,highhg);
|
|||
|
gotoxy(xtnc+27,ytnc+ausw);write(tnc_art[tnc[tau].art]);
|
|||
|
end; {if Ausw=1}
|
|||
|
|
|||
|
If Ausw=2 then
|
|||
|
begin
|
|||
|
cursorein;
|
|||
|
farbe(highvg, highhg);
|
|||
|
Editor(tnc[tau].identi,xtnc+27,ytnc+ausw,2,True,false,Tast,20);
|
|||
|
cursoraus;
|
|||
|
end;
|
|||
|
|
|||
|
if Ausw=3 then
|
|||
|
begin
|
|||
|
case tast of
|
|||
|
cslt: begin
|
|||
|
if tnc[tau].port=0 then tnc[tau].port:=10;
|
|||
|
if tnc[tau].port>0 then dec(tnc[tau].port);
|
|||
|
end;
|
|||
|
CsRt: begin
|
|||
|
inc(tnc[tau].port);
|
|||
|
if tnc[tau].port>9 then tnc[tau].port:=0;
|
|||
|
end;
|
|||
|
end;
|
|||
|
farbe(highvg,highhg);
|
|||
|
gotoxy(xtnc+27,ytnc+ausw);write(tnc[tau].Port);
|
|||
|
end; {if Ausw=3}
|
|||
|
|
|||
|
if Ausw=4 then
|
|||
|
begin
|
|||
|
Case Tast of
|
|||
|
Csrt:
|
|||
|
begin
|
|||
|
if TNC[tau].MaxKan<60 then inc(TNC[tau].MaxKan)
|
|||
|
else Alarm;
|
|||
|
end;
|
|||
|
Ctrl_Csrt:
|
|||
|
begin
|
|||
|
if tnc[tau].maxkan=60 then alarm;
|
|||
|
if (tnc[tau].maxkan>50) and (tnc[tau].maxkan<60) then tnc[tau].maxkan:=60;
|
|||
|
if TNC[tau].MaxKan<51 then TNC[tau].MaxKan:=tnc[tau].maxkan+10;
|
|||
|
end;
|
|||
|
Cslt:
|
|||
|
begin
|
|||
|
if TNC[tau].MaxKan>1 then dec(TNC[tau].MaxKan)
|
|||
|
else Alarm;
|
|||
|
end;
|
|||
|
Ctrl_Cslt:
|
|||
|
begin
|
|||
|
if tnc[tau].MaxKan<=1 then alarm;
|
|||
|
if tnc[tau].MaxKan<11 then TNC[tau].MaxKan:=1;
|
|||
|
if TNC[tau].MaxKan>10 then TNC[tau].MaxKan:=tnc[tau].maxkan-10;
|
|||
|
end;
|
|||
|
end; {Case}
|
|||
|
farbe(highvg,highhg);
|
|||
|
gotoxy(xtnc+27,ytnc+Ausw);
|
|||
|
fuel:=0;
|
|||
|
if tnc[tau].MaxKan<10 then fuel:=fuel+1;
|
|||
|
write(tnc[tau].MaxKan,Balken(fuel,' '));
|
|||
|
if TNC[tau].MaxKan<TNC[tau].NodeKan then TNC[tau].NodeKan:=TNC[tau].MaxKan;
|
|||
|
farbe(white, black);
|
|||
|
{**!!ytnc!!**} gotoxy(xtnc+27,ytnc+13);
|
|||
|
write(tnc[tau].NodeKan,' ');
|
|||
|
end; {ausw=4}
|
|||
|
|
|||
|
if Ausw=5 then
|
|||
|
begin
|
|||
|
Case Tast of
|
|||
|
CsRt, CsLt:
|
|||
|
begin
|
|||
|
TNC[tau].Tickzeile:= not TNC[tau].Tickzeile;
|
|||
|
farbe(highvg,highhg);
|
|||
|
gotoxy(xtnc+27,ytnc+Ausw);
|
|||
|
if TNC[tau].Tickzeile then write (RespT[1]) else write(RespT[2]);
|
|||
|
end;
|
|||
|
end;
|
|||
|
end; {if Ausw=5}
|
|||
|
|
|||
|
if Ausw=6 then
|
|||
|
begin
|
|||
|
case tast of
|
|||
|
cslt: begin
|
|||
|
dec(tnc[tau].com);
|
|||
|
if tnc[tau].com=0 then tnc[tau].com:=4;
|
|||
|
end;
|
|||
|
CsRt: begin
|
|||
|
inc(tnc[tau].com);
|
|||
|
if tnc[tau].com>4 then tnc[tau].com:=1;
|
|||
|
end;
|
|||
|
end;
|
|||
|
farbe(highvg,highhg);
|
|||
|
gotoxy(xtnc+27,ytnc+ausw);write(tnc[tau].com);
|
|||
|
end; {if Ausw=6}
|
|||
|
|
|||
|
If Ausw=7 then
|
|||
|
begin
|
|||
|
cursorein;
|
|||
|
farbe(highvg, highhg);
|
|||
|
Editor(tnc[tau].adresse,xtnc+27,ytnc+ausw,3,True,false,Tast,20);
|
|||
|
cursoraus;
|
|||
|
end;
|
|||
|
|
|||
|
if Ausw=8 then
|
|||
|
begin
|
|||
|
Case Tast of
|
|||
|
Csrt:
|
|||
|
begin
|
|||
|
if TNC[tau].irq<15 then inc(TNC[tau].irq)
|
|||
|
else Alarm;
|
|||
|
end;
|
|||
|
Ctrl_Csrt:
|
|||
|
begin
|
|||
|
if TNC[tau].irq=15 then alarm;
|
|||
|
if tnc[tau].irq>5 then tnc[tau].irq:=15;
|
|||
|
if TNC[tau].irq<6 then TNC[tau].irq:=tnc[tau].irq+10;
|
|||
|
end;
|
|||
|
Cslt:
|
|||
|
begin
|
|||
|
if TNC[tau].irq>0 then dec(TNC[tau].irq)
|
|||
|
else Alarm;
|
|||
|
end;
|
|||
|
Ctrl_Cslt:
|
|||
|
begin
|
|||
|
if tnc[tau].irq=0 then alarm;
|
|||
|
if tnc[tau].irq<10 then TNC[tau].irq:=0;
|
|||
|
if TNC[tau].irq>9 then TNC[tau].irq:=tnc[tau].irq-10;
|
|||
|
end;
|
|||
|
end; {Case}
|
|||
|
farbe(highvg,highhg);
|
|||
|
gotoxy(xtnc+27,ytnc+Ausw);
|
|||
|
fuel:=0;
|
|||
|
if tnc[tau].irq<10 then fuel:=fuel+1;
|
|||
|
write(tnc[tau].irq,Balken(fuel,' '));
|
|||
|
end; {ausw=8}
|
|||
|
|
|||
|
if Ausw=9 then
|
|||
|
begin
|
|||
|
Case Tast of
|
|||
|
CsRt:
|
|||
|
begin
|
|||
|
Case (TNC[Tau].Baud div 10) of
|
|||
|
120: TNC[tau].Baud:= 2400;
|
|||
|
240: TNC[tau].Baud:= 4800;
|
|||
|
480: TNC[tau].Baud:= 7200;
|
|||
|
720: TNC[tau].Baud:= 9600;
|
|||
|
960: TNC[tau].Baud:= 14400;
|
|||
|
1440: TNC[tau].Baud:= 19200;
|
|||
|
1920: TNC[tau].Baud:= 28800;
|
|||
|
2880: TNC[tau].Baud:= 38400;
|
|||
|
3840: TNC[tau].Baud:= 57600;
|
|||
|
5760: TNC[tau].Baud:= 76800;
|
|||
|
7680: TNC[tau].Baud:= 115200;
|
|||
|
11520: TNC[tau].Baud:= 1200;
|
|||
|
end;
|
|||
|
end;
|
|||
|
Cslt:
|
|||
|
begin
|
|||
|
Case (TNC[Tau].Baud div 10) of
|
|||
|
120: TNC[tau].Baud:= 115200;
|
|||
|
240: TNC[tau].Baud:= 1200;
|
|||
|
480: TNC[tau].Baud:= 2400;
|
|||
|
720: TNC[tau].Baud:= 4800;
|
|||
|
960: TNC[tau].Baud:= 7200;
|
|||
|
1440: TNC[tau].Baud:= 9600;
|
|||
|
1920: TNC[tau].Baud:= 14400;
|
|||
|
2880: TNC[tau].Baud:= 19200;
|
|||
|
3840: TNC[tau].Baud:= 28800;
|
|||
|
5760: TNC[tau].Baud:= 38400;
|
|||
|
7680: TNC[tau].Baud:= 57600;
|
|||
|
11520: TNC[tau].Baud:= 76800;
|
|||
|
end;
|
|||
|
end;
|
|||
|
end;
|
|||
|
farbe(highvg,highhg);
|
|||
|
gotoxy(xtnc+27,ytnc+Ausw);
|
|||
|
fuel:=0;
|
|||
|
if tnc[tau].baud<100000 then fuel:=fuel+1;
|
|||
|
if tnc[tau].baud<10000 then fuel:=fuel+1;
|
|||
|
write(tnc[tau].Baud,Balken(fuel,' '));
|
|||
|
end; {if Ausw=9}
|
|||
|
|
|||
|
if Ausw=10 then
|
|||
|
begin
|
|||
|
|
|||
|
case tast of
|
|||
|
cslt: begin
|
|||
|
if tnc[tau].multiplexnr=0 then tnc[tau].multiplexnr:=5;
|
|||
|
if tnc[tau].multiplexnr>0 then dec(tnc[tau].multiplexnr);
|
|||
|
end;
|
|||
|
CsRt: begin
|
|||
|
inc(tnc[tau].multiplexnr);
|
|||
|
if tnc[tau].multiplexnr>4 then tnc[tau].multiplexnr:=0;
|
|||
|
end;
|
|||
|
end;
|
|||
|
farbe(highvg,highhg);
|
|||
|
gotoxy(xtnc+27,ytnc+ausw);write(tnc[tau].multiplexnr);
|
|||
|
end; {if Ausw=10}
|
|||
|
|
|||
|
if Ausw=11 then
|
|||
|
begin
|
|||
|
Case Tast of
|
|||
|
CsRt, CsLt:
|
|||
|
begin
|
|||
|
TNC[tau].Fifo:= not TNC[tau].fifo;
|
|||
|
farbe(highvg,highhg);
|
|||
|
gotoxy(xtnc+27,ytnc+Ausw);
|
|||
|
if TNC[tau].fifo then write (RespT[1]) else write(RespT[2]);
|
|||
|
end;
|
|||
|
end;
|
|||
|
end; {if Ausw=11}
|
|||
|
|
|||
|
If Ausw=12 then
|
|||
|
begin
|
|||
|
cursorein;
|
|||
|
farbe(highvg, highhg);
|
|||
|
Editor(tnc[tau].PortNam,xtnc+27,ytnc+ausw,20,false,true,Tast,20);
|
|||
|
cursoraus;
|
|||
|
end;
|
|||
|
|
|||
|
if Ausw=13 then
|
|||
|
begin
|
|||
|
Case Tast of
|
|||
|
Csrt:
|
|||
|
begin
|
|||
|
if TNC[tau].NodeKan<TNC[tau].MaxKan then inc(TNC[tau].NodeKan)
|
|||
|
else Alarm;
|
|||
|
end;
|
|||
|
Ctrl_Csrt:
|
|||
|
begin
|
|||
|
if tnc[tau].NodeKan=Tnc[tau].MaxKan then alarm;
|
|||
|
if (tnc[tau].NodeKan>(Tnc[tau].MaxKan-10)) and (tnc[tau].NodeKan<Tnc[tau].MaxKan) then
|
|||
|
tnc[tau].NodeKan:=Tnc[tau].MaxKan;
|
|||
|
if TNC[tau].NodeKan<(Tnc[tau].MaxKan-9) then TNC[tau].NodeKan:=tnc[tau].NodeKan+10;
|
|||
|
end;
|
|||
|
Cslt:
|
|||
|
begin
|
|||
|
if TNC[tau].NodeKan>0 then dec(TNC[tau].NodeKan)
|
|||
|
else Alarm;
|
|||
|
end;
|
|||
|
Ctrl_Cslt:
|
|||
|
begin
|
|||
|
if tnc[tau].NodeKan<=1 then alarm;
|
|||
|
if tnc[tau].NodeKan<11 then TNC[tau].NodeKan:=0;
|
|||
|
if TNC[tau].NodeKan>10 then TNC[tau].NodeKan:=tnc[tau].NodeKan-10;
|
|||
|
end;
|
|||
|
end; {Case}
|
|||
|
farbe(highvg,highhg);
|
|||
|
gotoxy(xtnc+27,ytnc+Ausw);
|
|||
|
fuel:=0;
|
|||
|
if tnc[tau].NodeKan<10 then fuel:=fuel+1;
|
|||
|
write(tnc[tau].NodeKan,Balken(fuel,' '));
|
|||
|
end; {ausw=13}
|
|||
|
if Ausw=14 then
|
|||
|
begin
|
|||
|
Case Tast of
|
|||
|
CsRt, CsLt:
|
|||
|
begin
|
|||
|
TNC[tau].AfuPort:= not TNC[tau].AfuPort;
|
|||
|
farbe(highvg,highhg);
|
|||
|
gotoxy(xtnc+27,ytnc+Ausw);
|
|||
|
if TNC[tau].AfuPort then write (RespT[1]) else write(RespT[2]);
|
|||
|
end;
|
|||
|
end;
|
|||
|
end; {if Ausw=14}
|
|||
|
|
|||
|
|
|||
|
if Tast=f1 then begin
|
|||
|
Help(false,20);
|
|||
|
IThema(20);
|
|||
|
end;
|
|||
|
|
|||
|
until Tast=ESC;
|
|||
|
end; {with konfig ..}
|
|||
|
end;
|
|||
|
procedure verzeichnisse;
|
|||
|
var Ausw,
|
|||
|
Auswa:byte;
|
|||
|
tast:char;
|
|||
|
change:boolean;
|
|||
|
eingabe:string;
|
|||
|
|
|||
|
begin
|
|||
|
IThema(30);
|
|||
|
eingabe:='';
|
|||
|
HelpNr:=6;
|
|||
|
farbe(white,black);
|
|||
|
clrscr;
|
|||
|
ladebild(rahmen);
|
|||
|
|
|||
|
Textzent(helpSetup[12],2,80,yverz-3);
|
|||
|
textzent(endfill(length(helpSetup[12]),'<27>',eingabe),2,80,yverz-2);
|
|||
|
textzent(helpSetup[8],2,80,23);
|
|||
|
|
|||
|
gotoxy(1,yverz+1);
|
|||
|
with konfig do
|
|||
|
begin
|
|||
|
{!DIRT}
|
|||
|
gotoxy(2,yverz+1);writeln(HelpB[1]+': '+RemVerz);
|
|||
|
gotoxy(2,yverz+2);writeln(helpB[2]+': '+SavVerz);
|
|||
|
gotoxy(2,yverz+3);writeln(helpB[3]+': '+MailVerz);
|
|||
|
gotoxy(2,yverz+4);writeln(helpB[4]+': '+RunVerz);
|
|||
|
gotoxy(2,yverz+5);writeln(helpB[5]+': '+BinVerz);
|
|||
|
gotoxy(2,yverz+6);writeln(HelpB[6]+': '+splverz);
|
|||
|
gotoxy(2,yverz+7);writeln(HelpB[7]+': '+makverz);
|
|||
|
gotoxy(2,yverz+8);writeln(HelpB[8]+': '+tempverz);
|
|||
|
gotoxy(2,yverz+9);writeln(HelpB[9]+': '+viewverz);
|
|||
|
gotoxy(2,yverz+10);writeln(HelpB[10]+': '+editverz);
|
|||
|
gotoxy(2,yverz+11);writeln(HelpB[11]+': '+spkverz);
|
|||
|
gotoxy(2,yverz+12);writeln(HelpB[12]+': '+CDRom);
|
|||
|
farbe(specvg,black);
|
|||
|
change:=false;
|
|||
|
Ausw:=1;
|
|||
|
repeat
|
|||
|
if Change then
|
|||
|
begin
|
|||
|
|
|||
|
Farbe(white,black);
|
|||
|
|
|||
|
gotoxy(xverz+20, yverz+auswa);
|
|||
|
write(Balken(58,' '));
|
|||
|
gotoxy(xverz+20, yverz+auswa);
|
|||
|
change:=false;
|
|||
|
case auswa of
|
|||
|
1: write(remverz);
|
|||
|
2: write(savverz);
|
|||
|
3: write(Mailverz);
|
|||
|
4: write(Runverz);
|
|||
|
5: write(Binverz);
|
|||
|
6: write(SPlverz);
|
|||
|
7: write(Makverz);
|
|||
|
8: write(TempVerz);
|
|||
|
9: write(Viewverz);
|
|||
|
10: write(Editverz);
|
|||
|
11: write(SPKVerz);
|
|||
|
12: write(CDRom);
|
|||
|
end;
|
|||
|
farbe(specvg,black);
|
|||
|
|
|||
|
end;
|
|||
|
|
|||
|
Auswa:=Ausw;
|
|||
|
|
|||
|
farbe(highvg,highhg);
|
|||
|
gotoxy(xverz+20, yverz+ausw);
|
|||
|
if ausw<>12 then write(Balken(58,' '));
|
|||
|
gotoxy(xverz+20, yverz+ausw);
|
|||
|
case ausw of
|
|||
|
1: begin
|
|||
|
write(remverz);
|
|||
|
Editor(remverz,xverz+20,yverz+ausw,58,true,false,tast,0);
|
|||
|
if remverz[length(remverz)]='\' then delete(remverz,length(remverz),1);
|
|||
|
end;
|
|||
|
2: begin
|
|||
|
write(savverz);
|
|||
|
Editor(savverz,xverz+20,yverz+ausw,58,true,false,tast,0);
|
|||
|
if savverz[length(savverz)]='\' then delete(savverz,length(savverz),1);
|
|||
|
end;
|
|||
|
3: begin
|
|||
|
write(Mailverz);
|
|||
|
Editor(Mailverz,xverz+20,yverz+ausw,58,true,false,tast,0);
|
|||
|
if mailverz[length(mailverz)]='\' then delete(mailverz,length(mailverz),1);
|
|||
|
end;
|
|||
|
4: begin
|
|||
|
write(Runverz);
|
|||
|
Editor(Runverz,xverz+20,yverz+ausw,58,true,false,tast,0);
|
|||
|
if runverz[length(runverz)]='\' then delete(runverz,length(runverz),1);
|
|||
|
end;
|
|||
|
5: begin
|
|||
|
write(Binverz);
|
|||
|
Editor(Binverz,xverz+20,yverz+ausw,58,true,false,tast,0);
|
|||
|
if binverz[length(binverz)]='\' then delete(binverz,length(binverz),1);
|
|||
|
end;
|
|||
|
6: begin
|
|||
|
write(SPlverz);
|
|||
|
Editor(Splverz,xverz+20,yverz+ausw,58,true,false,tast,0);
|
|||
|
if splverz[length(splverz)]='\' then delete(splverz,length(splverz),1);
|
|||
|
end;
|
|||
|
7: begin
|
|||
|
write(Makverz);
|
|||
|
Editor(Makverz,xverz+20,yverz+ausw,58,true,false,tast,0);
|
|||
|
if makverz[length(makverz)]='\' then delete(makverz,length(makverz),1);
|
|||
|
end;
|
|||
|
8: begin
|
|||
|
write(TempVerz);
|
|||
|
Editor(TempVerz,xverz+20,yverz+ausw,58,true,false,tast,0);
|
|||
|
if makverz[length(Tempverz)]='\' then delete(Tempverz,length(Tempverz),1);
|
|||
|
end;
|
|||
|
9: begin
|
|||
|
write(Viewverz);
|
|||
|
Editor(Viewverz,xverz+20,yverz+ausw,58,true,false,tast,0);
|
|||
|
if viewverz[length(viewverz)]='\' then delete(viewverz,length(viewverz),1);
|
|||
|
end;
|
|||
|
10: begin
|
|||
|
write(Editverz);
|
|||
|
Editor(Editverz,xverz+20,yverz+ausw,58,true,false,tast,0);
|
|||
|
if editverz[length(editverz)]='\' then delete(editverz,length(editverz),1);
|
|||
|
end;
|
|||
|
11: begin
|
|||
|
write(spkverz);
|
|||
|
Editor(spkverz,xverz+20,yverz+ausw,58,true,false,tast,0);
|
|||
|
if spkverz[length(spkverz)]='\' then delete(spkverz,length(spkverz),1);
|
|||
|
end;
|
|||
|
12: begin
|
|||
|
write(CDRom);
|
|||
|
Eingabe:=CDROM;
|
|||
|
Editor(eingabe,xverz+20,yverz+ausw,1,true,false,tast,0);
|
|||
|
CDROM:=Eingabe[1];
|
|||
|
end;
|
|||
|
end;
|
|||
|
|
|||
|
|
|||
|
|
|||
|
case Tast of
|
|||
|
f1: help(false,0);
|
|||
|
CR, TAB, CSDn:
|
|||
|
begin
|
|||
|
Ausw:=Ausw+1;
|
|||
|
if Ausw>12 then Ausw:=1;
|
|||
|
change:=true;
|
|||
|
end;
|
|||
|
CsUp, Shift_Tab:
|
|||
|
begin
|
|||
|
Ausw:=Ausw-1;
|
|||
|
if Ausw<1 then Ausw:=12;
|
|||
|
change:=true;
|
|||
|
end;
|
|||
|
end;
|
|||
|
until Tast=ESC;
|
|||
|
end; {with}
|
|||
|
end;
|
|||
|
|
|||
|
Procedure quietEinstellungen;
|
|||
|
var tast : char;
|
|||
|
eingabe: string;
|
|||
|
i : byte;
|
|||
|
ausw, a:byte;
|
|||
|
begin
|
|||
|
with Konfig do
|
|||
|
begin
|
|||
|
eingabe:='';
|
|||
|
helpNr:=12;
|
|||
|
farbe (white, black);
|
|||
|
clrscr;
|
|||
|
ladebild(rahmen);
|
|||
|
Textzent(helpSetup[2],2,80,yver-2);
|
|||
|
textzent(endfill(length(helpSetup[2]),'<27>',eingabe),2,80,yver-1);
|
|||
|
|
|||
|
gotoxy(xver,yver+1); write(Helpb[13]+': ');
|
|||
|
if QuietDh then writeln(RespT[1]) else writeln(RespT[2]);
|
|||
|
|
|||
|
gotoxy(xver,yver+2); write(helpb[14]+': ');
|
|||
|
if quietzg then writeln(RespT[1]) else writeln(RespT[2]);
|
|||
|
|
|||
|
gotoxy(xver,yver+3); write(helpb[15]+': ');
|
|||
|
for i:=1 to 3 do
|
|||
|
begin
|
|||
|
gotoxy(xver+27, yver+i+2);
|
|||
|
if quietzt[i].StdAnf<10 then write('0');
|
|||
|
write(Quietzt[i].StdAnf,':');
|
|||
|
|
|||
|
if quietzt[i].minanf<10 then write('0');
|
|||
|
write(quietzt[i].MinAnf,' - ');
|
|||
|
|
|||
|
if quietzt[i].stdend<10 then write('0');
|
|||
|
write(quietzt[i].StdEnd,':');
|
|||
|
|
|||
|
if quietzt[i].minend<10 then write('0');
|
|||
|
write(quietzt[i].MinEnd);
|
|||
|
end;
|
|||
|
|
|||
|
ausw:=1; a:=0;
|
|||
|
repeat
|
|||
|
farbe(white, black);
|
|||
|
for i:=1 to 3 do
|
|||
|
begin
|
|||
|
gotoxy(xver+27, yver+i+2);
|
|||
|
farbe(white, black);
|
|||
|
if (i=1) and (ausw=3) then farbe(highvg, highhg);
|
|||
|
if (i=2) and (ausw=7) then farbe(highvg, highhg);
|
|||
|
if (i=3) and (ausw=11) then farbe(highvg, highhg);
|
|||
|
if quietzt[i].StdAnf<10 then write('0');
|
|||
|
write(Quietzt[i].StdAnf);
|
|||
|
farbe(white, black);
|
|||
|
write(':');
|
|||
|
|
|||
|
if (i=1) and (ausw=4) then farbe(highvg, highhg);
|
|||
|
if (i=2) and (ausw=8) then farbe(highvg, highhg);
|
|||
|
if (i=3) and (ausw=12) then farbe(highvg, highhg);
|
|||
|
if quietzt[i].minanf<10 then write('0');
|
|||
|
write(quietzt[i].MinAnf);
|
|||
|
farbe(white, black);
|
|||
|
write(' - ');
|
|||
|
|
|||
|
if (i=1) and (ausw=5) then farbe(highvg, highhg);
|
|||
|
if (i=2) and (ausw=9) then farbe(highvg, highhg);
|
|||
|
if (i=3) and (ausw=13) then farbe(highvg, highhg);
|
|||
|
if quietzt[i].stdend<10 then write('0');
|
|||
|
write(quietzt[i].StdEnd);
|
|||
|
farbe(white, black);write(':');
|
|||
|
|
|||
|
if (i=1) and (ausw=6) then farbe(highvg, highhg);
|
|||
|
if (i=2) and (ausw=10) then farbe(highvg, highhg);
|
|||
|
if (i=3) and (ausw=14) then farbe(highvg, highhg);
|
|||
|
if quietzt[i].minend<10 then write('0');
|
|||
|
write(quietzt[i].MinEnd);
|
|||
|
farbe(white, black);
|
|||
|
if quietzt[i].aktiv then write(' '+Respt[3]) else write(' '+respt[4]);
|
|||
|
end;
|
|||
|
|
|||
|
if ausw=1 then farbe(highvg, highhg);
|
|||
|
gotoxy(xver+27,yver+1);
|
|||
|
if QuietDh then writeln(RespT[1]) else writeln(RespT[2]);
|
|||
|
farbe(white, black);
|
|||
|
|
|||
|
if ausw=2 then farbe(highvg, highhg);
|
|||
|
gotoxy(xver+27,yver+2);
|
|||
|
if quietzg then writeln(RespT[1]) else writeln(RespT[2]);
|
|||
|
farbe(white,black);
|
|||
|
textzent(BAlken(78,' '),2,80,21);
|
|||
|
textzent(BAlken(78,' '),2,80,22);
|
|||
|
textzent(BAlken(78,' '),2,80,23);
|
|||
|
case ausw of
|
|||
|
1,2: begin
|
|||
|
textzent(helpSetup[4],2,80,22);
|
|||
|
textzent(helpSetup[8],2,80,23);
|
|||
|
end;
|
|||
|
3..14: begin
|
|||
|
textzent(helpSetup[5],2,80,21);
|
|||
|
textzent(helpSetup[36],2,80,22);
|
|||
|
textzent(helpSetup[8],2,80,23);
|
|||
|
end;
|
|||
|
end;
|
|||
|
tast:=taste;
|
|||
|
case Tast of
|
|||
|
F1 : help(false,40);
|
|||
|
CR,tab,CsDn: inc(ausw);
|
|||
|
shift_tab,csup: dec(ausw);
|
|||
|
end;
|
|||
|
if ausw>14 then ausw:=1;
|
|||
|
if ausw<1 then ausw:=14;
|
|||
|
|
|||
|
A:=0;
|
|||
|
if ausw in [3..6] then a:=1;
|
|||
|
if ausw in [7..10] then a:=2;
|
|||
|
if ausw in [11..14] then a:=3;
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
case ausw of
|
|||
|
1: begin
|
|||
|
case Tast of
|
|||
|
CsLt, CsRt: quietdh:=not quietDh;
|
|||
|
end;
|
|||
|
end;
|
|||
|
2: begin
|
|||
|
case Tast of
|
|||
|
CsLt, CsRt: quietzg:=not quietzg;
|
|||
|
end;
|
|||
|
end;
|
|||
|
|
|||
|
3,7,11: begin
|
|||
|
case Tast of
|
|||
|
#32: QuietZt[A].Aktiv:=not QuietZt[a].aktiv;
|
|||
|
CsRt: if quietzt[a].stdanf<23 then inc(quietzt[a].stdanf)
|
|||
|
else quietzt[a].stdanf:=0;
|
|||
|
Cslt: if quietzt[a].StdAnf>0 then dec(quietzt[a].Stdanf)
|
|||
|
else quietzt[a].stdanf:=23;
|
|||
|
Ctrl_CsLt:
|
|||
|
begin
|
|||
|
if quietzt[a].StdAnf<10 then quietzt[a].stdAnf:=quietzt[a].stdanf+24-10
|
|||
|
else quietzt[a].StdAnf:=quietzt[a].StdAnf-10
|
|||
|
end;
|
|||
|
Ctrl_CsRt:
|
|||
|
begin
|
|||
|
if quietzt[a].StdAnf>13 then quietzt[a].stdAnf:=quietzt[a].stdanf-24+10
|
|||
|
else quietzt[a].StdAnf:=quietzt[a].StdAnf+10
|
|||
|
end;
|
|||
|
end;
|
|||
|
|
|||
|
end; {3,7,11}
|
|||
|
|
|||
|
5,9,13: begin
|
|||
|
case Tast of
|
|||
|
#32: QuietZt[A].Aktiv:=not QuietZt[a].aktiv;
|
|||
|
|
|||
|
CsRt: if quietzt[a].stdEnd<23 then inc(quietzt[a].stdEnd)
|
|||
|
else quietzt[a].stdend:=0;
|
|||
|
Cslt: if quietzt[a].stdEnd>0 then dec(quietzt[a].stdEnd)
|
|||
|
else quietzt[a].stdend:=23;
|
|||
|
Ctrl_CsLt:
|
|||
|
begin
|
|||
|
if quietzt[a].stdEnd<10 then quietzt[a].stdEnd:=quietzt[a].stdend+24-10
|
|||
|
else quietzt[a].stdEnd:=quietzt[a].stdEnd-10
|
|||
|
end;
|
|||
|
Ctrl_CsRt:
|
|||
|
begin
|
|||
|
if quietzt[a].stdEnd>13 then quietzt[a].stdEnd:=quietzt[a].stdend-24+10
|
|||
|
else quietzt[a].stdEnd:=quietzt[a].stdEnd+10
|
|||
|
end;
|
|||
|
|
|||
|
end;
|
|||
|
end; {5,9,13}
|
|||
|
|
|||
|
4,8,12: begin
|
|||
|
case Tast of
|
|||
|
#32: QuietZt[A].Aktiv:=not QuietZt[a].aktiv;
|
|||
|
|
|||
|
CsRt: if quietzt[a].MinAnf<60 then inc(quietzt[a].MinAnf)
|
|||
|
else alarm;
|
|||
|
Cslt: if quietzt[a].MinAnf>0 then dec(quietzt[a].MinAnf)
|
|||
|
else quietzt[a].minAnf:=59;
|
|||
|
Ctrl_CsLt:
|
|||
|
begin
|
|||
|
if quietzt[a].MinAnf<10 then quietzt[a].MinAnf:=quietzt[a].minanf+60-10
|
|||
|
else quietzt[a].MinAnf:=quietzt[a].MinAnf-10
|
|||
|
end;
|
|||
|
Ctrl_CsRt:
|
|||
|
begin
|
|||
|
if quietzt[a].MinAnf>49 then quietzt[a].MinAnf:=quietzt[a].minanf-60+10
|
|||
|
else quietzt[a].MinAnf:=quietzt[a].MinAnf+10
|
|||
|
end;
|
|||
|
|
|||
|
end;
|
|||
|
if quietzt[a].MinAnf=60 then quietzt[a].MinAnf:=0;
|
|||
|
end; {4,8,12}
|
|||
|
|
|||
|
6,10,14: begin
|
|||
|
case Tast of
|
|||
|
#32: QuietZt[A].Aktiv:=not QuietZt[a].aktiv;
|
|||
|
|
|||
|
CsRt: if quietzt[a].minend<60 then inc(quietzt[a].minend)
|
|||
|
else alarm;
|
|||
|
Cslt: if quietzt[a].minend>0 then dec(quietzt[a].minend)
|
|||
|
else quietzt[a].minend:=59;
|
|||
|
Ctrl_CsLt:
|
|||
|
begin
|
|||
|
if quietzt[a].minend<10 then quietzt[a].minend:=quietzt[a].minend+60-10
|
|||
|
else quietzt[a].minend:=quietzt[a].minend-10
|
|||
|
end;
|
|||
|
Ctrl_CsRt:
|
|||
|
begin
|
|||
|
if quietzt[a].minend>49 then quietzt[a].minend:=quietzt[a].minend-60+10
|
|||
|
else quietzt[a].minend:=quietzt[a].minend+10
|
|||
|
end;
|
|||
|
|
|||
|
end;
|
|||
|
if quietzt[a].minend=60 then quietzt[a].minend:=0;
|
|||
|
end; {6,10,14}
|
|||
|
|
|||
|
|
|||
|
|
|||
|
enD; {ausw}
|
|||
|
|
|||
|
until Tast=ESC
|
|||
|
end; {with kofnig}
|
|||
|
end;
|
|||
|
|
|||
|
|
|||
|
procedure Verschiedenes;
|
|||
|
var Ausw, auswa:byte;
|
|||
|
Tast:char;
|
|||
|
eingabe:string;
|
|||
|
fuel:byte;
|
|||
|
flagge,
|
|||
|
change:boolean;
|
|||
|
seite:byte;
|
|||
|
swechsel:boolean;
|
|||
|
begin
|
|||
|
eingabe:='';
|
|||
|
HelpNr:=7;
|
|||
|
ithema(40);
|
|||
|
seite:=1;
|
|||
|
swechsel:=true;
|
|||
|
with konfig do
|
|||
|
begin
|
|||
|
|
|||
|
cursorAus;
|
|||
|
change:=true;
|
|||
|
Ausw:=1; Auswa:=1;
|
|||
|
repeat
|
|||
|
if swechsel then
|
|||
|
begin
|
|||
|
if seite=1 then
|
|||
|
begin
|
|||
|
change:=true;
|
|||
|
ausw:=1;
|
|||
|
farbe (white, black);
|
|||
|
clrscr;
|
|||
|
ladebild(rahmen);
|
|||
|
Textzent(helpSetup[13],2,80,yver-1);
|
|||
|
textzent(endfill(length(helpSetup[13]),'<27>',eingabe),2,80,yver);
|
|||
|
|
|||
|
gotoxy(xver,yver+1); writeln(helpb[1]+': '+ZeitBez);
|
|||
|
gotoxy(xver,yver+2); writeln(helpb[2]+': ',UTCDiff);
|
|||
|
gotoxy(xver,yver+3); write(helpb[3]+': ');
|
|||
|
if utcbenutzen then writeln(RespT[1]) else writeln(RespT[2]);
|
|||
|
gotoxy(xver,yver+4); write(helpb[4]+': ');
|
|||
|
if echtzeit then writeln(RespT[1]) else writeln(RespT[2]);
|
|||
|
gotoxy(xver,yver+5); writeln(helpb[5]+': ',PopUpZeit);
|
|||
|
gotoxy(xver,yver+6); write(helpb[6]+': ');
|
|||
|
if lockirq then writeln(RespT[1]) else writeln(RespT[2]);
|
|||
|
gotoxy(xver,yver+7); write(helpb[7]+': ');
|
|||
|
if sichabfr then writeln(RespT[1]) else writeln(RespT[2]);
|
|||
|
gotoxy(xver,yver+8); write(helpb[8]+': ');
|
|||
|
if idle then writeln(RespT[1]) else writeln(RespT[2]);
|
|||
|
gotoxy(xver,yver+9); writeln(helpb[9]+': ',scrsavz);
|
|||
|
gotoxy(xver,yver+10);writeln(helpb[10]+': '+PromptS);
|
|||
|
gotoxy(xver,yver+11);writeln(helpb[11]+': ',NTimeOut);
|
|||
|
gotoxy(xver,yver+12);writeln(helpb[16]+': ',TTimeOut);
|
|||
|
gotoxy(xver,yver+13);writeln(helpb[17]+': ',MaxFrameStd);
|
|||
|
gotoxy(xver,yver+14);writeln(helpb[18]+': ',PacLenStd);
|
|||
|
GotoXy(Xver,yver+15);writeln(helpb[19]+': ',MaxNodes);
|
|||
|
GotoXy(Xver,yver+16);writeln(helpb[20]+': ',Lifetime);
|
|||
|
gotoxy(xver,yver+17);writeln(helpb[12]); {quiet-einst}
|
|||
|
end;
|
|||
|
if seite=2 then
|
|||
|
begin
|
|||
|
change:=True;
|
|||
|
ausw:=18;
|
|||
|
farbe (white, black);
|
|||
|
clrscr;
|
|||
|
ladebild(rahmen);
|
|||
|
Textzent(helpSetup[13],2,80,yver-1);
|
|||
|
textzent(endfill(length(helpSetup[13]),'<27>',eingabe),2,80,yver);
|
|||
|
gotoxy(xver,yver+1); write(helpb[21]+': ');
|
|||
|
if ReqNam then writeln(RespT[1]) else writeln(respt[2]);
|
|||
|
gotoxy(xver,yver+2); write(helpb[22]+': ');
|
|||
|
if NodeSound then writeln(RespT[1]) else writeln(respt[2]);
|
|||
|
gotoxy(xver,yver+3); writeln(helpb[23]+': ',MaxLoginUser);
|
|||
|
gotoxy(xver,yver+4); write(helpb[24]+': ');
|
|||
|
if CBFilter then writeln(RespT[1]) else writeln(respt[2]);
|
|||
|
|
|||
|
end;
|
|||
|
end;
|
|||
|
|
|||
|
|
|||
|
if ((ausw<>1) and (ausw<>10) and (not Swechsel)) then tast:=taste;
|
|||
|
|
|||
|
swechsel:=false;
|
|||
|
|
|||
|
auswa:=ausw;
|
|||
|
flagge:=false;
|
|||
|
if (Auswa=17) and (tast=cr) then
|
|||
|
begin
|
|||
|
flagge:=true;
|
|||
|
tast:=#1;
|
|||
|
end;
|
|||
|
case tast of
|
|||
|
f1:help(false,40);
|
|||
|
cr, csdn, tab:
|
|||
|
begin
|
|||
|
change:=true;
|
|||
|
ausw:=ausw+1;
|
|||
|
if (ausw>17) and (Seite=1) then ausw:=1;
|
|||
|
if (Ausw>21) and (Seite=2) then ausw:=18;
|
|||
|
end;
|
|||
|
csup, shift_tab:
|
|||
|
begin
|
|||
|
change:=true;
|
|||
|
ausw:=ausw-1;
|
|||
|
if (ausw=0) and (Seite=1) then ausw:=17;
|
|||
|
if (ausw=17) and (Seite=2) then ausw:=21;
|
|||
|
end;
|
|||
|
end;
|
|||
|
if change then
|
|||
|
begin
|
|||
|
change:=false;
|
|||
|
farbe(white,black);
|
|||
|
textzent(Balken(78,' '),2,79,22);
|
|||
|
textzent(Balken(78,' '),2,79,23);
|
|||
|
if seite=1 then gotoxy(xver+27,yver+auswa) else gotoxy(xver+27, yver+auswa-17);
|
|||
|
farbe(white,black);
|
|||
|
case auswa of
|
|||
|
1: write(ZeitBez+' ');
|
|||
|
2: write(UTCDiff,' ');
|
|||
|
3: if utcbenutzen then write(RespT[1]) else write(RespT[2]);
|
|||
|
4: if echtzeit then write(RespT[1]) else write(RespT[2]);
|
|||
|
5: write(PopUpZeit,' ');
|
|||
|
6: if lockirq then write(RespT[1]) else write(RespT[2]);
|
|||
|
7: if sichabfr then write(RespT[1]) else write(RespT[2]);
|
|||
|
8: if idle then write(RespT[1]) else write(RespT[2]);
|
|||
|
9: write(scrSavZ,' ');
|
|||
|
10: begin
|
|||
|
Write(Balken(30,' '));
|
|||
|
gotoxy(xver+27,yver+auswa);
|
|||
|
write(PromptS)
|
|||
|
end;
|
|||
|
11: write(NTimeOut,' ');
|
|||
|
12: write(TTimeOut,' ');
|
|||
|
13: write(MaxFrameStd,' ');
|
|||
|
14: write(PacLenStd,' ');
|
|||
|
15: write(MaxNodes ,' ');
|
|||
|
16: write(LifeTime ,' ');
|
|||
|
17: begin
|
|||
|
gotoxy(xver,yver+17);
|
|||
|
write(helpb[12]);
|
|||
|
end;
|
|||
|
18: if ReqNam then write(RespT[1]) else write(RespT[2]);
|
|||
|
19: if NodeSound then write(RespT[1]) else write(RespT[2]);
|
|||
|
20: write(MaxLoginUser,' ');
|
|||
|
21: if CBFilter then write(RespT[1]) else write(RespT[2]);
|
|||
|
end;
|
|||
|
end;
|
|||
|
if Seite=1 then gotoxy(xver+27,yver+ausw) else gotoxy(xver+27, yver+ausw-17);
|
|||
|
farbe(highvg, highhg);
|
|||
|
case ausw of
|
|||
|
1:begin
|
|||
|
write(Balken(3,' '));
|
|||
|
gotoxy(xver+27,yver+ausw);
|
|||
|
write(ZeitBez);
|
|||
|
farbe(specvg,black);
|
|||
|
textzent(helpSetup[8]+' - '+helpsetup[3],2,80,23);
|
|||
|
end;
|
|||
|
2: begin
|
|||
|
write(Balken(3,' '));
|
|||
|
gotoxy(xver+27,yver+ausw);
|
|||
|
write(UTCDiff);
|
|||
|
farbe(specvg,black);
|
|||
|
textzent(helpSetup[5],2,80,22);
|
|||
|
textzent(helpSetup[8]+' - '+helpsetup[3],2,80,23);
|
|||
|
end;
|
|||
|
3: begin
|
|||
|
if UTCBenutzen then write(RespT[1]) else write(RespT[2]);
|
|||
|
farbe(specvg,black);
|
|||
|
textzent(helpSetup[4],2,80,22);
|
|||
|
textzent(helpSetup[8]+' - '+helpsetup[3],2,80,23);
|
|||
|
end;
|
|||
|
4: begin
|
|||
|
if echtzeit then write(RespT[1]) else write(RespT[2]);
|
|||
|
farbe(specvg,black);
|
|||
|
textzent(helpSetup[4],2,80,22);
|
|||
|
textzent(helpSetup[8]+' - '+helpsetup[3],2,80,23);
|
|||
|
end;
|
|||
|
5: begin
|
|||
|
write(Balken(2,' '));
|
|||
|
gotoxy(xver+27,yver+ausw);
|
|||
|
write(PopUpZeit);
|
|||
|
farbe(specvg,black);
|
|||
|
textzent(helpSetup[5],2,80,22);
|
|||
|
textzent(helpSetup[8]+' - '+helpsetup[3],2,80,23);
|
|||
|
end;
|
|||
|
6: begin
|
|||
|
if lockirq then write(RespT[1]) else write(RespT[2]);
|
|||
|
farbe(specvg,black);
|
|||
|
textzent(helpSetup[4],2,80,22);
|
|||
|
textzent(helpSetup[8]+' - '+helpsetup[3],2,80,23);
|
|||
|
end;
|
|||
|
7: begin
|
|||
|
if sichabfr then write(RespT[1]) else write(RespT[2]);
|
|||
|
farbe(specvg,black);
|
|||
|
textzent(helpSetup[4],2,80,22);
|
|||
|
textzent(helpSetup[8]+' - '+helpsetup[3],2,80,23);
|
|||
|
end;
|
|||
|
8: begin
|
|||
|
if idle then write(RespT[1]) else write(RespT[2]);
|
|||
|
farbe(specvg,black);
|
|||
|
textzent(helpSetup[4],2,80,22);
|
|||
|
textzent(helpSetup[8]+' - '+helpsetup[3],2,80,23);
|
|||
|
end;
|
|||
|
9: begin
|
|||
|
write(Balken(2,' '));
|
|||
|
gotoxy(xver+27,yver+ausw);
|
|||
|
write(ScrSavZ);
|
|||
|
farbe(specvg,black);
|
|||
|
textzent(helpSetup[5],2,80,22);
|
|||
|
textzent(helpSetup[8]+' - '+helpsetup[3],2,80,23);
|
|||
|
end;
|
|||
|
10: begin
|
|||
|
write(Balken(30,' '));
|
|||
|
gotoxy(xver+27,yver+ausw);
|
|||
|
write(PromptS);
|
|||
|
farbe(specvg,black);
|
|||
|
textzent(helpSetup[8]+' - '+helpsetup[3],2,80,23);
|
|||
|
end;
|
|||
|
11:begin
|
|||
|
write(Balken(3,' '));
|
|||
|
gotoxy(xver+27,yver+ausw);
|
|||
|
write(NTimeOut);
|
|||
|
farbe(specvg,black);
|
|||
|
textzent(helpSetup[5],2,80,22);
|
|||
|
textzent(helpSetup[8]+' - '+helpsetup[3],2,80,23);
|
|||
|
end;
|
|||
|
12:begin
|
|||
|
write(Balken(3,' '));
|
|||
|
gotoxy(xver+27,yver+ausw);
|
|||
|
write(TTimeOut);
|
|||
|
farbe(specvg,black);
|
|||
|
textzent(helpSetup[5],2,80,22);
|
|||
|
textzent(helpSetup[8]+' - '+helpsetup[3],2,80,23);
|
|||
|
end;
|
|||
|
13:begin
|
|||
|
write(Balken(1,' '));
|
|||
|
gotoxy(xver+27,yver+ausw);
|
|||
|
write(MaxFrameStd);
|
|||
|
farbe(specvg,black);
|
|||
|
textzent(helpSetup[5],2,80,22);
|
|||
|
textzent(helpSetup[8]+' - '+helpsetup[3],2,80,23);
|
|||
|
end;
|
|||
|
14,15,16:begin
|
|||
|
write(Balken(3,' '));
|
|||
|
gotoxy(xver+27,yver+ausw);
|
|||
|
write(PacLenStd);
|
|||
|
farbe(specvg,black);
|
|||
|
textzent(helpSetup[5],2,80,22);
|
|||
|
textzent(helpSetup[8]+' - '+helpsetup[3],2,80,23);
|
|||
|
end;
|
|||
|
|
|||
|
17:begin
|
|||
|
gotoxy(xver,yver+ausw);
|
|||
|
write(helpb[12]);
|
|||
|
farbe(specvg, black);
|
|||
|
{textzent(helpSetup[6],2,80,23);}
|
|||
|
textzent(helpSetup[6]+' - '+helpsetup[3],2,80,23);
|
|||
|
end;
|
|||
|
18:begin
|
|||
|
if ReqNam then write(RespT[1]) else write(RespT[2]);
|
|||
|
farbe(specvg,black);
|
|||
|
textzent(helpSetup[4],2,80,22);
|
|||
|
textzent(helpSetup[6]+' - '+helpsetup[3],2,80,23);
|
|||
|
end;
|
|||
|
19:begin
|
|||
|
if NodeSound then write(RespT[1]) else write(RespT[2]);
|
|||
|
farbe(specvg,black);
|
|||
|
textzent(helpSetup[4],2,80,22);
|
|||
|
textzent(helpSetup[6]+' - '+helpsetup[3],2,80,23);
|
|||
|
end;
|
|||
|
|
|||
|
20:begin
|
|||
|
write(MaxLoginUser);
|
|||
|
if MaxLoginUser<10 then write(' ');
|
|||
|
farbe(specvg,black);
|
|||
|
textzent(helpSetup[5],2,80,22);
|
|||
|
textzent(helpSetup[6]+' - '+helpsetup[3],2,80,23);
|
|||
|
end;
|
|||
|
|
|||
|
21:begin
|
|||
|
if CBFilter then write(RespT[1]) else write(RespT[2]);
|
|||
|
farbe(specvg,black);
|
|||
|
textzent(helpSetup[4],2,80,22);
|
|||
|
textzent(helpSetup[6]+' - '+helpsetup[3],2,80,23);
|
|||
|
end;
|
|||
|
|
|||
|
|
|||
|
end; {change}
|
|||
|
|
|||
|
if Ausw=1 then
|
|||
|
begin
|
|||
|
CursorEin;
|
|||
|
farbe(highvg,highhg);
|
|||
|
Editor(Zeitbez,xver+27,yver+ausw,3,true,false,tast,40);
|
|||
|
farbe(white,black);
|
|||
|
cursorAus;
|
|||
|
end;
|
|||
|
|
|||
|
if Ausw=2 then
|
|||
|
begin
|
|||
|
Case Tast of
|
|||
|
Csrt:
|
|||
|
begin
|
|||
|
if utcdiff<12 then inc(utcdiff)
|
|||
|
else Alarm;
|
|||
|
end;
|
|||
|
Ctrl_Csrt:
|
|||
|
begin
|
|||
|
if utcdiff=12 then alarm;
|
|||
|
if (utcdiff>2) and (utcdiff<12) then utcdiff:=12;
|
|||
|
if utcdiff<3 then utcdiff:=utcdiff+10;
|
|||
|
end;
|
|||
|
Cslt:
|
|||
|
begin
|
|||
|
if utcdiff>-12 then dec(utcdiff)
|
|||
|
else Alarm;
|
|||
|
end;
|
|||
|
Ctrl_Cslt:
|
|||
|
begin
|
|||
|
if utcdiff=-12 then alarm;
|
|||
|
if utcdiff<-2 then utcdiff:=-12;
|
|||
|
if utcdiff>-3 then utcdiff:=utcdiff-10;
|
|||
|
end;
|
|||
|
end; {Case}
|
|||
|
farbe(highvg,highhg);
|
|||
|
gotoxy(xver+27,yver+Ausw);
|
|||
|
fuel:=0;
|
|||
|
fuel:=3-length(makestring(utcdiff));
|
|||
|
write(utcdiff,Balken(fuel,' '));
|
|||
|
end; {ausw=2}
|
|||
|
|
|||
|
if Ausw=3 then
|
|||
|
begin
|
|||
|
case Tast of
|
|||
|
CsLt, CsRt: UTCBenutzen:=not utcbenutzen;
|
|||
|
end;
|
|||
|
farbe(highvg,highhg);
|
|||
|
gotoxy(xver+27,yver+ausw);
|
|||
|
if UtcBenutzen then Write(RespT[1]) else write(RespT[2]);
|
|||
|
end; {ausw=3}
|
|||
|
|
|||
|
if Ausw=4 then
|
|||
|
begin
|
|||
|
case Tast of
|
|||
|
CsLt, CsRt: Echtzeit:=not Echtzeit;
|
|||
|
end;
|
|||
|
farbe(highvg,highhg);
|
|||
|
gotoxy(xver+27,yver+ausw);
|
|||
|
if Echtzeit then Write(RespT[1]) else write(RespT[2]);
|
|||
|
end; {ausw=4}
|
|||
|
|
|||
|
if Ausw=5 then
|
|||
|
begin
|
|||
|
Case Tast of
|
|||
|
Csrt:
|
|||
|
begin
|
|||
|
if PopUpZeit<30 then inc(popupzeit)
|
|||
|
else Alarm;
|
|||
|
end;
|
|||
|
Ctrl_Csrt:
|
|||
|
begin
|
|||
|
if PopUpZeit=30 then alarm;
|
|||
|
if (PopUpZeit>20) and (PopUpZeit<30) then PopUpZeit:=30;
|
|||
|
if popupzeit<21 then popupzeit:=popupzeit+10;
|
|||
|
end;
|
|||
|
Cslt:
|
|||
|
begin
|
|||
|
if popupzeit>0 then dec(popupzeit)
|
|||
|
else Alarm;
|
|||
|
end;
|
|||
|
Ctrl_Cslt:
|
|||
|
begin
|
|||
|
if PopUpZeit=0 then alarm;
|
|||
|
if PopUpZeit<10 then PopUpZeit:=0;
|
|||
|
if PopUpZeit>9 then Popupzeit:=popupzeit-10;
|
|||
|
end;
|
|||
|
end; {Case}
|
|||
|
farbe(highvg,highhg);
|
|||
|
gotoxy(xver+27,yver+Ausw);
|
|||
|
fuel:=0;
|
|||
|
if popupzeit<10 then fuel:=fuel+1;
|
|||
|
write(popupzeit,Balken(fuel,' '));
|
|||
|
end; {ausw=5}
|
|||
|
|
|||
|
if Ausw=6 then
|
|||
|
begin
|
|||
|
case Tast of
|
|||
|
CsLt, CsRt: Lockirq:=not Lockirq;
|
|||
|
end;
|
|||
|
farbe(highvg,highhg);
|
|||
|
gotoxy(xver+27,yver+ausw);
|
|||
|
if Lockirq then Write(RespT[1]) else write(RespT[2]);
|
|||
|
end; {ausw=6}
|
|||
|
|
|||
|
if Ausw=7 then
|
|||
|
begin
|
|||
|
case Tast of
|
|||
|
CsLt, CsRt: sichabfr:=not sichabfr;
|
|||
|
end;
|
|||
|
farbe(highvg,highhg);
|
|||
|
gotoxy(xver+27,yver+ausw);
|
|||
|
if sichabfr then Write(RespT[1]) else write(RespT[2]);
|
|||
|
end; {ausw=7}
|
|||
|
|
|||
|
if Ausw=8 then
|
|||
|
begin
|
|||
|
case Tast of
|
|||
|
CsLt, CsRt: idle:=not idle;
|
|||
|
end;
|
|||
|
farbe(highvg,highhg);
|
|||
|
gotoxy(xver+27,yver+ausw);
|
|||
|
if idle then Write(RespT[1]) else write(RespT[2]);
|
|||
|
end; {ausw=8}
|
|||
|
|
|||
|
if Ausw=9 then
|
|||
|
begin
|
|||
|
Case Tast of
|
|||
|
Csrt:
|
|||
|
begin
|
|||
|
if ScrSavZ<30 then inc(ScrSavZ)
|
|||
|
else Alarm;
|
|||
|
end;
|
|||
|
Ctrl_Csrt:
|
|||
|
begin
|
|||
|
if ScrSavZ=30 then alarm;
|
|||
|
if (ScrSavZ>20) and (ScrSavZ<30) then ScrSavZ:=30;
|
|||
|
if ScrSavZ<21 then ScrSavZ:=ScrSavZ+10;
|
|||
|
end;
|
|||
|
Cslt:
|
|||
|
begin
|
|||
|
if ScrSavZ>0 then dec(ScrSavZ)
|
|||
|
else Alarm;
|
|||
|
end;
|
|||
|
Ctrl_Cslt:
|
|||
|
begin
|
|||
|
if ScrSavZ=0 then alarm;
|
|||
|
if ScrSavZ<10 then ScrSavZ:=0;
|
|||
|
if ScrSavZ>9 then ScrSavZ:=ScrSavZ-10;
|
|||
|
end;
|
|||
|
end; {Case}
|
|||
|
farbe(highvg,highhg);
|
|||
|
gotoxy(xver+27,yver+Ausw);
|
|||
|
fuel:=0;
|
|||
|
if ScrSavZ<10 then fuel:=fuel+1;
|
|||
|
write(ScrSavZ,Balken(fuel,' '));
|
|||
|
end; {ausw=9}
|
|||
|
|
|||
|
|
|||
|
if Ausw=10 then
|
|||
|
begin
|
|||
|
Editor(PromptS,xver+27,yver+ausw,30,false,true,Tast,40);
|
|||
|
cursorAus;
|
|||
|
end; {10}
|
|||
|
|
|||
|
if Ausw=11 then
|
|||
|
begin
|
|||
|
Case Tast of
|
|||
|
Csrt:
|
|||
|
begin
|
|||
|
if NTimeOut<120 then inc(NTimeOut)
|
|||
|
else Alarm;
|
|||
|
if (NTimeOut>0) and (NtimeOut<10) then NTimeOut:=10;
|
|||
|
end;
|
|||
|
Ctrl_Csrt:
|
|||
|
begin
|
|||
|
if NTimeOut=120 then alarm;
|
|||
|
if (NTimeOut>110) and (NTimeOut<120) then NTimeOut:=120;
|
|||
|
if NTimeOut<111 then NTimeOut:=NTimeOut+10;
|
|||
|
if (NTimeOut>0) and (NtimeOut<10) then NTimeOut:=10;
|
|||
|
end;
|
|||
|
Cslt:
|
|||
|
begin
|
|||
|
if NTimeOut>0 then dec(NTimeOut)
|
|||
|
else Alarm;
|
|||
|
if (NTimeOut>0) and (NtimeOut<10) then NTimeOut:=0;
|
|||
|
end;
|
|||
|
Ctrl_Cslt:
|
|||
|
begin
|
|||
|
if NTimeOut=0 then alarm;
|
|||
|
if NTimeOut<10 then NTimeOut:=0;
|
|||
|
if NTimeOut>9 then NTimeOut:=NTimeOut-10;
|
|||
|
if (NTimeOut>0) and (NtimeOut<10) then NTimeOut:=0;
|
|||
|
end;
|
|||
|
end; {Case}
|
|||
|
farbe(highvg,highhg);
|
|||
|
gotoxy(xver+27,yver+Ausw);
|
|||
|
fuel:=0;
|
|||
|
if NTimeOut<100 then fuel:=fuel+1;
|
|||
|
if NTimeOut<10 then fuel:=fuel+1;
|
|||
|
write(NTimeOut,Balken(fuel,' '));
|
|||
|
end; {ausw=11}
|
|||
|
|
|||
|
if Ausw=12 then
|
|||
|
begin
|
|||
|
Case Tast of
|
|||
|
Csrt:
|
|||
|
begin
|
|||
|
if TTimeOut<120 then inc(TTimeOut)
|
|||
|
else Alarm;
|
|||
|
if (TTimeOut>0) and (TTimeout<10) then TTimeOut:=10;
|
|||
|
end;
|
|||
|
Ctrl_Csrt:
|
|||
|
begin
|
|||
|
if TTimeOut=120 then alarm;
|
|||
|
if (TTimeOut>110) and (TTimeOut<120) then TTimeOut:=120;
|
|||
|
if TTimeOut<111 then TTimeOut:=TTimeOut+10;
|
|||
|
end;
|
|||
|
Cslt:
|
|||
|
begin
|
|||
|
if TTimeOut>0 then dec(TTimeOut)
|
|||
|
else Alarm;
|
|||
|
if (TTimeout>0) and (TTimeout<10) then TTimeOut:=0;
|
|||
|
end;
|
|||
|
Ctrl_Cslt:
|
|||
|
begin
|
|||
|
if TTimeOut=0 then alarm;
|
|||
|
if TTimeOut<10 then TTimeOut:=0;
|
|||
|
if TTimeOut>9 then TTimeOut:=TTimeOut-10;
|
|||
|
if (TTimeout>0) and (TTimeout<10) then TTimeOut:=0;
|
|||
|
end;
|
|||
|
end; {Case}
|
|||
|
farbe(highvg,highhg);
|
|||
|
gotoxy(xver+27,yver+Ausw);
|
|||
|
fuel:=0;
|
|||
|
if TTimeOut<100 then fuel:=fuel+1;
|
|||
|
if TTimeOut<10 then fuel:=fuel+1;
|
|||
|
write(TTimeOut,Balken(fuel,' '));
|
|||
|
end; {ausw=12}
|
|||
|
|
|||
|
if Ausw=13 then
|
|||
|
begin
|
|||
|
Case Tast of
|
|||
|
Csrt:
|
|||
|
begin
|
|||
|
if MaxFrameStd<7 then inc(MaxFrameStd)
|
|||
|
else Alarm;
|
|||
|
end;
|
|||
|
Cslt:
|
|||
|
begin
|
|||
|
if MaxFrameStd>1 then dec(MaxFrameStd)
|
|||
|
else Alarm;
|
|||
|
end;
|
|||
|
end; {Case}
|
|||
|
farbe(highvg,highhg);
|
|||
|
gotoxy(xver+27,yver+Ausw);
|
|||
|
write(MaxFrameStd);
|
|||
|
end; {ausw=13}
|
|||
|
|
|||
|
if Ausw=14 then
|
|||
|
begin
|
|||
|
Case Tast of
|
|||
|
Csrt:
|
|||
|
begin
|
|||
|
if paclenstd<252 then inc(paclenstd)
|
|||
|
else Alarm;
|
|||
|
end;
|
|||
|
Ctrl_Cslt:
|
|||
|
begin
|
|||
|
if paclenstd=10 then alarm;
|
|||
|
if paclenstd>19 then paclenstd:=paclenstd-10 else paclenstd:=10;
|
|||
|
end;
|
|||
|
Ctrl_Csrt:
|
|||
|
begin
|
|||
|
if paclenstd=252 then alarm;
|
|||
|
if paclenstd<=242 then paclenstd:=paclenstd+10 else paclenstd:=252;
|
|||
|
end;
|
|||
|
Cslt:
|
|||
|
begin
|
|||
|
if paclenstd>10 then dec(paclenstd)
|
|||
|
else Alarm;
|
|||
|
end;
|
|||
|
end; {Case}
|
|||
|
farbe(highvg,highhg);
|
|||
|
gotoxy(xver+27,yver+Ausw);
|
|||
|
write(paclenstd);
|
|||
|
end; {ausw=14}
|
|||
|
|
|||
|
|
|||
|
if Ausw=15 then
|
|||
|
begin
|
|||
|
Case Tast of
|
|||
|
Csrt:
|
|||
|
begin
|
|||
|
if MaxNodes=0 then MaxNodes:=9;
|
|||
|
if MaxNodes<400 then inc(MaxNodes)
|
|||
|
else Alarm;
|
|||
|
end;
|
|||
|
Ctrl_Csrt:
|
|||
|
begin
|
|||
|
if MaxNodes=400 then alarm;
|
|||
|
if (MaxNodes>390) and (MaxNodes<400) then MaxNodes:=400;
|
|||
|
if MaxNodes<391 then MaxNodes:=MaxNodes+10;
|
|||
|
end;
|
|||
|
Cslt:
|
|||
|
begin
|
|||
|
if Maxnodes=0 then alarm;
|
|||
|
if MaxNodes>10 then dec(MaxNodes)
|
|||
|
else MaxNodes:=0;
|
|||
|
end;
|
|||
|
Ctrl_Cslt:
|
|||
|
begin
|
|||
|
if MaxNodes=0 then alarm;
|
|||
|
if MaxNodes=10 then MaxNodes:=0;
|
|||
|
if (MaxNodes<20) and (MaxNodes>10) then MaxNodes:=10;
|
|||
|
if MaxNodes>19 then MaxNodes:=MaxNodes-10;
|
|||
|
end;
|
|||
|
end; {Case}
|
|||
|
farbe(highvg,highhg);
|
|||
|
gotoxy(xver+27,yver+Ausw);
|
|||
|
fuel:=0;
|
|||
|
if MaxNodes<100 then fuel:=fuel+1;
|
|||
|
if MaxNodes<10 then fuel:=fuel+1;
|
|||
|
write(MaxNodes,Balken(fuel,' '));
|
|||
|
end; {ausw=15}
|
|||
|
|
|||
|
|
|||
|
if Ausw=16 then
|
|||
|
begin
|
|||
|
Case Tast of
|
|||
|
Csrt:
|
|||
|
begin
|
|||
|
if LifeTime<240 then inc(LifeTime)
|
|||
|
else Alarm;
|
|||
|
end;
|
|||
|
Ctrl_Csrt:
|
|||
|
begin
|
|||
|
if LifeTime=240 then alarm;
|
|||
|
if (LifeTime>230) and (LifeTime<240) then LifeTime:=240;
|
|||
|
if LifeTime<231 then LifeTime:=LifeTime+10;
|
|||
|
end;
|
|||
|
Cslt:
|
|||
|
begin
|
|||
|
if LifeTime>20 then dec(LifeTime)
|
|||
|
else Alarm;
|
|||
|
end;
|
|||
|
Ctrl_Cslt:
|
|||
|
begin
|
|||
|
if LifeTime=20 then alarm;
|
|||
|
if LifeTime<30 then LifeTime:=20;
|
|||
|
if LifeTime>29 then LifeTime:=LifeTime-10;
|
|||
|
end;
|
|||
|
end; {Case}
|
|||
|
farbe(highvg,highhg);
|
|||
|
gotoxy(xver+27,yver+Ausw);
|
|||
|
fuel:=0;
|
|||
|
if LifeTime<100 then fuel:=fuel+1;
|
|||
|
if LifeTime<10 then fuel:=fuel+1;
|
|||
|
write(LifeTime,Balken(fuel,' '));
|
|||
|
end; {ausw=16}
|
|||
|
|
|||
|
|
|||
|
|
|||
|
if (Ausw=17) and (flagge) then
|
|||
|
begin
|
|||
|
SaveBild(BildSpeicher);
|
|||
|
quietEinstellungen;
|
|||
|
farbe (white, black);
|
|||
|
clrscr;
|
|||
|
ladebild(BildSpeicher);
|
|||
|
end;
|
|||
|
|
|||
|
|
|||
|
if Ausw=18 then
|
|||
|
begin
|
|||
|
case Tast of
|
|||
|
CsLt, CsRt: ReqNam:=not ReqNam;
|
|||
|
end;
|
|||
|
farbe(highvg,highhg);
|
|||
|
gotoxy(xver+27,yver+ausw-17);
|
|||
|
if reqnam then Write(RespT[1]) else write(RespT[2]);
|
|||
|
end; {ausw=18}
|
|||
|
|
|||
|
if Ausw=19 then
|
|||
|
begin
|
|||
|
case Tast of
|
|||
|
CsLt, CsRt: NodeSound:=not NodeSound;
|
|||
|
end;
|
|||
|
farbe(highvg,highhg);
|
|||
|
gotoxy(xver+27,yver+ausw-17);
|
|||
|
if NodeSound then Write(RespT[1]) else write(RespT[2]);
|
|||
|
end; {ausw=19}
|
|||
|
|
|||
|
if Ausw=20 then
|
|||
|
begin
|
|||
|
Case Tast of
|
|||
|
Csrt:
|
|||
|
begin
|
|||
|
if MaxLoginUser=10 then Alarm;
|
|||
|
if MaxLoginUser<10 then inc(MaxLoginUser);
|
|||
|
end;
|
|||
|
Ctrl_Csrt:
|
|||
|
begin
|
|||
|
if MaxLoginUser=10 then alarm;
|
|||
|
if MaxLoginUser<10 then MaxLoginUser:=10;
|
|||
|
end;
|
|||
|
Cslt:
|
|||
|
begin
|
|||
|
if MaxLoginUser=1 then alarm;
|
|||
|
if MaxLoginUser>1 then dec(MaxLoginUser)
|
|||
|
end;
|
|||
|
Ctrl_Cslt:
|
|||
|
begin
|
|||
|
if MaxLoginUser=1 then alarm;
|
|||
|
if (MaxLoginUser>1) and (MaxLoginUser<=10) then MaxLoginUser:=1;
|
|||
|
end;
|
|||
|
end; {Case}
|
|||
|
farbe(highvg,highhg);
|
|||
|
gotoxy(xver+27,yver+Ausw-17);
|
|||
|
fuel:=0;
|
|||
|
if MaxLoginUser<10 then fuel:=fuel+1;
|
|||
|
write(MaxLoginUser,Balken(fuel,' '));
|
|||
|
end; {ausw=20}
|
|||
|
|
|||
|
if Ausw=21 then
|
|||
|
begin
|
|||
|
case Tast of
|
|||
|
CsLt, CsRt: CBFilter:=not CBFilter;
|
|||
|
end;
|
|||
|
farbe(highvg,highhg);
|
|||
|
gotoxy(xver+27,yver+ausw-17);
|
|||
|
if CBFilter then Write(RespT[1]) else write(RespT[2]);
|
|||
|
end; {ausw=21}
|
|||
|
|
|||
|
case tast of
|
|||
|
PgUp : if Seite>1 then
|
|||
|
begin
|
|||
|
dec(Seite);
|
|||
|
swechsel:=true;
|
|||
|
change:=true;
|
|||
|
end;
|
|||
|
PgDn : if Seite<2 then
|
|||
|
begin
|
|||
|
inc(Seite);
|
|||
|
swechsel:=true;
|
|||
|
change:=true;
|
|||
|
end;
|
|||
|
end;
|
|||
|
|
|||
|
until tast=esc;
|
|||
|
end; {with}
|
|||
|
end;
|
|||
|
|
|||
|
procedure speicher;
|
|||
|
var fuel,auswa, ausw : byte;
|
|||
|
tast:char;
|
|||
|
change:boolean;
|
|||
|
eingabe:string;
|
|||
|
begin
|
|||
|
ithema(60);
|
|||
|
eingabe:='';
|
|||
|
HelpNr:=9;
|
|||
|
farbe(white,black);
|
|||
|
clrscr;
|
|||
|
ladebild(rahmen);
|
|||
|
with konfig do
|
|||
|
begin
|
|||
|
auswa:=1; ausw:=1; change:=false;
|
|||
|
|
|||
|
Textzent(helpSetup[15],2,80,yml-1);
|
|||
|
textzent(endfill(length(helpSetup[15]),'<27>',eingabe),2,80,yml);
|
|||
|
{!RAMT}
|
|||
|
gotoxy(xsp,ysp+1); write(helpb[1]+': ',mh);
|
|||
|
gotoxy(xsp,ysp+2); write(helpb[2]+': ',backscram);
|
|||
|
gotoxy(xsp,ysp+3); write(helpb[3]+': ',vorschzram);
|
|||
|
gotoxy(xsp,ysp+4); write(helpb[4]+': ');
|
|||
|
if BufferDat then write(RespT[1]) else write(RespT[2]);
|
|||
|
gotoxy(xsp,ysp+5); write(helpb[5]+': ',BackUpTime);
|
|||
|
farbe(highvg, highhg);
|
|||
|
gotoxy(xsp+27,ysp+auswa);
|
|||
|
write(balken(3,' '));
|
|||
|
gotoxy(xsp+27,ysp+auswa);
|
|||
|
write(mh);
|
|||
|
farbe(specvg,black);
|
|||
|
textzent(helpSetup[5],2,80,22);
|
|||
|
textzent(helpSetup[8],2,80,23);
|
|||
|
cursoraus;
|
|||
|
|
|||
|
repeat
|
|||
|
tast:=taste;
|
|||
|
auswa:=ausw;
|
|||
|
case Tast of
|
|||
|
f1:help(false,0);
|
|||
|
Tab, CsDn, CR:
|
|||
|
begin
|
|||
|
Ausw:=Ausw+1;
|
|||
|
if Ausw>5 then Ausw:=1;
|
|||
|
change:=true;
|
|||
|
end;
|
|||
|
Shift_Tab, Csup:
|
|||
|
begin
|
|||
|
Ausw:=Ausw-1;
|
|||
|
if Ausw<1 then Ausw:=5;
|
|||
|
change:=true;
|
|||
|
end;
|
|||
|
end;
|
|||
|
if change then
|
|||
|
begin
|
|||
|
change:=false;
|
|||
|
farbe(white, black);
|
|||
|
gotoxy(xsp+27,ysp+auswa);
|
|||
|
write(balken(5,' '));
|
|||
|
gotoxy(xsp+27,ysp+auswa);
|
|||
|
case auswa of
|
|||
|
1: write(mh);
|
|||
|
2: write(BackscRam);
|
|||
|
3: write(VorschZRam);
|
|||
|
4: if BufferDat then write(RespT[1]) else write(RespT[2]);
|
|||
|
5: write(BackupTime);
|
|||
|
end;
|
|||
|
textzent(Balken(78,' '),2,79,22);
|
|||
|
textzent(Balken(78,' '),2,79,23);
|
|||
|
farbe(highvg, highhg);
|
|||
|
gotoxy(xsp+27,ysp+ausw);
|
|||
|
if ausw=2 then write(balken(2,' ')) else write(balken(3,' '));
|
|||
|
gotoxy(xsp+27,ysp+ausw);
|
|||
|
case ausw of
|
|||
|
1: begin
|
|||
|
write(mh);
|
|||
|
farbe(specvg,black);
|
|||
|
textzent(helpSetup[5],2,80,22);
|
|||
|
textzent(helpSetup[8],2,80,23);
|
|||
|
end;
|
|||
|
2: begin
|
|||
|
writE(backscram);
|
|||
|
farbe(specvg,black);
|
|||
|
textzent(helpSetup[4],2,80,22);
|
|||
|
textzent(helpSetup[8],2,80,23);
|
|||
|
end;
|
|||
|
3,5: begin
|
|||
|
write(vorschzram);
|
|||
|
farbe(specvg,black);
|
|||
|
textzent(helpSetup[5],2,80,22);
|
|||
|
textzent(helpSetup[8],2,80,23);
|
|||
|
end;
|
|||
|
4: begin
|
|||
|
if BufferDat then write(RespT[1]) else write(RespT[2]);
|
|||
|
farbe(specvg,black);
|
|||
|
textzent(helpSetup[4],2,80,22);
|
|||
|
textzent(helpSetup[8],2,80,23);
|
|||
|
end;
|
|||
|
end;
|
|||
|
end; {change}
|
|||
|
|
|||
|
if Ausw=1 then
|
|||
|
begin
|
|||
|
Case Tast of
|
|||
|
Csrt:
|
|||
|
begin
|
|||
|
if mh<200 then inc(mh)
|
|||
|
else Alarm;
|
|||
|
end;
|
|||
|
Ctrl_Csrt:
|
|||
|
begin
|
|||
|
if mh=200 then alarm;
|
|||
|
if (mh>190) and (mh<200) then mh:=200;
|
|||
|
if mh<191 then mh:=mh+10;
|
|||
|
end;
|
|||
|
Cslt:
|
|||
|
begin
|
|||
|
if mh>10 then dec(mh)
|
|||
|
else Alarm;
|
|||
|
end;
|
|||
|
Ctrl_Cslt:
|
|||
|
begin
|
|||
|
if mh=10 then alarm;
|
|||
|
if mh<35 then mh:=10;
|
|||
|
if mh>34 then mh:=mh-10;
|
|||
|
end;
|
|||
|
end; {Case}
|
|||
|
farbe(highvg,highhg);
|
|||
|
gotoxy(xsp+27,ysp+Ausw);
|
|||
|
fuel:=0;
|
|||
|
if mh<100 then fuel:=fuel+1;
|
|||
|
write(mh,Balken(fuel,' '));
|
|||
|
end; {ausw=1}
|
|||
|
|
|||
|
if Ausw=2 then
|
|||
|
begin
|
|||
|
Case Tast of
|
|||
|
Csrt: begin
|
|||
|
case backscram of
|
|||
|
4: backscRam:=8;
|
|||
|
8: backscRam:=16;
|
|||
|
16: backscRam:=32;
|
|||
|
32: backscRam:=64;
|
|||
|
64: backscRam:=4;
|
|||
|
end;
|
|||
|
end;
|
|||
|
Cslt: begin
|
|||
|
case backscram of
|
|||
|
4: backscRam:=64;
|
|||
|
8: backscRam:=4;
|
|||
|
16: backscRam:=8;
|
|||
|
32: backscRam:=16;
|
|||
|
64: backscRam:=32;
|
|||
|
end;
|
|||
|
end;
|
|||
|
end;
|
|||
|
gotoxy(xsp+27,ysp+ausw);
|
|||
|
farbe(highvg,highhg);
|
|||
|
fuel:=0;
|
|||
|
if backscram<10 then fuel:=1;
|
|||
|
write(backscram,balken(fuel,' '));
|
|||
|
end;
|
|||
|
|
|||
|
if Ausw=3 then
|
|||
|
begin
|
|||
|
Case Tast of
|
|||
|
Csrt:
|
|||
|
begin
|
|||
|
if vorschzram<200 then inc(vorschzram)
|
|||
|
else Alarm;
|
|||
|
end;
|
|||
|
Ctrl_Csrt:
|
|||
|
begin
|
|||
|
if vorschzram=200 then alarm;
|
|||
|
if (vorschzram>190) and (vorschzram<200) then vorschzram:=200;
|
|||
|
if vorschzram<191 then vorschzram:=vorschzram+10;
|
|||
|
end;
|
|||
|
Cslt:
|
|||
|
begin
|
|||
|
if vorschzram>10 then dec(vorschzram)
|
|||
|
else Alarm;
|
|||
|
end;
|
|||
|
Ctrl_Cslt:
|
|||
|
begin
|
|||
|
if vorschzram=10 then alarm;
|
|||
|
if vorschzram<20 then vorschzram:=10;
|
|||
|
if vorschzram>19 then vorschzram:=vorschzram-10;
|
|||
|
end;
|
|||
|
end; {Case}
|
|||
|
farbe(highvg,highhg);
|
|||
|
gotoxy(xsp+27,ysp+Ausw);
|
|||
|
fuel:=0;
|
|||
|
if vorschzram<100 then fuel:=fuel+1;
|
|||
|
write(vorschzram,Balken(fuel,' '));
|
|||
|
end; {ausw=3}
|
|||
|
|
|||
|
if Ausw=4 then
|
|||
|
begin
|
|||
|
if Tast in [CsRt, CsLt] then BufferDat:=not BufferDat;
|
|||
|
farbe(highvg,highhg);
|
|||
|
gotoxy(xsp+27,ysp+Ausw);
|
|||
|
if BufferDat then write(RespT[1]) else write(RespT[2]);
|
|||
|
end;
|
|||
|
|
|||
|
if Ausw=5 then
|
|||
|
begin
|
|||
|
Case Tast of
|
|||
|
Csrt:
|
|||
|
begin
|
|||
|
if BackUpTime<200 then inc(BackUpTime)
|
|||
|
else Alarm;
|
|||
|
If BackupTime=1 then BackupTime:=2;
|
|||
|
end;
|
|||
|
Ctrl_Csrt:
|
|||
|
begin
|
|||
|
if BackUpTime=200 then alarm;
|
|||
|
if (BackUpTime>190) and (BackUpTime<200) then BackUpTime:=200;
|
|||
|
if BackUpTime<191 then BackUpTime:=BackUpTime+10;
|
|||
|
end;
|
|||
|
Cslt:
|
|||
|
begin
|
|||
|
if BackUpTime>0 then dec(BackUpTime);
|
|||
|
if BackupTime=0 then Alarm;
|
|||
|
if BackupTime=1 then BackupTime:=0;
|
|||
|
end;
|
|||
|
Ctrl_Cslt:
|
|||
|
begin
|
|||
|
if BackUpTime>=10 then BackUpTime:=BackupTime-10 else alarm;
|
|||
|
if BackupTime=1 then BackupTime:=0;
|
|||
|
end;
|
|||
|
end; {Case}
|
|||
|
farbe(highvg,highhg);
|
|||
|
gotoxy(xsp+27,ysp+Ausw);
|
|||
|
fuel:=0;
|
|||
|
if BackUpTime<100 then fuel:=fuel+1;
|
|||
|
write(BackUpTime,Balken(fuel,' '));
|
|||
|
end; {ausw=5}
|
|||
|
|
|||
|
until tast=esc;
|
|||
|
end; {with}
|
|||
|
end;
|
|||
|
|
|||
|
|
|||
|
procedure drucker;
|
|||
|
var auswa,ausw,fuel:byte;
|
|||
|
change:boolean;
|
|||
|
Tast:char;
|
|||
|
eingabe:string;
|
|||
|
begin
|
|||
|
ithema(70);
|
|||
|
eingabe:='';
|
|||
|
HelpNr:=10;
|
|||
|
with konfig do
|
|||
|
begin
|
|||
|
farbe(white,black);
|
|||
|
CursorAus;
|
|||
|
clrscr;
|
|||
|
ladebild(rahmen);
|
|||
|
|
|||
|
Textzent(helpSetup[16],2,80,ydr-3);
|
|||
|
textzent(endfill(length(helpSetup[16]),'<27>',eingabe),2,80,ydr-2);
|
|||
|
{!PRTT}
|
|||
|
gotoxy(xdr,ydr+1); write(helpb[1]+': ',LPtNr);
|
|||
|
gotoxy(xdr,ydr+2); write(helpb[2]+': ',LPtAdr);
|
|||
|
farbe(highvg,highhg);
|
|||
|
gotoxy(xdr+17,ydr+1);write(LPTNr);
|
|||
|
farbe(specvg,black);
|
|||
|
textzent(helpSetup[4],2,80,22);
|
|||
|
textzent(helpSetup[8],2,80,23);
|
|||
|
Change:=false;
|
|||
|
Ausw:=1;
|
|||
|
repeat
|
|||
|
if ausw<>2 then tast:=taste;
|
|||
|
auswa:=ausw;
|
|||
|
Case Tast of
|
|||
|
f1:help(false,0);
|
|||
|
cr,tab,csdn:
|
|||
|
begin
|
|||
|
inc(ausw);
|
|||
|
if Ausw>2 then Ausw:=1;
|
|||
|
Change:=true;
|
|||
|
end;
|
|||
|
csUp,shift_tab:
|
|||
|
begin
|
|||
|
dec(ausw);
|
|||
|
if Ausw<1 then Ausw:=2;
|
|||
|
Change:=true;
|
|||
|
end;
|
|||
|
end; {case tast}
|
|||
|
if change then
|
|||
|
begin
|
|||
|
change:=false;
|
|||
|
farbe(white,black);
|
|||
|
gotoxY(xdr+17,ydr+auswa);
|
|||
|
case Auswa of
|
|||
|
1: write(lptNr);
|
|||
|
2: write(lptAdr+' ');
|
|||
|
end; {case auswa}
|
|||
|
farbe(highvg,highhg);
|
|||
|
gotoxY(xdr+17,ydr+ausw);
|
|||
|
case Ausw of
|
|||
|
1: begin
|
|||
|
write(lptNr);
|
|||
|
farbe(specvg,black);
|
|||
|
textzent(helpSetup[4],2,80,22);
|
|||
|
end;
|
|||
|
2: begin
|
|||
|
write(balken(3,' '));
|
|||
|
gotoxY(xdr+17,ydr+ausw);
|
|||
|
write(lptAdr);
|
|||
|
farbe(specvg,black);
|
|||
|
textzent(balken(73,#32),2,80,22);
|
|||
|
end;
|
|||
|
end; {case ausw}
|
|||
|
end; {change}
|
|||
|
if Ausw=1 then
|
|||
|
begin
|
|||
|
case tast of
|
|||
|
cslt: begin
|
|||
|
dec(lptNr);
|
|||
|
if lptnr=0 then lptnr:=3;
|
|||
|
end;
|
|||
|
CsRt: begin
|
|||
|
inc(lptNr);
|
|||
|
if lptnr>3 then lptnr:=1;
|
|||
|
end;
|
|||
|
end;
|
|||
|
farbe(highvg,highhg);
|
|||
|
gotoxy(xdr+17,ydr+ausw);
|
|||
|
write(lptnr);
|
|||
|
end;
|
|||
|
If Ausw=2 then
|
|||
|
begin
|
|||
|
cursorEin;
|
|||
|
Editor(lptadr,xdr+17,ydr+ausw,3,true,false,tast,0);
|
|||
|
CursorAus;
|
|||
|
end;
|
|||
|
until tast=esc;
|
|||
|
|
|||
|
|
|||
|
end;{with}
|
|||
|
end;
|
|||
|
|
|||
|
procedure MailFrameSet;
|
|||
|
var mfs, auswa, x,y, ausw : byte;
|
|||
|
change: boolean;
|
|||
|
eingabe:string;
|
|||
|
fuel:byte;
|
|||
|
tast:char;
|
|||
|
|
|||
|
begin
|
|||
|
ithema(50);
|
|||
|
eingabe:='';
|
|||
|
HelpNr:=8;
|
|||
|
with konfig do
|
|||
|
begin
|
|||
|
auswa:=1;
|
|||
|
ausw:=1;
|
|||
|
change:=false;
|
|||
|
farbe (white, black);
|
|||
|
clrscr;
|
|||
|
ladebild(rahmen);
|
|||
|
|
|||
|
Textzent(helpSetup[14],2,80,yml-2);
|
|||
|
textzent(endfill(length(helpSetup[14]),'<27>',eingabe),2,80,yml-1);
|
|||
|
|
|||
|
end;
|
|||
|
y:=yml;
|
|||
|
x:=xml;
|
|||
|
{!Mailt}
|
|||
|
gotoxy(x,yml); write(helpb[1]+': ');
|
|||
|
farbe(highvg,highhg);
|
|||
|
if Konfig.MailFErl then write(RespT[1]) else write(RespT[2]);
|
|||
|
farbe(specvg,black);
|
|||
|
textzent(helpSetup[4],2,79,22);
|
|||
|
textzent(helpSetup[8],2,79,23);
|
|||
|
cursorAus;
|
|||
|
farbe(highvg, highhg);
|
|||
|
for mfs:=1 to 10 do
|
|||
|
begin
|
|||
|
y:=y+2;
|
|||
|
if mfs=6 then
|
|||
|
begin
|
|||
|
y:=yml+2;
|
|||
|
x:=x+19;
|
|||
|
end;
|
|||
|
gotoxy(x,y);
|
|||
|
write(Balken(10,' '));
|
|||
|
gotoxy(x,y); write(Konfig.MailFrame[mfs]);
|
|||
|
end;
|
|||
|
|
|||
|
farbe(white,black); gotoxy(xml, y+2); write(HelpB[2]+': ');
|
|||
|
if Konfig.OwnMailFr then write(RespT[1]) else write(RespT[2]);
|
|||
|
|
|||
|
farbe(white,black); gotoxy(xml, y+3); write(HelpB[4]+': ',Konfig.MailFrameZeit);
|
|||
|
gotoxy(xml,y+4); write(HelpB[3]+': ');
|
|||
|
|
|||
|
gotoxy(xml,y+5);
|
|||
|
farbe(highvg, highhg); write(EndFill(50,' ',Konfig.OwnMailPfad));
|
|||
|
|
|||
|
repeat
|
|||
|
if ausw=1 then
|
|||
|
begin
|
|||
|
farbe(highvg,highhg);
|
|||
|
gotoxy(xml+24,yml+ausw-1);
|
|||
|
if Konfig.MailFErl then write(RespT[1]) else write(RespT[2]);
|
|||
|
cursorAus;
|
|||
|
|
|||
|
end;
|
|||
|
if ausw in [1,12,13] then tast:=taste;
|
|||
|
case Tast of
|
|||
|
f1:help(false,50);
|
|||
|
CsDn,CR, Tab: begin
|
|||
|
inc(Ausw);
|
|||
|
change:=true;
|
|||
|
end;
|
|||
|
CSUp,Shift_Tab: begin
|
|||
|
dec(Ausw);
|
|||
|
change:=true;
|
|||
|
end;
|
|||
|
end;
|
|||
|
if Ausw>14 then Ausw:=1;
|
|||
|
if Ausw<1 then Ausw:=14;
|
|||
|
if Ausw in [2,11,12,13,14] then
|
|||
|
begin
|
|||
|
farbe(white ,black);
|
|||
|
gotoxy(xml+24,yml);
|
|||
|
if Konfig.MailFErl then write(RespT[1]) else write(RespT[2]);
|
|||
|
gotoxy(xml+24, yml+12);
|
|||
|
if Konfig.OwnMailFr then write(RespT[1]) else write(RespT[2]);
|
|||
|
gotoxy(xml+24, yml+13);
|
|||
|
write(Konfig.MailFrameZeit,' ');
|
|||
|
farbe(specvg,black);
|
|||
|
textzent(Balken(77,' '),2,79,22);
|
|||
|
textzent(helpSetup[8],2,79,23);
|
|||
|
end;
|
|||
|
if Ausw=1 then
|
|||
|
begin
|
|||
|
if change then
|
|||
|
begin
|
|||
|
change:=false;
|
|||
|
farbe(specvg, black);
|
|||
|
textzent(helpSetup[4],2,79,22);
|
|||
|
textzent(helpSetup[8],2,79,23);
|
|||
|
end;
|
|||
|
case Tast of
|
|||
|
csrt,cslt: Konfig.MailFErl:=not Konfig.MailFErl;
|
|||
|
end;
|
|||
|
farbe(highvg, highhg);
|
|||
|
gotoxy(xml+24, yml+Ausw-1);
|
|||
|
if Konfig.MailFErl then write(RespT[1]) else write(RespT[2]);
|
|||
|
end;
|
|||
|
|
|||
|
if Ausw in [2..11] then
|
|||
|
begin
|
|||
|
y:=yml;
|
|||
|
x:=xml;
|
|||
|
for mfs:=1 to ausw-1 do
|
|||
|
begin
|
|||
|
y:=y+2;
|
|||
|
if mfs=6 then
|
|||
|
begin
|
|||
|
x:=x+19;
|
|||
|
y:=yml+2;
|
|||
|
end;
|
|||
|
end;
|
|||
|
Editor(Konfig.MailFrame[Ausw-1],x,y,10,true,false,Tast,50);
|
|||
|
end;
|
|||
|
|
|||
|
if Ausw=12 then
|
|||
|
begin
|
|||
|
if change then
|
|||
|
begin
|
|||
|
change:=false;
|
|||
|
farbe(specvg, black);
|
|||
|
textzent(helpSetup[4],2,79,22);
|
|||
|
textzent(helpSetup[8],2,79,23);
|
|||
|
end;
|
|||
|
case Tast of
|
|||
|
csrt,cslt: Konfig.OwnMailFr:=not Konfig.OwnMailFr;
|
|||
|
end;
|
|||
|
farbe(highvg, highhg);
|
|||
|
gotoxy(xml+24, yml+12);
|
|||
|
if Konfig.OwnMailFr then write(RespT[1]) else write(RespT[2]);
|
|||
|
end; {12}
|
|||
|
|
|||
|
if Ausw=13 then
|
|||
|
begin
|
|||
|
Case Tast of
|
|||
|
Csrt:
|
|||
|
begin
|
|||
|
if Konfig.MailFrameZeit<120 then inc(Konfig.MailFrameZeit)
|
|||
|
else Alarm;
|
|||
|
end;
|
|||
|
Ctrl_Csrt:
|
|||
|
begin
|
|||
|
if Konfig.MailFrameZeit=120 then alarm;
|
|||
|
if (Konfig.MailFrameZeit>110) and (Konfig.MailFrameZeit<120) then Konfig.MailFrameZeit:=120;
|
|||
|
if Konfig.MailFrameZeit<111 then Konfig.MailFrameZeit:=Konfig.MailFrameZeit+10;
|
|||
|
end;
|
|||
|
Cslt:
|
|||
|
begin
|
|||
|
if Konfig.MailFrameZeit>1 then dec(Konfig.MailFrameZeit)
|
|||
|
else Alarm;
|
|||
|
end;
|
|||
|
Ctrl_Cslt:
|
|||
|
begin
|
|||
|
if Konfig.MailFrameZeit=10 then alarm;
|
|||
|
if Konfig.MailFrameZeit<20 then Konfig.MailFrameZeit:=10;
|
|||
|
if Konfig.MailFrameZeit>19 then Konfig.MailFrameZeit:=Konfig.MailFrameZeit-10;
|
|||
|
end;
|
|||
|
end; {Case}
|
|||
|
farbe(highvg,highhg);
|
|||
|
gotoxy(xml+24,yml+13);
|
|||
|
fuel:=0;
|
|||
|
if Konfig.MailFrameZeit<100 then fuel:=fuel+1;
|
|||
|
write(Konfig.MailFrameZeit,Balken(fuel,' '));
|
|||
|
end; {ausw=13}
|
|||
|
|
|||
|
if Ausw=14 then
|
|||
|
begin
|
|||
|
gotoxy(xml, yml+15); farbe(highvg, highhg); write(EndFill(50,' ',Konfig.OwnMailPfad));
|
|||
|
Editor(Konfig.OwnMailPfad,xml,yml+15,50,true,true,Tast,50);
|
|||
|
end;
|
|||
|
until tast=ESC;
|
|||
|
end;
|
|||
|
|
|||
|
procedure Sound;
|
|||
|
var eingabe:string;
|
|||
|
change:boolean;
|
|||
|
ausw,auswa:byte;
|
|||
|
tast:char;
|
|||
|
neu,
|
|||
|
fehl:integer;
|
|||
|
begin
|
|||
|
{$IFDEF Sound}
|
|||
|
ithema(100);
|
|||
|
eingabe:='';
|
|||
|
HelpNr:=14;
|
|||
|
with konfig do
|
|||
|
begin
|
|||
|
farbe(white,black);
|
|||
|
CursorAus;
|
|||
|
clrscr;
|
|||
|
ladebild(rahmen);
|
|||
|
|
|||
|
Textzent(helpSetup[38],2,80,ysn-3);
|
|||
|
textzent(endfill(length(helpSetup[38]),'<27>',eingabe),2,80,ysn-2);
|
|||
|
|
|||
|
farbe(white,black);
|
|||
|
gotoxy(xsn, ysn+1); write(helpb[1]+':');
|
|||
|
farbe(highvg,highhg);
|
|||
|
gotoxy(xsn+26, ysn+1); if WavOut then write(RespT[1]) else write(RespT[2]);
|
|||
|
|
|||
|
farbe(white,black);
|
|||
|
gotoxy(xsn, ysn+2); write(helpb[2]+':') ;
|
|||
|
gotoxy(xsn+26, ysn+2); if WavSprach then write(RespT[1]) else write(RespT[2]);
|
|||
|
|
|||
|
gotoxy(xsn, ysn+3); write(helpb[3]+':') ;
|
|||
|
gotoxy(xsn+26, ysn+3); if MidiOut then write(RespT[1]) else write(RespT[2]);
|
|||
|
|
|||
|
if MidiADR=0 then MidiADR:=904;
|
|||
|
gotoxy(xsn, ysn+4); write(helpb[4]+': ', Hex(MidiADR,3));
|
|||
|
|
|||
|
gotoxy(xsn, ysn+5); write(helpb[5]+': ', Hex(SBBaseADR,3));
|
|||
|
gotoxy(xsn, ysn+6); write(helpb[6]+': ', SBLoDMA);
|
|||
|
gotoxy(xsn, ysn+7); write(helpb[7]+': ', SBHiDMA);
|
|||
|
gotoxy(xsn, ysn+8); write(helpb[8]+': ', SBIRQ);
|
|||
|
|
|||
|
|
|||
|
farbe(specvg,black);
|
|||
|
textzent(helpSetup[4],2,80,22); {rechts/links}
|
|||
|
textzent(helpSetup[39],2,80,23);
|
|||
|
Change:=false;
|
|||
|
Ausw:=1;
|
|||
|
repeat
|
|||
|
if (ausw<4) or (Ausw>5) then tast:=taste;
|
|||
|
auswa:=ausw;
|
|||
|
Case Tast of
|
|||
|
f1:help(false,0);
|
|||
|
f2:begin
|
|||
|
SBDetect(SBBaseADR, SBHiDMA, SBLoDMA, SBIRQ);
|
|||
|
if SBBaseADR = 0 then
|
|||
|
begin
|
|||
|
farbe(White,black);
|
|||
|
gotoxy(xsn+26,ysn+5); write('? ');
|
|||
|
gotoxy(xsn+26,ysn+6); write('? ');
|
|||
|
gotoxy(xsn+26,ysn+7); write('? ');
|
|||
|
gotoxy(xsn+26,ysn+8); write('? ');
|
|||
|
end else
|
|||
|
begin
|
|||
|
farbe(White,black);
|
|||
|
gotoxy(xsn+26,ysn+5); write(Hex(SBBaseADR,3));
|
|||
|
gotoxy(xsn+26,ysn+6); write(SBLoDMA);
|
|||
|
gotoxy(xsn+26,ysn+7); write(SBHiDMA);
|
|||
|
gotoxy(xsn+26,ysn+8); write(SBirq);
|
|||
|
end;
|
|||
|
end;
|
|||
|
cr,tab,csdn:
|
|||
|
begin
|
|||
|
inc(ausw);
|
|||
|
if Ausw>8 then Ausw:=1;
|
|||
|
Change:=true;
|
|||
|
end;
|
|||
|
csUp,shift_tab:
|
|||
|
begin
|
|||
|
dec(ausw);
|
|||
|
if Ausw<1 then Ausw:=8;
|
|||
|
Change:=true;
|
|||
|
end;
|
|||
|
end; {case tast}
|
|||
|
if change then
|
|||
|
begin
|
|||
|
change:=false;
|
|||
|
farbe(white,black);
|
|||
|
gotoxY(xsn+26,ysn+auswa);
|
|||
|
case Auswa of
|
|||
|
1: if WavOut then write(RespT[1]) else write(RespT[2]);
|
|||
|
2: if WavSprach then write(RespT[1]) else write(RespT[2]);
|
|||
|
3: if MidiOut then write(RespT[1]) else write(RespT[2]);
|
|||
|
6: write(endfill(2,#32,int_Str(SBLoDMA)));
|
|||
|
7: write(endfill(2,#32,int_str(SBHiDMA)));
|
|||
|
8: write(endfill(2,#32, int_str(SBIRQ)));
|
|||
|
end; {case auswa}
|
|||
|
farbe(highvg,highhg);
|
|||
|
gotoxY(xsn+26,ysn+ausw);
|
|||
|
case Ausw of
|
|||
|
1: begin
|
|||
|
if WAVOut then write(RespT[1]) else write(RespT[2]);
|
|||
|
farbe(white,black);
|
|||
|
textzent(helpSetup[4],2,80,22); {rechts/links}
|
|||
|
end;
|
|||
|
2: begin
|
|||
|
if WAVSprach then write(RespT[1]) else write(RespT[2]);
|
|||
|
farbe(white,black);
|
|||
|
textzent(helpSetup[4],2,80,22); {rechts/links}
|
|||
|
end;
|
|||
|
3: begin
|
|||
|
if MidiOut then write(RespT[1]) else write(RespT[2]);
|
|||
|
farbe(white,black);
|
|||
|
textzent(helpSetup[4],2,80,22); {rechts/links}
|
|||
|
end;
|
|||
|
4: begin
|
|||
|
farbe(white,black);
|
|||
|
textzent(balken(73,#32),2,80,22);
|
|||
|
farbe(highvg,highhg);
|
|||
|
gotoxY(xsn+26,ysn+ausw);
|
|||
|
write(balken(3,' '));
|
|||
|
gotoxY(xsn+26,ysn+ausw);
|
|||
|
eingabe:=HEX(MidiADR,3);
|
|||
|
write(eingabe);
|
|||
|
Editor(eingabe,xsn+26,ysn+ausw,3,true,false,Tast,0);
|
|||
|
eingabe:='$'+eingabe;
|
|||
|
VAL(eingabe, Neu, Fehl);
|
|||
|
if Fehl=0 then MidiADR:=neu
|
|||
|
else eingabe:=HEX(MidiADR,3);
|
|||
|
farbe(white,black);
|
|||
|
if eingabe[1]='$' then delete(eingabe,1,1);
|
|||
|
write(eingabe);
|
|||
|
farbe(specvg,black);
|
|||
|
end;
|
|||
|
5: begin
|
|||
|
farbe(white,black);
|
|||
|
textzent(balken(73,#32),2,80,22);
|
|||
|
gotoxY(xsn+26,ysn+ausw);
|
|||
|
farbe(highvg,highhg);
|
|||
|
write(balken(3,' '));
|
|||
|
gotoxY(xsn+26,ysn+ausw);
|
|||
|
eingabe:=HEX(SBBaseADR,3);
|
|||
|
write(eingabe);
|
|||
|
Editor(eingabe,xsn+26,ysn+ausw,3,true,false,Tast,0);
|
|||
|
eingabe:='$'+eingabe;
|
|||
|
VAL(eingabe, Neu, Fehl);
|
|||
|
if Fehl=0 then SBBaseADR:=neu
|
|||
|
else eingabe:=HEX(SBBaseADR,3);
|
|||
|
farbe(white,black);
|
|||
|
if eingabe[1]='$' then delete(eingabe,1,1);
|
|||
|
write(eingabe);
|
|||
|
farbe(specvg,black);
|
|||
|
end;
|
|||
|
6: begin
|
|||
|
write(endfill(2,#32,int_Str(SBLoDMA)));
|
|||
|
farbe(white,black);
|
|||
|
textzent(helpSetup[4],2,80,22); {rechts/links}
|
|||
|
end;
|
|||
|
7: begin
|
|||
|
write(endfill(2,#32,int_str(SBHiDMA)));
|
|||
|
farbe(white,black);
|
|||
|
textzent(helpSetup[4],2,80,22); {rechts/links}
|
|||
|
end;
|
|||
|
8: begin
|
|||
|
write(endfill(2,#32, int_str(SBIRQ)));
|
|||
|
farbe(white,black);
|
|||
|
textzent(helpSetup[4],2,80,22); {rechts/links}
|
|||
|
end;
|
|||
|
end; {case ausw}
|
|||
|
end; {change}
|
|||
|
|
|||
|
farbe(highvg,highhg);
|
|||
|
|
|||
|
if Ausw=1 then
|
|||
|
begin
|
|||
|
case tast of
|
|||
|
cslt, csrt, #32: WavOut:=not WavOut;
|
|||
|
end;
|
|||
|
farbe(highvg,highhg);
|
|||
|
gotoxy(xsn+26,ysn+ausw);
|
|||
|
if WavOut then write(RespT[1]) else write(RespT[2]);
|
|||
|
if WavOut and MidiOut then MidiOUt:=False;
|
|||
|
end;
|
|||
|
If Ausw=2 then
|
|||
|
begin
|
|||
|
case tast of
|
|||
|
cslt, csrt, #32: WavSprach:=not WavSprach;
|
|||
|
end;
|
|||
|
farbe(highvg,highhg);
|
|||
|
gotoxy(xsn+26,ysn+ausw);
|
|||
|
if WavSprach then write(RespT[1]) else write(RespT[2]);
|
|||
|
end;
|
|||
|
If Ausw=3 then
|
|||
|
begin
|
|||
|
farbe(highvg,highhg);
|
|||
|
case tast of
|
|||
|
cslt, csrt, #32: MidiOut:=not MidiOut;
|
|||
|
end;
|
|||
|
gotoxy(xsn+26,ysn+ausw);
|
|||
|
if MidiOut then write(RespT[1]) else write(RespT[2]);
|
|||
|
if WavOut and MidiOut then WAVOUt:=False;
|
|||
|
end;
|
|||
|
If Ausw=6 then
|
|||
|
begin
|
|||
|
farbe(highvg,highhg);
|
|||
|
case tast of
|
|||
|
csrt: if SBLoDMA<10 then inc(SBLoDMA) else Alarm;
|
|||
|
cslt: if SBLoDMA>1 then dec(SBLoDMA) else ALARM;
|
|||
|
end;
|
|||
|
gotoxy(xsn+26,ysn+ausw);
|
|||
|
write(endfill(2,#32,int_Str(SBLoDMA)));
|
|||
|
end;
|
|||
|
If Ausw=7 then
|
|||
|
begin
|
|||
|
farbe(highvg,highhg);
|
|||
|
case tast of
|
|||
|
csrt: if SBHiDMA<10 then inc(SBHiDMA) else Alarm;
|
|||
|
cslt: if SBHiDMA>1 then dec(SBHiDMA) else ALARM;
|
|||
|
end;
|
|||
|
gotoxy(xsn+26,ysn+ausw);
|
|||
|
write(endfill(2,#32,int_str(SBHiDMA)));
|
|||
|
end;
|
|||
|
If Ausw=8 then
|
|||
|
begin
|
|||
|
farbe(highvg,highhg);
|
|||
|
case tast of
|
|||
|
csrt: if SBIRQ<15 then inc(SBIRQ) else Alarm;
|
|||
|
cslt: if SBIRQ>1 then dec(SBIRQ) else ALARM;
|
|||
|
end;
|
|||
|
gotoxy(xsn+26,ysn+ausw);
|
|||
|
write(endfill(2,#32, int_str(SBIRQ)));
|
|||
|
end;
|
|||
|
until tast=esc;
|
|||
|
|
|||
|
|
|||
|
end;{with}
|
|||
|
{$ENDIF}
|
|||
|
end;
|
|||
|
|
|||
|
procedure blinde;
|
|||
|
var auswa, ausw : byte;
|
|||
|
change: boolean;
|
|||
|
fuel:byte;
|
|||
|
tast:char;
|
|||
|
eingabe:string;
|
|||
|
begin
|
|||
|
iThema(80);
|
|||
|
HelpNr:=11;
|
|||
|
with konfig do
|
|||
|
begin
|
|||
|
eingabe:='';
|
|||
|
auswa:=1;
|
|||
|
ausw:=1;
|
|||
|
change:=false;
|
|||
|
farbe (white, black);
|
|||
|
clrscr;
|
|||
|
ladebild(rahmen);
|
|||
|
{!BLNT}
|
|||
|
Textzent(helpSetup[17],2,80,ybld-3);
|
|||
|
textzent(endfill(length(helpSetup[17]),'<27>',eingabe),2,80,ybld-2);
|
|||
|
|
|||
|
gotoxy(xbld,ybld+1); write(helpb[1]+': ');
|
|||
|
if SoftHardC then write(RespT[1]) else write(RespT[2]);
|
|||
|
|
|||
|
gotoxy(xbld,ybld+2); write(helpb[2]+': ');
|
|||
|
if WinRout then write(RespT[1]) else write(RespT[2]);
|
|||
|
|
|||
|
gotoxy(xbld,ybld+3); write(helpb[3]+': ',WinRoutTime);
|
|||
|
|
|||
|
gotoxy(xbld,ybld+4); write(helpb[4]+': ');
|
|||
|
if RXBeepStart then write(RespT[1]) else write(RespT[2]);
|
|||
|
|
|||
|
gotoxy(xbld,ybld+5); write(helpb[5]+': ');
|
|||
|
if AchzigBrail then write(RespT[1]) else write(RespT[2]);
|
|||
|
|
|||
|
gotoxy(xbld,ybld+6); write(helpb[6]+': ');
|
|||
|
if SteuerZ then write(RespT[1]) else write(RespT[2]);
|
|||
|
|
|||
|
gotoxy(xbld,ybld+7); write(helpb[7]+': ');
|
|||
|
if MarkTon then write(RespT[1]) else write(RespT[2]);
|
|||
|
|
|||
|
gotoxy(xbld,ybld+8); write(helpb[8]+': ');
|
|||
|
if ausgabeBios then write(RespT[1]) else write(RespT[2]);
|
|||
|
|
|||
|
farbe(specvg, black);
|
|||
|
textzent(helpSetup[4],2,80,22);
|
|||
|
textzent(helpSetup[8],2,80,23);
|
|||
|
farbe(highvg,highhg);
|
|||
|
gotoxy(xbld+27,ybld+ausw);
|
|||
|
if softhardC then write(RespT[1]) else write(RespT[2]);
|
|||
|
cursorAus;
|
|||
|
|
|||
|
repeat
|
|||
|
tast:=taste;
|
|||
|
auswa:=ausw;
|
|||
|
case tast of
|
|||
|
f1:help(false,80);
|
|||
|
csdn, cr, tab:
|
|||
|
begin
|
|||
|
inc(ausw);
|
|||
|
change:=true;
|
|||
|
if ausw>8 then ausw:=1;
|
|||
|
end;
|
|||
|
csup, shift_tab:
|
|||
|
begin
|
|||
|
dec(ausw);
|
|||
|
change:=true;
|
|||
|
if ausw<1 then ausw:=8;
|
|||
|
end;
|
|||
|
end; {case tast}
|
|||
|
|
|||
|
if change then
|
|||
|
begin
|
|||
|
farbe(white,black);
|
|||
|
textzent(Balken(78,' '),2,79,22);
|
|||
|
textzent(Balken(78,' '),2,79,23);
|
|||
|
gotoxy(xbld+27,ybld+auswa);
|
|||
|
change:=false;
|
|||
|
case auswa of
|
|||
|
1: if softhardC then write(RespT[1]) else write(RespT[2]);
|
|||
|
2: if Winrout then write(RespT[1]) else write(RespT[2]);
|
|||
|
3: write(WinRoutTime,' ');
|
|||
|
4: if RXBeepStart then write(RespT[1]) else write(RespT[2]);
|
|||
|
5: if AchzigBrail then write(RespT[1]) else write(RespT[2]);
|
|||
|
6: if SteuerZ then write(RespT[1]) else write(RespT[2]);
|
|||
|
7: if MarkTon then write(RespT[1]) else write(RespT[2]);
|
|||
|
8: if AusgabeBios then write(RespT[1]) else write(RespT[2]);
|
|||
|
end;
|
|||
|
farbe(highvg,highhg);
|
|||
|
gotoxy(xbld+27,ybld+ausw);
|
|||
|
case ausw of
|
|||
|
1: begin
|
|||
|
if softhardC then write(RespT[1]) else write(RespT[2]);
|
|||
|
farbe(specvg, black);
|
|||
|
textzent(helpSetup[4],2,80,22);
|
|||
|
textzent(helpSetup[8],2,80,23);
|
|||
|
end;
|
|||
|
2: begin
|
|||
|
if Winrout then write(RespT[1]) else write(RespT[2]);
|
|||
|
farbe(specvg, black);
|
|||
|
textzent(helpSetup[4],2,80,22);
|
|||
|
textzent(helpSetup[8],2,80,23);
|
|||
|
end;
|
|||
|
3: begin
|
|||
|
write(balken(2,' '));
|
|||
|
gotoxy(xbld+27,ybld+ausw);
|
|||
|
write(WinRoutTime,' ');
|
|||
|
farbe(specvg, black);
|
|||
|
textzent(helpSetup[5],2,80,22);
|
|||
|
textzent(helpSetup[8],2,80,23);
|
|||
|
end;
|
|||
|
4:begin
|
|||
|
if RXBeepStart then write(RespT[1]) else write(RespT[2]);
|
|||
|
farbe(specvg, black);
|
|||
|
textzent(helpSetup[4],2,80,22);
|
|||
|
textzent(helpSetup[8],2,80,23);
|
|||
|
end;
|
|||
|
5: begin
|
|||
|
if AchzigBrail then write(RespT[1]) else write(RespT[2]);
|
|||
|
farbe(specvg, black);
|
|||
|
textzent(helpSetup[4],2,80,22);
|
|||
|
textzent(helpSetup[8],2,80,23);
|
|||
|
end;
|
|||
|
6: begin
|
|||
|
if SteuerZ then write(RespT[1]) else write(RespT[2]);
|
|||
|
farbe(specvg, black);
|
|||
|
textzent(helpSetup[4],2,80,22);
|
|||
|
textzent(helpSetup[8],2,80,23);
|
|||
|
end;
|
|||
|
7: begin
|
|||
|
if MarkTon then write(RespT[1]) else write(RespT[2]);
|
|||
|
farbe(specvg, black);
|
|||
|
textzent(helpSetup[4],2,80,22);
|
|||
|
textzent(helpSetup[8],2,80,23);
|
|||
|
end;
|
|||
|
8: begin
|
|||
|
if AusgabeBios then write(RespT[1]) else write(RespT[2]);
|
|||
|
farbe(specvg, black);
|
|||
|
textzent(helpSetup[4],2,80,22);
|
|||
|
textzent(helpSetup[8],2,80,23);
|
|||
|
end;
|
|||
|
end;
|
|||
|
|
|||
|
end; {change}
|
|||
|
|
|||
|
if Ausw=1 then
|
|||
|
begin
|
|||
|
case Tast of
|
|||
|
CsLt, CsRt: softhardc:=not softhardc;
|
|||
|
end;
|
|||
|
farbe(highvg,highhg);
|
|||
|
gotoxy(xbld+27,ybld+ausw);
|
|||
|
if Softhardc then Write(RespT[1]) else write(RespT[2]);
|
|||
|
end; {ausw=1}
|
|||
|
|
|||
|
if Ausw=2 then
|
|||
|
begin
|
|||
|
case Tast of
|
|||
|
CsLt, CsRt: WinRout:=not Winrout;
|
|||
|
end;
|
|||
|
farbe(highvg,highhg);
|
|||
|
gotoxy(xbld+27,ybld+ausw);
|
|||
|
if WinRout then Write(RespT[1]) else write(RespT[2]);
|
|||
|
end; {ausw=2}
|
|||
|
|
|||
|
if Ausw=3 then
|
|||
|
begin
|
|||
|
Case Tast of
|
|||
|
Csrt:
|
|||
|
begin
|
|||
|
if winrouttime<30 then inc(winrouttime)
|
|||
|
else Alarm;
|
|||
|
end;
|
|||
|
Ctrl_Csrt:
|
|||
|
begin
|
|||
|
if winrouttime=30 then alarm;
|
|||
|
if (winrouttime>20) and (winrouttime<30) then winrouttime:=30;
|
|||
|
if winrouttime<21 then winrouttime:=winrouttime+10;
|
|||
|
end;
|
|||
|
Cslt:
|
|||
|
begin
|
|||
|
if winrouttime>1 then dec(winrouttime)
|
|||
|
else Alarm;
|
|||
|
end;
|
|||
|
Ctrl_Cslt:
|
|||
|
begin
|
|||
|
if winrouttime=1 then alarm;
|
|||
|
if winrouttime<11 then winrouttime:=1;
|
|||
|
if winrouttime>11 then winrouttime:=winrouttime-10;
|
|||
|
end;
|
|||
|
end; {Case}
|
|||
|
farbe(highvg,highhg);
|
|||
|
gotoxy(xbld+27,ybld+Ausw);
|
|||
|
fuel:=0;
|
|||
|
if winrouttime<10 then fuel:=fuel+1;
|
|||
|
write(winrouttime,Balken(fuel,' '));
|
|||
|
end; {ausw=3}
|
|||
|
|
|||
|
if Ausw=4 then
|
|||
|
begin
|
|||
|
case Tast of
|
|||
|
CsLt, CsRt: RXBeepStart:=not rxbeepstart;
|
|||
|
end;
|
|||
|
farbe(highvg,highhg);
|
|||
|
gotoxy(xbld+27,ybld+ausw);
|
|||
|
if rxbeepstart then Write(RespT[1]) else write(RespT[2]);
|
|||
|
end; {ausw=4}
|
|||
|
|
|||
|
if Ausw=5 then
|
|||
|
begin
|
|||
|
case Tast of
|
|||
|
CsLt, CsRt: AchzigBrail:=not AchzigBrail;
|
|||
|
end;
|
|||
|
farbe(highvg,highhg);
|
|||
|
gotoxy(xbld+27,ybld+ausw);
|
|||
|
if AchzigBrail then Write(RespT[1]) else write(RespT[2]);
|
|||
|
end; {ausw=5}
|
|||
|
|
|||
|
if Ausw=6 then
|
|||
|
begin
|
|||
|
case Tast of
|
|||
|
CsLt, CsRt: Steuerz:=not Steuerz;
|
|||
|
end;
|
|||
|
farbe(highvg,highhg);
|
|||
|
gotoxy(xbld+27,ybld+ausw);
|
|||
|
if Steuerz then Write(RespT[1]) else write(RespT[2]);
|
|||
|
end; {ausw=6}
|
|||
|
|
|||
|
if Ausw=7 then
|
|||
|
begin
|
|||
|
case Tast of
|
|||
|
CsLt, CsRt: MarkTon:=not MarkTon;
|
|||
|
end;
|
|||
|
farbe(highvg,highhg);
|
|||
|
gotoxy(xbld+27,ybld+ausw);
|
|||
|
if MarkTon then Write(RespT[1]) else write(RespT[2]);
|
|||
|
end; {ausw=7}
|
|||
|
|
|||
|
if Ausw=8 then
|
|||
|
begin
|
|||
|
case Tast of
|
|||
|
CsLt, CsRt: ausgabeBios:=not AusgabeBios;
|
|||
|
end;
|
|||
|
farbe(highvg,highhg);
|
|||
|
gotoxy(xbld+27,ybld+ausw);
|
|||
|
if AusgabeBios then Write(RespT[1]) else write(RespT[2]);
|
|||
|
end; {ausw=8}
|
|||
|
|
|||
|
until tast=esc;
|
|||
|
end; {with}
|
|||
|
end; {blinde}
|
|||
|
|
|||
|
procedure Persoenliches;
|
|||
|
var tast : char;
|
|||
|
eingabe: string;
|
|||
|
i : byte;
|
|||
|
ausw, a:byte;
|
|||
|
begin
|
|||
|
with Konfig do
|
|||
|
begin
|
|||
|
IThema(90);
|
|||
|
eingabe:='';
|
|||
|
helpNr:=13;
|
|||
|
farbe (white, black);
|
|||
|
tast:=#1;
|
|||
|
clrscr;
|
|||
|
ladebild(rahmen);
|
|||
|
Textzent(helpSetup[37],2,80,yper-3);
|
|||
|
textzent(endfill(length(helpSetup[37]),'<27>',eingabe),2,80,yper-2);
|
|||
|
|
|||
|
gotoxy(xper,yper+1); write(Helpb[1]+': '+PersName);
|
|||
|
|
|||
|
gotoxy(xper,yper+2); write(helpb[2]+': '+PersLoc);
|
|||
|
|
|||
|
gotoxy(xper,yper+3); write(helpb[3]+': '+PersQTH);
|
|||
|
textzent(helpSetup[8],2,80,23);
|
|||
|
textzent(helpB[4],2,80,yper+7);
|
|||
|
ausw:=1; a:=0;
|
|||
|
repeat
|
|||
|
farbe(white, black);
|
|||
|
|
|||
|
case Tast of
|
|||
|
F1 : help(false,13);
|
|||
|
CR,tab,CsDn: inc(ausw);
|
|||
|
shift_tab,csup: dec(ausw);
|
|||
|
end;
|
|||
|
if ausw>3 then ausw:=1;
|
|||
|
if ausw<1 then ausw:=3;
|
|||
|
|
|||
|
case ausw of
|
|||
|
1: begin
|
|||
|
farbe (highvg, highhg); gotoxy(xper+17,yper+1); write(EndFill(30,' ',Konfig.PersName));
|
|||
|
Editor(Konfig.PersName,xper+17,yper+1,30,false,true,Tast,0);
|
|||
|
farbe (white, black); gotoxy(xper+17,yper+1); write(EndFill(30,' ',Konfig.PersName));
|
|||
|
end;
|
|||
|
2: begin
|
|||
|
farbe (highvg, highhg); gotoxy(xper+17,yper+2); write(EndFill(10,' ',Konfig.PersLoc));
|
|||
|
Editor(Konfig.PersLoc,xper+17,yper+2,10,true,false,Tast,0);
|
|||
|
farbe (white, black); gotoxy(xper+17,yper+2); write(EndFill(10,' ',Konfig.PersLoc));
|
|||
|
end;
|
|||
|
3: begin
|
|||
|
farbe (highvg, highhg); gotoxy(xper+17,yper+3); write(EndFill(30,' ',Konfig.PersQTH));
|
|||
|
Editor(Konfig.PersQTH,xper+17,yper+3,30,false,true,Tast,0);
|
|||
|
farbe (white, black); gotoxy(xper+17,yper+3); write(EndFill(30,' ',Konfig.PersQTH));
|
|||
|
end;
|
|||
|
enD; {ausw}
|
|||
|
|
|||
|
until Tast=ESC
|
|||
|
end; {with kofnig}
|
|||
|
end;
|
|||
|
|
|||
|
Procedure KonfigSpeichern;
|
|||
|
begin
|
|||
|
konfig.Version:=174;
|
|||
|
{$I-}
|
|||
|
|
|||
|
Assign(Datei,ConfigDat);
|
|||
|
Konfig.teil1:=ord('3');
|
|||
|
Konfig.teil2:=ord('2');
|
|||
|
Konfig.teil3:=ord('3');
|
|||
|
Konfig.teil4:=ord('6');
|
|||
|
rewrite(Datei);
|
|||
|
Konfig.Kenner:=kennst;
|
|||
|
write(Datei, Konfig);
|
|||
|
if ioresult <>0 then writeln(helpSetup[25]);
|
|||
|
Close(Datei);
|
|||
|
{$I+}
|
|||
|
end;
|
|||
|
(*
|
|||
|
Function CBCallCheck (CBCall : String) : Boolean ;
|
|||
|
var hstr1 : String;
|
|||
|
Flag1 : Boolean;
|
|||
|
begin
|
|||
|
{
|
|||
|
CB-Call-System in Deutschland:
|
|||
|
|
|||
|
Freigegeben: DAA200 bis DRZ999
|
|||
|
|
|||
|
Ausgegrenzt sind folgende:
|
|||
|
DBA200 - DBA999
|
|||
|
DBR200 - DBR999
|
|||
|
DEA200 - DEA999
|
|||
|
DER200 - DER999
|
|||
|
|
|||
|
Info: DAKfCBNF, RZ-Stelle, Edgar (DHF600)
|
|||
|
}
|
|||
|
|
|||
|
Strip (CBCall);
|
|||
|
flag1:=false;
|
|||
|
if length(CBCall)=6 then
|
|||
|
begin
|
|||
|
hstr1:=copy (Hstr1,3,3);
|
|||
|
if str_int(hstr1)>199 then
|
|||
|
begin
|
|||
|
delete(hstr1,3,3);
|
|||
|
if hstr1[1]='D' then
|
|||
|
begin
|
|||
|
delete(hstr1,1,1);
|
|||
|
if hstr1[1] in ['A'..'R'] then
|
|||
|
begin
|
|||
|
if hstr1[2] in ['A'..'Z'] then
|
|||
|
begin
|
|||
|
flag1:=true;
|
|||
|
if (hstr1='BA') or
|
|||
|
(hstr1='BR') or
|
|||
|
(hstr1='EA') or
|
|||
|
(hstr1='ER') then flag1:=false;
|
|||
|
end else flag1:=false;
|
|||
|
end else flag1:=false;
|
|||
|
end else flag1:=false;
|
|||
|
end else flag1:=false;
|
|||
|
end else flag1:=false;
|
|||
|
CBCallCheck := Flag1;
|
|||
|
end;
|
|||
|
*)
|
|||
|
Procedure Abschluss;
|
|||
|
var Tast:Char;
|
|||
|
cbflag : Boolean;
|
|||
|
cbi:byte;
|
|||
|
begin
|
|||
|
farbe(white,black);
|
|||
|
clrscr;
|
|||
|
textzent(helpSetup[26],2,80,10);
|
|||
|
textzent(helpSetup[27],2,80,12);
|
|||
|
writeln;
|
|||
|
cursoraus;
|
|||
|
tast:=taste;
|
|||
|
case Tast of
|
|||
|
Cr,'j','J':
|
|||
|
begin
|
|||
|
clrscr;
|
|||
|
writeln(helpSetup[28]);
|
|||
|
KonfigSpeichern;
|
|||
|
DirCheck;
|
|||
|
end else begin
|
|||
|
clrscr;
|
|||
|
writeln(helpSetup[29]);
|
|||
|
writeln;
|
|||
|
Konfig.CBFilter:=CBFilterStatus;
|
|||
|
end;
|
|||
|
end;{case}
|
|||
|
if Konfig.CBFilter then
|
|||
|
begin
|
|||
|
writeln;
|
|||
|
writeln (' ACHTUNG: CB-Call-Filter auf CB-Ports aktiv!');
|
|||
|
writeln;
|
|||
|
writeln (' Diese Verordnung wurde au<61>er Kraft gesetzt, daher besteht');
|
|||
|
writeln (' kein Sinn, diesen Filter weiterhin zu nuten!');
|
|||
|
writeln;
|
|||
|
writeln (' Stand: 20.10.1999');
|
|||
|
writeln;
|
|||
|
writeln (' Bitte eine Taste dr<64>cken ...');
|
|||
|
tast:=taste;
|
|||
|
writeln;
|
|||
|
end;
|
|||
|
end;
|
|||
|
|
|||
|
Function TexteLesen : Boolean;
|
|||
|
var
|
|||
|
Hstr:String[77];
|
|||
|
HTZeile:longint;
|
|||
|
fireup: integer;
|
|||
|
itl,
|
|||
|
TArt: Byte;
|
|||
|
DatDa,
|
|||
|
KFlag, {kopf gefunden}
|
|||
|
LFlag : Boolean; {leerzeile}
|
|||
|
begin
|
|||
|
HEditorN:=0;
|
|||
|
|
|||
|
HSetupN:=0;
|
|||
|
RespN:=0;
|
|||
|
fireup:=0;
|
|||
|
HSetupN:=0;
|
|||
|
HMenN:=0;
|
|||
|
{$I-}
|
|||
|
Assign(BDat, 'XPSETHLP.XP');
|
|||
|
reset(BDAT);
|
|||
|
Pufferlang:=FileSize(BDAT);
|
|||
|
Close(BDAT);
|
|||
|
TextPuffer:=nil;
|
|||
|
GetMem(TextPuffer,sizeof(TextPuffer^));
|
|||
|
FillChar(TextPuffer^,SizeOf(TextPuffer^),0);
|
|||
|
Assign(Hdat,'XPSETHLP.XP');
|
|||
|
reset(HDat,1);
|
|||
|
DatDa:=false;
|
|||
|
if IORESULT=0 then
|
|||
|
begin
|
|||
|
DatDa:=true;
|
|||
|
clrscr;
|
|||
|
write('Loading XPACKSET ');
|
|||
|
PufferLang:=FileSize(HDAT);
|
|||
|
BlockRead(HDat, TextPuffer^, SizeOf(TextPuffer^), Result);
|
|||
|
|
|||
|
|
|||
|
HTZeile:=0;
|
|||
|
tart:=0;
|
|||
|
while HTZeile<Result do
|
|||
|
begin
|
|||
|
if (HTZeile mod 20)=0 then write('>');
|
|||
|
LFlag:=false; Kflag:=false;
|
|||
|
inc(HTZeile);
|
|||
|
Hstr:='';
|
|||
|
while (TextPuffer^[HTZeile]<>#13) and (HTZeile<Result) do
|
|||
|
begin
|
|||
|
inc(HTZeile);
|
|||
|
if TextPuffer^[htzeile]<>#13 then hstr:=hstr+TextPuffer^[htzeile];
|
|||
|
end;
|
|||
|
|
|||
|
if (Pos('#END#', Upc(Hstr))=1) then
|
|||
|
begin
|
|||
|
TART:=0;
|
|||
|
LFlag:=true;
|
|||
|
end;
|
|||
|
if (Pos('#REM#', Upc(Hstr))=1) or (Hstr='') then LFlag:=true;
|
|||
|
i:=0;
|
|||
|
|
|||
|
if not LFLag then
|
|||
|
begin
|
|||
|
if TART=0 then
|
|||
|
while (i<27) And (pos(Texte[i],Hstr)=0) do Inc(i); { i<27 als erstes, }
|
|||
|
{ da sonst bei i=27 der Ausdruck pos(Texte[27],Hstr) eine Bereichs- }
|
|||
|
{ ueberschreitung ausloesst. //db1ras }
|
|||
|
case i of
|
|||
|
1: begin
|
|||
|
TArt:=1;
|
|||
|
LFlag:=true;
|
|||
|
end;
|
|||
|
2: begin
|
|||
|
TArt:=2;
|
|||
|
LFlag:=true;
|
|||
|
end;
|
|||
|
3: begin
|
|||
|
TART:=0;
|
|||
|
HilfeThemen[3]:=HTZeile;
|
|||
|
LFlag:=true;
|
|||
|
end;
|
|||
|
4: begin
|
|||
|
TART:=0;
|
|||
|
HilfeThemen[4]:=HTZeile;
|
|||
|
LFlag:=true;
|
|||
|
end;
|
|||
|
|
|||
|
5: begin
|
|||
|
TART:=0;
|
|||
|
HilfeThemen[5]:=HTZeile;
|
|||
|
LFlag:=true;
|
|||
|
end;
|
|||
|
|
|||
|
6: begin
|
|||
|
TART:=0;
|
|||
|
HilfeThemen[6]:=HTZeile;
|
|||
|
LFlag:=true;
|
|||
|
end;
|
|||
|
7: begin
|
|||
|
TART:=0;
|
|||
|
HilfeThemen[7]:=HTZeile;
|
|||
|
LFlag:=true;
|
|||
|
end;
|
|||
|
8: begin
|
|||
|
TART:=0;
|
|||
|
HilfeThemen[8]:=HTZeile;
|
|||
|
LFlag:=true;
|
|||
|
end;
|
|||
|
9: begin
|
|||
|
TART:=0;
|
|||
|
HilfeThemen[9]:=HTZeile;
|
|||
|
LFlag:=true;
|
|||
|
end;
|
|||
|
10:begin
|
|||
|
TART:=0;
|
|||
|
HilfeThemen[10]:=HTZeile;
|
|||
|
LFlag:=true;
|
|||
|
end;
|
|||
|
11:begin
|
|||
|
TART:=0;
|
|||
|
HilfeThemen[11]:=HTZeile;
|
|||
|
LFlag:=true;
|
|||
|
end;
|
|||
|
12:begin
|
|||
|
TART:=0;
|
|||
|
HilfeThemen[12]:=HTZeile;
|
|||
|
LFlag:=true;
|
|||
|
end;
|
|||
|
13:begin
|
|||
|
TART:=15;
|
|||
|
LFlag:=true;
|
|||
|
end;
|
|||
|
14:begin
|
|||
|
TART:=0;
|
|||
|
HilfeThemen[20]:=HTZeile;
|
|||
|
LFlag:=true;
|
|||
|
end;
|
|||
|
15:begin
|
|||
|
TART:=0;
|
|||
|
HilfeThemen[21]:=HTZeile;
|
|||
|
LFlag:=true;
|
|||
|
end;
|
|||
|
16:begin
|
|||
|
TART:=0;
|
|||
|
HilfeThemen[30]:=HTZeile;
|
|||
|
LFlag:=true;
|
|||
|
end;
|
|||
|
17:begin
|
|||
|
TART:=0;
|
|||
|
HilfeThemen[40]:=HTZeile;
|
|||
|
LFlag:=true;
|
|||
|
end;
|
|||
|
18:begin
|
|||
|
TART:=0;
|
|||
|
HilfeThemen[50]:=HTZeile;
|
|||
|
LFlag:=true;
|
|||
|
end;
|
|||
|
19:begin
|
|||
|
TART:=0;
|
|||
|
HilfeThemen[60]:=HTZeile;
|
|||
|
LFlag:=true;
|
|||
|
end;
|
|||
|
20:begin
|
|||
|
TART:=0;
|
|||
|
HilfeThemen[70]:=HTZeile;
|
|||
|
LFlag:=true;
|
|||
|
end;
|
|||
|
21:begin
|
|||
|
TART:=0;
|
|||
|
HilfeThemen[80]:=HTZeile;
|
|||
|
LFlag:=true;
|
|||
|
end;
|
|||
|
22:begin
|
|||
|
TART:=0;
|
|||
|
HilfeThemen[90]:=HTZeile;
|
|||
|
LFlag:=true;
|
|||
|
end;
|
|||
|
23:begin
|
|||
|
TART:=0;
|
|||
|
HilfeThemen[13]:=HTZeile;
|
|||
|
LFlag:=true;
|
|||
|
end;
|
|||
|
25:begin
|
|||
|
TART:=0;
|
|||
|
HilfeThemen[100]:=HTZeile;
|
|||
|
LFlag:=true;
|
|||
|
end;
|
|||
|
26:begin
|
|||
|
TART:=0;
|
|||
|
HilfeThemen[14]:=HTZeile;
|
|||
|
LFlag:=true;
|
|||
|
end;
|
|||
|
24:begin
|
|||
|
TArt:=255;
|
|||
|
LFlag:=true;
|
|||
|
end;
|
|||
|
end;{case}
|
|||
|
end; {if not Lflag}
|
|||
|
|
|||
|
if (not Lflag) and (not KFlag) then
|
|||
|
begin
|
|||
|
case TArt of
|
|||
|
1: begin
|
|||
|
inc (HSetupN);
|
|||
|
helpSetup[HSetupN]:=Hstr;
|
|||
|
end;
|
|||
|
2: begin
|
|||
|
inc (HEditorN);
|
|||
|
helpeditor[HEditorN]:=Hstr;
|
|||
|
end;
|
|||
|
15: begin
|
|||
|
inc(RespN);
|
|||
|
RespT[respn]:=endfill(4,' ',Hstr);
|
|||
|
end;
|
|||
|
255: begin
|
|||
|
inc(HMenN);
|
|||
|
HMIt[HMenN]:=Hstr;
|
|||
|
end;
|
|||
|
end; {case Tart}
|
|||
|
end;
|
|||
|
end; {ehile eof}
|
|||
|
end; {ioresult}
|
|||
|
|
|||
|
TexteLesen:=DatDa;
|
|||
|
close(hdat);
|
|||
|
fireup:=ioresult;
|
|||
|
{$I+}
|
|||
|
|
|||
|
writeln;
|
|||
|
|
|||
|
end;
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
procedure Lese17;
|
|||
|
begin
|
|||
|
{$I-}
|
|||
|
Assign(Datei,ConfigDat);
|
|||
|
reset(Datei);
|
|||
|
read(Datei, Konfig);
|
|||
|
if Konfig.MaxLoginUser=0 then Konfig.MaxLoginUser:=3;
|
|||
|
CBFilterStatus:=Konfig.CBFilter;
|
|||
|
close(Datei);
|
|||
|
{$I+}
|
|||
|
if ioresult<>0 then confok:=false;
|
|||
|
end;
|
|||
|
|
|||
|
begin
|
|||
|
CheckBreak := false; { kein Abbruch durch ctrl-C }
|
|||
|
GetCBreak(BreakStatus); { Break-Status holen und retten }
|
|||
|
SetCBreak(false); { Break off }
|
|||
|
farbe(white,black);
|
|||
|
clrscr;
|
|||
|
HilfeRSaved:=false;
|
|||
|
i:=0;
|
|||
|
HelpDatDa:=TexteLesen;
|
|||
|
if HelpDatDa then
|
|||
|
begin
|
|||
|
CURSORTEST;
|
|||
|
can:=cursoranf;
|
|||
|
cen:=cursorende;
|
|||
|
cse:=cursorseite;
|
|||
|
item:=1;
|
|||
|
Tau:=1;
|
|||
|
InitVar;
|
|||
|
confok:=false;
|
|||
|
|
|||
|
{filesize checken - file of byte!}
|
|||
|
|
|||
|
{$I-}
|
|||
|
Assign(Dateiw,ConfigDat);
|
|||
|
reset(Dateiw);
|
|||
|
datsize:=filesize(Dateiw);
|
|||
|
close(dateiw);
|
|||
|
I:=Ioresult;
|
|||
|
{$I+}
|
|||
|
{11167 ALTE 1.70!!}
|
|||
|
if (datsize=11388) then {*** Config 1.73/1.80 11283 ***}
|
|||
|
begin
|
|||
|
confok:=true;
|
|||
|
Lese17;
|
|||
|
{ konfigspeichern;}
|
|||
|
if Konfig.Version<>174 then ConfOK:=false;
|
|||
|
end;
|
|||
|
if Konfig.Kenner<>Kennst then confok:=false;
|
|||
|
if not confok then writeln(helpSetup[33]);
|
|||
|
|
|||
|
|
|||
|
if (not confok) then
|
|||
|
begin
|
|||
|
i:=ioresult;
|
|||
|
{$I-}
|
|||
|
writeln;
|
|||
|
writeln(helpSetup[30]);
|
|||
|
farbe(white,black);
|
|||
|
alarm;
|
|||
|
INitVar;
|
|||
|
cursoraus;
|
|||
|
warte(200);
|
|||
|
KonfigSpeichern;
|
|||
|
cursorein;
|
|||
|
{$I+}
|
|||
|
end else konfigSpeichern;
|
|||
|
if Konfig.LifeTime>240 then Konfig.LifeTime:=240;
|
|||
|
if Konfig.BackupTime=1 then Konfig.BackupTime:=2;
|
|||
|
new(hauptmenu);
|
|||
|
new(EditorHilfe);
|
|||
|
new(rahmen);
|
|||
|
new(HilfeRahmen);
|
|||
|
new(BildSpeicher);
|
|||
|
|
|||
|
Farbe(white, black);
|
|||
|
clrscr;
|
|||
|
gotoxy(1,1);
|
|||
|
write('<27>');
|
|||
|
for i:=1 to 78 do write('<27>');
|
|||
|
write('<27>');
|
|||
|
gotoxy(1,24);
|
|||
|
|
|||
|
write('<27>');
|
|||
|
for i:=1 to 78 do write('<27>');
|
|||
|
write('<27>');
|
|||
|
for i:=2 to 23 do
|
|||
|
begin
|
|||
|
gotoxy(1,i);
|
|||
|
write('<27>');
|
|||
|
gotoxy(80,i);
|
|||
|
write('<27>');
|
|||
|
end;
|
|||
|
gotoxy(2,1); write('XPacket V1.81b7(as)');
|
|||
|
{$ifndef Sound}
|
|||
|
write(' - NoSound');
|
|||
|
{$Endif}
|
|||
|
savebild(Rahmen);
|
|||
|
textzent('X P a c k e t - S e t u p',2,80,y);
|
|||
|
Textzent('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',2,80,y+1);
|
|||
|
{$IFNDEF Sound}
|
|||
|
HMIt[8]:=HMIt[8]+'-N/A';
|
|||
|
{$ENDIF}
|
|||
|
for i:=1 to maxhmenu do
|
|||
|
Textzent(HMIt[i],2,80,y+2+i);
|
|||
|
CursorAus;
|
|||
|
SaveBild(HauptMenu);
|
|||
|
CursorEin;
|
|||
|
konfig.kenner:=kennst;
|
|||
|
Repeat
|
|||
|
HMenu(Item,ch);
|
|||
|
if ch=esc then ch:=#1;
|
|||
|
Tau:=1;
|
|||
|
if ch=cr then
|
|||
|
begin
|
|||
|
case Item of
|
|||
|
1:TncSet;
|
|||
|
2:Verzeichnisse;
|
|||
|
3:Verschiedenes;
|
|||
|
4:MailFrameSet;
|
|||
|
5:Speicher;
|
|||
|
6:Drucker;
|
|||
|
7:Blinde;
|
|||
|
{$ifdef Sound}
|
|||
|
8:Sound;
|
|||
|
{$Endif}
|
|||
|
{$IFnDef Sound}
|
|||
|
8:Alarm;
|
|||
|
{$Endif}
|
|||
|
9:Persoenliches;
|
|||
|
10: begin
|
|||
|
Abschluss;
|
|||
|
ch:=esc;
|
|||
|
end;
|
|||
|
end;
|
|||
|
end;
|
|||
|
if ch<>esc then LadeBild(HauptMenu);
|
|||
|
Until Ch=esc;
|
|||
|
|
|||
|
writeln(helpSetup[31]);
|
|||
|
cursoranf:=can;
|
|||
|
cursorende:=cen;
|
|||
|
cursorseite:=cse;
|
|||
|
cursorein;
|
|||
|
dispose (hauptmenu);
|
|||
|
dispose(Hilferahmen);
|
|||
|
dispose(rahmen);
|
|||
|
dispose (EditorHilfe);
|
|||
|
FreeMem(TextPuffer, sizeof(TextPuffer^));
|
|||
|
end {helpdatda}
|
|||
|
else writeln(helpSetup[32]);
|
|||
|
SetCBreak(BreakStatus); { Break Zur<75>ck }
|
|||
|
end.
|
|||
|
|
|||
|
{
|
|||
|
HelpSetup-Array-Verteilung:
|
|||
|
===========================
|
|||
|
4 Auswahl Cursor r/l
|
|||
|
5 Auswahl Cursor r/l und CTRL-Curs
|
|||
|
6 Mehr mait Return
|
|||
|
7
|
|||
|
8 Hilfe mit F1
|
|||
|
9 TNC-Setup <20>berschrift
|
|||
|
10 TNC-Ini <20>berschrift
|
|||
|
11 TNC DeIni <20>berschrift
|
|||
|
12 Verzeichnisse <20>berschr
|
|||
|
13 Verschiedenes <20>berschr
|
|||
|
14 Mailframe <20>berschr
|
|||
|
15 Speicher <20>berschr
|
|||
|
16 Drucker <20>berschrift
|
|||
|
17 Blinden <20>berschrift
|
|||
|
18 Verz. nicht erstellt
|
|||
|
19 Verz erstellt
|
|||
|
20 Verz exist. bereits
|
|||
|
21 Xpack legt verz an
|
|||
|
22 XP pr<70>ft (f<>r View/Edit)
|
|||
|
23 existiert nicht (f<>r View/edit)
|
|||
|
24 vorhanden (f<>r View/edit)
|
|||
|
25 Fehler beim Speichern
|
|||
|
26 Soll gespeichert werden?
|
|||
|
27 J/Enter f<>r Ja ...
|
|||
|
28 Konfig wird gespeichert
|
|||
|
29 Konfig wird nicht gespeichert
|
|||
|
30 Fehler beim Laden
|
|||
|
31 XPSet ist beendet
|
|||
|
32 XPSETHLP.XP nicht gefunden
|
|||
|
33 Falsche Version von CONFIG.XP
|
|||
|
34 Config Version 1.1/1.2x
|
|||
|
35 Alte Konfiguration wird importiert.
|
|||
|
36 Zeiten aktivieren/deaktivieren space
|