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