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

Code cleanup

This commit is contained in:
mysticbbs 2012-02-21 17:43:02 -05:00
parent 086f20cf28
commit 9929810887
1 changed files with 59 additions and 56 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
mystic/bbs_msgbase_ansi.pas
View File

@ -256,20 +256,23 @@ Var
Temp2 : Byte;
Begin
Case Ch of
'0'..'9', ';', '?' : Code := Code + Ch;
'H', 'f' : MoveCursor;
'0'..
'9',
';',
'?' : Code := Code + Ch;
'H',
'f' : MoveCursor;
'A' : MoveUP;
'B' : MoveDOWN;
'C' : MoveRIGHT;
'D' : MoveLEFT;
'J' : Begin
{ClearScreenData;}
ResetControlCode;
End;
'J' : ResetControlCode;
'K' : Begin
Temp1 := CurX;
For Temp2 := CurX To 80 Do
AddChar(' ');
MoveXY (Temp1, CurY);
ResetControlCode;
End;