C64 Software  <  SCA: The C64 Software Collection / BASICWEDLER2

  Run
10 N1=1:N2=.6:N3=.3:D=π/32:K=10
20 DIMS(500):I=0
30 FORT=0TOK*π−DSTEPD
40 F=N1*SIN(T)+N2*SIN(1.5*T)+N3*SIN(2*T+2)
50 S(I)=INT((F+1)*80+60.5)
60 I=I+1:NEXT
70 :
100 POKE53248,100:POKE2040,32
110 POKE53250,200:POKE2041,32
120 POKE53287,1:POKE53288,1:POKE53269,1
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.