%%HP: T(3)A(R)F(.);
@ @ @  VYPOCET DELICIHO POMERU
@ Real CALCVAL(Real xval);
\<<
  POS2VAL R0 *		@	Ra
  R0			@	R0	Ra
  OVER			@	Ra	R0	Ra
  -			@	Rb	Ra
  'R1'			@	'R1'	Rb	Ra
  PARALLEL		@	R1b	Ra
  SWAP			@	Ra	R1b
  'R2'			@	'R2'	Ra	R1b
  PARALLEL		@	R2a	R1b
  DUP			@	R2a	R2a	R1b
  ROT			@	R1b	R2a	R2a
  +			@	R1b+R2a	R2a
  /			@	yval
\>>
