状態初期化

グラフィック面・キャラクタ・ファンクションキーを全て初期化します。
これ単体ではあまり意味がないので、APPEND命令で他のプログラムの初期化ルーチンとして使ってください。

・プログラムソース

GOSUB @ALLINITで初期化処理をします。

GOSUB @ALLINIT
END

@ALLINIT
ACLS:CLEAR
BGMSTOP:BGMCLEAR

MEM$=""
ICONPUSE=0
ICONPAGE=0
ICONPMAX=0

GPAGE 0,2,0:GCLS
GPAGE 0,3,0:GCLS

KEY 1,"FILES"
KEY 2,"LOAD"+CHR$(34)
KEY 3,"SAVE"+CHR$(34)
KEY 4,"CONT"
KEY 5,"RUN"

CHRINIT "BGFU"
CHRINIT "BGFL"
T1$="BGU":T2=3:T3=1:GOSUB @_ALLINIT_SUB
T1$="BGD":T2=1:T3=1:GOSUB @_ALLINIT_SUB
T1$="SPU":T2=7:T3=0:GOSUB @_ALLINIT_SUB
T1$="SPS":T2=1:T3=1:GOSUB @_ALLINIT_SUB
T1$="SPD":T2=3:T3=0:GOSUB @_ALLINIT_SUB

ACLS:CLEAR
RETURN
END

@_ALLINIT_SUB
FOR I=0 TO T2
 IF T3==0 THEN CHRINIT T1$+CHR$(48+I)
 IF T3!=0 THEN CHRINIT T1$+CHR$(48+I)+"U"
 IF T3!=0 THEN CHRINIT T1$+CHR$(48+I)+"L"
NEXT
RETURN

QRコード