Xref: utzoo comp.lang.pascal:2180 comp.sys.ibm.pc:32619
Path: utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!csd4.milw.wisc.edu!cs.utexas.edu!uunet!mcvax!kth!sunic!dkuug!ambush!leif
From: leif@ambush.dk (Leif Andrew Rump)
Newsgroups: comp.lang.pascal,comp.sys.ibm.pc
Subject: I found a BUG in Turbo Pascal 5.5!!!!!!!!!!!!!!!!!!!!!
Keywords: bug, turbo pascal, tp, window
Message-ID: <1412@ambush.dk>
Date: 3 Aug 89 10:47:48 GMT
Organization: AmbraSoft, Holte, Denmark
Lines: 54

Try this out on EGA/VGA/... and then on CGA/... (I haven't tried all
possibilities, but the _TWO_ result is the same every time on those
two monitors, even with or without ansi.sys. i also haven't tried
earlier versions of Turbo Pascal but it's probably the same).

I'm trying to make a window with only one line. As with any other
window it scrools if you put more in to it than there is space for
_BUT_ on a CGA/... monitor _ALL_ the lines under the window scrools
up!!!!! (see the example on the bottom of this letter).

program Turbo_Pascal_window_BUG;

uses
  crt;

begin (* Turbo_Pascal_window_BUG *)
  clrscr;
  gotoxy(1, 10);
  write('abcdefghijklmnopqrstuvwxyz{|}ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]');
  gotoxy(1, 20);
  write('abcdefghijklmnopqrstuvwxyz{|}ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]');
  gotoxy(1, 25);
  write('abcdefghijklmnopqrstuvwxyz{|}ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]');
  window(10, 15, 20, 15);
  write('abcdefghijklmnopqrstuvwxyz{|}ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]');
end. (* Turbo_Pascal_window_BUG *)

How it should be and is on EGA/VGA/... (more or less!):
----------------------------------------------------------
abcdefghijklmnopqrstuvwxyz{|}ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]

             STUVWXYZ[\]

abcdefghijklmnopqrstuvwxyz{|}ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]



abcdefghijklmnopqrstuvwxyz{|}ABCDEFGHIJKLMNOPQTSTUVWXYZ[\]
----------------------------------------------------------
How it is on CGA/... (also more or less!):
----------------------------------------------------------
abcdefghijklmnopqrstuvwxyz{|}ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]

             STUVWXYZ[\]
             nopqrstuvwxyz{|}ABCDEFGHIJKLM
abcdefghijklm                             NOPQRSTUVWXYZ[\]
             nopqrstuvwxyz{|}ABCDEFGHIJKLM
abcdefghijklm                             NOPQRSTUVWXYZ[\]
----------------------------------------------------------

  Leif Andrew Rump, AmbraSoft A/S, Roejelskaer 15, DK-2840 Holte, Denmark
 UUCP: leif@ambra.dk, phone: +45 42424 111, touch phone: +45 42422 817+313

   > > > Why are tall Irish girls with red hair so wonderful ? ? ? < < <