an program for ti84 to get ti84's ID (not work)

[844288567]

HOW TO USE IT:'( HOW TO USE IT

The function of the program is to get the machine ID and store it in STR0.


Preliminary feeling is that L6 calculates problematic ID and calculates 0 10 (A) 2D16C 7EA5. These bits are correct, but why does 10 not show A?

Attached to the program is the hope of expert answers, QQ contact me: 844288567

Code: Select all

log(ID)→Str8
DelVar XDelVar L₆"→L₆
1ᴇ12(fPart(Str8)1→L₁
1ᴇ12(fPart(Str8)/1→L₂
Str8
Ans+1-1=Ans
(1)Ans(1)
If Ans or sum(iPart(10Str8)≠4 or not(fPart(1ᴇ9Str8
“ID→Str8
Repeat not(L₁(1
not(X→X
If sum(fPart(L₁)=fPart(L₂
Then
10sum(fPart(L₁→L₆(1+dim(L₆
.1iPart(L₁→L₁
Else
10sum((1+fPart(L₁→L₆(1+dim(L₆
If X
L₂+1→L₂
.1iPart(L₁)-.1→L₁6
End
.1iPart(L₂→L₂
End
"0
For(X,dim(L₆),1,⁻1
Ans+sub("0123456789ABCDEF",L₆(X)+1,1
End
DelVar L₁DelVar L₂DelVar L₆DelVar XDelVar DDelVar IDelVar Str8sub(Ans,1,length(Ans)-4)+sub(Ans,length(Ans)-1,2)+sub(Ans,length(Ans)-3,2→Str0