
X=0
Z=1
MEM=6*65536

FOR I=0 TO 383

Y=Z*344*SIN(X)
IF Y<0 THEN Y=Z*344*SIN(X+3.14159265)

PSET (I,172-Y/2)

X=X+3.14159265/384*4
Z=Z-(344/384/384)
POKEW MEM,Y
MEM=MEM+2

NEXT I



