For people interested on generation of prime series,
(many recent mails for this topic), presented an my
program, who is used of benchmarc of Delavy's MSX-180
at meeting MSX-Rio98.
Regards from Brazil,
_______________ _ _ _______________ _______________________
| | |_| |_ __ _ __ | WALTER BERNARDO NUNES |
| /|| |_ _| \| |/ / | [EMAIL PROTECTED] |
\ / || | | | _| / / Graduacao Fisica-UFRGS |
\ / || |_| |_ |_| | /__________________________|
\__/______||___|___|___|_|_ / MSX pra geracao que nao vai
___________________________________ mandar o mundo pelos ares.
/"\
\ / CAMPANHA DA FITA ASCII - CONTRA MAIL HTML
X ASCII RIBBON CAMPAIGN - AGAINST HTML MAIL
/ \
_____________________________________________________
100 REM Programa Primos - Walter Nunes 1998
110 REM -----------------------------------
120 CLEAR 17000!
130 DEFINT A-Z: DEFDBL K-M
140 X = 3500: DIM A(X)
150 U# = 1E+09
160 P$ = CHR$(12) + "Nrs primos"
180 REM Inicio
190 REM ------
200 REM Condicoes iniciais
210 PRINT P$
220 N# = 0
230 K# = 2
235 M# = 2
236 L# = M# * M#
240 A(N#) = K#
250 GOSUB 1000
260 K# = 1
265 N# = N# + 1
270 K# = K# + 2: ' I = INT(K# ^ .5) + 1
275 '
280 IF K# > U# THEN PRINT "Final.": END
285 IF K# > L# THEN M# = M# + 1: L# = M# * M#
290 IF N# < X THEN A(N#) = K#
300 J = 0
310 IF (K# MOD A(J)) = 0 THEN 270
320 IF A(J) < M# THEN J = J + 1: GOTO 310
330 GOSUB 1000
340 GOTO 265
1000 IF ((N#) MOD 20) = 0 THEN PRINT "____"; : : PRINT P$
1001 ' Z$ = INPUT$(1)
1002 PRINT USING "######"; N# + 1;
1003 PRINT ". ->";
1004 PRINT USING "########"; K#
1030 RETURN
****
MSX Mailinglist. To unsubscribe, send an email to [EMAIL PROTECTED] and put
in the body (not subject) "unsubscribe msx [EMAIL PROTECTED]" (without the
quotes :-) Problems? contact [EMAIL PROTECTED] (www.stack.nl/~wiebe/mailinglist/)
****
