Atari 8-bit Source code

10 POKE 559,​0:​DEG:​DIM CX(12),​CY(12),​R(12),​BA(5),​BR(5),​S$(3840):​FOR A=0 TO 11:​CX(A)=COS(A*30):​CY(A)=-SIN(A*30)
20 R(A)=20+RAND(20):​NEXT A:​GRAPHICS 7:​COLOR 1:​CX=79:​CY=40:​Z=ADR(S$):​DPOKE 708,​36032:​PLOT CX(0)*R(0)+CX,​CY(0)*R(0)+CY:​SC=DPEEK(88)
30 FOR A=1 TO 11:​DRAWTO CX(A)*R(A)+CX,​CY(A)*R(A)+CY:​NEXT A:​DRAWTO CX(0)*R(0)+CX,​CY(0)*R(0)+CY:​PLOT CX(0)*R(0)/8+CX,​CY(0)*R(0)/8+CY
40 FOR A=1 TO 11:​DRAWTO CX(A)*R(A)/8+CX,​CY(A)*R(A)/8+CY:​NEXT A:​DRAWTO CX(0)*R(0)/8+CX,​CY(0)*R(0)/8+CY:​POKE 710,​66:​FOR A=0 TO 11
50 PLOT CX(A)*R(A)/8+CX,​CY(A)*R(A)/8+CY:​DRAWTO CX(A)*R(A)+CX,​CY(A)*R(A)+CY:​NEXT A:​A=0:​FOR I=0 TO 4:​BA(I)=-1:​NEXT I:​MOVE SC,​Z,​3840
60 MOVE Z,​SC,​3840:​S=STICK(0):​IF S=11:​A=(A+1) MOD 12:​ELSE:​IF S=7:​A=A-1:​IF A<0:​A=11:​ENDIF:​ENDIF:​ENDIF:​COLOR 2:​GOSUB 1000
70 FOR I=0 TO 4:​IF BA(I)=A:​BA(I)=-1:​Q=Q+(1-BR(I))*100:​? Q:​ENDIF:​IF BA(I)=-1:​IF RAND(10)=0:​BA(I)=RAND(12):​BR(I)=0.030000000000000002:​ENDIF:​ELSE
80 BR(I)=BR(I)+0.1:​IF BR(I)>1:​BA(I)=-1:​ELSE:​COLOR 3:​GOSUB 2000:​ENDIF:​ENDIF:​NEXT I:​L=L+1:​IF L=1000:​END:​ENDIF:​GOTO 60
1000 A2=(A+1) MOD 12:​R1=R(A):​R2=R(A2):​PLOT CX(A)*R1+CX,​CY(A)*R1+CY:​DRAWTO CX,​CY:​DRAWTO CX(A2)*R2+CX,​CY(A2)*R2+CY:​RETURN
2000 BR=BR(I):​M=BA(I):​R=R(M)*BR:​A2=(M+1) MOD 12:​R2=R(A2)*BR:​PLOT CX(M)*R+CX,​CY(M)*R+CY:​DRAWTO CX(A2)*R2+CX,​CY(A2)*R2+CY:​RETURN