{ }
{ GAME DEFINITION BILD 11 BIS 20 }
{ }
procedure Elf;
{ }
Begin
  Feld[ 1]:='            ######';
  Feld[ 2]:='        #####    #';
  Feld[ 3]:='   ######   # O  #';
  Feld[ 4]:='   #    # O XO   #';
  Feld[ 5]:='   #  O  # # O  ##';
  Feld[ 6]:='   ###O  O ## ###';
  Feld[ 7]:='     #   ## OO#';
  Feld[ 8]:='     ###O##   #';
  Feld[ 9]:='     #***O O  ##';
  Feld[10]:='     #*o* #    #';
  Feld[11]:='     #**# #O O #';
  Feld[12]:='     #**##  ####';
  Feld[13]:='     #*****##';
  Feld[14]:='     #######';
  repeat
    Feldlesen(15,13,4,570,'011');
    Tastatur;
  until ((AnzahlKisten=0) or (Maenner=0));
End;

{ }
procedure Zwoelf;
{ }
Begin
  Feld[ 1]:='     ##########';
  Feld[ 2]:='     #**  #   #';
  Feld[ 3]:='     #**      #';
  Feld[ 4]:='     #**  #  ####';
  Feld[ 5]:='    #######  #  ##';
  Feld[ 6]:='    #            #';
  Feld[ 7]:='    #  #  ##  #  #';
  Feld[ 8]:='  #### ##  #### ##';
  Feld[ 9]:='  #  O  ##### #  #';
  Feld[10]:='  # ##O  O  # O  #';
  Feld[11]:='  # XO  O   #   ##';
  Feld[12]:='  #### ## #######';
  Feld[13]:='     #    #';
  Feld[14]:='     ######';
  repeat
    Feldlesen(6,5,11,420,'012');
    Tastatur;
  until ((AnzahlKisten=0) or (Maenner=0));
End;

{ }
procedure Dreizehn;
{ }
Begin
  Feld[ 1]:='     ###########';
  Feld[ 2]:='     #  *  #   #';
  Feld[ 3]:='     # #*    X #';
  Feld[ 4]:=' ##### ##**# ####';
  Feld[ 5]:='##  # **###     ###';
  Feld[ 6]:='# O #***   O #  O #';
  Feld[ 7]:='#    ** ##  ## ## #';
  Feld[ 8]:='####O##O# O #   # #';
  Feld[ 9]:='  ## #    #O OO # #';
  Feld[10]:='  #  O # #  # O## #';
  Feld[11]:='  #               #';
  Feld[12]:='  #  ###########  #';
  Feld[13]:='  ####         ####';
  Feld[14]:='';
  repeat
    Feldlesen(11,14,3,570,'013');
    Tastatur;
  until ((AnzahlKisten=0) or (Maenner=0));
End;

{ }
procedure Vierzehn;
Begin
  Feld[ 1]:='    #######';
  Feld[ 2]:='    #  #  ####';
  Feld[ 3]:='##### O#O #  ##';
  Feld[ 4]:='#** #  #  #   #';
  Feld[ 5]:='#** # O#O #  O####';
  Feld[ 6]:='#*  #     #O  #  #';
  Feld[ 7]:='#**   O#  # O    #';
  Feld[ 8]:='#**X#  #O #O  #  #';
  Feld[ 9]:='#** # O#     O#  #';
  Feld[10]:='#** #  #OO#O  #  ##';
  Feld[11]:='#** # O#  #  O#O  #';
  Feld[12]:='#** #  #  #   #   #';
  Feld[13]:='##* ####  #####   #';
  Feld[14]:=' ####  ####   #####';
  repeat
    Feldlesen(18,4,8,1035,'014');
    Tastatur;
  until ((AnzahlKisten=0) or (Maenner=0));
End;

{ }
procedure Fuenfzehn;
{ }
Begin
  Feld[ 1]:='   #######';
  Feld[ 2]:='   #  #  #####';
  Feld[ 3]:='  ##  #  #***###';
  Feld[ 4]:='  #  O#  #***  #';
  Feld[ 5]:='  # O #OO ***  #';
  Feld[ 6]:='  #  O#   *** *#';
  Feld[ 7]:='  #   # O########';
  Feld[ 8]:='  ##O       O O #';
  Feld[ 9]:='  ##  #  OO #   #';
  Feld[10]:='   ######  ##OOX#';
  Feld[11]:='       #       ##';
  Feld[12]:='       #########';
  Feld[13]:='';
  Feld[14]:='';
  repeat
    Feldlesen(13,16,10,540,'015');
    Tastatur;
  until ((AnzahlKisten=0) or (Maenner=0));
End;

{ }
procedure Sechzehn;
{ }
Begin
  Feld[ 1]:=' #################';
  Feld[ 2]:=' #***   #    #   ##';
  Feld[ 3]:='##*****  O## # #O #';
  Feld[ 4]:='#******#  O  #    #';
  Feld[ 5]:='#******#  #  # #  #';
  Feld[ 6]:='######### O  O O  #';
  Feld[ 7]:='  #     #O##O ##O##';
  Feld[ 8]:=' ##   O    # O    #';
  Feld[ 9]:=' #  ## ### #  ##O #';
  Feld[10]:=' # O OO     O  O  #';
  Feld[11]:=' # O    O##O ######';
  Feld[12]:=' #######  X ##';
  Feld[13]:='       ######';
  Feld[14]:='';
  repeat
    Feldlesen(20,11,12,900,'016');
    Tastatur;
  until ((AnzahlKisten=0) or (Maenner=0));
End;

{ }
procedure Siebzehn;
{ }
Begin
  Feld[ 1]:='#####';
  Feld[ 2]:='#   ##';
  Feld[ 3]:='# O  #########';
  Feld[ 4]:='## # #       ######';
  Feld[ 5]:='## #   O#O#X  #   #';
  Feld[ 6]:='#  #      O #   O #';
  Feld[ 7]:='#  ### ######### ##';
  Feld[ 8]:='#  ## **o***** # ##';
  Feld[ 9]:='## ## o*o**o*o # ##';
  Feld[10]:='# O########## ##O #';
  Feld[11]:='#  O   O  O    O  #';
  Feld[12]:='#  #   #   #   #  #';
  Feld[13]:='###################';
  Feld[14]:='';
  repeat
    Feldlesen(16,12,5,555,'017');
    Tastatur;
  until ((AnzahlKisten=0) or (Maenner=0));
End;

{ }
procedure Achtzehn;
{ }
Begin
  Feld[ 1]:='       ###########';
  Feld[ 2]:='       #   #     #';
  Feld[ 3]:='#####  #     O O #';
  Feld[ 4]:='#   ##### O## # ##';
  Feld[ 5]:='# O ##   # ## O  #';
  Feld[ 6]:='# O  XOO # ##OOO #';
  Feld[ 7]:='## ###   # ##    #';
  Feld[ 8]:='## #   ### #####O#';
  Feld[ 9]:='## #     O  #****#';
  Feld[10]:='#  ### ## O #****##';
  Feld[11]:='# O   O #   #**O* #';
  Feld[12]:='#  ## O #  ##**** #';
  Feld[13]:='#####   ######***##';
  Feld[14]:='    #####    #####';
  repeat
    Feldlesen(18,6,6,1050,'018');
    Tastatur;
  until ((AnzahlKisten=0) or (Maenner=0));
End;

{ }
procedure Neunzehn;
{ }
Begin
  Feld[ 1]:='           ####';
  Feld[ 2]:='      ######  ##';
  Feld[ 3]:='      # O O   ##';
  Feld[ 4]:='   ####  O O O ###';
  Feld[ 5]:='   # O O   OO    #';
  Feld[ 6]:='   #  #  O   O O #';
  Feld[ 7]:='   ## ##### ######';
  Feld[ 8]:='    #   #*** #';
  Feld[ 9]:='    #  O ****#';
  Feld[10]:='    # O #****#';
  Feld[11]:='    ## O#****#';
  Feld[12]:='     ##X######';
  Feld[13]:='      ###';
  Feld[14]:='';
  repeat
    Feldlesen(15,8,12,525,'019');
    Tastatur;
  until ((AnzahlKisten=0) or (Maenner=0));
End;

{ }
procedure Zwanzig;
{ }
Begin
  Feld[ 1]:='';
  Feld[ 2]:='   ###############';
  Feld[ 3]:='   #    ##  #X   #';
  Feld[ 4]:='   # OO # O ###O #';
  Feld[ 5]:='   ## O #O  # O  #';
  Feld[ 6]:='   ##        O   #';
  Feld[ 7]:='   #  ####### ####';
  Feld[ 8]:='   # O#    O****##';
  Feld[ 9]:='   #   OO#  *****#';
  Feld[10]:='   #  # O ## #***#';
  Feld[11]:='   #  # O  O #**##';
  Feld[12]:='   ####      #*###';
  Feld[13]:='   ###############';
  Feld[14]:='';
  repeat
    Feldlesen(15,14,3,915,'020');
    Tastatur;
  until ((AnzahlKisten=0) or (Maenner=0));
End;