10 REM > TrigTest
   20 REM Test SIN,COS,TAN - should give braided rope
   30 MODE 1
   40 MOVE 0,512:DRAW 1279,512
   50 MOVE 640,0:DRAW 640,1023
   60 REM Avoids -PI/2, +PI/2 where TAN(x)=TooBig
   70 FOR x=-1.7*PI TO 1.7*PI STEP 0.05
   80   PLOT 69,640+x*128,512+128*SIN(x)
   90   PLOT 69,640+x*128,512+128*COS(x)
  100   PLOT 69,640+x*128,512+128*SIN(-x)
  110   PLOT 69,640+x*128,512-128*COS(x)
  120   PLOT 69,640+x*128,512+128*TAN(x)
  130   PLOT 69,640+x*128,512+128*TAN(-x)
  140 NEXT

Download TrigTest

BBC BASIC detokeniser and syntax highlighter by Ben Ryves.