OPTION ARITHMETIC decimal_HIGH
PRINT
PRINT "素数分の１ を循環小数表示"
10 PRINT 
   INPUT PROMPT "２と５以外で100未満の素数？ ":n
   IF sosu(n) = -1 THEN
      PRINT "　　";n;"は素数ではありません。"
      GOTO 10
   END IF
   LET Q = 0
   FOR i=1 TO 100
      IF INT((10^i-1)/n) = (10^i-1)/n THEN
         FOR j=1 TO 4
            LET Q = Q + (10^i-1)/(n*10^(i*j))
         NEXT j
         EXIT FOR
      END IF
   NEXT i
   LET W$ = "0" & STR$(Q) & "・・・・"
   PRINT
   PRINT "1 /";n;" ＝ ";W$
   PRINT
END

EXTERNAL FUNCTION  sosu(x)
   OPTION ARITHMETIC decimal_HIGH
   IF x=1 THEN
      LET sosu=-1
   ELSEIF x=2 THEN
      LET sosu=1
   ELSE
      LET sosu=1
      FOR i=2 TO x-1
         IF MOD(x,i)=0 THEN
            LET sosu=-1
            EXIT FOR
         END IF
      NEXT i
   END IF
END FUNCTION