{ }
{ GAME DEFINITION BILD 11 BIS 20 }
{ }
PROCEDURE ELF;
{ }
BEGIN
REPEAT
AE:=15;
HM:=4;
VM:=13;
TM:=570;
BL:='011';
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]:='     #######';
FELDLESEN;
TASTATUR;
UNTIL (AE=0) OR (MM=0);
END;
{ }
PROCEDURE ZWOELF;
{ }
BEGIN
REPEAT
AE:=6;
HM:=11;
VM:=5;
TM:=420;
BL:='012';
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]:='     ######';
FELDLESEN;
TASTATUR;
UNTIL (AE=0) OR (MM=0);
END;
{ }
PROCEDURE DREIZEHN;
{ }
BEGIN
REPEAT
AE:=11;
HM:=3;
VM:=14;
TM:=570;
BL:='013';
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]:='';
FELDLESEN;
TASTATUR;
UNTIL (AE=0) OR (MM=0);
END;
{ }
PROCEDURE VIERZEHN;
BEGIN
REPEAT
AE:=18;
HM:=8;
VM:=4;
TM:=1035;
BL:='014';
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]:=' ####  ####   #####';
FELDLESEN;
TASTATUR;
UNTIL (AE=0) OR (MM=0);
END;
{ }
PROCEDURE FUENFZEHN;
{ }
BEGIN
REPEAT
AE:=13;
HM:=10;
VM:=16;
TM:=540;
BL:='015';
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]:='';
FELDLESEN;
TASTATUR;
UNTIL (AE=0) OR (MM=0);
END;
{ }
PROCEDURE SECHZEHN;
{ }
BEGIN
REPEAT
AE:=20;
HM:=12;
VM:=11 ;
TM:=900;
BL:='016';
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]:='';
FELDLESEN;
TASTATUR;
UNTIL (AE=0) OR (MM=0);
END;
{ }
PROCEDURE SIEBZEHN;
{ }
BEGIN
REPEAT
AE:=16;
HM:=5;
VM:=12;
TM:=555;
BL:='017';
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]:='';
FELDLESEN;
TASTATUR;
UNTIL (AE=0) OR (MM=0);
END;
{ }
PROCEDURE ACHZEHN;
{ }
BEGIN
REPEAT
AE:=18;
HM:=6;
VM:=6;
TM:=1050;
BL:='018';
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]:='    #####    #####';
FELDLESEN;
TASTATUR;
UNTIL (AE=0) OR (MM=0);
END;
{ }
PROCEDURE NEUNZEHN;
{ }
BEGIN
REPEAT
AE:=15;
HM:=12;
VM:=8;
TM:=525;
BL:='019';
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]:='';
FELDLESEN;
TASTATUR;
UNTIL (AE=0) OR (MM=0);
END;
{ }
PROCEDURE ZWANZIG;
{ }
BEGIN
REPEAT
AE:=15;
HM:=3;
VM:=14;
TM:=915;
BL:='020';
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]:='';
FELDLESEN;
TASTATUR;
UNTIL (AE=0) OR (MM=0);
END;