• 721.50 KB
  • 2022-04-22 13:37:39 发布

CHT2006-1999水准测量电子记录规定.pdf

  • 29页
  • 当前文档由用户上传发布,收益归属用户
  1. 1、本文档共5页,可阅读全部内容。
  2. 2、本文档内容版权归属内容提供方,所产生的收益全部归内容提供方所有。如果您对本文有版权争议,可选择认领,认领后既往收益都归您。
  3. 3、本文档由用户上传,本站不保证质量和数量令人满意,可能有诸多瑕疵,付费之前,请仔细先通过免费阅读内容等途径辨别内容交易风险。如存在严重挂羊头卖狗肉之情形,可联系本站下载客服投诉处理。
  4. 文档侵权举报电话:19940600175。
'中华人民共和国测绘行业标准水准测量电子记录规定CHT20061999Theelectronicdatarecordingrulesforlevelling本标准规定了使用可编程序的记录器〔含电子计算器、电子计算机)进行水准测量记录时必须记录的信息项目、数据处理方法以及成果输出格式。适用于国家一、二、三、四等水准测量电子记录1名词术语土丝读数--一视距测量中数值大的读数下丝读数一一视距测量中数值小的读数快尺—每测站首次照准的标尺。慢尺—每测站第二次照准的标尺第一检测站—观测间歇处的最末站第二检测站—观测间歇处的次末站2记录信息项目及其标识符与内容代码2.1分段观侧前应输人的标题信息(见表1)表1记录名称项目名称标识符字符数内容及代码测量代号SVY施测单位UNIT40以下未加说明者,均按ZBA76003一874测量外业电子记‘)路作业年代YEAR么录基本规定》(以下简称《基本规定》)附录E编码_()RD3线MET丫X于一照准次序识一读数方式一观测方法别观测方法:往返观测...B,单程双转点⋯5其他⋯A记读数方式光学测微二0中丝读数⋯1布录其他·2照准次序;后、前、前、后、前、后、后、前⋯。;后‘前、前、后、后、前、前、后一1;1后、后、前、前、后、后、前、前⋯2了t他,3一。测量标准名称或代号国家测绘局1999一09一07批准1999一09一07-3}施 CH/T2006一1999续表i己录器型号记录器编号磁带机型号1、RE磁带机编号T丫O打印机型号TYt542 CH/T2006一19992.2每测段观测前应输人的标题信息(见表2)表2首站后视和前视标B.F两尺号间加逗号。尺号码2.3每测段观测开始与结束、间歇前后、气候突变以及执行独立的程序段时,应输入的观测条件信息(见表3)表36R?11字符数内容及代码i"L,)}}gstc;N记录观测条件时所执行的程序的指令名称。如往测为GO.间歇为ST等记录日期时刻I一IMF月、日、时、分各占两位。测站编号记录观测条件时的4G1站号。温度AT取至0.1C天气、VE成象IMG太阳方向SUN。⋯前方‘4一后方,卜二前右,5一左后2一右方.6⋯左方.3⋯右后.7⋯前左含一于—风向及风速WIND、道路及土质LAND丁件工仪器标尺卜土质观测经过的道路道路:土质;柏油路一0。柏油一0.水泥路-1,水泥一1,土路一2,实土一2,沙石路--3.沙石一3.铁路-4,草地一4,其他一5高差或角度分别记录标石的上下标志高差,收测时与检测后的间歇点高差,退站重测的原测高差以及水准仪改正前和改正后的角值。高差以米为单位角度以秒为单位:三43 CH/T2006-19992.4二等水准测量中每站需输人的数据项(见表4)表4飞己录名称信息项目标识符测站编号N快尺上丝读数R1快尺下丝读数一RZ一__1Q**}}1"1,丝1一1赞一--一一-竺一.测站记录哩坚赘奎竺1望竺1丝生-_一、一R4一,慢尺匕丝读数,f25一慢尺下丝读数R6慢尺辅助分划中丝读数IR7一快尺辅助分划中丝读数IRS三、四等水准测量中每站需输人的数据项(见表5)表5注记录名称!信息项目标识符一一一一一M;站编号一般自动形成。后尺上丝读数以整型数输人BD后尺下丝读数一川后尺基本(黑面)分划读数后尺辅助(红面)分划读数PU测站记录前尺L丝读数一Flj前尺下丝读数一川前尺基本(黑面)分划读数一}iP12R&9h[M基辅读数差超限{dR>0.3-m-一一一一-一高差之差超限dh>0.5mm检测第一站首次不合格Cdhl:1>0.7m-检测第_站首次不合格Cdh21>0.7mm检测两次均不合格LdhX2>0.7--x为检测站号跨河观测两次高差之差超限Tdh>1上下标志观测两次之差超限Udh>I50m-m-一一州附录c记录程序GL01086ZB(参考件)C1说明Cl.1程序系选取SHARPPC-1500A袖珍电子计算机,按照本标准要求,为一等水准观测记录编写的适用于Zei,sNi002水准仪配常数为6065。标尺的作业。C1.2成果记录采用手簿贴高差纸带配全记录磁带方式,按5.1.1规定设计输出格式。cl.3可以连续记录三个测段。每测段不得超过200个测站与20条观测条件的记录,连续记录各测段的总站数约为300站C2记录流程图 CH%T2006一1999C3GL01086ZB程序的变f分配表(见表Cl)表C1变量类型名称A{已记录的测段数(A翻,。X11第一测段已记录的观测杀件数X2第二测段已记录的观测条件数X3第二测段已记录的观测条件数Y1第一测段记录的测站数Y2第二测段记录的测站数。Y3第二测段记录的测站数S1$(1),50第一测段的说明及成果记录个程变最S2$(1)"50第二测段的说明及成果记录S3$(1)*50第下测段的说明及成果记录C1$(XI),50第一测段的观测条件记录C2$(X2)+50第二测段的观测条件记录。C3$(X3)-50第二测段的观测条件记录A1$(YL),27第一侧段的测站数据记录A2$(Y2).27第二测段的测站数据记录A3$(Y3)+27第三测段的测站数据记录一一仁QI视距限定长度。印两排分划线求得的高差之差限差印三丝检校限差。B标尺读数差常数J将要或正在观测的测站编号K往返方向标志往:K=O;返K=1p照准前后视标志,随J,K值变化Q测段过程变量退站次数累计值s摆差角C的初值与均值w超差次数累计值x观测条件记录次数Y已测站数。BI视距累计值BZ视距差累计值创高差累计值C快尺基本分划面中丝读数。D快尺辅助分划面中丝读数E慢尺辅助分划面中丝读数F慢尺基本分划面中丝读数。G快尺上丝读数慢尺上丝读数H快尺下丝读数;慢尺下丝读数I最低视线高度测站过程变量L慢尺视距本站视距和z快尺视距M本站视距差O本站高差AI米站视距用末站视距差。吊末站高差。561 CH了T2006一1999C4操作步骤(见表C幻表CZ按键功能显示处理方法注释G.启动程序输入指令字凡出现此显示时均为待命状}1〕()?一态。L$作路线识依次显示2.1节各标识符输人信息码在每区段观测前进行,执行此别记录命令后,将清除原有数据N()A/B输人磁带索引号将磁带机置于记录状态ZERO初始化输人指令字清除内存数据,重新定义存储11力??再输人此指令字单元lC检校角51一A输入第一站A标尺读数51一B输人第一站B标尺读数}馨粼暴霆聋后”结束“的任52一A输人第二站A标尺读数}52一B输人第二站B标尺读数}>4A2二又XX按AZ值改正后再检验;角超限时显示,二X又火按执行键返回待命状态角不超限时显示Ul)测量水准点的与一般测站相同只在测段第一站将测未测时上下标志或在最末站测毕时运行UdH>1.Omm重新输人指令字G0开始往测G(),RGx,CGO?输人选定观测方向字C=轴人摆差角初值以mm/m为单位依次显示2.2与2.3节各项目标按规定代码输入凡附有数字的项目,为限定的识符字符个数《BN=只只,d=XX开始第N站观测,依次输凡出现超差,均有蜂鸣报警人2.4节所规定的各项数并在显示B3节所规定的提示RI=据符后重新观测}RZ=RS=BK开始返测BK,RBx,(二BK?输人选定方向字与往测同CD随机记录依次显示2.3节各项标识符输入规定代码对于未改变的项目,只需按执观测条件行键,将自动复制原有数据{B1退一站?再输一次指令字要求测站多于两站,不能连续一退站依次显示2.3节各项标识符与输人规定码在已完成的最后测站重新观一般测站同测TR勺再输一次指令字与一般侧站同输入数据示}{Tdh>:.smm自动返回作第一次观测高差之差超限重新开始观《火N“XX测sd二XX一562 CH/T2006一1999续表C2按键功能显示处理方法注释ST在间歇尺桩再输人一次指令字只在测站多于2时运行结束观测依次显示2.3节各项标识符按规定代码输入一cl观测第一与一般测站相同按标识符项目输人}在执行,"IT"之后且侧站多孚诬-检测站时运行,最多检测两次Got.N飞退至第二检测站观测1-OK!从最后尺桩接测(二2观测第二2-OK!从中间尺桩接测在执行..ST.”之后运行。检测站1-12-OK!从最后尺桩接测()一RM!退至测段Backto001开始点一____EN测段结束?{再输人一次指令字}最后一站测完执lilt命4},仅依次显示2.3节各标识符按规定代码输人在测站为偶数时运行EN测段结束NextN输人下一测段预估测站若要录制和打印成果,可输入数大于500的数.DotheFl需准备取出数据DO?继续下一测段的记录FI录带DTN()接好磁带机与打印机,并要记取磁带计数器的数字。按处于记录状态后,输人测5.1.1.3b项规定输入段索引号OT打印成果Paper&tapeareready?将磁带退回录带起始处.表与检查置于放音状态,输人Y字一录带质量符{Fl.-RM磁带退回原位置重新执一行Fl_功能一一程序运行后,全部观测信息将被记录在盒式磁带上,并打印出下列形式的成果纸带:GOO(028151323254)2一一350341,503421︹‘GOO2151733+31.01230302l,UD2151735l户0302一0.17432十31.0123,nST2151748二乙+32.81230302一0.38812一122180I,C12160750自+22.81231303一122172n8乙ST2160903+22.61231303一1.17177一1.23592白月1C22161504︸+32.81231303一1.17178门八JLST2161530+30.51231304一0.71510一039790gC伊j乙IC2161532+30.8123自13043.77"n勺氏乃口C12170831十22.923313040.39791户叹n划1304EN21709.57+20.5233N=66S=3.5kmH=一49.90138mE二10E3-1563 CH%T2006--1999C5GL01086ZB源程序1GOTO10022"GO"IFJ<2LETK=O:INPU"I"(:OO,RGx.CGO?";R$:GOTO64GOTO16PAUSER$:Bl二0,B2--0,113一O:S$(1)=CHR$O:Q1=708:Q3二10:Q4=30:1=208INPUT"C=";S,B=60650:Q-0,W二O,X一O.Y一0.J=1:GOSUB400:GOTO3010GOTO812"BK"IFJ<2C.ETK二(:INPUT"BKO.RBx,CBK?";R$:(UOTO614GOTO120I,$=“"+STR$U-IE4-+I):L$二RIGHT$(L$,7):R1$=STR$(C.1E5干T)B).R2$-STR$(F-IE5十E-B)22IFP>OLETA$(J)=L$一R1$+R2$:GOTO2423A$(J)=1$十R2$十R1$24AO=A3:A1二L,A2一M.A3=0:11-Bl十A1,B2二B2十A2.B3一B3十A3:Y=J.I=J+l30IF(J-+-K)二2*INT(U十K)/2)LETP=一1:S$二“>F":GOTO5040S$二“B<":P=I:GOTO5045BEEP5:W二W十1:GOTO5048"CD"GOSUB41050"BN"USING:WAIT200:PRINTS$;Q$;“N一”;J;"Sd=";B2/20;"m":B-6065055INPUT"R1=";H,"R2二”;G:GOTO5756GOTO5557GOSUB141:IFS$="D="GOTO4560Z一L:INPUT"R3=";C:F=C:GOSUB143:IF(S$="M<>M")+(S$="Rh=")GOTO4565INPUT"R4一”;F;"R5二”;H,"R6=";G:GOSUB141:IFS$="D="GOTO4570GOSUB143:IF(S$="MOM")OR(S$="Rh=")GOTO4575S$二“d=":M-(Z一L)*P:Q$二STR$(M/2):IFABSM>60GOTO4580IFT>190GOTO9085S$二“Sd二”E一(M干B2)/20:Q$=STR$E:IFABSE>SGOTO4590INPUT"R7=";E:S$="dC>6":Q$一CHR$34:R=(E一F一B)/(I_+8):IFASS(R一S)>.03GOTO4595S二(S二J+R)/(J十1):INPUT"R8二”;D,GOTO10095GOT095100S$="dh>0.Smm",Q$=“":IFQ3Q1)LETS$二“D=":Q$二STR$(L/20):RETURN142S$=“":RETURN143IFABS((H+G)-5一F)>Q4LETS$二."M<>M";Q$=“":RETURN144IFF>=IE4AND(F>=16E30RL<400)I,ETS$二“":RETUR146S$="Rh二”:Q$=S"I"R$(INT(F/2E3)/10):RETURN150"TR"INPUTS$:IFS$十“”二R$LETQl二2000:Q3一20:Q4二60:T二154:GOSUB410:GOTO30152GOTO1154BO二():L0=I,:MO=M,FORI一OTO3,DO)一Q(I+3):NEXTI:T二156:GOTO30156IFABS(0一BO>30BEEP5:PAUSE"Tdh>1.Smm":GOTO150158()二(O+BO/2:1二INT((L+L0)/2一5):FORI二OTO3:仓(I+3)二INT((包(1-1-3)1D(L))/2-+.5):NEXTI564 CH/T2006一1999160M=(M+MO)/2:T二20:Q1一708:Q3一l0:Q4=30:GOTO20170"ST"INPUTS$:IFS$+“”二R$八NDY>2LETT二O,U一O,V一0,1=AO/2E4,H一0/2E4:G0"1"0180175GOTO30180I$=LEF"1$(SCR$1,8)·LEFT$(STR$H,8):J=Y:GOSUB410:(,$(X)=C$(X)+I$十“":GOTO1190"C1"IF"I、一OANDU=OANDV-OANDY>2GOTO200195GOTO1200J=Y:IFU<2LETQ$二“CHl":T=220:GOTO30210BEEP5:PRINT"Cdhl:2>0.7mmGOTON一1":T=O:GOTO210220U-U十1:130一():()一()/2E4:II$二LEFTS(STR$0,8):IFA13S(130一A3),-14BEEP9:PRINT"Cdhl:l>0.7mm":GOTO200230Q$一“ON";PRINT"I一一()K!":GOSUB410:C$(X)=C$(X)+.1”十H$+“”T二20,1=Y十1:GOTO30240"C2”IFT=OANDV一OANDY>2GOTO250245GOTO1250J=Y一1:IFV<2LETQ$一’‘CH2":丁=270;GOTO30260BEEP10:PRINT"Cdh2:2>0.7mm0一一RM!":PRINT"Backto0011":J二0:GOTO260270V=V十1:1一O/2E4:I$=LEFT$(STR$1,8),IFABS(0一AO)>I4BEEP9.PRINT"Cdh2:1>0.7mm":GOTO290272Q$二“ON":PRINT"2一一()K!":GOSUB410:0$(X)-C$(X)+I$+“”F=20:GOTO280275"BI"INPUTS$:IFS$+.‘"=R$ANDJ>2LETT二20:GOSUB410:GOTO280278GOTO1280Bl=B1一Al,B2=B2一A2,B3=B3一A3,Q=Q+1,J=Y,Y=Y一1.GOTO30290IFABS(O+BO一AO-A3)>14GOTO250292PRINT"1+2一一()K!":GOSUB410:C$(X)=C$(X)十I$+H$+“”:I-20:J=Y十1:GOTO30300"EN"INPUTS$:IFS$+“"=R$GOTO310305GOTO1310IFY/2=INT(Y/2)I.ETJ=Y:GOSUB410:L$=“”J=O:GOTO314312PRINT"ON":GOTO30313D-D一LEN(STR$C):C$(0)=LEFT$(L$,D)+STR$C:s$(1)=S$(1)千〔’$(0):RETURN314D=4,C=X:GOSUB313:1)=4,C=Y;GOSUB313:C=(BI/200+.08*Y)/100,E二2;GOSUB700.1)=8.GOSUB313315C一B3.5/IE5,E一5:GOSUB700:1)=16:GOSUB313:1)=4,C=W:GOSUB313:1)--4,(=Q:GOSUB313318A-A十1:0NAGOTO320,324,328965 CH/"r2006一1999320DIMSt$(I)关50,C1$(X)}50,Al$(Y)+27321FORI二OTO1:S1$(I)一S$(D:NEXTI:FORI一ITOX322CI$(D=C$(D;NEXTI:FORI=dTOY,Al$(I)=A$(I),-NEXT1:X1二X,Y1二Y,IF人二1G0T(〕360323GOTO340324DIMS2$(1)-50,C2尔(X)-SO,A2霉(Y)27325FORI=0TO1:S2$M=S$(1):NEXTI326FORI=1TOX:C2$(1)=C$(D:NEXTI:FORI二1TOY:A2$(D=A$CI):NEXTX2二X,Y2一Y:IFN=2GOTO362327GOTO340328DIMS3$(1)-50,C3$(X)-50,A3$(Y)*27329FORI=0TOI:S3$(I)二S$(1):NEXTI330FOR1=1TOX:C3$(1)=C$(1);NEXT]:FORTOY:A3$(I)二A$(I):NEXT1:X3=X,Y3二Y:IFN二3GOTO364340J=0:INPUT"NextN=";I:IF(STATUS3一STATUS2)>(I-30+1E3)ANDA<3G0I丫)1345PRINT"DotheFl.!":GOTO345351X=X1,Y=YI:GOTO321352X=X2,Y=Y2:GOT0325353X=X3.Y二Y3:GOTO329356LF3:LPRINT"N二”;MID$(S$(1),5,4):LPRINT"S二”;MID$(S$(1),12,5);“Km"357I_PRINT"H=";MID$(S$(1)123,10);‘m":LPRINT"E=-;MID$(S$(1),33,4)358LPRINT"B=";MID$(S$(1),37,4),LF3:RETURN360"Fl."INPUT‘DTNo.1:";Al忿:PRINTIfAl$;S1$(关)361Bl$=MID$(Sl$(0),22,16):PAUSEB1$:PRINT#Bl$;C1$(关),AL$(x):IFA一1GOTO1362INPUT,i),rNo.2:";A2$:PRINT#A2$;S2$(二)363B2$二MID$(S2$(0),22,16):PAUSEB2$:PRINT#B2$,C2$(二).A2$(*)IFA一2GO丁、()1369INPUT"DTNo.3,";A3$:PRINT#A3$;S3$〔x-)365B3$=1rt1D$(S3$(。),22.16):PAUSEB3$:PRINTttB3$;C3$(关),A3$(苦):IFA=3GO1()!367"DT".N=O:INPU"I""Papere..tripearereadv7":Q$:IFQ$="Y"GOTO369368GO丁()367369FORI二OTO1:s$(I)一51$(D;NEXTI370FOR1=1TOXI:〔’$(I)=C1$(D:NEXTI:X一XI:GOSUB600:GOSUB356371FORI=ITOYI,A$(I)=A1$(1):NEXTI:INPUT#A1$;S1$(长):INPUT井E1$;CI$(-),Al$(关)372FOR1一OTO1:IFLEFT$(S$(I),25)C>I.EFT$(Si$(I),25)GOTO399373IFRIGHT$(S$(1),25)<>RIGHT$(Sl$(1),25)GOTO399374VEX"门:FOR1=1TOX1:IFLEFT$(C$(I),25)<>LEFT$(Cl$(1),25)GOTO399375IFRIGHT$(C$(1),25)<>RIGHT$(Cl$(I),25)GOTO399376NEXTI:FORI=1TOY1:IFA$(1)<>Al$(I)GO"I()399377NEXTI:N一1:IFA=1GOTO166 CH/T2006一1999379FOR1=0"1"0LS$(D-S2$(1):NEXTI380FORI=MX2:C$(I)二C2$(1):NEXTI:X一X2:GOSIJB600:GOSUB356381FORI一ITOY2:A$RIGH"I$(S2$(1),25)GOT0399384NEXTI:FORI=ITOX2:IFLEFT$(C,"(I),25)<>LEFT${〔2$(I),25)GOI"O399385IFRIGHT$(C$(I),25)<>RIGHT$(C2$(I),25)GOTO399386NEX"I-I:FORI=ITC)Y2:IFA$(1)<>A2$(I)GOTO399387NEXTI:N二2:1FA=2GOTOI389FORI二OTOI:S$(I)二S3$(1):NEXTI390FOR1=1TOX3:C$(I)=C3$(I):NEXTI:X=X3:GOSUB600:GOSUB356391FOR1二1TOY3:A$(I)=A3$(1):NEXT]:INPUT#A3$;S3$(芳):INPUT1jB3$;C3S(关),A3$(关)392FORI二OTOI:IFLEFT$(S$(L,25)OLEFT$(S3$(I),25)GOTO399393IFRIGHT$(S$(1),25)<>RIGHT$(S3$(1).25)GOTO399394NEXTI:FORI=ITOXMFLEFT$(C$(i).25)OLEFT$(C3$(1),25)G0TO399395IFRIGHT$(C$(I),25)<>RIGHT$(C3$(I),25)GOTO399396NEXTI:FORI二ITOY3:IFA$(1)<>A3$(I)GOTO399397NEXTI:GOTO1399BEEP9:PAUSE"RewTape!":BEEP9:PAUSE"FL-一RMI":N二N土1:0NNGOTO351.352.353400C$(0)一“402INPUT"SEGM<32:";S$(0);C-LENS$(0):IFC<二32LETC$(0)=LEFT$(C$(0),32一C):GOTO406404GOTO402406INPUT"B,F(15):";A$:IFLENA$=15LETS$(0)二R$十c$(0)+S5(0)+A$GOTO410408GOTO406410INPUT"AT(5):";B$:IFLENB$<>SGOTO410411INPUT"WE(2):";C$,IFLENC$<>2GOTO411412INPUT"IMG(1):";D$:D$二D$+’‘"AFLEND$<>2GOTO412413INPUT"SUNG):";E$:E$二E$+“”IFLENE$<>2GOTO413414INPUT"WIND(2):";F$:IFLENF$<>2GOT0414415INPUT"I,AND(2):";G$:IFLENG$<>2GOT0415416X=X十1;C$(X)=B$十c$一1)$十E$+F$+G$;TI=INT(TIME-100):’I"1$RIGHT$((“"+STR$TD,8)418)$=“"+STR$J:J$一RIGHT$(J$,3):C$(X)=R$+TI$+J$+C$(X)419IFR$="ST"ORR$="IC"ORR$二“UD"ORR$="Cl"ORR$="C2"GOTO422420C$(X)=C$(X)+"422RETURN450"UD"IFJ>一1GOSUB410:T=452:S$-"L;<<”:Q$二S$:P二」GOTO50567 CH/T2006-1999451GOTO145201=0:T=454:GOTO50454IFABS(01一;20GOTO4584560二(OI十())/4E4:H$二LEFT$(STR$0.8):(一$(X)=(一$(X)-H$十‘L",T=20-GOT040458BEEP8:PRINT"UdH>1.Omm":GOTO452500"IC"GOSUB410:K$二“":PAUSE"SI八”GOSUB510:E=I:PAUSE"S1一一B":GOSUB510:F一1:1$二K5502PAUSE"82一一A":GOSUB510:G=1:PAUSE"S2--B":GOSUB5lo:H=工:1)一G一日一E千F:1-D/40503I$=“"+STR$I十“":I$=LEFTS(IS".7)i-CHR$34504IFABSI>4THENBEEP5:PRINT"i>4";CHR$34;"A2一”;G一1):K$一I$:GOTO502506PRINT"i一”;I;CHR$34:C$(X)二C$(X)+K$+I$,GOTO50510INPUT"1:";1."2:"出,"3:汉’."4:";D:I一(I十B十C二D)/4:RETURN512GOTO510600FORI一OTO2:C$(0)=MID$(6S(0),1}17十1,17):LPRINT($(0)602LPRINT“一一一一一一一一一一--一--一”:FORJ-ITOX:B一工-14‘工:IFB二OLETB=1604C=1-F14:C$(0)二MID$(C$(J),B,C):LPRINTCS(。):NEXTJ:LPRINT:LPRINT:NEXTI606RETURN7001)二ABS(C*10`E):F=INTD:N=INT(D+.5)702IF(D=F一5)AND(F/2=INT(F/2))LETN二N一1704C=SGNC*N/10一E:RETURN1000"ZERO"INPUTS$:IFS$-I-""=R$THENCLEAR:DIMA$(200)*27,C$(20)*50,S$(1).50,D(3):I,OCK工NPUT"Do?”;R$;R$一R$+“":GOTOR$GOTO1002"L$"CLEAR:DIMT$(4)a80,A$(27)*50:1"$(0)一“2010RESTORE:FORI=1TO27:READE,D,A$2020WAITO;PRINTA$;“:”;:INPUTA$(1):C一LENA$(1):IFC>DBEEP2:CLSGOTO20022022CLS2030A$(I)=A$(I)i-LEFT$(T$(0),D一CO:TS(E)=T$(E)+A$(1):A$(0)二A$十“:”十A$(D:LPRINTA$(。):NEXTI2032INPUT"TapeNo.*“A/B";L$:PAUSEI$:PRINTtI$;T$(‘)2034GOTO20322040DATA1,2,"SVY",1,40,"UNIT",1.2,"YEAR",1,3,"ORD",1,3,"MET".1,30."SS"2050DATA2,44,"LINE",2,18,"OBS",2,18,"REG",3,9,"PRO",3.38,"UNTP"2060DATA3,18,"POR",3,8,"INST",3,7,"INO",4,4,"MULC",4,5,"ADDC",4,6,"G.M"2070DATA4,2,"STAF",4.15."BFNO".4,7,"SC".4.4,"GRAD",4,2,"TBT"2080DATA4,7,"REG".4,7,"RNO",4,7,""1"RE",4,7,"TNO",4,7,"TYT"568 CH,f2006一1999附录D水准测.外业电子记录器型号(参考件)一、二、下、四等水准测量外业电子记录器,应符合《基本规定》附录A的要求用于一、_等水准测量外业的记录器,存储容量不应少于16。。。字节(含程序区和数据区)。用于三、四等水准测量外业的记录器,存储容量不应少于40字节(含程序区和数据区)。常用型号参看下表:电子记录器基本参数表存储量{编程语言一主机重,一”一造厂‘存储器宇节IIC15OOIPc一150。八SHARP一’二一‘令.4k只(日本)喻丽一}(F161(16KI飞模块)一ICASI()1飞ASIC2616000]FFA“I‘()〔〕‘打打印印机机))(口本)一CM一“微型盒带机’0.3kg一耀()R一一4;(:存嚣储扩篡展片彭):二二”只只}赢。一EPS()N刚0}磁带机一“As,〔’刚0}磁带机1.7kg一〔日本)}一REC一5〔}(〕(〕PT()NCl习M134000磁带机1.Zkg}(联邦德国)操作系统{{}一—(——一1厂_-〔:ASI()FX702PBASICr扰168七)}(日本)Fp‘以‘〕‘口机,{。Zkg261424ICE一1艺2(打印机’0.3kg一符号Hl,821动3A〔热印机)、四等2233口-一-TAXAS厂定符号960PC100C(热印机)0.3kg一rl一59(美国)语言巨一一CASI(〕厂定符号{F文6oZP235120.Zk父(日本)语言—一州一一~CASIO厂定符号FX一SOZP22256〔).Ikg(日本)语言附加说明:本标准由国家测绘局提出本标准由国家测绘局西安标准化测绘研究所负责起草569'