Underload interpreter by yt

procedure gnat.spitbol.patterns.a is s:string:=(1..47=>'x',48..999=>':');i:integer;begin
get_line(s,i);put(s(1+i/18*20..10+i/18*37+i/77*42));end;

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page