### Author Topic: help~an program for ti84/ti83 to get it's ID to Str0 (but not work)  (Read 2728 times)

0 Members and 1 Guest are viewing this topic.

#### jknear

• LV0 Newcomer (Next: 5)
• Posts: 4
• Rating: +0/-0
##### help~an program for ti84/ti83 to get it's ID to Str0 (but not work)
« on: September 19, 2019, 10:41:20 pm »
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
before use it :2nd+LINK  -> sendID  then  run  GETID

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