1、中华人民共和囡测绘专业标准三角测量电子记录规定CH /T 2 0 0 5 1 9 9 9 lhe electronic data recording ruesfor triangulation 1 引言1. 1 丰标准规定了使用可编程序的电子记录器（含电子计算器和电子计算机）进行三角测量观测记录111测量信息的编码，数据处理的h法，输入、输出信息的内容和格式等。1. 2 本标准适用于国家一、二、三、四等三角测量以及其他水平角和垂直角观测的电子记录。1. 3 丰标准附有关测量标准和ZBA7600387测量外业电子记录基本规定（本际准中简称基本规也）问时执行。2 记录信息标iR符与内容编码对于没有
2、说明的信息代码按基本规定填注。2. 1 二ill测量标题信息（见表1)I手号！信息名称！测.tit号:l j i G 测监作Jt测fit标准“准1tJ-程序设计单位程序设计者7 程吓白标识符SVY YEAR SS SN(J lTNTP P(lR PRI 1 7 联测方向号!JX 2 分组方向法时联测Ji11号8 水平角测回数NL ? g 垂直角测间数NV 测站称ST I I / 标凸三标MARK f(JW 4 7 , 003 CHIT 2005 1999 序号信时斗标识符代码字符数l内由甘代码一一二一读数1RI 8 度分 L以最小读数为单fii2 读数2R2 3 以最小读数为单位读数2只输入秒
3、值部分具实际值用程序判断c 观测方向DlR i （或第4组观测方向）依观测顺序排列的照准方向导4 第三组观测方向on 同3J 测回号SET “ 。“ /Jr盘配置fl.置CIR 8 X . x 、1直分秒2. 4 观测条件信息（见表4)表4序号信息名称标识符代码子符数内 甘-: 码l 日期DATE ?时l司TIME 4 3 开始时间TMJ.I 1 4 结束时间TM(lF 4 s 天气WE ? 6 Ml向风力WIND 2 月, 成象!MG I 8 通视SEE I 504 1 9 9 9 2005 Cl! /1 成果信息（见表5)2. 5 占3代码内容一1码卡符敬? 怀识衍N() 信且名称角4数据
4、标志序号hj 1、角！丘（成为11J值测得先后顺序号（包恬垂直角阳作废角的拜I(I顺序号）2、广、Jv ,- I.Ill! 共leV角度分ir1.俨X 分飞度? )11 ,f,A角度分伯I IF f!J.弓以I).0”贝l申j./: 1 .I 机古权中il1芳平差伯i中误是8 11 1.v_化为平差值方向中误差，以001 H为单位。折角观棚时应化算为左角角债。l 11 i!c平观测角秒！自 1,1 同1,; LS VS 垂直观测角秒值11 其他记录信息（见表们2. 6 表白码j 容内代码字符数附m际K信息名称贯测数草测中序号以百分比；句单位。3 民且NRL 血平角现i!JI中二次i女数羔磕限次
5、数“ 3 3 NZC 仁Ii.韭旦旦半测凹角值J?超限次数1 : Y 统计个数X 各区间 X Y. X 中误差 x 平均值30 SRI. 1)Z平Iii且测中次出数差f血分布统计量 ( 3 x 7) 以（川为单位叫见草本现定引附革，参考件）乞以（），() l”为单位.附录B（宴号件上4 szc 虫、或丰测例角且差变化统计量G .JR V 垂在角观测中次读数是超限次数指标差超限lk数I . x 各区间统计个数（27)（以（）.01”为单位） x 飞：平均值2 23 .:21 SRV 垂直角观测中一次读数差值分布统计量8 !) 小误差505 旦旦直坠4 S21 指标k变化统iI撞1什CH/f 2
6、0 0 5 1 9 9 9 续表6内容代问代码宇待数标以符信息名称水平角观测限差Ii号I I I y 8 EEL 二次读数差之限差. ：、民E差Eli:半测回角差之限差/. x 同方tiI或I叫角度时间句是之限差之差E 角接问H寸备用接直或差零习斗H 差A口卫勾角差、忻限川一 二次i？数之限差5 EEV 垂直角现圳限羔12 苦限之差互辈怀uu目J 一X 一一一测同E差之I民差（以秒为单位）2. 7 方向、角度编号方向、角度编号适用于度盘配置、角值存取等处理。2. 7. 1 方向号若j站上观测，2个方向，则以距离适中、通视良好、成像清晰的某一方向作为起始1号方向，以顺时钊为序，方向号从l到n编号
7、。2. 7. 2 全组合观测角号设.j）为某一组合角，即由2号方向顺时针转到J号方向的角，并且il.则角度编号为11。全回方向法、折角观测法观测角输出!W.以全圆观测角号为序。2. 7. 5 分组观测角号分组方向法的第二方向组联测方向的观测角号编为最后一个角号其他观测角均按全困观测角编号。若观测方向数为n，则分组观测角号从l到n，其中1到11l为全因观测角号，n为第二方向组联iw11h lJ的观测角号。分组方向法观测角输出院以分组观测角号为序。506 CHIT 2005 1999 2. 7.6观测方向组号观测方向组号可用于编制度盘位置。全圆方向法、分组方向法、折角观测法方向组数均为10 全组合
8、法的观测方向组号和全组合角号相同。三方向法的观测方向组号见表8,表8可用于通过组号查询三方向组，检杏输入的三方1012 6789111 2. 7. 7 角号、组号索引表（见表9)此表用于通过任一组合角检索三方向角号、组号a表9兰兰方向角号一方向组号角号组合角7 8 9 7 8 9 I (I , 2 l I I I 2 (1,3) 2 I I I 3 ( 2 3) I l I 4 (, 4) 3 2 2 2 : ( 2. 4) 7 4 JO 5 6 ( 3 4) II 6 6 8 7 (, 5) 4 3 9 3 8 (2,5) 自4 4 6 g (3,5) 12 7 7 9 10 (4,5) 1
9、8 4 8 I I II (. 6) 5 3 3 4 12 (2,6) 9 5 5 7 13 (3,6) 13 6 II 10 14 (4,6) 19 6 8 11 15 ( 5 6) 3 8 II 16 (1,7) 6 2 2 17 ( 2 7) 10 ; 7 507 CH /T 2 0 0 5 1 9 9 9 续表9方向角号一方r：jttl吁角J号组合角/ 8 9 / s 18 c:,7) I ,I I I t I 11 (4 7 ) 2 , o 7) 7 I ( 6, 7) 日2 ( 1 8) lS 3 I ?J ( 2. 8) I 6 4 24 (:l.8) 民式25 ( 4 8) 5
10、 8 2日( 5 8) 1 27 ( 6. 8) 28 ( 7. 8) 20 12 I 2 2J ( I 9 l 21 :J 30 ( 2. 9) 22 :11 (3 9) 23 I I 32 ( 4 9) ) 33 (. 9) :l 3,1 ( 6. 91 I) 311 (7咱9)24 36 ( 8. 9) 12 3 记录与处理规定3. 1 ic录载体保存信息三角测量观测记录载体包括纸带（记录格式见5.I ）、磁带（记录格式见5.2）、观iWrJ记簿（记求格式见附录A补充件）。3. 1. 1 打印纸带上必须记求的信息a. 每测口l观测角的平均值，包括同角度各测回互差，直接角和间接角互差超限合
11、.的俏，以反有关这些值的民明信息（见5.1. 5.5. 1. 6); b. 测站平差后的方向值、垂直角值$c. 单位权中误差和平差后方11值中误差gd. 重测率。3. 1. 2标题信息、现j条件信息可以记录在纸带上、或者观测记簿中。对于纸带上已有的信息除规定外记得中可以不再填写。3. 1. 3 选用磁带作记录载体时，3.1.1.3.1.2中规定记录的信息必须全部记录在磁带上，并打印在纸带上。3. 2 限差检验项目和处理办法凡舍、关标准中规定的限差检验项目记录器都必须进行检验。由于记录器功能的限制尤法检验的项目可以人E判断但必须保存被检验的数据记录。凡由记录器程序控制检验的项目，其超限处照办法和
12、重测数计算应按表10执行。508 CH;T 2005 1999 ,JN为所保留的作废数据条数UNS为附录区长。本仄变量设置；电1个下标的维字符数组噜具长度为60个字符。9 23578 33555 299 , 1 CH/T 2005 1999 续表19区名信息各称变量字符位置地址备注文件SP 00 3川）一二与削Jj(平角时.a48，当不测在平角时，a27。MAP 20 当同时测事平角和季直角时.A，364，当只测水平角时，LC) 27 A，347；当只测星在直角时.A，343,现VIL -/()() 00 A, 当测水平角和垂直角时.A，A,+I;SIGN 03 当不测水平角时，A,=A,+1
13、.A,=A，十日1.B立9NO,I 垂vs 04-08 在垂直角数据区中变量设置为BNV个下标的一维字符l直数组，其长度为9个字符。角数据A, 区丰区终址为，一A,.,=A,+B NV I Gl4 CH /I 2 Q Q 5 - 1 9 9 9 续表19区名信息名称变量字符位置地址备; 立1-1L/V 。A, N(JO 01 SET IM N() 06 s 08一12(A，十12)据区个二f.斗丰攻终址fl,., I A. A冉一LI :1 X川口1 u l A，一l附录区恪式不作规定。附录区丰R变量设置为IS个下标的一维字符数旦l.宾数也i1皮l文为16个字符。,. 丰区终址为A.，A. 一
14、卡16NSlI 6 上交资料测站观m工作结束后，应把打印有成果的纸带剪贴在附录A规定的观jlj记簿中的相应表格恩并山对观测记得中相应记录的内容进行校对确认无误后方可结束记录工作。采用电子记录器记录后，有关标准中规定七交的观测子簿和%11.测记簿改为t欠附录，.（补充件规定的观测记簿和所有记录成果的记录载体。其他资料仍按有关规定t交5s l CH.IT 2005 1999 附录A观测记簿补充件）A. 1 封面测区等级主于水平角观测方法i则回数垂直角观测方法i目tnJ数观测记簿点名（点号）.J 0. 所在阁幅号视 方向图照f佳，点t 1 i 2 3 4 0 6 7 8 9 施测单位一一一一一一一一
15、一一一516 A. 2 副封面观测者记录者测量标准名称和代号程序设计单位程序名称记录器吨挂号磁带机型号仪器类理水准器格值测微器行羔横轴倾斜值标石仪器台仪器水平轴仪器型号CH /T 2 0 0 5 1 9 9 9 磁带号文件名程序设计者No. No. No. 仪器参数测定日期现标从上标石中心起算的高度标顶基板回光台回光中心517 CH/r 2005 1999 A. 3 检查验收表号在俭存在l9年月日号自.：检f竖在今：19年月日卜一一一一队检查，自见：（签名或盖市）19年月日验收部门宦见（签名或盖章）19年月日内业汁算检查者19年月日卜一一一一一一一一一一一重要问题记载页。. . 问题摘要处理意
16、一一一一寸一一一见！处理者518 CH/f 2005-1999 A. 4 舰标及观测情况登记表舰标 - 一一一一一一一一干一一一标石修饰寸h 1if . 观测条件本点观测情况特殊事项s 1 i CH/T 2005- 1999 A. 5 测站观测结果表水平角观测结果方向号测站平差后的方向值7叶1）归零寸i nu人归心改J后的川1值1仰jj标2 3 4 5 6 斗7 一“8 4一一一9 一一、一一一单位权中误差J=平差后方向值中误差M=垂直角观测结果方向号测站平差后的垂直角值照准目标目标高度备i午1 2 3 4 5 一一一一斗6 一一一7 8 9 520 CH;T 20051999 ,. 6 记录
17、观测条件用表观测j顺序号Ile! 即l卜N(J(J I J.A丁E时一始一侧卅nlBJ 成象通视结束lTl、.1()fWl.JJ) 1 JM(; Sf:r: 。11:123 1930 2022 。l12 。I 37 0323 2028 21门7? 】43 11323 2041 10 I 2 。l 5话，!.!ST, WJJ,f) T3 SNCl ,CHJ GT 74 INCJ,91390 UNTP, ：八BBArFEVBA.I., I 、，( PClR, C 533750113581 l YMJ), PRC) ,c;T AOAB86ZB I. I SVY ,(;! YMfJ, YE/R ,83
18、 R. M, 0. 02 Fl,D, OT2 ( 264252833988 l iMf), 830621 JN11 .6IA T 1 J 935可JIIlliIN13IlllIlNIl11111l盯mmmuuu21lSSS A-rJnb TTT 酌14JnIrEI 0405)l3986527045)1536847905)1253684790 543凡3333333343K4644444445VA5555535556pbqqdrL4飞rt507阳NX122? 000 9504 95044 95044 15650 2034 27:J30 005 00 :l 一105SET I N 2 | 表忌度耻
19、配置不正确要求重新配置。2C 1：差超限度盘位置应为2C二CIR 3 4 x 7 zc已为.x .请调整？I , zc？ 8 指标差己为儿请调瞥！I z ! 10 章测数超限cRRR 1 1 归零主主超限rl折角闭告差越限3。LR 360 12 il!回.x万fol重测！SD RM 13 14 洲国x. x为一fo I卡卡拥l! 525 日llFM!IS D. 1 说明CH/T 2005-1999 附录D记录程序GTA0AB86ZB （参考件本程序是按照国家三角测量和精密导线测量1Jl范队Zl:l.;76003 87测量外业电子记录幕本规定和ZlA76004 87三角测量电子记录规定编写的二角
20、测量记成系统，适用于Pc:1soo系列计挥机。运行本程序需要22KB的内存容量。适用仪器类型：f)Jf)J，读数方法i主格或读秒；i重用Ji法：全国h向法、全组合法、二二方向法、折角观测法、分组方向法：迢川等级：一、二、二、四等；水准器分划类明零分划在左端和巾间。本程序可以记录标题信息、观测条件信息、观测数据向动进行各种数据检验处理，并能打印输山观测成果，将成果录入盒式磁带并对磁带数据进行校验。本程序能输出如下供检查验收和质量评定的信息：a. 单位权中误差平差值方向中误差；b. 限差、两次读数差和2（互差超限次数、重测率、测站ffi!rj量次数，c. 光段zc变化统计量；d. 两次读数差值分布
21、统计结果。本程序具有输入信息逻辑判断、操作流程控制、中断恢复等功能。本程序还可进A步优化，增加程序和数据保护功能等。为了使本程序适用于Pt:1500加16Kl:l模块的机型，可把本程序缩写成适用单观测方法的程序。D. 2 程序20 (;()T() 9020 50 GClClN ” A=Q,Q=ZO:GC)T() A 650 “STRT”IF c:z $ ZZ $ GClfCl 20 652 CC)SUB8040:1=10,JFV$2GClTCl 510 665 Il=VAI. MID$ CE$ (2),27,5):1F ABS lll5十5替BJGCJTCJ580 666 A=VA!. Mil
22、l$ CE$ （川，38，曰：IFABS .O.BJC;OTCl 570 667 fJ=NM/3:DlM C $ (8）普l,V$(34）骨5.A$(1）讲9,M $ (31）怜5668 DIM Q $ C29l祷！.（）$(f）铃2,N$CDl养2.P$Cll）长2,.0.cgJ,1$ C6l长3670 1=25 680 Q=680:GCJSUB 2650:B$ (l)=ll$ (O),(;(JSUB 2500,0$ (Ol=B$ Cll 690 I= I十l,J IZI.ET !=30,(;(JTCl 680 693 lF Bf=JOR BT=51F ZCJJI.El l=30:l;(JT
23、(l 680 695 IF Z4LET I二30：（；（）丁（）680 526 CHIT 2 0 0 5 1 9 9 9 697 Ir B12J,ET ！30,GCYlC) 680 699 IF BT= 41,ET Bfl= 2 ,c;CJT() 70$ 700 Q = 700, INPU1“NI二飞HD,IF HD !GCJTCJ 705 701 (;(JT() 700 705 J = o, IF BT= 3AND BD 3GCJT(l 980 870 lF ZCl=ll,El. E4=5,GCJT(l 900 880 E4=6 900 BM=l:IT CBM/Bll+.4l,IF BT=3
24、!,Ef BM=INT (3畏Blv!/2斗5)910 IF BD6LET E4=1NT (4拎.8+. 5) ,G()T(l 980 930 E4 =INT (4赞.6十.5) ,c;CJTCJ 980 940 “ IL l ” f)ATA 60,4! ,0,o 94S “!Tl” DATA 41.3!,0.0 950 “ 21.1 ” f)AlA 30,2日，12.8955 “ 21.2 ”DATA 0,0,16.12 960 “ 2Tl ” DATA 0,15,9,5 965 “ 2T2” DATA 0,0,12.9 970 DATA 1. S.2.3. 5,5 980 IF BT= !
25、LET A$ (0) =l,EF丁$（“123.56789”，BDl981 IF BT3G()TCl 1020 1012 IF BD=7J,ET AO=OBD=0，（0=7 1014 IF Ill)= 81.ET AO= 7 BO= 21,CO=12 G27 CH/I 2 0 0 5 1 9 9 9 1016 IF Hfl=9!,r:T i.019日049c:o 12 1020 l Hl=JOR BT=4!,ET NO=IlfJ一l1025 lr Bf=21,ET NO=IlD枪（!lDll/2 1030 Jr BT二3!,ETN0=21焚BilHll并HD81 1035 IF BT= 51,
26、ET NO=!l!) 1100 IF BT=2!,ET NY=BM兴NO,A=NY1105 IFHl 31,ET NY二BM祷c:o,i=N,IF Bl）吕LE丁NYNY ,l我（HfvlINT (Bfvl x 2/3十5l), A二NY1110 IF BT=40R HT=!LET NYBM,ABM於CBD1) 1115 IF B1=5LEf NY=BM,A=BM椅BfJ1120 EE=A/3 1200 活O1500 Zl=l AA=O,Sl=O,S2二o,S3=0,FClRIllT(l 6,T$ （！）二。”，NEXT I,E $ =“” F $ = E $ , c; $ = r: $ 15
27、05 H $ =r: $ ,F(lR I=OTCl NO锵BMl,S$Cl）工“”：NEXT1,c;osuB 3660,P=4010 1510 NC=O,NX=O,SN二O,SR=O,SC=O,SS=SS+l,Ml=OM2=0 NW=0,2$ =“”,NS =O,NN=O 1520 f()R I口f()27,V$ （！）“。”，NEXTI 1600 ZZ $ =STR $ TIME ,C3 $ =ZZ $ 1610 GClTCl 20 2000 s二02005 CURSClR 12, INPU1“RI =”;A, W Alf Cl, PRJNT (; $ ( 0 l, c;CJTCl 2020
28、 2010 GClTCJ 2005 2020 IF A以；cJTCl2110 2030 CURSOR 12, JN PUT “ R2 =”;B,PRJNT G $ (0) ,CURSCJR 12 , B=OGClTCl 2055 2040 GCJTCl 2005 2055 D=19-9钟BJ,A=A/l:B=B/D2060 c:=INT CA/100)/100,A=DEG c：十（Ac；势Ir:4l将c:J/3600, B= flr:30祷CJl,ETD=SGN C普CJ/60,B=B+D,C=CD祷36002090 IF ABS C:EPAUSE “RJ2”:Bf:EP 10,S=S十I,
29、GClTCl 2005 21110 i=(A十Bl/22110 RETURN 2500 B$ (0)=LEFT$ (B$ (ll.A ll,G$ (!l=G$ Cll+G$ (OJ,C=l,EN B$ (l) 2510 l;$(ll=J,EFT$(G$(1l,BJ,B$(1J=RIC;HT$ C日$ClJ,C:-A一I十J),B$ BGl)TCl 2530 2570 REfURN 2580 GClSUH 2640 ,GClSUB 2530 2600 D=B ,B $Cl l =E $.$=MlfJ$ CY$(!),6,4),A二VALMID$ CY$Cll.2,2),ll=VAI.MI!l$C
30、Y$C!).l. 2),E=VAl.l,EFT$ CY$Cll,Jl,RETURN 2650 GC)SUB 2640 Z66o c:1.s：CJSUB 2530,WAIT O,PRIN1 A$；“工”；G$ Cl ) ; , INPUT “ CJK ?”; B $ , II- B $ =“N”GClICl 2660 2670 （丁I.S, I B,RETURN2700 IF K =ClLET C =A, D二A,1-:=I,F=I,GClTC)2715 2705 IF ACJ,ET C=A,E=I 2710 IF A99LETS=99 2755 P$CGJ=STR$ S,Q$CBJ“l”，G=
31、G十l,RETURN 2800 A=VAI.M$CEl十S赞VALM $CF）牛36E4并（f)E(;(VALV $ C!-:)/100）十日骨llr:GCVAI, V$ CF)/100),B=B+A 2805 IF AMI,ET M二AC二ED二F2810 IF A360I,ET ()=() :l60 3150 ()=l:-11 (DMS O长1E4+.5l/1E4,RETURN 3200 SJ =SJ十l,S2=S2十C,S3=S3十C提c:,E=INTC3兴C/El十.999十SGNCSGN C 1）祷，999）十33210 T $ CEJ=STR $ ZZ $ GC)T() 20 32
32、55 GCJSUB 3660,ZZ$ =STR$ TIME 3260 Q=3260,CN=Nl.,GOSUB 3z90,c:4$ =ZZ$ :NS=l,C6$ =ZZ$ 3265 GCJTCl P 3270 “ E.JD” IF C6 $ ZZ $ G()T() 20 3272 GCJSUB 3275 :C3 $二ZZ$,PAUSE“ST()p尸，BEEP20,END ”十丁$（f;),3),3275 ZZ $ =SfR $ l.lf “=”GC)TCl 3315 A$=MID$CA$.I十J,5J,WAITCl,CURSClRI5,PRINT B$ ,A$ ,CURSClR o,GClTCl
33、 “ WE =”1OC;C)TCl 3530 GCJT(l 3510 l.URSClR 12: INPUT 勺，R”；B,WAIT (),PRINT G $ (0) ,CURSC)R 12: IF BoGClT(l GClTIOOLET E=ABS C C=D:O=E,S= 1 IF F=!LET M=D,N=ll A=M,B=N IF IlALET A=D IF D6I.ET K=Z:PAUSE “L ER !”,BEEP 6:G0T() 3510 M=A N=B:F=2 RETUR:-! IF 0()3LET A=J 1 ,GOT() 3725 A=Y十（J-1）椅（J-2l/2,JFBT
34、=3l.E1 A=VAI. l $(A ll RETURN K=Z:GC)SUB 3700 CHIT 2005 1999 3735 J二VALM1!)$(X$电K电I),(;()SlJ巳.1710，（Zll斗汗仆十八I 3740 U $ (NN）工叮4”卡RJl;H1$ (; $ (ll十RS川、） 3 ）十l1ZZ出（；）() 2 0 4010 P=4010,Q=ZO,INPUT l,S/”,A$ ,G(llIC;CJSUB 3700,GlJTCl 1195 4070 IF Bl = !ClR BT二3C;(JT(l4090 4075 Q=4075,!NPUr “!)JR =”z X S ,
35、 IF I.EN X $二ZORI.EN X $ 3心。T()4085 4080 (;()T() 407S 4085 IF BT=21F I.EN X $ 2llR X $二$（）（）4075 4090 Q4090,INPUl“St:T飞Z,IF Zr叭。rci109日4095 GCJ1(l 409日4096 IF BT=3八ND!.EN X $ = 2AN!) Z !.IT 5G()T(l 4112 4100 Q=4lOO,!NPlJ1“Nol/22”:CO,!F Co一1CJRc:o= 2c;CJTCJ 411 o 4105 (;(JTCJ 4100 4110 x $ .出CO1) 411
36、2 /=NY,IF BT=5LET A二2品Nt4114 IF ZClA畴。十4养ZClJ/15C;K$ (AOtl)J(;(JT(J 4075 4180 N=VAL 1$ CC) 1 4190 ANo兴CZ一ll,IFXoGCJT() 1070 4191 K=3 4192 It X3C;CJSUB 5680,N=J ,K= k十l, If K ex j) /3(;()T() 4283 1286 （；（）丁OB 4288 PAUSE“养NDJ/3”：BEEPG, c;CJTCJ 4010 4290 C$CJ ll二二1”：GClSllB3200 1300 If5/3600BEEP 6,c;()
37、f() 4210 1:110 /Cll=A:B=IJEG (Vi!, MID$ (!”, BEEP I OGClTCl 4240 43日oI！十l,IF I”:BEr:P 10 1500 c;CJT() 4240 4502 PrUSE RRR 4己JOK 0寸14520 J =VAL Mill$ 359l,ET C=C 360 1600 AZ诀BPA USE “ R-ER!”:BEEP l IJ ,GClTCl 4240 4620 PAUSE “ zc z ”; c：号“！”z,BEEP 10,INPll1“”;A$ 4625 c:r.s,c;cJSUB 3550,GClrCl 4240 46
38、30 IF I=KLET T=C:V=C 4640 IfTLEf fC 16SO IF C二VI.ETV =(: !660 JF TJO=Ol,ET c:c:=( 4670 D二Cc:cD2=fJ2-D椅D:f)l二！）lf f),fJO=DO十1S:lZ 4675 4680 1685 4690 4700 4710 4712 4715 4717 4720 4730 4732 4740 1750 4755 4770 4780 4790 4800 4805 (1) 4820 4825 J 00. 7) 4830 4832 4835 4838 4840 4850 4855 4860 4865 491
39、0 4920 4940 5000 5510 5512 5521 5526 5528 5530 5535 5600 5610 5602 5604 IF T V之二E2GCJT(l4690 PAUSE “ 2c:”:BEEP 6 Ssc十1,C;(JT(l 1240 CHI! 2005 1999 IF ABS G6GClTCl 4350 B二Vll,YI$ (I ll十C:,IF B oc;cJTCJ 4520 IF XE4GCJT() 4400 A(Ol= （八CXJ-LA(O)l/2FJEXT I FCJR 1=2TCl X J=VALM!f $ (X $ ,J,Jl ,JF BT=4AND
40、ZCl/2=1NT CZCl/2)1,El J二2,A(ll3601 c;(JSUB 3710,C：二i,JFB=3LET lY斗。i）钝（J2) 12 1 （一1）二DMS.9999PAUSE “ S ER”:BEEP zo ,GCJT(1 4240 c（Z 1 l祷10十Al ,H $（仁）= STR $ B, S $ Cc:) “。”IF c: $ CJ 1 l“l”J,ET S $ (Cl=STR $ Zl ,SN工SN十七R$CC)=STR$SN NEXT J,Z $ =X $ IF Zl !G(JTCJ 4865 NS=NS+J,IF ll丁SANIJc:o=Zl,ET NW=NW
41、十l,GCJT(l 4865 NX=IX十1PAlJSE “ S-ClK !”,!JEEP 10 IF BlSAN!) c:o二2ANI1NW二NY(;()T()5000 IF NX=NYG(JT(l 5以）。(;()T(J .QI 0 Ir llT 1 !ll) B丁5(;(JTCl3600 F(lR l=Of() BM l ,X $二“l”K二2,J$=A$ （口l,JF BT=5LET A$八:Bcc;o 1i c;CJSUil 5680 K二K十l,!FS$CNll拆l+Jl=O”！，ETX $ =X $ +STR $ (J-,2) IF K “1”J,f:r Z=I -J,Zl 2,
42、C;()l() 3990 NEXT I c；o,IF BT5FCJR )=OTO No J,G(JSU!l Nr:XI J ,(;() f() 5700 K2,.-$=A$ cc:o一I) G(lSl!B 5680 533 CH /T 2 0 0 5 1 9 9 9 飞）6:c;os ;,1;111 .i(i5 lj 20 552;, (;(JSJB 5610,KKI I IF K可I：Ni. $ (;()f(J 5604 c;(rr(J s100 06二85630 SG:l2 so,Ko,(Jil. IOl() BM一1日NOx I十J,JFS$ CBJ =“”c;CJTCl 5660 人二
43、V八LII$ (Bl ,ss十A,Q$CIJ“。”：（；（）SlJB2700, NEXT I I! !NT CS/I十.5）川、$S1R$H,.I J,IFBT31.ET！J十lI GCJSUB 3420 M也CA)(.$ IF c: IlEECJCJTCJ :i660 M士八BSCl llJ/E3挫.2,N，BS CfJ-HJ/E3树.2 IF M：飞JOI.ET!3=E,S=M,(;()SU!l 2750 Gli3G IF N: !OLE! Il=F ,s二N,(;(JSlJB 2750 5610 k二o，Clll.l= EEGCJT(J 4502 ;)710 IF 111 =!(JR B
44、f=5(;()TCl 5760 57日E=O5720 FR I号。1()G一l,A=VAJ, P$ (0) 572S IF A.ELET Z= V Al, 0 $ Cl)+ l ,fJ 1,1. I$ Cll+ l ,EA s 7 Jo :r=xT 1 5735 IF H丁21,r:r!=ll,G()SUB 3400,X $=A$ 57;0 IF BT3!.ET lD,GC)SUB 3420,X $A$ :57!5 IF Ill =4!.Ef A二21-18祷（Z/2-INT(Z/2Jl,X$=SlR$ A S7SO C;CJ10 .5800 0760 E二0I F()R I= OT() BM
45、一l0765 5二（）I.I白二“l”，F()RJ = Of() c; 1 5767 II VAL (J $ (JlIC7()T(J 5775 0770 i二VAi.P $ (j),S=A个S,!l=V.lL NS C.1+2,JF Il1=5ANTJ c:o=ZANfJ H=l:lll斗l LEf ll ! S772 A$八出十STR$B 5770 NEXT J c785 IF S二巳Lr:rZ= I十11X$=A$1E=Si790 !EXT I S794 !F IlTlANI) !.EN X$一l(BDl l/31.ET X $A$ (0) ,G()T() 5800 0796 IF LEN
46、 X $ l (L：N A$ (:O l l 1 J/31.ET X $A$ !X $ !,IF AAEE(;(JlCl 4502 5日2sc;cisuB 37 30, z2 o, z13, GcJTCJ 3990 S80 IF llTsAND NY()R NWNY刀，ETZl= !GllTCJ 4010 5850 IF llT3C;C)TCJ 6010 ,sss F(JR I=(Jl(l c:ci-1 A$ K $ c/1.(J+Il IF LEl A市2GC)TCl 5880 ssGo ；VAi. 1.EFr$ sc;cJrci 6068 6045 A二VA1,M$CR2) VALMS（巳llI l, IF .-BS 1 :-3000LE1人/ sc; 1 i忡。川6047 IF ABS八( . 05特20. 9 . 5长20兴20）善”AJSEIJX：；”：B14(;(JTCJ 6080 6070 A二二OB=O,FCJR l=OT(l BMSTEP 2, A二ViLHS (J) I ,fl二V,LH $ I 1111. NEXT I 6075 IF ABS CA-B)/5oE4养BM:PAlJSE:“l.R :l60,BEEP 20,C;()T(l lSOll 6080 c;CJTC) 6200 6090 Cl
