{ }
{ GAME DEFINITION BILD 1 BIS 10 }
{ }
PROCEDURE EINS;
{ }
BEGIN
REPEAT
AE:=6;
HM:=10;
VM:=13;
TM:=190;
BL:='001';
FELD[1]:='     #####';
FELD[2]:='     #   #';
FELD[3]:='     #O  #';
FELD[4]:='   ###  O##';
FELD[5]:='   #  O O #';
FELD[6]:=' ### # ## #';
FELD[7]:=' #   # ## #   ######';
FELD[8]:=' # O  O   #####  **#';
FELD[9]:=' #####           **#';
FELD[10]:='     # ### #X##  **#';
FELD[11]:='     #     #########';
FELD[12]:='     #######';
FELD[13]:='';
FELD[14]:='';
FELDLESEN;
TASTATUR;
UNTIL (AE=0) OR (MM=0);
END;
{ }
PROCEDURE ZWEI;
{ }
BEGIN
REPEAT
AE:=9;
HM:=6;
VM:=9;
TM:=420;
BL:='002';
FELD[1]:='';
FELD[2]:=' ############';
FELD[3]:=' #**  #     ###';
FELD[4]:=' #**  # O  O  #';
FELD[5]:=' #**  #O####  #';
FELD[6]:=' #*     X     #';
FELD[7]:=' #**  # #  O ##';
FELD[8]:=' ###### ##O O #';
FELD[9]:='   #  O   O O #';
FELD[10]:='   #     #    #';
FELD[11]:='   ############';
FELD[12]:='';
FELD[13]:='';
FELD[14]:='';
FELDLESEN;
TASTATUR;
UNTIL (AE=0) OR (MM=0);
END;
{ }
PROCEDURE DREI;
{ }
BEGIN
REPEAT
AE:=11;
HM:=3;
VM:=17;
TM:=420;
BL:='003';
FELD[1]:='';
FELD[2]:='          ########';
FELD[3]:='          #     X#';
FELD[4]:='          # O#O ##';
FELD[5]:='          # O  O#';
FELD[6]:='          ##O O #';
FELD[7]:='########### O # ###';
FELD[8]:='#****    ## O  O  #';
FELD[9]:='#***       O  O   #';
FELD[10]:='#****    ##########';
FELD[11]:='##########';
FELD[12]:='';
FELD[13]:='';
FELD[14]:='';
FELDLESEN;
TASTATUR;
UNTIL (AE=0) OR (MM=0);
END;
{ }
PROCEDURE VIER;
{ }
BEGIN
REPEAT
AE:=20;
HM:=11;
VM:=11;
TM:=510;
BL:='004';
FELD[1]:='           ########';
FELD[2]:='############  ****#';
FELD[3]:='#    #  O  O  ****#';
FELD[4]:='# OOO#O  O #  ****#';
FELD[5]:='#  O     O #  ****#';
FELD[6]:='# OO #O O O#  ****#';
FELD[7]:='#  O #     ########';
FELD[8]:='## #########';
FELD[9]:='#    #    ##';
FELD[10]:='#      O  ##';
FELD[11]:='#  OO#OO  X#';
FELD[12]:='#    #    ##';
FELD[13]:='############';
FELD[14]:='';
FELDLESEN;
TASTATUR;
UNTIL (AE=0) OR (MM=0);
END;
{ }
PROCEDURE FUENF;
{ }
BEGIN
REPEAT
AE:=12;
HM:=8;
VM:=17;
TM:=495;
BL:='005';
FELD[1]:='          #####';
FELD[2]:='          #   #####';
FELD[3]:='          # #O##  #';
FELD[4]:='          #    O  #';
FELD[5]:='  ######### ###   #';
FELD[6]:='  #****  ## O  O###';
FELD[7]:='  #****    O OO ##';
FELD[8]:='  #****  ##O  O X#';
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 SECHS;
{ }
BEGIN
REPEAT
AE:=10;
HM:=3;
VM:=13;
TM:=390;
BL:='006';
FELD[1]:='';
FELD[2]:='   ######  ###';
FELD[3]:='   #**  # ##X##';
FELD[4]:='   #**  ###   #';
FELD[5]:='   #**     OO #';
FELD[6]:='   #**  # # O #';
FELD[7]:='   #**### # O #';
FELD[8]:='   #### O #O  #';
FELD[9]:='      #  O# O #';
FELD[10]:='      # O  O  #';
FELD[11]:='      #  ##   #';
FELD[12]:='      #########';
FELD[13]:='';
FELD[14]:='';
FELDLESEN;
TASTATUR;
UNTIL (AE=0) OR (MM=0);
END;
{ }
PROCEDURE SIEBEN;
{ }
BEGIN
REPEAT
AE:=11;
HM:=3;
VM:=8;
TM:=420;
BL:='007';
FELD[1]:='         #####';
FELD[2]:='   #######   ##';
FELD[3]:='  ## # X## OO #';
FELD[4]:='  #     O     #';
FELD[5]:='  #  O  ###   #';
FELD[6]:='  ### #####O###';
FELD[7]:='  # O  ### **#';
FELD[8]:='  # O O O ***#';
FELD[9]:='  #    ###***#';
FELD[10]:='  # OO # #***#';
FELD[11]:='  #  ### #####';
FELD[12]:='  ####';
FELD[13]:='';
FELD[14]:='';
FELDLESEN;
TASTATUR;
UNTIL (AE=0) OR (MM=0);
END;
{ }
PROCEDURE ACHT;
{ }
BEGIN
REPEAT
AE:=14;
HM:=11;
VM:=4;
TM:=450;
BL:='008';
FELD[1]:='            #######';
FELD[2]:='            #  ***#';
FELD[3]:='        #####  ***#';
FELD[4]:='        #      * *#';
FELD[5]:='        #  ##  ***#';
FELD[6]:='        ## ##  ***#';
FELD[7]:='       ### ########';
FELD[8]:='       # OOO ##';
FELD[9]:='   #####  O O #####';
FELD[10]:='  ##   #O O   #   #';
FELD[11]:='  #X O  O    O  O #';
FELD[12]:='  ###### OO O #####';
FELD[13]:='       #   #  #';
FELD[14]:='       ########';
FELDLESEN;
TASTATUR;
UNTIL (AE=0) OR (MM=0);
END;
{ }
PROCEDURE NEUN;
{ }
BEGIN
REPEAT
AE:=15;
HM:=5;
VM:=9;
TM:=570;
BL:='009';
FELD[1]:=' ################';
FELD[2]:=' #              #';
FELD[3]:=' # # ######     #';
FELD[4]:=' # #  O O O O#  #';
FELD[5]:=' # #   OXO   ## ##';
FELD[6]:=' # # #O O O###***#';
FELD[7]:=' # #   O O  ##***#';
FELD[8]:=' # ###OOO O ##***#';
FELD[9]:=' #     # ## ##***#';
FELD[10]:=' #####   ## ##***#';
FELD[11]:='     #####     ###';
FELD[12]:='         #     #';
FELD[13]:='         #######';
FELD[14]:='';
FELDLESEN;
TASTATUR;
UNTIL (AE=0) OR (MM=0);
END;
{ }
PROCEDURE ZEHN;
{ }
BEGIN
REPEAT
AE:=16;
HM:=5;
VM:=7;
TM:=540;
BL:='010';
FELD[1]:='   #########';
FELD[2]:='  ##   ##  ######';
FELD[3]:='###     #  #    ###';
FELD[4]:='#  O #O #  #  *** #';
FELD[5]:='# # O#XO## # #*#* #';
FELD[6]:='#  # #O  #    * * #';
FELD[7]:='# O    O # # #*#* #';
FELD[8]:='#   ##  ##O O *#* #';
FELD[9]:='# O #      #O#*#* #';
FELD[10]:='## O  O   O  O*** #';
FELD[11]:=' #  ######        #';
FELD[12]:=' #  #    ##########';
FELD[13]:=' ####';
FELD[14]:='';
FELDLESEN;
TASTATUR;
UNTIL (AE=0) OR (MM=0);
END;