PRINT
PRINT "２枚の葉を１つの茎でつなげる。"
PRINT "それを２つ集めてさらに１つの茎でつなげる。"
PRINT "さらにそれを２つ集めて１つの茎でつなげる。"
PRINT "・・・・・・  葉を１、茎を１ としてその総和を数列にする。(初項は１とする）"
PRINT
DIM T(10)
LET T(1)=1
FOR i=2 TO 10
   LET T(i)=T(i-1)*2+1
NEXT i
FOR i=1 TO 10
   PRINT USING "#######":T(i);
NEXT i
PRINT
PRINT
PRINT "初項 １  公比 ２  の等比数列の  n 項までの総和"
PRINT
FOR i= 1 TO 10
   PRINT USING "#######":1*(1-2^i)/(1-2);
NEXT i
PRINT
END