ACLS @LOOP B=BUTTON(2) IF B!=0 THEN GOSUB @LOAD GOTO @LOOP @LOOP GCLS IF B==#RIGHT THEN PEG=PEG-1 IF B==#LEFT THEN PEG=PEG+1 NAME$=STR(PEG) LOAD "GRP1:"+NAME$+"",FALES RETURN こんなんでいけるんでは無いだろうか