ズッカーマン数(十進basic)

十進basicを使っています。

 ズッカーマン数をもとめています。

オプションタブより

microsoft  互換モードで実行
LET s=1
FOR  a=1   TO  1000000
   LET aa$=STR$(a)
    
   LET b=LEN(aa$)
   LET product=1
   FOR  r=1  TO   b
      LET product=product*VAL(mid$(aa$,r,1))
   NEXT R
   WHEN   EXCEPTION   IN
      IF   MOD(a,product)=0  THEN   PRINT s;  a
      IF   MOD(a,product)=0  THEN LET s=s+1
   USE
   END  WHEN
    
   LET product=1
NEXT A


END