Function apfelernte()
t0=Input("        =")
Cls


If t0=2 Then
nett=nett-1
abhauen2()
EndIf
If t0=1 Then
gold=gold+1
nett=nett+1
apfelgeben()
EndIf
If t0=>2 Then
apfelernte()
Else
apfelernte()
EndIf
End Function

If t0=>2 Then

Function appfelernte()
bilder()
Locate 0,200
werte()
Print"        Du machst was die Magd sagt. Du erntest die Äpfel."
Print"        Aber es ist sehr warm. Die Sonne steht weit oben am Himmel."
Print"        Es muss schon Mittag sein, denn du hast grossen Hunger"
Print"        Aber dein Vater gibt dir trotzdem nichts zum essen. Vieleicht verstehst"
Print"        du warum sie dich bestrafen, vieleicht auch nicht. Na ja,"
Print"        ist ja auch egal. Aber so kann es einfach nicht weiter gehen."
Print""
Print"        mit 1. gibst du der Magd die Äpfel und hoffst, dass du etwas Essen bekommst."
Print"        mit 2. gehst du zur Magd, schreist sie grundlos an, isst die Äpfel die du "
Print"               geplückt hast und rennst weg."

t0=Input("        =")
Cls

If t0=1 Then
gold=gold+1
nett=nett+1
apfelgeben()
EndIf

If t0=2 Then
nett=nett-1
abhauen2()

Else
appfelernte()
EndIf
End Function

t6=Input("        :")
Cls
If t6=1 Then
blick()
EndIf
If t6=2 Then
nett=nett-1
abhauen3()

Else
abhauen2()
EndIf
End Function

;Grafik und Variablengedöns, halt alles was das spiel braucht
next_function$ = "start"


repeat
 select next_function$
  case "start" next_function$ = start()
  case "ende" next_function$ = ende()
forever

function start$()
 repeat
  if keyhit(1) then return "ende"
 forever
end function

function ende$()
 end
end function