Starting something new. . .
This is the code, Kerm. HA!
Code:
ClrHome
12→dim(L₁
Fill(0,L₁
For(θ,1,12
randInt(1,6
If Ans<6
1→L₁(θ
End
Repeat K
getKey→K
If L₁(1
identity(5,Str2,0,A,1,8,0,0,1
If L₁(2
identity(5,Str2,8,A,1,8,0,0,1
If L₁(3
identity(5,Str2,16,A,1,8,0,0,1
If L₁(4
identity(5,Str2,24,A,1,8,0,0,1
If L₁(5
identity(5,Str2,32,A,1,8,0,0,1
If L₁(6
identity(5,Str2,40,A,1,8,0,0,1
If L₁(7
identity(5,Str2,48,A,1,8,0,0,1
If L₁(8
identity(5,Str2,56,A,1,8,0,0,1
If L₁(9
identity(5,Str2,64,A,1,8,0,0,1
If L₁(10
identity(5,Str2,72,A,1,8,0,0,1
If L₁(11
identity(5,Str2,80,A,1,8,0,0,1
If L₁(12
identity(5,Str2,88,A,1,8,0,0,1
A-2→A
If A<–2
65→A
End
Goto MM
I also tried this:
Code:
ClrHome
12→dim(L₁
Fill(0,L₁
For(θ,1,12
randInt(1,6
If Ans<6
1→L₁(θ
End
Repeat K
getKey→K
For(θ,1,12
If L₁(θ
identity(5,Str2,θ-1,A,1,8,0,0,1
End
A-2→A
If A<–2
65→A
End
Goto MM