FireShockStudios
  HansWurst
 
"Hier der Code für die Bratwurstbudensimulation:


INCLUDE "APPFRAME.OXH"
INCLUDE "CONST.OPH"

APP HansWurst,&10272A73
CAPTION "HansWurst",KlangGerman%
ICON "iconhw.ico"
ENDA


PROC start:
    GLOBAL name$(25),stand$(40)
    GLOBAL geld%,einnahmen%,ausgaben%,umsatz%
    GLOBAL grill%,würste%,semmeln%,stand%,zutaten%,kühlschrank%,theke%,semmelnkorb%
    GLOBAL zange%,messer%,senf%,ketchup%,kasse%,kohle%,geschirr%
    GLOBAL kunden%,schmutz%,tage%,schulden%
    GLOBAL savegame$(255)
    GLOBAL i%,e%
    geld%=200
    savegame$="C:SystemAppsHansWurstSavegameSavegame.hw"
    e%=EXIST (savegame$)
   
    gIPRINT "Bratwurstmanager Version 1.0"
    PAUSE 30
    main:
ENDP
   
PROC main:
    CLS
    gIPRINT "Hauptmenü"
    PRINT "1 = Home"
    PRINT "2 = Stand"
    PRINT "3 = Shop"
    PRINT "4 = Bank"
    PRINT "5 = Spiel"
    PRINT "                           "
    PRINT "Name:",name$
    PRINT "                           "
    PRINT "Standname:",stand$
    PRINT "                           "
    PRINT "Gesamte Spieltage:",tage%
    PRINT "                           "
    PRINT "Aktueller Kontostand:",geld%
    PRINT "                           "
    PRINT "Verschmutzungsgrad:",schmutz%,"(bei 10 ist das Game Over)"
    PRINT "                           "
    PRINT "Schulden:",schulden%
    i%=GET
    IF i%=%1
        home:
    ELSEIF i%=%2
        stand:
    ELSEIF i%=%3
        shop:
    ELSEIF i%=%4
        bank:
    ELSEIF i%=%5
        spiel:
    ENDIF
ENDP

PROC home:
    CLS
    gIPRINT "Location: Home"
    PRINT "1 = Bilanz ansehen"
    PRINT "2 = Werbung buchen"
    PRINT "3 = Gegenstände"
    PRINT "4 = Hauptmenü"
    i%=GET
    IF i%=%1
        bilanz:
    ELSEIF i%=%2
        werbung:
    ELSEIF i%=%3
        gegenstände:
    ELSEIF i%=%4
        main:
    ENDIF
ENDP

PROC bilanz:
    CLS
    gIPRINT "Location: Home / Point: Bilanz"
    PRINT "Name:",name$
    PRINT "Stand:",stand$
    PRINT "Aktueller Kontostand:",geld%
    PRINT "Einnahmen (Gesamt):",einnahmen%
    PRINT "Ausgaben (Gesamt):",ausgaben%
    PRINT "Umsatz (Gesamt):",umsatz%
    PRINT "Bekanntheitsgrad:",kunden%
    PRINT "Taste drücken um zurück zu gehen"
    GET
    home:
ENDP

PROC werbung:
    CLS
    gIPRINT "Location: Home / Point: Werbung"
    PRINT "1 = Flyer                         Preis: 120$"
    PRINT "2 = Autowerbung (Aufkleber)       Preis: 250$"
    PRINT "3 = Radiowerbung                  Preis: 400$"
    PRINT "4 = Fernsehwerbung                Preis: 650$"
    PRINT "5 = Zurück"
    i%=GET
    IF i%=%1
        gIPRINT "Überprüfe Kontostand..."
        PAUSE 30
        IF geld% < 120
            gIPRINT "Zu wenig Geld"
            werbung:
            PAUSE 30
        ENDIF
        gIPRINT "Geld wird abgebucht..."
        geld%=geld%-120
        PAUSE 40
        gIPRINT "Flyerwerbung gebucht"
        PAUSE 40
        gIPRINT "Buchung erfolgreich"
        PAUSE 40
        ausgaben%=ausgaben%-120
        umsatz%=umsatz%-120
        kunden%=kunden%+1
        home:
    ELSEIF i%=%2
        gIPRINT "Überprüfe Kontostand..."
        PAUSE 30
        IF geld% < 250
            gIPRINT "Zu wenig Geld"
            PAUSE 30
            werbung:
        ENDIF
        gIPRINT "Geld wird abgebucht..."
        geld%=geld%-250
        PAUSE 40
        gIPRINT "Autowerbung gebucht"
        PAUSE 40
        gIPRINT "Buchung erfolgreich"
        PAUSE 40
        ausgaben%=ausgaben%-250
        umsatz%=umsatz%-250
        kunden%=kunden%+2
        home:
    ELSEIF i%=%3
        gIPRINT "Überprüfe Kontostand..."
        PAUSE 30
        IF geld% < 400
            gIPRINT "Zu wenig Geld"
            PAUSE 30
            werbung:
        ENDIF
        gIPRINT "Geld wird abgebucht..."
        geld%=geld%-400
        PAUSE 40
        gIPRINT "Radiowerbung gebucht"
        PAUSE 40
        gIPRINT "Buchung erfolgreich"
        PAUSE 40
        ausgaben%=ausgaben%-400
        umsatz%=umsatz%-400
        kunden%=kunden%+3
        home:
    ELSEIF i%=%4
        gIPRINT "Überprüfe Kontostand..."
        PAUSE 30
        IF geld% < 650
            gIPRINT "Zu wenig Geld"
            PAUSE 30
            werbung:
        ENDIF
        gIPRINT "Geld wird abgebucht..."
        geld%=geld%-650
        PAUSE 40
        gIPRINT "Fernsehwerbung gebucht"
        PAUSE 40
        gIPRINT "Buchung erfolgreich"
        PAUSE 40
        ausgaben%=ausgaben%-650
        umsatz%=umsatz%-650
        kunden%=kunden%+4
        home:
    ELSEIF i%=%5
        home:
    ENDIF
ENDP

PROC gegenstände:
    CLS
    gIPRINT "Location: Home / Point: Gegenstände"
    PRINT "Auflistung der Gegenstände die du besitzt:"
    PRINT "                                          "
    PRINT "Grill / Stufe:",grill%
    PRINT "Würste / Vorrat:",würste%
    PRINT "Semmeln / Vorrat:",semmeln%
    PRINT "Stand / Stufe:",stand%
    PRINT "Zutaten / Vorrat:",zutaten%
    PRINT "Kühlschrank / Stufe:",kühlschrank%
    PRINT "Theke / Stufe:",theke%
    PRINT "Semmelnkorb / Stufe:",semmelnkorb%
    PRINT "Zange / Stufe:",zange%
    PRINT "Messer / Stufe:",messer%
    PRINT "Senf / Vorrat:",senf%
    PRINT "Ketchup / Vorrat:",ketchup%
    PRINT "Kasse / Stufe:",kasse%
    PRINT "Grillkohle / Vorrat:",kohle%
    PRINT "Geschirr / Stufe:",geschirr%
    PRINT "Taste drücken um zurück zu gehen"
    GET
    home:
ENDP

PROC stand:
    CLS
    gIPRINT "Location: Stand"
    PRINT "1 = Verkaufen"
    PRINT "2 = Reinigen"
    PRINT "3 = Standnamen ändern"
    PRINT "4 = Zurück"
    i%=GET
    IF i%=%1
        verkaufen:
    ELSEIF i%=%2
        reinigen:
    ELSEIF i%=%3
        standnamenändern:
    ELSEIF i%=%4
        main:
    ENDIF
ENDP

PROC verkaufen:
    CLS
    gIPRINT "Location: Stand / Point: Verkaufen"
    PAUSE 20
    IF semmeln% <10
        gIPRINT "Zu wenig Semmeln / min. 10"
        PAUSE 30
        stand:
    ELSEIF würste% <10
        gIPRINT "Zu wenig Würste / min.10"
        PAUSE 30
        stand:
    ELSEIF ketchup% <10
        gIPRINT "Zu wenig Ketchup / min.10"
        PAUSE 30
        stand:
    ELSEIF zutaten% <10
        gIPRINT "Zu wenig Zutaten / min. 10"
        PAUSE 30
        stand:
    ELSEIF kohle% <10
        gIPRINT "Zu wenig Grillkohle / min. 10"
        PAUSE 30
        stand:
    ENDIF
    semmeln%=semmeln%-10
    würste%=würste%-10
    zutaten%=zutaten%-10
    ketchup%=ketchup%-10
    kohle%=kohle%-10
    tage%=tage%+1
    gIPRINT "Uhrzeit: 8 Uhr"
    PAUSE 20
    gIPRINT "Uhrzeit: 9 Uhr"
    PAUSE 20
    gIPRINT "Uhrzeit: 10 Uhr"
    PAUSE 20
    gIPRINT "Uhrzeit: 11 Uhr"
    PAUSE 20
    gIPRINT "Uhrzeit: 12 Uhr"
    PAUSE 20
    gIPRINT "Uhrzeit: 13 Uhr"
    PAUSE 20
    gIPRINT "Uhrzeit: 14 Uhr"
    PAUSE 20
    gIPRINT "Uhrzeit: 15 Uhr"
    PAUSE 20
    gIPRINT "Uhrzeit: 16 Uhr"
    PAUSE 20
    gIPRINT "Feierabend..."
    PAUSE 30
    schmutz%=schmutz%+1
    IF schmutz%=4
        gIPRINT "Der Stand muss gereinigt werden"
        PAUSE 40
    ELSEIF schmutz%=9
        gIPRINT "Der Stand muss unbedingt gereinigt werden, ansonsten wird er geschlossen"
        PAUSE 50
    ELSEIF schmutz%=10
        gIPRINT "Das Gesundheitsamt hat den Stand wegen zu viel Schmutz geschlossen"
        PAUSE 50
        STOP
    ENDIF
    IF kunden%=0
        gIPRINT "Einnahmen: 20€"
        PAUSE 30
        geld%=geld%+20
        einnahmen%=einnahmen%+20
        umsatz%=umsatz%+20
    ELSEIF kunden%=1
        gIPRINT "Einnahmen: 30€"
        PAUSE 30
        geld%=geld%+30
        einnahmen%=einnahmen%+30
        umsatz%=umsatz%+30
    ELSEIF kunden% >1
        gIPRINT "Einnahmen: 35€"
        PAUSE 30
        geld%=geld%+35
        einnahmen%=einnahmen%+35
        umsatz%=umsatz%+35
    ELSEIF kunden% >5
        gIPRINT "Einnahmen: 40€"
        PAUSE 30
        geld%=geld%+40
        einnahmen%=einnahmen%+40
        umsatz%=umsatz%+40
    ELSEIF kunden% >10
        gIPRINT "Einnahmen: 50€"
        PAUSE 30
        geld%=geld%+50
        einnahmen%=einnahmen%+50
        umsatz%=umsatz%+50
    ELSEIF kunden% >15
        gIPRINT "Einnahmen: 60€"
        PAUSE 30
        geld%=geld%+60
        einnahmen%=einnahmen%+60
        umsatz%=umsatz%+60
    ELSEIF kunden% >20
        gIPRINT "Einnahmen: 65€"
        PAUSE 30
        geld%=geld%+65
        einnahmen%=einnahmen%+65
        umsatz%=umsatz%+65
    ELSEIF kunden% >25
        gIPRINT "Einnahmen: 70€"
        PAUSE 30
        geld%=geld%+70
        einnahmen%=einnahmen%+70
        umsatz%=umsatz%+70
    ELSEIF kunden% >30
        gIPRINT "Einnahmen: 75€"
        PAUSE 30
        geld%=geld%+75
        einnahmen%=einnahmen%+75
        umsatz%=umsatz%+75
    ELSEIF kunden% >35
        gIPRINT "Einnahmen: 80€"
        PAUSE 30
        geld%=geld%+80
        einnahmen%=einnahmen%+80
        umsatz%=umsatz%+80
    ELSEIF kunden% >40
        gIPRINT "Einnahmen: 85€"
        PAUSE 30
        geld%=geld%+85
        einnahmen%=einnahmen%+85
        umsatz%=umsatz%+85
    ELSEIF kunden% >50
        gIPRINT "Einnahmen: 90€"
        PAUSE 30
        geld%=geld%+90
        einnahmen%=einnahmen%+90
        umsatz%=umsatz%+90
    ELSEIF kunden% >60
        gIPRINT "Einnahmen: 100€"
        PAUSE 30
        geld%=geld%+100
        einnahmen%=einnahmen%+100
        umsatz%=umsatz%+100
    ELSEIF kunden% >80
        gIPRINT "Einnahmen: 120€"
        PAUSE 30
        geld%=geld%+120
        einnahmen%=einnahmen%+120
        umsatz%=umsatz%+120
    ELSEIF kunden% >90
        gIPRINT "Einnahmen: 130€"
        PAUSE 30
        geld%=geld%+130
        einnahmen%=einnahmen%+130
        umsatz%=umsatz%+130
    ELSEIF kunden% >100
        gIPRINT "Einnahmen: 140€"
        PAUSE 30
        geld%=geld%+140
        einnahmen%=einnahmen%+140
        umsatz%=umsatz%+140
    ELSEIF kunden% >120
        gIPRINT "Einnahmen: 150€"
        PAUSE 30
        geld%=geld%+150
        einnahmen%=einnahmen%+150
        umsatz%=umsatz%+150
    ELSEIF kunden% >140
        gIPRINT "Einnahmen: 180€"
        PAUSE 30
        geld%=geld%+180
        einnahmen%=einnahmen%+180
        umsatz%=umsatz%+180
    ELSEIF kunden% >150
        gIPRINT "Einnahmen: 200€"
        PAUSE 30
        geld%=geld%+200
        einnahmen%=einnahmen%+200
        umsatz%=umsatz%+200
    ENDIF
    stand:
ENDP

PROC reinigen:
    CLS
    gIPRINT "Location: Stand / Point: Reinigen"
    PAUSE 30
    gIPRINT "Stand wird gereinigt"
    PAUSE 30
    gIPRINT "Stand wird gereinigt."
    PAUSE 30
    gIPRINT "Stand wird gereinigt.."
    PAUSE 30
    gIPRINT "Stand wird gereinigt..."
    PAUSE 30
    gIPRINT "Reinigung abgeschlossen"
    PAUSE 30
    gIPRINT "Verschmutzungsgrad um 1 Stufe vermindert"
    PAUSE 50
    schmutz%=schmutz%-1
    IF schmutz%=0
        gIPRINT "Der Stand ist klinisch rein"
        PAUSE 40
    ENDIF
    stand:
ENDP

PROC standnamenändern:
    CLS
    gIPRINT "Location: Stand / Point: Standnamen ändern"
    PRINT "Aktueller Name des Standes:",stand$
    PRINT "1 = Ändern"
    PRINT "2 = Zurück"
    i%=GET
    IF i%=%1
        CLS
        PRINT "Neuen Namen eingeben:"
        INPUT stand$
        CLS
        gIPRINT "Standname wurde geändert"
        PAUSE 30
        IF stand$="Hansis Wurstbude"
            gIPRINT "Cheat erfolgreich"
            PAUSE 30
            gIPRINT "Transferiere 1000 €"
            geld%=geld%+1000
            einnahmen%=einnahmen%+1000
            umsatz%=umsatz%+1000
            PAUSE 30
            gIPRINT "Erfolgreich abgeschlossen"
        ELSEIF stand$="Hansi braucht Kunden"
            gIPRINT "Cheat erfolgreich"
            PAUSE 30
            gIPRINT "Erhöhe Bekanntheitsgrad"
            PAUSE 30
            kunden%=kunden%+20
            gIPRINT "Erfolgreich abgeschlossen"
            PAUSE 30
        ENDIF
    ELSEIF i%=%2
        stand:
    ENDIF
    stand:
ENDP

PROC shop:
    CLS
    gIPRINT "Location: Shop"
    PRINT "1 = Waren kaufen"
    PRINT "2 = Aufrüsten"
    PRINT "3 = Zurück"
    i%=GET
    IF i%=%1
        warenkaufen:
    ELSEIF i%=%2
        aufrüsten:
    ELSEIF i%=%3
        main:
    ENDIF
ENDP

PROC warenkaufen:
    CLS
    gIPRINT "Location: Shop / Point: Waren kaufen"
    PRINT "1 = Würste  / 10 Stück, Preis: 5€"
    PRINT "2 = Semmeln / 10 Stück, Preis: 5€"
    PRINT "3 = Zutaten / 10 Stück, Preis: 5€"
    PRINT "4 = Ketchup / 10 Stück, Preis: 5€"
    PRINT "5 = Kohle   / 10 Stück, Preis: 5€"
    PRINT "6 = Alles 10 mal kaufen Preis: 25€"
    PRINT "7 = Zurück"
    i%=GET
    IF i%=%1
        gIPRINT "Überprüfe Kontostand..."
        PAUSE 30
        IF geld% < 5
            gIPRINT "Zu wenig Geld"
            warenkaufen:
            PAUSE 30
        ENDIF
        gIPRINT "Geld wird abgebucht..."
        geld%=geld%-5
        PAUSE 40
        gIPRINT "Buchung erfolgreich"
        PAUSE 40
        ausgaben%=ausgaben%-5
        umsatz%=umsatz%-5
        würste%=würste%+10
        warenkaufen:
    ELSEIF i%=%2
        gIPRINT "Überprüfe Kontostand..."
        PAUSE 30
        IF geld% < 5
            gIPRINT "Zu wenig Geld"
            PAUSE 30
            warenkaufen:
        ENDIF
        gIPRINT "Geld wird abgebucht..."
        geld%=geld%-5
        PAUSE 40
        gIPRINT "Buchung erfolgreich"
        PAUSE 40
        ausgaben%=ausgaben%-5
        umsatz%=umsatz%-5
        semmeln%=semmeln%+10
        warenkaufen:
    ELSEIF i%=%3
        gIPRINT "Überprüfe Kontostand..."
        PAUSE 30
        IF geld% < 5
            gIPRINT "Zu wenig Geld"
            PAUSE 30
            warenkaufen:
        ENDIF
        gIPRINT "Geld wird abgebucht..."
        geld%=geld%-5
        PAUSE 40
        gIPRINT "Buchung erfolgreich"
        PAUSE 40
        ausgaben%=ausgaben%-5
        umsatz%=umsatz%-5
        zutaten%=zutaten%+10
        warenkaufen:
    ELSEIF i%=%4
        gIPRINT "Überprüfe Kontostand..."
        PAUSE 30
        IF geld% < 5
            gIPRINT "Zu wenig Geld"
            PAUSE 30
            warenkaufen:
        ENDIF
        gIPRINT "Geld wird abgebucht..."
        geld%=geld%-5
        PAUSE 40
        gIPRINT "Buchung erfolgreich"
        PAUSE 40
        ausgaben%=ausgaben%-5
        umsatz%=umsatz%-5
        ketchup%=ketchup%+10
        warenkaufen:
    ELSEIF i%=%5
        gIPRINT "Überprüfe Kontostand..."
        PAUSE 30
        IF geld% < 5
            gIPRINT "Zu wenig Geld"
            PAUSE 30
            warenkaufen:
        ENDIF
        gIPRINT "Geld wird abgebucht..."
        geld%=geld%-5
        PAUSE 40
        gIPRINT "Buchung erfolgreich"
        PAUSE 40
        ausgaben%=ausgaben%-5
        umsatz%=umsatz%-5
        kohle%=kohle%+10
        warenkaufen:
    ELSEIF i%=%6
        gIPRINT "Überprüfe Kontostand..."
        PAUSE 30
        IF geld% < 25
            gIPRINT "Zu wenig Geld"
            PAUSE 30
            warenkaufen:
        ENDIF
        gIPRINT "Geld wird abgebucht..."
        geld%=geld%-25
        PAUSE 40
        gIPRINT "Buchung erfolgreich"
        PAUSE 40
        ausgaben%=ausgaben%-25
        umsatz%=umsatz%-25
        semmeln%=semmeln%+10
        würste%=würste%+10
        zutaten%=zutaten%+10
        ketchup%=ketchup%+10
        kohle%=kohle%+10
        warenkaufen:
    ELSEIF i%=%7
        shop:
    ENDIF
ENDP

PROC aufrüsten:
    CLS
    gIPRINT "Location: Shop / Point: Aufrüsten"
    PRINT "1 = Kühlschrank"
    PRINT "2 = Grill"
    PRINT "3 = Theke"
    PRINT "4 = Messer"
    PRINT "5 = Geschirr"
    PRINT "6 = Zurück"
    i%=GET
    IF i%=%1
        kühlschrank:
    ELSEIF i%=%2
        grill:
    ELSEIF i%=%3
        theke:
    ELSEIF i%=%4
        messer:
    ELSEIF i%=%5
        geschirr:
    ELSEIF i%=%6
        shop:
    ENDIF
ENDP

PROC kühlschrank:
    CLS
    PRINT "1 = Kühlschrank Stufe 1 / Preis: 80€"
        PRINT "2 = Kühlschrank Stufe 2 / Preis: 150€"
        PRINT "3 = Kühlschrank Stufe 3 / Preis: 220€"
        PRINT "4 = Kühlschrank Stufe 4 / Preis: 320€"
        PRINT "5 = Kühlschrank Stufe 5 / Preis: 500€"
        PRINT "6 = Zurück"
        i%=GET
        IF i%=%1
            gIPRINT "Überprüfe Aufrüsten"
            PAUSE 30
            IF kühlschrank% >0
                gIPRINT "Ist bereits Stufe 1 oder höher"
                PAUSE 30
                aufrüsten:
            ENDIF   
            gIPRINT "Überprüfe Kontostand..."
            PAUSE 30
            IF geld% < 80
                gIPRINT "Zu wenig Geld"
                PAUSE 30
                aufrüsten:
            ENDIF
            gIPRINT "Geld wird abgebucht..."
            geld%=geld%-80
            PAUSE 40
            gIPRINT "Buchung erfolgreich"
            PAUSE 40
            ausgaben%=ausgaben%-80
            kühlschrank%=kühlschrank%+1
            aufrüsten:
        ELSEIF i%=%2
            gIPRINT "Überprüfe Aufrüstung"
            PAUSE 30
            IF kühlschrank% >1
                gIPRINT "Ist bereits Stufe 2 oder höher"
                PAUSE 30
                aufrüsten:
            ELSEIF kühlschrank%=0
                gIPRINT "Stufe 1 erforderlich"
                PAUSE 30
                aufrüsten:
            ENDIF
        gIPRINT "Überprüfe Kontostand..."
        PAUSE 30
        IF geld% < 150
            gIPRINT "Zu wenig Geld"
            PAUSE 30
            aufrüsten:
        ENDIF
        gIPRINT "Geld wird abgebucht..."
        geld%=geld%-150
        PAUSE 40
        gIPRINT "Buchung erfolgreich"
        PAUSE 40
        ausgaben%=ausgaben%-150
        kühlschrank%=kühlschrank%+1
        aufrüsten:
    ELSEIF i%=%3
            gIPRINT "Überprüfe Aufrüsten"
            PAUSE 30
            IF kühlschrank% >2
                gIPRINT "Ist bereits Stufe 3 oder höher"
                PAUSE 30
                aufrüsten:
            ELSEIF kühlschrank%=1
                gIPRINT "Stufe 2 erforderlich"
                PAUSE 30
                aufrüsten:
            ENDIF   
            gIPRINT "Überprüfe Kontostand..."
            PAUSE 30
            IF geld% < 220
                gIPRINT "Zu wenig Geld"
                PAUSE 30
                aufrüsten:
            ENDIF
            gIPRINT "Geld wird abgebucht..."
            geld%=geld%-220
            PAUSE 40
            gIPRINT "Buchung erfolgreich"
            PAUSE 40
            ausgaben%=ausgaben%-220
            kühlschrank%=kühlschrank%+1
            aufrüsten:
        ELSEIF i%=%4
            gIPRINT "Überprüfe Aufrüsten"
            PAUSE 30
            IF kühlschrank% >3
                gIPRINT "Ist bereits Stufe 4 oder höher"
                PAUSE 30
                aufrüsten:
            ELSEIF kühlschrank%=2
                gIPRINT "Stufe 3 erforderlich"
                PAUSE 30
                aufrüsten:
            ENDIF   
            gIPRINT "Überprüfe Kontostand..."
            PAUSE 30
            IF geld% < 320
                gIPRINT "Zu wenig Geld"
                PAUSE 30
                aufrüsten:
            ENDIF
            gIPRINT "Geld wird abgebucht..."
            geld%=geld%-320
            PAUSE 40
            gIPRINT "Buchung erfolgreich"
            PAUSE 40
            ausgaben%=ausgaben%-320
            kühlschrank%=kühlschrank%+1
            aufrüsten:
    ELSEIF i%=%5
        gIPRINT "Überprüfe Aufrüsten"
        PAUSE 30
        IF kühlschrank% >4
            gIPRINT "Ist bereits Stufe 5"
            PAUSE 30
            aufrüsten:
        ELSEIF kühlschrank%=3
            gIPRINT "Stufe 4 erforderlich"
            PAUSE 30
            aufrüsten:
        ENDIF   
        gIPRINT "Überprüfe Kontostand..."
        PAUSE 30
        IF geld% < 500
            gIPRINT "Zu wenig Geld"
            aufrüsten:
            PAUSE 30
        ENDIF
        gIPRINT "Geld wird abgebucht..."
        geld%=geld%-500
        PAUSE 40
        gIPRINT "Buchung erfolgreich"
        PAUSE 40
        ausgaben%=ausgaben%-500
        kühlschrank%=kühlschrank%+1
        aufrüsten:
    ELSEIF i%=%6
        CLS
        shop:
    ENDIF
ENDP

PROC grill:
    CLS
    PRINT "1 = Grill Stufe 1 / Preis: 80€"
    PRINT "2 = Grill Stufe 2 / Preis: 150€"
    PRINT "3 = Grill Stufe 3 / Preis: 220€"
    PRINT "4 = Grill Stufe 4 / Preis: 320€"
    PRINT "5 = Grill Stufe 5 / Preis: 500€"
    PRINT "6 = Zurück"
    i%=GET
    IF i%=%1
        gIPRINT "Überprüfe Aufrüsten"
        PAUSE 30
        IF grill% >0
            gIPRINT "Ist bereits Stufe 1 oder höher"
            PAUSE 30
            aufrüsten:
        ENDIF   
        gIPRINT "Überprüfe Kontostand..."
        PAUSE 30
        IF geld% < 80
            gIPRINT "Zu wenig Geld"
            PAUSE 30
            aufrüsten:
        ENDIF
        gIPRINT "Geld wird abgebucht..."
        geld%=geld%-80
        PAUSE 40
        gIPRINT "Buchung erfolgreich"
        PAUSE 40
        ausgaben%=ausgaben%-80
        grill%=grill%+1
        aufrüsten:
    ELSEIF i%=%2
        gIPRINT "Überprüfe Aufrüstung"
        PAUSE 30
        IF grill% >1
            gIPRINT "Ist bereits Stufe 2 oder höher"
            PAUSE 30
            aufrüsten:
        ELSEIF grill%=0
            gIPRINT "Stufe 1 erforderlich"
            PAUSE 30
            aufrüsten:
        ENDIF
        gIPRINT "Überprüfe Kontostand..."
        PAUSE 30
        IF geld% < 150
            gIPRINT "Zu wenig Geld"
            PAUSE 30
            aufrüsten:
        ENDIF
        gIPRINT "Geld wird abgebucht..."
        geld%=geld%-150
        PAUSE 40
        gIPRINT "Buchung erfolgreich"
        PAUSE 40
        ausgaben%=ausgaben%-150
        grill%=grill%+1
        aufrüsten:
    ELSEIF i%=%3
            gIPRINT "Überprüfe Aufrüsten"
            PAUSE 30
            IF grill% >2
                gIPRINT "Ist bereits Stufe 3 oder höher"
                PAUSE 30
                aufrüsten:
            ELSEIF grill%=1
                gIPRINT "Stufe 2 erforderlich"
                PAUSE 30
                aufrüsten:
            ENDIF   
            gIPRINT "Überprüfe Kontostand..."
            PAUSE 30
            IF geld% < 220
                gIPRINT "Zu wenig Geld"
                PAUSE 30
                aufrüsten:
            ENDIF
            gIPRINT "Geld wird abgebucht..."
            geld%=geld%-220
            PAUSE 40
            gIPRINT "Buchung erfolgreich"
            PAUSE 40
            ausgaben%=ausgaben%-220
            grill%=grill%+1
            aufrüsten:
        ELSEIF i%=%4
            gIPRINT "Überprüfe Aufrüsten"
            PAUSE 30
            IF grill% >3
                gIPRINT "Ist bereits Stufe 4 oder höher"
                PAUSE 30
                aufrüsten:
            ELSEIF grill%=2
                gIPRINT "Stufe 3 erforderlich"
                PAUSE 30
                aufrüsten:
            ENDIF   
            gIPRINT "Überprüfe Kontostand..."
            PAUSE 30
            IF geld% < 320
                gIPRINT "Zu wenig Geld"
                PAUSE 30
                aufrüsten:
            ENDIF
            gIPRINT "Geld wird abgebucht..."
            geld%=geld%-320
            PAUSE 40
            gIPRINT "Buchung erfolgreich"
            PAUSE 40
            ausgaben%=ausgaben%-320
            grill%=grill%+1
            aufrüsten:
    ELSEIF i%=%5
        gIPRINT "Überprüfe Aufrüsten"
        PAUSE 30
        IF grill% >4
            gIPRINT "Ist bereits Stufe 5"
            PAUSE 30
            aufrüsten:
        ELSEIF grill%=3
            gIPRINT "Stufe 4 erforderlich"
            PAUSE 30
            aufrüsten:
        ENDIF   
        gIPRINT "Überprüfe Kontostand..."
        PAUSE 30
        IF geld% < 500
            gIPRINT "Zu wenig Geld"
            aufrüsten:
            PAUSE 30
        ENDIF
        gIPRINT "Geld wird abgebucht..."
        geld%=geld%-500
        PAUSE 40
        gIPRINT "Buchung erfolgreich"
        PAUSE 40
        ausgaben%=ausgaben%-500
        grill%=grill%+1
        aufrüsten:
    ELSEIF i%=%6
        CLS
        shop:
    ENDIF
ENDP

PROC theke:
    CLS
        PRINT "1 = Theke Stufe 1 / Preis: 80€"
        PRINT "2 = Theke Stufe 2 / Preis: 150€"
        PRINT "3 = Theke Stufe 3 / Preis: 220€"
        PRINT "4 = Theke Stufe 4 / Preis: 320€"
        PRINT "5 = Theke Stufe 5 / Preis: 500€"
        PRINT "6 = Zurück"
        i%=GET
        IF i%=%1
            gIPRINT "Überprüfe Aufrüsten"
            PAUSE 30
            IF theke% >0
                gIPRINT "Ist bereits Stufe 1 oder höher"
                PAUSE 30
                aufrüsten:
            ENDIF   
            gIPRINT "Überprüfe Kontostand..."
            PAUSE 30
            IF geld% < 80
                gIPRINT "Zu wenig Geld"
                PAUSE 30
                aufrüsten:
            ENDIF
            gIPRINT "Geld wird abgebucht..."
            geld%=geld%-80
            PAUSE 40
            gIPRINT "Buchung erfolgreich"
            PAUSE 40
            ausgaben%=ausgaben%-80
            theke%=theke%+1
            aufrüsten:
        ELSEIF i%=%2
            gIPRINT "Überprüfe Aufrüstung"
            PAUSE 30
            IF theke% >1
                gIPRINT "Ist bereits Stufe 2 oder höher"
                PAUSE 30
                aufrüsten:
            ELSEIF theke%=0
                gIPRINT "Stufe 1 erforderlich"
                PAUSE 30
                aufrüsten:
            ENDIF
        gIPRINT "Überprüfe Kontostand..."
        PAUSE 30
        IF geld% < 150
            gIPRINT "Zu wenig Geld"
            PAUSE 30
            aufrüsten:
        ENDIF
        gIPRINT "Geld wird abgebucht..."
        geld%=geld%-150
        PAUSE 40
        gIPRINT "Buchung erfolgreich"
        PAUSE 40
        ausgaben%=ausgaben%-150
        theke%=theke%+1
        aufrüsten:
    ELSEIF i%=%3
            gIPRINT "Überprüfe Aufrüsten"
            PAUSE 30
            IF theke% >2
                gIPRINT "Ist bereits Stufe 3 oder höher"
                PAUSE 30
                aufrüsten:
            ELSEIF theke%=1
                gIPRINT "Stufe 2 erforderlich"
                PAUSE 30
                aufrüsten:
            ENDIF   
            gIPRINT "Überprüfe Kontostand..."
            PAUSE 30
            IF geld% < 220
                gIPRINT "Zu wenig Geld"
                PAUSE 30
                aufrüsten:
            ENDIF
            gIPRINT "Geld wird abgebucht..."
            geld%=geld%-220
            PAUSE 40
            gIPRINT "Buchung erfolgreich"
            PAUSE 40
            ausgaben%=ausgaben%-220
            theke%=theke%+1
            aufrüsten:
        ELSEIF i%=%4
            gIPRINT "Überprüfe Aufrüsten"
            PAUSE 30
            IF theke% >3
                gIPRINT "Ist bereits Stufe 4 oder höher"
                PAUSE 30
                aufrüsten:
            ELSEIF theke%=2
                gIPRINT "Stufe 3 erforderlich"
                PAUSE 30
                aufrüsten:
            ENDIF   
            gIPRINT "Überprüfe Kontostand..."
            PAUSE 30
            IF geld% < 320
                gIPRINT "Zu wenig Geld"
                PAUSE 30
                aufrüsten:
            ENDIF
            gIPRINT "Geld wird abgebucht..."
            geld%=geld%-320
            PAUSE 40
            gIPRINT "Buchung erfolgreich"
            PAUSE 40
            ausgaben%=ausgaben%-320
            theke%=theke%+1
            aufrüsten:
    ELSEIF i%=%5
        gIPRINT "Überprüfe Aufrüsten"
        PAUSE 30
        IF theke% >4
            gIPRINT "Ist bereits Stufe 5"
            PAUSE 30
            aufrüsten:
        ELSEIF theke%=3
            gIPRINT "Stufe 4 erforderlich"
            PAUSE 30
            aufrüsten:
        ENDIF   
        gIPRINT "Überprüfe Kontostand..."
        PAUSE 30
        IF geld% < 500
            gIPRINT "Zu wenig Geld"
            aufrüsten:
            PAUSE 30
        ENDIF
        gIPRINT "Geld wird abgebucht..."
        geld%=geld%-500
        PAUSE 40
        gIPRINT "Buchung erfolgreich"
        PAUSE 40
        ausgaben%=ausgaben%-500
        theke%=theke%+1
        aufrüsten:
    ELSEIF i%=%6
        CLS
        shop:
    ENDIF
ENDP

PROC messer:
    CLS
        PRINT "1 = Messer Stufe 1 / Preis: 80€"
        PRINT "2 = Messer Stufe 2 / Preis: 150€"
        PRINT "3 = Messer Stufe 3 / Preis: 220€"
        PRINT "4 = Messer Stufe 4 / Preis: 320€"
        PRINT "5 = Messer Stufe 5 / Preis: 500€"
        PRINT "6 = Zurück"
        i%=GET
        IF i%=%1
            gIPRINT "Überprüfe Aufrüsten"
            PAUSE 30
            IF messer% >0
                gIPRINT "Ist bereits Stufe 1 oder höher"
                PAUSE 30
                aufrüsten:
            ENDIF   
            gIPRINT "Überprüfe Kontostand..."
            PAUSE 30
            IF geld% < 80
                gIPRINT "Zu wenig Geld"
                PAUSE 30
                aufrüsten:
            ENDIF
            gIPRINT "Geld wird abgebucht..."
            geld%=geld%-80
            PAUSE 40
            gIPRINT "Buchung erfolgreich"
            PAUSE 40
            ausgaben%=ausgaben%-80
            messer%=messer%+1
            aufrüsten:
        ELSEIF i%=%2
            gIPRINT "Überprüfe Aufrüstung"
            PAUSE 30
            IF messer% >1
                gIPRINT "Ist bereits Stufe 2 oder höher"
                PAUSE 30
                aufrüsten:
            ELSEIF messer%=0
                gIPRINT "Stufe 1 erforderlich"
                PAUSE 30
                aufrüsten:
            ENDIF
        gIPRINT "Überprüfe Kontostand..."
        PAUSE 30
        IF geld% < 150
            gIPRINT "Zu wenig Geld"
            PAUSE 30
            aufrüsten:
        ENDIF
        gIPRINT "Geld wird abgebucht..."
        geld%=geld%-150
        PAUSE 40
        gIPRINT "Buchung erfolgreich"
        PAUSE 40
        ausgaben%=ausgaben%-150
        messer%=messer%+1
        aufrüsten:
    ELSEIF i%=%3
            gIPRINT "Überprüfe Aufrüsten"
            PAUSE 30
            IF messer% >2
                gIPRINT "Ist bereits Stufe 3 oder höher"
                PAUSE 30
                aufrüsten:
            ELSEIF messer%=1
                gIPRINT "Stufe 2 erforderlich"
                PAUSE 30
                aufrüsten:
            ENDIF   
            gIPRINT "Überprüfe Kontostand..."
            PAUSE 30
            IF geld% < 220
                gIPRINT "Zu wenig Geld"
                PAUSE 30
                aufrüsten:
            ENDIF
            gIPRINT "Geld wird abgebucht..."
            geld%=geld%-220
            PAUSE 40
            gIPRINT "Buchung erfolgreich"
            PAUSE 40
            ausgaben%=ausgaben%-220
            messer%=messer%+1
            aufrüsten:
        ELSEIF i%=%4
            gIPRINT "Überprüfe Aufrüsten"
            PAUSE 30
            IF messer% >3
                gIPRINT "Ist bereits Stufe 4 oder höher"
                PAUSE 30
                aufrüsten:
            ELSEIF messer%=2
                gIPRINT "Stufe 3 erforderlich"
                PAUSE 30
                aufrüsten:
            ENDIF   
            gIPRINT "Überprüfe Kontostand..."
            PAUSE 30
            IF geld% < 320
                gIPRINT "Zu wenig Geld"
                PAUSE 30
                aufrüsten:
            ENDIF
            gIPRINT "Geld wird abgebucht..."
            geld%=geld%-320
            PAUSE 40
            gIPRINT "Buchung erfolgreich"
            PAUSE 40
            ausgaben%=ausgaben%-320
            messer%=messer%+1
            aufrüsten:
    ELSEIF i%=%5
        gIPRINT "Überprüfe Aufrüsten"
        PAUSE 30
        IF messer% >4
            gIPRINT "Ist bereits Stufe 5"
            PAUSE 30
            aufrüsten:
        ELSEIF messer%=3
            gIPRINT "Stufe 4 erforderlich"
            PAUSE 30
            aufrüsten:
        ENDIF   
        gIPRINT "Überprüfe Kontostand..."
        PAUSE 30
        IF geld% < 500
            gIPRINT "Zu wenig Geld"
            aufrüsten:
            PAUSE 30
        ENDIF
        gIPRINT "Geld wird abgebucht..."
        geld%=geld%-500
        PAUSE 40
        gIPRINT "Buchung erfolgreich"
        PAUSE 40
        ausgaben%=ausgaben%-500
        messer%=messer%+1
        aufrüsten:
    ELSEIF i%=%6
        CLS
        shop:
    ENDIF
ENDP

PROC geschirr:
    CLS
        PRINT "1 = Geschirr Stufe 1 / Preis: 80€"
        PRINT "2 = Geschirr Stufe 2 / Preis: 150€"
        PRINT "3 = Geschirr Stufe 3 / Preis: 220€"
        PRINT "4 = Geschirr Stufe 4 / Preis: 320€"
        PRINT "5 = Geschirr Stufe 5 / Preis: 500€"
        PRINT "6 = Zurück"
        i%=GET
        IF i%=%1
            gIPRINT "Überprüfe Aufrüsten"
            PAUSE 30
            IF geschirr% >0
                gIPRINT "Ist bereits Stufe 1 oder höher"
                PAUSE 30
                aufrüsten:
            ENDIF   
            gIPRINT "Überprüfe Kontostand..."
            PAUSE 30
            IF geld% < 80
                gIPRINT "Zu wenig Geld"
                PAUSE 30
                aufrüsten:
            ENDIF
            gIPRINT "Geld wird abgebucht..."
            geld%=geld%-80
            PAUSE 40
            gIPRINT "Buchung erfolgreich"
            PAUSE 40
            ausgaben%=ausgaben%-80
            geschirr%=geschirr%+1
            aufrüsten:
        ELSEIF i%=%2
            gIPRINT "Überprüfe Aufrüstung"
            PAUSE 30
            IF geschirr% >1
                gIPRINT "Ist bereits Stufe 2 oder höher"
                PAUSE 30
                aufrüsten:
            ELSEIF geschirr%=0
                gIPRINT "Stufe 1 erforderlich"
                PAUSE 30
                aufrüsten:
            ENDIF
        gIPRINT "Überprüfe Kontostand..."
        PAUSE 30
        IF geld% < 150
            gIPRINT "Zu wenig Geld"
            PAUSE 30
            aufrüsten:
        ENDIF
        gIPRINT "Geld wird abgebucht..."
        geld%=geld%-150
        PAUSE 40
        gIPRINT "Buchung erfolgreich"
        PAUSE 40
        ausgaben%=ausgaben%-150
        geschirr%=geschirr%+1
        aufrüsten:
    ELSEIF i%=%3
            gIPRINT "Überprüfe Aufrüsten"
            PAUSE 30
            IF geschirr% >2
                gIPRINT "Ist bereits Stufe 3 oder höher"
                PAUSE 30
                aufrüsten:
            ELSEIF geschirr%=1
                gIPRINT "Stufe 2 erforderlich"
                PAUSE 30
                aufrüsten:
            ENDIF   
            gIPRINT "Überprüfe Kontostand..."
            PAUSE 30
            IF geld% < 220
                gIPRINT "Zu wenig Geld"
                PAUSE 30
                aufrüsten:
            ENDIF
            gIPRINT "Geld wird abgebucht..."
            geld%=geld%-220
            PAUSE 40
            gIPRINT "Buchung erfolgreich"
            PAUSE 40
            ausgaben%=ausgaben%-220
            geschirr%=geschirr%+1
            aufrüsten:
        ELSEIF i%=%4
            gIPRINT "Überprüfe Aufrüsten"
            PAUSE 30
            IF geschirr% >3
                gIPRINT "Ist bereits Stufe 4 oder höher"
                PAUSE 30
                aufrüsten:
            ELSEIF geschirr%=2
                gIPRINT "Stufe 3 erforderlich"
                PAUSE 30
                aufrüsten:
            ENDIF   
            gIPRINT "Überprüfe Kontostand..."
            PAUSE 30
            IF geld% < 320
                gIPRINT "Zu wenig Geld"
                PAUSE 30
                aufrüsten:
            ENDIF
            gIPRINT "Geld wird abgebucht..."
            geld%=geld%-320
            PAUSE 40
            gIPRINT "Buchung erfolgreich"
            PAUSE 40
            ausgaben%=ausgaben%-320
            geschirr%=geschirr%+1
            aufrüsten:
    ELSEIF i%=%5
        gIPRINT "Überprüfe Aufrüsten"
        PAUSE 30
        IF geschirr% >4
            gIPRINT "Ist bereits Stufe 5"
            PAUSE 30
            aufrüsten:
        ELSEIF geschirr%=3
            gIPRINT "Stufe 4 erforderlich"
            PAUSE 30
            aufrüsten:
        ENDIF   
        gIPRINT "Überprüfe Kontostand..."
        PAUSE 30
        IF geld% < 500
            gIPRINT "Zu wenig Geld"
            aufrüsten:
            PAUSE 30
        ENDIF
        gIPRINT "Geld wird abgebucht..."
        geld%=geld%-500
        PAUSE 40
        gIPRINT "Buchung erfolgreich"
        PAUSE 40
        ausgaben%=ausgaben%-500
        geschirr%=geschirr%+1
        aufrüsten:
    ELSEIF i%=%6
        CLS
        shop:
    ENDIF
ENDP

PROC bank:
    CLS
    gIPRINT "Location: Bank"
    PRINT "1 = Kredit aufnehmen"
    PRINT "2 = Kredit abzahlen (Komplett)"
    PRINT "3 = Zurück"
    i%=GET
    IF i%=%1
        kreditaufnehmen:
    ELSEIF i%=%2
        kreditabzahlen:
    ELSEIF i%=%3
        main:
    ENDIF
ENDP

PROC kreditaufnehmen:
    CLS
    gIPRINT "Location: Bank / Point: Kredit aufnehmen"
    PRINT "1 = 500 €"
    PRINT "2 = 1000 €"
    PRINT "3 = 2000 €"
    PRINT "4 = Zurück"
    i%=GET
    IF i%=%1
        gIPRINT "Überprüfe Einnahmen"
        PAUSE 40
        IF kunden% >1
            gIPRINT "Kredit bewilligt"
            PAUSE 30
        ELSEIF kunden% <1
            gIPRINT "Einkommen zu niedrig"
            PAUSE 30
            bank:
        ENDIF
        gIPRINT "Überweise Geld"
        PAUSE 40
        geld%=geld%+500
        umsatz%=umsatz%+500
        einnahmen%=einnahmen%+500
        schulden%=schulden%+500
        bank:
    ELSEIF i%=%2
        gIPRINT "Überprüfe Einnahmen"
        PAUSE 40
        IF kunden% >15
            gIPRINT "Kredit bewilligt"
            PAUSE 30
        ELSEIF kunden% <15
            gIPRINT "Einkommen zu niedrig"
            PAUSE 30
            bank:
        ENDIF
        gIPRINT "Überweise Geld"
        PAUSE 40
        geld%=geld%+1000
        umsatz%=umsatz%+1000
        einnahmen%=einnahmen%+1000
        schulden%=schulden%+1000
        bank:
    ELSEIF i%=%3
        gIPRINT "Überprüfe Einnahmen"
        PAUSE 40
        IF kunden% >40
            gIPRINT "Kredit bewilligt"
            PAUSE 30
        ELSEIF kunden% <40
            gIPRINT "Einkommen zu niedrig"
            PAUSE 30
            bank:
        ENDIF
        gIPRINT "Überweise Geld"
        PAUSE 40
        geld%=geld%+2000
        umsatz%=umsatz%+2000
        einnahmen%=einnahmen%+2000
        schulden%=schulden%+2000
        bank:
    ENDIF
ENDP

PROC kreditabzahlen:
    gIPRINT "Überprüfe Konto"
    PAUSE 40
    IF geld% < schulden%
        gIPRINT "Zu wenig Geld"
        PAUSE 30
        bank:
    ELSEIF geld% = schulden% OR geld% > schulden%
        geld%=geld%-schulden%
        schulden%=schulden%-schulden%
        bank:
    ENDIF
ENDP

PROC spiel:
    CLS
    gIPRINT "Location: Spiel"
    PRINT "1 = Namen ändern"
    PRINT "2 = Spiel speichern"
    PRINT "3 = Spiel laden"
    PRINT "4 = Spiel beenden"
    PRINT "5 = Zurück"
    i%=GET
    IF i%=%1
        namenändern:
    ELSEIF i%=%2
        spielspeichern:
    ELSEIF i%=%3
        spielladen:
    ELSEIF i%=%4
        spielbeenden:
    ELSEIF i%=%5
        main:
    ENDIF
ENDP

PROC namenändern:
    CLS
    gIPRINT "Location: Spiel / Point: Namen ändern"
    PRINT "Aktueller Name:",name$
    PRINT "                         "
    PRINT "Neuen Namen eingeben:"
    INPUT name$
    spiel:
ENDP

PROC spielspeichern:
    gIPRINT "Überprüfe Spielstände"
    PAUSE 40
    TRAP MKDIR "C:SystemAppsHansWurstSavegame"
    IF EXIST (savegame$)
        gIPRINT "Alten Spielstand gefunden"
        PAUSE 30
        CLS
        PRINT "Alten Spielstand überschreiben ?"
        PRINT "(j)a (n)ein"
        i%=GET
        IF i%=%j
            DELETE savegame$
            CREATE "C:SystemAppsHansWurstSavegameSavegame.hw",A,name$,stand$,geld%,einnahmen%,ausgaben%,umsatz%,theke%,kühlschrank%,zutaten%,stand%,semmeln%,würste%,grill%,geschirr%,kohle%,kasse%,senf%,ketchup%,messer%,schulden%,tage%,schmutz%,kunden%
            gIPRINT "Spiel gespeichert"
            PAUSE 40
            CLOSE
            spiel:
        ELSEIF i%=%n
            spiel:
        ENDIF
    ELSE
        CREATE "C:SystemAppsHansWurstSavegameSavegame.hw",A,name$,stand$,geld%,einnahmen%,ausgaben%,umsatz%,theke%,kühlschrank%,zutaten%,stand%,semmeln%,würste%,grill%,geschirr%,kohle%,kasse%,senf%,ketchup%,messer%,schulden%,tage%,schmutz%,kunden%
        gIPRINT "Spiel gespeichert"
        CLOSE
        PAUSE 40
        spiel:
    ENDIF
ENDP

PROC spielladen:
    gIPRINT "Suche Spielstand"
    PAUSE 40
    IF EXIST (savegame$)
        OPEN savegame$,A,name$,stand$,geld%,einnahmen%,ausgaben%,umsatz%,theke%,kühlschrank%,zutaten%,stand%,semmeln%,würste%,grill%,geschirr%,kohle%,kasse%,senf%,ketchup%,messer%,schulden%,tage%,schmutz%,kunden%
        gIPRINT "Spiel geladen"
        CLOSE
        PAUSE 30
        spiel:
    ELSE
        gIPRINT "Kein Spielstand vorhanden"
        PAUSE 40
        spiel:
    ENDIF
ENDP

PROC spielbeenden:
    CLS
    gIPRINT "Beende..."
    PAUSE 50
    CLS
    STOP
ENDP
 
  Gesamt waren schon 7226 Besucher (17488 Hits) hier! Copyrig(C) 2009 by FireShockStudios  
 
=> Willst du auch eine kostenlose Homepage? Dann klicke hier! <=