9 	SUBROUTINE GAME  subroutine
32 C GAME, PAGE 2  argument
43 100	WINNER=PLAYER
52 150	CONTINUE
80 C GAME, PAGE 3  argument
85 1000	CALL RDLINE(INBUF,INLNT,0)
91 1100	CONTINUE
99 1200	CONTINUE
131 C GAME, PAGE 4  argument
136 2000	IF(and(OFLAG2(PRSO),ACTRBT).NE.0) GO TO 2100
142 2100	WINNER=OACTOR(PRSO)
149 2700	I=341
154 2600	WINNER=PLAYER
159 2150	IF(AAPPLI(AACTIO(WINNER))) GO TO 2400
166 2350	F=RAPPLI(RACTIO(HERE))
168 2400	CALL XENDMV(TELFLG)
173 2900	CALL VALUAC(VALUA)