And the final product. It works completely. Almost positive there's no bugs but if you find any, let me know.
Code:
908 bytes. Plus the List Row which has a max of 644 bytes depending on which row you need. You will need ToString CE by MateoConLechuga to run this.
Edit: Already found an error. Asm(prgmSHFTUP. I don't know enough asm to be able to write this. Let me try.
Code:
Lbl 0
ClrHome
Menu("OPTIONS","ROW#",A,"BIONOMIAL THEOREM",B,"QUIT",C
Lbl A
Output(10,1,"ROW#≤69
Input "ROW:",C
If C≥70:Then
Output(10,15,"ERROR
Goto A
End
Pause seq(C nCr X,X,0,C
Ans→⌊ROW
Goto 0
Lbl B
ClrHome
0→D:1→K:1→Z:1→Y
"+→Str0
"X^→Str9
Output(4,1,"D(X+A)^B
Output(5,1,"B≤69
Input "A=",A
Input "B=",B
Input "D=",D
If B≥70:Then
Output(10,1,"ERROR
Goto B
End
If D=0:Then
Output(4,1,"EQUALS ZERO
Pause
Goto B
End
ClrHome
Fix 3
For(Q,0,B
(B!)/(Q!((B-Q)!))→N
B-K→J
DN(A^Q)→G
D(A^B→H
B:Asm(prgmTOSTR:Ans→Str1
J:Asm(prgmTOSTR:Ans→Str2
H:Asm(prgmTOSTR:Ans→Str3
D:Asm(prgmTOSTR:Ans→Str5
"X→Str6
If G≠1:Then
G:Asm(prgmTOSTR:Ans→Str4
End
If D=1:Then
If B:Then
If not(Q):Then
Output(1,1,Str9+Str1
Y+length(Str9+Str1→Y
End
If Q=B:Output(Z,Y,Str0+Str3
If Q and Q≠B:Then
If A^Q:Then
If J≠1:Then
Output(Z,Y,Str0+Str4+Str9+Str2
K+1→K:Y+length(Str0+Str4+Str9+Str2→Y
End
If J=1:Then
Output(Z,Y,Str0+Str4+Str6
K+1→K:Y+length(Str0+Str4+Str6→Y
End:End
If not(A^Q):Goto E
End:End:End
If D≠1:Then
If B:Then
If not(Q):Then
Output(1,1,Str5+Str9+Str1
Y+length(Str5+Str9+Str1→Y
End
If Q=B:Output(Z,Y,Str0+Str3
If Q and Q≠B:Then
If A^Q:Then
If J≠1:Then
Output(Z,Y,Str0+Str4+Str9+Str2
K+1→K:Y+length(Str0+Str4+Str9+Str2→Y
End
If J=1:Then
Output(Z,Y,Str0+Str4+Str6
K+1→K:Y+length(Str0+Str4+Str6→Y
End:End
If not(A^Q):Goto E
End:End:End
If fPart(Z/10)=.9:Then
9:Asm(prgmSHFTUP
1→Z
End
If Y>26:Then
Y-26→Y:Z+1→Z
End:End
Lbl E
Output(Z+1,1,"DONE
Pause
Float
Goto 0
Lbl C908 bytes. Plus the List Row which has a max of 644 bytes depending on which row you need. You will need ToString CE by MateoConLechuga to run this.
Edit: Already found an error. Asm(prgmSHFTUP. I don't know enough asm to be able to write this. Let me try.
