レコンポーザファイル(*.rcp)のタイトル取得について

かなり古い規格(?)レコンポーザファイル(*.rcp)のタイトルを取得するプログラムをHSPで
作っています。
rcpファイルはpeekでデータの値を見ていくとタイトルが始まる部分が32番目から始まり
123番目から前へ見ていき123番目と同じでないデータが来た所までがタイトルではないかと考え
以下のような取得プログラムを考えてみました。





*init
	button "読込",*main

*main
	dialog "rcp",16
	if ( stat == 0 ) : end
	fname = refstr
	sdim ttl,256

*gettitle
	exist fname
		if ( strsize == -1 ) : dialog "ファイルが見つからない",2 : end
	sdim mididata
	notesel mididata
	noteload fname

	count = 122
	while ( peek(mididata,count) == peek(mididata,123) )
		count --
	wend

	memcpy ttl,mididata,count-31,,32

	dialog ttl
stop

このような取得方法で調べたところ、TMIDIの表示されるタイトルと一致させることが
出来ましたが動作確証が取れていません。
このような取得方法で問題ないでしょうか?
またよりよい取得方法がありましたら知りたいので是非とも教えて下さい。
よろしくお願いいたします。

HSPTV!掲示板