{ }
{ GAME DEFINITION BILD 21 BIS 28 }
{ }
PROCEDURE EINUNDZWANZIG;
{ }
BEGIN
REPEAT
AE:=14;
HM:=11;
VM:=14;
TM:=690;
BL:='021';
FELD[1]:='          ####';
FELD[2]:='    #######  ####';
FELD[3]:='    #    O  ****#';
FELD[4]:='  ###   # # **#*#';
FELD[5]:='  # OO #  # ****#';
FELD[6]:='  #    # O# **#*#';
FELD[7]:='  ##O###O  ###  #';
FELD[8]:='   #  #  O O    #';
FELD[9]:='   #    O O  #O #';
FELD[10]:='   # O## O ##  ##';
FELD[11]:='   ## #### # X##';
FELD[12]:='    #   #  O ##';
FELD[13]:='    ###     ##';
FELD[14]:='      #######';
FELDLESEN;
TASTATUR;
UNTIL (AE=0) OR (MM=0);
END;
{ }
PROCEDURE ZWEIUNDZWANZIG;
{ }
BEGIN
REPEAT
AE:=8;
HM:=3;
VM:=14;
TM:=540;
BL:='022';
FELD[1]:='';
FELD[2]:='           ####';
FELD[3]:='     ####### X#';
FELD[4]:='     #     O  #';
FELD[5]:='     #   O## O#';
FELD[6]:='     ## #***# #';
FELD[7]:='      #OO***  ##';
FELD[8]:='      # #* *#  #';
FELD[9]:='      #   # #O #';
FELD[10]:='      #O  O    #';
FELD[11]:='      #  #######';
FELD[12]:='      ####';
FELD[13]:='';
FELD[14]:='';
FELDLESEN;
TASTATUR;
UNTIL (AE=0) OR (MM=0);
END;
{ }
PROCEDURE DREIUNDZWANZIG;
{ }
BEGIN
REPEAT
AE:=24;
HM:=3;
VM:=18;
TM:=630;
BL:='023';
FELD[1]:='      ########';
FELD[2]:='   ####      ######';
FELD[3]:='   #    ## O O   X#';
FELD[4]:='   # ## ##O#O O O##';
FELD[5]:=' ### ******#  OO ##';
FELD[6]:=' #   ******#  #   #';
FELD[7]:=' # # ******#O  O  #';
FELD[8]:=' # # ****** OO# O #';
FELD[9]:=' #  O### ###O  O ##';
FELD[10]:=' ###   O O  O  O #';
FELD[11]:='   #   O O  O  O #';
FELD[12]:='   ######   ######';
FELD[13]:='        #####';
FELD[14]:='';
FELDLESEN;
TASTATUR;
UNTIL (AE=0) OR (MM=0);
END;
{ }
PROCEDURE VIERUNDZWANZIG;
BEGIN
REPEAT
AE:=9;
HM:=9;
VM:=10;
TM:=510;
BL:='024';
FELD[1]:='';
FELD[2]:='        #######';
FELD[3]:='    #####  #  ####';
FELD[4]:='    #   #   O    #';
FELD[5]:=' #### #OO ## ##  #';
FELD[6]:='##      # #  ## ###';
FELD[7]:='#  ### O#O  O  O  #';
FELD[8]:='#***    # ##  #   #';
FELD[9]:='#***#    X # ### ##';
FELD[10]:='#***#  ###  O  O  #';
FELD[11]:='######## ##   #   #';
FELD[12]:='          #########';
FELD[13]:='';
FELD[14]:='';
FELDLESEN;
TASTATUR;
UNTIL (AE=0) OR (MM=0);
END;
{ }
PROCEDURE FUENFUNDZWANZIG;
{ }
BEGIN
REPEAT
AE:=17;
HM:=10;
VM:=8;
TM:=990;
BL:='025';
FELD[1]:='  ##### ####';
FELD[2]:='  #***# #  ####';
FELD[3]:='  #***###  O  #';
FELD[4]:='  #****## O  O###';
FELD[5]:='  ##****##   O  #';
FELD[6]:='  ###*** ## O O #';
FELD[7]:='  # ##    #  O  #';
FELD[8]:='  #  ## # ### ####';
FELD[9]:='  # O # #O  O    #';
FELD[10]:='  #  O X O    O  #';
FELD[11]:='  #   # O OO O ###';
FELD[12]:='  #  ######  ###';
FELD[13]:='  # ##    ####';
FELD[14]:='  ###';
FELDLESEN;
TASTATUR;
UNTIL (AE=0) OR (MM=0);
END;
{ }
PROCEDURE SECHSUNDZWANZIG;
{ }
BEGIN
REPEAT
AE:=14;
HM:=12;
VM:=11;
TM:=660;
BL:='026';
FELD[1]:='            ######';
FELD[2]:='            #    #';
FELD[3]:='  #####   ### ## #';
FELD[4]:='  #** ##### O  # #';
FELD[5]:='  #**     O   O# #';
FELD[6]:='  #**  ## ##   # #';
FELD[7]:='  #** ## O #O O# #';
FELD[8]:='  #** #     O  # #';
FELD[9]:='  #** #  O ###O  #';
FELD[10]:='  #** # O O  O ###';
FELD[11]:='  ### ## # O    #';
FELD[12]:='    #    #X## O #';
FELD[13]:='    #########  ##';
FELD[14]:='            ####';
FELDLESEN;
TASTATUR;
UNTIL (AE=0) OR (MM=0);
END;
{ }
PROCEDURE SIEBENUNDZWANZIG;
{ }
BEGIN
REPEAT
AE:=16;
HM:=7;
VM:=7;
TM:=690;
BL:='027';
FELD[1]:='';
FELD[2]:='         ####';
FELD[3]:=' #########  ##';
FELD[4]:='##  O      O #####';
FELD[5]:='#   ## ##   ##***#';
FELD[6]:='# #OO O OO#O##***#';
FELD[7]:='# #   X   #   ***#';
FELD[8]:='#  O# ###OO   ***#';
FELD[9]:='# O  OO  O ##****#';
FELD[10]:='###O       #######';
FELD[11]:='  #  #######';
FELD[12]:='  ####';
FELD[13]:='';
FELD[14]:='';
FELDLESEN;
TASTATUR;
UNTIL (AE=0) OR (MM=0);
END;
{ }
PROCEDURE ACHTUNDZWANZIG;
{ }
BEGIN
REPEAT
AE:=34;
HM:=7;
VM:=3;
TM:=480;
BL:='028';
FELD[1]:='    ####';
FELD[2]:='#####  #';
FELD[3]:='#  O O # #######';
FELD[4]:='#   O  # #o*o*o#';
FELD[5]:='## O O ###*o*o*#';
FELD[6]:=' #O O  #  o*o*o#';
FELD[7]:=' #XO O    *o*o*#';
FELD[8]:=' #O O  #  o*o*o#';
FELD[9]:='## O O ###*o*o*#';
FELD[10]:='#   O  # #o*o*o#';
FELD[11]:='#  O O # #######';
FELD[12]:='#####  #';
FELD[13]:='    ####';
FELD[14]:='';
FELDLESEN;
TASTATUR;
UNTIL (AE=0) OR (MM=0);
END;