(FILECREATED "28-May-84 13:03:03" {INDIGO}<LOOPS>SOURCES>LOOPSSCREEN.;22 16459
changes to: (VARS LOOPSSCREENCOMS)
(USERMACROS PU)
(FNS SetUpWindows)
previous date: "16-May-84 20:56:51" {INDIGO}<LOOPS>SOURCES>LOOPSSCREEN.;21)
(PRETTYCOMPRINT LOOPSSCREENCOMS)
(RPAQQ LOOPSSCREENCOMS ((GLOBALVARS TTY)
(P (SETQ TTY \TopLevelTtyWindow))
(* Functions for setting up and manipulating the Loops screen)
(FNS HistIcon LoopsIcon SetUpScreen SetUpWindows UE PPW PrintScreen
PromptEval PromptRead MakeLoopsForm)
(* Positions and regions for various windows on Loops screen)
(VARS * SCREENVARS)
(* Set up for Lafite, even if it is not in)
(VARS (LAFITEFORMSMENU))
(ADDVARS (LAFITESPECIALFORMS ("Loops Report" (QUOTE MakeLoopsForm)
"A form to report a Loops bug or suggestion")))
(USERMACROS EE EU PU UE OKCLOSE DE)
(LISPXMACROS OKCLOSE)
[P (ADVISE (QUOTE CNDIR)
(QUOTE AFTER)
(QUOTE (PROGN (WINDOWPROP TTY (QUOTE TITLE)
(CONCAT "Connected To " !VALUE
" -- TTY Window"))
(PrintStatus (CHARACTER 7)
"Connecting to " !VALUE]
(HORRIBLEVARS WhiteLoopsIconBM BlackLoopsIconBM LoopsIconShadow PalIconBM)
(* (c)
Copyright 1983 Xerox Corporation)))
(DECLARE: DOEVAL@COMPILE DONTCOPY
(ADDTOVAR GLOBALVARS TTY)
)
(SETQ TTY \TopLevelTtyWindow)
(* Functions for setting up and manipulating the Loops screen)
(DEFINEQ
(HistIcon
[LAMBDA NIL (* dgb: "21-MAR-83 14:18")
(* Puts up history icon at standard spot)
(SETQ HistItemsShown 51)
(HistoryIcon 50 histPosition histIconPosition])
(LoopsIcon
[LAMBDA (whiteFlg) (* dgb: "22-SEP-83 17:07")
(* * Displays the Loops icon. Window argument is optional.)
(SETQ LoopsIconWindow (ICONW (COND
(whiteFlg WhiteLoopsIconBM)
(T BlackLoopsIconBM))
LoopsIconShadow loopsIconPosition))
(WINDOWPROP LoopsIconWindow (QUOTE BUTTONEVENTFN)
(QUOTE ClassLatticeFn))
(WINDOWPROP LoopsIconWindow (QUOTE RIGHTBUTTONFN)
(QUOTE MOVEW))
LoopsIconWindow])
(SetUpScreen
[LAMBDA NIL (* dgb: "16-May-84 19:40")
(PROG (w)
(for W in (ACTIVEWINDOWS) do (CLOSEW W))
(CHANGEBACKGROUND BACKGROUNDSHADE)
(DSPFONT (FONTCREATE (QUOTE (HELVETICA 12 BOLD)))
WindowTitleDisplayStream) (* (Old code for EditCommand Window NIL)
(TMenu (QUOTE EditCommands) "Edit Commands" edComsPos))
(DSPOPERATION (QUOTE INVERT)
PROMPTWINDOW)
(WINDOWPROP PROMPTWINDOW (QUOTE TITLE)
(CONCAT "Prompt Window -- Lisp: " LispDate " Loops: " (SUBSTRING LoopsDate 1
9)))
(CLEARW PROMPTWINDOW)
(SHAPEW PROMPTWINDOW promptPos)
(SETQ PrintStatusWindow PROMPTWINDOW)
(SETQ PPDefault (SETQ USEREXECDS (CREATEW uePos "User Exec -- PPDefault Window" NIL)))
(DSPSCROLL (QUOTE ON)
USEREXECDS)
(SHRINKW USEREXECDS NIL ueIconPos)
(SHAPEW TTY ttyPos)
(CLOSEW (SETQ DEditWindow (CREATEW deditPos "DEdit")))
(SHRINKW (SETQ TTYINEDITWINDOW (CREATEW eePos "Edit Work Area"))
NIL eeIconPos)
(HistIcon)
(←Proto
($ LoopsIcon)
Open])
(SetUpWindows
[LAMBDA (windowSpec closeOthersFlg) (* DECLARATIONS: (RECORD ws (name region title border
font scrollFlg)))
(* dgb: "21-Apr-84 14:17")
(* Set up windows as specified by list)
(AND closeOthersFlg (for w in (OPENWINDOWS) do (CLOSEW w)))
(for w in windowSpec bind name window do (COND
([WINDOWP (SETQ window (EVALV (SETQ name
(fetch name
of w]
(SHAPEW window (fetch region of w))
(OPENW window))
(T [SETTOPVAL name (SETQ window
(CREATEW (fetch region of w)
(fetch title of w)
(fetch border of w]
(AND (fetch font of w)
(DSPFONT (fetch font of w)
window))
(DSPSCROLL (fetch scrollFlg of w)
window])
(UE
[LAMBDA (WINDOW) (* dgb: "18-Apr-84 08:41")
(RESETFORM [TTYDISPLAYSTREAM (OR (WINDOWP WINDOW)
(WINDOWP (EVALV (QUOTE USEREXECDS)))
(SETQ USEREXECDS (CREATEW NIL "User Exec -- PPDefault Window"]
(CURSOR T)
(CLOSEW USEREXECDS)
(USEREXEC)
(CLOSEW USEREXECDS])
(PPW
[LAMBDA (FN window) (* dgb: "29-NOV-82 01:27")
(* Prettyprint fn to specified or user exec window)
(RESETFORM (OUTPUT (COND
[window (COND
((EQ window T)
(PROG ((w (CREATEW)))
(DSPSCROLL (QUOTE ON)
w)
(RETURN w)))
((WINDOWP window)
window)
(T (EVAL window]
(T USEREXECDS)))
(PRETTYPRINT (CONS FN])
(PrintScreen
[LAMBDA (keepFlg) (* dgb: "13-JUN-83 17:03")
(* Creates a bit map from the contents of a window and stores it on file. If no window is given, uses SELECTW to
to allow user to specify window by putting the mouse over the window and then pressing CTRL.
If no file is given, it puts bitmap on WINDOW.PRESS, prints it and then deletes file. host defaults to
FULLPRESSPRINTER or if none then DEFAULTPRINTINGHOST. If file is given but no host, then does not print.)
(PROG (fullName)
(COND
((SETQ fullName
(PRESSBITMAP (QUOTE SCREEN.PRESS)
(SCREENBITMAP)
.5
(create REGION
LEFT ← 1
BOTTOM ← 1
WIDTH ← 1023
HEIGHT ← 807))) (* Just print it)
[EMPRESS fullName 1 (OR FULLPRESSPRINTER (SETQ FULLPRESSPRINTER (PromptRead
"Tell me your full press printer"))
(RETURN (PROMPT "No screen printed.
SCREEN.PRESS saved."]
(OR keepFlg (DELFILE fullName])
(PromptEval
[LAMBDA (promptString) (* dgb: " 2-MAR-83 10:55")
(* Printout promptString in promptwindow and return
value of expression read there)
(PROG (NEWVALUE)
(RESETLST (RESETSAVE (TTYDISPLAYSTREAM PROMPTWINDOW))
(RESETSAVE (TTY.PROCESS (THIS.PROCESS)))
(CLRPROMPT)
(RESETSAVE (PRINTLEVEL 4 3))
(printout T promptString T "The expression read will be EVALuated." T "> ")
(SETQ NEWVALUE (LISPX (LISPXREAD T T)
(QUOTE >))) (* clear tty buffer because it sometimes has stuff
left.)
(CLEARBUF T T))
(RETURN NEWVALUE])
(PromptRead
[LAMBDA (promptString) (* edited: "31-MAY-83 15:43")
(* Printout promptString in promptwindow and return
value of expression read there)
(PROG (NEWVALUE)
[RESETLST (RESETSAVE (TTYDISPLAYSTREAM PROMPTWINDOW))
(RESETSAVE (TTY.PROCESS (THIS.PROCESS)))
(CLRPROMPT)
(RESETSAVE (PRINTLEVEL 4 3))
(printout T promptString T "> ")
(CLEARBUF T T) (* clear tty buffer because it sometimes has stuff
left.)
(SETQ NEWVALUE (CAR (ERSETQ (LISPXREAD T T]
(RETURN NEWVALUE])
(MakeLoopsForm
[LAMBDA NIL (* ht: "15-Feb-84 11:32")
(MAKEXXXSUPPORTFORM "Loops" "LoopsCore↑.pa" LoopsDate])
)
(* Positions and regions for various windows on Loops screen)
(RPAQQ SCREENVARS (EditCommands OtherCommands deditPos edComsPos eeIconPos eePos histIconPosition
histPosition loopsIconPosition promptPos ttyPos ueIconPos uePos
(BACKGROUNDSHADE 34850)
(DEditLinger)))
(RPAQQ EditCommands (("Others" (MENU (create MENU ITEMS ← OtherCommands))
"Pop up Menu of Other Commands")
("DE" "DE" "Enter display structure editor" "
")
("EE" "EE" "Enter display character editor." "
")
(% NIL "Leave edit window if parens balance")
(OK NIL "Finish Editing" "
")
(reprint (PROGN (BKSYSBUF (CHARACTER 193))
"P")
"Reprettyprints if parens balance" "")
(doneEdit " OKCLOSE
" "End editing if parens balance,and close edit window" "")))
(RPAQQ OtherCommands (("WindowShade" "MakeWindowShade(T)" "Make window shade of selected window" "")
("FileMenus" "MakeFileMenus(" "Display Typein menus for file objects" "")
("Patch File" "PatchUp(T)" "Make patch file of changes" "")
("Files Loaded" (PROGN (TMenu (QUOTE FILELST)
"FILELST" 1)
"")
"Put up TMenu of files loaded" "")
("Keep This" (PROGN (TMenu (QUOTE OtherCommands)
"Other Commands"
(QUOTE (297 330 94 92)))
"")
"Make permanent TMenu of Other commands")
("]" "]" "Type in Right Bracket" "")))
(RPAQQ deditPos (426 227 512 581))
(RPAQQ edComsPos (0 430 426 32))
(RPAQQ eeIconPos (851 . 789))
(RPAQQ eePos (426 0 598 812))
(RPAQQ histIconPosition (438 . 675))
(RPAQQ histPosition (426 . 0))
(RPAQQ loopsIconPosition (436 . 742))
(RPAQQ promptPos (0 748 426 60))
(RPAQQ ttyPos (0 430 426 318))
(RPAQQ ueIconPos (104 . 410))
(RPAQQ uePos (0 0 426 430))
(RPAQQ BACKGROUNDSHADE 34850)
(RPAQQ DEditLinger NIL)
(* Set up for Lafite, even if it is not in)
(RPAQQ LAFITEFORMSMENU NIL)
(ADDTOVAR LAFITESPECIALFORMS ("Loops Report" (QUOTE MakeLoopsForm)
"A form to report a Loops bug or suggestion"))
(ADDTOVAR USERMACROS [PU NIL (E ($! (%#%#]
[EU NIL (E (AND ($! (%#%#))
(← ($! (%#%#))
Edit]
(UE NIL (E (UE)))
(OKCLOSE NIL (E (SHRINKW TTYINEDITWINDOW))
OK)
(EE NIL (E (CURSOR T)
T)
(E (WINDOWPROP TTYINEDITWINDOW (QUOTE TITLE)
(CONCAT "TtyInEdit of " TYPE " " ATM))
T)
(COMS (TTED DO.EE EE)))
(EE (DUMMY)
(E (CURSOR T)
T)
(E (WINDOWPROP TTYINEDITWINDOW (QUOTE TITLE)
(CONCAT "TtyInEdit of " TYPE " " ATM))
T)
(COMS (TTED DO.EE EE)))
(DE NIL (COMSQ (BI 1 -1)
(E (DEDITE (%#%# 1))
T)
(BO 1))))
(ADDTOVAR EDITCOMSA EU DE OKCLOSE EE PU)
(ADDTOVAR EDITCOMSL UE EE)
(ADDTOVAR LISPXMACROS (OKCLOSE (PROGN (SHRINKW TTYINEDITWINDOW)
(RETFROM (OR (STKPOS (QUOTE USEREXEC))
(QUOTE LISPX))
T T))))
[ADVISE (QUOTE CNDIR)
(QUOTE AFTER)
(QUOTE (PROGN (WINDOWPROP TTY (QUOTE TITLE)
(CONCAT "Connected To " !VALUE " -- TTY Window"))
(PrintStatus (CHARACTER 7)
"Connecting to " !VALUE]
(READVARS WhiteLoopsIconBM BlackLoopsIconBM LoopsIconShadow PalIconBM)
( {(READBITMAP)(64 64
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@AOOH@@@@@@"
"@@@@@AOOOOH@@@@@"
"@@@@@GO@@ON@@@@@"
"@@@@AO@@@@OH@@@@"
"@@@@CH@@@@CL@@@@"
"@@@@OG@B@@@O@@@@"
"@@@ANDHBFCHGH@@@"
"@@@CHDJJID@AL@@@"
"@@@GLGBJOC@@N@@@"
"@@@NFEJJH@H@G@@@"
"@@@LBDKJGG@@C@@@"
"@@ALC@@@@@@@CH@@"
"@@CHAH@@@CH@GL@@"
"@@C@@L@@@DDAIL@@"
"@@G@@CCOLHBB@N@@"
"@@F@@AN@C@AL@F@@"
"@AN@@@D@A@@@@GL@"
"@CLLHDD@@L@@@CO@"
"@LMBH@D@@F@LDKCH"
"AHMBNDDIGCABDK@L"
"B@MBJDDJDIABDK@F"
"FCHLNDDLGAINCALG"
"LGH@@DLJDHIBKENC"
"HMH@@LHIG@L@@AKA"
"HIH@F@@@@@D@@AIA"
"HMH@F@@@@@@@@EIA"
"HGH@F@NALEHG@AKA"
"LCN@FAOCNGLMHANC"
"D@ONFAKCFFNLAOLC"
"B@@NFAKCFFFGAN@F"
"CH@@FAKCFFFAH@@L"
"@L@@GMOCNGLMH@CH"
"@GO@GLNALGHG@AN@"
"@AON@@@@@F@@GOH@"
"@@FOON@@@FAOON@@"
"@@GAOOOOOFOOHF@@"
"@@C@@AOOO@N@@L@@"
"@@CHB@@@@@@LAH@@"
"@@ALD@@@@@@DCH@@"
"@@@LL@HDLN@FC@@@"
"@@@OH@HEBI@CG@@@"
"@@@G@@HDHI@@N@@@"
"@@@CH@HDDN@AL@@@"
"@@@AN@HEBH@GH@@@"
"@@@@O@ODLH@O@@@@"
"@@@@CL@@@@CL@@@@"
"@@@@AO@@@@OH@@@@"
"@@@@@GN@@ON@@@@@"
"@@@@@AOOOOH@@@@@"
"@@@@@@AOOH@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@")} {(READBITMAP)(64 64
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@AJJH@@@@@@"
"@@@@@AB@@BH@@@@@"
"@@@@@B@@@@F@@@@@"
"@@@@AH@OO@AH@@@@"
"@@@@B@OOOO@D@@@@"
"@@@@HGOOOOLC@@@@"
"@@@A@HOMOOO@H@@@"
"@@@BAKGMILGHD@@@"
"@@@DGKEEFKONB@@@"
"@@@@CHME@LOOA@@@"
"@@@IIJEEGOGOH@@@"
"@@ACMKDEHHOOLH@@"
"@@BCLOOOOOOOLF@@"
"@@@GNGOOOLGOHB@@"
"@@DOOCOOOKKNFC@@"
"@@HOOLL@CGMMOAH@"
"@@IOONAOLONCOIL@"
"@@AOOOKONOOOOHC@"
"@ACCGKKOOCOOOL@H"
"@CBMGOKOOIOCKDLD"
"@OBMAKKFHLNMKDOB"
"COBMEKKEKFNMKDOI"
"GLGCAKKCHNFALNCH"
"OHGOOKCEKGFMDJAL"
"OBGOOCGFHOCOONDN"
"OFGOIOOOOOKOONFN"
"OBGOIOOOOOOOOJFN"
"OHGOIOANCJGHONDN"
"OLAOIN@LAHCBGNAL"
"GO@AINDLIIACN@CL"
"AOOAINDLIIIHNAOI"
"@OOOINDLIIINGOOB"
"@GOOHB@LAHCBGOLD"
"@@AOHCANCHGHON@H"
"@B@AOOOOOIOOH@N@"
"@AI@@AOOOIN@@AH@"
"@@HN@@@@@I@@GH@@"
"@@DOON@@@OAOOB@@"
"@@DGMOOOOOOCNB@@"
"@@BCKOOOOOOKLD@@"
"@@@CCOGKCAOILH@@"
"@@@HGOGJMFOLHH@@"
"@@@@OOGKGFOOA@@@"
"@@@@GOGKKAONC@@@"
"@@@AAOGJMGOHD@@@"
"@@@@HO@KCGO@H@@@"
"@@@@DCOOOOLC@@@@"
"@@@@B@OOOO@D@@@@"
"@@@@AH@OO@AH@@@@"
"@@@@@F@@@@F@@@@@"
"@@@@@CN@@GH@@@@@"
"@@@@@@AOOH@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@")} {(READBITMAP)(64 64
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@GOOH@@@@@@"
"@@@@@AOOOOH@@@@@"
"@@@@@GOOOON@@@@@"
"@@@@AOOOOOOH@@@@"
"@@@@COOOOOOL@@@@"
"@@@@OOOOOOOO@@@@"
"@@@AOOOOOOOOH@@@"
"@@@COOOOOOOOL@@@"
"@@@GOOOOOOOON@@@"
"@@@OOOOOOOOOO@@@"
"@@@OOOOOOOOOO@@@"
"@@AOOOOOOOOOOH@@"
"@@COOOOOOOOOOL@@"
"@@COOOOOOOOOON@@"
"@@GOOOOOOOOOON@@"
"@@OOOOOOOOOOOO@@"
"@@OOOOOOOOOOOOL@"
"@AOOOOOOOOOOOOO@"
"@AOOOOOOOOOOOOOH"
"@OOOOOOOOOOOOOOL"
"AOOOOOOOOOOOOOON"
"COOOOOOOOOOOOOOO"
"GOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"GOOOOOOOOOOOOOOO"
"AOOOOOOOOOOOOOON"
"@GOOOOOOOOOOOOOL"
"@GOOOOOOOOOOOOOH"
"@COOOOOOOOOOOOO@"
"@AOOOOOOOOOOOOH@"
"@@OOOOOOOOOOON@@"
"@@GOOOOOOOOOON@@"
"@@GOOOOOOOOOON@@"
"@@COOOOOOOOOOL@@"
"@@AOOOOOOOOOOH@@"
"@@@OOOOOOOOOOH@@"
"@@@GOOOOOOOOO@@@"
"@@@COOOOOOOOO@@@"
"@@@AOOOOOOOOL@@@"
"@@@@OOOOOOOOH@@@"
"@@@@GOOOOOOO@@@@"
"@@@@COOOOOOL@@@@"
"@@@@AOOOOOOH@@@@"
"@@@@@GOOOON@@@@@"
"@@@@@COOOOH@@@@@"
"@@@@@@AOOH@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@")} {(READBITMAP)(64 64
"HHHHHHHHDHHHHHHH"
"HHHHHHHCHHHHHHHH"
"BBBBBBBNNBBBBBBB"
"BBBBBBG@ALBBBBBB"
"HHHHHIL@@CHHHHHH"
"HHHHHN@A@@G@HHHH"
"BBBBG@@CH@ALBBBB"
"BBBCH@@GL@@CJBBB"
"HHIL@@@CH@@@G@HH"
"HAN@@@@A@@@@@O@H"
"@N@@@@@@@@@@@@NB"
"COOOOOOOOOOOOOOJ"
"J@@@@@@@@@@@@@@H"
"KOOOOOOOOOOOOOOH"
"@IAAAAAAAAAAAABB"
"BHOH@@LF@@AHD@BB"
"HHFL@@DB@@@H@@BH"
"HHFLGHLFCLGILGBH"
"BHLLMHLFFLMHLMJB"
"BHOIIHLFLMK@MIJB"
"HHLAKAHLMIKAIIJH"
"HIHAKAHLMIKAIKBH"
"BKL@OILNGLOILNBB"
"BH@@@@@@@@@@@@BB"
"HOOOOOOOOOOOOONH"
"H@H@B@@@@@@H@BHH"
"BBH@COOOOOOH@BBB"
"BBOONBBBBBBOONBB"
"HHD@DHHHHHHD@DHH"
"HHGOLHHHHHHGOLHH"
"BBB@JBBBBBBB@JBB"
"BBB@JBBBBBBB@JBB"
"HHJ@I@@@@@@J@HHH"
"HHJ@HOOOOONJ@HHH"
"BBB@JD@@@@DB@JBB"
"BBB@JGOOOOLB@JBB"
"HHJ@HJJJJJHJ@HHH"
"HHJ@HKOOOOHJ@HHH"
"BBB@JBHA@BJB@JBB"
"BBB@JCHA@CJB@JBB"
"HHJ@HJHA@BHJ@HHH"
"HHJ@HKHA@CHJ@HHH"
"BBB@JBHA@BJB@JBB"
"BBB@JCHA@CJB@JBB"
"HHJ@HJHA@BHJ@HHH"
"HHJ@HKHA@CHJ@HHH"
"BBB@JBHA@BJB@JBB"
"BBB@JCHA@CJB@JBB"
"HHJ@HJHEDBHJ@HHH"
"HHJ@HKHEDCHJ@HHH"
"BBB@JBHEDBJB@JBB"
"BBGOLCHA@CJGOLBB"
"HHD@DJHA@BHD@DHH"
"HHOONKHA@CHOONHH"
"BBH@BBHA@BJH@BBB"
"BBH@BCHA@CJH@BBB"
"H@H@BJHA@BHH@BHH"
"HOOOOOOOOOOOOOOB"
"@H@@@@@@@@@@@@A@"
"COOOOOOOOOOOOOOL"
"J@@@@@@@@@@@@@@D"
"OOOOOOOOOOOOOOOO"
"H@@@@@@@@@@@@@@A"
"OOOOOOOOOOOOOOOO")})
(* (c) Copyright 1983 Xerox Corporation)
(DECLARE: DONTCOPY
(FILEMAP (NIL (1469 8150 (HistIcon 1479 . 1772) (LoopsIcon 1774 . 2274) (SetUpScreen 2276 . 3522) (
SetUpWindows 3524 . 4559) (UE 4561 . 4927) (PPW 4929 . 5445) (PrintScreen 5447 . 6520) (PromptEval
6522 . 7266) (PromptRead 7268 . 7977) (MakeLoopsForm 7979 . 8148)))))
STOP