test.txt

来自「vc++ mfc pl/0词法分析」· 文本 代码 · 共 27 行

program test;
procedure func(a:integer,b:char);
begin
	var c:char;
	read(c);
	if c>=1234 then
		b:=c*320;
	b:=(a-b)/10000;
end;
begin
	const s:=4444;
	a:=b[333];
	while s=a do
	begin
		call test;
	end;
	write(a);
end.

someerror:
	123cba
	abcdefghijklmnopqrstuvwxyz0123456789
	1234567890987654321
	!@#$%^&*()
	`~-=\_+|[]{};':",./<>?