(DIS,"UP75: PARAM.PATPROGRAM")
TMR=3
TE11.E12 ME3
SE26
E35=(E30-E31)*2
G1 G41 ZE31 XE35 F1000
GE5 G04 Z XE36 I JE35 FE25
E31=NEG(E31)
G40 ZE31 XE35 I JE35
G1 Z X F1000
G00
