This is non-commercial site, its content is based on Atari 8-bit home computer contents and references.
If you feel your rights are violated by showing/using any part of contents of your product represented on this page,
please contact me immediatelly so I can remove it!
Atari 8-bit Source code
|
|
|
-
Entry name:PieChart
-
Category:Utilities
-
Publisher/Developer:BASIC 10-liner Contest 2017 (NOMAM 2017)
-
Year:2017
Listing 1
0 REM S."D:PIECHT10.TBS":RUN 10 GRAPHICS 8:DPOKE 82,9984:? "PieChart":TRAP 30:C=0:DEG:COLOR 1:CIRCLE 159,80,80:DIM N(8) 20 INPUT "Number ([Ret] when done)";A:N(C)=A:C=C+1:S=S+A:GOTO 20 30 TRAP 30:IF C<2:? "Min 2":GOTO 20:ELSE:IF C=9:? "Max 9":ENDIF:ENDIF 40 GOSUB 1000:POKE 87,9:G=0:FOR A=0 TO C-1:COLOR A+1:NN=(N(A)/S)*360:PAINT 17*COS(G+NN/2)+39,70*SIN(G+NN/2)+80:G=G+NN:NEXT A 50 POKE 87,8:COLOR 0:CIRCLE 159,80,80:GOSUB 1000:POKE 623,128:POKE 87,9:COLOR 8:CIRCLE 39,80,20,80 60 GRAPHICS 42:DPOKE 704,12+18*256:DPOKE 706,36+70*256:DPOKE 708,100+132*256:DPOKE 710,164+228*256:POKE 712,0 999 GOTO 999 1000 G=0:FOR A=0 TO C-1:PLOT 159,80:DRAWTO 80*COS(G)+159,80*SIN(G)+80:G=G+(N(A)/S)*360:NEXT A:RETURN
Listing downloads
Copyright holder