PC-E500程序源代码
作者：管理员 发布于：2015-06-03 15:02:46
10 GOSUB 18750:GOSUB 19190
20 CLS :GCURSOR (60,8):GPRINT HUAN2$;KK$;KK$;YING2$;KK$;KK$;JING2$;KK$;KK$;RU2$
30 GCURSOR (60,16):GPRINT HUAN1$;KK$;KK$;YING1$;KK$;KK$;JING1$;KK$;KK$;RU1$
40 LOCATE 13,3:PRINT "[E500---2008]"
50 IF INKEY$ <>CHR$ &H37 THEN 50
60 IF INKEY$ <>CHR$ &H35 THEN 60
70 IF INKEY$ <>CHR$ &H31 THEN 70
80 IF INKEY$ <>CHR$ &H30 THEN 80
90 IF INKEY$ <>CHR$ &H32 THEN 90
100 IF INKEY$ <>CHR$ &H39 THEN 100
110 CLS :GOSUB 17370:GOSUB 19190:GOSUB 18830:GOSUB 18870
120 GCURSOR (75,8):GPRINT CE2$;KK$;LIANG2$;KK$;CHENG2$;KK$;XU2$
130 GCURSOR (75,16):GPRINT CE1$;KK$;LIANG1$;KK$;CHENG1$;KK$;XU1$
140 LINE (65,18)-(170,18):LINE (65,20)-(170,20)
150 GCURSOR (0,22):GPRINT JT$
160 LOCATE 2,2:PRINT "1"
170 GCURSOR (0,31):GPRINT KZ$;XIAN$;LU$;ZUO$;BIAO$;K$;XIAN$;LU$;GAO$;CHENG$;K$
180 GCURSOR (100,31):GPRINT XIAN$;LU$;DUAN$;MIAN$;K$;ZUO$;BIAO$;CE$;LIANG$;K$;CE$;LIANG$;SHU$;JU$;KY$
190 IF INKEY$ <>"" THEN 190
200 A$=INKEY$
210 IF A$=CHR$ &HF1 THEN *DLZB
220 IF A$=CHR$ &HF2 THEN *DLGC
230 IF A$=CHR$ &HF3 THEN *DLDM
240 IF A$=CHR$ &HF4 THEN *ZBCL
250 IF A$=CHR$ &HF5 THEN *DAGL
260 IF A$=CHR$ &H01 THEN 10
270 IF A$=CHR$ &H31 THEN 110
280 IF A$=CHR$ &H32 THEN 340
290 IF A$=CHR$ &H33 THEN 570
300 IF A$=CHR$ &H34 THEN 800
310 IF A$=CHR$ &H35 THEN 1030
320 IF A$=CHR$ &H0F THEN 1030
330 IF A$=CHR$ &H0E THEN 340 ELSE 200
340 CLS :GOSUB 17490:GOSUB 19190:GOSUB 18830:GOSUB 18870
350 GCURSOR (75,8):GPRINT CE2$;KK$;LIANG2$;KK$;CHENG2$;KK$;XU2$
360 GCURSOR (75,16):GPRINT CE1$;KK$;LIANG1$;KK$;CHENG1$;KK$;XU1$
370 LINE (65,18)-(170,18):LINE (65,20)-(170,20)
380 GCURSOR (0,22):GPRINT JT$
390 LOCATE 2,2:PRINT "2"
400 GCURSOR (0,31):GPRINT KZ$;CE$;LIANG$;PPING$;CHA$;K$;JIAO$;FEI$;CE$;LIANG$;K$
410 GCURSOR (100,31):GPRINT CE$;LIANG$;JII$;LU$;K$;MIAN$;JJI$;JI$;SUAN$;K$;XIAN$;LLU$;JI$;SUAN$;KY$
420 IF INKEY$ <>"" THEN 420
430 A$=INKEY$
440 IF A$=CHR$ &HF1 THEN *CLPC
450 IF A$=CHR$ &HF2 THEN *JHCL
460 IF A$=CHR$ &HF3 THEN *CLJL
470 IF A$=CHR$ &HF4 THEN *MJJS
480 IF A$=CHR$ &HF5 THEN *XLJS
490 IF A$=CHR$ &H01 THEN 10
500 IF A$=CHR$ &H31 THEN 110
510 IF A$=CHR$ &H32 THEN 340
520 IF A$=CHR$ &H33 THEN 570
530 IF A$=CHR$ &H34 THEN 800
540 IF A$=CHR$ &H35 THEN 1030
550 IF A$=CHR$ &H0F THEN 110
560 IF A$=CHR$ &H0E THEN 570 ELSE 430
570 CLS :GOSUB 17650:GOSUB 19190:GOSUB 18830:GOSUB 18870
580 GCURSOR (75,8):GPRINT CE2$;KK$;LIANG2$;KK$;CHENG2$;KK$;XU2$
590 GCURSOR (75,16):GPRINT CE1$;KK$;LIANG1$;KK$;CHENG1$;KK$;XU1$
600 LINE (65,18)-(170,18):LINE (65,20)-(170,20)
610 GCURSOR (0,22):GPRINT JT$
620 LOCATE 2,2:PRINT "3"
630 GCURSOR (0,31):GPRINT KZ$;JJIAO$;ZHUANG$;JI$;SUAN$;K$;ZHONG$;CHUI$;JI$;SUAN$;K$
640 GCURSOR (100,31):GPRINT YA$;SHI$;JI$;SUAN$;K$;HUI$;GUI$;QU$;XIAN$;K$;WAI$;SHE$;TTONG$;XUN$;KY$
650 IF INKEY$ <>"" THEN 650
660 A$=INKEY$
670 IF A$=CHR$ &HF1 THEN *JZJS
680 IF A$=CHR$ &HF2 THEN *ZCJS
690 IF A$=CHR$ &HF3 THEN *YSD
700 IF A$=CHR$ &HF4 THEN *HGQX
710 IF A$=CHR$ &HF5 THEN *WSTX
720 IF A$=CHR$ &H01 THEN 10
730 IF A$=CHR$ &H31 THEN 110
740 IF A$=CHR$ &H32 THEN 340
750 IF A$=CHR$ &H33 THEN 570
760 IF A$=CHR$ &H34 THEN 800
770 IF A$=CHR$ &H35 THEN 1030
780 IF A$=CHR$ &H0F THEN 340
790 IF A$=CHR$ &H0E THEN 800 ELSE 660
800 CLS :GOSUB 18310:GOSUB 19190:GOSUB 18830:GOSUB 18870
810 GCURSOR (75,8):GPRINT CE2$;KK$;LIANG2$;KK$;CHENG2$;KK$;XU2$
820 GCURSOR (75,16):GPRINT CE1$;KK$;LIANG1$;KK$;CHENG1$;KK$;XU1$
830 LINE (65,18)-(170,18):LINE (65,20)-(170,20)
840 GCURSOR (0,22):GPRINT JT$
850 LOCATE 2,2:PRINT "4"
860 GCURSOR (0,31):GPRINT KZ$;PPI$;LIANG$;ZUO$;BIAO$;K$;PPI$;LIANG$;GAO$;CHENG$;K$
870 GCURSOR (100,31):GPRINT PPI$;LIANG$;DUAN$;MIAN$;K$;DUAN$;MIAN$;ZHUAN$;HUA$;K$;ZUO$;BIAO$;ZHUAN$;HUA$;KY$
880 IF INKEY$ <>"" THEN 880
890 A$=INKEY$
900 IF A$=CHR$ &HF1 THEN *ZBDA
910 IF A$=CHR$ &HF2 THEN *GCDA
920 IF A$=CHR$ &HF3 THEN *DMDA
930 IF A$=CHR$ &HF4 THEN *DMZH
940 IF A$=CHR$ &HF5 THEN *XTZH
950 IF A$=CHR$ &H01 THEN 10
960 IF A$=CHR$ &H31 THEN 110
970 IF A$=CHR$ &H32 THEN 340
980 IF A$=CHR$ &H33 THEN 570
990 IF A$=CHR$ &H34 THEN 800
1000 IF A$=CHR$ &H35 THEN 1030
1010 IF A$=CHR$ &H0F THEN 570
1020 IF A$=CHR$ &H0E THEN 1030 ELSE 890
1030 CLS :GOSUB 18410:GOSUB 19190:GOSUB 18830:GOSUB 18870
1040 GCURSOR (75,8):GPRINT CE2$;KK$;LIANG2$;KK$;CHENG2$;KK$;XU2$
1050 GCURSOR (75,16):GPRINT CE1$;KK$;LIANG1$;KK$;CHENG1$;KK$;XU1$
1060 LINE (65,18)-(170,18):LINE (65,20)-(170,20)
1070 GCURSOR (0,22):GPRINT JT$
1080 LOCATE 2,2:PRINT "5"
1090 GCURSOR (0,31):GPRINT KZ$;BIAN$;PO$;FANG$;YANG$;K$;DAO$;LU$;FANG$;YANG$;K$
1100 GCURSOR (100,31):GPRINT SUI$;DAO$;CE$;LIANG$;K$;PPI$;LIANG$;SHU$;JU$;K$;SHI$;ZHENG$;FANG$;YANG$;KY$
1110 IF INKEY$ <>"" THEN 1110
1120 A$=INKEY$
1130 IF A$=CHR$ &HF1 THEN *BPFY
1140 IF A$=CHR$ &HF2 THEN *DLFY
1150 IF A$=CHR$ &HF3 THEN *SDFY
1160 IF A$=CHR$ &HF4 THEN *SWDA
1170 IF A$=CHR$ &HF5 THEN *SZFY
1180 IF A$=CHR$ &H01 THEN 10
1190 IF A$=CHR$ &H31 THEN 110
1200 IF A$=CHR$ &H32 THEN 340
1210 IF A$=CHR$ &H33 THEN 570
1220 IF A$=CHR$ &H34 THEN 800
1230 IF A$=CHR$ &H35 THEN 1030
1240 IF A$=CHR$ &H0F THEN 800
1250 IF A$=CHR$ &H0E THEN 110 ELSE 1120
1260 *CLPC:CLS
1270 GOSUB 17810:GOSUB 19190:GOSUB 18710:GOSUB 18830:GOSUB 18990
1280 GCURSOR (75,8):GPRINT CE2$;KK$;LIANG2$;KK$;PPING1$;KK$;CHA1$
1290 GCURSOR (75,16):GPRINT CE1$;KK$;LIANG1$;KK$;PPING2$;KK$;CHA2$
1300 LINE (65,18)-(170,18):LINE (65,20)-(170,20)
1310 GCURSOR (0,31):GPRINT KZ$;SAN$;JJIAO$;DDAO$;XIAN$;K$;HU$;HE$;DDAO$;XIAN$;K$
1320 GCURSOR (100,31):GPRINT BI$;HE$;DDAO$;XIAN$;K$;DDAO$;XIAN$;SHUI$;ZHUNG$;K$;HUAN$;HUI$;SHANG$;CEN$;KY$
1330 IF INKEY$ <>"" THEN 1330
1340 A$=INKEY$
1350 IF A$=CHR$ &HF1 THEN *SJW
1360 IF A$=CHR$ &HF2 THEN *FHDX
1370 IF A$=CHR$ &HF3 THEN *BHDX
1380 IF A$=CHR$ &HF4 THEN *SZPC
1390 IF A$=CHR$ &HF5 THEN 340 ELSE 1340
1400 *JHCL:CLS
1410 GOSUB 17900:GOSUB 19190:GOSUB 18710:GOSUB 18830:GOSUB 19030
1420 GCURSOR (75,8):GPRINT JIAO1$;KK$;HUI1$;KK$;CE2$;KK$;LIANG2$
1430 GCURSOR (75,16):GPRINT JIAO2$;KK$;HUI2$;KK$;CE1$;KK$;LIANG1$
1440 LINE (65,18)-(170,18):LINE (65,20)-(170,20)
1450 GCURSOR (0,31):GPRINT KZ$;QIAN$;FANG$;JIAO$;FEI$;K$;BIAN$;JJIAO$;JIAO$;FEI$;K$
1460 GCURSOR (100,31):GPRINT HOU$;FANG$;JIAO$;FEI$;K$;KK$;KK$;KK$;KK$;K$;HUAN$;HUI$;SHANG$;CEN$;KY$
1470 IF INKEY$ <>"" THEN 1470
1480 A$=INKEY$
1490 IF A$=CHR$ &HF1 THEN *QFJH
1500 IF A$=CHR$ &HF2 THEN *HFJH1
1510 IF A$=CHR$ &HF3 THEN *HFJH2
1520 IF A$=CHR$ &HF5 THEN 340 ELSE 1480
1530 *WSTX:CLS
1540 GOSUB 19190:GOSUB 18710:GOSUB 18830:GOSUB 19110
1550 GCURSOR (75,8):GPRINT WAI2$;KK$;SHE2$;KK$;TTONG2$;KK$;XUN2$
1560 GCURSOR (75,16):GPRINT WAI1$;KK$;SHE1$;KK$;TTONG1$;KK$;XUN1$
1570 LINE (65,18)-(170,18):LINE (65,20)-(170,20)
1580 GCURSOR (0,22):GPRINT JT$
1590 LOCATE 2,2:PRINT "1"
1600 LOCATE 0,3:PRINT "[ TPK ][ BD ][ LK ][ SJ ][ NF ]"
1610 IF INKEY$ <>"" THEN 1610
1620 A$=INKEY$
1630 IF A$=CHR$ &HF1 THEN XH$="TPK":GOTO 20380
1640 IF A$=CHR$ &HF2 THEN XH$="BD":GOTO 20380
1650 IF A$=CHR$ &HF3 THEN XH$="LK":GOTO 20380
1660 IF A$=CHR$ &HF4 THEN XH$="SJ":GOTO 20380
1670 IF A$=CHR$ &HF5 THEN XH$="NF":GOTO 20380
1680 IF A$=CHR$ &H01 THEN 570
1690 IF A$=CHR$ &H0F THEN 1710
1700 IF A$=CHR$ &H0E THEN 1710 ELSE 1620
1710 CLS :GOSUB 19190:GOSUB 18710:GOSUB 18830:GOSUB 19110
1720 GCURSOR (75,8):GPRINT WAI2$;KK$;SHE2$;KK$;TTONG2$;KK$;XUN2$
1730 GCURSOR (75,16):GPRINT WAI1$;KK$;SHE1$;KK$;TTONG1$;KK$;XUN1$
1740 LINE (65,18)-(170,18):LINE (65,20)-(170,20)
1750 GCURSOR (0,22):GPRINT JT$
1760 LOCATE 2,1:PRINT "2"
1770 LOCATE 0,3:PRINT "[ ][ ][ ][ ][ ]"
1780 IF INKEY$ <>"" THEN 1780
1790 A$=INKEY$
1800 IF A$=CHR$ &HF1 THEN XH$=" ":GOTO 1780
1810 IF A$=CHR$ &HF2 THEN XH$=" ":GOTO 1780
1820 IF A$=CHR$ &HF3 THEN XH$=" ":GOTO 1780
1830 IF A$=CHR$ &HF4 THEN XH$=" ":GOTO 1780
1840 IF A$=CHR$ &HF5 THEN XH$=" ":GOTO 1780
1850 IF A$=CHR$ &H01 THEN 570
1860 IF A$=CHR$ &H0F THEN 1540
1870 IF A$=CHR$ &H0E THEN 1540 ELSE 1790
1880 *CLJL:CLS
1890 GOSUB 18580:GOSUB 19190:GOSUB 18710:GOSUB 18830:GOSUB 18670
1900 GCURSOR (75,8):GPRINT CE2$;KK$;LIANG2$;KK$;JI2$;KK$;LU2$
1910 GCURSOR (75,16):GPRINT CE1$;KK$;LIANG1$;KK$;JI1$;KK$;LU1$
1920 LINE (65,18)-(170,18):LINE (65,20)-(170,20)
1930 GCURSOR (0,31):GPRINT KZ$;DENG$;WAI$;SHUI$;ZHUNG$;K$;DENG$;JJI$;SHUI$;ZHUNG$;K$
1940 GCURSOR (100,31):GPRINT DDAO$;XIAN$;JI$;LU$;K$;KK$;KK$;KK$;KK$;K$;HUAN$;HUI$;SHANG$;CEN$;KY$
1950 IF INKEY$ <>"" THEN 1470
1960 A$=INKEY$
1970 IF A$=CHR$ &HF1 THEN *DWSZJL
1980 IF A$=CHR$ &HF2 THEN *DJSZJL
1990 IF A$=CHR$ &HF3 THEN *DXJL
2000 IF A$=CHR$ &HF5 THEN 340 ELSE 1960
2010 *TQZB:REM xian lu zuo biao yao su ti qu
2020 RADIAN :PAI#=3.141592653589793#:DEFDBL F,H,J,X,Z:K=1000
2030 DIM LX(50),ZX(50),R1(50),R2(50),S1(50),S2(50),T1(50),T2(50),LE(50)
2040 DIM P1(50),P2(50),Q1(50),Q2(50),LY1(50),LY2(50),FW(50),FWGQ(50)
2050 DIM ZH(50),HZ(50),XZH(50),YZH(50),XHZ(50),YHZ(50),DJJ(50),AB(50)
2060 DIM N(50),OA(50),OB(50),E1(50),E2(50),X1(50),Y1(50),X2(50),Y2(50)
2070 DIM DLA(50),DLB(50)
2080 OPEN "E:"+FNAME$+".ZB" FOR INPUT AS #1
2090 INPUT #1,HZ(0),X0,Y0:X1(0)=X0:Y1(0)=Y0:XN=0
2100 INPUT #1,QS
2110 FOR N=1 TO 1000:INPUT #1,LX:LX(N)=LX:IF LX>=4 THEN XN=XN+2 ELSE XN=XN+1
2120 N(XN)=N:IF LX>=4 THEN N(XN-1)=N
2130 IF LX<>-1 THEN 2160
2140 INPUT #1,X,Y:GOSUB 3790:FW(N-1)=FW:NN=N-1
2150 X1(N)=X:Y1(N)=Y:GOTO 2300
2160 ON LX GOTO 2170,2210,2210,2250,2250
2170 REM LX=1 1,X,Y,S1,R,S2
2180 INPUT #1,X,Y:GOSUB 3790:FW(N-1)=FW:X0=X:Y0=Y
2190 X1(N)=X:Y1(N)=Y:X2(N)=X:Y2(N)=Y
2200 INPUT #1,S1(N),R1(N),S2(N):R2(N)=R1(N):GOTO 2290
2210 REM LX=2(3) 2(3),X1,Y1,X2,Y2,S1,R,S2
2220 INPUT #1,X,Y:GOSUB 3790:FW(N-1)=FW:X0=X:Y0=Y:X1(N)=X:Y1(N)=Y
2230 INPUT #1,X,Y:GOSUB 3790:FWGQ(N)=FW:X0=X:Y0=Y:X2(N)=X:Y2(N)=Y
2240 INPUT #1,S1(N),R1(N),S2(N):R2(N)=R1(N):GOTO 2290
2250 REM LX=4(5) 4(5),X1,Y1,X2,Y2,S1,R1,R2,S2
2260 INPUT #1,X,Y:GOSUB 3790:FW(N-1)=FW:X0=X:Y0=Y:X1(N)=X:Y1(N)=Y
2270 INPUT #1,X,Y:GOSUB 3790:FWGQ(N)=FW:X0=X:Y0=Y:X2(N)=X:Y2(N)=Y
2280 INPUT #1,S1(N),R1(N),R2(N),S2(N)
2285 PRINT "HC =";HC
2290 NEXT N
2300 FOR PF=1 TO 50
2310 INPUT #1,DLA(PF):IF DLA(PF)=-1 THEN PP=PF-1:CLOSE #1:GOTO 2340
2320 INPUT #1,DLB(PF)
2330 NEXT PF
2340 XHZ(0)=X1(0):YHZ(0)=Y1(0):X0=X1(0):Y0=Y1(0)
2350 FOR N=1 TO NN:LX=LX(N):OA=0:OB=0:AB=0
2360 ON LX GOTO 2370,2400,2400,2400,2400
2370 X1=X1(N):Y1=Y1(N):DJJ=SQR ((X1-X0)^2+(Y1-Y0)^2):X0=X1:Y0=Y1
2380 X2=X1:Y2=Y1
2390 FW=FW(N):FW0=FW(N-1):GOSUB 3910:JA=JJ:ZX(N)=ZX:JB=0:GOTO 2440
2400 X1=X1(N):Y1=Y1(N):DJJ=SQR ((X1-X0)^2+(Y1-Y0)^2):X0=X1:Y0=Y1
2410 X2=X2(N):Y2=Y2(N):AB=SQR ((X2-X1)^2+(Y2-Y1)^2):X0=X2:Y0=Y2
2420 FW=FWGQ(N):FW0=FW(N-1):GOSUB 3910:JA=JJ:ZX(N)=ZX
2430 FW=FW(N):FW0=FWGQ(N):GOSUB 3910:JB=JJ
2440 DJJ(N)=DJJ:AB(N)=AB:GOSUB 3390
2450 XZH(N)=X1-(T1-OA)*COS (FW(N-1)):YZH(N)=Y1-(T1-OA)*SIN (FW(N-1))
2460 XHZ(N)=X2+(T2-OB)*COS (FW(N)):YHZ(N)=Y2+(T2-OB)*SIN (FW(N))
2470 NEXT N
2480 DJJ(NN+1)=SQR ((X1(NN+1)-X0)^2+(Y1(NN+1)-Y0)^2)
2490 BEEP 3:RETURN
2500 *DLZB:CLS
2510 PRINT :PRINT " XIAN LU MING CHENG":PRINT
2520 INPUT " BIAN HAO:";FNAME$
2530 IF FNAME$="UP" OR FNAME$="up" THEN 110
2540 GOSUB *TQZB:CLS
2545 *DLZB1:GOSUB *CZSZ
2550 *DLZB2:CLOSE :CLS
2553 INPUT "SHU JU TI QU 1)ZD 2)SR :";SJTQ
2555 IF SJTQ=1 THEN GOSUB *YQXZ
2560 INPUT "Zhuang Ju DL=";DL
2570 ZA$="":INPUT "Zhuang hao (SJ/HS/SR/CJ/+/-):";ZA$:ZA=VAL (ZA$)
2580 IF ZA$="+" THEN ZA=ZAS+DL
2590 IF ZA$="-" THEN ZA=ZAS-DL
2600 IF ZA$="" THEN ZA=ZAS
2610 IF ZA$="SR" THEN INPUT "CE DIAN X=";XP:INPUT " Y=";YP:GOTO 2800
2620 IF ZA$="SJ" THEN GOSUB 3950:GOTO 2570
2630 IF ZA$="HS" THEN 2545
2640 IF ZA$="UP" OR ZA$="up" THEN 110
2650 IF ZA$="CJ" THEN GOTO 2880
2655 PZA=ZA:GOSUB *ZHTOLC
2660 IF LCK<HZ(0) OR LCK>HZ(NN) THEN BEEP 1:PRINT " K=";HZ(0);"-->";INT (HZ(NN)*1000+0.5)/1000:GOTO 2570
2670 PRINT "Fang Xiang 1)Zuo 2)You =";FX;:INPUT FX:FX$=STR$ (FX)
2680 IF FX$="" THEN FX=FX
2690 IF FX=1 OR FX=2 THEN 2700 ELSE 2670
2700 PRINT "Xie Jiao Jiao Du Aj=";JJ$;:INPUT JJ$:JJ=VAL (JJ$):IF JJ$="" THEN JJ$=JJ$
2710 J=JJ:GOSUB 3770:XJJ=J
2720 IF FX=1 THEN XJJ=XJJ+PAI#
2730 IF FX=2 THEN XJJ=XJJ
2740 PRINT "Lu Mian Kuan Du KD=";KD;:INPUT KD
2760 GOSUB *ZBJS
2770 IF FX=1 THEN FX$="Z" ELSE FX$="Y"
2780 V=ZA:GOSUB 4820:PRINT " FX=";FX$;" Aj=";JJ$;" KD=";KD
2785 XP=INT (XP*1000+0.5)/1000:YP=INT (YP*1000+0.5)/1000
2790 PRINT USING " X=########.###";XP;:PRINT USING " Y=########.###";YP
2800 D0=SQR ((X0-XP)^2+(Y0-YP)^2)
2805 X=XP:Y=YP:GOSUB 3790:JJ=FW-FW0:JAP=JA0+JJ
2810 IF JAP<0 THEN JAP=JAP+2*PAI#
2820 IF JAP>2*PAI# THEN JAP=JAP-2*PAI#
2830 PRINT "Ap=";:J=JAP:GOSUB 3870
2840 PRINT USING " D0=######.###";D0;
2850 DD=SQR ((XS-XP)^2+(YS-YP)^2)
2860 IF XS=-1 AND YS=-1 THEN PRINT " DD=0":GOTO 2872
2870 PRINT USING " DD=######.###";DD
2872 XS=X:YS=Y:ZAS=ZA
2875 GOTO 2570
2880 PRINT "JING GAO I=";IG;:INPUT IG
2882 IF SJTQ=1 THEN GOSUB 20500:J=AP:GOSUB 3770:AP=J+FW0-JA0:XC=X0+LP*COS AP:YC=Y0+LP*SIN AP:XC=INT (XC*1000+0.5)/1000:YC=INT (YC*1000+0.5)/100:GOTO 2884
2883 INPUT "GAO CA K=";K
2884 HC=HT+K-IG:HC=INT (HC*1000+0.5)/1000
2887 IF SJTQ=1 THEN PRINT "X=";XC;" Y=";YC;:PRINT " H=";HC
2888 V=ZAS:GOSUB 4820:PRINT " FX=";FX$;" Aj=";JJ$;" KD=";KD
2890 INPUT "HSJ= ";HSJ:HGC=HSJ-HC
2891 PRINT "HCL=";HC;" GC=";HGC
2892 PRINT "SAVE (Y/N)=";SJBC$;:INPUT SJBC$
2893 IF SJBC$="Y" THEN OPEN "E:DLZBFY.JL" FOR APPEND AS #1 ELSE 2898
2894 INPUT "BIAN HAO =";DH$
2896 PRINT #1,V$;",";DH$;",";FX$;",";KD;",";XP;",";YP;",";HSJ;",";HC;",";HGC:CLOSE #1
2898 GOTO 2570
2900 *ZBJS:REM xian lu zuo biao ji suan
2905 FOR N=1 TO NN
2910 IF LCK>HZ(N) THEN 3010
2920 P1=P1(N):P2=P2(N):Q1=Q1(N):Q2=Q2(N)
2930 R1=R1(N):R2=R2(N):S1=S1(N):S2=S2(N):ZX=ZX(N):LE=LE(N)
2940 LY1=LY1(N):LY2=LY2(N):ZH=ZH(N):HZ=HZ(N):T1=T1(N):FWGQ=FWGQ(N)
2950 IF LCK<=ZH THEN GOSUB 3075:RETURN
2960 IF LCK>=ZH AND LCK<=ZH+S1 THEN GOSUB 3090:RETURN
2970 IF LCK>=ZH+S1 AND LCK<=ZH+S1+LY1 THEN GOSUB 3100:RETURN
2980 IF LCK>ZH+S1+LY1 AND LCK<ZH+S1+LY1+LE THEN GOSUB 3200:RETURN
2990 IF LCK>=HZ-S2-LY2 AND LCK<=HZ-S2 THEN GOSUB 3140:RETURN
3000 IF LCK>=HZ-S2 AND LCK<=HZ THEN GOSUB 3150:RETURN
3010 NEXT N
3020 FQX=FW(NN)
3030 XP=XHZ(NN)+(LCK-HZ(NN))*COS (FW(NN))+KD*COS (FW(NN)+XJJ)
3040 YP=YHZ(NN)+(LCK-HZ(NN))*SIN (FW(NN))+KD*SIN (FW(NN)+XJJ)
3050 RETURN
3075 FQX=FW(N-1)
3078 XP=XZH(N)-(ZH(N)-LCK)*COS (FW(N-1))+KD*COS (FW(N-1)+XJJ)
3080 YP=YZH(N)-(ZH(N)-LCK)*SIN (FW(N-1))+KD*SIN (FW(N-1)+XJJ): RETURN
3090 R=R1:LS=S1:L=LCK-ZH:QXJ=L^2/R/LS/2:GOSUB 3730:GOTO 3110
3100 R=R1:LS=S1:L=LCK-ZH-LS/2:QXJ=LS/R/2+(LCK-ZH-LS)/R:GOSUB 3750:X=X+Q1:Y=Y+P1
3110 FQX=FW(N-1)+ZX*QXJ
3120 XP=XZH(N)+X*COS (FW(N-1))+Y*COS (FW(N-1)+ZX*PAI#/2)+KD*COS (FW(N-1)+ZX*QXJ+XJJ)
3130 YP=YZH(N)+X*SIN (FW(N-1))+Y*SIN (FW(N-1)+ZX*PAI#/2)+KD*SIN (FW(N-1)+ZX*QXJ+XJJ):RETURN
3140 R=R2:LS=S2:L=HZ-LCK-LS/2:QXJ=LS/R/2+(HZ-LCK-LS)/R:GOSUB 3750:X=X+Q2:Y=Y+P2:GOTO 3160
3150 R=R2:LS=S2:L=HZ-LCK:QXJ=L^2/R/LS/2:GOSUB 3730
3160 FQX=FW(N)-ZX*QXJ
3170 XP=XHZ(N)+X*COS (FW(N)+PAI#)+Y*COS (FW(N)+ZX*PAI#/2)+KD*COS (FW(N)-ZX*QXJ+XJJ)
3180 YP=YHZ(N)+X*SIN (FW(N)+PAI#)+Y*SIN (FW(N)+ZX*PAI#/2)+KD*SIN (FW(N)-ZX*QXJ+XJJ)
3190 RETURN
3200 XGQ=XZH(N)+T1*COS (FW(N-1))+(T1-Q1)*COS (FWGQ)
3210 YGQ=YZH(N)+T1*SIN (FW(N-1))+(T1-Q1)*SIN (FWGQ)
3220 GQ#=ZH+S1+LY1+LE/2:PF=ABS (P1-P2)
3230 IF LCK>GQ# THEN 3280
3240 L=GQ#-LCK:R=R1:GOSUB 3750:X=-X:Y=Y+P1
3250 L=LE/2-L:DY=4*PF*(L/LE)^3
3260 IF P1<P2 THEN Y=Y+DY ELSE Y=Y-DY
3270 GOTO 3310
3280 L=LCK-GQ#:R=R2:GOSUB 3750:Y=Y+P2
3290 L=LE/2-L:DY=4*PF*(L/LE)^3
3300 IF P1<P2 THEN Y=Y-DY ELSE Y=Y+DY
3310 XP=XGQ+X*COS (FWGQ)+Y*COS (FWGQ+ZX*PAI#/2)
3320 YP=YGQ+X*SIN (FWGQ)+Y*SIN (FWGQ+ZX*PAI#/2)
3330 FQX1=FW(N-1)+ZX*(S1/R1/2+LY1/R1)
3340 FQX2=FW(N)-ZX*(S2/R2/2+LY2/R2)
3350 FXS=(R2+R1)/2/(R1+(R2-R1)*(LCK-GQ#+LE/2)/2/LE)
3360 FQX=FQX1+(FQX2-FQX1)*(LCK-GQ#+LE/2)/LE*FXS
3370 XP=XP+KD*COS (FQX+XJJ):YP=YP+KD*SIN (FQX+XJJ)
3380 RETURN
3390 R1=R1(N):R2=R2(N):S1=S1(N):S2=S2(N):OA=0:OB=0:LE=0
3400 IF LX(N)=2 THEN OA=AB/SIN (JA+JB)*SIN (JB):OB=AB/SIN (JA+JB)*SIN (JA)
3410 IF LX(N)=5 THEN LE=SQR ((R1*S2^2-R2*S1^2)/(R1-R2))
3420 LE(N)=LE:OA(N)=OA:OB(N)=OB:IF LX(N)>2 THEN 3550
3430 R=R1:LS=S1:GOSUB 3670:P1(N)=P:Q1(N)=Q
3440 R=R1:LS=S2:GOSUB 3670:P2(N)=P:Q2(N)=Q:JJ=JA+JB
3450 T1=Q1(N)+(R+P2(N)-(R+P1(N))*COS (JJ))/SIN (JJ):T01=0
3460 T2=Q2(N)+(R+P1(N)-(R+P2(N))*COS (JJ))/SIN (JJ):T02=0
3470 T1(N)=T1:T2(N)=T2:E1(N)=(R1+P1(N))/COS (JJ/2)-R1
3480 LY1(N)=R1*JJ-S1/2-S2/2:LY2(N)=LY1(N):LH=LY1(N)+S1+S2
3490 ZH(N)=HZ(N-1)-T2(N-1)+OB(N-1)+DJJ+OA(N)-T1(N):HZ(N)=ZH(N)+LH
3540 RETURN
3550 R=R1:LS=S1:GOSUB 3670:P1(N)=P:Q1(N)=Q
3560 JJ=JA:GOSUB 3690:LY1(N)=LY:T1=T:E1=E:T01=T0
3570 R=R2:LS=S2:GOSUB 3670:P2(N)=P:Q2(N)=Q
3580 JJ=JB:GOSUB 3690:LY2(N)=LY:T2=T:E2=E:T02=T0
3590 T1(N)=T1:T2(N)=T2:E1(N)=E1:E2(N)=E2
3600 ZH(N)=HZ(N-1)-T2(N-1)+OB(N-1)+DJJ+OA(N)-T1(N)
3610 HZ(N)=ZH(N)+S1+LY1(N)+LE+LY2(N)+S2
3660 RETURN
3670 IF LS=0 THEN P=0:Q=0:RETURN
3680 P=LS^2/24/R-LS^4/2688/R^3:Q=LS/2-LS^3/240/R^2:RETURN
3690 LY=R*JJ-LS:LH=LY+2*LS
3700 IF LX(N)>=3 THEN LY=LY+LS/2-LE/2:LH=LY+LS+LE/2
3710 T=(R+P)*TAN (JJ/2)+Q:E=(R+P)/COS (JJ/2)-R:T0=T-Q
3720 RETURN
3730 C=R*LS:X=L-L^5/40/C^2+L^9/3456/C^4:Y=L^3/6/C-L^7/336/C^3
3740 RETURN
3750 X=R*SIN (L/R):Y=R*(1-COS (L/R)):RETURN
3760 ZX=SGN (J):J=ABS (J)
3770 JD=INT (J):JF=INT (J*100-JD*100+0.1):JM=J*10000-JD*10000-JF*100
3780 J=(JD+JF/60+JM/3600)*PAI#/180:RETURN
3790 REM ji suan fang wei jiao
3800 XX=X-X0+0.0001:YY=Y-Y0
3810 IF XX=0 AND YY>0 THEN FW=PAI#/2:RETURN
3820 IF XX=0 AND YY<0 THEN FW=3*PAI#/2:RETURN
3830 FW=ATN (YY/XX)
3840 IF XX<0 THEN FW=FW+PAI#:RETURN
3850 IF XX>0 AND YY<0 THEN FW=FW+2*PAI#
3860 RETURN
3870 J=J*180/PAI#:JD=INT (J):JF=INT (J*60-JD*60):JM=(J-JD-JF/60)*3600
3880 JM=INT (JM+0.5)
3890 PRINT USING "###";JD;JF;JM;
3900 RETURN
3910 IF FW<FW0 THEN JJ=FW+2*PAI#-FW0 ELSE JJ=FW-FW0
3920 IF JJ<PAI# THEN ZX=1'Y
3930 IF JJ>PAI# THEN JJ=2*PAI#-JJ:ZX=-1'Z
3940 RETURN
3950 PRINT " (";QS;"---";QS+XN-2;")"
3960 INPUT "JD? (-1 UP )=";AA
3970 IF AA=-1 THEN 4010
3980 IF AA<QS THEN BEEP 1:GOTO 3950
3990 IF AA>QS+XN-2 THEN BEEP 1:GOTO 3950
4000 I=N(AA-QS+1):GOSUB 4500:N=N(AA-QS+1):GOSUB 4020:GOTO 3950
4010 RETURN
4020 IF S1(N)=0 AND S2(N)=0 THEN 4030 ELSE 4180
4030 IF LX(N)>2 THEN 4060
4040 PRINT "R=";R1(N);" T=";INT (T1(N)*K+0.5)/K
4050 PRINT "L=";INT (LY1(N)*K+0.5)/K;" E=";INT (E1(N)*K+0.5)/K:GOTO 4110
4060 PRINT "R1=";R1(N);" R2=";R2(N)
4070 PRINT "T1=";INT (T1(N)*K+0.5)/K;" T2=";INT (T2(N)*K+0.5)/K
4080 PRINT "L1=";INT (LY1(N)*K+0.5)/K;" L2=";INT (L2(N)*K+0.5)/K
4090 PRINT "E1=";INT (E1(N)*K+0.5)/K;" E2=";INT (E2(N)*K+0.5)/K
4100 IN$=INPUT $(1)
4110 ON LX(N) GOTO 4120,4120,4140,4140
4120 V$="ZY":PZA=ZH(N):GOSUB *LCTOZH:V=ZHK:GOSUB 4810:V$=" QZ":V=ZH(N)+LY1(N)/2:GOSUB 4810:PRINT
4130 V$="YZ":PZA=HZ(N):GOSUB *LCTOZH:V=ZHK:GOSUB 4810:PRINT :GOTO 4450
4140 V$="ZY":PZA=ZH(N):GOSUB *LCTOZH:V=ZHK:GOSUB 4810:V$=" QZ1":V=ZH(N)+LY1(N)/2:GOSUB 4810:PRINT
4150 V$="GQ":PZA=ZH(N)+LY1(N):GOSUB *LCTOZH:V=ZHK:GOSUB 4810:PRINT
4160 V$="QZ2":PZA=HZ(N)-LY2(N)/2:GOSUB *LCTOZH:V=ZHK:PRINT
4170 V$="YZ":PZA=HZ(N):GOSUB *LCTOZH:V=ZHK:GOSUB 4810:PRINT :GOTO 4450
4180 ON LX(N) GOTO 4190,4190,4240,4240,4240
4190 PRINT "R=";R1(N);" LS1=";S1(N);" LS2=";S2(N)
4200 PRINT "T1=";INT (T1(N)*K+0.5)/K;" T2=";INT (T2(N)*K+0.5)/K
4210 PRINT "LY=";INT (LY1(N)*K+0.5)/K;" LH=";INT ((LY1(N)+S1(N)+S2(N))*K+0.5)/K
4220 IF S1(N)=S2(N) THEN PRINT " E=";INT (E1(N)*K+0.5)/K
4230 GOTO 4320
4240 PRINT "R1=";R1(N);" R2=";R2(N)
4250 PRINT "LS1=";S1(N);" LS2=";S2(N);
4260 IF LE(N)>0 THEN PRINT " LF=";INT (LE(N)*K+0.5)/K ELSE PRINT
4270 PRINT "T1=";INT (T1(N)*K+0.5)/K;" T2=";INT (T2(N)*K+0.5)/K
4280 PRINT "E1=";INT (E1(N)*K+0.5)/K;" E2=";INT (E2(N)*K+0.5)/K:IN$=INPUT $(1)
4290 PRINT "LY1=";INT (LY1(N)*K+0.5)/K;" LY2=";INT (LY2(N)*K+0.5)/K
4300 PRINT "LH1=";INT ((LY1(N)+S1(N)+LE(N)/2)*K+0.5)/K;
4310 PRINT "LH2=";INT ((LY2(N)+S2(N)+LE(N)/2)*K+0.5)/K
4320 IN$=INPUT $(1)
4330 ON LX(N) GOTO 4340,4340,4370,4370,4400
4340 V$="ZH":PZA=ZH(N):GOSUB *LCTOZH:V=ZHK:GOSUB 4810:V$=" HY":PZA=ZH(N)+S1(N):GOSUB *LCTOZH:V=ZHK:GOSUB 4810:PRINT
4350 V$="QZ":PZA=ZH(N)+S1(N)+LY1(N)/2:GOSUB *LCTOZH:V=ZHK:GOSUB 4810:PRINT
4360 V$="YH":PZA=HZ(N)-S2(N):GOSUB *LCTOZH:V=ZHK:GOSUB 4810:V$=" HZ":PZA=HZ(N):GOSUB *LCTOZH:V=ZHK:GOSUB 4810:PRINT :GOTO 4450
4370 V$="ZH":PZA=ZH(N):GOSUB *LCTOZH:V=ZHK:GOSUB 4810:V$=" HY":PZA=ZH(N)+S1(N):GOSUB *LCTOZH:V=ZHK:GOSUB 4810:PRINT
4380 V$="GQ":PZA=ZH(N)+S1(N)+LY1(N):GOSUB *LCTOZH:V=ZHK:GOSUB 4810:PRINT
4390 V$="YH":PZA=HZ(N)-S2(N):GOSUB *LCTOZH:V=ZHK:GOSUB 4810:V$=" HZ":PZA=HZ(N):GOSUB *LCTOZH:V=ZHK:GOSUB 4810:PRINT :GOTO 4450
4400 V$="ZH":PZA=ZH(N):GOSUB *LCTOZH:V=ZHK:GOSUB 4810:V$=" HY1":PZA=ZH(N)+S1(N):GOSUB *LCTOZH:V=ZHK:GOSUB 4810:PRINT
4410 V$="YH1":PZA=ZH(N)+S1(N)+LY1(N):GOSUB *LCTOZH:V=ZHK:GOSUB 4810:PRINT
4420 V$="GQ":PZA=ZH(N)+S1(N)+LY1(N)+LE(N)/2:GOSUB *LCTOZH:V=ZHK:GOSUB 4810
4430 V$="HY2":PZA=HZ(N)-S2(N)-LY2(N):GOSUB *LCTOZH:V=ZHK:GOSUB 4810:PRINT
4440 V$="YH2":PZA=HZ(N)-S2(N):GOSUB *LCTOZH:V=ZHK:GOSUB 4810:V$=" HZ":PZA=HZ(N):GOSUB *LCTOZH:V=ZHK:GOSUB 4810:PRINT
4450 IN$=INPUT $(1)
4460 PZA=ZH(N)-HZ(N-1):GOSUB *LCTOZH:PRINT "QZX=";INT (ZHK*K+0.5)/K;
4470 IF ZX(N)=ZX(N-1) THEN PRINT " TX" ELSE PRINT " FX"
4480 IN$=INPUT $(1)
4490 RETURN
4500 REM Xian Shi FW ZJ JDJ
4510 PRINT "Qian JDJ=";
4520 IF OB(I-1)>0 THEN PRINT INT (OB(I-1)*K+0.5)/K;"+";
4530 PRINT INT (DJJ(I)*K+0.5)/K;
4540 IF OA(I)>0 THEN PRINT "+";INT (OA(I)*K+0.5)/K;
4550 IF OB(I-1)>0 OR OA(I)>0 THEN PRINT "=";INT ((OB(I-1)+DJJ(I)+OA(I))*K+0.5)/K ELSE PRINT
4560 PRINT "Qian FW=";:J=FW(I-1):GOSUB 3870:PRINT
4570 IF LX(I)=1 THEN 4690
4580 FW0=FW(I-1):FW=FWGQ(I):GOSUB 3910:J=JJ
4590 PRINT " ZJa=";
4600 IF ZX=1 THEN PRINT " Y"; ELSE PRINT " Z";
4610 GOSUB 3870:PRINT
4620 PRINT "FW(AB)=";:J=FWGQ(I):GOSUB 3870
4630 PRINT " AB=";INT (AB(I)*K+0.5)/K:IN$=INPUT $(1)
4640 FW0=FWGQ(I):FW=FW(I):GOSUB 3910:J=JJ
4650 PRINT " ZJb=";
4660 IF ZX=1 THEN PRINT " Y"; ELSE PRINT " Z";
4670 GOSUB 3870:PRINT
4680 GOTO 4730
4690 FW0=FW(I-1):FW=FW(I):GOSUB 3910:J=JJ
4700 PRINT " ZJ=";
4710 IF ZX=1 THEN PRINT " Y"; ELSE PRINT " Z";
4720 GOSUB 3870:PRINT
4730 IN$=INPUT $(1)
4740 PRINT "Hou FW=";:J=FW(I):GOSUB 3870:PRINT
4750 PRINT "Hou JDJ=";
4760 IF OB(I)>0 THEN PRINT INT (OB(I)*K+0.5)/K;"+";
4770 PRINT INT (DJJ(I+1)*K+0.5)/K;
4780 IF OA(I+1)>0 THEN PRINT "+";INT (OA(I+1)*K+0.5)/K;
4790 IF OB(I)>0 OR OA(I+1)>0 THEN PRINT "=";INT ((OB(I)+DJJ(I+1)+OA(I+1))*K+0.5)/K ELSE PRINT
4800 IN$=INPUT $(1):RETURN
4810 PRINT V$;"=";
4820 VV=ABS V
4830 V1$=STR$ (INT (VV/1000)):V1$=MID$ (V1$,2,3)
4840 V2$=STR$ (VV-VAL (V1$)*1000):V2$=MID$ (V2$,2,7)
4850 IF V>=0 THEN V$="K"+V1$+"+"+V2$ ELSE V$="-K"+V1$+"+"+V2$
4860 PRINT V$;
4870 RETURN
4880 *HFJH1:CLS
4890 REM hou fang jiao du\ju lijiao hui
4900 PRINT :PRINT " HOU FANG BIAN JIAO JIAO HUI":PRINT
4910 GOSUB *HF1
4920 PRINT USING "X=########.###";X0;:PRINT USING " Y=########.###";Y0;:PRINT USING " H=####.###";H0
4930 GOTO 4910
4940 *HF1
4950 PAI#=3.141592653589793#
4960 INPUT " 1# Hou Shi X1=";A$:DXD=VAL A$
4965 GOSUB 6090:IF ZFLX$="SJ" THEN DX1=DXD:GOTO 4990
4970 IF A$="UP" THEN 1400 ELSE GOSUB 15720:DX1=XX:DY1=YY:DH1=HH:GOTO 5010
4990 INPUT " Y1=";DY1
5000 INPUT " H1=";DH1:GOTO 5020
5010 PRINT USING "X=########.###";DX1;:PRINT USING " Y=########.###";DY1;:PRINT USING " H=####.###";DH1
5020 INPUT " 2# Hou Shi X2=";A$:DXD=VAL A$
5030 GOSUB 6090:IF ZFLX$="SJ" THEN DX2=DXD:GOTO 5040
5035 GOSUB 15720:DX2=XX:DY2=YY:DH2=HH:GOTO 5060
5040 INPUT " Y2=";DY2
5050 INPUT " H2=";DH2:GOTO 5070
5060 PRINT USING "X=########.###";DX2;:PRINT USING " Y=########.###";DY2;:PRINT USING " H=####.###";DH2
5070 XX=DX2-DX1+0.0001:YY=DY2-DY1:GOSUB 3810:FW12=FW
5080 XX=DX1-DX2+0.0001:YY=DY1-DY2:GOSUB 3810:FW21=FW
5090 JL12=SQR ((DX1-DX2)^2+(DY1-DY2)^2)
5100 INPUT " 1# JING GAO I1=";JG1
5110 INPUT " 1# Ju Li (CJ) JL1=";JL1$
5120 IF JL1$="CJ" THEN 5130 ELSE JL1=VAL JL1$:INPUT " Gao Ca H1=";GC1:GOTO 5180
5130 GOSUB *YQXZ:GOSUB 20500
5140 JL1=LP:GC1=K:A1=AP
5150 PRINT " 1# Ju Li JL1=";JL1
5160 PRINT " Gao Ca H1=";GC1
5170 PRINT " Jiao Du A1=";A1
5180 INPUT " 2# JING GAO I2=";JG2
5190 INPUT " 2# Ju Li (CJ) JL2=";JL2$
5200 IF JL2$="CJ" THEN 5210 ELSE JL2=VAL JL2$:INPUT " Gao Ca H2=";GC2:GOTO 5260
5210 GOSUB *YQXZ:GOSUB 20500
5220 JL2=LP:GC2=K:A2=AP
5230 PRINT " 2# Ju Li JL2=";JL2
5240 PRINT " Gao Ca H2=";GC2
5250 PRINT " Jiao Du A2=";A2
5260 IF JL1$="CJ" AND JL2$="CJ" THEN 5270 ELSE INPUT " Jia Jiao a(12)=";A12:GOTO 5350
5270 J=A1:GOSUB 3770:A1=J:J=A2:GOSUB 3770:A2=J
5280 J=(A2-A1)
5290 IF J<0 THEN J=J+2*PAI#
5300 IF J>2*PAI# THEN J=J-2*PAI#
5310 J=J*180/PAI#:JD=INT (J):JF=INT (J*60-JD*60):JM=(J-JD-JF/60)*3600
5320 JM=INT (JM+0.5)
5330 A12=(JD*10000+JF*100+JM)/10000
5340 PRINT " Jia Jiao a(12)=";A12
5350 INPUT " Yi Qi Gao K=";HI
5360 J=A12:GOSUB 3770:A12=J
5370 IF J<=PAI# THEN A12=J ELSE A12=2*PAI#-J
5380 A1=ASN (JL2/JL12*SIN A12):A2=ASN (JL1/JL12*SIN A12)
5390 AA=PAI#-(A12+A1+A2)
5400 AA=AA/3
5410 IF J<=PAI# THEN FW1=FW12+A1+AA:FW2=FW21-A2-AA
5420 IF J>PAI# THEN FW1=FW12-A1-AA:FW2=FW21+A2+AA
5430 X0=(DX1+JL1*COS FW1+DX2+JL2*COS FW2)/2
5440 Y0=(DY1+JL1*SIN FW1+DY2+JL2*SIN FW2)/2
5450 DH1=DH1+JG1-GC1-HI:DH2=DH2+JG2-GC2-HI
5460 H0=(DH1+DH2)/2
5470 RETURN
5480 *YSD:CLS
5490 REM Ji Suan Ya Si Du
5500 PRINT :PRINT " YA SHI DU JI SUAN":PRINT
5510 PRINT "Sha Mi Du (UP) =";RS$;:INPUT RS$
5520 IF RS$="UP" OR RS$="up" THEN 570 ELSE RS=VAL (RS$)
5530 PRINT "Zui Ti Sha Zhong =";M1;:INPUT M1
5540 PRINT "Zui Da Gan Mi Du =";S0;:INPUT S0
5550 PRINT "Sha Zong Zhong =";M0;:INPUT M0
5560 INPUT "Sheng Yu Sha Zhong =";M2
5570 MB=M0-M1-M2:PRINT "Keng Nei Sha Zhong :";MB;"g"
5580 INPUT "Tu Yang Shi Zhong =";MW
5590 PW=MW/MB*RS:PW=INT (PW*1000+0.5)/1000
5600 PRINT "Tu Yang Shi Mi Du :";INT (PW*1000+0.5)/1000;"g/cm3"
5610 INPUT "Tu Yang Gan Zhong =";MG
5620 PRINT "Tu Yang Han Shui :";MW-MG;"g(";
5630 MH=(MW-MG)/MW*100:MH=INT (MH*10+0.5)/10
5640 PRINT MH;"%)"
5650 PG=PW/(1+0.01*MH):PG=INT (PG*1000+0.5)/1000
5660 PRINT "Tu Yang Gan Mi Du :";PG;"g/cm3"
5670 K=PG/S0*100:K=INT (K*10+0.5)/10
5680 PRINT "Tu Yang Ya Shi Du : (";K;"% )"
5690 GOTO 5510
5700 *CZSZ:REM ce zhan she zhi
5710 RADIAN :PAI#=3.141592653589793#
5720 CLS :INPUT "Ce Zhan (HF1/HF2) X0=";A$:ABH=VAL A$
5730 GOSUB 6090:IF ZFLX$="SJ" THEN X0=ABH:GOTO 5770
5740 IF A$="UP" THEN 110
5750 IF A$="HF1" THEN GOSUB *HF1:GOTO 5830
5760 IF A$="HF2" THEN GOSUB *HF2:GOTO 5830 ELSE GOSUB 15720:X0=XX:Y0=YY:H0=HH:GOTO 5810
5770 INPUT " Y0=";Y0
5780 INPUT " H0=";H0
5790 INPUT "Yi Qi Gao (-1) HI=";HI
5800 IF HI=-1 THEN 5870 ELSE HT=H0+HI:PRINT "Shi Xian Gao HT=";HT:GOTO 5870
5810 PRINT USING "X=########.###";X0;:PRINT USING " Y=########.###";Y0;:PRINT USING " H=####.###";H0
5820 INPUT "Yi Qi Gao (-1) HI=";HI:GOTO 5860
5830 PRINT USING "X=########.###";X0;:PRINT USING " Y=########.###";Y0;:PRINT USING " H=####.###";H0
5840 PRINT "[RENG YI JIAN JI XU]"
5850 IN$=INPUT $(1)
5860 IF HI=-1 THEN 5870 ELSE HT=H0+HI:PRINT "Shi Xian Gao HT=";HT
5870 IF B$="HF1" THEN XD=DX2:YD=DY2:HD=DH2:GOTO 5920
5880 IF B$="HF2" THEN XD=XB:YD=YB:HD=HB:GOTO 5920
5890 INPUT "Ding Xiang Xd=";A$:BBH=VAL A$
5900 GOSUB 6090:IF ZFLX$="SJ" THEN XD=BBH:GOTO 5910
5905 GOSUB 15720:XD=XX:YD=YY:HD=HH:GOTO 5920
5910 INPUT " Yd=";YD:GOTO 5930
5920 PRINT USING "X=########.###";XD;:PRINT USING " Y=########.###";YD;:PRINT USING " H=####.###";HD
5930 D0=SQR ((X0-XD)^2+(Y0-YD)^2)
5940 IF HI=-1 THEN 5950 ELSE 5990
5950 INPUT "Ling Jing Gao HJ=";HJ
5960 INPUT "Shu Zhi jiao VJ=";VJ:J=VJ:GOSUB 3770:VJ=J
5970 HT=HD+HJ-D0*COS (VJ):HT=INT (HT*1000+0.5)/1000
5980 PRINT "Shi Xian Gao HT=";HT
5990 XX=XD-X0+0.0001:YY=YD-Y0:GOSUB 3810:FW0=FW:PRINT "FW(0-d)=";:J=FW0:GOSUB 3870
6000 PRINT " D(0-d)=";USING "######.###";D0
6010 INPUT "A0(CJ) =";J$:J=VAL J$
6020 IF J$="CJ" THEN 6030 ELSE 6050
6030 GOSUB *YQXZ:GOSUB 20500:J=AP
6040 PRINT " A0=";J;" D0=";LP
6050 GOSUB 3770:JA0=J
6060 XS=-1:YS=-1
6070 PRINT "[RENG YI JIAN JI XU]"
6075 IN$=INPUT $(1)
6080 RETURN
6090 REM pan duan bian hao
6091 FOR UA=1 TO LEN (A$)
6092 ZF$=MID$ (A$,UA,1)
6093 FOR UB=65 TO 90
6094 IF ZF$=CHR$ (UB) THEN ZFLX$="BH":GOTO 6098
6095 NEXT UB
6096 NEXT UA
6097 ZFLX$="SJ"
6098 RETURN
6100 *ZBCL:CLS
6110 REM Zuo Biao ce liang
6120 GOSUB *CZSZ
6130 CLS :GOSUB 17970:GOSUB 19190:GOSUB 18710:GOSUB 18830:GOSUB 18910
6140 GCURSOR (75,8):GPRINT CE2$;KK$;LIANG2$;KK$;XIANG1$;KK$;MU1$
6150 GCURSOR (75,16):GPRINT CE1$;KK$;LIANG1$;KK$;XIANG2$;KK$;MU2$
6160 LINE (65,18)-(170,18):LINE (65,20)-(170,20)
6170 GCURSOR (0,31):GPRINT KZ$;CE$;LIANG$;FANG$;YANG$;K$;DI$;XING$;CE$;LIANG$;K$
6180 GCURSOR (100,31):GPRINT HUAN$;HUI$;CE$;ZHAN$;K$;KK$;KK$;KK$;KK$;K$;HUAN$;HUI$;SHANG$;CEN$;KY$
6190 IF INKEY$ <>"" THEN 6190
6200 A$=INKEY$
6210 IF A$=CHR$ &HF1 THEN 6250
6220 IF A$=CHR$ &HF2 THEN 6810
6230 IF A$=CHR$ &HF3 THEN 6120
6240 IF A$=CHR$ &HF5 THEN 110 ELSE 6200
6250 *CLFY:REM ce liang fang yang
6260 CLS :LOCATE 3,0:PRINT "Xp=":LOCATE 3,1:PRINT "Yp="
6270 LOCATE 3,2:PRINT "Ap=":LOCATE 3,3:PRINT "Lp="
6280 LOCATE 20,1:PRINT "dd=":LOCATE 20,2:PRINT "dx=":LOCATE 20,3:PRINT "dy="
6290 LOCATE 6,0:PRINT " ":LOCATE 6,0:INPUT XP$
6300 XP=VAL XP$:IF XP>0 THEN 6360 ELSE 6310
6310 IF XP$="UP" OR XP$="up" THEN 6130 ELSE 6320
6320 IF LEFT$ (XP$,2)="CJ" THEN GOSUB *SJCJ:GOTO 6260 ELSE GOSUB 15820
6330 LOCATE 6,0:PRINT " ";:LOCATE 6,1:PRINT " "
6340 LOCATE 6,0:PRINT XP;" [";NZ$;",";NA$;"]":LOCATE 6,1:PRINT YP
6350 GOTO 6370
6360 LOCATE 6,0:PRINT XP:LOCATE 6,1:PRINT " ":LOCATE 6,1:INPUT YP:LOCATE 6,1:PRINT YP
6370 D0=SQR ((X0-XP)^2+(Y0-YP)^2)
6380 XX=XP-X0+0.0001:YY=YP-Y0:GOSUB 3810:JAP=FW+JA0-FW0
6390 IF JAP<0 THEN JAP=JAP+2*PAI#
6400 IF JAP>2*PAI# THEN JAP=JAP-2*PAI#
6410 LOCATE 6,2:PRINT " ":LOCATE 6,2:J=JAP:GOSUB 3870
6420 LOCATE 6,3:PRINT " ":LOCATE 6,3:PRINT INT (D0*1000)/1000
6430 DD=SQR ((XS-XP)^2+(YS-YP)^2)
6440 JAB=JAP-JBP
6450 XDD=ABS (D0*COS (JAB))-DB:YDD=D0*SIN (JAB)
6460 IF XS=-1 AND YS=-1 THEN 6570
6470 IF XDD>=0 THEN XD$="080402FD020408" ELSE XD$="102040BF402010"
6480 IF YDD>=0 THEN YD$="08080808492A1408"ELSE YD$="08142A4908080808"
6490 DD=ABS (INT (DD*1000)/1000)
6500 XDD=ABS (INT (XDD*1000)/1000)
6510 YDD=ABS (INT (YDD*1000)/1000)
6520 LOCATE 23,1:PRINT " ":LOCATE 23,1:PRINT DD
6530 LOCATE 23,2:PRINT " ":LOCATE 23,2:PRINT "( )";XDD
6540 GCURSOR (146,22):GPRINT XD$
6550 LOCATE 23,3:PRINT " ":LOCATE 23,3:PRINT "( )";YDD
6560 GCURSOR (146,31):GPRINT YD$
6570 XS=XP:YS=YP:JBP=JAP:DB=D0
6580 IN$=INPUT $(1)
6590 GOTO 6290
6600 *SJCJ:CLS
6610 PRINT "CAI JI 1)ZD 2)XYH 3)H =";CJLX;:INPUT CJLX
6620 IF CJLX=1 OR CJLX=2 OR CJLX=3 THEN 6630 ELSE 6610
6630 PRINT "JING GAO I=";IG;:INPUT IG
6640 IF CJLX=1 THEN GOSUB *YQXZ:GOSUB 20500:GOTO 6670
6650 IF CJLX=2 THEN INPUT "FANG WEI JIAO AP=";AP:INPUT "PING JU LP=";LP:INPUT "GAO CA K=";K:GOTO 6670
6660 IF CJLX=3 THEN INPUT "GAO CA K=";K:GOTO 6700
6670 J=AP:GOSUB 3770:AP1=J+FW0-JA0
6680 XZ=X0+LP*COS AP1:XZ=INT (XZ*1000+0.5)/1000
6690 YZ=X0+LP*SIN AP1:YZ=INT (YZ*1000+0.5)/1000
6700 HZ=HT+K-IG:HZ=INT (HZ*1000+0.5)/1000
6702 IF CJLX=1 OR CJLX=2 THEN PRINT "XZ=";XZ;"YZ=";YZ;"HZ=";HZ
6705 IF CJLX=3 THEN PRINT "HZ=";HZ
6707 PRINT "Hsj=";HP:INPUT HP
6710 HGC=HP-HZ
6720 PRINT "GC=";HGC
6730 IN$=INPUT $(1)
6800 RETURN
6810 *DXCL:CLS :REM di xing ce liang
6820 INPUT "shu ju cai ji 1)ZD 2)SR:";SR$
6830 IF SR$="UP" OR SR$="up" THEN 6130
6840 INPUT "SAVE shu ju 1)XJ 2)TJ 3)NO:";GL$
6850 IF GL$="UP" OR GL$="up" THEN 6130
6860 IF SR$="1" THEN 6870 ELSE 6880
6870 GOSUB *YQXZ
6880 IF GL$="1" OR GL$="2" THEN 6890 ELSE 6940
6890 INPUT "DANG AN MING (***.SJ):";FNAME$
6900 IF GL$="UP" OR GL$="up" THEN 6130
6910 IF GL$="1" THEN OPEN "E:"+FNAME$+".SJ" FOR OUTPUT AS #1
6920 IF GL$="2" THEN OPEN "E:"+FNAME$+".SJ" FOR APPEND AS #1
6940 CLS :LOCATE 1,0:PRINT "No#=":LOCATE 11,0:PRINT "Name=":LOCATE 23,0:PRINT "Ip="
6950 LOCATE 5,1:PRINT "Ap=":LOCATE 5,2:PRINT "Lp=":LOCATE 5,3:PRINT "Hk="
6960 LOCATE 23,1:PRINT "X=":LOCATE 23,2:PRINT "Y=":LOCATE 23,3:PRINT "H="
6970 LOCATE 34,0:PRINT " "
6980 LOCATE 33,0:PRINT DSKF (3):LINE (204,0)-(239,7),X,BF
6990 NZ$="":LOCATE 5,0:INPUT NZ$:NZ=VAL (NZ$)
7000 IF NZ$="" THEN NZ=NN+1:NZ$=STR$ NZ
7010 IF NZ$="UP" OR NZ$="up" THEN 6130
7020 LOCATE 5,0:PRINT " ":LOCATE 5,0:PRINT NZ$
7030 LOCATE 16,0:INPUT NA$
7035 IF NA$="UP" THEN 6990
7038 LOCATE 16,0:PRINT " ":LOCATE 17,0:PRINT NA$
7040 LOCATE 26,0:INPUT I$:I=VAL (I$)
7045 IF I$="UP" THEN 7030
7048 LOCATE 26,0:PRINT " ":LOCATE 27,0:PRINT I$
7050 LOCATE 26,0:PRINT I
7060 IF SR$="1" THEN GOSUB 20500:GOTO 7070 ELSE 7100
7070 LOCATE 8,1:PRINT " ":LOCATE 8,2:PRINT " ":LOCATE 8,3:PRINT " "
7080 LOCATE 8,1:PRINT AP:LOCATE 8,2:PRINT LP:LOCATE 8,3:PRINT K
7090 GOTO 7130
7100 LOCATE 8,1:PRINT " ":LOCATE 8,1:INPUT AP:LOCATE 8,1:PRINT AP
7110 LOCATE 8,2:PRINT " ":LOCATE 8,2:INPUT LP:LOCATE 8,2:PRINT LP
7120 LOCATE 8,3:PRINT " ":LOCATE 8,3:INPUT K:LOCATE 8,3:PRINT K
7130 J=AP:GOSUB 3770:AP1=J+FW0-JA0
7140 XZ=X0+LP*COS AP1:YZ=Y0+LP*SIN AP1:HZ=HT+K-I
7150 XZ=INT (XZ*1000+0.5)/1000:YZ=INT (YZ*1000+0.5)/1000:HZ=INT (HZ*1000+0.5)/1000
7160 LOCATE 25,1:PRINT " ":LOCATE 25,2:PRINT " ":LOCATE 25,3:PRINT " "
7170 LOCATE 25,1:PRINT XZ:LOCATE 25,2:PRINT YZ:LOCATE 25,3:PRINT HZ
7180 XZ$=STR$ (XZ):YZ$=STR$ (YZ):HZ$=STR$ (HZ)
7190 IF GL$="1" OR GL$="2" THEN 7200 ELSE 7210
7200 PRINT #1,NZ$;",";NA$;",";XZ$;",";YZ$;",";HZ$
7210 IF NZ$="ZJ" OR NZ$="ZD" THEN 7220 ELSE 7290
7230 OPEN "E:LSDX.SJ" FOR APPEND AS #2
7240 PRINT #2,NZ$;",";NA$;",";XZ$;",";YZ$;",";HZ$:CLOSE #2
7250 IF NZ$="ZJ" THEN 7260 ELSE 7290
7260 IN$=INPUT $(1):CLS
7270 X0=XZ:Y0=YZ:H0=HZ
7280 PRINT "Ce Zhan":GOSUB 5810:GOTO 6130
7290 NN=INT (NZ):BEEP 1:GOTO 6970
7300 *SJW:CLS
7310 DEFDBL D,F,J,M,P-Z:RADIAN
7320 PAI=3.141592653589793#:PP=180/PAI*3600
7330 CLS :WAIT 1:PRINT :PRINT " SAN JIAO WANG DEN JI":PRINT
7340 INPUT "DENG JI---2)2 DEN 3)TU GEN 4)UP:";DJ
7350 IF DJ=2 THEN FR=30:FM=10:GOTO 7380
7360 IF DJ=3 THEN FR=60:FM=20:GOTO 7380
7370 IF DJ=4 THEN 1030 ELSE 7330
7380 OPEN "E:SJW.PC" FOR INPUT AS #1
7390 INPUT #1,N
7400 DIM JA(N),JB(N),JC(N),F(N),V(N),D(N),Z(N),DX(N),DY(N),X(N+1),Y(N+1)
7410 I=1
7420 IF EOF (1) THEN 7490
7430 INPUT #1,J:GOSUB 8480:JA(I)=J
7440 INPUT #1,J:GOSUB 8480:JB(I)=J
7450 INPUT #1,J:GOSUB 8480:JC(I)=J
7460 IF I=N THEN 7480 ELSE 7470
7470 I=I+1:GOTO 7420
7480 INPUT #1,D(0),D(N),J,X(0),Y(0)
7490 CLOSE
7500 GOSUB 8480:Z(0)=J
7510 PRINT "BI HE CA JI GAI ZHEN ZHI:"
7520 M=0:FOR I=1 TO N
7530 F(I)=JA(I)+JB(I)+JC(I)-PAI:V(I)=-F(I)/3
7540 PRINT "f(";I;")=";USING "+###.#";F(I)*PP;
7550 PRINT " V(";I;")=";USING "+###.##";V(I)*PP
7560 IF INKEY$ ="" THEN 7560
7570 IF ABS (F(I))<=FR/PP THEN 7610
7580 PRINT "JIAO DU BI HE CA CAO XIAN(";FR;"!!!":BEEP 3
7590 INPUT "1)JI XU 2)END :";XZ
7600 IF XZ=2 THEN END
7610 JA(I)=JA(I)+V(I)
7620 JB(I)=JB(I)+V(I)
7630 JC(I)=JC(I)+V(I)
7640 M=M+F(I)^2:NEXT I
7650 M=SQR (M/3/N):PRINT "CE JIAO ZHONG WU CA m=";INT (M*PP*10+0.5)/10
7660 IF M*PP<=FM THEN 7700
7670 PRINT "CE JIAO ZHONG WU CA CAO XIAN !!!":BEEP 3
7680 INPUT "1)JI XU 2)END :";XZ
7690 IF XZ=2 THEN END
7700 W=D(N)/D(0):F=0:Q=0
7710 FOR I=1 TO N
7720 W=W*SIN (JB(I))/SIN (JA(I))
7730 F=F+1/TAN (JA(I))+1/TAN (JB(I))
7740 Q=Q+(1/TAN (JA(I)))^2+(1/TAN (JB(I)))^2
7750 NEXT I
7760 W=W-1:VA=W/F:VB=-VA:WJ=2*FM/PP*SQR (Q)
7770 IF INKEY$ ="" THEN 7770
7780 PRINT "JI XIAN XIANG DUI BI HE CA W=";:PRINT USING "+#.##^^^^";W
7790 IF INKEY$ ="" THEN 7790
7800 PRINT "RONG XU XIANG DUI BI HE CA Wj=";:PRINT USING "#.##^^^^";WJ
7810 IF INKEY$ ="" THEN 7810
7820 IF ABS (W)<=WJ THEN 7870
7830 PRINT "BI HE CA CAO XIAN i!!!":BEEP 3
7840 INPUT "1)JI XU 2)END :";XZ
7850 IF XZ=2 THEN END
7860 IF INKEY$ ="" THEN 7860
7870 PRINT "DI ER CHI JIAO DU GAI ZHENF ZHI:"
7880 PRINT "Va=";USING "+##.##";VA*PP;
7890 PRINT " Vb=";USING "+##.##";VB*PP
7900 FOR I=1 TO N
7910 JA(I)=JA(I)+VA:JB(I)=JB(I)+VB
7920 NEXT I
7930 IF INKEY$ ="" THEN 7930
7940 PRINT "GAI ZHENG HOU NEI JIAO ZHI:"
7950 IF INKEY$ ="" THEN 7950
7960 FOR I=1 TO N
7970 PRINT "a(";I;")=";:J=JA(I):GOSUB 8410
7980 IN$=INPUT $(1)
7990 PRINT "b(";I;")=";:J=JB(I):GOSUB 8410
8000 IN$=INPUT $(1)
8010 PRINT "c(";I;")=";:J=JC(I):GOSUB 8410
8020 IN$=INPUT $(1)
8030 NEXT I
8040 FOR I=1 TO N-1
8050 D(I)=D(I-1)*SIN (JA(I))/SIN (JB(I))
8060 NEXT I
8070 PRINT "GE CHUAN JU BIAN BIAN CHANG (m):"
8080 FOR I=0 TO N
8090 PRINT "D(";I;"-";I+1;")=";:PRINT USING "#####.###";D(I)
8100 IN$=INPUT $(1)
8110 NEXT I
8120 INPUT "DI YI ZHUAN JIAO 1)Zuo 2)You :";ZY
8130 PRINT "GE CHUAN JU BIAN FANG WEI JIAO:"
8140 J=Z(0):PRINT "Z( 0-1 )=";:GOSUB 8410
8150 FOR I=1 TO N
8160 IF I/2=INT (I/2) THEN 8190
8170 IF ZY=1 THEN Z(I)=Z(I-1)-PAI+JC(I) ELSE Z(I)=Z(I-1)+PAI-JC(I)
8180 GOTO 8200
8190 IF ZY=1 THEN Z(I)=Z(I-1)+PAI-JC(I) ELSE Z(I)=Z(I-1)-PAI+JC(I)
8200 IF Z(I)>2*PAI THEN Z(I)=Z(I)-2*PAI
8210 IF Z(I)<0 THEN Z(I)=Z(I)+2*PAI
8220 J=Z(I):PRINT "Z(";I;"-";I+1;")=";:GOSUB 8410
8230 IF INKEY$ ="" THEN 8230
8240 NEXT I
8250 IF INKEY$ ="" THEN 8250
8260 FOR I=0 TO N
8270 DX(I)=D(I)*COS (Z(I))
8280 DY(I)=D(I)*SIN (Z(I))
8290 NEXT I
8300 FOR I=1 TO N+1
8310 X(I)=X(I-1)+DX(I-1)
8320 Y(I)=Y(I-1)+DY(I-1)
8330 NEXT I
8340 PRINT "GE SAN JIAO DIAN ZUO BIAO:"
8350 FOR I=0 TO N+1
8360 PRINT "X(";I;")=";USING "#######.###";X(I);
8370 PRINT " Y(";I;")=";USING "#######.###";Y(I)
8380 IF INKEY$ ="" THEN 8380
8390 NEXT I
8400 WAIT :PRINT "------------------ END -----------------":WAIT 1:GOTO 7300
8410 REM jiang fu du zhuan hua wei liu shi jing zhi
8420 J=J*180/PAI:JD=INT (J)
8430 JF=INT (J*60-JD*60):JM=(J-JD-JF/60)*3600
8440 PRINT USING "####";JD;
8450 PRINT USING "####";JF;
8460 PRINT USING "###.#";JM
8470 RETURN
8480 REM jiang xiao shu xing shi biao si de jiao du hua wei fu du
8490 JD=INT (J)
8500 JF=INT (J*100-JD*100+0.1)
8510 JM=J*10000-JD*10000-JF*100
8520 J=(JD+JF/60+JM/3600)*PAI/180
8530 RETURN
8540 *FHDX:CLS
8550 DEFDBL D,F,J,P,V-Z:RADIAN
8560 PAI=3.141592653589793#:PP=180/PAI*3600
8570 CLS :WAIT 1:PRINT :PRINT " DAO XIAN DEN JI":PRINT
8580 INPUT "2)2 DEN 3)3 DEN 4)TU GEN 5)UP:";DJ
8590 IF DJ=5 THEN 1030 ELSE 8600
8600 OPEN "E:FHDX.PC" FOR INPUT AS #1
8610 INPUT #1,N
8620 INPUT "ZHUAN JIAO----1)ZUO 2)YOU:";ZY
8630 DIM J(N),D(N),Z(N),DX(N),DY(N),VX(N),VY(N),X(N+1),Y(N+1)
8640 IF DJ=2 THEN KR=1/10000:FR=16*SQR (N)/PP
8650 IF DJ=3 THEN KR=1/5000:FR=24*SQR (N)/PP
8660 IF DJ=4 THEN KR=1/2000:FR=40*SQR (N)/PP
8670 ZJ=0:ZD=0:I=1
8680 IF EOF (1) THEN 8750
8690 INPUT #1,J:GOSUB 8480:J(I)=J:ZJ=ZJ+J(I)
8700 IF I=N THEN 8730 ELSE 8710
8710 INPUT #1,D(I):ZD=ZD+D(I)
8720 I=I+1:GOTO 8680
8730 INPUT #1,X(0),Y(0),X(1),Y(1):I=0:GOSUB 9430
8740 INPUT #1,X(N),Y(N),X(N+1),Y(N+1):I=N:GOSUB 9430
8750 CLOSE
8760 IF ZY=1 THEN FB=Z(0)-Z(N)-N*PAI+ZJ
8770 IF ZY=2 THEN FB=Z(0)-Z(N)+N*PAI-ZJ
8780 IF FB>=2*PAI THEN FB=FB-2*PAI
8790 IF FB<=2*PAI THEN FB=FB+2*PAI
8800 PRINT "JIAO DU BI HE CA FB=";USING "+###.#";FB*PP
8810 PRINT "RONG XU BI HE CA FR=";USING "####.#";FR*PP
8820 IF ABS (FB)<=FR THEN 8860
8830 PRINT "BI HE CA CAO XIAN !!!":BEEP 3
8840 INPUT "1)JI XU 2)END :";XZ
8850 IF XZ=2 THEN END
8860 IF ZY=2 THEN V=FB/N ELSE V=-FB/N
8870 PRINT "JIAO DU GAI ZHEN ZHI V=";USING "+###.##";V*PP
8880 PRINT "TIAO ZHENG HOU JIAO DU ZHI:"
8890 IN$=INPUT $(1)
8900 FOR I=1 TO N:J(I)=J(I)+V
8910 J=J(I):PRINT "J(";I;")=";
8920 GOSUB 8410
8930 IN$=INPUT $(1)
8940 NEXT I
8950 IF INKEY$ ="" THEN 8950
8960 PRINT "DAO XIAN BIAN FANG WEI JIAO:"
8970 J=Z(0):PRINT "Z( 0-1 )=";
8980 GOSUB 8410
8990 FOR I=1 TO N-1
9000 IF ZY=1 THEN Z(I)=Z(I-1)-PAI+J(I) ELSE Z(I)=Z(I-1)+PAI-J(I)
9010 IF Z(I)<0 THEN Z(I)=Z(I)+2*PAI
9020 IF Z(I)>2*PAI THEN Z(I)=Z(I)-2*PAI
9030 J=Z(I):PRINT "Z(";I;"-";I+1;")=";
9040 GOSUB 8410
9050 IN$=INPUT $(1)
9060 NEXT I
9070 J=Z(N):PRINT "Z(";N;"-";N+1;")=";
9080 GOSUB 8410
9090 IN$=INPUT $(1)
9100 IF INKEY$ ="" THEN 9100
9110 REM ZUO BIAO ZENG LIANG BI HE CA JI SUAN JI TIAO ZHENG
9120 X0=X(N)-X(1):Y0=Y(N)-Y(1)
9130 ZDX=0:ZDY=0:FOR I=1 TO N-1
9140 DX(I)=D(I)*COS (Z(I)):DY(I)=D(I)*SIN (Z(I))
9150 ZDX=ZDX+DX(I):ZDY=ZDY+DY(I)
9160 NEXT I
9170 FX=ZDX-X0:FY=ZDY-Y0
9180 F=SQR (FX^2+FY^2):K=1/(ZD/F)
9190 PRINT "ZUO BIAO ZENG LIANG BI HE CA:"
9200 PRINT "fx=";:PRINT USING "+##.###";FX
9210 PRINT "fy=";:PRINT USING "+##.###";FY
9220 IN$=INPUT $(1)
9230 PRINT "DAO XIAN QUAN CHANG BI HE CA f=";INT (F*1000+0.5)/1000
9240 PRINT "XIANG DUI BI HE CA K=1/";INT (ZD/F)
9250 PRINT "RONG XU BI HE CA KR=1/";1/KR
9260 IF K<=KR THEN 9300
9270 PRINT "XIANG DUI BI HE CA CAO XIAN !!!":BEEP 3
9280 INPUT "1)JI XU 2)END :";XZ
9290 IF XZ=2 THEN END
9300 FOR I=1 TO N-1
9310 VX(I)=-FX/ZD*D(I):VY(I)=-FY/ZD*D(I)
9320 DX(I)=DX(I)+VX(I):DY(I)=DY(I)+VY(I)
9330 NEXT I
9340 PRINT "DAO XIAN DIAN ZUO BIAO:"
9350 IN$=INPUT $(1)
9360 FOR I=0 TO N+1
9370 IF I>1 AND I<N THEN X(I)=X(I-1)+DX(I-1):Y(I)=Y(I-1)+DY(I-1)
9380 PRINT "X(";I;")=";USING "#######.###";X(I);
9390 PRINT " Y(";I;")=";USING "#######.###";Y(I)
9400 IN$=INPUT $(1)
9410 NEXT I
9420 WAIT :PRINT "------------------ END -----------------":WAIT 1:GOTO 8540
9430 REM ZUO BIAO FAN SUAN FANG WEI JIAO
9440 XX=X(I+1)-X(I):YY=Y(I+1)-Y(I)
9450 IF XX=0 AND YY>0 THEN Z(I)=PAI/2:RETURN
9460 IF XX=0 AND YY<0 THEN Z(I)=3*PAI/2:RETURN
9470 Z(I)=ATN (YY/XX)
9480 IF XX<0 THEN Z(I)=Z(I)+PAI:RETURN
9490 IF XX>0 AND YY<0 THEN Z(I)=Z(I)+2*PAI
9500 RETURN
9510 *BHDX:CLS
9520 DEFDBL D,F,J,P,V-Z:RADIAN
9530 PAI=3.141592653589793#:PP=180/PAI*3600
9540 CLS :WAIT 1:PRINT :PRINT " BI HE DAO XIAN DEN JI":PRINT
9550 INPUT " 2)2 JI 3)3 JI 4)TU GENG 5) UP :";DJ
9560 IF DJ=5 THEN 1030 ELSE 9570
9570 OPEN "E:BHDX.PC" FOR INPUT AS #1
9580 INPUT #1,N
9590 INPUT "ZHUAN JIAO----1)ZUO 2)YOU:";ZY
9600 DIM J(N),D(N),Z(N),DX(N),DY(N),VX(N),VY(N),X(N),Y(N)
9610 IF DJ=2 THEN KR=1/10000:FR=16*SQR (N)/PP
9620 IF DJ=3 THEN KR=1/5000:FR=24*SQR (N)/PP
9630 IF DJ=4 THEN KR=1/2000:FR=40*SQR (N)/PP
9640 ZJ=0:ZD=0:I=1
9650 IF EOF (1) THEN 9710
9660 INPUT #1,J,D(I):GOSUB 8480:J(I)=J
9670 ZJ=ZJ+J(I):ZD=ZD+D(I)
9680 IF I=N THEN 9700 ELSE 9690
9690 I=I+1:GOTO 9650
9700 INPUT #1,J,X(1),Y(1):GOSUB 8480:Z(1)=J
9710 CLOSE
9720 FB=ZJ-(N-2)*PAI
9730 PRINT "JIAO DU BI HE CA FB=";USING "+###.#";FB*PP
9740 PRINT "RONG XU BI HE CA FR=";USING "####.#";FR*PP
9750 IF ABS (FB)<=FR THEN 9790
9760 PRINT "JIAO DU BI HE CA CAO XIAN !!!":BEEP 3
9770 INPUT "1)JI XU 2)END :";XZ
9780 IF XZ=2 THEN END
9790 V=-FB/N
9800 PRINT "JIAO DU GAI ZHEN ZHI V=";USING "+###.##";V*PP
9810 PRINT "TIAO ZHENF HOU JIAO DU ZHI:"
9820 IN$=INPUT $(1)
9830 FOR I=1 TO N
9840 J(I)=J(I)+V
9850 J=J(I):PRINT "J(";I;")=";
9860 GOSUB 8410
9870 IN$=INPUT $(1)
9880 NEXT I
9890 IF INKEY$ ="" THEN 9890
9900 PRINT "DAO XIAN BIAN FANG WEI JIAO:"
9910 FOR I=1 TO N
9920 IF I=1 THEN 9960
9930 IF ZY=1 THEN Z(I)=Z(I-1)-PAI+J(I) ELSE Z(I)=Z(I-1)+PAI-J(I)
9940 IF Z(I)<0 THEN Z(I)=Z(I)+2*PAI
9950 IF Z(I)>2*PAI THEN Z(I)=Z(I)-2*PAI
9960 J=Z(I)
9970 IF I<N THEN PRINT "Z(";I;"-";I+1;")=";
9980 IF I=N THEN PRINT "Z(";I;"-";1;")=";
9990 GOSUB 8410
10000 IN$=INPUT $(1)
10010 NEXT I
10020 IF INKEY$ ="" THEN 10020
10030 REM ZUO BIAO ZENG LIANG BI HE CA JI SUAN JI TIAO ZHENG
10040 FX=0:FY=0:FOR I=1 TO N
10050 DX(I)=D(I)*COS (Z(I)):DY(I)=D(I)*SIN (Z(I))
10060 FX=FX+DX(I):FY=FY+DY(I)
10070 NEXT I
10080 F=SQR (FX^2+FY^2):K=1/(ZD/F)
10090 PRINT "ZUO BIAO ZENG LIANG BI HE CA:"
10100 PRINT "fx=";:PRINT USING "+###.###";FX
10110 PRINT "fy=";:PRINT USING "+###.###";FY
10120 IN$=INPUT $(1)
10130 PRINT "DAO XIAN QUAN CHANG BI HE CA f=";INT (F*1000+0.5)/1000
10140 PRINT "XIANG DUI BI HE CA K=1/";INT (ZD/F)
10150 PRINT "RONG XU BI HE CA KR=1/";1/KR
10160 IF K<=KR THEN 10200
10170 PRINT "XIANG DUI BI HE CA CAO XIAN !!!":BEEP 3
10180 INPUT "1)JI XU 2)END :";XZ
10190 IF XZ=2 THEN END
10200 FOR I=1 TO N
10210 VX(I)=-FX/ZD*D(I):VY(I)=-FY/ZD*D(I)
10220 DX(I)=DX(I)+VX(I):DY(I)=DY(I)+VY(I)
10230 NEXT I
10240 PRINT "DAO XIAN DIAN ZUO BIAO:"
10250 IN$=INPUT $(1)
10260 PRINT "X( 1 )=";USING "#######.###";X(1);
10270 PRINT " Y( 1 )=";USING "#######.###";Y(1);
10280 IN$=INPUT $(1)
10290 FOR I=2 TO N
10300 X(I)=X(I-1)+DX(I-1):Y(I)=Y(I-1)+DY(I-1)
10310 PRINT "X(";I;")=";USING "#######.###";X(I);
10320 PRINT " Y(";I;")=";USING "#######.###";Y(I)
10330 IN$=INPUT $(1)
10340 NEXT I
10350 WAIT :PRINT "------------------ END -----------------":WAIT 1:GOTO 9510
10360 *DWSZJL:CLS
10370 INPUT "SHU JU SAVE 1)XJ 2)TJ 3)NO:";XT$
10380 IF XT$="UP" THEN 1880
10390 IF XT$="3" THEN 10440
10400 IF XT$="1" OR XT$="2" THEN 10410 ELSE 10370
10410 INPUT "DANG AN MING (***.SJ)";FNAME$
10420 IF XT$="1" THEN OPEN "E:"+FNAME$+".SJ" FOR OUTPUT AS #2
10430 IF XT$="2" THEN OPEN "E:"+FNAME$+".SJ" FOR APPEND AS #2
10440 CLS :LOCATE 0,0:PRINT "NAME Ih H0 Iq H"
10450 LOCATE 0,1:PRINT " ":LOCATE 0,1:INPUT BH$
10460 A$=BH$:GOSUB 15720:LOCATE 31,1:PRINT " "
10470 IF HH=0 THEN LOCATE 31,1:INPUT HC ELSE HC=HH:LOCATE 31,1:PRINT HC
10480 LOCATE 7,1:PRINT " ":LOCATE 7,1:INPUT IH:H0=HC+IH
10490 LOCATE 14,1:PRINT " ":LOCATE 14,1:PRINT H0
10500 IF XT$="3" THEN 10580 ELSE 10560
10510 BH$=DW$:HC=HH
10520 LOCATE 0,1:PRINT " ":LOCATE 0,1:PRINT BH$
10530 LOCATE 31,1:PRINT " ":LOCATE 31,1:PRINT HC
10540 LOCATE 9,1:PRINT " ":LOCATE 9,1:LOCATE 16,1:PRINT " ":LOCATE 16,1
10550 GOTO 10480
10560 IH$=STR$ (IH):H0$=STR$ (H0):HC$=STR$ (HC)
10570 PRINT #2,BH$;",";IH$;",";H0$;",";",";HC$
10580 DW$="":LOCATE 0,2:PRINT " ":LOCATE 0,2:INPUT DW$
10590 IF DW$="UP" THEN CLOSE :GOTO 1880
10600 IF DW$="HS" THEN 10440
10610 IF LEFT$ (DW$,2)="ZD" THEN 10510
10620 LOCATE 23,2:PRINT " ":LOCATE 23,2:INPUT HD
10630 HH=H0-HD
10640 LOCATE 31,2:PRINT " ":LOCATE 31,2:PRINT HH
10650 IF XT$="3" THEN 10680 ELSE 10660
10660 HD$=STR$ (HD):HH$=STR$ (HH)
10670 PRINT #2,DW$;",";",";",";HD$;",";HH$
10680 GOTO 10580
10690 *QFJH:CLS
10700 REM QIAN FANG JIAO HUI
10710 PRINT :PRINT " QIAN FANG JIAO HUI":PRINT
10720 RADIAN :PAI#=3.141592653589793#
10730 INPUT " 1# Zuo Biao X1=";A$:DXD=VAL A$
10740 GOSUB 6090:IF ZFLX$="SJ" THEN XC=DXD:GOTO 10760
10750 IF A$="UP" THEN 1400 ELSE GOSUB 15720:XC=XX:YC=YY:HC=HH:GOTO 10780
10760 INPUT " Y1=";YC
10770 INPUT " H1=";HC:GOTO 10790
10780 PRINT USING "X=########.###";XC;:PRINT USING " Y=########.###";YC;:PRINT USING " H=####.###";HC
10790 INPUT " 2# Zuo Biao X2=";A$:DXD=VAL A$
10800 GOSUB 15720:XD=XX:YD=YY:HD=HH:GOTO 10830
10805 GOSUB 6090:IF ZFLX$="SJ" THEN XD=DXD:GOTO 10810
10810 INPUT " Y2=";YD
10820 INPUT " H2=";HD:GOTO 10840
10830 PRINT USING "X=########.###";XD;:PRINT USING " Y=########.###";YD;:PRINT USING " H=####.###";HD
10840 INPUT " Jia Jiao A1=";J:GOSUB 3770:JC=J
10850 INPUT " Tian Din Jiao a1=";J:GOSUB 3770:JJC=J
10860 INPUT " Yi Qi Gao I1=";IC
10870 INPUT " Jia Jiao A2=";J:GOSUB 3770:JD=J
10880 INPUT " Tian Din Jiao a2=";J:GOSUB 3770:JJD=J
10890 INPUT " Yi Qi Gao I2=";ID
10900 JJ=1/TAN (JC)+1/TAN (JD)
10910 XP=(XC/TAN (JD)+XD/TAN (JC)+YD-YC)/JJ
10920 YP=(YC/TAN (JD)+YD/TAN (JC)+XC-XD)/JJ
10930 H1=HC+SQR ((XP-XC)^2+(YP-YC)^2)/TAN (JJC)+IC
10940 H2=HD+SQR ((XP-XD)^2+(YP-YD)^2)/TAN (JJD)+ID
10950 HP=(H1+H2)/2:HP=INT (HP*1000)/1000
10960 PRINT USING "X=########.###";XP;:PRINT USING " Y=########.###";YP;:PRINT USING " H=####.###";HP
10970 GOTO 10720
10980 *SZPC:CLS
10990 REM SHUI ZHUN CE LIANG PING CA
11000 WAIT 1:PRINT :PRINT " SHUI ZHUN XIAN LU LEI XING":PRINT
11010 DIM H(100),HH(100),LM(100),BM(100),V(100)
11020 INPUT "1)BI HE 2)HU HE 3)UP:";XZ1
11030 OPEN "E:SZCL.PC" FOR INPUT AS #1
11040 IF XZ1=1 THEN INPUT #1,BM(1):QS=1
11050 IF XZ1=2 THEN INPUT #1,BM(0),BMH:QS=0
11060 IF XZ1=3 THEN 1030
11070 INPUT "3)3 DENG 4)4 DENG 5)TU GENG:";XZ2
11080 INPUT "1)YI ZI LU XIAN CHANG 2)CE ZHAN:";XZ3
11090 IF XZ2=5 AND XZ3=2 THEN 11100 ELSE 11130
11100 BEEP 3:PRINT :PRINT "BU NENG ZHEN QUE JI SUAN BI HE CA"
11110 INPUT "SHI FOU JI XU (Y/N):";YN$
11120 IF YN$="N" THEN END
11130 ZH=0:ZL=0
11140 I=QS
11150 IF EOF (1) THEN 11190
11160 INPUT #1,H(I),LM(I)
11170 ZH=ZH+H(I):ZL=ZL+LM(I)
11180 I=I+1:GOTO 11150
11190 CLOSE
11200 N=I-1
11210 IF XZ2=3 AND XZ3=1 THEN XS=12
11220 IF XZ2=3 AND XZ3=2 THEN XS=4
11230 IF XZ2=4 AND XZ3=1 THEN XS=20
11240 IF XZ2=4 AND XZ3=2 THEN XS=6
11250 IF XZ2=5 AND XZ3=1 THEN XS=30
11260 FR=XS*SQR (ZL)/1000
11270 IF XZ1=1 THEN FH=ZH
11280 IF XZ1=2 THEN BM(N+1)=BMH:FH=ZH-(BM(N+1)-BM(0))
11290 PRINT "GAO CA BI HE CA FH=";USING "+#.###m";FH
11300 IF XZ2=5 AND XZ3=2 THEN 11360
11310 PRINT "RONG XU BI HE CA FR=";USING "#.###m";FR
11320 IF ABS (FH)<=FR THEN 11360
11330 BEEP 3:PRINT :PRINT "BI HE CA CAO XIAN !!!"
11340 INPUT "1)JI XU 2)END :";XZ
11350 IF XZ=2 THEN END
11360 FOR I=QS TO N
11370 V(I)=-FH/ZL*LM(I):ZV=ZV+V(I)
11380 HH(I)=H(I)+V(I):ZHH=ZHH+HH(I)
11390 NEXT I
11400 FOR I=QS+1 TO N+1
11410 BM(I)=BM(I-1)+HH(I-1)
11420 NEXT I
11430 IF INKEY$ ="" THEN 11430
11440 PRINT " SHUI ZHUN XIAN LU PING CA JI SUAN ----------------------------------------"
11450 IF XZ3=1 THEN PRINT " # Lm Is Ik I H "
11460 IF XZ3=2 THEN PRINT " # Tn Is Ik I H "
11470 FOR I=QS TO N
11480 PRINT USING "##";I;
11490 PRINT USING " ###.###";BM(I)
11500 IN$=INPUT $(1)
11510 IF XZ3=1 THEN PRINT USING " #.###";LM(I);
11520 IF XZ3=2 THEN PRINT USING " ###";LM(I);
11530 PRINT USING " +##.###";H(I);
11540 PRINT USING " +##.###";V(I);
11550 PRINT USING " +##.###";HH(I)
11560 IF I=0 OR I/10<>INT (I/10) THEN 11580
11570 IN$=INPUT $(1)
11580 NEXT I
11590 IF XZ1=1 THEN I=1 ELSE I=N+1
11600 PRINT USING "##";I;
11610 PRINT USING " ###.###";BM(I)
11620 IN$=INPUT $(1)
11630 PRINT USING "& ";CHR$ &HE4;
11640 IF XZ3=1 THEN PRINT USING "###.###";ZL;
11650 IF XZ3=2 THEN PRINT USING " ###";ZL;
11660 PRINT USING " +##.###";ZH;
11670 PRINT USING " +##.###";ZV;
11680 PRINT USING " +##.###";ZHH
11690 WAIT :PRINT "------------------ END -----------------":WAIT 1:GOTO 10980
11700 *JZJS:CLS
11710 REM JIAO ZHUANG ZUO BIAO JI SUAN
11720 DEGREE :PAI#=3.141592653589793#
11730 CLS :LINE (10,5)-(50,28),B
11740 LINE (2,17)-(58,17):LINE (30,0)-(30,31)
11750 LOCATE 1,0:PRINT "A":LOCATE 8,0:PRINT "B":LOCATE 1,3:PRINT "D":LOCATE 8,3:PRINT "C"
11760 LINE (32,3)-(32,3):LINE (52,15)-(53,15):LINE (32,30)-(34,30):LINE (7,14)-(8,15),B
11770 LOCATE 4,0:PRINT "a":LOCATE 5,1:PRINT "p":LOCATE 6,2:PRINT "q"
11780 LOCATE 20,0:INPUT "Xo=";X0$
11790 IF X0$="UP" OR X0$="up" THEN 570 ELSE X0=VAL (X0$)
11800 LOCATE 20,1:INPUT "Yo=";Y0
11810 LOCATE 15,2:INPUT "fa=";FA:J=FA:GOSUB 3770:J=180*J/PAI#:FA=J
11820 LOCATE 28,2:INPUT "<b=";JB:J=JB:GOSUB 3770:J=180*J/PAI#:JB=J
11830 LOCATE 15,3:INPUT "Lp=";LZ
11840 LOCATE 28,3:INPUT "Lq=";LH
11850 X1=X0+LZ*COS (FA):Y1=Y0+LZ*SIN (FA)
11860 X2=X0+LH*COS (FA+JB):Y2=Y0+LH*SIN (FA+JB)
11870 X3=X0+LZ*COS (FA+180):Y3=Y0+LZ*SIN (FA+180)
11880 X4=X0+LH*COS (FA+JB+180):Y4=Y0+LH*SIN (FA+JB+180)
11890 XA=X1+LH*COS (FA+JB+180):YA=Y1+LH*SIN (FA+JB+180)
11900 XB=X1+LH*COS (FA+JB):YB=Y1+LH*SIN (FA+JB)
11910 XC=X3+LH*COS (FA+JB):YC=Y3+LH*SIN (FA+JB)
11920 XD=X3+LH*COS (FA+JB+180):YD=Y3+LH*SIN (FA+JB+180)
11930 LOCATE 12,0:PRINT USING "X1=######.###";X1:LOCATE 25,0:PRINT USING " Y1=######.###";Y1
11940 LOCATE 12,1:PRINT USING "X2=######.###";X2:LOCATE 25,1:PRINT USING " Y2=######.###";Y2
11950 LOCATE 12,2:PRINT USING "X3=######.###";X3:LOCATE 25,2:PRINT USING " Y3=######.###";Y3
11960 LOCATE 12,3:PRINT USING "X4=######.###";X4:LOCATE 25,3:PRINT USING " Y4=######.###";Y4
11970 IF INKEY$ ="" THEN 11970
11980 LOCATE 12,0:PRINT USING "XA=######.###";XA:LOCATE 25,0:PRINT USING " YA=######.###";YA
11990 LOCATE 12,1:PRINT USING "XB=######.###";XB:LOCATE 25,1:PRINT USING " YB=######.###";YB
12000 LOCATE 12,2:PRINT USING "XC=######.###";XC:LOCATE 25,2:PRINT USING " YC=######.###";YC
12010 LOCATE 12,3:PRINT USING "XD=######.###";XD:LOCATE 25,3:PRINT USING " YD=######.###";YD
12020 IF INKEY$ ="" THEN 12020
12030 GOTO 11700
12040 *TQDM:REM xian lu duan mian yao su ti qu
12050 OPEN "E:"+FNAME$+".DM" FOR INPUT AS #1
12060 INPUT #1,CG,JK,C,B,I1,A,I0
12070 I1=I1/100:I0=I0/100
12080 DIM BP#(50),BH(50),RS(50),I(50),SS#(50),SE#(50)
12090 DIM DZH#(50),DHY#(50),DYH#(50),DHZ#(50),LS1(50),LS2(50),LJ1(50),LJ2(50)
12100 DIM BJ(50),IB(50),DZX(50):REM DZX-----1 Z 2 Y
12110 DIM ZZ#(50),IC(50),ID(50):REM te shu chao gao
12115 DIM QDLA(100), QDLB(100)
12120 FOR I=0 TO 1000
12130 INPUT #1,BP#(I):IF BP#(I)=-1 THEN NS=I-1:GOTO 12140
12135 INPUT #1,BH(I),RS(I)
12138 NEXT I
12140 FOR PF=1 TO 50
12142 INPUT #1, QDLA(PF): IF QDLA(PF)=-1 THEN PPQ=PF-1: GOTO 12150
12143 INPUT #1, QDLB(PF)
12145 NEXT PF
12150 FOR I=1 TO NS
12155 FOR W=1 TO PPQ
12160 IF BP#(I-1)<QDLA(W) AND BP#(I)>QDLA(W) THEN I(I)=(BH(I)-BH(I-1))/(BP#(I)-BP#(I-1)+(QDLA(W)-QDLB(W))): GOTO 12170
12165 NEXT W
12166 I(I)=(BH(I)-BH(I-1))/(BP#(I)-BP#(I-1))
12170 NEXT I
12180 SS#(0)=BP#(0):SE#(0)=BP#(0)
12190 SS#(NS)=BP#(NS):SE#(NS)=BP#(NS)
12200 FOR I=1 TO NS
12210 IF I(I+1)<I(I) THEN RS(I)=-RS(I)
12220 T=ABS (RS(I)*(I(I)-I(I+1)))/2
12230 SS#(I)=BP#(I)-T:SE#(I)=BP#(I)+T
12240 NEXT I
12250 FOR I=1 TO 1000
12260 INPUT #1,DHY#(I):IF DHY#(I)=-1 THEN NP=I-1:GOTO 12290
12270 INPUT #1,LS1(I),DYH#(I),LS2(I),IB(I),BJ(I),DZX(I)
12280 NEXT I
12290 FOR I=1 TO 1000
12300 INPUT #1,ZZ#(I):IF ZZ#(I)=-1 THEN NV=I-1: CLOSE #1:GOTO 12330
12310 INPUT #1,IC(I),ID(I)
12320 NEXT I
12330 FOR I=1 TO NP
12340 IB(I)=IB(I)/100
12350 DZH#(I)=DHY#(I)-LS1(I):DHZ#(I)=DYH#(I)+LS2(I):IF IB(I)=0 THEN 12380
12360 IF CG=1 THEN LJ1(I)=I1/IB(I)*LS1(I):LJ2(I)=I1/IB(I)*LS2(I)
12370 IF CG=2 THEN LJ1(I)=2*I1/(I1+IB(I))*LS1(I):LJ2(I)=2*I1/(I1+IB(I))*LS2(I)
12380 NEXT I
12390 BEEP 3:RETURN
12400 *DLDM:CLS
12410 PRINT " XIAN LU MING CHENG":PRINT
12420 INPUT " BIAN HAO:";FNAME$
12430 IF FNAME$="UP" OR FNAME$="up" THEN 110
12440 GOSUB *TQDM:CLS
12450 *DLDM2:INPUT "Zhuang Ju DL=";DL
12460 L$="":INPUT "Zhuang hao (SJ/UP/+/-):";L$:QL=VAL (L$)
12470 IF L$="+" THEN QL=SQL+DL
12480 IF L$="-" THEN QL=SQL-DL
12490 IF L$="" THEN QL=SQL
12500 IF L$="SJ" THEN 13370
12510 IF L$="UP" OR L$="up" THEN 110
12512 IF QL<BP#(0) OR QL>BP#(NS) THEN BEEP 1:PRINT " K=";BP#(0);"-->";BP#(NS):GOTO 12460
12514 L#=ABS (QL):GOSUB *DMJS
12522 V=QL:GOSUB 4820:PRINT
12523 L3$=STR$ (L3)+"*2"
12524 PRINT USING " ##.## ";L1;L2;
12525 PRINT USING " &&&&&&";L3$;
12526 PRINT USING " ##.## ";L4;L5
12527 PRINT USING " ###.###";HI1;HI2;HI3;HI4;HI5
12528 IF SH>1000 THEN 12750 ELSE 12740
12529 PRINT USING " ###.###";H1;H2;H3;H4;H5:GOTO 12760
12530 PRINT USING " ###.###";H1-1000;H2-1000;H3-1000;H4-1000;H5-1000
12531 IF INKEY$ ="" THEN 12760
12532 SQL=INT (QL/DL)*DL
12535 GOTO 12460
12540 *DMJS:REM xian lu duan mian ji suan
12550 GOSUB 12780:SH=INT (SH*1000)/1000
12560 GOSUB 12860:ZJK=0:YJK=0
12570 IF YN=0 THEN CG1=HCN2:CG2=HCN1:CG3=HCZ:CG4=HCW1:CG5=HCW2:GOTO 12630
12580 IF YN=2 THEN 12610
12590 HCW1=HCW2-(HCW2-HCZ)/(A+B)*A
12600 HCN1=HCN2+(HCZ-HCN2)/(A+B+BJX)*A
12610 IF DZX(I)=1 THEN CG1=HCN2:CG2=HCN1:CG3=HCZ:CG4=HCW1:CG5=HCW2:ZJK=BJX
12620 IF DZX(I)=2 THEN CG1=HCW2:CG2=HCW1:CG3=HCZ:CG4=HCN1:CG5=HCN2:YJK=BJX
12630 CG1=INT (CG1*1000)/1000:CG2=INT (CG2*1000)/1000
12640 CG3=INT (CG3*1000)/1000
12650 CG4=INT (CG4*1000)/1000:CG5=INT (CG5*1000)/1000
12660 HI1=CG1-CG3:HI2=CG2-CG3:HI3=CG3-CG3:HI4=CG4-CG3:HI5=CG5-CG3
12670 H1=SH+HI1:H2=SH+HI2:H3=SH+HI3:H4=SH+HI4:H5=SH+HI5
12680 L1=ZJK+B+A+C:L2=ZJK+B+C:L3=C:L4=YJK+B+C:L5=YJK+B+A+C
12690 RETURN
12780 REM ji suan she ji gao
12790 FOR PJ=1 TO NS
12800 IF L#>=BP#(PJ-1) AND L#<=BP#(PJ) THEN 12820
12810 NEXT PJ
12820 FOR PF=1 TO PPQ
12822 IF BP#(PJ-1)<QDLA(PF) AND QDLA(PF)<BP#(PJ) THEN 12828
12824 NEXT PF
12825 GOTO 12840
12828 IF QDLA(PF)>QDLB(PF) AND L#<=QDLA(PF) THEN SH=BH(PJ-1)+(L#-BP#(PJ-1))*I(PJ)
12829 IF QDLA(PF)>QDLB(PF) AND L#>QDLA(PF) THEN SH=BH(PJ-1)+(L#-BP#(PJ-1)+(QDLA(PF)-QDLB(PF)))*I(PJ)
12830 IF QDLA(PF)>QDLB(PF) AND QL<0 THEN SH=BH(PJ-1)+((L#-QDLB(PF)+QDLA(PF))-BP(PJ-1))*I(PJ)
12831 IF QDLA(PF)<QDLB(PF) AND L#<= QDLA(PF) THEN SH=BH(PJ-1)+(L#-BP#(PJ-1))*I(PJ)
12832 IF QDLA(PF)<QDLB(PF) AND L#>QDLA(PF) AND L#<QDLB(PF) THEN SH=BH(PJ-1)+(QDLA(PF)-BP#(PJ-1))*I(PJ)
12833 IF QDLA(PF)<QDLB(PF) AND L#>= QDLB(PF) THEN SH=BH(PJ-1)+(L#-BP#(PJ-1)+(QDLA(PF)-QDLB(PF)))*I(PJ)
12835 GOTO 12841
12840 SH=BH(PJ-1)+(L#-BP#(PJ-1))*I(PJ)
12841 IF L#<SE#(PJ-1) THEN SH=SH+(SE#(PJ-1)-L#) ^ 2 / 2 / RS(PJ-1)
12842 IF L#>SS#(PJ) THEN SH=SH+(L#-SS#(PJ)) ^ 2 / 2 / RS(PJ)
12850 RETURN
12860 REM ji suan cao gao zhi
12870 FOR I=1 TO NP
12880 IF L#>DHZ#(I) THEN 13040
12890 IF L#<DZH#(I) THEN YN=0:GOSUB 13310:RETURN
12900 IF IB(I)=0 AND BJ(I)=0 THEN YN=0:GOSUB 13310:RETURN
12910 BJ=BJ(I):IB=IB(I):IF IB(I)=0 THEN YN=2:GOSUB 13060:RETURN
12920 YN=1:IF L#>=DHY#(I) AND L#<=DYH#(I) THEN BJX=BJ:GOSUB 13120:RETURN
12930 FOR M=1 TO NV
12940 IF ABS (DZH#(I)-ZZ#(M))<0.1 AND L#<DHY#(I) THEN 12970
12950 IF ABS (DHZ#(I)-ZZ#(M))<0.1 AND L#>DYH#(I) THEN 12970
12960 NEXT M:GOTO 13020
12970 IA1=I1:IA0=I0:I1=IC(M)/100:I0=ID(M)/100
12980 IF CG=1 THEN LJ1(I)=I1/IB(I)*LS1(I):LJ2(I)=I1/IB(I)*LS2(I)
12990 IF CG=2 THEN LJ1(I)=2*I1/(I1+IB(I))*LS1(I):LJ2(I)=2*I1/(I1+IB(I))*LS2(I)
13000 IF L#<DHY#(I) THEN LS=LS1(I):LJ=LJ1(I):X=L#-DZH#(I)
13010 IF L#>DYH#(I) THEN LS=LS2(I):LJ=LJ2(I):X=DHZ#(I)-L#
13012 GOSUB 13340:GOSUB 13180
13015 IF I0>0 THEN HCW2=2*HCZ
13020 IF L#<DHY#(I) THEN LS=LS1(I):LJ=LJ1(I):X=L#-DZH#(I):GOSUB 13340:GOSUB 13180:RETURN
13030 IF L#>DYH#(I) THEN LS=LS2(I):LJ=LJ2(I):X=DHZ#(I)-L#:GOSUB 13340:GOSUB 13180:RETURN
13040 NEXT I
13050 YN=0:GOSUB 13310:RETURN
13060 HCW2=0:HCW1=A*I0:HCZ=A*I0+B*I1
13070 IF L#>=DHY#(I) AND L#<=DYH#(I) THEN BJX=BJ
13080 IF L#<DHY#(I) THEN LS=LS1(I):X=L#-DZH#(I):GOSUB 13340
13090 IF L#>DYH#(I) THEN LS=LS2(I):X=DHZ#(I)-L#:GOSUB 13340
13100 HCN1=A*I0-BJX*I1:HCN2=-BJX*I1
13110 RETURN
13118 I1=IA1:I0=IA0:RETURN
13120 REM HY----YH cao gao ji suan
13130 IF CG=2 THEN 13160
13140 HCN2=A*I0-(A+BJ)*IB:HCZ=HCN2+(A+BJ+B)*IB
13150 HCW2=HCN2+(A+BJ+2*B+A)*IB:RETURN
13160 HCZ=A*I0+B*I1:HCN2=HCZ-(B+BJ+A)*IB
13170 HCW2=HCZ+(A+B)*IB:RETURN
13180 REM ZH---HY YH---HZ cao gao ji suan
13190 IF X>LJ THEN 13250
13200 IF CG=2 THEN 13230
13210 HCW2=A*(I0-I1)+(A*I1+(A+2*B)*IB)*X/LS
13220 HCZ=A*I0+B*I1:HCN2=A*I0-(A+BJX)*I1:RETURN
13230 HCW2=A*(I0-I1)+(A+B)*(I1+IB)*X/LS
13240 HCZ=A*I0+B*I1:HCN2=A*I0-(A+BJX)*I1:RETURN
13250 REM LJ<X<LS
13260 IF CG=2 THEN 13290
13270 HCW2=A*(I0-I1)+(A*I1+(A+2*B)*IB)*X/LS:HCN2=A*I0-(A+BJX)*X/LS*IB
13280 HCZ=A*I0+B*X/LS*IB:RETURN
13290 HCW2=A*(I0-I1)+(A+B)*(I1+IB)*X/LS:HCZ=A*I0+B*I1
13300 HCN2=HCZ-(A+B+BJX)*X/LS*IB:RETURN
13310 REM zhi xian duan
13320 HCW2=0:HCN2=0:HCZ=A*I0+B*I1
13330 HCN1=A*I0:HCW1=HCN1:RETURN
13340 REM ji suan BJX
13350 IF JK=1 THEN BJX=X/LS*BJ ELSE KX=X/LS:BJX=(4*KX^3-3*KX^4)*BJ
13360 BJX=INT (BJX*1000+0.5)/1000:RETURN
13370 INPUT "1)ZDM 2)HDM 3)UP :";ZP
13380 IF ZP=1 THEN GOSUB 13420:GOTO 13370
13390 IF ZP=2 THEN GOSUB 13530:GOTO 13370
13400 IF ZP=3 THEN 12460 ELSE 13370
13410 RETURN
13420 REM zong duan mian shu ju zhi liao
13430 PRINT " 0 ";:V=BP#(0):GOSUB 4820
13440 PRINT " H=";BH(0)
13450 FOR I=1 TO NS
13460 PRINT " i=";USING "+#.###";I(I)*100;:PRINT "%"
13470 PRINT I;
13480 V=BP#(I):GOSUB 4820
13490 PRINT " H=";BH(I);" R=";RS(I)
13500 IF INKEY$ ="" THEN 13500
13510 NEXT I
13520 RETURN
13530 FOR I=1 TO NP
13540 V=DZH#(I):GOSUB 4820:PRINT " ";:V=DHY#(I):GOSUB 4820:PRINT
13550 V=DYH#(I):GOSUB 4820:PRINT " ";:V=DHZ#(I):GOSUB 4820:PRINT
13560 PRINT " ib=";IB(I)*100;"% BJ=";BJ(I);
13570 IF DZX(I)=1 THEN PRINT " Z" ELSE PRINT " Y"
13580 IF INKEY$ ="" THEN 13580
13590 NEXT I:RETURN
13600 *ZCJS:CLS
13610 RADIAN :PAI#=3.141592653589793#
13620 PRINT " (XUAN XIAN ZONG JU FA)":PRINT
13630 INPUT "YI ZHI YAO SHU (CM/RA):";YS$
13640 IF YS$="" THEN 13610
13650 IF YS$="UP" OR YS$="up" THEN 570
13660 IF YS$="CM" THEN 13740
13670 IF YS$="RA" THEN 13680 ELSE 13610
13680 INPUT "BAN JIN R=";R:INPUT "YUAN XING JIAO A=";AA:J=AA:GOSUB 3770:AA=J
13690 L=R*AA:C=2*R*SIN (AA/2):M=R*(1-COS (AA/2))
13700 PRINT USING "L=####.###";L;
13710 PRINT USING " C=####.###";C;
13720 PRINT USING " M=####.###";M
13730 GOTO 13820
13740 INPUT "XUAN CHANG C=";C
13750 INPUT "ZONG JU M=";M
13760 R=((C/2)^2+M^2)/2/M
13770 AA=ASN ((C/2)/R)*2
13780 L=AA*R
13790 PRINT USING "R=####.###";R;
13800 PRINT " A=";:J=AA:GOSUB 3870
13810 PRINT USING " L=####.###";L
13820 INPUT "FU CHANG LP(UP)=";LP$
13830 IF LP$="UP" OR LP$="up" THEN 13610 ELSE 13840
13840 LP=VAL (LP$)
13850 LQ=ABS (L/2-LP):B=LQ/R
13860 X=R*SIN B:Y=R*(1-COS B)
13870 IF LP<(C/2) THEN XP=C/2-X ELSE XP=C/2+X
13880 YP=M-Y
13890 PRINT USING "XP=####.###";XP;
13900 PRINT USING " YP=####.###";YP
13910 GOTO 13820
13920 *MJJS:CLS
13930 DIM X(50),Y(50),S(50)
13940 N=1:SA=0
13950 PRINT " X(";N;")=";:INPUT X$
13960 IF X$="UP" OR X$="up" THEN 340 ELSE X(N)=VAL (X$)
13970 PRINT " Y(";N;")=";:INPUT Y(N)
13980 X$=""
13990 PRINT " X(";N+1;")=";:INPUT X$
14000 IF X$="" THEN 14070 ELSE 14010
14010 N=N+1
14020 X(N)=VAL (X$)
14030 PRINT " Y(";N;")=";:INPUT Y(N)
14040 S(N-1)=(X(N)+X(N-1))*(Y(N)-Y(N-1))/2
14050 SA=SA+S(N-1)
14060 GOTO 13980
14070 S(N)=(X(1)+X(N))*(Y(1)-Y(N))/2
14080 SA=ABS (SA+S(N))
14090 PRINT " N=";N;
14100 PRINT " S=";SA;"m";:PRINT USING "&";CHR$ &HFD
14110 GOTO 13940
14120 *DAGL:CLS
14130 GOSUB 18060:GOSUB 19190:GOSUB 18710:GOSUB 18830:GOSUB 18950
14140 GCURSOR (75,8):GPRINT CE2$;KK$;LIANG2$;KK$;SHU1$;KK$;JU1$
14150 GCURSOR (75,16):GPRINT CE1$;KK$;LIANG1$;KK$;SHU2$;KK$;JU2$
14160 LINE (65,18)-(170,18):LINE (65,20)-(170,20)
14170 GCURSOR (0,22):GPRINT JT$
14180 LOCATE 2,2:PRINT "1"
14190 GCURSOR (0,31):GPRINT KZ$;XING$;JIAN$;SHU$;JU$;K$;TIAN$;JIA$;SHU$;JU$;K$
14200 GCURSOR (100,31):GPRINT CHA$;KAN$;SHU$;JU$;K$;CHA$;ZHAO$;SHU$;JU$;K$;GAI$;ZHENG$;SHU$;JU$;KY$
14210 IF INKEY$ <>"" THEN 14210
14220 A$=INKEY$
14230 IF A$=CHR$ &HF1 THEN GL$="1":GOTO 14490
14240 IF A$=CHR$ &HF2 THEN GL$="2":GOTO 14490
14250 IF A$=CHR$ &HF3 THEN GL$="3":GOTO 14490
14260 IF A$=CHR$ &HF4 THEN GL$="4":GOTO 14490
14270 IF A$=CHR$ &HF5 THEN GL$="5":GOTO 14490
14280 IF A$=CHR$ &H01 THEN 110
14290 IF A$=CHR$ &H0F THEN 14310
14300 IF A$=CHR$ &H0E THEN 14310 ELSE 14220
14310 CLS :GOSUB 18170:GOSUB 19190:GOSUB 18710:GOSUB 18830:GOSUB 18950
14320 GCURSOR (75,8):GPRINT CE2$;KK$;LIANG2$;KK$;SHU1$;KK$;JU1$
14330 GCURSOR (75,16):GPRINT CE1$;KK$;LIANG1$;KK$;SHU2$;KK$;JU2$
14340 LINE (65,18)-(170,18):LINE (65,20)-(170,20)
14350 GCURSOR (0,22):GPRINT JT$
14360 LOCATE 2,2:PRINT "2"
14370 GCURSOR (0,31):GPRINT KZ$;SHAN$;CHU$;SHU$;JU$;K$;CA$;RU$;SHU$;JU$;K$
14380 GCURSOR (100,31):GPRINT XING$;JIAN$;WENG$;JJIAN$;K$;CHA$;KAN$;WENG$;JJIAN$;K$;GAI$;ZHENG$;WENG$;JJIAN$;KY$
14390 IF INKEY$ <>"" THEN 14390
14400 A$=INKEY$
14410 IF A$=CHR$ &HF1 THEN GL$="6":GOTO 14490
14420 IF A$=CHR$ &HF2 THEN GL$="7":GOTO 14490
14430 IF A$=CHR$ &HF3 THEN GL$="8":GOTO 14560
14440 IF A$=CHR$ &HF4 THEN GL$="9":GOTO 14560
14450 IF A$=CHR$ &HF5 THEN GL$="10":GOTO 14560
14460 IF A$=CHR$ &H01 THEN 110
14470 IF A$=CHR$ &H0F THEN 14130
14480 IF A$=CHR$ &H0E THEN 14130 ELSE 14400
14490 CLS :INPUT " DANG AN MING (***.SJ):";FNAME$
14500 IF N$="UP" OR N$="up" THEN 14120 ELSE 14510
14510 IF GL$="1" THEN OPEN "E:"+FNAME$+".SJ" FOR OUTPUT AS #1:GOTO 14610
14520 IF GL$="2" THEN OPEN "E:"+FNAME$+".SJ" FOR APPEND AS #1:GOTO 14640
14530 IF GL$="3" THEN OPEN "E:"+FNAME$+".SJ" FOR INPUT AS #1:GOTO 14760
14540 IF GL$="4" THEN OPEN "E:"+FNAME$+".SJ" FOR INPUT AS #1:GOTO 14830
14550 IF GL$="5" OR GL$="6" OR GL$="7" THEN 14910
14560 CLS :INPUT " DANG AN MING (***.***):";FNAME$
14570 IF N$="UP" OR N$="up" THEN 14120 ELSE 14580
14580 IF GL$="8" THEN OPEN "E:"+FNAME$ FOR OUTPUT AS #1:GOTO 15320
14590 IF GL$="9" THEN OPEN "E:"+FNAME$ FOR INPUT AS #1:GOTO 15400
14600 IF GL$="10" THEN OPEN "E:"+FNAME$ FOR INPUT AS #1:GOTO 15500
14610 REM XING JIAN SHU JU
14620 INPUT "Que Ren Xing Jian (Y/N):";QR$
14630 IF QR$="Y" THEN 14640 ELSE 14750
14640 REM TIAN JIA SHU JU
14650 NZ$="":INPUT "NO# =";NZ$:NZ=VAL (NZ$)
14660 IF NZ$="UP" OR NZ$="up" THEN 14750
14670 IF NZ$="" THEN NZ=NS+1:NZ$=STR$ (NZ):PRINT "NO# =";NZ$
14680 CLEAR NA$,XZ$,YZ$,HZ$
14690 INPUT "NAME=";NA$
14700 INPUT " X=";XZ$
14710 INPUT " Y=";YZ$
14720 INPUT " H=";HZ$
14730 PRINT #1,NZ$;",";NA$;",";XZ$;",";YZ$;",";HZ$
14740 NS=NZ:GOTO 14650
14750 CLOSE :GOTO 14120
14760 REM CA CAN SHU JU
14770 IF EOF (1) THEN 14820
14780 INPUT #1,NZ$,NA$,XZ$,YZ$,HZ$
14790 PRINT NZ$;" ";NA$;" ";XZ$;" ";YZ$;" ";HZ$
14800 IF INKEY$ ="" THEN 14800
14810 GOTO 14770
14820 CLOSE :GOTO 14120
14830 REM CA ZHAO SHU JU
14840 INPUT "NAME(NO#)=";A$
14850 IF EOF (1) THEN 14900
14860 INPUT #1,NZ$,NA$,XZ$,YZ$,HZ$
14870 IF A$="UP" OR A$="up" THEN CLOSE :GOTO 14120
14880 IF A$=NZ$ OR A$=NA$ THEN PRINT NZ$;" ";NA$;" ";XZ$;" ";YZ$;" ";HZ$:GOTO 14900
14890 GOTO 14850
14900 CLOSE :GOTO 14540
14910 REM 5.XIU GAI SHU JU
14920 REM 6.SUAN CHU SHU JU
14930 REM 7.CHA RU SHU JU
14940 CLS
14950 OPEN "E:"+FNAME$+".SJ" FOR INPUT AS #1
14960 OPEN "E:LS.SJ" FOR OUTPUT AS #2
14970 INPUT "NAME(NO#)=";A$
14980 IF EOF (1) THEN 15200
14990 INPUT #1,NZ$,NA$,XZ$,YZ$,HZ$
15000 IF A$=NZ$ OR A$=NA$ THEN PRINT NZ$;" ";NA$;" ";XZ$;" ";YZ$;" ";HZ$:GOTO 15010 ELSE 15180
15010 IF GL$="5" THEN 15060
15020 IF GL$="6" THEN 15040
15030 IF GL$="7" THEN 15080
15040 INPUT "Suan Chu Shu Ju (Y/N):";QR$
15050 IF QR$="Y" THEN 15190 ELSE CLOSE :GOSUB 15290:GOTO 14120
15060 INPUT "Xiu Gai Shu Ju (Y/N):";QR$
15070 IF QR$="Y" THEN 15100 ELSE CLOSE :GOSUB 15290:GOTO 14120
15080 INPUT "CA RU Shu Ju (Y/N):";QR$
15090 IF QR$="Y" THEN NC$=NZ$:NB$=NA$:XC$=XZ$:YC$=YZ$:HC$=HZ$:GOTO 15100 ELSE CLOSE :GOSUB 15290:GOTO 14120
15100 INPUT "NO# =";NZ$
15110 INPUT "NAME=";NA$
15120 INPUT " X=";XZ$
15130 INPUT " Y=";YZ$
15140 INPUT " H=";HZ$
15150 IF GL$="7" THEN 15160 ELSE 15180
15160 PRINT #2,NZ$;",";NA$;",";XZ$;",";YZ$;",";HZ$
15170 NZ$=NC$:NA$=NB$:XZ$=XC$:YZ$=YC$:HZ$=HC$
15180 PRINT #2,NZ$;",";NA$;",";XZ$;",";YZ$;",";HZ$
15190 GOTO 14980
15200 CLOSE :GOSUB 15210:GOSUB 15290:GOTO 14120
15210 REM FU ZHI (LS.SJ-->***.SJ)
15220 OPEN "E:LS.SJ" FOR INPUT AS #1
15230 OPEN "E:"+FNAME$+".SJ" FOR OUTPUT AS #2
15240 IF EOF (1) THEN 15280
15250 INPUT #1,NZ$,NA$,XZ$,YZ$,HZ$
15260 PRINT #2,NZ$;",";NA$;",";XZ$;",";YZ$;",";HZ$
15270 GOTO 15240
15280 CLOSE :RETURN
15290 REM QING KONG (LS.SJ)
15300 OPEN "E:LS.SJ" FOR OUTPUT AS #2
15310 CLOSE :RETURN
15320 REM XING JIAN WENG JIAN
15330 INPUT "Que Ren Xing Jian (Y/N):";QR$
15340 IF QR$="Y" THEN 15350 ELSE 15390
15350 INPUT SJ$
15360 IF SJ$="UP" OR SJ$="up" THEN 15390
15370 PRINT #1,SJ$
15380 GOTO 15350
15390 CLOSE :GOTO 14310
15400 REM CA kAN WENG JIAN
15410 CLEAR A$
15420 IF EOF (1) THEN 15490
15430 SJ$=INPUT $(&1,#1)
15440 A$=A$+SJ$
15450 IF SJ$=CHR$ 13 THEN 15460 ELSE 15480
15460 PRINT A$;:CLEAR A$
15470 IF INKEY$ ="" THEN 15470
15480 GOTO 15420
15490 CLOSE :GOTO 14310
15500 REM GAI ZHENG WENG JIAN
15510 CLEAR A$
15520 OPEN "E:LS.SJ" FOR OUTPUT AS #2
15530 IF EOF (1) THEN 15620
15540 SJ$=INPUT $(&1,#1)
15550 A$=A$+SJ$
15560 IF SJ$=CHR$ 13 THEN 15570 ELSE 15530
15570 PRINT A$;
15580 IN$=INPUT $(1)
15590 IF IN$ =CHR$ &H1D THEN PRINT :INPUT A$
15600 PRINT #2,A$:CLEAR A$
15610 GOTO 15530
15620 CLOSE
15630 OPEN "E:"+FNAME$ FOR OUTPUT AS #1
15640 OPEN "E:LS.SJ" FOR INPUT AS #2
15650 IF EOF (2) THEN 15710
15660 SJ$=INPUT $(&1,#2)
15670 A$=A$+SJ$
15680 IF SJ$=CHR$ 13 THEN 15690 ELSE 15650
15690 PRINT #1,A$:CLEAR A$
15700 GOTO 15650
15710 CLOSE :GOTO 14310
15720 REM DU QU DAO XIAN SHU JU
15730 IF LEFT$ (A$,3)="LS:" THEN 15740 ELSE 15760
15740 A$=MID$ (A$,4,10)
15750 OPEN "E:LSDX.SJ"FOR INPUT AS #1:GOTO 15770
15760 OPEN "E:DX.SJ"FOR INPUT AS #1
15770 IF EOF (1) THEN 15810
15780 INPUT #1,NZ$,NA$,XZ$,YZ$,HZ$
15790 IF A$=NZ$ OR A$=NA$ THEN XX=VAL (XZ$):YY=VAL (YZ$):HH=VAL (HZ$):GOTO 15810
15800 GOTO 15770
15810 CLOSE #1:RETURN
15820 REM DU QU ZHUANG WEI SHU JU
15830 OPEN "E:ZW.SJ"FOR INPUT AS #1
15840 IF EOF (1) THEN 15880
15850 INPUT #1,NZ$,NA$,XZ$,YZ$,HZ$
15860 IF XP$=NZ$ OR XP$=NA$ THEN XP=VAL (XZ$):YP=VAL (YZ$):HP=VAL (HZ$):GOTO 15880
15870 GOTO 15840
15880 CLOSE #1:RETURN
15890 *HGQX:CLS
15900 DIM X(100),Y(100)
15910 OPEN "E:HGQX.ZL" FOR INPUT AS #1
15920 I=1
15930 IF EOF (1) THEN 15960
15940 INPUT #1,X(I),Y(I)
15950 I=I+1:GOTO 15930
15960 CLOSE
15970 I=I+1:N=I-1
15980 PRINT "1.y=a+bx 2.y=ax^b 3.y=ae^(bx)"
15990 PRINT "4.y=ae^(b/x) 5.y=a+ln(x) 6.y=x/(ax+b)"
16000 PRINT "7.y=c/(1+e^(a+bx)) 8.y=c(1-e^(-b(x-a)))"
16010 INPUT "Xuan Zhe Qu Xian Gong Si n=";XZ
16020 IF XZ<1 OR XZ>8 THEN BEEP 1:GOTO 15980
16030 IF XZ>6 THEN INPUT " c=";C
16040 ZY0=0:ZYY0=0
16050 ZX=0:ZY=0:ZXX=0:ZYY=0:ZXY=0
16060 X0=1E+10:X1=-1E+10
16070 Y0=1E+10:Y1=-1E+10
16080 FOR I=1 TO N
16090 X=X(I):Y=Y(I)
16100 ZY0=ZY0+Y:ZYY0=ZYY0+Y*Y
16110 IF X>X1 THEN X1=X
16120 IF Y>Y1 THEN Y1=Y
16130 IF X<X0 THEN X0=X
16140 IF Y<Y0 THEN Y0=Y
16150 REM
16160 IF XZ=2 THEN Y=LOG (Y):X=LOG (X)
16170 IF XZ=3 THEN Y=LOG (Y)
16180 IF XZ=4 THEN Y=LOG (Y):X=1/X
16190 IF XZ=5 THEN X=LOG (X)
16200 IF XZ=6 THEN Y=1/Y:X=1/X
16210 IF XZ=7 THEN Y=LOG (C/Y-1)
16220 IF XZ=8 THEN Y=LOG (1-Y/C)
16230 ZX=ZX+X:ZY=ZY+Y
16240 ZXX=ZXX+X*X
16250 ZYY=ZYY+Y*Y
16260 ZXY=ZXY+X*Y
16270 NEXT I
16280 XX=ZXX-ZX*ZX/N:YY=ZYY-ZY*ZY/N:XY=ZXY-ZX*ZY/N
16290 B=XY/XX
16300 A=(ZY-B*ZX)/N
16310 R=B*SQR (XX/YY):CLS
16320 IF XZ=2 OR XZ=3 OR XZ=4 THEN A=EXP (A)
16330 IF XZ=8 THEN A=-A/B:B=-B
16340 IF XZ=1 THEN PRINT " y=a+bx"
16350 IF XZ=2 THEN PRINT " y=ax^b"
16360 IF XZ=3 THEN PRINT " y=ae^(bx)"
16370 PRINT USING " a=###.#########";A
16380 PRINT USING " b=###.#########";B
16390 PRINT USING " r=###.#########";R
16400 IF INKEY$ ="" THEN 16400
16410 CLS :PRINT " NO X Y Y, Y-Y,"
16420 FOR I=1 TO N
16430 X=X(I):Y=Y(I)
16440 ON XZ GOSUB 16540,16550,16560,16570,16580,16590,16600,16610
16450 PRINT USING "###";I;
16460 PRINT USING "#####.###";X,Y,Z,Y-Z
16470 IF INKEY$ ="" THEN 16470
16480 IF I/23<>INT (I/23) THEN 16490
16490 NEXT I
16500 PRINT :INPUT " x=";X$
16510 IF X$="UP" OR X$="up" THEN 570 ELSE X=VAL (X$)
16520 ON XZ GOSUB 16540,16550,16560,16570,16580,16590,16600,16610
16530 PRINT " y=";Z:GOTO 16500
16540 Z=A+B*X:RETURN
16550 Z=A+B^X:RETURN
16560 Z=A+EXP (B*X):RETURN
16570 Z=A+EXP (B/X):RETURN
16580 Z=A+B*LOG (X):RETURN
16590 Z=X/(A*X+B):RETURN
16600 Z=C/(1+EXP (A+B*X)):RETURN
16610 Z=C/(1-EXP (-B*(X-A))):RETURN
16620 *HFJH2:CLS
16630 REM hou fang jao du jiao hui
16640 PRINT :PRINT " HOU FANG JIAO DU JIAO HUI":PRINT
16650 GOSUB 16690
16660 PRINT USING "X=########.###";X0;:PRINT USING " Y=########.###";Y0;
16670 PRINT USING " H=####.###";H0
16680 GOTO 16650
16690 *HF2
16700 RADIAN :DEFDBL A-Z:PAI=3.141592653589793#
16710 INPUT "1# zuo biao: X1=";A$:AA=VAL A$
16720 GOSUB 6090:IF ZFLX$="SJ" THEN XA=AA:GOTO 16760
16730 IF A$="UP" THEN 1400 ELSE GOSUB 15720:XA=XX:YA=YY:HA=HH
16740 PRINT USING "X=########.###";XA;:PRINT USING " Y=########.###";YA;
16750 PRINT USING " H=####.###";HA:GOTO 16780
16760 INPUT " Y1=";YA
16770 INPUT " H1=";HA
16780 INPUT "2# zuo biao: X2=";A$:AA=VAL A$
16790 GOSUB 6090:IF ZFLX$="SJ" THEN XC=AA:GOTO 16830
16800 GOSUB 15720:XC=XX:YC=YY:HC=HH
16810 PRINT USING "X=########.###";XC;:PRINT USING " Y=########.###";YC;
16820 PRINT USING " H=####.###";HC:GOTO 16850
16830 INPUT " Y2=";YC
16840 INPUT " H2=";HC
16850 INPUT "3# zuo biao: X3=";A$:AA=VAL A$
16860 GOSUB 6090:IF ZFLX$="SJ" THEN XB=AA:GOTO 16900
16870 GOSUB 15720:XB=XX:YB=YY:HB=HH
16880 PRINT USING "X=########.###";XB;:PRINT USING " Y=########.###";YB;
16890 PRINT USING " H=####.###";HB:GOTO 16920
16900 INPUT " Y3=";YB
16910 INPUT " H3=";HB
16920 INPUT " Jia Jiao a(12)=";J:GOSUB 3770:JA=J
16930 INPUT " Jia Jiao a(23)=";J:GOSUB 3770:JB=J
16940 INPUT " Tian Din Jiao a1=";J:GOSUB 3770:JJA=J
16950 INPUT " Tian Din Jiao a2=";J:GOSUB 3770:JJC=J
16960 INPUT " Tian Din Jiao a3=";J:GOSUB 3770:JJB=J
16970 INPUT " Yi Qi Gao HI=";HI
16980 UA=(XA-XC)+(YA-YC)/TAN (JA)
16990 UB=(XA-XC)/TAN (JA)-(YA-YC)
17000 UC=(YB-YC)/TAN (JB)-(XB-XC)
17010 UD=(YB-YC)+(XB-XC)/TAN (JB)
17020 K=(UA+UC)/(UB+UD)
17030 X0=XC+(UA-K*UB)/(K*K+1)
17040 Y0=YC+K*(UA-K*UB)/(K*K+1)
17050 H1=HA-SQR ((XP-XA)^2+(YP-YA)^2)/TAN (JJA)-HI
17060 H2=HC-SQR ((XP-XC)^2+(YP-YC)^2)/TAN (JJC)-HI
17070 H3=HB-SQR ((XP-XB)^2+(YP-YB)^2)/TAN (JJB)-HI
17080 H0=(H1+H2+H3)/3:H0=INT (H0*1000+0.5)/1000
17090 RETURN
17100 *DMZH:CLS
17103 REM Duan Mian Shu Ju Zhuan Huan
17106 PRINT " ZUO BIAO SHU JU -->DUAN MIAN":PRINT
17109 INPUT "Zuo Biao Dang An (***.SJ):";FNAME$:IF FNAME$="UP" OR FNAME$="up" THEN 800
17110 CLS :PRINT :PRINT " XYH--->CASS"
17112 OPEN "E:"+FNAME$+".SJ" FOR INPUT AS #1
17115 OPEN "E:"+FNAME$+".HDA" FOR OUTPUT AS #2
17118 IF EOF (1) THEN 17169
17121 INPUT #1,NO$,KN$,ZX$,ZY$,H$
17124 ZX=VAL ZX$:ZY=VAL ZY$
17127 IF KN$<>"Z" AND KN$<>"Y" THEN 17130 ELSE 17142
17130 SX=ZX:SY=ZY:H0$=H$:DMH=DMH+1:DM$=KN$+":"+STR$ (DMH)
17133 PRINT #2,"BEGIN";",";DM$
17136 PRINT "BEGIN";" ";DM$
17139 GOTO 17118
17142 IF KN$="Z" THEN PK=-1 ELSE PK=1
17145 D=SQR ((SX-ZX)^2+(SY-ZY)^2)*PK
17148 D$=STR$ (INT (D*100)/100)
17151 IF D0<0 AND D>0 THEN 17154 ELSE 17160
17154 PRINT #2,"0.000";",";H0$
17157 PRINT "0.000";" ";H0$
17160 PRINT #2,D$;",";H$
17163 PRINT D$;" ";H$
17166 D0=D:GOTO 17118
17169 CLOSE :BEEP 1
17170 CLS :PRINT :PRINT " XYH--->PU TONG"
17172 DIM D1$(50),H1$(50),D2$(50),H2$(50)
17173 DIM HD$(50),HH$(50),V$(50),H0$(50),HDZ$(50),HHZ$(50),HDY$(50),HHY$(50)
17175 OPEN "E:"+FNAME$+".HDA" FOR INPUT AS #1
17178 OPEN "E:"+FNAME$+".HDB" FOR OUTPUT AS #2
17181 P=0
17184 IF EOF (1) THEN 17202
17187 INPUT #1,D1$,H1$
17190 IF D1$="BEGIN" AND P<>0 THEN 17202
17193 IF D1$="0.000" THEN N=P
17196 D1$(P)=D1$:H1$(P)=H1$
17199 P=P+1:GOTO 17184
17202 FOR I=1 TO 10
17205 IF MID$ (H1$(0),I,1)=":" THEN I=I-1:GOTO 17211
17208 NEXT I
17211 V=VAL (LEFT$ (H1$(0),I)):VV=ABS V
17214 V1$=STR$ (INT (VV/1000)):V1$=MID$ (V1$,2,3)
17217 V2$=STR$ (VV-VAL (V1$)*1000):V2$=MID$ (V2$,2,7)
17220 IF V>=0 THEN V$="K"+V1$+"+"+V2$ ELSE V$="-K"+V1$+"+"+V2$
17223 FOR K=1 TO P-1
17226 IF K<N THEN D2$(K)=STR$ (ABS (VAL D1$(K)-VAL D1$(K+1))):H2=VAL H1$(K)-VAL H1$(K+1):H2$(K)=STR$ (INT (H2*100+0.5)/100)
17229 IF K=N THEN D2$(K)=V$:H2$(K)=H1$(K)
17232 IF K>N THEN D2$(K)=STR$ (ABS (VAL D1$(K)-VAL D1$(K-1))):H2=VAL H1$(K)-VAL H1$(K-1):H2$(K)=STR$ (INT (H2*100+0.5)/100)
17235 NEXT K
17238 FOR T=1 TO K-2:PRINT H2$(T);",";:PRINT #2,H2$(T);",";:NEXT
17241 PRINT H2$(K-1):PRINT #2,H2$(K-1)
17244 FOR T=1 TO K-2:PRINT D2$(T);",";:PRINT #2,D2$(T);",";:NEXT
17247 PRINT D2$(K-1):PRINT #2,D2$(K-1)
17250 IF EOF (1) THEN 17256
17253 P=0:GOTO 17196
17256 CLOSE :BEEP 2
17260 CLS :PRINT :PRINT " XYH--->HARD.DMX"
17275 OPEN "E:"+FNAME$+".HDA" FOR INPUT AS #1
17278 OPEN "E:"+FNAME$+".DMX" FOR OUTPUT AS #2
17281 P=0:M=1:PRINT #2,"2"
17284 IF EOF (1) THEN 17302
17287 INPUT #1,HD$,HH$
17290 IF HD$="BEGIN" AND P<>0 THEN 17302
17293 IF HD$="0.000" THEN N=P
17296 HD$(P)=HD$:HH$(P)=HH$
17299 P=P+1:GOTO 17284
17302 FOR I=1 TO 10
17305 IF MID$ (HH$(0),I,1)=":" THEN I=I-1:GOTO 17309
17308 NEXT I
17309 V=VAL (LEFT$ (HH$(0),I)):V$(M)=STR$ ABS V
17313 Z=0:X=0
17314 FOR K=1 TO P-1
17315 IF K<N THEN Z=Z+1:HDZ$(N-K)=STR$ (ABS (VAL HD$(K)-VAL HD$(K+1))):HZ=VAL HH$(K)-VAL HH$(K+1):HHZ$(N-K)=STR$ (INT (HZ*100+0.5)/100)
17316 IF K=N THEN H0$(M)=HH$(K)
17317 IF K>N THEN X=X+1:HDY$(K-N)=STR$ (ABS (VAL HD$(K)-VAL HD$(K-1))):HY=VAL HH$(K)-VAL HH$(K-1):HHY$(K-N)=STR$ (INT (HY*100+0.5)/100)
17318 NEXT K
17320 PRINT V$(M):PRINT #2,V$(M)
17323 FOR T=1 TO Z-1:PRINT HDZ$(T);" ";HHZ$(T);" ";:PRINT #2,HDZ$(T);" ";HHZ$(T);" ";:NEXT T
17324 PRINT HDZ$(Z);" ";HHZ$(Z):PRINT #2,HDZ$(Z);" ";HHZ$(Z)
17325 FOR T=1 TO X-1:PRINT HDY$(T);" ";HHY$(T);" ";:PRINT #2,HDY$(T);" ";HHY$(T);" ";:NEXT T
17327 PRINT HDY$(X);" ";HHY$(X):PRINT #2,HDY$(X);" ";HHY$(X)
17330 IF EOF (1) THEN 17335
17331 P=0:M=M+1:GOTO 17296
17335 CLOSE :BEEP 3
17336 CLS :PRINT :PRINT " XYH--->HARD.DMG"
17337 OPEN "E:"+FNAME$+".DMG" FOR OUTPUT AS #2
17339 FOR G=1 TO M
17340 PRINT V$(G);" ";H0$(G)
17342 PRINT #2,V$(G);" ";H0$(G)
17345 NEXT G
17350 CLOSE :BEEP 4:GOTO 800
17360 REM 8*8 Han Zi
17370 XIAN$="B6A9A90454FFD495C0"
17380 LU$="EF89F9AFF2ABA5ABF1"
17390 ZUO$="80979290FF90979280"
17400 BIAO$="140CFF144C2AFA2A48"
17410 GAO$="F212F29E939EF212F2"
17420 CHENG$="241DFF85AFADFDADAF"
17430 DUAN$="FEB4FE96BA7E12F211"
17440 MIAN$="01FD85FDB7FD85FD01"
17450 CE$="DB00DE3A4A9E9CFF00"
17460 LIANG$="84BFADADFDADADBF84"
17470 SHU$="B96A5F2DCE7F257C82"
17480 JU$="A4FF14C43FFDADBDEB":RETURN
17490 CE$="DB00DE3A4A9E9CFF00"
17500 LIANG$="84BFADADFDADADBF84"
17510 PPING$="10111315FF15131110"
17520 CHA$="8A4A2B9A9E9AFB9A9A"
17530 JIAO$="088A9E5221528A8681"
17540 FEI$="1894DABA9DBA5C9408"
17550 JII$="02837E20F191919FC0"
17560 LU$="04947787FF07779484"
17570 MIAN$="01FD85FDB7FD85FD01"
17580 JJI$="140DFF0D149F51519F"
17590 JI$="08F9400808FF080808"
17600 SUAN$="3485FD053485FD0534"
17610 XIAN$="B6A9A90454FFD495C0"
17620 LLU$="EF89F9AFF2ABA5ABF1"
17630 JI$="08F9400808FF080808"
17640 SUAN$="3485FD053485FD0534":RETURN
17650 JJIAO$="00FC6B6BFD6D6BF900"
17660 ZHUANG$="140CFF947E92FF9292"
17670 JI$="08F9400808FF080808"
17680 SUAN$="3485FD053485FD0534"
17690 ZHONG$="003C2424FF24243C00"
17700 CHUI$="80A8BCA9FFA9BCA880"
17710 YA$="807F818989FF89A9C1"
17720 SHI$="06929A563F52929206"
17730 HUI$="FF81BDA5A5BD81FF"
17740 GUI$="001E807F007F494949"
17750 QU$="00FC94FF9494FF94FC00"
17760 XIAN$="B6A9A90454FFD495C0"
17770 WAI$="885426150C00FF1020"
17780 SHE$="02FB8600B75151B784"
17790 TTONG$="493D40BE95BFD5FD80"
17800 XUN$="08F94011FF11097F80":RETURN
17810 SAN$="005454545454545400"
17820 JJIAO$="00FC6B6BFD6D6BF900"
17830 DDAO$="002F6B2BABFB2B2B00"
17840 XIAN$="B6A9A90454FFD495C0"
17850 HU$="FE4E7202FE01A8FF08"
17860 HE$="0AFA9A99999AFA0A00"
17870 BI$="FF012A9AFE0A0AFE00"
17880 SHUI$="64140C84FF08142240"
17890 ZHUNG$="E21C1AFED5D4FED4C2":RETURN
17900 QIAN$="02FA6BFE027A83FE02"
17910 FANG$="0282423E0B0A8AFA02"
17920 JIAO$="088A9E5221528A8681"
17930 FEI$="1894DABA9DBA5C9408"
17940 BIAN$="493D4084C4BF84C4FC"
17950 JJIAO$="00FC6B6BFD6D6BF900"
17960 HOU$="C23EF695959595F500":RETURN
17970 CE$="DB00DE3A4A9E9CFF00"
17980 LIANG$="84BFADADFDADADBF84"
17990 FANG$="E21F0AFA8C5724548C"
18000 YANG$="0414FF141D1EFC1E1D"
18010 DI$="84FF44FF84BF84FCC0"
18020 XING$="09FF09FF09A4522900"
18030 ZHUAN$="022F2AFE2A0A3FAAEA"
18040 DIAN$="0080B8A8AFAAAABA80"
18050 ZHAN$="84BCC7BC84F09F92F2":RETURN
18060 XING$="5256FB56D23E0AFA09"
18070 JIAN$="4089FDA3AAFFAABF88"
18080 SHU$="B96A5F2DCE7F257C82"
18090 JU$="A4FF14C43FFDADBDEB"
18100 TIAN$="59C3142D85F3052D54"
18110 JIA$="C27F0282FEFE4242FE"
18120 CHA$="8AFA9A969F969AFA8A"
18130 KAN$="2028FA9E9A9A99FD08"
18140 ZHAO$="04A4FF14845F245680"
18150 GAI$="F949492F845B324A86"
18160 ZHENG$="80F98181FF89898980":RETURN
18170 SHAN$="C87E0AFE7EFE3CFF00"
18180 CHU$="FE4E72686CFB2A6C58"
18190 SHU$="B96A5F2DCE7F257C82"
18200 JU$="A4FF14C43FFDADBDEB"
18210 CA$="94FF04FACAFE8A8AF8"
18220 RU$="8040300D0618204080"
18230 XING$="5256FB56D23E0AFA09"
18240 JIAN$="4089FDA3AAFFAABF88"
18250 CHA$="8AFA9A969F969AFA8A"
18260 KAN$="2028FA9E9A9A99FD08"
18270 WENG$="0000828E5223528E82"
18280 JJIAN$="0008FC031413FF1210"
18290 GAI$="F949492F845B324A86"
18300 ZHENG$="80F98181FF89898980":RETURN
18310 PPI$="92FF1200FF8800FF88"
18320 LIANG$="84BFADADFDADADBF84"
18330 ZUO$="80979290FF90979280"
18340 BIAO$="140CFF144C2AFA2A48"
18350 GAO$="F212F29E939EF212F2"
18360 CHENG$="241DFF85AFADFDADAF"
18370 ZHUAN$="222F2AFE2A2ABFEA80"
18380 HUA$="0202FE01007F9088C4"
18390 DUAN$="FEB4FE96BA7E12F211"
18400 MIAN$="01FD85FDB7FD85FD01":RETURN
18410 BIAN$="483D40B49CC7C4BC82"
18420 PO$="249F64BE925F325E82"
18430 FANG$="E21F0AFA8C5724548C"
18440 YANG$="0414FF141D1EFC1E1D"
18450 PPI$="92FF1200FF8800FF88"
18460 LIANG$="84BFADADFDADADBF84"
18470 SHU$="B96A5F2DCE7F257C82"
18480 JU$="A4FF14C43FFDADBDEB"
18490 LU$="EF89F9AFF2ABA5ABF1"
18500 SUI$="FE269A7CBE97BE8200"
18510 DAO$="493D40FACBCECBFA80"
18520 CE$="DB00DE3A4A9E9CFF00"
18530 LIANG$="84BFADADFDADADBF84"
18535 SHI$="00F41414FD1494F400"
18536 ZHENG$="F2827E5286EB122AC6"
18540 GAO$="F212F29E939EF212F2"
18550 CHENG$="241DFF85AFADFDADAF"
18560 JI$="08F9400808FF080808"
18570 SUAN$="3485FD053485FD0534":RETURN
18580 DENG$="14133EBAFCBCFB3612"
18590 JJI$="5659C5E39F512D5B88"
18600 WAI$="904C771C0400FF0810"
18610 SHUI$="64140C84FF08142240"
18620 ZHUNG$="E21C1AFED5D4FED4C2"
18630 JI$="02837E20F191919FC0"
18640 LU$="04947787FF07779484"
18650 DDAO$="002F6B2BABFB2B2B00"
18660 XIAN$="B6A9A90454FFD495C0":RETURN
18670 JI1$="000060FF201800FF81818181818190E0"
18680 JI2$="808182CE040000040404040404FE0400"
18690 LU1$="203010090B44C47F3F03060A19316020"
18700 LU2$="4040C141494949C9C949493F3FC06020":RETURN
18710 HUAN$="493D40BE81A79BA781"
18720 HUI$="00FF81BDA5A5BD81FF"
18730 SHANG$="00808080FF88888880"
18740 CEN$="80C03F85DDBD9D9DC7"
18750 HUAN1$="402098878658402018070C3060C040"
18760 HUAN2$="28488808C83840301ED01010503010"
18770 YING1$="80403F40808F848280BF8084888780"
18780 YING2$="80829C0800F8080404F8080808F800"
18790 JING1$="0181413F40A19987818181BF818181"
18800 JING2$="00043810001010FE101010FE101000"
18810 RU1$="804020100C03000000010608306020"
18820 RU2$="000000000206EC30C0000000000000":RETURN
18830 CE1$="04FC03008047300F0067000740807F"
18840 CE2$="0831866000FE02F202FE00F80000FF"
18850 LIANG1$="808080AFAAAAAAFFAAAAAAAFA08080"
18860 LIANG2$="808080BEAAAAAAAAAAAAAABE808080":RETURN
18870 CHENG1$="040300FF00414444447F4444444440"
18880 CHENG2$="1012D2FE911180BFA1A1A1A1BF0000"
18890 XU1$="80601F0001010141817F0101010301"
18900 XU2$="0000FC040414143556945434140404":RETURN
18910 XIANG1$="040404FC040402F2121AD61212F202"
18920 XIANG2$="080808070444402F20100F08102F60"
18930 MU1$="00FE2222222222222222FE00"
18940 MU2$="007F22222222222222227F00":RETURN
18950 SHU1$="10925438FF38545280F01F1210F010"
18960 SHU2$="42422A2E131A26024020130C336020"
18970 JU1$="080808FF8840FE929292F292929E80"
18980 JU2$="0242817F40300FFC4444474444FC00":RETURN
18990 PPING1$="00010509712101FF0141211D090100"
19000 PPING2$="01010101010101FF01010101010101"
19010 CHA1$="8088A8A8A9AEEAB8A8ACABAAA88880"
19020 CHA2$="40201048464544447C444444444040":RETURN
19030 JIAO1$="0888483828090E0C089828684808"
19040 JIAO2$="808040412214180C162361C04000"
19050 HUI1$="80404020504844434448502060C040"
19060 HUI2$="000042E2524A466222222AF2620000":RETURN
19070 ZUO1$="0080704C8000FD0200C0304C8000"
19080 ZUO2$="828188888988FF8C8A89888C8980"
19090 BIAO1$="0020FFA01040444444C444444040"
19100 BIAO2$="0C03FF0063100C0280FF00061830":RETURN
19110 WAI1$="40201008050300000000FF00000003"
19120 WAI2$="804020588704C43C0000FF20408000"
19130 SHE1$="00007F20908040432C10102C43C040"
19140 SHE2$="4041CE04008040BE828282BEC04040"
19150 TTONG1$="80403F4080BF848484BF94A49F8080"
19160 TTONG2$="80828C0000E4A4A4ACF4B4ACE40000"
19170 XUN1$="000000FF402000FF000000007F8070"
19180 XUN2$="40425CC8008484FC84848404FC0000":RETURN
19190 JT$="10387CFE0000FE7C3810"
19200 KK$="000000000000000000"
19210 KZ$="FFFF8100"
19220 K$="000081FFFF000000FFFF810000"
19230 KY$="0081FFFF":RETURN
19240 *ZBDA:CLS
19250 PRINT :PRINT " XIAN LU MING CHENG":PRINT
19260 INPUT " BIAN HAO:";FNAME$
19270 IF FNAME$="UP" OR FNAME$="up" THEN 800
19280 GOSUB *TQZB:CLS :N0=1
19290 INPUT "LI CHENG 1)DENG JU 2)DU QU:";YSJ
19300 IF YSJ=1 OR YSJ=2 THEN 19310 ELSE 19290
19310 INPUT "SAVE Dang An Ming (***.DAZ):";FNAME$
19320 OPEN "E:"+FNAME$+".DAZ" FOR OUTPUT AS #1
19330 IF YSJ=1 THEN 19380
19340 OPEN "E:LS.SJ" FOR INPUT AS #2
19350 IF EOF (2)THEN 19530
19360 INPUT #2,ZA,FX,JD,KD
19370 GOTO 19450
19380 INPUT "Qi Dian Zhuang Hao Ka=";ZA
19390 INPUT "Zong Dian Zhuang Hao Kb=";ZB
19400 INPUT "Zhuang Ju DL=";DL
19410 INPUT "Fang Xiang 1)Zuo 2)You :";FX
19420 INPUT "Xie Jiao Jiao Du JJ=";JD
19430 INPUT "Lu Mian Kuan Du KD=";KD
19440 IF ZA>ZB OR ZA>HZ(NN) THEN 19530
19450 J=JD:GOSUB 3770:XJJ=J:IF FX=1 THEN XJJ=XJJ+PAI# ELSE XJJ=XJJ
19460 PRINT N0;PZA=ZA:GOSUB *ZHTOLC:GOSUB *ZBJS:V=ZA:GOSUB 4830:PRINT FX;JD;KD
19470 XZ=INT (XP*K+0.5)/K:YZ=INT (YP*K+0.5)/K
19480 PRINT "X=";XZ;" Y=";YZ
19490 FX$=STR$ FX:JD$=STR$ JD:KD$=STR$ KD:XZ$=STR$ XZ:YZ$=STR$ YZ
19500 PRINT #1,V$;",";FX$;",";JD$;",";KD$;",";XZ$;",";YZ$
19510 ZA=ZA+DL:N0=N0+1
19520 IF YSJ=1 THEN 19440 ELSE 19350
19530 BEEP 3:CLOSE :GOTO 800
19540 *GCDA:CLS
19550 PRINT :PRINT " XIAN LU MING CHENG":PRINT
19560 INPUT " BIAN HAO:";FNAME$
19570 IF FNAME$="UP" OR FNAME$="up" THEN 800
19580 GOSUB *TQZB
19590 GOSUB *TQDM:CLS
19600 INPUT "LI CHENG 1)DENG JU 2)DU QU:";YSJ
19610 IF YSJ=1 OR YSJ=2 THEN 19620 ELSE 19600
19620 INPUT "SAVE Dang An Ming (***.DAG):";FNAME$
19630 OPEN "E:"+FNAME$+".DAG" FOR OUTPUT AS #1
19640 N0=1:IF YSJ=2 THEN 19720
19650 INPUT "Qi Dian Zhuang Hao Ka=";ZA$
19660 INPUT "Zong Dian Zhuang Hao Kb=";ZB$
19670 INPUT "Zhuang Ju DL=";DL
19680 INPUT "Fang Xiang 1)Zuo 2)You :";FX$
19690 INPUT "Xie Jiao Jiao Du JD=";JD$
19700 INPUT "Lu Mian Kuan Du KD=";KD$
19710 IF VAL ZA$>VAL ZB$ THEN 20010 ELSE 19750
19720 OPEN "E:LS.SJ" FOR INPUT AS #2
19730 IF EOF (2) THEN 20010
19740 INPUT #2,ZA$,FX$,JD$,KD$
19750 ZA=VAL ZA$:J=VAL JD$:KD=VAL KD$
19760 GOSUB 3770:XJJ=J
19770 IF FX$="1" THEN XJJ=XJJ+PAI#
19780 IF FX$="2" THEN XJJ=XJJ
19790 PZA=ZA:GOSUB *ZHTOLC:GOSUB *ZBJS
19800 XC=XP:YC=YP
19810 K=1000:KD=0
19820 PZA=ZA:GOSUB *ZHTOLC:GOSUB *ZBJS:FW1=FQX:DD=SQR ((XC-XP)^2+(YC-YP)^2)
19830 XX=XC-XP+0.0001:YY=YC-YP:GOSUB 3810:FW2=FW
19840 FJ=FW2-FW1
19850 D1=DD*COS (FJ):D2=DD*SIN (FJ)
19860 IF ABS D1<0.001 THEN 19880
19870 ZA=ZA+D1:GOTO 19810
19880 ZA=INT (ZA*K+0.5)/K:KD=INT (D2*K+0.5)/K
19890 XC=INT (XC*K+0.5)/K:YC=INT (YC*K+0.5)/K:X$=STR$ XC:Y$=STR$ YC
19900 QL=ZA:L#=ABS (QL):GOSUB *DMJS
19910 HSZ=H3
19920 IF FX=1 THEN HSB=H1:KDS=L1 ELSE HSB=H5:KDS=L5
19930 PB=(HSB-HSZ)/KDS
19940 HSJ=HSZ+KD*PB:HSJ=INT (HSJ*1000+0.5)/1000:H$=STR$ HSJ
19950 PRINT N0;" ";:V=VAL ZA$:GOSUB 4820:PRINT " ";FX$;" ";JD$;" ";KD$
19960 PRINT X$;" ";Y$;" ";H$
19970 PRINT #1,V$;",";FX$;",";JD$;",";KD$;",";X$;",";Y$;",";H$
19980 N0=N0+1
19990 IF YSJ=2 THEN 19730
20000 ZA$=STR$ (VAL ZA$+DL):GOTO 19710
20010 BEEP 3:CLOSE :GOTO 800
20020 *XLJS:CLS
20030 PRINT " JI SUAN LEI XING"
20040 PRINT " 1)ER WEI JI SUAN 2)SAN WEI JI SUAN":PRINT
20050 INPUT " SJ=";SJ$
20060 IF SJ$="1" OR SJ$="2" THEN 20080
20070 IF SJ$="UP" THEN 340 ELSE 20020
20080 CLS :PRINT :PRINT " XIAN LU MING CHENG":PRINT
20090 INPUT " BIAN HAO:";FNAME$
20100 IF FNAME$="UP" OR FNAME$="up" THEN 340
20110 GOSUB *TQZB
20120 IF SJ$="2" THEN GOSUB *TQDM
20130 *XLJS1:CLS
20140 LOCATE 3,0:PRINT " ":LOCATE 0,0:INPUT "K=";KK:IF KK=-1 THEN 340
20150 LOCATE 3,1:PRINT " ":LOCATE 0,1:INPUT "X=";XC
20160 LOCATE 3,2:PRINT " ":LOCATE 0,2:INPUT "Y=";YC
20170 IF SJ$="2" THEN LOCATE 3,3:PRINT " ":LOCATE 0,3:INPUT "H=";HC
20180 K=1000:PZA=KK:GOSUB *ZHTOLC:KK=LCK
20190 LCK=KK:KD=0
20200 GOSUB *ZBJS:FW1=FQX:DD=SQR ((XC-XP)^2+(YC-YP)^2)
20210 XX=XC-XP+0.0001:YY=YC-YP:GOSUB 3810:FW2=FW
20220 FJ=FW2-FW1
20230 D1=DD*COS (FJ):D2=DD*SIN (FJ)
20240 IF ABS D1<0.001 THEN 20260
20250 KK=KK+D1:GOTO 20190
20260 PZA=LCK:GOSUB *LCTOZH:ZA=INT (ZHK*K+0.5)/K:KD=INT (D2*K+0.5)/K
20270 IF FY$="2" THEN RETURN
20280 IF KD>0 THEN FX$="Y" ELSE FX$="Z"
20290 LOCATE 20,0:PRINT " ":LOCATE 20,0:V=ZA:GOSUB 4820:PRINT
20300 LOCATE 23,1:PRINT " ":LOCATE 20,1:PRINT "KD=";KD;"(";FX$;")"
20310 IF SJ$="2" THEN 20320 ELSE 20370
20320 QL=ZA:L#=ABS (QL):GOSUB *DMJS
20330 HZZ=H3:GC=HC-HZZ
20340 IF GC<0 THEN GC$="X" ELSE GC$="S"
20350 LOCATE 23,2:PRINT " ":LOCATE 20,2:PRINT "GC=";GC;"(";GC$;")"
20360 LOCATE 23,3:PRINT " ":LOCATE 20,3:PRINT "H0=";HZZ
20370 BEEP 1:KK=ZA:GOTO 20140
20380 *YQTX:CLS :RADIAN
20400 LOCATE 8,0:PRINT "YI QI XING HAO (";XH$;")"
20410 IF INKEY$ <>"" THEN 20410
20420 C$=INKEY$
20430 IF C$=CHR$ &H0D THEN GOSUB 20500:GOTO 20450
20440 IF C$=CHR$ &H01 THEN 1530 ELSE 20420
20450 LOCATE 1,2:PRINT " "
20460 LOCATE 1,3:PRINT " "
20470 LOCATE 6,2:PRINT "Ap=";AP;" V=";V
20480 LOCATE 5,3:PRINT "Ld=";LD:LOCATE 17,3:PRINT "Lp=";LP:LOCATE 29,3:PRINT "K=";K
20490 GOTO 20400
20500 IF XH$="TPK" THEN 20550
20510 IF XH$="BD" THEN 20620
20520 IF XH$="LK" THEN 20690
20530 IF XH$="SJ" THEN 20750
20540 IF XH$="NF" THEN 20820
20550 REM (1) TUO PU KANG
20555 OPEN "1200,E,7,1,A,L,&H21,N,N" AS #2
20560 RD$=CHR$ 6+"006"+CHR$ 3
20570 PRINT #1,RD$
20580 INPUT #1,C$
20590 H=VAL (MID$ (C$,22,8))/100000:V=VAL (MID$ (C$,13,8))/100000
20600 D=VAL (MID$ (C$,3,9))/10000
20610 GOTO 20920
20620 REM (2) BIN DE
20625 OPEN "1200,N,8,1,A,C,&H1A,N,S" AS #2
20630 PRINT #2,"a"
20640 INPUT #2,C$
20650 H=VAL (MID$ (C$,5,5))+VAL (MID$ (C$,11,2))/100+VAL (MID$ (C$,14,2))/10000
20660 V=VAL (MID$ (C$,20,5))+VAL (MID$ (C$,26,2)/100+VAL (MID$ (C$,29,2))/10000
20670 D=VAL (MID$ (C$,35,8)
20680 GOTO 20920
20690 REM (3) LAI KA
20695 OPEN "2400,E,7,1,A,C,&H1A,N,S" AS #2
20700 INPUT #2,C$
20710 PRINT #2,"?"
20720 H=VAL (MID$ (C$,55,8))/10000:V=VAL (MID$ (C$,71,8))/10000
20730 D=VAL (MID$ (C$,87,9))/10000
20740 GOTO 20920
20750 REM (4) SUO JIA
20755 OPEN "1200,N,8,1,A,L,&H1A,N,S" AS #2
20760 PRINT #2,CHR$ (17)
20770 INPUT #2,C$
20780 PRINT #2,CHR$ (18)
20790 H=VAL (RIGHT$ (C$,8))/10000:V=VAL (MID$ (C$,8,8))/10000
20800 D=VAL (LEFT$ (C$,8))/10000
20810 GOTO 20920
20820 REM (5) NAN FANG
20825 OPEN "1200,N,8,1,A,L,&H1A,N,S" AS #2
20826 MS$="Z34093"+CHR$ &03
20827 CL$="C067"+CHR$ &03
20830 ACK$="006"+CHR$ &03
20840 PRINT #2,MS$
20850 INPUT #2,BCK$
20860 PRINT #2,CL$
20870 INPUT #2,BCK$,SJ$
20880 INPUT #2,ACK$
20900 H=VAL (MID$ (SJ$,20,7))/10000:V=VAL (MID$ (SJ$,12,7))/10000
20910 D=VAL (MID$ (SJ$,3,8))/1000
20920 PAI#=3.141592653589793#:J=V:GOSUB 3770:VV=J
20930 LD=D:AP=H:LP=INT (D*SIN (VV)*1000)/1000:K=INT (D*COS (VV)*1000)/1000
20940 BEEP 1:CLOSE #2
20950 RETURN
21010 *XTZH:CLS
21020 REM ZUO BAIO XI TONG Zhuan Huan
21030 PAI#=3.141592653589793#
21040 PRINT " ZUO BOAO XI TONG ZHUAN HUAN":PRINT
21050 INPUT "YUAN x1=";X1," y1=";Y1," h1=";H1
21060 INPUT " x2=";X2," y2=";Y2," h2=";H2
21070 INPUT "XING X1=";XX1," Y1=";YY1," H1=";HH1
21080 INPUT " X2=";XX2," Y2=";YY2," H2=";HH2
21090 XX=X2-X1+0.0001:YY=Y2-Y1:GOSUB 3810:FW1=FW
21100 XX=XX2-XX1+0.0001:YY=YY2-YY1:GOSUB 3810:FW2=FW
21110 X12=XX1-X1:Y12=YY1-Y1:A12=FW2-FW1:H12=((HH1-H1)+(HH2-H2))/2
21120 PRINT "x=";X12;" y=";Y12
21130 PRINT "a=";:J=A12:GOSUB 3870
21140 PRINT :PRINT "h=";H12
21150 INPUT "YUAN Dang An (***.SJ):";FNAME$
21160 OPEN "E:"+FNAME$+".SJ" FOR INPUT AS #1
21170 INPUT "XING Dang An (***.SJ):";FNAME$
21180 OPEN "E:"+FNAME$+".SJ" FOR OUTPUT AS #2
21190 IF EOF (1) THEN 21280
21200 INPUT #1,NO$,BH$,XA,YA,HA
21210 D=SQR ((XA-X1)^2+(YA-Y1)^2)
21220 XX=XA-X1+0.0001:YY=YA-Y1:GOSUB 3810
21230 XB=X1+X12+D*COS (FW+A12):YB=Y1+Y12+D*SIN (FW+A12):HB=HA+H12
21240 XB=INT (XB*1000+0.5)/1000:YB=INT (YB*1000+0.5)/1000:HB=INT (HB*1000+0.5)/1000:
21250 PRINT #2,NO$;",";BH$;",";XB;",";YB;",";HB
21260 PRINT NO$;BH$;" ";XB;" ";YB;" ";HB
21270 GOTO 21190
21280 CLOSE :GOTO 800
21290 *DJSZJL:CLS :CLEAR
21300 LOCATE 5,0:PRINT "DENG JI SHUI ZHUNG CE LIANG"
21310 LOCATE 10,1:PRINT "(3) DENG (4) DENG"
21320 LOCATE 15,3:INPUT "DJ=";DJ
21330 IF DJ=3 THEN RSXC=75:RSJ=3:RLJ=6:RDS=2:RGC=3:GOTO 21350
21340 IF DJ=4 THEN RSXC=100:RSJ=5:RLJ=10:RDS=3:RGC=0.005 ELSE 21290
21350 CLS :N=1
21360 DIM SR1(50),SR2(50),SR3(50),SR4(50),SR5(50),SR6(50),SR7(50),SR8(50),KH(50),KQ(50),NA$(50)
21370 DIM SJ1(50),SJ2(50),SJ3(50),SJ4(50),SJ5(50),SJ6(50),SJ7(50),SJ8(50),SJ9(50),SJ10(50)
21380 GOSUB 22390
21390 LOCATE 33,3:PRINT "NP=";NP:BEEP 1
21400 N$="":LOCATE 13,3:INPUT "N=";N$:N=VAL N$
21410 IF N$="+" THEN GOSUB 22410:BEEP 2:GOTO 21390
21420 IF N$="UP" THEN 1880
21430 IF N$="" THEN N=NN+1
21440 IF N>NP+1 THEN BEEP 3:GOTO 21390
21450 CLS :GOSUB 22390
21460 LOCATE 13,3:PRINT "N=";N:LOCATE 33,3:PRINT "NP=";NP
21470 GOSUB 22390
21480 NA$="":LOCATE 20,3:INPUT "H#--Q#?",NA$
21490 IF NA$="" THEN 21520
21500 IF NA$="-" THEN 21390
21510 NA$(N)=NA$
21520 LOCATE 20,3:PRINT NA$(N)
21530 GOSUB 22390
21540 IF N>1 THEN 21640
21550 KH$="":LOCATE 31,0:INPUT "KH=";KH$
21560 IF VAL KH$>0 THEN KH(N)=VAL KH$
21570 IF KH$="-" THEN 21480
21580 IF KH(N)=4787 OR KH(N)=4687 THEN 21590 ELSE BEEP 3:GOTO 21550
21590 GOSUB 22390
21600 KQ$="":LOCATE 31,1:INPUT "KQ=";KQ$
21610 IF VAL KQ$>0 THEN KQ(N)=VAL KQ$
21620 IF KQ$="-" THEN 21550
21630 IF KQ(N)=4787 OR KQ(N)=4687 THEN 21640 ELSE BEEP 3:GOTO 21600
21640 LOCATE 31,0:PRINT "KH=";KH(N)
21650 LOCATE 31,1:PRINT "KQ=";KQ(N):GOSUB 22390
21660 SR1$="":LOCATE 1,0:INPUT "H.ss",SR1$
21670 IF VAL SR1$>0 THEN SR1(N)=VAL SR1$
21680 LOCATE 0,0:PRINT USING " #### ";SR1(N)
21690 IF SR1$="-" THEN 21600
21700 IF SR1(N)<0 OR SR1(N)>3000 THEN BEEP 3:GOTO 21660
21710 SR2$="":LOCATE 1,1:INPUT "H.xs",SR2$
21720 IF VAL SR2$>0 THEN SR2(N)=VAL SR2$
21730 LOCATE 0,1:PRINT USING " #### ";SR2(N)
21740 IF SR2$="-" THEN 21660
21750 IF SR2(N)<0 OR SR2(N)>3000 THEN BEEP 3:GOTO 21710
21760 SJ1(N)=(SR1(N)-SR2(N))/10:IF SJ1(N)<0 OR SJ1(N)>RSXC THEN BEEP 3:GOTO 21660
21770 LOCATE 1,2:PRINT USING "##.#";SJ1(N):GOSUB 22390:BEEP 1
21780 SR3$="":LOCATE 7,0:INPUT "Q.ss",SR3$
21790 IF VAL SR3$>0 THEN SR3(N)=VAL SR3$
21800 LOCATE 6,0:PRINT USING " #### ";SR3(N)
21810 IF SR3$="-" THEN 21710
21820 IF SR3(N)<0 OR SR3(N)>3000 THEN BEEP 3:GOTO 21780
21830 SR4$="":LOCATE 7,1:INPUT "Q.xs",SR4$
21840 IF VAL SR4$>0 THEN SR4(N)=VAL SR4$
21850 LOCATE 6,1:PRINT USING " #### ";SR4(N)
21860 IF SR4$="-" THEN 21780
21870 IF SR4(N)<0 OR SR4(N)>3000 THEN BEEP 3:GOTO 21830
21880 SJ2(N)=(SR3(N)-SR4(N))/10:IF SJ2(N)<0 OR SJ2(N)>RSXC THEN BEEP 3:GOTO 21780
21890 LOCATE 7,2:PRINT USING "##.#";SJ2(N)::GOSUB 22390:BEEP 1
21900 SJ3(N)=SJ1(N)-SJ2(N):IF SJ3(N)>RSJ THEN BEEP 3:GOTO 21660:BEEP 1
21910 LOCATE 1,3:PRINT USING "+#.#";SJ3(N)
21920 SJ4(N)=SJ4(N-1)+SJ3(N):IF SJ4(N)>RLJ THEN BEEP 3:GOTO 21660
21930 LOCATE 7,3:PRINT USING "+#.#";SJ4(N)::GOSUB 22390:BEEP 1
21940 SR5$="":LOCATE 14,0:INPUT "H.he",SR5$
21950 IF VAL SR5$>0 THEN SR5(N)=VAL SR5$
21960 LOCATE 13,0:PRINT USING " #### ";SR5(N)
21970 IF SR5$="-" THEN 21830
21980 IF SR5(N)<0 OR SR5(N)>3000 THEN BEEP 3:GOTO 21940
21990 SR7$="":LOCATE 14,1:INPUT "Q.he",SR7$
22000 IF VAL SR7$>0 THEN SR7(N)=VAL SR7$
22010 LOCATE 13,1:PRINT USING " #### ";SR7(N)
22020 IF SR7$="-" THEN 21940
22030 IF SR7(N)<0 OR SR7(N)>3000 THEN BEEP 3:GOTO 25870
22040 SJ7(N)=(SR5(N)-SR7(N))
22050 LOCATE 13,2:PRINT USING "+####";SJ7(N):GOSUB 22390:BEEP 1
22060 SR8$="":LOCATE 21,1:INPUT "Q.ho",SR8$
22070 IF VAL SR8$>0 THEN SR8(N)=VAL SR8$
22080 LOCATE 20,1:PRINT USING " #### ";SR8(N)
22090 IF SR8$="-" THEN 21990
22100 IF SR8(N)<0 OR SR8(N)>7787 THEN BEEP 3:GOTO 22060
22110 SR6$="":LOCATE 21,0:INPUT "H.h0",SR6$
22120 IF VAL SR6$>0 THEN SR6(N)=VAL SR6$
22130 LOCATE 20,0:PRINT USING " #### ";SR6(N)
22140 IF SR6$="-" THEN 22060
22150 IF SR6(N)<0 OR SR6(N)>7787 THEN BEEP 3:GOTO 22110
22160 SJ8(N)=(SR6(N)-SR8(N))
22170 LOCATE 20,2:PRINT USING "+####";SJ8(N):GOSUB 22390:BEEP 1
22180 SJ5(N)=(KH(N)+SR5(N)-SR6(N))
22190 IF ABS (SJ5(N))>RDS THEN BEEP 3:GOTO 21940
22200 LOCATE 27,0:PRINT USING "+#";SJ5(N)
22210 SJ6(N)=(KQ(N)+SR7(N)-SR8(N))
22220 IF ABS (SJ6(N))>RDS THEN BEEP 3:GOTO 22070
22230 LOCATE 27,1:PRINT USING "+#";SJ6(N)
22240 IF SJ7(N)<SJ8(N) THEN SJ9(N)=SJ7(N)-SJ8(N)+100 ELSE SJ9(N)=SJ7(N)-SJ8(N)-100
22250 LOCATE 27,2:PRINT USING "+#";SJ9(N):GOSUB 22390:GOSUB 22390:BEEP 1
22260 IF SJ7(N)<SJ8(N) THEN SJ10(N)=(SJ7(N)/1000+SJ8(N)/1000-0.1)/2 ELSE SJ10(N)=(SJ7(N)/1000+SJ8(N)/1000+0.1)/2
22270 LOCATE 30,2:PRINT USING "+##.#### ";SJ10(N):GOSUB 22390:BEEP 1
22280 K1=KH(N):K2=KQ(N):KH(N+1)=K2:KQ(N+1)=K1
22290 IF N>NP THEN NP=NP+1
22300 OPEN "E:SZ.JL" FOR OUTPUT AS #1
22310 FOR I=1 TO NP
22320 PRINT #1,STR$ I;",";NA$(I);",";STR$ SR1(I);",";STR$ SR3(I);",";STR$ SR5(I);",";STR$ SR6(I);",";STR$ SJ5(I)
22330 PRINT #1,",";STR$ KH(I);",";STR$ SR2(I);",";STR$ SR4(I);",";STR$ SR7(I);",";STR$ SR8(I);",";STR$ SJ6(I)
22340 PRINT #1,",";STR$ KQ(I);",";STR$ SJ1(I);",";STR$ SJ2(I);",";STR$ SJ7(I);",";STR$ SJ8(I);",";STR$ SJ9(I);",";STR$ SJ10(I)
22350 PRINT #1,",";",";STR$ SJ3(I);",";STR$ SJ4(I)
22360 NEXT I
22370 CLOSE
22380 NN=N:GOTO 21390
22390 LINE (0,0)-(0,31):LINE (36,0)-(36,31):LINE (73,0)-(73,31):LINE (113,0)-(113,23)
22400 LINE (155,0)-(155,23):LINE (180,0)-(180,23):LINE (239,0)-(239,31):LINE (73,23)-(239,23):RETURN
22410 OPEN "E:SZ.JL" FOR INPUT AS #1
22420 IF EOF (1) THEN 22480
22430 INPUT #1,I,NA$(I),SR1(I),SR3(I),SR5(I),SR6(I),SJ5(I)
22440 INPUT #1,KK,KH(I),SR2(I),SR4(I),SR7(I),SR8(I),SJ6(I)
22450 INPUT #1,KK,KQ(I),SJ1(I),SJ2(I),SJ7(I),SJ8(I),SJ9(I),SJ10(I)
22460 INPUT #1,KK,KK,SJ3(I),SJ4(I)
22470 GOTO 22420
22480 CLOSE :NP=I:RETURN
22490 *DXJL:CLS :CLEAR
22500 PAI#=3.141592653589793#:N=1
22510 DIM NO$(100),HO(100),NA$(100),HA(100),NB$(100),HB(100),JO(100)
22520 DIM JA(100,4),HDA(100,4),VDA(100,4)
22530 DIM JB(100,4),HDB(100,4),VDB(100,4)
22540 DIM JAB(100,4)
22550 CLS :LOCATE 0,0:PRINT "NP=";NP:BEEP 1
22560 N$="":LOCATE 8,0:INPUT "N=";N$:N=VAL N$
22570 IF N$="+" THEN GOSUB 23550:BEEP 2:GOTO 22550
22580 IF N$="UP" THEN 1880
22590 IF N$="" THEN N=NN+1
22600 IF N>NP+1 THEN BEEP 3:GOTO 22550
22610 LOCATE 8,0:PRINT "N=";N:MM=1
22620 M$="":LOCATE 16,0:INPUT "m=";M$:M=VAL M$
22630 IF M$="-" THEN 22550
22640 IF M$="" THEN M=MM
22650 IF M>4 THEN BEEP 3:GOTO 22620
22660 LOCATE 16,0:PRINT "m=";M
22670 IF M>1 THEN 22920
22680 NO$="":LOCATE 0,2:INPUT "O# ",NO$
22690 IF NO$="-" THEN 22620
22700 IF NO$<>"" THEN NO$(N)=NO$
22710 LOCATE 0,2:PRINT USING "&&&&&&";NO$(N)
22720 HO$="":LOCATE 7,2:INPUT "Ho ",HO$
22730 IF HO$="-" THEN 22680
22740 IF HO$<>"" THEN HO(N)=VAL HO$
22750 LOCATE 7,2:PRINT USING "#.###";HO(N)
22760 NA$="":LOCATE 0,1:INPUT "A# ",NA$
22770 IF NA$="-" THEN 22720
22780 IF NA$<>"" THEN NA$(N)=NA$
22790 LOCATE 0,1:PRINT USING "&&&&&&";NA$(N)
22800 HA$="":LOCATE 7,1:INPUT "Ha ",HA$
22810 IF HA$="-" THEN 22760
22820 IF HA$<>"" THEN HA(N)=VAL HA$
22830 LOCATE 7,1:PRINT USING "#.###";HA(N)
22840 NB$="":LOCATE 0,3:INPUT "B# ",NB$
22850 IF NB$="-" THEN 22800
22860 IF NB$<>"" THEN NB$(N)=NB$
22870 LOCATE 0,3:PRINT USING "&&&&&&";NB$(N)
22880 HB$="":LOCATE 7,3:INPUT "Hb ",HB$
22890 IF HB$="-" THEN 22840
22900 IF HB$<>"" THEN HB(N)=VAL HB$
22910 LOCATE 7,3:PRINT USING "#.###";HB(N)
22920 JA$="":LOCATE 14,1:INPUT "Ja ",JA$
22930 IF JA$="-" THEN 22880
22940 IF JA$="CJ" THEN 23060
22950 IF JA$<>"" THEN JA(N,M)=VAL JA$
22960 LOCATE 14,1:PRINT USING "###.####";JA(N,M)
22970 HDA$="":LOCATE 23,1:INPUT "HDa ",HDA$
22980 IF HDA$="-" THEN 22920
22990 IF HDA$<>"" THEN HDA(N,M)=VAL HDA$
23000 LOCATE 23,1:PRINT USING "####.###";HDA(N,M)
23010 VDA$="":LOCATE 32,1:INPUT "VDa ",VDA$
23020 IF VDA$="-" THEN 22970
23030 IF VDA$<>"" THEN VDA(N,M)=VAL VDA$
23040 LOCATE 32,1:PRINT USING "+###.###";VDA(N,M)
23050 GOTO 23110
23060 GOSUB *YQXZ:GOSUB 20500
23070 JA(N,M)=AP:HDA(N,M)=LP:VDA(N,M)=K
23080 LOCATE 14,1:PRINT USING "###.####";JA(N,M)
23090 LOCATE 23,1:PRINT USING "####.###";HDA(N,M)
23100 LOCATE 32,1:PRINT USING "+###.###";VDA(N,M)
23110 BEEP 1:JB$="":LOCATE 14,3:INPUT "Jb ",JB$
23120 IF JB$="-" THEN 23010
23130 IF JB$="CJ" THEN 23250
23140 IF JB$<>"" THEN JB(N,M)=VAL JB$
23150 LOCATE 14,3:PRINT USING "###.####";JB(N,M)
23160 HDB$="":LOCATE 23,3:INPUT "HDb ",HDB$
23170 IF HDB$="-" THEN 23110
23180 IF HDB$<>"" THEN HDB(N,M)=VAL HDB$
23190 LOCATE 23,3:PRINT USING "####.###";HDB(N,M)
23200 VDB$="":LOCATE 32,3:INPUT "VDb ",VDB$
23210 IF VDB$="-" THEN 23160
23220 IF VDB$<>"" THEN VDB(N,M)=VAL VDB$
23230 LOCATE 32,3:PRINT USING "+###.###";VDB(N,M)
23240 GOTO 23300
23250 GOSUB *YQXZ:GOSUB 20500
23260 JB(N,M)=AP:HDB(N,M)=LP:VDB(N,M)=K
23270 LOCATE 14,3:PRINT USING "###.####";JB(N,M)
23280 LOCATE 23,3:PRINT USING "####.###";HDB(N,M)
23290 LOCATE 32,3:PRINT USING "+###.###";VDB(N,M)
23300 BEEP 1:SRA=JA(N,M):SRB=JB(N,M):GOSUB 23630
23310 JAB(N,M)=SJ
23320 LOCATE 14,2:PRINT USING "###.####";JAB(N,M)
23330 IF M<4 THEN MM=M+1:BEEP 1:GOTO 22620
23340 J=JAB(N,1):GOSUB 3770:SJ1=J
23350 J=JAB(N,2):GOSUB 3770:SJ2=J
23360 J=JAB(N,3):GOSUB 3770:SJ3=J
23370 J=JAB(N,4):GOSUB 3770:SJ4=J
23380 J=(SJ1+SJ2+SJ3+SJ4)/4
23390 IF J<0 THEN J=J+2*PAI#
23400 IF J>2*PAI# THEN J=J-2*PAI#
23410 J=J*180/PAI#:JD=INT (J):JF=INT (J*60-JD*60):JM=(J-JD-JF/60)*3600
23420 JM=INT (JM+0.5)
23430 JO(N)=(JD*10000+JF*100+JM)/10000
23440 LOCATE 23,2:PRINT USING "(###.####)";JO(N):BEEP 3
23450 IF N>NP THEN NP=NP+1
23460 OPEN "E:DX.JL" FOR OUTPUT AS #1
23470 FOR I=1 TO NP
23480 PRINT #1,I;",,";1;",";JA(I,1);",";JB(I,1);",";JAB(I,1);",";JO(I);",";HDA(I,1);",";HDA(I,2);",";VDA(I,1);",";VDA(I,2)
23490 PRINT #1,NA$(I);",";HA(I);",";2;",";JA(I,2);",";JB(I,2);",";JAB(I,2);",,";HDA(I,3);",";HDA(I,4);",";VDA(I,3);",";VDA(I,4)
23500 PRINT #1,NO$(I);",";HO(I);",";3;",";JA(I,3);",";JB(I,3);",";JAB(I,3);",,";HDB(I,1);",";HDB(I,2);",";VDB(I,1);",";VDB(I,2)
23510 PRINT #1,NB$(I);",";HB(I);",";4;",";JA(I,4);",";JB(I,4);",";JAB(I,4);",,";HDB(I,3);",";HDB(I,4);",";VDB(I,3);",";VDB(I,4)
23520 NEXT I
23530 CLOSE
23540 NN=N:GOTO 22550
23550 OPEN "E:DX.JL" FOR INPUT AS #1
23560 IF EOF (1) THEN 23620
23570 INPUT #1,I,KK,P,JA(I,1),JB(I,1),JAB(I,1),JO(I),HDA(I,1),HDA(I,2),VDA(I,1),VDA(I,2)
23580 INPUT #1,NA$(I),HA(I),P,JA(I,2),JB(I,2),JAB(I,2),KK,HDA(I,3),HDA(I,4),VDA(I,3),VDA(I,4)
23590 INPUT #1,NO$(I),HO(I),P,JA(I,3),JB(I,3),JAB(I,3),KK,HDB(I,1),HDB(I,2),VDB(I,1),VDB(I,2)
23600 INPUT #1,NB$(I),HB(I),P,JA(I,4),JB(I,4),JAB(I,4),KK,HDB(I,3),HDB(I,4),VDB(I,3),VDB(I,4)
23610 GOTO 23560
23620 CLOSE #1:NP=I:RETURN
23630 J=SRA:GOSUB 3770:SRA=J
23640 J=SRB:GOSUB 3770:SRB=J
23650 J=(SRB-SRA)
23660 IF J<0 THEN J=J+2*PAI#
23670 IF J>2*PAI# THEN J=J-2*PAI#
23680 J=J*180/PAI#:JD=INT (J):JF=INT (J*60-JD*60):JM=(J-JD-JF/60)*3600
23690 JM=INT (JM+0.5)
23700 SJ=(JD*10000+JF*100+JM)/10000:RETURN
23710 *SDFY:CLS
23720 PRINT :PRINT " XIAN LU MING CHENG":PRINT
23730 INPUT " BIAN HAO:";FNAME$
23740 IF FNAME$="UP" OR FNAME$="up" THEN 1030
23750 GOSUB *TQZB
23760 GOSUB *TQDM:CLS
23770 DIM BH$(30),KD(30),GC(30)
23780 OPEN "E:"+FNAME$+".SD" FOR INPUT AS #1
23790 P=1
23800 IF EOF (1) THEN 23830
23810 INPUT #1,BH$(P),KD(P),GC(P)
23820 P=P+1:GOTO 23800
23830 CLOSE #1:BEEP 3
23840 *SDFY1:GOSUB *CZSZ
23860 *SDFY2:CLS
23865 INPUT "SHU JU TI QU 1)ZD 2)SR :";SJTQ
23866 IF SJTQ=1 THEN GOSUB *YQXZ
23870 PRINT "K=";KK;:INPUT KK
23900 IF KK=-1 THEN 23840
23910 PRINT "I=";IG;:INPUT IG
23920 PRINT "N#=";DH$;:INPUT DH$
23930 IF SJTQ=1 THEN GOSUB 20500 ELSE INPUT "FANG WEI JIAO AP=";AP:INPUT "PING JU LP=";LP:INPUT "GAO CA K=";K
23940 J=AP:GOSUB 3770:AP1=J+FW0-JA0
23950 XC=X0+LP*COS AP1:XC=INT (XC*1000+0.5)/1000:XC$=STR$ XC
23955 YC=Y0+LP*SIN AP1:YC=INT (YC*1000+0.5)/1000:YC$=STR$ YC
23960 HC=HT+K-IG:HC=INT (HC*1000+0.5)/1000:HC$=STR$ HC
23970 PRINT "X=";XC$;" Y=";YC$;" H=";HC$
24000 FY$="2":GOSUB 20180
24090 V=ZA:GOSUB 4820:PRINT " N#=";DH$
24100 QL=ZA:L#=ABS (QL):GOSUB *DMJS
24150 FOR N=1 TO P-1
24160 IF DH$=BH$(N) THEN KDS=KD(N):GCS=GC(N):GOTO 24172
24170 NEXT N
24172 KDC=INT (KD*1000+0.5)/1000:GCC=HC-H3:KDWC=KDS-KDC:GCWC=GCS-GCC
24173 IF KDWC < 0 THEN KDJT$ = "Z "
24174 IF KDWC = 0 THEN KDJT$ = " "
24175 IF KDWC > 0 THEN KDJT$ = "Y "
24176 IF GCWC < 0 THEN GCJT$ = "X "
24177 IF GCWC = 0 THEN GCJT$ = " "
24178 IF GCWC > 0 THEN GCJT$ = "S "
24180 PRINT USING "KDs=###.###";KDS;:PRINT USING " KDc=###.###";KDC;:PRINT " KDw=";KDJT$;:PRINT USING "###.###";ABS KDWC
24182 PRINT USING "GCs=###.###";GCS;:PRINT USING " GCc=###.###";GCC;:PRINT " GCw=";GCJT$;:PRINT USING "###.###";ABS GCWC
24184 IF KDS <0 THEN XJJ=1.5*PAI#:KD=ABS KDS ELSE XJJ=0.5*PAI#:KD=ABS KDS
24185 GOSUB *ZBJS:DV=SQR ((X0-XP)^2+(Y0-YP)^2):HV=H3+GCS-HT
24186 X=XP:Y=YP:GOSUB 3790:JJ=FW-FW0:JAP=JA0+JJ
24187 IF JAP<0 THEN JAP=JAP+2*PAI#
24188 IF JAP>2*PAI# THEN JAP=JAP-2*PAI#
24189 PRINT "TUI SUAN a=";:J=JAP:GOSUB 3870
24190 XX0=X0:YY0=Y0:X0=0:Y0=0:X=HV:Y=DV:GOSUB 3790:JAP=FW:X0=XX0:Y0=YY0
24192 IF JAP<0 THEN JAP=JAP+2*PAI#
24193 IF JAP>2*PAI# THEN JAP=JAP-2*PAI#
24194 PRINT " V=";:J=JAP:GOSUB 3870:PRINT
24200 BEEP 1:KK=ZA:IN$=INPUT $(1):GOTO 23870
24210 *DMDA:CLS
24220 PRINT " XIAN LU MING CHENG":PRINT
24230 INPUT " BIAN HAO:";FNAME$
24240 IF FNAME$="UP" OR FNAME$="up" THEN 800
24250 GOSUB *TQDM
24260 N0=1:CLS
24270 INPUT "SHU JU 1)ZI DONG 2)DU QU:";YSJ
24280 IF YSJ=1 OR YSJ=2 THEN 24290 ELSE 24270
24290 INPUT "SAVE Dang An Ming (***.DAD):";FNAME$
24300 OPEN "E:"+FNAME$+".DAD" FOR OUTPUT AS #1
24310 IF YSJ=1 THEN 24360
24320 OPEN "E:LS.SJ" FOR INPUT AS #2
24330 IF EOF (2) THEN 24460
24340 INPUT #2,ZA
24350 GOTO 24400
24360 INPUT "Zhuang Ju DL=";DL
24370 INPUT "Qi Dian Zhuang Hao Ka=";ZA
24380 INPUT "Zong Dian Zhuang Hao Kb=";ZB
24390 IF ZA>ZB OR ZA>BP#(NS+1)THEN 24460
24400 PRINT N0;:V=ZA:GOSUB 4830:PRINT
24410 QL=ZA:L#=ABS (QL):GOSUB *DMJS
24420 NA$=V$
24430 PRINT #1,NA$;",";L1;",";HI1;",";H1;",";L2;",";HI2;",";H2;",";H3;",";L4;",";HI4;",";H4;",";L5;",";HI5;",";H5
24440 ZA=ZA+DL:N0=N0+1
24450 IF YSJ=1 THEN 24390 ELSE 24330
24460 BEEP 3:CLOSE :GOTO 800
24470 *BPFY:CLS
24480 PRINT :PRINT " XIAN LU MING CHENG":PRINT
24490 INPUT " BIAN HAO:";FNAME$
24500 IF FNAME$="UP" OR FNAME$="up" THEN 1030
24510 GOSUB *TQZB
24520 GOSUB *TQDM:CLS
24530 *BPFY1:CLOSE :GOSUB *CZSZ
24540 *BPFY2:CLOSE :CLS
24545 INPUT "SHU JU TI QU 1)ZD 2)SR :";SJTQ
24550 IF SJTQ=1 THEN GOSUB *YQXZ
24560 OPEN "E:BPFY.JL" FOR APPEND AS #1
24570 PRINT " FANG YANG LEI XING":PRINT " 1)LI CHENG 2)RENG YI 3)UP/HS":PRINT
24580 INPUT " LX=";FY$
24590 IF FY$="3" THEN *BPFY1
24600 IF FY$="1" THEN CLS :PRINT "Xia Liang Gao =";XLG;:INPUT XLG:PRINT "Zhuang JU DL =";DL;:INPUT DL
24610 IF FY$="2" THEN :CLS :PRINT "Xia Liang Gao =";XLG;:INPUT XLG ELSE 24570
24620 IF FY$="1" THEN 24690 ELSE 24630
24630 PRINT "LI CHENG(-1) K=";KK;:INPUT KK:IF KK=-1 THEN *BPFY1
24640 GOTO 24920
24650 GOSUB 20180
24660 IF KD>0 THEN FX$="Y" ELSE FX$="Z"
24670 KD=ABS KD:V=ZA:GOSUB 4820:PRINT " FX=";FX$;" KD=";KD
24680 GOTO 24990
24690 ZA$="":INPUT "Zhuang hao (+/-/UP):";ZA$:ZA=VAL (ZA$)
24700 IF ZA$="+" THEN ZA=ZAS+DL
24710 IF ZA$="-" THEN ZA=ZAS-DL
24720 IF ZA$="" THEN ZA=ZAS
24730 IF ZA$="UP" THEN *BPFY1
24735 PZA=ZA:GOSUB *ZHTOLC
24740 IF LCK<HZ(0) OR LCK>HZ(NN) THEN BEEP 1:PRINT " K=";HZ(0);"-->";INT (HZ(NN)*1000+0.5)/1000:GOTO 24690
24750 PRINT "Fang Xiang 1)Zuo 2)You :";FX;:INPUT FX
24760 IF FX=1 OR FX=2 THEN 24770 ELSE 24750
24770 J=90:GOSUB 3770:XJJ=J
24780 IF FX=1 THEN XJJ=XJJ+PAI#
24790 IF FX=2 THEN XJJ=XJJ
24800 PRINT "Lu Mian Kuan Du KD=";KD;:INPUT KD
24810 GOSUB *ZBJS:D0=SQR ((X0-XP)^2+(Y0-YP)^2):V=ZA:GOSUB 4820
24820 IF FX=1 THEN FX$="Z" ELSE FX$="Y"
24830 PRINT " FX=";FX$;" KD=";KD
24840 PRINT USING " X=########.###";XP;:PRINT USING " Y=########.###";YP
24850 XX=XP-X0+0.0001:YY=YP-Y0:GOSUB 3810:JJ=FW-FW0:JAP=JA0+JJ
24860 IF JAP<0 THEN JAP=JAP+2*PAI#
24870 IF JAP>2*PAI# THEN JAP=JAP-2*PAI#
24880 PRINT " Ap=";:J=JAP:GOSUB 3870
24890 PRINT USING " D0=######.###";D0
24900 INPUT "CAI JI (Y/N):";CJ$
24910 IF CJ$="Y" THEN 24920 ELSE 24690
24920 PRINT "JING GAO I=";IG;:INPUT IG
24930 IF SJTQ=1 THEN GOSUB 20500 ELSE INPUT "FANG WEI JIAO AP=";AP:INPUT "PING JU LP=";LP:INPUT "GAO CA K=";K
24940 J=AP:GOSUB 3770:AP1=J+FW0-JA0
24950 XC=X0+LP*COS AP1:YC=Y0+LP*SIN AP1:HC=HT+K-IG
24960 XC=INT (XC*1000+0.5)/1000:YC=INT (YC*1000+0.5)/1000:HC=INT (HC*1000+0.5)/1000
24970 PRINT USING "X=########.###";XC;:PRINT USING " Y=########.###";YC;:PRINT USING " H=####.###";HC
24980 IF FY$="1" THEN 24990 ELSE 24650
24990 QL=ZA:L#=ABS (QL):GOSUB *DMJS
25000 IF FX$="Z" THEN LJK=L1:HZZ=H1 ELSE LJK=L5:HZZ=H5
25010 HZZ=INT (HZZ*1000+0.5)/1000-XLG
25020 HI=HZZ-HC:HI=INT (HI*1000+0.5)/1000
25030 PRINT "HZ=";HZZ;" HC=";HC;" HI=";HI
25040 PRINT "LU JI KUAN LJK=";LJK
25050 PRINT "BIAN GOU KUAN BGK=";BGK;:INPUT BGK
25060 PRINT "PING TI KUAN PTK=";PTK;:INPUT PTK
25070 PRINT "PO DU (1) PD1=";PD1;:INPUT PD1
25080 PRINT "PO GAO(1) PG1=";PG1;:INPUT PG1
25090 PRINT "PO DU (2) PD2=";PD2;:INPUT PD2
25100 KD1=LJK+BGK+PTK:KD1=INT (KD1*1000+0.5)/1000
25110 KD2=PG1*PD1:KD2=INT (KD2*1000+0.5)/1000
25120 PG2=ABS (HI)-PG1:KD3=PG2*PD2:KD3=INT (KD3*1000+0.5)/1000
25130 PRINT "PD1=";PD1;"PG1=";PG1;"PD2=";PD2;"PG2=";PG2
25140 KS=KD1+KD2+KD3:LD=KS-KD
25150 PRINT "LJ=";LJK;"BG=";BGK;"PT=";PTK;"HI=";HI
25160 ZA=INT (ZA*10+0.5)/10
25170 V=ZA:GOSUB 4820:PRINT " KS=";KS;"KC=";KD;"LD=";LD
25180 XCJ$="":INPUT "SAVE SHU JU (Y/N):";XCJ$
25190 IF XCJ$="Y" THEN 25200 ELSE 25230
25200 PRINT #1,ZA;",";FX$;",";XC;",";YC;",";HC;",";HZZ;",";HI;",";
25210 PRINT #1,LJK;",";BGK;",";PTK;",";KD2;",";KD3;",";KS;",";
25220 PRINT #1,PD1;",";PG1;",";PD2;",";PG2
25230 ZAS=ZA:KD=KS:KK=ZA
25240 GOTO 24620
25250 *DLFY:CLS
25260 PRINT :PRINT " XIAN LU MING CHENG":PRINT
25270 INPUT " BIAN HAO:";FNAME$
25280 IF FNAME$="UP" OR FNAME$="up" THEN 1030
25290 GOSUB *TQZB
25300 GOSUB *TQDM:CLS
25310 *DLFY1:CLOSE :GOSUB *CZSZ
25320 *DLFY2:CLOSE :CLS
25325 INPUT "SHU JU TI QU 1)ZD 2)SR :";SJTQ
25330 IF SJTQ=1 THEN GOSUB *YQXZ
25340 OPEN "E:DLFY.SJ" FOR APPEND AS #1
25350 PRINT " FANG YANG LEI XING":PRINT " 1)LI CHENG 2)RENG YI 3)UP/HS":PRINT
25360 INPUT " LX=";FY$
25370 IF FY$="3" THEN *DLFY1
25380 IF FY$="1" THEN CLS :INPUT "Xia Liang Gao =";HXL:INPUT "Zhuang JU DL =";DL:GOTO 25400
25390 IF FY$="2" THEN CLS :INPUT "Xia Liang Gao =";HXL:INPUT "Dao Ling Kuan =";DLK ELSE 25350
25400 IF FY$="1" THEN 25610 ELSE 25410
25410 PRINT "LI CHENG(-1) K=";KK;:INPUT KK:IF KK=-1 THEN *DLFY1
25420 PRINT "JING GAO I=";IG;:INPUT IG
25430 IF SJTQ=1 THEN GOSUB 20500 ELSE INPUT "FANG WEI JIAO AP=";AP:INPUT "PING JU LP=";LP:INPUT "GAO CA K=";K
25440 J=AP:GOSUB 3770:AP1=J+FW0-JA0
25450 XC=X0+LP*COS AP1:YC=Y0+LP*SIN AP1:HC=HT+K-IG
25460 XC=INT (XC*1000+0.5)/1000:YC=INT (YC*1000+0.5)/1000:HC=INT (HC*1000+0.5)/1000
25470 PRINT USING "X=########.###";XC;:PRINT USING " Y=########.###";YC;:PRINT USING " H=####.###";HC
25480 GOSUB 20180
25490 IF KD>0 THEN FX$="Y" ELSE FX$="Z"
25500 KD=ABS KD:V=ZA:GOSUB 4820:PRINT " FX=";FX$;" KD=";KD
25510 QL=ZA:L#=ABS (QL):GOSUB *DMJS
25520 HSZ=H3
25530 IF FX$="Z" THEN HSB=H1:KDS=L1 ELSE HSB=H5:KDS=L5
25540 PB=(HSB-HSZ)/KDS
25550 KDSJ=KDS-DLK:KDC=KD:KDWC=KDSJ-KDC
25560 HSJ=HSZ+KD*PB-HXL:HSJ=INT (HSJ*1000+0.5)/1000
25570 HGC=HSJ-HC
25580 PRINT "KDSJ=";KDSJ;" KDC=";KDC;" KDWC=";KDWC
25590 PRINT "HSJ=";HSJ;" HC=";HC;" HGC=";HGC
25600 XP=XC:YP=YC:GOTO 26020
25610 ZA$="":INPUT "Zhuang hao (+/-/HS/UP):";ZA$:ZA=VAL (ZA$)
25620 IF ZA$="+" THEN ZA=ZAS+DL
25630 IF ZA$="-" THEN ZA=ZAS-DL
25640 IF ZA$="" THEN ZA=ZAS
25650 IF ZA$="HS" THEN *DLFY1
25660 IF ZA$="UP" OR ZA$="up" THEN *DLFY1
25665 PZA=ZA:GOSUB *ZHTOLC
25670 IF LCK<HZ(0) OR LCK>HZ(NN) THEN BEEP 1:PRINT " K=";HZ(0);"-->";INT (HZ(NN)*1000+0.5)/1000:GOTO 25610
25680 PRINT "Fang Xiang 1)Zuo 2)You :(";FX;")";:INPUT FX
25690 IF FX=1 OR FX=2 THEN 25700 ELSE 25680
25700 J=90:GOSUB 3770:XJJ=J
25710 IF FX=1 THEN XJJ=XJJ+PAI#
25720 IF FX=2 THEN XJJ=XJJ
25730 PRINT "Lu Mian Kuan Du (+-) KD=(";KD$;")";:INPUT KD$:QD$=LEFT$ (KD$,1)
25740 QL=ZA:L#=ABS (QL):GOSUB *DMJS
25750 HSZ=H3
25760 IF FX=1 THEN HSB=H1:KDS=L1 ELSE HSB=H5:KDS=L5
25770 PB=(HSB-HSZ)/KDS
25780 IF QD$="-" THEN KD=KDS+VAL KD$ ELSE KD=VAL KD$
25790 HSJ=HSZ+KD*PB-HXL:HSJ=INT (HSJ*1000+0.5)/1000
25810 GOSUB *ZBJS:D0=SQR ((X0-XP)^2+(Y0-YP)^2)
25820 IF FX=1 THEN FX$="Z" ELSE FX$="Y"
25830 V=ZA:GOSUB 4820:PRINT " FX=";FX$;" KD=";KD;" HXL=";HXL
25840 PRINT USING "X=########.###";XP;:PRINT USING " Y=########.###";YP
25850 XX=XP-X0+0.0001:YY=YP-Y0:GOSUB 3810:JJ=FW-FW0:JAP=JA0+JJ
25860 IF JAP<0 THEN JAP=JAP+2*PAI#
25870 IF JAP>2*PAI# THEN JAP=JAP-2*PAI#
25880 PRINT "Ap=";:J=JAP:GOSUB 3870
25890 PRINT USING " D0=####.###";D0
25900 CJ$="":INPUT "CAI JI (Y/N):";CJ$
25910 IF CJ$="Y" THEN 25930
25920 IF CJ$="N" THEN 26050 ELSE 25900
25930 PRINT "JING GAO I=";IG;:INPUT IG
25940 IF SJTQ=1 THEN GOSUB 20500 ELSE INPUT "GAO CA K=";K
25950 HC=HT+K-IG:HC=INT (HC*1000+0.5)/1000
26020 PRINT "SAVE (Y/N)=";SJBC$;:INPUT SJBC$
26030 IF SJBC$="Y" THEN OPEN "E:DLFY.JL" FOR APPEND AS #1 ELSE 26050
26035 INPUT "BIAN HAO =";NA$
26040 PRINT #1,V$;",";NA$;",";FX$;",";KD;",";XP;",";YP;",";HSJ;",";HC;",";HGC:CLOSE #1
26050 ZAS=ZA:KK=ZA
26060 GOTO 25400
26070 *DLGC:CLS
26080 PRINT :PRINT " XIAN LU MING CHENG":PRINT
26090 INPUT " BIAN HAO:";FNAME$
26100 IF FNAME$="UP" OR FNAME$="up" THEN 110
26110 GOSUB *TQZB
26120 GOSUB *TQDM:CLS
26130 *DLGC2:INPUT "Zhuang JV DL=";DL
26140 ZA$="":INPUT "Zhuang hao (UP/+/-):";ZA$:ZA=VAL (ZA$)
26150 IF ZA$="+" THEN ZA=ZAS+DL
26160 IF ZA$="-" THEN ZA=ZAS-DL
26170 IF ZA$="" THEN ZA=ZAS
26180 IF ZA$="UP" OR ZA$="up" THEN 1030
26190 ZA0=ZA:IF ZA<HZ(0) OR ZA>HZ(NN) THEN BEEP 1:PRINT " K=";HZ(0);"-->";INT (HZ(NN)*1000+0.5)/1000:GOTO 26140
26200 PRINT "Fang Xiang 1)Zuo 2)You :";FX$;:INPUT FX$
26210 IF FX$="1" OR FX$="2" THEN 26220 ELSE 26200
26220 PRINT "Xie Jiao Jiao Du Aj=";JJ$;:INPUT JJ$
26230 J=VAL JJ$:GOSUB 3770:XJJ=J
26240 IF FX$="1" THEN XJJ=XJJ+PAI#
26250 IF FX$="2" THEN XJJ=XJJ
26260 PRINT "Lu Mian Kuan Du KD=";KD$;:INPUT KD$:KD=VAL KD$
26270 PZA=ZA:GOSUB *ZHTOLC:GOSUB *ZBJS
26280 XC=XP:YC=YP
26290 K=1000:KD=0
26300 PZA=ZA:GOSUB *ZHTOLC:GOSUB *ZBJS:FW1=FQX:DD=SQR ((XC-XP)^2+(YC-YP)^2)
26310 XX=XC-XP+0.0001:YY=YC-YP:GOSUB 3810:FW2=FW
26320 FJ=FW2-FW1
26330 D1=DD*COS (FJ):D2=DD*SIN (FJ)
26340 IF ABS D1<0.001 THEN 26360
26350 ZA=ZA+D1:GOTO 26300
26360 ZA=INT (ZA*K+0.5)/K:KD=INT (D2*K+0.5)/K
26370 XC=INT (XC*K+0.5)/K:YC=INT (YC*K+0.5)/K
26380 QL=ZA:L#=ABS (QL):GOSUB *DMJS
26390 HSZ=H3
26400 IF FX$="1" THEN HSB=H1:KDS=L1 ELSE HSB=H5:KDS=L5
26410 PB=(HSB-HSZ)/KDS
26420 HSJ=HSZ+KD*PB:HSJ=INT (HSJ*1000+0.5)/1000
26430 V=ZA0:GOSUB 4820
26440 PRINT " FX=";FX$;" J=";JJ$;" KD=";KD$
26450 V=ZA:GOSUB 4820
26460 PRINT " fx=";FX$;" j=90 kd=";KD
26470 PRINT XC;" ";YC;" ";HSJ
26480 ZAS=ZA0:GOTO 26140
26490 *SWDA:CLS
26500 PRINT :PRINT " XIAN LU MING CHENG":PRINT
26510 INPUT " BIAN HAO:";FNAME$
26520 IF FNAME$="UP" OR FNAME$="up" THEN 800
26530 GOSUB *TQZB
26540 GOSUB *TQDM:CLS
26550 INPUT "SAVE Dang An Ming (***.DAQ):";FNAME$
26560 OPEN "E:"+FNAME$+".DAQ" FOR OUTPUT AS #1
26570 N0=1
26580 INPUT "Qi Dian Zhuang Hao Ka=";ZA
26590 INPUT "Zong Dian Zhuang Hao Kb=";ZB
26600 INPUT "Zhuang Ju DL=";DL
26610 IF ZA>ZB OR ZA>HZ(NN) OR ZA>BP#(NS+1)THEN 26810
26620 PRINT N0;:V=ZA:GOSUB 4830:PRINT
26630 QL=ZA:L#=ABS (QL):GOSUB *DMJS
26640 JD=90:KD=L1:J=JD:GOSUB 3770:XJJ=J+PAI#
26650 PZA=ZA:GOSUB *ZHTOLC:GOSUB *ZBJS:X1=INT (XP*K+0.5)/K:Y1=INT (YP*K+0.5)/K
26660 JD=90:KD=L2:J=JD:GOSUB 3770:XJJ=J+PAI#
26670 PZA=ZA:GOSUB *ZHTOLC:GOSUB *ZBJS:X2=INT (XP*K+0.5)/K:Y2=INT (YP*K+0.5)/K
26680 JD=90:KD=0:J=JD:GOSUB 3770:XJJ=J+PAI#
26690 PZA=ZA:GOSUB *ZHTOLC:GOSUB *ZBJS:X3=INT (XP*K+0.5)/K:Y3=INT (YP*K+0.5)/K
26700 JD=90:KD=L4:J=JD:GOSUB 3770:XJJ=J
26710 PZA=ZA:GOSUB *ZHTOLC:GOSUB *ZBJS:X4=INT (XP*K+0.5)/K:Y4=INT (YP*K+0.5)/K
26720 JD=90:KD=L5:J=JD:GOSUB 3770:XJJ=J
26730 PZA=ZA:GOSUB *ZHTOLC:GOSUB *ZBJS:X5=INT (XP*K+0.5)/K:Y5=INT (YP*K+0.5)/K
26740 L1$=STR$ L1:L5$=STR$ L5:X1$=STR$ X1:Y1$=STR$ Y1:H1$=STR$ H1
26750 X2$=STR$ X2:Y2$=STR$ Y2:H2$=STR$ H2:X3$=STR$ X3:Y3$=STR$ Y3:H3$=STR$ H3
26760 X4$=STR$ X4:Y4$=STR$ Y4:H4$=STR$ H4:X5$=STR$ X5:Y5$=STR$ Y5:H5$=STR$ H5
26770 PRINT #1,V$;",";L1$;",";L5$;",";X1$;",";Y1$;",";H1$;",";X2$;",";Y2$;",";H2$;",";
26780 PRINT #1,X3$;",";Y3$;",";H3$;",";X4$;",";Y4$;",";H4$;",";X5$;",";Y5$;",";H5$
26790 ZA=ZA+DL:N0=N0+1
26800 GOTO 26610
26810 BEEP 3:CLOSE :GOTO 800
26820 *ZBZS:CLS
26830 CLEAR :RADIAN :PAI#=3.141593653589793#
26840 INPUT "X0=";X0,"Y0=";Y0,"AP=";AP,"LP=";LP
26850 J=AP:JD=INT (J):JF=INT (J*100-JD*100+0.1)
26860 JM=J*10000-JD*10000-JF*100
26870 J=(JD+JF/60+JM/3600)*PAI#/180:AP1=J
26880 XP=X0+LP*COS AP1:YP=Y0+LP*SIN AP1
26890 XP=INT (XP*1000+0.5)/1000:YP=INT (YP*1000+0.5)/1000
26900 PRINT "Xp=";XP,"Yp=";YP:GOTO 26840
26910 *ZBFS:CLS
26920 CLEAR :RADIAN :PAI#=3.141593653589793#
26930 INPUT "X0=";X0,"Y0=";Y0,"XP=";XP,"YP=";YP
26940 D=SQR ((X0-XP)^2+(Y0-YP)^2):D=INT (D*1000+0.5)/1000
26950 XX=XP-X0+0.0001:YY=YP-Y0
26960 IF XX=0 AND YY>0 THEN FW=PAI#/2:GOTO 27010
26970 IF XX=0 AND YY<0 THEN FW=3*PAI#/2:GOTO 27010
26980 FW=ATN (YY/XX)
26990 IF XX<0 THEN FW=FW+PAI#:GOTO 27010
27000 IF XX>0 AND YY<0 THEN FW=FW+2*PAI#
27010 J=FW*180/PAI#:JD=INT (J):JF=INT (J*60-JD*60)
27020 JM=(J-JD-JF/60)*3600:JM=INT (JM+0.5)
27030 PRINT "a=";JD;JF;JM,"D=";D
27040 GOTO 26930
27050 *ZHTOLC
27060 DLAB=0: ZHK=ABS (PZA)
27070 IF PP=0 THEN 27140
27080 FOR E=1 TO PP
27090 IF ZHK <= DLA(E) THEN 27120
27100 DLAB=DLAB+DLA(E)-DLB(E)
27110 NEXT E
27120 IF DLA(E-1)<DLB(E-1) AND ZHK>DLA(E-1) AND ZHK<DLB(E-1) THEN LCK=DLB(E-1)+DLAB: GOTO 27150
27130 IF DLA(E)>DLB(E) AND ZHK>DLB(E) AND ZHK<DLA(E) AND PZA<0 THEN LCK=DLA(E)+DLAB+(ZHK-DLB(E)): GOTO 27150
27140 LCK=ZHK+DLAB
27150 RETURN
27160 *LCTOZH
27170 DLAB=0: LCK=ABS (PZA)
27180 IF PP=0 THEN 27260
27190 FOR E=1 TO PP
27200 IF LCK-DLAB<DLA(E) AND LCK-DLAB<DLB(E) THEN GOTO 27230
27210 DLAB=DLAB+DLA(E)-DLB(E)
27220 NEXT E
27230 IF DLA(E-1)<DLB(E-1) AND LCK>DLB(E-1)+DLAB THEN ZHK=LCK-DLAB: GOTO 27270
27240 IF DLA(E-1)>DLB(E-1) AND LCK>DLA(E-1)+DLAB THEN ZHK=LCK-DLAB: GOTO 27270
27250 IF DLA(E-1)>DLB(E-1) AND LCK>DLB(E-1)+DLAB AND LCK<DLA(E-1)+DLAB THEN ZHK=-(LCK-DLAB): GOTO 27270
27260 ZHK=LCK-DLAB
27270 RETURN
27280 *SZFY:CLS
27290 PRINT :PRINT " XIAN LU MING CHENG":PRINT
27300 INPUT " BIAN HAO:";FNAME$
27310 IF FNAME$="UP" OR FNAME$="up" THEN 1030
27320 GOSUB *TQZB
27330 GOSUB *TQDM
27340 DIM BH$(30),KD(30),GC(30)
27350 OPEN "E:"+FNAME$+".SZ" FOR INPUT AS #1
27360 P=1
27370 IF EOF (1) THEN 27400
27380 INPUT #1,BH$(P),KD(P),GC(P)
27390 P=P+1:GOTO 27370
27400 CLOSE #1:BEEP 3:CLS
27410 *SZFY1:GOSUB *CZSZ
27420 *SZFY2:CLOSE :CLS
27430 INPUT "SHU JU TI QU 1)ZD 2)SR :";SJTQ
27440 IF SJTQ=1 THEN GOSUB *YQXZ
27450 PRINT " FANG YANG LEI XING":PRINT " 1)LI CHENG 2)RENG YI 3)UP/HS":PRINT
27460 INPUT " LX=";FY$
27470 IF FY$="3" THEN *SZFY1
27480 IF FY$="1" THEN CLS :INPUT "Zhuang JU DL =";DL
27490 CLS :PRINT "DIAN HAO NO#=";DH$;:INPUT DH$
27500 FOR N=1 TO P-1
27510 IF DH$=BH$(N) THEN KDSJ=KD(N):GCSJ=GC(N):GOTO 27520
27520 NEXT N
27530 PRINT "Xia Liang Gao =";HXL;:INPUT HXL
27540 IF FY$="1" THEN 27710 ELSE 27550
27550 PRINT "LI CHENG(-1) K=";KK;:INPUT KK:IF KK=-1 THEN *SZFY1
27560 PRINT "JING GAO I=";IG;:INPUT IG
27570 IF SJTQ=1 THEN GOSUB 20500 ELSE INPUT "FANG WEI JIAO AP=";AP:INPUT "PING JU LP=";LP:INPUT "GAO CA K=";K
27580 J=AP:GOSUB 3770:AP1=J+FW0-JA0
27590 XC=X0+LP*COS AP1:YC=Y0+LP*SIN AP1:HC=HT+K-IG
27600 XC=INT (XC*1000+0.5)/1000:YC=INT (YC*1000+0.5)/1000:HC=INT (HC*1000+0.5)/1000
27610 PRINT USING "X=########.###";XC;:PRINT USING " Y=########.###";YC;:PRINT USING " H=####.###";HC
27620 GOSUB 20180
27630 IF KD>0 THEN FX$="Y" ELSE FX$="Z"
27640 V=ZA:GOSUB 4820:PRINT " FX=";FX$;" KD=";KD
27650 QL=ZA:L#=ABS (QL):GOSUB *DMJS
27660 KDC=KD:HSJ=H3+GCSJ-HXL
27670 KDWC=KDSJ-KDC:HGC=HSJ-HC
27680 PRINT "KDSJ=";KDSJ;" KDC=";KDC;" KDWC=";KDWC
27690 PRINT " HSJ=";HSJ;" HC=";HC;" HGC=";HGC
27700 XP=XC:YP=YC:GOTO 27990
27710 ZA$="":INPUT "Zhuang hao (+/-/HS/UP):";ZA$:ZA=VAL (ZA$)
27720 IF ZA$="+" THEN ZA=ZAS+DL
27730 IF ZA$="-" THEN ZA=ZAS-DL
27740 IF ZA$="" THEN ZA=ZAS
27750 IF ZA$="HS" THEN *SZFY1
27760 IF ZA$="UP" OR ZA$="up" THEN *SZFY1
27770 PZA=ZA:GOSUB *ZHTOLC
27780 IF LCK<HZ(0) OR LCK>HZ(NN) THEN BEEP 1:PRINT " K=";HZ(0);"-->";INT (HZ(NN)*1000+0.5)/1000:GOTO 27710
27790 IF KDSJ <0 THEN FX$="Z":XJJ=1.5*PAI#:KD=ABS KDSJ ELSE FX$="Y":XJJ=0.5*PAI#:KD=ABS KDSJ
27800 GOSUB *ZBJS:D0=SQR ((X0-XP)^2+(Y0-YP)^2)
27810 QL=ZA:L#=ABS (QL):GOSUB *DMJS
27820 HSJ=H3+GCSJ-HXL:HSJ=INT (HSJ*1000+0.5)/1000
27830 V=ZA:GOSUB 4820:PRINT " FX=";FX$;" KD=";KD;" HXL=";HXL
27840 XP=INT (XP*1000+0.5)/1000:YP=INT (YP*1000+0.5)/1000
27850 PRINT USING "X=########.###";XP;:PRINT USING " Y=########.###";YP;:PRINT USING " H=####.###";HSJ
27860 XX=XP-X0+0.0001:YY=YP-Y0:GOSUB 3810:JJ=FW-FW0:JAP=JA0+JJ
27870 IF JAP<0 THEN JAP=JAP+2*PAI#
27880 IF JAP>2*PAI# THEN JAP=JAP-2*PAI#
27890 PRINT "Ap=";:J=JAP:GOSUB 3870
27900 PRINT USING " D0=####.###";D0
27910 CJ$="":INPUT "CAI JI (Y/N):";CJ$
27920 IF CJ$="Y" THEN 27940
27930 IF CJ$="N" THEN 28030 ELSE 27910
27940 PRINT "JING GAO I=";IG;:INPUT IG
27950 IF SJTQ=1 THEN GOSUB 20500 ELSE INPUT "GAO CA K=";K
27960 HC=HT+K-IG:HC=INT (HC*1000+0.5)/1000
27970 HGC=HSJ-HC
27975 V=ZA:GOSUB 4820:PRINT " FX=";FX$;" KD=";KD;" NO#=";DH$
27980 PRINT "Hc=";HC;" Hsj=";HSJ;" Hgc=";HGC
27990 PRINT "SAVE (Y/N)=";SJBC$;:INPUT SJBC$
28000 IF SJBC$="Y" THEN OPEN "E:SZFY.JL" FOR APPEND AS #1 ELSE 28030
28010 INPUT "BIAN HAO =";DH$
28020 PRINT #1,V$;",";DH$;",";FX$;",";KD;",";XP;",";YP;",";HSJ;",";HC;",";HGC:CLOSE #1
28030 ZAS=ZA:KK=ZA
28040 GOTO 27490
28050 *SZ:KEY 1,"FILES"+CHR$ 34+"E:***.***"+CHR$ 34
28060 KEY 2,"COPY "+CHR$ 34+"COM:"+CHR$ 34+" TO "+CHR$ 34+"E:ZL1.SJ"+CHR$ 34
28070 KEY 3,"COPY "+CHR$ 34+"E:ZL1.SJ"+CHR$ 34+" TO "+CHR$ 34+"COM:"+CHR$ 34
28080 KEY 4,"COPY "+CHR$ 34+"E:ZW-A.SJ"+CHR$ 34+" TO "+CHR$ 34+"E:ZW.SJ"+CHR$ 34
28090 KEY 5,"SET "+CHR$ 34+"E:ZW-A.SJ"+CHR$ 34+","+CHR$ 34+"P"+CHR$ 34
28100 KEY 6,"OPEN$"+CHR$ 13
28110 KEY 7,"OPEN"+CHR$ 34+"1200,N,8,1,A,C,&H1A,N,S"+CHR$ 34:END
28120 *YQXZ:XH$="NF":RETURN
