5 AD=8192
10 FORT=0TO2*(null)STEP(2*(null))/256
20 E=30+(SIN(T*8)*25)
25 POKEAD+N,E:POKEAD+256+N,E
30 N=N+1:NEXT:N=512
40 FORT=0TO2*(null)STEP(2*(null))/256
50 E=35+(SIN(T*3)*30)
55 POKEAD+N,E:POKEAD+256+N,E
60 N=N+1:NEXT