170 GOTO 500 250 ' 260 ' Print ND die images across the page. 270 ' Array D() holds die values. 280 ' 290 FOR L=1 TO 5 300 FOR D=1 TO ND 310 N=D(D):T1=ABS(N>1):T2=ABS(N>3) 315 T3=ABS(N=6):T4=ABS((N/2)<>INT(N/2)) 320 IF D>1 THEN PRINT" "; 330 IF L=1 OR L=5 THEN PRINT"+-----+"; :GOTO 430 340 PRINT"|"; 350 IF L=2 THEN PRINT C$(T2);" ";C$(T1);:GOTO 420 370 IF L=3 THEN PRINT C$(T3);" ";C$(T4);" ";C$(T3);:GOTO 420 410 PRINT C$(T1);" ";C$(T2); 420 PRINT"|"; 430 NEXT D 440 PRINT 450 NEXT L 460 RETURN 470 ' 480 ' Initialize 490 ' 500 ND=2'number of dice (max: 8) 510 DIM D(ND),C$(2) 515 C$(0)=" " : C$(1)="o" 520 RANDOMIZE 530 PRINT CHR$(12);'clear screen 540 ' Pick ND random die values 550 FOR A=1 TO ND 560 D(A)=INT(RND(1)*6+1) 570 ' PRINT TAB(3+10*(A-1));D(A); 580 NEXT A 590 PRINT 600 GOSUB 290'print die images 610 FOR X=1 TO 800'delay 620 NEXT X 630 GOTO 550