Lbl 1
ClrHome

Disp "+-*/ 4 numbers","to = 24","","By John Chen"

[[1,2,3,4][1,2,4,3][1,3,2,4][1,3,4,2][1,4,3,2][1,4,2,3][2,1,3,4][2,1,4,3][2,3,1,4][2,3,4,1][2,4,3,1][2,4,1,3][3,1,4,2][3,1,2,4][3,2,1,4][3,2,4,1][3,4,1,2][3,4,2,1][4,1,2,3][4,1,3,2][4,2,1,3][4,2,3,1][4,3,1,2][4,3,2,1]]ü[G]
{0,0,0,0}üáG

For(X,1,4)
randInt(1,13)üN:NüáG(X)
End

For(A,1,24)
Output(8,8+round(A/3,0),"=")

áG([G](A,1))üD
áG([G](A,2))üE
áG([G](A,3))üF
áG([G](A,4))üG

For(M,1,4)
For(R,1,4)
For(W,1,4)
Output(8,1,"LOADING")
1üÁ
If M=1:D+EüI
If M=2:D-EüI
If M=3:D*EüI
If M=4 and Eø0:D/EüI
If M=4 and E=0:randüI
If I<0 or fPart(I)ø0:randüI
If R=1:I+FüJ
If R=2:I-FüJ
If R=3:I*FüJ
If R=4 and Fø0:I/FüJ
If R=4 and F=0:randüJ
If J<0 or fPart(J)ø0:randüJ
If W=1:J+GüK
If W=2:J-GüK
If W=3:J*GüK
If W=4 and Gø0:J/GüK
If W=4 and G=0:randüK
If K=24:Goto D

Output(8,1,"       ")
2üÁ
If R=1:F+GüJ
If R=2:F-GüJ
If R=3:F*GüJ
If R=4 and Gø0:F/GüJ
If R=4 and G=0:randüJ
If J<0 or fPart(J)ø0:randüJ
If W=1:I+JüK
If W=2:I-JüK
If W=3:I*JüK
If W=4 and Jø0:I/JüK
If W=4 and J=0:randüK
If K=24:Goto D

End
End:End:End

If A>24:Goto 1

Lbl D:ClrHome
Disp áG,"ENTER for answer","+ for hint"
getKey
0üX
While 0=X
getKeyüX
End

ClrHome:Disp áG
Output(3,1,D)
If M=1:Output(3,3,"+")
If M=2:Output(3,3,"-")
If M=3:Output(3,3,"*")
If M=4:Output(3,3,"/")
Output(3,4,E)
Output(3,6,"=")
Output(3,7,I)
If X=95:Pause 

If Á=1:Then
Output(4,1,I)
Output(4,4,F)
Output(4,7,J)
Output(5,1,J)
Output(5,4,G)
End

If Á=2:Then
Output(4,1,F)
Output(4,4,G)
Output(4,7,J)
Output(5,1,I)
Output(5,4,J)
End

If R=1:Output(4,3,"+")
If R=2:Output(4,3,"-")
If R=3:Output(4,3,"*")
If R=4:Output(4,3,"/")
If W=1:Output(5,3,"+")
If W=2:Output(5,3,"-")
If W=3:Output(5,3,"*")
If W=4:Output(5,3,"/")


Output(4,6,"=")
Output(5,6,"=24")