いろいろ障害はあったが、Ｗｉｎ７マシンで１０００００００までの素数を列挙。さすがに速い。ＢＡＳＩＣとは一味違う。しかしふた味はちがわなかった。
10 LET F$ = "E:ABC.TXT"
20 OPEN #1 : NAME F$
30 ERASE #1
40 LET C=3
50 LET K=11
64 IF MOD(K,C)=0 THEN GOTO 130
70 IF MOD(C,6)=1 THEN C=C+4 ELSE LET C=C+2
80 IF K<C*C THEN
90 PRINT #1 : K
100 GOTO 130
110 END IF
120 GOTO 64
130 LET C=3
140 IF MOD(K,6)=1 THEN LET K=K+4 ELSE LET K=K+2
1000 IF K>1000000 THEN GOTO 10000
1221 GOTO 64
10000 PRINT C,K
10001 CLOSE #1
10002 END
20 OPEN #1 : NAME F$
30 ERASE #1
40 LET C=3
50 LET K=11
64 IF MOD(K,C)=0 THEN GOTO 130
70 IF MOD(C,6)=1 THEN C=C+4 ELSE LET C=C+2
80 IF K<C*C THEN
90 PRINT #1 : K
100 GOTO 130
110 END IF
120 GOTO 64
130 LET C=3
140 IF MOD(K,6)=1 THEN LET K=K+4 ELSE LET K=K+2
1000 IF K>1000000 THEN GOTO 10000
1221 GOTO 64
10000 PRINT C,K
10001 CLOSE #1
10002 END
TEST START
PRMAIN LD GR5,=3
ST GR5,KWR
MAIN LD GR1,CHPC
MAIND CPA GR1,KWR
JMI DJUMP
MAINE CPA GR1,KWR
JMI MAIN2
CPA GR1,KWR
JZE MAIN3
LD GR7,KWR
SUBA GR1,GR7
JUMP MAIND
MAIN2 LD GR2,KWR
LD GR4,KWR
SUBA GR4,ONE
TIMES ADDA GR2,KWR
SUBA GR4,ONE
JPL TIMES
CPA GR2,CHPC
JMI KPLUS
JUMP MAIN3
DJUMP LD GR3,GR1
JUMP MAINE
KPLUS LD GR5,KWR
ADDA GR5,TWO
ST GR5,KWR
JUMP MAIN
MAIN3 CPA GR3,KWR
JNZ OUTPUT
MAINF LD GR5,CHPC
ADDA GR5,TWO
ST GR5,CHPC
JUMP PRMAIN
OUTPUT OUT CHPC,LEN
JUMP MAINF
CHPC DC 11
KWR DC 3
ONE DC 1
TWO DC 2
LEN DC 4
TEN DC 10
RET
END
表示はされるようになった。どうも、数値を数字のＡＳＣＩＩコードに変換するプログラムが別途必要なようである。
9+ONE Kalafina - Consolation Live 2017
トータル
