OPTION ANGLE DEGREES
PRINT
PRINT "”½ŽžŒv‰ρ‚θ‚Ι ƒΖ ‰ρ“]‚³‚Ή‚ιŽΚ‘œ‚π’S‚€ƒeƒ“ƒ\ƒ‹"
PRINT
PRINT "    COSƒΖ@-SINƒΖ"
PRINT "    SINƒΖ   COSƒΖ"
PRINT
SET WINDOW -3,3,-3,3
DRAW GRID
SET COLOR 42
DRAW CIRCLE WITH SCALE(2,2)
DIM A(2,2),T(2,2),W(2,2)
DATA 2,2
DATA 0,0
MAT READ A
FOR i=0 TO 360 STEP 6
   LET T(1,1)=COS(i)
   LET T(1,2)=-1*SIN(i)
   LET T(2,1)=SIN(i)
   LET T(2,2)=COS(i)
   MAT W=T*A
   SET COLOR 2
   DRAW DISK WITH SCALE(0.1,0.1)*SHIFT(W(1,1),W(2,1))
   WAIT DELAY 1
   SET COLOR 0
   DRAW DISK WITH SCALE(0.1,0.1)*SHIFT(W(1,1),W(2,1))
   SET COLOR 1
   DRAW GRID
   SET COLOR 42
   DRAW CIRCLE WITH SCALE(2,2)
NEXT i
END