因為最後修正的傳不上來,我把要修改的打出來,請 評審 使用者 自行修改
1 GRAPH: GOSUB 10:A=2:KW=1: GOTO 15
72 GOSUB 620: GOSUB 600
73 IF K=27 THEN 75 ELSE IF K=13 THEN 100 ELSE IF K=113 THEN 76 ELSE IF K=119 THEN 78
170 O=125: WRITE #1,-25: LOCATE 5,14: PRINT "STOP!";: FOR I=1 TO 1000: NEXT I
171 LOCATE 5,14: PRINT " (空5格) ";: GOTO 70
225 IF A=-25 THEN 270 ELSE IF A<0 THEN 226 ELSE GOTO 227
270 WRITE #1,-25: GOTO 280
342 IF A=-25 THEN 390 ELSE IF A<0 THEN 343 ELSE GOTO 344
343 TY=ABS(A): INPUT #2,A
390 FOR I=1 TO 1000: NEXT I
430 INPUT #1,A: IF A=-25 THEN 489 ELSE IF A<0 THEN 435 ELSE GOTO 440
489 PRINT "STOP!"
600 IF K=97 AND KW=1 THEN 601 ELSE IF K=97 AND KW=2 THEN 610 ELSE GOTO 650
601 KW=2: GOTO 650
610 KW=1: GOTO 650
620 IF KW=1 THEN 630 ELSE GOTO 640
630 DRAW X+1,Y,2: DRAW X-1,Y,2: DRAW X,Y+1,2: DRAW X,Y-1,2: GOTO 650
640 DRAW X,Y,2
650 RETURN
加上這些就完成了,粗體字是行號
[公告]繪圖軟體修改
版主: 總版面管理員
- helldeathscyt
- 二級會員
- 文章: 383
- 註冊時間: 2003-07-17 8:35 PM
- 來自: 深淵地獄
- 聯繫:
[公告]繪圖軟體修改
- 附加檔案
-
- 修改.zip
- (483 Bytes) 已下載 509 次
吾乃地獄之王,是為散播毀滅的種子,掃除所有塵世汙穢,平息痛苦之哀號
~地獄死神
白目橫行的時代...orz
網路真奇妙,
處處白目擾,
趕也趕不走,
白目死不了.
~地獄死神
白目橫行的時代...orz
網路真奇妙,
處處白目擾,
趕也趕不走,
白目死不了.
- helldeathscyt
- 二級會員
- 文章: 383
- 註冊時間: 2003-07-17 8:35 PM
- 來自: 深淵地獄
- 聯繫:
- helldeathscyt
- 二級會員
- 文章: 383
- 註冊時間: 2003-07-17 8:35 PM
- 來自: 深淵地獄
- 聯繫:
- helldeathscyt
- 二級會員
- 文章: 383
- 註冊時間: 2003-07-17 8:35 PM
- 來自: 深淵地獄
- 聯繫: