門脇さんの TBASE のソースコード

1995年頃、門脇さんから頂いた、T-BASE 関係のフロッピーの中に、ソースコードが含まれていた。

PC9801 シリーズのフォーマットされているので、読み込むハードが揃うのに時間がかかったが、ようやく中身を読むことができるようになった。前にA川さんに伺ったら、ソースコードは継承していないとのことだったので、もしかして、ほかには残っていないのかな。

最終版ではないものの、検索方法を同じアルゴリズムで実装するヒントには、なりそうだ。シルエット検索などは、ざっと見て、なさそうだ。

0 ' File Name = "RUIJI3.BAS"
20 '******************************************
30 '*
40 '*   同一作品を検索する試験プログラム
50 '*
60 '*
70 '*                     門脇芳雄 作
80 '*
90 '******************************************
100 REM $FILE 3,330
110 'main
120  GOSUB *INITIALIZE
130  GOSUB *KENSAKU.FILE
140  GOSUB *BAN.KAKU
150  GOSUB *SHOUKAIZU.INPUT
160  GOSUB *KENSAKU
170  GOSUB *COMMENT.2
180    IF INSTR("Nn",P$)>0 OR SS=0 THEN 220
190  SCREEN 3,0,0,1
200  GOSUB *KENSAKUZU.HYOUJI
210  GOSUB *BAN.KAKU
220  GOSUB *COMMENT.3
230  GOSUB *COMMENT.KESU
240    IF INSTR("12",P$)>0 THEN AGAIN=1 ELSE AGAIN=2
250    IF P$="1" THEN 160
260    IF P$="2" THEN GOSUB *MOUSE.HENSHUU : GOSUB *MAKE.CODE : GOTO 160
270    IF P$="3" THEN GOSUB *BANMEN.KESU   : GOTO 150
280    IF P$="4" THEN *SHUURYOU
スポンサーサイト



コメント

非公開コメント