You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
31 lines
559 B
31 lines
559 B
2 years ago
|
! Program with a variety of contextual errors.
|
||
|
|
|
||
|
|
let
|
||
|
|
type String ~ array 4 of Char;
|
||
|
|
type Name ~ array 3 of String;
|
||
|
|
type Rec ~ record x: Integer, x: Integer end;
|
||
|
|
|
||
|
|
var me: Name;
|
||
|
|
var silly : maxint;
|
||
|
|
var silly: Rec;
|
||
|
|
|
||
|
|
proc putstr (s: String) ~
|
||
|
|
let var i: Integer
|
||
|
|
in
|
||
|
|
begin
|
||
|
|
s[4] := ' ';
|
||
|
|
i := 0;
|
||
|
|
while i do
|
||
|
|
begin i := i+true;
|
||
|
|
put (s[\i])
|
||
|
|
end
|
||
|
|
end
|
||
|
|
|
||
|
|
in
|
||
|
|
begin
|
||
|
|
me[true] := ['T','i','n','y'];
|
||
|
|
me[2][2] := 0;
|
||
|
|
put (me[1]); put (4); put ();
|
||
|
|
putstr (initials (me)); puteol ()
|
||
|
|
end
|