I N 1 : N , L , Z 
 
 M I D : M , U 
 
 N > = 5 1 . 2 4 = > { 
 
 M = 0 . 3 5 7 1 
 
 U = 0 . 2 4 2 8 
 
 G O T O   L B L 1 
 
 } 
 
 E L S E { 
 
 M = 0 . 3 3 5 
 
 U = 0 . 1 3 1 7 
 
 N < = 1 2 . 2 8 = > M = 0 . 1 3 1 7 
 
 G O T O   L B L 2 
 
 } 
 
 
 
 : L B L 1 
 
 M I D : G 
 
 G = 6 3 . 7 - M * ( 8 6 . 2 4 - N ) 
 
 
 
 O U T : H " ^gؚ" 
 
 H = 3 6 . 3 - U * ( 8 6 . 2 4 - N ) 
 
 
 
 O U T : R " JS_" 
 
 R = 8 . 7 + 0 . 0 4 2 9 * ( 8 6 . 2 4 - N ) 
 
 
 
 O U T : K " K D " 
 
 K = A B S ( L ) - R 
 
 
 
 O U T : O " V_ؚ" 
 
 O = G - R 
 
 
 
 O U T : P " V_҉" 
 
 P = A T A N (   A B S ( L ) / ( Z - O )   ) 
 
 
 
 O U T : Y P " - W_҉D M S " 
 
 Y P = D M S ( P ) 
 
 
 
 O U T : S " H C " 
 
 S = P I * S Q R T (   P O W ( Z - O , 2 )   + L * L   ) * ( P - T * 1 0 ) / 1 8 0 
 
 
 
 Z > = O = > { 
 
       O U T : I " d R " 
 
       I = S Q R T (   P O W ( Z - O , 2 )   + L * L   )   -   R 
 
       O U T : T " d Y " 
 
       T = A B S ( L ) - S Q R T (   R * R   -   P O W ( Z - O , 2 )   ) 
 
       O U T : Q " d H " 
 
       Q = Z - O - S Q R T ( R * R - L * L ) 
 
 ;       S A V E : N , L , Z , R , K , O , Y P , H C , I , T , Q 
 
 } 
 
 E L S E { 
 
       O U T : T " d L " 
 
       T = A B S ( L ) - R 
 
       O U T : Q " d H " 
 
       Q = Z - H 
 
       O U T : J " D B " 
 
       J = H - Z 
 
 ;       S A V E : N , L , Z , R , K , O , Y P , H C , T , Q , J 
 
 } 
 
 S A V E : N , L , Z 
 
 G O T O   E N D 
 
 
 
 : L B L 2 
 
 M I D : G 
 
 N < = 1 2 . 2 8 = > { 
 
 G = 3 8 . 1 5 - M * ( 1 2 . 2 8 - N ) 
 
 } 
 
 E L S E { 
 
 G = 5 1 . 2 - M * ( 5 1 . 2 4 - N ) 
 
 } 
 
 
 
 O U T : H " - ^gؚ" 
 
 H = 2 7 . 8 - U * ( 5 1 . 2 4 - N ) 
 
 
 
 O U T : V " - R 1 " 
 
 N < = 5 1 . 2 4 = > V = 1 0 . 2 - 0 . 0 7 2 9 * ( 5 1 . 2 4 - N ) 
 
 N < = 3 9 . 4 4 = > V = 9 . 3 4 - 0 . 0 7 3 2 * ( 3 9 . 4 4 - N ) 
 
 N < = 3 0 . 2 9 = > V = 8 . 6 7 - 0 . 0 7 3 5 * ( 3 0 . 2 9 - N ) 
 
 N < = 1 8 . 7 2 = > V = 7 . 8 2 - 0 . 0 7 7 6 * ( 1 8 . 7 2 - N ) 
 
 N < = 1 2 . 2 8 = > V = 7 . 3 2 
 
 
 
 O U T : W " - R 2 " 
 
 N < = 3 0 . 2 9 = > { 
 
     W = 3 . 2 + 0 . 0 9 5 0 7 * ( 3 0 . 2 9 - N ) 
 
 } 
 
 E L S E { 
 
     W = 3 . 2 
 
 } 
 
 N < = 1 8 . 7 2 = > W = 4 . 3 + 0 . 0 9 6 2 7 3 * ( 1 8 . 7 2 - N ) 
 
 N < = 1 2 . 2 8 = > W = 4 . 9 2 + 0 . 1 0 1 4 4 9 * ( 1 2 . 2 8 - N ) 
 
 
 
 O U T : C " - J Z 1 " , D " - J Z 2 " 
 
 C = 1 0 . 2 - V 
 
 D = 1 0 . 2 - W 
 
 
 
 M I D : E , F 
 
 E = A B S ( L ) - ( 1 0 . 2 - V ) 
 
 F = A B S ( L ) - ( 1 0 . 2 - W ) 
 
 
 
 O U T : O " - Y X G 1 " , P " - Y X G 2 " 
 
 O = G - V 
 
 P = H + W 
 
 
 
 Z > = O = > { 
 
 G O T O   L B L 3 
 
 } 
 
 E L S E { 
 
     Z > = P = > { 
 
 	 O U T : Q " - d Y " 
 
                 Q = A B S ( L ) - 1 0 . 2 
 
 ; 	 S A V E : N , L , Z , H , V , W , C , D , O , P , Q 
 
 	 S A V E : N , L , Z 
 
                 G O T O   E N D 
 
                 } 
 
         E L S E { 
 
 	 G O T O   L B L 4 
 
                 } 
 
 } 
 
 
 
 : L B L 3 
 
 L = A B S ( L ) 
 
 L < = 1 0 . 2 - V = > { 
 
       O U T : Q 1 " - d H " 
 
       Q 1 = Z - G 
 
 ;       S A V E : N , L , Z , H , V , W , C , D , O , P , Q 1 
 
 } 
 
 E L S E { 
 
       O U T : Q 1 " - d R " , Q 2 " - d H " , Q 3 " - d Y " 
 
       Q 1 = S Q R T (   E * E + P O W ( Z - O , 2 )   )   -   V 
 
       Q 2 = Z - S Q R T ( V * V - E * E ) - O 
 
       Q 3 = E - S Q R T ( V * V - P O W ( Z - O , 2 ) ) 
 
 ;       S A V E : N , L , Z , H , V , W , C , D , O , P , Q 1 , Q 2 , Q 3 
 
 } 
 
 S A V E : N , L , Z 
 
 G O T O   E N D 
 
 
 
 : L B L 4 
 
 L = A B S ( L ) 
 
 L < = 1 0 . 2 - W = > { 
 
       O U T : Q 1 " - d H " 
 
       Q 1 = Z - H 
 
 ;       S A V E : N , L , Z , H , V , W , C , D , O , P , Q 1 
 
 } 
 
 E L S E { 
 
       O U T : Q 1 " - d R " , Q 2 " - d H " , Q 3 " - d Y " 
 
       Q 1 = S Q R T ( F * F + P O W ( P - Z , 2 ) ) - W 
 
       Q 2 = Z + S Q R T ( W * W - F * F ) - P 
 
       Q 3 = F - S Q R T ( W * W - P O W ( P - Z , 2 ) ) 
 
 ;       S A V E : N , L , Z , H , V , W , C , D , O , P , Q 1 , Q 2 , Q 3 
 
 } 
 
 S A V E : N , L , Z 