(let 
((*LOAD-DATA* *HIDDEN-GUIDEMAP*)) 
(SEND *LOAD-DATA* :TITLE "Get Your Data") 
(SEND *LOAD-DATA* :NUM-ICONS 6) 
(SEND *LOAD-DATA* :CONNECTION-LIST (QUOTE ((4) (4) (4) (4) (NIL) (0 1 2 3)))) 
(SEND *LOAD-DATA* :X (QUOTE (50 91 168 128 50 109))) 
(SEND *LOAD-DATA* :Y (QUOTE (57 89 157 122 201 26))) 
(SEND *LOAD-DATA* :ICON-TYPE (QUOTE (6 6 6 6 7 7))) 
(SEND *LOAD-DATA* :ICON-TITLE (QUOTE ("Load Data" "New Data" "Simulate Data" "Import Data" "Link:Data Analysis" " "))) 
(SEND *LOAD-DATA* :ICON-NUMBER-LIST (QUOTE NIL)) 
(SEND *LOAD-DATA* :REDRAW-ORDER (QUOTE (4 5 0 3 1 2))) 
(SEND *LOAD-DATA* :SELECTED-ICON 2) 
(SEND *LOAD-DATA* :TOOLBAR T) 
(SEND *LOAD-DATA* :NUM-DATA-ICONS 0) 
(SEND *LOAD-DATA* :NUM-MODEL-ICONS 0) 
(SEND *LOAD-DATA* :DATA-ICON-NUMBER-LIST (QUOTE NIL)) 
(SEND *LOAD-DATA* :MODEL-ICON-NUMBER-LIST (QUOTE NIL)) 
(SEND *LOAD-DATA* :SELECTED-DATA-ICON NIL) 
(SEND *LOAD-DATA* :PREVIOUSLY-SELECTED-DATA-ICON NIL) 
(SEND *LOAD-DATA* :NUM-DATA-MENU-ITEMS NIL) 
(SEND *LOAD-DATA* :NUM-MODEL-MENU-ITEMS NIL) 
(SEND *LOAD-DATA* :ACTIVE-BUTTON-LIST (QUOTE (0 1 3 2))) 
(LET ((N (QUOTE 6)) (X (QUOTE (50 91 168 128 50 109))) (Y (QUOTE (57 89 157 122 201 26))) (ICON-TITLE (QUOTE ("Load Data" "New Data" "Simulate Data" "Import Data" "Link:Data Analysis" " "))) (ICON-TYPE (QUOTE (6 6 6 6 7 7))) (ICON-LIST NIL)) (DOTIMES (I N) (SETF ICON-LIST (COMBINE ICON-LIST (MAKE-ICON *LOAD-DATA* (SELECT X I) (SELECT Y I) (SELECT ICON-TITLE I) (SELECT ICON-TYPE I)))) (SEND *LOAD-DATA* :ICON-LIST (REST ICON-LIST)))) 
(SEND *LOAD-DATA* :DATA-ICON-LIST (SELECT (SEND *LOAD-DATA* :ICON-LIST) (SEND *LOAD-DATA* :DATA-ICON-NUMBER-LIST))) 
(SEND *LOAD-DATA* :MODEL-ICON-LIST (SELECT (SEND *LOAD-DATA* :ICON-LIST) (SEND *LOAD-DATA* :MODEL-ICON-NUMBER-LIST))) 
(SEND (SELECT (SEND *LOAD-DATA* :ICON-LIST) 4) :NUM-IN-CONNECTIONS 4) 
(SEND (SELECT (SEND *LOAD-DATA* :ICON-LIST) 4) :NUM-IN-CONNECTED-NOW 0) 
(SEND (SELECT (SEND *LOAD-DATA* :ICON-LIST) 5) :NUM-IN-CONNECTIONS 0) 
(SEND (SELECT (SEND *LOAD-DATA* :ICON-LIST) 5) :NUM-IN-CONNECTED-NOW 0) )