All Program List P0 AC DEG "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 LBL3 MR15 "X3?" HLT Min15 MR16 "Y3?" HLT Min16 MR15 - MR24 ) R>P ( MR16 - MR25 = Min00 X<>Y - MR22 = LBL4 X>=0 GOTO5 + 360 = GOTO4 LBL5 MinF "ANG" SDMS HLT MR00 FIX3 "L" HLT GOTO3 P1 AC DEG "TRAVERSEn" 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 "HA?" HLT Min32 ABS Min39 INT + ( MR39 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min00 MR30 "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 "INTER POINT" 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 MR11 Min1F MR12 Min2F MR22 MinF AC "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 "-:+" 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 P3 AC DEG "PA 2 LINE KOUTEN" 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 P4 AC DEG "SUISEN" 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 "TAIHEN 1" 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 P6 AC DEG "TAIHEN 2" 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 MR35 Min34 MR23 Min22 GOTO0 P7 AC DEG "2 LENGTHS" 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" HLT MR25 FIX3 "Y" HLT GOTO3 P8 AC DEG "2 ANGLES" 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" HLT MR25 FIX3 "Y" HLT GOTO3 P9 AC DEG "PA LINE [MUL] CIRCLE" 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 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 "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 "- 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 P11 LBL0 AC DEG "ZAHYO AREA" 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 P12 AC DEG "HIGH 1 ( S,V )" HLT MR42 "EL?" HLT Min42 MR43 "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 "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 "IH?" HLT Min43 GOTO3 P13 AC DEG "HIGH 2 ( h,l )" HLT MR42 "EL?" HLT Min42 MR43 "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 "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 "IH?" HLT Min43 GOTO3 P14 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 P15 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 P16 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 P17 LBL0 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 GOTO0 P18 LBL0 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 GOTO0 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.