CHT2005-1999三角测量电子记录规定.pdf 39页

'中华人民共和国测绘专业标准三角测量电子记录规定CH/T2005一1999Theelectronicdatarecordingrulesfortriangulation1引言1.1本标准规定了使用可编程序的电子记录器(含电子计算器和电子计算机)进行三角侧量观Mk」记录时测量信息的编码，数据处理的方法，输人、输出信息的内容和格式等1.2本标准适用于国家一、二、三、四等三角测量以及其他水平角和垂直角观测的电子记录1.3本标准同有关测量标准和ZBA76003-87(测量外业电子记录基本规定》(本标准中简称《基本规定》)同时执行2记录信息标识符与内容编码21对于没有说明的信息代码按《基本规定》填注三角测量标题信息〔见表1)一社表1信息名称标识符代码字符数内容代码7NI摄代号SVY测量年代丫EAR钡明徽标准一般为《基本规定》中的主题词代码，最多不超过zo个字符。测量标准主要指执行的测量规范名称抢标准代号没有代号按《基本规定》中的规定输人。SNo脚程序设计单位七i叫11118干呈序设计者:::刊洲丽只只义x程序名一适一适一适一适kXXX编备量用用用用写用代水垂等仪年号平直级器代角角代代号代代号号号号适用水平角代号适用单一种方法时，代号为方法代码〔见2.2)适用干多种方法时代号为:A-1,2,3,4,5(方法代码)B-.-2,3;C一1,4,5:D1,5。一适用于垂直角观测记录适用垂直角代号国家测绘局1999-09-07批准1999-09一07实施 CH"T20051999续表1序号信息名称标识符内容代码适用单一种方法时，代号为方法代码(1k2,,适用多种方法时代号为:八1、3孟门适用于水平角观测记录适用等级代号适用单一等级时代号为等级号;适用多种等级时.代号为A-1,2,3,-I;B-1、艺:(2,3,I;D3、4适用仪器代号:适用单一种仪器时.代号为仪器类型代码;‘『布适用f多种仪器时代号为A-1,2,7;8-1,28施测单位UNI19小组代号GRP10化观测者(〕BS1玲记录者REG佳廿测区FLU曰1仪器类型J1/21DJ,;2UJ};7DJH8仪器型号INS丁巧6仪器号IN()洲6测定口期YMU175水准器格值G.工_以秒为单位化519测微器行差R.M以秒为单位即横轴倾斜值1.I以秒为单位别记录器型号REC眨记录器编号RN()兰磁带机型号THE磁带机编号TN()2测站标题信息(见表2)表2序号信息名称标识符代码字符数内容代码记录编号UTN{)等级ORD水平角观测方法MFT1.I一方向法2-全组合法3-二_:方向法:4一折角观fd法;5分组方向法。垂直角观测方法METV1中丝法3一三丝法方向数NI)方向号DI联测方向号DX分组方向法时联测方向q水平角测回数NI垂直角测问数NV丫沐，丈测站名称点名MARK‘，)标石’r〔)W:上卫2日__哩近503 CHIT2005一1999续表2内容码序号标识符代码字符数一一一一13HI6一一}一RA*-Tv}]4照准目标高度HAIM同1315照准目标AIMI6水平角观测AIMI.照准目标垂直角观测八IMV照准巳标xxxxxxx·丫照准点名称SP蜘名点号图幅号MAPLOKxxxx水平角概略值度分里V0丫xx一垂直角概略值分23正负号度观测信息(见表3)一解表3喧峰一书，一牛6r0.$?代码字符数内容代码读数I!尺1XxxfX一_x_度X只又-巨67最小读数为单位读数2R2火又x一以最小读数为单位读数2只输入秒值部分，其实际值用程序判断观测方向D1Rx一x一(或第一组观测方向)一依观测顺序排列的照准力向招第二组观测方向同3DIl测回号卜匕I﹃度盘配置位置CTRxxx一分xX度秒观测条件信息(见表4)表4信息名称标识符代码宇符数内容代码日期DA丁E4时间TIME开始时间TMON结束时间TMOF天气NE风向风力WTND成象IMG涌视SEI"_504 CH/T2005--1999成果信息(见表5)表5一-斤号容脚信也,名称’标识符代码f符数一仁一一角号NO9数据标志SI(1NI观钡(川Ui序号No)(13坷个角度(或方向)值测得先后顺序号(包括垂直角和作废角的角值顺序号)水平角测站H:厂丫又平差力向值比负号以。时为草位，其度分值包括在其他信息中垂直角平差UL一同1水平角度分佰IVnAml"r}x垂直角1t分值V「〕M产xxxif负号度分吕U单位权中误差以‘工0I，为单位gM平差值中误差M应化为平差值方向中误差，以0.01"为单位l(比水平观测角秒值同4_折角观测时，应化算为左角角值l洲垂直观测角秒彼同1_﹄，其他记录信息(见表6)表6--片号信息名称标识符代码字符数内容代码IIINI数I212R3取i}组率R/R以百分比为单位水平角观测中二次NRI,读数差超限次数PC互差或半测回角值N2C差超限次数水平角观测中几次SR[只义火丫xx里XxK·""xx丫读数差值分布统计量平均值中误差各区}司统计个数(3又7)以.()]”为单位见仪基木规定介附录(认参考件)2C或半测回角5l(以伙OP为单位_值差变化统计量见附录R(参考件)垂直角观测中_次N尺勺读数差超限次数指标差超限次数丫2I垂直角观测中_次S民V又入丫XXXx又XXXX一XX读数差值分布统计量平均值中误差各区间统计个数(2X7)卫(以。.Ulrr为单位)指标差变化统门贵S21以Ol0t单位5{巧 CH/r2005一1999续表6{事号信息名称标识符一代码字符数内容代码水平角观7A明限差EEL丫一二次读数差之限差只2(’互差或半测回角差之限差火火同方向或同角度侧回h.之限差了又火一折角闭合差、归零差或直接角与间接角互差之限差垂直角观测限差EEV次读数之限差XX一丁一—一一指标差互差之限差卜X一测回互差之限差〔以秒为单位)2.7方向、角度编号方向、角度编号适用于度盘配置、角值存取等处理。2.了1方向号若测站上观测。个方向，则以距离适中、通视良好、成像清晰的某一方向作为起始1号方向，以顺时针为序，方向号从1到。编号。2.7.2全组合观测角号设U,j)为某一组合角，即由I号方向顺时针转到7号方向的角，并且，l，则角度编号为j..._1全圆方向法、折角观测法观测角输出应以全圆观测角号为序27.5分组观测角号分组方向法的第二方向组联测方向的观测角号编为最后一个角号.其他观测角均按全圆观测角编号若观测方向数为。，则分组观测角号从1到。，其中1到，:一1为全圆观测角号，。为第二方向组联测为向的观测角号。分组方向法观测角输出应以分组观测角号为序 CH/T2005一19992.了.6观测方向组号观测方向组号可用于编制度盘位置全圆方向法、分组方向法、折角观测法方向组数均为I全组合法的观测方向组号和全组合角号相同。三方向法的观侧方向组号见表80表8可用于通过组号查询三方向组，检查输入的三方向组是否正确2.7.7角号、组号索引表〔见表9)此表用于通过任一组合角检索三方向角号、组号。表9三方向角号三方向组号角号组合角S9(1,2)2(1,3)3(2,3)43(1.4)57(2.4)106H(3,4)74(1,5)88(2.5)012(3,5)切18(4,5)l1。(1,6)枪95(2,6)13131(3,6)14198(4,6)巧8(5,6)托2(1,7)17(2,7)1O507 CH/T2005一1999续表9三方向角号于方向组号角号组合”一不89S::(8,7)(4,7)艺0戈s.7>21(C,下)22(18)l污23(2.8)1624(3.8)1725(4,8)2fi(5,8)27(6.8)3生之8(7.8)1212ZIJ(I，9)3C〕(艺，9)::31亡3.9)一(32(49)33(岛.9)31(6.9)3乙(了,y)36(89)3记录与处理规定3门记录载体保存信息三角测量观测记录载体包括纸带(记录格式见5.1),磁带(记录格式见5.2)、观测记簿以己录格式见附录A(补充件))11.1打印纸带上必须记录的信息a.每测1.1观测角的平均值，包括同角度各测回互差，直接角和间接角互差超限舍去的值.以及有关这些值的说明信息(见5.1.5>5.1.6);b.测站平差后的方向值、垂直角值;。.单位权中误差和平差后方向值中误差;d.重测率3.1.2标题信息、观测条件信息可以记录在纸带上，或者观测记簿中。对于纸带上己有的信息除规定外.记簿中可以不再填写3.1.3选用磁带作记录载体时，3.1.13.1.2中规定记录的信息必须全部记录在磁带上，并打印在纸带上3.2限差检验项目和处理办法凡有关标准中规定的限差检验项目，记录器都必须进行检验。由于记录器功能的限制，无法检验的项目可以人仁判断。但必须保存被检验的数据记录凡由记录器程序控制检验的项目，其超限处理办法和重测数计算应按表1。执行 CH/T20051999表10序弓限差检验项日超限处理办法__丰两次照准i%数差币新进行两次照准读数视」微器两次重合读数差重新进行两次读数_测回,1,"C泡长度变化允许重新读取次两端气泡读数。如还不合格.重新观测本测回。测回2(勺_差(包括I..F半测回角{自l差、T-新现测半测h1归零差重新观测度盘(N置正确性f新配置度盘气泡中心偏移玉新观侧s光段观测基本测回数停庄又见测_9测回指标差互差重新观测土O2(.和指标差绝对值调整仪器，重新观测11一测回放弃方向数停止观测本测191待可u观测时，再观roil整个d!9loll2同一观测角度(包括归化后的方向角〕测l1W.4待基本测回结束后，按有关规定重测超限测回.计算重测数直接角和间接角互差按有关规定重测相应角度.日算乖测数一:重测数本M站重测」垂育角测回互差按有关规定重测超限角。当只重测一个单角时.可再选一清晰方同作检测方向与超限角起观测，对作指标差比较。检测方向的垂直角应舍去_16一左石折角中数闭合差本钡明站币测_在比较一侧回2C互差时.可以加人垂直角和横轴倾斜改正，然后进行比较，其公式为2C一2C"cosh--21sin1···································⋯⋯(1)式中:2C"为改正后的2C值;2C为没有改正的9(值，即2C-L-R，其中1为盘左观测值R为盘右观测值;h为照准点的垂直角值;I为横轴倾斜角值，应采用最新的测定值亡3.3度盘配置公式Cl尺=1+C+C「+C··························，·，······⋯⋯(2)式电〔，一1800(，一ll+LN8A0,-(，一1)(取至度);C=,-d(i+J-2)(取至分);一主(一告)(取至秒).a第k组观测起始方向概略值取至分测回号;1一一方向组号;m方向组的测回数:盯三方向法时，M为三方向组的测Ihl数;全组合测角法时，/69为方向组的测回数;N一一观测方向组数.除三方向法和全组合测角法外，其他方法均为1:d度盘分格值五测微器周值度盘配置计算时，一律采用“四舍五入”法取舍。4程序基本功能要求用于角测量观测记录的记录器，其记录软件应按规定的记录和处理项日具备卜列相应的功能509 CH/"r2005一1999a.对于每项输入数据，能够按观测限差进行检验出现超限数据时，能提示作业员进行处理对丁明显错误的输人数据应拒绝接收。b.能在光段开始、结束和观测条件发生变化时，记录观测条件信息c，能在一测回完成后，随意进行水平角观测记录和垂直角观侧记录d能在一个测站的观测结束后，打印输出观测成果、录制观测成果磁带数据文件并进行校对e.能自动判断重测、补测、测站观测是否结束，并能进行测站平差处理5记录格式5.1纸带记录纸带打印内容规定见3.1，打印格式按相应的规定执行根据纸带的宽度和打印机的功能，为了整齐美观，可以在规定的记录格式基础上，作适当的修饰如:加适当的线条、注记符号和标识符，多行排成一行等，但不能少于规定的打印内容。除数据项带有标识符时打印顺序可以适当调整外，不应改变规定的打印顺序纸带打印范例见附录A(补充件)5.1.1三角测量标题信息打印格式(见表11、表12)表11纸带格式备注}打印出信息标识符后内容可以由手仁填写或记录器打印SNO:UNfP:POR:PRO:SVY;YEAR:FLD:UNIT:GRP;OBS:REG:(仪器参数记录)项目排列见表12表12仪器类型和型号仪器编号水准器格值测定口期横轴倾斜值测定口期测微器行差测定日期记录器型号记录器编号磁带机型号磁带机编号打印时可以不打印标识符，各项目之间至少留一个空格5.1.2测站标题信息打印格式〔见表13) Ca/T2005一1999表13纸带格式DTNO=XxSr=MARK=又又XX1"O从=火火X>只XHI=XX>只XXORD=XMFTL=XND-又又NJ=X只DX=只D11=义义NV=XME丁V=XSP生:5.1.3观测条件信息打印格式(见表14)表14纸带格式备注DATEfM0NNOONOO表示记录观测条件信息时xxxxxxxXxXX的观测顺序累计号TMOF、VFWIND随机记录观测条件信息时的时xxxx入入x入IMxGSExE间记录于TMON项目中5.1.4观测结果打印格式(见表15)表15纸带格式备注LDMHAAIMIXXxxXXXXXxX以方向号为序VDMVAAIMVHAIMXXXXXXXXXXxXXXXXX以方向号为序5.1.5观测数据打印格式(见表16)表16纸带格式SE了1凡1〔;Ni.5NONOOxxxxxxxxxx以测回号和角号为序SET2511 CH/T2005-1999续表is-一一一一一一一一叫一.一份-‘-纸带格式.备注SFr王MOOSIGNxxxx丫x以R(回号和力向号为序SF"r25门.6作废数据打印格式(见表17)表17一一-一一一—一—纤带格才各注I,/},NOOSFTNO1./V表示:当S为水平角时，代只火又x洲议又义丫丫码为L当5为垂直角时·代码为V以观测先后为序5.，.7附录打印格式附录打印内容可为精度评定结果、重测率和其他观测质量记录、限差记录等，具体格式不作规定附录区的标识符为TEST，打印时，应在附录区开头打印其标识符。5.2磁带记录录制磁带数据文件的同时，必须打印成果表，其格式按5.1执行有关磁带选用、录制、注释、文件名设定、文件校对见《基本规定》录制到普通盒式磁带上的数据必须转储到大容量的磁带或磁盘上保存5.2.飞磁带记录数据结构录人磁带的甸一个测站的记录数据结构如表18所示表18存放文件一二角测量标题B测站标题文件标题区测站标题区观测结果区观测条件区测站记录区水平角数据区测站记录文例垂直角数据区作废数据Ix.附录区5.2.2文件格式凡不用的字符位置律为空格(见表19) CH/T2005-1_999表19区名信息名称I1-量字符位置地址备注文件SSN(1::-00测站标题义件DTNOSfMARKTOWHI33()RD39ME1"I40NI41Dx43DII45METV50NV51ND52NC;为记录条件信息的次数NC53NN为所保留的作废数据条数NN55NS为附录区长57本区变量设置为1个下标的一维字符数组，其长度为69字符{(料5s一39299513 CH/T2005一1999续表is区名信息名称I$量字符位置地址备文4MSP00一3oc)一当测水平角时，a=48:当不测水平角时.a=27MAP20当同时测水平角和垂直角时.戊」=364当只测水平角时.I()27一A==347;当只M垂直角时‘A一3:3VO32一本区变量设置为ND个下标的一维字符数组。当测水平角LDM37一和垂直角时，数组长度为65个字符;当只测水平角时，长度为HA42一48个字符;当只测垂直角时，长度为44个字符AIML47一47}本区终址为VDMa+0IA一299数组长度XND结VAa+5{以方向号为序AIMVa+10果14AIMa+11一(a+16)--A一A,N()(〕00-A}+1一本区变量设置为NC个下标的一维字符数组.其长度为21DATE03个字符观TMON07本区终址为;测TMOF11A,=A】十21XNC条WE15件WIND17区IMU19SEE20-20一(A十21)一A,00-A,+1一A,=A,+A03当METL=1,4时，A二9X(ND-1):水件04-08一(A,+09)当METl-2时，A=9XND(ND-1)/2平当METI-3时，A=9X(21XND-ND:一84)0角(7夏ND蕊9)数当METI二5时，A二9XND据一八息在水平角数据区中，变量设置为AXNI个下标的一维字区符数组，其长度为9个字符。本区终址为一AA,=A:.一十AXNI.00-AS一当测水平角和垂直角时，A.,,=A,+1;垂03当不测水平角时，A,=A,.+1,A}=A,,+B-1,B=9XND,直04-08在垂直角数据区中，变量设置为BXNV个下标的一维字符角数组，其长度为9个字符数据一A}区本区终址为一A.A-=A:+BXNV一1514 CH/T2005一1999续表19区名一信息名称一变量字符位置地址丈门L/V00一A一L/V表示:当5为垂直角时、代码为V当S为水平角it,]代}N0001码为I「作SET〔】刁当不测垂在角时.AA,十1废N(当测垂直角时.A二八一斗数S本IX变量设置为NN个下标的维宇符数组，其长度为13据个宇符区本区终址为:A‘二A,-13义Nn附录区格式不作规定本区变量设置为NS个下标的一维字符数组.其数组长度附为16个字符录本区终址为:区A.，=A=十1GXNS6上交资料测站观侧工作结束后，应把打印有成果的纸带剪贴在附录八规定的观测记簿中的相应表格里‘并应对观测记簿中相应记录的内容进行校对.确认无误后方可结束记录工作采用电子记录器记录后，有关标准中规定匕交的观测手簿和观测记簿改为仁交附录A〔补充件)规定的观测记簿和所有记录成果的记录载体。其他资料仍按有关规定仁交 CH%T20051999附录A观测记簿(补充件)A.1封面测等级水平角观测方法}4!}l回数垂直角观测方法测回数观测记簿Nn点名(点号〕所在图幅号测站方向图照北准点个施测单位 CHIT2005-1999A.2副封面观测者磁带号记录者文件名测量标准名称和代号程序设计单位程序名称程序设计者记录器型号N〔)-磁带机型}11No.仪器类型仪器型号Nn仪器参数测定日期水准器格值测微器行差横轴倾斜值标石规标从上标石中心起算的高度仪器台标顶回光台仪器水平轴基板回光中心 CH/T2005一1999A.3检查验收表 CH/r2005一1999A-4规标及观测情况登记表 CH-T2005一1999A.5测站观测结果表水平角观测结果一{一方向号测站平差后的方向值(，+’归零{加入’1i,。改‘L.r的方向值一口些竺_一1一[一-一-一2一一}_」卜一3一一4匕一__56}7R一一9一{___垂直角观测结果方向号测站平差后的垂直角值照准目标目标高度备往厂1{____23456789石20 CH/T2005一1999A.6记录观测条件用表风风观测顺序天气向力束N00TM0FWE、VTNT)0门1比胜2022盯9?此︺﹄州1门任一SS:GABFCD八EWFIFEDAEBINST:WILDT3SNO:CHJGT-74INOI91390UNTP.(八BBAAFEVBAAI)POR.(533750113581)YMDPR()一(:TAOAB86ZBSVY一(奋I"Y入DYEAR.83R.M.0.02FLTlOT2(264252833988)YMD:830621UN1T:(61AT)1(BAAO)REC,PC1501GRP:25RNO:0001OBS:(246319392913)TRF.(E一152REG:(322625803354)TNO:0001111/2 CH/T2005-1999n.7张贴打印纸带用表页数:几DTN()一(r2I./VNOOSETN()STES"IS1’一(29105515).泊q4MARK=P202L]一3280:;()5301132469qTOW=002623mI门69403711825{〕5月H1=22.77I-115901292一{I9S〔)ORI)二2METI二2TIME一324163631NI)一5NI二6Dx-1)11--MAP卜nVolJ>MHAAIMISP1:(1,33d129)91044()+056{〕00SP2:(523219394950往46137{一0036I372098〔〕6873375)八划SP3:(32855515)9504415650一0051565028790SP4:(3477322822a8)9504420391一003203441203自SP5:(16554129)9504427:330十I05273301885︺SETISET4NON()〔)SIGNLSN()NOOSIGNI"S、.‘3I工20201112250今乙331262328552815八n351905391850J以46331275381955乌56I一755361一905八卜6161一147()351一151,户了721206032工1765587一130371一1759917一860401一1215101089503416工5SETZSEr5N()NOO5IGNLSN()()SIGN飞JS1912080N〔{4112170夕2101299()]6133020，门4518563131685J斗411111004311130-卜:,14一900钊461一109日内卜618一1580481一1615﹁7121830.44120605815一510471一315，919一1050吐91一1180IC1020685501870SET3SET6N()NOOSIGNI"SNOOSIGNI.S12112005NO15112225，22212910︸5212620Q3251755妇551870423112005311170526一830561一805628一1665581一1610自‘72419655411925只827一225划571一90。929一1070591一1030刊}03{〕5356017牛几522 Ca/"r2005一1999A.8归心改正和t标高记录用表测站点和照准点归心改正计算用表投影用测定平均值一:方向编号)+M一伯-纸编号日期"/e0/()+M,)测站点归心1{{23月I4准占5归6心7{‘8!9}一}{点名:规标类型由上标石面量至砚标各部位的高度第一次第二次中数部位mI1)ml}523 CH;T20051999附录B2C和指标差变化统计(参考件)2<.和指标差变化主要反映了观测照准的精度以及外界因素的影响程度2(’和指标差变化以光段为单位进行统计。如果一光段中仪器2C和指标差进行过调整.则另分光段统计。对于测站L所获得的绝对值合限的2C和指标差都应统计。统计量S计算公式:/玩二1>S乏n，一1MAX若一n:AX`S=习。一1式中:OX;=X;-X.,,Zlx二半2C或指标差;戈X的近似值;毯I光段中统计的2C或指标差的个数。附录C记录用语(参考件)C门操作指令操作指令就是启动程序模块所用的字符(见表CI).表cl操作指令序号系统显示宇符为DO?此指令与机型有关退出记录系统用干测站观测前用于随机记录观测条件信息:一FILE录制数据文件 CH%T2005-1999C2操作提示符(见表C2表CZ备注序5提不符意义一一请输人沐为信息标识符X请输人操作指令。是否执行X>为操作指令_火又一xx测回标志n--xx火一一一厂M回号数据标志1JVx一x方向标志c丫x下方向号盘左L盘右R6}C:IR度盘配置位置为XXX.x又x只Xxx.丫x<7一5一()K测回合格8一ST-OK!A明站合格C.3超限提示符(见表C3>表C3序号提示符意备注RI2二》两次读数差超限5I)汽泡长度变化超限ZC)ZC互差超限表示度盘配置不正确、要求重新(IR=度盘位置应为:配置。XXX·XXXX又义又又火·又直接、间接角互差超限81>指标差互差超限，，2=XXX·X2c已为xxx·入，请调整:刊=XXX·X指标差己为xx只-x.请调整!1RRR>重测数超限12o>归零差超限此1.R-360>折角闭合差超限14SXXDX0"X--RM只又测回X火方向重测二抓SxXDX"X--FM义火视回火⋯只方向补测】525 CHIT2005一1999附录D记录程序GTAGAB86ZB(参考件)D，1说明本程序是按照《国家三角测量和精密导线测量规范》,ZBA76003-87((测量外业电子记录基木规定》和ZBA76004-87《三角测量电子记录规定》编写的三角测量记录系统，适用于PC150。系列计算机。运行本程序需要22KB的内存容量适用仪器类型DJ=DJ;读数方法:读格或读秒;适用方法:全圆力向法、全组合法、三方向法、折角观测法、分组方向法;适用等级:一、二、三、四等;水准器分划类V)零分划在左端和中间本程序可以记录标题信息、观测条件信息、观测数据自动进行各种数据检验处理，并能打印输出观测成果，将成果录入盒式磁带.并对磁带数据进行校验本程序能输出如下供检查验收和质量评定的信息:a单位权中误差.平差值方向中误差;b.限差、两次读数差和ZC互差超限次数、重测率、测站测量次数一光段2C变化统计量;两次读数差值分布统计结果本程序具有输人信息逻辑判断、操作流程控制、中断恢复等功能本程序还可进一步优化，增加程序和数据保护功能等。为了使本程序适用于PC-1500加16KB模块的机型，可把本程序缩写成适用单一观测方法的程序D.2程序20GOTO902050"GOON"A=Q:Q=20:GOTOA650"STRT"IFC2$<>ZZ$GOTO20652GOSUB8040:1二10:IFV$<>"O"GO"I"O660655IFI=12LETI一I+3657Q=657:GOSUB2650:GOSUB2600658I二I+1:IFI<21GOT0655660BI一VALMID$(E$(2),16,5):IFBJ<1ORBJ>2GOTO510665BI=VAI,MID$(E$(2),27,5):1FABSB1>5+5，BJGOTO580666A=VALMID$(E$(2),38,5):IFABSA>BJGOTO570667D=NM/3:DIMC$(8)-1,V$(34)"5,A$(1)-9,M$(34)苦5668DIMQ$(29)-l.0$(D)-2,N$(D).2,P$(D)-2,A(9),T$(6)}36701=2.5680Q=680:GOSUB2650:13$(1)=D$(0):GOSUB2500:1)$(0)=B$(1)6901二I十1:1FI<32GOTO680692BT=VAI,MID$(D$(0),41，1):ZO=VALMID$(D$(())，10,L):IFBT=-3ANDZO<>ZLETI二30:GOT0680693IFBT二IORBT=51FZO<21_ET1=30:GOTO680694IFZ0-10RZ()二21FBJ<>ILElI二30:GOTO680695IFZO4LETI一30:GOTO6吕0526 CH/T2005一1999697IFBT51,ETI二31:GOTO680698IFBT一2ANDZO>2I_ETI一30:GOT0680699IFBT=4LETBD一2:GOT0706700Q二700:INPUT"ND=";BD:IFBD<10ANDBD>1GOTO705701GOTO700705J二0:IFBT二3ANDBD<7GOTO700707IFBT=2ANDBD=9GOT0700710Q=710;CLS:WAITO:PRINT"DI";J+1;:INPUT“:”;A$715CLS:F$(J)=CHR$0720I二36730Q一730;GOSUB2650:F$(J)二F$(J)+RIGHT$((奋$(0)+G$(1),B)7401=1干1:1FI<41GOTO730750J=J+1:IFJ3GOTO980870IFZ()二1LETE4一5:GOTO900880E4二6900BM=INT(BM/BD+.4):IFBT=31.ETBM=INT(3-BM/2干.5)910IFBD<5LETE4=E4-.5:GOTO980920IFBD>6LETE4=1NT(E4-.8十.5):GOTO980930E4二INT(E4..6+.5):GOTO980940"11,1"DATA60,41,0.0945"1T1"DATA41.31,0,0950"21,1"DATA30,20,12,8955"21-2"DATA0,0.16.12960"M"DATA0,15,9,6965"2T2"DATA0.0,12,9970DATA1.5.2,3.5,5980IFBT二1LETA$(0)=LEFT$("123156789",11D)981IFBT<5GOTO1010982INPU"C"DX=";R,"DIR二”;A$(0);"DI一”;A$(1):GOTO984983GOTO982984WA工T0tPRINT"DX=";R;"D工R=";Y$;"DlI=";Z$;:工NPUT“一OK?",A$:工FAS="Y"CLS:GOTO1010985CLS:GOTO9821010IFBT<>3GOTO10201012IFBD=71.ETAD二O:B0=0:CO一71014IFBI)二81-ETAO二7:BO=21:CO=12巧27 CH/r2005一门9991016IFBD二9LETAO=19:BO二49:C0二121020IFBT=IORBT=41-ETNO二BD-I1025IFBT二2LETNO=BD、(BI〕一1)/21030IFBT二3LETNO=21*BI)一BDrBD一841035IFBT二51-ETNO一BD1100IFBT二21.ETNY-BM、NO:A一NY1105IFBT二3LETNY一BM，CO:A二NY:IFBI)--8LETNY一NY一4,(BM一INT(BMx2/3+.5)):A一NY]110IFBT二40RBT二1LETNY一BMA一BM;(BD一1)1115IFBT-5l.ETNY一BM:A二BM二BD1120EE二A/31200SS一01500Zl=1:AA二0:51二O;S2=0:S3=O;FOR1=0TO6:T$(I)一‘.()”NEXTI:E$一“F$=E$:〔奋$二E$1505H$二E$;FOR1=0TONO-BM一1:S$(I)一“":NEXTI:GOSUB3660:P二40101510NC二O,NX=0:SN=0:SR=0;SC二O:SS=SS+1:M1=O;M2=0:NW=0:Z$一“”:NS二O:NN=61020FORI=0TO27:V$(I)一“O",NEXTI1600ZZ$一STR$TIME:C3$一ZZ$1610GOTO202000S=02005CURSOR12;INPUT"RI=";A;WAITOYRINTG$(0):GOTO20202010GOTO20052020IFA二OGOTO20552040GOTO20052055D一19一9二BJ:A=A/DcB=B/D2060C二INT(A/100)/IOO:A=DEGC十(A一C-IE4)}CJ/3600:B=DEGC4B-CJ/36002070C二(A一B)-36002080IFABSC>30;CJI.ETD=SGNC*CJ/60:B二B+D:C二C一D*36002090IFABSC>EPAUSE"R12>":BEEPIO,S一S十I:GOTO20052100A二(Af-B)/22110RETURN2500B$(O)=LEFT$(B$(1),A一1):G$(1)=G$(1)+G$(0):C=LENB$(])2510G$(1)=LEFT$(G$(1),B):B$(1)=RIGHT$(B$(1)，(、一A一D+I):B$(1)=B$(0)干GS(1)十B$(1)2520RETURN2530CLS:WAIT0,PRINTA$;2540INPUT"=";G$(1):GOT025602550GOTO25302560CLS:IFLENG$(1)>BGOTO25302570RETURN2580GOSUB2640:GOSUB25302600D二B:B$(1)二E$(E):GOSUB2500:E$(E)一B$(1):RETURN2610GOSUB2640:GOSUB2630:GOSUB2635:RETURN2620GOSUB2640:B$(O=E$(E):GOSUB2630:B$=“:":GOSUB2635:REIURV弓28 CH/T2005一19992630G$(1)二MID$(B$(0),A,B):RETURN2635LPRINTA$;B$;:IFB<141,PRINTG$(1):GOTO26382636LPRINTLEFT$(G$(1),12):TAB6:LPRINTRIGHT$(G$(I),B-12)2638RETURN2640A$二MID$(Y$(1),6,4):A二VAI.MID$(Y$(I),2,2):B=VAI,MID$(Y$(I)，2):E=VAI,LEFT$(Y$(1)，1):RETURN2650GOSUB26402660CLS:GOSUB2530:WAITO:PRINTA$;.‘_”;G$(〕);:INPUT“一()K?";B$,IFB$一“N"GOTO26602670CLS:I)一B:RETURN2700IFK=OLETC二A:D=A:E=I:F二I:GOTO27152705IFA>CLETC=A:E=12710IFA99LETS二992755P$(G)=STR$S:Q$(B)="1":G=G+I:RETURN2800A=VALM$(E)+S-VALM$(F)+36E4}(DEG(VAI.V$(E)/100)-1-S*DEG(VALV$(F)门00));B二B十A2805IFA>MLETM=A:C一E:D=F2810IFA360LET()二()一3603150()一INT(DMSO,1E4+.5)/IE4:RETURN3200S1二S1+1:S2二S2+C:S3二S3+C-C:E二INTO-C/E1+.999+-SGN(SGNC一1).999)+33210T$(E)=STR$(VALT$(E)+1):T$(E)=RIGHT$(“”十T$(E)，3):RETURN3250"BGN"IFC3$<>ZZ$GOTO203255GOSUB3660:ZZ$=STR$TIME3260Q=3260:CN=NC:GOSUB3290:C4$=ZZ$,NS二1:C6$=ZZ$3265GOTOP3270"END"IFC6$<>ZZ$GOTO203272GOSUB3275:C3$=ZZ$:PAUSE"STOP!":BEEP20:END3275ZZ,$二STR$TNTCLIME二1oo):G$(D-RIGHT$(ZZ$,4):B$(1)一W$((",N):A二12:B一4:D二4:GOSUB2500W$(CN)二B$(l:GOSUB3650:RETURN::::A一INT(TIME-100):G$(1)-RIGHT$(“"+STR$SN.3)斗RIGHT$(“〔)”污29 CH/T2005-1999STR$A,8)+"3305ONERRORGOTO3305:INPUT"CND/";A$:GOTO33103308GOTO33053310CLS:B$=LEFT$(A$,U:I=l:IFA$="00"GOTO335533151=1+1:c$=MID$(A$,1.1):B$=I3$+C$oIF1=6GOTO33053320IFC$<>"="GOTO33153325A$=MID$(A$,I+L,5),WAIT()CURSOR15:PRINTB$;A$:CURSORO,GOTOB$3330"WE="E$=A$:GOTO33053335WIND="F$一A$:GOTO33053345"IMG二”G$=A$:GOTO33053350"SEE="H$二A$;GOTO33053355E$一LEFT$(E$+G$(0).2);F$=LEFT$(F$十G孚(0).2)3360G$=LEFT$(G$斗G$(0),L):H$=LEFT$(H$+G$(0),1)3370W$(NC)=G$(1)+E$+F$+G$十H$:NC=NC+1:RETURN3400J=13405J=J+1:A=J-CJ一I)/2:IFAOGOTO35303520GOTO35103530CURSOR12:INPUT"I.R=";B:WAIT0:PRINTG$(0):CURSOR12:IFB>OGOTO35503540GOTO35103550C二A一B:D二A+B3560S=1:IFABSC>100LETE=ABSC:C=D:O二E:S二一I3575IFF=ILETM=D,N=D3580A二M:B=N3590IFD>ALETA=D3600IFD61.ETK=2:PAUSE"L一ER!":BEEP6:GOT035103620M=A:N一B:F=23630RETURN3650IFDO<2GOTO36603655A=D1/DO:M2二M2+D2一DO*A*A:M1二M1+D03660DO二O:D1二O:D2=03665RETURN3700X=LENX$:Y=VALLEFT$(X$,1):RETURN3710IFBT二5ANDCO=2ANDJ=RLETJ=BD+13712IFBT一1ORBT>3LETA=J一]:GOTO37253715A=Y+(J一1)二(J一2)/2:1FBT二META=VALI$(A一1)3725RETURN3730K=2:GOSUB3700530 CH/"r2005一1999J二VALMID$(X$,K，1),GOSIJB3710(一(Z一1)关N()十A一1::;:U$(NN)=.,I”卜RIGH$(C;S(())+R$‘〔’).3)+RIGHT$(‘.”t-STR沐/，2RIGHT$(“”十STR$2)3742U$(NN)二U$(N)二R工GIIT水(C$(0)-H半代、),5):S劣(C)二“。”3745K=K+1;NN=NN十1:IFK<一XGOTO37353750RETURN3800IFB"I’二2GOSUB34003805IFBT二3GOSUB34203808RETURN3810A=DEG(VALV$(N一1)/100)一(八(J)-A(I))/60+VALB$/36E43815B$二STR$(SGNA-1N"1CABSA>36E4丰.5>),RETURN3990A$="RM":IFZ1=2LETA$二‘FM=3995Q二3995:WAITO:PRINT"S";Z;"D";X$‘”;八$;‘一";:BEEP10:1NPUT‘、’;八%4000"LS"CI_S:IFC4$<>ZZ$GOTO204010P=4010:Q二20:INPUT"LS/";A$:GOT()40304020GOTO40604030IFA$二“CND"GOSUB3290:GOTO40104040IFA$二“GO"GOTO204050GOTO40104060IFZl<>1GOSUB37001GOTO41954070IFB"I’二IORBT>3GOTO40904075Q二4075ANPUT"DIR=":X$:IFLENX$=20RLENX$=3(;OTO40854080GOTO40754085IFBT二21FLENX$<>20RX$=Z$GOIO40754090Q一4090:INPUT"SET一”:Z:IFZ<=BMANDZ>OGOTO10964095GOTO40904096IFBT二3ANDLENX$=2ANDZ>INT5GOTO41124100Q=4100:INPLJ7""Nol/22":CO:IFC(、一IORCO一2GOTO41104105GOTO41004110X$=A$(CO一1)4112A=NY:IFBT二5LETA一2}NY4114IFZO<3ANDNS>A+(2十4}ZO)门5GOTO32724118IFBT二4LETA二21一18}(Z/2一INT(Z/2):X$=STR$A4120IFB"1、一1LETX$二A$(0)4125GOSUB3700:N二Y:M一VALMID$(X$.2.1):1FBT=41.ETN=O:GOTO41904130IFM31.ETN=M一2:GOTO41904170D=VALJ$(B0TC)一I:IFX$<>K$(AO十D)GOTO40754180N=VALI$(C)一14190A一No*(Z一I):IFX<4ANDVALS",(A一N)<>OGOTO40704191K一34192IFX>3GOSUB5680:N二J:K=K-I-1:IFK<=XGOT041924195W$二X$于STR$Y4198IFBT=4LETA一21一18、(Z/2ANT(Z/2)A$=STR$A几3I CH/T2005-19994200GOSUB30004210CLS:WAITO:PRINT"CIR一”;();4230Q一4210:INPUT‘!”;A$4240I一O:II一O:F二14250)二VAI,MID$(W$,1+1.l4260Q=4260:CLS:WAI"CO:PRINTZ1:“一‘";Z;":,一”;J:,.‘，4270E=E1:GOSUB2000:SR一SR土S4280B二4360:IFA>二OGOTO12904282IFI=YGOTO42884283IFB"I’二4ANDJ=RGO"]一()42884284C$(J一1)="O":H二H十1:IFH>(X一1)/3GOTO42834286GOI"OB4288PAUSE“*ND>1/3":BEEP6:GOTO40104290C$(j一1)二‘"I":GOSUB32004300IFI一()ANDABS(A一DEG0);>5/3600BEEP6:GOTO42104310A(1)一A:B二DEG(VALMID$(F$(J一1),33,5)/100)4320IFABSB<一2+SGN(Z()一1)GOTO43604340Q一4340:GOSUB3500:M$(1)=STR$(C*S)4345IFM一N<=6GOTO43604300PAUSE"SL>":BEEPIOGOTO42404360I=I+1:IFI":BEEP104500GOTO42404502PAUSE"RRR>":BEEP20;GOTO15004510K-14520J=VALMIT)$(W$,1,1):IFC$(J一1)="O"GOTO47304530Q二4530;CLS:WAITO:PRINTZl;“一”;2;“:R一”;J;"/=,4540E=E1:GOSUB2000,SR=SR+S4545B=4730:IFA3591.ETC-C一3604600A(I一1)一I一C124605L=A4610G一DEG(VALMIDr(F$CJ一I)，33,5)/100):C=C.3600>COSG-Bl2*SING4615B一10十10.BJ;IFABSC<二BGO"I"O46304618IFABSC>2-BPAUSE"R一FRI":BEEPIO:GOTO42404620PAUSE"2C=";C;"!";:BEEP10:INPUT“”;A$4625CLS:GOSUB3650:GO"1"042404630IF1=KLETT=C:V=C4640IFC>TI,E"I""C二C4650IFC":BEEP6魂685SC=SC+I:(;0T042404690IFABSG<一2[SGN(ZO--L)GOTO47304700Q二4700:GOSUB35004710IFM一N>6GOTO43504712B=VALM$(I一1)+C:IFB<一40GOTO47204715PAUSE"DI一”;B,"1”;:BEEPIOANPUT‘”;A$4717CLS:GOTO42404720A(I一l)一BxBI,xTANG/144E3十A(I一l)4730I=1一14732IFI>OGOTO45204740IFX<4G0T04770飞75()IFABS(W一I)*3600>E4GOTO44004755A(O)=(A(X)-A(0))/24770FORI二ITOX一14780AO)一A(I)一A(O:IFAQ)9999PAUSE"S一ER!":BEEP20:GOTO42404835C一(Z一1)*NO十A一1:H$(C)=STR$B:S$(C)二“0"4838IFC$(J一1)一“1"LETS$(C)=STR$Z1:SN一SN+l;R$(C)=STR$SN4840NEXTI:Z$=x$4850IFZIG>lGOT04865485;NS=NS+1:IFB7‘一SANDCO二ZLETNW二NW+I:GOTO48654860NX二NX+14865PAUSE"S一()K!":BEEP104910IFBT二SANDCO二2ANDNW二NYGOTO50004920IFNX一NYGOTO50004940GOTO40105000IFBT>IANDBT<5GOTO56005510FORI二OTOBM一1:X$二“1"5512K一2:A$一A$(0),IFBT=5LETA$=A$(CO一I)5524GOSUB56805526K=K十1;IFS$(NO-I+J)一“0"LETX$=X$+STR$(j二2)5528IFK<二LENA$GOTO55245530IFX$<>"1"LETZ=I--1:ZI=2:GOT039905535NEXTI5600G-O:IFBT<>5FORJ=oTONO一1:GOSUB5610NEX"I"J;(*OTO57005602K-=2;A$-A忿(C"0一曰5604GOSUB5680593 CHIT2005---1999汤606GOSUB5610:K二K-r-1:IFK<二LENA$GOI"O56045608G07〔)5700汤6I(}S=O:K=O:FORI=0T0BM一1:B=N0-}I+J:IFS$(B)=""GOTO5660SG15八=V八!II$(B):S二S+AQ$(I)="0":GOSUB2700:NEXTI几620II一INT(S/I十.5):(、$二STR$H:A二J:IFBT=3LETN=J+1:GOSUB3420562几M$(A)二C$56艺8IF(’I)<二E3*JE20RA八+G>EEGOTO;6605630M二ABS(C一FD/E31.2:N二ABS(D-H)./E3,.2污632IFM>IOLETB一E:S一M:GOSUB27505635IFN>IOLETB二F:S=N:GOSIJB275056生0K=O:FOR1=0T0BM一I:IFS$(NO-,I+J)一’‘"GOTO56285615IFQ$(I)二“I"GOTO5605665()GHSUB2700弓65弓NEXTI:GOTO56285660RETURN5680J一VALMID$(A$.K,I)一2:IFBT二51FCO=2ANDJ十2一RLETJ--BI)一15685RE丁URN5700IFG二OGOTO5840,705IFAA+G>EEGOTO4502,5710IFIA’二IORBT一5GOTO57605715E二()5720FORI一OTOG一1:A=VAI.P$(0)苏725IFA>ELETZ一VAI.O$Q)+i:D二VALN$(1)+I:E=A5730NEXTI5735IF$T=2LETN二D:GOSUB3400A$=A$5740IFBT=3LETN=D:GOSUB3420:X$二A$乌了I5IFB"I’二4LETA二21一18*(Z/2一INT(Z/2)):X$二STR$A5750GOTO58005760E=O:FORI二OTOBM一1,)765S=O:A$二“1":FORJ二OTOG一1乌767IFVAI()$(J)<>IGOTO5775577‘)八=VA工F$(J):S=A十S:B一VAI.NS(J)+2:IFBT二5ANDC0=2ANDB=131)4IIEr工3R5772A$=A$+STR$B577:;NEXTJ5785IFS>ELE"PZ=I+1:X$=A$:E=S5790NEXTI5791IFBT二1ANDLENX$一1>(BD一I)/3LETX$=A$(0):GOTO58005?96IFLENX$一1>(LENA$(CO一1)一1)/3LETX$二A$(C:0一1)5800A:1二AA+LENX$一1:IFAA>EEGOTO45025825GOSUB3730:Z2=0:Z7=3;GOTO39905810IFBT二SAND(NXG>NYORNW<>NY)LETZl二1GOTO40105850IFBTG>3GOTO60105855FORI一()COC()一I:A$二K$(A()十I):IFLENA$=2GOTO5880586〔)A二VALLEFT$(A$,l):B二VALMID$(A$.2.1):C二VALRIGHT$(A$L)E=(日一])*(B一2)/2一]5869F一(C-1)-(C-2)/2-1:C=VALM$(A一F)一VALM$(A-I-E):M$(B+F)=、3介 CH/T2005一1999STR$C5870I)二DEG(VALV$(A+工r)/100)一DEG(VALV韦(A+E)门〔)()，:V$(B一F)二SIItkINT(DMSD+.7)5880NEXTI6010IFBT一20RBT=3GOTO60906015C二O:FORJ二OTONO一1:A二VAI.M$(J):FORI=OTOBM-16020D=(VALH$(NOxI+J)一A):C一〔、十D}D:NEXTI:NEXTJ6025B=O:FORI一OTOBM一1:A二O:FORJ=O"IY)NO一]6030A=VALH$(NO*I+J)一VALM$(J)+A:NEXTJ6035B二ASGOTO60686045A=VALM$(R一2)一VAI.MS(BI)一]):IFABSfl>3000LETA=A一SGNA.t6Oqu6047IFABSA>(1.05.20一9.5*20-20)-2PAUSE"DX>":BEEP20:601"015006050A-A/4:FORI二ITO2;A$=A$(I-1):K一26055)一VALMID$(A$,K,1)一2:B二A:IFJ=R一2LETB=2-rA6,060A二VALM$(J)+(2}l一8)xB:M$(J)=STR$(SGNA-INT(八BS八十.几)):K==K十I:IFK<-I,ENA$GOTO60556065NEXTI6068IFBT<>4GOTO60806070A=O,B=O:FORI一OTOBMSTEP2:A=VALHe,(1)1A:B=VALH$(11-I、1BNEXTI6075IFABS(A一B)/50>E4-BM:PAUSE"LR一360>":BEEP20:GOTO15006080GOTO62006090()二O:FORK=0TONO一1:P$(K)二“0":NEXTK6095FORK二oTONO一1:N一K+IiGOSUB3400:B=2x,(VALM$(K)十36E4yDE((VALV$(K)/100)):M二B/2:N二B/2:C=K6100S二一1:G二K:D二K:H=K6102IFI>1FORL=01"0I一2:E-(J一I).(I一2)/2+1_:F二(I一1)关(I一2)/2一L:GOSUI32800:NEXTI6105工FJ<>BDFORI二J+1TOBD:E=(I_一l-“2户2:F一J一1}E:E一II卜二:GOSUB2800:NEXTL6108S一16110IFJ<>I+1FORI一I十1TOJ一1:E=I一1+(I一1l,C1一2)/2:F一I(干(J一2)/2:GOSUB2800:NEXTL6115B二B/BD:IFM一N<二E4.100GOTO61306120A=(M一B)/5/E4:P$(C)二STR$(八十VALP$(C)):P$(D)=STRS(A一VALI"$(D))6125A二(B一N)/5/E4:P$(G)=STR$(A一VALP$(G)):P$(1)=-SI"R$〔八十V八!P$(H))6130A=(36E4-DEG(VALV$(K)/100)二VALM$(K)B):()一()十A-xA6135IFI二ILETA(J)=B/6E36140NEXTK:A(1)二06145A一0:B=0:FORI二OTONO一1:C一VALP$(1):1FC>ALETA-(":B=I斗]6150NEXTI6155IFB=000TO61806160N=B:GOSUB3400:X$=A$:IFBT=3LETX$=KS(AO+B一1)6165AA=AA+LENX$一},IFAA>EEGOTO1502 CH/"e2005一19996168B=(A(7)一A(I))/60:C=O:FORK=OTOBM-:八=K,N()一N一I6170D=ABSDEG(VALV$(A)/100)一VAI.M$(A)/36E4一B:IFD>CLET(=D:Z=K+16172NEX"lK6175ZI一3:A$二‘"RM(D.[>)":GOSUB3730:GOTO39956180A一2:B一BM:C=O:IFBT=一3LETA一3:B二INT(BM*2i3}5):lFBD=81.ETC=96181M二SQR(A;B}01/((BD一I)关(BI〕一A)+C)、:0=M/SQR(B-BD)6182FORI二21"0BD:A一INT(A(I)+.5):M5(1一2)二STRtiINT〔(A(I)-A)-6F3+-5):八(I)二A:NEXTI6183FURN--ITONO:GOSUB38006189FORK一OTOBM一I:C=NO-I{一N一1:B$一HS(C):GOSL:B381O:H$(C)=135NEXTK:NEXTN6186IFNN二OGOTO61956187FORI.=OTONN-1:N一VALMID$CUS(I)-7,2):B$一RIGHT$(U$({)SJ:GOSUB38006188GOSUB3810:U$(I.)--LEFT$(U$(I),8)书RIGHT$(G$(〔))I-B$,5):NEXT!6195FORI一OTOBD一IN$(I)一STR$INT(DMS(八(1+2)/60);IOt」十.5),NEXTI6200GOSUB3275:)$(0)一LEFT$(D$(0)，1L)+I,EFT$(STR$BM-I-“",2)6205A$二“":B$=“”:IFBT=,LETA$一LEFT$(STR$R+“".2):B牢=LEFT牢(A$(1)十G$(0),5)6210D$(0)一D$(0)+A$十B$+“"+STR$BD一LEFTS(STR$SC411"-2)4LEFT$(S丁R$NN十“”，2)+“4”6212A$一RIGHT$(F$(0),1)6215F$(0)一LEFT$(F$(0),37)午LEFT$((}$(()).10)十A$:D$(〔〕)一1)$(0)+LEFT$(STR$NO""”.2)6220FORI=1TOBD一16222A$一RIGHT$(F$(I).1)6225F$(I)=LEFT$(F$(I).37)十RIGHT$(G$(())十V$(1一1).5)+RIGHT$(G$(0)+M牢(工一1),5)+A$:NEXTI623.5A二INT(AA/EE/3.10。十.5):M=INT(M+..5):0=1N"F(01.5):A$一LEFT$(STR$M一{一(宁$(0),4)6240X$(0)二A$i-RIGH"F$(G$(0)+S一FR$0,3)-rRIGHI$(“"+STR$A,3)RIGHT$(‘”，十STR$SR,3)-I-RIGHT$(“"+STR$SC,3)6243A=INT(SQR(M2/M1)-100+.5)6245X$(1)=STR$SSl-‘”，十STR$A}‘”一S"I"R$El十“”厂STR$E2”i-S’I"R$E3+"”十STR$E46250A=S2/Sl,B=INF(SQR((SS一Sl-A;A)SI)--100+.5):A一TNT(A*IE3十.5)/106255X$(2)二LEFT$(S"FR$A+(_9(()),6)+RIGHT$(“”十STR$B,4)+T$(〔))十r$(1)6260X$(3)二T$(2)+T$(3)一T$(4)+T$(5)一T$(6);Z二No:Y=BM,X=BD:W二N(一:V=NN6265GOSUB8040:GOSUB80006300V$二sTR$(VALV$+I)A=PEEK}.7899:B=PEEKK789A:C$(VALV$;2一9)一STR$A:C$(VALV$‘2+10)-STR$B6310PAUSE"ST-OK!":BEEP20,C7$一ZZ$:U一16320IFSTATUS3一STATUS2>2800ANDVALV$G5LETC2$一Z"ZS:GM()206330PAUSE"LIST!”BEEP20:GOTO206340"LIST"IFC7$<>ZZ$GOTO20s36 CHIT2005--19996350CSIZE2:TEST6352Q一6352:INPUT"1/2/3/4":":A:IFA<5AN1).A:〕一1COLORA--1:GOTO63556354GOTO63526355IFVALV$=OPAUSE"LIST-OK!":BEEP20:C2$=ZZ$:GOTO206356Q=6356:CLS:PAUSEVALV$;“:”::INPUT"LIST/":八$:IFA$-"LT"OR八$="LF"GOTO63606357IFA$="GO"GOTO206358GOTO63566360IFA$一“I,F"GOTO64006375IFU<>IGOTO63566380GOSUB8050:U=2:GOTO63566400IFU<>2GOTO63566405Q=6405:INPUT"VOI!;TAPE!;N01;FILE一”;A$:GOTO64206410GOTO64056420PRINT#A$;E$(二1，DI$(、):PRINT#Fl$(*)，Wl$(苦)，H1$(、11$(关).X1$(开)6430Q=6430:CLS:INPU"I""REW!;DE"IC!";A$6435ONERRORGOTO65006440INPUT#A$;B$(关).D$(关):INPUT#F1S(*).W1$‘关),H1$(x),1J1$(关).X$〔关)6445FORI=0T02:FORJ=0T04:A$一MID$(E$(I),J-16+1.16):B$二MID$(B$(1),Jk16+1.16)6448IFA$<>B$GOTO65006450NEXTJ:NEXT]:FORJ一OTO2:IFMID$(D$(0).J.20一1,20)<>MID$(DI$(0),J.M20+1,20)GOTO65006460NEXTJ:FORI二OTOX一1:B$(0)一LEFT$(F$(U，40):B$(1)一LEFT$(F1$(I),40):IFB$(())<>B$(1)GOTO65006462B$(())二MID$(F$(1),41,40):B$(1)=MID$(F1$(1),41.40):IF13$(0)<:}:_,B$(1)GOTO65006465NEXTI:FOR1=0TOW一1:IFW$(1)<>Wl$(I)GOTO65006470NEXTI:IFV=0GOTO64856475FORI二OTOV一1:IFU$(D<>U1$(I)GOTO65006480NEXTI6485FOR1=OTO3:IFX$(1)<>X1$(DGOTO65006487NEXTI:U=16490PAUSEVALV$;"-OK":BEEP20:V$=STR$(VALV$一1):GOSUB804o:GOTo63556500GOSUB8010:PAUSE"LF一ER!":BEEP20:GOTO63568000DIMDl$(0)-60,Fl$(X一1)-48,W7$Of一1)苦21,H1$(Z}Y一1)--9,X1$(3):IFV>0DIMU1$(V一1)*138010D1$(0)D$(0):FORI一OTOX一1:F1$(I)二F$(D:NEXTI8015FORI=OTOW一1:W1$(1)=W$(1):NEXTI:FORI二OTO3:X1$(1)=X$(1):NEXTI8020IFV>OFORI二OTOV一1:U1$(I)=U$(I):NEXTI8025FORI=OTOZ-Y一I:H1$(1)=RIGH1$(“=.IR$(1),3)+S$(I)一RIGHT$(G$(0)+H$(1),5):NEXTI8030RETURN8040POKE巷7899,VA1@$(VALV$-2一9).VAI包$(VALV$x.2十10):尺FTURN537 ca%T2005--199980,30「)$(U)二D土$(0)8055Z一VA"RIGHT$(1)$({、)，2):Y一VALMID;)(D$(0),42,2):X一VALMID$(D$(6).53,1):W=VALMID$(1)$(0),54,2)8058V二VALM1)$(D$(0),56,2)S060FORI=oT0X一i:F$(I)二FI$(I):NEXTI8065FORI=OTOW一1;w$a)二wl$(1):NEVII:FORI一0T03:X$(I)二X1$(I):NEXTI8070IFV>OFORI一oTOV一1:U$(1)=Ul$(D:NEXTI8075F0RI=0T0Z、Y"一1:R$(I)二LEFr$(II15(1),3):S$(I)二MID$(H1$(1),4,1):H$(I)一RIGHT$(Hl$(1),5):NEXTI8110FORI一0T()24:GOSUB2620:NEXTI:I.F28120B$(0)=D$(〔)):B$=‘’一’";TAB4:CSIZE3:F()RI二2oTO29:GOSUB2610:CSIZE2:NEXTI:LF18730FORJ二I"m3:1二28+2*3:GOSUB2610:GOSUB2630:1_PRINTA$;“一”;(;$(1)::TAB8:1二29十2-J:GOSUB2610:NEXTJ:l.F281=40FOR3二OTOX一I:I.PRINT"SP";J+I:’.:”LEF,I$(F$(J),12),TAB6:LPRINTMID.S(FS(3),19.8):NEXTJ;LF2814:1LPRINT"MAPLoVo":LFI8150FORJ二OTOX一1:LPRINTMIDS(FS(J).21.7);.‘";MID$(F$(J),28.10):LFI:NEXT1:I_F28156I_PRINT"LDMHAAIM[-":I,F18160FORJ=0TOX一I:LPRINTMID$(F$(J),35,5):.‘";MID$(F$(1),43,5);‘.”;MIT$(F$(J),,18,1):LFI8165NEXTJ:I.F2:LPRINT"NOODATETMON";LF18170FOR1=0TOW一1:LPRINTLEFT$(W$(I).3);“";MID$(W$(I),4,4)";MID$(W$(1).8,4):NEXTI:LF28175LPRINT"TMOFWEWINDIMGSEE":I.FI818oFORI二OTOW一I:LPRINTMID$(W$(1),12,4);“";MID$(W$(1),16,2);";MID$(W$(D,18,2);"”;8185LPRINTMID$(W$(1),20,1);"":RIGHT$(W$(I)，1):NEXT1:LF28190FORJ-0"IY)Y一1:TAB6;LPRINT"SET";J十1:I,PRINT"NONOOSIGNI.S":LFI:FORI一0,170)z一I:八二Z.J千I8195LPRINTRIGHT$(“”一STR$(I+1),2);"”;RS(A);“”;s$(A);“H$(A):NEXTI;LF1:NEXTJ:LF28198IFV一OGOTO82082U才8200LPRINT"L/VNOOSETNOS":LPI-FOR一OTOV一LLPRINT“":LEFT$、$(L)，I);":MID$(U$(1),2,3);‘U几LPRINT“”;MID$(U$(I).5,2);“":MID书(1)$(I).7,2);“";RIGH丁$、82Q5$(1)，3):NEXTI:LF28208LPRINTTAB6;"TEST":LFI:FOR1一()"I()3:LPRINTX$(I):NEXT1:1FI8210LPRINT"TIME二”;TIME,LF5:RETURN9000"ON"INPUT"KEY?";AS:IFA$一D$GOTO902090()5END9020(注S;DEGREE:ONERRORGOTO209030工NPU’T(`DO?";A$:GOTOA$+“9口一1()GOTO90309060"ZERO"9070CLEAR:DIMY$(40)*9,G$(1)-20,E$(2)80.1$(35)-2.]$(84)-2.K$(30)〕38 CH/T2005一19993>D$(0)-609080DIMI$(23)-2>B$(2)x809090V$一‘”RESTORE91409093READB$(1)9095FORI二OTO23:1$(D-MID$(B$(1),2*I十1,2):NEXTI9100FORI=0TO40:READY$(1):NEXTI9101FORI一OT(.)35:READA:I$(I)=STR$A:NEXTI9102FORI二OTO84:READA:]$(I)=STR$A:NEXTI9104FORI=0TO30:READA:K$(1)=STR$A:NEXTI9110FORI二1TO8:E$(0)一E$(0)+"”NEXTI9120E$(1)=E$(0):E$(2)-=E$(0):D$(o)二E$(0)9130G$(0)=E$(0):GOTO92109140DATA"121314151617242526273435363718283845467819293979"9150DA"T"A‘.00120SS”，“02112SNO”，“03320UNTP”，‘05318POR’‘.“WIIOPRO”，"I0102SVY"9160DATA“10302YEAR”，“10518FLD”，“12320UNIT”，“14302GRP”，‘’14518OBS‘’."16318REG"9165DATA‘20101J1/2","20208INST","21006INO"9170DATA“21605G，工_”，“22106YMD”，“227051.I”，“23206YMD”。“23805R.M”，"24306YMD"9175DATA"24908REC","25706RNO","26308TRE","27106TNO"9180DATA"00102DTNO","00320ST","02304MARK","02707TOW","03405HI"9185DATA""04001ORD",""0410IMETL">"05301ND">"04201NI,","04401.DX"."04605DII"9195DATA"0120SP"."2107MAP","2805I,o","3305Vo","4801AIML"9197DATA1,2,0,3,7,11,4,8,12,18.5,9.13,19,0,6,10,14,0.0,0,15.16,179198DATA0.0.0.20,21,22,23,0,0,0.24.09200DATA1.1,1,2,4,6,3,4,7,4>3,5,6>6,3,2,5,7,2,7,5.1,1,1,2,10,6.9,4.79201DATA8,3,5,11,8,8,2.5>7,2.7>5.3,4,6.6.4.3.12,1,1,1.2.5,8,3,6,9,11,49202DATA7.10.11,11,2,7,9,2,9,7,4,6,8,8,6.4,12,3,5,10,5,3,10,12,129204BATA123,147,156,245,267,346,357,123.147,168,258,267.348.357,456,15,24,36,789206DATA123,147,159,168>249,258.267,348,357,369,456.7899210G$(1)="GT":E二1:A=1:B=2:D=B:GOSUB26009250G$(1)="”E=O:A-33:B一20:1)二B:GOSUB26009260G$(1)二.(533750113581)":A=53:B=18:D=B:E=O:GOSUB26009270=-G$(1)="GTAOABB6ZB";A=71:B=10:D=B:E二O;GOSUB26009272G$(1)="":A一Ol:B=20;E=0:D二B:GOSUB26009274G$(1)="CHJGT一74";A二21:B二12:E=0:D=B:GOSUB26009276Q=9276:INPUT"TIME=MMDDhh.ddss?";A;TIME=A9280Q=9280ANPUT"Nmax二”;NM:GOTO92849282NM=1349284D二NM/39286DIMF$(8)*48,S$(NM)二1,R$(NM)、3,H$(NM)二5.W$(6)*21,U$(D)、13,X$(3)9292Q=9292:INPUT"IG二S(1/2)?";CJ:IFCJ二IORCJ=2GOTO93009294GOTO92929300I二69310Q二9310:GOSUB2580:IFI=12LETBJ二VAI.LEFT$(E$(2),1):WBJ2GOTO9310539 CH/T2005一199993151一I+I:IF1<25GOTO93109330ZZ$=CHR$6,C2$-ZZ$93351$二STR$PEEK&7899:]$=STR$PEEK&.789A9340Q=9340:ONERRORGOTOQ:INPUT-EDT/":A$:GOTOA$一‘.#”9350GOTO93409360"GO#"C二PEEK&.7867.256+PEEK&.7868一2543:A--INT(C/256):B二仁之71日关八9370POKEC,255:POKE&.7867,A,B:GOTO90209400"PRT#"FORI一OTO24:GOSUB2620:NEXTI;GOTO93409410"YEAR#"I二69420GOSUB2580;GOTO93409460"UNIT#"I二8:GOTO94209470"GRP#"I=9:G0T094209480"OBS#"I=10:G0TO94209490"REG#"I=I1:G0TO94209500"FLD井"1=7:GOTO94209510"I1/2井"I一12:GOTO94209520"INST#"1二13,GOTO94209530"IN0#"I一141GOTO94209540“G，1球"I二159550GOSUB2580;1=]十1:GOSUB2580:GOTO93409570"R,M#"I=19:GOTO95509580"1,1井"I二17:GOTO95509610"REC#"I二21:GOTO94209620"RNO#"I二22:GOTO94209630"TRE抹"1=23:GOT094209640"TNO样"1=24:GOTO9420附加说明:本标准由国家测绘局提出。本标准由国家测绘局西安标准化测绘研究所负责起草sao'