FILESで一覧だけ取得してからLEFT$()==SEARCH$とかやればいいんじゃ
DIM FILE$[0]
VAR SEARCH$
{SEARCHに何か入力する}
FILES "DAT:", FILE$
FOR I%=0 TO LEN(FILE$)-1
CASH$ = SHIFT(FILE$)
IF LEFT$(CASH$,LEN(SEARCH$))==SEARCH$ THEN
PUSH FILE$, CASH$
ENDIF
NEXT
先頭から削り取った要素を末尾に追加するところがポイント
1そうだね プレイ済み