I N 1 : V " T[S" 
 
 I N 1 : W " Kmϑ1 - v[2 " 
 
 I N 1 : X , Y , Z 
 
 
 
 ; PWhlbcTvPWh( v[PWh) 
 
 O U T : X X " v[PWhX " , Y Y " v[PWhX " , R " JS_" 
 
 X X = X 
 
 Y Y = Y 
 
 W = = 1 = > { 
 
     A = 2 5 7 . 9 3 0 
 
     B = 9 5 5 . 3 3   +   ( V - 1 ) * 3 8 . 3 
 
     E = 3 5 0 
 
     F = 8 6 . 2 4 
 
     X X = ( X - A ) * C O S ( E )   +   ( Y - B ) * S I N ( E )   +   F 
 
     Y Y = ( Y - B ) * C O S ( E )   -   ( X - A ) * S I N ( E ) 
 
 } 
 
 
 
 M = 6 . 5 / (   1 0 5 . 1 5   -   ( V - 1 ) * 6 . 6 5   ) 
 
 N = 4 . 0 / (   1 0 5 . 1 4   +   ( V - 1 ) * 6 . 6 5   ) 
 
 U = 6 3 . 7   +   M * (   X X   -   8 6 . 2 4   ) 
 
 H = 3 6 . 3   +   N * (   X X   -   8 6 . 2 4   ) 
 
 
 
 X X < = 1 6 1 . 3 8   +   ( V - 1 ) * 6 . 6 5 = > { 
 
     R = 8 . 7 
 
 } 
 
 E L S E { 
 
     U = U + 0 . 3 
 
     H = H - 0 . 3 
 
     X X < = 1 7 1 . 3 8   +   ( V - 1 ) * 6 . 6 5 = > { 
 
         R = 9 
 
         } 
 
     E L S E { 
 
       R = 9   -   1 / 2 0 * (   X X   -   1 7 1 . 3 8   -   ( V - 1 ) * 6 . 6 5   ) 
 
         } 
 
 } 
 
 
 
 O U T : O " W_ؚ" 
 
 O = U - R 
 
 Z > = O = > { 
 
   O U T : D R " _TOP]" , D Y " 4ls^OP]" , D H " WvOP]" 
 
   D R   =   S Q R T (   P O W (   Z - O   ,   2   )   +   Y Y * Y Y   )   - R 
 
   D Y   =   A B S ( Y Y )   -   S Q R T (   R * R   -   P O W (   Z - O   ,   2   )   ) 
 
   D H   =   Z   -   O   -   S Q R T (   R * R   -   Y Y * Y Y   ) 
 
 } 
 
 E L S E { 
 
   O U T : D Y " 4ls^OP]" , D H " ݍ^g" 
 
   D Y   =   A B S ( Y Y )   -   R 
 
   D H   =   H   -   Z 
 
 } 
 
 S A V E : X X , Y Y , Z Z 