あけおめ

最高

BASICでN面ダイスをM個振るときのプログラムです
TRPGなどでお使いください
RANDOMIZE
INPUT PROMPT "サイコロの目,個数":N,M
INPUT PROMPT "合計を出す→1":C
FOR I=1 TO M
LET J=INT(RND*N)+1
PRINT M:"個目":J
IF C=1
LET C=C+J
PRINT "計":C
END IF
NEXT I

お願いします

PRINT "HELLO WORLD"
END