fc TAPE 141-100-1 READ-IN AND CHECK ROTENBERG
32|-1	DITTO
50|a1,cab2	si455	cab3	bo32	cab2	adb3	tsb2	aob1	cpa1	sp0
a2,ca32	mh32	slh15	ad32	mhb4	su1	a3,sub5	tsb6	cpa4	aob7	cab6
spa3	a4,aob7	mhb7	slh15	tsb7	cab6	adb5	adb7	tsb7	aob7	a5,si451
rd0	cpa6	a7,aob8	cab7	adb4	tsb7	spa5	a6,tsb6	cmb6	su0	cpa8
spa7	a8,cab8	su0	cpa9	a11,cab8	ts2	sp0	a9,caa10	ts2a7	cab9	tsa11
cab7	a10,sub4	tsb7	spa5	b1,-1279	b2,0.04000	b3,+16	b4,+2	b5,+2047	b6,+0
b7,+0	b8,+0	b9,csb8
START AT a1
m