Incorporating PR#2280 to handle recent font issues. Capturing work done before 2025-10-12 which has not previously been captured.

docs/porter-irm/MSCOPEDEMO

@@ -0,0 +1,66 @@
+(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP")
+
(FILECREATED "20-Feb-92 22:24:01" |{DSK}<usr>local>users>welch>primer>MSCOPEDEMO.;1|
 2192   
+
+      |changes| |to:|  (VARS MSCOPEDEMOCOMS)
+                       (FNS PTOI |PrintError| |ParseList| |ConcatList| |PrintWarning| |ReadBeginEnd|
+                            |GetMyProp| |GetBeginTagString| |ProcessEND|))
+
+
+; Copyright (c) 1992 by Venue.  All rights reserved.
+
+(PRETTYCOMPRINT MSCOPEDEMOCOMS)
+
+(RPAQQ MSCOPEDEMOCOMS
 ((FNS |ConcatList| |GetBeginTagString| |GetMyProp| PTOI |ParseList| 
+                                |PrintError| |PrintWarning| |ProcessEND| |ReadBeginEnd|)))
+(DEFINEQ
+
+(|ConcatList|

+  (LAMBDA NIL
                                           (* \; "Edited 20-Feb-92 22:18 by welch")

+    (|ConcatList|
)))
+
+(|GetBeginTagString|

+  (LAMBDA NIL
                                           (* \; "Edited 20-Feb-92 22:07 by welch")

+    (|ConcatListWithSpaces|)
+    (|GetMyProp|
)))
+
+(|GetMyProp|

+  (LAMBDA (|PropName|)
                                  (* \; "Edited 20-Feb-92 22:14 by welch")

+    (|GetAncestorProp| |PropName| (CAR |TOIstack|))))
+
+(PTOI

+  (LAMBDA NIL
                                           (* \; "Edited 20-Feb-92 22:19 by welch")

+    (|PrintWarning|
)))
+
+(|ParseList|

+  (LAMBDA NIL
                                           (* \; "Edited 20-Feb-92 22:19 by welch")

+    (|GetCTType|)))
+
+(|PrintError|

+  (LAMBDA NIL
                                           (* \; "Edited 20-Feb-92 22:20 by welch")

+    (PTOI
)))
+
+(|PrintWarning|

+  (LAMBDA NIL))
+
+(|ProcessEND|

+  (LAMBDA (ARGS)
                                        (* \; "Edited 20-Feb-92 22:20 by welch")

+    (|GetBeginTagString|
)
+    (|GetMyProp|
)
+    (|ConcatListWithSpaces|)
+    (|ReadBeginEnd|
)
+    (|PrintWarning|
)))
+
+(|ReadBeginEnd|

+  (LAMBDA NIL
                                           (* \; "Edited 20-Feb-92 22:16 by welch")

+    (|ConcatList|
)
+    (|ParseList|
)
+    (|GetCTType|)
+    (|PrintError|
)
+    (|apply|)))
+)
+(PUTPROPS MSCOPEDEMO COPYRIGHT ("Venue" 1992))
+(DECLARE\: DONTCOPY
+  (FILEMAP (NIL (653 2122 (|ConcatList| 663 . 810) (|GetBeginTagString| 812 . 994) (|GetMyProp| 996 . 
+1171) (PTOI 1173 . 1314) (|ParseList| 1316 . 1457) (|PrintError| 1459 . 1598) (|PrintWarning| 1600 . 
+1635) (|ProcessEND| 1637 . 1892) (|ReadBeginEnd| 1894 . 2120)))))
+STOP