[建议]：谁有cass7.0解密版的？

puzhixing123

有谁知道下面的代码怎样转换成程序？



1 COLOR 0, 7, 10

  REM n2$: 0=测站I/L/A 10列,  1=测站坐标 10列
  REM n2$: 2=观测S/H/V 11列,  3=观测坐标 10列,  4=输入坐标 10列
2 PRINT "  ************************************"
3 PRINT "  |    DTM420数据转换为SCS数据程序   |"
4 PRINT "  |            测绘信息网            |"
5 PRINT "  |   http://www.othermap.com        |"
6 PRINT "  ************************************"
7 PRINT ""
100 INPUT "请输DTM-420原文件:"; yw$
110 INPUT "请输SCS目标文件（*.dat):"; mb$: PRINT "正在转换,稍候!"
120 OPEN yw$ FOR INPUT AS #1
121 OPEN mb$ FOR OUTPUT AS #2
124 INPUT #1, m1$, m2$, m3$, m4$, m5$: j = 0
127 IF EOF(1) THEN GOTO 137
128 INPUT #1, n1$, n2$, n3$, n4$, n5$, x, y, h, n6$, n7$
129 IF n2$ = "2" THEN INPUT #1, n8$
    IF n2$ <> "3" AND n2$ <> "4" THEN GOTO 135
133 j = j + 1
135 GOTO 127
137 CLOSE #1, #2
138 OPEN yw$ FOR INPUT AS #1
139 OPEN mb$ FOR OUTPUT AS #2: PRINT #2, j
140 INPUT #1, m1$, m2$, m3$, m4$, m5$:
    i = 0
150 IF EOF(1) THEN CLOSE : PRINT "***": PRINT " 总点数="; i: PRINT " 转换结束!": END
160 INPUT #1, n1$, n2$, n3$, n4$, n5$, x, y, h, n6$, n7$
170 IF n2$ = "2" THEN INPUT #1, n8$
    IF n2$ <> "3" AND n2$ <> "4" THEN GOTO 190
171 i = i + 1
172 y = y + 400000
173 x = x + 3700000
180 PRINT #2, n4$
181 PRINT #2, n5$
182 PRINT #2, USING "########.###"; y
183 PRINT #2, USING "########.###"; x
184 PRINT #2, USING "########.###"; h
190 GOTO 150

8116599

buzhidao