小弟哪边错了！：告诉我：
   CLS
DECLARE FUNCTION jian$ (s%)
DECLARE SUB yidong (p%)
DECLARE SUB zidan ()
LOCATE 5, 13: PRINT "tan ke te shuo"
LOCATE 7, 10: PRINT "cheng xu she ji:xue lei"
LOCATE 9, 2: PRINT "---------------------------------"
LOCATE 11, 12: PRINT "shuo min:"
LOCATE 13, 7: PRINT "z zhuo zuo,x xou zou"
LOCATE 15, 5: PRINT "k kuai zuo,e zai ting"
LOCATE 17, 7:  PRINT "3 jei shu,0 fapao"
SLEEP 6
CLS
DO
LOOP UNTIL INKEY$ <> ""
LOCATE 13, 29: PRINT "I<I>I"
FOR i = 1 TO 21
LOCATE INT(RND(1) * 20) + 1, INT(RND(1) * 50) + 1: PRINT "*"
NEXT i
RANDOMIZE TIMER
IF k = 0 THEN
k$ = UCASE$(z$)
SELECT CASE z$
CASE IS = "k"
CALL yidong(-1)
CASE IS = "z"
CALL yidong(1)
CASE IS = "x"
  LOCATE i, x0 + 2 * room(i, 0): PRINT "I"
DO
LOOP UNTIL INKEY$ <> ""
CASE IS = "3"
END
'sub yidong(p%)
DIM t AS INTEGER, i AS INTEGER
CALL ca
t = 1
i = 0
DO
i = i + 1
IF (kx(i) = 1) AND (p% = -1) THEN t = 0
IF (kx(i) = 12) AND (p% = 1) THEN t = 0
IF t = 1 THEN
IF tong(kx(i) + p%, ky(i)) = 1 THEN
t = 0
END IF
END IF
LOOP UNTIL i = 4 OR t = 0
IF t = 1 THEN
FOR i = 1 TO 4
kx(i) = kx(i) + p%
  NEXT i
END IF
CALL hua
SUB yidong (p%)
END SUB
小弟好笨！