freepascal.compiler/bugs/bug0229.pp

{$mode objfpc}
{$X-}

const
   CRLF = #13#10;
   c =
        '1-----------------'+CRLF+
        '2/PcbDict 200 dict'+CRLF+
        '3PcbDicljkljkljk b'+CRLF+
        '4PcbDict /DictMaix'+CRLF+
        '5% draw a pin-poll'+CRLF+
        '6% get x+CRLF+ y s'+CRLF+
        '7/thickness exch h'+CRLF+
        '8gsave x y transls'+CRLF+
        '9---------jljkljkl'+crlf+
        '10----------2jkljk'+crlf+
        '11----------jkllkk'+crlf+
        'eeeeeeeeeeeeeeeeee'+crlf+
        '2-----------------'+CRLF+
        '2/PcbDict 200 dice'+CRLF+
        'END____.XXXXXxjk b'+CRLF+
        '4PcbDict /DictMaix'+CRLF+
        '5% draw a pin-poll'+CRLF+
        '6% get x+CRLF+ y s'+CRLF+
        '7/thickness exch h'+CRLF+
        '8gsave x y transls'+CRLF+
        '9---------jljkljkl'+crlf+
        '10----------2jkljk'+crlf+
        '11----------jkllkk'+crlf+
        'eeeeeeeeeeeeeeeeee12';

begin
   write(c);
end.