Not the best example, but a sample.
PROC rPath03()
PDispSet posePass3;
MoveL pPath3_01,vProcessSpeed,z50,tFlame\WObj:=wobj0;
MoveL pPath3_02,vProcessSpeed,z50,tFlame\WObj:=wobj0;
MoveL pPath3_03,vProcessSpeed,z50,tFlame\WObj:=wobj0;
MoveL pPath3_04,vProcessSpeed,z30,tFlame\WObj:=wobj0;
MoveL pPath3_05,vProcessSpeed,z30,tFlame\WObj:=wobj0;
MoveL pPath3_06,v1000,z30,tFlame\WObj:=wobj0;
PDispOff;
RETURN;
ENDPROC
Display More
I generally use a pose variable, your routine could look something like:
PROC rCaller()
rPath3;
PDispSet poseP1;
rPath3;
PDispSet poseP2;
rPath3;
PDispSet poseP3;
rPath3;
ENDPROC
PROC rPath3()
MoveL pPath3_01,vProcessSpeed,z50,tFlame\WObj:=wobj0;
MoveL pPath3_02,vProcessSpeed,z50,tFlame\WObj:=wobj0;
MoveL pPath3_03,vProcessSpeed,z50,tFlame\WObj:=wobj0;
MoveL pPath3_04,vProcessSpeed,z30,tFlame\WObj:=wobj0;
MoveL pPath3_05,vProcessSpeed,z30,tFlame\WObj:=wobj0;
MoveL pPath3_06,v1000,z30,tFlame\WObj:=wobj0;
PDispOff;
Display More
I've also used PDispOn in a similar method.