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; Temp2 : Byte;
Begin Begin
Case Ch of Case Ch of
'0'..'9', ';', '?' : Code := Code + Ch; '0'..
'H', 'f' : MoveCursor; '9',
';',
'?' : Code := Code + Ch;
'H',
'f' : MoveCursor;
'A' : MoveUP; 'A' : MoveUP;
'B' : MoveDOWN; 'B' : MoveDOWN;
'C' : MoveRIGHT; 'C' : MoveRIGHT;
'D' : MoveLEFT; 'D' : MoveLEFT;
'J' : Begin 'J' : ResetControlCode;
{ClearScreenData;}
ResetControlCode;
End;
'K' : Begin 'K' : Begin
Temp1 := CurX; Temp1 := CurX;
For Temp2 := CurX To 80 Do For Temp2 := CurX To 80 Do
AddChar(' '); AddChar(' ');
MoveXY (Temp1, CurY); MoveXY (Temp1, CurY);
ResetControlCode; ResetControlCode;
End; End;