DIM STACK%[1024],RET%[1024] 'スタック,戻り値 VAR SLEN%,RLEN% DEF DUMB_FIB N OUT M RLEN%=0 'RETは空 SLEN%=1:STACK%[0]=N 'STACK%はNをpush(最初の呼び出し) WHILE SLEN%>0 'スタックが空になるまで SLEN%=SLEN%-1:N=STACK%[SLEN%] 'POP IF 0==N THEN '引数が0 RET%[RLEN%]=0:RELN%=RLEN%+1 '0を返す ELSEIF 1==N THEN '引数が1 RET%[RLEN%]=1:RELN%=RLEN%…