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

Added bufflush for the hell of it

This commit is contained in:
mysticbbs 2012-07-06 01:12:20 -04:00
parent 3661d57e4b
commit 6c7bcf55ec
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
scripts/mpldemo.mps
View File

@ -13,15 +13,22 @@ Procedure FadeWrite (X, Y: Byte; S: String);
Begin
GotoXY (X, Y);
Write ('|08' + S);
BufFlush;
Delay (250);
GotoXY (X, Y);
Write ('|07' + S);
BufFlush;
Delay (250);
GotoXY (X, Y);
Write ('|15' + S);
BufFlush;
Delay (250);
GotoXY (X, Y);
Write ('|07' + S);
BufFlush;
End;
Procedure Draw_M (X: Byte);
@ -32,6 +39,8 @@ Begin
Write (' |17|09±|16|01ÛÛÛ Û');
GotoXY (X - 1, 11);
Write (' |01ÛÛÛÛ Û');
BufFlush;
End;
Procedure Draw_P (Y: Byte)
@ -44,6 +53,8 @@ Begin
Write ('|09|17±|01|16ÛÛÛÜÛ');
GotoXY (39, Y + 2);
Write ('ÛÛÛÛ');
BufFlush;
End;
Procedure Draw_L (X : Byte)
@ -54,6 +65,8 @@ Begin
Write ('|09|17±|01|16ÛÛÛ ');
GotoXY (X, 11);
Write ('ÛÛÛÛÜÛ ');
BufFlush;
End;
Procedure Draw_Animated_Intro;