REM 人口の増加(問題7(1))
LET x=1000000
LET y=0
DO
   LET x=INT(1.03*x)
   LET y=y+1
   PRINT y,x
LOOP WHILE x<=1500000
END
--------------------------------------
REM 積み立て貯金(問題7(2))
LET x=0
FOR y=1 TO 60
   LET x=INT((x+10000)*(1+0.03/12))
   PRINT USING  "##月後の元利合計は###,###円":y,x
NEXT y
END
---------------------------------------
REM 積み立て貯金(問題7(3))
LET x=0
LET t=0
DO
   LET x=INT((x+10000)*(1+0.03/12))
   LET t=t+1
   PRINT USING  "##月後の元利合計は#,###,###円":t,x
LOOP WHILE x<1000000 
END
--------------------------------------------------
REM ローン(問題7(4))
LET x=1000000
LET t=0
DO
   LET x=x*(1+0.1/12)-20000
   LET t=t+1
   PRINT USING  "##月後のローン残高は#,###,###円":t,x
LOOP WHILE x>0 
END
-------------------------------------------------
REM グラフィック(1)
SET WINDOW -1,11,-1,11
FOR t=0 TO 10
   PLOT LINES:0,t;10,t
   PLOT LINES:t,0;t,10
NEXT t
FOR s=1 TO 10
   FOR t=1 TO 10
      DRAW circle WITH SCALE(0.5)*SHIFT(s-0.5,t-0.5)
      SET AREA COLOR 10*s+t-11
      flood s-0.5,t-0.5
      WAIT DELAY 0.3
   NEXT t
NEXT s
END
----------------------------------------------------