ÿWPCLûÿ(8Smart single quotes ü SMQUOSNG.WPM, based on SMQUOT.WPM by Elden C. Nelson, from the Compuserve WPDOS4/5 forum. Adapted for single quotation marks by Edward Mendelson. Corrected by Niek Campagne. Map this macro to the apostrophe key in WPDOS 5.1. ~ üCL~0~ ücursor movement variable~ üQFG~~ üwhen 1 insert left single quote~ ütop~ üTest for close double quote removed here, so that single quote after closed double quote will be a right single quote~ ü "5ü9~"=""| übegin of document~ "5ü9~"=" "| "5ü9~"="("| "5ü9~"="["| "5ü9~"="{"| "5ü9~"="/"| "5ü9~"=" "| üfollow open double with open single (EM)~ "5ü9~"="!"| üen dash (4,33) added by EM~ "5ü9~"="""| üem dash (4,34) added by EM~ "5ü9~"=" €"| üHRt~ "5ü9~"=" €"| üSPg~ "5ü9~"=" €"| üHPg~ "5ü9~"=" €"| üSRt~ "5ü9~"="35840"| üHRt-SPg~ "5ü9~"="39168"| üDorm HRt~ "5ü9~"="40960"| üHard Space~ "5ü9~"="44800"~ üCol Off~ üQFG~1~ üplace~ ü ü (5ü9~&65280)=49408| üAll kinds of Tabs~ (5ü9~&65280)=49664~ üand Indents~ üQFG~1~ üplace~ ü ü5ü9~&32768~ üis left character a code?~ üCL~4üCL~+1~ üif so, increment CL variable~ € üand go left once more~ ütop~ üand test again~ ü üplace~ üpos~1~4üCL~~1~ ümove right once for each CL variable~ € ü /üQFG~ ` üOpen single quote~ ü ' üClose single quote~ ü