test.txt

来自「词法分析系统,很久以前编的程序了.现在读来还深感舒畅.」· 文本 代码 · 共 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
	!@#$%^&*()
	`~-=\_+|[]{};':",./<>?