%!PS-Adobe-3.0
2.834645669 2.834645669 scale
newpath
/vPosition 297 20 sub def
/newLineHight 12 def
/Left 20 def
/Space 3 def
/hPosition Left Space add def
/newline { /vPosition vPosition newLineHight sub def
hPosition Space add vPosition moveto } def
/Head { 0 exch getinterval} def
/ldict 1 dict def
/Tail {
ldict begin
/start exch def
/str exch def
/len str length start sub def
str start len getinterval
end
} def
/isKANJI { dup is0x81_0x9f exch is0xe0_0xef or } def
/is0x81_0x9f { dup 16#81 ge exch 16#9f le and } def
/is0xe0_0xef { dup 16#e0 ge exch 16#ef le and } def
/sdict 1 dict def
/Split {
sdict begin
/str exch def
str 0 get isKANJI { str 2 Tail str 2 Head}
{ str 1 Tail str 1 Head} ifelse
end
} def
/s2dict 1 dict def
/joinString {
s2dict begin
/str exch def
/strBase exch def
/baseLen strBase length def
/strLen str length def
/newString baseLen strLen add string def
newString 0 strBase putinterval
newString baseLen str putinterval
newString
end
} def
/s3dict 1 dict def
/addToArray {
s3dict begin
/obj exch def
/baseArray exch def
/baseLen baseArray length def
/newArray baseLen 1 add array def
baseArray aload
obj
exch pop
newArray astore
end
} def
/splitString {
ldict begin
/inString exch def
/outString exch def
/slen exch def
inString length 0 eq {()()}
{ inString Split } ifelse
/char exch def
/rest exch def
/newOut outString char joinString def
newOut stringwidth pop
slen lt
{rest length
0 gt { slen newOut rest splitString}
{ () newOut } ifelse
}
{ inString outString }ifelse
end
} def
hPosition vPosition moveto
newline
/MS-Mincho-90ms-RKSJ-H findfont 10 scalefont setfont
40 () (我輩は猫である。名前はまだない。) splitString == ==
310\202\242\201B)
40 () (inStringhogehoge) splitString == ==
40 () (inStringh) splitString == ==
40 () (inString) splitString == ==
showpage