Quick Basic in Application

1000 CLS : : DIM A(15000): DIM B(15000)
1010 INPUT “NUMBER OF SIDES”; NS
1020 IF NS < 2 THEN PRINT : PRINT “NOT LIKELY”: GOTO 1010
1030 PRINT
1040 INPUT “NUMBER OF DICE”; ND
1050 IF ND = 0 THEN PRINT : PRINT “NOT LIKELY”: GOTO 1040
1060 IF ND = 1 THEN 1670
1070 IF ND = 2 THEN 1100
1080 [...]