**TI92P*main Yoàá&—1Z&W W 6à^'—1 YRplinko|¥Z"() ©adapted by Lila Roberts ©for Demos with Positive Impact ©NSF DUE-9952306 Prgm ClrIO Disp "Enter Number of Trials" Prompt N Disp "Enter Starting Slot" Disp "Enter 1-9 for A-I or" Disp "0 for Random" Input S newList(9)L newMat(13,19)B newMat(1,12)A newMat(1,12)j For M,1,N For I,1,12 round(rand(),0)j[1,I] EndFor For I,1,12 If j[1,I]=0 Then ­1A[1,I] Else 1A[1,I] EndIf EndFor If S = 0 Then 2*rand(9)P Else 2*SP EndIf B[1,P]+1B[1,P] For I,2,13 P + A[1,I-1]P If P = 1 Then 3P EndIf If P = 19 Then 17P EndIf B[I,P]+1B[I,P] EndFor For I,2,18,2 B[13,I]L[I/2] EndFor EndFor ClrIO Output 1,1,"A" Output 1,20,L[1] Output 1,35,"F" Output 1,60,L[6] Output 10,1,"B" Output 10,20,L[2] Output 10,35,"G" Output 10,60,L[7] Output 20,1,"C" Output 20,20,L[3] Output 20,35,"H" Output 20,60,L[8] Output 30,1,"D" Output 30,20,L[4] Output 30,35,"I" Output 30,60,L[9] Output 40,1,"E" Output 40,20,L[5] 100*L[1]+500*L[2]+1000*L[3]+0*L[4]+10000*L[5]+0*L[6]+1000*L[7]+500*L[8]+100*L[9]V Output 50,1,"Amt" Output 50,30,V Output 60,1,"Done" EndPrgm äåÜd#