10 REM Trig2
   20 REM by Andrew Snodgrass
   30 REM This is PD software
   40 REM 16th January 1992
   50 :
   60 MODE1:VDU5
   70 READ R$
   80 REM Cosine graph
   90 FORX=0 TO 10 STEP .1
  100 m%=((X*20)-10)/2
  110 VDU4:PRINTTAB(0,0);X,m%:G=GET:VDU5
  120 MOVE X*200,500+(COS X)*150
  130 IF X<=.5 NEXT
  140 REMCOLOUR m%
  150 PRINT MID$(R$,m%,1)
  160 NEXT
  170 :
  180 REM Sine graph
  190 FORX=0 TO 10 STEP .1
  200 MOVE X*200,500+(SIN X)*150
  210 NEXT
  220 END
  230 DATA "A n d r e w ' s  B r i l l  T r i g  F u n c t i o n  L e t t e r  P r i n t e r"