10 REM TRIX - By P.Gardner 20 REM (Generates 7 patterns) 30 MODE 2:INK 0,0:INK 1,26:BORDER 0 40 DEG 50 FOR B=1 TO 7:READ D 60 CLS:INK 1,26 70 n=1 80 MOVE 320,200 90 FOR a=0 TO 20000 STEP D 100 n=n+1 110 DRAW 320+n*SIN(a),200+n*COS(a) 120 NEXT 130 DATA 150,160,100,175,75,50,45 140 WHILE INKEY$="":WEND 150 NEXT 160 RESTORE 170 GOTO 50