C64 Software  <  SCA: The C64 Software Collection / BASICWEDLER

  Run
10 DIMS(500):N=50:AM=95
20 I=0:PRINT""CHR$(34)
30 FORT=0TO2*πSTEP2*π/N:S(I)=128+INT(AM*SIN(T)+.5)
40 I=I+1:NEXT:I=I−1:PRINT""
50 :
90 :
100 POKE53249,200:POKE2040,32
120 POKE53287,1:POKE53269,1
130 FORQ=20000TO20013:READY:POKEQ,Y:NEXT
140 :
150 FORT=0TOI:POKE780,S(T):SYS20000:NEXT
160 GOTO150
170 :
200 DATA174,17,208,16,251,174,17,208,48,251,141,0,208,96
READY.