#!/bin/sh # MetaCard 2.4 stack # The following is not ASCII text, # so now would be a good time to q out of more exec mc $0 "$@" unicodeTrials$tZ @ U Fang Song UqMm Pro W3 USong U#üü UAbadi MT Condensed Extra Bold UApple LiGothic Medium U Arabskij CYU Arabskij CYU Arabskij CYUBiauKaiULucida GrandeULucida Grande CYULucida Grande,RussianULucida Grande CY,JapaneseULucida Grande CY,RussianULucida Grande CY,GreekU Geneva CYUGeneva CY,RussianUGeneva CY,JapaneseUGeneva CY,EnglishU Geneva CY ULucida GrandeUosaka,russianUosaka,russianUosaka,JapaneseUosaka,Russian Uosaka,Japanese Uosaka Uosaka, russianUosaka, russian Uosaka,russian Ugeneva,unicodeUosaka,russianU osaka,GreekU osaka,ArabicU osaka,ThaiUApple LiSung LightUApple LiGothic MediumUApple LiGothic Medium,JapaneseUApple LiGothic Medium,GreekUApple LiGothic Medium,RussianUApple LiGothic Medium,ArabicUApple LiGothic Medium,ThaiUArialUOsakaULucida GrandeULucida Grande,JapaneseULucida Grande,Russian ULucida Grande,Japanese ULucida Grande,Russian UArial,Russian U Geneva CY UGeneva CY,RussianUOsaka,RussianULucida GrandeUGeneva CY,RussianU Geneva CY ULucida Grande ULucida Grande,ArabicWGenevaW New YorkW New YorkU New YorkUMonacochardiscussion @Z  @Z  @Z   readinepon mouseUp answer file "Choose a unicode file to read in." if it is empty then exit mouseUp put "binfile:" & it into urlName set the unicodeText of fld 1 to url urlName end mouseUp >$Read Unicode text cREVGeneralscriptChecksumf>7G revUniqueID 1076434663277 bookmarks handlerListmouseUp tempScript prevHandlermouseUpscriptSelectionchar 99 to 127script

on mouseUp

answer file "Choose a unicode file to read in."

if it is empty then exit mouseUp

put "binfile:" & it into urlName

set the unicodeText of fld 1 to url urlName

end mouseUp

saveepon mouseUp --put uniencode(fld 1,"utf8") into uniTxt --put uniTxt ask file "Save file as..." if it is empty then exit mouseUp put "binfile:" & it into urlname put the unicodeText of fld 1 into url urlname end mouseUp $Save Unicode text cREVGeneralscriptChecksumD_X*B? bookmarks revUniqueID 1076440837354 handlerListmouseUpscriptSelectionchar 217 to 216 prevHandlermouseUp tempScriptscript

on mouseUp

--put uniencode(fld 1,"utf8") into uniTxt

--put uniTxt

ask file "Save file as..."

if it is empty then exit mouseUp

put "binfile:" & it into urlname

put the unicodeText of fld 1 into url urlname

end mouseUp

 embeddedepdon mouseUp put empty into fld 1 set the htmlText of fld 2 to the explanation of me end mouseUp z$Unicode characters whose numeric value is greater than 255 are encoded as bignum entities, with a leading ampersand and trailing semicolon. For example, the Japanese character っ whose numeric value is 12387 is encoded as \&. explanationUnicode characters whose numeric value is greater than 255 are encoded as 'bignum' entities, with a leading ampersand and trailing semicolon. For example, the Japanese character っ whose numeric value is 12387 is encoded as '&#12387;'. About Unicode Embedded in HTML cREVGeneralscriptChecksump#<1G( revUniqueID 1076515522540 bookmarks handlerListmouseUp tempScript prevHandlermouseUpscriptSelection char 34 to 33script

on mouseUp

put empty into fld 1

set the htmlText of fld 2 to the explanation of me

end mouseUp

savertfepon mouseUp --put uniencode(fld 1,"utf8") into uniTxt --put uniTxt ask file "Save file as..." if it is empty then exit mouseUp put "binfile:" & it into urlname put the rtfText of fld 1 into url urlname end mouseUp $Save RTF text cREVGeneralscriptChecksumUȉ4R( revUniqueID 1076518203809 bookmarks handlerListmouseUp tempScript prevHandlermouseUpscriptSelectionchar 187 to 186script

on mouseUp

--put uniencode(fld 1,"utf8") into uniTxt

--put uniTxt

ask file "Save file as..."

if it is empty then exit mouseUp

put "binfile:" & it into urlname

put the rtfText of fld 1 into url urlname

end mouseUp

 readinrtfepon mouseUp answer file "Choose a unicode file to read in." if it is empty then exit mouseUp put "binfile:" & it into urlName set the rtfText of fld 1 to url urlName end mouseUp >$Read RTF text cREVGeneralscriptChecksumĨj#INY<& bookmarks revUniqueID 1076518263841 handlerListmouseUpscriptSelectionchar 149 to 148 prevHandlermouseUp tempScriptscript

on mouseUp

answer file "Choose a unicode file to read in."

if it is empty then exit mouseUp

put "binfile:" & it into urlName

set the rtfText of fld 1 to url urlName

end mouseUp

 readinhtmlepon mouseUp answer file "Choose a unicode file to read in." if it is empty then exit mouseUp put "binfile:" & it into urlName set the htmlText of fld 1 to url urlName end mouseUp ?0$Read HTML text cREVGeneralscriptChecksumx \u revUniqueID 1076518349275 bookmarks handlerListmouseUp tempScript prevHandlermouseUpscriptSelectionchar 146 to 145script

on mouseUp

answer file "Choose a unicode file to read in."

if it is empty then exit mouseUp

put "binfile:" & it into urlName

set the htmlText of fld 1 to url urlName

end mouseUp

 savehtmlepon mouseUp --put uniencode(fld 1,"utf8") into uniTxt --put uniTxt ask file "Save file as..." if it is empty then exit mouseUp put "binfile:" & it into urlname put the htmlText of fld 1 into url urlname end mouseUp 0$Save HTML text cREVGeneralscriptChecksum qL-Ŀѫ bookmarks revUniqueID 1076518353825 handlerListmouseUpscriptSelectionchar 184 to 183 prevHandlermouseUp tempScriptscript

on mouseUp

--put uniencode(fld 1,"utf8") into uniTxt

--put uniTxt

ask file "Save file as..."

if it is empty then exit mouseUp

put "binfile:" & it into urlname

put the htmlText of fld 1 into url urlname

end mouseUp

Field 1)`&  cREVGeneral revUniqueID 1076426116460  4>10@ 40= 2  2 `   explanations)h,$ cREVGeneral revUniqueID 1076438636864  4 5`exampleepon mouseUp put "This is the HTML code being used for the field above:" & return &"

добар дан

" into fld 2 set the htmltext of fld 1 to "

добар дан

" end mouseUp x $Unicode characters whose numeric value is greater than 255 are encoded as bignum entities, with a leading ampersand and trailing semicolon. For example, the Japanese character っ whose numeric value is 12387 is encoded as \&. explanationUnicode characters whose numeric value is greater than 255 are encoded as 'bignum' entities, with a leading ampersand and trailing semicolon. For example, the Japanese character っ whose numeric value is 12387 is encoded as '&#12387;'. "Example: Unicode Embedded in HTML cREVGeneralscriptChecksum cÖ PQ(4TN bookmarks revUniqueID 1076526880860 handlerListmouseUpscriptSelectionchar 345 to 344 prevHandlermouseUp tempScriptscript

on mouseUp

put "This is the HTML code being used for the field above:" & return &"<p><font face=" & QUOTE & "Arial" & QUOTE & "lang=" \

& QUOTE & "ru" & QUOTE & ">&#1076;&#1086;&#1073;&#1072;&#1088;</font> <font face=" \

& QUOTE & "Arial" & QUOTE & "lang=" & QUOTE & "ru"& QUOTE & ">&#1076;&#1072;&#1085;</font></p>" into fld 2

set the htmltext of fld 1 to "<p><font face=" & QUOTE & "Arial" & QUOTE & "lang=" \

& QUOTE & "ru" & QUOTE & ">&#1076;&#1086;&#1073;&#1072;&#1088;</font> <font face=" \

& QUOTE & "Arial" & QUOTE & "lang=" & QUOTE & "ru"& QUOTE & ">&#1076;&#1072;&#1085;</font></p>"

end mouseUp

 standardText)h6h cREVGeneral revUniqueID 1076624815789  -The quick brown fox jumps over the lazy dog.  checkuniex9on mouseUp ask "Check which field?" put it into fldNum if the effective textFont of word 1 of field fldNum contains comma then answer "Field " & fldNum & " is Unicode!" else answer "Field " & fldNum & " is NOT Unicode!" end mouseUp $#Check to see if a field is unicode cREVGeneralscriptChecksum&K ' bookmarks revUniqueID 1076624829189 handlerListmouseUpscriptSelectionchar 220 to 219 prevHandlermouseUp tempScriptscript

on mouseUp

ask "Check which field?"

put it into fldNum

if the effective textFont of word 1 of field fldNum contains comma then answer "Field " & fldNum & " is Unicode!"

else answer "Field " & fldNum & " is NOT Unicode!"

end mouseUp

 unicodeText)h6h cREVGeneral revUniqueID 1076624877946  / ;N1;N B51O. 7 8 7 8  7 8 info)h-r0&" cREVGeneral revUniqueID 1076625127178 / / onebytecharex9>on mouseUp put char 1 of fld 1 into fld "info" end mouseUp P$put char 1 of fld 1 cREVGeneralscriptChecksum5l7瀮F revUniqueID 1076625389794 bookmarks handlerListmouseUp tempScript prevHandlermouseUpscriptSelection char 49 to 48script

on mouseUp

put char 1 of fld 1 into fld "info"

end mouseUp

 twobytecharex9>on mouseUp put char 1 of fld 2 into fld "info" end mouseUp |$put char 1 of fld 2 cREVGeneralscriptChecksum9S_T OH+ bookmarks revUniqueID 1076625495062 handlerListmouseUpscriptSelection char 33 to 32 prevHandlermouseUp tempScriptscript

on mouseUp

put char 1 of fld 2 into fld "info"

end mouseUp

 twobytechar2ex9\on mouseUp set useUnicode to true put char 1 to 2 of fld 2 into fld "info" end mouseUp $put char 1 to 2 of fld 2 cREVGeneralscriptChecksumh3֒psGY revUniqueID 1076625528887 bookmarks handlerListmouseUp tempScript prevHandlermouseUpscriptSelection char 91 to 90script

on mouseUp

set useUnicode to true

put char 1 to 2 of fld 2 into fld "info"

end mouseUp

 twobytechar2ex9mon mouseUp set useUnicode to true set the unicodeText of fld "info" to char 1 to 2 of fld 2 end mouseUp $set the unicodeText of fld 2 cREVGeneralscriptChecksumN9!{8p$ bookmarks revUniqueID 1076625617948 handlerListmouseUpscriptSelection char 96 to 95 prevHandlermouseUp tempScriptscript"

on mouseUp

set useUnicode to true

set the unicodeText of fld "info" to char 1 to 2 of fld 2

end mouseUp

onebytechartonumex9Ion mouseUp put charToNum(char 1 of fld 1) into fld "info" end mouseUp P$put charToNum(char 1 of fld 1) cREVGeneralscriptChecksumcpg RO bookmarks revUniqueID 1076625682920 handlerListmouseUpscriptSelection char 44 to 43 prevHandlermouseUp tempScriptscript

on mouseUp

put charToNum(char 1 of fld 1) into fld "info"

end mouseUp

onebytenumtocharex9Ion mouseUp put numToChar(fld "info") into line 2 of fld 1 end mouseUp ~$put numToChar(fld "info") cREVGeneralscriptChecksumNhRrƑF revUniqueID 1076625839283 bookmarks handlerListmouseUp tempScript prevHandlermouseUpscriptSelection char 14 to 59script

on mouseUp

put numToChar(fld "info") into line 2 of fld 1

end mouseUp

onebytechartonumex9kon mouseUp set the useUnicode to true put charToNum(char 1 to 2 of fld 2) into fld "info" end mouseUp $put charToNum( ) for Unicode cREVGeneralscriptChecksum+1t忀. revUniqueID 1076625994569 bookmarks handlerListmouseUp tempScript prevHandlermouseUpscriptSelection char 77 to 76script

on mouseUp

set the useUnicode to true

put charToNum(char 1 to 2 of fld 2) into fld "info"

end mouseUp

unicodenumtocharex9ron mouseUp set the useUnicode to true set the unicodeText of fld "info" to numToChar(fld "info") end mouseUp $numToChar( ) for Unicode cREVGeneralscriptChecksumFiυ z74 bookmarks revUniqueID 1076626058286 handlerListmouseUpscriptSelectionchar 77 to 100 prevHandlermouseUp tempScriptscript1

on mouseUp

set the useUnicode to true

set the unicodeText of fld "info" to numToChar(fld "info")

end mouseUp

unitext)`& cREVGeneral revUniqueID 1089748433822  8 7 'DC*'( b /13 a *E1JF bChoose the correct Word.a@'D9'DE 'D91(J (JF 'DE-J7 'D#7D3J H'D.DJ, 'D91(J ('DA'13J).b@ #E3 0G(F' %DIH'4*1JF' (96 'DED'(3.c@ *EQ* C*'() 'DB1"F AJ'D.DJA) 'D+'D+ 9+E'F (F 9AQ'F.d@'D7'&1) 'D1-D) (JF 9E'F HFJH JH1C AJ -H'DJ ac 3'9).e@ AJ G0G 'DEB'D)EE*'2 DE/JF) (:/'/ 'DB/JE).f@ FO41* ".1EF G0' 'DC*'( 9'E aiie.g@ #.*J(/1'3) 'DD:'* 'DB/(E).h@ C*'( #DA DJD) HDJD) EF 'D#9E'DAJ *'1J. 'D#/( 'D91(J.i@EF 4('C :1A*J ,EJD ,/'.a`@ F1:( AJ 2J'1) 'DJEF HF1J/ 'D-5HD 9DI (969FG'.aa@'DH',( %DI 'D#3*'0) HDCFG DE JCF C'ED'.ab@ GD *91A '3EG0G 'D3J'1)ac@GH 4.5 #,F(J E*.55 AJ /1'3) 'DD:) H'D+B'A) H'D#/( AJ 'D9'DEJF 'D91(J H'D%3D'EJ.ad@ C'F 'D91( AJ'DB/JE J9J4HF AJ EF'7B E.*DA) AJ 'D,2J1) 'D91(J).ae@ 9F/E'%DJG' 91A* #FG' *B5/ E' *BHD.  :  :  :  :  :  :  :  R :[ e :  :  : I :& 2 :3 ? :A G :H T :U c :d r :s  : o :  :   :  : R :m w :  :  : I :> N :O U :V dn :  :  :  :  : R :N T :r z :  : I :  : * :+ 5 :6 : :; En : R :  :1 9 :W c : I :  :  :  :  :   :    :    :    :   $ : %  -n :    :    :    :   R :    : 0  8 : V  \ : z  I :   :   :   :   n : p  t : u   :   R :   :    : &  . : L  VI :    :    :   :    :   n : 5  9 : :  BR :   :   :    :  I :[ g :h t :u n :  :  :  :  :  :  :  .R :  :  :  :  I :a e :f p :q { :| n : R :L V :t  :  : I :  :  ( :) 3 :4 < := Cn :  :  :  :  :  :  :  :  : R :S a :  :  : I :4 <n : R :   :* 4 :R Z :x I :  :  :  :  :  :  : n :}  :  :  : R :  :  :6 > :\ dI :  : m :1 7R :  :  :  :  I :f j :k q :r | :}  :  :  :  :  :  :  :  :  : n :e k :l r :s } :~ R :  :  :& 2 :P ZI :  :  :  :  :  :  :  : n :j p :q {R :  :  : ' :E MI :  :  :  :  :  : ! getUni8ex6]on mouseUp set the unicodetext of fld 1 to uniencode(url fld "urlFld","UTF8") end mouseUp n7 "Display UTF-8 Text in a Rev Field cREVGeneralscriptChecksumsY̖~& revUniqueID 1089748474323 bookmarks handlerListmouseUp tempScript prevHandlerscriptSelection char 92 to 91script

on mouseUp

set the unicodetext of fld 1 to uniencode(url fld "urlFld","UTF8")

end mouseUp

 urlFld)h9x(  cREVGeneral revUniqueID 1089748526323  Lhttp://zola.byu.edu/xml/source/Arabic/Al-kitaab/2ak1.2_question_content.xml bgGrpaon openCard put the number of this cd && "of" && number of cds into fld "count" end openCard &8Selection Descriptionfalse cREVGeneralscriptChecksumN=Ik6mu*w revUniqueID 1100042888585 bookmarks handlerListopenCard tempScript prevHandlermouseUpscriptSelection char 97 to 96script8

on openCard

put the number of this cd && "of" && number of cds into fld "count"

end openCard

count 6BF cREVGeneral revUniqueID 1013120932815 bookmarks handlerList tempScript prevHandlerscriptSelection char 1 to 0script 1 of 3NextbK8on mouseUp visual wipe left go next cd end mouseUp @.&$ cREVGeneralscriptChecksumy).^j7 revUniqueID 1013121265868 bookmarks handlerListmouseUp tempScript prevHandlerscriptSelection char 43 to 42script

on mouseUp

visual wipe left

go next cd

end mouseUp

prevbC9on mouseUp visual wipe right go prev cd end mouseUp @.&$ cREVGeneralscriptChecksumC̰>)ț> bookmarks revUniqueID 1013121453000 handlerListmouseUpscriptSelection char 31 to 30 prevHandlermouseUp tempScriptscript

on mouseUp

visual wipe right

go prev cd

end mouseUp