DeltaLima
/
Xpacket
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
Xpacket/XPCHR.PAS

731 lines
21 KiB
Plaintext
Raw Normal View History

initial commit
2019-05-15 00:31:19 +02:00
{<7B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ŀ
<20> <20>
<20> X - P a c k e t <20>
<20> <20>
<20> <20>
<20> X P C H R . P A S <20>
<20> <20>
<20> Routinen f<>r den Vorschreib-Bildschirm <20>
<20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>}
Procedure Chr_Darstell (* Kanal : Byte; KC : Sondertaste; VC : char *);
Begin
if K[Kanal]^.Cmd then Chr_Cmd_Show(Kanal,KC,VC)
else Chr_Vor_Show(Kanal,KC,VC);
End;
Procedure Chr_Cmd_Show (* Kanal : Byte; KC : Sondertaste; VC : char *);
var i,i1,
XLV,XH,
VAnz : Byte;
Neben,
NeuPage : Boolean;
Begin
with K[Kanal]^ do
Begin
if Vor_im_EMS then EMS_Seite_einblenden(Kanal,Vor);
NeuPage := true;
VAnz := VEnd - VBeg + 1;
if VAnz > VorCmdZeilen then VAnz := VorCmdZeilen;
XLV := length(VorWrite[Kanal]^[stC]);
Case KC of
_Andere : Case VC of
#1..#7,#11,#12, #14..#19, #21..#24, #26..#31, #32..#254
: if XLV < 79 then
begin
NeuPage := false;
if Gross then VC := UpCase(VC);
if not insert_ON then delete(VorWrite[Kanal]^[stC],X1C,1);
insert(VC,VorWrite[Kanal]^[stC],X1C);
inc(X1C);
end else Alarm;
^J : Alarm;
^T : if X1C <= XLV then
begin
Del_Wort(VorWrite[Kanal]^[stC],X1C);
NeuPage := false;
end else Alarm;
^Y : begin
VorWrite[Kanal]^[stC] := CvCh;
X1C := 3;
end;
#255: ;
End;
_Ret : begin
Auswert_CMD(Kanal,VorWrite[Kanal]^[stC]);
Vor_Feld_Scroll(Kanal);
Cmd := false;
end;
_Back : begin
NeuPage := false;
if X1C > 3 then
begin
delete(VorWrite[Kanal]^[stC],X1C-1,1);
dec(X1C);
end else Alarm;
end;
_AltK : Gross := not Gross;
_AltY : begin (* ALT-Y *)
for i := stC to (VorZeilen - 1) do
VorWrite[Kanal]^[i] := VorWrite[Kanal]^[i+1];
VorWrite[Kanal]^[VorZeilen] := CvCh;
X1C := 3;
end;
_Del : if (XLV > 0) and (X1C <= XLV) then (* DEL *)
begin
delete(VorWrite[Kanal]^[stC],X1C,1);
NeuPage := false;
end else Alarm;
_Up : begin (* Cursor Up *)
dec(stC); dec(Y1C);
if Y1C < 1 then Y1C := 1;
if stC < ((VorZeilen - VorCmdZeilen) + 1) then
begin
stC := (VorZeilen - VorCmdZeilen) + 1;
Alarm;
end;
if length(VorWrite[Kanal]^[stC]) < X1C then X1C := length(VorWrite[Kanal]^[stC]) + 1;
end;
_Dn : begin (* Cursor Dn *)
inc(Y1C); inc(stC);
if Y1C > VAnz then Y1C := VAnz;
if stC > VorZeilen then
begin
stC := VorZeilen;
if VorWrite[Kanal]^[stC] <> CvCh then Vor_Feld_Scroll(Kanal)
else Alarm;
end;
if length(VorWrite[Kanal]^[stC]) < X1C then
X1C := length(VorWrite[Kanal]^[stC]) + 1;
end;
_Left : begin (* Cursor left *)
if X1C > 3 then dec(X1C) else Alarm;
NeuPage := false;
end;
_Right : begin (* Cursor right *)
if X1C <= XLV then inc(X1C) else Alarm;
NeuPage := false;
end;
_Home : begin (* Home *)
X1C := 3;
NeuPage := false;
end;
_Ins : begin (* Ins *)
Insert_ON := not Insert_ON;
NeuPage := false;
end;
_End : begin (* END *)
X1C := XLV + 1;
NeuPage := false;
end;
_CtrlLeft,
_CtrlRight: begin
Cur_Wort(VorWrite[Kanal]^[stC],KC,X1C,3);
NeuPage := false;
end;
_CtrlPgUp : begin (* Ctrl-Page-Up *)
stC := (VorZeilen - VorCmdZeilen) + 1;
X1C := 3; Y1C := 1;
end;
_CtrlPgDn : begin (* Ctrl-Page-Dn *)
i := VorZeilen;
While (copy(VorWrite[Kanal]^[i],3,77) = '') and
(i > VorZeilen-VorCmdZeilen+1) do dec(i);
stC := i;
if i < VorZeilen - VorCmdZeilen + VAnz
then Y1C := i - (VorZeilen - VorCmdZeilen)
else Y1C := VAnz;
X1C := length(VorWrite[Kanal]^[stC]) + 1;
end;
_Esc : Cmd := false;
_Nix :;
else Alarm;
end; {case KC of}
if show = Kanal then if NeuPage
then Neu_BildVor(Kanal)
else WritePage(Kanal,1,Y1C+Vofs,Attrib[23],0,VorWrite[Kanal]^[stC] + G^.Leer);
Soft_Cursor(Kanal);
end; {with Kanal}
End;
Procedure Chr_Vor_Show (* Kanal : Byte; KC : Sondertaste; VC : char *);
var i,i1,XH,
XLV,VAnz : Byte;
Hstr : String[80];
Flag,
Umbruch,
Neben,
NeuPage,
ZWechsel : Boolean;
Begin
with K[Kanal]^ do
Begin
if Vor_im_EMS then EMS_Seite_einblenden(Kanal,Vor);
Hstr := '';
Umbruch := false;
NeuPage := true;
VAnz := VEnd - VBeg + 1;
XLV := length(VorWrite[Kanal]^[stV]);
if (vc=^J) and ((SPComp) or (G^.ZeilenwTX)) then KC:=_RET;
Case KC of
_Andere : Begin
if (VC in [#1..#7,#11,#12, #14..#19, #21..#24, #26..#31, #32..#254])
or AltQFlag then if (not FileSend) then
begin
if not((XLV >= 79) and (X1V < 79)) then
begin
NeuPage := false;
if ((TxByte + length(VorWrite[Kanal]^[stV])) > 254) then
begin
Tx_Out(Kanal,false);
NeuPage := true;
end;
if not insert_ON then delete(VorWrite[Kanal]^[stV],X1V,1);
insert(VC,VorWrite[Kanal]^[stV],X1V);
inc(X1V);
if (X1V > 79) then
begin
i := 1;
i1 := 79;
While (not(VorWrite[Kanal]^[stV][i1] in UmMenge)) and (i1 > 0) and (i < 79) do
begin
inc(i);
dec(i1);
end;
if (i > 1) and (i1 > 1) then
begin
Hstr := copy(VorWrite[Kanal]^[stV],i1+1,i-1);
delete(VorWrite[Kanal]^[stV],i1+1,i-1);
Umbruch := true;
end else ZWechsel := True;
KillEndBlanks(VorWrite[Kanal]^[stV]);
Set_st_Szeile(Kanal,0,stV);
Vor_Feld_Scroll(Kanal);
if VorWrite[Kanal]^[stV] > '' then Vor_Dn_Scroll(Kanal);
if Umbruch then VorWrite[Kanal]^[stV] := Hstr
else VorWrite[Kanal]^[stV] := '';
X1V := length(VorWrite[Kanal]^[stV]) + 1;
if ((umbruch) or (ZWechsel)) and ((SPComp) or (G^.ZeilenwTX)) then
begin
{VorWrite[Kanal]^[stV];}
Tx_Out(Kanal,true);
Set_St_SZeile(Kanal,1,1);
end;
ZWechsel:=False;
NeuPage := true;
end;
end else Alarm;
end else
begin
Alarm;
if FileSend then InfoOut(Kanal,1,1,InfoZeile(25));
if KompressUpd then InfoOut(Kanal,1,1,InfoZeile(399));
end;
if AltQFlag then VC := #255;
AltQFlag := false;
case VC of
^J : begin
KillEndBlanks(VorWrite[Kanal]^[stV]);
if X1V > XLV then
begin
if (TxByte + XLV) > 254 then TX_Out(Kanal,false);
Set_st_Szeile(Kanal,0,stV);
Vor_Feld_Scroll(Kanal);
X1V := length(VorWrite[Kanal]^[stV]) + 1;
end else
begin
Hstr := copy(VorWrite[Kanal]^[stV],X1V,(XLV-X1V)+1);
delete(VorWrite[Kanal]^[stV],X1V,(XLV-X1V)+1);
Set_st_Szeile(Kanal,0,stV);
Vor_Feld_Scroll(Kanal);
if VorWrite[Kanal]^[stV] > '' then Vor_Dn_Scroll(Kanal);
VorWrite[Kanal]^[stV] := Hstr;
X1V := length(VorWrite[Kanal]^[stV]) + 1;
end;
end;
^T : if X1V <= XLV then
begin
Del_Wort(VorWrite[Kanal]^[stV],X1V);
NeuPage := false;
end else Alarm;
^Y : begin
VorWrite[Kanal]^[stV] := '';
X1V := 1;
end;
#255: ;
end;
End;
{(FileSend) or (SPlSave) or (RX_bin>1)}
_Ret : if ((not FileSend)) and (not KompressUpd) then
begin
KillEndBlanks(VorWrite[Kanal]^[stV]);
if (TxByte + length(VorWrite[Kanal]^[stV])) > 254
then Tx_Out(Kanal,false);
Set_st_Szeile(Kanal,0,stV);
Tx_Out(Kanal,true);
Set_st_Szeile(Kanal,1,1);
Vor_Feld_Scroll(Kanal);
end else
begin
if (FileSend) or (SPlSave) or (RX_bin>1) then InfoOut(Kanal,1,1,InfoZeile(25));
if KompressUpd then InfoOut(Kanal,1,1,InfoZeile(399));
end;
_Back : begin
NeuPage := false;
if X1V > 1 then
begin
delete(VorWrite[Kanal]^[stV],X1V-1,1);
dec(X1V);
end else Alarm;
end;
_Alt7 : begin
Set_st_Szeile(Kanal,1,1);
Vor_Feld_Scroll(Kanal);
VorWrite[Kanal]^[stV] := '';
X1V := 1;
end;
_Alt8 : begin
Set_st_Szeile(Kanal,1,1);
end;
_Alt9 : begin
Tx_Out(Kanal,false);
NeuPage := true;
end;
_AltY : begin
for i := stV to (VorZeilen - VorCmdZeilen)-1 do
VorWrite[Kanal]^[i] := VorWrite[Kanal]^[i+1];
VorWrite[Kanal]^[VorZeilen - VorCmdZeilen] := '';
X1V := 1;
end;
_Del : if (XLV > 0) and (X1V <= XLV) then
begin
delete(VorWrite[Kanal]^[stV],X1V,1);
NeuPage := false;
end else
begin
if (X1V > XLV) and (X1V < 79) and (
stV < (VorZeilen - VorCmdZeilen)) then
begin
i1 := 79 - X1V;
Hstr := copy(VorWrite[Kanal]^[stV+1],1,i1);
VorWrite[Kanal]^[stV] := VorWrite[Kanal]^[stV] + Hstr;
delete(VorWrite[Kanal]^[stV+1],1,i1);
if VorWrite[Kanal]^[stV+1] = '' then
begin
for i := stV+1 to (VorZeilen - VorCmdZeilen)-1 do
VorWrite[Kanal]^[i] := VorWrite[Kanal]^[i+1];
VorWrite[Kanal]^[VorZeilen - VorCmdZeilen] := '';
end;
end else Alarm;
end;
_Up : begin (* Cursor Up *)
dec(stV); dec(Y1V);
if Y1V < 1 then Y1V := 1;
Set_st_Szeile(Kanal,1,1);
if stV < 1 then
begin
stV := 1;
Alarm;
end;
if length(VorWrite[Kanal]^[stV]) < X1V then X1V := length(VorWrite[Kanal]^[stV]) + 1;
end;
_Dn : begin (* Cursor Dn *)
Set_st_Szeile(Kanal,1,1);
inc(stV); inc(Y1V);
if Y1V > VAnz then Y1V := VAnz;
if stV > (VorZeilen - VorCmdZeilen) then
begin
stV := VorZeilen - VorCmdZeilen;
if VorWrite[Kanal]^[stV] > '' then Vor_Feld_Scroll(Kanal)
else Alarm;
end;
if length(VorWrite[Kanal]^[stV]) < X1V then X1V := length(VorWrite[Kanal]^[stV]) + 1;
end;
_Left : begin (* Cursor left *)
if X1V > 1 then dec(X1V) else Alarm;
NeuPage := false;
end;
_Right : begin (* Cursor right *)
if X1V <= XLV then inc(X1V) else Alarm;
NeuPage := false;
end;
_Home : begin (* Home *)
X1V := 1;
NeuPage := false;
end;
_Ins : begin (* Ins *)
Insert_ON := not Insert_ON;
NeuPage := false;
end;
_End : begin (* END *)
X1V := XLV + 1;
NeuPage := false;
end;
_Tab : begin
Flag := false;
if (stV > 1) and TabFill then Hstr := VorWrite[Kanal]^[stV-1]
else Hstr := '';
if Hstr > '' then
begin
if X1V <= length(Hstr) then
begin
delete(Hstr,1,X1V);
Hstr := ConstStr('#',X1V) + Hstr;
if pos(B1,Hstr) in [X1V..78] then
begin
i := pos(B1,Hstr);
While (Hstr[i] = B1) and (i < length(Hstr)) do inc(i);
if XLV + (i - X1V) > 78 then i := Byte(78 - XLV) + X1V;
if i - X1V = 0 then Alarm;
Insert(ConstStr(B1,i-X1V),VorWrite[Kanal]^[stV],X1V);
X1V := i;
end else Flag := true;
end else Flag := true;
end else Flag := true;
if Flag then
begin
i := length(G^.TabStr);
if (XLV + i) > 78 then i := Byte(78 - XLV);
if i = 0 then Alarm;
Insert(copy(G^.TabStr,1,i),VorWrite[Kanal]^[stV],X1V);
X1V := X1V + i;
end;
end;
_CtrlLeft,
_CtrlRight: begin
Cur_Wort(VorWrite[Kanal]^[stV],KC,X1V,1);
NeuPage := false;
end;
_CtrlPgUp : begin (* Ctrl-Page-Up *)
Set_st_Szeile(Kanal,1,1);
stV := 1; X1V := 1; Y1V := 1;
end;
_CtrlPgDn : begin (* Ctrl-Page-Dn *)
Set_st_Szeile(Kanal,1,1);
i := (VorZeilen - VorCmdZeilen);
While (VorWrite[Kanal]^[i] = '') and (i > 1) do dec(i);
stV := i;
if i < VAnz then Y1V := stV else Y1V := VAnz;
X1V := length(VorWrite[Kanal]^[stV]) + 1;
end;
_Esc : begin
Cmd := true;
X1C := length(VorWrite[Kanal]^[stC]) + 1;
end;
_Nix :;
else Alarm;
end; { case KC of }
if show = Kanal then if NeuPage
then Neu_BildVor(Kanal)
else WritePage(Kanal,1,Y1V+Vofs,Attrib[24],0,VorWrite[Kanal]^[stV] + G^.Leer);
Soft_Cursor(Kanal);
end;
End;
Procedure ChangeXYst (* Kanal,Art : Byte; Var X1,Y1,st : Byte *);
Begin
with K[Kanal]^ do
begin
if Vor_im_EMS then EMS_Seite_einblenden(Kanal,Vor);
if Art = 0 then
begin
if Cmd then
begin
st := stC; X1 := X1C; Y1 := Y1C;
end else
begin
st := stV; X1 := X1V; Y1 := Y1V;
end;
end;
if Art = 1 then
begin
if Cmd then
begin
stC := st; X1C := X1; Y1C := Y1;
end else
begin
stV := st; X1V := X1; Y1V := Y1;
end;
end;
end;
End;
(* scrollt das Array f<>r den Vorschreibschirm nach oben *)
Procedure Vor_Feld_Scroll (* Kanal : Byte *);
var VAnz : Byte;
i : Integer;
Begin
with K[Kanal]^ do
begin
if Vor_im_EMS then EMS_Seite_einblenden(Kanal,Vor);
VAnz := VEnd - VBeg + 1;
if Cmd then
begin
X1C := 3;
inc(stC); inc(Y1C);
if Y1C > VorCmdZeilen then Y1C := VorCmdzeilen;
if Y1C > VAnz then Y1C := VAnz;
if stC > VorZeilen then
begin
for i := VorZeilen-VorCmdZeilen+1 to VorZeilen - 1
do VorWrite[Kanal]^[i] := VorWrite[Kanal]^[i+1];
stC := VorZeilen;
VorWrite[Kanal]^[stC][0] := Chr(2);
end;
end else
begin
X1V := 1;
inc(stV); inc(Y1V);
if Y1V > VAnz then Y1V := VAnz;
if (stV > (VorZeilen - VorCmdZeilen)) and (Y1V = VAnz) then
begin
for i := 1 to VorZeilen - VorCmdZeilen - 1 do
begin
VorWrite[Kanal]^[i] := VorWrite[Kanal]^[i+1];
stTX[i] := stTX[i+1];
end;
stV := VorZeilen - VorCmdZeilen;
VorWrite[Kanal]^[stV] := '';
stTX[stV] := false;
end;
end;
end;
End;
(* scrollt das Array f<>r den Vorschreibschirm ab der Position 'st' nach unten *)
Procedure Vor_Dn_Scroll (* Kanal : Byte *);
Var i,i1 : Integer;
X1,Y1,st : Byte;
Begin
with K[Kanal]^ do
begin
ChangeXYst(Kanal,0,X1,Y1,st);
i1 := VorZeilen - VorCmdZeilen;
if st < i1 then for i := 1 to i1 - st do
VorWrite[Kanal]^[i1-i+1] := VorWrite[Kanal]^[i1-i];
ChangeXYst(Kanal,1,X1,Y1,st);
end;
End;
Procedure Neu_BildVor (* Kanal : Byte *);
Var st,X1,Y1,i,i1,
VAnz,Attr,AMerk : Byte;
Begin
with K[Kanal]^ do
begin
ChangeXYst(Kanal,0,X1,Y1,st);
VAnz := VEnd - VBeg + 1;
if Cmd then
begin
Attr := Attrib[23];
if VAnz > VorCmdZeilen then
begin
VAnz := VorCmdZeilen;
Teil_Bild_Loesch(VBeg+VAnz,VEnd,Attr);
end;
end else Attr := Attrib[24];
i1 := st - Y1;
for i := 1 to VAnz do
begin
AMerk := Attr;
if stTX[i1+i] then Attr := Attrib[6];
WritePage(Kanal,1,i+Vofs,Attr,0,VorWrite[Kanal]^[i1+i] + G^.Leer);
Attr := AMerk;
end;
end;
End;
Procedure Soft_Cursor (* Kanal : Byte *);
Var X1,Y1,st,
Xh,Attr : Byte;
Neben : Boolean;
Begin
with K[Kanal]^ do
begin
ChangeXYst(Kanal,0,X1,Y1,st);
if not HardCur then
begin
Neben := false;
Xh := X1;
if Xh > 80 then Xh := 80;
if Xh > length(VorWrite[Kanal]^[st]) then Neben := true;
if Neben then Attr := Attrib[21] else Attr := Attrib[22];
if not Insert_ON then Attr := Attr + 128;
if Neben then WritePage(Kanal,Xh,Y1+Vofs,Attr,0,'<27>')
else WriteAttr(Xh,Y1+Vofs,1,Attr,1);
end else InitCursor(X1,Y1+Vofs);
end;
End;
Procedure Set_st_Szeile (* Kanal,Art,st : Byte *);
var i : Byte;
Begin
with K[Kanal]^ do
begin
if Vor_im_EMS then EMS_Seite_einblenden(Kanal,Vor);
if Art = 0 then
begin
stTX[st] := true;
Einer_st := true;
TxByte := TxByte + length(VorWrite[Kanal]^[st]) + 1;
end else if Art = 1 then
begin
for i := 1 to VorZeilen do stTX[i] := false;
Einer_st := false;
TxByte := 0;
end;
end;
End;
Procedure TX_Out (* Kanal : Byte; All : Boolean *);
Var i : Byte;
Hstr : String[80];
Begin
with K[Kanal]^ do
Begin
Hstr := '';
Auto_CON := false;
if Kanal = 0 then K[0]^.TncNummer := Unproto;
if Vor_im_EMS then EMS_Seite_einblenden(Kanal,Vor);
if Conv.Active and (Kanal = ConvHilfsPort) then Conv_Tx_All(Kanal) else
begin
EigFlag := Echo in [1,3,5,7];
for i := 1 to VorZeilen - VorCmdZeilen do if stTX[i] then
begin
Hstr := Line_convert(Kanal,1,VorWrite[Kanal]^[i]);
if Kanal > 0 then NodeConnect(Kanal,UpCaseStr(Hstr));
S_PAC(Kanal,NU,false,Hstr + M1);
end;
if All then S_PAC(Kanal,NU,true,'');
EigFlag := false;
end;
Set_st_Szeile(Kanal,1,1);
End;
End; (* TX_out *)
Procedure Del_Wort (* Var Zeile : Str80; X1 : Byte *);
Begin
if Zeile[X1] in Menge then delete(Zeile,X1,1) else
begin
Repeat
delete(Zeile,X1,1);
Until (X1 > length(Zeile)) or (Zeile[X1] in Menge);
end;
While (Zeile[X1] = B1) and (X1 <= length(Zeile)) do delete(Zeile,X1,1);
End;
Procedure Cur_Wort (* Zeile : Str80; KC : Sondertaste; Var X1 : Byte; XM : Byte *);
Var XLV : Byte;
Begin
if KC = _CtrlLeft then
begin
if X1 > XM then
begin
Repeat
dec(X1);
Until (X1 < XM ) or (not(Zeile[X1] in Menge));
While (X1 >= XM) and (not(Zeile[X1] in Menge)) do dec(X1);
inc(X1);
end else Alarm;
end else if KC = _CtrlRight then
begin
XLV := length(Zeile);
if X1 <= XLV then
begin
While (X1 <= XLV) and (not(Zeile[X1] in Menge)) do inc(X1);
While (X1 <= XLV) and (Zeile[X1] in Menge) do inc(X1);
end else Alarm;
end;
End;