Rmk50: TERMINAL fonts plus fixed masterscope conflicts (#806)

* EDITFONT:  CHARSET in  interface

* IDLEHAX, LIFE, TMAX-ENDNOTE:  Clean up conflicts in making full masterscope DB

* FONT:  Add charset coercion for TERMINAL

* TERMINAL fonts:  Remove bogus character set files

so that better coercions can take place

lispusers/IDLEHAX

@@ -1,11 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED " 9-Feb-2022 13:53:05" {DSK}<home>larry>medley>lispusers>IDLEHAX.;3
 26245  
+
(FILECREATED "26-Jun-2022 18:21:17" 
+{DSK}<Users>kaplan>Local>medley3.5>working-medley>lispusers>IDLEHAX.;4
 26796  
 
-      :CHANGES-TO (FNS IDLE-DRAIN)
-                  (VARS IDLEHAXCOMS)
+      :CHANGES-TO (FNS KAL.ADVANCE)
 
-      :PREVIOUS-DATE "15-Jan-2022 15:31:21" {DSK}<home>larry>medley>lispusers>IDLEHAX.;1)
+      :PREVIOUS-DATE " 9-Feb-2022 13:53:05" 
+{DSK}<Users>kaplan>Local>medley3.5>working-medley>lispusers>IDLEHAX.;3)
 
 
 (* ; "
@@ -194,8 +195,17 @@ Copyright (c) 1985-1988, 1991, 2022 by Xerox Corporation.
 )
 
 (KAL.ADVANCE

-(LAMBDA (STATE) (* lmm "30-Jul-85 20:16") (freplace A of STATE with (KAL.ORAND (ffetch A of STATE) (ffetch B of STATE))) (freplace PERIODCOUNT of STATE with (SUB1 (ffetch PERIODCOUNT of STATE))) (COND ((EQ (ffetch PERIODCOUNT of STATE) 0) (freplace B of STATE with (KAL.ORAND (ffetch B of STATE) (ffetch C of STATE))) (freplace PERIODCOUNT of STATE with (ffetch PERIOD of STATE)))))
-)
+  [LAMBDA (STATE)
                                            (* ; "Edited 26-Jun-2022 18:20 by rmk")

+                                                             (* lmm "30-Jul-85 20:16")

+    (freplace
 (KALSTATE A) of
 STATE with
 (KAL.ORAND
 (ffetch
 (KALSTATE A) of
 STATE)
+                                                (ffetch
 (KALSTATE B) of
 STATE)))
+    (freplace
 (KALSTATE PERIODCOUNT) of
 STATE with
 (SUB1 (ffetch
 (KALSTATE PERIODCOUNT) of
 STATE)))
+    (COND
+       ((EQ (ffetch
 (KALSTATE PERIODCOUNT) of
 STATE)
+            0)
+        (freplace
 (KALSTATE B) of
 STATE with
 (KAL.ORAND
 (ffetch
 (KALSTATE B) of
 STATE)
+                                                    (ffetch
 (KALSTATE C) of
 STATE)))
+        (freplace
 (KALSTATE PERIODCOUNT) of
 STATE with
 (ffetch
 (KALSTATE PERIOD) of
 STATE])
 
 (KAL.SPOTS

 (LAMBDA (X Y WINDOWSIDE W BLACK XOFFSET) (* lmm " 3-Aug-85 21:59") (PROG ((X0 (LRSH X 7)) (Y0 (LRSH Y 7)) X1 Y1 C) (COND ((ILESSP X0 Y0) (SETQ X1 (IDIFFERENCE (SUB1 WINDOWSIDE) X0)) (SETQ Y1 (IDIFFERENCE (SUB1 WINDOWSIDE) Y0)) (SETQ C (LOGAND X 1)) (KAL.BMS W X0 Y0 X1 Y1 (if BLACK then (DIFFERENCE 1 C) else C) XOFFSET)))))
@@ -470,12 +480,12 @@ Copyright (c) 1985-1988, 1991, 2022 by Xerox Corporation.
 (ADDTOVAR IDLE.FUNCTIONS
 ("Swap" 'IDLE-SWAP))
 (PUTPROPS IDLEHAX COPYRIGHT ("Xerox Corporation" 1985 1986 1987 1988 1991 2022))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (3794 7834 (POLYGONSDEMO 3804 . 3974) (POLYGONS 3976 . 4340) (CONNECTPOLYS 4342 . 6740) 
-(DRAWPOLY1 6742 . 7379) (RANDOMPT 7381 . 7832)) (8471 11453 (KALDEMO 8481 . 9892) (KAL.ADVANCE 9894 . 
-10295) (KAL.SPOTS 10297 . 10638) (KAL.BMS 10640 . 11127) (KAL.ORAND 11129 . 11451)) (11490 12976 (
-BUBBLES 11500 . 12606) (BUBBLE.CREATE 12608 . 12974)) (13003 13988 (IDLE-WINDOWS 13013 . 13986)) (
-14023 16294 (LINES 14033 . 15092) (LINES1 15094 . 15504) (LINES2 15506 . 15817) (LINES3 15819 . 16292)
-) (16354 17567 (WALKINGSPOKE 16364 . 17145) (WARP 17147 . 17565)) (17592 21875 (IDLE-MELT 17602 . 
-20118) (IDLE-SLIDE 20120 . 21873)) (22046 22292 (DEMOWINDOW 22056 . 22290)) (22704 24577 (IDLE-DRAIN 
-22714 . 24575)) (24609 26090 (IDLE-SWAP 24619 . 26088)))))
+  (FILEMAP (NIL (3812 7852 (POLYGONSDEMO 3822 . 3992) (POLYGONS 3994 . 4358) (CONNECTPOLYS 4360 . 6758) 
+(DRAWPOLY1 6760 . 7397) (RANDOMPT 7399 . 7850)) (8489 12004 (KALDEMO 8499 . 9910) (KAL.ADVANCE 9912 . 
+10846) (KAL.SPOTS 10848 . 11189) (KAL.BMS 11191 . 11678) (KAL.ORAND 11680 . 12002)) (12041 13527 (
+BUBBLES 12051 . 13157) (BUBBLE.CREATE 13159 . 13525)) (13554 14539 (IDLE-WINDOWS 13564 . 14537)) (
+14574 16845 (LINES 14584 . 15643) (LINES1 15645 . 16055) (LINES2 16057 . 16368) (LINES3 16370 . 16843)
+) (16905 18118 (WALKINGSPOKE 16915 . 17696) (WARP 17698 . 18116)) (18143 22426 (IDLE-MELT 18153 . 
+20669) (IDLE-SLIDE 20671 . 22424)) (22597 22843 (DEMOWINDOW 22607 . 22841)) (23255 25128 (IDLE-DRAIN 
+23265 . 25126)) (25160 26641 (IDLE-SWAP 25170 . 26639)))))
 STOP