Hallo,
nur für Freunde alter (Programmier-) Sprachen:
Bei der Korrektur eines Uraltprogrammes in Turbo Pascal 6.0 ist mir ein
kurioses Problem begegnet.
Der Quellcode:
1 | uses
|
2 | crt;
|
3 | begin
|
4 | textcolor(black); {wichtig: black}
|
5 | textbackground(black); {wichtig: black}
|
6 | clrscr;
|
7 | textbackground(cyan);
|
8 | window(10,5,41,5); {wichtig: Differenz 31 zwischen x1 und x2}
|
9 | clrscr;
|
10 | end.
|
Das zweite clrscr löscht einen zu großen Bereich bis eine Zeile tiefer
(bis x1-1,y1+1).
Vielleicht ist das seit Jahrzehnten bekannt (Fehler in CRT???).
Ich bin auf die Kommentare gespannt.
Gruß,
WIRO