-- Typefounder 3.0/11.1 (June 23, 1985)
-- Xerox Corp. Webster Research Center
-- FOR INTERNAL USE ONLY

-- Session started  9-Oct-85 13:48:24 PDT
SetSelection["84, 139"] 
InvokeMCR[Typefounder1.logSW, "Typefounder", "Font"]
 
SetSelection["TERMINAL10-C0.DISPLAYFONT"] 
Font1.cmdSW.Load
 
SetSelection["226, 183"] 
InvokeMCR[Font1.formatSW, "Typefounder", "Character"]
 
SetSelection["¤"]  --244B 
Character1.cmdSW.Load
 
SetSelection["$"]  --44B 
Character1.cmdSW.Load
 
SetSelection["698, 498"] 
InvokeMCR[Character1.picSW, "Typefounder", "Little Image"]
 
SetSelection["#"]  --43B 
Character1.cmdSW.Load
 
InvokeMCR[Character1.picSW, "Typefounder", "Destroy"] 
SetSelection["189, 221"] 
InvokeMCR[Font1.formatSW, "Typefounder", "Merger"]
 
Font1.cmdSW.Edit
 
Merger1.rangeSW.First1 ¬ " (177B)" 
Merger1.rangeSW.Start1 ¬ "¤ (244B)" 
Merger1.rangeSW.First2 ¬ "¤ (244B)" 
Merger1.rangeSW.Start2 ¬ "$ (44B)" 
Merger1.rangeSW.First3 ¬ "$ (44B)" 
Merger1.rangeSW.Start3 ¬ " (177B)" 
Merger1.cmdSW.Merge
 
Merger1.cmdSW.Clear
 
Merger1.rangeSW.First1 ¬ " (177B)" 
Merger1.rangeSW.Start1 ¬ "" 
Merger1.rangeSW.First2 ¬ "" 
Merger1.rangeSW.Start2 ¬ "" 
Merger1.rangeSW.First3 ¬ "" 
Merger1.rangeSW.Start3 ¬ "" 
Merger1.cmdSW.Delete
 
InvokeMCR[Merger1.statusSW, "Typefounder", "Destroy"] 
SetSelection["226, 202"] 
InvokeMCR[Font1.formatSW, "Typefounder", "Character"]
 
SetSelection["$"]  --44B 
Character1.cmdSW.Load
 
SetSelection["¤"]  --244B 
Character1.cmdSW.Load
 
InvokeMCR[Character1.picSW, "Typefounder", "Destroy"] 
Font1.cmdSW.Reset
 
SetSelection["163, 288"] 
InvokeMCR[Font1.formatSW, "Typefounder", "Lister"]
 
InvokeMCR[Lister1.listSW, "Typefounder", "Destroy"] 
SetSelection["289, 94"] 
InvokeMCR[Typefounder1.logSW, "Typefounder", "Font Finder"]
 
InvokeMCR[FontFinder1.msgSW, "Typefounder", "Destroy"] 
SetSelection["276, 122"] 
InvokeMCR[Typefounder1.logSW, "Typefounder", "Dictionary"]
 
InvokeMCR[Dictionary1.listSW, "Typefounder", "Destroy"]