-- MOVIE SCRIPT
----------------------------------------
-- converts MacRoman encoded string to WinLatin1 (Windows-1252) encoded string
-- (SPACE for non-existent)
----------------------------------------
on mac2ansi (str)
macAnsiVec=[\
196,197,199,201,209,214,220,225,224,226,228,227,229,231,233,232,\
234,235,237,236,238,239,241,243,242,244,246,245,250,249,251,252,\
134,176,162,163,167,149,182,223,174,169,153,180,168, 32,198,216,\
218,177, 32, 32,165,181, 32, 32, 32, 32, 32,170,186, 32,198,216,\
191,161,172, 32,131,152, 32,171,187,133,160,192,195,213,140,156,\
150,151,147,148,145,146,215, 32,255,159, 32,128,139,155, 32, 32,\
135,183,130,132,137,194,202,193,203,200,205,206,207,204,211,212,\
32,210,218,219,217, 32,136,152,175, 32, 32,176,184, 32, 32, 32]
out=""
l=str.length
repeat with i = 1 to l
c=str.char[i]
n=chartonum(c)
if n>127 then
put numtochar(macAnsiVec[n-127]) after out
else
put c after out
end if
end repeat
return out
end
----------------------------------------
-- converts WinLatin1 (Windows-1252) encoded string to MacRoman encoded string
-- (SPACE for non-existent)
----------------------------------------
on ansi2mac (str)
macAnsiVec=[\
196,197,199,201,209,214,220,225,224,226,228,227,229,231,233,232,\
234,235,237,236,238,239,241,243,242,244,246,245,250,249,251,252,\
134,176,162,163,167,149,182,223,174,169,153,180,168, 32,198,216,\
218,177, 32, 32,165,181, 32, 32, 32, 32, 32,170,186, 32,198,216,\
191,161,172, 32,131,152, 32,171,187,133,160,192,195,213,140,156,\
150,151,147,148,145,146,215, 32,255,159, 32,128,139,155, 32, 32,\
135,183,130,132,137,194,202,193,203,200,205,206,207,204,211,212,\
32,210,218,219,217, 32,136,152,175, 32, 32,176,184, 32, 32, 32]
out=""
l=str.length
repeat with i = 1 to l
c=str.char[i]
n=chartonum(c)
if n>127 then
pos=macAnsiVec.getPos(n)
if (pos>0) then
put numtochar(127+pos) after out
else
put " " after out
end if
else
put c after out
end if
end repeat
return out
end