{ } { GAME DEFINITION BILD 1 BIS 10 } { } procedure Eins; { } Begin 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]:=''; repeat Feldlesen(6,13,10,190,'001'); Tastatur; until ((AnzahlKisten=0) or (Maenner=0)); End; { } procedure Zwei; { } Begin 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]:=''; repeat Feldlesen(9,9,6,420,'002'); Tastatur; until ((AnzahlKisten=0) or (Maenner=0)); End; { } procedure Drei; { } Begin 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]:=''; repeat Feldlesen(11,17,3,420,'003'); Tastatur; until ((AnzahlKisten=0) or (Maenner=0)); End; { } procedure Vier; { } Begin 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]:=''; repeat Feldlesen(20,11,11,510,'004'); Tastatur; until ((AnzahlKisten=0) or (Maenner=0)); End; { } procedure Fuenf; { } Begin 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]:=''; repeat Feldlesen(12,17,8,495,'005'); Tastatur; until ((AnzahlKisten=0) or (Maenner=0)); End; { } procedure Sechs; { } Begin 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]:=''; repeat Feldlesen(10,13,3,390,'006'); Tastatur; until ((AnzahlKisten=0) or (Maenner=0)); End; { } procedure Sieben; { } Begin 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]:=''; repeat Feldlesen(11,8,3,420,'007'); Tastatur; until ((AnzahlKisten=0) or (Maenner=0)); End; { } procedure Acht; { } Begin 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]:=' ########'; repeat Feldlesen(14,4,11,450,'008'); Tastatur; until ((AnzahlKisten=0) or (Maenner=0)); End; { } procedure Neun; { } Begin 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]:=''; repeat Feldlesen(15,9,5,570,'008'); Tastatur; until ((AnzahlKisten=0) or (Maenner=0)); End; { } procedure Zehn; { } Begin 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]:=''; repeat Feldlesen(16,7,5,540,'010'); Tastatur; until ((AnzahlKisten=0) or (Maenner=0)); End;