paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 18:49:49 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix bug report

Browse Source
This commit is contained in:
carl 2002-05-12 18:42:33 +00:00
parent 4dcd96747e
commit cc4b947871
3 changed files with 18 additions and 5 deletions

12
docs/videoex/ex2.pp
View File

@ -2,6 +2,10 @@ program example2;
uses video,keyboard;
{$ifndef cpu86}
{$error This example only works on intel 80x86 machines}
{$endif}
Var
P,PP,D : Integer;
K: TKeyEvent;
@ -9,10 +13,10 @@ Var
Procedure PutSquare (P : INteger; C : Char);
begin
VideoBuf^[P]:=Ord(C)+($07 shr 8);
VideoBuf^[P+ScreenWidth]:=Ord(c)+($07 shr 8);
VideoBuf^[P+1]:=Ord(c)+($07 shr 8);
VideoBuf^[P+ScreenWidth+1]:=Ord(c)+($07 shr 8);
VideoBuf^[P]:=Ord(C)+($07 shl 8);
VideoBuf^[P+ScreenWidth]:=Ord(c)+($07 shl 8);
VideoBuf^[P+1]:=Ord(c)+($07 shl 8);
VideoBuf^[P+ScreenWidth+1]:=Ord(c)+($07 shl 8);
end;
begin

4
docs/videoex/ex3.pp
View File

@ -2,6 +2,10 @@ program testvideo;
uses video,keyboard,vidutil;
{$ifndef cpu86}
{$error This example only works on intel 80x86 machines}
{$endif}
Var
i : longint;
k : TkeyEvent;

7
docs/videoex/vidutil.pp
View File

@ -5,6 +5,11 @@ Interface
uses
video;
{$ifndef cpu86}
{$error This example only works on intel 80x86 machines}
{$endif}
Procedure TextOut(X,Y : Word;Const S : String);
Implementation
@ -20,7 +25,7 @@ begin
If P+M>ScreenWidth*ScreenHeight then
M:=ScreenWidth*ScreenHeight-P;
For I:=1 to M do
VideoBuf^[P+I-1]:=Ord(S[i])+($07 shr 8);
VideoBuf^[P+I-1]:=Ord(S[i])+($07 shl 8);
end;
end.