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

{
>How do you Write a clear screen Procedure in standard pascal for
>the vax system?  I talking about a nice clear screen prgm that does't
>scroll everything off the screen.  Something that works in a flash..
}

Const
  clear_screen = CHR(27) + CHR(91) + CHR(50) +CHR(74);

begin
  Write(clear_screen);
  readln;
end.

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