門脇さんの TBASE のソースコード (続)

門脇さんの TBASE のソースコードについて、A川さんから、連絡があり、I田さんがお持ちになっていて送ってくださっています。とのことで転送してもらいました。

TBASE のProgram の刷新なんかは考えてなく

 同一作高速検索,配置駒位置検索,81格比較検索,平行移動作検索,シルエット検索

のアルゴリズムを解析して、柿木ファイル、または Suiho ファイルでの実装が出来ればいいかなーと思っています。うまくいけばいいのですが。 

こちらのソースは、行番号もなくスッキリした感じです。

' File Name = "WRUIJI7.BAS"
'******************************************
'*
'*   同一作品を検索する試験プログラム
'*
'*
'*                     門脇芳雄 作
'*
'******************************************
' *ZUMEN_KAKU~*問題表示 両方使われている要check
#include "WINDOWS.BI"
#include "FILE.BI"
'CHDIR,CRDIR,DCLOSE,DOPEN,DRIVE,EBUF,FINF$,GETFIN,MKDIR,RMDIR,SETFILE,SETDIR

'-------------
*INITIALIZE
'-------------
on ERROR goto *ERROR_SHORI
def fnX(X)=355-32*X: def fnY(Y)=35*Y
def fnU(X)=(386-X/FX)\32:def fnV(Y)=Y/FY\35
def fnS$(I)=mid$(str$(I),2)
def fnT$(A$)=X$(val(left$(A$,1)))+Y$(val(mid$(A$,2,1)))+mid$(A$,3)
def fnJ=NS*20+JJ
def fnI=val(mid$(CODE1$+CODE2$,C1,4))
def fnN$=mid$(CODE1$+CODE2$,C2,len(検索式$)-3)
def fnK=val(mid$(CODE1$+CODE2$,C3,L3))


スポンサーサイト



コメント

非公開コメント