'使用0,1,2,3，4，6，7,8,9键控制
CLS
SCREEN 1
D = 0    'IS KEEP DRAWING
X = 0
Y = 0
A = 0
B = 0
P = 0    'SAVED PIXEL
PSET (X, Y), 1
DO
     S$ = INPUT$(1)
     S$ = UCASE$(S$)
     IF (S$ = "9" OR S$ = "6" OR S$ = "3") AND (X < 319) THEN X = X + 1
     IF (S$ = "7" OR S$ = "4" OR S$ = "1") AND (X > 0) THEN X = X - 1
     IF (S$ = "7" OR S$ = "8" OR S$ = "9") AND (Y > 0) THEN Y = Y - 1
     IF (S$ = "1" OR S$ = "2" OR S$ = "3") AND (Y < 199) THEN Y = Y + 1
     IF D = 1 THEN PSET (A, B) ELSE PSET (A, B), P
     P = POINT(X, Y)
     IF D = 0 THEN
         PSET (X, Y), 1
     ELSE
         PSET (X, Y), 2
     END IF
     IF S$ = "0" THEN
         IF D = 0 THEN D = 1 ELSE D = 0
     END IF
     IF D = 0 THEN
         PSET (X, Y), 1
     ELSE
         PSET (X, Y), 2
     END IF
     IF S$ = "E" THEN GOTO GEND
     A = X
     B = Y
LOOP
GEND:
SCREEN 0     '恢复
WIDTH 80
END

谢谢 支持

怎么关闭啊，只能切换后再关闭了

回复：3楼
按E关闭