10R=512 20INPUTN 30DT=2*PI/N 40MODE2 50VDU29,640;512; 60T=0 70FORJ%=0TON-1 71GCOL 1,(J% MOD 6)+1 80U=2*J%*PI/N 90X=R*COS(U) 100Y=R*SIN(U) 110FORI%=0TON 120MOVEX,Y 130DRAWR*COS(T),R*SIN(T) 140T=T+DT 150NEXT:NEXT