Petitverse

'現行バージョンのみ対応
'NM Oneライブラリをロードし、USEまたはEXECしたうえで実行すること。
'曲名、作曲者等の取得。SLOTにNMPACKSファイルをロードしたスロット番号、MODEは共通モード:0/3号モード:1/BIGモード:2/プチコン4モード:4を指定。ATTR$は要素名(曲名なら"TITLE"、作曲者名なら"COMPOSER"など)を指定。
DEF GET_ALL_DATAS$(SLOT,MODE,ATTR$)
　DIM ID$[0],RES$[0]
　VAR I
　ID$=NMO_INIT(SLOT,MODE)
　FOR I=0 TO LEN(ID$)-1
　　PUSH RES$,NMO_GET$(ID$[I],ATTR$)
　NEXT
　RETURN RES$
END

ごめんなさい。MMLだけを取得する命令は現時点では存在していませんし、書き写すのに大変手間がかかるので、NM OneライブラリからNMO_BGMSET命令をコピペし、次のように書き換えてください。(元の命令は消さないように！)
・「COMMON DEF NMO_BGMSET ID$,NO」→「DEF MMLGET$(_NMO_SLOT,_NMO_MODE,ID$)」
・「BGMSETD NO,」→「RETURN READMML$(」、行末に「)」を追加

また、先程の投稿で用意した関数をコピペし次のように書き換えます。
・「GET_ALL_DATAS$(SLOT,MODE,ATTR$)」→「GET_ALL_MMLS$(SLOT,MODE)」
・「NMO_GET$(ID$[I],ATTR$)」→「MMLGET$(SLOT,MODE,ID$[I])」

さらにもう一つ関数を追加します。
DEF READMML$(LABEL$)
　RESTORE LABEL$
　VAR R$,T$
　REPEAT
　　READ T$
　　R$=R$+T$
　UNTIL T$==""
　RETURN R$
END

これによって以下のように関数・命令が揃うはずです。
DEF GET_ALL_DATAS$( SLOT, MODE, ATTR$ )
　DIM ID$[ 0 ], RES$[ 0 ]
　VAR I
　ID$ = NMO_INIT( SLOT, MODE )
　FOR I = 0 TO LEN( ID$ ) - 1
　　PUSH RES$, NMO_GET$( ID$[I], ATTR$ )
　NEXT
　RETURN RES$
END

DEF MMLGET$( _NMO_SLOT, _NMO_MODE, ID$ )
　(中略)
　RETURN READMML$( STR$(_NMO_SLOT) + ":" + NMO_GETMODESU$( _NMO_MODE * FLG) + ID$ )
END

DEF GET_ALL_MMLS$( SLOT, MODE )
　DIM ID$[ 0 ], RES$[ 0 ]
　VAR I
　ID$ = NMO_INIT( SLOT, MODE )
　FOR I = 0 TO LEN( ID$ ) - 1
　　PUSH RES$, MMLGET$( SLOT, MODE, ID$[I], ATTR$ )
　NEXT
　RETURN RES$
END

DEF READMML$( LABEL$ )
　RESTORE LABEL$
　VAR R$, T$
　REPEAT
　　READ T$
　　R$ = R$ + T$
　UNTIL T$ == ""
　RETURN R$
END