I N 1 : K , A " [KmX " , B " [KmY " , H " [Kmؚz" 
 
 
 
 ; Y   :Nt~Y PWh
 
 Y = 9 6 0 . 8 + ( K - 1 ) * 3 8 . 3 
 
 
 
 O U T : Z " Wݍ" , L " f~̑z" 
 
 Z = H - 1 1 9 . 7 5 
 
 
 
 O U T : S " 4ls^ݍ-N" 
 
 S = B - Y 
 
 
 
 R = 7 . 7 5 
 
 A < = 3 9 . 3 2 = > { 
 
     L = A - 1 9 . 5 8 + 9 4 . 5 8 
 
     G O T O   L B L 4 
 
 } 
 
 E L S E { 
 
     A < 1 2 1 . 7 3 = > { 
 
 	 G O T O   L B L 1 
 
 	 } 
 
     E L S E { 
 
 	 R = 7 . 7 5 - 0 . 0 4 1 4 5 * ( A - 1 2 1 . 7 3 ) 
 
 	 Z = H - 5 7 
 
 	 L = 1 2 9 . 7 9 + 9 4 . 5 8 + A - 1 2 1 . 7 3 
 
 	 G O T O   L B L 4 
 
 	 } 
 
 } 
 
 
 
 ; evkPWhel
 
 : L B L 1 
 
 M = H - 7 9 . 7 5 
 
 N = A - 3 9 . 3 2 
 
 R E C (   P O L ( M - 2 0 , N - 3 4 . 6 4 ) , J - 6 0   ) 
 
 L = 4 1 . 8 9 + 1 9 . 7 4 + 9 4 . 5 8 + J 
 
 L < = 4 1 . 8 9 + 1 9 . 7 4 + 9 4 . 5 8 = > { 
 
     G O T O   L B L 2 
 
 } 
 
 E L S E { 
 
     L < 6 8 . 1 6 + 1 9 . 7 4 + 9 4 . 5 8 = > { 
 
   	 Z = I 
 
 	 G O T O   L B L 4 
 
     } 
 
     E L S E { 
 
 	 G O T O   L B L 3 
 
   } 
 
 } 
 
 
 
 ; 
N8nf~{
 
 : L B L 2 
 
 U = S Q R T ( M * M + N * N ) 
 
 P = A T A N ( N / M ) 
 
 Z = U - 4 0 
 
 L = 1 9 . 7 4 + 9 4 . 5 8 + 2 / 9 * P I * P 
 
 G O T O   L B L 4 
 
 
 
 ; N8nf~{
 
 : L B L 3 
 
 M = A B S ( H - 9 7 ) 
 
 N = A B S ( A - 1 2 1 . 7 3 ) 
 
 U = S Q R T ( M * M + N * N ) 
 
 P = A T A N ( N / M ) 
 
 
 
 O U T : Z " Wݍ" , L " f~̑z" 
 
 Z = 4 0 - U 
 
 L = 6 8 . 1 6 + 9 4 . 5 8 + 1 9 . 7 4 + 2 / 9 * P I * ( 6 0 - P ) 
 
 G O T O   L B L 4 
 
 
 
 : L B L 4 
 
 O U T : O " [KmJS_" 
 
 O = S Q R T ( S * S + Z * Z ) 
 
 
 
 O U T : Q " JS_ kc" 
 
 Q = O - R 
 
 A B S ( Z ) > R = > { 
 
     G O T O   L B L 6 
 
 } 
 
 E L S E { 
 
     G O T O   L B L 7 
 
 } 
 
 
 
 : L B L 6 
 
 A B S ( S ) < = R = > { 
 
     O U T : E " Wv kc" 
 
     E = A B S ( Z ) - S Q R T ( R * R - S * S ) 
 
 } 
 
 
 
 S A V E : A , B , H 
 
 G O T O   E N D 
 
 
 
 : L B L 7 
 
 A B S ( S ) < = R = > { 
 
     O U T : E " Wv kc" , F " 4ls^ kc" 
 
     E = A B S ( Z ) - S Q R T ( R * R - S * S ) 
 
     F = A B S ( S ) - S Q R T ( R * R - Z * Z ) 
 
 } 
 
 E L S E { 
 
     O U T : F " 4ls^ kc" 
 
     F = A B S ( S ) - S Q R T ( R * R - Z * Z ) 
 
 } 
 
 S A V E : A , B , H 