ÿWPCQûÿ(8Search and replace fontsüchkrc~ üturn off revcodes if on~ K€f üedit base font menu~ üMove to the desired search font. Press ENTER to Select.~ ü üsfont~5üentry~~ üassign search font~ üMove to the desired replacement font. Press ENTER to Select.~ ü ürfont~5üentry~~ üasign replacement font~ &€ üexit to normal editing screen~ üselect~ üChoose font change option~ üselect~€Edit €1€ €S€tyle sheet fonts; €2€ €D€ocument fonts; €3€ €B€oth.~ ü4üselect~~ 1~style~S~style~s~style~ 2~doc~D~doc~d~doc~ 3~both~B~both~b~both~~ üselect~ ükeeps asking until a correct key is pressed~ üstyle~ üloop to change fonts in style sheet~ ü ?€ücount~5ülist~~ ücounts # styles in style sht~ €€€€ üstart at top~ üloop~1~4ücount~~1~ üloop until each style edited~ 44 ünext~ ügo to search and change styles~ &€&€€ üexit out and edit next style~ ü &€ ürestrc~ ürestore reveal codes if it was on~ "ü üexit style sheet~ üdoc~ üloop to change fonts in style sheet~ üchkrc~ üturn off revcodes if on~ ünext~ ügo to search and change styles~ ürestrc~ ürestore reveal codes if it was on~ "ü üboth~ üloop to edit styles in style sheet and document~ üchkrc~ üturn off revcodes if on~ üstyle~ üchange styles in style sheet~ üdoc~ üchange styles in document~ ürestrc~ ürestore reveal codes if it was on~ ü üend macro~ ünext~ ü ü"ü~ üafter last code checked, end macro~ !€K€f!€ üsearch for any font code~ K€f üenter base font menu~ ü"5üentry~"="4üsfont~"~ üif fnt found is srch fnt~ =4ürfont~ € € üselect replacement font~ üback to normal edit scrn~ € ümove past inserted font~ P€ üdelete original font~ ü)ü&1024~yü € ümove past inserted font~ ü € ücancel font menu~ ü ünext~ ürepeat loop~ üchkrc~ ürcstate~)ü&512~ ü4ürcstate~~ :€ ü "ü ü <<restrc>> ürestore the state of reveal codes~ ürestrc~ ü4ürcstate~~ :€ ü "ü