:DICE.BAS V1.01 G.S. Ringley [73727,1202]` :A$( ): ,"1D6"A$: ,"2D6"A$: ,"3D6"A$: ,"1D100"A$: ,"1D20"A$: ,"1D12"A$: ,"1D10"A$: ,"1D8"A$: ,"1D4"A$:  ,"1D3"A$: : : : ,,: "ROLL:";ROLL$:RL(ROLL$): ,RL,: RL  : N()); : (,)(,^),,BF' MATH$"+-*/": I RL:RL$(ROLL$,I,): RL$"D" RL$"d" DIe ( DL < : J : (MATH$,J,)RL$ DLI:MATHJm 2 J < I: D  F DL DL(ROLL$) : MOF$(ROLL$,DL):MOF(MOF$): MOF a PDICE((ROLL$,D)):DIE((ROLL$,D,DLD)): DICE DIE  : DL((DIE)):ROW:COL: ROW,COL,: I DL:USE$USE$"#": I Z ((,))((,,))<((,))E2v d ROLL DICE:PIP(DIE):SUMSUMPIP n PIP LOWSLOWS x PIPDIE HIGHSHIGHS^ ()PDL  : ROWROW:COL: ROW ROW: SCRN SCRN : SCRNu ROW,COL,: SCRN USE$;PIP; : ROLL: MATH ,,,: ,,:: "SUM:";SUM;" HIGHS:";HIGHS;" LOWS:";LOWS;N()); :  SUMSUMMOF: SUMSUMMOF:. SUMSUMMOF:@ SUMSUMMOF:x : (,)(,v),,B: (,_)(,_): ,,: : ,,: "FORMAT IS diceDdie([+-*/]mod)!";: