SAY "Bist du ein Pirat, wenn ja, schreibe ja, wenn nein schreibe nein"
PULL pirat

IF pirat = ja THEN SIGNAL piratsein

ELSE CALL keinpiratsein

EXIT 0



piratsein:
	SAY "Arr dann lass uns ein Schiff zusammen stehlen!"
	EXIT -1 




::ROUTINE keinpiratsein
  	SAY "M��chtest du ein Pirat werden? ja oder nein?"
  	PULL fragepirat
  	SAY fragepirat "ist also deine Antwort? "

  IF fragepirat = ja THEN CALL jaa
  IF fragepirat = nein THEN CALL neinn 

  EXIT 0 


	 
::ROUTINE jaa
  	SAY "Arr das ist die richtige Antowrt. Komm, ich zeige dir, wie man Schiffe stiehlt!"

::ROUTINE neinn
  	SAY "Du bist ja langweilig!"