All Program List

P0

AC DEG "REVERSE ANGLE" HLT
MR24 "X1?" HLT
Min24 MR25 "Y1?" HLT
Min25 
LBL0 MR11 "X2?" HLT
Min11 Min39 MR12 "Y2?" HLT
Min12 X=0 GOTO2
MR11 - MR24 ) R>P ( MR12 - MR25 = Min20 Min00 X<>Y X>=0 GOTO1
+ 360 =
LBL1 Min22 MinF "AZ" SDMS HLT
MR20 FIX3 "L" HLT
GOTO3
LBL2 MR39 INT + ( MR39 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min22 MinF GOTO4
LBL3 AC "REVERSE NEXT" HLT
X=0 GOTO0
LBL4 MR15 "X3?" HLT
Min15 MR16 "Y3?" HLT
Min16 MR15 - MR24 ) R>P ( MR16 - MR25 = Min00 X<>Y - MR22 =
LBL5 X>=0 GOTO6
+ 360 = GOTO5
LBL6 MinF "ANG" SDMS HLT
MR00 FIX3 "L" HLT
GOTO4


P1

AC DEG "OPEN TRAVERSE n" HLT
"AZmode[RTA]X2=AZ" PAUSE
MR11 "X1?" HLT
Min11 MR12 "Y1?" HLT
Min12 MR13 "X2?" HLT
Min13 Min39 MR14 "Y2?" HLT
Min14 X=0 GOTO2
MR13 - MR11 ) R>P ( MR14 - MR12 = Min20 Min00 X<>Y X>=0 GOTO1
+ 360 =
LBL1 Min22 MinF "AZ" SDMS HLT
MR20 FIX3 "L" HLT
GOTO3
LBL2 MR39 INT + ( MR39 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min22 MinF 
LBL3 MR32 "OPEN[RTA](-) HA?" HLT
Min32 ABS Min39 INT + ( MR39 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min00 MR30 "S,V[RTA](-) L?" HLT
Min30 X>=0 GOTO5
ABS Min41 90 Min39 "V?" HLT
Min38 ABS Min39 INT + ( MR39 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min5F COS * MR41 = Min3F MR5F SIN * MR41 = Min4F Min30 MR38 X>=0 GOTO4
MR3F Min30 
LBL4 MR30 FIX3 "L" HLT
LBL5 MR00 + MRF - 360 Min5F =
LBL6 X>=0 GOTO7
+ MR5F = GOTO6
LBL7 Min5F "AZ" SDMS HLT
MR5F COS * MR30 = Min3F MR5F SIN * MR30 = Min4F + MR12 = Min25 MR3F + MR11 = Min24 FIX3 "X" HLT
MR25 FIX3 "Y" HLT
MR32 X>=0 GOTO3
MR24 Min11 MR25 Min12 MR5F - 180 = MinF GOTO3


P2

AC DEG "TRAVERSE" PAUSE
LBL3 3 MinF "1:FIXED,2:CLOSED" 0 HLT
X=0 GOTO3
X>=F GOTO3
+/- = X>=0 GOTO3
Min00 IND GOTO0
LBL1 GSBP17
GOTO3
LBL2 GSBP18
GOTO3


P3

AC DEG "2 HEN KYOUKAKU" HLT
MR34 "a?" HLT
Min34 MR36 "A?" HLT
Min36 ABS Min39 INT + ( MR39 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min22 
LBL0 MR35 "b?" HLT
Min35 MR37 "B?" HLT
Min37 ABS Min39 INT + ( MR39 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min23 ( MR34 X^2 + MR35 X^2 - 2 * MR34 * MR35 * ( MR22 - MR23 ) COS ) SQR = Min20 FIX3 "L" HLT
GOTO0


P4

AC DEG "LINE OFFSET" HLT
MR11 "X1?" HLT
Min11 MR12 "Y1?" HLT
Min12 MR13 "X2?" HLT
Min13 Min39 MR14 "Y2?" HLT
Min14 X=0 GOTO2
MR13 - MR11 ) R>P ( MR14 - MR12 = Min20 Min00 X<>Y X>=0 GOTO1
+ 360 =
LBL1 Min22 MinF "AZ" SDMS HLT
MR20 FIX3 "L" HLT
GOTO3
LBL2 MR39 INT + ( MR39 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min22 MinF 
LBL3 MR15 "X3?" HLT
Min15 MR16 "Y3?" HLT
Min16 MR15 - MR11 ) R>P ( MR16 - MR12 = Min00 X<>Y - MR22 =
LBL4 X>=0 GOTO5
+ 360 = GOTO4
LBL5 MinF SIN * MR00 = Min3F MRF COS * MR00 = Min4F MR3F FIX3 "(L)- h +(R)" HLT
MR4F FIX3 "(1[RTA]2) L" HLT
GOTO3


P5

AC DEG "INTER POINT" HLT
"AZmode[RTA]X2=AZ" PAUSE
MR11 "X1?" HLT
Min11 MR12 "Y1?" HLT
Min12 MR13 "X2?" HLT
Min13 Min39 MR14 "Y2?" HLT
Min14 X=0 GOTO2
MR13 - MR11 ) R>P ( MR14 - MR12 = Min20 Min00 X<>Y X>=0 GOTO1
+ 360 =
LBL1 Min22 MinF "AZ" SDMS HLT
MR20 FIX3 "L" HLT
GOTO3
LBL2 MR39 INT + ( MR39 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min22 MinF 
LBL3 MR11 Min1F MR12 Min2F MR22 MinF AC "(1[RTA]2) L?" HLT
Min30 MRF - 360 Min5F =
LBL4 X>=0 GOTO5
+ MR5F = GOTO4
LBL5 Min5F "AZ" SDMS HLT
MR5F COS * MR30 = Min3F MR5F SIN * MR30 = Min4F + MR2F = Min25 MR3F + MR1F = Min24 FIX3 "X" HLT
MR25 FIX3 "Y" HLT
MR24 Min1F MR25 Min2F MRF + 90 = MinF 
LBL6 AC "(L)- : +(R)" HLT
Min30 X=0 GOTO3
MRF - 360 Min5F =
LBL7 X>=0 GOTO8
+ MR5F = GOTO7
LBL8 Min5F "AZ" SDMS HLT
MR5F COS * MR30 = Min3F MR5F SIN * MR30 = Min4F + MR2F = Min25 MR3F + MR1F = Min24 FIX3 "X" HLT
MR25 FIX3 "Y" HLT
GOTO6


P6

AC DEG "2 LENGTH KOUTEN" HLT
MR11 "X1?" HLT
Min11 MR12 "Y1?" HLT
Min12 MR13 "X2?" HLT
Min13 Min39 MR14 "Y2?" HLT
Min14 X=0 GOTO2
MR13 - MR11 ) R>P ( MR14 - MR12 = Min20 Min00 X<>Y X>=0 GOTO1
+ 360 =
LBL1 Min22 MinF "AZ" SDMS HLT
MR20 FIX3 "L" HLT
GOTO3
LBL2 MR39 INT + ( MR39 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min22 MinF 
LBL3 MR34 "a?" HLT
Min30 Min34 MR35 "b?" HLT
Min35 ( ( MR34 X^2 + MR20 X^2 - MR35 X^2 ) / ( 2 * MR34 * MR20 ) ) ACS Min38 + MR22 = MinF - 360 Min5F =
LBL4 X>=0 GOTO5
+ MR5F = GOTO4
LBL5 Min5F "AZ" SDMS HLT
MR5F COS * MR30 = Min3F MR5F SIN * MR30 = Min4F + MR12 = Min25 MR3F + MR11 = Min24 FIX3 "X (Right)" HLT
MR25 FIX3 "Y (Right)" HLT
GOTO3


P7

AC DEG "2 ANGLE KOUTEN" HLT
MR11 "X1?" HLT
Min11 MR12 "Y1?" HLT
Min12 MR13 "X2?" HLT
Min13 Min39 MR14 "Y2?" HLT
Min14 X=0 GOTO2
MR13 - MR11 ) R>P ( MR14 - MR12 = Min20 Min00 X<>Y X>=0 GOTO1
+ 360 =
LBL1 Min22 MinF "AZ" SDMS HLT
MR20 FIX3 "L" HLT
GOTO3
LBL2 MR39 INT + ( MR39 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min22 MinF 
LBL3 MR36 "A?" HLT
Min36 Min39 INT + ( MR39 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min34 + MR22 = MinF MR37 "B?" HLT
Min37 Min39 INT + ( MR39 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min35 +/- + 180 = X>=0 GOTO4
+ 180 = Min35 
LBL4 MR35 +/- + 180 - MR34 = Min38 MR20 * MR35 SIN / MR38 SIN = Min30 MRF - 360 Min5F =
LBL5 X>=0 GOTO6
+ MR5F = GOTO5
LBL6 Min5F "AZ" SDMS HLT
MR5F COS * MR30 = Min3F MR5F SIN * MR30 = Min4F + MR12 = Min25 MR3F + MR11 = Min24 FIX3 "X (Right)" HLT
MR25 FIX3 "Y (Right)" HLT
GOTO3


P8

AC DEG "PA 2 LINE KOUTEN" HLT
"AZmode[RTA]X2,4=AZ" PAUSE
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 "(L)- W1 +(R)?" 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 "(L)- W2 +(R)?" 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 "PA LINE [MUL] CIRCLE" HLT
"AZmode[RTA]X2=AZ" PAUSE
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 "(L)- W1 +(R)?" HLT
Min30 MR11 + MR30 * ( MR22 + 90 ) COS = Min45 MR12 + MR30 * ( MR22 + 90 ) SIN = Min46 MR13 + MR30 * ( MR22 + 90 ) COS = Min47 MR14 + MR30 * ( MR22 + 90 ) SIN = Min48 
LBL3 MR15 "RX?" HLT
Min15 MR16 "RY?" HLT
Min16 MR34 "R?" HLT
Min34 MR15 - MR45 ) R>P ( MR16 - MR46 = Min21 Min00 X<>Y X>=0 GOTO4
+ 360 =
LBL4 Min23 MR23 - MR22 = Min23 X>=0 GOTO5
+ 360 =
LBL5 Min23 MR21 * MR23 COS = Min30 MR21 * MR23 SIN = Min35 ( MR34 X^2 - MR35 X^2 ) SQR = Min31 MR45 + ( MR30 - MR31 ) * MR22 COS = Min49 FIX3 "X1" HLT
MR46 + ( MR30 - MR31 ) * MR22 SIN = Min50 FIX3 "Y1" HLT
MR45 + ( MR30 + MR31 ) * MR22 COS = Min51 FIX3 "X2" HLT
MR46 + ( MR30 + MR31 ) * MR22 SIN = Min52 FIX3 "Y2" HLT
GOTO3


P10

AC DEG "VERTICAL" HLT
LBL1 MR36 "Vr?" HLT
Min36 Min39 INT + ( MR39 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min34 MR32 "Vl?" HLT
Min32 Min39 INT + ( MR39 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min35 - MR34 = X>=0 GOTO2
MR34 Min5F MR35 Min34 MR5F Min35 
LBL2 MR34 + MR35 ) "TOTAL" SDMS HLT
- 360 = "e" SDMS HLT
MR34 - MR35 = Min38 X>=0 GOTO3
+ 360 = Min38 
LBL3 "2Z" SDMS HLT
/ 2 = "Z" SDMS HLT
+/- + 90 = Min38 "V" SDMS HLT
GOTO1


P11

AC DEG "SIMPLE CURVE" HLT
MR11 "X1?" HLT
Min11 MR12 "Y1?" HLT
Min12 MR13 "X2?" HLT
Min13 Min39 MR14 "Y2?" HLT
Min14 X=0 GOTO2
MR13 - MR11 ) R>P ( MR14 - MR12 = Min20 Min00 X<>Y X>=0 GOTO1
+ 360 =
LBL1 Min22 MinF "AZ" SDMS HLT
MR20 FIX3 "L" HLT
GOTO3
LBL2 MR39 INT + ( MR39 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min22 MinF 
LBL3 MR32 "(L)- R +(R)?" HLT
Min32 MR20 / 2 / MR32 ) ACS + MR22 = Min38 COS * MR32 = Min3F MR38 SIN * MR32 = Min4F + MR12 = Min2F Min25 MR3F + MR11 = Min1F Min24 FIX3 "RX" HLT
MR25 FIX3 "RY" HLT
LBL4 MR34 "CL?" HLT
Min34 X=0 GOTO3
* 180 / PI / MR32 = Min00 + MR38 - 180 = MinF COS * MR32 = Min3F MRF SIN * MR32 = Min4F + MR2F = Min25 MR3F + MR1F = Min24 FIX3 "X" HLT
MR25 FIX3 "Y" HLT
GOTO4


P12

LBL0 AC DEG "ZAHYO MENSEKI" HLT
1 Min00 0 Min2F 
LBL1 "Tensuu(3-)?" MR1F HLT
INT Min1F - 1 = X=0 GOTO1
MR1F - 2 = X=0 GOTO1
MR1F +/- = X>=0 GOTO1
"X1?" MR55 HLT
Min55 "Y1?" MR56 HLT
Min56 Min3F "X2?" 0 HLT
Min57 "Y2?" 0 HLT
Min58 2 Min00 
LBL2 1 M+00 "X[AR00]?" 0 HLT
Min59 "Y[AR00]?" 0 HLT
Min60 ( MR55 - MR57 ) * ( MR60 - MR3F ) = M+2F MR58 Min3F MR59 Min57 MR60 Min58 MR1F - MR00 - 1 = X>=0 GOTO2
MR56 Min60 ( MR55 - MR57 ) * ( MR60 - MR3F ) = M+2F MR2F ABS FIX7 "2S" HLT
/ 2 = FIX7 "S" HLT
GOTO0


P13

AC DEG "HIGH 1 ( S,V )" HLT
MR42 "EL?" HLT
Min42 MR43 "POINT[RTA](-) IH?" HLT
Min43 X>=0 GOTO3
MR11 "X1?" HLT
Min11 MR12 "Y1?" HLT
Min12 MR13 "X2?" HLT
Min13 Min39 MR14 "Y2?" HLT
Min14 X=0 GOTO2
MR13 - MR11 ) R>P ( MR14 - MR12 = Min20 Min00 X<>Y X>=0 GOTO1
+ 360 =
LBL1 Min22 MinF "AZ" SDMS HLT
MR20 FIX3 "L" HLT
GOTO3
LBL2 MR39 INT + ( MR39 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min22 MinF 
LBL3 MR44 "T.P[RTA](-) MH?" HLT
Min44 MR41 "S?" HLT
ABS Min41 MR38 "V?" HLT
Min38 ABS Min39 INT + ( MR39 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min5F COS * MR41 = Min3F MR5F SIN * MR41 = Min4F Min30 MR38 X>=0 GOTO4
MR3F Min30 
LBL4 MR30 FIX3 "L" HLT
MR38 X>=0 GOTO5
MR4F Min3F 
LBL5 MR3F + MR43 ABS - MR44 ABS + MR42 = Min36 FIX3 "GH" HLT
MR43 X>=0 GOTO8
MR32 "HA?" HLT
Min32 ABS Min39 INT + ( MR39 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = + MRF - 360 Min5F =
LBL6 X>=0 GOTO7
+ MR5F = GOTO6
LBL7 Min5F "AZ" SDMS HLT
MR5F COS * MR30 = Min3F MR5F SIN * MR30 = Min4F + MR12 = Min25 MR3F + MR11 = Min24 FIX3 "X" HLT
MR25 FIX3 "Y" HLT
MR44 X>=0 GOTO3
MR24 Min11 MR25 Min12 MR5F - 180 = MinF 
LBL8 MR44 X>=0 GOTO3
MR36 Min42 MR43 "POINT[RTA](-) IH?" HLT
Min43 GOTO3


P14

AC DEG "HIGH 2 ( h,l )" HLT
MR42 "EL?" HLT
Min42 MR43 "POINT[RTA](-) IH?" HLT
Min43 X>=0 GOTO3
MR11 "X1?" HLT
Min11 MR12 "Y1?" HLT
Min12 MR13 "X2?" HLT
Min13 Min39 MR14 "Y2?" HLT
Min14 X=0 GOTO2
MR13 - MR11 ) R>P ( MR14 - MR12 = Min20 Min00 X<>Y X>=0 GOTO1
+ 360 =
LBL1 Min22 MinF "AZ" SDMS HLT
MR20 FIX3 "L" HLT
GOTO3
LBL2 MR39 INT + ( MR39 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min22 MinF 
LBL3 MR44 "T.P[RTA](-) MH?" HLT
Min44 MR1F "dh?" HLT
Min1F MR43 X>=0 GOTO4
MR2F "dL?" HLT
Min2F 
LBL4 MR1F + MR43 ABS - MR44 ABS + MR42 = Min36 FIX3 "GH" HLT
MR43 X>=0 GOTO7
MR32 "HA?" HLT
Min32 ABS Min39 INT + ( MR39 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = + MRF - 360 Min5F =
LBL5 X>=0 GOTO6
+ MR5F = GOTO5
LBL6 Min5F "AZ" SDMS HLT
MR5F COS * MR2F = Min3F MR5F SIN * MR2F = Min4F + MR12 = Min25 MR3F + MR11 = Min24 FIX3 "X" HLT
MR25 FIX3 "Y" HLT
MR44 X>=0 GOTO3
MR24 Min11 MR25 Min12 MR5F - 180 = MinF 
LBL7 MR44 X>=0 GOTO3
MR36 Min42 MR43 "POINT[RTA](-) IH?" HLT
Min43 GOTO3


P15

LBL1 AC DEG "HIGH 3 ( S,V )" HLT
MR42 "EL?" HLT
Min42 MR43 "IH?" HLT
Min43 MR44 "MH?" HLT
Min44 MR41 "S?" HLT
ABS Min41 MR38 "V?" HLT
Min38 ABS Min39 INT + ( MR39 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min5F COS * MR41 = Min3F MR5F SIN * MR41 = Min4F Min30 MR38 X>=0 GOTO2
MR3F Min30 
LBL2 MR30 FIX3 "L" HLT
MR38 X>=0 GOTO3
MR4F Min3F 
LBL3 MR3F + MR43 ABS - MR44 ABS = Min1F +/- FIX3 "DH" HLT
+ MR42 = Min36 FIX3 "GH" HLT
GOTO1


P16

LBL1 AC DEG "HIGH 4 ( dh )" HLT
MR42 "EL?" HLT
Min42 MR43 "IH?" HLT
Min43 MR44 "MH?" HLT
Min44 MR1F "dh?" HLT
Min1F + MR43 ABS - MR44 ABS = Min2F +/- FIX3 "DH" HLT
+ MR42 = Min36 FIX3 "GH" HLT
GOTO1


P17

AC DEG "FIXED TRAVERSE" HLT
LBL1 21 MinF 0 Min93 Min94 Min95 "Tensuu(1-18)?" MR1F HLT
INT Min1F + 2 = X>=F GOTO1
MinF MR1F +/- = X>=0 GOTO1
"Xa?" MR81 HLT
Min81 Min3F "Ya?" MR82 HLT
Min82 Min4F "AZa(In)?" MR83 HLT
Min83 Min99 INT + ( MR99 FRAC * 2 10^X ) Min99 INT / 60 + MR99 FRAC / 36 = Min2F Min9F "Xb?" MR84 HLT
Min84 Min6F "Yb?" MR85 HLT
Min85 Min7F "AZb(Out)?" MR86 HLT
Min86 Min99 INT + ( MR99 FRAC * 2 10^X ) Min99 INT / 60 + MR99 FRAC / 36 = Min5F - MR2F + 180 * ( MR1F + 1 ) = Min8F MR3F - MR6F = Min96 MR4F - MR7F = Min97 1 Min00 21 Min91 
LBL2 "HA[AR00]?" 0 HLT
Min99 INT + ( MR99 FRAC * 2 10^X ) Min99 INT / 60 + MR99 FRAC / 36 = IND Min00 M+92 "L[AR00]?" 0 HLT
IND Min91 M+93 MR9F + IND MR00 - 540 = X>=0 GOTO3
+ 360 = X>=0 GOTO3
+ 360 =
LBL3 Min9F COS = * IND MR91 +/- = M+94 MR9F SIN = * IND MR91 +/- = M+95 MR00 X>=F GOTO4
1 M+00 M+91 GOTO2
LBL4 MR5F - MR9F = Min98 SDMS +/- "dAZ" HLT
1 Min00 
LBL5 MR98 / MRF = IND M+00 MR00 X>=F GOTO6
1 M+00 GOTO5
LBL6 1 Min00 21 Min91 MR2F Min9F 0 Min94 Min95 
LBL7 MR9F + IND MR00 - 540 = X>=0 GOTO8
+ 360 = X>=0 GOTO8
+ 360 =
LBL8 Min9F COS * IND MR91 +/- = M+94 MR9F SIN * IND MR91 +/- = M+95 MR00 X>=F GOTO9
1 M+00 M+91 GOTO7
LBL9 MR96 - MR94 = Min94 FIX3 "dX" HLT
MR97 - MR95 = Min95 FIX3 "dY" HLT
MR93 / ( ( MR94 X^2 + MR95 X^2 ) SQR ) = FIX0 "Seido 1/" HLT
1 Min00 21 Min91 MR2F Min9F MRF - 1 = MinF 0 Min6F Min7F MR94 +/- = Min94 MR95 +/- = Min95 GSBP19
GSBP2


P18

AC DEG "CLOSED TRAVERSE" HLT
LBL1 21 MinF 0 Min93 Min94 Min95 "Tensuu(3-20)?" MR1F HLT
INT Min1F - 1 = X=0 GOTO1
MR1F - 2 = X=0 GOTO1
MR1F X>=F GOTO1
MinF MR1F +/- = X>=0 GOTO1
"Xa?" MR87 HLT
Min87 Min3F "Ya?" MR88 HLT
Min88 Min4F "AZa(Out)?" MR89 HLT
Min89 Min99 INT + ( MR99 FRAC * 2 10^X ) Min99 INT / 60 + MR99 FRAC / 36 = + 180 = Min2F Min9F 180 * ( MR1F - 2 ) = Min8F 1 Min00 21 Min91 
LBL2 "HA[AR00]?" 0 HLT
Min99 INT + ( MR99 FRAC * 2 10^X ) Min99 INT / 60 + MR99 FRAC / 36 = IND Min00 M+92 "L[AR00]?" 0 HLT
IND Min91 M+93 MR9F + IND MR00 - 540 = X>=0 GOTO3
+ 360 = X>=0 GOTO3
+ 360 =
LBL3 Min9F COS = * IND MR91 = M+94 MR9F SIN = * IND MR91 = M+95 MR00 X>=F GOTO4
1 M+00 M+91 GOTO2
LBL4 MR2F - MR9F = Min98 SDMS +/- "dAZ" HLT
1 Min00 
LBL5 MR98 / MRF = IND M+00 MR00 X>=F GOTO6
1 M+00 GOTO5
LBL6 1 Min00 21 Min91 MR2F Min9F 0 Min94 Min95 
LBL7 MR9F + IND MR00 - 540 = X>=0 GOTO8
+ 360 = X>=0 GOTO8
+ 360 =
LBL8 Min9F COS * IND MR91 +/- = M+94 MR9F SIN * IND MR91 +/- = M+95 MR00 X>=F GOTO9
1 M+00 M+91 GOTO7
LBL9 MR94 +/- FIX3 "dX" HLT
MR95 +/- FIX3 "dY" HLT
MR93 / ( ( MR94 X^2 + MR95 X^2 ) SQR ) = FIX0 "Seido 1/" HLT
1 Min00 21 Min91 MR2F Min9F 0 Min6F Min7F GSBP19
GSBP2


P19

LBL1 MR9F + IND MR00 - 540 = X>=0 GOTO2
+ 360 = X>=0 GOTO2
+ 360 =
LBL2 Min9F SDMS "AZ[AR00]" HLT
MR9F COS * IND MR91 + MR94 * IND MR91 / MR93 = M+6F MR6F + MR3F = FIX3 "X[AR00]" HLT
MR9F SIN * IND MR91 + MR95 * IND MR91 / MR93 = M+7F MR7F + MR4F = FIX3 "Y[AR00]" HLT
MR00 X>=F GOTO3
1 M+00 M+91 GOTO1
"TDS-Survey 2002.05.01 Tossy,Dagoshi,Suwa"
LBL3 
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.