ワード全検索ｂｙ十進ＢＡＳＩＣ 途中経過。

まあ、一応はやりたいことへ向かっているが

十進ＢＡＳＩＣ、思ったより文字列文字数制限が厳しいようだ。

 

10 LET s$="c:\gikonavi\Log\2ch\poverty\*.dat"
20 LET n=files(s$)
30 IF n>0 THEN
40 DIM names$(n)
50 file list s$, names$
60 MAT PRINT names$
70 END IF
80 LET F$="c:\gikonavi\Log\2ch\poverty\"&names$(1)
100 OPEN #1:NAME F$
110 DO
120 WHEN EXCEPTION IN
130 INPUT #1,IF MISSING THEN EXIT DO: a$
140 PRINT a$
150 USE
160 SET #1:POINTER SAME
170 LINE INPUT #1:t$
180 PRINT "error",t$
190 END WHEN
200 LOOP
210 END

十進ＢＡＳＩＣで、ギコナビのワード全検索アプリをつくりたい。

自分が保存してあるギコナビの過去ログを

 

全部、いっぺんにワード検索する。今は、手動なんですが

何万スレもあるので。何万レスではなく何万スレです。

ガルパン・秋山殿。

チェキッ娘「ありがとう」(99.08.27)

チェキッ娘「ありがとう」(99.08.27)

LINDA - 福永恵規

LINDA - 福永恵規

Ｃで素数を求める。

 

いろいろ障害はあったが、Ｗｉｎ７マシンで１０００００００までの素数を列挙。さすがに速い。ＢＡＳＩＣとは一味違う。しかしふた味はちがわなかった。

１億までの素数をテキストファイルにするＢＡＳＩＣプログラム完全版

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

ＣＡＳＬＩＩ 素数求数プログラム 直した。

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

9+ONE Kalafina - Consolation Live 2017

Kalafina - 全曲集 (2008～2018)

Kalafina - 全曲集 (2008～2018)

synchronicity

synchronicity

fortissimo-the ultimate crisis

fortissimo-the ultimate crisis

嘆きの天使 - 絢辻詞 (cv 名塚佳織) SVP

嘆きの天使 - 絢辻詞 (cv 名塚佳織) SVP

サイダーガール “メランコリー” Music Video

サイダーガール “メランコリー” Music Video

[歌マクロス]FULL版「Absolute 5」絶対的なワルキューレ5人のフル動画！ #745

[歌マクロス]FULL版「Absolute 5」絶対的なワルキューレ5人のフル動画！　 #745