So I Have 2 Big Problems.

1: Dividing by zero errors

2: The Program Is Slow

Hers The Code

```
Lbl M
GridOff
CoordOff
AxesOff
DelVar Str1
DelVar Str2
DelVar Str3
"N"→Str1
0→S
Prompt A,B,C,D
A→I
B→J
C→K
D→L
"ABCD"→Str3
Lbl A
(A+B)+(C+D)→E
If E=24
Then
"+++"→Str1
"(AB)(CD)"→Str2
End
(A+B)+(C-D)→E
If E=24
Then
"++-"→Str1
"(AB)(CD)"→Str2
End
(A+B)+(C*D)→E
If E=24
Then
"++*"→Str1
"(AB)(CD)"→Str2
End
(A+B)+(C/D)→E
If E=24
Then
"++/"→Str1
"(AB)(CD)"→Str2
End
(A+B)-(C+D)→E
If E=24
Then
"+-+"→Str1
"(AB)(CD)"→Str2
End
(A+B)-(C-D)→E
If E=24
Then
"+--"→Str1
"(AB)(CD)"→Str2
End
(A+B)-(C*D)→E
If E=24
Then
"+-*"→Str1
"(AB)(CD)"→Str2
End
(A+B)-(C/D)→E
If E=24
Then
"-/+"→Str1
"(AB)(CD)"→Str2
End
(A+B)*(C+D)→E
If E=24
Then
"*+"→Str1
"(AB)(CD)"→Str2
End
(A+B)*(C-D)→E
If E=24
Then
"+-+"→Str1
"(AB)(CD)"→Str2
End
(A+B)*(C*D)→E
If E=24
Then
"+**"→Str1
"(AB)(CD)"→Str2
End
(A+B)*(C/D)→E
If E=24
Then
"+*/"→Str1
"(AB)(CD)"→Str2
End
(A+B)/(C+D)→E
If E=24
Then
"+/+"→Str1
"(AB)(CD)"→Str2
End
(A+B)/(C-D)→E
If E=24
Then
"+/-"→Str1
"(AB)(CD)"→Str2
End
(A+B)/(C*D)→E
If E=24
Then
"+/*"→Str1
"(AB)(CD)"→Str2
End
(A+B)/(C/D)→E
If E=24
Then
"+//"→Str1
"(AB)(CD)"→Str2
End
(A+B+C)+(D)→E
If E=24
Then
"+++"→Str1
"(ABC)(D)"→Str2
End
(A+B+C)-(D)→E
If E=24
Then
"++-"→Str1
"(ABC)(D)"→Str2
End
(A+B+C)*(D)→E
If E=24
Then
"++*"→Str1
"(ABC)(D)"→Str2
End
(A+B+C)/(D)→E
If E=24
Then
"++/"→Str1
"(ABC)(D)"→Str2
End
(A+B-C)+(D)→E
If E=24
Then
"+-+"→Str1
"(ABC)(D)"→Str2
End
(A+B-C)-(D)→E
If E=24
Then
"+--"→Str1
"(ABC)(D)"→Str2
End
(A+B-C)*(D)→E
If E=24
Then
"+-*"→Str1
"(ABC)(D)"→Str2
End
(A+B-C)/(D)→E
If E=24
Then
"-/+"→Str1
"(ABC)(D)"→Str2
End
(A+B*C)+(D)→E
If E=24
Then
"*+"→Str1
"(ABC)(D)"→Str2
End
(A+B*C)-(D)→E
If E=24
Then
"+-+"→Str1
"(ABC)(D)"→Str2
End
(A+B*C)*(D)→E
If E=24
Then
"+**"→Str1
"(ABC)(D)"→Str2
End
(A+B*C)/(D)→E
If E=24
Then
"+*/"→Str1
"(ABC)(D)"→Str2
End
(A+B/C)+(D)→E
If E=24
Then
"+/+"→Str1
"(ABC)(D)"→Str2
End
(A+B/C)-(D)→E
If E=24
Then
"+/-"→Str1
"(ABC)(D)"→Str2
End
(A+B/C)*(D)→E
If E=24
Then
"+/*"→Str1
"(ABC)(D)"→Str2
End
(A+B/C)/(D)→E
If E=24
Then
"+//"→Str1
"(ABC)(D)"→Str2
End
(D+B+C)+(A)→E
If E=24
Then
"+++"→Str1
"(BCD)(A)"→Str2
End
(D+B+C)-(A)→E
If E=24
Then
"++-"→Str1
"(BCD)(A)"→Str2
End
(D+B+C)*(A)→E
If E=24
Then
"++*"→Str1
"(BCD)(A)"→Str2
End
(D+B+C)/(A)→E
If E=24
Then
"++/"→Str1
"(BCD)(A)"→Str2
End
(D+B-C)+(A)→E
If E=24
Then
"+-+"→Str1
"(BCD)(A)"→Str2
End
(D+B-C)-(A)→E
If E=24
Then
"+--"→Str1
"(BCD)(A)"→Str2
End
(D+B-C)*(A)→E
If E=24
Then
"+-*"→Str1
"(BCD)(A)"→Str2
End
(D+B-C)/(A)→E
If E=24
Then
"-/+"→Str1
"(BCD)(A)"→Str2
End
(D+B*C)+(A)→E
If E=24
Then
"*+"→Str1
"(BCD)(A)"→Str2
End
(D+B*C)-(A)→E
If E=24
Then
"+-+"→Str1
"(BCD)(A)"→Str2
End
(D+B*C)*(A)→E
If E=24
Then
"+**"→Str1
"(BCD)(A)"→Str2
End
(D+B*C)/(A)→E
If E=24
Then
"+*/"→Str1
"(BCD)(A)"→Str2
End
(D+B/C)+(A)→E
If E=24
Then
"+/+"→Str1
"(BCD)(A)"→Str2
End
(D+B/C)-(A)→E
If E=24
Then
"+/-"→Str1
"(BCD)(A)"→Str2
End
(D+B/C)*(A)→E
If E=24
Then
"+/*"→Str1
"(BCD)(A)"→Str2
End
(D+B/C)/(A)→E
If E=24
Then
"+//"→Str1
"(BCD)(A)"→Str2
End
(A-B)-(C-D)→E
If E=24
Then
"---"→Str1
"(AB)(CD)"→Str2
End
(A-B)-(C+D)→E
If E=24
Then
"--+"→Str1
"(AB)(CD)"→Str2
End
(A-B)-(C*D)→E
If E=24
Then
"--*"→Str1
"(AB)(CD)"→Str2
End
(A-B)-(C/D)→E
If E=24
Then
"--/"→Str1
"(AB)(CD)"→Str2
End
(A-B)+(C-D)→E
If E=24
Then
"-+-"→Str1
"(AB)(CD)"→Str2
End
(A-B)+(C+D)→E
If E=24
Then
"-++"→Str1
"(AB)(CD)"→Str2
End
(A-B)+(C*D)→E
If E=24
Then
"-+*"→Str1
"(AB)(CD)"→Str2
End
(A-B)+(C/D)→E
If E=24
Then
"+/-"→Str1
"(AB)(CD)"→Str2
End
(A-B)*(C-D)→E
If E=24
Then
"*-"→Str1
"(AB)(CD)"→Str2
End
(A-B)*(C+D)→E
If E=24
Then
"-+-"→Str1
"(AB)(CD)"→Str2
End
(A-B)*(C*D)→E
If E=24
Then
"-**"→Str1
"(AB)(CD)"→Str2
End
(A-B)*(C/D)→E
If E=24
Then
"-*/"→Str1
"(AB)(CD)"→Str2
End
(A-B)/(C-D)→E
If E=24
Then
"-/-"→Str1
"(AB)(CD)"→Str2
End
(A-B)/(C+D)→E
If E=24
Then
"-/+"→Str1
"(AB)(CD)"→Str2
End
(A-B)/(C*D)→E
If E=24
Then
"-/*"→Str1
"(AB)(CD)"→Str2
End
(A-B)/(C/D)→E
If E=24
Then
"-//"→Str1
"(AB)(CD)"→Str2
End
(A-B-C)-(D)→E
If E=24
Then
"---"→Str1
"(ABC)(D)"→Str2
End
(A-B-C)+(D)→E
If E=24
Then
"--+"→Str1
"(ABC)(D)"→Str2
End
(A-B-C)*(D)→E
If E=24
Then
"--*"→Str1
"(ABC)(D)"→Str2
End
(A-B-C)/(D)→E
If E=24
Then
"--/"→Str1
"(ABC)(D)"→Str2
End
(A-B+C)-(D)→E
If E=24
Then
"-+-"→Str1
"(ABC)(D)"→Str2
End
(A-B+C)+(D)→E
If E=24
Then
"-++"→Str1
"(ABC)(D)"→Str2
End
(A-B+C)*(D)→E
If E=24
Then
"-+*"→Str1
"(ABC)(D)"→Str2
End
(A-B+C)/(D)→E
If E=24
Then
"+/-"→Str1
"(ABC)(D)"→Str2
End
(A-B*C)-(D)→E
If E=24
Then
"*-"→Str1
"(ABC)(D)"→Str2
End
(A-B*C)+(D)→E
If E=24
Then
"-+-"→Str1
"(ABC)(D)"→Str2
End
(A-B*C)*(D)→E
If E=24
Then
"-**"→Str1
"(ABC)(D)"→Str2
End
(A-B*C)/(D)→E
If E=24
Then
"-*/"→Str1
"(ABC)(D)"→Str2
End
(A-B/C)-(D)→E
If E=24
Then
"-/-"→Str1
"(ABC)(D)"→Str2
End
(A-B/C)+(D)→E
If E=24
Then
"-/+"→Str1
"(ABC)(D)"→Str2
End
(A-B/C)*(D)→E
If E=24
Then
"-/*"→Str1
"(ABC)(D)"→Str2
End
(A-B/C)/(D)→E
If E=24
Then
"-//"→Str1
"(ABC)(D)"→Str2
End
(D-B-C)-(A)→E
If E=24
Then
"---"→Str1
"(DBC)(A)"→Str2
End
(D-B-C)+(A)→E
If E=24
Then
"--+"→Str1
"(DBC)(A)"→Str2
End
(D-B-C)*(A)→E
If E=24
Then
"--*"→Str1
"(DBC)(A)"→Str2
End
(D-B-C)/(A)→E
If E=24
Then
"--/"→Str1
"(DBC)(A)"→Str2
End
(D-B+C)-(A)→E
If E=24
Then
"-+-"→Str1
"(DBC)(A)"→Str2
End
(D-B+C)+(A)→E
If E=24
Then
"-++"→Str1
"(DBC)(A)"→Str2
End
(D-B+C)*(A)→E
If E=24
Then
"-+*"→Str1
"(DBC)(A)"→Str2
End
(D-B+C)/(A)→E
If E=24
Then
"+/-"→Str1
"(DBC)(A)"→Str2
End
(D-B*C)-(A)→E
If E=24
Then
"*-"→Str1
"(DBC)(A)"→Str2
End
(D-B*C)+(A)→E
If E=24
Then
"-+-"→Str1
"(DBC)(A)"→Str2
End
(D-B*C)*(A)→E
If E=24
Then
"-**"→Str1
"(DBC)(A)"→Str2
End
(D-B*C)/(A)→E
If E=24
Then
"-*/"→Str1
"(DBC)(A)"→Str2
End
(D-B/C)-(A)→E
If E=24
Then
"-/-"→Str1
"(DBC)(A)"→Str2
End
(D-B/C)+(A)→E
If E=24
Then
"-/+"→Str1
"(DBC)(A)"→Str2
End
(D-B/C)*(A)→E
If E=24
Then
"-/*"→Str1
"(DBC)(A)"→Str2
End
(D-B/C)/(A)→E
If E=24
Then
"-//"→Str1
"(DBC)(A)"→Str2
(A*B)*(C*D)→E
End
If E=24
Then
"***"→Str1
"(AB)(CD)"→Str2
End
(A*B)*(C+D)→E
If E=24
Then
"**+"→Str1
"(AB)(CD)"→Str2
End
(A*B)*(C-D)→E
If E=24
Then
"**-"→Str1
"(AB)(CD)"→Str2
End
(A*B)*(C/D)→E
If E=24
Then
"**/"→Str1
"(AB)(CD)"→Str2
End
(A*B)+(C*D)→E
If E=24
Then
"*+*"→Str1
"(AB)(CD)"→Str2
End
(A*B)+(C+D)→E
If E=24
Then
"*++"→Str1
"(AB)(CD)"→Str2
End
(A*B)+(C-D)→E
If E=24
Then
"*+-"→Str1
"(AB)(CD)"→Str2
End
(A*B)+(C/D)→E
If E=24
Then
"+/*"→Str1
"(AB)(CD)"→Str2
End
(A*B)-(C*D)→E
If E=24
Then
"-*"→Str1
"(AB)(CD)"→Str2
End
(A*B)-(C+D)→E
If E=24
Then
"*+*"→Str1
"(AB)(CD)"→Str2
End
(A*B)-(C-D)→E
If E=24
Then
"*--"→Str1
"(AB)(CD)"→Str2
End
(A*B)-(C/D)→E
If E=24
Then
"*-/"→Str1
"(AB)(CD)"→Str2
End
(A*B)/(C*D)→E
If E=24
Then
"*/*"→Str1
"(AB)(CD)"→Str2
End
(A*B)/(C+D)→E
If E=24
Then
"*/+"→Str1
"(AB)(CD)"→Str2
End
(A*B)/(C-D)→E
If E=24
Then
"*/-"→Str1
"(AB)(CD)"→Str2
End
(A*B)/(C/D)→E
If E=24
Then
"*//"→Str1
"(AB)(CD)"→Str2
End
(A*B*C)*(D)→E
If E=24
Then
"***"→Str1
"(ABC)(D)"→Str2
End
(A*B*C)+(D)→E
If E=24
Then
"**+"→Str1
"(ABC)(D)"→Str2
End
(A*B*C)-(D)→E
If E=24
Then
"**-"→Str1
"(ABC)(D)"→Str2
End
(A*B*C)/(D)→E
If E=24
Then
"**/"→Str1
"(ABC)(D)"→Str2
End
(A*B+C)*(D)→E
If E=24
Then
"*+*"→Str1
"(ABC)(D)"→Str2
End
(A*B+C)+(D)→E
If E=24
Then
"*++"→Str1
"(ABC)(D)"→Str2
End
(A*B+C)-(D)→E
If E=24
Then
"*+-"→Str1
"(ABC)(D)"→Str2
End
(A*B+C)/(D)→E
If E=24
Then
"+/*"→Str1
"(ABC)(D)"→Str2
End
(A*B-C)*(D)→E
If E=24
Then
"-*"→Str1
"(ABC)(D)"→Str2
End
(A*B-C)+(D)→E
If E=24
Then
"*+*"→Str1
"(ABC)(D)"→Str2
End
(A*B-C)-(D)→E
If E=24
Then
"*--"→Str1
"(ABC)(D)"→Str2
End
(A*B-C)/(D)→E
If E=24
Then
"*-/"→Str1
"(ABC)(D)"→Str2
End
(A*B/C)*(D)→E
If E=24
Then
"*/*"→Str1
"(ABC)(D)"→Str2
End
(A*B/C)+(D)→E
If E=24
Then
"*/+"→Str1
"(ABC)(D)"→Str2
End
(A*B/C)-(D)→E
If E=24
Then
"*/-"→Str1
"(ABC)(D)"→Str2
End
(A*B/C)/(D)→E
If E=24
Then
"*//"→Str1
"(ABC)(D)"→Str2
End
(D*B*C)*(A)→E
If E=24
Then
"***"→Str1
"(DBC)(A)"→Str2
End
(D*B*C)+(A)→E
If E=24
Then
"**+"→Str1
"(DBC)(A)"→Str2
End
(D*B*C)-(A)→E
If E=24
Then
"**-"→Str1
"(DBC)(A)"→Str2
End
(D*B*C)/(A)→E
If E=24
Then
"**/"→Str1
"(DBC)(A)"→Str2
End
(D*B+C)*(A)→E
If E=24
Then
"*+*"→Str1
"(DBC)(A)"→Str2
End
(D*B+C)+(A)→E
If E=24
Then
"*++"→Str1
"(DBC)(A)"→Str2
End
(D*B+C)-(A)→E
If E=24
Then
"*+-"→Str1
"(DBC)(A)"→Str2
End
(D*B+C)/(A)→E
If E=24
Then
"+/*"→Str1
"(DBC)(A)"→Str2
End
(D*B-C)*(A)→E
If E=24
Then
"-*"→Str1
"(DBC)(A)"→Str2
End
(D*B-C)+(A)→E
If E=24
Then
"*+*"→Str1
"(DBC)(A)"→Str2
End
(D*B-C)-(A)→E
If E=24
Then
"*--"→Str1
"(DBC)(A)"→Str2
End
(D*B-C)/(A)→E
If E=24
Then
"*-/"→Str1
"(DBC)(A)"→Str2
End
(D*B/C)*(A)→E
If E=24
Then
"*/*"→Str1
"(DBC)(A)"→Str2
End
(D*B/C)+(A)→E
If E=24
Then
"*/+"→Str1
"(DBC)(A)"→Str2
End
(D*B/C)-(A)→E
If E=24
Then
"*/-"→Str1
"(DBC)(A)"→Str2
End
(D*B/C)/(A)→E
If E=24
Then
"*//"→Str1
"(DBC)(A)"→Str2
(A/B)/(C/D)→E
End
If E=24
Then
"///"→Str1
"(DBC)(A)"→Str2
End
(A/B)/(C+D)→E
If E=24
Then
"//+"→Str1
"(AB)(CD)"→Str2
End
(A/B)/(C-D)→E
If E=24
Then
"//-"→Str1
"(AB)(CD)"→Str2
End
(A/B)/(C*D)→E
If E=24
Then
"//*"→Str1
"(AB)(CD)"→Str2
End
(A/B)+(C/D)→E
If E=24
Then
"/+/"→Str1
"(AB)(CD)"→Str2
End
(A/B)+(C+D)→E
If E=24
Then
"/++"→Str1
"(AB)(CD)"→Str2
End
(A/B)+(C-D)→E
If E=24
Then
"/+-"→Str1
"(AB)(CD)"→Str2
End
(A/B)+(C*D)→E
If E=24
Then
"+*/"→Str1
"(AB)(CD)"→Str2
End
(A/B)-(C/D)→E
If E=24
Then
"-/"→Str1
"(AB)(CD)"→Str2
End
(A/B)-(C+D)→E
If E=24
Then
"/+/"→Str1
"(AB)(CD)"→Str2
End
(A/B)-(C-D)→E
If E=24
Then
"/--"→Str1
"(AB)(CD)"→Str2
End
(A/B)-(C*D)→E
If E=24
Then
"/-*"→Str1
"(AB)(CD)"→Str2
End
(A/B)*(C/D)→E
If E=24
Then
"/*/"→Str1
"(AB)(CD)"→Str2
End
(A/B)*(C+D)→E
If E=24
Then
"/*+"→Str1
"(AB)(CD)"→Str2
End
(A/B)*(C-D)→E
If E=24
Then
"/*-"→Str1
"(AB)(CD)"→Str2
End
(A/B)*(C*D)→E
If E=24
Then
"/**"→Str1
"(AB)(CD)"→Str2
End
(A/B/C)/(D)→E
If E=24
Then
"///"→Str1
"(AB)(CD)"→Str2
End
(A/B/C)+(D)→E
If E=24
Then
"//+"→Str1
"(ABC)(D)"→Str2
End
(A/B/C)-(D)→E
If E=24
Then
"//-"→Str1
"(ABC)(D)"→Str2
End
(A/B/C)*(D)→E
If E=24
Then
"//*"→Str1
"(ABC)(D)"→Str2
End
(A/B+C)/(D)→E
If E=24
Then
"/+/"→Str1
"(ABC)(D)"→Str2
End
(A/B+C)+(D)→E
If E=24
Then
"/++"→Str1
"(ABC)(D)"→Str2
End
(A/B+C)-(D)→E
If E=24
Then
"/+-"→Str1
"(ABC)(D)"→Str2
End
(A/B+C)*(D)→E
If E=24
Then
"+*/"→Str1
"(ABC)(D)"→Str2
End
(A/B-C)/(D)→E
If E=24
Then
"-/"→Str1
"(ABC)(D)"→Str2
End
(A/B-C)+(D)→E
If E=24
Then
"/+/"→Str1
"(ABC)(D)"→Str2
End
(A/B-C)-(D)→E
If E=24
Then
"/--"→Str1
"(ABC)(D)"→Str2
End
(A/B-C)*(D)→E
If E=24
Then
"/-*"→Str1
"(ABC)(D)"→Str2
End
(A/B*C)/(D)→E
If E=24
Then
"/*/"→Str1
"(ABC)(D)"→Str2
End
(A/B*C)+(D)→E
If E=24
Then
"/*+"→Str1
"(ABC)(D)"→Str2
End
(A/B*C)-(D)→E
If E=24
Then
"/*-"→Str1
"(ABC)(D)"→Str2
End
(A/B*C)*(D)→E
If E=24
Then
"/**"→Str1
"(ABC)(D)"→Str2
End
(D/B/C)/(A)→E
If E=24
Then
"///"→Str1
"(ABC)(D)"→Str2
End
(D/B/C)+(A)→E
If E=24
Then
"//+"→Str1
"(DBC)(A)"→Str2
End
(D/B/C)-(A)→E
If E=24
Then
"//-"→Str1
"(DBC)(A)"→Str2
End
(D/B/C)*(A)→E
If E=24
Then
"//*"→Str1
"(DBC)(A)"→Str2
End
(D/B+C)/(A)→E
If E=24
Then
"/+/"→Str1
"(DBC)(A)"→Str2
End
(D/B+C)+(A)→E
If E=24
Then
"/++"→Str1
"(DBC)(A)"→Str2
End
(D/B+C)-(A)→E
If E=24
Then
"/+-"→Str1
"(DBC)(A)"→Str2
End
(D/B+C)*(A)→E
If E=24
Then
"+*/"→Str1
"(DBC)(A)"→Str2
End
(D/B-C)/(A)→E
If E=24
Then
"-/"→Str1
"(DBC)(A)"→Str2
End
(D/B-C)+(A)→E
If E=24
Then
"/+/"→Str1
"(DBC)(A)"→Str2
End
(D/B-C)-(A)→E
If E=24
Then
"/--"→Str1
"(DBC)(A)"→Str2
End
(D/B-C)*(A)→E
If E=24
Then
"/-*"→Str1
"(DBC)(A)"→Str2
End
(D/B*C)/(A)→E
If E=24
Then
"/*/"→Str1
"(DBC)(A)"→Str2
End
(D/B*C)+(A)→E
If E=24
Then
"/*+"→Str1
"(DBC)(A)"→Str2
End
(D/B*C)-(A)→E
If E=24
Then
"/*-"→Str1
"(DBC)(A)"→Str2
End
(D/B*C)*(A)→E
If E=24
Then
"/**"→Str1
"(DBC)(A)"→Str2
End
ClrHome
ClrDraw
If Str1≠"N"
Then
Text(1,1,Str3
If Str2="(AB)(CD)"
Then
Text(10,1,"(",A,B,")(",C,D,")"
End
If Str2="(ABC)(D)"
Then
Text(10,1,"(",A,B,C,")(",D,")"
End
If Str2="(DBC)(A)"
Then
Text(10,1,"(",D,B,C,")(",A,")"
End
Text(30,30,Str1
Pause
Goto M
Else
If S=0
Then
I→A
J→B
K→D
L→C
"ABDC"→Str3
Goto A
S=1→S
End
If S=1
Then
I→A
J→C
K→B
L→D
"ACBD"→Str3
Goto A
S=1→S
End
If S=2
Then
I→A
J→C
K→D
L→B
"ACDB"→Str3
Goto A
S=1→S
End
If S=3
Then
I→A
J→D
K→B
L→C
"ADBC"→Str3
Goto A
S=1→S
End
If S=4
Then
I→A
J→D
K→C
L→B
"ADCB"→Str3
Goto A
S=1→S
End
If S=5
Then
I→B
J→A
K→C
L→D
"BACD"→Str3
Goto A
S=1→S
End
If S=6
Then
I→B
J→A
K→D
L→C
"BADC"→Str3
Goto A
S=1→S
End
If S=7
Then
I→B
J→C
K→A
L→D
"BCAD"→Str3
Goto A
S=1→S
End
If S=8
Then
I→B
J→C
K→D
L→A
"BCAD"→Str3
Goto A
S=1→S
End
If S=9
Then
I→B
J→D
K→A
L→C
"BDAC"→Str3
Goto A
S=1→S
End
If S=10
Then
I→B
J→D
K→C
L→A
"BDCA"→Str3
Goto A
S=1→S
End
If S=11
Then
I→C
J→A
K→B
L→D
"CABD"→Str3
Goto A
S=1→S
End
If S=12
Then
I→C
J→A
K→D
L→B
"CADB"→Str3
Goto A
S=1→S
End
If S=13
Then
I→C
J→B
K→A
L→D
"CBAD"→Str3
Goto A
S=1→S
End
If S=14
Then
I→C
J→B
K→D
L→A
"CBDA"→Str3
Goto A
S=1→S
End
If S=15
Then
I→C
J→D
K→A
L→B
"CDAB"→Str3
Goto A
S=1→S
End
If S=16
Then
I→C
J→D
K→B
L→A
"CDBA"→Str3
Goto A
S=1→S
End
If S=17
Then
I→D
J→A
K→B
L→C
"DABC"→Str3
Goto A
S=1→S
End
If S=18
Then
I→D
J→A
K→C
L→B
"DACB"→Str3
Goto A
S=1→S
End
If S=19
Then
I→D
J→B
K→A
L→C
"DBAC"→Str3
Goto A
S=1→S
End
If S=20
Then
I→D
J→B
K→C
L→A
"DBCA"→Str3
Goto A
S=1→S
End
If S=21
Then
I→D
J→C
K→A
L→B
"DCAB"→Str3
Goto A
S=1→S
End
If S=22
Then
I→D
J→C
K→B
L→A
"DCBA"→Str3
Goto A
S=1→S
End
If S=23
Then
TExt(1,1,"CANT SOLVE")
Goto M
End
End
```

Please Leave Feedback And Help, Thank You.