10 CLS: SCREEN 2
20 X=300: Y=100: I=0
25 RANDOMIZE TIMER
30 VEC=INT(RND(TIMER)*25)+1
40 X1=INT(RND(1)*200)+1
45 Y1=INT(RND(1)*100)+1
50 X2=INT(RND(1)*200)+1
60 Y2=INT(RND(1)*90)+1

70 LINE (XX1,YY1)(XX2,YY2)
80 LINE (X+X1,YY1)(X+X2,YY2)
90 LINE (XX1,Y+Y1)(XX2,Y+Y2)
100 LINE (X+X1,Y+Y1)(X+X2,Y+Y2)
110 X1=X2: Y1=Y2

120 I=I+1: IF I=VEC THEN 130 ELSE GOTO 50
130 FOR T=1 TO 25000: NEXT T
140 GOTO 10