begin	comment PAVLOV-hondje dat graag biefstuk eet.
		Demonstratieprogramma van L. Meertens;
	real associatie, vertrouwen, intelligentie, tijdfactor;
	switch Food:= bel, biefstuk, bel en bief;
	Boolean procedure KWIJL; KWIJL:= associatie * vertrouwen > RANDOM;
	procedure Tiktak; vertrouwen:= 1 - (1 - vertrouwen) * (1 - intelligentie * tijdfactor);

	SETRANDOM (.795786); associatie:= 0; vertrouwen:= 1;
	intelligentie:= read / 100; tijdfactor:= read;
Wacht:	Tiktak; if XEEN (-1) >= 0 then go to Wacht; NLCR;
even:	if XEEN (-1) < 0 then go to even;
	go to if XEEN (3) != 0 then Food[XEEN (3)] else Wacht;
bel:	PRINTTEXT ("bel"); TAB;
	if KWIJL then begin PRINTTEXT ("Hondje kwijlt"); vertrouwen:= vertrouwen * (1 - intelligentie) end
		 else PRINTTEXT ("Geen reactie");
	go to Wacht;
biefstuk:  SPACE (4);
hap:	PRINTTEXT ("biefstuk"); TAB; PRINTTEXT ("Hondje eet biefstuk"); go to Wacht;
bel en bief:  PRINTTEXT ("bel ");
	associatie:= 1 - (1 - associatie) * (1 - intelligentie);
	vertrouwen:= 1 - (1 - vertrouwen) * (1 - intelligentie);
	go to hap
end