dim sheep      dynamic array values [to be found];
dim revenues   int value 0;
dim sharecount longint;
dim pr_text    char[1024] value ".... .... ....";
static year;
static cash, consulting_expenses int;

program init;
set year = 1965;
set cash = 100;
set share_count = 1;

repeat until cash = 0

	refr(0;share_count);
       cash=cash-1;
	year=year+1;

end repeat;

exit(printf ('Ch.7'));

#functions

function refr(revenues(), share_count)
	do hype (sheep, cash);
	underwriter= rnd(0,1);
	do placement(underwriter);
return 0;

function hype(sheep, consulting_expenses)
	consulting_expenses=-1;
	printf ('pr_text';year+1);
	reshuffle(sheep, sheep);
return 0;

function revenues(void)
# (code missing in text)
return 0;

function placement(underwriter)
	if underwriter = true 
		cash=+rnd(0,1)*share_count
		sharecount=+rnd(0,1)
	endif;
return(nothing);