(*---------------------------------------------------------------------------
  :Program.    BobEdiG.mod
  :Contents.   Grafiken für BobEdi
  :Author.     Frank Lömker
  :Copyright.  FreeWare, siehe Dok-File
  :Language.   Modula-2
  :Translator. M2Amiga V4.0d
  :History.    V1.0, [Frank Lömker] 18-Aug-91
  :History.    V2.0, [Frank Lömker] 27-Jun-92 erweitert
  :Bugs.       keine bekannt
---------------------------------------------------------------------------*)

IMPLEMENTATION MODULE BobEdiG;

(*$ ChipCODE:=TRUE
    LargeVars:=FALSE StackParms:=FALSE StackChk:=FALSE *)

FROM SYSTEM IMPORT ADR, ASSEMBLE;

(*$ EntryExitCode:=FALSE *)
PROCEDURE BobBedDat;
BEGIN
  (* Plane 1 *)
  ASSEMBLE (
    DC.W $0000, $0000, $0000, $0000, $0000, $0000, $2000, $0000,
         $0000, $0000, $2000, $0000, $0000, $0010, $2000, $0000,
         $0000, $0008, $2000, $0000, $0000, $0004, $2000, $0000,
         $0000, $0002, $2000, $0000, $0000, $000C, $2000, $0000,
         $0000, $0008, $2000, $0000, $0000, $8008, $2000, $0800,
         $0000, $8008, $2000, $0800, $0000, $8008, $2000, $0800,
         $0000, $80F8, $2000, $0800, $0000, $8000, $2000, $0800,
         $0000, $8000, $2000, $0800, $0004, $BFFF, $E000, $0800,
         $0004, $8000, $0000, $4800, $0804, $8000, $0000, $8800,
         $04FC, $8000, $20F9, $0800, $0280, $8000, $200A, $0800,
         $0100, $8000, $2004, $0800, $0000, $8008, $2000, $0800,
         $0000, $8008, $2000, $0800, $0000, $8008, $2000, $0800,
         $FFFF, $8008, $2FFF, $F800, $0000, $000C, $2000, $0000,
         $0000, $0002, $2000, $0000, $0000, $0004, $2000, $0000,
         $0000, $0008, $2000, $0000, $0000, $0010, $2000, $0000,
         $0000, $0020, $2000, $0000, $0000, $0000, $2000, $0000,
         $0000, $3FFF, $E000, $0000, $0000, $0000, $0000, $0000,
         $0000, $0000, $0000, $0000, $0000, $0000, $0000, $0000,
         $0000, $0000, $0000, $0000, $0000, $8000, $2000, $0800,
         $0000, $8000, $2000, $0800, $0010, $8000, $2000, $0800,
         $0008, $8002, $2000, $8800, $0004, $8002, $20E3, $8800,
         $0004, $8072, $2002, $0800, $0004, $83C2, $2002, $0800,
         $0004, $8002, $2002, $0800, $0004, $800E, $2002, $0800,
         $0004, $8078, $2002, $0800, $0004, $8000, $2002, $0800,
         $0004, $8008, $2000, $8800, $1FFC, $8078, $20FF, $8800,
         $0000, $8000, $2000, $0800, $0000, $8000, $2000, $0800,
         $FFFF, $BFFF, $EFFF, $F800, $0000, $0000, $0000, $0000,
         $0000, $0000, $0000, $0000, $0000, $8000, $2000, $0800,
         $0000, $8000, $2000, $0800, $0000, $8000, $2000, $0800,
         $0248, $8006, $2000, $0800, $0248, $8009, $2000, $4800,
         $0248, $8009, $2000, $4800, $0248, $8006, $2000, $4800,
         $0248, $8001, $2000, $4800, $0248, $8001, $2000, $4800,
         $0248, $8001, $2000, $4800, $0248, $8001, $2000, $4800,
         $0248, $8001, $20FF, $C800, $0FF8, $81FF, $2000, $0800,
         $0000, $8000, $2000, $0800, $0000, $8000, $2000, $0800,
         $FFFF, $BFFF, $EFFF, $F800, $0000, $0000, $0000, $0000,
         $0000, $0000, $0000, $0000, $0000, $8000, $2000, $0800,
         $0000, $8000, $2004, $0800, $0100, $8000, $2002, $0800,
         $0080, $8000, $2001, $0800, $0040, $8000, $2000, $8800,
         $00C0, $8000, $2003, $0800, $0080, $8000, $2002, $0800,
         $0080, $8000, $6000, $0800, $0080, $8800, $A002, $0800,
         $0080, $84D9, $2003, $0800, $0004, $828A, $2000, $8800,
         $0004, $8104, $2001, $0800, $07FC, $8000, $2002, $0800,
         $0000, $8000, $2004, $0800, $0000, $8000, $2008, $0800,
         $FFFF, $BFFF, $EFFF, $F800, $0000, $0000, $0000, $0000,
         $0000, $0000, $0000, $0000, $0000, $8000, $2000, $0800,
         $0000, $8000, $2000, $0800, $0000, $8000, $2000, $0800,
         $0000, $8000, $2000, $0800, $0480, $8002, $2000, $4800,
         $0000, $8004, $207F, $4800, $0010, $8008, $2040, $4800,
         $0000, $8010, $2040, $4800, $0000, $8020, $2040, $4800,
         $0008, $8040, $2040, $4800, $0000, $8080, $2000, $4800,
         $0000, $8300, $2000, $4800, $0008, $8000, $21FF, $C800,
         $0000, $8000, $2000, $0800, $0000, $8000, $2000, $0800,
         $FFFF, $BFFF, $EFFF, $F800, $0000, $0000, $0000, $0000,
         $0000, $0000, $0000, $0000, $0000, $8000, $2000, $0800,
         $0000, $8000, $2000, $0800, $0000, $8000, $2000, $0800,
         $0000, $8000, $2000, $0800, $0004, $8070, $2000, $2800,
         $0004, $8080, $2020, $2800, $0004, $8100, $207F, $E800,
         $0004, $8201, $2070, $0800, $0004, $8201, $2060, $0800,
         $0004, $8001, $2026, $0800, $0004, $8002, $2034, $0800,
         $1FFC, $8004, $2004, $0800, $0000, $8078, $207C, $0800,
         $0000, $8000, $2000, $0800, $0000, $8000, $2000, $0800,
         $FFFF, $BFFF, $EFFF, $F800, $0000, $0000, $0000, $0000,
         $0000, $0000, $0000, $0000, $0000, $8000, $2000, $0800,
         $0000, $8000, $2000, $0800, $0000, $8000, $2000, $0800,
         $0040, $8004, $2001, $0800, $0040, $8004, $2001, $0800,
         $0040, $8004, $200D, $0800, $0040, $800C, $2039, $0800,
         $0040, $8008, $2001, $0800, $0000, $8008, $2003, $0800,
         $0054, $8008, $200E, $0800, $0144, $8001, $2000, $4800,
         $004C, $8001, $2002, $4800, $01C0, $8001, $200E, $4800,
         $0000, $83FF, $20FF, $C800, $0000, $8000, $2000, $0800,
         $FFFF, $BFFF, $EFFF, $F800, $0000, $0000, $0000, $0000,
         $0000, $0000, $0000, $0000, $0000, $8000, $2000, $0800,
         $0000, $8000, $2000, $0800, $0000, $8000, $2000, $0800,
         $0000, $8000, $2000, $0800, $0484, $8746, $A08E, $8800,
         $04A4, $8444, $A0A8, $8800, $00A4, $8444, $20A8, $8800,
         $0324, $8440, $20A0, $8800, $0000, $8446, $A0AE, $8800,
         $0610, $8440, $A0A8, $8800, $04A4, $8440, $A0A8, $8800,
         $0084, $8000, $A020, $0800, $0718, $8777, $A0CE, $E800,
         $0000, $8000, $2000, $0800, $0000, $8000, $2000, $0800,
         $FFFF, $BFFF, $EFFF, $F800,
  (* Plane 2 *)
         $0000, $3FFF, $E000, $0000, $0000, $2000, $0000, $0000,
         $0000, $2000, $0000, $0000, $0000, $2000, $0000, $0000,
         $0000, $2000, $0000, $0000, $0000, $2000, $0000, $0000,
         $0000, $2000, $0000, $0000, $0000, $2000, $0000, $0000,
         $FFFF, $A000, $0FFF, $F800, $8000, $2000, $0800, $0000,
         $8000, $2000, $0800, $0000, $8000, $2000, $0800, $0000,
         $8000, $2000, $0800, $0000, $8000, $2000, $0800, $0000,
         $8000, $2000, $0800, $0000, $8000, $0000, $0800, $0000,
         $8000, $0000, $0800, $0000, $8000, $3FFF, $E800, $0000,
         $8000, $2000, $0800, $0000, $8000, $2000, $0800, $0000,
         $8000, $2000, $0800, $0000, $8000, $2000, $0800, $0000,
         $8000, $2000, $0800, $0000, $8000, $2000, $0800, $0000,
         $0000, $2000, $0000, $0000, $0000, $2000, $0000, $0000,
         $0000, $2000, $0000, $0000, $0000, $2000, $0000, $0000,
         $0000, $2000, $0000, $0000, $0000, $2000, $0000, $0000,
         $0000, $2000, $0000, $0000, $0000, $2000, $0000, $0000,
         $0000, $0000, $0000, $0000, $0000, $0000, $0000, $0000,
         $0000, $0000, $0000, $0000, $0000, $0000, $0000, $0000,
         $FFFF, $BFFF, $EFFF, $F800, $8000, $2000, $0800, $0000,
         $8000, $2000, $0800, $0000, $83E0, $2000, $0800, $0000,
         $8320, $2000, $0800, $0000, $83E0, $2000, $0800, $0000,
         $8000, $2000, $0800, $0000, $8000, $2000, $0800, $0000,
         $8000, $2000, $0800, $0000, $8000, $2000, $0800, $0000,
         $8000, $2000, $0800, $0000, $8000, $2000, $0800, $0000,
         $8000, $2000, $0800, $0000, $8000, $2000, $0800, $0000,
         $8000, $2000, $0800, $0000, $8000, $2000, $0800, $0000,
         $0000, $0000, $0000, $0000, $0000, $0000, $0000, $0000,
         $FFFF, $BFFF, $EFFF, $F800, $8000, $2000, $0800, $0000,
         $8000, $2380, $0800, $0000, $8000, $2440, $0800, $0000,
         $8000, $2440, $0800, $0000, $8000, $2440, $0800, $0000,
         $8080, $2380, $0803, $0000, $8000, $2080, $0818, $0000,
         $8000, $2000, $0824, $0000, $8400, $2000, $0824, $0000,
         $8000, $2000, $0818, $0000, $8010, $2000, $0800, $0000,
         $8000, $2000, $0800, $0000, $8000, $2000, $0800, $0000,
         $8000, $2000, $0800, $0000, $8000, $2000, $0800, $0000,
         $0000, $0000, $0000, $0000, $0000, $0000, $0000, $0000,
         $FFFF, $BFFF, $EFFF, $F800, $8000, $2000, $0800, $0000,
         $8000, $2020, $0800, $0000, $8000, $2020, $0800, $0000,
         $8000, $2020, $0800, $0000, $8000, $2020, $0800, $0000,
         $8000, $2020, $0800, $0000, $8000, $2020, $0800, $0000,
         $8000, $2020, $0BFF, $E000, $8000, $2020, $0800, $0000,
         $8000, $2020, $0800, $0000, $8000, $2020, $0800, $0000,
         $8000, $2020, $0800, $0000, $8000, $2020, $0800, $0000,
         $8000, $2000, $0800, $0000, $8000, $2000, $0800, $0000,
         $0000, $0000, $0000, $0000, $0000, $0000, $0000, $0000,
         $FFFF, $BFFF, $EFFF, $F800, $8000, $2000, $0800, $0000,
         $8000, $2000, $0800, $0000, $8000, $2000, $0800, $0000,
         $8000, $2000, $0800, $0000, $8000, $2000, $0800, $0000,
         $8000, $2000, $0800, $0000, $8000, $2000, $0800, $0000,
         $8000, $2000, $0800, $0000, $8000, $2000, $0800, $0000,
         $8000, $2000, $0800, $0000, $8000, $2000, $0800, $0000,
         $8000, $2000, $0800, $0000, $8000, $2000, $0800, $0000,
         $8000, $2000, $0800, $0000, $8000, $2000, $0800, $0000,
         $0000, $0000, $0000, $0000, $0000, $0000, $0000, $0000,
         $FFFF, $BFFF, $EFFF, $F800, $8000, $2000, $0800, $0000,
         $8000, $2000, $0800, $0000, $8000, $2000, $0800, $0000,
         $8000, $2000, $0800, $0000, $8000, $2000, $0800, $0000,
         $8000, $2000, $0800, $0000, $8000, $2000, $0800, $0000,
         $8000, $2000, $0800, $0000, $8000, $2000, $0898, $0000,
         $8000, $2000, $0850, $0000, $8000, $2000, $0840, $0000,
         $8000, $2000, $0800, $0000, $8000, $2000, $0800, $0000,
         $8000, $2000, $0800, $0000, $8000, $2000, $0800, $0000,
         $0000, $0000, $0000, $0000, $0000, $0000, $0000, $0000,
         $FFFF, $BFFF, $EFFF, $F800, $8000, $2000, $0800, $0000,
         $8000, $2000, $0800, $0000, $8000, $2000, $0800, $0000,
         $8000, $2000, $0800, $0000, $8000, $2000, $0800, $0000,
         $8000, $2000, $0800, $0000, $8000, $2000, $0800, $0000,
         $8000, $2000, $0800, $0000, $8000, $2000, $0800, $0000,
         $8000, $2000, $0800, $0000, $8000, $2000, $0800, $0000,
         $8000, $2000, $0800, $0000, $8000, $2000, $0800, $0000,
         $8000, $2000, $0800, $0000, $8000, $2000, $0800, $0000,
         $0000, $0000, $0000, $0000, $0000, $0000, $0000, $0000,
         $FFFF, $BFFF, $EFFF, $F800, $8000, $2000, $0800, $0000,
         $8000, $2000, $0800, $0000, $8000, $2000, $0800, $0000,
         $8948, $2E8F, $099D, $0000, $8968, $2889, $0951, $0000,
         $8958, $2888, $0951, $0000, $8648, $2888, $0951, $0000,
         $8000, $288F, $095D, $0000, $8E30, $2881, $0951, $0000,
         $8948, $2881, $0951, $0000, $8948, $2889, $0951, $0000,
         $8E30, $2EEF, $099D, $C000, $8000, $2000, $0800, $0000,
         $8000, $2000, $0800, $0000, $8000, $2000, $0800, $0000,
         $0000, $0000, $0000, $0000,
  (* Plane 3 *)
         $0000, $0000, $0000, $0000, $0000, $0000, $0000, $0000,
         $0000, $0020, $0000, $0000, $0000, $0040, $0000, $0000,
         $0000, $0080, $0000, $0000, $0000, $0100, $0000, $0000,
         $0000, $0200, $0000, $0000, $0000, $0180, $0000, $0000,
         $0000, $0080, $0000, $0000, $0000, $0080, $0000, $0000,
         $0000, $0080, $0000, $0000, $0000, $0080, $0000, $0000,
         $0100, $0000, $0004, $0000, $0280, $0000, $000A, $0000,
         $04FC, $0000, $01F9, $0000, $0800, $0000, $0100, $8000,
         $1000, $0000, $0100, $0000, $0000, $0000, $0100, $0000,
         $0000, $0000, $0100, $0000, $0000, $0000, $0000, $0000,
         $0000, $00F8, $0000, $0000, $0000, $0080, $0000, $0000,
         $0000, $0080, $0000, $0000, $0000, $0080, $0000, $0000,
         $0000, $0080, $0000, $0000, $0000, $0180, $0000, $0000,
         $0000, $0200, $0000, $0000, $0000, $0100, $0000, $0000,
         $0000, $0080, $0000, $0000, $0000, $0040, $0000, $0000,
         $0000, $0000, $0000, $0000, $0000, $0000, $0000, $0000,
         $0000, $0000, $0000, $0000, $0000, $0000, $0000, $0000,
         $0000, $0000, $0000, $0000, $0000, $0000, $0000, $0000,
         $0000, $0000, $0000, $0000, $0000, $0000, $0000, $0000,
         $0000, $0000, $0000, $0000, $1C00, $03FE, $00FF, $8000,
         $1000, $0200, $0080, $0000, $1000, $0200, $0000, $0000,
         $1000, $0200, $0020, $0000, $1000, $0030, $0020, $0000,
         $1000, $0040, $0020, $0000, $1000, $0040, $0020, $0000,
         $1000, $0000, $0020, $0000, $1000, $0078, $00E1, $8000,
         $1000, $0040, $0080, $0000, $0000, $0000, $0000, $0000,
         $0000, $0000, $0000, $0000, $0000, $0000, $0000, $0000,
         $0000, $0000, $0000, $0000, $0000, $0000, $0000, $0000,
         $0000, $0000, $0000, $0000, $0000, $0000, $0000, $0000,
         $0000, $0000, $0000, $0000, $0FF8, $0000, $0060, $0000,
         $0920, $0000, $01FF, $C000, $0920, $0000, $0100, $0000,
         $0920, $0000, $0100, $0000, $0920, $0000, $0100, $0000,
         $0920, $00FE, $0100, $0000, $0920, $0100, $0100, $0000,
         $0920, $0200, $0100, $0000, $0920, $0200, $0100, $0000,
         $0920, $0100, $0100, $0000, $0000, $0000, $0000, $0000,
         $0000, $0000, $0000, $0000, $0000, $0000, $0000, $0000,
         $0000, $0000, $0000, $0000, $0000, $0000, $0000, $0000,
         $0000, $0000, $0000, $0000, $0000, $0000, $0008, $0000,
         $0000, $0000, $0010, $0000, $0200, $0000, $0020, $0000,
         $0400, $0104, $0040, $0000, $0800, $028A, $0080, $0000,
         $0400, $04D9, $0060, $0000, $0400, $0800, $8020, $0000,
         $0400, $1000, $0000, $0000, $0400, $0000, $0020, $0000,
         $047C, $0000, $0060, $0000, $0400, $0000, $0080, $0000,
         $0400, $0000, $0040, $0000, $0000, $0000, $0020, $0000,
         $0000, $0000, $0010, $0000, $0000, $0000, $0000, $0000,
         $0000, $0000, $0000, $0000, $0000, $0000, $0000, $0000,
         $0000, $0000, $0000, $0000, $0000, $0000, $0000, $0000,
         $0000, $0000, $0000, $0000, $0000, $0000, $0000, $0000,
         $0900, $0006, $01FF, $C000, $0000, $0008, $0100, $0000,
         $0020, $0010, $0100, $0000, $0000, $0020, $0101, $0000,
         $0000, $0040, $0101, $0000, $0010, $0080, $0101, $0000,
         $0000, $0100, $0101, $0000, $0000, $0200, $017F, $0000,
         $0010, $0000, $0100, $0000, $0000, $0000, $0000, $0000,
         $0000, $0000, $0000, $0000, $0000, $0000, $0000, $0000,
         $0000, $0000, $0000, $0000, $0000, $0000, $0000, $0000,
         $0000, $0000, $0000, $0000, $0000, $0000, $0000, $0000,
         $0000, $0000, $0000, $0000, $0000, $0000, $0000, $0000,
         $1FFC, $00F0, $001F, $C000, $1000, $0108, $001F, $C000,
         $1000, $0204, $001F, $C000, $1000, $0402, $0000, $0000,
         $1000, $0402, $0000, $0000, $1000, $0402, $0104, $0000,
         $1000, $0204, $0088, $0000, $1000, $0108, $0088, $0000,
         $0000, $00F0, $00F8, $0000, $0000, $0000, $0000, $0000,
         $0000, $0000, $0000, $0000, $0000, $0000, $0000, $0000,
         $0000, $0000, $0000, $0000, $0000, $0000, $0000, $0000,
         $0000, $0000, $0000, $0000, $0000, $0000, $0000, $0000,
         $0000, $0000, $0000, $0000, $0080, $00FC, $003F, $0000,
         $0880, $0080, $0020, $0000, $0480, $0080, $0020, $0000,
         $0280, $0080, $0020, $0000, $0180, $00C0, $0004, $0000,
         $0080, $0040, $0008, $0000, $00F8, $0040, $0008, $0000,
         $03A8, $03C7, $00F1, $C000, $0298, $0200, $008E, $0000,
         $0380, $0200, $0088, $0000, $0000, $0200, $0080, $0000,
         $0000, $0000, $0000, $0000, $0000, $0000, $0000, $0000,
         $0000, $0000, $0000, $0000, $0000, $0000, $0000, $0000,
         $0000, $0000, $0000, $0000, $0000, $0000, $0000, $0000,
         $0000, $0000, $0000, $0000, $0000, $0000, $0000, $0000,
         $0000, $0000, $0000, $0000, $0000, $0000, $0000, $0000,
         $0000, $0000, $0000, $0000, $0000, $0000, $0000, $0000,
         $0000, $0000, $0000, $0000, $0000, $0000, $0000, $0000,
         $0000, $0000, $0000, $0000, $0000, $0000, $0000, $0000,
         $0000, $0000, $0000, $0000, $0000, $0000, $0000, $0000,
         $0000, $0000, $0000, $0000, $0000, $0000, $0000, $0000,
         $0000, $0000, $0000, $0000
  END);
END BobBedDat;

PROCEDURE InitBobBed;
BEGIN
  WITH BobBed DO
    leftEdge   := 0;
    topEdge    := 0;
    width      :=  53;
    height     := 161;
    depth      := 3;
    imageData  := ADR (BobBedDat);
    planePick  := 7;
    planeOnOff := 0;
    nextImage  := NIL;
  END; (* WITH *)
END InitBobBed;

(*$ EntryExitCode:=FALSE *)
PROCEDURE Pfeil16Dat;
BEGIN
  ASSEMBLE (
    DC.W   (* Bild:  1 *)
  (* Plane: 1 *)
         $0000, $0000, $0000, $8000, $0000, $8000, $0000, $8000,
         $0000, $8000, $0002, $8000, $008A, $8000, $00A2, $8000,
         $028A, $8000, $10AA, $8000, $088A, $8000, $0402, $8000,
         $027E, $8000, $0140, $8000, $0080, $8000, $0000, $8000,
         $FFFF, $8000,
  (* Plane: 2 *)
         $FFFF, $8000, $8000, $0000, $8000, $0000, $8000, $0000,
         $8000, $0000, $8000, $0000, $8170, $0000, $8340, $0000,
         $8570, $0000, $8150, $0000, $8170, $0000, $8000, $0000,
         $8000, $0000, $8000, $0000, $8000, $0000, $8000, $0000,
         $0000, $0000,
  (* Plane: 3 *)
         $0000, $0000, $0000, $0000, $0080, $0000, $0140, $0000,
         $027E, $0000, $0400, $0000, $0800, $0000, $1000, $0000,
         $2000, $0000, $0000, $0000, $0000, $0000, $0000, $0000,
         $0000, $0000, $0000, $0000, $0000, $0000, $0000, $0000,
         $0000, $0000
  END);
END Pfeil16Dat;

PROCEDURE InitPfeil16;
BEGIN
  WITH Pfeil16 DO
    leftEdge   := 0;
    topEdge    := 0;
    width      :=  17;
    height     :=  17;
    depth      := 3;
    imageData  := ADR (Pfeil16Dat);
    planePick  := 7;
    planeOnOff := 0;
    nextImage  := NIL;
  END; (* WITH *)
END InitPfeil16;

PROCEDURE PfeilHDat; (*$ EntryExitCode:=FALSE *)
BEGIN
  ASSEMBLE (
    DC.W   (* Bild:  1 *)
  (* Plane: 1 *)
         $0000, $0400, $0200, $0100, $0080, $0300, $0200, $0200,
         $0200, $0200, $3E00,
  (* Plane: 2 *)
         $0000, $0000, $0000, $0000, $0000, $0000, $0000, $0000,
         $0000, $0000, $0000,
  (* Plane: 3 *)
         $0800, $1000, $2000, $4000, $8000, $6000, $2000, $2000,
         $2000, $2000, $0000
  END);
END PfeilHDat;

PROCEDURE InitPfeilH;
BEGIN
  WITH PfeilH DO
    leftEdge   := 0;
    topEdge    := 0;
    width      :=   9;
    height     :=  11;
    depth      := 3;
    imageData  := ADR (PfeilHDat);
    planePick  := 7;
    planeOnOff := 0;
    nextImage  := NIL;
  END; (* WITH *)
END InitPfeilH;

PROCEDURE PfeilRDat; (*$ EntryExitCode:=FALSE *)
BEGIN
  ASSEMBLE (
    DC.W   (* Bild:  1 *)
  (* Plane: 1 *)
         $0000, $0200, $0200, $0200, $0200, $0300, $0080, $0100,
         $0200, $0400, $0800,
  (* Plane: 2 *)
         $0000, $0000, $0000, $0000, $0000, $0000, $0000, $0000,
         $0000, $0000, $0000,
  (* Plane: 3 *)
         $3E00, $2000, $2000, $2000, $2000, $6000, $8000, $4000,
         $2000, $1000, $0000
  END);
END PfeilRDat;

PROCEDURE InitPfeilR;
BEGIN
  WITH PfeilR DO
    leftEdge   := 0;
    topEdge    := 0;
    width      :=   9;
    height     :=  11;
    depth      := 3;
    imageData  := ADR (PfeilRDat);
    planePick  := 7;
    planeOnOff := 0;
    nextImage  := NIL;
  END; (* WITH *)
END InitPfeilR;

PROCEDURE PfeilHgDat; (*$ EntryExitCode:=FALSE *)
BEGIN
  ASSEMBLE (
    DC.W   (* Bild:  1 *)
  (* Plane: 1 *)
         $0800, $1000, $2000, $4000, $8000, $6000, $2000, $2000,
         $2000, $2000, $0000,
  (* Plane: 2 *)
         $0000, $0000, $0000, $0000, $0000, $0000, $0000, $0000,
         $0000, $0000, $0000,
  (* Plane: 3 *)
         $0000, $0400, $0200, $0100, $0080, $0300, $0200, $0200,
         $0200, $0200, $3E00
  END);
END PfeilHgDat;

PROCEDURE InitPfeilHg;
BEGIN
  WITH PfeilHg DO
    leftEdge   := 0;
    topEdge    := 0;
    width      :=   9;
    height     :=  11;
    depth      := 3;
    imageData  := ADR (PfeilHgDat);
    planePick  := 7;
    planeOnOff := 0;
    nextImage  := NIL;
  END; (* WITH *)
END InitPfeilHg;

PROCEDURE PfeilRgDat; (*$ EntryExitCode:=FALSE *)
BEGIN
  ASSEMBLE (
    DC.W   (* Bild:  1 *)
  (* Plane: 1 *)
         $3E00, $2000, $2000, $2000, $2000, $6000, $8000, $4000,
         $2000, $1000, $0000,
  (* Plane: 2 *)
         $0000, $0000, $0000, $0000, $0000, $0000, $0000, $0000,
         $0000, $0000, $0000,
  (* Plane: 3 *)
         $0000, $0200, $0200, $0200, $0200, $0300, $0080, $0100,
         $0200, $0400, $0800
  END);
END PfeilRgDat;

PROCEDURE InitPfeilRg;
BEGIN
  WITH PfeilRg DO
    leftEdge   := 0;
    topEdge    := 0;
    width      :=   9;
    height     :=  11;
    depth      := 3;
    imageData  := ADR (PfeilRgDat);
    planePick  := 7;
    planeOnOff := 0;
    nextImage  := NIL;
  END; (* WITH *)
END InitPfeilRg;

PROCEDURE logoDat; (*$ EntryExitCode:=FALSE *)
BEGIN
  (* Plane 1 *)
  ASSEMBLE (
    DC.W $0000, $0003, $FFF8, $0000, $0000, $0000, $001F, $FFFF,
         $0000, $0000, $0000, $00FF, $FFFF, $E000, $0000, $0000,
         $0FFC, $0007, $FE00, $0000, $0000, $7FE0, $0000, $FFC0,
         $0000, $0003, $FF00, $0F00, $1FF8, $0000, $001F, $F00E,
         $1F9F, $81FF, $0000, $00FF, $BC1F, $3FFF, $CF3F, $E000,
         $03FC, $7E3F, $F99F, $9F87, $F800, $07E0, $3C7B, $FB8F,
         $3FC0, $FC00, $0F00, $3C7B, $FFCF, $7980, $1E00, $0E00,
         $3CFB, $FBCF, $7800, $0E00, $1C00, $3DFB, $FBCF, $7980,
         $0700, $1C00, $3FFF, $BFDF, $BFC0, $0700, $3800, $7FDF,
         $1FFF, $DF80, $0380, $3800, $3F8E, $0F9F, $8F00, $0380,
         $7000, $0000, $0000, $0000, $01C0, $7006, $1F8F, $CFCF,
         $1F8F, $01C0, $E00F, $3FDF, $FFFF, $BFDF, $80E0, $701F,
         $9FFF, $EFFF, $FFFF, $C1C0, $701F, $9FEF, $C7BF, $9FBF,
         $81C0, $383F, $DFE7, $879F, $0F1F, $8380, $383F, $DFC7,
         $878F, $8F1F, $C380, $1C7F, $FFC7, $8787, $CF3F, $C700,
         $1C79, $FFE7, $879B, $CF1F, $8700, $0FB0, $FEF7, $87BF,
         $DF8F, $3E00, $07F8, $1C6F, $CFDF, $8F03, $FC00, $03FF,
         $C007, $9FEF, $007F, $F800, $007F, $FC00, $0FC0, $07FF,
         $C000, $0007, $FFC0, $0000, $7FFC, $0000, $0000, $3FFE,
         $000F, $FF80, $0000, $0000, $03FF, $FFFF, $F800, $0000,
         $0000, $003F, $FFFF, $8000, $0000, $0000, $0001, $FFF0,
         $0000, $0000,
  (* Plane 2 *)
         $0000, $0000, $0000, $0000, $0000, $0000, $0003, $FFF8,
         $0000, $0000, $0000, $001C, $0007, $0000, $0000, $0000,
         $00E3, $FFF8, $E000, $0000, $0000, $0F1F, $FFFF, $1E00,
         $0000, $0000, $70FF, $F0FF, $E1C0, $0000, $0003, $8FF1,
         $EF60, $7E38, $0000, $001C, $43EE, $D99F, $B0C7, $0000,
         $00E3, $BDDB, $3666, $6F78, $E000, $031F, $DBB5, $B476,
         $D9BF, $1800, $04FF, $DBB5, $B3B6, $B67F, $E400, $05FF,
         $DB35, $B5B6, $B7FF, $F400, $0BFF, $DAB5, $B5B6, $B67F,
         $FA00, $0BFF, $D99B, $59A6, $59BF, $FA00, $17FF, $BFAE,
         $EF9F, $AF7F, $FD00, $17FF, $C071, $F060, $70FF, $FD00,
         $2FFF, $FFFF, $FFFF, $FFFF, $FE80, $2FF9, $E070, $3030,
         $E070, $FE80, $5FF6, $DFAF, $CFCF, $5FAF, $7F40, $2FEF,
         $6CCB, $5319, $9699, $BE80, $2FEF, $6CD3, $3B5C, $665C,
         $7E80, $17D9, $ACDB, $7B6E, $F6EE, $7D00, $17DF, $AFBB,
         $7B77, $76E3, $BD00, $0BB0, $CDBB, $7B7B, $B6D9, $BA00,
         $0BB6, $CCDB, $7B65, $B6EF, $7A00, $044F, $1D6B, $7B59,
         $AF70, $C400, $0387, $E397, $B32F, $70FC, $3800, $0078,
         $3FF8, $6FD0, $FF83, $C000, $0007, $C3FF, $F03F, $F87C,
         $0000, $0000, $3C3F, $FFFF, $8780, $0000, $0000, $03C1,
         $FFF0, $7800, $0000, $0000, $003E, $000F, $8000, $0000,
         $0000, $0001, $FFF0, $0000, $0000, $0000, $0000, $0000,
         $0000, $0000,
  (* Plane 3 *)
         $0000, $0003, $FFF8, $0000, $0000, $0000, $001F, $FFFF,
         $0000, $0000, $0000, $00FF, $FFFF, $E000, $0000, $0000,
         $0FFF, $FFFF, $FE00, $0000, $0000, $7FFF, $FFFF, $FFC0,
         $0000, $0003, $FFFF, $FFFF, $FFF8, $0000, $001F, $FFFF,
         $FFFF, $FFFF, $0000, $00FF, $FFFF, $FFFF, $FFFF, $E000,
         $03FF, $FFFF, $FFFF, $FFFF, $F800, $07FF, $FFFF, $FFFF,
         $FFFF, $FC00, $0FFF, $FFFF, $FFFF, $FFFF, $FE00, $0FFF,
         $FFFF, $FFFF, $FFFF, $FE00, $1FFF, $FFFF, $FFFF, $FFFF,
         $FF00, $1FFF, $FFFF, $FFFF, $FFFF, $FF00, $3FFF, $FFFF,
         $FFFF, $FFFF, $FF80, $3FFF, $FFFF, $FFFF, $FFFF, $FF80,
         $7FFF, $FFFF, $FFFF, $FFFF, $FFC0, $7FFF, $FFFF, $FFFF,
         $FFFF, $FFC0, $FFFF, $FFFF, $FFFF, $FFFF, $FFE0, $7FFF,
         $FFFF, $FFFF, $FFFF, $FFC0, $7FFF, $FFFF, $FFFF, $FFFF,
         $FFC0, $3FFF, $FFFF, $FFFF, $FFFF, $FF80, $3FFF, $FFFF,
         $FFFF, $FFFF, $FF80, $1FFF, $FFFF, $FFFF, $FFFF, $FF00,
         $1FFF, $FFFF, $FFFF, $FFFF, $FF00, $0FFF, $FFFF, $FFFF,
         $FFFF, $FE00, $07FF, $FFFF, $FFFF, $FFFF, $FC00, $03FF,
         $FFFF, $FFFF, $FFFF, $F800, $007F, $FFFF, $FFFF, $FFFF,
         $C000, $0007, $FFFF, $FFFF, $FFFC, $0000, $0000, $3FFF,
         $FFFF, $FF80, $0000, $0000, $03FF, $FFFF, $F800, $0000,
         $0000, $003F, $FFFF, $8000, $0000, $0000, $0001, $FFF0,
         $0000, $0000
  END);
END logoDat;

PROCEDURE Initlogo;
BEGIN
  WITH logo DO
    leftEdge   := 0;
    topEdge    := 0;
    width      :=  75;
    height     :=  34;
    depth      := 3;
    imageData  := ADR (logoDat);
    planePick  := 7;
    planeOnOff := 0;
    nextImage  := NIL;
  END; (* WITH *)
END Initlogo;

BEGIN
  InitBobBed;
  InitPfeil16;
  InitPfeilH;
  InitPfeilR;
  InitPfeilHg;
  InitPfeilRg;
  Initlogo;
END BobEdiG.