summaryrefslogtreecommitdiff
path: root/fonts/hershey/chk.icn
blob: 3606b7821b34314edde0b9f438e036e423abb3c9 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
procedure main()
begin
	while s := read() do
	{
		l := s[6:9]
		map(l, " ", "0")
		len := integer(l) * 2
		slen := *s - 8
		if len ~= slen then
			write(s[1:9],len,slen)
	}
end