Код:
10 SCREEN 2
20 C=INT(RND(1)*3+5)
30 X=INT(RND(C)*305)
40 Y=INT(RND(C)*115)
50 LINE (X,Y)-(X+30,Y+20),C,BF
60 XR=640-X
70 LINE (XR,Y)-(XR+30,Y+20),C,BF
80 YU=240-Y
90 LINE (X,YU)-(X+30,YU+20),C,BF
100 LINE (XR,YU)-(XR+30,YU+20),C,BF
110 GOTO 20