③306行目と307行目の間に
@_STN
SIZ_=ZS(ZM)
IF SIZ_!=2 THEN SIZ_=SIZ_+1
GPUTCHR TCHX,TCHY,"BGF0",FNO,0,SIZ_
@_TCHK
IF TCHST==0 THEN RETURN
GOTO @_TCHK
④41行目と42行目の間に
IF B==33 AND OLDB!=33 THEN FNO=FNO+1
IF B==34 AND OLDB!=34 THEN FNO=FNO-1
IF FNO>255 THEN FNO=0
IF FNO<0 THEN FNO=255
LOCATE 9,13:PRINT FNO;"(スペース×2)";
PNLTYPE"OFF":CLEAR:CLS
VISIBLE 1,1,0,0,0,0:N=0
FOR J=0 TO 1:J=0
TMREAD(TIME$),H,M,S
OH=H:OM=M:OS=S:Q=3600
FOR I-0 TO 1OH=H:OM=M:OS=S
VSYNC 1TMREAD(TIME$),H,M,S
A=OS+OM*60+OH*Q:E=S+M*60+H*Q
I=E>1+A:NEXT:FOR I=0 TO 1
I=TCHST:BEEP N:NEXT:NEXT