  100	dim a[10]
  110	data 1, 4, 9, 16, 25, 36, 49, 64, 81, 100
  120	mat read a
  130	for i = 1 to 5
  140		print 'number';
  150		input k
  160		for j = 1 to 10
  170			if a[j] = k then goto 200
  180		next j
  190		print k; 'not in the list'
  195		goto 240
  200		print k; 'is in the list'
  210		goto 130
  240	next i
  250	end
