C	number game demonstration routine
	SUBROUTINE list matrix
	DIMENSION n(7,3)
	COMMON n
	PRINT [.row 1 row 2 row 3.]
	DO 300 i=1,7
	PRINT [.]
	DO 300 j=1,3
300	PRINT n(i,j)[ ,4,0]
	RETURN
	END
	SUBROUTINE interchange elements
	DIMENSION n(7,3),ntemp(7,3)
	COMMON n
10	PRINT [.row? ]
	READ KEYBOARD l
	IF(l-1)10,1,20
20	IF(l-2)10,3,30
30	IF(l-3)10,3,10
1	l=4
3	m=1
	l=l-1
	DO 5 i=1,7
	DO 5 j=1,3
	ntemp(i,j)=n(m,l)
	IF(m-7)5,4,4
4	m=0
	l=l+1
	IF(l-3)5,5,6
6	l=1
5	m=m+1
	DO 2 i=1,7
	DO 2 j=1,3
2	n(i,j)=ntemp(i,j)
	RETURN
	END
	DIMENSION n(7,3)
	COMMON n
	k=10
	DO 200 i=1,7
	DO 200 j=1,3
	k=k+i
200	n(i,j)=k
100	PRINT [..pick a number and tell me][ which row it is in.]
	nn=0
400	CALL list matrix
	nn=nn+1
	IF(nn-3)500,600,600
500	CALL interchange elements
	PRINT [.now which row is your number in?.]
	GO TO 400
600	PRINT [.row? ]
	READ KEYBOARD l
	i=4
	IF(l-3)700,800,600
700	IF(l-1)600,800,800
800	PRINT n(i,l)[.the number you selected was  ,.,4,0]
	PAUSE 7
	GO TO 100
	END