All Program List P0 AC GRA "REVERSE GRAD" 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 + 400 = LBL2 Min7F MinF FIX4 "AZ" HLT MR6F FIX3 "L" HLT GOTO1 P1 AC GRA "TRAVERSE GRAD" 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 + 400 = LBL1 Min7F MinF FIX4 "AZ" HLT MR6F FIX3 "L" HLT GOTO3 LBL2 MR89 Min7F MinF LBL3 MR97 "HA" HLT Min97 Min00 MR94 "L" HLT Min94 X>=0 GOTO5 ABS Min90 100 Min89 "V" HLT Min5F COS * MR90 = Min3F MR5F SIN * MR90 = Min4F Min94 MR5F X>=0 GOTO4 MR3F Min94 LBL4 MR94 FIX3 "L" HLT LBL5 MR00 + MRF - 400 Min95 = LBL6 X>=0 GOTO7 + MR95 = GOTO6 LBL7 Min95 FIX4 "AZ" 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 - 200 = MinF GOTO3 P2 AC GRA "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 + 400 = LBL1 Min7F MinF FIX4 "AZ" HLT MR6F FIX3 "L" HLT GOTO3 LBL2 Min7F MinF LBL3 MR81 Min1F MR82 Min2F MR7F MinF AC "L" HLT Min94 MRF - 400 Min95 = LBL4 X>=0 GOTO5 + MR95 = GOTO4 LBL5 Min95 FIX4 "AZ" 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 + 100 = MinF LBL6 AC "-:+" HLT Min94 X=0 GOTO3 MRF - 400 Min95 = LBL7 X>=0 GOTO8 + MR95 = GOTO7 LBL8 Min95 FIX4 "AZ" HLT MR95 COS * MR94 = Min3F MR95 SIN * MR94 = Min4F + MR2F = Min9F MR3F + MR1F = Min8F FIX3 "X" HLT MR9F FIX3 "Y" HLT GOTO6 P3 AC GRA "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 GRA "S[RTA]L" HLT MR00 "L0" HLT Min00 LBL1 MR5F "V" HLT Min5F 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 P5 AC GRA "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 + 400 = LBL1 Min7F MinF FIX4 "AZ" HLT MR6F FIX3 "L" HLT GOTO3 LBL2 MR89 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 + 400 = GOTO4 LBL5 MinF FIX4 "ANG" HLT MR00 FIX3 "L" HLT GOTO3 P6 AC GRA "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 + 400 = LBL1 Min7F MinF FIX4 "AZ" HLT MR6F FIX3 "L" HLT GOTO3 LBL2 MR89 Min7F MinF LBL3 MR93 "MH" HLT Min93 MR90 "S" HLT ABS Min90 MR5F "V" HLT Min5F 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 + MRF - 400 Min95 = LBL6 X>=0 GOTO7 + MR95 = GOTO6 LBL7 Min95 FIX4 "AZ" 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 - 200 = MinF LBL8 MR93 X>=0 GOTO3 MR96 Min91 MR92 "IH" HLT Min92 GOTO3 P7 AC GRA "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 + 400 = LBL1 Min7F MinF FIX4 "AZ" HLT MR6F FIX3 "L" HLT GOTO3 LBL2 MR89 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 * 200 / PI / MR97 = Min00 + MR5F - 200 = MinF COS * MR97 = Min3F MRF SIN * MR97 = Min4F + MR2F = Min9F MR3F + MR1F = Min8F FIX3 "X" HLT MR9F FIX3 "Y" HLT GOTO4 P8 AC GRA "2 ANGLES" 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 + 400 = LBL1 Min7F MinF FIX4 "AZ" HLT MR6F FIX3 "L" HLT GOTO3 LBL2 MR89 Min7F MinF LBL3 MR96 "A" HLT Min96 Min98 + MR7F = MinF MR97 "B" HLT Min97 Min99 +/- + 200 = X>=0 GOTO4 + 200 = Min99 LBL4 MR99 +/- + 200 - MR98 = Min5F MR6F * MR99 SIN / MR5F SIN = Min94 MRF - 400 Min95 = LBL5 X>=0 GOTO6 + MR95 = GOTO5 LBL6 Min95 FIX4 "AZ" HLT MR95 COS * MR94 = Min3F MR95 SIN * MR94 = Min4F + MR82 = Min9F MR3F + MR81 = Min8F FIX3 "X" HLT MR9F FIX3 "Y" HLT GOTO3 P9 AC GRA "2 LENGTHS" 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 + 400 = LBL1 Min7F MinF FIX4 "AZ" HLT MR6F FIX3 "L" HLT GOTO3 LBL2 MR89 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 - 400 Min95 = LBL4 X>=0 GOTO5 + MR95 = GOTO4 LBL5 Min95 FIX4 "AZ" HLT MR95 COS * MR94 = Min3F MR95 SIN * MR94 = Min4F + MR82 = Min9F MR3F + MR81 = Min8F FIX3 "X" HLT MR9F FIX3 "Y" HLT GOTO3 P10 AC GRA "PERPENDICULAR" 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 + 400 = LBL1 Min7F MinF FIX4 "AZ" HLT MR6F FIX3 "L" HLT GOTO3 LBL2 MR89 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 + 400 = GOTO4 LBL5 MinF SIN * MR00 = Min3F MRF COS * MR00 = Min4F MR3F FIX3 "-h+" HLT MR4F FIX3 "L" HLT GOTO3 P11 AC GRA "VERTICAL" HLT LBL1 MR96 "Vr" HLT Min96 Min98 MR97 "Vl" HLT Min97 Min99 - MR98 = X>=0 GOTO2 MR98 Min95 MR99 Min98 MR95 Min99 LBL2 MR98 + MR99 ) FIX4 "T" HLT - 400 = FIX4 "e" HLT MR98 - MR99 = Min5F X>=0 GOTO3 + 400 = Min5F LBL3 FIX4 "Vr-Vl" HLT / 2 = FIX4 "Z" HLT +/- + 100 = Min5F FIX4 "V" HLT GOTO1 P12 AC GRA "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 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 GRA "DISTANCE" HLT 6377397.155 Min98 0.9999 Min99 LBL0 MR90 "D0" HLT Min90 1 Min87 0 "V1" HLT Min94 Min85 MR94 X>=0 GOTO1 1 +/- Min87 LBL1 1 Min88 0 "V2" HLT Min95 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 "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 GRA "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 Min85 MR5F X>=0 GOTO4 GOTO6 LBL4 200 - MR89 = X>=0 GOTO5 MR85 - 300 = Min85 GOTO6 LBL5 100 - 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 GRA "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 + 400 = LBL1 Min7F MinF FIX4 "AZ" HLT MR6F FIX3 "L" HLT GOTO3 LBL2 MR89 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 Min85 MR5F X>=0 GOTO6 GOTO8 LBL6 200 - MR89 = X>=0 GOTO7 MR85 - 300 = Min85 GOTO8 LBL7 100 - 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 + MRF - 400 Min95 = LBL9 X>=0 GOTO0 + MR95 = GOTO9 LBL0 Min95 FIX4 "AZ" HLT MR95 COS * MR94 = Min3F MR95 SIN * MR94 = Min4F + MR82 = Min9F MR3F + MR81 = Min8F FIX2 "X" HLT MR9F FIX2 "Y" HLT GOTO3 P16 LBL1 AC GRA "STADIA 3" HLT 100 Min98 0 Min99 MR91 "*EL" HLT Min91 MR92 "*IH" HLT Min92 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 Min85 MR5F X>=0 GOTO4 GOTO6 LBL4 200 - MR89 = X>=0 GOTO5 MR85 - 300 = Min85 GOTO6 LBL5 100 - 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 P17 AC GRA "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 + 400 = LBL1 Min7F MinF FIX4 "AZ" HLT MR6F FIX3 "L" HLT GOTO3 LBL2 MR89 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 + MRF - 400 Min95 = LBL5 X>=0 GOTO6 + MR95 = GOTO5 LBL6 Min95 FIX4 "AZ" 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 - 200 = MinF LBL7 MR93 X>=0 GOTO3 MR96 Min91 MR92 "IH" HLT Min92 GOTO3 P18 LBL1 AC GRA "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 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 P19 LBL1 AC GRA "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 "Coded by KAWAGUCHI NIFTY-Serve ID:KHF00050" 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.