(let 
((*EXPLORE* *HIDDEN-GUIDEMAP*)) 
(SEND *EXPLORE* :TITLE "Explore Your Data") 
(SEND *EXPLORE* :NUM-ICONS 12) 
(SEND *EXPLORE* :CONNECTION-LIST (QUOTE ((1) (2 3) (4) (4) (5 6) (7) (7) (8 9) (11) (NIL) (NIL) (NIL)))) 
(SEND *EXPLORE* :X (QUOTE (100 100 37 162 99 47 160 47 47 160 328 96))) 
(SEND *EXPLORE* :Y (QUOTE (11 40 73 73 106 137 150 182 212 212 29 247))) 
(SEND *EXPLORE* :ICON-TYPE (QUOTE (7 6 6 6 7 6 6 7 6 6 6 6))) 
(SEND *EXPLORE* :ICON-TITLE (QUOTE (" " "Browse Data" "Visualize Data" "Summarize Data" " " "List Observations" "List Variables" " " "Create Data" "Return" "Return" "GoTo:New Data"))) 
(SEND *EXPLORE* :ICON-NUMBER-LIST (QUOTE NIL)) 
(SEND *EXPLORE* :REDRAW-ORDER (QUOTE (2 3 4 5 6 10 7 8 11 1 9 0))) 
(SEND *EXPLORE* :SELECTED-ICON 0) 
(SEND *EXPLORE* :TOOLBAR T) 
(SEND *EXPLORE* :NUM-DATA-ICONS 0) 
(SEND *EXPLORE* :NUM-MODEL-ICONS 0) 
(SEND *EXPLORE* :DATA-ICON-NUMBER-LIST (QUOTE NIL)) 
(SEND *EXPLORE* :MODEL-ICON-NUMBER-LIST (QUOTE NIL)) 
(SEND *EXPLORE* :SELECTED-DATA-ICON NIL) 
(SEND *EXPLORE* :PREVIOUSLY-SELECTED-DATA-ICON NIL) 
(SEND *EXPLORE* :NUM-DATA-MENU-ITEMS NIL) 
(SEND *EXPLORE* :NUM-MODEL-MENU-ITEMS NIL) 
(SEND *EXPLORE* :ACTIVE-BUTTON-LIST (QUOTE (1 9))) 
(LET ((N (QUOTE 12)) (X (QUOTE (100 100 37 162 99 47 160 47 47 160 328 96))) (Y (QUOTE (11 40 73 73 106 137 150 182 212 212 29 247))) (ICON-TITLE (QUOTE (" " "Browse Data" "Visualize Data" "Summarize Data" " " "List Observations" "List Variables" " " "Create Data" "Return" "Return" "GoTo:New Data"))) (ICON-TYPE (QUOTE (7 6 6 6 7 6 6 7 6 6 6 6))) (ICON-LIST NIL)) (DOTIMES (I N) (SETF ICON-LIST (COMBINE ICON-LIST (MAKE-ICON *EXPLORE* (SELECT X I) (SELECT Y I) (SELECT ICON-TITLE I) (SELECT ICON-TYPE I)))) (SEND *EXPLORE* :ICON-LIST (REST ICON-LIST)))) 
(SEND *EXPLORE* :DATA-ICON-LIST (SELECT (SEND *EXPLORE* :ICON-LIST) (SEND *EXPLORE* :DATA-ICON-NUMBER-LIST))) 
(SEND *EXPLORE* :MODEL-ICON-LIST (SELECT (SEND *EXPLORE* :ICON-LIST) (SEND *EXPLORE* :MODEL-ICON-NUMBER-LIST))) 
(SEND (SELECT (SEND *EXPLORE* :ICON-LIST) 0) :NUM-IN-CONNECTIONS 0) 
(SEND (SELECT (SEND *EXPLORE* :ICON-LIST) 0) :NUM-IN-CONNECTED-NOW 0) 
(SEND (SELECT (SEND *EXPLORE* :ICON-LIST) 4) :NUM-IN-CONNECTIONS 2) 
(SEND (SELECT (SEND *EXPLORE* :ICON-LIST) 4) :NUM-IN-CONNECTED-NOW 0) 
(SEND (SELECT (SEND *EXPLORE* :ICON-LIST) 7) :NUM-IN-CONNECTIONS 2) 
(SEND (SELECT (SEND *EXPLORE* :ICON-LIST) 7) :NUM-IN-CONNECTED-NOW 0) )