(FILECREATED " 1-FEB-84 11:33:43" ("compiled on " {INDIGO}RELEASE>27-SEP-83>LOADLOOPS.;3) "22-SEP-83 23:58:41" recompiled exprs: CopyFilesUsingSpecs EnterSys EnterSysForLoopsCourse EnterSysForStandAlone EnterSysForLeesburg ForceLoadFonts LEESBURG LOADDEMO LOADLOOPS NewRelease SALEESBURG STANDALONE TESTLOOPS TesterSystem LOADTRUCKIN LOADCOURSE WAITMS WAITPAGEFN SetNetwork DE FILE i/d PPI PPR in LOOPS.SYSOUT dated "23-SEP-83 13:21:45") (FILECREATED " 1-FEB-84 11:33:00" {INDIGO}RELEASE>27-SEP-83>LOADLOOPS.;3 27353 changes to: ( VARS LOADLOOPSCOMS LOOPSFILES LoopsDate) (FNS CopyFilesUsingSpecs EnterSys EnterSysForLoopsCourse EnterSysForStandAlone EnterSysForLeesburg ForceLoadFonts LEESBURG LOADDEMO LOADLOOPS NewRelease SALEESBURG STANDALONE TESTLOOPS TesterSystem LOADTRUCKIN LOADCOURSE WAITMS WAITPAGEFN SetNetwork DE FILE i/d PPI PPR) (ADVICE PAGEFULLFN) previous date: "27-SEP-83 15:54:37" {INDIGO}SOURCES>LOADLOOPS.;49) CopyFilesUsingSpecsA0026 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 x) P-hNIL NIL NIL CopyFilesUsingSpecs D1 (P 11Q z P 5 x P 4 copied P 3 option P 2 files P 1 fromDir P 0 status I 1 toDir I 0 specs F 12Q TTY F 13Q y) u iQ@fd]dl'o coW MW W hMJ&Mdg[gKdg|0J.d IO AO ONh_N&_OhLhoW JW oW IW oW AW W KgKg0J6d IOo AOo ONh_N&_OhLhoW JW oW IW oW AW W XH(546Q TERPRI 540Q PRIN1 531Q PRIN1 517Q PRIN1 510Q PRIN1 476Q PRIN1 467Q PRIN1 417Q COPYFILE 414Q MKATOM 411Q CONCAT 377Q MKATOM 374Q CONCAT 327Q TERPRI 321Q PRIN1 312Q PRIN1 300Q PRIN1 271Q PRIN1 257Q PRIN1 250Q PRIN1 200Q COPYFILE 175Q MKATOM 172Q CONCAT 164Q MKATOM 161Q CONCAT 64Q TERPRI 56Q PRIN1 47Q PRIN1 32Q CopyFilesUsingSpecsA0026) (342Q B 334Q C 134Q B 125Q S 115Q C) (524Q " to :" 503Q " from: " 462Q "Copied compiled files: " 406Q ".DCOM" 371Q ".DCOM" 305Q " to :" 264Q " from: " 243Q "Copied source files: " 42Q "Cannot carryout specs: " 27Q (DUMMY.FOR.ERRORSET)) EnterSysA0027 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 LOGINHOST/DIR) P i(3 /CNDIR) NIL NIL EnterSys D1 (P 1 loginHostEntry P 0 userEntry I 0 logInFlg F 2 USERNAME F 3 INITIALSLST F 4 DEFAULTPRINTINGHOST F 5 LeesburgFlg F 6 StandAloneFlg F 7 INITIALS F 10Q DEFAULTFILESERVER F 11Q LOGINHOST/DIR F 12Q FIRSTNAME)   UV@ c cdgS X@ cdgS XdvYdI 'oHIWoho oRo cHLoho cH1ohoi cHohoi coi hgT(307Q EnterSysA0027 275Q INTTY 253Q INTTY 231Q INTTY 210Q PACK* 173Q INTTY 141Q PACK* 120Q FASSOC 103Q MKATOM 100Q USERNAME 74Q LOGIN 64Q FASSOC 57Q EnterSysForLoopsCourse 43Q MKATOM 40Q USERNAME 32Q MKATOM 27Q USERNAME 23Q LOGIN 15Q EnterSysForStandAlone 7 EnterSysForLeesburg) (325Q edited: 111Q LOOPSCOURSE 51Q LOOPSCOURSE) (303Q (DUMMY.FOR.ERRORSET) 271Q "Name to be used in greeting; eg.g. Danny" 264Q "What is your first name? " 247Q "Initials to be inserted in edited functions e.g. dgb:" 242Q "What are your initials? " 226Q "A print server name such as MENLO,YODA" 221Q "What is the name of your default printing server? " 204Q ">LISP>" 177Q "}<" 170Q "A file server name such as IVY, PHYLUM" 163Q "What is the name of your file server? " 147Q "{") EnterSysForLoopsCourseA0028 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 LOGINHOST/DIR) P h(3 /CNDIR) NIL NIL EnterSysForLoopsCourse D1 (F 0 StudentName F 1 INITIALS F 2 LOGINHOST/DIR F 3 FIRSTNAME F 4 LOOPSCOURSEDIR) &o cgcgcTdP coi (43Q EnterSysForLoopsCourseA0028 31Q PACK* 6 INTTY) (20Q Student 13Q edited:) (37Q (DUMMY.FOR.ERRORSET) 3 "What is your last name, please? ") EnterSysForStandAlone D1 NIL o h(6 WRITE) NIL (3 "Welcome to the Loops Demo -- STANDALONE version.") EnterSysForLeesburgA0029 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 LOGINHOST/DIR) P i(3 /CNDIR) NIL NIL EnterSysForLeesburg D1 (F 0 LOGINHOST/DIR F 1 StudentName F 2 INITIALS F 3 FIRSTNAME F 4 LOOPSCOURSEDIR F 5 USERNAME) ~o oho cgcgcTQg cUgo P P 6oP ooo goP P oi h(172Q EnterSysForLeesburgA0029 161Q NSCREATEDIRECTORY 154Q WRITE 136Q INTTY 116Q WRITE 104Q /CNDIR 77Q DIRECTORYNAMEP 72Q WRITE 52Q PACK* 23Q INTTY 6 WRITE) (141Q N 61Q LOOPSCOURSE 47Q > 37Q Student 31Q edited:) (166Q (DUMMY.FOR.ERRORSET) 150Q "Creating directory for " 133Q "Type Y to create a new directory. Type N to re-enter your last name." 127Q (Y N) 123Q "Create a new directory (Y/N)? " 112Q "No directory exists yet for " 67Q "Please LOGIN as LOOPSCOURSE and type the course password." 20Q "Enter your name. e.g. JONES. (Use all capitals and no spaces.)" 13Q "What is your last name, please? " 3 "Welcome to Lisp and Loops.") ForceLoadFonts D1 NIL g g h(13Q NEWFONT 5 NEWFONT) (10Q PARC 2 BIG) NIL LEESBURG D1 (F 0 FILELST F 1 LeesburgFlg F 2 LOOPSCOURSEDIR F 3 LISPUSERSDIRECTORIES F 4 USERNAME F 5 FONTDIRECTORIES F 6 DEMOFLGSETUP F 7 NS.DEFAULT.PRINTER F 10Q DIRECTORIES) G icggg gchcdc dcgcgcg ic ochghc(104Q SetUpDemo 57Q PRINTERMODE 21Q CHANGENAME 2 ForceLoadFonts) (74Q {FS:} 54Q INTERPRESS 47Q NotLoggedIn 42Q LISPPRINT 24Q {FS:} 16Q EVQ 13Q FONTCOPY 10Q \SET.TTYINBOLDFONT) (66Q (GAUGES TRUCKINP TRUCKINV TRUCKINDB TRUCKINR LOOPSDEMO)) LOADDEMO D1 (I 0 sourceFlg F 0 DEMODIR F 1 DIRECTORIES F 2 DEMOFILES) &PQQPh @ @Rd hR (43Q DOFILESLOAD 30Q LOAD 17Q LOADTRUCKIN 12Q \NCONC2) NIL NIL LOADLOOPS D1 (P 0 FILE I 2 noScreenSetup I 1 sysoutFlg I 0 option F 1 AFTERSYSOUTFORMS F 2 LOOPSFILES F 3 AFTERLOGOUTFORMS F 4 LispUserFilesForLoops F 5 OptionalLispuserFiles F 6 MAKESYSDATE F 7 SYSOUTGAG F 10Q LispDate F 11Q RULESFILES F 12Q COMPILE.EXT F 13Q LoopsDate F 14Q FILELST)  @ bddgoi h8@g1@g*@g#@g@g@g@g@ggoTU  Vkl cR1od@gHWgHg@ghW kl c@g@gR cB&@dgdgdgA@dg@g@g@g@goQ Qoh cSoh cghc@dg@g@dg@gAdiA h@ggg (577Q SYSOUT 553Q /CNDIR 537Q TesterSystem 525Q STANDALONE 511Q SALEESBURG 477Q LEESBURG 452Q \APPEND2 435Q \APPEND2 421Q MEMBER 410Q SetUpDemo 404Q LOADCOURSE 400Q LOADDEMO 343Q SetUpScreen 272Q \APPEND2 247Q SUBSTRING 241Q DATE 230Q LOAD 225Q PACKFILENAME 146Q SUBSTRING 137Q APPLY 133Q \APPEND2 25Q PRINT 3 U-CASE) (574Q LOOPS.SYSOUT 570Q LOOPSDEMO.SYSOUT 563Q DEMO 532Q TESTER 517Q STANDALONE 504Q SALEESBURG 471Q LEESBURG 460Q EnterSys 373Q STANDALONE 365Q LEESBURG 357Q SALEESBURG 350Q DEMO 335Q KERNEL 323Q STANDALONE 314Q LEESBURG 305Q DEMO 263Q DEMO 255Q DEBUG 214Q SOURCES 210Q EXTENSION 204Q NAME 171Q KERNEL 122Q FILESLOAD 114Q TESTER 106Q KERNEL 100Q SOURCES 71Q DEBUG 62Q DEMO 53Q STANDALONE 44Q LEESBURG 35Q SALEESBURG 12Q ?) (445Q (DB-InitUI) 430Q (DB-InitUI) 415Q (DB-InitUI) 157Q "Bad option. option can be one of NIL DEBUG SOURCES KERNEL. For more information type LOADLOOPS(?)" 126Q (SYSLOAD FROM VALUEOF LISPUSERSDIRECTORIES) 21Q "LOADLOOPS cases: option=NIL, loads DCOM of LOOPSFILES; sets FILELST to NIL. option=DEBUG loads DCOM of LOOPSFILES. option=DEMO loads DCOM files of LOOPS,DEMO and TRUCKIN, and sets up demo screen and fonts option=LEESBURG does a demo load, and then runs function LEESBURG option=SALEESBURG does a demo load, and runs SALEESBURG. Makes a system with ALL needed stuff already loaded. option=STANDALONE does a demo load, and then runs function STANDALONE option=SOURCES, then loads sources of LOOPSFILES. option=KERNEL, loads DCOM files excluding RULESFILES. In all above cases, EXCEPT option = KERNEL, sets up the standard loops screen. option=TESTER, loads LoopsTester files. option=?, then LOADLOOPS prints this message. If sysoutFlg=T then ends with a (SYSOUT 'LOOPS.SYSOUT)") NewRelease D1 (P 2 status P 1 sourceDir P 0 indigoDir I 0 date F 3 TTY F 4 IndigoCleanupCommd F 5 MaxcReleaseCommd F 6 IndigoReleaseDir F 7 ReleaseFilesSpec) 0@kl bV@o YoI XoIooo cghT WH Zd%oS HS S oS S hooooIo ool o c ghU h(254Q CHAT 242Q CONCAT 232Q CHARACTER 215Q CONCAT 163Q TERPRI 156Q PRIN1 145Q TERPRI 140Q PRIN1 132Q PRIN1 116Q CopyFilesUsingSpecs 110Q CHAT 76Q CONCAT 50Q MKATOM 45Q CONCAT 34Q MKATOM 31Q CONCAT 15Q SUBSTRING 7 GDATE) (247Q MAXC 103Q INDIGO) (236Q "logout " 225Q "logout " 221Q "q " 212Q "* " 205Q "automatic ret " 201Q "pupftp indigo log mittal iteerp " 175Q "del *.* " 171Q "1 CONN loops betatest " 152Q "RELEASE ABORTED!!" 126Q "Files not copied properly to: " 72Q "q " 66Q "del *, conf " 62Q " " 55Q "dir " 41Q "{indigo}" 26Q ">") SALEESBURG D1 (P 0 FILE F 1 LeesburgFlg F 2 LOOPSCOURSEDIR F 3 LISPUSERSDIRECTORIES F 4 USERNAME F 5 FONTDIRECTORIES F 6 DEMOFLGSETUP F 7 FILELST F 10Q NS.DEFAULT.PRINTER F 11Q DIRECTORIES) Q icggg gchcdc dcgcgcg odHg ic hc(116Q SetUpDemo 100Q LOAD 57Q PRINTERMODE 21Q CHANGENAME 2 ForceLoadFonts) (75Q PROP 54Q INTERPRESS 47Q NotLoggedIn 42Q LISPPRINT 24Q {FS:} 16Q EVQ 13Q FONTCOPY 10Q \SET.TTYINBOLDFONT) (63Q (GAUGES TRUCKINP TRUCKINV TRUCKINDB TRUCKINR LOOPSDEMO)) STANDALONE D1 (P 0 FILE F 1 StandAloneFlg F 2 LISPUSERSDIRECTORIES F 3 FONTDIRECTORIES F 4 DIRECTORIES F 5 FILELST F 6 NS.DEFAULT.PRINTER F 7 USERNAME) Ficggg hcdcdc gc gcg odHg hc(73Q LOAD 52Q PRINTERMODE 21Q CHANGENAME 2 ForceLoadFonts) (70Q PROP 47Q INTERPRESS 42Q NotLoggedIn 35Q LISPPRINT 16Q EVQ 13Q FONTCOPY 10Q \SET.TTYINBOLDFONT) (56Q (GAUGES TRUCKINP TRUCKINV TRUCKINDB LOOPSDEMO)) TESTLOOPS D1 (I 0 SOURCESFLG F 0 LTLOADEDREST) #@od icg j (40Q TestForever 33Q LOAD 14Q LOAD) (30Q LTBASIC.DCOM) (6 (LTBASIC LTKER LTDB LTCASES)) TesterSystem D1 (F 0 FILELST F 1 LeesburgFlg F 2 LOOPSCOURSEDIR F 3 USERNAME F 4 LISPUSERSDIRECTORIES F 5 DEMOFLGSETUP F 6 FONTDIRECTORIES F 7 NS.DEFAULT.PRINTER F 10Q DIRECTORIES) S g hcg g icggg gchcdc gcgcg ic hghc(104Q PRINTERMODE 51Q CHANGENAME 32Q LOAD 24Q LoadLTSystemCI 21Q LOAD 10Q LOAD 2 ForceLoadFonts) (113Q {FS:} 101Q INTERPRESS 74Q NotLoggedIn 67Q LISPPRINT 54Q {FS:} 46Q EVQ 43Q FONTCOPY 40Q \SET.TTYINBOLDFONT 27Q LTCASES 16Q LTBASIC.DCOM 5 {PHYLUM}SOURCES>FILEBROWSER.DCOM) NIL LOADTRUCKIN D1 (I 0 sourceFlg F 0 DIRECTORIES F 1 PLAYERSDIR F 2 TRUCKINDIR F 3 PLAYERFILES F 4 TRUCKINFILES F 5 LispUserFilesForTruckin) _goU QPPQhcQPRPPRhcRP@Td T @Sd S h(133Q DOFILESLOAD 121Q LOAD 110Q InitializeTruckin 104Q DOFILESLOAD 72Q LOAD 13Q APPLY) (2 FILESLOAD) (6 (SYSLOAD FROM VALUEOF LISPUSERSDIRECTORIES)) LOADCOURSE D1 (F 0 DIRECTORIES F 1 LOOPSCOURSEFILESDIR F 2 LOOPSCOURSEFILES) hQPcRd h(16Q LOAD) NIL NIL WAITMS D1 (I 0 numMS) '````w@`dg i(41Q TIMEREXPIRED?) (36Q TICKS 30Q \RCLKMILLISECOND 23Q FIXP 17Q \FIXP 13Q WaitMSTimer 6 \FIXP 2 WaitMSTimer) NIL WAITPAGEFN D1 (F 0 WAITPAGEFLG) `nj`l@jhPiNIL (16Q \EM.KBDAD2 2 \EM.KBDAD2) NIL SetNetwork D1 (P 0 etherHostNumber F 1 NETNUMBER) Xdjo l ch(32Q RSH 25Q ETHERHOSTNUMBER 21Q HELPCHECK 5 ETHERHOSTNUMBER) NIL (16Q "Help -- The ETHERHOSTNUMBER is zero. LOOPS uses this number to make unique identifiers.") DE D1 (I 0 L) @dhi (12Q DEFINE) NIL NIL FILEA0030 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 ARGS F 1 MACROY) P ci(4 MAKEFILE) NIL NIL FILE D1 (P 3 RESETSTATE P 2 MACROY P 0 OLDVALUE I 0 ARGS F 4 RESETVARSLST) ]@@ @dld  l 1gHhhTcYog gIcgI KJ(130Q ERROR! 123Q APPLY 100Q FILEA0030 45Q RADIX 37Q /SETATOMVAL 32Q GETTOPVAL 10Q FILECOMS) (114Q RADIX 104Q ERROR 75Q INTERNAL 53Q RADIX) (72Q (DUMMY.FOR.ERRORSET)) i/d D1 (I 0 item) @ (3 INSPECT/DATATYPE) NIL NIL PPIA0031 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 0 FIELD F 1 DEC F 2 POS F 3 INSTANCE F 4 MACROY) Qo Q 1dHg#Rj H o HSQ h o h ci(113Q TERPRI 106Q PRIN1 71Q PRINTDEF 66Q POSITION 62Q RECORDACCESS 53Q PRIN1 43Q PRIN2 36Q TAB 13Q RECORDFIELDNAMES 6 PRIN1) (26Q PERFORMOPS) (103Q "]" 50Q " = " 3 "[") PPI D1 (P 5 RESETSTATE P 4 MACROY P 2 OLDVALUE P 1 DEC P 0 POS I 2 FILE I 1 RECORDNAME I 0 INSTANCE F 6 RESETVARSLST) mB kA @d I?B 1gJhhVc og gKc gK M@B hddB B h(151Q TERPRI 144Q PRINTDEF 134Q POSITION 123Q ERROR! 115Q APPLY 71Q PPIA0031 36Q OUTPUT 24Q RECLOOK 21Q TYPENAME 3 POSITION) (106Q OUTPUT 75Q ERROR 66Q INTERNAL 44Q OUTPUT) (63Q (DUMMY.FOR.ERRORSET)) PPRA0032 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 0 R F 1 X F 2 MACROY) 4Qd(h$dH H Ho i hci(50Q TERPRI 43Q PRINTDEF 30Q \APPEND2 25Q FIELDLOOK 21Q RECLOOK) NIL (37Q (not found)) PPR D1 (P 3 RESETSTATE P 2 MACROY P 0 OLDVALUE I 0 X F 4 RESETVARSLST) ;i 1gHhhTcYog gIcgI KJ(66Q ERROR! 61Q APPLY 36Q PPRA0032 3 OUTPUT) (52Q OUTPUT 42Q ERROR 33Q INTERNAL 11Q OUTPUT) (30Q (DUMMY.FOR.ERRORSET)) (PRETTYCOMPRINT LOADLOOPSCOMS) (RPAQQ LOADLOOPSCOMS ((* Copyright (c) 1982 by Xerox Corporation) (* LoopsDate is set each time one makes a new LOADLOOPS file. This means that ordinary loading (LOADLOOPS) will get the LoopsDate from when LOADLOOPS was made. LOADLOOPS (DEBUG) sets the date when loading.) (E (SETQ LoopsDate (SUBSTRING (DATE) 1 9))) (FNS CopyFilesUsingSpecs EnterSys EnterSysForLoopsCourse EnterSysForStandAlone EnterSysForLeesburg ForceLoadFonts LEESBURG LOADDEMO LOADLOOPS NewRelease SALEESBURG STANDALONE TESTLOOPS TesterSystem LOADTRUCKIN LOADCOURSE WAITMS WAITPAGEFN) (VARS IndigoReleaseDir LOOPSFILES TESTCOMPILEDFILES TESTFILES TESTSOURCEFILES RULESFILES ReleaseFilesSpec TRUCKINDIR TRUCKINFILES PLAYERFILES PLAYERSDIR DEMODIR DEMOFILES LOOPSCOURSEFILES LOOPSCOURSEFILESDIR LispUserFilesForLoops OptionalLispuserFiles LispUserFilesForTruckin LoopsDate) (GLOBALVARS WaitMSTimer \FIXP) (VARS WAITPAGEFLG (WaitMSTimer (SETUPTIMER 0))) (* Function which allows the control key to stop scrolling on the TTYDISPLAYSTREAM) (ADVISE PAGEFULLFN) (* * The function SetNetwork must be modified for use on any machine which will not respond to the function (ETHERHOSTNUMBER) %. It is called by DB-InitUI which is called every time the user starts up. The variable NETNUMBER is set by SetNetwork and used in generating unique ids. It is set here to 0 as a default.) (INITVARS (NETNUMBER 0) (LeesburgFlg NIL) ( StandAloneFlg NIL)) (FNS SetNetwork) (* * Some utility functions and macros we like having around) ( FNS DE FILE i/d PPI PPR) (LISPXMACROS ok) (USERMACROS SHOWD FV) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA PPR FILE DE) (NLAML) (LAMA))))) (RPAQQ IndigoReleaseDir release>) (RPAQQ LOOPSFILES (LOADLOOPS BLOCKLOOKUP LOOPSSCREEN LOOPSSTRUC LOOPSPRINT LOOPSACCESS LOOPSUID LOOPSAV LOOPSEDIT LOOPSUTILITY LOOPSMETHODS LOOPSKERNEL LOOPSMIXIN LOOPSDATABASE LOOPSINSPECT LOOPSWINDOW LOOPSBROWSE LOOPSRULES LOOPSRULESP LOOPSRULESC LOOPSRULESD GAUGES)) (RPAQQ TESTCOMPILEDFILES (LTBASIC LTBCLS LTCASES LTDB LTKER LTLOAD)) (RPAQQ TESTFILES (LTBASIC LTBCLS LTCASES LTDB LTKER LTLOAD LT1.KB)) (RPAQQ TESTSOURCEFILES (LT1.KB)) (RPAQQ RULESFILES (LOOPSRULES LOOPSRULESP LOOPSRULESC LOOPSRULESD)) (RPAQQ ReleaseFilesSpec ((LOOPSFILES {indigo}SOURCES> B) (TRUCKINFILES {indigo}truckin>multi> C) (PLAYERFILES {indigo}truckin>multi> B) (DEMOFILES {indigo}demo> B) (TESTSOURCEFILES {indigo}SOURCES> S) (TESTCOMPILEDFILES {indigo}SOURCES> B))) (RPAQQ TRUCKINDIR {INDIGO}TRUCKIN>MULTI) (RPAQQ TRUCKINFILES (TRUCKIN TRUCKINM TRUCKINR TRUCKINI TRUCKINDB TRUCKINP TRUCKINV LOOPSGATEWAY)) (RPAQQ PLAYERFILES (TRAVELER PEDDLER PLANNER)) (RPAQQ PLAYERSDIR {INDIGO}TRUCKIN>MULTI) (RPAQQ DEMODIR {INDIGO}DEMO>) (RPAQQ DEMOFILES (LOOPSDEMO)) (RPAQQ LOOPSCOURSEFILES (EXERCISE1 SIMPLEG TRANSLATE DEMOSCRIPT)) (RPAQQ LOOPSCOURSEFILESDIR {INDIGO}COURSE>) (RPAQQ LispUserFilesForLoops (GRAPHER ICONW TTY HISTMENU TMENU INMENU READNUMBER ANIMATE)) (RPAQQ OptionalLispuserFiles (SINGLEFILEINDEX PATCHUP BROWSER)) (RPAQQ LispUserFilesForTruckin (EVALSERVER LLCOLOR COLOR)) (RPAQQ LoopsDate " 1-FEB-84") (RPAQQ WAITPAGEFLG NIL) (RPAQ WaitMSTimer (SETUPTIMER 0)) (PUTPROPS PAGEFULLFN READVICE (NIL (BEFORE NIL (COND ((WAITPAGEFN) (RETURN T)))))) (READVISE PAGEFULLFN) (RPAQ? NETNUMBER 0) (RPAQ? LeesburgFlg NIL) (RPAQ? StandAloneFlg NIL) (ADDTOVAR LISPXMACROS (ok (RETFROM (OR (STKPOS (QUOTE USEREXEC)) (QUOTE LISPX)) T T))) (ADDTOVAR EDITMACROS (FV NIL (E (FREEVARS (%#%# (ORR (UP 1) NIL)) T))) (SHOWD NIL UP (ORR ((E ( RESETFORM (OUTPUT T) (PROGN (PRINTDEF (OR (EDITGETD (%#%# 1) (AND (CDR L) (EDITL0 L (QUOTE (!0))))) ( ERROR!)) NIL T) (TERPRI))) T)) ((E (QUOTE SHOWD?)))))) (ADDTOVAR EDITCOMSA SHOWD FV) (PUTPROPS LOADLOOPS COPYRIGHT ("Xerox Corporation" 1983 1984)) NIL