screen 19,8                 ''Bildschirmfläche 800x600

dim as double x,y,w,s,e     ''doppelte Genauigkeit
dim as single z

s=2                         ''Schrittweite in der Sinusreihe; s=1 gibt Dreieck, s=2 ergibt Rechteck.
e=20                        ''Maximale Zahl an Reihengliedern; bei s=1 sind es e Glieder, bei s=2 maximal e/2+1 Glieder.

FOR x = 0 TO 14 STEP 0.002 ''x von 0 bis größer 4*Pi

for z=1 to e step s         ''alle Glieder der Reihe werden einzeln berechnet
y=-1/z*sin(z*x)             ''Minus, weil im Koordinatensystem auf dem Monitor y nach unten zeigt
w=w+y                       ''Summe aller berechneten Glieder
next z

PSET (x*60,300+150*w),15    ''Zeichnen der Punkte x,w
w=0

NEXT x

sleep 5000                  ''5 Sekunden Pause / Bild anzeigen
end 0