INPUT PROMPT "割られる数 x=":x
INPUT PROMPT "割る数 y=":y
REM プログラム例(割り算 p5)
LET q=0
LET s=0
DO WHILE x>=y
   LET x=x-y
   LET q=q+1
LOOP
PRINT "商=";q
PRINT "余り=";x
END
--------------------------------------
REM 問題4(p5 人口増加)
LET p=1000
LET a=0
DO
   let p=p+0.03*p
   LET a=a+1
   PRINT a,p
LOOP WHILE p<=2000
END
---------------------------------------
REM プログラム例08(数当てゲーム)
RANDOMIZE
LET x=INT(RND*1000)+1
LET a=0
DO
   INPUT y
   LET a=a+1
   IF x>y THEN PRINT "もっと大きいよ"
   IF x<y THEN PRINT "もっと小さいよ"
LOOP WHILE x<>y
PRINT a;"回目で当たりました"
END
----------------------------------------