@Subhead@ InsertCascadeMenuItem(1, "&Edit", "&Insert", 1, "&Special Characters..." , "{rmac}!charmap", "Insert a character from the Character Map into the current document.")
@Subhead@ call charmap()
@Subhead@else
@Subhead@if winver = 3
@Outline3@if Decide("This Windows 3.1 application may not be present; add the menu item anyway?", "Character Map") =0
@Outline3@ exit function
@Outline3@endif
@Subhead@endif
@Subhead@ StatusBarMsg("Installing a new item to the Edit / Insert menu")
@Subhead@ InsertCascadeMenuItem(1, "&Edit", "&Insert", 1, "&Special Characters..." , "{rmac}!charmap", "Insert a character from the Character Map into the current document.")
@Subhead@ StatusBarMsg("")
@Subhead@endif
@Subhead@end function
@Title@function charmap()
@Subhead@rmac=GetRunningMacroFile$()
@Subhead@ret = chr$(13)
@Subhead@hWnd= GetFocus()
@Subhead@clipboardA=ClipboardRead(1)
@Subhead@app = "Character Map"
@Subhead@if not appisrunning(app)
@Subhead@ result = exec("charmap.exe", "")
@Subhead@ if result <<= 32
@Outline3@winver=GetVersion()
@Outline3@if winver = 3
@Outline3@ Message("This Windows 3.1 application could not be loaded.", "Character Map")
@Outline3@ exit function
@Outline3@endif
@Subhead@ Message("Couldn't start Character Map.", "Character Map")
@Subhead@ exit function
@Subhead@ endif
@Subhead@else
@Subhead@ activateapp(app)
@Subhead@ apprestore(app)
@Subhead@endif
@Subhead@while GetFocus() != hWnd
@Subhead@ pause (001)
@Subhead@wend
@Subhead@if ClipboardRead(1) != ClipboardA
@Subhead@<:> result=IsOKToRun(paste)
@Subhead@ if result !=1
@Subhead@ exit function
@Subhead@ endif
@Subhead@ Paste()
@Subhead@ FontRevert()
@Subhead@else
@Subhead@ if decide("You didn't copy anything to the clipboard; Try again?")=1
