All Program List P0 AC DEG "ANGLE" HLT MR81 "X1" HLT Min81 MR82 "Y1" HLT Min82 MR83 "X2" HLT Min83 Min89 MR84 "Y2" HLT Min84 X=0 GOTO2 MR83 - MR81 ) R>P ( MR84 - MR82 = Min6F Min00 X<>Y X>=0 GOTO1 + 360 = LBL1 Min7F MinF "AZ" SDMS HLT MR6F FIX3 "L" HLT GOTO3 LBL2 MR89 INT + ( MR89 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min7F MinF LBL3 MR85 "X3" HLT Min85 MR86 "Y3" HLT Min86 MR85 - MR81 ) R>P ( MR86 - MR82 = Min00 X<>Y - MR7F = LBL4 X>=0 GOTO5 + 360 = GOTO4 LBL5 MinF "ANG" SDMS HLT MR00 FIX3 "L" HLT GOTO3 P1 AC DEG "TRAVERSE" HLT MR81 "X1" HLT Min81 MR82 "Y1" HLT Min82 MR83 "X2" HLT Min83 Min89 MR84 "Y2" HLT Min84 X=0 GOTO2 MR83 - MR81 ) R>P ( MR84 - MR82 = Min6F Min00 X<>Y X>=0 GOTO1 + 360 = LBL1 Min7F MinF "AZ" SDMS HLT MR6F FIX3 "L" HLT GOTO3 LBL2 MR89 INT + ( MR89 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min7F MinF LBL3 MR97 "HA" HLT Min97 ABS Min89 INT + ( MR89 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min00 MR94 "L" HLT Min94 X>=0 GOTO5 ABS Min90 90 Min89 "V" HLT Min5F ABS Min89 INT + ( MR89 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min95 COS * MR90 = Min3F MR95 SIN * MR90 = Min4F Min94 MR5F X>=0 GOTO4 MR3F Min94 LBL4 MR94 FIX3 "L" HLT LBL5 MR00 + MRF - 360 Min95 = LBL6 X>=0 GOTO7 + MR95 = GOTO6 LBL7 Min95 "AZ" SDMS HLT MR95 COS * MR94 = Min3F MR95 SIN * MR94 = Min4F + MR82 = Min9F MR3F + MR81 = Min8F FIX3 "X" HLT MR9F FIX3 "Y" HLT MR97 X>=0 GOTO3 MR8F Min81 MR9F Min82 MR95 - 180 = MinF GOTO3 P2 AC DEG "INTER POINT" HLT MR81 "X1" HLT Min81 MR82 "Y1" HLT Min82 MR83 "X2" HLT Min83 Min89 MR84 "Y2" HLT Min84 X=0 GOTO2 MR83 - MR81 ) R>P ( MR84 - MR82 = Min6F Min00 X<>Y X>=0 GOTO1 + 360 = LBL1 Min7F MinF "AZ" SDMS HLT MR6F FIX3 "L" HLT GOTO3 LBL2 MR89 INT + ( MR89 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min7F MinF LBL3 MR81 Min1F MR82 Min2F MR7F MinF AC "L" HLT Min94 MRF - 360 Min95 = LBL4 X>=0 GOTO5 + MR95 = GOTO4 LBL5 Min95 "AZ" SDMS HLT MR95 COS * MR94 = Min3F MR95 SIN * MR94 = Min4F + MR2F = Min9F MR3F + MR1F = Min8F FIX3 "X" HLT MR9F FIX3 "Y" HLT MR8F Min1F MR9F Min2F MRF + 90 = MinF LBL6 AC "-:+" HLT Min94 X=0 GOTO3 MRF - 360 Min95 = LBL7 X>=0 GOTO8 + MR95 = GOTO7 LBL8 Min95 "AZ" SDMS HLT MR95 COS * MR94 = Min3F MR95 SIN * MR94 = Min4F + MR2F = Min9F MR3F + MR1F = Min8F FIX3 "X" HLT MR9F FIX3 "Y" HLT GOTO6 P3 AC DEG "4[MUL]" HLT LBL1 MR81 "X1" HLT Min81 MR82 "Y1" HLT Min82 MR83 "X2" HLT Min83 MR84 "Y2" HLT Min84 MR85 "X3" HLT Min85 MR86 "Y3" HLT Min86 MR87 "X4" HLT Min87 MR88 "Y4" HLT Min88 MR84 - MR82 ) / ( MR83 - MR81 = Min3F MR88 - MR86 ) / ( MR87 - MR85 = Min4F * MR85 - MR3F * MR81 + MR82 - MR86 = / ( MR4F - MR3F = Min8F - MR81 ) * MR3F + MR82 = Min9F MR8F FIX3 "X" HLT MR9F FIX3 "Y" HLT GOTO1 P4 AC DEG "SUISEN" HLT MR81 "X1" HLT Min81 MR82 "Y1" HLT Min82 MR83 "X2" HLT Min83 Min89 MR84 "Y2" HLT Min84 X=0 GOTO2 MR83 - MR81 ) R>P ( MR84 - MR82 = Min6F Min00 X<>Y X>=0 GOTO1 + 360 = LBL1 Min7F MinF "AZ" SDMS HLT MR6F FIX3 "L" HLT GOTO3 LBL2 MR89 INT + ( MR89 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min7F MinF LBL3 MR85 "X3" HLT Min85 MR86 "Y3" HLT Min86 MR85 - MR81 ) R>P ( MR86 - MR82 = Min00 X<>Y - MR7F = LBL4 X>=0 GOTO5 + 360 = GOTO4 LBL5 MinF SIN * MR00 = Min3F MRF COS * MR00 = Min4F MR3F FIX3 "-h+" HLT MR4F FIX3 "L" HLT GOTO3 P5 AC DEG "REVERSE" HLT MR81 "X1" HLT Min81 MR82 "Y1" HLT Min82 LBL1 MR83 "X2" HLT Min83 Min89 MR84 "Y2" HLT Min84 MR83 - MR81 ) R>P ( MR84 - MR82 = Min6F Min00 X<>Y X>=0 GOTO2 + 360 = LBL2 Min7F MinF "AZ" SDMS HLT MR6F FIX3 "L" HLT GOTO1 P6 AC DEG "HIGH 1 ( S,V )" HLT MR91 "EL" HLT Min91 MR92 "IH" HLT Min92 X>=0 GOTO3 MR81 "X1" HLT Min81 MR82 "Y1" HLT Min82 MR83 "X2" HLT Min83 Min89 MR84 "Y2" HLT Min84 X=0 GOTO2 MR83 - MR81 ) R>P ( MR84 - MR82 = Min6F Min00 X<>Y X>=0 GOTO1 + 360 = LBL1 Min7F MinF "AZ" SDMS HLT MR6F FIX3 "L" HLT GOTO3 LBL2 MR89 INT + ( MR89 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min7F MinF LBL3 MR93 "MH" HLT Min93 MR90 "S" HLT ABS Min90 MR5F "V" HLT Min5F ABS Min89 INT + ( MR89 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min95 COS * MR90 = Min3F MR95 SIN * MR90 = Min4F Min94 MR5F X>=0 GOTO4 MR3F Min94 LBL4 MR94 FIX3 "L" HLT MR5F X>=0 GOTO5 MR4F Min3F LBL5 MR3F + MR92 ABS - MR93 ABS + MR91 = Min96 FIX3 "GH" HLT MR92 X>=0 GOTO8 MR97 "HA" HLT Min97 ABS Min89 INT + ( MR89 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = + MRF - 360 Min95 = LBL6 X>=0 GOTO7 + MR95 = GOTO6 LBL7 Min95 "AZ" SDMS HLT MR95 COS * MR94 = Min3F MR95 SIN * MR94 = Min4F + MR82 = Min9F MR3F + MR81 = Min8F FIX3 "X" HLT MR9F FIX3 "Y" HLT MR93 X>=0 GOTO3 MR8F Min81 MR9F Min82 MR95 - 180 = MinF LBL8 MR93 X>=0 GOTO3 MR96 Min91 MR92 "IH" HLT Min92 GOTO3 P7 AC DEG "SIMPLE CURVE" HLT MR81 "X1" HLT Min81 MR82 "Y1" HLT Min82 MR83 "X2" HLT Min83 Min89 MR84 "Y2" HLT Min84 X=0 GOTO2 MR83 - MR81 ) R>P ( MR84 - MR82 = Min6F Min00 X<>Y X>=0 GOTO1 + 360 = LBL1 Min7F MinF "AZ" SDMS HLT MR6F FIX3 "L" HLT GOTO3 LBL2 MR89 INT + ( MR89 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min7F MinF LBL3 MR97 "-R+" HLT Min97 MR6F / 2 / MR97 ) ACS + MR7F = Min5F COS * MR97 = Min3F MR5F SIN * MR97 = Min4F + MR82 = Min2F Min9F MR3F + MR81 = Min1F Min8F FIX3 "RX" HLT MR9F FIX3 "RY" HLT LBL4 MR98 "CL" HLT Min98 X=0 GOTO3 * 180 / PI / MR97 = Min00 + MR5F - 180 = MinF COS * MR97 = Min3F MRF SIN * MR97 = Min4F + MR2F = Min9F MR3F + MR1F = Min8F FIX3 "X" HLT MR9F FIX3 "Y" HLT GOTO4 P8 AC DEG "4[MUL] SHIFT" HLT MR11 "X1?" HLT Min11 MR12 "Y1?" HLT Min12 MR13 "X2?" HLT Min13 Min39 MR14 "Y2?" HLT Min14 X=0 GOTO1 MR13 - MR11 ) R>P ( MR14 - MR12 = Min20 Min00 X<>Y X>=0 GOTO0 + 360 = LBL0 Min22 MinF "AZ1" SDMS HLT MR20 FIX3 "L1" HLT GOTO2 LBL1 MR39 INT + ( MR39 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min22 MinF LBL2 AC "- W1 + ?" HLT Min30 LBL3 MR15 "X3?" HLT Min15 MR16 "Y3?" HLT Min16 MR17 "X4?" HLT Min17 Min39 MR18 "Y4?" HLT Min18 X=0 GOTO5 MR17 - MR15 ) R>P ( MR18 - MR16 = Min21 Min00 X<>Y X>=0 GOTO4 + 360 = LBL4 Min23 MinF "AZ2" SDMS HLT MR21 FIX3 "L2" HLT GOTO6 LBL5 MR39 INT + ( MR39 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min23 MinF LBL6 AC "- W2 + ?" HLT Min31 MR11 + MR30 * ( MR22 + 90 ) COS = Min45 MR12 + MR30 * ( MR22 + 90 ) SIN = Min46 MR13 + MR30 * ( MR22 + 90 ) COS = Min47 MR14 + MR30 * ( MR22 + 90 ) SIN = Min48 MR15 + MR31 * ( MR23 + 90 ) COS = Min49 MR16 + MR31 * ( MR23 + 90 ) SIN = Min50 MR17 + MR31 * ( MR23 + 90 ) COS = Min51 MR18 + MR31 * ( MR23 + 90 ) SIN = Min52 MR14 X=0 GOTO7 MR18 X=0 GOTO8 ( MR48 - MR46 ) / ( MR47 - MR45 ) = Min53 ( MR52 - MR50 ) / ( MR51 - MR49 ) = Min54 ( MR54 * MR49 - MR53 * MR45 + MR46 - MR50 ) / ( MR54 - MR53 ) = Min24 FIX3 "X" HLT MR53 * ( MR24 - MR45 ) + MR46 = Min25 FIX3 "Y" HLT GOTO3 LBL7 MR18 X=0 GOTO9 MR22 TAN = Min53 ( MR52 - MR50 ) / ( MR51 - MR49 ) = Min54 ( MR53 * ( MR45 - MR49 ) - ( MR46 - MR50 ) ) / ( MR53 - MR54 ) = Min4F MR49 + MR4F = Min24 FIX3 "X" HLT MR50 + MR4F * MR54 = Min25 FIX3 "Y" HLT GOTO3 LBL8 MR23 TAN = Min53 ( MR48 - MR46 ) / ( MR47 - MR45 ) = Min54 ( MR53 * ( MR49 - MR45 ) - ( MR50 - MR46 ) ) / ( MR53 - MR54 ) = Min4F MR45 + MR4F = Min24 FIX3 "X" HLT MR46 + MR4F * MR54 = Min25 FIX3 "Y" HLT GOTO3 LBL9 MR45 + 1000 * MR22 COS = Min47 MR46 + 1000 * MR22 SIN = Min48 MR49 + 1000 * MR23 COS = Min51 MR50 + 1000 * MR23 SIN = Min52 ( MR48 - MR46 ) / ( MR47 - MR45 ) = Min53 ( MR52 - MR50 ) / ( MR51 - MR49 ) = Min54 ( MR54 * MR49 - MR53 * MR45 + MR46 - MR50 ) / ( MR54 - MR53 ) = Min24 FIX3 "X" HLT MR53 * ( MR24 - MR45 ) + MR46 = Min25 FIX3 "Y" HLT GOTO3 P9 AC DEG "2 ANGLE" HLT MR81 "X1" HLT Min81 MR82 "Y1" HLT Min82 MR83 "X2" HLT Min83 Min89 MR84 "Y2" HLT Min84 X=0 GOTO2 MR83 - MR81 ) R>P ( MR84 - MR82 = Min6F Min00 X<>Y X>=0 GOTO1 + 360 = LBL1 Min7F MinF "AZ" SDMS HLT MR6F FIX3 "L" HLT GOTO3 LBL2 MR89 INT + ( MR89 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min7F MinF LBL3 MR96 "A" HLT Min96 Min89 INT + ( MR89 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min98 + MR7F = MinF MR97 "B" HLT Min97 Min89 INT + ( MR89 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min99 +/- + 180 = X>=0 GOTO4 + 180 = Min99 LBL4 MR99 +/- + 180 - MR98 = Min5F MR6F * MR99 SIN / MR5F SIN = Min94 MRF - 360 Min95 = LBL5 X>=0 GOTO6 + MR95 = GOTO5 LBL6 Min95 "AZ" SDMS HLT MR95 COS * MR94 = Min3F MR95 SIN * MR94 = Min4F + MR82 = Min9F MR3F + MR81 = Min8F FIX3 "X" HLT MR9F FIX3 "Y" HLT GOTO3 P10 AC DEG "2 LENGTH" HLT MR81 "X1" HLT Min81 MR82 "Y1" HLT Min82 MR83 "X2" HLT Min83 Min89 MR84 "Y2" HLT Min84 X=0 GOTO2 MR83 - MR81 ) R>P ( MR84 - MR82 = Min6F Min00 X<>Y X>=0 GOTO1 + 360 = LBL1 Min7F MinF "AZ" SDMS HLT MR6F FIX3 "L" HLT GOTO3 LBL2 MR89 INT + ( MR89 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min7F MinF LBL3 MR98 "a" HLT Min94 Min98 MR99 "b" HLT Min99 ( ( MR98 X^2 + MR6F X^2 - MR99 X^2 ) / ( 2 * MR98 * MR6F ) ) ACS Min5F + MR7F = MinF - 360 Min95 = LBL4 X>=0 GOTO5 + MR95 = GOTO4 LBL5 Min95 "AZ" SDMS HLT MR95 COS * MR94 = Min3F MR95 SIN * MR94 = Min4F + MR82 = Min9F MR3F + MR81 = Min8F FIX3 "X" HLT MR9F FIX3 "Y" HLT GOTO3 P11 AC DEG "VERTICAL" HLT LBL1 MR96 "Vr" HLT Min96 Min89 INT + ( MR89 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min98 MR97 "Vl" HLT Min97 Min89 INT + ( MR89 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min99 - MR98 = X>=0 GOTO2 MR98 Min95 MR99 Min98 MR95 Min99 LBL2 MR98 + MR99 ) "T" SDMS HLT - 360 = "e" SDMS HLT MR98 - MR99 = Min5F X>=0 GOTO3 + 360 = Min5F LBL3 "Vr-Vl" SDMS HLT / 2 = "Z" SDMS HLT +/- + 90 = Min5F "V" SDMS HLT GOTO1 P12 AC DEG "WILD ATMOSPHER" HLT LBL1 MR91 "GH" HLT Min91 MR92 "IH" HLT Min92 MR93 "FH" HLT Min93 MR94 "Tem" HLT Min94 - 30 = Min95 MR5F "V" HLT Min5F INT + ( MR5F FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min7F MR81 "L1" HLT Min81 MR82 "L2" HLT Min82 MR83 "L3" HLT Min83 MR81 + MR82 + MR83 = Min84 FIX3 "[SGM]" HLT / 3 = Min90 FIX4 "AL" HLT * MR7F SIN / 2 + MR91 + MR92 - MR93 = * 0.003 + 1.7 + MR95 * 0.085 = Min85 * MR90 / 5 10^X = Min96 MR85 FIX2 "*" HLT MR96 FIX4 "d" HLT MR90 + MR96 = Min90 FIX4 "D0" HLT GOTO1 P13 AC DEG "DISTANCE" HLT 6377397.155 Min98 0.9999 Min99 LBL0 MR90 "D0" HLT Min90 1 Min87 0 "V1" HLT Min94 Min89 INT + ( MR89 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min85 MR94 X>=0 GOTO1 1 +/- Min87 LBL1 1 Min88 0 "V2" HLT Min95 Min89 INT + ( MR89 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min86 MR95 X>=0 GOTO2 1 +/- Min88 LBL2 MR94 X=0 GOTO3 MR95 X=0 GOTO4 GOTO5 LBL3 MR86 Min5F GOTO6 LBL4 MR85 Min5F GOTO6 LBL5 ( MR85 ABS + MR86 ABS ) / 2 * MR87 = Min5F SDMS "V" HLT LBL6 MR91 "GH" HLT Min91 MR92 "IH" HLT Min92 MR93 "FH" HLT Min93 MR90 P>R MR5F = Min83 X<>Y Min84 MR94 X=0 GOTO7 MR84 FIX3 "dH" HLT + MR92 - MR93 + MR91 = Min96 FIX3 "EL" HLT + MR91 ) / 2 = Min97 MR95 X=0 GOTO8 MR97 FIX3 "AH" HLT MR94 X=0 GOTO7 MR95 X=0 GOTO8 MR97 +/- * MR83 = Min82 GOTO9 LBL7 MR91 +/- * MR83 = Min82 GOTO9 LBL8 MR96 +/- * MR83 = Min82 LBL9 MR83 FIX4 "D" HLT MR82 / MR98 = FIX4 "d" HLT + MR83 = Min81 FIX4 "S" HLT MR99 "K" HLT Min99 - 1 ) * MR81 = FIX4 "dK" HLT + MR81 = Min00 FIX4 "L" HLT GOTO0 P14 AC DEG "STADIA 1" HLT 100 Min98 0 Min99 MR91 "EL" HLT Min91 MR92 "IH" HLT Min92 LBL1 MR93 "FH" HLT Min93 MR5F "V" HLT Min5F MR87 "S1" HLT Min87 X>=0 GOTO2 MR87 ABS Min90 GOTO3 LBL2 MR88 "S2" HLT Min88 - MR87 = ABS Min90 LBL3 MR5F ABS Min89 INT + ( MR89 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min85 MR5F X>=0 GOTO4 GOTO6 LBL4 180 - MR89 = X>=0 GOTO5 MR85 - 270 = Min85 GOTO6 LBL5 90 - MR85 = Min85 LBL6 MR98 * MR90 * MR85 COS X^2 + MR99 * MR85 COS = Min94 MR98 * MR90 * MR85 SIN * MR85 COS + MR99 * MR85 SIN + MR92 - MR93 = Min3F + MR91 = Min96 MR94 FIX2 "L" HLT MR3F FIX2 "dH" HLT MR96 FIX2 "GH" HLT GOTO1 P15 AC DEG "STADIA 2" HLT 100 Min98 0 Min99 MR91 "EL" HLT Min91 MR92 "IH" HLT Min92 MR81 "X1" HLT Min81 MR82 "Y1" HLT Min82 MR83 "X2" HLT Min83 Min89 MR84 "Y2" HLT Min84 X=0 GOTO2 MR83 - MR81 ) R>P ( MR84 - MR82 = Min6F Min00 X<>Y X>=0 GOTO1 + 360 = LBL1 Min7F MinF "AZ" SDMS HLT MR6F FIX3 "L" HLT GOTO3 LBL2 MR89 INT + ( MR89 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min7F MinF LBL3 MR93 "FH" HLT Min93 MR5F "V" HLT Min5F MR87 "S1" HLT Min87 X>=0 GOTO4 MR87 ABS Min90 GOTO5 LBL4 MR88 "S2" HLT Min88 - MR87 = ABS Min90 LBL5 MR5F ABS Min89 INT + ( MR89 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min85 MR5F X>=0 GOTO6 GOTO8 LBL6 180 - MR89 = X>=0 GOTO7 MR85 - 270 = Min85 GOTO8 LBL7 90 - MR85 = Min85 LBL8 MR98 * MR90 * MR85 COS X^2 + MR99 * MR85 COS = Min94 MR98 * MR90 * MR85 SIN * MR85 COS + MR99 * MR85 SIN + MR92 - MR93 = Min3F + MR91 = Min96 MR94 FIX2 "L" HLT MR3F FIX2 "dH" HLT MR96 FIX2 "GH" HLT MR97 "HA" HLT Min97 ABS Min89 INT + ( MR89 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = + MRF - 360 Min95 = LBL9 X>=0 GOTO0 + MR95 = GOTO9 LBL0 Min95 "AZ" SDMS HLT MR95 COS * MR94 = Min3F MR95 SIN * MR94 = Min4F + MR82 = Min9F MR3F + MR81 = Min8F FIX2 "X" HLT MR9F FIX2 "Y" HLT GOTO3 P16 AC DEG "HIGH 2 ( h,l )" HLT MR91 "EL" HLT Min91 MR92 "IH" HLT Min92 X>=0 GOTO3 MR81 "X1" HLT Min81 MR82 "Y1" HLT Min82 MR83 "X2" HLT Min83 Min89 MR84 "Y2" HLT Min84 X=0 GOTO2 MR83 - MR81 ) R>P ( MR84 - MR82 = Min6F Min00 X<>Y X>=0 GOTO1 + 360 = LBL1 Min7F MinF "AZ" SDMS HLT MR6F FIX3 "L" HLT GOTO3 LBL2 MR89 INT + ( MR89 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min7F MinF LBL3 MR93 "MH" HLT Min93 MR1F "dh" HLT Min1F MR92 X>=0 GOTO4 MR2F "dL" HLT Min2F LBL4 MR1F + MR92 ABS - MR93 ABS + MR91 = Min96 FIX3 "GH" HLT MR92 X>=0 GOTO7 MR97 "HA" HLT Min97 ABS Min89 INT + ( MR89 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = + MRF - 360 Min95 = LBL5 X>=0 GOTO6 + MR95 = GOTO5 LBL6 Min95 "AZ" SDMS HLT MR95 COS * MR2F = Min3F MR95 SIN * MR2F = Min4F + MR82 = Min9F MR3F + MR81 = Min8F FIX3 "X" HLT MR9F FIX3 "Y" HLT MR93 X>=0 GOTO3 MR8F Min81 MR9F Min82 MR95 - 180 = MinF LBL7 MR93 X>=0 GOTO3 MR96 Min91 MR92 "IH" HLT Min92 GOTO3 P17 LBL1 AC DEG "HIGH 3 ( S,V )" HLT MR91 "*EL" HLT Min91 MR92 "IH" HLT Min92 MR93 "MH" HLT Min93 MR90 "S" HLT ABS Min90 MR5F "V" HLT Min5F ABS Min89 INT + ( MR89 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min95 COS * MR90 = Min3F MR95 SIN * MR90 = Min4F Min94 MR5F X>=0 GOTO2 MR3F Min94 LBL2 MR94 FIX3 "L" HLT MR5F X>=0 GOTO3 MR4F Min3F LBL3 MR3F + MR92 ABS - MR93 ABS = Min1F +/- FIX3 "DH" HLT + MR91 = Min96 FIX3 "GH" HLT GOTO1 P18 LBL1 AC DEG "HIGH 4 ( dh )" HLT MR91 "*EL" HLT Min91 MR92 "IH" HLT Min92 MR93 "MH" HLT Min93 MR1F "dh" HLT Min1F + MR92 ABS - MR93 ABS = Min2F +/- FIX3 "DH" HLT + MR91 = Min96 FIX3 "GH" HLT GOTO1 P19 AC DEG "S[RTA]L" HLT MR00 "L0" HLT Min00 LBL1 MR5F "V" HLT Min5F ABS Min89 INT + ( MR89 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min95 MR90 "S" HLT ABS Min90 MR95 COS * MR90 = Min3F MR95 SIN * MR90 = Min4F Min94 MR5F X>=0 GOTO2 MR3F Min94 LBL2 MR94 FIX3 "L" HLT MR00 X=0 GOTO1 - MR94 = FIX3 "d" HLT GOTO1 "Edited by Kawaguchi Toshio khf00050yahoo.co.jp" "-- Neyagawa Osaka Japan --" END Memory List M00= 0. M01= 0. M02= 0. M03= 0. M04= 0. M05= 0. M06= 0. M07= 0. M08= 0. M09= 0. M0F= 0. M10= 0. M11= 0. M12= 0. M13= 0. M14= 0. M15= 0. M16= 0. M17= 0. M18= 0. M19= 0. M1F= 0. M20= 0. M21= 0. M22= 0. M23= 0. M24= 0. M25= 0. M26= 0. M27= 0. M28= 0. M29= 0. M2F= 0. M30= 0. M31= 0. M32= 0. M33= 0. M34= 0. M35= 0. M36= 0. M37= 0. M38= 0. M39= 0. M3F= 0. M40= 0. M41= 0. M42= 0. M43= 0. M44= 0. M45= 0. M46= 0. M47= 0. M48= 0. M49= 0. M4F= 0. M50= 0. M51= 0. M52= 0. M53= 0. M54= 0. M55= 0. M56= 0. M57= 0. M58= 0. M59= 0. M5F= 0. M60= 0. M61= 0. M62= 0. M63= 0. M64= 0. M65= 0. M66= 0. M67= 0. M68= 0. M69= 0. M6F= 0. M70= 0. M71= 0. M72= 0. M73= 0. M74= 0. M75= 0. M76= 0. M77= 0. M78= 0. M79= 0. M7F= 0. M80= 0. M81= 0. M82= 0. M83= 0. M84= 0. M85= 0. M86= 0. M87= 0. M88= 0. M89= 0. M8F= 0. M90= 0. M91= 0. M92= 0. M93= 0. M94= 0. M95= 0. M96= 0. M97= 0. M98= 0. M99= 0. M9F= 0.