10 REM ******* 20 REM Pattern 30 REM ******* 40 REM NC200 Version 1 50 REM Downloaded from Tim's NC Users' Site 60 REM http://www.ncus.org.uk 70 R1=RND(4):R2=RND(4) 80 FORC=1 TO 2 90 M%=128 100 REPEAT 110 T=R1:R1=R2:R2=T:R=R1 120 PROCdia(240,63,63):M%=M%DIV2 130 UNTIL M%<2 140 TIME=0:REPEAT UNTIL TIME>200 150 NEXT 160 GOTO70 170 DEF PROCdia(X%,Y%,S%) 180 IF S%