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 MR84 - MR82 ) R>P ( MR83 - MR81 = 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
MR84 - MR82 ) R>P ( MR83 - MR81 = 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 Min95 COS * MR90 = Min3F MR95 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 SIN * MR94 = Min3F MR95 COS * 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
MR84 - MR82 ) R>P ( MR83 - MR81 = Min6F Min00 X<>Y X>=0 GOTO1
+ 400 =
LBL1 Min7F MinF FIX4 "AZ" HLT
MR6F FIX3 "L" HLT
GOTO3
LBL2 MR89 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 SIN * MR94 = Min3F MR95 COS * 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 SIN * MR94 = Min3F MR95 COS * 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 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
MR84 - MR82 ) R>P ( MR83 - MR81 = 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 MR86 - MR82 ) R>P ( MR85 - MR81 = 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
MR84 - MR82 ) R>P ( MR83 - MR81 = 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 SIN * MR94 = Min3F MR95 COS * 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
MR84 - MR82 ) R>P ( MR83 - MR81 = 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 SIN * MR97 = Min3F MR5F COS * 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 SIN * MR97 = Min3F MRF COS * 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
MR84 - MR82 ) R>P ( MR83 - MR81 = 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 SIN * MR94 = Min3F MR95 COS * 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
MR84 - MR82 ) R>P ( MR83 - MR81 = 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 SIN * MR94 = Min3F MR95 COS * 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
MR84 - MR82 ) R>P ( MR83 - MR81 = 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 MR86 - MR82 ) R>P ( MR85 - MR81 = 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
MR84 - MR82 ) R>P ( MR83 - MR81 = 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 SIN * MR94 = Min3F MR95 COS * 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
MR84 - MR82 ) R>P ( MR83 - MR81 = 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 SIN * MR2F = Min3F MR95 COS * 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 Toshio 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.