mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-25 17:59:06 +02:00
35 lines
915 B
ObjectPascal
35 lines
915 B
ObjectPascal
{$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.
|