10 DEFINT a-o,r-z:PEN 1:PAPER 0:MODE 1:BORDER 5:INK 0,0:INK 1,26:INK 2,16:INK 3,8:n=20 20 m=220:b=5:x=280:y=140:GOSUB 100:b=6:x=260:GOSUB 100:m=200:b=1:x=280:y=160:GOSUB 100:b=2:y=140:GOSUB 100 30 m=220:b=1:x=260:y=360:GOSUB 100:b=2:y=340:GOSUB 100:b=5:x=480:y=140:GOSUB 100:b=6:x=460:GOSUB 100 40 b=4:x=170:y=30:GOSUB 100:b=3:x=150:y=50:GOSUB 100:m=240:b=4:x=160:y=220:GOSUB 100:b=3:x=140:y=240:GOSUB 100 50 b=4:x=360:y=20:GOSUB 100:b=3:x=340:y=40:GOSUB 100:m=280:b=4:x=360:y=220:GOSUB 100:b=3:x=340:y=240:GOSUB 100 60 m=220:b=1:x=140:y=40:GOSUB 100:y=20:b=2:GOSUB 100:m=200:b=5:x=160:y=40:GOSUB 100:b=6:x=140:GOSUB 100 70 m=220:b=5:x=360:y=20:GOSUB 100:b=6:x=340:GOSUB 100:b=1:x=140:y=240:GOSUB 100:y=220:b=2:GOSUB 100 80 b=5:x=280:y=200:m=60:GOSUB 100:b=6:x=260:GOSUB 100:b=1:x=320:y=160:GOSUB 100:b=2:y=140:GOSUB 100 90 WHILE INKEY$="":WEND:END 100 i=1+(b=2)+(b=4):j=1+(b=6)+(b=3):p=(1+(b>4)-(b<3))/2:q=(1+(b<3)-(b>4))/2:c=-(b=2)-(b=6)-3*(b=3 OR b=1)-2*(b=4 OR b=5):FOR a=0 TO n STEP 2:MOVE x+a*i,y+a*j:DRAWR m*p,m*q,c:NEXT:RETURN