13 lines
289 B
Text
13 lines
289 B
Text
100 CLS : 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
|
|
190 FCT = (FCT*I) MOD N
|
|
200 NEXT I
|
|
210 IF FCT = N-1 THEN PRINT I;" ";
|
|
220 RETURN
|