HP -32S Owner's Manual page 202

001 LBL 0
002 INPUT U
003 INPUT V
004 RCL U
005 RCL T
006 1
007 B,r+y,x
008 CMPLXx
009 RCL N
010 RCL M
Oil CMPLX+
012 STO X
013 xOy
014 STO Y
015 xOy
016 VIEW X
017 VIEW Y
018 GTO 0
Bytes and Checksum:
Flags Used: None.
This routine converts from the new system
to the old system.
Prompts for and stores U.
Prompts for and stores V.
Pushes V* up and recalls U.
Pushes U and V up and recalls T.
Sets radius to 1 for the computation of
sin(T) and cos(T).
Calculates cos(T) and sin(T).
Calculates U cos(T) - V sin(T) and 17 sin(T)
+ V cos(T).
Pushes up previous results and recalls N.
Pushes up results and recalls M.
Completes calculation by adding M and N
to previous results.
Stores the x-coordinate in variable X.
Swaps the positions of the coordinates.
Stores the y-coordinate in variable Y.
Swaps the positions of the coordinates back.
Halts the program to display X.
Halts the program to display Y.
Goes back for another calculation.
027.0, 9AE6
Memory Required: 119 bytes: 63 for program, 56 for variables.
Program Instructions:
1. Key in the program routines; press (c] when done.
2. Press Ixeq ID to start the prompt sequence which defines the co
ordinate transformation.
3. Key in the x-coordinate of the origin of the hew system M and
press |R/S|.
4. Key in the y-coordinate of the origin of the new system N and
press IR/s I.
200 12: Mathematics Programs