コンソールとSPとBGとGRP全部まとめて保存すれば…(
DIM G%[0],C%[50,30],SP%[512,3],BG%[25,15]
GSAVE 0,0,399,239,G%
FOR Y=0 TO 29
FOR X=0 TO 49
C%[X,Y]=CHKCHR(X,Y)
NEXT
NEXT
FOR I=0 TO 512
IF SPUSED(I) THEN
SPOFS I OUT X,Y,Z:SP%[I,0]=X:SP%[I,1]=Y:SP%[I,2]=Z
ELSE
CONTINUE
ENDIF
NEXT
BGSAVE 0,BG%
自作ランチャーの簡略版
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