PRINT
PRINT "フィボナッチ数列"
DIM A(2),M(2,2)
DATA 1,1
MAT READ A
DATA 1,1
DATA 1,0
MAT READ M
PRINT
PRINT " 1:  1"
PRINT " 2:  1"
FOR i=3 TO 20
   MAT A=M*A
   PRINT USING "##":i;
   PRINT ": ";A(1)
NEXT i
PRINT
PRINT
PRINT "ペラン数列"
DIM Aa(3),Bb(3),Cc(3),Mm(3,3)
DATA 3,2,0
MAT READ Aa
DATA 0,1,1
DATA 1,0,0
DATA 0,1,0
MAT READ Mm
PRINT
PRINT " 1:  0"
PRINT " 2:  2"
PRINT " 3:  3"
FOR i=4 TO 20
   MAT Aa=Mm*Aa
   PRINT USING "##":i;
   PRINT ": ";Aa(1)
NEXT i
PRINT
PRINT
END