 1000	data 1, 2, 3
 1010	data 3*5
 1020	data 9, 8, 7
 1030	data 2*'str', 'string'
 1040	dim a[3,3], a$[3]
 1050	mat read a, a$
 1060	mat print a
 1070	mat print a$
 1080	end
