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

{
> HELP!!!  I cannot figure out how to throw Borland's Turbo Pascal
> v4.0 into VGA 50linesx80columns mode!

You just have to use the Textmode procedure that is in the CRT
unit. The following is an example of how to use it.
}

PROGRAM TextMode_Demo;          {  June 14/93, Greg Estabrooks  }
USES
  CRT;                          {  TextMode, LastMode           }
VAR
  SavedMode : BYTE;             {  Holds Initial Text mode      }

BEGIN
  SavedMode := LastMode;        {  Save Current Mode for later  }
  TextMode(Font8x8 + Co80);     {  Set to Color 43/50 line mode }
  Writeln('This is 43/50 line mode!');
  Readln;                       {  Wait for user to have a look }
  TextMode(SavedMode);          {  Restore to original textmode }
END.

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