コンソールと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%