00100		title s
00200	external jobtpc,jobapr
00300	intrp:	ttcall 3,[asciz/there
00400	/]
00500		jrst 2,@jobtpc
00600	
00700	start:	calli
00800		movei intrp
00900		movem jobapr
01000		movei 10+100+200000
01100		calli 16
01200		move 1,[10e35]
01300		fmpr 1,1
01400		calli 12
01500		end start