Path: utzoo!attcan!uunet!aplcen!haven!adm!news
From: CDCKAB%EMUVM1.BITNET@cunyvm.cuny.edu ( Karl Brendel)
Newsgroups: comp.lang.pascal
Subject: (R)window() problems in turbo 5.5
Message-ID: <24586@adm.BRL.MIL>
Date: 24 Sep 90 17:54:54 GMT
Sender: news@adm.BRL.MIL
Lines: 49


In article <15445.26f8cfbb@levels.sait.edu.au>,
  Anthony Nuttall <xanuttall@lv.sait.edu.au> writes:

>I have noticed using Turbo Pascal 5.5 that when you use the crt
>procedure window to to change the screen borders, when you select a
>region only 1 line high, it spits the dummy and scrolls the rest of the
>screen.  I can find no mention of it in the manual.
>
>demonstration code follows :
>
>for loop := 0 to 3999 do
>mem[$b000:loop] := random(255);
>window(1,1,50,1);
>writeln('Hi there');

I can't understand what you are observing here. I've modified your code
to let me see more clearly how the screen behaves after each WriteLn:

begin
for loop := 0 to 3999 do
mem[$b800:loop] := random(255);  { $b000 for mono screens }
window(1,2,50,2);
for loop := 1 to 5 do
begin
  write(loop,': Hi there');
  repeat until KeyPressed;
  ch := ReadKey;
  writeln;
end;
end.

What I observe is that the WriteLn gives the appearance of clearing the
little "window", as it should, but nothing else on the screen moves. (If
I reduce the width of the window to the size of the string I'm writing,
then the output is never visible in the window. That's normal behavior
for Write, which scrolls whenever you Write a character to the last
column on a line. A real pain, sometimes.)

What, more exactly, are you observing?

+-------------------------------------------------------------------------+
| Karl Brendel                                Centers for Disease Control |
| CDCKAB@EMUVM1.BITNET                        Epidemiology Program Office |
| InterLink/RIME: KARL BRENDEL                Atlanta, GA, USA            |
| GEnie: K.BRENDEL                            phone 404/639-2709          |
|                                             fts       236-2709          |
|                                             Home of Epi Info 5.0        |
+-------------------------------------------------------------------------+