       10 // COS() sample program
       20 //
       30 PAGE
       40 FOR f:=0 TO 2*PI STEP PI/32 DO
       50   plot(f, COS(f))
       60 ENDFOR f
       70 CURSOR 1,23
       80 PRINT "If the above looks like a cosine curve, it might be ok"
       90 //
      100 PROC plot(x, y)
      110   x#:=1+INT(x*10)
      120   y#:=11+10*y
      130   CURSOR x#,y#
      140   PRINT "*";
      150 ENDPROC plot
