home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / acc / utility / theacc12 / resourcc.mod < prev    next >
Encoding:
Text File  |  1988-07-19  |  33.1 KB  |  580 lines
  1. MODULE resource;
  2.  
  3. (*
  4.    Produced by ResourceMaker 0.10a
  5.    Copyright (c) 1985, 1986 Modula 2 Software Ltd.
  6.    Copyright (c) 1985, 1986 TDI Software Inc.
  7.  
  8.    Resource file version: 00001H
  9. *)
  10.  
  11.   FROM SYSTEM IMPORT CODE, ADDRESS;
  12.  
  13.   FROM AESResources IMPORT ResourceObjectFix;
  14.   EXPORT TreeAddr, InitResource;
  15.   
  16.   CONST
  17.     (* object types that don't have to be relocated *)
  18.     GBOX = 20;
  19.     GPROGDEF = 24;
  20.     GIBOX = 25;
  21.     GBOXCHAR = 27;
  22.  
  23.   CONST
  24.     (* objects that cannot be scaled for different resolutions *)
  25.     GIMAGE = 23;
  26.     GICON = 31;
  27.  
  28.   CONST
  29.     (* resource file object counts and indicies *)
  30.     nrObjects = 135;  ixObjects = 3880;
  31.     nrTrees = 6;  ixTrees = 7120;
  32.     nrTedInfos = 88;  ixTedInfos = 1416;
  33.     nrBitBlks = 1;  ixBitBlks = 1402;
  34.  
  35.   (* resource file data inserted into CODE stream *)
  36.  
  37.   (*$S-,$P-,$T-*)
  38.   PROCEDURE RESOURCEDATA0;
  39.   BEGIN
  40.     CODE(00001H,00F28H,00588H,00F28H,0057AH,0057AH,00024H,004A2H);
  41.     CODE(00588H,01BD0H,00087H,00006H,00058H,00000H,00001H,00000H);
  42.     CODE(00000H,01BE8H,07061H,07468H,06E61H,06D65H,02E65H,07874H);
  43.     CODE(05C70H,06174H,0686EH,0616DH,0652EH,06578H,0745CH,07061H);
  44.     CODE(07468H,06E61H,06D65H,02E65H,07874H,00000H,00042H,05954H);
  45.     CODE(04553H,02052H,0454DH,04149H,04E49H,04E47H,00000H,00001H);
  46.     CODE(00000H,0005FH,05F5FH,05F5FH,05F5FH,05F5FH,05F5FH,05F5FH);
  47.     CODE(05F00H,00000H,05F5FH,05F5FH,05F5FH,05F5FH,05F5FH,05F5FH);
  48.     CODE(05F5FH,00000H,0005FH,05F5FH,05F5FH,05F5FH,05F5FH,05F5FH);
  49.     CODE(05F5FH,05F00H,00000H,05F5FH,05F5FH,05F5FH,05F5FH,05F5FH);
  50.     CODE(05F5FH,05F5FH,00000H,0005FH,05F5FH,05F5FH,05F5FH,05F5FH);
  51.     CODE(05F5FH,05F5FH,05F00H,00000H,05F5FH,05F5FH,05F5FH,05F5FH);
  52.     CODE(05F5FH,05F5FH,05F5FH,00000H,0005FH,05F5FH,05F5FH,05F5FH);
  53.     CODE(05F5FH,05F5FH,05F5FH,05F00H,00000H,05F5FH,05F5FH,05F5FH);
  54.     CODE(05F5FH,05F5FH,05F5FH,05F5FH,00000H,0005FH,05F5FH,05F5FH);
  55.     CODE(05F5FH,05F5FH,05F5FH,05F5FH,05F00H,00000H,05F5FH,05F5FH);
  56.     CODE(05F5FH,05F5FH,05F5FH,05F5FH,05F5FH,00000H,0005FH,05F5FH);
  57.     CODE(05F5FH,05F5FH,05F5FH,05F5FH,05F5FH,05F00H,00000H,05F5FH);
  58.     CODE(05F5FH,05F5FH,05F5FH,05F5FH,05F5FH,05F5FH,00000H,00000H);
  59.     CODE(00000H,05365H,06C65H,06374H,0696FH,06E00H,00000H,02D2DH);
  60.     CODE(02D2DH,02D2DH,02D2DH,02D2DH,02D2DH,0005FH,05F5FH,05F5FH);
  61.     CODE(05F5FH,05F5FH,05F5FH,05F00H,05050H,05050H,05050H,05050H);
  62.     CODE(05050H,05050H,00020H,04120H,00000H,00020H,04220H,00000H);
  63.     CODE(00020H,04320H,00000H,00020H,04420H,00000H,00020H,04520H);
  64.     CODE(00000H,00020H,04620H,00000H,00020H,04720H,00000H,00020H);
  65.     CODE(04820H,00000H,00049H,00000H,0004AH,00000H,0004BH,00000H);
  66.     CODE(0004CH,00000H,0004DH,00000H,0004EH,00000H,0004FH,00000H);
  67.     CODE(00050H,00000H,00020H,05052H,0494EH,05420H,00000H,0004FH);
  68.     CODE(04E45H,02041H,04352H,04F53H,05300H,00000H,05448H,05245H);
  69.     CODE(04520H,04143H,0524FH,05353H,00000H,00002H,00000H,0002AH);
  70.     CODE(02E2AH,02020H,0004DH,06173H,06B3AH,0205FH,05F5FH,05F5FH);
  71.     CODE(00050H,05050H,05050H,00020H,03030H,03030H,03030H,02000H);
  72.     CODE(00000H,02052H,02F4FH,02000H,00000H,03030H,03030H,03030H);
  73.     CODE(0005FH,05F2FH,05F5FH,02F5FH,05F00H,03939H,03939H,03939H);
  74.     CODE(00020H,0522FH,05720H,00000H,00030H,03030H,03020H,0005FH);
  75.     CODE(05F3AH,05F5FH,0205FH,04D00H,03939H,03939H,04100H,02053H);
  76.     CODE(04554H,02000H,00000H,02D2DH,02D2DH,02D2DH,02D2DH,02D2DH);
  77.     CODE(02D00H,05F5FH,05F5FH,05F5FH,05F5FH,02E5FH,05F5FH,00046H);
  78.     CODE(04646H,04646H,04646H,04646H,04646H,00046H,0494CH,04520H);
  79.     CODE(0494EH,0464FH,00000H,00020H,0464FH,0524DH,04154H,02000H);
  80.     CODE(00000H,04100H,00000H,02042H,02000H,00000H,0392FH,03830H);
  81.     CODE(00000H,00020H,05320H,00000H,00020H,04420H,00000H,00046H);
  82.     CODE(04F4CH,04445H,05253H,00000H,00020H,04552H,04153H,04520H);
  83.     CODE(00000H,00020H,04352H,04541H,05445H,02000H,00000H,04F4BH);
  84.     CODE(00000H,00020H,0434FH,05059H,0204FH,05054H,0494FH,04E53H);
  85.     CODE(02000H,00000H,02046H,0494CH,04520H,00000H,00020H,04449H);
  86.     CODE(0534BH,02000H,00000H,02043H,04F50H,05920H,00000H,00043H);
  87.     CODE(0414EH,04345H,04C00H,00000H,0534FH,05552H,04345H,00000H);
  88.     CODE(00044H,04553H,05449H,04E41H,05449H,04F4EH,00000H,00046H);
  89.     CODE(04F4CH,04445H,05200H,00000H,05752H,04954H,04520H,05645H);
  90.     CODE(05249H,04659H,0204FH,04646H,00000H,0004FH,05054H,0494FH);
  91.     CODE(04E53H,00000H,00045H,05241H,05345H,02046H,0494CH,04500H);
  92.     CODE(00000H,0444FH,04E45H,00000H,0002DH,02D2DH,02D2DH,02D2DH);
  93.     CODE(02D2DH,02D2DH,0005FH,05F5FH,05F5FH,05F5FH,05F2EH,05F5FH);
  94.     CODE(05F00H,04646H,04646H,04646H,04646H,04646H,04600H,04F4BH);
  95.     CODE(00043H,0616EH,06365H,06C00H,04E61H,06D65H,02063H,06F6EH);
  96.     CODE(0666CH,06963H,07400H,00000H,06475H,07269H,06E67H,02063H);
  97.     CODE(06F70H,07921H,00000H,00043H,04F50H,05920H,04449H,0534BH);
  98.     CODE(00000H,00041H,02003H,02042H,00000H,00042H,02003H,02041H);
  99.     CODE(00000H,0004FH,04B00H,04558H,04954H,00059H,04553H,0004EH);
  100.     CODE(04F00H,05945H,05300H,04E4FH,0004FH,04B00H,04341H,04E43H);
  101.     CODE(0454CH,00053H,04554H,02050H,05245H,04645H,05245H,04E43H);
  102.     CODE(04553H,00000H,00043H,04F4EH,04649H,0524DH,02043H,04F50H);
  103.     CODE(04945H,05300H,00000H,0434FH,04E46H,04952H,04D20H,04445H);
  104.     CODE(04C45H,05445H,05300H,00000H,0434FH,04E46H,04952H,04D20H);
  105.     CODE(0434FH,05049H,04553H,00000H,00046H,04F4CH,04445H,05253H);
  106.     CODE(02054H,04F20H,0434FH,05059H,03A00H,00000H,03939H,03900H);
  107.     CODE(00000H,04649H,04C45H,05320H,0544FH,02043H,04F50H,0593AH);
  108.     CODE(00000H,00039H,03939H,00000H,0004FH,04B00H,04341H,04E43H);
  109.     CODE(0454CH,00043H,04F4EH,04649H,0524DH,02044H,0454CH,04554H);
  110.     CODE(04553H,00000H,00046H,04F4CH,04445H,05253H,02054H,04F20H);
  111.     CODE(04552H,04153H,0453AH,00000H,00039H,03939H,00000H,00046H);
  112.     CODE(0494CH,04553H,02054H,04F20H,04552H,04153H,0453AH,00000H);
  113.     CODE(00039H,03939H,00000H,0004FH,04B00H,04341H,04E43H,0454CH);
  114.     CODE(00000H,00000H,02000H,00000H,00000H,07000H,00000H,00000H);
  115.     CODE(0D800H,00000H,00001H,08C00H,00000H,00003H,02600H,00000H);
  116.     CODE(00006H,07300H,00000H,0000CH,0F980H,00000H,00019H,0FCC0H);
  117.     CODE(00000H,00033H,0FE60H,00000H,00067H,08F30H,00000H,000CFH);
  118.     CODE(08F98H,00000H,0019FH,08FCCH,00000H,0033FH,08FE6H,00000H);
  119.     CODE(0067FH,08FF3H,00000H,00CFFH,08FF9H,08000H,019FFH,08FFCH);
  120.     CODE(0C000H,033FFH,08FFEH,06000H,067FFH,08FFFH,03000H,033FFH);
  121.     CODE(08FFEH,06000H,019FFH,08FFCH,0C000H,00CFFH,08FF9H,08000H);
  122.     CODE(0067FH,08FF3H,00000H,0033FH,08FE6H,00000H,0019FH,0FFCCH);
  123.     CODE(00000H,000CFH,08F98H,00000H,00067H,08F30H,00000H,00033H);
  124.     CODE(0FE60H,00000H,00019H,0FCC0H,00000H,0000CH,0F980H,00000H);
  125.     CODE(00006H,07300H,00000H,00003H,02600H,00000H,00001H,08C00H);
  126.     CODE(00000H,00000H,0D800H,00000H,00000H,07000H,00000H,00000H);
  127.     CODE(02000H,00000H,00000H,00000H,00000H,00000H,004A2H,00006H);
  128.     CODE(00024H,00000H,00000H,00001H,00000H,00024H,00000H,0004BH);
  129.     CODE(00000H,0004CH,00005H,00006H,00002H,01180H,00000H,0FFFFH);
  130.     CODE(00027H,00001H,00000H,0004DH,00000H,0005DH,00000H,0005EH);
  131.     CODE(00005H,00006H,00002H,01180H,00000H,0FFFFH,00010H,00001H);
  132.     CODE(00000H,0005FH,00000H,00061H,00000H,00062H,00003H,00006H);
  133.     CODE(00002H,01180H,00000H,0FFFFH,00002H,00001H,00000H,00063H);
  134.     CODE(00000H,00072H,00000H,00073H,00003H,00006H,00000H,01180H);
  135.     CODE(00000H,0FFFFH,0000FH,00001H,00000H,00074H,00000H,00083H);
  136.     CODE(00000H,00084H,00003H,00006H,00000H,01180H,00000H,0FFFFH);
  137.     CODE(0000FH,00001H,00000H,00085H,00000H,00094H,00000H,00095H);
  138.     CODE(00003H,00006H,00000H,01180H,00000H,0FFFFH,0000FH,00001H);
  139.     CODE(00000H,00096H,00000H,000A5H,00000H,000A6H,00003H,00006H);
  140.     CODE(00000H,01180H,00000H,0FFFFH,0000FH,00001H,00000H,000A7H);
  141.     CODE(00000H,000B6H,00000H,000B7H,00003H,00006H,00000H,01180H);
  142.     CODE(00000H,0FFFFH,0000FH,00001H,00000H,000B8H,00000H,000C7H);
  143.     CODE(00000H,000C8H,00003H,00006H,00000H,01180H,00000H,0FFFFH);
  144.     CODE(0000FH,00001H,00000H,000C9H,00000H,000D8H,00000H,000D9H);
  145.     CODE(00003H,00006H,00000H,01180H,00000H,0FFFFH,0000FH,00001H);
  146.     CODE(00000H,000DAH,00000H,000E9H,00000H,000EAH,00003H,00006H);
  147.     CODE(00000H,01180H,00000H,0FFFFH,0000FH,00001H,00000H,000EBH);
  148.     CODE(00000H,000FAH,00000H,000FBH,00003H,00006H,00000H,01180H);
  149.     CODE(00000H,0FFFFH,0000FH,00001H,00000H,000FCH,00000H,0010BH);
  150.     CODE(00000H,0010CH,00003H,00006H,00000H,01180H,00000H,0FFFFH);
  151.     CODE(0000FH,00001H,00000H,0010DH,00000H,0011CH,00000H,0011DH);
  152.     CODE(00003H,00006H,00000H,01180H,00000H,0FFFFH,0000FH,00001H);
  153.     CODE(00000H,0011EH,00000H,0012DH,00000H,0012EH,00003H,00006H);
  154.     CODE(00000H,01180H,00000H,0FFFFH,0000FH,00001H,00000H,0012FH);
  155.     CODE(00000H,00130H,00000H,00131H,00003H,00006H,00002H,01180H);
  156.     CODE(00000H,0FFFFH,00001H,00001H,00000H,00132H,00000H,0013CH);
  157.     CODE(00000H,0013DH,00005H,00006H,00002H,01180H,00000H,0FFFFH);
  158.     CODE(0000AH,00001H,00000H,0013EH,00000H,0014BH,00000H,00158H);
  159.     CODE(00003H,00006H,00000H,01180H,00000H,0FFFFH,0000DH,0000DH);
  160.     CODE(00000H,00165H,00000H,00169H,00000H,0016AH,00005H,00006H);
  161.     CODE(00002H,01100H,00000H,0FFFFH,00004H,00001H,00000H,0016BH);
  162.     CODE(00000H,0016FH,00000H,00170H,00005H,00006H,00002H,01100H);
  163.     CODE(00000H,0FFFFH,00004H,00001H,00000H,00171H,00000H,00175H);
  164.     CODE(00000H,00176H,00005H,00006H,00002H,01100H,00000H,0FFFFH);
  165.     CODE(00004H,00001H,00000H,00177H,00000H,0017BH,00000H,0017CH);
  166.     CODE(00005H,00006H,00002H,01100H,00000H,0FFFFH,00004H,00001H);
  167.     CODE(00000H,0017DH,00000H,00181H,00000H,00182H,00005H,00006H);
  168.   END RESOURCEDATA0;
  169.   (*$S-,$P-,$T-*)
  170.   PROCEDURE RESOURCEDATA1;
  171.   BEGIN
  172.     CODE(00002H,01100H,00000H,0FFFFH,00004H,00001H,00000H,00183H);
  173.     CODE(00000H,00187H,00000H,00188H,00005H,00006H,00002H,01100H);
  174.     CODE(00000H,0FFFFH,00004H,00001H,00000H,00189H,00000H,0018DH);
  175.     CODE(00000H,0018EH,00005H,00006H,00002H,01100H,00000H,0FFFFH);
  176.     CODE(00004H,00001H,00000H,0018FH,00000H,00193H,00000H,00194H);
  177.     CODE(00005H,00006H,00002H,01100H,00000H,0FFFFH,00004H,00001H);
  178.     CODE(00000H,00195H,00000H,00197H,00000H,00198H,00005H,00006H);
  179.     CODE(00002H,01100H,00000H,0FFFFH,00002H,00001H,00000H,00199H);
  180.     CODE(00000H,0019BH,00000H,0019CH,00005H,00006H,00002H,01100H);
  181.     CODE(00000H,0FFFFH,00002H,00001H,00000H,0019DH,00000H,0019FH);
  182.     CODE(00000H,001A0H,00005H,00006H,00002H,01100H,00000H,0FFFFH);
  183.     CODE(00002H,00001H,00000H,001A1H,00000H,001A3H,00000H,001A4H);
  184.     CODE(00005H,00006H,00002H,01100H,00000H,0FFFFH,00002H,00001H);
  185.     CODE(00000H,001A5H,00000H,001A7H,00000H,001A8H,00005H,00006H);
  186.     CODE(00002H,01100H,00000H,0FFFFH,00002H,00001H,00000H,001A9H);
  187.     CODE(00000H,001ABH,00000H,001ACH,00005H,00006H,00002H,01100H);
  188.     CODE(00000H,0FFFFH,00002H,00001H,00000H,001ADH,00000H,001AFH);
  189.     CODE(00000H,001B0H,00005H,00006H,00002H,01100H,00000H,0FFFFH);
  190.     CODE(00002H,00001H,00000H,001B1H,00000H,001B3H,00000H,001B4H);
  191.     CODE(00005H,00006H,00002H,01100H,00000H,0FFFFH,00002H,00001H);
  192.     CODE(00000H,001B5H,00000H,001BDH,00000H,001BEH,00005H,00006H);
  193.     CODE(00002H,01180H,00000H,0FFFFH,00008H,00001H,00000H,001BFH);
  194.     CODE(00000H,001CAH,00000H,001CBH,00005H,00006H,00002H,01180H);
  195.     CODE(00000H,0FFFFH,0000BH,00001H,00000H,001CCH,00000H,001D9H);
  196.     CODE(00000H,001DAH,00005H,00006H,00002H,01180H,00000H,0FFFFH);
  197.     CODE(0000DH,00001H,00000H,001DBH,00000H,001DDH,00000H,001DEH);
  198.     CODE(00003H,00006H,00002H,01180H,00000H,0FFFFH,00002H,00001H);
  199.     CODE(00000H,001DFH,00000H,001E5H,00000H,001F1H,00003H,00006H);
  200.     CODE(00002H,01180H,00000H,0FFFFH,00006H,0000CH,00000H,001F7H);
  201.     CODE(00000H,00200H,00000H,00201H,00005H,00006H,00002H,01180H);
  202.     CODE(00000H,0FFFFH,00009H,00001H,00000H,00202H,00000H,00208H);
  203.     CODE(00000H,00209H,00005H,00006H,00002H,01180H,00000H,0FFFFH);
  204.     CODE(00006H,00001H,00000H,0020AH,00000H,00211H,00000H,0021AH);
  205.     CODE(00005H,00006H,00002H,01180H,00000H,0FFFFH,00007H,00009H);
  206.     CODE(00000H,00221H,00000H,00227H,00000H,00228H,00005H,00006H);
  207.     CODE(00002H,01180H,00000H,0FFFFH,00006H,00001H,00000H,00229H);
  208.     CODE(00000H,0022FH,00000H,00238H,00005H,00006H,00002H,01180H);
  209.     CODE(00000H,0FFFFH,00006H,00009H,00000H,0023EH,00000H,00244H);
  210.     CODE(00000H,00245H,00005H,00006H,00002H,01180H,00000H,0FFFFH);
  211.     CODE(00006H,00001H,00000H,00246H,00000H,00252H,00000H,0025FH);
  212.     CODE(00003H,00006H,00002H,01180H,00000H,0FFFFH,0000CH,0000DH);
  213.     CODE(00000H,0026BH,00000H,00275H,00000H,00276H,00005H,00006H);
  214.     CODE(00002H,01180H,00000H,0FFFFH,0000AH,00001H,00000H,00277H);
  215.     CODE(00000H,00280H,00000H,00281H,00005H,00006H,00002H,01180H);
  216.     CODE(00000H,0FFFFH,00009H,00001H,00000H,00282H,00000H,00284H);
  217.     CODE(00000H,00285H,00005H,00006H,00002H,01102H,00000H,0FFFFH);
  218.     CODE(00002H,00001H,00000H,00286H,00000H,0028AH,00000H,0028BH);
  219.     CODE(00005H,00006H,00002H,01180H,00000H,0FFFFH,00004H,00001H);
  220.     CODE(00000H,0028CH,00000H,00291H,00000H,00292H,00005H,00006H);
  221.     CODE(00002H,011B2H,00000H,0FFFFH,00005H,00001H,00000H,00293H);
  222.     CODE(00000H,00297H,00000H,00298H,00005H,00006H,00002H,01180H);
  223.     CODE(00000H,0FFFFH,00004H,00001H,00000H,00299H,00000H,0029DH);
  224.     CODE(00000H,0029EH,00005H,00006H,00002H,01180H,00000H,0FFFFH);
  225.     CODE(00004H,00001H,00000H,0029FH,00000H,002A7H,00000H,002A8H);
  226.     CODE(00005H,00006H,00002H,01180H,00000H,0FFFFH,00008H,00001H);
  227.     CODE(00000H,002A9H,00000H,002B1H,00000H,002B2H,00005H,00006H);
  228.     CODE(00002H,01180H,00000H,0FFFFH,00008H,00001H,00000H,002B3H);
  229.     CODE(00000H,002BCH,00000H,002BDH,00005H,00006H,00002H,01180H);
  230.     CODE(00000H,0FFFFH,00009H,00001H,00000H,002BEH,00000H,002C1H);
  231.     CODE(00000H,002C2H,00005H,00006H,00002H,01180H,00000H,0FFFEH);
  232.     CODE(00003H,00001H,00000H,002C3H,00000H,002D2H,00000H,002D3H);
  233.     CODE(00005H,00006H,00002H,01180H,00000H,0FFFFH,0000FH,00001H);
  234.     CODE(00000H,002D4H,00000H,002DBH,00000H,002DCH,00005H,00006H);
  235.     CODE(00002H,01180H,00000H,0FFFFH,00007H,00001H,00000H,002DDH);
  236.     CODE(00000H,002E4H,00000H,002E5H,00005H,00006H,00002H,01180H);
  237.     CODE(00000H,0FFFFH,00007H,00001H,00000H,002E6H,00000H,002EDH);
  238.     CODE(00000H,002EEH,00005H,00006H,00002H,01180H,00000H,0FFFFH);
  239.     CODE(00007H,00001H,00000H,002EFH,00000H,002F6H,00000H,002F7H);
  240.     CODE(00005H,00006H,00002H,01180H,00000H,0FFFEH,00007H,00001H);
  241.     CODE(00000H,002F8H,00000H,002FFH,00000H,00300H,00005H,00006H);
  242.     CODE(00002H,01180H,00000H,0FFFFH,00007H,00001H,00000H,00301H);
  243.     CODE(00000H,0030DH,00000H,0030EH,00005H,00006H,00002H,01180H);
  244.     CODE(00000H,0FFFFH,0000CH,00001H,00000H,0030FH,00000H,00316H);
  245.     CODE(00000H,00317H,00005H,00006H,00002H,01180H,00000H,0FFFFH);
  246.     CODE(00007H,00001H,00000H,00318H,00000H,00329H,00000H,0032AH);
  247.     CODE(00005H,00006H,00002H,01180H,00000H,0FFFFH,00011H,00001H);
  248.     CODE(00000H,0032BH,00000H,00333H,00000H,00334H,00005H,00006H);
  249.     CODE(00002H,02180H,00000H,0FFFFH,00008H,00001H,00000H,00335H);
  250.     CODE(00000H,00340H,00000H,00341H,00005H,00006H,00002H,01180H);
  251.     CODE(00000H,0FFFFH,0000BH,00001H,00000H,00342H,00000H,00347H);
  252.     CODE(00000H,00348H,00003H,00006H,00002H,02181H,00000H,00001H);
  253.     CODE(00005H,00001H,00000H,00349H,00000H,00355H,00000H,00362H);
  254.     CODE(00003H,00006H,00000H,01180H,00000H,0FFFFH,0000CH,0000DH);
  255.     CODE(00000H,00378H,00000H,00386H,00000H,00387H,00003H,00006H);
  256.     CODE(00000H,01180H,00000H,0FFFFH,0000EH,00001H,00000H,00388H);
  257.     CODE(00000H,00395H,00000H,00396H,00003H,00006H,00000H,01180H);
  258.     CODE(00000H,0FFFFH,0000DH,00001H,00000H,00397H,00000H,003A1H);
  259.     CODE(00000H,003A2H,00005H,00006H,00002H,01180H,00000H,0FFFFH);
  260.     CODE(0000AH,00001H,00000H,003A3H,00000H,003A9H,00000H,003AAH);
  261.     CODE(00005H,00006H,00002H,01180H,00000H,0FFFFH,00006H,00001H);
  262.     CODE(00000H,003ABH,00000H,003B1H,00000H,003B2H,00005H,00006H);
  263.     CODE(00002H,01180H,00000H,0FFFFH,00006H,00001H,00000H,003D3H);
  264.     CODE(00000H,003E3H,00000H,003E4H,00003H,00006H,00002H,01180H);
  265.     CODE(00000H,0FFFFH,00010H,00001H,00000H,003E5H,00000H,003F4H);
  266.     CODE(00000H,003F5H,00003H,00006H,00000H,01180H,00000H,0FFFFH);
  267.     CODE(0000FH,00001H,00000H,003F6H,00000H,00406H,00000H,00407H);
  268.     CODE(00003H,00006H,00000H,01180H,00000H,0FFFFH,00010H,00001H);
  269.     CODE(00000H,00408H,00000H,00417H,00000H,00418H,00003H,00006H);
  270.     CODE(00002H,01180H,00000H,0FFFEH,0000FH,00001H,00000H,00419H);
  271.     CODE(00000H,0042AH,00000H,0042BH,00003H,00006H,00000H,01180H);
  272.     CODE(00000H,0FFFFH,00011H,00001H,00000H,0042CH,00000H,00430H);
  273.     CODE(00000H,00431H,00003H,00006H,00001H,01180H,00000H,0FFFFH);
  274.     CODE(00004H,00001H,00000H,00432H,00000H,00441H,00000H,00442H);
  275.     CODE(00003H,00006H,00000H,01180H,00000H,0FFFFH,0000FH,00001H);
  276.     CODE(00000H,00443H,00000H,00447H,00000H,00448H,00003H,00006H);
  277.     CODE(00001H,01180H,00000H,0FFFFH,00004H,00001H,00000H,00453H);
  278.     CODE(00000H,00463H,00000H,00464H,00003H,00006H,00002H,01180H);
  279.     CODE(00000H,0FFFEH,00010H,00001H,00000H,00465H,00000H,00477H);
  280.     CODE(00000H,00478H,00003H,00006H,00000H,01180H,00000H,0FFFFH);
  281.     CODE(00012H,00001H,00000H,00479H,00000H,0047DH,00000H,0047EH);
  282.     CODE(00003H,00006H,00001H,01180H,00000H,0FFFFH,00004H,00001H);
  283.     CODE(00000H,0047FH,00000H,0048FH,00000H,00490H,00003H,00006H);
  284.     CODE(00000H,01180H,00000H,0FFFFH,00010H,00001H,00000H,00491H);
  285.     CODE(00000H,00495H,00000H,00496H,00003H,00006H,00001H,01180H);
  286.     CODE(00000H,0FFFFH,00004H,00001H,0FFFFH,00001H,00058H,00014H);
  287.     CODE(00000H,00010H,00001H,01141H,00100H,00100H,0024DH,00516H);
  288.     CODE(0002EH,00002H,0002DH,00014H,00000H,00020H,001FFH,01113H);
  289.     CODE(00600H,00400H,00525H,00215H,00003H,0FFFFH,0FFFFH,00016H);
  290.     CODE(00040H,00000H,00000H,00588H,00600H,00400H,00124H,00001H);
  291.     CODE(00004H,0FFFFH,0FFFFH,00016H,00005H,00000H,00000H,005A4H);
  292.     CODE(00415H,00701H,0020DH,00101H,00005H,0FFFFH,0FFFFH,00016H);
  293.     CODE(00040H,00000H,00000H,005C0H,00101H,00701H,00112H,00201H);
  294.     CODE(00012H,00006H,00011H,00014H,00000H,00000H,000FFH,01101H);
  295.     CODE(00101H,00303H,0020FH,0000EH,00007H,0FFFFH,0FFFFH,00015H);
  296.     CODE(00040H,00000H,00000H,005DCH,00001H,00001H,0000EH,00001H);
  297.     CODE(00008H,0FFFFH,0FFFFH,00015H,00040H,00000H,00000H,005F8H);
  298.     CODE(00001H,00002H,0000EH,00001H,00009H,0FFFFH,0FFFFH,00015H);
  299.     CODE(00040H,00000H,00000H,00614H,00001H,00003H,0000EH,00001H);
  300.   END RESOURCEDATA1;
  301.   (*$S-,$P-,$T-*)
  302.   PROCEDURE RESOURCEDATA2;
  303.   BEGIN
  304.     CODE(0000AH,0FFFFH,0FFFFH,00015H,00040H,00000H,00000H,00630H);
  305.     CODE(00001H,00004H,0000EH,00001H,0000BH,0FFFFH,0FFFFH,00015H);
  306.     CODE(00040H,00000H,00000H,0064CH,00001H,00005H,0000EH,00001H);
  307.     CODE(0000CH,0FFFFH,0FFFFH,00015H,00040H,00000H,00000H,00668H);
  308.     CODE(00001H,00006H,0000EH,00001H,0000DH,0FFFFH,0FFFFH,00015H);
  309.     CODE(00040H,00000H,00000H,00684H,00001H,00007H,0000EH,00001H);
  310.     CODE(0000EH,0FFFFH,0FFFFH,00015H,00040H,00000H,00000H,006A0H);
  311.     CODE(00001H,00008H,0000EH,00001H,0000FH,0FFFFH,0FFFFH,00015H);
  312.     CODE(00040H,00000H,00000H,006BCH,00001H,00009H,0000EH,00001H);
  313.     CODE(00010H,0FFFFH,0FFFFH,00015H,00040H,00000H,00000H,006D8H);
  314.     CODE(00001H,0000AH,0000EH,00001H,00011H,0FFFFH,0FFFFH,00015H);
  315.     CODE(00040H,00000H,00000H,006F4H,00001H,0000BH,0000EH,00001H);
  316.     CODE(00005H,0FFFFH,0FFFFH,00015H,00040H,00000H,00000H,00710H);
  317.     CODE(00001H,0000CH,0000EH,00001H,00014H,00013H,00013H,00014H);
  318.     CODE(00040H,00000H,000FFH,01112H,00410H,00303H,00602H,0000EH);
  319.     CODE(00012H,0FFFFH,0FFFFH,00014H,00040H,00000H,000FFH,01101H);
  320.     CODE(00000H,00000H,00602H,00402H,00015H,0FFFFH,0FFFFH,00016H);
  321.     CODE(00000H,00000H,00000H,0072CH,00416H,00303H,0020BH,00101H);
  322.     CODE(00018H,00016H,00017H,00014H,00000H,00000H,00000H,01113H);
  323.     CODE(00016H,00105H,0070DH,00603H,00017H,0FFFFH,0FFFFH,00016H);
  324.     CODE(00000H,00000H,00000H,00748H,00002H,00400H,00208H,00001H);
  325.     CODE(00015H,0FFFFH,0FFFFH,0001DH,00008H,00000H,00000H,00764H);
  326.     CODE(00400H,00202H,0000CH,00001H,00019H,0FFFFH,0FFFFH,00016H);
  327.     CODE(00015H,00008H,00000H,00780H,00015H,00009H,00003H,00001H);
  328.     CODE(0001AH,0FFFFH,0FFFFH,00016H,00015H,00008H,00000H,0079CH);
  329.     CODE(00618H,00009H,00003H,00001H,0001BH,0FFFFH,0FFFFH,00016H);
  330.     CODE(00015H,00008H,00000H,007B8H,0041CH,00009H,00003H,00001H);
  331.     CODE(0001CH,0FFFFH,0FFFFH,00016H,00015H,00008H,00000H,007D4H);
  332.     CODE(00220H,00009H,00003H,00001H,0001DH,0FFFFH,0FFFFH,00016H);
  333.     CODE(00015H,00008H,00000H,007F0H,00015H,0030AH,00003H,00001H);
  334.     CODE(0001EH,0FFFFH,0FFFFH,00016H,00015H,00008H,00000H,0080CH);
  335.     CODE(00618H,0030AH,00003H,00001H,0001FH,0FFFFH,0FFFFH,00016H);
  336.     CODE(00015H,00008H,00000H,00828H,0041CH,0030AH,00003H,00001H);
  337.     CODE(00020H,0FFFFH,0FFFFH,00016H,00015H,00008H,00000H,00844H);
  338.     CODE(00220H,0030AH,00003H,00001H,00021H,0FFFFH,0FFFFH,00016H);
  339.     CODE(00015H,00008H,00000H,00860H,00015H,0060BH,00003H,00001H);
  340.     CODE(00022H,0FFFFH,0FFFFH,00016H,00015H,00008H,00000H,0087CH);
  341.     CODE(00618H,0060BH,00003H,00001H,00023H,0FFFFH,0FFFFH,00016H);
  342.     CODE(00015H,00008H,00000H,00898H,0041CH,0060BH,00003H,00001H);
  343.     CODE(00024H,0FFFFH,0FFFFH,00016H,00015H,00008H,00000H,008B4H);
  344.     CODE(00220H,0060BH,00003H,00001H,00025H,0FFFFH,0FFFFH,00016H);
  345.     CODE(00015H,00008H,00000H,008D0H,00015H,0010DH,00003H,00001H);
  346.     CODE(00026H,0FFFFH,0FFFFH,00016H,00015H,00008H,00000H,008ECH);
  347.     CODE(00618H,0010DH,00003H,00001H,00027H,0FFFFH,0FFFFH,00016H);
  348.     CODE(00015H,00008H,00000H,00908H,0041CH,0010DH,00003H,00001H);
  349.     CODE(00028H,0FFFFH,0FFFFH,00016H,00015H,00008H,00000H,00924H);
  350.     CODE(00220H,0010DH,00003H,00001H,0002CH,00029H,0002BH,00014H);
  351.     CODE(00000H,00020H,000FFH,01132H,00714H,0040FH,0030FH,00704H);
  352.     CODE(0002AH,0FFFFH,0FFFFH,00016H,00005H,00020H,00000H,00940H);
  353.     CODE(00601H,00300H,0000CH,00001H,0002BH,0FFFFH,0FFFFH,00016H);
  354.     CODE(00011H,00000H,00000H,0095CH,00302H,00002H,0000BH,00001H);
  355.     CODE(00028H,0FFFFH,0FFFFH,00016H,00011H,00001H,00000H,00978H);
  356.     CODE(00302H,00403H,0000BH,00001H,0002DH,0FFFFH,0FFFFH,00016H);
  357.     CODE(00040H,00000H,00000H,00994H,00101H,00511H,00112H,00201H);
  358.     CODE(00001H,0FFFFH,0FFFFH,0001EH,0000DH,00000H,00000H,009B0H);
  359.     CODE(00703H,00313H,0030DH,00301H,00037H,0002FH,00036H,00014H);
  360.     CODE(00000H,00020H,000FFH,01132H,00228H,00300H,00410H,00607H);
  361.     CODE(00030H,0FFFFH,0FFFFH,00016H,00000H,00000H,00000H,009CCH);
  362.     CODE(00201H,00603H,00407H,00001H,00031H,0FFFFH,0FFFFH,00016H);
  363.     CODE(00011H,00000H,00000H,009E8H,0040BH,00603H,00004H,00001H);
  364.     CODE(00032H,0FFFFH,0FFFFH,0001EH,00000H,00000H,00000H,00A04H);
  365.     CODE(00201H,00105H,00407H,00001H,00033H,0FFFFH,0FFFFH,00016H);
  366.     CODE(00011H,00000H,00000H,00A20H,0040BH,00105H,00004H,00001H);
  367.     CODE(00034H,0FFFFH,0FFFFH,0001EH,00000H,00000H,00000H,00A3CH);
  368.     CODE(00201H,00406H,00407H,00001H,00035H,0FFFFH,0FFFFH,00016H);
  369.     CODE(00005H,00000H,00000H,00A58H,0040BH,00406H,00004H,00001H);
  370.     CODE(00036H,0FFFFH,0FFFFH,0001EH,00008H,00000H,00000H,00A74H);
  371.     CODE(00201H,00002H,0020EH,00301H,0002EH,0FFFFH,0FFFFH,00016H);
  372.     CODE(00005H,00020H,00000H,00A90H,00002H,00200H,0050CH,00101H);
  373.     CODE(00043H,00038H,00040H,00014H,00000H,00020H,000FFH,01113H);
  374.     CODE(0003AH,00300H,00511H,00607H,00039H,0FFFFH,0FFFFH,00016H);
  375.     CODE(00005H,00020H,00000H,00AACH,00704H,00500H,00008H,00001H);
  376.     CODE(0003CH,0003AH,0003BH,00019H,00000H,00000H,00000H,01100H);
  377.     CODE(00401H,00302H,00009H,00001H,0003BH,0FFFFH,0FFFFH,00016H);
  378.     CODE(00011H,00001H,00000H,00AC8H,00000H,00000H,00004H,00001H);
  379.     CODE(00039H,0FFFFH,0FFFFH,00016H,00011H,00000H,00000H,00AE4H);
  380.     CODE(00005H,00000H,00004H,00001H,0003DH,0FFFFH,0FFFFH,00016H);
  381.     CODE(00005H,00000H,00000H,00B00H,0050BH,00402H,00105H,00602H);
  382.     CODE(00040H,0003EH,0003FH,00019H,00000H,00000H,00000H,01100H);
  383.     CODE(00401H,00204H,00009H,00001H,0003FH,0FFFFH,0FFFFH,00016H);
  384.     CODE(00011H,00001H,00000H,00B1CH,00000H,00000H,00004H,00001H);
  385.     CODE(0003DH,0FFFFH,0FFFFH,00016H,00011H,00000H,00000H,00B38H);
  386.     CODE(00005H,00000H,00004H,00001H,00037H,00041H,00042H,00014H);
  387.     CODE(00000H,00020H,00000H,01113H,00700H,00705H,0070BH,00401H);
  388.     CODE(00042H,0FFFFH,0FFFFH,00014H,00000H,00000H,000FFH,01132H);
  389.     CODE(00600H,00200H,00009H,00001H,00040H,0FFFFH,0FFFFH,00014H);
  390.     CODE(00000H,00000H,000FFH,01101H,00700H,00200H,00608H,00001H);
  391.     CODE(00048H,00044H,00047H,00014H,00000H,00020H,000FFH,01111H);
  392.     CODE(00627H,00409H,0010BH,00608H,00045H,0FFFFH,0FFFFH,00016H);
  393.     CODE(00000H,00020H,00000H,00B54H,00401H,00500H,00108H,00101H);
  394.     CODE(00046H,0FFFFH,0FFFFH,00016H,00011H,00000H,00000H,00B70H);
  395.     CODE(00102H,00003H,00007H,00001H,00047H,0FFFFH,0FFFFH,00016H);
  396.     CODE(00011H,00000H,00000H,00B8CH,00102H,00604H,00007H,00001H);
  397.     CODE(00043H,0FFFFH,0FFFFH,00016H,00005H,00000H,00000H,00BA8H);
  398.     CODE(00302H,00007H,00007H,00001H,00058H,00049H,00056H,00014H);
  399.     CODE(00000H,00020H,000FFH,01111H,00334H,00708H,00517H,0000DH);
  400.     CODE(00056H,0004AH,00055H,00014H,00000H,00000H,000FEH,01112H);
  401.     CODE(00500H,00400H,00216H,00009H,0004BH,0FFFFH,0FFFFH,00016H);
  402.     CODE(00000H,00020H,00000H,00BC4H,00705H,00300H,0040AH,00001H);
  403.     CODE(00054H,0004CH,00053H,00014H,00000H,00020H,000FFH,01131H);
  404.     CODE(00300H,00002H,00015H,00005H,0004DH,0FFFFH,0FFFFH,00016H);
  405.     CODE(00015H,00000H,00000H,00BE0H,00309H,00400H,00404H,00001H);
  406.     CODE(0004EH,0FFFFH,0FFFFH,00016H,00015H,00000H,00000H,00BFCH);
  407.     CODE(00401H,00400H,00506H,00001H,0004FH,0FFFFH,0FFFFH,00016H);
  408.     CODE(00005H,00000H,00000H,00C18H,00401H,00002H,00506H,00001H);
  409.     CODE(00050H,0FFFFH,0FFFFH,00016H,00005H,00000H,00000H,00C34H);
  410.     CODE(00501H,00403H,00306H,00001H,00053H,00051H,00052H,00019H);
  411.     CODE(00000H,00000H,00000H,01100H,00208H,00701H,0020CH,00103H);
  412.     CODE(00052H,0FFFFH,0FFFFH,00016H,00011H,00001H,00000H,00C50H);
  413.     CODE(00202H,00200H,00009H,00001H,00050H,0FFFFH,0FFFFH,00016H);
  414.     CODE(00011H,00000H,00000H,00C6CH,00202H,00601H,00009H,00001H);
  415.     CODE(0004BH,0FFFFH,0FFFFH,00016H,00015H,00000H,00000H,00C88H);
  416.     CODE(0000FH,00400H,00005H,00001H,00055H,0FFFFH,0FFFFH,00016H);
  417.     CODE(00005H,00000H,00000H,00CA4H,00308H,00507H,0010DH,00001H);
  418.     CODE(00049H,0FFFFH,0FFFFH,00016H,00005H,00000H,00000H,00CC0H);
  419.     CODE(00201H,00507H,00306H,00001H,00048H,00057H,00057H,00014H);
  420.     CODE(00000H,00000H,000FFH,01133H,00600H,0000AH,00116H,00402H);
  421.     CODE(00056H,0FFFFH,0FFFFH,00016H,00005H,00020H,00000H,00CDCH);
  422.     CODE(00606H,00300H,00508H,00301H,00000H,0FFFFH,0FFFFH,00016H);
  423.     CODE(00027H,00020H,00000H,00CF8H,0002AH,00313H,00007H,00402H);
  424.     CODE(0FFFFH,00001H,00006H,00014H,00000H,00000H,00002H,01103H);
  425.     CODE(00501H,00101H,00216H,00009H,00002H,0FFFFH,0FFFFH,0001DH);
  426.     CODE(00008H,00000H,00000H,00D14H,00108H,00404H,0000CH,00001H);
  427.     CODE(00003H,0FFFFH,0FFFFH,0001AH,00007H,00000H,00000H,0036EH);
  428.     CODE(00501H,00007H,00008H,00001H,00004H,0FFFFH,0FFFFH,0001AH);
  429.     CODE(00005H,00000H,00000H,00371H,0030CH,00007H,00008H,00001H);
  430.     CODE(00005H,0FFFFH,0FFFFH,00015H,00000H,00000H,00000H,00D30H);
  431.     CODE(00707H,00001H,0000DH,00001H,00006H,0FFFFH,0FFFFH,00015H);
  432.   END RESOURCEDATA2;
  433.   (*$S-,$P-,$T-*)
  434.   PROCEDURE RESOURCEDATA3;
  435.   BEGIN
  436.     CODE(00000H,00000H,00000H,00D4CH,00508H,00402H,0000CH,00001H);
  437.     CODE(00000H,0FFFFH,0FFFFH,00017H,00020H,00000H,00000H,0057AH);
  438.     CODE(00301H,00601H,03000H,02400H,0FFFFH,00001H,0000AH,00014H);
  439.     CODE(00000H,00000H,000FEH,01112H,00001H,00001H,00316H,00009H);
  440.     CODE(00002H,0FFFFH,0FFFFH,00016H,00000H,00020H,00000H,00D68H);
  441.     CODE(00303H,00300H,00010H,00001H,00003H,0FFFFH,0FFFFH,00016H);
  442.     CODE(00011H,00001H,00000H,00D84H,00001H,00502H,0000AH,00001H);
  443.     CODE(00004H,0FFFFH,0FFFFH,00016H,00011H,00000H,00000H,00DA0H);
  444.     CODE(0070BH,00502H,0000AH,00001H,00009H,00005H,00008H,00019H);
  445.     CODE(00000H,00000H,00000H,01100H,00400H,00204H,0010DH,00404H);
  446.     CODE(00006H,0FFFFH,0FFFFH,00014H,00000H,00000H,000FFH,01131H);
  447.     CODE(00101H,00301H,00008H,00001H,00007H,0FFFFH,0FFFFH,00014H);
  448.     CODE(00000H,00000H,000FFH,01101H,00002H,00301H,00007H,00001H);
  449.     CODE(00008H,0FFFFH,0FFFFH,00014H,00000H,00000H,000FFH,01131H);
  450.     CODE(00001H,00203H,00008H,00001H,00004H,0FFFFH,0FFFFH,00014H);
  451.     CODE(00000H,00000H,000FFH,01101H,00401H,00203H,00007H,00001H);
  452.     CODE(0000AH,0FFFFH,0FFFFH,0001AH,00005H,00000H,00000H,003B3H);
  453.     CODE(00210H,00704H,00005H,00001H,00000H,0FFFFH,0FFFFH,0001AH);
  454.     CODE(00027H,00000H,00000H,003B6H,00210H,00007H,00005H,00001H);
  455.     CODE(0FFFFH,00001H,0000BH,00014H,00000H,00000H,00003H,01100H);
  456.     CODE(00003H,00001H,00717H,0010DH,00004H,00002H,00003H,00019H);
  457.     CODE(00000H,00000H,00000H,01100H,00702H,00304H,00611H,00002H);
  458.     CODE(00003H,0FFFFH,0FFFFH,0001AH,00011H,00001H,00000H,003BBH);
  459.     CODE(00203H,00300H,00005H,00001H,00001H,0FFFFH,0FFFFH,0001AH);
  460.     CODE(00011H,00000H,00000H,003BFH,0020AH,00300H,00005H,00001H);
  461.     CODE(00007H,00005H,00006H,00019H,00000H,00000H,00000H,01100H);
  462.     CODE(00403H,00208H,00510H,00601H,00006H,0FFFFH,0FFFFH,0001AH);
  463.     CODE(00011H,00001H,00000H,003C2H,00702H,00300H,00005H,00001H);
  464.     CODE(00004H,0FFFFH,0FFFFH,0001AH,00011H,00000H,00000H,003C6H);
  465.     CODE(0010AH,00300H,00005H,00001H,00008H,0FFFFH,0FFFFH,0001AH);
  466.     CODE(00007H,00000H,00000H,003C9H,00002H,0010BH,00008H,00001H);
  467.     CODE(00009H,0FFFFH,0FFFFH,0001AH,00005H,00000H,00000H,003CCH);
  468.     CODE(0010DH,0010BH,00008H,00001H,0000AH,0FFFFH,0FFFFH,00016H);
  469.     CODE(00000H,00020H,00000H,00DBCH,00503H,00500H,00310H,00601H);
  470.     CODE(0000BH,0FFFFH,0FFFFH,00015H,00000H,00000H,00000H,00DD8H);
  471.     CODE(00005H,00003H,0000EH,00001H,00000H,0FFFFH,0FFFFH,00015H);
  472.     CODE(00020H,00000H,00000H,00DF4H,00604H,00007H,0000FH,00001H);
  473.     CODE(0FFFFH,00001H,00007H,00014H,00005H,00000H,00003H,01100H);
  474.     CODE(00002H,00001H,00316H,00109H,00002H,0FFFFH,0FFFFH,00016H);
  475.     CODE(00000H,00020H,00000H,00E10H,00602H,00700H,00410H,00601H);
  476.     CODE(00003H,0FFFFH,0FFFFH,00015H,00000H,00000H,00000H,00E2CH);
  477.     CODE(00101H,00503H,00010H,00001H,00004H,0FFFFH,0FFFFH,00015H);
  478.     CODE(00000H,00000H,00000H,00E48H,00611H,00503H,00003H,00001H);
  479.     CODE(00005H,0FFFFH,0FFFFH,00015H,00000H,00000H,00000H,00E64H);
  480.     CODE(00103H,00005H,0000EH,00001H,00006H,0FFFFH,0FFFFH,00015H);
  481.     CODE(00000H,00000H,00000H,00E80H,00711H,00005H,00003H,00001H);
  482.     CODE(00007H,0FFFFH,0FFFFH,0001AH,00007H,00000H,00000H,00449H);
  483.     CODE(00501H,00107H,00008H,00001H,00000H,0FFFFH,0FFFFH,0001AH);
  484.     CODE(00025H,00000H,00000H,0044CH,0070CH,00107H,00008H,00001H);
  485.     CODE(0FFFFH,00001H,00007H,00014H,00000H,00000H,00003H,01100H);
  486.     CODE(00003H,00300H,00316H,00009H,00002H,0FFFFH,0FFFFH,00016H);
  487.     CODE(00000H,00020H,00000H,00E9CH,00502H,00700H,00310H,00601H);
  488.     CODE(00003H,0FFFFH,0FFFFH,00015H,00000H,00000H,00000H,00EB8H);
  489.     CODE(00001H,00003H,00011H,00001H,00004H,0FFFFH,0FFFFH,00015H);
  490.     CODE(00000H,00000H,00000H,00ED4H,00212H,00003H,00003H,00001H);
  491.     CODE(00005H,0FFFFH,0FFFFH,00015H,00000H,00000H,00000H,00EF0H);
  492.     CODE(00003H,00704H,0000FH,00001H,00006H,0FFFFH,0FFFFH,00015H);
  493.     CODE(00000H,00000H,00000H,00F0CH,00312H,00704H,00003H,00001H);
  494.     CODE(00007H,0FFFFH,0FFFFH,0001AH,00005H,00000H,00000H,00497H);
  495.     CODE(00401H,00107H,00008H,00001H,00000H,0FFFFH,0FFFFH,0001AH);
  496.     CODE(00027H,00000H,00000H,0049AH,0070CH,00107H,00008H,00001H);
  497.     CODE(00000H,00F28H,00000H,01780H,00000H,01828H,00000H,01930H);
  498.     CODE(00000H,01A50H,00000H,01B10H);
  499.   END RESOURCEDATA3;
  500.  
  501.  
  502. TYPE
  503.   OBJECT = RECORD
  504.              next, head: INTEGER;
  505.              tail, type: INTEGER;
  506.              flags, state: INTEGER;
  507.              spec: ADDRESS;
  508.              x, y: INTEGER;
  509.              width, height: INTEGER;
  510.            END;
  511.   TEDINFO = RECORD
  512.               ptext,
  513.               ptmplt,
  514.               pvalid: ADDRESS;
  515.               font, resvd1: INTEGER;
  516.               just, color: INTEGER;
  517.               resvd2, thickness: INTEGER;
  518.               txtlen, tmplen: INTEGER;
  519.             END;
  520.   BITBLK = RECORD
  521.              pdata: ADDRESS;
  522.              wb, hl: INTEGER;
  523.              x, y: INTEGER;
  524.              color: INTEGER;
  525.            END;
  526. VAR
  527.   i: CARDINAL; o: INTEGER; x: ADDRESS;
  528.   TreeAddr: POINTER TO ARRAY [0..nrTrees-1] OF ADDRESS;
  529.   BitBlkAddr: POINTER TO ARRAY [0..nrBitBlks-1] OF BITBLK;
  530.   TedInfoAddr: POINTER TO ARRAY [0..nrTedInfos-1] OF TEDINFO;
  531.   ObjectAddr: POINTER TO ARRAY [0..nrObjects-1] OF OBJECT;
  532.  
  533. PROCEDURE InitResource;
  534.  
  535. BEGIN
  536.   (* Access resource procedures so optimising linker will
  537.      not remove them. *)
  538.   x := ADDRESS(RESOURCEDATA1);
  539.   x := ADDRESS(RESOURCEDATA2);
  540.   x := ADDRESS(RESOURCEDATA3);
  541.   (* relocate tree indicies *)
  542.   x := ADDRESS(RESOURCEDATA0) + ixTrees;
  543.   TreeAddr := x;
  544.   FOR i := 0 TO nrTrees-1 DO
  545.     TreeAddr^[i] := TreeAddr^[i] + ADDRESS(RESOURCEDATA0); INC(x,4); 
  546.   END;
  547.   (* relocate ted infos *)
  548.   x := ADDRESS(RESOURCEDATA0) + ixTedInfos;
  549.   TedInfoAddr := x;
  550.   FOR i := 0 TO nrTedInfos-1 DO
  551.     WITH TedInfoAddr^[i] DO
  552.       ptext := ptext + ADDRESS(RESOURCEDATA0);
  553.       ptmplt := ptmplt + ADDRESS(RESOURCEDATA0);
  554.       pvalid := pvalid + ADDRESS(RESOURCEDATA0);
  555.     END;
  556.   END;
  557.   (* relocate bit blocks *)
  558.   x := ADDRESS(RESOURCEDATA0) + ixBitBlks;
  559.   BitBlkAddr := x;
  560.   FOR i := 0 TO nrBitBlks-1 DO
  561.     BitBlkAddr^[i].pdata := BitBlkAddr^[i].pdata + ADDRESS(RESOURCEDATA0);
  562.   END;
  563.   (* relocate object specs *)
  564.   x := ADDRESS(RESOURCEDATA0) + ixObjects;
  565.   ObjectAddr := x;
  566.   FOR i := 0 TO nrObjects-1 DO
  567.     WITH ObjectAddr^[i] DO
  568.       IF (type # GBOX)  & (type # GPROGDEF) &
  569.          (type # GIBOX) & (type # GBOXCHAR) THEN
  570.         (* relocate against resource base *)
  571.         spec := spec + ADDRESS(RESOURCEDATA0);
  572.       END;
  573.       (* Fix up the scaling *)
  574.       ResourceObjectFix(ObjectAddr,i) ;  (*0.10a*)
  575.     END;
  576.   END;
  577.  END InitResource; 
  578. END resource;
  579.  
  580.