ÿWPCLûÿ(8Smart double quotes ü SMQUODBL.WPM, based on SMQUOT.WPM by Elden C. Nelson, from the Compuserve WPDOS4/5 forum. Slightly modified by Edward Mendelson; corrected by Niek Campagne. Map this macro to the double quotation mark key in WPDOS 5.1. ~ üCL~0~ ücursor movement variable~ üQFG~~ üwhen 1 insert left double quote~ ütop~ ü "5ü9~"=""| übegin of document~ "5ü9~"=" "| "5ü9~"="("| "5ü9~"="["| "5ü9~"="{"| "5ü9~"="/"| "5ü9~"="`"| üopen single quote added by EM~ "5ü9~"=""| üclose double quote(4,31)~ "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 double (left) quote (4,32)~ ü  üClose double (right) quote (4,31)~ ü