Update to truckin code for debugging

system/LOADLOOPS

@@ -1,20 +1,18 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED " 1-Aug-2022 09:28:41" {DSK}<home>larry>git-loops>system>LOADLOOPS.;11
 20004  
+
(FILECREATED "16-Jul-2024 20:44:01" {DSK}<Users>larry>il>LOOPS>SYSTEM>LOADLOOPS.;2
 19901  
 
-      :CHANGES-TO (VARS LOADLOOPSCOMS)
+      :EDIT-BY "lmm"
 
-      :PREVIOUS-DATE " 9-Jul-2022 20:50:48" {DSK}<home>larry>git-loops>system>LOADLOOPS.;10)
+      :CHANGES-TO (VARS LOADLOOPSCOMS)
 
+      :PREVIOUS-DATE " 1-Aug-2022 09:28:41" {DSK}<Users>larry>il>LOOPS>SYSTEM>LOADLOOPS.;1)
 
-(* ; "
-Copyright (c) 1983-1988, 1990-1991, 1993, 2022 by Venue & Xerox Corporation.
-")
 
 (PRETTYCOMPRINT LOADLOOPSCOMS)
 
 (RPAQQ LOADLOOPSCOMS

-       [
+       (
 
 (* ;;; "Loops loadup stuff")

 
@@ -110,7 +108,8 @@ Copyright (c) 1983-1988, 1990-1991, 1993, 2022 by Venue & Xerox Corporation.
         (VARS (DIRECTORIES (UNION (LIST LOOPSDIRECTORY LOOPSLIBRARYDIRECTORY LOOPSUSERSDIRECTORY 
                                         LOOPSUSERSRULESDIRECTORY)
                                   DIRECTORIES)))
-        (P (MOVD? 'NILL 'UpdateClassBrowsers])
+        (P (MOVD? 'NILL 'UpdateClassBrowsers))
+        (TEMPLATES CL:COMPILER-LET)))
 
 
 
@@ -430,10 +429,10 @@ Copyright (c) 1983-1988, 1990-1991, 1993, 2022 by Venue & Xerox Corporation.
                          DIRECTORIES))
 
 (MOVD? 'NILL 'UpdateClassBrowsers)
-(PUTPROPS LOADLOOPS COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1985 1986 1987 1988 1990 1991 
-1993 2022))
+
+(SETTEMPLATE 'CL:COMPILER-LET 'MACRO)
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (6536 10947 (LOADLOOPS 6546 . 9760) (LoadLispUsers 9762 . 10168) (NOCACHEMACRO 10170 . 
-10241) (UnMarkChanges 10243 . 10945)) (11728 14953 (PromptEval 11738 . 13434) (PromptRead 13436 . 
-14951)) (15559 17323 (NiceMenu 15569 . 16124) (ColumnateMenuItems 16126 . 17321)))))
+  (FILEMAP (NIL (6506 10917 (LOADLOOPS 6516 . 9730) (LoadLispUsers 9732 . 10138) (NOCACHEMACRO 10140 . 
+10211) (UnMarkChanges 10213 . 10915)) (11698 14923 (PromptEval 11708 . 13404) (PromptRead 13406 . 
+14921)) (15529 17293 (NiceMenu 15539 . 16094) (ColumnateMenuItems 16096 . 17291)))))
 STOP

system/LOOPSPRINT

@@ -1,26 +1,14 @@
-(DEFINE-FILE-INFO PACKAGE "IL" READTABLE "INTERLISP" BASE 10)
-
(FILECREATED "28-Jun-93 22:43:05" {DSK}<python>RELEASE>loops>2.0>src>LOOPSPRINT.;4
 18868  
-
-      changes to%:  (ALISTS (PRETTYPRINTMACROS @)
-                           (PRETTYPRINTMACROS _@)
-                           (PRETTYPRINTMACROS _)
-                           (PRETTYPRINTMACROS SEND)
-                           (PRETTYPRINTMACROS _IV)
-                           (PRETTYPRINTMACROS _Proto)
-                           (PRETTYPRINTMACROS _New)
-                           (PRETTYPRINTMACROS _Super)
-                           (PRETTYPRINTMACROS _!)
-                           (PRETTYPRINTMACROS _Process)
-                           (PRETTYPRINTMACROS _Process!)
-                           (PRETTYPRINTMACROS \LOOPS-PRINT-EVAL-MARKER))
-                    (FNS PrintLoopsEvalAtLoad)
-                    (VARS LOOPSPRINTCOMS)
-
-      previous date%: "14-Jun-93 23:50:45" {DSK}<python>RELEASE>loops>2.0>src>LOOPSPRINT.;3)
+(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
+
+
(FILECREATED "19-Aug-2022 14:47:13" {DSK}<home>larry>loops>system>LOOPSPRINT.;2
 18068  
+
+      :CHANGES-TO (VARS LOOPSPRINTCOMS)
+
+      :PREVIOUS-DATE "28-Jun-93 22:43:05" {DSK}<home>larry>loops>system>LOOPSPRINT.;1)
 
 
 (* ; "
-Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1993 by Venue & Xerox Corporation.  All rights reserved.
+Copyright (c) 1983-1988, 1990-1991, 1993 by Venue & Xerox Corporation.
 ")
 
 (PRETTYCOMPRINT LOOPSPRINTCOMS)
@@ -45,6 +33,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1993 by Venue & Xe
 
         (FNS PrintClass PrintInstance)
         (DECLARE%: EVAL@COMPILE DONTCOPY (EXPORT (FUNCTIONS TTYStream?))
+               DONTEVAL@LOAD
                (FILES (LOADCOMP)
                       LOOPSDATATYPES))
         (P (DEFPRINT 'class 'PrintClass)
@@ -267,7 +256,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1993 by Venue & Xe
 
 (* "END EXPORTED DEFINITIONS")
 
-
+DONTEVAL@LOAD 
 
 (FILESLOAD (LOADCOMP)
        LOOPSDATATYPES)
@@ -300,12 +289,12 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1993 by Venue & Xe
           `(RESETLST
                [if
 (WINDOWP ,stream)
                    then
 [RESETSAVE NIL (LIST (FUNCTION WINDOWPROP)
-                                                 ,stream
-                                                 'PROCESS
-                                                 (WINDOWPROP ,stream 'PROCESS]
-                         (RESETSAVE (TTYDISPLAYSTREAM ,stream))
-                         (if
 (NOT (TTY.PROCESSP))
-                             then
 (RESETSAVE (TTY.PROCESS (THIS.PROCESS]
+                                             ,stream
+                                             'PROCESS
+                                             (WINDOWPROP ,stream 'PROCESS]
+                        (RESETSAVE (TTYDISPLAYSTREAM ,stream))
+                        (if
 (NOT (TTY.PROCESSP))
+                            then
 (RESETSAVE (TTY.PROCESS (THIS.PROCESS]
                ,@forms)])
 (DECLARE%: DOEVAL@COMPILE DONTCOPY
 
@@ -449,17 +438,16 @@ Type OK to ignore and go on."))))))))
 (ADDTOVAR PRETTYPRINTYPEMACROS
 (instance . PPObj))
 
 (ADDTOVAR PRETTYPRINTMACROS
 (@  . PrettyPrintLoopsForm)
-                                (_@  . PrettyPrintLoopsForm)
-                                (_  . PrettyPrintLoopsForm)
-                                (SEND  . PrettyPrintLoopsForm)
-                                (_IV  . PrettyPrintLoopsForm)
-                                (_Proto  . PrettyPrintLoopsForm)
-                                (_New  . PrettyPrintLoopsForm)
-                                (_Super  . PrettyPrintLoopsForm)
-                                (_!  . PrettyPrintLoopsForm)
-                                (_Process  . PrettyPrintLoopsForm)
-                                (_Process!  . PrettyPrintLoopsForm)
-                                #,NIL)
+                            (_@  . PrettyPrintLoopsForm)
+                            (_  . PrettyPrintLoopsForm)
+                            (SEND  . PrettyPrintLoopsForm)
+                            (_IV  . PrettyPrintLoopsForm)
+                            (_Proto  . PrettyPrintLoopsForm)
+                            (_New  . PrettyPrintLoopsForm)
+                            (_Super  . PrettyPrintLoopsForm)
+                            (_!  . PrettyPrintLoopsForm)
+                            (_Process  . PrettyPrintLoopsForm)
+                            (_Process!  . PrettyPrintLoopsForm))
 
 
 
@@ -497,7 +485,7 @@ Type OK to ignore and go on."))))))))
 )
 
 (ADDTOVAR HPRINTMACROS
 (class . HPRINTCLASS)
-                           (instance . HPRINTINSTANCE))
+                       (instance . HPRINTINSTANCE))
 (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS 
 
 (ADDTOVAR NLAMA
 $&)
@@ -509,11 +497,12 @@ Type OK to ignore and go on."))))))))
 (PUTPROPS LOOPSPRINT COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1985 1986 1987 1988 1990 1991 
 1993))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (4094 7234 (HashMacro 4104 . 5310) (PPDefault 5312 . 5556) (SETALLSYNTAX 5558 . 6098) (
-$& 6100 . 6677) ($ 6679 . 6844) ($C 6846 . 7232)) (7427 10319 (PrintClass 7437 . 8157) (PrintInstance 
-8159 . 10317)) (11885 16596 (EntityAddress 11895 . 12012) (PrettyPrintLoopsForm 12014 . 12321) (
-PrettyPrintClass 12323 . 12874) (PrintDefInstances 12876 . 13513) (PrettyPrintInstance 13515 . 13978) 
-(PrttyClasses 13980 . 14332) (PrttyInstances 14334 . 15191) (PrintLoopsEvalAtLoad 15193 . 15428) (PPC 
-15430 . 15718) (PPObj 15720 . 16594)) (17617 18492 (HPRINTCLASS 17627 . 17907) (HPRINTINSTANCE 17909
- . 18215) (HREADCLASS 18217 . 18351) (HREADINSTANCE 18353 . 18490)))))
+  (FILEMAP (NIL (3377 6517 (HashMacro 3387 . 4593) (PPDefault 4595 . 4839) (SETALLSYNTAX 4841 . 5381) (
+$& 5383 . 5960) ($ 5962 . 6127) ($C 6129 . 6515)) (6710 9602 (PrintClass 6720 . 7440) (PrintInstance 
+7442 . 9600)) (9674 9765 (TTYStream? 9674 . 9765)) (10458 11063 (WITH.PP.OUTPUT 10458 . 11063)) (11167
+ 15878 (EntityAddress 11177 . 11294) (PrettyPrintLoopsForm 11296 . 11603) (PrettyPrintClass 11605 . 
+12156) (PrintDefInstances 12158 . 12795) (PrettyPrintInstance 12797 . 13260) (PrttyClasses 13262 . 
+13614) (PrttyInstances 13616 . 14473) (PrintLoopsEvalAtLoad 14475 . 14710) (PPC 14712 . 15000) (PPObj 
+15002 . 15876)) (16821 17696 (HPRINTCLASS 16831 . 17111) (HPRINTINSTANCE 17113 . 17419) (HREADCLASS 
+17421 . 17555) (HREADINSTANCE 17557 . 17694)))))
 STOP

system/LOOPSSPEEDUP

@@ -1,10 +1,10 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "11-Mar-2022 19:19:08" {DSK}<Users>briggs>Projects>loops>src>LOOPSSPEEDUP.;2
 13756  
+
(FILECREATED "19-Aug-2022 14:47:13" {DSK}<home>larry>loops>system>LOOPSSPEEDUP.;2
 13729  
 
-      :CHANGES-TO (MACROS \GETDTD)
+      :CHANGES-TO (VARS LOOPSSPEEDUPCOMS)
 
-      :PREVIOUS-DATE " 6-Nov-91 16:43:37" {DSK}<Users>briggs>Projects>loops>src>LOOPSSPEEDUP.;1)
+      :PREVIOUS-DATE "11-Mar-2022 19:19:08" {DSK}<home>larry>loops>system>LOOPSSPEEDUP.;1)
 
 
 (* ; "
@@ -19,8 +19,8 @@ Copyright (c) 1986-1987, 1990-1991, 2022 by Venue & Xerox Corporation.
 (* ;;; "Need the following low-level stuff to make a datatype non-garbage-collectable.  This saves us the effort of maintaining reference counts")

 
         (FNS Make-Not-Reference-Counted)
-        (DECLARE%: EVAL@COMPILE DONTCOPY (FILES (LOADCOMP)
-                                                LLGC LLDATATYPE)
+        (DECLARE%: EVAL@COMPILE DONTCOPY (FILES (SOURCE)
+                                                SYSEDIT)
                (EXPORT (MACROS \GETDTD)))
 
 
@@ -88,8 +88,8 @@ Copyright (c) 1986-1987, 1990-1991, 2022 by Venue & Xerox Corporation.
 )
 (DECLARE%: EVAL@COMPILE DONTCOPY 
 
-(FILESLOAD (LOADCOMP)
-       LLGC LLDATATYPE)
+(FILESLOAD (SOURCE)
+       SYSEDIT)
 
 (* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE 
 
@@ -342,7 +342,7 @@ Copyright (c) 1986-1987, 1990-1991, 2022 by Venue & Xerox Corporation.
 (ADDTOVAR GLOBALVARS
 *Global-Method-Cache*)
 (PUTPROPS LOOPSSPEEDUP COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1990 1991 2022))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (2216 3423 (Make-Not-Reference-Counted 2226 . 3421)) (9871 11360 (FlushIVIndexCache 9881
- . 10625) (\Make-IV-Cache-Entry 10627 . 11358)) (11804 13225 (FlushMethodCache 11814 . 12466) (
-\Make-Method-Cache-Entry 12468 . 13223)))))
+  (FILEMAP (NIL (2199 3406 (Make-Not-Reference-Counted 2209 . 3404)) (9844 11333 (FlushIVIndexCache 9854
+ . 10598) (\Make-IV-Cache-Entry 10600 . 11331)) (11777 13198 (FlushMethodCache 11787 . 12439) (
+\Make-Method-Cache-Entry 12441 . 13196)))))
 STOP

system/LOOPSSTRUC

@@ -1,10 +1,10 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED " 6-Jul-2022 15:03:42" {DSK}<home>larry>loops>src>LOOPSSTRUC.;2
 68244  
+
(FILECREATED "19-Aug-2022 14:47:13" {DSK}<home>larry>loops>system>LOOPSSTRUC.;2
 67241  
 
-      :CHANGES-TO (MACROS Class)
+      :CHANGES-TO (VARS LOOPSSTRUCCOMS)
 
-      :PREVIOUS-DATE "15-Jun-93 13:59:37" {DSK}<home>larry>loops>src>LOOPSSTRUC.;1)
+      :PREVIOUS-DATE " 6-Jul-2022 15:03:42" {DSK}<home>larry>loops>system>LOOPSSTRUC.;1)
 
 
 (* ; "
@@ -50,6 +50,9 @@ Copyright (c) 1983-1988, 1990-1991, 1993 by Venue & Xerox Corporation.
                       (FUNCTIONS MakeIVPropDescr WithIVPropDescr WithIVPropDescr!)
                       (MACROS InstGetProp InstPutProp InstRemProp)
                       (MACROS ExtractRealValue))
+               DONTEVAL@LOAD
+               (FILES (LOADCOMP)
+                      LOOPSDATATYPES)
                DONTEVAL@COMPILE DOCOPY (INITRECORDS IVPropDescr))
 
         (* ;; "Access macros for classes and the like")

@@ -313,6 +316,10 @@ Copyright (c) 1983-1988, 1990-1991, 1993 by Venue & Xerox Corporation.
 
 (* "END EXPORTED DEFINITIONS")
 
+DONTEVAL@LOAD 
+
+(FILESLOAD (LOADCOMP)
+       LOOPSDATATYPES)
 DONTEVAL@COMPILE DOCOPY 
 )
 
@@ -346,13 +353,8 @@ DONTEVAL@COMPILE DOCOPY
 (PUTPROPS ClassVariables
 MACRO
 ((self)
                                 (APPEND (fetch
 (class cvNames) of
 self))))
 
-(PUTPROPS FetchCIVDescr
 MACRO
 [(self varName)                (* dgb%: "25-JAN-82 15:48")

-
-         (* * Find the description list for the named variable in a class, returning NIL 
-
         if none is there.)

-
-                               (PROG NIL                     (* Short circuit GetNth with embedded 
-
                                                             RETURN if no index found)

+(PUTPROPS FetchCIVDescr
 MACRO
 [(self varName)
+                               (PROG NIL
                                      (RETURN (GetNth (fetch
 VARDESCRS of
 self)
                                                     (OR (FindIndex varName (fetch
 VARNAMES
                                                                               of
 self))
@@ -365,18 +367,12 @@ DONTEVAL@COMPILE DOCOPY
                                                              index])
 
 (PUTPROPS FetchIVDescr
 MACRO
 [OPENLAMBDA (self varName)
-
-         (* * Find the IVDescr for the named variable)

-
                                (LET (descr (varIndex (FindVarIndex varName self)))
                                     (DECLARE
 (LOCALVARS varIndex descr))
                                     (COND
                                        (varIndex (OR (GetVarNth self varIndex)
                                                      (create
 IVDescr)))
                                        [(SETQ descr (ASSOC varName (fetch
 otherIVs of
 self)))
-
-         (* * non standard instance variables are stored on an ALIST in otherIVs)

-
                                         (OR (CDR descr)
                                             (CDR (NCONC1 descr (create
 IVDescr]
                                        ((FIXP varName)
@@ -422,10 +418,6 @@ DONTEVAL@COMPILE DOCOPY
                             (NEQ NoValueFound arg)))
 
 (PUTPROPS ObjGetProp
 MACRO
 [OPENLAMBDA (descr propName)
-
-         (* Called by all fetch fns. Gets value in description list.
-
         Does not check for activeValues.)

-
                              (COND
                                 ((NULL descr)
                                  NotSetValue)
@@ -437,10 +429,6 @@ DONTEVAL@COMPILE DOCOPY
                                              (RETURN (CADR tail] finally
 (RETURN NotSetValue])
 
 (PUTPROPS ObjPutProp
 MACRO
 (OPENLAMBDA (descr propName value)
-
-         (* * Called to put a new value on a decr list by all the Store fns.
-
         Adds property if no value there already.)

-
                              (COND
                                 ((NULL propName)
                                  (replace
 IVValue of
 descr with
 value))
@@ -452,10 +440,6 @@ DONTEVAL@COMPILE DOCOPY
                                    value))))
 
 (PUTPROPS ObjRemProp
 MACRO
 [OPENLAMBDA (descr propName)
-
-         (* * descr in an IVPropDescr with fields IVName and IVPropList Removes a property 
-
         from that list. RETURNS NIL if not found, propname otherwise)

-
                              (LET ((propList (fetch
 IVPropList of
 descr)))
                                   (if
 (NULL propList)
                                       then
 NIL
@@ -470,12 +454,6 @@ DONTEVAL@COMPILE DOCOPY
                                                         (RETURN propName])
 
 (PUTPROPS ObjSetValue
 MACRO
 [(self varName newValue descr aValue propName type)
-
-         (* Called by anyone who wants to set a value of a variable or property of any 
-
         kind. Does the checking for active values.
-
         The argument type is NIL for InstanceVariables, and otherwise is one of CV, 
-
         CLASS, METHOD)

-
                              (COND
                                 ((type?
 annotatedValue aValue)
                                  (_ (fetch
 annotatedValue of
 aValue)
@@ -1456,17 +1434,17 @@ DONTEVAL@COMPILE DOCOPY
 (PUTPROPS LOOPSSTRUC COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1985 1986 1987 1988 1990 1991 
 1993))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (4843 6411 (Once-Only 4843 . 6411)) (6413 9607 (WithIVValue 6413 . 9607)) (9609 9985 (
-ChangeIVValue 9609 . 9985)) (10261 10453 (MakeIVPropDescr 10261 . 10453)) (10455 10729 (
-WithIVPropDescr 10455 . 10729)) (10731 11103 (WithIVPropDescr! 10731 . 11103)) (23788 24530 (
-GetInitialValue 23788 . 24530)) (24847 33885 (Parse@ 24857 . 26803) (Parse@* 26805 . 27345) (
-ParseAccess 27347 . 30012) (ParseBang 30014 . 31664) (ParseExpr 31666 . 32796) (ParsePut@ 32798 . 
-33883)) (34185 49103 (CreateEntity 34195 . 34678) (DeleteObjectName 34680 . 36448) (
-FastClassInitialize 36450 . 37878) (GetIVHere 37880 . 38702) (GetValueOnly 38704 . 40665) (GetClassRec
- 40667 . 41258) (GetLispClass 41260 . 41785) (GetObjectName 41787 . 42548) (GetObjectRec 42550 . 43125
-) (MakeMixinClass 43127 . 44474) (NameEntity 44476 . 45540) (NewEntity 45542 . 46357) (PutObjectName 
-46359 . 47671) (PutValueOnly 47673 . 48834) ($! 48836 . 49101)) (51762 67179 (BlankInstance 51772 . 
-53112) (BootNameObject 53114 . 53535) (FullNameObject 53537 . 53808) (FillInst 53810 . 54615) (FillIVs
- 54617 . 55226) (IVSource 55228 . 58278) (ModifyInstance 58280 . 59767) (NewClass 59769 . 61265) (
-NewObject 61267 . 61807) (UpdateClassIVs 61809 . 63741) (UpdateIVDescrs 63743 . 67177)))))
+  (FILEMAP (NIL (4958 6526 (Once-Only 4958 . 6526)) (6528 9722 (WithIVValue 6528 . 9722)) (9724 10100 (
+ChangeIVValue 9724 . 10100)) (10376 10568 (MakeIVPropDescr 10376 . 10568)) (10570 10844 (
+WithIVPropDescr 10570 . 10844)) (10846 11218 (WithIVPropDescr! 10846 . 11218)) (22785 23527 (
+GetInitialValue 22785 . 23527)) (23844 32882 (Parse@ 23854 . 25800) (Parse@* 25802 . 26342) (
+ParseAccess 26344 . 29009) (ParseBang 29011 . 30661) (ParseExpr 30663 . 31793) (ParsePut@ 31795 . 
+32880)) (33182 48100 (CreateEntity 33192 . 33675) (DeleteObjectName 33677 . 35445) (
+FastClassInitialize 35447 . 36875) (GetIVHere 36877 . 37699) (GetValueOnly 37701 . 39662) (GetClassRec
+ 39664 . 40255) (GetLispClass 40257 . 40782) (GetObjectName 40784 . 41545) (GetObjectRec 41547 . 42122
+) (MakeMixinClass 42124 . 43471) (NameEntity 43473 . 44537) (NewEntity 44539 . 45354) (PutObjectName 
+45356 . 46668) (PutValueOnly 46670 . 47831) ($! 47833 . 48098)) (50759 66176 (BlankInstance 50769 . 
+52109) (BootNameObject 52111 . 52532) (FullNameObject 52534 . 52805) (FillInst 52807 . 53612) (FillIVs
+ 53614 . 54223) (IVSource 54225 . 57275) (ModifyInstance 57277 . 58764) (NewClass 58766 . 60262) (
+NewObject 60264 . 60804) (UpdateClassIVs 60806 . 62738) (UpdateIVDescrs 62740 . 66174)))))
 STOP