40 CURSOR 0

50 FOR M=1 TO 10

55 H = RND(2,16)

60 CLS

70 C=RND(0,15)

90 K=320/(3*H)

100 FOR I=1 TO 3*K STEP 2

110 FOR J=1 TO 2*K STEP 2

120 A=RND(0,2)

130 IF A=1 LINE C,2*H*(I-1),H*(J-1),2*H*(I+1),H*(J+1),1

140 IF A=0 LINE C,2*H*(I-1),H*(J+1),2*H*(I+1),H*(J-1),1

200 NEXT J

210 NEXT I

220 DELAY(2000)

230 NEXT M

240 CURSOR 1

250 END