eric
/
mysticbbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

A26

This commit is contained in:
mysticbbs 2013-03-04 10:52:56 -05:00
parent c9f41a3fc5
commit 4ce4e25802
1 changed files with 20 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
mdl/m_term_ansi.pas
View File

@ -153,8 +153,8 @@ Begin
If (X + Offset) > 80 Then Begin
Screen.CursorXY (80, Screen.CursorY);
// Screen.WriteChar(#10); // force lf incase we have to scroll
// Screen.CursorXY(X + Offset - 80, Screen.CursorY);
//Screen.WriteChar(#10); // force lf incase we have to scroll
//Screen.CursorXY(X + Offset - 80, Screen.CursorY);
End Else
Screen.CursorXY (x + offset, Screen.CursorY);
@ -264,6 +264,15 @@ Begin
#27 : State := 1;
#9 : Screen.CursorXY (Screen.CursorX + 8, Screen.CursorY);
#12 : Screen.ClearScreen;
(*
#14,
#15 : Begin
Screen.WriteChar('X');
State := 0;
WasValid := True;
End;
*)
Else
Screen.WriteChar(Ch);
@ -297,6 +306,15 @@ Begin
#27 : State := 1;
#9 : Screen.CursorXY (Screen.CursorX + 8, Screen.CursorY);
#12 : Screen.ClearScreen;
(*
#14,
#15 : Begin
Screen.WriteChar('X');
State := 0;
WasValid := True;
End;
*)
Else
Screen.WriteChar(Data[Count]);
WasValid := True;