blob: bb61963d07362cc59f30b5d5c2853342bd1c00e4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
{ %target=go32v2 }
{ %interactive }
{ check whether this program writes '*' }
Procedure Confuse;
begin
end;
Procedure TestBug(chr:word);
begin
Confuse; {if you comment it, everything is fine even in Level 2}
Mem[$B800:0]:=byte(chr);
end;
begin
writeln(#13#10#13#10);
TestBug(42); {should print '*'}
readln;
end.
|
