[Back to SCREEN SWAG index]  [Back to Main SWAG index]  [Original]

{
Poon Rojanasoonthon

>I use alot of line draws and some text on the screen....the lines come out
>first and then the text a second or two later....is there a way so that the
>whole output comes at once.  I tried Setvisualpage and setactivepage but the
>the whole output screen is off.

To Turn On/Off the Screen you may use these procedures
}

Procedure ScreenOn;
Begin
  Port[$3C4] := 1;
  Port[$3C5] := $00;
end;

Procedure ScreenOff;
Begin
  Port[$3C4] := 1;
  Port[$3C5] := Port[$3C5] or $20;
end;

{
>And my last question is.....I am also writing a card game in graphics.  I kn
>the ASCII values for the heart, club, spades and diamonds are thru 3-6.  The
>come out in the TEXT mode but they won't show on the screen in GRAPHICS.  Is
>there a way to display them or not?  Thanks.
To Put text in graphics screen you should turn off the directvideo to off first.
        DirectVideo:=False;
}

begin
  Writeln('Turning Screen Off...');
  Readln;
  ScreenOff;
  Writeln('Can you see this??');
  Writeln('Can you see this??');
  Writeln('Can you see this??');
  Writeln('Can you see this??');
  Writeln('Can you see this??');
  Writeln('Can you see this??');
  Writeln('Can you see this??');
  Readln;
  ScreenOn;
  Readln;
end.

[Back to SCREEN SWAG index]  [Back to Main SWAG index]  [Original]