// Dax Phyz PhyzLizp script file.
// Visit http://phyz.ath.cx for more information.

(seq
	(systemtext nil)
	(if (PzFindPhyz)
		(display
			(mkstring "%0d%0a"
				"Lo bridge tension = " (strpad -6 (prec 0 (PzGetSpringForce 0))) "%0d%0a"
				"Hi bridge tension = " (strpad -6 (prec 0 (PzGetSpringForce 1))) "%0d%0a"
			)
		)
		(exception "Phyz window not found!")
	)
)