CLS REPEAT WAIT A=INSTR("0123456789",INKEY$()) '←１文字入力し"0"～"9"なら該当の数を変数Aに入れる IF 0<=A THEN N=N+A:LOCATE 0,0:?N '←該当の文字だったら変数Nに足し込んで表示 UNTIL 0 こういうことなのかな