・引数を指定すると、一部の設定のみリセットせずに保存することができる。
1を指定するとフォントページを除いたグラフィックページをクリアせずに保存する
・省略時は0。
1を指定するとSPDEFの内容を保存する
・省略時は0。
1を指定するとフォントページをクリアせずに保存する
・省略時は0。
1を指定するとANIMDEFで定義した内容をクリアせずに保存する
・省略時は0。
'ACLSは次のプログラムとほぼ同じ動作となる DEF ACLS KEEPGRP,KEEPSPDEF,KEEPGRPF VAR SCW=400,SCH=240 XSCREEN SCW,SCH,2 SPCLR BACKCOLOR &HFF000000 FOR I=0 TO 3 TSCREEN I,16,16:TPAGE I,4,1024,0 TLAYER I,0:TOFS I,0,0,0:ATTR I,0 COLOR I,#C_WHITE:CLS I NEXT TSCREEN #TCONSOLE,16,8:TPAGE #TCONSOLE,4,1024,0 TLAYER #TCONSOLE, 0:TOFS #TCONSOLE,0,0,-4095:ATTR 0 COLOR #C_WHITE:CLS IF !KEEPGRP THEN FOR I=0 TO 5:GTARGET I:GCLS:NEXT LOADG "GRP:#SYS/DEFGRP",4 ENDIF IF !KEEPGRPF THEN LOADG "GRP:#SYS/DEFFONT",#GRPF ENDIF GTARGET 0 GCOLOR #C_WHITE GCLIP 0,0,#GRPWIDTH-1,#GRPHEIGHT-1 SPSET #GSPRITE,0,0,SCW,SCH,0,1 SPPAGE #GSPRITE,0 SPLAYER #GSPRITE,0 SPOFS #GSPRITE,0,0,4095 IF !KEEPSPDEF THEN SPDEF ENDIF ANIMDEF FOR I=0 TO 7:LAYER I:LFILTER I:LCLIP I:LMATRIX I:NEXT FADE 0 END