2000 CLS
2010 input "How many dice shall we roll?"; d 
2020 if d=1 then goto 2200  
2021 rem line 2020 makes nminumum no. dice = 1.
2030 print "You chose "; d; " dice."
2040 print
2050 for i=1 to d
2051 rem line 2050 starts loop, repeat d times
2060 let s = rnd(7)   
2061 rem line 2060 gives a random number 0 to 5
2070 let q = int(s+1)
2071 rem line 2070 adds 1 and rounds down to an integer
2080 print q
2090 next i           
2091 rem line 2090 closes the loop
2100 print
2110 for t=1 to 5000  
2111 rem this is a delay loop
2120 next t
2130 input "What is your new number of dice? "; d
2140 for w=1 to 1000
2141 rem this is a delay loop
2150 next w
2160 goto 2020
2200 print
2210 print "The end."

Note: Any line with that starts with "rem" after the line number is a remark and is not read as part of the program.