10 POKE 559,0:DEG:DIM CX(12),CY(12),R(12),BA(5),BR(5),S$(3840):F.A=0TO11:CX(A)=COS(A*30):CY(A)=-SIN(A*30) 20 R(A)=20+RAND(20):N.A:GR.7:COL.1:CX=79:CY=40:Z=ADR(S$):DPOKE708,36032:PL.CX(0)*R(0)+CX,CY(0)*R(0)+CY:SC=DPEEK(88) 30 F.A=1TO11:DR.CX(A)*R(A)+CX,CY(A)*R(A)+CY:N.A:DR.CX(0)*R(0)+CX,CY(0)*R(0)+CY:PL.CX(0)*R(0)/8+CX,CY(0)*R(0)/8+CY 40 F.A=1TO11:DR.CX(A)*R(A)/8+CX,CY(A)*R(A)/8+CY:N.A:DR.CX(0)*R(0)/8+CX,CY(0)*R(0)/8+CY:POKE710,66:F.A=0TO11 50 PL.CX(A)*R(A)/8+CX,CY(A)*R(A)/8+CY:DR.CX(A)*R(A)+CX,CY(A)*R(A)+CY:N.A:A=0:F.I=0TO4:BA(I)=-1:N.I:MOVE SC,Z,3840 60 MOVE Z,SC,3840:S=STICK(0):IF S=11:A=(A+1)MOD12:ELSE:IF S=7:A=A-1:IF A<0:A=11:END.:END.:END.:COL.2:GOS.1000 70 F.I=0TO4:IF BA(I)=A:BA(I)=-1:Q=Q+(1-BR(I))*100:?Q:END.:IF BA(I)=-1:IF RAND(10)=0:BA(I)=RAND(12):BR(I)=0.03:END.:ELSE 80 BR(I)=BR(I)+0.1:IF BR(I)>1:BA(I)=-1:ELSE:COL.3:GOS.2000:END.:END.:N.I:L=L+1:IF L=200:END:END.:GOTO 60 1000 A2=(A+1)MOD12:R1=R(A):R2=R(A2):PL.CX(A)*R1+CX,CY(A)*R1+CY:DR.CX,CY:DR.CX(A2)*R2+CX,CY(A2)*R2+CY:RET. 2000 BR=BR(I):M=BA(I):R=R(M)*BR:A2=(M+1)MOD12:R2=R(A2)*BR:PL.CX(M)*R+CX,CY(M)*R+CY:DR.CX(A2)*R2+CX,CY(A2)*R2+CY:RET.