[分享]小弟我第一次写的程序～～关于查询、修改PEEK值的

dae

加我吧！！！！！！

发展新人！

希望哪天搞个新秀大赛也不错！
[em07]

sandford

小弟我刚学的BASIC～～写的内容也是想起一段写一段～～所以感觉有点乱～～诸位大虾不要见笑啊～～一个关于查询修改系统PEEK值的简易程序～～在我的NC3000上编的～～NC2000A/C、PC1010上实机测试通过～～别的机器应该也可以用～～因为我用的PEEK和POKE也只有F4、求助、跳出这几个键的PEEK(199)值～～大家可以试试～～

源码如下～～如果有哪位大虾有时间的话请帮忙整理优化一下～～在下不胜感激～～


0 GOSUB 70
5 CLS : LOCATE 2,5: PRINT "=请选择模式=": LOCATE 3,5: PRINT "1.查不同地址"
6 LOCATE 4,5: PRINT "2.查同一地址    <求助>";:A$ =INKEY$: IF A$ ="b" THEN GOTO 10  ELSE 7
7 IF A$ ="n" THEN GOTO 365  ELSE 8
8 IF ASC(A$) =27  THEN GOTO 410  ELSE 9
9 IF A$ =CHR$(25) THEN GOTO 330  ELSE 5
10 GRAPH
15 LOCATE 5,7: PRINT "范围(0-65535)";
20 LOCATE 1,1: INPUT "要PEEK的地址:";P
30 S =PEEK(P): PRINT "ASCII值为:";S
31 PRINT "字符为:"; CHR$(S)
32 PRINT " F4修改    [AC]返回  Made By T*S STUDIO";
33 BOX 0,64,160,81,1,2
60 A$ =INKEY$
61 IF ASC(A$) =31  THEN GOSUB 460  ELSE 62
62 IF ASC(A$) =27  THEN GOTO 130  ELSE 10
70 GRAPH
80 LOCATE 2,4: PRINT "┏T*S STUDIO┓"
85 LOCATE 3,4: PRINT " -★☆§☆★- "
90 LOCATE 4,4: PRINT "┗-精品软件-┛";
91 FOR I =0  TO 80
92 BOX 0,81 -I,161,I,2,2: BOX 161 -I,0,I,80,2,2
93 IF PEEK(199) <>13  THEN POKE 199,13: GOTO 5
94 NEXT I
95 GOTO 91
100 A$ =INKEY$
110 GOTO 5
130 CLS
140 LOCATE 3,6 : PRINT "返回?(Y/N)"
150 A$ =INKEY$
160 IF A$ ="y" THEN GOTO 5  ELSE 10
170 LOCATE 1,1: PRINT "