OPTION ANGLE DEGREES

DEF f(x)=4*SIN(100*x)
PICTURE GRA(y)
   FOR x=-1 TO 9  STEP 0.01
      PLOT POINTS: x,f(x-y)
   NEXT x
END PICTURE

PAUSE "ESC·° ‚ŸI—¹"
SET WINDOW -1,9,-5,5
DRAW GRID
SET POINT STYLE 1
LET k=0
DO UNTIL getkeystate(27)<0
   SET DRAW MODE NOTXOR 
   DRAW GRA(k)
   WAIT DELAY 1/10
   DRAW GRA(k)
   LET k=k+.1
   SET DRAW MODE OVERWRITE
LOOP
PRINT
END