C64 Software  <  SCA: The C64 Software Collection / BASICBOUNCER3

10 DIMS(500):N=3*99
20 :
30 FORI=0TON:K=I*2*π/100
40 F=255*(N−I)/N
50 S(I)=INT(F*ABS(SIN(K))+.5)
60 NEXT
70 :
100 POKE53248,100:POKE2040,32
110 POKE53250,200:POKE2041,32
120 POKE53287,1:POKE53288,1:POKE53269,3
130 FORQ=20000TO20018:READY:POKEQ,Y:NEXT
140 :
150 FORT=0TOI−1:POKE780,S(T):SYS20000:NEXT
160 GOTO150
170 :
200 DATA174,17,208,16,251,174,17,208,48,251,141,1,208,73,255,141,3,208,96
READY.
