mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-16 19:39:33 +02:00
38 lines
1015 B
ObjectPascal
38 lines
1015 B
ObjectPascal
{ Old file: tbs0229.pp }
|
|
{ consts > 255 are truncated (should work in -S2,-Sd) OK 0.99.11 (PFV) }
|
|
|
|
{$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.
|