10 REM Trig1
   20 REM by Andrew Snodgrass
   30 REM This is PD Software
   40 REM 16th January 1992
   50 :
   60 MODE1
   70 REM Cosine graph
   80 FORX=0 TO 10 STEP .1
   90 MOVE X*200,500+(COS X)*150
  100 DRAW X*200,500+(COS X)*150
  110 NEXT
  120 :
  130 REM Sine graph
  140 FORX=0 TO 10 STEP .1
  150 REM Increase 10 to greater no. if using greater frequency
  160 MOVE X*200,500+(SIN X)*150:REM Replace with MOVE 0,500 for solid lines
  170 DRAW X*200,500+(SIN X)*150
  180 NEXT
  190 END