14 lines
312 B
Text
14 lines
312 B
Text
100 HOME : REM 100 CLS for Chipmunk Basic
|
|
110 PRINT "Primes below 100"+CHR$(10)
|
|
120 FOR n = 2 TO 100
|
|
130 GOSUB 160
|
|
140 NEXT n
|
|
150 END
|
|
160 rem FUNCTION WilsonPrime(n)
|
|
170 fct = 1
|
|
180 FOR i = 2 TO n-1
|
|
181 a = fct * i
|
|
190 fct = a - INT(a / n) * n
|
|
200 NEXT i
|
|
210 IF fct = n-1 THEN PRINT i;" ";
|
|
220 RETURN
|