自作ランチャーの簡略版
DIM FLIST$[0]
FILES "TXT:",FLIST$
FOR I=0 TO LEN(FLIST$)-1
FLIST$[I]=MID$(FLIST$[I],1,LEN(FLIST$[I])-1
NEXT
WHILE 1
FOR I=0 TO LEN(FLIST$)-1
IF SEL==I THEN COLOR 3 ELSE COLOR 15
PRINT FLIST$[I]
NEXT
COLOR 15
IF BUTTON(1)==1 && SEL!=0 THEN DEC SEL
IF BUTTON(1)==2 && SEL!=LEN(FLIST$)-1 THEN INC SEL
IF BUTTON(2)==16 THEN EXEC "PRG1:"+FLIST$[I]
WEND
0そうだね プレイ済み