Process VEHICLE.MOTION


   Let MOTION.A(VEHICLE1) = 'LINEAR.R'
   Let VELOCITY.A(VEHICLE1) = VELOCITY.F ( 700.0 , PI.C/2.4)

   Work 12 units

   Let VELOCITY.A(VEHICLE1) = VELOCITY.F ( 700.0 , (PI.C/2.4 + PI.C/4.0))

   Work 14 units 

    
   Let VELOCITY.A(VEHICLE1)=VELOCITY.F(700.0,(PI.C/2.4+PI.C/4.0+PI.C/3.0))

   work 8 units

   Let VELOCITY.A(VEHICLE1) = 0

   Work 5 units

end
