SCREEN 12
FOR x = -319 TO 319 STEP .01
IF x <> 0 THEN PSET (x + 320, SIN(1000 / x) * 200 + 240), 15
NEXT x