Subversion Repositories oidplus

Compare Revisions

Regard whitespace Rev 991 → Rev 992

/trunk_dos/VTSCUI.PAS
3,7 → 3,7
(************************************************)
(* VTSCUI.PAS *)
(* Author: Daniel Marschall *)
(* Revision: 2022-02-27 *)
(* Revision: 2022-10-10 *)
(* License: Apache 2.0 *)
(* This file contains: *)
(* - ViaThinkSoft CUI (Console User Interface) *)
67,6 → 67,7
s := str;
for i := Length(str) to len-1 do
begin
if Length(s) >= 255 then break;
s := s + c;
end;
FillRight := s;
458,11 → 459,21
begin
if stmp[i] = #10 then
begin
if Length(s) >= 255 then
begin
Beep;
continue;
end;
s := s + stmp[i];
continue;
end;
 
GoToXY(x,y);
if Length(s) >= 255 then
begin
Beep;
continue;
end;
s := s + stmp[i];
Write(stmp[i]);
Inc(x);
547,6 → 558,11
Beep;
continue;
end;
if Length(s) >= 254 then
begin
Beep;
continue;
end;
s := s + #13 + #10;
x := initX;
Inc(y);
569,6 → 585,11
Beep;
continue;
end;
if Length(s) >= 255-Length(sc)+1 then
begin
Beep;
continue;
end;
s := s + sc;
Write(sc);
Inc(x);