home *** CD-ROM | disk | FTP | other *** search
/ The AGA Experience 2 / agavol2.iso / software / utilities / icon_tools / iconian296 / sources / testpu.e < prev   
Text File  |  1995-10-07  |  38KB  |  784 lines
  1. OPT PREPROCESS
  2.  
  3. /*
  4.  *
  5.  *        Modified HEAVILY from rkmbutclass source code.
  6.  *
  7.  */
  8.  
  9. MODULE    'graphics/view'
  10. MODULE 'utility',
  11.              'amigalib/boopsi',
  12.              'tools/installhook',
  13.              'devices/inputevent',
  14.              'graphics/rastport',
  15.              'intuition/cghooks',
  16.              'intuition/classes',
  17.              'intuition/classusr',
  18.              'intuition/gadgetclass',
  19.              'intuition/icclass',
  20.              'intuition/imageclass',
  21.              'intuition/intuition',
  22.              'intuition/screens',
  23.              'utility/tagitem'
  24.  
  25. MODULE    'graphics/text'
  26. MODULE    'mod/fonts'
  27. MODULE    'gadgets/popup'
  28. MODULE    'exec/memory'
  29.  
  30. MODULE    'dos/dos','dos/dosextens','dos/dosasl'
  31. MODULE    'libraries/gadtools'
  32. MODULE    'exec/lists','exec/nodes'
  33. MODULE    'amigalib/lists','mod/lists'
  34. MODULE    'mod/compare'
  35. MODULE    'amigalib/lists'
  36.  
  37. MODULE    'popup'
  38. MODULE    'gadgets/popup'
  39. MODULE    'chunkyimage','class/chunkyimage'
  40. MODULE    'exec/nodes','exec/lists'
  41. MODULE    'intuition/intuition','intuition/imageclass','intuition/classes','intuition/gadgetclass','intuition/classusr','intuition/icclass'
  42. MODULE    'libraries/gadtools'
  43. MODULE    'graphics/rastport'
  44. MODULE    'utility','utility/tagitem'
  45.  
  46. PROC main() HANDLE
  47.     DEF drawinfo,scr=0
  48.     DEF objlist=0:PTR TO mlh
  49.     DEF objlist2=0
  50.     DEF objlist3=0:PTR TO mlh
  51.     DEF objlist4=0:PTR TO mlh
  52.     DEF i,ii
  53.     DEF w=NIL:PTR TO window, rkmbutcl=NIL
  54.     DEF    integer1=NIL:PTR TO gadget
  55.     DEF    integer2=NIL:PTR TO gadget
  56.     DEF    integer3=NIL:PTR TO gadget
  57.     DEF    integer4=NIL:PTR TO gadget
  58.     DEF but1=NIL:PTR TO gadget
  59.     DEF but2=NIL:PTR TO gadget
  60.     DEF but3=NIL:PTR TO gadget
  61.     DEF but4=NIL:PTR TO gadget
  62.     DEF chunkyimage_class
  63.     DEF fillrect=0
  64.     DEF imobj=0
  65.     DEF obj:PTR TO image
  66.     DEF obj2:PTR TO image
  67.     DEF obj3
  68.     DEF mchunk:PTR TO image
  69.     DEF node:PTR TO imagenode
  70.     DEF strings[250]:LIST
  71.     DEF bases[250]:LIST
  72.     DEF string[500]:STRING
  73.     DEF apath=NIL:PTR TO anchorpath
  74.     DEF fileinfo=NIL:PTR TO fileinfoblock
  75.     DEF    achain=NIL:PTR TO achain
  76.     DEF err,first
  77.     DEF nummuiobjs=0
  78.     DEF propg:PTR TO gadget
  79.     DEF propg2:PTR TO gadget
  80.     DEF propg3:PTR TO gadget
  81.     DEF propg4:PTR TO gadget
  82.     DEF propg5:PTR TO gadget
  83.     DEF propg6:PTR TO gadget
  84.     DEF propg7:PTR TO gadget
  85.     DEF model
  86.     DEF p2i1
  87.     DEF p2i2
  88.     DEF p2i3
  89.     DEF p2i4
  90.     DEF p2b1
  91.     DEF p2b2
  92.     DEF p2b3
  93.     DEF p2b4
  94.  
  95.     DEF class,code,qual,iaddr
  96.  
  97.     popupbase:=OpenLibrary('gadgets/popup.gadget',3)
  98.     IF popupbase=0
  99.         WriteF('Need popup.gadget v3!\n')
  100.         Raise(0)
  101.     ENDIF
  102.     chunkyimagebase:=OpenLibrary('chunkyimage.class',1)
  103.     IF chunkyimagebase=0
  104.         WriteF('Need chunkyimage.class v1!\n')
  105.         Raise(0)
  106.     ENDIF
  107.     utilitybase:=OpenLibrary('utility.library', 37)
  108.     IF utilitybase=0
  109.         WriteF('Need utility.library v37!\n')
  110.         Raise(0)
  111.     ENDIF
  112.  
  113.     FOR i:=0 TO 249
  114.         strings[i]:=0
  115.     ENDFOR
  116.     i:=0
  117.     first:=0
  118.     err:=0
  119.     apath:=New(SIZEOF anchorpath)
  120.     WHILE err=NIL
  121.         IF first=FALSE
  122.             err:=MatchFirst('MUI:Libs/images/#?.image',apath)
  123.             first:=TRUE
  124.         ELSE
  125.             err:=MatchNext(apath)
  126.         ENDIF
  127.         IF err=NIL
  128.             achain:=apath.last
  129.             IF (achain)
  130.                 fileinfo:=achain.info
  131.                 IF (fileinfo)
  132.                     IF (fileinfo.direntrytype)<0
  133.                         strings[i]:=String(StrLen(fileinfo.filename))
  134.                         StrCopy(strings[i],fileinfo.filename,StrLen(fileinfo.filename)-6)
  135.                         StrCopy(string,'images/',ALL)
  136.                         StrAdd(string,strings[i],ALL)
  137.                         StrAdd(string,'.image',ALL)
  138.                         bases[i]:=OpenLibrary(string,0)
  139.                         i:=i+1
  140.                     ENDIF
  141.                 ENDIF
  142.             ENDIF
  143.         ENDIF
  144.     ENDWHILE
  145.     nummuiobjs:=i
  146.  
  147.     IF apath THEN MatchEnd(apath)
  148.     IF apath THEN Dispose(apath)
  149.     
  150.     NEW objlist,objlist3,objlist4
  151.     newList(objlist)
  152.     newList(objlist3)
  153.     newList(objlist4)
  154.  
  155.     scr:=LockPubScreen('Workbench')
  156.     drawinfo:=GetScreenDrawInfo(scr)
  157.  
  158.     w:=OpenWindowTagList(NIL,
  159.          [WA_FLAGS,    WFLG_DEPTHGADGET OR WFLG_DRAGBAR OR
  160.             WFLG_CLOSEGADGET OR WFLG_SIZEGADGET,
  161.             WA_IDCMP,    IDCMP_CLOSEWINDOW OR IDCMP_IDCMPUPDATE,
  162.             WA_SIMPLEREFRESH,TRUE,
  163.             WA_WIDTH,    420,
  164.             WA_HEIGHT, 200,
  165.             WA_LEFT,120,
  166.             WA_TOP,200,
  167.             NIL])
  168.  
  169.     IF rkmbutcl:=InitPopUpClass()
  170.     IF chunkyimage_class:=Init_chunkyiclass()
  171.  
  172.     /* Add some funky rectangles of varying sizes, positions and colors */
  173.  
  174.     FOR i:=0 TO 4
  175.         obj:=NewObjectA(NIL,'fillrectclass',
  176.              [IA_WIDTH,(4+(i*4)),
  177.                 IA_HEIGHT,(20-(i*4)),
  178.                 IA_FGPEN,(i),
  179.                 IA_BGPEN,(255-i),
  180.                 IA_MODE,RP_JAM2,
  181.                 IA_APATTERN,[%01010101010101010101010101010101,%10101010101010101010101010101010],
  182.                 IA_APATSIZE,2,
  183.                 TAG_END])
  184.         obj2:=NewObjectA(NIL,'fillrectclass',
  185.              [IA_WIDTH,(20-(i*4)),
  186.                 IA_HEIGHT,(4+(i*4)),
  187.                 IA_FGPEN,i,
  188.                 IA_BGPEN,(255-i),
  189.                 IA_MODE,RP_JAM2,
  190.                 IA_APATTERN,[%01010101010101010101010101010101,%10101010101010101010101010101010],
  191.                 IA_APATSIZE,2,
  192.                 TAG_END])
  193.         AddObjectToList(objlist,obj,FRAME_DEFAULT,obj2,FRAME_DEFAULT,BACKGROUNDPEN)
  194.     ENDFOR
  195.  
  196.     /* Add 10 sysiclass images, one of each */
  197.  
  198.     FOR i:=0 TO $11
  199.         IF ((i<>4) AND ((i<6) OR (i>9)))
  200.             obj2:=NewObjectA(NIL,'sysiclass',
  201.              [IA_WIDTH,(24),
  202.                 IA_HEIGHT,(24),
  203.                 SYSIA_WHICH,i,
  204.                 SYSIA_DRAWINFO,drawinfo,
  205.                 TAG_END])
  206.             AddObjectToList(objlist,obj2,0,0,0,FILLPEN)
  207.         ENDIF
  208.     ENDFOR
  209.  
  210.     /* Add a simple "chunkyiclass" image */
  211.  
  212.     obj3:=NewObjectA(chunkyimage_class,NIL,
  213.      [CHUNKYIA_SCREEN,scr,
  214.         CHUNKYIA_PALETTE,{palette},
  215.         CHUNKYIA_PRECISION,PRECISION_GUI,
  216.         IA_DATA,{imagedata},
  217.         TAG_END])
  218.     AddObjectToList(objlist,obj3,0,0,2,SHINEPEN)
  219.  
  220.     /* Add a simple TOPAZ-8 text image */
  221.  
  222.     node:=AddTextToList(objlist,'Text',['topaz.font',9,FSF_ITALIC OR FSF_UNDERLINED,0]:textattr,drawinfo)
  223.     node.frametype:=FRAME_BUTTON  ->    It's OKAY to modify individual nodes'
  224.                                                                 ->    PUBLIC fields *before* creating the popup gadget.
  225.                                                                 ->  Even those images created with "AddTextToList".
  226.                                                                 ->  It's even possible to modify "palette" objects,
  227.                                                                 ->  but more difficult as a complete list is returned.
  228.  
  229.     /* Add some simple rectangles */
  230.  
  231.     FOR i:=0 TO 4
  232.         obj:=NewObjectA(NIL,'fillrectclass',
  233.             [IA_WIDTH,(16),
  234.             IA_HEIGHT,(16),
  235.             IA_FGPEN,i,
  236.             IA_BGPEN,i,
  237.             IA_MODE,RP_JAM2,
  238.             IA_APATTERN,[$FFFFFFFF,$FFFFFFFF],
  239.             IA_APATSIZE,2,
  240.             TAG_END])
  241.         AddObjectToList(objlist,obj,0,0,3,FILLPEN)
  242.     ENDFOR
  243.  
  244.  
  245.     integer1:=NewObjectA(NIL, 'strgclass',
  246.                                              [GA_ID,                        2,
  247.                                                 GA_LEFT,                    w.borderleft+5,
  248.                                                 GA_TOP,                        w.bordertop+5,
  249.                                                 GA_WIDTH,                    40,
  250.                                                 GA_HEIGHT,                20,
  251.                                                 STRINGA_LONGVAL,    0,
  252.                                                 STRINGA_MAXCHARS, 5,
  253.                                                 NIL])
  254.  
  255.         but1:=NewObjectA(rkmbutcl, NIL,
  256.                                      [GA_ID,                        3,
  257.                                         GA_LEFT,                    integer1.leftedge+integer1.width+3,
  258.                                         GA_TOP,                        integer1.topedge,
  259.                                         GA_WIDTH,                    15,-> These will be expanded upon if neccessary!
  260.                                         GA_HEIGHT,                15,->                 """"
  261.                                         GA_PREVIOUS,            integer1,
  262.                                         PUA_POPUPARROW,0,
  263.                                         ICA_MAP,                    [PUA_ACTIVE, STRINGA_LONGVAL, NIL],
  264.                                         ICA_TARGET,                integer1,
  265. ->                                        ICA_TARGET,ICTARGET_IDCMP,
  266. ->                                        ICA_MAP,                    [PUA_ACTIVE, ICSPECIAL_CODE, NIL],
  267.                                         PUA_WINDOWBORDER,    FRAME_ICONDROPBOX,
  268.                                         PUA_GADGETBORDER,    0,
  269.                                         PUA_ROWS,5,
  270.                                         PUA_COLUMNS,                5,
  271.                                         PUA_OBJECTS,                objlist,
  272.                                         PUA_WINDOWSPACING,TRUE,
  273.                                         PUA_IMAGESPACING,TRUE,
  274.                                         PUA_CENTERIMAGES,0,
  275.                                         PUA_CENTERGADGETIMAGE,0,
  276.                                         PUA_AUTOGADGETRESIZE,TRUE,
  277.                                         PUA_POPUPMODE,PUPOPUPMODE_NORMAL,
  278.                                         NIL])
  279.  
  280.         integer2:=NewObjectA(NIL, 'strgclass',
  281.                                              [GA_ID,                        4,
  282.                                                 GA_LEFT,                    integer1.leftedge,
  283.                                                 GA_TOP,                        bigger(but1.topedge+but1.height,integer1.topedge+integer1.height)+8,
  284.                                                 GA_WIDTH,                    40,
  285.                                                 GA_HEIGHT,                20,
  286.                                                 STRINGA_LONGVAL,    0,
  287.                                                 STRINGA_MAXCHARS, 5,
  288.                                                 GA_PREVIOUS,            but1,
  289.                                                 NIL])
  290.  
  291.         objlist2:=BuildPalette(0,15,24,20)        ->    This returns a LIST struct, to be given back to
  292.                                                                                     ->    "DisposePalette".  You can still use
  293.                                                                                     ->    AddObjectToList() with this list.  And, if
  294.                                                                                     ->    you add your own imagenodes, make sure to Remove()
  295.                                                                                     ->    them before using DisposePalette()!
  296.  
  297.         but2:=NewObjectA(rkmbutcl, NIL,
  298.                                      [GA_ID,                                5,
  299.                                         GA_LEFT,                            but1.leftedge,
  300.                                         GA_TOP,                                integer2.topedge,
  301.                                         GA_WIDTH,10,
  302.                                         GA_HEIGHT,10,
  303.                                         GA_PREVIOUS,                    integer2,
  304. ->                                        GA_DISABLED,            TRUE,
  305.                                         ICA_MAP,                 [PUA_ACTIVE, STRINGA_LONGVAL, NIL],
  306.                                         ICA_TARGET,             integer2,
  307. ->                                        ICA_TARGET,ICTARGET_IDCMP,
  308. ->                                        ICA_MAP,                    [PUA_ACTIVE, ICSPECIAL_CODE, NIL],
  309.                                         PUA_POPUPARROW,PUARROW_TINY,
  310.                                         PUA_GADGETBORDER,FRAME_BUTTON,
  311.                                         PUA_WINDOWBORDER,FRAME_DEFAULT,
  312.                                         PUA_ROWS,4,
  313.                                         PUA_COLUMNS,4,
  314.                                         PUA_OBJECTS,objlist2,
  315.                                         PUA_AUTOGADGETRESIZE,TRUE,
  316.                                         PUA_CENTERIMAGES,TRUE,
  317.                                         PUA_CENTERGADGETIMAGE,TRUE,
  318.                                         PUA_WINDOWSPACING,TRUE,
  319.                                         PUA_POPUPMODE,PUPOPUPMODE_NORMAL,
  320.                                         NIL])
  321.  
  322.  
  323.         integer3:=NewObjectA(NIL, 'strgclass',
  324.                                              [GA_ID,                        6,
  325.                                                 GA_LEFT,                    integer2.leftedge,
  326.                                                 GA_TOP,                        bigger(but2.topedge+but2.height,integer2.topedge+integer2.height)+8,
  327.                                                 GA_WIDTH,                 40,
  328.                                                 GA_HEIGHT,                20,
  329.                                                 STRINGA_LONGVAL,    0,
  330.                                                 STRINGA_MAXCHARS, 5,
  331. ->                                                ICA_TARGET,ICTARGET_IDCMP,
  332.                                                 GA_PREVIOUS,but2,
  333.                                                 NIL])
  334.  
  335.  
  336.         node:=AddTextToList(objlist3,'Font Test',['topaz.font',11,FSF_ITALIC OR FSF_BOLD,0]:textattr,drawinfo)
  337.         node:=AddTextToList(objlist3,'XEN 11pt',['xen.font',11,0,0]:textattr,drawinfo)
  338.         node:=AddTextToList(objlist3,'Diamond 12pt',['diamond.font',12,0,0]:textattr,drawinfo)
  339.         node:=AddTextToList(objlist3,'Garnet 16pt',['garnet.font',16,0,0]:textattr,drawinfo)
  340.         node:=AddTextToList(objlist3,'Opal 12pt',['opal.font',12,0,0]:textattr,drawinfo)
  341.         node:=AddTextToList(objlist3,'Granite 11pt',['granite.font',11,0,0]:textattr,drawinfo)
  342.         node:=AddTextToList(objlist3,'Ruby 12pt',['ruby.font',12,0,0]:textattr,drawinfo)
  343.         node:=AddTextToList(objlist3,'xHelvetica 11pt',['xhelvetica.font',11,0,0]:textattr,drawinfo)
  344.         node:=AddTextToList(objlist3,'DPaint 8pt',['dpaint.font',8,0,0]:textattr,drawinfo)
  345.         node:=AddTextToList(objlist3,'E 11pt',['e.font',11,0,0]:textattr,drawinfo)
  346.         node:=AddTextToList(objlist3,'ELSE 11pt',['else.font',11,0,0]:textattr,drawinfo)
  347.         node:=AddTextToList(objlist3,'Topaz 11pt',['topaz.font',11,0,0]:textattr,drawinfo)
  348.         node:=AddTextToList(objlist3,'Quartz 11pt',['quartz.font',11,0,0]:textattr,drawinfo)
  349.         node:=AddTextToList(objlist3,'Civilization 8pt',['civ.font',8,0,0]:textattr,drawinfo)
  350.  
  351.         but3:=NewObjectA(rkmbutcl, NIL,
  352.                                      [GA_ID,                        7,
  353.                                         GA_LEFT,                    but2.leftedge,
  354.                                         GA_TOP,                        integer3.topedge,
  355.                                         GA_WIDTH,20,
  356.                                         GA_HEIGHT,20,
  357.                                         GA_PREVIOUS,            integer3,
  358. ->                                        GA_DISABLED,            TRUE,
  359.                                         ICA_MAP,                    [PUA_ACTIVE, STRINGA_LONGVAL, NIL],
  360.                                         ICA_TARGET,                integer3,
  361. ->                                        ICA_TARGET,ICTARGET_IDCMP,
  362. ->                                        ICA_MAP,                    [PUA_ACTIVE, ICSPECIAL_CODE, NIL],
  363.                                         PUA_POPUPARROW,PUARROW_POPUP,
  364.                                         PUA_GADGETBORDER,FRAME_BUTTON,
  365.                                         PUA_WINDOWBORDER,FRAME_RIDGE,
  366.                                         PUA_ROWS,10,
  367.                                         PUA_COLUMNS,10,
  368.                                         PUA_OBJECTS,objlist3,
  369.                                         PUA_WINDOWSPACING,TRUE,
  370.                                         PUA_AUTOGADGETRESIZE,TRUE,
  371.                                         PUA_CENTERIMAGES,TRUE,
  372.                                         PUA_CENTERGADGETIMAGE,TRUE,
  373.                                         PUA_POPUPMODE,PUPOPUPMODE_NORMAL,
  374.                                         GA_RELVERIFY,TRUE,
  375.                                         NIL])
  376.         GetAttr(PUA_NUMBEROFOBJECTS,but3,{obj})
  377.         SetAttrsA(but3,[PUA_ROWS,((obj+1)/2),PUA_COLUMNS,2,TAG_END])
  378.  
  379.         integer4:=NewObjectA(NIL, 'strgclass',
  380.                                              [GA_ID,                        8,
  381.                                                 GA_LEFT,                    integer3.leftedge,
  382.                                                 GA_TOP,                        bigger(but3.topedge+but3.height,integer3.topedge+integer3.height)+8,
  383.                                                 GA_WIDTH,                    40,
  384.                                                 GA_HEIGHT,                20,
  385.                                                 STRINGA_LONGVAL,    0,
  386.                                                 STRINGA_MAXCHARS, 5,
  387.                                                 GA_PREVIOUS,but3,
  388.                                                 NIL])
  389.  
  390.         FOR i:=0 TO 249
  391.                 IF strings[i]
  392.                     obj:=NewObjectA(NIL,strings[i],
  393.                          [IA_WIDTH,18,
  394.                             IA_HEIGHT,18,
  395.                             TAG_END])
  396.                     AddObjectToList(objlist4,obj,FRAME_DEFAULT,0,FRAME_DEFAULT,FILLPEN)
  397.                 ENDIF
  398.         ENDFOR
  399.  
  400.         err:=1;first:=1
  401.  
  402.         WHILE ((err*first)<nummuiobjs)
  403.             IF err<first
  404.                 err:=err+1
  405.             ELSE
  406.                 first:=first+1
  407.             ENDIF
  408.         ENDWHILE
  409.  
  410.         mchunk:=NewObjectA(chunkyimage_class,NIL,
  411.              [CHUNKYIA_SCREEN,scr,
  412.                 CHUNKYIA_PALETTE,{mcolordata},
  413.                 CHUNKYIA_PRECISION,PRECISION_GUI,
  414.                 IA_DATA,{mimagedata1},
  415.                 CHUNKYIA_SELECTEDDATA,{mimagedata2},
  416.                 IA_BGPEN,0,
  417.                 CHUNKYIA_SELECTEDBGPEN,0,
  418.                 TAG_END])
  419.  
  420.  
  421.         but4:=NewObjectA(rkmbutcl, NIL,
  422.                                      [GA_ID,                        9,
  423.                                         GA_LEFT,                    but3.leftedge,
  424.                                         GA_TOP,                        integer4.topedge,
  425.                                         GA_WIDTH,10,
  426.                                         GA_HEIGHT,10,
  427.                                         GA_PREVIOUS,            integer4,
  428.                                         GA_IMAGE,mchunk,
  429.                                         GA_RELVERIFY,TRUE,
  430. ->                                        GA_DISABLED,            TRUE,
  431.                                         ICA_MAP,                    [PUA_ACTIVE, STRINGA_LONGVAL, NIL],
  432.                                         ICA_TARGET,                integer4,
  433. ->                                        ICA_TARGET,ICTARGET_IDCMP,
  434.     ->                                    ICA_MAP,                    [PUA_ACTIVE, ICSPECIAL_CODE, NIL],
  435.                                         PUA_POPUPARROW,PUARROW_TINY,
  436.                                         PUA_GADGETBORDER,FRAME_BUTTON,
  437.                                         PUA_WINDOWBORDER,FRAME_BUTTON,
  438.                                         PUA_WINDOWSPACING,TRUE,
  439.                                         PUA_IMAGESPACING,TRUE,
  440.                                         PUA_ROWS,first,
  441.                                         PUA_COLUMNS,err,
  442.                                         PUA_OBJECTS,objlist4,
  443.                                         PUA_AUTOGADGETRESIZE,TRUE,
  444.                                         PUA_POPUPMODE,PUPOPUPMODE_RIGHTSIDE,
  445.                                         NIL])
  446.  
  447. /*
  448.         p2i1:=NewObjectA(NIL,'icclass',
  449.              [ICA_TARGET,integer1,
  450.                 ICA_MAP,[PGA_TOP,STRINGA_LONGVAL,TAG_END],
  451.                 TAG_END])
  452.         p2i2:=NewObjectA(NIL,'icclass',
  453.              [ICA_TARGET,integer2,
  454.                 ICA_MAP,[PGA_TOP,STRINGA_LONGVAL,TAG_END],
  455.                 TAG_END])
  456.         p2i3:=NewObjectA(NIL,'icclass',
  457.              [ICA_TARGET,integer3,
  458.                 ICA_MAP,[PGA_TOP,STRINGA_LONGVAL,TAG_END],
  459.                 TAG_END])
  460.         p2i4:=NewObjectA(NIL,'icclass',
  461.              [ICA_TARGET,integer4,
  462.                 ICA_MAP,[PGA_TOP,STRINGA_LONGVAL,TAG_END],
  463.                 TAG_END])
  464. */
  465.         p2b1:=NewObjectA(NIL,'icclass',
  466.              [ICA_TARGET,but1,
  467.                 ICA_MAP,[PGA_TOP,PUA_ACTIVE,TAG_END],
  468.                 TAG_END])
  469.         p2b2:=NewObjectA(NIL,'icclass',
  470.              [ICA_TARGET,but2,
  471.                 ICA_MAP,[PGA_TOP,PUA_ACTIVE,TAG_END],
  472.                 TAG_END])
  473.         p2b3:=NewObjectA(NIL,'icclass',
  474.              [ICA_TARGET,but3,
  475.                 ICA_MAP,[PGA_TOP,PUA_ACTIVE,TAG_END],
  476.                 TAG_END])
  477.         p2b4:=NewObjectA(NIL,'icclass',
  478.              [ICA_TARGET,but4,
  479.                 ICA_MAP,[PGA_TOP,PUA_ACTIVE,TAG_END],
  480.                 TAG_END])
  481.  
  482.         model:=NewObjectA(NIL,'modelclass',
  483.              [ICA_TARGET,ICTARGET_IDCMP,
  484.                 ICA_MAP,[PGA_TOP,PUA_ACTIVE,TAG_END],
  485.                 TAG_END])
  486.         doMethodA(model,[OM_ADDMEMBER,p2b1]:LONG)
  487.         doMethodA(model,[OM_ADDMEMBER,p2b2]:LONG)
  488.         doMethodA(model,[OM_ADDMEMBER,p2b3]:LONG)
  489.         doMethodA(model,[OM_ADDMEMBER,p2b4]:LONG)
  490.              
  491.  
  492.         propg:=NewObjectA(NIL,'propgclass',
  493.              [GA_ID,20,
  494.                 GA_LEFT,bigger(bigger(bigger(but1.width,but2.width),but3.width),but4.width)+8+but1.leftedge,
  495.                 GA_TOP,but1.topedge,
  496.                 GA_WIDTH,16,
  497.                 GA_HEIGHT,(but4.topedge+but4.height)-but1.topedge,
  498.                 GA_PREVIOUS,but4,
  499.                 ICA_TARGET,model,
  500.                 PGA_TOP,0,
  501.                 PGA_VISIBLE,1,
  502.                 PGA_TOTAL,40,
  503.                 TAG_END])
  504.  
  505.  
  506.         propg2:=NewObjectA(NIL,'propgclass',
  507.              [GA_ID,20,
  508.                 GA_LEFT,propg.leftedge+propg.width+8,
  509.                 GA_TOP,propg.topedge,
  510.                 GA_WIDTH,propg.width,
  511.                 GA_HEIGHT,propg.height,
  512.                 GA_PREVIOUS,propg,
  513.                 ICA_TARGET,but1,
  514.                 ICA_MAP,[PGA_TOP,PUA_POPUPARROW,NIL],
  515.                 PGA_TOP,PUARROW_NONE,
  516.                 PGA_VISIBLE,1,
  517.                 PGA_TOTAL,3,
  518.                 TAG_END])
  519.  
  520.         propg3:=NewObjectA(NIL,'propgclass',
  521.              [GA_ID,20,
  522.                 GA_LEFT,propg2.leftedge+propg2.width+8,
  523.                 GA_TOP,propg2.topedge,
  524.                 GA_WIDTH,propg2.width,
  525.                 GA_HEIGHT,propg2.height,
  526.                 GA_PREVIOUS,propg2,
  527.                 ICA_TARGET,but1,
  528.                 ICA_MAP,[PGA_TOP,PUA_GADGETBORDER,NIL],
  529.                 PGA_TOP,0,
  530.                 PGA_VISIBLE,1,
  531.                 PGA_TOTAL,5,
  532.                 TAG_END])
  533.  
  534.         propg4:=NewObjectA(NIL,'propgclass',
  535.              [GA_ID,20,
  536.                 GA_LEFT,propg3.leftedge+propg3.width+8,
  537.                 GA_TOP,propg3.topedge,
  538.                 GA_WIDTH,propg3.width,
  539.                 GA_HEIGHT,propg3.height,
  540.                 GA_PREVIOUS,propg3,
  541.                 ICA_TARGET,but1,
  542.                 ICA_MAP,[PGA_TOP,PUA_IMAGESPACING,NIL],
  543.                 PGA_TOP,0,
  544.                 PGA_VISIBLE,1,
  545.                 PGA_TOTAL,2,
  546.                 TAG_END])
  547.  
  548.         propg5:=NewObjectA(NIL,'propgclass',
  549.              [GA_ID,20,
  550.                 GA_LEFT,propg4.leftedge+propg4.width+8,
  551.                 GA_TOP,propg4.topedge,
  552.                 GA_WIDTH,propg4.width,
  553.                 GA_HEIGHT,propg4.height,
  554.                 GA_PREVIOUS,propg4,
  555.                 ICA_TARGET,but1,
  556.                 ICA_MAP,[PGA_TOP,PUA_CENTERIMAGES,NIL],
  557.                 PGA_TOP,0,
  558.                 PGA_VISIBLE,1,
  559.                 PGA_TOTAL,2,
  560.                 TAG_END])
  561.  
  562.         propg6:=NewObjectA(NIL,'propgclass',
  563.              [GA_ID,20,
  564.                 GA_LEFT,propg5.leftedge+propg5.width+8,
  565.                 GA_TOP,propg5.topedge,
  566.                 GA_WIDTH,propg5.width,
  567.                 GA_HEIGHT,propg5.height,
  568.                 GA_PREVIOUS,propg5,
  569.                 ICA_TARGET,but1,
  570.                 ICA_MAP,[PGA_TOP,GA_DISABLED,NIL],
  571.                 PGA_TOP,0,
  572.                 PGA_VISIBLE,1,
  573.                 PGA_TOTAL,2,
  574.                 TAG_END])
  575.  
  576.         propg7:=NewObjectA(NIL,'propgclass',
  577.              [GA_ID,20,
  578.                 GA_LEFT,propg6.leftedge+propg6.width+8,
  579.                 GA_TOP,propg6.topedge,
  580.                 GA_WIDTH,propg6.width,
  581.                 GA_HEIGHT,propg6.height,
  582.                 GA_PREVIOUS,propg6,
  583.                 ICA_TARGET,but1,
  584.                 ICA_MAP,[PGA_TOP,GA_LEFT,NIL],
  585.                 PGA_TOP,but1.leftedge,
  586.                 PGA_VISIBLE,but1.leftedge,
  587.                 PGA_TOTAL,but1.leftedge+100,
  588.                 TAG_END])
  589.  
  590.         SetAttrsA(integer1,[ICA_MAP,[STRINGA_LONGVAL,PUA_ACTIVE,TAG_END],ICA_TARGET,but1,TAG_END])
  591.         SetGadgetAttrsA(integer2,w,0,[ICA_MAP,[STRINGA_LONGVAL,PUA_ACTIVE,TAG_END],ICA_TARGET,but2,TAG_END])
  592.         SetAttrsA(integer3,[ICA_MAP,[STRINGA_LONGVAL,PUA_ACTIVE,TAG_END],ICA_TARGET,but3,TAG_END])
  593.         SetAttrsA(integer4,[ICA_MAP,[STRINGA_LONGVAL,PUA_ACTIVE,TAG_END],ICA_TARGET,but4,TAG_END])
  594.  
  595.  
  596.         AddGList(w, integer1, -1, -1, NIL)
  597.         RefreshGList(integer1, w, NIL, -1)
  598.  
  599.         SetWindowTitles(w, '#,->,border,ispace,center,disable,leftedge', NIL)
  600.  
  601. /*
  602.         Delay(15)
  603.         SetGadgetAttrsA(but1,w,0,[GA_DISABLED,FALSE,TAG_END])
  604.         Delay(5)
  605.         SetGadgetAttrsA(but2,w,0,[GA_DISABLED,FALSE,TAG_END])
  606.         Delay(5)
  607.         SetGadgetAttrsA(but3,w,0,[GA_DISABLED,FALSE,TAG_END])
  608.         Delay(5)
  609.         SetGadgetAttrsA(but4,w,0,[GA_DISABLED,FALSE,TAG_END])
  610. */
  611.     REPEAT
  612.         class:=WaitIMessage(w)
  613.         code:=MsgCode()
  614.         qual:=MsgQualifier()
  615.         iaddr:=MsgIaddr()
  616.         WriteF('class=\z\d[10] code=\z\d[10] qual=\z\d[10] iaddr=\z\d[10] \n',class,code,qual,iaddr)
  617.     UNTIL class=IDCMP_CLOSEWINDOW
  618.     ENDIF
  619.     ENDIF
  620. EXCEPT DO
  621.     IF objlist
  622.         DisposeObjects(objlist)
  623.         DisposeObjectNodes(objlist)
  624.          Dispose(objlist)
  625.      ENDIF
  626.      IF objlist2 THEN DisposePalette(objlist2)
  627.     IF objlist3
  628.         DisposeObjects(objlist3)
  629.         DisposeObjectNodes(objlist3)
  630.          Dispose(objlist3)
  631.      ENDIF
  632.     IF objlist4
  633.         DisposeObjects(objlist4)
  634.         DisposeObjectNodes(objlist4)
  635.          Dispose(objlist4)
  636.      ENDIF
  637.      IF mchunk THEN DisposeObject(mchunk)
  638.      IF scr THEN UnlockPubScreen(0,scr)
  639.     IF propg7 THEN DisposeObject(propg7)
  640.     IF propg6 THEN DisposeObject(propg6)
  641.     IF propg5 THEN DisposeObject(propg5)
  642.     IF propg4 THEN DisposeObject(propg4)
  643.     IF propg3 THEN DisposeObject(propg3)
  644.     IF propg2 THEN DisposeObject(propg2)
  645.     IF propg THEN DisposeObject(propg)
  646.     IF model THEN DisposeObject(model)    -> Will also dispose p2i* and p2b* icclass objects
  647.     IF but1 THEN DisposeObject(but1)
  648.     IF but2 THEN DisposeObject(but2)
  649.     IF but3 THEN DisposeObject(but3)
  650.     IF but4 THEN DisposeObject(but4)
  651.     IF integer1 THEN DisposeObject(integer1)
  652.     IF integer2 THEN DisposeObject(integer2)
  653.     IF integer3 THEN DisposeObject(integer3)
  654.     IF integer4 THEN DisposeObject(integer4)
  655.  
  656.     IF rkmbutcl THEN FreePopUpClass(rkmbutcl)
  657.     IF chunkyimage_class THEN Free_chunkyiclass(chunkyimage_class)
  658.     IF w THEN CloseWindow(w)
  659.     IF utilitybase THEN CloseLibrary(utilitybase)
  660.     IF chunkyimagebase THEN CloseLibrary(chunkyimagebase)
  661.     IF popupbase THEN CloseLibrary(popupbase)
  662.     FOR i:=0 TO 249
  663.         IF bases[i] THEN CloseLibrary(bases[i])
  664.     ENDFOR
  665. ENDPROC
  666.  
  667. imagedata:
  668. LONG 29,24
  669. CHAR    $3,$4,$5,$6,$7,$8,$9,$A,$B,$C,$D,$E,$F,$10,$11,$12,$13,$14,$15,$16,$17,$18,$19,$1A,$1B,$1C,$1D,$1E,$1F,
  670.            $3,$4,$1,$1,$1,$1,$1,$1,$1,$C,$D,$E,$F,$10,$11,$12,$13,$14,$15,$16,$17,$18,$19,$1A,$1B,$1C,$1D,$1E,$1F,
  671.            $3,$4,$1,$2,$2,$2,$2,$2,$1,$1,$D,$E,$F,$10,$11,$12,$13,$14,$15,$16,$17,$18,$19,$1A,$1B,$1C,$1D,$1E,$1F,
  672.            $3,$4,$1,$2,$2,$1,$1,$2,$2,$1,$D,$1,$1,$1,$1,$1,$1,$14,$1,$1,$1,$1,$1,$1,$1,$1C,$1D,$1E,$1F,
  673.            $3,$4,$1,$2,$2,$1,$1,$2,$2,$1,$1,$1,$2,$2,$2,$2,$1,$1,$1,$2,$2,$2,$2,$2,$1,$1,$1D,$1E,$1F,
  674.            $3,$4,$1,$2,$2,$2,$2,$2,$1,$1,$1,$2,$2,$1,$1,$2,$2,$1,$1,$2,$2,$1,$1,$2,$2,$1,$1D,$1E,$1F,
  675.            $3,$4,$1,$2,$2,$1,$1,$1,$1,$C,$1,$2,$2,$1,$1,$2,$2,$1,$1,$2,$2,$1,$1,$2,$2,$1,$1D,$1E,$1F,
  676.            $3,$4,$1,$2,$2,$1,$9,$A,$B,$C,$1,$2,$2,$1,$1,$2,$2,$1,$1,$2,$2,$2,$2,$2,$1,$1,$1D,$1E,$1F,
  677.            $3,$4,$1,$2,$2,$1,$9,$A,$B,$C,$1,$1,$2,$2,$2,$2,$1,$1,$1,$2,$2,$1,$1,$1,$1,$1C,$1D,$1E,$1F,
  678.            $3,$4,$1,$1,$1,$1,$9,$A,$B,$C,$D,$1,$1,$1,$1,$1,$1,$14,$1,$2,$2,$1,$19,$1A,$1B,$1C,$1D,$1E,$1F,
  679.            $3,$4,$5,$6,$7,$8,$9,$A,$B,$C,$D,$E,$F,$10,$11,$12,$13,$14,$1,$1,$1,$1,$19,$1A,$1B,$1C,$1D,$1E,$1F,
  680.            $3,$4,$5,$6,$7,$8,$9,$A,$B,$C,$D,$E,$F,$10,$11,$12,$13,$14,$15,$16,$17,$18,$19,$1A,$1B,$1C,$1D,$1E,$1F,
  681.            $3,$4,$5,$6,$7,$8,$9,$A,$B,$C,$D,$E,$F,$10,$11,$12,$13,$14,$15,$16,$17,$18,$19,$1A,$1B,$1C,$1D,$1E,$1F,
  682.            $3,$4,$5,$6,$7,$8,$1,$1,$1,$1,$1,$1,$1,$1,$11,$12,$13,$14,$15,$16,$17,$18,$19,$1A,$1B,$1C,$1D,$1E,$1F,
  683.            $3,$4,$5,$6,$7,$8,$1,$2,$2,$1,$1,$2,$2,$1,$11,$12,$13,$14,$15,$16,$17,$18,$19,$1A,$1B,$1C,$1D,$1E,$1F,
  684.            $3,$4,$5,$6,$7,$8,$1,$2,$2,$1,$1,$2,$2,$1,$1,$1,$1,$1,$1,$1,$1,$18,$19,$1A,$1B,$1C,$1D,$1E,$1F,
  685.            $3,$4,$5,$6,$7,$8,$1,$2,$2,$1,$1,$2,$2,$1,$1,$2,$2,$2,$2,$2,$1,$1,$19,$1A,$1B,$1C,$1D,$1E,$1F,
  686.            $3,$4,$5,$6,$7,$8,$1,$2,$2,$1,$1,$2,$2,$1,$1,$2,$2,$1,$1,$2,$2,$1,$19,$1A,$1B,$1C,$1D,$1E,$1F,
  687.            $3,$4,$5,$6,$7,$8,$1,$2,$2,$1,$1,$2,$2,$1,$1,$2,$2,$1,$1,$2,$2,$1,$19,$1A,$1B,$1C,$1D,$1E,$1F,
  688.            $3,$4,$5,$6,$7,$8,$1,$2,$2,$1,$1,$2,$2,$1,$1,$2,$2,$2,$2,$2,$1,$1,$19,$1A,$1B,$1C,$1D,$1E,$1F,
  689.            $3,$4,$5,$6,$7,$8,$1,$1,$2,$2,$2,$2,$1,$1,$1,$2,$2,$1,$1,$1,$1,$18,$19,$1A,$1B,$1C,$1D,$1E,$1F,
  690.            $3,$4,$5,$6,$7,$8,$9,$1,$1,$1,$1,$1,$1,$10,$1,$2,$2,$1,$15,$16,$17,$18,$19,$1A,$1B,$1C,$1D,$1E,$1F,
  691.            $3,$4,$5,$6,$7,$8,$9,$A,$B,$C,$D,$E,$F,$10,$1,$1,$1,$1,$15,$16,$17,$18,$19,$1A,$1B,$1C,$1D,$1E,$1F,
  692.            $3,$4,$5,$6,$7,$8,$9,$A,$B,$C,$D,$E,$F,$10,$11,$12,$13,$14,$15,$16,$17,$18,$19,$1A,$1B,$1C,$1D,$1E,$1F
  693.  
  694.  
  695. palette:
  696. LONG 32,$95959595,$95959595,$95959595,$00000000,$00000000,$00000000,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,
  697.                 $FFFFFFFF,$00000000,$00000000,$FFFFFFFF,$25252525,$00000000,$FFFFFFFF,$4A4A4A4A,$00000000,
  698.                 $FFFFFFFF,$6F6F6F6F,$00000000,$FFFFFFFF,$93939393,$00000000,$FFFFFFFF,$B7B7B7B7,$00000000,
  699.                 $FFFFFFFF,$DBDBDBDB,$00000000,$FFFFFFFF,$FFFFFFFF,$00000000,$80808080,$FFFFFFFF,$00000000,
  700.                 $00000000,$FFFFFFFF,$00000000,$00000000,$FFFFFFFF,$3F3F3F3F,$00000000,$FFFFFFFF,$7F7F7F7F,
  701.                 $00000000,$FFFFFFFF,$BFBFBFBF,$00000000,$FFFFFFFF,$FFFFFFFF,$00000000,$CCCCCCCC,$FFFFFFFF,
  702.                 $00000000,$99999999,$FFFFFFFF,$00000000,$66666666,$FFFFFFFF,$00000000,$33333333,$FFFFFFFF,
  703.                 $00000000,$00000000,$FFFFFFFF,$33333333,$00000000,$FFFFFFFF,$66666666,$00000000,$FFFFFFFF,
  704.                 $99999999,$00000000,$FFFFFFFF,$CCCCCCCC,$00000000,$FFFFFFFF,$FFFFFFFF,$00000000,$FFFFFFFF,
  705.                 $FFFFFFFF,$00000000,$CCCCCCCC,$FFFFFFFF,$00000000,$99999999,$FFFFFFFF,$00000000,$66666666,
  706.                 $FFFFFFFF,$00000000,$33333333,$FFFFFFFF,$00000000,$00000000
  707.  
  708. mimagedata1:
  709. LONG 68,33
  710. CHAR             $0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,
  711.            $0,$8,$0,$0,$0,$0,$0,$0,$0,$8,$0,$0,$8,$0,$0,$0,$0,$8,$0,$0,$8,$0,$0,$0,$9,$0,$0,$0,$0,$0,$0,$0,$9,$0,$0,$9,$0,$0,$0,$0,$9,$0,$0,$9,$0,$0,$0,$A,$0,$0,$0,$0,$0,$0,$0,$A,$0,$0,$A,$0,$0,$0,$0,$A,$0,$0,$A,$0,
  712.            $0,$8,$8,$0,$0,$0,$0,$0,$8,$8,$0,$0,$8,$0,$0,$0,$0,$8,$0,$0,$8,$0,$0,$0,$9,$9,$0,$0,$0,$0,$0,$9,$9,$0,$0,$9,$0,$0,$0,$0,$9,$0,$0,$9,$0,$0,$0,$A,$A,$0,$0,$0,$0,$0,$A,$A,$0,$0,$A,$0,$0,$0,$0,$A,$0,$0,$A,$0,
  713.            $0,$8,$8,$0,$0,$0,$0,$0,$8,$8,$0,$0,$8,$0,$0,$0,$0,$8,$0,$0,$8,$0,$0,$0,$9,$9,$0,$0,$0,$0,$0,$9,$9,$0,$0,$9,$0,$0,$0,$0,$9,$0,$0,$9,$0,$0,$0,$A,$A,$0,$0,$0,$0,$0,$A,$A,$0,$0,$A,$0,$0,$0,$0,$A,$0,$0,$A,$0,
  714.            $0,$8,$0,$8,$0,$0,$0,$8,$0,$8,$0,$0,$8,$0,$0,$0,$0,$8,$0,$0,$8,$0,$0,$0,$9,$0,$9,$0,$0,$0,$9,$0,$9,$0,$0,$9,$0,$0,$0,$0,$9,$0,$0,$9,$0,$0,$0,$A,$0,$A,$0,$0,$0,$A,$0,$A,$0,$0,$A,$0,$0,$0,$0,$A,$0,$0,$A,$0,
  715.            $0,$8,$0,$8,$0,$0,$0,$8,$0,$8,$0,$0,$8,$0,$0,$0,$0,$8,$0,$0,$8,$0,$0,$0,$9,$0,$9,$0,$0,$0,$9,$0,$9,$0,$0,$9,$0,$0,$0,$0,$9,$0,$0,$9,$0,$0,$0,$A,$0,$A,$0,$0,$0,$A,$0,$A,$0,$0,$A,$0,$0,$0,$0,$A,$0,$0,$A,$0,
  716.            $0,$8,$0,$0,$8,$0,$8,$0,$0,$8,$0,$0,$8,$0,$0,$0,$0,$8,$0,$0,$8,$0,$0,$0,$9,$0,$0,$9,$0,$9,$0,$0,$9,$0,$0,$9,$0,$0,$0,$0,$9,$0,$0,$9,$0,$0,$0,$A,$0,$0,$A,$0,$A,$0,$0,$A,$0,$0,$A,$0,$0,$0,$0,$A,$0,$0,$A,$0,
  717.            $0,$8,$0,$0,$8,$0,$8,$0,$0,$8,$0,$0,$8,$0,$0,$0,$0,$8,$0,$0,$8,$0,$0,$0,$9,$0,$0,$9,$0,$9,$0,$0,$9,$0,$0,$9,$0,$0,$0,$0,$9,$0,$0,$9,$0,$0,$0,$A,$0,$0,$A,$0,$A,$0,$0,$A,$0,$0,$A,$0,$0,$0,$0,$A,$0,$0,$A,$0,
  718.            $0,$8,$0,$0,$0,$8,$0,$0,$0,$8,$0,$0,$8,$0,$0,$0,$0,$8,$0,$0,$8,$0,$0,$0,$9,$0,$0,$0,$9,$0,$0,$0,$9,$0,$0,$9,$0,$0,$0,$0,$9,$0,$0,$9,$0,$0,$0,$A,$0,$0,$0,$A,$0,$0,$0,$A,$0,$0,$A,$0,$0,$0,$0,$A,$0,$0,$A,$0,
  719.            $0,$8,$0,$0,$0,$8,$0,$0,$0,$8,$0,$0,$0,$8,$8,$8,$8,$0,$0,$0,$8,$0,$0,$0,$9,$0,$0,$0,$9,$0,$0,$0,$9,$0,$0,$0,$9,$9,$9,$9,$0,$0,$0,$9,$0,$0,$0,$A,$0,$0,$0,$A,$0,$0,$0,$A,$0,$0,$0,$A,$A,$A,$A,$0,$0,$0,$A,$0,
  720.            $0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,
  721.            $0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,
  722.            $0,$2,$0,$0,$0,$0,$0,$0,$0,$2,$0,$0,$2,$0,$0,$0,$0,$2,$0,$0,$2,$0,$0,$0,$1,$0,$0,$0,$0,$0,$0,$0,$1,$0,$0,$1,$0,$0,$0,$0,$1,$0,$0,$1,$0,$0,$0,$B,$0,$0,$0,$0,$0,$0,$0,$B,$0,$0,$B,$0,$0,$0,$0,$B,$0,$0,$B,$0,
  723.            $0,$2,$2,$0,$0,$0,$0,$0,$2,$2,$0,$0,$2,$0,$0,$0,$0,$2,$0,$0,$2,$0,$0,$0,$1,$1,$0,$0,$0,$0,$0,$1,$1,$0,$0,$1,$0,$0,$0,$0,$1,$0,$0,$1,$0,$0,$0,$B,$B,$0,$0,$0,$0,$0,$B,$B,$0,$0,$B,$0,$0,$0,$0,$B,$0,$0,$B,$0,
  724.            $0,$2,$2,$0,$0,$0,$0,$0,$2,$2,$0,$0,$2,$0,$0,$0,$0,$2,$0,$0,$2,$0,$0,$0,$1,$1,$0,$0,$0,$0,$0,$1,$1,$0,$0,$1,$0,$0,$0,$0,$1,$0,$0,$1,$0,$0,$0,$B,$B,$0,$0,$0,$0,$0,$B,$B,$0,$0,$B,$0,$0,$0,$0,$B,$0,$0,$B,$0,
  725.            $0,$2,$0,$2,$0,$0,$0,$2,$0,$2,$0,$0,$2,$0,$0,$0,$0,$2,$0,$0,$2,$0,$0,$0,$1,$0,$1,$0,$0,$0,$1,$0,$1,$0,$0,$1,$0,$0,$0,$0,$1,$0,$0,$1,$0,$0,$0,$B,$0,$B,$0,$0,$0,$B,$0,$B,$0,$0,$B,$0,$0,$0,$0,$B,$0,$0,$B,$0,
  726.            $0,$2,$0,$2,$0,$0,$0,$2,$0,$2,$0,$0,$2,$0,$0,$0,$0,$2,$0,$0,$2,$0,$0,$0,$1,$0,$1,$0,$0,$0,$1,$0,$1,$0,$0,$1,$0,$0,$0,$0,$1,$0,$0,$1,$0,$0,$0,$B,$0,$B,$0,$0,$0,$B,$0,$B,$0,$0,$B,$0,$0,$0,$0,$B,$0,$0,$B,$0,
  727.            $0,$2,$0,$0,$2,$0,$2,$0,$0,$2,$0,$0,$2,$0,$0,$0,$0,$2,$0,$0,$2,$0,$0,$0,$1,$0,$0,$1,$0,$1,$0,$0,$1,$0,$0,$1,$0,$0,$0,$0,$1,$0,$0,$1,$0,$0,$0,$B,$0,$0,$B,$0,$B,$0,$0,$B,$0,$0,$B,$0,$0,$0,$0,$B,$0,$0,$B,$0,
  728.            $0,$2,$0,$0,$2,$0,$2,$0,$0,$2,$0,$0,$2,$0,$0,$0,$0,$2,$0,$0,$2,$0,$0,$0,$1,$0,$0,$1,$0,$1,$0,$0,$1,$0,$0,$1,$0,$0,$0,$0,$1,$0,$0,$1,$0,$0,$0,$B,$0,$0,$B,$0,$B,$0,$0,$B,$0,$0,$B,$0,$0,$0,$0,$B,$0,$0,$B,$0,
  729.            $0,$2,$0,$0,$0,$2,$0,$0,$0,$2,$0,$0,$2,$0,$0,$0,$0,$2,$0,$0,$2,$0,$0,$0,$1,$0,$0,$0,$1,$0,$0,$0,$1,$0,$0,$1,$0,$0,$0,$0,$1,$0,$0,$1,$0,$0,$0,$B,$0,$0,$0,$B,$0,$0,$0,$B,$0,$0,$B,$0,$0,$0,$0,$B,$0,$0,$B,$0,
  730.            $0,$2,$0,$0,$0,$2,$0,$0,$0,$2,$0,$0,$0,$2,$2,$2,$2,$0,$0,$0,$2,$0,$0,$0,$1,$0,$0,$0,$1,$0,$0,$0,$1,$0,$0,$0,$1,$1,$1,$1,$0,$0,$0,$1,$0,$0,$0,$B,$0,$0,$0,$B,$0,$0,$0,$B,$0,$0,$0,$B,$B,$B,$B,$0,$0,$0,$B,$0,
  731.            $0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,
  732.            $0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,
  733.            $0,$E,$0,$0,$0,$0,$0,$0,$0,$E,$0,$0,$E,$0,$0,$0,$0,$E,$0,$0,$E,$0,$0,$0,$D,$0,$0,$0,$0,$0,$0,$0,$D,$0,$0,$D,$0,$0,$0,$0,$D,$0,$0,$D,$0,$0,$0,$C,$0,$0,$0,$0,$0,$0,$0,$C,$0,$0,$C,$0,$0,$0,$0,$C,$0,$0,$C,$0,
  734.            $0,$E,$E,$0,$0,$0,$0,$0,$E,$E,$0,$0,$E,$0,$0,$0,$0,$E,$0,$0,$E,$0,$0,$0,$D,$D,$0,$0,$0,$0,$0,$D,$D,$0,$0,$D,$0,$0,$0,$0,$D,$0,$0,$D,$0,$0,$0,$C,$C,$0,$0,$0,$0,$0,$C,$C,$0,$0,$C,$0,$0,$0,$0,$C,$0,$0,$C,$0,
  735.            $0,$E,$E,$0,$0,$0,$0,$0,$E,$E,$0,$0,$E,$0,$0,$0,$0,$E,$0,$0,$E,$0,$0,$0,$D,$D,$0,$0,$0,$0,$0,$D,$D,$0,$0,$D,$0,$0,$0,$0,$D,$0,$0,$D,$0,$0,$0,$C,$C,$0,$0,$0,$0,$0,$C,$C,$0,$0,$C,$0,$0,$0,$0,$C,$0,$0,$C,$0,
  736.            $0,$E,$0,$E,$0,$0,$0,$E,$0,$E,$0,$0,$E,$0,$0,$0,$0,$E,$0,$0,$E,$0,$0,$0,$D,$0,$D,$0,$0,$0,$D,$0,$D,$0,$0,$D,$0,$0,$0,$0,$D,$0,$0,$D,$0,$0,$0,$C,$0,$C,$0,$0,$0,$C,$0,$C,$0,$0,$C,$0,$0,$0,$0,$C,$0,$0,$C,$0,
  737.            $0,$E,$0,$E,$0,$0,$0,$E,$0,$E,$0,$0,$E,$0,$0,$0,$0,$E,$0,$0,$E,$0,$0,$0,$D,$0,$D,$0,$0,$0,$D,$0,$D,$0,$0,$D,$0,$0,$0,$0,$D,$0,$0,$D,$0,$0,$0,$C,$0,$C,$0,$0,$0,$C,$0,$C,$0,$0,$C,$0,$0,$0,$0,$C,$0,$0,$C,$0,
  738.            $0,$E,$0,$0,$E,$0,$E,$0,$0,$E,$0,$0,$E,$0,$0,$0,$0,$E,$0,$0,$E,$0,$0,$0,$D,$0,$0,$D,$0,$D,$0,$0,$D,$0,$0,$D,$0,$0,$0,$0,$D,$0,$0,$D,$0,$0,$0,$C,$0,$0,$C,$0,$C,$0,$0,$C,$0,$0,$C,$0,$0,$0,$0,$C,$0,$0,$C,$0,
  739.            $0,$E,$0,$0,$E,$0,$E,$0,$0,$E,$0,$0,$E,$0,$0,$0,$0,$E,$0,$0,$E,$0,$0,$0,$D,$0,$0,$D,$0,$D,$0,$0,$D,$0,$0,$D,$0,$0,$0,$0,$D,$0,$0,$D,$0,$0,$0,$C,$0,$0,$C,$0,$C,$0,$0,$C,$0,$0,$C,$0,$0,$0,$0,$C,$0,$0,$C,$0,
  740.            $0,$E,$0,$0,$0,$E,$0,$0,$0,$E,$0,$0,$E,$0,$0,$0,$0,$E,$0,$0,$E,$0,$0,$0,$D,$0,$0,$0,$D,$0,$0,$0,$D,$0,$0,$D,$0,$0,$0,$0,$D,$0,$0,$D,$0,$0,$0,$C,$0,$0,$0,$C,$0,$0,$0,$C,$0,$0,$C,$0,$0,$0,$0,$C,$0,$0,$C,$0,
  741.            $0,$E,$0,$0,$0,$E,$0,$0,$0,$E,$0,$0,$0,$E,$E,$E,$E,$0,$0,$0,$E,$0,$0,$0,$D,$0,$0,$0,$D,$0,$0,$0,$D,$0,$0,$0,$D,$D,$D,$D,$0,$0,$0,$D,$0,$0,$0,$C,$0,$0,$0,$C,$0,$0,$0,$C,$0,$0,$0,$C,$C,$C,$C,$0,$0,$0,$C,$0,
  742.            $0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0
  743.  
  744.  
  745. mcolordata:
  746. LONG 16,$95959595,$95959595,$95959595,$00000000,$00000000,$00000000,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$3B3B3B3B,$67676767,$A2A2A2A2,$7B7B7B7B,$7B7B7B7B,$7B7B7B7B,$AFAFAFAF,$AFAFAFAF,$AFAFAFAF,$AAAAAAAA,$90909090,$7C7C7C7C,$FFFFFFFF,$A9A9A9A9,$97979797,$FFFFFFFF,$00000000,$00000000,$FFFFFFFF,$7E7E7E7E,$00000000,$FFFFFFFF,$FFFFFFFF,$00000000,$00000000,$FFFFFFFF,$00000000,$00000000,$FFFFFFFF,$FFFFFFFF,$00000000,$00000000,$FFFFFFFF,$FFFFFFFF,$00000000,$FFFFFFFF,$CCCCCCCC,$CCCCCCCC,$CCCCCCCC
  747.  
  748.  
  749. mimagedata2:
  750. LONG 68,33
  751. CHAR             $8,$8,$8,$0,$0,$0,$0,$0,$8,$8,$8,$8,$8,$8,$0,$0,$8,$8,$8,$8,$8,$8,$0,$9,$9,$9,$0,$0,$0,$0,$0,$9,$9,$9,$9,$9,$9,$0,$0,$9,$9,$9,$9,$9,$9,$0,$A,$A,$A,$0,$0,$0,$0,$0,$A,$A,$A,$A,$A,$A,$0,$0,$A,$A,$A,$A,$A,$A,
  752.            $8,$0,$8,$8,$0,$0,$0,$8,$8,$0,$8,$8,$0,$8,$0,$0,$8,$0,$8,$8,$0,$8,$0,$9,$0,$9,$9,$0,$0,$0,$9,$9,$0,$9,$9,$0,$9,$0,$0,$9,$0,$9,$9,$0,$9,$0,$A,$0,$A,$A,$0,$0,$0,$A,$A,$0,$A,$A,$0,$A,$0,$0,$A,$0,$A,$A,$0,$A,
  753.            $8,$0,$0,$8,$0,$0,$0,$8,$0,$0,$8,$8,$0,$8,$0,$0,$8,$0,$8,$8,$0,$8,$0,$9,$0,$0,$9,$0,$0,$0,$9,$0,$0,$9,$9,$0,$9,$0,$0,$9,$0,$9,$9,$0,$9,$0,$A,$0,$0,$A,$0,$0,$0,$A,$0,$0,$A,$A,$0,$A,$0,$0,$A,$0,$A,$A,$0,$A,
  754.            $8,$0,$0,$8,$8,$0,$8,$8,$0,$0,$8,$8,$0,$8,$0,$0,$8,$0,$8,$8,$0,$8,$0,$9,$0,$0,$9,$9,$0,$9,$9,$0,$0,$9,$9,$0,$9,$0,$0,$9,$0,$9,$9,$0,$9,$0,$A,$0,$0,$A,$A,$0,$A,$A,$0,$0,$A,$A,$0,$A,$0,$0,$A,$0,$A,$A,$0,$A,
  755.            $8,$0,$8,$0,$8,$0,$8,$0,$8,$0,$8,$8,$0,$8,$0,$0,$8,$0,$8,$8,$0,$8,$0,$9,$0,$9,$0,$9,$0,$9,$0,$9,$0,$9,$9,$0,$9,$0,$0,$9,$0,$9,$9,$0,$9,$0,$A,$0,$A,$0,$A,$0,$A,$0,$A,$0,$A,$A,$0,$A,$0,$0,$A,$0,$A,$A,$0,$A,
  756.            $8,$0,$8,$0,$8,$8,$8,$0,$8,$0,$8,$8,$0,$8,$0,$0,$8,$0,$8,$8,$0,$8,$0,$9,$0,$9,$0,$9,$9,$9,$0,$9,$0,$9,$9,$0,$9,$0,$0,$9,$0,$9,$9,$0,$9,$0,$A,$0,$A,$0,$A,$A,$A,$0,$A,$0,$A,$A,$0,$A,$0,$0,$A,$0,$A,$A,$0,$A,
  757.            $8,$0,$8,$8,$0,$8,$0,$8,$8,$0,$8,$8,$0,$8,$0,$0,$8,$0,$8,$8,$0,$8,$0,$9,$0,$9,$9,$0,$9,$0,$9,$9,$0,$9,$9,$0,$9,$0,$0,$9,$0,$9,$9,$0,$9,$0,$A,$0,$A,$A,$0,$A,$0,$A,$A,$0,$A,$A,$0,$A,$0,$0,$A,$0,$A,$A,$0,$A,
  758.            $8,$0,$8,$8,$0,$8,$0,$8,$8,$0,$8,$8,$0,$8,$0,$0,$8,$0,$8,$8,$0,$8,$0,$9,$0,$9,$9,$0,$9,$0,$9,$9,$0,$9,$9,$0,$9,$0,$0,$9,$0,$9,$9,$0,$9,$0,$A,$0,$A,$A,$0,$A,$0,$A,$A,$0,$A,$A,$0,$A,$0,$0,$A,$0,$A,$A,$0,$A,
  759.            $8,$0,$8,$8,$8,$0,$8,$8,$8,$0,$8,$8,$0,$8,$8,$8,$8,$0,$8,$8,$0,$8,$0,$9,$0,$9,$9,$9,$0,$9,$9,$9,$0,$9,$9,$0,$9,$9,$9,$9,$0,$9,$9,$0,$9,$0,$A,$0,$A,$A,$A,$0,$A,$A,$A,$0,$A,$A,$0,$A,$A,$A,$A,$0,$A,$A,$0,$A,
  760.            $8,$0,$8,$0,$8,$0,$8,$0,$8,$0,$8,$8,$8,$0,$0,$0,$0,$8,$8,$8,$0,$8,$0,$9,$0,$9,$0,$9,$0,$9,$0,$9,$0,$9,$9,$9,$0,$0,$0,$0,$9,$9,$9,$0,$9,$0,$A,$0,$A,$0,$A,$0,$A,$0,$A,$0,$A,$A,$A,$0,$0,$0,$0,$A,$A,$A,$0,$A,
  761.            $8,$8,$8,$0,$8,$8,$8,$0,$8,$8,$8,$0,$8,$8,$8,$8,$8,$8,$0,$8,$8,$8,$0,$9,$9,$9,$0,$9,$9,$9,$0,$9,$9,$9,$0,$9,$9,$9,$9,$9,$9,$0,$9,$9,$9,$0,$A,$A,$A,$0,$A,$A,$A,$0,$A,$A,$A,$0,$A,$A,$A,$A,$A,$A,$0,$A,$A,$A,
  762.            $2,$2,$2,$0,$0,$0,$0,$0,$2,$2,$2,$2,$2,$2,$0,$0,$2,$2,$2,$2,$2,$2,$0,$1,$1,$1,$0,$0,$0,$0,$0,$1,$1,$1,$1,$1,$1,$0,$0,$1,$1,$1,$1,$1,$1,$0,$B,$B,$B,$0,$0,$0,$0,$0,$B,$B,$B,$B,$B,$B,$0,$0,$B,$B,$B,$B,$B,$B,
  763.            $2,$0,$2,$2,$0,$0,$0,$2,$2,$0,$2,$2,$0,$2,$0,$0,$2,$0,$2,$2,$0,$2,$0,$1,$0,$1,$1,$0,$0,$0,$1,$1,$0,$1,$1,$0,$1,$0,$0,$1,$0,$1,$1,$0,$1,$0,$B,$0,$B,$B,$0,$0,$0,$B,$B,$0,$B,$B,$0,$B,$0,$0,$B,$0,$B,$B,$0,$B,
  764.            $2,$0,$0,$2,$0,$0,$0,$2,$0,$0,$2,$2,$0,$2,$0,$0,$2,$0,$2,$2,$0,$2,$0,$1,$0,$0,$1,$0,$0,$0,$1,$0,$0,$1,$1,$0,$1,$0,$0,$1,$0,$1,$1,$0,$1,$0,$B,$0,$0,$B,$0,$0,$0,$B,$0,$0,$B,$B,$0,$B,$0,$0,$B,$0,$B,$B,$0,$B,
  765.            $2,$0,$0,$2,$2,$0,$2,$2,$0,$0,$2,$2,$0,$2,$0,$0,$2,$0,$2,$2,$0,$2,$0,$1,$0,$0,$1,$1,$0,$1,$1,$0,$0,$1,$1,$0,$1,$0,$0,$1,$0,$1,$1,$0,$1,$0,$B,$0,$0,$B,$B,$0,$B,$B,$0,$0,$B,$B,$0,$B,$0,$0,$B,$0,$B,$B,$0,$B,
  766.            $2,$0,$2,$0,$2,$0,$2,$0,$2,$0,$2,$2,$0,$2,$0,$0,$2,$0,$2,$2,$0,$2,$0,$1,$0,$1,$0,$1,$0,$1,$0,$1,$0,$1,$1,$0,$1,$0,$0,$1,$0,$1,$1,$0,$1,$0,$B,$0,$B,$0,$B,$0,$B,$0,$B,$0,$B,$B,$0,$B,$0,$0,$B,$0,$B,$B,$0,$B,
  767.            $2,$0,$2,$0,$2,$2,$2,$0,$2,$0,$2,$2,$0,$2,$0,$0,$2,$0,$2,$2,$0,$2,$0,$1,$0,$1,$0,$1,$1,$1,$0,$1,$0,$1,$1,$0,$1,$0,$0,$1,$0,$1,$1,$0,$1,$0,$B,$0,$B,$0,$B,$B,$B,$0,$B,$0,$B,$B,$0,$B,$0,$0,$B,$0,$B,$B,$0,$B,
  768.            $2,$0,$2,$2,$0,$2,$0,$2,$2,$0,$2,$2,$0,$2,$0,$0,$2,$0,$2,$2,$0,$2,$0,$1,$0,$1,$1,$0,$1,$0,$1,$1,$0,$1,$1,$0,$1,$0,$0,$1,$0,$1,$1,$0,$1,$0,$B,$0,$B,$B,$0,$B,$0,$B,$B,$0,$B,$B,$0,$B,$0,$0,$B,$0,$B,$B,$0,$B,
  769.            $2,$0,$2,$2,$0,$2,$0,$2,$2,$0,$2,$2,$0,$2,$0,$0,$2,$0,$2,$2,$0,$2,$0,$1,$0,$1,$1,$0,$1,$0,$1,$1,$0,$1,$1,$0,$1,$0,$0,$1,$0,$1,$1,$0,$1,$0,$B,$0,$B,$B,$0,$B,$0,$B,$B,$0,$B,$B,$0,$B,$0,$0,$B,$0,$B,$B,$0,$B,
  770.            $2,$0,$2,$2,$2,$0,$2,$2,$2,$0,$2,$2,$0,$2,$2,$2,$2,$0,$2,$2,$0,$2,$0,$1,$0,$1,$1,$1,$0,$1,$1,$1,$0,$1,$1,$0,$1,$1,$1,$1,$0,$1,$1,$0,$1,$0,$B,$0,$B,$B,$B,$0,$B,$B,$B,$0,$B,$B,$0,$B,$B,$B,$B,$0,$B,$B,$0,$B,
  771.            $2,$0,$2,$0,$2,$0,$2,$0,$2,$0,$2,$2,$2,$0,$0,$0,$0,$2,$2,$2,$0,$2,$0,$1,$0,$1,$0,$1,$0,$1,$0,$1,$0,$1,$1,$1,$0,$0,$0,$0,$1,$1,$1,$0,$1,$0,$B,$0,$B,$0,$B,$0,$B,$0,$B,$0,$B,$B,$B,$0,$0,$0,$0,$B,$B,$B,$0,$B,
  772.            $2,$2,$2,$0,$2,$2,$2,$0,$2,$2,$2,$0,$2,$2,$2,$2,$2,$2,$0,$2,$2,$2,$0,$1,$1,$1,$0,$1,$1,$1,$0,$1,$1,$1,$0,$1,$1,$1,$1,$1,$1,$0,$1,$1,$1,$0,$B,$B,$B,$0,$B,$B,$B,$0,$B,$B,$B,$0,$B,$B,$B,$B,$B,$B,$0,$B,$B,$B,
  773.            $E,$E,$E,$0,$0,$0,$0,$0,$E,$E,$E,$E,$E,$E,$0,$0,$E,$E,$E,$E,$E,$E,$0,$D,$D,$D,$0,$0,$0,$0,$0,$D,$D,$D,$D,$D,$D,$0,$0,$D,$D,$D,$D,$D,$D,$0,$C,$C,$C,$0,$0,$0,$0,$0,$C,$C,$C,$C,$C,$C,$0,$0,$C,$C,$C,$C,$C,$C,
  774.            $E,$0,$E,$E,$0,$0,$0,$E,$E,$0,$E,$E,$0,$E,$0,$0,$E,$0,$E,$E,$0,$E,$0,$D,$0,$D,$D,$0,$0,$0,$D,$D,$0,$D,$D,$0,$D,$0,$0,$D,$0,$D,$D,$0,$D,$0,$C,$0,$C,$C,$0,$0,$0,$C,$C,$0,$C,$C,$0,$C,$0,$0,$C,$0,$C,$C,$0,$C,
  775.            $E,$0,$0,$E,$0,$0,$0,$E,$0,$0,$E,$E,$0,$E,$0,$0,$E,$0,$E,$E,$0,$E,$0,$D,$0,$0,$D,$0,$0,$0,$D,$0,$0,$D,$D,$0,$D,$0,$0,$D,$0,$D,$D,$0,$D,$0,$C,$0,$0,$C,$0,$0,$0,$C,$0,$0,$C,$C,$0,$C,$0,$0,$C,$0,$C,$C,$0,$C,
  776.            $E,$0,$0,$E,$E,$0,$E,$E,$0,$0,$E,$E,$0,$E,$0,$0,$E,$0,$E,$E,$0,$E,$0,$D,$0,$0,$D,$D,$0,$D,$D,$0,$0,$D,$D,$0,$D,$0,$0,$D,$0,$D,$D,$0,$D,$0,$C,$0,$0,$C,$C,$0,$C,$C,$0,$0,$C,$C,$0,$C,$0,$0,$C,$0,$C,$C,$0,$C,
  777.            $E,$0,$E,$0,$E,$0,$E,$0,$E,$0,$E,$E,$0,$E,$0,$0,$E,$0,$E,$E,$0,$E,$0,$D,$0,$D,$0,$D,$0,$D,$0,$D,$0,$D,$D,$0,$D,$0,$0,$D,$0,$D,$D,$0,$D,$0,$C,$0,$C,$0,$C,$0,$C,$0,$C,$0,$C,$C,$0,$C,$0,$0,$C,$0,$C,$C,$0,$C,
  778.            $E,$0,$E,$0,$E,$E,$E,$0,$E,$0,$E,$E,$0,$E,$0,$0,$E,$0,$E,$E,$0,$E,$0,$D,$0,$D,$0,$D,$D,$D,$0,$D,$0,$D,$D,$0,$D,$0,$0,$D,$0,$D,$D,$0,$D,$0,$C,$0,$C,$0,$C,$C,$C,$0,$C,$0,$C,$C,$0,$C,$0,$0,$C,$0,$C,$C,$0,$C,
  779.            $E,$0,$E,$E,$0,$E,$0,$E,$E,$0,$E,$E,$0,$E,$0,$0,$E,$0,$E,$E,$0,$E,$0,$D,$0,$D,$D,$0,$D,$0,$D,$D,$0,$D,$D,$0,$D,$0,$0,$D,$0,$D,$D,$0,$D,$0,$C,$0,$C,$C,$0,$C,$0,$C,$C,$0,$C,$C,$0,$C,$0,$0,$C,$0,$C,$C,$0,$C,
  780.            $E,$0,$E,$E,$0,$E,$0,$E,$E,$0,$E,$E,$0,$E,$0,$0,$E,$0,$E,$E,$0,$E,$0,$D,$0,$D,$D,$0,$D,$0,$D,$D,$0,$D,$D,$0,$D,$0,$0,$D,$0,$D,$D,$0,$D,$0,$C,$0,$C,$C,$0,$C,$0,$C,$C,$0,$C,$C,$0,$C,$0,$0,$C,$0,$C,$C,$0,$C,
  781.            $E,$0,$E,$E,$E,$0,$E,$E,$E,$0,$E,$E,$0,$E,$E,$E,$E,$0,$E,$E,$0,$E,$0,$D,$0,$D,$D,$D,$0,$D,$D,$D,$0,$D,$D,$0,$D,$D,$D,$D,$0,$D,$D,$0,$D,$0,$C,$0,$C,$C,$C,$0,$C,$C,$C,$0,$C,$C,$0,$C,$C,$C,$C,$0,$C,$C,$0,$C,
  782.            $E,$0,$E,$0,$E,$0,$E,$0,$E,$0,$E,$E,$E,$0,$0,$0,$0,$E,$E,$E,$0,$E,$0,$D,$0,$D,$0,$D,$0,$D,$0,$D,$0,$D,$D,$D,$0,$0,$0,$0,$D,$D,$D,$0,$D,$0,$C,$0,$C,$0,$C,$0,$C,$0,$C,$0,$C,$C,$C,$0,$0,$0,$0,$C,$C,$C,$0,$C,
  783.            $E,$E,$E,$0,$E,$E,$E,$0,$E,$E,$E,$0,$E,$E,$E,$E,$E,$E,$0,$E,$E,$E,$0,$D,$D,$D,$0,$D,$D,$D,$0,$D,$D,$D,$0,$D,$D,$D,$D,$D,$D,$0,$D,$D,$D,$0,$C,$C,$C,$0,$C,$C,$C,$0,$C,$C,$C,$0,$C,$C,$C,$C,$C,$C,$0,$C,$C,$C
  784.