10REM BY MATTHEW SMITH 20REM 14/2/1987 30 MODE 2 40LET Q=1 50LET A=1000 60LET Q=Q+1 70LET B=1000 80LET C=0 90LET D=1280 100 FOR F=1 TO 250 110GCOL 0,RND(7) 120MOVE C,A 130DRAW D,B 140LET A=A-4 150LET D=D-4 160NEXT F 170GOTO 420 180LET A=0 190LET B=0 200LET C=1280 210LET D=0 220FOR K=1 TO 250 230GCOL 0,RND(7) 240MOVE C,A 250DRAW D,B 260LET A=A+4 270LET D=D+4 280NEXT K 290GOTO 540 300LET A=1000 310LET B=1000 320LET C=1280 330LET D=0 340FOR Y=1 TO 250 350GCOL 0,RND(7) 360MOVE C,A 370DRAW D,B 380LET D=D+4 390LET A=A-4 400NEXT Y 410GOTO 50 420LET A=0 430LET B=0 440LET C=1280 450LET D=0 460FOR M=1 TO 250 470GCOL 0,RND(7) 480MOVE D,A 490DRAW C,B 500LET C=C-4 510LET A=A+4 520NEXT M 530 GOTO 180 540 IF Q=3 GOTO 560 550 GOTO 300 560END