home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 2: Collection B / 17Bit_Collection_B.iso / files / 1545.dms / in.adf / KwikBackUp / Source / HDImages.mod < prev    next >
Encoding:
Modula Implementation  |  1990-03-25  |  53.3 KB  |  932 lines
  1. (*-------------------------------------------------------------------------*)
  2. (*                                                                         *)
  3. (*         This contains the gadget's images (Disks, Arrows, ...)          *)
  4. (*                                                                         *)
  5. (*-------------------------------------------------------------------------*)
  6.  
  7. IMPLEMENTATION MODULE HDImages;
  8.  
  9. FROM SYSTEM IMPORT INLINE, ADDRESS, ADR;
  10.  
  11. FROM Heap   IMPORT AllocMem;
  12.  
  13. FROM Exec   IMPORT CopyMem;
  14.  
  15. (*
  16. TYPE
  17.   Images = (Disk, OpenDisk, HardDisk, BackUp, HBackUp, Restore, HRestore);
  18.  
  19.  
  20. VAR
  21.   Imgwidth   :ARRAY Images OF INTEGER;
  22.   Imgheight  :ARRAY Images OF INTEGER;
  23.   ImageDatas: ARRAY Images OF ADDRESS;
  24. *)
  25.  
  26.  
  27.  
  28.  
  29. PROCEDURE HardDiskData(); (* $E- *)
  30.  
  31. BEGIN
  32.  
  33. INLINE(
  34.   (* Plane 1 *)
  35. 00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,(* 1*)
  36. 00000H,003FFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,00000H,(* 2*)
  37. 00000H,01FFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFF8H,0C000H,(* 3*)
  38. 00001H,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFC7H,0C000H,(* 4*)
  39. 0000FH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FF3FH,0C000H,(* 5*)
  40. 00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,000FFH,0C000H,(* 6*)
  41. 000FFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FEFFH,0C000H,(* 7*)
  42. 000FFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FEFFH,0C000H,(* 8*)
  43. 000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EFFH,0C000H,(* 9*)
  44. 000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EFFH,0C000H,(*10*)
  45. 000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EFFH,0C000H,(*11*)
  46. 000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EFFH,0C000H,(*12*)
  47. 000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EFFH,0C000H,(*13*)
  48. 000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EFFH,0C000H,(*14*)
  49. 000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EFFH,0C000H,(*15*)
  50. 000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EFFH,0C000H,(*16*)
  51. 000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EFFH,0C000H,(*17*)
  52. 000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EFFH,0C000H,(*18*)
  53. 000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EFFH,0C000H,(*19*)
  54. 000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EFFH,0C000H,(*20*)
  55. 000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EFFH,0C000H,(*21*)
  56. 000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EFFH,0C000H,(*22*)
  57. 000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EFFH,0C000H,(*23*)
  58. 000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EFFH,0C000H,(*24*)
  59. 000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EFFH,0C000H,(*25*)
  60. 000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EFFH,0C000H,(*26*)
  61. 000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EFFH,0C000H,(*27*)
  62. 000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EFFH,0C000H,(*28*)
  63. 000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EFFH,0C000H,(*29*)
  64. 000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EFFH,0C000H,(*30*)
  65. 000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EFFH,0C000H,(*31*)
  66. 000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EFFH,0C000H,(*32*)
  67. 000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EFFH,0C000H,(*33*)
  68. 000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EFFH,0C000H,(*34*)
  69. 000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EFFH,0C000H,(*35*)
  70. 000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EFFH,0C000H,(*36*)
  71. 000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EFFH,0C000H,(*37*)
  72. 000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EFFH,0C000H,(*38*)
  73. 000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EFFH,0C000H,(*39*)
  74. 000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EFFH,0C000H,(*40*)
  75. 000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EFFH,0C000H,(*41*)
  76. 000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EFFH,0C000H,(*42*)
  77. 000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EFFH,08000H,(*43*)
  78. 000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EFEH,00000H,(*44*)
  79. 000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EFCH,00000H,(*45*)
  80. 000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EF8H,00000H,(*46*)
  81. 000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EF0H,00000H,(*47*)
  82. 000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EE0H,00000H,(*48*)
  83. 000FFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FE80H,00000H,(*49*)
  84. 000FFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FE00H,00000H,(*50*)
  85. 00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,(*51*)
  86. 00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,(*52*)
  87. 00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,(*53*)
  88. 00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,(*54*)
  89. 00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,(*55*)
  90. 0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FC00H,(*56*)
  91. 0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FC00H,(*57*)
  92. 0FFFFH,0FFFFH,0FFFFH,0F83CH,0CE1FH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FC00H,(*58*)
  93. 0FFFFH,0FFFFH,0FFFFH,0FC9CH,0CCCFH,03FFFH,0FFFFH,0FFFFH,0FFFFH,0FC00H,(*59*)
  94. 0FFFFH,0FFFFH,0FFFFH,0FCCCH,0CC8FH,03FFFH,0FFFFH,0FFFFH,0FFFFH,0FC00H,(*60*)
  95. 0FFFFH,0FFFFH,0FFFFH,0FCCCH,00C0FH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FC00H,(*61*)
  96. 0FFFFH,0FFFFH,0FFFFH,0FCCCH,0CC4FH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FC00H,(*62*)
  97. 0FFFFH,0FFFFH,0FFFFH,0FC9CH,0CCCFH,03FFFH,0FFFFH,0FFFFH,0FFFFH,0FC00H,(*63*)
  98. 0FFFFH,0FFFFH,0FFFFH,0F83CH,0CE1FH,03FFFH,0FFFFH,0FFFFH,0FFFFH,0FC00H,(*64*)
  99. 0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FC00H,(*65*)
  100. 0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FC00H,(*66*)
  101. 0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FC00H,(*67*)
  102.  
  103.   (* Plane 2 *)
  104. 00000H,003FFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0E000H,(* 1*)
  105. 00000H,01C00H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,0E000H,(* 2*)
  106. 00001H,0E000H,00000H,00000H,00000H,00000H,00000H,00000H,00007H,02000H,(* 3*)
  107. 0000EH,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00038H,02000H,(* 4*)
  108. 00070H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,000C0H,02000H,(* 5*)
  109. 001FFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FF00H,02000H,(* 6*)
  110. 00100H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00100H,02000H,(* 7*)
  111. 00100H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00100H,02000H,(* 8*)
  112. 00100H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00100H,02000H,(* 9*)
  113. 00100H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00100H,02000H,(*10*)
  114. 00100H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00100H,02000H,(*11*)
  115. 00100H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00100H,02000H,(*12*)
  116. 00100H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00100H,02000H,(*13*)
  117. 00100H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00100H,02000H,(*14*)
  118. 00100H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00100H,02000H,(*15*)
  119. 00100H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00100H,02000H,(*16*)
  120. 00100H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00100H,02000H,(*17*)
  121. 00100H,00000H,00000H,00000H,003FFH,0FF00H,00000H,00000H,00100H,02000H,(*18*)
  122. 00100H,00000H,003FFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FF00H,00100H,02000H,(*19*)
  123. 00100H,00000H,00000H,00040H,003FFH,0FF00H,00000H,00000H,00100H,02000H,(*20*)
  124. 00100H,00000H,00000H,003F8H,00007H,08000H,00000H,00000H,00100H,02000H,(*21*)
  125. 00100H,01FFCH,00000H,003F8H,00007H,08000H,00000H,00000H,00100H,02000H,(*22*)
  126. 00100H,01FFFH,0FFFFH,0FFF8H,00007H,08000H,00000H,00000H,00100H,02000H,(*23*)
  127. 00100H,01FFCH,00000H,003F8H,00007H,08000H,00000H,00000H,00100H,02000H,(*24*)
  128. 00100H,01E00H,00000H,003F8H,00007H,08000H,00000H,00000H,00100H,02000H,(*25*)
  129. 00100H,01E00H,00000H,00040H,003FFH,0FF00H,00000H,00000H,00100H,02000H,(*26*)
  130. 00100H,01E00H,003FFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FF00H,00100H,02000H,(*27*)
  131. 00100H,01E00H,00000H,00040H,003FFH,0FF00H,00000H,00000H,00100H,02000H,(*28*)
  132. 00100H,01E00H,00000H,003F8H,00007H,08000H,00000H,00000H,00100H,02000H,(*29*)
  133. 00100H,01FFCH,00000H,003F8H,00007H,08000H,00000H,00000H,00100H,02000H,(*30*)
  134. 00100H,01FFFH,0FFFFH,0FFF8H,00007H,08000H,00000H,00000H,00100H,02000H,(*31*)
  135. 00100H,01FFCH,00000H,003F8H,00007H,08000H,00000H,00000H,00100H,02000H,(*32*)
  136. 00100H,01E00H,00000H,003F8H,00007H,08000H,00000H,00000H,00100H,02000H,(*33*)
  137. 00100H,01E00H,00000H,00040H,003FFH,0FF00H,00000H,00000H,00100H,02000H,(*34*)
  138. 00100H,01E00H,003FFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FF00H,00100H,02000H,(*35*)
  139. 00100H,01E00H,00000H,00000H,003FFH,0FF00H,00000H,00000H,00100H,02000H,(*36*)
  140. 00100H,01E00H,00000H,00000H,00007H,08000H,00000H,00000H,00100H,02000H,(*37*)
  141. 00100H,01E00H,00000H,00000H,00007H,08000H,00000H,00000H,00100H,02000H,(*38*)
  142. 00100H,01FFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0F800H,00000H,00100H,02000H,(*39*)
  143. 00100H,01FFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0F800H,00000H,00100H,02000H,(*40*)
  144. 00100H,01FFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0F800H,00000H,00100H,02000H,(*41*)
  145. 00100H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00100H,02000H,(*42*)
  146. 00100H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00100H,04000H,(*43*)
  147. 00100H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00101H,08000H,(*44*)
  148. 00100H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00102H,00000H,(*45*)
  149. 00100H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00104H,00000H,(*46*)
  150. 00100H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00108H,00000H,(*47*)
  151. 00100H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00110H,00000H,(*48*)
  152. 00100H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00160H,00000H,(*49*)
  153. 00100H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00180H,00000H,(*50*)
  154. 001FFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FF00H,00000H,(*51*)
  155. 00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,(*52*)
  156. 00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,(*53*)
  157. 00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,(*54*)
  158. 00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,(*55*)
  159. 00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,(*56*)
  160. 00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,(*57*)
  161. 00000H,00000H,00000H,007C3H,031E0H,00000H,00000H,00000H,00000H,00000H,(*58*)
  162. 00000H,00000H,00000H,00363H,03330H,0C000H,00000H,00000H,00000H,00000H,(*59*)
  163. 00000H,00000H,00000H,00333H,03370H,0C000H,00000H,00000H,00000H,00000H,(*60*)
  164. 00000H,00000H,00000H,00333H,0F3F0H,00000H,00000H,00000H,00000H,00000H,(*61*)
  165. 00000H,00000H,00000H,00333H,033B0H,00000H,00000H,00000H,00000H,00000H,(*62*)
  166. 00000H,00000H,00000H,00363H,03330H,0C000H,00000H,00000H,00000H,00000H,(*63*)
  167. 00000H,00000H,00000H,007C3H,031E0H,0C000H,00000H,00000H,00000H,00000H,(*64*)
  168. 00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,(*65*)
  169. 00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,(*66*)
  170. 00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H)(*67*)
  171.  
  172. END HardDiskData;
  173.  
  174. PROCEDURE DiskData(); (* $E- *)
  175.  
  176. BEGIN
  177.  INLINE(
  178.   (* Plane 1 *)
  179.  00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H,(* 1*)
  180.  0FF40H, 00000H, 00000H, 00000H, 00000H, 0001FH, 0F800H,(* 2*)
  181.  0FF7FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFDFH, 0F800H,(* 3*)
  182.  0FF7FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFDCH, 01800H,(* 4*)
  183.  0FF7FH, 0FF03H, 0FFFFH, 01F99H, 0FFFFH, 0FFDCH, 01800H,(* 5*)
  184.  0FF7FH, 0FF99H, 0FFFFH, 09F99H, 0FFFFH, 0FFDCH, 01800H,(* 6*)
  185.  0FF7FH, 0FF99H, 0C3C3H, 09999H, 023FFH, 0FFDFH, 0F800H,(* 7*)
  186.  0FF7FH, 0FF83H, 0F999H, 09399H, 099FFH, 0FFDFH, 0F800H,(* 8*)
  187.  0FF7FH, 0FF99H, 0E19FH, 08799H, 099FFH, 0FFDFH, 0F800H,(* 9*)
  188.  0FF7FH, 0FF99H, 09999H, 09399H, 083FFH, 0FFDFH, 0F800H,(*10*)
  189.  0FF7FH, 0FF03H, 0C4C3H, 019C1H, 09FFFH, 0FFDFH, 0F800H,(*11*)
  190.  0FF7FH, 0FFFFH, 0FFFFH, 0FFFFH, 00FFFH, 0FFDFH, 0F800H,(*12*)
  191.  0FF7FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFDFH, 0F800H,(*13*)
  192.  0FF7FH, 0FF83H, 0FFF3H, 0FFFFH, 0FFFFH, 0FFDFH, 0F800H,(*14*)
  193.  0FF7FH, 0FFC9H, 0FFFFH, 0FFFFH, 0F3FFH, 0FFDFH, 0F800H,(*15*)
  194.  0FF7FH, 0FFCCH, 089E3H, 0CCE1H, 0F3FFH, 0FFDFH, 0F800H,(*16*)
  195.  0FF7FH, 0FFCCH, 0C4F3H, 0CCCCH, 0FFFFH, 0FFDFH, 0F800H,(*17*)
  196.  0FF7FH, 0FFCCH, 0CCF3H, 0CCC0H, 0FFFFH, 0FFDFH, 0F800H,(*18*)
  197.  0FF7FH, 0FFC9H, 0CFF3H, 0E1CFH, 0F3FFH, 0FFDFH, 0F800H,(*19*)
  198.  0FF7FH, 0FF83H, 087E1H, 0F3E1H, 0F3FFH, 0FFDFH, 0F800H,(*20*)
  199.  0FF7FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFDFH, 0F800H,(*21*)
  200.  0FF7FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFDFH, 0F800H,(*22*)
  201.  0FF7FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFDFH, 0F800H,(*23*)
  202.  0FF7FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFDFH, 0F800H,(*24*)
  203.  0FF7FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFDFH, 0F800H,(*25*)
  204.  0FF7FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFDFH, 0F800H,(*26*)
  205.  0FF7FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFDFH, 0F800H,(*27*)
  206.  0FF7FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFDFH, 0F800H,(*28*)
  207.  0FF7FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFDFH, 0F800H,(*29*)
  208.  0FF7FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFDFH, 0F800H,(*30*)
  209.  0FF7FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFDFH, 0F800H,(*31*)
  210.  0FF7FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFDFH, 0F800H,(*32*)
  211.  0FF7FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFDFH, 0F800H,(*33*)
  212.  0FF7FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFDFH, 0F800H,(*34*)
  213.  0FF00H, 00000H, 00000H, 00000H, 00000H, 0001FH, 0F800H,(*35*)
  214.  0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0F800H,(*36*)
  215.  0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0F800H,(*37*)
  216.  0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0F800H,(*38*)
  217.  0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0F800H,(*39*)
  218.  0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0F800H,(*40*)
  219.  0FFFFH, 0F000H, 00000H, 00000H, 0001FH, 0FFFFH, 0F800H,(*41*)
  220.  0FFFFH, 0F01FH, 0FF80H, 00000H, 0001FH, 0FFFFH, 0F800H,(*42*)
  221.  0FFFFH, 0F01FH, 0FF80H, 00000H, 0001FH, 0FFFFH, 0F800H,(*43*)
  222.  0FFFFH, 0F01FH, 0FF80H, 00000H, 0001FH, 0FFFFH, 0F800H,(*44*)
  223.  0FFFFH, 0F01FH, 0FF80H, 00000H, 0001FH, 0FFFFH, 0F800H,(*45*)
  224.  0FFFFH, 0F01FH, 0FF80H, 00000H, 0001FH, 0FFFFH, 0F800H,(*46*)
  225.  0FFFFH, 0F01FH, 0FF80H, 00000H, 0001FH, 0FFFFH, 0F800H,(*47*)
  226.  0FFFFH, 0F01FH, 0FF80H, 00000H, 0001FH, 0FFFFH, 0F800H,(*48*)
  227.  0FFFFH, 0F01FH, 0FF80H, 00000H, 0001FH, 0FFFFH, 0F800H,(*49*)
  228.  0FFFFH, 0F01FH, 0FF80H, 00000H, 0001FH, 0FFFFH, 0F800H,(*50*)
  229.  0FFFFH, 0F01FH, 0FF80H, 00000H, 0001FH, 0FFFFH, 0F800H,(*51*)
  230.  0FFFFH, 0F01FH, 0FF80H, 00000H, 0001FH, 0FFFFH, 0F800H,(*52*)
  231.  0FFFFH, 0F01FH, 0FF80H, 00000H, 0001FH, 0FFFEH, 0F800H,(*53*)
  232.  0FFFFH, 0F01FH, 0FF80H, 00000H, 0001FH, 0FFFEH, 0F800H,(*54*)
  233.  0FFFFH, 0F01FH, 0FF80H, 00000H, 0001FH, 0FFFFH, 07800H,(*55*)
  234.  0FFFFH, 0F01FH, 0FF80H, 00000H, 0001FH, 0FFFFH, 0F800H,(*56*)
  235.  07FFFH, 0F000H, 00000H, 00000H, 0001FH, 0FFFFH, 0F800H,(*57*)
  236.  01FFFH, 0F000H, 00000H, 00000H, 0001FH, 0FFFFH, 0F800H,(*58*)
  237.  (* Plane 2 *)
  238.  0FFC0H, 00000H, 00000H, 00000H, 00000H, 0001FH, 0F800H,(* 1*)
  239.  0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFEFH, 0FC00H,(* 2*)
  240.  0FFC0H, 00000H, 00000H, 00000H, 00000H, 0000FH, 0FC00H,(* 3*)
  241.  0FFC0H, 00000H, 00000H, 00000H, 00000H, 0000FH, 0EC00H,(* 4*)
  242.  0FFC0H, 000FCH, 00000H, 0E066H, 00000H, 0000FH, 0EC00H,(* 5*)
  243.  0FFC0H, 00066H, 00000H, 06066H, 00000H, 0000FH, 0EC00H,(* 6*)
  244.  0FFC0H, 00066H, 03C3CH, 06666H, 0DC00H, 0000FH, 0FC00H,(* 7*)
  245.  0FFC0H, 0007CH, 00666H, 06C66H, 06600H, 0000FH, 0FC00H,(* 8*)
  246.  0FFC0H, 00066H, 01E60H, 07866H, 06600H, 0000FH, 0FC00H,(* 9*)
  247.  0FFC0H, 00066H, 06666H, 06C66H, 07C00H, 0000FH, 0FC00H,(*10*)
  248.  0FFC0H, 000FCH, 03B3CH, 0E63EH, 06000H, 0000FH, 0FC00H,(*11*)
  249.  0FFC0H, 00000H, 00000H, 00000H, 0F000H, 0000FH, 0FC00H,(*12*)
  250.  0FFC0H, 00000H, 00000H, 00000H, 00000H, 0000FH, 0FC00H,(*13*)
  251.  0FFC0H, 0007CH, 0000CH, 00000H, 00000H, 0000FH, 0FC00H,(*14*)
  252.  0FFC0H, 00036H, 00000H, 00000H, 00C00H, 0000FH, 0FC00H,(*15*)
  253.  0FFC0H, 00033H, 0761CH, 0331EH, 00C00H, 0000FH, 0FC00H,(*16*)
  254.  0FFC0H, 00033H, 03B0CH, 03333H, 00000H, 0000FH, 0FC00H,(*17*)
  255.  0FFC0H, 00033H, 0330CH, 0333FH, 00000H, 0000FH, 0FC00H,(*18*)
  256.  0FFC0H, 00036H, 0300CH, 01E30H, 00C00H, 0000FH, 0FC00H,(*19*)
  257.  0FFC0H, 0007CH, 0781EH, 00C1EH, 00C00H, 0000FH, 0FC00H,(*20*)
  258.  0FFC0H, 00000H, 00000H, 00000H, 00000H, 0000FH, 0FC00H,(*21*)
  259.  0FFC0H, 00000H, 00000H, 00000H, 00000H, 0000FH, 0FC00H,(*22*)
  260.  0FFC0H, 00000H, 00000H, 00000H, 00000H, 0000FH, 0FC00H,(*23*)
  261.  0FFC0H, 00000H, 00000H, 00000H, 00000H, 0000FH, 0FC00H,(*24*)
  262.  0FFC0H, 00000H, 00000H, 00000H, 00000H, 0000FH, 0FC00H,(*25*)
  263.  0FFC0H, 00000H, 00000H, 00000H, 00000H, 0000FH, 0FC00H,(*26*)
  264.  0FFC0H, 00000H, 00000H, 08000H, 00000H, 0000FH, 0FC00H,(*27*)
  265.  0FFC0H, 00000H, 00000H, 00000H, 00000H, 0000FH, 0FC00H,(*28*)
  266.  0FFC0H, 00000H, 00000H, 00000H, 00000H, 0000FH, 0FC00H,(*29*)
  267.  0FFC0H, 00000H, 00000H, 00000H, 00000H, 0000FH, 0FC00H,(*30*)
  268.  0FFC0H, 00000H, 00000H, 00000H, 00000H, 0000FH, 0FC00H,(*31*)
  269.  0FFC0H, 00000H, 00000H, 00000H, 00000H, 0000FH, 0FC00H,(*32*)
  270.  0FFC0H, 00000H, 00000H, 00000H, 00000H, 0000FH, 0FC00H,(*33*)
  271.  0FFC0H, 00000H, 00000H, 00000H, 00000H, 0000FH, 0FC00H,(*34*)
  272.  0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFEFH, 0FC00H,(*35*)
  273.  0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FC00H,(*36*)
  274.  0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FC00H,(*37*)
  275.  0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FC00H,(*38*)
  276.  0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FC00H,(*39*)
  277.  0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FC00H,(*40*)
  278.  0FFFFH, 0F000H, 00000H, 00000H, 0001FH, 0FFFFH, 0FC00H,(*41*)
  279.  0FFFFH, 0F03FH, 0FF00H, 00000H, 0001FH, 0FFEFH, 0FC00H,(*42*)
  280.  0FFFFH, 0F03FH, 0FF00H, 00000H, 0001FH, 0FFEFH, 0FC00H,(*43*)
  281.  0FFFFH, 0F03FH, 0FF00H, 00000H, 0001FH, 0FFEFH, 0FC00H,(*44*)
  282.  0FFFFH, 0F03FH, 0FF00H, 00000H, 0001FH, 0FFEFH, 0FC00H,(*45*)
  283.  0FFFFH, 0F03FH, 0FF00H, 00000H, 0001FH, 0FFEFH, 0FC00H,(*46*)
  284.  0FFFFH, 0F03FH, 0FF00H, 00000H, 0001FH, 0FFEFH, 0FC00H,(*47*)
  285.  0FFFFH, 0F03FH, 0FF00H, 00000H, 0001FH, 0FFEFH, 0FC00H,(*48*)
  286.  0FFFFH, 0F03FH, 0FF00H, 00000H, 0001FH, 0FFEFH, 0FC00H,(*49*)
  287.  0FFFFH, 0F03FH, 0FF00H, 00000H, 0001FH, 0FFEFH, 0FC00H,(*50*)
  288.  0FFFFH, 0F03FH, 0FF00H, 00000H, 0001FH, 0FFEFH, 0FC00H,(*51*)
  289.  0FFFFH, 0F03FH, 0FF00H, 00000H, 0001FH, 0FFEFH, 0FC00H,(*52*)
  290.  0FFFFH, 0F03FH, 0FF00H, 00000H, 0001FH, 0FFEFH, 0DC00H,(*53*)
  291.  0FFFFH, 0F03FH, 0FF00H, 00000H, 0001FH, 0FFEFH, 0DC00H,(*54*)
  292.  0FFFFH, 0F03FH, 0FF00H, 00000H, 0001FH, 0FFEFH, 0BC00H,(*55*)
  293.  0FFFFH, 0F03FH, 0FF00H, 00000H, 0001FH, 0FFEFH, 0FC00H,(*56*)
  294.  07FFFH, 0F000H, 00000H, 00000H, 0001FH, 0FFEFH, 0FC00H,(*57*)
  295.  01FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFEFH, 0FC00H)(*58*)
  296.  
  297. END DiskData;
  298.  
  299. PROCEDURE OpenDiskData(); (* $E- *)
  300.  
  301. BEGIN
  302.  
  303.  INLINE(
  304.   (* Plane 1 *)
  305.  00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H,(* 1*)
  306.  0FF40H, 00000H, 00000H, 00000H, 00000H, 0001FH, 0F800H,(* 2*)
  307.  0FF7FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFDFH, 0F800H,(* 3*)
  308.  0FF7FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFDCH, 01800H,(* 4*)
  309.  0FF7FH, 0FF03H, 0FFFFH, 01F99H, 0FFFFH, 0FFDCH, 01800H,(* 5*)
  310.  0FF7FH, 0FF99H, 0FFFFH, 09F99H, 0FFFFH, 0FFDCH, 01800H,(* 6*)
  311.  0FF7FH, 0FF99H, 0C3C3H, 09999H, 023FFH, 0FFDFH, 0F800H,(* 7*)
  312.  0FF7FH, 0FF83H, 0F999H, 09399H, 099FFH, 0FFDFH, 0F800H,(* 8*)
  313.  0FF7FH, 0FF99H, 0E19FH, 08799H, 099FFH, 0FFDFH, 0F800H,(* 9*)
  314.  0FF7FH, 0FF99H, 09999H, 09399H, 083FFH, 0FFDFH, 0F800H,(*10*)
  315.  0FF7FH, 0FF03H, 0C4C3H, 019C1H, 09FFFH, 0FFDFH, 0F800H,(*11*)
  316.  0FF7FH, 0FFFFH, 0FFFFH, 0FFFFH, 00FFFH, 0FFDFH, 0F800H,(*12*)
  317.  0FF7FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFDFH, 0F800H,(*13*)
  318.  0FF7FH, 0FF83H, 0FFF3H, 0FFFFH, 0FFFFH, 0FFDFH, 0F800H,(*14*)
  319.  0FF7FH, 0FFC9H, 0FFFFH, 0FFFFH, 0F3FFH, 0FFDFH, 0F800H,(*15*)
  320.  0FF7FH, 0FFCCH, 089E3H, 0CCE1H, 0F3FFH, 0FFDFH, 0F800H,(*16*)
  321.  0FF7FH, 0FFCCH, 0C4F3H, 0CCCCH, 0FFFFH, 0FFDFH, 0F800H,(*17*)
  322.  0FF7FH, 0FFCCH, 0CCF3H, 0CCC0H, 0FFFFH, 0FFDFH, 0F800H,(*18*)
  323.  0FF7FH, 0FFC9H, 0CFF3H, 0E1CFH, 0F3FFH, 0FFDFH, 0F800H,(*19*)
  324.  0FF7FH, 0FF83H, 087E1H, 0F3E1H, 0F3FFH, 0FFDFH, 0F800H,(*20*)
  325.  0FF7FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFDFH, 0F800H,(*21*)
  326.  0FF7FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFDFH, 0F800H,(*22*)
  327.  0FF7FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFDFH, 0F800H,(*23*)
  328.  0FF7FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFDFH, 0F800H,(*24*)
  329.  0FF7FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFDFH, 0F800H,(*25*)
  330.  0FF7FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFDFH, 0F800H,(*26*)
  331.  0FF7FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFDFH, 0F800H,(*27*)
  332.  0FF7FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFDFH, 0F800H,(*28*)
  333.  0FF7FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFDFH, 0F800H,(*29*)
  334.  0FF7FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFDFH, 0F800H,(*30*)
  335.  0FF7FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFDFH, 0F800H,(*31*)
  336.  0FF7FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFDFH, 0F800H,(*32*)
  337.  0FF7FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFDFH, 0F800H,(*33*)
  338.  0FF7FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFDFH, 0F800H,(*34*)
  339.  0FF00H, 00000H, 00000H, 00000H, 00000H, 0001FH, 0F800H,(*35*)
  340.  0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0F800H,(*36*)
  341.  0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0F800H,(*37*)
  342.  0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0F800H,(*38*)
  343.  0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0F800H,(*39*)
  344.  0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0F800H,(*40*)
  345.  0FFFFH, 0FFFFH, 0C000H, 00000H, 00000H, 0007FH, 0F800H,(*41*)
  346.  0FFFFH, 0F7FFH, 0C000H, 00200H, 00000H, 0007FH, 0F800H,(*42*)
  347.  0FFFFH, 0F7FFH, 0C000H, 00200H, 00000H, 0007FH, 0F800H,(*43*)
  348.  0FFFFH, 0F7FFH, 0C000H, 00200H, 00000H, 0007FH, 0F800H,(*44*)
  349.  0FFFFH, 0F7FFH, 0C000H, 00200H, 00000H, 0007FH, 0F800H,(*45*)
  350.  0FFFFH, 0F7FFH, 0C000H, 00200H, 00000H, 0007FH, 0F800H,(*46*)
  351.  0FFFFH, 0F7FFH, 0C000H, 00200H, 00000H, 0007FH, 0F800H,(*47*)
  352.  0FFFFH, 0F7FFH, 0C000H, 00200H, 00000H, 0007FH, 0F800H,(*48*)
  353.  0FFFFH, 0F7FFH, 0C000H, 00200H, 00000H, 0007FH, 0F800H,(*49*)
  354.  0FFFFH, 0F7FFH, 0C000H, 00200H, 00000H, 0007FH, 0F800H,(*50*)
  355.  0FFFFH, 0F7FFH, 0C000H, 00200H, 00000H, 0007FH, 0F800H,(*51*)
  356.  0FFFFH, 0F7FFH, 0C000H, 00200H, 00000H, 0007FH, 0F800H,(*52*)
  357.  0FFFFH, 0F7FFH, 0C000H, 00200H, 00000H, 0007EH, 0F800H,(*53*)
  358.  0FFFFH, 0F7FFH, 0C000H, 00200H, 00000H, 0007EH, 0F800H,(*54*)
  359.  0FFFFH, 0F7FFH, 0C000H, 00200H, 00000H, 0007FH, 07800H,(*55*)
  360.  0FFFFH, 0F7FFH, 0C000H, 00200H, 00000H, 0007FH, 0F800H,(*56*)
  361.  07FFFH, 0F7FFH, 0C000H, 00000H, 00000H, 0007FH, 0F800H,(*57*)
  362.  01FFFH, 0F000H, 00000H, 00000H, 00000H, 0007FH, 0F800H,(*58*)
  363.  (* Plane 2 *)
  364.  0FFC0H, 00000H, 00000H, 00000H, 00000H, 0001FH, 0F800H,(* 1*)
  365.  0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFEFH, 0FC00H,(* 2*)
  366.  0FFC0H, 00000H, 00000H, 00000H, 00000H, 0000FH, 0FC00H,(* 3*)
  367.  0FFC0H, 00000H, 00000H, 00000H, 00000H, 0000FH, 0EC00H,(* 4*)
  368.  0FFC0H, 000FCH, 00000H, 0E066H, 00000H, 0000FH, 0EC00H,(* 5*)
  369.  0FFC0H, 00066H, 00000H, 06066H, 00000H, 0000FH, 0EC00H,(* 6*)
  370.  0FFC0H, 00066H, 03C3CH, 06666H, 0DC00H, 0000FH, 0FC00H,(* 7*)
  371.  0FFC0H, 0007CH, 00666H, 06C66H, 06600H, 0000FH, 0FC00H,(* 8*)
  372.  0FFC0H, 00066H, 01E60H, 07866H, 06600H, 0000FH, 0FC00H,(* 9*)
  373.  0FFC0H, 00066H, 06666H, 06C66H, 07C00H, 0000FH, 0FC00H,(*10*)
  374.  0FFC0H, 000FCH, 03B3CH, 0E63EH, 06000H, 0000FH, 0FC00H,(*11*)
  375.  0FFC0H, 00000H, 00000H, 00000H, 0F000H, 0000FH, 0FC00H,(*12*)
  376.  0FFC0H, 00000H, 00000H, 00000H, 00000H, 0000FH, 0FC00H,(*13*)
  377.  0FFC0H, 0007CH, 0000CH, 00000H, 00000H, 0000FH, 0FC00H,(*14*)
  378.  0FFC0H, 00036H, 00000H, 00000H, 00C00H, 0000FH, 0FC00H,(*15*)
  379.  0FFC0H, 00033H, 0761CH, 0331EH, 00C00H, 0000FH, 0FC00H,(*16*)
  380.  0FFC0H, 00033H, 03B0CH, 03333H, 00000H, 0000FH, 0FC00H,(*17*)
  381.  0FFC0H, 00033H, 0330CH, 0333FH, 00000H, 0000FH, 0FC00H,(*18*)
  382.  0FFC0H, 00036H, 0300CH, 01E30H, 00C00H, 0000FH, 0FC00H,(*19*)
  383.  0FFC0H, 0007CH, 0781EH, 00C1EH, 00C00H, 0000FH, 0FC00H,(*20*)
  384.  0FFC0H, 00000H, 00000H, 00000H, 00000H, 0000FH, 0FC00H,(*21*)
  385.  0FFC0H, 00000H, 00000H, 00000H, 00000H, 0000FH, 0FC00H,(*22*)
  386.  0FFC0H, 00000H, 00000H, 00000H, 00000H, 0000FH, 0FC00H,(*23*)
  387.  0FFC0H, 00000H, 00000H, 00000H, 00000H, 0000FH, 0FC00H,(*24*)
  388.  0FFC0H, 00000H, 00000H, 00000H, 00000H, 0000FH, 0FC00H,(*25*)
  389.  0FFC0H, 00000H, 00000H, 00000H, 00000H, 0000FH, 0FC00H,(*26*)
  390.  0FFC0H, 00000H, 00000H, 00000H, 00000H, 0000FH, 0FC00H,(*27*)
  391.  0FFC0H, 00000H, 00000H, 00000H, 00000H, 0000FH, 0FC00H,(*28*)
  392.  0FFC0H, 00000H, 00000H, 00000H, 00000H, 0000FH, 0FC00H,(*29*)
  393.  0FFC0H, 00000H, 00000H, 00000H, 00000H, 0000FH, 0FC00H,(*30*)
  394.  0FFC0H, 00000H, 00000H, 00000H, 00000H, 0000FH, 0FC00H,(*31*)
  395.  0FFC0H, 00000H, 00000H, 00000H, 00000H, 0000FH, 0FC00H,(*32*)
  396.  0FFC0H, 00000H, 00000H, 00000H, 00000H, 0000FH, 0FC00H,(*33*)
  397.  0FFC0H, 00000H, 00000H, 00000H, 00000H, 0000FH, 0FC00H,(*34*)
  398.  0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFEFH, 0FC00H,(*35*)
  399.  0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FC00H,(*36*)
  400.  0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FC00H,(*37*)
  401.  0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FC00H,(*38*)
  402.  0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FC00H,(*39*)
  403.  0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FC00H,(*40*)
  404.  0FFFFH, 0FFFFH, 0C000H, 00000H, 00000H, 0007FH, 0FC00H,(*41*)
  405.  0FFFFH, 0FFFFH, 0C0FFH, 0FC00H, 00000H, 0006FH, 0FC00H,(*42*)
  406.  0FFFFH, 0FFFFH, 0C0FFH, 0FC00H, 00000H, 0006FH, 0FC00H,(*43*)
  407.  0FFFFH, 0FFFFH, 0C0FFH, 0FC00H, 00000H, 0006FH, 0FC00H,(*44*)
  408.  0FFFFH, 0FFFFH, 0C0FFH, 0FC00H, 00000H, 0006FH, 0FC00H,(*45*)
  409.  0FFFFH, 0FFFFH, 0C0FFH, 0FC00H, 00000H, 0006FH, 0FC00H,(*46*)
  410.  0FFFFH, 0FFFFH, 0C0FFH, 0FC00H, 00000H, 0006FH, 0FC00H,(*47*)
  411.  0FFFFH, 0FFFFH, 0C0FFH, 0FC00H, 00000H, 0006FH, 0FC00H,(*48*)
  412.  0FFFFH, 0FFFFH, 0C0FFH, 0FC00H, 00000H, 0006FH, 0FC00H,(*49*)
  413.  0FFFFH, 0FFFFH, 0C0FFH, 0FC00H, 00000H, 0006FH, 0FC00H,(*50*)
  414.  0FFFFH, 0FFFFH, 0C0FFH, 0FC00H, 00000H, 0006FH, 0FC00H,(*51*)
  415.  0FFFFH, 0FFFFH, 0C0FFH, 0FC00H, 00000H, 0006FH, 0FC00H,(*52*)
  416.  0FFFFH, 0FFFFH, 0C0FFH, 0FC00H, 00000H, 0006FH, 0DC00H,(*53*)
  417.  0FFFFH, 0FFFFH, 0C0FFH, 0FC00H, 00000H, 0006FH, 0DC00H,(*54*)
  418.  0FFFFH, 0FFFFH, 0C0FFH, 0FC00H, 00000H, 0006FH, 0BC00H,(*55*)
  419.  0FFFFH, 0FFFFH, 0C0FFH, 0FC00H, 00000H, 0006FH, 0FC00H,(*56*)
  420.  07FFFH, 0FFFFH, 0C000H, 00000H, 00000H, 0006FH, 0FC00H,(*57*)
  421.  01FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFEFH, 0FC00H)(*58*)
  422.  
  423. END OpenDiskData;
  424.  
  425. PROCEDURE BackUpData(); (* $E- *)
  426.  
  427. BEGIN
  428.  
  429.  INLINE(
  430.  
  431.   (* Plane 1 *)
  432.  00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, (* 1*)
  433.  00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, (* 2*)
  434.  00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, (* 3*)
  435.  00000H, 00000H, 00000H, 00C00H, 00000H, 00000H, 00000H, (* 4*)
  436.  00000H, 00000H, 00000H, 00F00H, 00000H, 00000H, 00000H, (* 5*)
  437.  00000H, 00000H, 00000H, 00FC0H, 00000H, 00000H, 00000H, (* 6*)
  438.  00000H, 00000H, 00000H, 00FF0H, 00000H, 00000H, 00000H, (* 7*)
  439.  00000H, 00000H, 00000H, 00FFCH, 00000H, 00000H, 00000H, (* 8*)
  440.  00000H, 00000H, 00000H, 00FFFH, 00000H, 00000H, 00000H, (* 9*)
  441.  00000H, 00000H, 00000H, 00FFFH, 0C000H, 00000H, 00000H, (*10*)
  442.  00000H, 00000H, 00000H, 00FFFH, 0F000H, 00000H, 00000H, (*11*)
  443.  00000H, 00000H, 00000H, 00FFFH, 0FC00H, 00000H, 00000H, (*12*)
  444.  00000H, 00000H, 00000H, 00FFFH, 0FF00H, 00000H, 00000H, (*13*)
  445.  00000H, 00000H, 00000H, 00FFFH, 0FFC0H, 00000H, 00000H, (*14*)
  446.  00000H, 00000H, 00000H, 00FFFH, 0FFF0H, 00000H, 00000H, (*15*)
  447.  00000H, 00000H, 00000H, 00FFFH, 0FFFCH, 00000H, 00000H, (*16*)
  448.  00000H, 00000H, 00000H, 00FFFH, 0FFFFH, 00000H, 00000H, (*17*)
  449.  03FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0C000H, 00000H, (*18*)
  450.  03FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0F000H, 00000H, (*19*)
  451.  03FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FC00H, 00000H, (*20*)
  452.  03FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FF00H, 00000H, (*21*)
  453.  03FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFC0H, 00000H, (*22*)
  454.  03FFFH, 0E07FH, 0FFE3H, 0F33FH, 0FFFFH, 0FFF0H, 00000H, (*23*)
  455.  03FFFH, 0F33FH, 0FFF3H, 0F33FH, 0FFFFH, 0FFFCH, 00000H, (*24*)
  456.  03FFFH, 0F338H, 07873H, 03324H, 07FFFH, 0FFFFH, 00000H, (*25*)
  457.  03FFFH, 0F07FH, 03332H, 07333H, 03FFFH, 0FFFFH, 0C000H, (*26*)
  458.  03FFFH, 0F33CH, 033F0H, 0F333H, 03FFFH, 0FFFFH, 00000H, (*27*)
  459.  03FFFH, 0F333H, 03332H, 07330H, 07FFFH, 0FFFCH, 00000H, (*28*)
  460.  03FFFH, 0E078H, 09863H, 03833H, 0FFFFH, 0FFF0H, 00000H, (*29*)
  461.  03FFFH, 0FFFFH, 0FFFFH, 0FFE1H, 0FFFFH, 0FFC0H, 00000H, (*30*)
  462.  03FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FF00H, 00000H, (*31*)
  463.  03FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FC00H, 00000H, (*32*)
  464.  03FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0F000H, 00000H, (*33*)
  465.  03FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0C000H, 00000H, (*34*)
  466.  03FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 00000H, 00000H, (*35*)
  467.  03FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFCH, 00000H, 00000H, (*36*)
  468.  00000H, 00000H, 00000H, 00FFFH, 0FFF0H, 00000H, 00000H, (*37*)
  469.  00000H, 00000H, 00000H, 00FFFH, 0FFC0H, 00000H, 00000H, (*38*)
  470.  00000H, 00000H, 00000H, 00FFFH, 0FF00H, 00000H, 00000H, (*39*)
  471.  00000H, 00000H, 00000H, 00FFFH, 0FC00H, 00000H, 00000H, (*40*)
  472.  00000H, 00000H, 00000H, 00FFFH, 0F000H, 00000H, 00000H, (*41*)
  473.  00000H, 00000H, 00000H, 00FFFH, 0C000H, 00000H, 00000H, (*42*)
  474.  00000H, 00000H, 00000H, 00FFFH, 00000H, 00000H, 00000H, (*43*)
  475.  00000H, 00000H, 00000H, 00FFCH, 00000H, 00000H, 00000H, (*44*)
  476.  00000H, 00000H, 00000H, 00FF0H, 00000H, 00000H, 00000H, (*45*)
  477.  00000H, 00000H, 00000H, 00FC0H, 00000H, 00000H, 00000H, (*46*)
  478.  00000H, 00000H, 00000H, 00F00H, 00000H, 00000H, 00000H, (*47*)
  479.  00000H, 00000H, 00000H, 00C00H, 00000H, 00000H, 00000H, (*48*)
  480.  00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, (*49*)
  481.  00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, (*50*)
  482.  00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, (*51*)
  483.  00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, (*52*)
  484.  00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, (*53*)
  485.  (* Plane 2 *)
  486.  00000H, 00000H, 00000H, 03800H, 00000H, 00000H, 00000H, (* 1*)
  487.  00000H, 00000H, 00000H, 03E00H, 00000H, 00000H, 00000H, (* 2*)
  488.  00000H, 00000H, 00000H, 03F80H, 00000H, 00000H, 00000H, (* 3*)
  489.  00000H, 00000H, 00000H, 033E0H, 00000H, 00000H, 00000H, (* 4*)
  490.  00000H, 00000H, 00000H, 030F8H, 00000H, 00000H, 00000H, (* 5*)
  491.  00000H, 00000H, 00000H, 0303EH, 00000H, 00000H, 00000H, (* 6*)
  492.  00000H, 00000H, 00000H, 0300FH, 08000H, 00000H, 00000H, (* 7*)
  493.  00000H, 00000H, 00000H, 03003H, 0E000H, 00000H, 00000H, (* 8*)
  494.  00000H, 00000H, 00000H, 03000H, 0F000H, 00000H, 00000H, (* 9*)
  495.  00000H, 00000H, 00000H, 03000H, 03C00H, 00000H, 00000H, (*10*)
  496.  00000H, 00000H, 00000H, 03000H, 00F00H, 00000H, 00000H, (*11*)
  497.  00000H, 00000H, 00000H, 03000H, 003C0H, 00000H, 00000H, (*12*)
  498.  00000H, 00000H, 00000H, 03000H, 000F0H, 00000H, 00000H, (*13*)
  499.  00000H, 00000H, 00000H, 03000H, 0003CH, 00000H, 00000H, (*14*)
  500.  00000H, 00000H, 00000H, 03000H, 0000FH, 00000H, 00000H, (*15*)
  501.  00000H, 00000H, 00000H, 03000H, 00003H, 0C000H, 00000H, (*16*)
  502.  0FFFFH, 0FFFFH, 0FFFFH, 0F000H, 00000H, 0F000H, 00000H, (*17*)
  503.  0C000H, 00000H, 00000H, 00000H, 00000H, 03C00H, 00000H, (*18*)
  504.  0C000H, 00000H, 00000H, 00000H, 00000H, 00F00H, 00000H, (*19*)
  505.  0C000H, 00000H, 00000H, 00000H, 00000H, 003C0H, 00000H, (*20*)
  506.  0C000H, 00000H, 00000H, 00000H, 00000H, 000F0H, 00000H, (*21*)
  507.  0C000H, 00000H, 00000H, 00000H, 00000H, 0003CH, 00000H, (*22*)
  508.  0C000H, 01F80H, 0001CH, 00CC0H, 00000H, 0000FH, 00000H, (*23*)
  509.  0C000H, 00CC0H, 0000CH, 00CC0H, 00000H, 00003H, 0C000H, (*24*)
  510.  0C000H, 00CC7H, 0878CH, 0CCDBH, 08000H, 00000H, 0F000H, (*25*)
  511.  0C000H, 00F80H, 0CCCDH, 08CCCH, 0C000H, 00000H, 03C00H, (*26*)
  512.  0C000H, 00CC3H, 0CC0FH, 00CCCH, 0C000H, 00000H, 0FF00H, (*27*)
  513.  0C000H, 00CCCH, 0CCCDH, 08CCFH, 08000H, 00003H, 0FFC0H, (*28*)
  514.  0C000H, 01F87H, 0679CH, 0C7CCH, 00000H, 0000FH, 0FF80H, (*29*)
  515.  0C000H, 00000H, 00000H, 0001EH, 00000H, 0003FH, 0FE00H, (*30*)
  516.  0C000H, 00000H, 00000H, 00000H, 00000H, 000FFH, 0F800H, (*31*)
  517.  0C000H, 00000H, 00000H, 00000H, 00000H, 003FFH, 0E000H, (*32*)
  518.  0C000H, 00000H, 00000H, 00000H, 00000H, 00FFFH, 08000H, (*33*)
  519.  0C000H, 00000H, 00000H, 00000H, 00000H, 03FFEH, 00000H, (*34*)
  520.  0C000H, 00000H, 00000H, 00000H, 00000H, 0FFF8H, 00000H, (*35*)
  521.  0C000H, 00000H, 00000H, 00000H, 00003H, 0FFE0H, 00000H, (*36*)
  522.  0FFFFH, 0FFFFH, 0FFFFH, 0F000H, 0000FH, 0FF80H, 00000H, (*37*)
  523.  07FFFH, 0FFFFH, 0FFFFH, 0F000H, 0003FH, 0FE00H, 00000H, (*38*)
  524.  03FFFH, 0FFFFH, 0FFFFH, 0F000H, 000FFH, 0F800H, 00000H, (*39*)
  525.  01FFFH, 0FFFFH, 0FFFFH, 0F000H, 003FFH, 0E000H, 00000H, (*40*)
  526.  00000H, 00000H, 00000H, 03000H, 00FFFH, 08000H, 00000H, (*41*)
  527.  00000H, 00000H, 00000H, 03000H, 03FFEH, 00000H, 00000H, (*42*)
  528.  00000H, 00000H, 00000H, 03000H, 0FFF8H, 00000H, 00000H, (*43*)
  529.  00000H, 00000H, 00000H, 03003H, 0FFE0H, 00000H, 00000H, (*44*)
  530.  00000H, 00000H, 00000H, 0300FH, 0FF80H, 00000H, 00000H, (*45*)
  531.  00000H, 00000H, 00000H, 0303FH, 0FE00H, 00000H, 00000H, (*46*)
  532.  00000H, 00000H, 00000H, 030FFH, 0F800H, 00000H, 00000H, (*47*)
  533.  00000H, 00000H, 00000H, 033FFH, 0E000H, 00000H, 00000H, (*48*)
  534.  00000H, 00000H, 00000H, 03FFFH, 08000H, 00000H, 00000H, (*49*)
  535.  00000H, 00000H, 00000H, 03FFEH, 00000H, 00000H, 00000H, (*50*)
  536.  00000H, 00000H, 00000H, 01FF8H, 00000H, 00000H, 00000H, (*51*)
  537.  00000H, 00000H, 00000H, 00FE0H, 00000H, 00000H, 00000H, (*52*)
  538.  00000H, 00000H, 00000H, 00780H, 00000H, 00000H, 00000H) (*53*)
  539.  
  540. END BackUpData;
  541.  
  542. PROCEDURE HBackUpData(); (* $E- *)
  543.  
  544.  
  545. BEGIN
  546.  
  547.  INLINE(
  548.  
  549.   (* Plane 1 *)
  550.  00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, (* 1*)
  551.  00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, (* 2*)
  552.  00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, (* 3*)
  553.  00000H, 00000H, 00000H, 00C00H, 00000H, 00000H, 00000H, (* 4*)
  554.  00000H, 00000H, 00000H, 00F00H, 00000H, 00000H, 00000H, (* 5*)
  555.  00000H, 00000H, 00000H, 00FC0H, 00000H, 00000H, 00000H, (* 6*)
  556.  00000H, 00000H, 00000H, 00FF0H, 00000H, 00000H, 00000H, (* 7*)
  557.  00000H, 00000H, 00000H, 00FFCH, 00000H, 00000H, 00000H, (* 8*)
  558.  00000H, 00000H, 00000H, 00FFFH, 00000H, 00000H, 00000H, (* 9*)
  559.  00000H, 00000H, 00000H, 00FFFH, 0C000H, 00000H, 00000H, (*10*)
  560.  00000H, 00000H, 00000H, 00FFFH, 0F000H, 00000H, 00000H, (*11*)
  561.  00000H, 00000H, 00000H, 00FFFH, 0FC00H, 00000H, 00000H, (*12*)
  562.  00000H, 00000H, 00000H, 00FFFH, 0FF00H, 00000H, 00000H, (*13*)
  563.  00000H, 00000H, 00000H, 00FFFH, 0FFC0H, 00000H, 00000H, (*14*)
  564.  00000H, 00000H, 00000H, 00FFFH, 0FFF0H, 00000H, 00000H, (*15*)
  565.  00000H, 00000H, 00000H, 00FFFH, 0FFFCH, 00000H, 00000H, (*16*)
  566.  00000H, 00000H, 00000H, 00FFFH, 0FFFFH, 00000H, 00000H, (*17*)
  567.  03FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0C000H, 00000H, (*18*)
  568.  03FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0F000H, 00000H, (*19*)
  569.  03FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FC00H, 00000H, (*20*)
  570.  03FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FF00H, 00000H, (*21*)
  571.  03FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFC0H, 00000H, (*22*)
  572.  03FFFH, 0E07FH, 0FFE3H, 0F33FH, 0FFFFH, 0FFF0H, 00000H, (*23*)
  573.  03FFFH, 0F33FH, 0FFF3H, 0F33FH, 0FFFFH, 0FFFCH, 00000H, (*24*)
  574.  03FFFH, 0F338H, 07873H, 03324H, 07FFFH, 0FFFFH, 00000H, (*25*)
  575.  03FFFH, 0F07FH, 03332H, 07333H, 03FFFH, 0FFFFH, 0C000H, (*26*)
  576.  03FFFH, 0F33CH, 033F0H, 0F333H, 03FFFH, 0FFFFH, 00000H, (*27*)
  577.  03FFFH, 0F333H, 03332H, 07330H, 07FFFH, 0FFFCH, 00000H, (*28*)
  578.  03FFFH, 0E078H, 09863H, 03833H, 0FFFFH, 0FFF0H, 00000H, (*29*)
  579.  03FFFH, 0FFFFH, 0FFFFH, 0FFE1H, 0FFFFH, 0FFC0H, 00000H, (*30*)
  580.  03FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FF00H, 00000H, (*31*)
  581.  03FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FC00H, 00000H, (*32*)
  582.  03FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0F000H, 00000H, (*33*)
  583.  03FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0C000H, 00000H, (*34*)
  584.  03FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 00000H, 00000H, (*35*)
  585.  03FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFCH, 00000H, 00000H, (*36*)
  586.  00000H, 00000H, 00000H, 00FFFH, 0FFF0H, 00000H, 00000H, (*37*)
  587.  00000H, 00000H, 00000H, 00FFFH, 0FFC0H, 00000H, 00000H, (*38*)
  588.  00000H, 00000H, 00000H, 00FFFH, 0FF00H, 00000H, 00000H, (*39*)
  589.  00000H, 00000H, 00000H, 00FFFH, 0FC00H, 00000H, 00000H, (*40*)
  590.  00000H, 00000H, 00000H, 00FFFH, 0F000H, 00000H, 00000H, (*41*)
  591.  00000H, 00000H, 00000H, 00FFFH, 0C000H, 00000H, 00000H, (*42*)
  592.  00000H, 00000H, 00000H, 00FFFH, 00000H, 00000H, 00000H, (*43*)
  593.  00000H, 00000H, 00000H, 00FFCH, 00000H, 00000H, 00000H, (*44*)
  594.  00000H, 00000H, 00000H, 00FF0H, 00000H, 00000H, 00000H, (*45*)
  595.  00000H, 00000H, 00000H, 00FC0H, 00000H, 00000H, 00000H, (*46*)
  596.  00000H, 00000H, 00000H, 00F00H, 00000H, 00000H, 00000H, (*47*)
  597.  00000H, 00000H, 00000H, 00C00H, 00000H, 00000H, 00000H, (*48*)
  598.  00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, (*49*)
  599.  00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, (*50*)
  600.  00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, (*51*)
  601.  00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, (*52*)
  602.  00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, (*53*)
  603.  (* Plane 2 *)
  604.  00000H, 00000H, 00000H, 03800H, 00000H, 00000H, 00000H, (* 1*)
  605.  00000H, 00000H, 00000H, 03E00H, 00000H, 00000H, 00000H, (* 2*)
  606.  00000H, 00000H, 00000H, 03F80H, 00000H, 00000H, 00000H, (* 3*)
  607.  00000H, 00000H, 00000H, 03FE0H, 00000H, 00000H, 00000H, (* 4*)
  608.  00000H, 00000H, 00000H, 03FF8H, 00000H, 00000H, 00000H, (* 5*)
  609.  00000H, 00000H, 00000H, 03FFEH, 00000H, 00000H, 00000H, (* 6*)
  610.  00000H, 00000H, 00000H, 03FFFH, 08000H, 00000H, 00000H, (* 7*)
  611.  00000H, 00000H, 00000H, 03FFFH, 0E000H, 00000H, 00000H, (* 8*)
  612.  00000H, 00000H, 00000H, 03FFFH, 0F000H, 00000H, 00000H, (* 9*)
  613.  00000H, 00000H, 00000H, 03FFFH, 0FC00H, 00000H, 00000H, (*10*)
  614.  00000H, 00000H, 00000H, 03FFFH, 0FF00H, 00000H, 00000H, (*11*)
  615.  00000H, 00000H, 00000H, 03FFFH, 0FFC0H, 00000H, 00000H, (*12*)
  616.  00000H, 00000H, 00000H, 03FFFH, 0FFF0H, 00000H, 00000H, (*13*)
  617.  00000H, 00000H, 00000H, 03FFFH, 0FFFCH, 00000H, 00000H, (*14*)
  618.  00000H, 00000H, 00000H, 03FFFH, 0FFFFH, 00000H, 00000H, (*15*)
  619.  00000H, 00000H, 00000H, 03FFFH, 0FFFFH, 0C000H, 00000H, (*16*)
  620.  0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0F000H, 00000H, (*17*)
  621.  0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FC00H, 00000H, (*18*)
  622.  0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FF00H, 00000H, (*19*)
  623.  0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFC0H, 00000H, (*20*)
  624.  0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFF0H, 00000H, (*21*)
  625.  0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFCH, 00000H, (*22*)
  626.  0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 00000H, (*23*)
  627.  0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0C000H, (*24*)
  628.  0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0F000H, (*25*)
  629.  0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FC00H, (*26*)
  630.  0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FF00H, (*27*)
  631.  0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFC0H, (*28*)
  632.  0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FF80H, (*29*)
  633.  0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FE00H, (*30*)
  634.  0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0F800H, (*31*)
  635.  0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0E000H, (*32*)
  636.  0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 08000H, (*33*)
  637.  0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFEH, 00000H, (*34*)
  638.  0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFF8H, 00000H, (*35*)
  639.  0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFE0H, 00000H, (*36*)
  640.  0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FF80H, 00000H, (*37*)
  641.  07FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FE00H, 00000H, (*38*)
  642.  03FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0F800H, 00000H, (*39*)
  643.  01FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0E000H, 00000H, (*40*)
  644.  00000H, 00000H, 00000H, 03FFFH, 0FFFFH, 08000H, 00000H, (*41*)
  645.  00000H, 00000H, 00000H, 03FFFH, 0FFFEH, 00000H, 00000H, (*42*)
  646.  00000H, 00000H, 00000H, 03FFFH, 0FFF8H, 00000H, 00000H, (*43*)
  647.  00000H, 00000H, 00000H, 03FFFH, 0FFE0H, 00000H, 00000H, (*44*)
  648.  00000H, 00000H, 00000H, 03FFFH, 0FF80H, 00000H, 00000H, (*45*)
  649.  00000H, 00000H, 00000H, 03FFFH, 0FE00H, 00000H, 00000H, (*46*)
  650.  00000H, 00000H, 00000H, 03FFFH, 0F800H, 00000H, 00000H, (*47*)
  651.  00000H, 00000H, 00000H, 03FFFH, 0E000H, 00000H, 00000H, (*48*)
  652.  00000H, 00000H, 00000H, 03FFFH, 08000H, 00000H, 00000H, (*49*)
  653.  00000H, 00000H, 00000H, 03FFEH, 00000H, 00000H, 00000H, (*50*)
  654.  00000H, 00000H, 00000H, 01FF8H, 00000H, 00000H, 00000H, (*51*)
  655.  00000H, 00000H, 00000H, 00FE0H, 00000H, 00000H, 00000H, (*52*)
  656.  00000H, 00000H, 00000H, 00780H, 00000H, 00000H, 00000H) (*53*)
  657.  
  658. END HBackUpData;
  659.  
  660. PROCEDURE RestoreData(); (* $E- *)
  661.  
  662. BEGIN
  663.  
  664. INLINE(
  665.  
  666.   (* Plane 1 *)
  667.  00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, (* 1*)
  668.  00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, (* 2*)
  669.  00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, (* 3*)
  670.  00000H, 00000H, 00000H, 00C00H, 00000H, 00000H, 00000H, (* 4*)
  671.  00000H, 00000H, 00000H, 03C00H, 00000H, 00000H, 00000H, (* 5*)
  672.  00000H, 00000H, 00000H, 0FC00H, 00000H, 00000H, 00000H, (* 6*)
  673.  00000H, 00000H, 00003H, 0FC00H, 00000H, 00000H, 00000H, (* 7*)
  674.  00000H, 00000H, 0000FH, 0FC00H, 00000H, 00000H, 00000H, (* 8*)
  675.  00000H, 00000H, 0003FH, 0FC00H, 00000H, 00000H, 00000H, (* 9*)
  676.  00000H, 00000H, 000FFH, 0FC00H, 00000H, 00000H, 00000H, (*10*)
  677.  00000H, 00000H, 003FFH, 0FC00H, 00000H, 00000H, 00000H, (*11*)
  678.  00000H, 00000H, 00FFFH, 0FC00H, 00000H, 00000H, 00000H, (*12*)
  679.  00000H, 00000H, 03FFFH, 0FC00H, 00000H, 00000H, 00000H, (*13*)
  680.  00000H, 00000H, 0FFFFH, 0FC00H, 00000H, 00000H, 00000H, (*14*)
  681.  00000H, 00003H, 0FFFFH, 0FC00H, 00000H, 00000H, 00000H, (*15*)
  682.  00000H, 0000FH, 0FFFFH, 0FC00H, 00000H, 00000H, 00000H, (*16*)
  683.  00000H, 0003FH, 0FFFFH, 0FC00H, 00000H, 00000H, 00000H, (*17*)
  684.  00000H, 000FFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FF00H, (*18*)
  685.  00000H, 003FFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FF00H, (*19*)
  686.  00000H, 00FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FF00H, (*20*)
  687.  00000H, 03FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FF00H, (*21*)
  688.  00000H, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FF00H, (*22*)
  689.  00003H, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FF00H, (*23*)
  690.  0000FH, 0FFFFH, 0F03FH, 0FFFFH, 07FFFH, 0FFFFH, 0FF00H, (*24*)
  691.  0003FH, 0FFFFH, 0F99FH, 0FFFEH, 07FFFH, 0FFFFH, 0FF00H, (*25*)
  692.  000FFH, 0FFFFH, 0F99CH, 03C1CH, 01C31H, 03C3FH, 0FF00H, (*26*)
  693.  0003FH, 0FFFFH, 0F839H, 099FEH, 07998H, 0999FH, 0FF00H, (*27*)
  694.  0000FH, 0FFFFH, 0F938H, 01C3EH, 07999H, 0981FH, 0FF00H, (*28*)
  695.  00003H, 0FFFFH, 0F999H, 0FF9EH, 05999H, 0F9FFH, 0FF00H, (*29*)
  696.  00000H, 0FFFFH, 0F1CCH, 0383FH, 03C30H, 0FC3FH, 0FF00H, (*30*)
  697.  00000H, 03FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FF00H, (*31*)
  698.  00000H, 00FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FF00H, (*32*)
  699.  00000H, 003FFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FF00H, (*33*)
  700.  00000H, 000FFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FF00H, (*34*)
  701.  00000H, 0003FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FF00H, (*35*)
  702.  00000H, 0000FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FF00H, (*36*)
  703.  00000H, 00003H, 0FFFFH, 0FC00H, 00000H, 00000H, 00000H, (*37*)
  704.  00000H, 00000H, 0FFFFH, 0FC00H, 00000H, 00000H, 00000H, (*38*)
  705.  00000H, 00000H, 03FFFH, 0FC00H, 00000H, 00000H, 00000H, (*39*)
  706.  00000H, 00000H, 00FFFH, 0FC00H, 00000H, 00000H, 00000H, (*40*)
  707.  00000H, 00000H, 003FFH, 0FC00H, 00000H, 00000H, 00000H, (*41*)
  708.  00000H, 00000H, 000FFH, 0FC00H, 00000H, 00000H, 00000H, (*42*)
  709.  00000H, 00000H, 0003FH, 0FC00H, 00000H, 00000H, 00000H, (*43*)
  710.  00000H, 00000H, 0000FH, 0FC00H, 00000H, 00000H, 00000H, (*44*)
  711.  00000H, 00000H, 00003H, 0FC00H, 00000H, 00000H, 00000H, (*45*)
  712.  00000H, 00000H, 00000H, 0FC00H, 00000H, 00000H, 00000H, (*46*)
  713.  00000H, 00000H, 00000H, 03C00H, 00000H, 00000H, 00000H, (*47*)
  714.  00000H, 00000H, 00000H, 00C00H, 00000H, 00000H, 00000H, (*48*)
  715.  00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, (*49*)
  716.  00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, (*50*)
  717.  00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, (*51*)
  718.  00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, (*52*)
  719.  00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, (*53*)
  720.  (* Plane 2 *)
  721.  00000H, 00000H, 00000H, 00700H, 00000H, 00000H, 00000H, (* 1*)
  722.  00000H, 00000H, 00000H, 00F00H, 00000H, 00000H, 00000H, (* 2*)
  723.  00000H, 00000H, 00000H, 03B00H, 00000H, 00000H, 00000H, (* 3*)
  724.  00000H, 00000H, 00000H, 0F300H, 00000H, 00000H, 00000H, (* 4*)
  725.  00000H, 00000H, 00003H, 08300H, 00000H, 00000H, 00000H, (* 5*)
  726.  00000H, 00000H, 0000FH, 00300H, 00000H, 00000H, 00000H, (* 6*)
  727.  00000H, 00000H, 00038H, 00300H, 00000H, 00000H, 00000H, (* 7*)
  728.  00000H, 00000H, 000F0H, 00300H, 00000H, 00000H, 00000H, (* 8*)
  729.  00000H, 00000H, 00380H, 00300H, 00000H, 00000H, 00000H, (* 9*)
  730.  00000H, 00000H, 00F00H, 00300H, 00000H, 00000H, 00000H, (*10*)
  731.  00000H, 00000H, 03C00H, 00300H, 00000H, 00000H, 00000H, (*11*)
  732.  00000H, 00000H, 0F000H, 00300H, 00000H, 00000H, 00000H, (*12*)
  733.  00000H, 00003H, 0C000H, 00300H, 00000H, 00000H, 00000H, (*13*)
  734.  00000H, 0000FH, 00000H, 00300H, 00000H, 00000H, 00000H, (*14*)
  735.  00000H, 0003CH, 00000H, 00300H, 00000H, 00000H, 00000H, (*15*)
  736.  00000H, 000F0H, 00000H, 00300H, 00000H, 00000H, 00000H, (*16*)
  737.  00000H, 003C0H, 00000H, 003FFH, 0FFFFH, 0FFFFH, 0FFC0H, (*17*)
  738.  00000H, 00F00H, 00000H, 00000H, 00000H, 00000H, 000C0H, (*18*)
  739.  00000H, 03C00H, 00000H, 00000H, 00000H, 00000H, 000C0H, (*19*)
  740.  00000H, 0F000H, 00000H, 00000H, 00000H, 00000H, 000C0H, (*20*)
  741.  00003H, 0C000H, 00000H, 00000H, 00000H, 00000H, 000C0H, (*21*)
  742.  0000FH, 00000H, 00000H, 00000H, 00000H, 00000H, 000C0H, (*22*)
  743.  0003CH, 00000H, 00000H, 00000H, 00000H, 00000H, 000C0H, (*23*)
  744.  000F0H, 00000H, 00FC0H, 00000H, 08000H, 00000H, 000C0H, (*24*)
  745.  003C0H, 00000H, 00660H, 00001H, 08000H, 00000H, 000C0H, (*25*)
  746.  00F00H, 00000H, 00663H, 0C3E3H, 0E3CEH, 0C3C0H, 000C0H, (*26*)
  747.  03FC0H, 00000H, 007C6H, 06601H, 08667H, 06660H, 000C0H, (*27*)
  748.  0FFF0H, 00000H, 006C7H, 0E3C1H, 08666H, 067E0H, 000C0H, (*28*)
  749.  07FFCH, 00000H, 00666H, 00061H, 0A666H, 00600H, 000C0H, (*29*)
  750.  01FFFH, 00000H, 00E33H, 0C7C0H, 0C3CFH, 003C0H, 000C0H, (*30*)
  751.  007FFH, 0C000H, 00000H, 00000H, 00000H, 00000H, 000C0H, (*31*)
  752.  001FFH, 0F000H, 00000H, 00000H, 00000H, 00000H, 000C0H, (*32*)
  753.  0007FH, 0FC00H, 00000H, 00000H, 00000H, 00000H, 000C0H, (*33*)
  754.  0001FH, 0FF00H, 00000H, 00000H, 00000H, 00000H, 000C0H, (*34*)
  755.  00007H, 0FFC0H, 00000H, 00000H, 00000H, 00000H, 000C0H, (*35*)
  756.  00001H, 0FFF0H, 00000H, 00000H, 00000H, 00000H, 000C0H, (*36*)
  757.  00000H, 07FFCH, 00000H, 003FFH, 0FFFFH, 0FFFFH, 0FFC0H, (*37*)
  758.  00000H, 01FFFH, 00000H, 003FFH, 0FFFFH, 0FFFFH, 0FF80H, (*38*)
  759.  00000H, 007FFH, 0C000H, 003FFH, 0FFFFH, 0FFFFH, 0FF00H, (*39*)
  760.  00000H, 001FFH, 0F000H, 003FFH, 0FFFFH, 0FFFFH, 0FE00H, (*40*)
  761.  00000H, 0007FH, 0FC00H, 00300H, 00000H, 00000H, 00000H, (*41*)
  762.  00000H, 0001FH, 0FF00H, 00300H, 00000H, 00000H, 00000H, (*42*)
  763.  00000H, 00007H, 0FFC0H, 00300H, 00000H, 00000H, 00000H, (*43*)
  764.  00000H, 00001H, 0FFF0H, 00300H, 00000H, 00000H, 00000H, (*44*)
  765.  00000H, 00000H, 07FFCH, 00300H, 00000H, 00000H, 00000H, (*45*)
  766.  00000H, 00000H, 01FFFH, 00300H, 00000H, 00000H, 00000H, (*46*)
  767.  00000H, 00000H, 007FFH, 0C300H, 00000H, 00000H, 00000H, (*47*)
  768.  00000H, 00000H, 001FFH, 0F300H, 00000H, 00000H, 00000H, (*48*)
  769.  00000H, 00000H, 0007FH, 0FF00H, 00000H, 00000H, 00000H, (*49*)
  770.  00000H, 00000H, 0001FH, 0FF00H, 00000H, 00000H, 00000H, (*50*)
  771.  00000H, 00000H, 00007H, 0FE00H, 00000H, 00000H, 00000H, (*51*)
  772.  00000H, 00000H, 00001H, 0FC00H, 00000H, 00000H, 00000H, (*52*)
  773.  00000H, 00000H, 00000H, 07800H, 00000H, 00000H, 00000H) (*53*)
  774.  
  775. END RestoreData;
  776.  
  777. PROCEDURE HRestoreData(); (* $E- *)
  778.  
  779. BEGIN
  780.  
  781.  INLINE(
  782.  
  783.   (* Plane 1 *)
  784.  00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, (* 1*)
  785.  00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, (* 2*)
  786.  00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, (* 3*)
  787.  00000H, 00000H, 00000H, 00C00H, 00000H, 00000H, 00000H, (* 4*)
  788.  00000H, 00000H, 00000H, 03C00H, 00000H, 00000H, 00000H, (* 5*)
  789.  00000H, 00000H, 00000H, 0FC00H, 00000H, 00000H, 00000H, (* 6*)
  790.  00000H, 00000H, 00003H, 0FC00H, 00000H, 00000H, 00000H, (* 7*)
  791.  00000H, 00000H, 0000FH, 0FC00H, 00000H, 00000H, 00000H, (* 8*)
  792.  00000H, 00000H, 0003FH, 0FC00H, 00000H, 00000H, 00000H, (* 9*)
  793.  00000H, 00000H, 000FFH, 0FC00H, 00000H, 00000H, 00000H, (*10*)
  794.  00000H, 00000H, 003FFH, 0FC00H, 00000H, 00000H, 00000H, (*11*)
  795.  00000H, 00000H, 00FFFH, 0FC00H, 00000H, 00000H, 00000H, (*12*)
  796.  00000H, 00000H, 03FFFH, 0FC00H, 00000H, 00000H, 00000H, (*13*)
  797.  00000H, 00000H, 0FFFFH, 0FC00H, 00000H, 00000H, 00000H, (*14*)
  798.  00000H, 00003H, 0FFFFH, 0FC00H, 00000H, 00000H, 00000H, (*15*)
  799.  00000H, 0000FH, 0FFFFH, 0FC00H, 00000H, 00000H, 00000H, (*16*)
  800.  00000H, 0003FH, 0FFFFH, 0FC00H, 00000H, 00000H, 00000H, (*17*)
  801.  00000H, 000FFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FF00H, (*18*)
  802.  00000H, 003FFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FF00H, (*19*)
  803.  00000H, 00FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FF00H, (*20*)
  804.  00000H, 03FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FF00H, (*21*)
  805.  00000H, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FF00H, (*22*)
  806.  00003H, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FF00H, (*23*)
  807.  0000FH, 0FFFFH, 0F03FH, 0FFFFH, 07FFFH, 0FFFFH, 0FF00H, (*24*)
  808.  0003FH, 0FFFFH, 0F99FH, 0FFFEH, 07FFFH, 0FFFFH, 0FF00H, (*25*)
  809.  000FFH, 0FFFFH, 0F99CH, 03C1CH, 01C31H, 03C3FH, 0FF00H, (*26*)
  810.  0003FH, 0FFFFH, 0F839H, 099FEH, 07998H, 0999FH, 0FF00H, (*27*)
  811.  0000FH, 0FFFFH, 0F938H, 01C3EH, 07999H, 0981FH, 0FF00H, (*28*)
  812.  00003H, 0FFFFH, 0F999H, 0FF9EH, 05999H, 0F9FFH, 0FF00H, (*29*)
  813.  00000H, 0FFFFH, 0F1CCH, 0383FH, 03C30H, 0FC3FH, 0FF00H, (*30*)
  814.  00000H, 03FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FF00H, (*31*)
  815.  00000H, 00FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FF00H, (*32*)
  816.  00000H, 003FFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FF00H, (*33*)
  817.  00000H, 000FFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FF00H, (*34*)
  818.  00000H, 0003FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FF00H, (*35*)
  819.  00000H, 0000FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FF00H, (*36*)
  820.  00000H, 00003H, 0FFFFH, 0FC00H, 00000H, 00000H, 00000H, (*37*)
  821.  00000H, 00000H, 0FFFFH, 0FC00H, 00000H, 00000H, 00000H, (*38*)
  822.  00000H, 00000H, 03FFFH, 0FC00H, 00000H, 00000H, 00000H, (*39*)
  823.  00000H, 00000H, 00FFFH, 0FC00H, 00000H, 00000H, 00000H, (*40*)
  824.  00000H, 00000H, 003FFH, 0FC00H, 00000H, 00000H, 00000H, (*41*)
  825.  00000H, 00000H, 000FFH, 0FC00H, 00000H, 00000H, 00000H, (*42*)
  826.  00000H, 00000H, 0003FH, 0FC00H, 00000H, 00000H, 00000H, (*43*)
  827.  00000H, 00000H, 0000FH, 0FC00H, 00000H, 00000H, 00000H, (*44*)
  828.  00000H, 00000H, 00003H, 0FC00H, 00000H, 00000H, 00000H, (*45*)
  829.  00000H, 00000H, 00000H, 0FC00H, 00000H, 00000H, 00000H, (*46*)
  830.  00000H, 00000H, 00000H, 03C00H, 00000H, 00000H, 00000H, (*47*)
  831.  00000H, 00000H, 00000H, 00C00H, 00000H, 00000H, 00000H, (*48*)
  832.  00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, (*49*)
  833.  00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, (*50*)
  834.  00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, (*51*)
  835.  00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, (*52*)
  836.  00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, (*53*)
  837.  (* Plane 2 *)
  838.  00000H, 00000H, 00000H, 00300H, 00000H, 00000H, 00000H, (* 1*)
  839.  00000H, 00000H, 00000H, 00F00H, 00000H, 00000H, 00000H, (* 2*)
  840.  00000H, 00000H, 00000H, 03F00H, 00000H, 00000H, 00000H, (* 3*)
  841.  00000H, 00000H, 00000H, 0FF00H, 00000H, 00000H, 00000H, (* 4*)
  842.  00000H, 00000H, 00003H, 0FF00H, 00000H, 00000H, 00000H, (* 5*)
  843.  00000H, 00000H, 0000FH, 0FF00H, 00000H, 00000H, 00000H, (* 6*)
  844.  00000H, 00000H, 0003FH, 0FF00H, 00000H, 00000H, 00000H, (* 7*)
  845.  00000H, 00000H, 000FFH, 0FF00H, 00000H, 00000H, 00000H, (* 8*)
  846.  00000H, 00000H, 003FFH, 0FF00H, 00000H, 00000H, 00000H, (* 9*)
  847.  00000H, 00000H, 00FFFH, 0FF00H, 00000H, 00000H, 00000H, (*10*)
  848.  00000H, 00000H, 03FFFH, 0FF00H, 00000H, 00000H, 00000H, (*11*)
  849.  00000H, 00000H, 0FFFFH, 0FF00H, 00000H, 00000H, 00000H, (*12*)
  850.  00000H, 00003H, 0FFFFH, 0FF00H, 00000H, 00000H, 00000H, (*13*)
  851.  00000H, 0000FH, 0FFFFH, 0FF00H, 00000H, 00000H, 00000H, (*14*)
  852.  00000H, 0003FH, 0FFFFH, 0FF00H, 00000H, 00000H, 00000H, (*15*)
  853.  00000H, 000FFH, 0FFFFH, 0FF00H, 00000H, 00000H, 00000H, (*16*)
  854.  00000H, 003FFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFC0H, (*17*)
  855.  00000H, 00FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFC0H, (*18*)
  856.  00000H, 03FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFC0H, (*19*)
  857.  00000H, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFC0H, (*20*)
  858.  00003H, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFC0H, (*21*)
  859.  0000FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFC0H, (*22*)
  860.  0003FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFC0H, (*23*)
  861.  000FFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFC0H, (*24*)
  862.  003FFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFC0H, (*25*)
  863.  00FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFC0H, (*26*)
  864.  03FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFC0H, (*27*)
  865.  0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFC0H, (*28*)
  866.  07FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFC0H, (*29*)
  867.  01FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFC0H, (*30*)
  868.  007FFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFC0H, (*31*)
  869.  001FFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFC0H, (*32*)
  870.  0007FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFC0H, (*33*)
  871.  0001FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFC0H, (*34*)
  872.  00007H, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFC0H, (*35*)
  873.  00001H, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFC0H, (*36*)
  874.  00000H, 07FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFC0H, (*37*)
  875.  00000H, 01FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FF80H, (*38*)
  876.  00000H, 007FFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FF00H, (*39*)
  877.  00000H, 001FFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FE00H, (*40*)
  878.  00000H, 0007FH, 0FFFFH, 0FF00H, 00000H, 00000H, 00000H, (*41*)
  879.  00000H, 0001FH, 0FFFFH, 0FF00H, 00000H, 00000H, 00000H, (*42*)
  880.  00000H, 00007H, 0FFFFH, 0FF00H, 00000H, 00000H, 00000H, (*43*)
  881.  00000H, 00001H, 0FFFFH, 0FF00H, 00000H, 00000H, 00000H, (*44*)
  882.  00000H, 00000H, 07FFFH, 0FF00H, 00000H, 00000H, 00000H, (*45*)
  883.  00000H, 00000H, 01FFFH, 0FF00H, 00000H, 00000H, 00000H, (*46*)
  884.  00000H, 00000H, 007FFH, 0FF00H, 00000H, 00000H, 00000H, (*47*)
  885.  00000H, 00000H, 001FFH, 0FF00H, 00000H, 00000H, 00000H, (*48*)
  886.  00000H, 00000H, 0007FH, 0FF00H, 00000H, 00000H, 00000H, (*49*)
  887.  00000H, 00000H, 0001FH, 0FF00H, 00000H, 00000H, 00000H, (*50*)
  888.  00000H, 00000H, 00007H, 0FE00H, 00000H, 00000H, 00000H, (*51*)
  889.  00000H, 00000H, 00001H, 0FC00H, 00000H, 00000H, 00000H, (*52*)
  890.  00000H, 00000H, 00000H, 07800H, 00000H, 00000H, 00000H) (*53*)
  891.  
  892. END HRestoreData;
  893.  
  894. BEGIN
  895.  
  896. Imgwidth [HardDisk] :=160;
  897. Imgheight[HardDisk] := 67;
  898. AllocMem(ImageDatas[HardDisk],20*67*2,TRUE);
  899. CopyMem(ADR(HardDiskData),ImageDatas[HardDisk],20*67*2);
  900.  
  901. Imgwidth [Disk] :=112;
  902. Imgheight[Disk] := 58;
  903. AllocMem(ImageDatas[Disk],14*58*2,TRUE);
  904. CopyMem(ADR(DiskData),ImageDatas[Disk],14*58*2);
  905.  
  906. Imgwidth [OpenDisk] :=112;
  907. Imgheight[OpenDisk] := 58;
  908. AllocMem(ImageDatas[OpenDisk],14*58*2,TRUE);
  909. CopyMem(ADR(OpenDiskData),ImageDatas[OpenDisk],14*58*2);
  910.  
  911. Imgwidth [BackUp] :=104;
  912. Imgheight[BackUp] := 53;
  913. AllocMem(ImageDatas[BackUp],14*53*2,TRUE);
  914. CopyMem(ADR(BackUpData),ImageDatas[BackUp],14*53*2);
  915.  
  916. Imgwidth [HBackUp] :=104;
  917. Imgheight[HBackUp] := 53;
  918. AllocMem(ImageDatas[HBackUp],14*53*2,TRUE);
  919. CopyMem(ADR(HBackUpData),ImageDatas[HBackUp],14*53*2);
  920.  
  921. Imgwidth [Restore] :=104;
  922. Imgheight[Restore] := 53;
  923. AllocMem(ImageDatas[Restore],14*53*2,TRUE);
  924. CopyMem(ADR(RestoreData),ImageDatas[Restore],14*53*2);
  925.  
  926. Imgwidth [HRestore] :=104;
  927. Imgheight[HRestore] := 53;
  928. AllocMem(ImageDatas[HRestore],14*53*2,TRUE);
  929. CopyMem(ADR(HRestoreData),ImageDatas[HRestore],14*53*2);
  930.  
  931. END HDImages.
  932.