dDICE n A(12 ) x1100L:G=0 I=1 12 .X=1-(I/10 ):Y=I:1700:;I I 1N=6:I=1 12 :A(I)=0:I 2X=0:Y=14:1700:"DICE ROLL: " *G=G+1:1300:A=R:1300 .X=13 :Y=14:1700:;A;"+";R 9T=A+R:A(T)=A(T)+0.5:A(T)>17.5 220 (X=A(T)+2.5 :Y=T:1700:"*" 2T=0.4L:1400x:G<180 180 T=6:1400x 2800 /X=4:Y=1:1700:"RESULTS": I=1 11 2 H;I;" - ";2*A(I);(10 );I+1;" - ";2*A(I+1) I ": SPECTRUM SUBROUTINES L1W=32 :D=22:F=8:1200: :8,0;: R=(N*+1): xZ=1 200*T:Z: ""1500 =""1510 G$=: @K$=:  Y,X;:  (X);: l(11 );: (9 );: 42200:K=("0"+K$): K$="" !1500:(G$)=13 : ,(G$)12 K$=K$+G$:G$;:2210 (K$)=0 2210 @(8);" ";(8);:K$=K$( ̱(K$)-1):2210 : `.1}L,Z/10 -6: R$=(R+64@): ( P$=K$(P): 2600( :A=(P$): : TV$(26): W$(60<,26):  GG=(G$):