Atari 8-bit Source code

1LS=10:MC=81:DIMN$(192),Q(159):FORI=0TOLS-1:FORJ=0TO7:Q(78+I*8+J)=8-J:NEXTJ:NEXTI:FORI=0TO77:READX:Q(I)=X:NEXTI:Z=Q(24):N$="mandelbrotset":L=0:T=L:Q(158)=L:DC=T
2CX=Q(L):CY=Q(L+12):D=64:D2=D*2:H=D-1:GRAPHICS18:I=L*16+1:?#6;N$(I,I+15),,,"x";CX,"y";CY,"z";Z:?#6,,,,"pressJOYBUTTON":FORI=0TO1:I=1-STRIG(0):POKE77,0:NEXTI:GRAPHICS10
3N$="mandelbrotsetlightningseahorsevalleyspiralsneedle(mini)lightning(mini)sceptrevalleyelephantvalleyneeldlehairsthornylightningtailsontails@spineblossom":IFD<=1THENGOTO6
4FORY=TTO191STEPD:B=CY+(Y-96)/4*Z:FORX=0TO79:A=CX+(X-40)*Z:COLOR1:PLOTX,Y:R=0:I=R:R2=R:I2=R:FORC1=0TOMC-1:J=R2-I2+A:I=(2*R*I)+B:R=J:R2=R*R:I2=I*I:C=C1:IF(R2+I2)<4THENNEXTC1
5COLORQ(C+78):PLOTX,Y:DRAWTOX,Y+H:DATA0,-0.170337,-0.745107298,-.462160300,-1.6487359367,-0.17485,-1.287769,.3150751,-1.9990959,-1.192101,-0.747227,-1.457758
6FORI=1TO8:POKE704+I,PEEK(705+I):NEXTI:C=PEEK(713)+Q(36+DC):C=C-INT(C/256)*256:POKE713,C:POKE77,0:S=STICK(0)-5:IFS=10THENGOTO8
7FORI=24TO0STEP-1:SOUND0,I*0.4+24,10,I*0.75:NEXTI:L=L+Q(45+S):L=L-INT(L/12)*12:Z=Z*Q(56+S)+Q(L+24)*Q(67+S):T=0:DC=T:POP:POP:GOTO2
8IFSTRIG(0)=0THENSOUND1,20,10,15:SOUND1,20,10,0:FORI=0TO1:I=STRIG(0):POKE77,0:NEXTI:POKE713,11:DC=DC+1:DC=DC-INT(DC/9)*9
9IFD>1ANDS=10THENNEXTX:NEXTY:D2=D2/2:D=D2:T=D/2:H=T-1:DATA0,-1.06506,-0.15020534,-.5823998,0,-1.071623,.063761,.02918,-0.000000063,0.3061769,0.105766,-0.001353
10GOTO3:DATA0.05,.000001,.000002,.0001,.000001,0.000045,.000004,.0004,.00000003,.00001,0.000147,0.00002,254,2,32,14,18,16,238,242,240,1,1,1,0,11,11,11,0,0,0,0,2,.5,0,0,2,.5,0,0,2,.5,0,1,1,1,0,1,1,1,0,0,0,0	

• Download link 1
• Download link 2
• Download link 3
• Download link 4