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