(FILECREATED "26-Apr-85 14:51:47" ("compiled on " {FLOPPY}SMENUEDIT.;1) "20-Dec-84 12:07:22" tcompl'd in "INTERLISP-D 20-Dec-84 ..." dated "20-Dec-84 12:16:57") (FILECREATED "26-Apr-85 14:40:50" {FLOPPY}SMENUEDIT.;1 27951 changes to: (VARS SMENUEDITCOMS)) ADD-SMENUITEM D1 (P 27Q NEWITEMBM P 26Q RHGT P 25Q RWID P 24Q RBOT P 23Q RLEF P 17Q NEWITEM P 16Q FONT P 15Q REG P 14Q PROMPT P 13Q FN P 12Q LABEL P 11Q TEMP P 10Q HGT P 7 WID P 6 BOT P 5 LEF P 4 ITEMS P 3 BMASSOC P 2 BORDER P 0 OLDTTY I 1 W I 0 SMENU F 30Q TtyDisplayStream) W0` o @ @@ohoo __dldg'gO OOgOgOh_ohoo _ohoo _OO _ohoo Po GB_ggggg AMN AMONO o O_0Odd _ O" O h_$O &_"O$_AOJ ohoo _OOOOOh_Pggggg O Y`IO OO _.jdAO&O(O*O, OO.K @OLH h(707Q TTYDISPLAYSTREAM 667Q PUTASSOC 656Q BITBLT 635Q TEXTMAP 625Q EVAL 607Q EVAL 601Q GET-REGIONVALS 524Q TTYIN 503Q DRAW-BORDER 436Q EVAL 404Q PROMPTPRINT 374Q PRINTBELLS 367Q WHICHW 351Q WHICHW 342Q GET-REGIONVALS 314Q GETREGION 307Q TERPRI 302Q PROMPTPRINT 271Q TTYIN 246Q MKSTRING 227Q TTYIN 203Q TTYIN 126Q MKLST 71Q TTYIN 24Q TERPRI 21Q PROMPTPRINT 12Q TTYDISPLAYSTREAM) (674Q SMENU 614Q BITMAPTYPE# 575Q REG 572Q RHGT 567Q RWID 564Q RBOT 561Q RLEF 336Q TEMP 333Q HGT 330Q WID 325Q BOT 322Q LEF 153Q QUOTE 143Q ' 121Q QUOTE 110Q ' 44Q SMENU 36Q SMENU 30Q SMENU 7 PROMPTWINDOW) ( 521Q (NORAISE LISPXREAD) 515Q "FONT FOR TEXT IN REGION: " 510Q "FONT FOR REGION: " 401Q "SWEEP OUT A REGION FOR THE NEW ITEM " 277Q "SWEEP OUT A REGION FOR THE NEW ITEM " 266Q (NORAISE LISPXREAD) 262Q "REGION FOR ITEM: (L B W H) " 255Q "REGION: " 224Q (NORAISE LISPXREAD) 220Q "WILL BE HELP STIING FOR THIS ITEM" 213Q "HELP STRING: " 200Q (NORAISE LISPXREAD) 174Q "FUNCTION ASSOCIATED WITH SELECTING THIS NEW ITEM" 167Q "FUNCTION: " 66Q (NORAISE LISPXREAD) 62Q "THE LABEL MUST BE A STRING OR EVAL TO 1. A BITMAP 2. A LIST OF ATOMS " 55Q "ITEM LABEL: " 16Q "** INTERACTIVE ADD **") DELETE-SMENUITEM D1 (P 7 HGT P 6 WID P 5 BOT P 4 LEF P 3 ITEMBM P 2 BORDER P 1 ITEMLST P 0 REG I 2 W I 1 ITEM I 0 SMENU) ZA @@ A@ Dggggg o !@AI @ABJi @gA h(126Q SMENUPROP 115Q ERASE-SMENUITEM 101Q REMOVE 66Q MOUSECONFIRM 57Q GET-REGIONVALS 31Q ASSOC 3 GET-REGION) (122Q LASTDELETEDITEM 74Q SMENU 53Q REG 50Q HGT 45Q WID 42Q BOT 37Q LEF 24Q SMENU 15Q SMENU 7 SMENU) ( 63Q "ARE YOU SURE YOU WANT TO DELETE THIS ITEM?") DEMO D1 (F 0 S3 F 1 S2 F 2 SMENU-DEMO-SAVE) 9`cQ Q`P Pd`Pl d l (63Q GETPROMPTWINDOW 56Q ADDSMENU 45Q SETUP3 30Q BOUNDP 23Q SETUP2 10Q BOUNDP) (66Q PROMPTWINDOW 37Q SMENUTYPE# 16Q SMENUTYPE# 2 PROMPTWINDOW) () DONOTHING D1 (L (2 C 1 B 0 A)) hNIL NIL () DRAW-BORDER D1 (P 3 HGT P 2 WID P 1 BOT P 0 LEF I 3 ERASEFLG I 2 BORDER I 1 REGION I 0 IMAGE) O@ggggg ABC kdB@Cjn @HJIK@HJIKBdggCjn h(113Q BITBLT 52Q GRID 33Q GET-BOXREGION 25Q GET-REGIONVALS) (100Q REPLACE 75Q TEXTURE 21Q REGION 16Q HGT 13Q WID 10Q BOT 5 LEF) () EDITSMENU D1 (P 3 PROMPTW P 2 W P 1 OUTLINE P 0 SMENUW I 1 NEWIMAGEFLG I 0 SMENU) @@ @gH@hjdA Jlgl g [ K Kgg Jgg @g@ h@g` @g@ @g@ @g@ K@g@g@g Oo h(343Q PROMPTPRINT 333Q PRINTBELLS 324Q CLOSEW 253Q SMENUPROP 235Q SMENUPROP 217Q SMENUPROP 201Q SMENUPROP 161Q HCOPYALL 140Q PUTWINDOWPROP 125Q PUTWINDOWPROP 112Q OPENW 105Q REMOVEPROMPTWINDOW 101Q GETPROMPTWINDOW 76Q FONTCREATE 55Q ADDSMENU) (314Q DONOTHING 311Q SMENU 302Q DONOTHING 277Q SMENU 270Q GET-SELECTION 265Q SMENU 260Q PROMPTWINDOW 246Q SMENU 242Q SAVESELECTEDFN 230Q SMENU 224Q SAVEUNHELDFN 212Q SMENU 206Q SAVEHELDFN 176Q PROMPTWINDOW 173Q OLDPROMPTW 154Q SMENU 150Q OLDUSERDATA 145Q SMENU 135Q DONOTHING 132Q RIGHTBUTTONFN 122Q DONOTHING 117Q RIGHTBUTTONFN 73Q BOLD 66Q GACHA 30Q OLDUSERDATA 22Q SMENU 11Q SMENU 3 SMENU) ( 340Q "CANNOT DO NESTED EDITS ON ONE SMENU") ERASE-SMENUITEM D1 (P 20Q INTERSECT P 17Q IHGT P 16Q IWID P 15Q IBOT P 14Q ILEF P 13Q IH P 12Q IW P 11Q IB P 10Q IL P 7 I P 6 HGT P 5 BOT P 4 WID P 3 LEF P 2 BMASSOC P 1 ITEMLST P 0 REGION I 4 BLKFLG I 3 BORDER I 2 WINDOW I 1 ITEM I 0 SMENU F 21Q W F 22Q IREG) A @@Cggggg BHCi W"KMW"KMLNggDnj AI dO c$H rggggg W"W$C W$H _ ggggg OJ jdW"OOOO W"OOW"OOOOgg xh(320Q BITBLT 265Q BITBLT 244Q ASSOC 235Q GET-REGIONVALS 207Q INTERSECTREGIONS 200Q DRAW-BORDER 167Q GET-REGIONVALS 137Q REGIONSINTERSECTP 131Q GET-REGION 114Q REMOVE 107Q BITBLT 54Q DRAW-BORDER 45Q GET-REGIONVALS 3 GET-REGION) (314Q REPLACE 311Q INPUT 231Q INTERSECT 226Q IH 223Q IW 220Q IB 215Q IL 163Q IREG 160Q IHGT 155Q IWID 152Q IBOT 147Q ILEF 74Q REPLACE 71Q TEXTURE 41Q REGION 36Q HGT 33Q WID 30Q BOT 25Q LEF 15Q SMENU 7 SMENU) () GET-REGIONVALS D1 (I 4 R I 3 H I 2 W I 1 B I 0 L) &D b@D AD BD CD (43Q SET 32Q SET 22Q SET 13Q SET 3 EVAL) NIL () GET-SELECTION D1 (I 2 BUTTON I 1 SMENU I 0 ITEM F 0 SMENU-MENU) P (3 MENU) NIL () M1 D1 NIL 0`dodg dgjdndhHdI NIL (26Q DEFAULTMENUHELDFN 17Q CLRPROMPT 2 MENUTYPE#) ( 10Q (("Add New ITEM" (ADD-SMENUITEM SMENU W) "Will INTERACTIVELY ADD a new ITEM.") ("Delete ITEM" (DELETE-SMENUITEM SMENU ITEM W) "Will DELETE this ITEM from this SMENU.") ("Undelete ITEM" (UNDELETE-SMENUITEM SMENU ITEM W) "Will RESTORE the LAST item DELETED from this SMENU.") ("Move REGION" (MOVEREGION ITEM (GET-REGION ITEM) SMENU T) "Will allow you to MOVE this REGION within this SMENU") ("Shape REGION" (MOVEREGION ITEM (GET-REGION ITEM) SMENU) "Will allow you to RESHAPE this REGION within this SMENU") ("Redraw SMENU" (REDRAW ITEM SMENU W) "Will redraw the SMENU in this WINDOW") ("Reshape SMENU" (RESHAPESMENU ITEM SMENU (fetch (SMENU ITEMS) of SMENU) W) "Will allow you to RESHAPE this SMENU") ("Inspect SMENU" (INSPECT SMENU) "Will call the INSPECTOR on this SMENU") ("EXIT SMENU EDITOR" (REENABLE.SMENU SMENU W) "Will EXIT editor and RESTORE smenu functionality."))) MOVEREGION D1 (P 26Q BPH P 25Q LPW P 24Q NHGT P 23Q NWID P 22Q NBOT P 21Q NLEF P 20Q BHGT P 17Q BWID P 16Q BBOT P 15Q BLEF P 14Q NEWLOC P 13Q HGT P 12Q WID P 11Q BOT P 10Q LEF P 7 BIGREG P 5 IREG P 4 BMASSOC P 3 W P 2 ITEMLST P 1 OUTLINE P 0 BORDER I 3 FIXEDFLG I 2 SMENU I 1 REGION I 0 ITEM F 27Q ITEMBM) WB B BBB%@L c.AHi ggggg ggggg OO_*OO_,COOOOK $@ OlOl o A_ggggg KO"IO$I KO"O&IkB O(IO$k eB@KH KOH C@ ^`NW.jdKO"O$OO @ #@dO L jdKO"O$O&O(gg @l Oo h(523Q PRINTBELLS 517Q PROMPTPRINT 504Q NTH 475Q BITBLT 450Q PUTASSOC 444Q TEXTMAP 432Q EVAL 374Q EVAL 364Q DRAW-BORDER 354Q ERASE-SMENUITEM 342Q WHICHW 325Q FONTHEIGHT 322Q SMENUTITLEFONT 277Q WHICHW 262Q GET-REGIONVALS 232Q PROMPTPRINT 222Q PRINTBELLS 216Q GETREGION 177Q EVAL 170Q GETBOXREGION 130Q GET-REGIONVALS 104Q GET-REGIONVALS 56Q GET-BOXREGION 45Q ASSOC) (471Q REPLACE 466Q INVERT 401Q BITMAPTYPE# 256Q NEWLOC 253Q NHGT 250Q NWID 245Q NBOT 242Q NLEF 124Q BIGREG 121Q BHGT 116Q BWID 113Q BBOT 110Q BLEF 100Q REGION 75Q HGT 72Q WID 67Q BOT 64Q LEF 33Q SMENU 25Q SMENU 17Q SMENU 11Q SMENU 3 SMENU) ( 514Q "PLEASE STAY WITHIN SMENU REGION! " 227Q "CANNOT RESHAPE BITMAPS") REDRAW D1 (P 10Q HGT P 7 WID P 6 BOT P 5 LEF P 4 IREG P 3 I P 2 OUTLINE P 1 BORDER P 0 BMASSOC I 2 W I 1 SMENU I 0 ITEM) AA A hddBJdAJdAA Jdgg A?dK Aggggg BLI KH jdBMNOO @AB (220Q INVERTITEMS 203Q BITBLT 165Q ASSOC 157Q DRAW-BORDER 150Q GET-REGIONVALS 122Q GET-REGION 100Q BITBLT 61Q FONTHEIGHT 56Q SMENUTITLEFONT) (144Q IREG 141Q HGT 136Q WID 133Q BOT 130Q LEF 105Q SMENU 74Q REPLACE 71Q TEXTURE 50Q SMENU 36Q SMENU 17Q SMENU 11Q SMENU 3 SMENU) () REENABLE.SMENU D1 (I 1 W I 0 SMENU F 0 SMENUW) k` @g @g P Ag @@g @@g @@g @@g @@ A (150Q CLOSEW 142Q CREATE-IMAGE 130Q SMENUPROP 113Q SMENUPROP 76Q SMENUPROP 61Q SMENUPROP 46Q PUTWINDOWPROP 36Q OPENW 31Q SMENUPROP 17Q SMENUPROP 10Q CLOSEW 5 EVAL) (136Q SMENU 125Q OLDUSERDATA 121Q SMENU 110Q SAVESELECTEDFN 104Q SMENU 73Q SAVEUNHELDFN 67Q SMENU 56Q SAVEHELDFN 52Q SMENU 43Q RIGHTBUTTONFN 26Q OLDWINDOW 22Q PROMPTWINDOW 14Q OLDPROMPTW 2 PROMPTWINDOW) () RESHAPESMENU D1 (P 14Q I P 7 HGT P 6 WID P 5 TITLEWIDTH P 4 TITLEHEIGHT P 3 TITLEFONT P 2 TITLE P 1 REG P 0 OUTLINE I 3 W I 2 ITEMLST I 1 SMENU I 0 ITEM) KA  AZA [ JK j\AHdBAOO _dOOAHdLBAOO _dOO YAI^AI_IjIjCI hddCjdAAggn @AC ohddKhjdNLh jdCjOLNLg `C ` ` h_ _OOOO_O_O__ _OOOO_O_O_(453Q HOWHIGH 407Q HOWWIDE 377Q OPENW 371Q DETACHWINDOW 363Q ATTACHWINDOW 354Q BITBLT 333Q TEXTMAP 301Q REDRAW 273Q BITBLT 234Q SHAPEW 167Q GETREGION 146Q HOWHIGH 75Q HOWWIDE 36Q STRINGWIDTH 30Q FONTHEIGHT 24Q SMENUTITLEFONT) (374Q PROMPTWINDOW 366Q PROMPTWINDOW 357Q PROMPTWINDOW 350Q INVERT 264Q REPLACE 261Q TEXTURE 254Q SMENU 246Q SMENU 207Q SMENU 174Q SMENU 116Q SMENU 46Q SMENU 14Q SMENU 3 SMENU) ( 305Q (MKLST TITLE)) SETUP2 D1 (F 0 S2) 1`dodl dk dodgdgcNIL (51Q DEFAULTMENUHELDFN 42Q CLRPROMPT 2 SMENUTYPE#) ( 33Q (((QUOTE (first INTERSECTING REGION)) (PRINT "THIS GETS DONE FIRST" PROMPTWINDOW) "TRY SELECTING THE REGION COMMON TO THIS ITEM AND ITEM #2" (207Q 121Q 170Q 101Q) NIL) ((QUOTE (ITEM #2, (SECOND intersecting region) %.)) (PRINT "THIS GETS DONE SECOND" PROMPTWINDOW) "AN EXAMPLE OF INTERSECTING REGIONS." (140Q 12Q 143Q 131Q) NIL) ((QUOTE (SHOW ME THE RECORD FOR THIS SMENU PLEASE !)) (INSPECT S2) "WILL SHOW YOU THE ITEMS LIST FOR THIS SUPER MENU!" (10Q 227Q 405Q 35Q) FITFONT) (BM5 (PROMPTPRINT "CONGRATULATIONS, YOU JUST SELECTED SMILING SAM!") "SMILING SAM" (315Q 12Q 74Q 50Q)) ((QUOTE (HAVE A NICE DAY!)) (PROG NIL (PROMPTPRINT "HAVE A NICE DAY") (CLOSEW (WHICHW)) (SETQ PROMPTWINDOW SMENU-DEMO-SAVE)) "WILL EXIT THE DEMONSTRATION" (12Q 273Q 403Q 74Q) (FONTCREATE (QUOTE HELVETICAD) 30Q (QUOTE BOLD))) ((EXPANDBITMAP BM3 2 2) (PROMPTPRINT "The car of the list for this item is: (EXPANDBITMAP BM3 2 2).") "THIS BITMAP IS TWICE ITS NORMAL SIZE!" (11Q 36Q 120Q 120Q))) 10Q "DEMOMSTRATION OF SUPER MENU") SETUP3 D1 (F 2 S3) F`dogl g HdIdk dl dodgdgc(26Q FONTCREATE) (76Q DEFAULTMENUHELDFN 67Q CLRPROMPT 23Q BOLD 16Q GACHA 2 SMENUTYPE#) ( 60Q (((QUOTE (GACHA 50Q BOLD)) (PROMPTPRINT "GACHA 40 TEXT") "EXAMPLE OF SELECTING SPECIAL FONT" (55Q 431Q 665Q 106Q) (FONTCREATE (QUOTE GACHA) 50Q (QUOTE BOLD))) ((QUOTE (JTS)) (PROMPTPRINT "TIMESROMAND 72") "THIS IS TIMESROMAND" (7 26Q 334Q 154Q) (FONTCREATE (QUOTE TIMESROMAND) 110Q)) ((QUOTE (SELECT THIS ITEM TO CONTINUE)) (PROG NIL (CLOSEW (WHICHW)) (SETQ PROMPTWINDOW (GETPROMPTWINDOW (ADDSMENU S2 (create POSITION XCOORD _ 12Q YCOORD _ 12Q)) 3))) "SELECT THIS ITEM TO SEE MORE FEATURES!" (11Q 211Q 164Q 204Q) (FONTCREATE (QUOTE HELVETICA) 22Q (QUOTE BOLD))) ((QUOTE (This text has been formatted using the FITFONT option, notice the relationship between the size of the region and the size of the letters)) (OR (PROMPTPRINT "YOU JUST SELECTED THIS ITEM") (PRINTBELLS)) "TEXT FORMATTED WITH FITFONT" (360Q 50Q 245Q 335Q) FITFONT) ((QUOTE (This text has been formatted using the FITFONT option, notice the relationship between the size of the region and the size of the letters)) NIL "One more example of FITFONT" (205Q 237Q 143Q 150Q) FITFONT) ((QUOTE (This text has been formatted using the FITFONT option, notice the relationship between the size of the region and the size of the letters)) (OR (PROMPTPRINT "YOU JUST SELECTED THIS ITEM") (PRINTBELLS)) "Another example of FITFONT" (633Q 10Q 146Q 377Q) FITFONT)) 10Q "DEMONSTRATION OF FITFONT IN SUPERMENU") UNDELETE-SMENUITEM D1 (P 10Q HGT P 7 WID P 6 BOT P 5 LEF P 4 RESTREG P 3 RESTITEM P 2 BMASSOC P 1 BORDER P 0 ITEMLST I 2 W I 1 ITEM I 0 SMENU) @@ @@g KKdgo Y Aggggg BLI KJ jdBMNOOgg @gg o @KHh(200Q PROMPTPRINT 170Q SMENUPROP 155Q BITBLT 131Q ASSOC 123Q DRAW-BORDER 114Q GET-REGIONVALS 66Q GET-REGION 60Q PROMPTPRINT 50Q PRINTBELLS 30Q SMENUPROP) (205Q SMENU 165Q RESTORED 162Q LASTDELETEDITEM 151Q REPLACE 146Q INPUT 110Q RESTREG 105Q HGT 102Q WID 77Q BOT 74Q LEF 42Q RESTORED 25Q LASTDELETEDITEM 17Q SMENU 11Q SMENU 3 SMENU) ( 175Q "ITEM RESTORED ... BE MORE CAREFUL NEXT TIME." 55Q "THERE IS NOTHING LEFT TO RESTORE") (PRETTYCOMPRINT SMENUEDITCOMS) (RPAQQ SMENUEDITCOMS ((FNS ADD-SMENUITEM DELETE-SMENUITEM DEMO DONOTHING DRAW-BORDER EDITSMENU ERASE-SMENUITEM GET-REGIONVALS GET-SELECTION M1 MOVEREGION REDRAW REENABLE.SMENU RESHAPESMENU SETUP2 SETUP3 UNDELETE-SMENUITEM) (VARS BM1 BM2 BM3 BM4 BM5) (P (SETQ SMENU-MENU (M1))) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML GET-REGIONVALS) (LAMA))))) (RPAQ BM1 (READBITMAP)) (60 20 "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@GLA@AH@@@@@@@@@" "@DFAHAH@CC@@@@@@" "@DCALAH@CG@CN@@@" "@DAADCH@FF@FF@@@" "@DAAFFHGOOHDF@@@" "@DAACDHGOOH@F@@@" "@GOAALH@LL@@F@@@" "@DBAAHHAIH@@F@@@" "@DCA@@HOON@@F@@@" "@DAA@@HOON@@F@@@" "@DAA@@HCC@@@F@@@" "@DAA@@HCC@@@F@@@" "@DAA@@HFF@@@F@@@" "@DGA@@HFF@@COL@@" "@GLA@@H@@@@COL@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@") (RPAQ BM2 (READBITMAP)) (50 200 "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "AL@AON@@@@@L@@@@" "GN@COO@GH@AN@@@@" "OL@COO@ON@AN@@@@" "OL@CON@OO@AN@@@@" "OH@CL@@OO@AO@@@@" "OOLCN@@OOCOOH@@@" "OONCOL@OKGOOH@@@" "OONAON@OGOOOL@@@" "OOL@OO@OGKOOL@@@" "OH@@COAOGHGOL@@@" "GL@@@OAOGH@CL@@@" "GL@@AOAOOH@GL@@@" "CN@CONAOOH@GL@@@" "CN@GONAOOH@GH@@@" "AL@GOL@OO@@GH@@@" "@@@COH@OL@@C@@@@" "@@@@@@@GH@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@L@@@@@@@@@@@@@@" "AN@@@@@@@@@@@@@@" "CN@@@@@@@@@@@@@@" "GO@@@@@@@@@@@@@@" "OO@@@@@@@@@@@@@@" "OOH@@@@@@@@@@@@@" "OGH@@@@@@@@@@@@@" "NGL@@@@@@@@@@@@@" "OKL@@@@@@@@@@@@@" "OOL@@@@@@@@@@@@@" "COH@@@@@@@@@@@@@" "AN@@@@@@@@@@@@@@" "AN@@@@@@@@@@@@@@" "AN@@@@@@@@@@@@@@" "AN@@@@@@@@@@@@@@" "AN@@@@@@@@@@@@@@" "AN@@@@@@@@@@@@@@" "AO@@@@@@@@@@@@@@" "@O@@@@@@@@@@@@@@" "@O@@@@@@@@@@@@@@" "@O@@@@@@@@@@@@@@" "@O@@@@@@@@@@@@@@" "@O@@@@@@@@@@@@@@" "@O@@@@@@@@@@@@@@" "@O@@@@@@@@@@@@@@" "@O@@@@@@@@@@@@@@" "@O@@@@@@@@@@@@@@" "@O@@@@@@@@@@@@@@" "@O@@@@@@@@@@@@@@" "@F@@@@@@@@@@@@@@" "GN@@@@@@@@@@@@@@" "OO@@@@@@@@@@@@@@" "OOL@@@@@@@@@@@@@" "OON@@@@@@@@@@@@@" "NGOH@@@@@@@@@@@@" "NAOL@@@@@@@@@@@@" "L@GL@@@@@@@@@@@@" "L@CL@@@@@@@@@@@@" "H@CL@@@@@@@@@@@@" "@@CL@@@@@@@@@@@@" "@@CL@@@@@@@@@@@@" "@CCL@@@@@@@@@@@@" "@ACL@@@@@@@@@@@@" "@@CL@@@@@@@@@@@@" "@@CL@@@@@@@@@@@@" "@@GL@@@@@@@@@@@@" "@OOL@@@@@@@@@@@@" "OOON@@@@@@@@@@@@" "OOOOL@@@@@@@@@@@" "OOOOO@@@@@@@@@@@" "OONGOL@@@@@@@@@@" "OOLCOOH@@@@@@@@@" "@@@@COL@@@@@@@@@" "@@@@@OL@@@@@@@@@" "FG@@@CH@@@@@@@@@" "OOH@@@@@@@@@@@@@" "OOL@@@@@@@@@@@@@" "OOL@@@@@@@@@@@@@" "OCL@@@@@@@@@@@@@" "OGL@@@@@@@@@@@@@" "OGL@@@@@@@@@@@@@" "OOH@@@@@@@@@@@@@" "OOH@@@@@@@@@@@@@" "GO@@@@@@@@@@@@@@" "CL@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "GL@@@@@@@@@@@@@@" "ON@@@@@@@@@@@@@@" "OO@@@@@@@@@@@@@@" "OO@@@@@@@@@@@@@@" "NO@@@@@@@@@@@@@@" "OO@@@@@@@@@@@@@@" "OO@@@@@@@@@@@@@@" "OO@@@@@@@@@@@@@@" "ON@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@L@@@@@@@@@@@@@@" "AN@@@@@@@@@@@@@@" "AN@@@@@@@@@@@@@@" "AN@@@@@@@@@@@@@@" "AN@@@@@@@@@@@@@@" "AN@@@@@@@@@@@@@@" "AN@@@@@@@@@@@@@@" "AN@@@@@A@@@@@@@@" "AN@@@@@@@@@@@@@@" "AN@@@@@@@@@@@@@@" "AN@@@@@@@@@@@@@@" "ANA@@@@@@@@@@@@@" "ANCH@@@@@@@@@@@@" "INOH@@@@@@@@@@@@" "MOOH@@@@@@@@@@@@" "OOO@@@@@@@@@@@@@" "OON@@@@@@@@@@@@@" "OOL@@@@@@@@@@@@@" "OOH@@@@@@@@@@@@@" "GO@@@@@@@@@@@@@@" "CN@@@@@@@@@@@@@@" "AL@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@G@@@@@@G@@@@@@" "@AOH@@@LLOL@@@@@" "@COMOOOOOON@@@@@" "@OOOOOOOOON@@@@@" "AOOOOOOOOON@@@@@" "AOOOOOOOOON@@@@@" "@NOOOOOOOON@@@@@" "@@GOOOOOOON@@@@@" "@@GOOOOOOOO@@@@@" "@@COOOOOOON@@@@@" "@@@@@CN@@AN@@@@@" "@@@@@@@@@@L@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@CO@AH@L@@@@@@@@" "@CALAHAL@@@@@@@@" "@C@DALCL@@@@@@@@" "@C@DALFL@@@@@@@@" "@C@DANDL@@@@@@@@" "@C@DAKLL@@@@@@@@" "@CGLAIHL@@@@@@@@" "@COLAH@L@@@@@@@@" "@C@FAH@L@@@@@@@@" "@C@BAH@L@@@@@@@@" "@C@FAH@L@@@@@@@@" "@C@NAH@L@@@@@@@@" "@CONAH@L@@@@@@@@" "@COL@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@H@@@@@@@@@@@@@" "@@I@AO@@@@@@@@@@" "@@I@CA@@@@@@@@@@" "@@I@@A@@@@@@@@@@" "@CM@@A@@@@@@@@@@" "@@OL@A@@@@@@@@@@" "@@I@AA@@@@@@@@@@" "@AM@AO@@@@@@@@@@" "@AOLC@@@@@@@@@@@" "@AI@BAH@@@@@@@@@" "@@I@COH@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@COOL@@@@" "CON@@@@AOOON@@@@" "GOOL@@AOOOON@@@@" "GOOOOOOOOOOL@@@@" "COOOOOOON@@@@@@@" "@@COOOOO@@@@@@@@" "@@@GOOOH@@@@@@@@" "@@@@@@@@@@@@@@@@") (RPAQ BM3 (READBITMAP)) (40 40 "O@@@@@@@CO@@" "I@@@@@@@@A@@" "C@@@@@H@@A@@" "C@@@@@H@@A@@" "I@@@@@H@@A@@" "O@@@@AH@@@@@" "@@@@@C@@@@@@" "O@@@@G@@@@@@" "@@@@@N@@@@@@" "O@@GMNL@@@@@" "@@ALGCN@@@@@" "@@A@BCB@@@@@" "@@A@OOC@@@@@" "@@AAH@I@@@@@" "@@AC@@E@@@@@" "@@AL@@C@@@@@" "@@AL@@C@@@@@" "@@@H@@CH@@@@" "@@AH@@AH@@@@" "@@A@@@@L@@@@" "@@C@@@@D@@@@" "@@B@AL@D@@@@" "@@B@CL@D@@@@" "@@C@GD@D@@@@" "@@C@EL@D@@@@" "@@C@MH@L@@@@" "@@AAHL@H@@@@" "@@A@CNAH@@@@" "@@AHCLAH@@@@" "@@@HANA@@@@@" "@@@L@HC@@@@@" "@@@D@HC@@@@@" "@@@F@HB@@@@@" "@@@BALF@@@@@" "@@@CALL@@@@@" "H@@AHHL@@A@@" "H@@@OOH@@A@@" "H@@@@@@@@A@@" "H@@@AL@@@A@@" "OH@@GO@@AO@@") (RPAQ BM4 (READBITMAP)) (40 40 "A@@@CLDL@@@@" "AFOGAKLK@@@@" "@@JAHNON@@@@" "@OGOL@LC@@@@" "BIAOGODGO@@@" "BDG@OILMK@@@" "GMLAHFFDB@@@" "BOOO@BGMN@@@" "BOL@@COMJ@@@" "FNL@@@@OOL@@" "FOAO@F@MDD@@" "EJAILG@OIL@@" "GCCBDMHKKH@@" "KKBFEJLIOH@@" "KN@@@@DOFH@@" "KL@@@@@GM@@@" "C@B@@@@BM@@@" "N@B@C@DBKD@@" "K@B@GLDCJD@@" "F@F@LFDAKH@@" "LCLAJJDAO@@@" "N@D@@@NAL@@@" "B@D@@AMAH@@@" "G@G@@AHC@@@@" "AHCH@GHC@@@@" "@HAOOOHF@@@@" "@DAONK@B@@@@" "@F@LCB@F@@@@" "@C@F@F@L@@@@" "@A@COL@D@@@@" "@AL@@@AH@@@@" "@AN@@@F@@@@@" "@@F@@AL@@@@@" "@@CO@O@@@@@@" "@@@OOJ@@@@@@" "@@@L@CN@@@@@" "O@ON@CCON@@@" "HO@F@O@@C@@@" "@@@OOI@@@@@@" "@@@@@@@@@@@@") (RPAQ BM5 (READBITMAP)) (60 40 "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@H@@" "@@@@@@@@D@@@@@@@" "@@@@@@@@L@@@A@@@" "@@@@@@G@L@@@AH@@" "@@@@@@OIL@@@@@@@" "@@@@@CLOGH@@@@@@" "@@@@@FLCCN@@A@@@" "@@@@@DHFGO@@@@@@" "@@@@@MHLLAH@A@@@" "@@@@AK@IH@H@AH@@" "@@@@CFAIH@D@BH@@" "@@@@BLCC@@B@CH@@" "@@@@OHFB@NC@@@@@" "@@@AO@LFAJA@@@@@" "@@@AFAHDADA@GL@@" "@@@CLC@L@@A@DD@@" "@@@G@FAHL@A@DD@@" "@@@F@LCAH@CLFL@@" "@@@DAHFADCCFOH@@" "@@@FA@DA@GACN@@@" "@@@CACNAHA@OL@@@" "@@@AICL@@@AOH@@@" "@@@@OCN@@@AI@@@@" "@@@GNCL@@@C@H@@@" "@@@D@GH@@@B@H@@@" "@@@L@OH@@AN@H@@@" "@@@HKOH@@@L@H@@@" "@@@HKOO@@@@BH@@@" "@@@HOOOH@@@BH@@@" "@@@OOOOL@@@C@@@@" "@@@@GOOL@@@A@@@@" "@@@@AOLD@@@B@@@@" "@@@@@OHD@@@F@@@@" "@@@@@OOL@@@L@@@@" "@@@@@GON@@C@@@@@" "@@@@@@OOOOL@@@@@" "@@@@@@GN@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@") (SETQ SMENU-MENU (M1)) NIL