{ } { GAME DEFINITION BILD 21 BIS 28 } { } procedure Einundzwanzig; { } Begin 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]:=' #######'; repeat Feldlesen(14,14,11,690,'021'); Tastatur; until ((AnzahlKisten=0) or (Maenner=0)); End; { } procedure Zweiundzwanzig; { } Begin 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]:=''; repeat Feldlesen(8,14,3,540,'022'); Tastatur; until ((AnzahlKisten=0) or (Maenner=0)); End; { } procedure Dreiundzwanzig; { } Begin 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]:=''; repeat Feldlesen(24,18,3,630,'023'); Tastatur; until ((AnzahlKisten=0) or (Maenner=0)); End; { } procedure Vierundzwanzig; Begin 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]:=''; repeat Feldlesen(9,10,9,510,'024'); Tastatur; until ((AnzahlKisten=0) or (Maenner=0)); End; { } procedure Fuenfundzwanzig; { } Begin 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]:=' ###'; repeat Feldlesen(17,8,10,990,'025'); Tastatur; until ((AnzahlKisten=0) or (Maenner=0)); End; { } procedure Sechsundzwanzig; { } Begin 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]:=' ####'; repeat Feldlesen(14,11,12,660,'026'); Tastatur; until ((AnzahlKisten=0) or (Maenner=0)); End; { } procedure Siebenundzwanzig; { } Begin 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]:=''; repeat Feldlesen(16,7,7,690,'027'); Tastatur; until ((AnzahlKisten=0) or (Maenner=0)); End; { } procedure Achtundzwanzig; { } Begin 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]:=''; repeat Feldlesen(34,3,7,480,'028'); Tastatur; until ((AnzahlKisten=0) or (Maenner=0)); End;