{ (c) 1998 CREEQ <creeq@web.de> }
Program Geschichte_der_Menschheit;
uses Crt;
var
  X : integer;
  Jahr : Integer;
  Einwohner : longint;
  Platz : longint;
  Gold,Holz,Stein,Nahrung,Eisen : longint;
  Eingabe : string;
  Monat : byte;
  Zeit : byte;
  Holzent,Steinent : byte;
  Speerent : byte;
  Archi : byte;
  Medizin : byte;
  Steuer : integer;
  Holzpro : integer;
  Nahrungpro : integer;
  Steinpro : integer;
  Eisenpro : integer;
  Miete : integer;
  Lehmhuetten : integer;
  Holzhuetten : integer;
  Steinhuetten : integer;
  Holzhaeuser : integer;
  Steinhaeuser : integer;
  Holzfaeller : integer;
  Steinhauer : integer;
  Steinhauerhaeuser : integer;
  Holzfaellerhaeuser : integer;
  Kirchen : integer;
  Moenche : integer;
  Moencheplatz : integer;
  KlFamilien : integer;
  Familienent : byte;
  EinFamHaeuser : integer;
  ZweiFamHaeuser : integer;
  Familienplatz : integer;
  Religion : byte;
  Steinhauerplatz : integer;
  Holzfaellerplatz : integer;
  Jaegerhaeuser : integer;
  Jaeger : integer;
  Jaegerplatz : integer;
  Aerzte : integer;
  Aerzteplatz : integer;
  AerzteSchuppen : integer;
  Dorfschueler : integer;
  Dorfschuelerplatz : integer;
  Dorfschulen : integer;
  Schrift : byte;
  Ausbau : byte;
  Handel : byte;
  Marktplaetze : byte;
  Muenzen : byte;
  KlLaeden : integer;
  Verkaeufer : integer;
  Verkaeuferplatz : integer;
  Bauernhoefe : integer;
  Bauern : integer;
  Bauernplatz : integer;
  Landwirtschaft : byte;
  Bogen : byte;
  Bogenjaeger : integer;
  Wind : byte;
  Muehlen : integer;
  Mueller : integer;
  Muellerplatz : integer;
  Feuer : byte;
  Baeckereien : integer;
  Baecker : integer;
  baeckerplatz : integer;
  Messer : byte;
  Fleischereien : integer;
  Fleischer : integer;
  Fleischerplatz : integer;
  Viehzuchten : integer;
  Viehzuechter : integer;
  Viehzuechterplatz : integer;
  Eisenent : byte;
  Huettenwerke : integer;
  Huettenwerkarbeiter : integer;
  Huettenwerkarbeiterplatz : integer;
  Buecher : byte;
  Schulen : integer;
  Schueler : integer;
  Schuelerplatz : integer;
  Saegewerke : integer;
  Strom : byte;
  Technik : byte;
  Erarchi : byte;
  Dreifamhaeuser : integer;
  Vierfamhaeuser : integer;
  Mietshaeuser : integer;
  Mieter : integer;
  Mieterplatz : integer;
  Pulver : byte;
  Flintenjaeger : integer;
  Berg : byte;
  Granitberg : integer;
  Eisenberg : integer;
  Granitbergarbeiter : integer;
  Granitbergarbeiterplatz : integer;
  Eisenbergarbeiter : integer;
  Eisenbergarbeiterplatz : integer;
  Militaer : byte;
  Militaerbasis : integer;
  Soldat : integer;
  Soldatplatz : integer;
  Hochhaeuser : integer;
  Luftfahrt : byte;
  Luftplatz : integer;
  Airforcebasis : integer;
  Jagdbomber : integer;
  Flughaefen : integer;
  Piloten : integer;
  Pilotenplatz : integer;
  Bomben : byte;
  Supermaerkte : byte;
  Hochschulen : integer;
  Familien : integer;
  Rathaeuser : integer;
  Gesetz : byte;
  Gerichte : integer;
  Gefaengnisse : integer;
  Polizeibasis : integer;
  Polizisten : integer;
  Polizistenplatz : integer;
  Ermedi : byte;
  Krankenhaeuser : integer;
  Grfamilien : integer;
  Wolkenkratzer : integer;
  Wissen : byte;
  Unis : integer;
  Studenten : integer;
  Studentenplatz : integer;
  Gravitation : byte;
  Raumflughaefen : integer;
  Eisenab : byte;
  Steinab : byte;
  Holzab : byte;
  Goldab : byte;
  Nahrungab : byte;
  Goldsucher : integer;
  Nahrungssucher : integer;
  Holzsucher : integer;
  Steinsucher : integer;
  Eisensucher : integer;

procedure Initiation;
begin
  Goldsucher := 0;
  Nahrungssucher := 0;
  Holzsucher := 0;
  Steinsucher := 0;
  Eisensucher := 0;
  Eisenab := 0;
  Steinab := 0;
  Holzab := 0;
  Goldab := 0;
  Nahrungab := 0;
  Raumflughaefen := 0;
  Gravitation := 0;
  Raumflughaefen := 0;
  Wissen := 0;
  Unis := 0;
  Studenten := 0;
  Studentenplatz := 0;
  Grfamilien := 0;
  Wolkenkratzer := 0;
  Ermedi := 0;
  Krankenhaeuser := 0;
  Gerichte := 0;
  Gefaengnisse := 0;
  Polizeibasis := 0;
  Polizisten := 0;
  Polizistenplatz := 0;
  Gesetz := 0;
  Rathaeuser := 0;
  Familien := 0;
  Hochschulen := 0;
  Supermaerkte := 0;
  Bomben := 0;
  Piloten := 0;
  Pilotenplatz := 0;
  Luftfahrt := 0;
  Luftplatz := 0;
  Airforcebasis := 0;
  Jagdbomber := 0;
  Flughaefen := 0;
  Hochhaeuser := 0;
  Militaer := 0;
  Militaerbasis := 0;
  Soldat := 0;
  Soldatplatz := 0;
  Berg := 0;
  Granitberg := 0;
  Granitbergarbeiter := 0;
  Granitbergarbeiterplatz := 0;
  Eisenberg := 0;
  Eisenbergarbeiter := 0;
  Eisenbergarbeiterplatz := 0;
  Pulver := 0;
  Flintenjaeger := 0;
  DreifamHaeuser := 0;
  VierfamHaeuser := 0;
  MietsHaeuser := 0;
  Mieter := 0;
  Mieterplatz := 0;
  Erarchi := 0;
  Saegewerke := 0;
  Technik := 0;
  Strom := 0;
  Buecher := 0;
  Schulen := 0;
  Schueler := 0;
  Schuelerplatz := 0;
  Eisenent := 0;
  Huettenwerke := 0;
  Huettenwerkarbeiter := 0;
  Huettenwerkarbeiterplatz := 0;
  Messer := 0;
  Wind := 0;
  Fleischereien := 0;
  Fleischer := 0;
  Fleischerplatz := 0;
  Viehzuchten := 0;
  Viehzuechter := 0;
  Viehzuechterplatz := 0;
  Feuer := 0;
  Baeckereien := 0;
  Baecker := 0;
  Baeckerplatz := 0;
  X := 0;
  Muehlen := 0;
  Mueller := 0;
  Muellerplatz := 0;
  Bogen := 0;
  Bogenjaeger := 0;
  Landwirtschaft := 0;
  Bauern := 0;
  Bauernhoefe := 0;
  Bauernplatz := 0;
  KlLaeden := 0;
  Verkaeufer := 0;
  Verkaeuferplatz := 0;
  Muenzen := 0;
  Handel := 0;
  Marktplaetze := 0;
  Dorfschueler := 0;
  Dorfschuelerplatz := 0;
  Dorfschulen := 0;
  Schrift := 0;
  Aerzte := 0;
  Aerzteplatz := 0;
  Aerzteschuppen := 0;
  Medizin := 0;
  KlFamilien := 0;
  Familienent := 0;
  Einfamhaeuser := 0;
  Zweifamhaeuser := 0;
  Familienplatz := 0;
  Ausbau := 1;
  Zeit := 1;
  Jahr := 2000;
  Einwohner := 0;
  Platz := 0;
  Monat := 1;
  Gold := 3000;
  Nahrung := 3000;
  Holz := 3000;
  Stein := 3000;
  Eisen := 3000;
  Miete := 0;
  Steuer := 0;
  Holzpro := 0;
  Steinpro := 0;
  Nahrungpro := 0;
  Eisenpro := 0;
  Lehmhuetten := 0;
  Holzhuetten := 0;
  Steinhuetten := 0;
  Holzhaeuser := 0;
  Steinhaeuser := 0;
  Holzfaeller := 0;
  Steinhauer := 0;
  Holzent := 0;
  Steinent := 0;
  Archi := 0;
  Speerent := 0;
  Jaegerhaeuser := 0;
  Jaeger := 0;
  Jaegerplatz := 0;
  Holzfaellerhaeuser := 0;
  Holzfaellerplatz := 0;
  Steinhauerhaeuser := 0;
  Steinhauerplatz := 0;
  Kirchen := 0;
  Moenche := 0;
  Moencheplatz := 0;
  Religion := 0;
end;

procedure Anfangsbildschirm;
begin
  clrscr;
  highvideo;
  gotoxy(23,1);
  write('Die Geschichte der Menschheit');
  normvideo;
  gotoxy(1,25);
  write('Copyright by CREEQ                                        Version 2.30');
  readkey;
end;

Procedure uebersicht;
label 1,2,3,4,5;
begin
  5:clrscr;
  gotoxy(32,1);
  write('šbersicht');
  gotoxy(1,3);
  write('1.Weiter');
  gotoxy(1,4);
  write('2.Zur�ck');
  gotoxy(1,6);
  write(Lehmhuetten,' Lehmh�tten');
  gotoxy(1,7);
  if holzent = 1 then write(Holzhuetten,' Holzh�tten');
  gotoxy(1,8);
  if steinent = 1 then write(Steinhuetten,' Steinh�tten');
  gotoxy(1,9);
  if archi = 1 then if holzent = 1 then write(Holzhaeuser,' Holzh„user');
  gotoxy(1,10);
  if archi = 1 then if steinent = 1 then write(Steinhaeuser,' Steinh„user');
  gotoxy(1,11);
  write(Einwohner,' Einwohner');
  gotoxy(1,12);
  if holzent = 1 then write(Holzfaeller,' Holzf„ller');
  gotoxy(1,13);
  if steinent = 1 then write(Steinhauer,' Steinhauer');
  gotoxy(1,14);
  if speerent = 1 then write(Jaegerhaeuser,' J„gerh„user');
  gotoxy(1,14);
  if bogen = 1 then write(Jaegerhaeuser,' J„gerh„user');
  gotoxy(1,14);
  if pulver = 1 then write(Jaegerhaeuser,' J„gerh„user');
  gotoxy(1,15);
  if speerent = 1 then write(Jaeger,' Speerj„ger');
  gotoxy(1,16);
  if holzent = 1 then write(Holzfaellerhaeuser,' Holzf„llerh„user');
  gotoxy(1,17);
  if steinent = 1 then write(Steinhauerhaeuser,' Steinhauerh„user');
  gotoxy(1,18);
  if religion = 1 then write(kirchen,' Kirchen');
  gotoxy(1,19);
  if religion = 1 then write(moenche,' M”nche');
  gotoxy(1,20);
  if familienent = 1 then write(Klfamilien,' Kleinfamilien');
  gotoxy(1,21);
  if familienent = 1 then write(einfamhaeuser,' Einfamilienh„user');
  gotoxy(1,22);
  if familienent = 1 then write(zweifamhaeuser,' Zweifamilienh„user');
  gotoxy(1,23);
  if medizin = 1 then write(aerzte,' Žrzte');
  gotoxy(24,6);
  if medizin = 1 then write(aerzteschuppen,' Žrzteschuppen');
  gotoxy(24,7);
  if schrift = 1 then write(Dorfschulen,' Dorfschulen');
  gotoxy(24,8);
  if schrift = 1 then write(Dorfschueler,' Dorfsch�ler');
  gotoxy(24,9);
  if schrift = 1 then if handel = 1 then write(marktplaetze,' Marktpl„tze');
  gotoxy(24,10);
  if schrift = 1 then if muenzen = 1 then write(KlLaeden,' Kleine L„den');
  gotoxy(24,11);
  if schrift = 1 then if muenzen = 1 then write(verkaeufer,' Verk„ufer');
  gotoxy(24,12);
  if landwirtschaft = 1 then write(bauern,' Bauern');
  gotoxy(24,13);
  if landwirtschaft = 1 then write(bauernhoefe,' Bauernh”fe');
  gotoxy(24,14);
  if bogen = 1 then write(bogenjaeger,' Bogenj„ger');
  gotoxy(24,15);
  if wind = 1 then write(mueller,' M�ller');
  gotoxy(24,16);
  if wind = 1 then write(muehlen,' M�hlen');
  gotoxy(24,17);
  if feuer = 1 then write(baeckereien,' B„ckereien');
  gotoxy(24,18);
  if feuer = 1 then write(baecker,' B„cker');
  gotoxy(24,19);
  if landwirtschaft = 1 then write(viehzuchten,' Viehzuchten');
  gotoxy(24,20);
  if landwirtschaft = 1 then write(viehzuechter,' Viehz�chter');
  gotoxy(24,21);
  if messer = 1 then write(Fleischereien,' Fleischereien');
  gotoxy(24,22);
  if messer = 1 then write(Fleischer,' Fleischer');
  gotoxy(24,23);
  if eisenent = 1 then write(Huettenwerke,' H�ttenwerke');
  gotoxy(43,6);
  if eisenent = 1 then write(Huettenwerkarbeiter,' H�ttenwerkarbeiter');
  gotoxy(43,7);
  if buecher = 1 then write(Schulen,' Schulen');
  gotoxy(43,8);
  if buecher = 1 then write(Schueler,' Sch�ler');
  gotoxy(43,9);
  if technik = 1 then if strom = 1 then write(Saegewerke,' S„gewerke');
  gotoxy(43,10);
  if familienent = 1 then if erarchi = 1 then write(dreifamhaeuser,' Dreifamilienh„user');
  gotoxy(43,11);
  if familienent = 1 then if erarchi = 1 then write(vierfamhaeuser,' Vierfamilienh„user');
  gotoxy(43,12);
  if erarchi = 1 then write(Mietshaeuser,' Mietsh„user');
  gotoxy(43,13);
  if erarchi = 1 then write(Mieter,' Mieter');
  gotoxy(43,14);
  if pulver = 1 then write(Flintenjaeger,' Flintenj„ger');
  gotoxy(43,15);
  if berg = 1 then write(Granitberg,' Granitbergwerke');
  gotoxy(43,16);
  if berg = 1 then write(Granitbergarbeiter,' Granitbergwerkarbeiter');
  gotoxy(43,17);
  if berg = 1 then if eisenent = 1 then write(Eisenberg,' Eisenbergwerke');
  gotoxy(43,18);
  if berg = 1 then if eisenent = 1 then write(Eisenbergarbeiter,' Eisenbergwerkarbeiter');
  gotoxy(43,19);
  if militaer = 1 then write(Militaerbasis,' Milit„rst�tzpunkte');
  gotoxy(43,20);
  if militaer = 1 then write(Soldat,' Soldaten');
  gotoxy(43,21);
  if ausbau >= 4 then write(hochhaeuser,' Hochh„user');
  gotoxy(43,22);
  if luftfahrt = 1 then write(Airforcebasis,' Air Force St�tzpunkte');
  gotoxy(43,23);
  if bomben = 1 then if luftfahrt = 1 then write(jagdbomber,' Jagdbomber');
3:eingabe := readkey;
  if Eingabe = '1' then goto 1;
  if Eingabe = '2' then goto 2;
  goto 3;
1:clrscr;
  gotoxy(32,1);
  write('šbersicht');
  gotoxy(1,3);
  write('1.Weiter');
  gotoxy(1,4);
  write('2.Zur�ck');
  gotoxy(1,6);
  if bomben = 1 then if luftfahrt = 1 then write(piloten,' Piloten');
  gotoxy(1,7);
  if luftfahrt = 1 then write(flughaefen,' Flugh„fen');
  gotoxy(1,8);
  if ausbau >= 4 then write(supermaerkte,' Superm„rkte');
  gotoxy(1,9);
  if ausbau >= 4 then write(hochschulen,' Hochschulen');
  gotoxy(1,10);
  if familienent = 1 then if ausbau >= 4 then write(familien,' Familien');
  gotoxy(1,11);
  if ausbau >= 4 then write(rathaeuser,' Rathaeuser');
  gotoxy(1,12);
  if gesetz = 1 then write(gerichte,' Gerichte');
  gotoxy(1,13);
  if gesetz = 1 then write(Gefaengnisse,' Gef„ngnisse');
  gotoxy(1,14);
  if gesetz = 1 then write(Polizeibasis,' Polizeistationen');
  gotoxy(1,15);
  if gesetz = 1 then write(Polizisten,' Polizisten');
  gotoxy(1,16);
  if ermedi = 1 then write(krankenhaeuser,' Krankenh„user');
  gotoxy(1,17);
  if familienent = 1 then if ausbau >= 5 then write(Grfamilien,' Groáfamilien');
  gotoxy(1,18);
  if erarchi = 1 then if ausbau >= 5 then write(Wolkenkratzer,' Wolkenkratzer');
  gotoxy(1,19);
  if wissen = 1 then write(Unis,' Universit„ten');
  gotoxy(1,20);
  if wissen = 1 then write(Studenten,' Studenten');
  gotoxy(1,21);
  if gravitation = 1 then write(raumflughaefen,' Raumflugh„fen');
  gotoxy(1,22);
  if goldab = 1 then write(goldsucher,' Goldsucherraumschiffe');
  gotoxy(1,23);
  if nahrungab = 1 then write(nahrungssucher,' Nahrungssucherraumschiffe');
  gotoxy(24,6);
  if holzab = 1 then write(holzsucher,' Holzsucherraumschiffe');
  gotoxy(24,7);
  if steinab = 1 then write(steinsucher,' Steinsucherraumschiffe');
  gotoxy(24,8);
  if eisenab = 1 then write(eisensucher,' Eisensucherraumschiffe');
4:eingabe := readkey;
  if Eingabe = '1' then goto 1;
  if Eingabe = '2' then goto 5;
  goto 4;
2:eingabe := '';
end;

Procedure bauen;
label 1,2,3,4,5,6;
begin
  3:clrscr;
  gotoxy(32,1);
  write('Bauen');
  gotoxy(1,3);
  write('1.Weiter');
  gotoxy(1,4);
  write('2.Hauptmenu');
  gotoxy(1,6);
  write('3.Lehmh�tte  100 Gold');
  gotoxy(1,7);
  if holzent = 1 then write('4.Holzh�tte  150 Gold 100 Holz');
  gotoxy(1,8);
  if steinent = 1 then write('5.Steinh�tte  200 Gold 100 Stein');
  gotoxy(1,9);
  if holzent = 1 then if archi = 1 then write('6.Holzhaus  300 Gold 200 Holz');
  gotoxy(1,10);
  if steinent = 1 then if archi = 1 then write('7.Steinhaus  400 Gold 200 Stein');
  gotoxy(1,11);
  write('8.Einwohner  50 Gold 50 Nahrung');
  gotoxy(1,12);
  if holzent = 1 then write('9.Holzf„ller  100 Gold 100 Nahrung');
  gotoxy(1,13);
  if steinent = 1 then write('10.Steinhauer  150 Gold 100 Nahrung');
  gotoxy(1,14);
  if pulver = 1 then write('11.J„gerhaus  250 Gold 200 Holz');
  gotoxy(1,14);
  if speerent = 1 then write('11.J„gerhaus  250 Gold 200 Holz');
  gotoxy(1,14);
  if bogen = 1 then write('11.J„gerhaus  250 Gold 200 Holz');
  gotoxy(1,15);
  if speerent = 1 then write('12.Speerj„ger  50 Gold 50 Holz 100 Nahrung');
  gotoxy(1,16);
  if holzent = 1 then write('13.Holzf„llerhaus  250 Gold 200 Holz');
  gotoxy(1,17);
  if steinent = 1 then write('14.Steinhauerhaus  250 Gold 200 Holz');
  gotoxy(1,18);
  if religion = 1 then write('15.Kirche  500 Gold 100 Holz 300 Stein');
  gotoxy(1,19);
  if religion = 1 then write('16.M”nch  100 Gold 100 Nahrung');
  gotoxy(1,20);
  if familienent = 1 then write('17.Kleinfamilie  300 Gold 200 Nahrung');
  gotoxy(1,21);
  if familienent = 1 then write('18.Einfamilienhaus  500 Gold 500 Stein');
  gotoxy(1,22);
  if familienent = 1 then write('19.Zweifamilienhaus  750 Gold 750 Stein');
  gotoxy(1,23);
  if medizin = 1 then write('20.Arzt  500 Gold 200 Nahrung');
  gotoxy(1,25);
  write('Nr.');
  readln(Eingabe);
  if Eingabe = '1' then goto 1;
  if Eingabe = '2' then goto 2;
  if Eingabe = '3' then if Gold >= 100 then begin inc(Lehmhuetten); dec(Gold,100); inc(Platz); goto 2; end;
  if Eingabe = '4' then if holzent = 1 then if Gold >= 150 then if Holz >= 100 then begin inc(Holzhuetten); dec(Gold,150);
  dec(Holz,100); inc(Platz); goto 2; end;
  if Eingabe = '5' then if steinent = 1 then if Gold >= 200 then if Stein >= 100 then begin inc(Steinhuetten); dec(Gold,200);
  dec(Stein,100); inc(Platz); goto 2; end;
  if Eingabe = '6' then if holzent = 1 then if archi = 1 then if Gold >= 300 then if Holz >= 200 then begin inc(Holzhaeuser);
  dec(Gold,300); dec(Holz,200); inc(Platz,2); goto 2; end;
  if Eingabe = '7' then if steinent = 1 then if archi = 1 then if Gold >= 400 then if Stein >= 200 then begin
  inc(Steinhaeuser); dec(Gold,400); dec(Stein,200); inc(Platz,2); goto 2; end;
  if Eingabe = '8' then if Nahrung >= 50 then if Gold >= 50 then if Platz >= 1 then begin inc(Einwohner); if steinhaeuser >= 1
  then inc(Miete); if holzhaeuser >= 1 then inc(miete); if steinhuetten >= 1 then inc(miete); if holzhuetten >= 1 then
  inc(Miete); inc(miete); dec(Platz); inc(Steuer,5); dec(Nahrung,50); dec(Gold,50); goto 2; end;
  if Eingabe = '9' then if holzent = 1 then if Nahrung >= 100 then if Gold >= 100 then if holzfaellerplatz >= 1 then begin
  inc(Holzfaeller); dec(holzfaellerplatz); inc(Holzpro,5); dec(Gold,100); dec(Nahrung,100); goto 2; end;
  if Eingabe = '10' then if steinent = 1 then if Nahrung >= 100 then if Gold >= 150 then if steinhauerplatz >= 1 then begin
  inc(Steinhauer); dec(steinhauerplatz); inc(Steinpro,5); dec(Gold,150); dec(Nahrung,100); goto 2; end;
  if Eingabe = '11' then if speerent = 1 then if Holz >= 200 then if Gold >= 250 then begin inc(Jaegerhaeuser); dec(Gold,250);
  dec(Holz,200); inc(Jaegerplatz); goto 2; end;
  if Eingabe = '11' then if pulver = 1 then if Holz >= 200 then if Gold >= 250 then begin inc(Jaegerhaeuser); dec(Gold,250);
  dec(Holz,200); inc(Jaegerplatz); goto 2; end;
  if Eingabe = '11' then if bogen = 1 then if Holz >= 200 then if Gold >= 250 then begin inc(Jaegerhaeuser); dec(Gold,250);
  dec(Holz,200); inc(Jaegerplatz); goto 2; end;
  if Eingabe = '12' then if speerent = 1 then if Holz >= 50 then if Gold >= 50 then if Nahrung >= 100 then if jaegerplatz >= 1
  then begin inc(Jaeger); dec(jaegerplatz); dec(Gold,50); dec(Holz,50); dec(Nahrung,100); inc(Nahrungpro,5); goto 2; end;
  if Eingabe = '13' then if holzent = 1 then if Holz >= 200 then if Gold >= 250 then begin inc(Holzfaellerhaeuser);
  dec(Gold,250); dec(Holz,200); inc(holzfaellerplatz); goto 2; end;
  if Eingabe = '14' then if steinent = 1 then if Holz >= 200 then if Gold >= 250 then begin inc(Steinhauerhaeuser);
  dec(Gold,250); dec(Holz,200); inc(steinhauerplatz); goto 2; end;
  if Eingabe = '15' then if religion = 1 then if Holz >= 100 then if Gold >= 500 then if stein >= 300 then begin inc(Kirchen);
  dec(Gold,500); dec(Holz,100); dec(Stein,300); inc(moencheplatz,5); goto 2; end;
  if Eingabe = '16' then if religion = 1 then if moencheplatz >= 1 then if Gold >= 100 then if Nahrung >= 100 then begin
  inc(Moenche); dec(Gold,100); dec(Nahrung,100); dec(moencheplatz); inc(steuer,10); goto 2; end;
  if Eingabe = '17' then if familienplatz >= 1 then if familienent = 1 then if Gold >= 300 then if Nahrung >= 200 then begin
  inc(KlFamilien); dec(Gold,300); dec(Nahrung,200); dec(familienplatz); inc(steuer,30); inc(Miete,10); inc(einwohner,3);
  goto 2; end;
  if Eingabe = '18' then if familienent = 1 then if Gold >= 500 then if Stein >= 500 then begin inc(einfamhaeuser);
  dec(Gold,500); dec(Stein,500); inc(familienplatz); goto 2; end;
  if Eingabe = '19' then if familienent = 1 then if Gold >= 750 then if Stein >= 750 then begin inc(zweifamhaeuser);
  dec(Gold,750); dec(Stein,750); inc(familienplatz,2); goto 2; end;
  if Eingabe = '20' then if aerzteplatz >= 1 then if medizin = 1 then if Gold >= 500 then if Nahrung >= 200 then begin
  inc(aerzte); dec(Gold,500); dec(Nahrung,200); dec(aerzteplatz); inc(steuer,30); goto 2; end;
  goto 3;
1:eingabe := '';
  clrscr;
  gotoxy(1,3);
  write('1.Weiter');
  gotoxy(1,4);
  write('2.Zur�ck');
  gotoxy(1,6);
  if medizin = 1 then write('3.Žrzteschuppen  1000 Gold 500 Stein');
  gotoxy(1,7);
  if schrift = 1 then write('4.Dorfschule  1000 Gold 1000 Stein');
  gotoxy(1,8);
  if schrift = 1 then write('5.Dorfsch�ler  100 Gold 500 Nahrung');
  gotoxy(1,9);
  if schrift = 1 then if handel = 1 then write('6.Marktplatz  1500 Gold 1000 Holz 1000 Steine');
  gotoxy(1,10);
  if schrift = 1 then if muenzen = 1 then write('7.Kleiner Laden  1000 Gold 200 Holz 500 Steine');
  gotoxy(1,11);
  if schrift = 1 then if muenzen = 1 then write('8.Verk„ufer  500 Gold 500 Nahrung');
  gotoxy(1,12);
  if landwirtschaft = 1 then write('9.Bauer  500 Gold 1000 Nahrung');
  gotoxy(1,13);
  if landwirtschaft = 1 then write('10.Bauernhof  1500 Gold 1000 Holz 1000 Stein');
  gotoxy(1,14);
  if bogen = 1 then write('11.Bogenj„ger  100 Gold 100 Holz 200 Nahrung');
  gotoxy(1,15);
  if wind = 1 then write('12.M�ller  100 Gold 100 Holz 100 Nahrung');
  gotoxy(1,16);
  if wind = 1 then write('13.M�hle  1000 Gold 1000 Holz 1000 Stein');
  gotoxy(1,17);
  if feuer = 1 then write('14.B„cker  500 Gold 200 Holz 500 Nahrung');
  gotoxy(1,18);
  if feuer = 1 then write('15.B„ckerei  1000 Gold 1000 Holz 1000 Stein');
  gotoxy(1,19);
  if landwirtschaft = 1 then write('16.Viehzucht  1500 Gold 1000 Holz 1500 Stein');
  gotoxy(1,20);
  if landwirtschaft = 1 then write('17.Viehz�chter  500 Gold 1000 Nahrung');
  gotoxy(1,21);
  if messer = 1 then write('18.Fleischerei  2000 Gold 500 Holz 1500 Stein');
  gotoxy(1,22);
  if messer = 1 then write('19.Fleischer  500 Gold 1000 Nahrung');
  gotoxy(1,23);
  if eisenent = 1 then write('20.H�ttenwerk  5000 Gold 3000 Holz 3000 Stein');
  gotoxy(1,25);
  write('Nr.');
  readln(Eingabe);
  if Eingabe = '1' then goto 4;
  if Eingabe = '2' then goto 3;
  if Eingabe = '3' then if medizin = 1 then if Gold >= 1000 then if Stein >= 500 then begin
  inc(aerzteschuppen); dec(Gold,1000); dec(Stein,500); inc(aerzteplatz); goto 2; end;
  if Eingabe = '4' then if schrift = 1 then if Gold >= 1000 then if Stein >= 1000 then begin
  inc(dorfschulen); dec(Gold,1000); dec(Stein,1000); inc(dorfschuelerplatz,10); goto 2; end;
  if Eingabe = '5' then if dorfschuelerplatz >= 1 then if schrift = 1 then if Gold >= 100 then if Nahrung >= 500 then begin
  inc(dorfschueler); dec(Gold,100); dec(Nahrung,500); dec(dorfschuelerplatz); inc(Miete,5); goto 2; end;
  if Eingabe = '6' then if schrift = 1 then if handel = 1 then if Gold >= 1500 then if Holz >= 1000 then
  if Stein >= 1000 then begin inc(marktplaetze); dec(Gold,1500); dec(Holz,1000); dec(Stein,1000); inc(Miete,15); goto 2; end;
  if Eingabe = '7' then if muenzen = 1 then if Gold >= 1000 then if Holz >= 200 then if Stein >= 500 then begin inc(KlLaeden);
  dec(Gold,1000); dec(Holz,200); dec(Stein,500); inc(verkaeuferplatz); goto 2; end;
  if Eingabe = '8' then if muenzen = 1 then if Gold >= 500 then if Nahrung >= 500 then if verkaeuferplatz >= 1 then begin
  inc(verkaeufer); dec(Gold,500); dec(Nahrung,500); dec(verkaeuferplatz); inc(Steuer,25); goto 2; end;
  if Eingabe = '9' then if landwirtschaft = 1 then if Gold >= 500 then if Nahrung >= 1000 then if bauernplatz >= 1 then begin
  inc(bauern); dec(Gold,500); dec(Nahrung,1000); dec(bauernplatz); goto 2; end;
  if Eingabe = '10' then if landwirtschaft = 1 then if Gold >= 1500 then if Holz >= 1000 then if Stein >= 1000 then begin
  inc(bauernhoefe); dec(Gold,1500); dec(Holz,1000); dec(Stein,1000); inc(bauernplatz); goto 2; end;
  if Eingabe = '11' then if bogen = 1 then if Holz >= 100 then if Gold >= 100 then if Nahrung >= 200 then if jaegerplatz >= 1
  then begin inc(Bogenjaeger); dec(jaegerplatz); dec(Gold,100); dec(Holz,100); dec(Nahrung,200); inc(Nahrungpro,8); goto 2;
  end;
  if Eingabe = '12' then if wind = 1 then if Holz >= 100 then if Gold >= 100 then if Nahrung >= 100 then if muellerplatz >= 1
  then begin inc(Mueller); dec(muellerplatz); dec(Gold,100); dec(Holz,100); dec(Nahrung,100); goto 2; end;
  if Eingabe = '13' then if wind = 1 then if Holz >= 1000 then if Gold >= 1000 then if Stein >= 1000 then begin inc(Muehlen);
  inc(muellerplatz); dec(Gold,1000); dec(Holz,1000); dec(Stein,1000); goto 2; end;
  if Eingabe = '14' then if baeckerplatz >= 1 then if feuer = 1 then if Holz >= 200 then if Gold >= 500 then if Nahrung >= 500
  then begin inc(baecker); dec(baeckerplatz); dec(Gold,500); dec(Holz,200); dec(Nahrung,500); goto 2; end;
  if Eingabe = '15' then if feuer = 1 then if Holz >= 1000 then if Gold >= 1000 then if Stein >= 1000 then begin
  inc(baeckereien); inc(baeckerplatz); dec(Gold,1000); dec(Holz,1000); dec(Stein,1000); goto 2; end;
  if Eingabe = '16' then if landwirtschaft = 1 then if Holz >= 1000 then if Gold >= 1500 then if Stein >= 1500 then begin
  inc(viehzuchten); inc(viehzuechterplatz); dec(Gold,1500); dec(Holz,1000); dec(Stein,1500); goto 2; end;
  if Eingabe = '17' then if viehzuechterplatz >= 1 then if landwirtschaft = 1 then if Gold >= 500 then if Nahrung >= 1000
  then begin inc(viehzuechter); dec(viehzuechterplatz); dec(Gold,500); dec(Nahrung,1000); goto 2; end;
  if Eingabe = '18' then if messer = 1 then if Holz >= 500 then if Gold >= 2000 then if Stein >= 1500 then begin
  inc(fleischereien); inc(fleischerplatz); dec(Gold,2000); dec(Holz,500); dec(Stein,1500); goto 2; end;
  if Eingabe = '19' then if fleischerplatz >= 1 then if messer = 1 then if Gold >= 500 then if Nahrung >= 1000
  then begin inc(fleischer); dec(fleischerplatz); dec(Gold,500); dec(Nahrung,1000); goto 2; end;
  if Eingabe = '20' then if eisenent = 1 then if Gold >= 5000 then if Holz >= 3000 then if Stein >= 3000
  then begin inc(huettenwerke); inc(huettenwerkarbeiterplatz); dec(Gold,5000); dec(Holz,3000); dec(Stein,3000); goto 2; end;
  goto 1;
4:eingabe := '';
  clrscr;
  gotoxy(1,3);
  write('1.Weiter');
  gotoxy(1,4);
  write('2.Zur�ck');
  gotoxy(1,6);
  if eisenent = 1 then write('3.H�ttenwerkarbeiter  3000 Gold 2000 Nahrung');
  gotoxy(1,7);
  if buecher = 1 then write('4.Schule  5000 Gold 3000 Holz 3000 Stein');
  gotoxy(1,8);
  if buecher = 1 then write('5.Sch�ler  1000 Gold 1000 Nahrung');
  gotoxy(1,9);
  if strom = 1 then if technik = 1 then write('6.S„gewerk  5000 Gold 2000 Holz 1000 Stein');
  gotoxy(1,10);
  if familienent = 1 then if erarchi = 1 then write('7.Dreifamilienhaus  1000 Gold 1000 Stein');
  gotoxy(1,11);
  if familienent = 1 then if erarchi = 1 then write('8.Vierfamilienhaus  1500 Gold 1500 Stein');
  gotoxy(1,12);
  if erarchi = 1 then write('9.Mietshaus  5000 Gold 10000 Stein');
  gotoxy(1,13);
  if erarchi = 1 then write('10.Mieter  1000 Gold 1500 Nahrung');
  gotoxy(1,14);
  if pulver = 1 then write('11.Flintenj„ger  1000 Gold 1000 Nahrung');
  gotoxy(1,15);
  if berg = 1 then write('12.Granitbergwerk  10000 Gold 5000 Holz 5000 Stein');
  gotoxy(1,16);
  if berg = 1 then write('13.Granitbergwerkarbeiter  5000 Gold 5000 Nahrung');
  gotoxy(1,17);
  if berg = 1 then if eisenent = 1 then write('14.Eisenbergwerk  10000 Gold 5000 Holz 5000 Eisen');
  gotoxy(1,18);
  if berg = 1 then if eisenent = 1 then write('15.Eisenbergwerkarbeiter  5000 Gold 5000 Nahrung');
  gotoxy(1,19);
  if militaer = 1 then write('16.Milit„rst�tzpunkt  10000 Gold 5000 Stein 10000 Holz');
  gotoxy(1,20);
  if militaer = 1 then write('17.Soldat  5000 Gold 10000 Nahrung');
  gotoxy(1,21);
  if ausbau >= 4 then write('18.Hochhaus  5000 Gold 20000 Stein 5000 Eisen');
  gotoxy(1,22);
  if luftfahrt = 1 then write('19.Air Force St�tzpunkt  10000 Gold 10000 Stein 5000 Eisen');
  gotoxy(1,23);
  if bomben = 1 then if Luftfahrt = 1 then write('20.Jagdbomber  5000 Gold 5000 Nahrung 5000 Eisen');
  gotoxy(1,25);
  write('Nr.');
  readln(Eingabe);
  if Eingabe = '1' then goto 5;
  if Eingabe = '2' then goto 1;
  if Eingabe = '3' then if huettenwerkarbeiterplatz >= 1 then if eisenent = 1 then if Gold >= 3000 then if Nahrung >= 2000 then
  begin inc(huettenwerkarbeiter); dec(Gold,3000); dec(Nahrung,2000); dec(huettenwerkarbeiterplatz); inc(Eisenpro,5); goto 2;
  end;
  if Eingabe = '4' then if buecher = 1 then if Gold >= 5000 then if Holz >= 3000 then if Stein >= 3000 then begin
  inc(Schulen); dec(Gold,5000); dec(Holz,3000); dec(Stein,3000); inc(Schuelerplatz,25); goto 2; end;
  if Eingabe = '5' then if buecher = 1 then if schuelerplatz >= 1 then if Gold >= 1000 then if Nahrung >= 1000 then begin
  inc(Schueler); dec(Gold,1000); dec(Nahrung,1000); dec(Schuelerplatz); inc(Miete,10); goto 2; end;
  if Eingabe = '6' then if strom = 1 then if technik = 1 then if Gold >= 5000 then if Holz >= 2000 then if Stein >= 1000 then
  begin inc(saegewerke); dec(Gold,5000); dec(Holz,2000); dec(Stein,100); inc(Holzpro,100); goto 2; end;
  if Eingabe = '7' then if familienent = 1 then if erarchi = 1 then if Gold >= 1000 then if Stein >= 1000 then begin
  inc(dreifamhaeuser); dec(Gold,1000); dec(Stein,1000); inc(familienplatz,3); goto 2; end;
  if Eingabe = '8' then if familienent = 1 then if erarchi = 1 then if Gold >= 1500 then if Stein >= 1500 then begin
  inc(vierfamhaeuser); dec(Gold,1500); dec(Stein,1500); inc(familienplatz,4); goto 2; end;
  if Eingabe = '9' then if erarchi = 1 then if Gold >= 5000 then if Stein >= 10000 then begin inc(mietshaeuser);
  dec(Gold,5000); dec(Stein,10000); inc(mieterplatz,8); goto 2; end;
  if Eingabe = '10' then if mieterplatz >= 1 then if erarchi = 1 then if Gold >= 1000 then if Nahrung >= 1500 then begin
  inc(mieter); dec(Gold,1000); dec(Nahrung,1500); dec(mieterplatz); inc(miete,25); inc(einwohner); goto 2; end;
  if Eingabe = '11' then if jaegerplatz >= 1 then if pulver = 1 then if Gold >= 1000 then if Nahrung >= 1000 then begin
  inc(flintenjaeger); dec(Gold,1000); dec(Nahrung,1000); dec(jaegerplatz); inc(Nahrungpro,20); goto 2; end;
  if Eingabe = '12' then if berg = 1 then if Gold >= 10000 then if Holz >= 5000 then if Stein >= 5000 then begin
  inc(granitberg); dec(Stein,5000); dec(Gold,10000); dec(Holz,5000); inc(granitbergarbeiterplatz); goto 2; end;
  if Eingabe = '13' then if granitbergarbeiterplatz >= 1 then if berg = 1 then if Gold >= 5000 then if Nahrung >= 5000 then
  begin inc(granitbergarbeiter);dec(Gold,5000);dec(Nahrung,5000); dec(granitbergarbeiterplatz); inc(steinpro,100); goto 2; end;
  if Eingabe = '14' then if berg = 1 then if eisenent = 1 then if Gold >= 10000 then if Holz >= 5000 then if Eisen >= 5000 then
  begin inc(eisenberg); dec(Eisen,5000); dec(Gold,10000); dec(Holz,5000); inc(eisenbergarbeiterplatz); goto 2; end;
  if Eingabe = '15' then if eisenbergarbeiterplatz >= 1 then if eisenent = 1 then if berg = 1 then if Gold >= 5000 then
  if Nahrung >= 5000 then begin inc(eisenbergarbeiter); dec(Gold,5000); dec(Nahrung,5000); dec(eisenbergarbeiterplatz);
  inc(eisenpro,100); goto 2; end;
  if Eingabe = '16' then if militaer = 1 then if Gold >= 10000 then if Holz >= 10000 then if Stein >= 5000 then begin
  inc(militaerbasis); dec(Gold,10000); dec(Holz,10000); dec(Stein,5000); inc(soldatplatz,10); goto 2; end;
  if Eingabe = '17' then if soldatplatz >= 1 then if militaer = 1 then if Gold >= 5000 then if Nahrung >= 10000 then begin
  inc(soldat); dec(Gold,5000); dec(Nahrung,10000); dec(soldatplatz); inc(Steuer,5); goto 2; end;
  if Eingabe = '18' then if ausbau >= 4 then if Gold >= 5000 then if Stein >= 20000 then if Eisen >= 5000 then begin
  inc(hochhaeuser); dec(Gold,5000); dec(Stein,20000); dec(Eisen,5000); inc(mieterplatz,50); goto 2; end;
  if Eingabe = '19' then if luftfahrt = 1 then if Gold >= 10000 then if Stein >= 10000 then if Eisen >= 5000 then begin
  inc(airforcebasis); dec(Gold,10000); dec(Stein,10000); dec(Eisen,5000); inc(luftplatz,5); inc(soldatplatz,20); goto 2; end;
  if Eingabe = '20' then if bomben = 1 then if luftplatz >= 1 then if luftfahrt = 1 then if Gold >= 5000 then
  if Nahrung >= 5000 then if Eisen >= 5000 then begin inc(Jagdbomber); dec(Gold,5000); dec(Nahrung,5000); dec(Eisen,5000);
  goto 4;
5:eingabe := '';
  clrscr;
  gotoxy(1,3);
  write('1.Weiter');
  gotoxy(1,4);
  write('2.Zur�ck');
  gotoxy(1,6);
  if bomben = 1 then if Luftfahrt = 1 then write('3.Pilot  5000 Gold 5000 Nahrung');
  gotoxy(1,7);
  if Luftfahrt = 1 then write('4.Flughafen  10000 Gold 10000 Stein 5000 Eisen');
  gotoxy(1,8);
  if ausbau >= 4 then write('5.Supermarkt  5000 Gold 5000 Stein 5000 Eisen');
  gotoxy(1,9);
  if ausbau >= 4 then write('6.Hochschule  10000 Gold 5000 Stein 5000 Eisen');
  gotoxy(1,10);
  if familienent = 1 then if ausbau >= 4 then write('7.Familie  1000 Gold 500 Nahrung');
  gotoxy(1,11);
  if ausbau >= 4 then write('8.Rathaus  10000 Gold 10000 Stein 10000 Holz');
  gotoxy(1,12);
  if gesetz = 1 then write('9.Gericht  50000 Gold 20000 Stein 10000 Holz');
  gotoxy(1,13);
  if gesetz = 1 then write('10.Gef„ngnis  50000 Gold 50000 Stein 20000 Eisen');
  gotoxy(1,14);
  if gesetz = 1 then write('11.Polizeistation  50000 Gold 30000 Stein 30000 Eisen');
  gotoxy(1,15);
  if gesetz = 1 then write('12.Polizist  2000 Gold 5000 Nahrung');
  gotoxy(1,16);
  if ermedi = 1 then write('13.Krankenhaus  10000 Gold 10000 Stein 5000 Eisen');
  gotoxy(1,17);
  if familienent = 1 then if ausbau >= 5 then write('14.Groáfamilie  5000 Gold 5000 Nahrung');
  gotoxy(1,18);
  if erarchi = 1 then if ausbau >= 5 then write('15.Wolkenkratzer  50000 Gold 50000 Stein 10000 Eisen');
  gotoxy(1,19);
  if wissen = 1 then write('16.Universit„t  100000 Gold 50000 Stein 10000 Eisen');
  gotoxy(1,20);
  if wissen = 1 then write('17.Student  10000 Gold 10000 Nahrung');
  gotoxy(1,21);
  if gravitation = 1 then write('18.Raumflughafen  100000 Gold 100000 Eisen');
  gotoxy(1,22);
  if goldab = 1 then write('19.Goldsucherraumschiff  50000 Gold 50000 Eisen');
  gotoxy(1,23);
  if nahrungab = 1 then write('20.Nahrungssucherraumschiff  50000 Gold 50000 Eisen');
  gotoxy(1,25);
  write('Nr.');
  readln(Eingabe);
  if Eingabe = '1' then goto 6;
  if Eingabe = '2' then goto 4;
  dec(luftplatz); inc(pilotenplatz); goto 2; end;
  if Eingabe = '3' then if bomben = 1 then if pilotenplatz >= 1 then if luftfahrt = 1 then if Gold >= 5000 then
  if Nahrung >= 5000 then begin inc(piloten); dec(Gold,5000); dec(Nahrung,5000); dec(pilotenplatz); inc(miete,10); goto 2; end;
  if Eingabe = '4' then if luftfahrt = 1 then if Gold >= 10000 then if Stein >= 10000 then if Eisen >= 5000 then begin
  inc(flughaefen); dec(Gold,10000); dec(Stein,10000); inc(steuer,30); goto 2; end;
  if Eingabe = '5' then if ausbau >= 4 then if Gold >= 5000 then if Stein >= 5000 then if Eisen >= 5000 then begin
  inc(supermaerkte); dec(Gold,5000); dec(Stein,5000); inc(verkaeuferplatz,5); goto 2; end;
  if Eingabe = '6' then if ausbau >= 4 then if Gold >= 10000 then if Stein >= 5000 then if Eisen >= 5000 then begin
  inc(hochschulen); dec(Gold,10000); dec(Stein,5000); inc(schuelerplatz,50); goto 2; end;
  if Eingabe = '7' then if familienplatz >= 1 then if familienent = 1 then if ausbau >= 4 then if Gold >= 1000 then
  if Nahrung >= 500 then begin inc(familien); dec(Gold,1000); dec(Nahrung,500); dec(familienplatz); inc(steuer,50);
  inc(Miete,20); inc(Einwohner,4); goto 2; end;
  if Eingabe = '8' then if ausbau >= 4 then if Gold >= 10000 then if Stein >= 10000 then if Holz >= 10000 then begin
  inc(rathaeuser); dec(Gold,10000); dec(Stein,10000); dec(Holz,10000); goto 2; end;
  if Eingabe = '9' then if gesetz = 1 then if Gold >= 50000 then if Stein >= 20000 then if Holz >= 10000 then begin
  inc(Gerichte); dec(Gold,50000); dec(Stein,20000); dec(Holz,10000); goto 2; end;
  if Eingabe = '10' then if gesetz = 1 then if Gold >= 50000 then if Stein >= 50000 then if Eisen >= 20000 then begin
  inc(Gefaengnisse); dec(Gold,50000); dec(Stein,50000); dec(Eisen,20000); goto 2; end;
  if Eingabe = '11' then if gesetz = 1 then if Gold >= 50000 then if Stein >= 30000 then if Eisen >= 30000 then begin
  inc(Polizeibasis); dec(Gold,50000); dec(Stein,30000); dec(Eisen,30000); inc(Polizistenplatz,10); goto 2; end;
  if Eingabe = '12' then if polizistenplatz >= 1 then if gesetz = 1 then if Gold >= 2000 then if Nahrung >= 5000 then begin
  inc(polizisten); dec(Gold,2000); dec(Nahrung,5000); dec(Polizistenplatz); goto 2; end;
  if Eingabe = '13' then if ermedi = 1 then if Gold >= 10000 then if Stein >= 10000 then if Eisen >= 5000 then begin
  inc(krankenhaeuser); dec(Gold,10000); dec(Stein,10000); dec(Eisen,5000); inc(aerzteplatz,10); goto 2; end;
  if Eingabe = '14' then if familienent = 1 then if ausbau >= 5 then if familienplatz >= 1 then if Gold >= 5000 then
  if Nahrung >= 5000 then begin inc(grfamilien); dec(Gold,5000); dec(Nahrung,5000); dec(familienplatz); inc(steuer,100);
  inc(miete,50); inc(einwohner,6); goto 2; end;
  if Eingabe = '15' then if erarchi = 1 then if ausbau >= 5 then if Gold >= 50000 then if Stein >= 50000 then
  if Eisen >= 10000 then begin inc(wolkenkratzer); dec(Gold,50000); dec(Stein,50000); dec(Eisen,10000); inc(mieterplatz,100);
  goto 2; end;
  if Eingabe = '16' then if wissen = 1 then if Gold >= 100000 then if Stein >= 50000 then if Eisen >= 10000 then begin
  inc(unis); dec(Gold,100000); dec(Stein,50000); dec(Eisen,10000); inc(studentenplatz,20); goto 2; end;
  if Eingabe = '17' then if wissen = 1 then if studentenplatz >= 1 then if Gold >= 10000 then if Nahrung >= 10000 then begin
  inc(studenten); dec(Gold,10000); dec(Nahrung,10000); dec(studentenplatz); inc(Miete,50); goto 2; end;
  if Eingabe = '18' then if gravitation = 1 then if Gold >= 100000 then if Eisen >= 100000 then begin inc(raumflughaefen);
  dec(Gold,100000); dec(Eisen,100000); goto 2; end;
  if Eingabe = '19' then if goldab =1 then if Gold >= 50000 then if Eisen >= 50000 then begin inc(goldsucher); dec(Gold,50000);
  dec(Eisen,50000); inc(Miete,100); goto 2; end;
  if Eingabe = '20' then if nahrungab = 1 then if Gold >= 50000 then if Eisen >= 50000 then begin inc(nahrungssucher);
  dec(Gold,50000); dec(Eisen,50000); inc(Nahrungpro,100); goto 2; end;
  goto 5;
6:eingabe := '';
  clrscr;
  gotoxy(1,3);
  write('1.Weiter');
  gotoxy(1,4);
  write('2.Zur�ck');
  gotoxy(1,6);
  if holzab = 1 then write('3.Holzsucherraumschiff  50000 Gold 50000 Eisen');
  gotoxy(1,7);
  if steinab = 1 then write('4.Steinsucherraumschiff  50000 Gold 50000 Eisen');
  gotoxy(1,8);
  if eisenab = 1 then write('5.Eisensucherraumschiff  50000 Gold 50000 Eisen');
  gotoxy(1,25);
  write('Nr.');
  readln(Eingabe);
  if Eingabe = '1' then goto 6;
  if Eingabe = '2' then goto 5;
  if Eingabe = '3' then if holzab = 1 then if Gold >= 50000 then if Eisen >= 50000 then begin inc(holzsucher); dec(Gold,50000);
  dec(Eisen,50000); inc(Holzpro,100); goto 2; end;
  if Eingabe = '4' then if steinab =1 then if Gold >=50000 then if Eisen >= 50000 then begin inc(steinsucher); dec(Gold,50000);
  dec(Eisen,50000); inc(Steinpro,100); goto 2; end;
  if Eingabe = '5' then if eisenab =1 then if Gold >=50000 then if Eisen >= 50000 then begin inc(eisensucher); dec(Gold,50000);
  dec(Eisen,50000); inc(Eisenpro,100); goto 2; end;
  goto 6;
2:eingabe := '';
end;

Procedure forschung;
label 1,2,3;
begin
  3:clrscr;
  gotoxy(32,1);
  write('Forschung');
  gotoxy(1,3);
  write('1.Weiter');
  gotoxy(1,4);
  write('2.Zur�ck');
  gotoxy(1,6);
  if holzent = 0 then write('3.Holzverarbeitung entwickeln  500 Gold 100 Nahrung');
  gotoxy(1,7);
  if steinent = 0 then write('4.Steinabbau entwickeln  1000 Gold 200 Nahrung');
  gotoxy(1,8);
  if archi = 0 then write('5.Architektur entwickeln  2000 Gold 250 Nahrung');
  gotoxy(1,9);
  if speerent = 0 then write('6.Speer entwickeln  500 Gold 100 Holz');
  gotoxy(1,10);
  if ausbau >= 2 then if religion = 0 then write('7.Religion entwickeln  1000 Gold 500 Nahrung');
  gotoxy(1,11);
  if ausbau >= 2 then if familienent = 0 then write('8.Familie entwickeln  1500 Gold 1000 Nahrung');
  gotoxy(1,12);
  if ausbau >= 2 then if medizin = 0 then write('9.Medizin entwickeln  3000 Gold 2000 Nahrung');
  gotoxy(1,13);
  if ausbau >= 2 then if schrift = 0 then write('10.Schrift entwickeln  2000 Gold 1000 Nahrung');
  gotoxy(1,14);
  if ausbau >= 2 then if handel = 0 then if schrift = 1 then write('11.Handel entwickeln  1000 Gold 1000 Nahrung');
  gotoxy(1,15);
  if muenzen = 0 then if handel = 1 then write('12.M�nzen entwickeln  5000 Gold 1000 Nahrung');
  gotoxy(1,16);
  if ausbau >= 2 then if landwirtschaft = 0 then write('13.Landwirtschaft entwickeln  3000 Gold 5000 Nahrung');
  gotoxy(1,17);
  if ausbau >= 2 then if bogen = 0 then write('14.Bogen entwickeln  1000 Gold 1000 Holz');
  gotoxy(1,18);
  if ausbau >= 2 then if wind = 0 then write('15.Windkraft entwickeln  2000 Gold 1000 Nahrung');
  gotoxy(1,19);
  if ausbau >= 2 then if feuer = 0 then write('16.Feuer entwickeln  3000 Gold 5000 Holz');
  gotoxy(1,20);
  if ausbau >= 2 then if messer = 0 then write('17.Messer entwickeln  1000 Gold 1000 Stein');
  gotoxy(1,21);
  if ausbau >= 3 then if eisenent = 0 then write('18.Eisenverarbeitung entwickeln  5000 Gold 4000 Nahrung 3000 Holz');
  gotoxy(1,22);
  if ausbau >= 3 then if buecher = 0 then write('19.B�cher entwickeln  5000 Gold 5000 Nahrung 5000 Holz');
  gotoxy(1,23);
  if ausbau >= 3 then if strom = 0 then write('20.Strom entwickeln  10000 Gold 5000 Holz 1000 Eisen');
  gotoxy(1,25);
  write('Nr.');
  readln(Eingabe);
  if Eingabe = '1' then goto 1;
  if Eingabe = '2' then goto 2;
  if Eingabe = '3' then if holzent = 0 then if Nahrung >= 100 then if Gold >= 500 then begin inc(Holzent); dec(Gold,500);
  dec(Nahrung,100); goto 2; end;
  if Eingabe = '4' then if steinent = 0 then if Nahrung >= 200 then if Gold >= 1000 then begin inc(Steinent);
  dec(Gold,1000); dec(Nahrung,200); goto 2; end;
  if Eingabe = '5' then if archi = 0 then if Nahrung >= 250 then if Gold >= 2000 then begin inc(Archi); dec(Gold,2000);
  dec(Nahrung,250); goto 2; end;
  if Eingabe = '6' then if speerent = 0 then if Gold >= 500 then if Holz >= 100 then begin
  inc(speerent); dec(Gold,500); dec(Holz,100); goto 2; end;
  if Eingabe = '7' then if ausbau >= 2 then if religion = 0 then if Gold >= 1000 then if Nahrung >= 500 then begin
  inc(religion); dec(Gold,1000); dec(Nahrung,500); goto 2; end;
  if Eingabe = '8' then if ausbau >= 2 then if familienent = 0 then if Gold >= 1500 then if Nahrung >= 1000 then begin
  inc(familienent); dec(Gold,1500); dec(Nahrung,1000); goto 2; end;
  if Eingabe = '9' then if ausbau >= 2 then if medizin = 0 then if Gold >= 3000 then if Nahrung >= 2000 then begin
  inc(medizin); dec(Gold,3000); dec(Nahrung,2000); goto 2; end;
  if Eingabe = '10' then if ausbau >= 2 then if schrift = 0 then if Gold >= 2000 then if Nahrung >= 1000 then begin
  inc(schrift); dec(Gold,2000); dec(Nahrung,1000); goto 2; end;
  if Eingabe = '11' then if ausbau >= 2 then if handel = 0 then if schrift = 1 then if Gold >= 1000 then if Nahrung >= 1000
  then begin inc(handel); dec(Gold,1000); dec(Nahrung,1000); goto 2; end;
  if Eingabe = '12' then if ausbau >= 2 then if handel = 1 then if muenzen = 0 then if Gold >= 5000 then if Nahrung >= 1000
  then begin inc(muenzen); dec(Gold,5000); dec(Nahrung,1000); goto 2; end;
  if Eingabe = '13' then if ausbau >= 2 then if landwirtschaft = 0 then if Gold >= 3000 then if Nahrung >= 5000 then begin
  inc(landwirtschaft); dec(Gold,3000); dec(Nahrung,5000); goto 2; end;
  if Eingabe = '14' then if ausbau >= 2 then if bogen = 0 then if Gold >= 1000 then if Holz >= 1000 then begin inc(bogen);
  dec(Gold,1000); dec(Holz,1000); goto 2; end;
  if Eingabe = '15' then if ausbau >= 2 then if wind = 0 then if Gold >= 2000 then if Nahrung >= 1000 then begin inc(wind);
  dec(Gold,2000); dec(Nahrung,1000); goto 2; end;
  if Eingabe = '16' then if ausbau >= 2 then if feuer = 0 then if Gold >= 3000 then if Holz >= 5000 then begin inc(feuer);
  dec(Gold,3000); dec(Holz,5000); goto 2; end;
  if Eingabe = '17' then if ausbau >= 2 then if messer = 0 then if Gold >= 1000 then if Stein >= 1000 then begin inc(messer);
  dec(Gold,1000); dec(Stein,1000); goto 2; end;
  if Eingabe = '18' then if ausbau >= 3 then if eisenent = 0 then if Gold >= 5000 then if Nahrung >= 4000 then
  if Holz >= 3000 then begin inc(eisenent); dec(Gold,5000); dec(Nahrung,4000); dec(Holz,3000); goto 2; end;
  if Eingabe = '19' then if ausbau >= 3 then if buecher = 0 then if Gold >= 5000 then if Nahrung >= 5000 then if Holz >= 5000
  then begin inc(buecher); dec(Gold,5000); dec(Nahrung,5000); dec(Holz,5000); goto 2; end;
  if Eingabe = '20' then if ausbau >= 3 then if strom = 0 then if Gold >= 10000 then if Holz >= 5000 then if Eisen >= 1000 then
  begin inc(strom); dec(Gold,10000); dec(Holz,5000); dec(Eisen,1000); goto 2; end;
  goto 3;
  1:clrscr;
  gotoxy(32,1);
  write('Forschung');
  gotoxy(1,3);
  write('1.Weiter');
  gotoxy(1,4);
  write('2.Zur�ck');
  gotoxy(1,6);
  if strom = 1 then if technik = 0 then write('3.Technik entwickeln  8000 Gold 2000 Eisen');
  gotoxy(1,7);
  if ausbau >= 3 then if erarchi = 0 then write('4.Erweiterte Architektur entwickeln  50000 Gold ');
  gotoxy(1,8);
  if ausbau >= 3 then if feuer =1 then if pulver = 0 then write('5.Schwarzpulver entwickeln  10000 Gold 5000 Holz 5000 Eisen');
  gotoxy(1,9);
  if ausbau >= 3 then if berg = 0 then write('6.Bergwerk entwickeln  5000 Gold 5000 Stein 5000 Eisen');
  gotoxy(1,10);
  if pulver =1 then if ausbau >=3 then if militaer = 0 then write('7.Milit„r entwickeln  10000 Gold 10000 Nahrung 5000 Eisen');
  gotoxy(1,11);
  if ausbau >= 4 then if luftfahrt = 0 then write('8.Luftfahrt entwickeln  10000 Gold 10000 Eisen');
  gotoxy(1,12);
  if ausbau >= 4 then if bomben = 0 then write('9.Bomben entwickeln  50000 Gold 10000 Eisen');
  gotoxy(1,13);
  if ausbau >= 4 then if gesetz = 0 then if rathaeuser >= 1 then write('10.Gesetze entwickeln  50000 Gold 50000 Holz');
  gotoxy(1,14);
  if ausbau >= 4 then if ermedi = 0 then write('11.Erweiterte Medizin entwickeln  100000 Gold 50000 Nahrung');
  gotoxy(1,15);
  if ausbau >= 5 then if wissen = 0 then write('12.Wissenschaft entwickeln  100000 Gold 50000 Nahrung');
  gotoxy(1,16);
  if ausbau >= 5 then if gravitation = 0 then write('13.Gravitation entwickeln  500000 Gold');
  gotoxy(1,17);
  if goldab = 0 then if raumflughaefen >= 1 then write('14.Goldabbau auf anderen Planeten entwickeln  500000 Gold');
  gotoxy(1,18);
  if nahrungab = 0 then if raumflughaefen >= 1 then write('15.Nahrungssuche auf anderen Planeten entwickeln  500000 Nahrung');
  gotoxy(1,19);
  if Holzab = 0 then if raumflughaefen >= 1 then write('16.Holzabbau auf anderen Planeten entwickeln  500000 Holz');
  gotoxy(1,20);
  if Steinab = 0 then if raumflughaefen >= 1 then write('17.Steinabbau auf anderen Planeten entwickeln  500000 Stein');
  gotoxy(1,21);
  if Eisenab = 0 then if raumflughaefen >= 1 then write('18.Eisenabbau auf anderen Planeten entwickeln  500000 Eisen');
  gotoxy(1,25);
  write('Nr.');
  readln(Eingabe);
  if Eingabe = '1' then goto 1;
  if Eingabe = '2' then goto 3;
  if Eingabe = '3' then if strom = 1 then if technik = 0 then if Eisen >= 2000 then if Gold >= 8000 then begin inc(technik);
  dec(Gold,8000); dec(Eisen,2000); goto 2; end;
  if Eingabe = '4' then if erarchi = 0 then if ausbau >= 3 then if Gold >= 50000 then begin inc(erarchi); dec(Gold,50000);
  goto 2; end;
  if Eingabe = '5' then if ausbau >= 3 then if feuer = 1 then if Pulver = 0 then if Gold >= 10000 then if Holz >= 5000 then
  if Eisen >= 5000 then begin inc(pulver); dec(Gold,10000); dec(Holz,5000); dec(Eisen,5000); goto 2; end;
  if Eingabe = '6' then if ausbau >= 3 then if Berg = 0 then if Gold >= 5000 then if Stein >= 5000 then if Eisen >= 5000 then
  begin inc(berg); dec(Gold,5000); dec(Stein,5000); dec(Eisen,5000); goto 2; end;
  if Eingabe = '7' then if pulver = 1 then if ausbau >= 3 then if Militaer = 0 then if Gold >= 10000 then if Nahrung >= 10000
  then if Eisen >= 5000 then begin inc(militaer); dec(Gold,10000); dec(Nahrung,10000); dec(Eisen,5000); goto 2; end;
  if Eingabe = '8' then if ausbau >= 4 then if Luftfahrt = 0 then if Gold >= 10000 then if Eisen >= 10000 then begin
  inc(luftfahrt); dec(Gold,10000); dec(Eisen,10000); goto 2; end;
  if Eingabe = '9' then if ausbau >= 4 then if Bomben = 0 then if Gold >= 50000 then if Eisen >= 10000 then begin
  inc(bomben); dec(Gold,50000); dec(Eisen,10000); goto 2; end;
  if Eingabe = '10' then if ausbau >= 4 then if Gesetz = 0 then if rathaeuser >= 1 then if Gold >= 50000 then if Holz >= 50000
  then begin inc(gesetz); dec(Gold,50000); dec(Holz,50000); goto 2; end;
  if Eingabe = '11' then if ausbau >= 4 then if ermedi = 0 then if Gold >= 100000 then if Nahrung >= 50000
  then begin inc(ermedi); dec(Gold,100000); dec(Nahrung,50000); goto 2; end;
  if Eingabe = '12' then if ausbau >= 5 then if wissen = 0 then if Gold >= 100000 then if Nahrung >= 50000
  then begin inc(wissen); dec(Gold,100000); dec(Nahrung,50000); goto 2; end;
  if Eingabe = '13' then if ausbau >= 5 then if gravitation = 0 then if Gold >= 500000 then begin inc(gravitation);
  dec(Gold,500000); goto 2; end;
  if Eingabe = '14' then if goldab = 0 then if raumflughaefen >= 1 then if Gold >= 500000 then begin inc(goldab);
  dec(Gold,500000); goto 2; end;
  if Eingabe = '15' then if nahrungab = 0 then if raumflughaefen >= 1 then if Nahrung >= 500000 then begin inc(nahrungab);
  dec(Nahrung,500000); goto 2; end;
  if Eingabe = '16' then if holzab = 0 then if raumflughaefen >= 1 then if Holz >= 500000 then begin inc(holzab);
  dec(Holz,500000); goto 2; end;
  if Eingabe = '17' then if steinab = 0 then if raumflughaefen >= 1 then if Stein >= 500000 then begin inc(steinab);
  dec(Stein,500000); goto 2; end;
  if Eingabe = '18' then if eisenab = 0 then if raumflughaefen >= 1 then if Eisen >= 500000 then begin inc(eisenab);
  dec(Eisen,500000); goto 2; end;
  goto 1;
2:eingabe := '';
end;

Procedure sausbau;
label 1,2,3;
begin
1:3:clrscr;
  gotoxy(32,1);
  write('Ausbau');
  gotoxy(1,3);
  write('1.Zur�ck');
  gotoxy(1,5);
  if ausbau = 1 then if speerent = 1 then if archi = 1 then if holzent = 1 then if steinent = 1 then
  write('2.Dorf zur Siedlung ausbauen  25 Einwohner 1000 Gold 1000 Holz 1000 Stein');
  gotoxy(1,6);
  if ausbau = 2 then if marktplaetze >= 1 then if aerzteschuppen >= 1 then if feuer = 1 then if muenzen = 1 then
  if dorfschulen >= 1 then write('3.Siedlung zur Kleinstadt ausbauen  100 Einwohner 9999 Gold 9999 Holz 9999 Stein');
  gotoxy(1,7);
  if ausbau = 3 then if militaerbasis >= 1 then if eisenent = 1 then if strom = 1 then if technik = 1 then
  if Schulen >= 1 then write('4.Kleinstadt zur Stadt ausbauen  250 Einwohner 30000 Gold 30000 Holz 10000 Eisen');
  gotoxy(1,8);
  if ausbau = 4 then if airforcebasis >= 1 then if gesetz = 1 then if rathaeuser >= 1 then if Krankenhaeuser >= 1 then
  if Polizeibasis >= 1 then if Hochschulen >= 1 then if Flughaefen >= 1 then if supermaerkte >= 1 then
  write('5.Stadt zur Groástadt ausbauen  500 Einwohner 100000 Gold 99999 Holz 99999 Eisen');
  Eingabe:=readkey;
  if Eingabe = '1' then goto 2;
  if Eingabe = '2' then if ausbau = 1 then if speerent = 1 then if holzent = 1 then if archi = 1 then if steinent = 1 then
  if Gold >= 1000 then if holz >= 1000 then if stein >= 1000 then if einwohner >= 25 then begin inc(ausbau);
  dec(Gold,1000); dec(holz,1000); dec(stein,1000); inc(steuer,50); goto 2; end;
  if Eingabe = '3' then if ausbau = 2 then if marktplaetze >= 1 then if aerzteschuppen >= 1 then if feuer = 1 then
  if muenzen = 1 then if Gold >= 9999 then if dorfschulen >= 1 then if holz >= 9999 then if stein >= 9999 then
  if einwohner >= 100 then begin inc(ausbau); dec(Gold,9999); dec(holz,9999); dec(stein,9999); inc(steuer,100); goto 2; end;
  if Eingabe = '4' then if ausbau = 3 then if militaerbasis >= 1 then if eisenent = 1 then if strom = 1 then
  if technik = 1 then if Schulen >= 1 then if Gold >= 30000 then if holz >= 30000 then if Eisen >= 10000 then
  if einwohner >= 250 then begin inc(ausbau); dec(Gold,30000); dec(holz,30000); dec(Eisen,10000); inc(steuer,500); goto 2; end;
  if Eingabe = '5' then if ausbau = 4 then if airforcebasis >= 1 then if gesetz = 1 then if rathaeuser >= 1 then
  if krankenhaeuser >= 1 then if Polizeibasis >= 1 then if Hochschulen >= 1 then if Gold >= 100000 then if holz >= 99999 then
  if Eisen >= 99999 then if einwohner >= 500 then begin inc(ausbau); dec(Gold,100000); dec(holz,99999); dec(Eisen,99999);
  inc(steuer,1000); goto 2; end;
  goto 3;
2:eingabe := '';
end;

Procedure ziele;
begin
  clrscr;
  gotoxy(30,1);
  write('Missionsziele');
  gotoxy(8,3);
  writeln('   Ihr Ziel ist es die Menschheit in die Zukunft zu f�hren.');
  gotoxy(8,4);
  writeln('Sie m�ssen es schaffen vom Dorf zu einer Groástadt zu gelangen!');
  readkey;
end;

Procedure menu;
label 1,2,3;
begin
  clrscr;
  gotoxy(34,1);
  write('Men�');
  gotoxy(1,3);
  write('1.Weiter');
  gotoxy(1,4);
  write('2.Beenden');
1:Eingabe := readkey;
  if Eingabe = '1' then goto 2;
  if Eingabe = '2' then begin clrscr; halt; end;
  eingabe  := '';
  goto 1;
2:
end;

procedure Hauptmenu;
label 1;
begin
  repeat
  1:clrscr;
    highvideo;
    if ausbau = 1 then begin
    gotoxy(35,2);
    write('Dorf');
    end;
    if ausbau = 2 then begin
    gotoxy(33,2);
    write('Siedlung');
    end;
    if ausbau = 3 then begin
    gotoxy(31,2);
    write('Kleinstadt');
    end;
    if ausbau = 4 then begin
    gotoxy(34,2);
    write('Stadt');
    end;
    if ausbau = 5 then begin
    gotoxy(32,2);
    write('Groástadt');
    end;
    normvideo;
    gotoxy(2,5);
    write('1.šbersicht');
    gotoxy(2,7);
    write('2.Bauen');
    gotoxy(2,9);
    write('3.Forschung');
    gotoxy(2,11);
    write('4.Ausbau');
    gotoxy(2,13);
    write('5.Missionsziele');
    gotoxy(2,15);
    write('6.Menu');
    gotoxy(65,5);
    write('Jahr');
    inc(Gold,Miete);
    inc(Holz,Holzpro);
    inc(Stein,Steinpro);
    inc(Nahrung,Nahrungpro);
    inc(Eisen,Eisenpro);
    repeat
      inc(x);
      if mueller = x then if bauern = x then if baecker = x then inc(Nahrung,x*50);
    until x = 1000;
    x := 0;
    repeat
      inc(x);
      if viehzuechter = x then if fleischer = x then inc(Nahrung,x*25);
    until x = 1000;
    x := 0;
    repeat
      inc(x);
      if polizisten = x then if gerichte = x then if gefaengnisse = x then inc(Gold,x*50);
    until x = 1000;
    x := 0;
    gotoxy(63,6);
    if monat = 13 then inc(Gold,Steuer);
    if zeit = 1 then if jahr = 0 then zeit := 2 ;
    if zeit = 1 then if monat = 13 then dec(jahr);
    if zeit = 2 then if monat = 13 then inc(jahr);
    if monat = 13 then monat := 1;
    if monat = 1  then  write(' Januar   ');
    if monat = 2  then  write(' Februar  ');
    if monat = 3  then  write('  M„rz    ');
    if monat = 4  then  write('  April   ');
    if monat = 5  then  write('   Mai    ');
    if monat = 6  then  write('  Juni   ');
    if monat = 7  then  write('  Juli   ');
    if monat = 8  then  write(' August  ');
    if monat = 9  then  write('September');
    if monat = 10  then write('Oktobert ');
    if monat = 11  then write('Nevember ');
    if monat = 12  then write('Dezember ');
    gotoxy(58,7);
    if zeit = 1 then write('    ',Jahr,' v.Chr.');
    if zeit = 2 then write('    ',Jahr,' n.Chr.');
    gotoxy(62,8);
    write(Einwohner,' Einwohner');
    gotoxy(52,9);
    write('Platz f�r ',Platz,' Einwohner');
    if gold > 999999999 then gold := 999999999;
    gotoxy(62,11);
    write(Gold,' Gold');
    if nahrung > 999999999 then nahrung := 999999999;
    gotoxy(62,12);
    write(Nahrung,' Nahrung');
    if holz > 999999999 then holz := 999999999;
    gotoxy(62,13);
    write(Holz,' Holz');
    if stein > 999999999 then stein := 999999999;
    gotoxy(62,14);
    write(Stein,' Stein');
    if eisen > 999999999 then eisen := 999999999;
    gotoxy(62,15);
    write(Eisen,' Eisen');
    inc(monat);
    delay(500);
  until keypressed;
  eingabe := readkey;
  if eingabe = '1' then uebersicht;
  if eingabe = '2' then bauen;
  if eingabe = '3' then forschung;
  if eingabe = '4' then sausbau;
  if eingabe = '5' then ziele;
  if eingabe = '6' then menu;
  goto 1;
  readkey;
end;

begin
  Initiation;
  Anfangsbildschirm;
  Hauptmenu;
end.