(*-------------------------------------------------------------------------*)
(*                                                                         *)
(*         This contains the gadget's images (Disks, Arrows, ...)          *)
(*                                                                         *)
(*-------------------------------------------------------------------------*)

IMPLEMENTATION MODULE HDImages;

FROM SYSTEM IMPORT INLINE, ADDRESS, ADR;

FROM Heap   IMPORT AllocMem;

FROM Exec   IMPORT CopyMem;

(*
TYPE
  Images = (Disk, OpenDisk, HardDisk, BackUp, HBackUp, Restore, HRestore);


VAR
  Imgwidth   :ARRAY Images OF INTEGER;
  Imgheight  :ARRAY Images OF INTEGER;
  ImageDatas: ARRAY Images OF ADDRESS;
*)




PROCEDURE HardDiskData(); (* $E- *)

BEGIN

INLINE(
  (* Plane 1 *)
00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,(* 1*)
00000H,003FFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,00000H,(* 2*)
00000H,01FFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFF8H,0C000H,(* 3*)
00001H,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFC7H,0C000H,(* 4*)
0000FH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FF3FH,0C000H,(* 5*)
00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,000FFH,0C000H,(* 6*)
000FFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FEFFH,0C000H,(* 7*)
000FFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FEFFH,0C000H,(* 8*)
000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EFFH,0C000H,(* 9*)
000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EFFH,0C000H,(*10*)
000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EFFH,0C000H,(*11*)
000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EFFH,0C000H,(*12*)
000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EFFH,0C000H,(*13*)
000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EFFH,0C000H,(*14*)
000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EFFH,0C000H,(*15*)
000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EFFH,0C000H,(*16*)
000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EFFH,0C000H,(*17*)
000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EFFH,0C000H,(*18*)
000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EFFH,0C000H,(*19*)
000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EFFH,0C000H,(*20*)
000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EFFH,0C000H,(*21*)
000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EFFH,0C000H,(*22*)
000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EFFH,0C000H,(*23*)
000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EFFH,0C000H,(*24*)
000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EFFH,0C000H,(*25*)
000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EFFH,0C000H,(*26*)
000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EFFH,0C000H,(*27*)
000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EFFH,0C000H,(*28*)
000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EFFH,0C000H,(*29*)
000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EFFH,0C000H,(*30*)
000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EFFH,0C000H,(*31*)
000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EFFH,0C000H,(*32*)
000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EFFH,0C000H,(*33*)
000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EFFH,0C000H,(*34*)
000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EFFH,0C000H,(*35*)
000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EFFH,0C000H,(*36*)
000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EFFH,0C000H,(*37*)
000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EFFH,0C000H,(*38*)
000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EFFH,0C000H,(*39*)
000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EFFH,0C000H,(*40*)
000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EFFH,0C000H,(*41*)
000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EFFH,0C000H,(*42*)
000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EFFH,08000H,(*43*)
000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EFEH,00000H,(*44*)
000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EFCH,00000H,(*45*)
000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EF8H,00000H,(*46*)
000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EF0H,00000H,(*47*)
000F0H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,03EE0H,00000H,(*48*)
000FFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FE80H,00000H,(*49*)
000FFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FE00H,00000H,(*50*)
00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,(*51*)
00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,(*52*)
00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,(*53*)
00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,(*54*)
00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,(*55*)
0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FC00H,(*56*)
0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FC00H,(*57*)
0FFFFH,0FFFFH,0FFFFH,0F83CH,0CE1FH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FC00H,(*58*)
0FFFFH,0FFFFH,0FFFFH,0FC9CH,0CCCFH,03FFFH,0FFFFH,0FFFFH,0FFFFH,0FC00H,(*59*)
0FFFFH,0FFFFH,0FFFFH,0FCCCH,0CC8FH,03FFFH,0FFFFH,0FFFFH,0FFFFH,0FC00H,(*60*)
0FFFFH,0FFFFH,0FFFFH,0FCCCH,00C0FH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FC00H,(*61*)
0FFFFH,0FFFFH,0FFFFH,0FCCCH,0CC4FH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FC00H,(*62*)
0FFFFH,0FFFFH,0FFFFH,0FC9CH,0CCCFH,03FFFH,0FFFFH,0FFFFH,0FFFFH,0FC00H,(*63*)
0FFFFH,0FFFFH,0FFFFH,0F83CH,0CE1FH,03FFFH,0FFFFH,0FFFFH,0FFFFH,0FC00H,(*64*)
0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FC00H,(*65*)
0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FC00H,(*66*)
0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FC00H,(*67*)

  (* Plane 2 *)
00000H,003FFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0E000H,(* 1*)
00000H,01C00H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,0E000H,(* 2*)
00001H,0E000H,00000H,00000H,00000H,00000H,00000H,00000H,00007H,02000H,(* 3*)
0000EH,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00038H,02000H,(* 4*)
00070H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,000C0H,02000H,(* 5*)
001FFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FF00H,02000H,(* 6*)
00100H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00100H,02000H,(* 7*)
00100H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00100H,02000H,(* 8*)
00100H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00100H,02000H,(* 9*)
00100H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00100H,02000H,(*10*)
00100H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00100H,02000H,(*11*)
00100H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00100H,02000H,(*12*)
00100H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00100H,02000H,(*13*)
00100H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00100H,02000H,(*14*)
00100H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00100H,02000H,(*15*)
00100H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00100H,02000H,(*16*)
00100H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00100H,02000H,(*17*)
00100H,00000H,00000H,00000H,003FFH,0FF00H,00000H,00000H,00100H,02000H,(*18*)
00100H,00000H,003FFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FF00H,00100H,02000H,(*19*)
00100H,00000H,00000H,00040H,003FFH,0FF00H,00000H,00000H,00100H,02000H,(*20*)
00100H,00000H,00000H,003F8H,00007H,08000H,00000H,00000H,00100H,02000H,(*21*)
00100H,01FFCH,00000H,003F8H,00007H,08000H,00000H,00000H,00100H,02000H,(*22*)
00100H,01FFFH,0FFFFH,0FFF8H,00007H,08000H,00000H,00000H,00100H,02000H,(*23*)
00100H,01FFCH,00000H,003F8H,00007H,08000H,00000H,00000H,00100H,02000H,(*24*)
00100H,01E00H,00000H,003F8H,00007H,08000H,00000H,00000H,00100H,02000H,(*25*)
00100H,01E00H,00000H,00040H,003FFH,0FF00H,00000H,00000H,00100H,02000H,(*26*)
00100H,01E00H,003FFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FF00H,00100H,02000H,(*27*)
00100H,01E00H,00000H,00040H,003FFH,0FF00H,00000H,00000H,00100H,02000H,(*28*)
00100H,01E00H,00000H,003F8H,00007H,08000H,00000H,00000H,00100H,02000H,(*29*)
00100H,01FFCH,00000H,003F8H,00007H,08000H,00000H,00000H,00100H,02000H,(*30*)
00100H,01FFFH,0FFFFH,0FFF8H,00007H,08000H,00000H,00000H,00100H,02000H,(*31*)
00100H,01FFCH,00000H,003F8H,00007H,08000H,00000H,00000H,00100H,02000H,(*32*)
00100H,01E00H,00000H,003F8H,00007H,08000H,00000H,00000H,00100H,02000H,(*33*)
00100H,01E00H,00000H,00040H,003FFH,0FF00H,00000H,00000H,00100H,02000H,(*34*)
00100H,01E00H,003FFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FF00H,00100H,02000H,(*35*)
00100H,01E00H,00000H,00000H,003FFH,0FF00H,00000H,00000H,00100H,02000H,(*36*)
00100H,01E00H,00000H,00000H,00007H,08000H,00000H,00000H,00100H,02000H,(*37*)
00100H,01E00H,00000H,00000H,00007H,08000H,00000H,00000H,00100H,02000H,(*38*)
00100H,01FFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0F800H,00000H,00100H,02000H,(*39*)
00100H,01FFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0F800H,00000H,00100H,02000H,(*40*)
00100H,01FFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0F800H,00000H,00100H,02000H,(*41*)
00100H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00100H,02000H,(*42*)
00100H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00100H,04000H,(*43*)
00100H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00101H,08000H,(*44*)
00100H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00102H,00000H,(*45*)
00100H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00104H,00000H,(*46*)
00100H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00108H,00000H,(*47*)
00100H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00110H,00000H,(*48*)
00100H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00160H,00000H,(*49*)
00100H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00180H,00000H,(*50*)
001FFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FF00H,00000H,(*51*)
00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,(*52*)
00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,(*53*)
00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,(*54*)
00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,(*55*)
00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,(*56*)
00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,(*57*)
00000H,00000H,00000H,007C3H,031E0H,00000H,00000H,00000H,00000H,00000H,(*58*)
00000H,00000H,00000H,00363H,03330H,0C000H,00000H,00000H,00000H,00000H,(*59*)
00000H,00000H,00000H,00333H,03370H,0C000H,00000H,00000H,00000H,00000H,(*60*)
00000H,00000H,00000H,00333H,0F3F0H,00000H,00000H,00000H,00000H,00000H,(*61*)
00000H,00000H,00000H,00333H,033B0H,00000H,00000H,00000H,00000H,00000H,(*62*)
00000H,00000H,00000H,00363H,03330H,0C000H,00000H,00000H,00000H,00000H,(*63*)
00000H,00000H,00000H,007C3H,031E0H,0C000H,00000H,00000H,00000H,00000H,(*64*)
00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,(*65*)
00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,(*66*)
00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H)(*67*)

END HardDiskData;

PROCEDURE DiskData(); (* $E- *)

BEGIN
 INLINE(
  (* Plane 1 *)
 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H,(* 1*)
 0FF40H, 00000H, 00000H, 00000H, 00000H, 0001FH, 0F800H,(* 2*)
 0FF7FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFDFH, 0F800H,(* 3*)
 0FF7FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFDCH, 01800H,(* 4*)
 0FF7FH, 0FF03H, 0FFFFH, 01F99H, 0FFFFH, 0FFDCH, 01800H,(* 5*)
 0FF7FH, 0FF99H, 0FFFFH, 09F99H, 0FFFFH, 0FFDCH, 01800H,(* 6*)
 0FF7FH, 0FF99H, 0C3C3H, 09999H, 023FFH, 0FFDFH, 0F800H,(* 7*)
 0FF7FH, 0FF83H, 0F999H, 09399H, 099FFH, 0FFDFH, 0F800H,(* 8*)
 0FF7FH, 0FF99H, 0E19FH, 08799H, 099FFH, 0FFDFH, 0F800H,(* 9*)
 0FF7FH, 0FF99H, 09999H, 09399H, 083FFH, 0FFDFH, 0F800H,(*10*)
 0FF7FH, 0FF03H, 0C4C3H, 019C1H, 09FFFH, 0FFDFH, 0F800H,(*11*)
 0FF7FH, 0FFFFH, 0FFFFH, 0FFFFH, 00FFFH, 0FFDFH, 0F800H,(*12*)
 0FF7FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFDFH, 0F800H,(*13*)
 0FF7FH, 0FF83H, 0FFF3H, 0FFFFH, 0FFFFH, 0FFDFH, 0F800H,(*14*)
 0FF7FH, 0FFC9H, 0FFFFH, 0FFFFH, 0F3FFH, 0FFDFH, 0F800H,(*15*)
 0FF7FH, 0FFCCH, 089E3H, 0CCE1H, 0F3FFH, 0FFDFH, 0F800H,(*16*)
 0FF7FH, 0FFCCH, 0C4F3H, 0CCCCH, 0FFFFH, 0FFDFH, 0F800H,(*17*)
 0FF7FH, 0FFCCH, 0CCF3H, 0CCC0H, 0FFFFH, 0FFDFH, 0F800H,(*18*)
 0FF7FH, 0FFC9H, 0CFF3H, 0E1CFH, 0F3FFH, 0FFDFH, 0F800H,(*19*)
 0FF7FH, 0FF83H, 087E1H, 0F3E1H, 0F3FFH, 0FFDFH, 0F800H,(*20*)
 0FF7FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFDFH, 0F800H,(*21*)
 0FF7FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFDFH, 0F800H,(*22*)
 0FF7FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFDFH, 0F800H,(*23*)
 0FF7FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFDFH, 0F800H,(*24*)
 0FF7FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFDFH, 0F800H,(*25*)
 0FF7FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFDFH, 0F800H,(*26*)
 0FF7FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFDFH, 0F800H,(*27*)
 0FF7FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFDFH, 0F800H,(*28*)
 0FF7FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFDFH, 0F800H,(*29*)
 0FF7FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFDFH, 0F800H,(*30*)
 0FF7FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFDFH, 0F800H,(*31*)
 0FF7FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFDFH, 0F800H,(*32*)
 0FF7FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFDFH, 0F800H,(*33*)
 0FF7FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFDFH, 0F800H,(*34*)
 0FF00H, 00000H, 00000H, 00000H, 00000H, 0001FH, 0F800H,(*35*)
 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0F800H,(*36*)
 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0F800H,(*37*)
 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0F800H,(*38*)
 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0F800H,(*39*)
 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0F800H,(*40*)
 0FFFFH, 0F000H, 00000H, 00000H, 0001FH, 0FFFFH, 0F800H,(*41*)
 0FFFFH, 0F01FH, 0FF80H, 00000H, 0001FH, 0FFFFH, 0F800H,(*42*)
 0FFFFH, 0F01FH, 0FF80H, 00000H, 0001FH, 0FFFFH, 0F800H,(*43*)
 0FFFFH, 0F01FH, 0FF80H, 00000H, 0001FH, 0FFFFH, 0F800H,(*44*)
 0FFFFH, 0F01FH, 0FF80H, 00000H, 0001FH, 0FFFFH, 0F800H,(*45*)
 0FFFFH, 0F01FH, 0FF80H, 00000H, 0001FH, 0FFFFH, 0F800H,(*46*)
 0FFFFH, 0F01FH, 0FF80H, 00000H, 0001FH, 0FFFFH, 0F800H,(*47*)
 0FFFFH, 0F01FH, 0FF80H, 00000H, 0001FH, 0FFFFH, 0F800H,(*48*)
 0FFFFH, 0F01FH, 0FF80H, 00000H, 0001FH, 0FFFFH, 0F800H,(*49*)
 0FFFFH, 0F01FH, 0FF80H, 00000H, 0001FH, 0FFFFH, 0F800H,(*50*)
 0FFFFH, 0F01FH, 0FF80H, 00000H, 0001FH, 0FFFFH, 0F800H,(*51*)
 0FFFFH, 0F01FH, 0FF80H, 00000H, 0001FH, 0FFFFH, 0F800H,(*52*)
 0FFFFH, 0F01FH, 0FF80H, 00000H, 0001FH, 0FFFEH, 0F800H,(*53*)
 0FFFFH, 0F01FH, 0FF80H, 00000H, 0001FH, 0FFFEH, 0F800H,(*54*)
 0FFFFH, 0F01FH, 0FF80H, 00000H, 0001FH, 0FFFFH, 07800H,(*55*)
 0FFFFH, 0F01FH, 0FF80H, 00000H, 0001FH, 0FFFFH, 0F800H,(*56*)
 07FFFH, 0F000H, 00000H, 00000H, 0001FH, 0FFFFH, 0F800H,(*57*)
 01FFFH, 0F000H, 00000H, 00000H, 0001FH, 0FFFFH, 0F800H,(*58*)
 (* Plane 2 *)
 0FFC0H, 00000H, 00000H, 00000H, 00000H, 0001FH, 0F800H,(* 1*)
 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFEFH, 0FC00H,(* 2*)
 0FFC0H, 00000H, 00000H, 00000H, 00000H, 0000FH, 0FC00H,(* 3*)
 0FFC0H, 00000H, 00000H, 00000H, 00000H, 0000FH, 0EC00H,(* 4*)
 0FFC0H, 000FCH, 00000H, 0E066H, 00000H, 0000FH, 0EC00H,(* 5*)
 0FFC0H, 00066H, 00000H, 06066H, 00000H, 0000FH, 0EC00H,(* 6*)
 0FFC0H, 00066H, 03C3CH, 06666H, 0DC00H, 0000FH, 0FC00H,(* 7*)
 0FFC0H, 0007CH, 00666H, 06C66H, 06600H, 0000FH, 0FC00H,(* 8*)
 0FFC0H, 00066H, 01E60H, 07866H, 06600H, 0000FH, 0FC00H,(* 9*)
 0FFC0H, 00066H, 06666H, 06C66H, 07C00H, 0000FH, 0FC00H,(*10*)
 0FFC0H, 000FCH, 03B3CH, 0E63EH, 06000H, 0000FH, 0FC00H,(*11*)
 0FFC0H, 00000H, 00000H, 00000H, 0F000H, 0000FH, 0FC00H,(*12*)
 0FFC0H, 00000H, 00000H, 00000H, 00000H, 0000FH, 0FC00H,(*13*)
 0FFC0H, 0007CH, 0000CH, 00000H, 00000H, 0000FH, 0FC00H,(*14*)
 0FFC0H, 00036H, 00000H, 00000H, 00C00H, 0000FH, 0FC00H,(*15*)
 0FFC0H, 00033H, 0761CH, 0331EH, 00C00H, 0000FH, 0FC00H,(*16*)
 0FFC0H, 00033H, 03B0CH, 03333H, 00000H, 0000FH, 0FC00H,(*17*)
 0FFC0H, 00033H, 0330CH, 0333FH, 00000H, 0000FH, 0FC00H,(*18*)
 0FFC0H, 00036H, 0300CH, 01E30H, 00C00H, 0000FH, 0FC00H,(*19*)
 0FFC0H, 0007CH, 0781EH, 00C1EH, 00C00H, 0000FH, 0FC00H,(*20*)
 0FFC0H, 00000H, 00000H, 00000H, 00000H, 0000FH, 0FC00H,(*21*)
 0FFC0H, 00000H, 00000H, 00000H, 00000H, 0000FH, 0FC00H,(*22*)
 0FFC0H, 00000H, 00000H, 00000H, 00000H, 0000FH, 0FC00H,(*23*)
 0FFC0H, 00000H, 00000H, 00000H, 00000H, 0000FH, 0FC00H,(*24*)
 0FFC0H, 00000H, 00000H, 00000H, 00000H, 0000FH, 0FC00H,(*25*)
 0FFC0H, 00000H, 00000H, 00000H, 00000H, 0000FH, 0FC00H,(*26*)
 0FFC0H, 00000H, 00000H, 08000H, 00000H, 0000FH, 0FC00H,(*27*)
 0FFC0H, 00000H, 00000H, 00000H, 00000H, 0000FH, 0FC00H,(*28*)
 0FFC0H, 00000H, 00000H, 00000H, 00000H, 0000FH, 0FC00H,(*29*)
 0FFC0H, 00000H, 00000H, 00000H, 00000H, 0000FH, 0FC00H,(*30*)
 0FFC0H, 00000H, 00000H, 00000H, 00000H, 0000FH, 0FC00H,(*31*)
 0FFC0H, 00000H, 00000H, 00000H, 00000H, 0000FH, 0FC00H,(*32*)
 0FFC0H, 00000H, 00000H, 00000H, 00000H, 0000FH, 0FC00H,(*33*)
 0FFC0H, 00000H, 00000H, 00000H, 00000H, 0000FH, 0FC00H,(*34*)
 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFEFH, 0FC00H,(*35*)
 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FC00H,(*36*)
 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FC00H,(*37*)
 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FC00H,(*38*)
 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FC00H,(*39*)
 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FC00H,(*40*)
 0FFFFH, 0F000H, 00000H, 00000H, 0001FH, 0FFFFH, 0FC00H,(*41*)
 0FFFFH, 0F03FH, 0FF00H, 00000H, 0001FH, 0FFEFH, 0FC00H,(*42*)
 0FFFFH, 0F03FH, 0FF00H, 00000H, 0001FH, 0FFEFH, 0FC00H,(*43*)
 0FFFFH, 0F03FH, 0FF00H, 00000H, 0001FH, 0FFEFH, 0FC00H,(*44*)
 0FFFFH, 0F03FH, 0FF00H, 00000H, 0001FH, 0FFEFH, 0FC00H,(*45*)
 0FFFFH, 0F03FH, 0FF00H, 00000H, 0001FH, 0FFEFH, 0FC00H,(*46*)
 0FFFFH, 0F03FH, 0FF00H, 00000H, 0001FH, 0FFEFH, 0FC00H,(*47*)
 0FFFFH, 0F03FH, 0FF00H, 00000H, 0001FH, 0FFEFH, 0FC00H,(*48*)
 0FFFFH, 0F03FH, 0FF00H, 00000H, 0001FH, 0FFEFH, 0FC00H,(*49*)
 0FFFFH, 0F03FH, 0FF00H, 00000H, 0001FH, 0FFEFH, 0FC00H,(*50*)
 0FFFFH, 0F03FH, 0FF00H, 00000H, 0001FH, 0FFEFH, 0FC00H,(*51*)
 0FFFFH, 0F03FH, 0FF00H, 00000H, 0001FH, 0FFEFH, 0FC00H,(*52*)
 0FFFFH, 0F03FH, 0FF00H, 00000H, 0001FH, 0FFEFH, 0DC00H,(*53*)
 0FFFFH, 0F03FH, 0FF00H, 00000H, 0001FH, 0FFEFH, 0DC00H,(*54*)
 0FFFFH, 0F03FH, 0FF00H, 00000H, 0001FH, 0FFEFH, 0BC00H,(*55*)
 0FFFFH, 0F03FH, 0FF00H, 00000H, 0001FH, 0FFEFH, 0FC00H,(*56*)
 07FFFH, 0F000H, 00000H, 00000H, 0001FH, 0FFEFH, 0FC00H,(*57*)
 01FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFEFH, 0FC00H)(*58*)

END DiskData;

PROCEDURE OpenDiskData(); (* $E- *)

BEGIN

 INLINE(
  (* Plane 1 *)
 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H,(* 1*)
 0FF40H, 00000H, 00000H, 00000H, 00000H, 0001FH, 0F800H,(* 2*)
 0FF7FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFDFH, 0F800H,(* 3*)
 0FF7FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFDCH, 01800H,(* 4*)
 0FF7FH, 0FF03H, 0FFFFH, 01F99H, 0FFFFH, 0FFDCH, 01800H,(* 5*)
 0FF7FH, 0FF99H, 0FFFFH, 09F99H, 0FFFFH, 0FFDCH, 01800H,(* 6*)
 0FF7FH, 0FF99H, 0C3C3H, 09999H, 023FFH, 0FFDFH, 0F800H,(* 7*)
 0FF7FH, 0FF83H, 0F999H, 09399H, 099FFH, 0FFDFH, 0F800H,(* 8*)
 0FF7FH, 0FF99H, 0E19FH, 08799H, 099FFH, 0FFDFH, 0F800H,(* 9*)
 0FF7FH, 0FF99H, 09999H, 09399H, 083FFH, 0FFDFH, 0F800H,(*10*)
 0FF7FH, 0FF03H, 0C4C3H, 019C1H, 09FFFH, 0FFDFH, 0F800H,(*11*)
 0FF7FH, 0FFFFH, 0FFFFH, 0FFFFH, 00FFFH, 0FFDFH, 0F800H,(*12*)
 0FF7FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFDFH, 0F800H,(*13*)
 0FF7FH, 0FF83H, 0FFF3H, 0FFFFH, 0FFFFH, 0FFDFH, 0F800H,(*14*)
 0FF7FH, 0FFC9H, 0FFFFH, 0FFFFH, 0F3FFH, 0FFDFH, 0F800H,(*15*)
 0FF7FH, 0FFCCH, 089E3H, 0CCE1H, 0F3FFH, 0FFDFH, 0F800H,(*16*)
 0FF7FH, 0FFCCH, 0C4F3H, 0CCCCH, 0FFFFH, 0FFDFH, 0F800H,(*17*)
 0FF7FH, 0FFCCH, 0CCF3H, 0CCC0H, 0FFFFH, 0FFDFH, 0F800H,(*18*)
 0FF7FH, 0FFC9H, 0CFF3H, 0E1CFH, 0F3FFH, 0FFDFH, 0F800H,(*19*)
 0FF7FH, 0FF83H, 087E1H, 0F3E1H, 0F3FFH, 0FFDFH, 0F800H,(*20*)
 0FF7FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFDFH, 0F800H,(*21*)
 0FF7FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFDFH, 0F800H,(*22*)
 0FF7FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFDFH, 0F800H,(*23*)
 0FF7FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFDFH, 0F800H,(*24*)
 0FF7FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFDFH, 0F800H,(*25*)
 0FF7FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFDFH, 0F800H,(*26*)
 0FF7FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFDFH, 0F800H,(*27*)
 0FF7FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFDFH, 0F800H,(*28*)
 0FF7FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFDFH, 0F800H,(*29*)
 0FF7FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFDFH, 0F800H,(*30*)
 0FF7FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFDFH, 0F800H,(*31*)
 0FF7FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFDFH, 0F800H,(*32*)
 0FF7FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFDFH, 0F800H,(*33*)
 0FF7FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFDFH, 0F800H,(*34*)
 0FF00H, 00000H, 00000H, 00000H, 00000H, 0001FH, 0F800H,(*35*)
 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0F800H,(*36*)
 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0F800H,(*37*)
 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0F800H,(*38*)
 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0F800H,(*39*)
 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0F800H,(*40*)
 0FFFFH, 0FFFFH, 0C000H, 00000H, 00000H, 0007FH, 0F800H,(*41*)
 0FFFFH, 0F7FFH, 0C000H, 00200H, 00000H, 0007FH, 0F800H,(*42*)
 0FFFFH, 0F7FFH, 0C000H, 00200H, 00000H, 0007FH, 0F800H,(*43*)
 0FFFFH, 0F7FFH, 0C000H, 00200H, 00000H, 0007FH, 0F800H,(*44*)
 0FFFFH, 0F7FFH, 0C000H, 00200H, 00000H, 0007FH, 0F800H,(*45*)
 0FFFFH, 0F7FFH, 0C000H, 00200H, 00000H, 0007FH, 0F800H,(*46*)
 0FFFFH, 0F7FFH, 0C000H, 00200H, 00000H, 0007FH, 0F800H,(*47*)
 0FFFFH, 0F7FFH, 0C000H, 00200H, 00000H, 0007FH, 0F800H,(*48*)
 0FFFFH, 0F7FFH, 0C000H, 00200H, 00000H, 0007FH, 0F800H,(*49*)
 0FFFFH, 0F7FFH, 0C000H, 00200H, 00000H, 0007FH, 0F800H,(*50*)
 0FFFFH, 0F7FFH, 0C000H, 00200H, 00000H, 0007FH, 0F800H,(*51*)
 0FFFFH, 0F7FFH, 0C000H, 00200H, 00000H, 0007FH, 0F800H,(*52*)
 0FFFFH, 0F7FFH, 0C000H, 00200H, 00000H, 0007EH, 0F800H,(*53*)
 0FFFFH, 0F7FFH, 0C000H, 00200H, 00000H, 0007EH, 0F800H,(*54*)
 0FFFFH, 0F7FFH, 0C000H, 00200H, 00000H, 0007FH, 07800H,(*55*)
 0FFFFH, 0F7FFH, 0C000H, 00200H, 00000H, 0007FH, 0F800H,(*56*)
 07FFFH, 0F7FFH, 0C000H, 00000H, 00000H, 0007FH, 0F800H,(*57*)
 01FFFH, 0F000H, 00000H, 00000H, 00000H, 0007FH, 0F800H,(*58*)
 (* Plane 2 *)
 0FFC0H, 00000H, 00000H, 00000H, 00000H, 0001FH, 0F800H,(* 1*)
 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFEFH, 0FC00H,(* 2*)
 0FFC0H, 00000H, 00000H, 00000H, 00000H, 0000FH, 0FC00H,(* 3*)
 0FFC0H, 00000H, 00000H, 00000H, 00000H, 0000FH, 0EC00H,(* 4*)
 0FFC0H, 000FCH, 00000H, 0E066H, 00000H, 0000FH, 0EC00H,(* 5*)
 0FFC0H, 00066H, 00000H, 06066H, 00000H, 0000FH, 0EC00H,(* 6*)
 0FFC0H, 00066H, 03C3CH, 06666H, 0DC00H, 0000FH, 0FC00H,(* 7*)
 0FFC0H, 0007CH, 00666H, 06C66H, 06600H, 0000FH, 0FC00H,(* 8*)
 0FFC0H, 00066H, 01E60H, 07866H, 06600H, 0000FH, 0FC00H,(* 9*)
 0FFC0H, 00066H, 06666H, 06C66H, 07C00H, 0000FH, 0FC00H,(*10*)
 0FFC0H, 000FCH, 03B3CH, 0E63EH, 06000H, 0000FH, 0FC00H,(*11*)
 0FFC0H, 00000H, 00000H, 00000H, 0F000H, 0000FH, 0FC00H,(*12*)
 0FFC0H, 00000H, 00000H, 00000H, 00000H, 0000FH, 0FC00H,(*13*)
 0FFC0H, 0007CH, 0000CH, 00000H, 00000H, 0000FH, 0FC00H,(*14*)
 0FFC0H, 00036H, 00000H, 00000H, 00C00H, 0000FH, 0FC00H,(*15*)
 0FFC0H, 00033H, 0761CH, 0331EH, 00C00H, 0000FH, 0FC00H,(*16*)
 0FFC0H, 00033H, 03B0CH, 03333H, 00000H, 0000FH, 0FC00H,(*17*)
 0FFC0H, 00033H, 0330CH, 0333FH, 00000H, 0000FH, 0FC00H,(*18*)
 0FFC0H, 00036H, 0300CH, 01E30H, 00C00H, 0000FH, 0FC00H,(*19*)
 0FFC0H, 0007CH, 0781EH, 00C1EH, 00C00H, 0000FH, 0FC00H,(*20*)
 0FFC0H, 00000H, 00000H, 00000H, 00000H, 0000FH, 0FC00H,(*21*)
 0FFC0H, 00000H, 00000H, 00000H, 00000H, 0000FH, 0FC00H,(*22*)
 0FFC0H, 00000H, 00000H, 00000H, 00000H, 0000FH, 0FC00H,(*23*)
 0FFC0H, 00000H, 00000H, 00000H, 00000H, 0000FH, 0FC00H,(*24*)
 0FFC0H, 00000H, 00000H, 00000H, 00000H, 0000FH, 0FC00H,(*25*)
 0FFC0H, 00000H, 00000H, 00000H, 00000H, 0000FH, 0FC00H,(*26*)
 0FFC0H, 00000H, 00000H, 00000H, 00000H, 0000FH, 0FC00H,(*27*)
 0FFC0H, 00000H, 00000H, 00000H, 00000H, 0000FH, 0FC00H,(*28*)
 0FFC0H, 00000H, 00000H, 00000H, 00000H, 0000FH, 0FC00H,(*29*)
 0FFC0H, 00000H, 00000H, 00000H, 00000H, 0000FH, 0FC00H,(*30*)
 0FFC0H, 00000H, 00000H, 00000H, 00000H, 0000FH, 0FC00H,(*31*)
 0FFC0H, 00000H, 00000H, 00000H, 00000H, 0000FH, 0FC00H,(*32*)
 0FFC0H, 00000H, 00000H, 00000H, 00000H, 0000FH, 0FC00H,(*33*)
 0FFC0H, 00000H, 00000H, 00000H, 00000H, 0000FH, 0FC00H,(*34*)
 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFEFH, 0FC00H,(*35*)
 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FC00H,(*36*)
 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FC00H,(*37*)
 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FC00H,(*38*)
 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FC00H,(*39*)
 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FC00H,(*40*)
 0FFFFH, 0FFFFH, 0C000H, 00000H, 00000H, 0007FH, 0FC00H,(*41*)
 0FFFFH, 0FFFFH, 0C0FFH, 0FC00H, 00000H, 0006FH, 0FC00H,(*42*)
 0FFFFH, 0FFFFH, 0C0FFH, 0FC00H, 00000H, 0006FH, 0FC00H,(*43*)
 0FFFFH, 0FFFFH, 0C0FFH, 0FC00H, 00000H, 0006FH, 0FC00H,(*44*)
 0FFFFH, 0FFFFH, 0C0FFH, 0FC00H, 00000H, 0006FH, 0FC00H,(*45*)
 0FFFFH, 0FFFFH, 0C0FFH, 0FC00H, 00000H, 0006FH, 0FC00H,(*46*)
 0FFFFH, 0FFFFH, 0C0FFH, 0FC00H, 00000H, 0006FH, 0FC00H,(*47*)
 0FFFFH, 0FFFFH, 0C0FFH, 0FC00H, 00000H, 0006FH, 0FC00H,(*48*)
 0FFFFH, 0FFFFH, 0C0FFH, 0FC00H, 00000H, 0006FH, 0FC00H,(*49*)
 0FFFFH, 0FFFFH, 0C0FFH, 0FC00H, 00000H, 0006FH, 0FC00H,(*50*)
 0FFFFH, 0FFFFH, 0C0FFH, 0FC00H, 00000H, 0006FH, 0FC00H,(*51*)
 0FFFFH, 0FFFFH, 0C0FFH, 0FC00H, 00000H, 0006FH, 0FC00H,(*52*)
 0FFFFH, 0FFFFH, 0C0FFH, 0FC00H, 00000H, 0006FH, 0DC00H,(*53*)
 0FFFFH, 0FFFFH, 0C0FFH, 0FC00H, 00000H, 0006FH, 0DC00H,(*54*)
 0FFFFH, 0FFFFH, 0C0FFH, 0FC00H, 00000H, 0006FH, 0BC00H,(*55*)
 0FFFFH, 0FFFFH, 0C0FFH, 0FC00H, 00000H, 0006FH, 0FC00H,(*56*)
 07FFFH, 0FFFFH, 0C000H, 00000H, 00000H, 0006FH, 0FC00H,(*57*)
 01FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFEFH, 0FC00H)(*58*)

END OpenDiskData;

PROCEDURE BackUpData(); (* $E- *)

BEGIN

 INLINE(

  (* Plane 1 *)
 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, (* 1*)
 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, (* 2*)
 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, (* 3*)
 00000H, 00000H, 00000H, 00C00H, 00000H, 00000H, 00000H, (* 4*)
 00000H, 00000H, 00000H, 00F00H, 00000H, 00000H, 00000H, (* 5*)
 00000H, 00000H, 00000H, 00FC0H, 00000H, 00000H, 00000H, (* 6*)
 00000H, 00000H, 00000H, 00FF0H, 00000H, 00000H, 00000H, (* 7*)
 00000H, 00000H, 00000H, 00FFCH, 00000H, 00000H, 00000H, (* 8*)
 00000H, 00000H, 00000H, 00FFFH, 00000H, 00000H, 00000H, (* 9*)
 00000H, 00000H, 00000H, 00FFFH, 0C000H, 00000H, 00000H, (*10*)
 00000H, 00000H, 00000H, 00FFFH, 0F000H, 00000H, 00000H, (*11*)
 00000H, 00000H, 00000H, 00FFFH, 0FC00H, 00000H, 00000H, (*12*)
 00000H, 00000H, 00000H, 00FFFH, 0FF00H, 00000H, 00000H, (*13*)
 00000H, 00000H, 00000H, 00FFFH, 0FFC0H, 00000H, 00000H, (*14*)
 00000H, 00000H, 00000H, 00FFFH, 0FFF0H, 00000H, 00000H, (*15*)
 00000H, 00000H, 00000H, 00FFFH, 0FFFCH, 00000H, 00000H, (*16*)
 00000H, 00000H, 00000H, 00FFFH, 0FFFFH, 00000H, 00000H, (*17*)
 03FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0C000H, 00000H, (*18*)
 03FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0F000H, 00000H, (*19*)
 03FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FC00H, 00000H, (*20*)
 03FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FF00H, 00000H, (*21*)
 03FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFC0H, 00000H, (*22*)
 03FFFH, 0E07FH, 0FFE3H, 0F33FH, 0FFFFH, 0FFF0H, 00000H, (*23*)
 03FFFH, 0F33FH, 0FFF3H, 0F33FH, 0FFFFH, 0FFFCH, 00000H, (*24*)
 03FFFH, 0F338H, 07873H, 03324H, 07FFFH, 0FFFFH, 00000H, (*25*)
 03FFFH, 0F07FH, 03332H, 07333H, 03FFFH, 0FFFFH, 0C000H, (*26*)
 03FFFH, 0F33CH, 033F0H, 0F333H, 03FFFH, 0FFFFH, 00000H, (*27*)
 03FFFH, 0F333H, 03332H, 07330H, 07FFFH, 0FFFCH, 00000H, (*28*)
 03FFFH, 0E078H, 09863H, 03833H, 0FFFFH, 0FFF0H, 00000H, (*29*)
 03FFFH, 0FFFFH, 0FFFFH, 0FFE1H, 0FFFFH, 0FFC0H, 00000H, (*30*)
 03FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FF00H, 00000H, (*31*)
 03FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FC00H, 00000H, (*32*)
 03FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0F000H, 00000H, (*33*)
 03FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0C000H, 00000H, (*34*)
 03FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 00000H, 00000H, (*35*)
 03FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFCH, 00000H, 00000H, (*36*)
 00000H, 00000H, 00000H, 00FFFH, 0FFF0H, 00000H, 00000H, (*37*)
 00000H, 00000H, 00000H, 00FFFH, 0FFC0H, 00000H, 00000H, (*38*)
 00000H, 00000H, 00000H, 00FFFH, 0FF00H, 00000H, 00000H, (*39*)
 00000H, 00000H, 00000H, 00FFFH, 0FC00H, 00000H, 00000H, (*40*)
 00000H, 00000H, 00000H, 00FFFH, 0F000H, 00000H, 00000H, (*41*)
 00000H, 00000H, 00000H, 00FFFH, 0C000H, 00000H, 00000H, (*42*)
 00000H, 00000H, 00000H, 00FFFH, 00000H, 00000H, 00000H, (*43*)
 00000H, 00000H, 00000H, 00FFCH, 00000H, 00000H, 00000H, (*44*)
 00000H, 00000H, 00000H, 00FF0H, 00000H, 00000H, 00000H, (*45*)
 00000H, 00000H, 00000H, 00FC0H, 00000H, 00000H, 00000H, (*46*)
 00000H, 00000H, 00000H, 00F00H, 00000H, 00000H, 00000H, (*47*)
 00000H, 00000H, 00000H, 00C00H, 00000H, 00000H, 00000H, (*48*)
 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, (*49*)
 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, (*50*)
 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, (*51*)
 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, (*52*)
 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, (*53*)
 (* Plane 2 *)
 00000H, 00000H, 00000H, 03800H, 00000H, 00000H, 00000H, (* 1*)
 00000H, 00000H, 00000H, 03E00H, 00000H, 00000H, 00000H, (* 2*)
 00000H, 00000H, 00000H, 03F80H, 00000H, 00000H, 00000H, (* 3*)
 00000H, 00000H, 00000H, 033E0H, 00000H, 00000H, 00000H, (* 4*)
 00000H, 00000H, 00000H, 030F8H, 00000H, 00000H, 00000H, (* 5*)
 00000H, 00000H, 00000H, 0303EH, 00000H, 00000H, 00000H, (* 6*)
 00000H, 00000H, 00000H, 0300FH, 08000H, 00000H, 00000H, (* 7*)
 00000H, 00000H, 00000H, 03003H, 0E000H, 00000H, 00000H, (* 8*)
 00000H, 00000H, 00000H, 03000H, 0F000H, 00000H, 00000H, (* 9*)
 00000H, 00000H, 00000H, 03000H, 03C00H, 00000H, 00000H, (*10*)
 00000H, 00000H, 00000H, 03000H, 00F00H, 00000H, 00000H, (*11*)
 00000H, 00000H, 00000H, 03000H, 003C0H, 00000H, 00000H, (*12*)
 00000H, 00000H, 00000H, 03000H, 000F0H, 00000H, 00000H, (*13*)
 00000H, 00000H, 00000H, 03000H, 0003CH, 00000H, 00000H, (*14*)
 00000H, 00000H, 00000H, 03000H, 0000FH, 00000H, 00000H, (*15*)
 00000H, 00000H, 00000H, 03000H, 00003H, 0C000H, 00000H, (*16*)
 0FFFFH, 0FFFFH, 0FFFFH, 0F000H, 00000H, 0F000H, 00000H, (*17*)
 0C000H, 00000H, 00000H, 00000H, 00000H, 03C00H, 00000H, (*18*)
 0C000H, 00000H, 00000H, 00000H, 00000H, 00F00H, 00000H, (*19*)
 0C000H, 00000H, 00000H, 00000H, 00000H, 003C0H, 00000H, (*20*)
 0C000H, 00000H, 00000H, 00000H, 00000H, 000F0H, 00000H, (*21*)
 0C000H, 00000H, 00000H, 00000H, 00000H, 0003CH, 00000H, (*22*)
 0C000H, 01F80H, 0001CH, 00CC0H, 00000H, 0000FH, 00000H, (*23*)
 0C000H, 00CC0H, 0000CH, 00CC0H, 00000H, 00003H, 0C000H, (*24*)
 0C000H, 00CC7H, 0878CH, 0CCDBH, 08000H, 00000H, 0F000H, (*25*)
 0C000H, 00F80H, 0CCCDH, 08CCCH, 0C000H, 00000H, 03C00H, (*26*)
 0C000H, 00CC3H, 0CC0FH, 00CCCH, 0C000H, 00000H, 0FF00H, (*27*)
 0C000H, 00CCCH, 0CCCDH, 08CCFH, 08000H, 00003H, 0FFC0H, (*28*)
 0C000H, 01F87H, 0679CH, 0C7CCH, 00000H, 0000FH, 0FF80H, (*29*)
 0C000H, 00000H, 00000H, 0001EH, 00000H, 0003FH, 0FE00H, (*30*)
 0C000H, 00000H, 00000H, 00000H, 00000H, 000FFH, 0F800H, (*31*)
 0C000H, 00000H, 00000H, 00000H, 00000H, 003FFH, 0E000H, (*32*)
 0C000H, 00000H, 00000H, 00000H, 00000H, 00FFFH, 08000H, (*33*)
 0C000H, 00000H, 00000H, 00000H, 00000H, 03FFEH, 00000H, (*34*)
 0C000H, 00000H, 00000H, 00000H, 00000H, 0FFF8H, 00000H, (*35*)
 0C000H, 00000H, 00000H, 00000H, 00003H, 0FFE0H, 00000H, (*36*)
 0FFFFH, 0FFFFH, 0FFFFH, 0F000H, 0000FH, 0FF80H, 00000H, (*37*)
 07FFFH, 0FFFFH, 0FFFFH, 0F000H, 0003FH, 0FE00H, 00000H, (*38*)
 03FFFH, 0FFFFH, 0FFFFH, 0F000H, 000FFH, 0F800H, 00000H, (*39*)
 01FFFH, 0FFFFH, 0FFFFH, 0F000H, 003FFH, 0E000H, 00000H, (*40*)
 00000H, 00000H, 00000H, 03000H, 00FFFH, 08000H, 00000H, (*41*)
 00000H, 00000H, 00000H, 03000H, 03FFEH, 00000H, 00000H, (*42*)
 00000H, 00000H, 00000H, 03000H, 0FFF8H, 00000H, 00000H, (*43*)
 00000H, 00000H, 00000H, 03003H, 0FFE0H, 00000H, 00000H, (*44*)
 00000H, 00000H, 00000H, 0300FH, 0FF80H, 00000H, 00000H, (*45*)
 00000H, 00000H, 00000H, 0303FH, 0FE00H, 00000H, 00000H, (*46*)
 00000H, 00000H, 00000H, 030FFH, 0F800H, 00000H, 00000H, (*47*)
 00000H, 00000H, 00000H, 033FFH, 0E000H, 00000H, 00000H, (*48*)
 00000H, 00000H, 00000H, 03FFFH, 08000H, 00000H, 00000H, (*49*)
 00000H, 00000H, 00000H, 03FFEH, 00000H, 00000H, 00000H, (*50*)
 00000H, 00000H, 00000H, 01FF8H, 00000H, 00000H, 00000H, (*51*)
 00000H, 00000H, 00000H, 00FE0H, 00000H, 00000H, 00000H, (*52*)
 00000H, 00000H, 00000H, 00780H, 00000H, 00000H, 00000H) (*53*)

END BackUpData;

PROCEDURE HBackUpData(); (* $E- *)


BEGIN

 INLINE(

  (* Plane 1 *)
 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, (* 1*)
 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, (* 2*)
 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, (* 3*)
 00000H, 00000H, 00000H, 00C00H, 00000H, 00000H, 00000H, (* 4*)
 00000H, 00000H, 00000H, 00F00H, 00000H, 00000H, 00000H, (* 5*)
 00000H, 00000H, 00000H, 00FC0H, 00000H, 00000H, 00000H, (* 6*)
 00000H, 00000H, 00000H, 00FF0H, 00000H, 00000H, 00000H, (* 7*)
 00000H, 00000H, 00000H, 00FFCH, 00000H, 00000H, 00000H, (* 8*)
 00000H, 00000H, 00000H, 00FFFH, 00000H, 00000H, 00000H, (* 9*)
 00000H, 00000H, 00000H, 00FFFH, 0C000H, 00000H, 00000H, (*10*)
 00000H, 00000H, 00000H, 00FFFH, 0F000H, 00000H, 00000H, (*11*)
 00000H, 00000H, 00000H, 00FFFH, 0FC00H, 00000H, 00000H, (*12*)
 00000H, 00000H, 00000H, 00FFFH, 0FF00H, 00000H, 00000H, (*13*)
 00000H, 00000H, 00000H, 00FFFH, 0FFC0H, 00000H, 00000H, (*14*)
 00000H, 00000H, 00000H, 00FFFH, 0FFF0H, 00000H, 00000H, (*15*)
 00000H, 00000H, 00000H, 00FFFH, 0FFFCH, 00000H, 00000H, (*16*)
 00000H, 00000H, 00000H, 00FFFH, 0FFFFH, 00000H, 00000H, (*17*)
 03FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0C000H, 00000H, (*18*)
 03FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0F000H, 00000H, (*19*)
 03FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FC00H, 00000H, (*20*)
 03FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FF00H, 00000H, (*21*)
 03FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFC0H, 00000H, (*22*)
 03FFFH, 0E07FH, 0FFE3H, 0F33FH, 0FFFFH, 0FFF0H, 00000H, (*23*)
 03FFFH, 0F33FH, 0FFF3H, 0F33FH, 0FFFFH, 0FFFCH, 00000H, (*24*)
 03FFFH, 0F338H, 07873H, 03324H, 07FFFH, 0FFFFH, 00000H, (*25*)
 03FFFH, 0F07FH, 03332H, 07333H, 03FFFH, 0FFFFH, 0C000H, (*26*)
 03FFFH, 0F33CH, 033F0H, 0F333H, 03FFFH, 0FFFFH, 00000H, (*27*)
 03FFFH, 0F333H, 03332H, 07330H, 07FFFH, 0FFFCH, 00000H, (*28*)
 03FFFH, 0E078H, 09863H, 03833H, 0FFFFH, 0FFF0H, 00000H, (*29*)
 03FFFH, 0FFFFH, 0FFFFH, 0FFE1H, 0FFFFH, 0FFC0H, 00000H, (*30*)
 03FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FF00H, 00000H, (*31*)
 03FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FC00H, 00000H, (*32*)
 03FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0F000H, 00000H, (*33*)
 03FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0C000H, 00000H, (*34*)
 03FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 00000H, 00000H, (*35*)
 03FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFCH, 00000H, 00000H, (*36*)
 00000H, 00000H, 00000H, 00FFFH, 0FFF0H, 00000H, 00000H, (*37*)
 00000H, 00000H, 00000H, 00FFFH, 0FFC0H, 00000H, 00000H, (*38*)
 00000H, 00000H, 00000H, 00FFFH, 0FF00H, 00000H, 00000H, (*39*)
 00000H, 00000H, 00000H, 00FFFH, 0FC00H, 00000H, 00000H, (*40*)
 00000H, 00000H, 00000H, 00FFFH, 0F000H, 00000H, 00000H, (*41*)
 00000H, 00000H, 00000H, 00FFFH, 0C000H, 00000H, 00000H, (*42*)
 00000H, 00000H, 00000H, 00FFFH, 00000H, 00000H, 00000H, (*43*)
 00000H, 00000H, 00000H, 00FFCH, 00000H, 00000H, 00000H, (*44*)
 00000H, 00000H, 00000H, 00FF0H, 00000H, 00000H, 00000H, (*45*)
 00000H, 00000H, 00000H, 00FC0H, 00000H, 00000H, 00000H, (*46*)
 00000H, 00000H, 00000H, 00F00H, 00000H, 00000H, 00000H, (*47*)
 00000H, 00000H, 00000H, 00C00H, 00000H, 00000H, 00000H, (*48*)
 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, (*49*)
 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, (*50*)
 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, (*51*)
 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, (*52*)
 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, (*53*)
 (* Plane 2 *)
 00000H, 00000H, 00000H, 03800H, 00000H, 00000H, 00000H, (* 1*)
 00000H, 00000H, 00000H, 03E00H, 00000H, 00000H, 00000H, (* 2*)
 00000H, 00000H, 00000H, 03F80H, 00000H, 00000H, 00000H, (* 3*)
 00000H, 00000H, 00000H, 03FE0H, 00000H, 00000H, 00000H, (* 4*)
 00000H, 00000H, 00000H, 03FF8H, 00000H, 00000H, 00000H, (* 5*)
 00000H, 00000H, 00000H, 03FFEH, 00000H, 00000H, 00000H, (* 6*)
 00000H, 00000H, 00000H, 03FFFH, 08000H, 00000H, 00000H, (* 7*)
 00000H, 00000H, 00000H, 03FFFH, 0E000H, 00000H, 00000H, (* 8*)
 00000H, 00000H, 00000H, 03FFFH, 0F000H, 00000H, 00000H, (* 9*)
 00000H, 00000H, 00000H, 03FFFH, 0FC00H, 00000H, 00000H, (*10*)
 00000H, 00000H, 00000H, 03FFFH, 0FF00H, 00000H, 00000H, (*11*)
 00000H, 00000H, 00000H, 03FFFH, 0FFC0H, 00000H, 00000H, (*12*)
 00000H, 00000H, 00000H, 03FFFH, 0FFF0H, 00000H, 00000H, (*13*)
 00000H, 00000H, 00000H, 03FFFH, 0FFFCH, 00000H, 00000H, (*14*)
 00000H, 00000H, 00000H, 03FFFH, 0FFFFH, 00000H, 00000H, (*15*)
 00000H, 00000H, 00000H, 03FFFH, 0FFFFH, 0C000H, 00000H, (*16*)
 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0F000H, 00000H, (*17*)
 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FC00H, 00000H, (*18*)
 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FF00H, 00000H, (*19*)
 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFC0H, 00000H, (*20*)
 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFF0H, 00000H, (*21*)
 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFCH, 00000H, (*22*)
 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 00000H, (*23*)
 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0C000H, (*24*)
 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0F000H, (*25*)
 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FC00H, (*26*)
 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FF00H, (*27*)
 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFC0H, (*28*)
 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FF80H, (*29*)
 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FE00H, (*30*)
 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0F800H, (*31*)
 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0E000H, (*32*)
 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 08000H, (*33*)
 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFEH, 00000H, (*34*)
 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFF8H, 00000H, (*35*)
 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFE0H, 00000H, (*36*)
 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FF80H, 00000H, (*37*)
 07FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FE00H, 00000H, (*38*)
 03FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0F800H, 00000H, (*39*)
 01FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0E000H, 00000H, (*40*)
 00000H, 00000H, 00000H, 03FFFH, 0FFFFH, 08000H, 00000H, (*41*)
 00000H, 00000H, 00000H, 03FFFH, 0FFFEH, 00000H, 00000H, (*42*)
 00000H, 00000H, 00000H, 03FFFH, 0FFF8H, 00000H, 00000H, (*43*)
 00000H, 00000H, 00000H, 03FFFH, 0FFE0H, 00000H, 00000H, (*44*)
 00000H, 00000H, 00000H, 03FFFH, 0FF80H, 00000H, 00000H, (*45*)
 00000H, 00000H, 00000H, 03FFFH, 0FE00H, 00000H, 00000H, (*46*)
 00000H, 00000H, 00000H, 03FFFH, 0F800H, 00000H, 00000H, (*47*)
 00000H, 00000H, 00000H, 03FFFH, 0E000H, 00000H, 00000H, (*48*)
 00000H, 00000H, 00000H, 03FFFH, 08000H, 00000H, 00000H, (*49*)
 00000H, 00000H, 00000H, 03FFEH, 00000H, 00000H, 00000H, (*50*)
 00000H, 00000H, 00000H, 01FF8H, 00000H, 00000H, 00000H, (*51*)
 00000H, 00000H, 00000H, 00FE0H, 00000H, 00000H, 00000H, (*52*)
 00000H, 00000H, 00000H, 00780H, 00000H, 00000H, 00000H) (*53*)

END HBackUpData;

PROCEDURE RestoreData(); (* $E- *)

BEGIN

INLINE(

  (* Plane 1 *)
 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, (* 1*)
 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, (* 2*)
 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, (* 3*)
 00000H, 00000H, 00000H, 00C00H, 00000H, 00000H, 00000H, (* 4*)
 00000H, 00000H, 00000H, 03C00H, 00000H, 00000H, 00000H, (* 5*)
 00000H, 00000H, 00000H, 0FC00H, 00000H, 00000H, 00000H, (* 6*)
 00000H, 00000H, 00003H, 0FC00H, 00000H, 00000H, 00000H, (* 7*)
 00000H, 00000H, 0000FH, 0FC00H, 00000H, 00000H, 00000H, (* 8*)
 00000H, 00000H, 0003FH, 0FC00H, 00000H, 00000H, 00000H, (* 9*)
 00000H, 00000H, 000FFH, 0FC00H, 00000H, 00000H, 00000H, (*10*)
 00000H, 00000H, 003FFH, 0FC00H, 00000H, 00000H, 00000H, (*11*)
 00000H, 00000H, 00FFFH, 0FC00H, 00000H, 00000H, 00000H, (*12*)
 00000H, 00000H, 03FFFH, 0FC00H, 00000H, 00000H, 00000H, (*13*)
 00000H, 00000H, 0FFFFH, 0FC00H, 00000H, 00000H, 00000H, (*14*)
 00000H, 00003H, 0FFFFH, 0FC00H, 00000H, 00000H, 00000H, (*15*)
 00000H, 0000FH, 0FFFFH, 0FC00H, 00000H, 00000H, 00000H, (*16*)
 00000H, 0003FH, 0FFFFH, 0FC00H, 00000H, 00000H, 00000H, (*17*)
 00000H, 000FFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FF00H, (*18*)
 00000H, 003FFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FF00H, (*19*)
 00000H, 00FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FF00H, (*20*)
 00000H, 03FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FF00H, (*21*)
 00000H, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FF00H, (*22*)
 00003H, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FF00H, (*23*)
 0000FH, 0FFFFH, 0F03FH, 0FFFFH, 07FFFH, 0FFFFH, 0FF00H, (*24*)
 0003FH, 0FFFFH, 0F99FH, 0FFFEH, 07FFFH, 0FFFFH, 0FF00H, (*25*)
 000FFH, 0FFFFH, 0F99CH, 03C1CH, 01C31H, 03C3FH, 0FF00H, (*26*)
 0003FH, 0FFFFH, 0F839H, 099FEH, 07998H, 0999FH, 0FF00H, (*27*)
 0000FH, 0FFFFH, 0F938H, 01C3EH, 07999H, 0981FH, 0FF00H, (*28*)
 00003H, 0FFFFH, 0F999H, 0FF9EH, 05999H, 0F9FFH, 0FF00H, (*29*)
 00000H, 0FFFFH, 0F1CCH, 0383FH, 03C30H, 0FC3FH, 0FF00H, (*30*)
 00000H, 03FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FF00H, (*31*)
 00000H, 00FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FF00H, (*32*)
 00000H, 003FFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FF00H, (*33*)
 00000H, 000FFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FF00H, (*34*)
 00000H, 0003FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FF00H, (*35*)
 00000H, 0000FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FF00H, (*36*)
 00000H, 00003H, 0FFFFH, 0FC00H, 00000H, 00000H, 00000H, (*37*)
 00000H, 00000H, 0FFFFH, 0FC00H, 00000H, 00000H, 00000H, (*38*)
 00000H, 00000H, 03FFFH, 0FC00H, 00000H, 00000H, 00000H, (*39*)
 00000H, 00000H, 00FFFH, 0FC00H, 00000H, 00000H, 00000H, (*40*)
 00000H, 00000H, 003FFH, 0FC00H, 00000H, 00000H, 00000H, (*41*)
 00000H, 00000H, 000FFH, 0FC00H, 00000H, 00000H, 00000H, (*42*)
 00000H, 00000H, 0003FH, 0FC00H, 00000H, 00000H, 00000H, (*43*)
 00000H, 00000H, 0000FH, 0FC00H, 00000H, 00000H, 00000H, (*44*)
 00000H, 00000H, 00003H, 0FC00H, 00000H, 00000H, 00000H, (*45*)
 00000H, 00000H, 00000H, 0FC00H, 00000H, 00000H, 00000H, (*46*)
 00000H, 00000H, 00000H, 03C00H, 00000H, 00000H, 00000H, (*47*)
 00000H, 00000H, 00000H, 00C00H, 00000H, 00000H, 00000H, (*48*)
 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, (*49*)
 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, (*50*)
 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, (*51*)
 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, (*52*)
 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, (*53*)
 (* Plane 2 *)
 00000H, 00000H, 00000H, 00700H, 00000H, 00000H, 00000H, (* 1*)
 00000H, 00000H, 00000H, 00F00H, 00000H, 00000H, 00000H, (* 2*)
 00000H, 00000H, 00000H, 03B00H, 00000H, 00000H, 00000H, (* 3*)
 00000H, 00000H, 00000H, 0F300H, 00000H, 00000H, 00000H, (* 4*)
 00000H, 00000H, 00003H, 08300H, 00000H, 00000H, 00000H, (* 5*)
 00000H, 00000H, 0000FH, 00300H, 00000H, 00000H, 00000H, (* 6*)
 00000H, 00000H, 00038H, 00300H, 00000H, 00000H, 00000H, (* 7*)
 00000H, 00000H, 000F0H, 00300H, 00000H, 00000H, 00000H, (* 8*)
 00000H, 00000H, 00380H, 00300H, 00000H, 00000H, 00000H, (* 9*)
 00000H, 00000H, 00F00H, 00300H, 00000H, 00000H, 00000H, (*10*)
 00000H, 00000H, 03C00H, 00300H, 00000H, 00000H, 00000H, (*11*)
 00000H, 00000H, 0F000H, 00300H, 00000H, 00000H, 00000H, (*12*)
 00000H, 00003H, 0C000H, 00300H, 00000H, 00000H, 00000H, (*13*)
 00000H, 0000FH, 00000H, 00300H, 00000H, 00000H, 00000H, (*14*)
 00000H, 0003CH, 00000H, 00300H, 00000H, 00000H, 00000H, (*15*)
 00000H, 000F0H, 00000H, 00300H, 00000H, 00000H, 00000H, (*16*)
 00000H, 003C0H, 00000H, 003FFH, 0FFFFH, 0FFFFH, 0FFC0H, (*17*)
 00000H, 00F00H, 00000H, 00000H, 00000H, 00000H, 000C0H, (*18*)
 00000H, 03C00H, 00000H, 00000H, 00000H, 00000H, 000C0H, (*19*)
 00000H, 0F000H, 00000H, 00000H, 00000H, 00000H, 000C0H, (*20*)
 00003H, 0C000H, 00000H, 00000H, 00000H, 00000H, 000C0H, (*21*)
 0000FH, 00000H, 00000H, 00000H, 00000H, 00000H, 000C0H, (*22*)
 0003CH, 00000H, 00000H, 00000H, 00000H, 00000H, 000C0H, (*23*)
 000F0H, 00000H, 00FC0H, 00000H, 08000H, 00000H, 000C0H, (*24*)
 003C0H, 00000H, 00660H, 00001H, 08000H, 00000H, 000C0H, (*25*)
 00F00H, 00000H, 00663H, 0C3E3H, 0E3CEH, 0C3C0H, 000C0H, (*26*)
 03FC0H, 00000H, 007C6H, 06601H, 08667H, 06660H, 000C0H, (*27*)
 0FFF0H, 00000H, 006C7H, 0E3C1H, 08666H, 067E0H, 000C0H, (*28*)
 07FFCH, 00000H, 00666H, 00061H, 0A666H, 00600H, 000C0H, (*29*)
 01FFFH, 00000H, 00E33H, 0C7C0H, 0C3CFH, 003C0H, 000C0H, (*30*)
 007FFH, 0C000H, 00000H, 00000H, 00000H, 00000H, 000C0H, (*31*)
 001FFH, 0F000H, 00000H, 00000H, 00000H, 00000H, 000C0H, (*32*)
 0007FH, 0FC00H, 00000H, 00000H, 00000H, 00000H, 000C0H, (*33*)
 0001FH, 0FF00H, 00000H, 00000H, 00000H, 00000H, 000C0H, (*34*)
 00007H, 0FFC0H, 00000H, 00000H, 00000H, 00000H, 000C0H, (*35*)
 00001H, 0FFF0H, 00000H, 00000H, 00000H, 00000H, 000C0H, (*36*)
 00000H, 07FFCH, 00000H, 003FFH, 0FFFFH, 0FFFFH, 0FFC0H, (*37*)
 00000H, 01FFFH, 00000H, 003FFH, 0FFFFH, 0FFFFH, 0FF80H, (*38*)
 00000H, 007FFH, 0C000H, 003FFH, 0FFFFH, 0FFFFH, 0FF00H, (*39*)
 00000H, 001FFH, 0F000H, 003FFH, 0FFFFH, 0FFFFH, 0FE00H, (*40*)
 00000H, 0007FH, 0FC00H, 00300H, 00000H, 00000H, 00000H, (*41*)
 00000H, 0001FH, 0FF00H, 00300H, 00000H, 00000H, 00000H, (*42*)
 00000H, 00007H, 0FFC0H, 00300H, 00000H, 00000H, 00000H, (*43*)
 00000H, 00001H, 0FFF0H, 00300H, 00000H, 00000H, 00000H, (*44*)
 00000H, 00000H, 07FFCH, 00300H, 00000H, 00000H, 00000H, (*45*)
 00000H, 00000H, 01FFFH, 00300H, 00000H, 00000H, 00000H, (*46*)
 00000H, 00000H, 007FFH, 0C300H, 00000H, 00000H, 00000H, (*47*)
 00000H, 00000H, 001FFH, 0F300H, 00000H, 00000H, 00000H, (*48*)
 00000H, 00000H, 0007FH, 0FF00H, 00000H, 00000H, 00000H, (*49*)
 00000H, 00000H, 0001FH, 0FF00H, 00000H, 00000H, 00000H, (*50*)
 00000H, 00000H, 00007H, 0FE00H, 00000H, 00000H, 00000H, (*51*)
 00000H, 00000H, 00001H, 0FC00H, 00000H, 00000H, 00000H, (*52*)
 00000H, 00000H, 00000H, 07800H, 00000H, 00000H, 00000H) (*53*)

END RestoreData;

PROCEDURE HRestoreData(); (* $E- *)

BEGIN

 INLINE(

  (* Plane 1 *)
 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, (* 1*)
 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, (* 2*)
 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, (* 3*)
 00000H, 00000H, 00000H, 00C00H, 00000H, 00000H, 00000H, (* 4*)
 00000H, 00000H, 00000H, 03C00H, 00000H, 00000H, 00000H, (* 5*)
 00000H, 00000H, 00000H, 0FC00H, 00000H, 00000H, 00000H, (* 6*)
 00000H, 00000H, 00003H, 0FC00H, 00000H, 00000H, 00000H, (* 7*)
 00000H, 00000H, 0000FH, 0FC00H, 00000H, 00000H, 00000H, (* 8*)
 00000H, 00000H, 0003FH, 0FC00H, 00000H, 00000H, 00000H, (* 9*)
 00000H, 00000H, 000FFH, 0FC00H, 00000H, 00000H, 00000H, (*10*)
 00000H, 00000H, 003FFH, 0FC00H, 00000H, 00000H, 00000H, (*11*)
 00000H, 00000H, 00FFFH, 0FC00H, 00000H, 00000H, 00000H, (*12*)
 00000H, 00000H, 03FFFH, 0FC00H, 00000H, 00000H, 00000H, (*13*)
 00000H, 00000H, 0FFFFH, 0FC00H, 00000H, 00000H, 00000H, (*14*)
 00000H, 00003H, 0FFFFH, 0FC00H, 00000H, 00000H, 00000H, (*15*)
 00000H, 0000FH, 0FFFFH, 0FC00H, 00000H, 00000H, 00000H, (*16*)
 00000H, 0003FH, 0FFFFH, 0FC00H, 00000H, 00000H, 00000H, (*17*)
 00000H, 000FFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FF00H, (*18*)
 00000H, 003FFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FF00H, (*19*)
 00000H, 00FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FF00H, (*20*)
 00000H, 03FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FF00H, (*21*)
 00000H, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FF00H, (*22*)
 00003H, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FF00H, (*23*)
 0000FH, 0FFFFH, 0F03FH, 0FFFFH, 07FFFH, 0FFFFH, 0FF00H, (*24*)
 0003FH, 0FFFFH, 0F99FH, 0FFFEH, 07FFFH, 0FFFFH, 0FF00H, (*25*)
 000FFH, 0FFFFH, 0F99CH, 03C1CH, 01C31H, 03C3FH, 0FF00H, (*26*)
 0003FH, 0FFFFH, 0F839H, 099FEH, 07998H, 0999FH, 0FF00H, (*27*)
 0000FH, 0FFFFH, 0F938H, 01C3EH, 07999H, 0981FH, 0FF00H, (*28*)
 00003H, 0FFFFH, 0F999H, 0FF9EH, 05999H, 0F9FFH, 0FF00H, (*29*)
 00000H, 0FFFFH, 0F1CCH, 0383FH, 03C30H, 0FC3FH, 0FF00H, (*30*)
 00000H, 03FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FF00H, (*31*)
 00000H, 00FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FF00H, (*32*)
 00000H, 003FFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FF00H, (*33*)
 00000H, 000FFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FF00H, (*34*)
 00000H, 0003FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FF00H, (*35*)
 00000H, 0000FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FF00H, (*36*)
 00000H, 00003H, 0FFFFH, 0FC00H, 00000H, 00000H, 00000H, (*37*)
 00000H, 00000H, 0FFFFH, 0FC00H, 00000H, 00000H, 00000H, (*38*)
 00000H, 00000H, 03FFFH, 0FC00H, 00000H, 00000H, 00000H, (*39*)
 00000H, 00000H, 00FFFH, 0FC00H, 00000H, 00000H, 00000H, (*40*)
 00000H, 00000H, 003FFH, 0FC00H, 00000H, 00000H, 00000H, (*41*)
 00000H, 00000H, 000FFH, 0FC00H, 00000H, 00000H, 00000H, (*42*)
 00000H, 00000H, 0003FH, 0FC00H, 00000H, 00000H, 00000H, (*43*)
 00000H, 00000H, 0000FH, 0FC00H, 00000H, 00000H, 00000H, (*44*)
 00000H, 00000H, 00003H, 0FC00H, 00000H, 00000H, 00000H, (*45*)
 00000H, 00000H, 00000H, 0FC00H, 00000H, 00000H, 00000H, (*46*)
 00000H, 00000H, 00000H, 03C00H, 00000H, 00000H, 00000H, (*47*)
 00000H, 00000H, 00000H, 00C00H, 00000H, 00000H, 00000H, (*48*)
 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, (*49*)
 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, (*50*)
 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, (*51*)
 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, (*52*)
 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, (*53*)
 (* Plane 2 *)
 00000H, 00000H, 00000H, 00300H, 00000H, 00000H, 00000H, (* 1*)
 00000H, 00000H, 00000H, 00F00H, 00000H, 00000H, 00000H, (* 2*)
 00000H, 00000H, 00000H, 03F00H, 00000H, 00000H, 00000H, (* 3*)
 00000H, 00000H, 00000H, 0FF00H, 00000H, 00000H, 00000H, (* 4*)
 00000H, 00000H, 00003H, 0FF00H, 00000H, 00000H, 00000H, (* 5*)
 00000H, 00000H, 0000FH, 0FF00H, 00000H, 00000H, 00000H, (* 6*)
 00000H, 00000H, 0003FH, 0FF00H, 00000H, 00000H, 00000H, (* 7*)
 00000H, 00000H, 000FFH, 0FF00H, 00000H, 00000H, 00000H, (* 8*)
 00000H, 00000H, 003FFH, 0FF00H, 00000H, 00000H, 00000H, (* 9*)
 00000H, 00000H, 00FFFH, 0FF00H, 00000H, 00000H, 00000H, (*10*)
 00000H, 00000H, 03FFFH, 0FF00H, 00000H, 00000H, 00000H, (*11*)
 00000H, 00000H, 0FFFFH, 0FF00H, 00000H, 00000H, 00000H, (*12*)
 00000H, 00003H, 0FFFFH, 0FF00H, 00000H, 00000H, 00000H, (*13*)
 00000H, 0000FH, 0FFFFH, 0FF00H, 00000H, 00000H, 00000H, (*14*)
 00000H, 0003FH, 0FFFFH, 0FF00H, 00000H, 00000H, 00000H, (*15*)
 00000H, 000FFH, 0FFFFH, 0FF00H, 00000H, 00000H, 00000H, (*16*)
 00000H, 003FFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFC0H, (*17*)
 00000H, 00FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFC0H, (*18*)
 00000H, 03FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFC0H, (*19*)
 00000H, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFC0H, (*20*)
 00003H, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFC0H, (*21*)
 0000FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFC0H, (*22*)
 0003FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFC0H, (*23*)
 000FFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFC0H, (*24*)
 003FFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFC0H, (*25*)
 00FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFC0H, (*26*)
 03FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFC0H, (*27*)
 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFC0H, (*28*)
 07FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFC0H, (*29*)
 01FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFC0H, (*30*)
 007FFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFC0H, (*31*)
 001FFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFC0H, (*32*)
 0007FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFC0H, (*33*)
 0001FH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFC0H, (*34*)
 00007H, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFC0H, (*35*)
 00001H, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFC0H, (*36*)
 00000H, 07FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFC0H, (*37*)
 00000H, 01FFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FF80H, (*38*)
 00000H, 007FFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FF00H, (*39*)
 00000H, 001FFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FE00H, (*40*)
 00000H, 0007FH, 0FFFFH, 0FF00H, 00000H, 00000H, 00000H, (*41*)
 00000H, 0001FH, 0FFFFH, 0FF00H, 00000H, 00000H, 00000H, (*42*)
 00000H, 00007H, 0FFFFH, 0FF00H, 00000H, 00000H, 00000H, (*43*)
 00000H, 00001H, 0FFFFH, 0FF00H, 00000H, 00000H, 00000H, (*44*)
 00000H, 00000H, 07FFFH, 0FF00H, 00000H, 00000H, 00000H, (*45*)
 00000H, 00000H, 01FFFH, 0FF00H, 00000H, 00000H, 00000H, (*46*)
 00000H, 00000H, 007FFH, 0FF00H, 00000H, 00000H, 00000H, (*47*)
 00000H, 00000H, 001FFH, 0FF00H, 00000H, 00000H, 00000H, (*48*)
 00000H, 00000H, 0007FH, 0FF00H, 00000H, 00000H, 00000H, (*49*)
 00000H, 00000H, 0001FH, 0FF00H, 00000H, 00000H, 00000H, (*50*)
 00000H, 00000H, 00007H, 0FE00H, 00000H, 00000H, 00000H, (*51*)
 00000H, 00000H, 00001H, 0FC00H, 00000H, 00000H, 00000H, (*52*)
 00000H, 00000H, 00000H, 07800H, 00000H, 00000H, 00000H) (*53*)

END HRestoreData;

BEGIN

Imgwidth [HardDisk] :=160;
Imgheight[HardDisk] := 67;
AllocMem(ImageDatas[HardDisk],20*67*2,TRUE);
CopyMem(ADR(HardDiskData),ImageDatas[HardDisk],20*67*2);

Imgwidth [Disk] :=112;
Imgheight[Disk] := 58;
AllocMem(ImageDatas[Disk],14*58*2,TRUE);
CopyMem(ADR(DiskData),ImageDatas[Disk],14*58*2);

Imgwidth [OpenDisk] :=112;
Imgheight[OpenDisk] := 58;
AllocMem(ImageDatas[OpenDisk],14*58*2,TRUE);
CopyMem(ADR(OpenDiskData),ImageDatas[OpenDisk],14*58*2);

Imgwidth [BackUp] :=104;
Imgheight[BackUp] := 53;
AllocMem(ImageDatas[BackUp],14*53*2,TRUE);
CopyMem(ADR(BackUpData),ImageDatas[BackUp],14*53*2);

Imgwidth [HBackUp] :=104;
Imgheight[HBackUp] := 53;
AllocMem(ImageDatas[HBackUp],14*53*2,TRUE);
CopyMem(ADR(HBackUpData),ImageDatas[HBackUp],14*53*2);

Imgwidth [Restore] :=104;
Imgheight[Restore] := 53;
AllocMem(ImageDatas[Restore],14*53*2,TRUE);
CopyMem(ADR(RestoreData),ImageDatas[Restore],14*53*2);

Imgwidth [HRestore] :=104;
Imgheight[HRestore] := 53;
AllocMem(ImageDatas[HRestore],14*53*2,TRUE);
CopyMem(ADR(HRestoreData),ImageDatas[HRestore],14*53*2);

END HDImages.
