CLEAR
DIM box%(128, 96)
RANDOMIZE
LET i = 1: j = 1
DO UNTIL i = 128
k = RND: PRINT i, j, k
IF k <= .5 AND box%(i + 1, j) = 0 THEN
LET i = i + 1: LET box%(i, j) = box%(i, j) + 1
ELSEIF k < .75 AND box%(i, j + 1) = 0 THEN
LET j = j + 1: LET box%(i, j) = box%(i, j) + 1
ELSEIF j > 1 THEN
LET j = j - 1: LET box%(i, j) = box%(i, j) + 1
END IF
LOOP
CLS
FOR t = 1 TO 128
  FOR p = 1 TO 96
  IF box%(t, p) = 1 THEN LINE (p * 5 - 5, t * 5 - 4)-(p * 5 - 1, t * 4 - 1), 7, BF
  NEXT p
NEXT t
END
请大家看看，老是出错