00100	TITLE LINKS
00200	
00300		POP1J.:SUB 17,[XWD 2,2]↔JRST@2(17)
00400	
00500		DEFINE DATUM(NAM,WRD){
00600		INTERN NAM↔NAM:↔MOVE 1,-1(17)
00700		MOVE 1,WRD(1)↔JRST POP1J.}
00800	
00900		DEFINE LEFT(NAM,WRD){
01000		INTERN NAM↔NAM:↔MOVE 1,-1(17)
01100		HLRZ 1,WRD(1)↔JRST POP1J.}
01200	
01300		DEFINE RITE(NAM,WRD){
01400		INTERN NAM↔NAM:↔MOVE 1,-1(17)
01500		HRRZ 1,WRD(1)↔JRST POP1J.}
01600	
01700		DATUM(XWC,-3)
01800		DATUM(YWC,-2)
01900		DATUM(ZWC,-1)
02000		DATUM(XPP,4)
02100		DATUM(YPP,5)
02200		DATUM(ZPP,6)
02300	
02400		LEFT(NFACE,1)↔RITE(PFACE,1)
02500		LEFT(NED,2)↔RITE(PED,2)
02600		LEFT(NVT,3)↔RITE(PVT,3)
02700		LEFT(DAD,4)↔RITE(SON,4)
02800		LEFT(BRO,5)↔RITE(SIS,5)
02900		LEFT(ALT,6)↔RITE(ALT2,6)
03000		LEFT(CW,7)↔RITE(CCW,7)
03100	
03200	END