100 REM ...RDICE.ECB ...from Roseville  12-17-80
  110 PRINT "&K"
  130 PRINT TAB(22),"ROLLING DICE ROUTINE"
  140 PRINT TAB(26),"BY ROD HALLEN"
  150 PRINT TAB(5),"********************************************"
  160 PRINT
  170 PRINT TAB(10),"HHHHHHHHHHHHHH"
  180 FOR I=1 TO 2
  190   FOR K=1 TO 4
  200     LET D=INT(6*RND(0)+1)
  210   NEXT K
  220   IF D=1 THEN  GOSUB 530
  230   IF D=2 THEN  GOSUB 540
  240   IF D=3 THEN  GOSUB 540
  250   IF D=4 THEN  GOSUB 550
  260   IF D=5 THEN  GOSUB 550
  270   IF D=6 THEN  GOSUB 550
  280   IF D=1 THEN  GOSUB 560
  290   IF D=2 THEN  GOSUB 530
  300   IF D=3 THEN  GOSUB 560
  310   IF D=4 THEN  GOSUB 530
  320   IF D=5 THEN  GOSUB 560
  330   IF D=6 THEN  GOSUB 550
  340   IF D=1 THEN  GOSUB 530
  350   IF D=2 THEN  GOSUB 570
  360   IF D=3 THEN  GOSUB 570
  370   IF D=4 THEN  GOSUB 550
  380   IF D=5 THEN  GOSUB 550
  390   IF D=6 THEN  GOSUB 550
  400   IF I=1 THEN  GOSUB 520
  410   LET X=X+D
  420 NEXT I
  430 PRINT TAB(9),"THE DICE TOTAL ";X;TAB(41),"HHHHHHHHHHHHHH"
  440 PRINT
  450 PRINT "TYPE 1 FOR DICE, 2 FOR INDEX, AND 3 FOR BASIC."
  460 INPUT (1,0)" ---=>",W
  470 PRINT
  480 PRINT
  490 IF W=1 THEN  GOTO 150
  500 IF W=2 THEN  GOTO 100
  510 GOTO 580
  520 PRINT TAB(I*I*I*I*I+9),"HHHHHHHHHHHHHH";TAB(41),"HHHHHHHHHHHHHH"
  525 RETURN
  530 PRINT TAB(I*I*I*I*I+9),"HH          HH"
  535 RETURN
  540 PRINT TAB(I*I*I*I*I+9),"HH  ()      HH"
  545 RETURN
  550 PRINT TAB(I*I*I*I*I+9),"HH  ()  ()  HH"
  555 RETURN
  560 PRINT TAB(I*I*I*I*I+9),"HH    ()    HH"
  565 RETURN
  570 PRINT TAB(I*I*I*I*I+9),"HH      ()  HH"
  575 RETURN
  580 END