Sinewave

Source Code

   11 REM sinewave
   12 FOR x=1 TO 255
   20 PLOT X,87
   30 NEXT X
   40 FOR Y=0 TO 175
   50 PLOT 127,Y
   60 NEXT Y
   70 FOR I=-20 TO 20 STEP .03
   80 PLOT I*6+127,87+20*SIN I
   90 NEXT I
  100 FOR x=1 TO 255