on openproject set modernlook to true set allowdraganddrop to true put empty into card field path of wd converter put empty into card field text of wd converter open invisible wd splash set the loc of wd splash to screenloc() open wd splash wait 2 seconds close wd splash open invisible wd converter set the loc of wd converter to screenloc() open wd converter insert menu 1 insert menu 2 insert menu 3 insert menu 4 insert menu 5 click at the loc of card field "text" paste text select text of card field "text" end openproject on closeproject put empty into card field text of wd converter put empty into card field "backup" of wd converter put empty into card field path of wd converter end closeproject function sylltostand zatext put replace (zatext,"Ÿ","v") into zatext put replace (zatext,"ang1","//aq//ng") into zatext put replace (zatext,"ang2","//aw//ng") into zatext put replace (zatext,"ang3","//ae//ng") into zatext put replace (zatext,"ang4","//ar//ng") into zatext put replace (zatext,"eng1","//eq//ng") into zatext put replace (zatext,"eng2","//ew//ng") into zatext put replace (zatext,"eng3","//ee//ng") into zatext put replace (zatext,"eng4","//er//ng") into zatext put replace (zatext,"ing1","//iq//ng") into zatext put replace (zatext,"ing2","//iw//ng") into zatext put replace (zatext,"ing3","//ie//ng") into zatext put replace (zatext,"ing4","//ir//ng") into zatext put replace (zatext,"ong1","//oq//ng") into zatext put replace (zatext,"ong2","//ow//ng") into zatext put replace (zatext,"ong3","//oe//ng") into zatext put replace (zatext,"ong4","//or//ng") into zatext put replace (zatext,"an1","//aq//n") into zatext put replace (zatext,"an2","//aw//n") into zatext put replace (zatext,"an3","//ae//n") into zatext put replace (zatext,"an4","//ar//n") into zatext put replace (zatext,"en1","//eq//n") into zatext put replace (zatext,"en2","//ew//n") into zatext put replace (zatext,"en3","//ee//n") into zatext put replace (zatext,"en4","//er//n") into zatext put replace (zatext,"in1","//iq//n") into zatext put replace (zatext,"in2","//iw//n") into zatext put replace (zatext,"in3","//ie//n") into zatext put replace (zatext,"in4","//ir//n") into zatext put replace (zatext,"un1","//uq//n") into zatext put replace (zatext,"un2","//uw//n") into zatext put replace (zatext,"un3","//ue//n") into zatext put replace (zatext,"un4","//ur//n") into zatext put replace (zatext,"ao1","//aq//o") into zatext put replace (zatext,"ao2","//aw//o") into zatext put replace (zatext,"ao3","//ae//o") into zatext put replace (zatext,"ao4","//ar//o") into zatext put replace (zatext,"ou1","//oq//u") into zatext put replace (zatext,"ou2","//ow//u") into zatext put replace (zatext,"ou3","//oe//u") into zatext put replace (zatext,"ou4","//or//u") into zatext put replace (zatext,"ai1","//aq//i") into zatext put replace (zatext,"ai2","//aw//i") into zatext put replace (zatext,"ai3","//ae//i") into zatext put replace (zatext,"ai4","//ar//i") into zatext put replace (zatext,"ei1","//eq//i") into zatext put replace (zatext,"ei2","//ew//i") into zatext put replace (zatext,"ei3","//ee//i") into zatext put replace (zatext,"ei4","//er//i") into zatext put replace (zatext,"a1","//aq//") into zatext put replace (zatext,"a2","//aw//") into zatext put replace (zatext,"a3","//ae//") into zatext put replace (zatext,"a4","//ar//") into zatext put replace (zatext,"a1","//aq//") into zatext put replace (zatext,"a2","//aw//") into zatext put replace (zatext,"a3","//ae//") into zatext put replace (zatext,"a4","//ar//") into zatext put replace (zatext,"er2","//ew//r") into zatext put replace (zatext,"er3","//ee//r") into zatext put replace (zatext,"er4","//er//r") into zatext put replace (zatext,"lyue","l//v//e") into zatext put replace (zatext,"nyue","n//v//e") into zatext put replace (zatext,"e1","//eq//") into zatext put replace (zatext,"e2","//ew//") into zatext put replace (zatext,"e3","//ee//") into zatext put replace (zatext,"e4","//er//") into zatext put replace (zatext,"o1","//oq//") into zatext put replace (zatext,"o2","//ow//") into zatext put replace (zatext,"o3","//oe//") into zatext put replace (zatext,"o4","//or//") into zatext put replace (zatext,"i1","//iq//") into zatext put replace (zatext,"i2","//iw//") into zatext put replace (zatext,"i3","//ie//") into zatext put replace (zatext,"i4","//ir//") into zatext put replace (zatext,"nyu3","n//ve//") into zatext put replace (zatext,"lyu","l//v//") into zatext put replace (zatext,"v1","//vq//") into zatext put replace (zatext,"v2","//vw//") into zatext put replace (zatext,"v3","//ve//") into zatext put replace (zatext,"v4","//vr//") into zatext put replace (zatext,"u1","//uq//") into zatext put replace (zatext,"u2","//uw//") into zatext put replace (zatext,"u3","//ue//") into zatext put replace (zatext,"u4","//ur//") into zatext return zatext end sylltostand function standtosyll zatext put replace (zatext,"//aq//ng","ang1") into zatext put replace (zatext,"//aw//ng","ang2") into zatext put replace (zatext,"//ae//ng","ang3") into zatext put replace (zatext,"//ar//ng","ang4") into zatext put replace (zatext,"//eq//ng","eng1") into zatext put replace (zatext,"//ew//ng","eng2") into zatext put replace (zatext,"//ee//ng","eng3") into zatext put replace (zatext,"//er//ng","eng4") into zatext put replace (zatext,"//iq//ng","ing1") into zatext put replace (zatext,"//iw//ng","ing2") into zatext put replace (zatext,"//ie//ng","ing3") into zatext put replace (zatext,"//ir//ng","ing4") into zatext put replace (zatext,"//oq//ng","ong1") into zatext put replace (zatext,"//ow//ng","ong2") into zatext put replace (zatext,"//oe//ng","ong3") into zatext put replace (zatext,"//or//ng","ong4") into zatext put replace (zatext,"//aq//n","an1") into zatext put replace (zatext,"//aw//n","an2") into zatext put replace (zatext,"//ae//n","an3") into zatext put replace (zatext,"//ar//n","an4") into zatext put replace (zatext,"//eq//n","en1") into zatext put replace (zatext,"//ew//n","en2") into zatext put replace (zatext,"//ee//n","en3") into zatext put replace (zatext,"//er//n","en4") into zatext put replace (zatext,"//iq//n","in1") into zatext put replace (zatext,"//iw//n","in2") into zatext put replace (zatext,"//ie//n","in3") into zatext put replace (zatext,"//ir//n","in4") into zatext put replace (zatext,"//uq//n","un1") into zatext put replace (zatext,"//uw//n","un2") into zatext put replace (zatext,"//ue//n","un3") into zatext put replace (zatext,"//ur//n","un4") into zatext put replace (zatext,"//aq//o","ao1") into zatext put replace (zatext,"//aw//o","ao2") into zatext put replace (zatext,"//ae//o","ao3") into zatext put replace (zatext,"//ar//o","ao4") into zatext put replace (zatext,"//oq//u","ou1") into zatext put replace (zatext,"//ow//u","ou2") into zatext put replace (zatext,"//oe//u","ou3") into zatext put replace (zatext,"//or//u","ou4") into zatext put replace (zatext,"//aq//i","ai1") into zatext put replace (zatext,"//aw//i","ai2") into zatext put replace (zatext,"//ae//i","ai3") into zatext put replace (zatext,"//ar//i","ai4") into zatext put replace (zatext,"//eq//i","ei1") into zatext put replace (zatext,"//ew//i","ei2") into zatext put replace (zatext,"//ee//i","ei3") into zatext put replace (zatext,"//er//i","ei4") into zatext put replace (zatext,"//aq//","a1") into zatext put replace (zatext,"//aw//","a2") into zatext put replace (zatext,"//ae//","a3") into zatext put replace (zatext,"//ar//","a4") into zatext put replace (zatext,"//aq//","a1") into zatext put replace (zatext,"//aw//","a2") into zatext put replace (zatext,"//ae//","a3") into zatext put replace (zatext,"//ar//","a4") into zatext put replace (zatext,"//ew//r","er2") into zatext put replace (zatext,"//ee//r","er3") into zatext put replace (zatext,"//er//r","er4") into zatext put replace (zatext,"l//v//e","lyue") into zatext put replace (zatext,"n//v//e","nyue") into zatext put replace (zatext,"//eq//","e1") into zatext put replace (zatext,"//ew//","e2") into zatext put replace (zatext,"//ee//","e3") into zatext put replace (zatext,"//er//","e4") into zatext put replace (zatext,"//oq//","o1") into zatext put replace (zatext,"//ow//","o2") into zatext put replace (zatext,"//oe//","o3") into zatext put replace (zatext,"//or//","o4") into zatext put replace (zatext,"//iq//","i1") into zatext put replace (zatext,"//iw//","i2") into zatext put replace (zatext,"//ie//","i3") into zatext put replace (zatext,"//ir//","i4") into zatext put replace (zatext,"n//ve//","nyu3") into zatext put replace (zatext,"l//v//","lyu") into zatext put replace (zatext,"//vq//","v1") into zatext put replace (zatext,"//vw//","v2") into zatext put replace (zatext,"//ve//","v3") into zatext put replace (zatext,"//vr//","v4") into zatext put replace (zatext,"//uq//","u1") into zatext put replace (zatext,"//uw//","u2") into zatext put replace (zatext,"//ue//","u3") into zatext put replace (zatext,"//ur//","u4") into zatext return zatext end standtosyll on mouseUp answer file "Choose a text file:" of type "TEXT" or "FoL1" if it is empty then exit mouseup else put it into zafile -- put line 4 of fileInfo(zafile) zasize -- if line 4 of zasize>32000 then -- put trunc(zasize/32000) cycles -- put 32000 into zacount -- repeat with x=1 to cycles -- open file zafile -- read from file zafile until zacount set the cursor to watch open card "fileconvert" put "Step 1/4: Reading file..." into card field "info" open file zafile read from file zafile until eof put it into toconvert close file zafile end if put "Step 2/4: Converting pinyin to standard format..." into card field "info" put convertPin(toconvert,the short name of card button id 101 of card 1 of wd 3,the short name of card button id 102 of card 1 of wd 3) into converted put "Step 4/4: Writing new file to disk..." into card field "info" put zafile&&the short name of card button id 102 of card 1 of wd converter into zafile open file zafile write converted to file zafile close file zafile put empty into card field "info" open card 1 end mouseUp --₯₯₯₯₯₯₯₯₯ convertPin --₯₯₯₯ This function calls the functions which will convert the text to a standard --₯₯₯₯ and then the function which will translate this standard text into the new format. function convertPin ctext,cfrom,cto put convertToStandard(ctext,cfrom) into readyText put "Step 3/4: Converting standard format to new format..." into card field "info" put convertToNewFormat(readyText,cto) into doneText --put readyText into doneText return doneText end convertPin --₯₯₯₯₯₯₯₯₯ convertToStandard --₯₯₯₯ This function translates the text to a standard text. function convertToStandard ctext,cfrom switch cfrom case "Easytone" put replace (ctext,"a","//aw//") into ctext put replace (ctext,"[a","//ae//") into ctext put replace (ctext,"]a","//ar//") into ctext put replace (ctext,"e","//ew//") into ctext put replace (ctext,"[e","//ee//") into ctext put replace (ctext,"]e","//er//") into ctext put replace (ctext,"i","//iw//") into ctext put replace (ctext,"[i","//ie//") into ctext put replace (ctext,"]i","//ir//") into ctext put replace (ctext,"o","//ow//") into ctext put replace (ctext,"[o","//oe//") into ctext put replace (ctext,"]o","//or//") into ctext put replace (ctext,"u","//uw//") into ctext put replace (ctext,"[u","//ue//") into ctext put replace (ctext,"]u","//ur//") into ctext --Do we need v1? put replace (ctext,"<`","//vq//") into ctext put replace (ctext,">`","//vw//") into ctext put replace (ctext,"[`","//ve//") into ctext put replace (ctext,"]`","//vr//") into ctext put replace (ctext,"`","//v//") into ctext put replace (ctext,"A","//aaw//") into ctext put replace (ctext,"[A","//aae//") into ctext put replace (ctext,"]A","//aar//") into ctext put replace (ctext,">E","//eew//") into ctext put replace (ctext,"]E","//eer//") into ctext exit switch case "Chinese Pinyin" put replace (ctext,"`","//aq//") into ctext put replace (ctext,"1","//aw//") into ctext put replace (ctext,"2","//ae//") into ctext put replace (ctext,"3","//ar//") into ctext put replace (ctext,"4","//eq//") into ctext put replace (ctext,"5","//ew//") into ctext put replace (ctext,"6","//ee//") into ctext put replace (ctext,"7","//er//") into ctext put replace (ctext,"%","//iq//") into ctext put replace (ctext,"^","//iw//") into ctext put replace (ctext,"&","//ie//") into ctext put replace (ctext,"*","//ir//") into ctext put replace (ctext,"8","//oq//") into ctext put replace (ctext,"9","//ow//") into ctext put replace (ctext,"0","//oe//") into ctext put replace (ctext,"-","//or//") into ctext put replace (ctext,"[","//uq//") into ctext put replace (ctext,"{","//uw//") into ctext put replace (ctext,"}","//ue//") into ctext put replace (ctext,"]","//ur//") into ctext --Do we need v1? put replace (ctext,"=","//vq//") into ctext put replace (ctext,"+","//vw//") into ctext put replace (ctext,"|","//ve//") into ctext put replace (ctext,"\","//vr//") into ctext put replace (ctext,"_","//v//") into ctext put replace (ctext,"~","//aaq//") into ctext --Do we need aa2 and aa3? put replace (ctext,"!","//aaw//") into ctext put replace (ctext,"@","//aae//") into ctext put replace (ctext,"#","//aar//") into ctext put replace (ctext,"$","//eeq//") into ctext --This font doesn't seem to have the other capital E characters with tones exit switch case "Pintone" put replace (ctext,"1","//aq//") into ctext put replace (ctext,"2","//aw//") into ctext put replace (ctext,"3","//ae//") into ctext put replace (ctext,"4","//ar//") into ctext put replace (ctext,"5","//eq//") into ctext put replace (ctext,"6","//ew//") into ctext put replace (ctext,"7","//ee//") into ctext put replace (ctext,"8","//er//") into ctext put replace (ctext,"9","//iq//") into ctext put replace (ctext,"0","//iw//") into ctext put replace (ctext,"-","//ie//") into ctext put replace (ctext,"=","//ir//") into ctext put replace (ctext,"!","//oq//") into ctext put replace (ctext,"@","//ow//") into ctext put replace (ctext,"#","//oe//") into ctext put replace (ctext,"$","//or//") into ctext put replace (ctext,"%","//uq//") into ctext put replace (ctext,"^","//uw//") into ctext put replace (ctext,"&","//ue//") into ctext put replace (ctext,"*","//ur//") into ctext --Do we need v1? --Pintone doesn't have v1? --put replace (ctext,"","//vq//") into ctext put replace (ctext,"+","//vw//") into ctext put replace (ctext,"{","//ve//") into ctext put replace (ctext,"}","//vr//") into ctext put replace (ctext,"_","//v//") into ctext put replace (ctext,"`","//aaq//") into ctext --Do we need aa2 and aa3? --put replace (ctext,">A","//aaw//") into ctext --put replace (ctext,"[A","//aae//") into ctext put replace (ctext,"~","//aar//") into ctext put replace (ctext,"[","//eew//") into ctext put replace (ctext,"]","//eer//") into ctext exit switch case "TimesPinyin" put replace (ctext,"Š","//aq//") into ctext put replace (ctext,"‡","//aw//") into ctext put replace (ctext,"‰","//ae//") into ctext put replace (ctext,"ˆ","//ar//") into ctext put replace (ctext,"‘","//eq//") into ctext put replace (ctext,"Ž","//ew//") into ctext put replace (ctext,"","//ee//") into ctext put replace (ctext,"","//er//") into ctext put replace (ctext,"•","//iq//") into ctext put replace (ctext,"’","//iw//") into ctext put replace (ctext,"”","//ie//") into ctext put replace (ctext,"“","//ir//") into ctext put replace (ctext,"š","//oq//") into ctext put replace (ctext,"—","//ow//") into ctext put replace (ctext,"™","//oe//") into ctext put replace (ctext,"˜","//or//") into ctext put replace (ctext,"Ÿ","//uq//") into ctext put replace (ctext,"œ","//uw//") into ctext put replace (ctext,"ž","//ue//") into ctext put replace (ctext,"","//ur//") into ctext --Do we need v1? --Pintone doesn't have v1? put replace (ctext,"†","//vq//") into ctext put replace (ctext,"ς","//vw//") into ctext put replace (ctext,"σ","//ve//") into ctext put replace (ctext,"τ","//vr//") into ctext put replace (ctext,"Ψ","//v//") into ctext put replace (ctext,"€","//aaq//") into ctext --Do we need aa2 and aa3? put replace (ctext,"η","//aaw//") into ctext put replace (ctext,"ε","//aae//") into ctext put replace (ctext,"Λ","//aar//") into ctext put replace (ctext,"ƒ","//eew//") into ctext put replace (ctext,"ι","//eer//") into ctext exit switch case "STEDT Font" put replace (ctext,"”","i") into ctext put replace (ctext,"Ρa","//aq//") into ctext put replace (ctext,"|a","//aw//") into ctext put replace (ctext,"Ηa","//ae//") into ctext put replace (ctext,"\a","//ar//") into ctext put replace (ctext,"Ρe","//eq//") into ctext put replace (ctext,"|e","//ew//") into ctext put replace (ctext,"Ηe","//ee//") into ctext put replace (ctext,"\e","//er//") into ctext put replace (ctext,"Ρi","//iq//") into ctext put replace (ctext,"|i","//iw//") into ctext put replace (ctext,"Ηi","//ie//") into ctext put replace (ctext,"\i","//ir//") into ctext put replace (ctext,"Ρo","//oq//") into ctext put replace (ctext,"|o","//ow//") into ctext put replace (ctext,"Ηo","//oe//") into ctext put replace (ctext,"\o","//or//") into ctext put replace (ctext,"Ρu","//uq//") into ctext put replace (ctext,"|u","//uw//") into ctext put replace (ctext,"Ηu","//ue//") into ctext put replace (ctext,"\u","//ur//") into ctext --Do we need v1? --Pintone doesn't have v1? put replace (ctext,"ΡΩu","//vq//") into ctext put replace (ctext,"|Ωu","//vw//") into ctext put replace (ctext,"ΗΩu","//ve//") into ctext put replace (ctext,"\Ωu","//vr//") into ctext put replace (ctext,"Ωu","//v//") into ctext put replace (ctext,"ΡA","//aaq//") into ctext --Do we need aa2 and aa3? put replace (ctext,"|A","//aaw//") into ctext put replace (ctext,"ΗA","//aae//") into ctext put replace (ctext,"\A","//aar//") into ctext put replace (ctext,"|E","//eew//") into ctext put replace (ctext,"\E","//eer//") into ctext exit switch case "New PINYIN" put replace (ctext,"A","//aq//") into ctext put replace (ctext,"Z","//aw//") into ctext put replace (ctext,"X","//ae//") into ctext put replace (ctext,"C","//ar//") into ctext put replace (ctext,"E","//eq//") into ctext put replace (ctext,"S","//ew//") into ctext put replace (ctext,"D","//ee//") into ctext put replace (ctext,"R","//er//") into ctext put replace (ctext,"I","//iq//") into ctext put replace (ctext,"J","//iw//") into ctext put replace (ctext,"N","//ie//") into ctext put replace (ctext,"M","//ir//") into ctext put replace (ctext,"O","//oq//") into ctext put replace (ctext,"K","//ow//") into ctext put replace (ctext,"L","//oe//") into ctext put replace (ctext,"P","//or//") into ctext put replace (ctext,"U","//uq//") into ctext put replace (ctext,"Y","//uw//") into ctext put replace (ctext,"T","//ue//") into ctext put replace (ctext,"F","//ur//") into ctext --Do we need v1? --Pintone doesn't have v1? put replace (ctext,"V","//vq//") into ctext put replace (ctext,"B","//vw//") into ctext put replace (ctext,"H","//ve//") into ctext put replace (ctext,"G","//vr//") into ctext put replace (ctext,"v","//v//") into ctext --put replace (ctext,"A","//aaq//") into ctext --Do we need aa2 and aa3? --put replace (ctext,"|A","//aaw//") into ctext --put replace (ctext,"ΗA","//aae//") into ctext --put replace (ctext,"\A","//aar//") into ctext --put replace (ctext,"|E","//eew//") into ctext --put replace (ctext,"\E","//eer//") into ctext exit switch case "Rich's PinYin" put replace (ctext,"‡","//aq//") into ctext put replace (ctext,"ˆ","//aw//") into ctext put replace (ctext,"‰","//ae//") into ctext put replace (ctext,"Š","//ar//") into ctext put replace (ctext,"‹","//eq//") into ctext put replace (ctext,"Œ","//ew//") into ctext put replace (ctext,"","//ee//") into ctext put replace (ctext,"Ž","//er//") into ctext put replace (ctext,"","//iq//") into ctext put replace (ctext,"‘","//iw//") into ctext put replace (ctext,"’","//ie//") into ctext put replace (ctext,"“","//ir//") into ctext put replace (ctext,"”","//oq//") into ctext put replace (ctext,"•","//ow//") into ctext put replace (ctext,"–","//oe//") into ctext put replace (ctext,"—","//or//") into ctext put replace (ctext,"˜","//uq//") into ctext put replace (ctext,"™","//uw//") into ctext put replace (ctext,"š","//ue//") into ctext put replace (ctext,"›","//ur//") into ctext --Do we need v1? --Pintone doesn't have v1? put replace (ctext,"œ","//vq//") into ctext put replace (ctext,"","//vw//") into ctext put replace (ctext,"ž","//ve//") into ctext put replace (ctext,"Ÿ","//vr//") into ctext put replace (ctext," ","//v//") into ctext put replace (ctext,"’","//aaq//") into ctext --Do we need aa2 and aa3? put replace (ctext,"£","//aaw//") into ctext put replace (ctext,"€","//aae//") into ctext put replace (ctext,"₯","//aar//") into ctext put replace (ctext,"§","//eew//") into ctext put replace (ctext,"©","//eer//") into ctext exit switch case "Syllable Final" put sylltostand(ctext) into ctext exit switch case "Addtones" put replace (ctext,"-","1") into ctext put replace (ctext,"/","2") into ctext put replace (ctext,"^","3") into ctext put replace (ctext,"`","4") into ctext put sylltostand(ctext) into ctext exit switch -- case "Gwoyeu Romatzyh" -- put gwotosyll(ctext) into ctext -- put sylltostand(ctext) into ctext -- exit switch end switch return ctext end convertToStandard --₯₯₯₯₯₯₯₯₯ convertToNewFormat --₯₯₯₯ This function calls translates the intermediate standard text to the desired new format. function convertToNewFormat readyText,cto switch cto case "Chinese Pinyin" put replace (readyText,"//aq//","`") into readyText put replace (readyText,"//aw//","1") into readyText put replace (readyText,"//ae//","2") into readyText put replace (readyText,"//ar//","3") into readyText put replace (readyText,"//eq//","4") into readyText put replace (readyText,"//ew//","5") into readyText put replace (readyText,"//ee//","6") into readyText put replace (readyText,"//er//","7") into readyText put replace (readyText,"//iq//","%") into readyText put replace (readyText,"//iw//","^") into readyText put replace (readyText,"//ie//","&") into readyText put replace (readyText,"//ir//","*") into readyText put replace (readyText,"//oq//","8") into readyText put replace (readyText,"//ow//","9") into readyText put replace (readyText,"//oe//","0") into readyText put replace (readyText,"//or//","-") into readyText put replace (readyText,"//uq//","[") into readyText put replace (readyText,"//uw//","{") into readyText put replace (readyText,"//ue//","}") into readyText put replace (readyText,"//ur//","]") into readyText --Do we need v1? put replace (readyText,"//vq//","=") into readyText put replace (readyText,"//vw//","+") into readyText put replace (readyText,"//ve//","|") into readyText put replace (readyText,"//vr//","\") into readyText put replace (readyText,"//v//","_") into readyText put replace (readyText,"//aaq//","~") into readyText --Do we need aa2 and aa3? put replace (readyText,"//aaw//","!") into readyText put replace (readyText,"//aae//","#") into readyText put replace (readyText,"//aar//","$") into readyText put replace (readyText,"//eew//","NOE2!") into readyText put replace (readyText,"//eer//","NOE4!") into readyText exit switch case "Easytone" put replace (readyText,"//aq//","a") into readyText put replace (readyText,"//ae//","[a") into readyText put replace (readyText,"//ar//","]a") into readyText put replace (readyText,"//eq//","e") into readyText put replace (readyText,"//ee//","[e") into readyText put replace (readyText,"//er//","]e") into readyText put replace (readyText,"//iq//","i") into readyText put replace (readyText,"//ie//","[i") into readyText put replace (readyText,"//ir//","]i") into readyText put replace (readyText,"//oq//","o") into readyText put replace (readyText,"//oe//","[o") into readyText put replace (readyText,"//or//","]o") into readyText put replace (readyText,"//uq//","u") into readyText put replace (readyText,"//ue//","[u") into readyText put replace (readyText,"//ur//","]u") into readyText --Do we need v1? put replace (readyText,"//vq//","<`") into readyText put replace (readyText,"//vw//",">`") into readyText put replace (readyText,"//ve//","[`") into readyText put replace (readyText,"//vr//","]`") into readyText put replace (readyText,"//v//","`") into readyText put replace (readyText,"//aaq//","A") into readyText put replace (readyText,"//aae//","[A") into readyText put replace (readyText,"//aar//","]A") into readyText --Do we need the capital Es? put replace (readyText,"//eeq//","E") into readyText put replace (readyText,"//eer//","]E") into readyText exit switch case "Pintone" put replace (readyText,"//aq//","1") into readyText put replace (readyText,"//aw//","2") into readyText put replace (readyText,"//ae//","3") into readyText put replace (readyText,"//ar//","4") into readyText put replace (readyText,"//eq//","5") into readyText put replace (readyText,"//ew//","6") into readyText put replace (readyText,"//ee//","7") into readyText put replace (readyText,"//er//","8") into readyText put replace (readyText,"//iq//","9") into readyText put replace (readyText,"//iw//","0") into readyText put replace (readyText,"//ie//","-") into readyText put replace (readyText,"//ir//","=") into readyText put replace (readyText,"//oq//","!") into readyText put replace (readyText,"//ow//","@") into readyText put replace (readyText,"//oe//","#") into readyText put replace (readyText,"//or//","$") into readyText put replace (readyText,"//uq//","%") into readyText put replace (readyText,"//uw//","^") into readyText put replace (readyText,"//ue//","&") into readyText put replace (readyText,"//ur//","*") into readyText --Do we need v1? put replace (readyText,"//vq//","NOV1!") into readyText put replace (readyText,"//vw//","+") into readyText put replace (readyText,"//ve//","{") into readyText put replace (readyText,"//vr//","}") into readyText put replace (readyText,"//v//","_") into readyText put replace (readyText,"//aaq//","`") into readyText --Do we need aa2 and aa3? put replace (readyText,"//aaw//","NOA2!") into readyText put replace (readyText,"//aae//","NOA3!") into readyText put replace (readyText,"//aar//","~") into readyText --Do we need the capital Es? put replace (readyText,"//eeq//","NOE1!") into readyText put replace (readyText,"//eew//","[") into readyText put replace (readyText,"//eer//","]") into readyText exit switch case "TimesPinyin" put replace (readyText,"//aq//","Š") into readyText put replace (readyText,"//aw//","‡") into readyText put replace (readyText,"//ae//","‰") into readyText put replace (readyText,"//ar//","ˆ") into readyText put replace (readyText,"//eq//","‘") into readyText put replace (readyText,"//ew//","Ž") into readyText put replace (readyText,"//ee//","") into readyText put replace (readyText,"//er//","") into readyText put replace (readyText,"//iq//","•") into readyText put replace (readyText,"//iw//","’") into readyText put replace (readyText,"//ie//","”") into readyText put replace (readyText,"//ir//","“") into readyText put replace (readyText,"//oq//","š") into readyText put replace (readyText,"//ow//","—") into readyText put replace (readyText,"//oe//","™") into readyText put replace (readyText,"//or//","˜") into readyText put replace (readyText,"//uq//","Ÿ") into readyText put replace (readyText,"//uw//","œ") into readyText put replace (readyText,"//ue//","ž") into readyText put replace (readyText,"//ur//","") into readyText --Do we need v1? put replace (readyText,"//vq//","†") into readyText put replace (readyText,"//vw//","ς") into readyText put replace (readyText,"//ve//","σ") into readyText put replace (readyText,"//vr//","τ") into readyText put replace (readyText,"//v//","Ψ") into readyText put replace (readyText,"//aaq//","€") into readyText --Do we need aa2 and aa3? put replace (readyText,"//aaw//","η") into readyText put replace (readyText,"//aae//","ε") into readyText put replace (readyText,"//aar//","Λ") into readyText --Do we need the capital Es? put replace (readyText,"//eeq//","θ") into readyText put replace (readyText,"//eew//","ƒ") into readyText put replace (readyText,"//eer//","ι") into readyText exit switch case "STEDT Font" put replace (readyText,"//aq//","Ρa") into readyText put replace (readyText,"//aw//","|a") into readyText put replace (readyText,"//ae//","Ηa") into readyText put replace (readyText,"//ar//","\a") into readyText put replace (readyText,"//eq//","Ρe") into readyText put replace (readyText,"//ew//","|e") into readyText put replace (readyText,"//ee//","Ηe") into readyText put replace (readyText,"//er//","\e") into readyText put replace (readyText,"//iq//","Ρi") into readyText put replace (readyText,"//iw//","|i") into readyText put replace (readyText,"//ie//","Ηi") into readyText put replace (readyText,"//ir//","\i") into readyText put replace (readyText,"//oq//","Ρo") into readyText put replace (readyText,"//ow//","|o") into readyText put replace (readyText,"//oe//","Ηo") into readyText put replace (readyText,"//or//","\o") into readyText put replace (readyText,"//uq//","Ρu") into readyText put replace (readyText,"//uw//","|u") into readyText put replace (readyText,"//ue//","Ηu") into readyText put replace (readyText,"//ur//","\u") into readyText --Do we need v1? put replace (readyText,"//vq//","ΡΩu") into readyText put replace (readyText,"//vw//","|Ωu") into readyText put replace (readyText,"//ve//","ΗΩu") into readyText put replace (readyText,"//vr//","\Ωu") into readyText put replace (readyText,"//v//","Ωu") into readyText put replace (readyText,"//aaq//","ΡA") into readyText --Do we need aa2 and aa3? put replace (readyText,"//aaw//","|A") into readyText put replace (readyText,"//aae//","ΗA") into readyText put replace (readyText,"//aar//","\A") into readyText --Do we need the capital Es? put replace (readyText,"//eeq//","ΡE") into readyText put replace (readyText,"//eew//","|E") into readyText put replace (readyText,"//eer//","\E") into readyText exit switch case "New PINYIN" put replace (readyText,"//aq//","A") into readyText put replace (readyText,"//aw//","Z") into readyText put replace (readyText,"//ae//","X") into readyText put replace (readyText,"//ar//","C") into readyText put replace (readyText,"//eq//","E") into readyText put replace (readyText,"//ew//","S") into readyText put replace (readyText,"//ee//","D") into readyText put replace (readyText,"//er//","R") into readyText put replace (readyText,"//iq//","I") into readyText put replace (readyText,"//iw//","J") into readyText put replace (readyText,"//ie//","N") into readyText put replace (readyText,"//ir//","M") into readyText put replace (readyText,"//oq//","O") into readyText put replace (readyText,"//ow//","K") into readyText put replace (readyText,"//oe//","L") into readyText put replace (readyText,"//or//","P") into readyText put replace (readyText,"//uq//","U") into readyText put replace (readyText,"//uw//","Y") into readyText put replace (readyText,"//ue//","T") into readyText put replace (readyText,"//ur//","F") into readyText --Do we need v1? put replace (readyText,"//vq//","V") into readyText put replace (readyText,"//vw//","B") into readyText put replace (readyText,"//ve//","H") into readyText put replace (readyText,"//vr//","G") into readyText put replace (readyText,"//v//","v") into readyText put replace (readyText,"//aaq//","NOCAPS!") into readyText --Do we need aa2 and aa3? put replace (readyText,"//aaw//","NOCAPS!") into readyText put replace (readyText,"//aae//","NOCAPS!") into readyText put replace (readyText,"//aar//","NOCAPS!") into readyText --Do we need the capital Es? put replace (readyText,"//eeq//","NOCAPS!") into readyText put replace (readyText,"//eew//","NOCAPS!") into readyText put replace (readyText,"//eer//","NOCAPS!") into readyText exit switch case "Rich's PinYin" put replace (readyText,"//aq//","‡") into readyText put replace (readyText,"//aw//","ˆ") into readyText put replace (readyText,"//ae//","‰") into readyText put replace (readyText,"//ar//","Š") into readyText put replace (readyText,"//eq//","‹") into readyText put replace (readyText,"//ew//","Œ") into readyText put replace (readyText,"//ee//","") into readyText put replace (readyText,"//er//","Ž") into readyText put replace (readyText,"//iq//","") into readyText put replace (readyText,"//iw//","‘") into readyText put replace (readyText,"//ie//","’") into readyText put replace (readyText,"//ir//","“") into readyText put replace (readyText,"//oq//","”") into readyText put replace (readyText,"//ow//","•") into readyText put replace (readyText,"//oe//","–") into readyText put replace (readyText,"//or//","—") into readyText put replace (readyText,"//uq//","˜") into readyText put replace (readyText,"//uw//","™") into readyText put replace (readyText,"//ue//","š") into readyText put replace (readyText,"//ur//","›") into readyText --Do we need v1? put replace (readyText,"//vq//","œ") into readyText put replace (readyText,"//vw//","") into readyText put replace (readyText,"//ve//","ž") into readyText put replace (readyText,"//vr//","Ÿ") into readyText put replace (readyText,"//v//"," ") into readyText put replace (readyText,"//aaq//","’") into readyText --Do we need aa2 and aa3? put replace (readyText,"//aaw//","£") into readyText put replace (readyText,"//aae//","€") into readyText put replace (readyText,"//aar//","₯") into readyText --Do we need the capital Es? put replace (readyText,"//eeq//","¦") into readyText put replace (readyText,"//eew//","§") into readyText put replace (readyText,"//eer//","©") into readyText exit switch case "Addtones" put standtosyll(readyText) into readyText put replace (readyText,"1","-") into readyText put replace (readyText,"2","/") into readyText put replace (readyText,"3","^") into readyText put replace (readyText,"4","`") into readyText exit switch case "Syllable Final" put standtosyll(readyText) into readyText exit switch -- case "Gwoyeu Romatzyh" -- put standtosyll(readyText) into readyText -- put sylltogwo(readyText) into readyText -- exit switch end switch return readyText end convertToNewFormat --function sylltogwo zatext -- return zatext --end sylltogwo -- -- -- --function gwotosyll zatext -- -- return zatext --end gwotosyll -- -- -- --zhi jy jyr jyy jyh --chi chy chyr chyy chyh --shi shy shyr shyy shyh --ri ry ryr ryy ryh --zi tzy tzyr tzyy tzyh --ci tsy tsyr tsyy tsyh --si sy syr syy syh -- --ju jiu jyu jeu jiuh --qu chiu chyu cheu chiuh --xu shiu shyu sheu shiuh -- --yi i yi yii yih --ya ia ya yea yah --yo io - - - --ye ie ye yee yeh --yai iai yai - - --yao iau yau yeau yaw --you iou you yeou yow --yan ian yan yean yann --yin in yn yiin yinn --yang iang yang yeang yanq --ying ing yng yiing yinq --yong iong yong yeong yonq -- --wu u wu wuu wuh --wa ua wa woa wah --wo uo wo woo woh --wai uai wai woai way --wei uei wei woei wey --wan uan wan woan wann --wen uen wen woen wenn --wang uang wang woang wanq --weng ueng - woeng wenq -- --yu iu yu yeu yuh --yue iue yue yeue yueh --yuan iuan yuan yeuan yuann --yun iun yun yeun yunn -- --er el erl eel ell --