ÿWPCLûÿ(8Smart single quotes ü German smart single quotation marks SQDEUSNG.WPM, based on SMQUOT.WPM by Elden C. Nelson, from the Compuserve WPDOS4/5 forum. Adapted for single quotation marks by Edward Mendelson. Map this macro to the single quotation mark key in WPDOS 5.1. ~ üCL~0~ ücursor movement variable~ üQFG~~ üwhen 1 insert left single quote~ ütop~ ü "5ü9~"="?"~ üfollow open double with open single (EM)~ üQFG~1~ üplace~ ü ü "5ü9~"=""| "5ü9~"=" "| "5ü9~"="("| "5ü9~"="["| "5ü9~"="{"| "5ü9~"="/"| "5ü9~"=" €"| üHPg~ "5ü9~"=" €"| üHRt~ "5ü9~"=" €"| üSPg~ "5ü9~"=" €"~ üSRt~ üQFG~1~ üplace~ ü üTest for close double quote removed here, so that single quote after closed double quote will be a right single quote~ ü 5ü9~=49408| üTAB~ 5ü9~=49632| üCenter~ 5ü9~=49648| üCenter w/dot leader~ 5ü9~=37632| üISRt~ 5ü9~=44800| üCol Off~ 5ü9~=49490| üDec Tab w/ dot leader~ 5ü9~=49474| üDec Tab~ 5ü9~=49496| üRGT TAB w/ dot leader~ 5ü9~=49498| üRgt Tab w/ dot leader~ 5ü9~=49520~ üFlsh Rgt w/ dot leader~ üQFG~1~ üplace~ ü ü 5ü9~=49624| üCNTR TAB w/ dot leader~ 5ü9~=49626| üCntr Tab w/ dot leader~ 5ü9~=49410| üTab~ 5ü9~=49424| üTAB w/ dot leader~ 5ü9~=49426| üTab w/dot leader~ 5ü9~=49480| üRGT TAB~ 5ü9~=49482| üRgt Tab~ "5ü9~"=""~ üQFG~1~ üplace~ ü ü 5ü9~=49504| üFlsh Rgt~ 5ü9~=49536| üMar Rel~ 5ü9~=49608| üCNTR TAB~ 5ü9~=49610| üCntr Tab~ 5ü9~=49664| ü->Indent~ 5ü9~=49665| ü->Indent<-~ 5ü9~=35840| üHRt-SPg~ 5ü9~=39168| üDorm HRt~ 5ü9~=40960~ üHard Space~ üQFG~1~ üplace~ ü ü"5ü9~"="?"~ üleft double open quote~ üplace~ ü ü5ü9~>256~ ü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 (4,62)~ ü  üClose single quote (4,29)~ ü