hey, im making an android lock for calc. all i need help with is a method to track inputs. any help?

i need help uplaoding a gif, so no gif this time :(

heres the code

the ú is a negative

ø is a not equal to

ü is →

```
ClrHome
Lbl 2
ClrDraw
AxesOff
FnOff
PlotsOff
RecallPic 2
ú1üE
Lbl 1
If Eøú1:Then
Pxl-On(16A-2,16B+14)
Pxl-On(16A,16B+14)
Pxl-On(16A-2,16B+16)
Pxl-On(16A,16B+16)
End
Repeat X=72 or X=73 or X=74 or X=82 or X=83 or X=84 or X=92 or X=93 or X=94 or X=105
getKeyüX
End
AüC
BüD
X/10üX
iPart(X)üA
10(X-A)üB
A-6üA
B-1üB
E+1üE
If E=0:Then
:Goto 1
End
If A-C=ú1 and B-D=ú1:Then
:Pxl-On(16C-9,16D+7
:Pxl-On(16C-8,16D+7
:Pxl-On(16C-9,16D+8
:Goto 1
End
If C-A=1 and D-B=0:Then
:Pxl-On(16C-9,16D+15
:Pxl-On(16C-8,16D+14
:Pxl-On(16C-8,16D+16
:Goto 1
End
If C-A=1 and D-B=ú1:Then
:Pxl-On(16C-9,16D+23
:Pxl-On(16C-8,16D+23
:Pxl-On(16C-9,16D+22
:Goto 1
End
If C-A=0 and D-B=1:Then
:Pxl-On(16C-1,16D+7
:Pxl-On(16C-2,16D+8
:Pxl-On(16C,16D+8
:Goto 1
End
If C-A=0 and D-B=0:Then
:Goto 1
End
If C-A=0 and D-B=ú1:Then
:Pxl-On(16C-1,16D+23
:Pxl-On(16C-2,16D+22
:Pxl-On(16C,16D+22
:Goto 1
End
If C-A=ú1 and D-B=1:Then
:Pxl-On(16C+7,16D+7
:Pxl-On(16C+6,16D+7
:Pxl-On(16C+7,16D+8
:Goto 1
End
If C-A=ú1 and D-B=0:Then
:Pxl-On(16C+7,16D+15
:Pxl-On(16C+6,16D+14
:Pxl-On(16C+6,16D+16
:Goto 1
End
If C-A=ú1 and D-B=ú1:Then
:Pxl-On(16C+7,16D+23
:Pxl-On(16C+7,16D+22
:Pxl-On(16C+6,16D+23
:Goto 1
End
If C-A=2 and D-B=1:Then
:(C+A)/2üF
:Pxl-On(16F-1,16D+7
:Pxl-On(16F,16D+7
:Pxl-On(16F-1,16D+8
:Goto 1
End
If C-A=2 and D-B=ú1:Then
:(A+C)/2üF
:Pxl-On(16F-1,16D+23
:Pxl-On(16F-1,16D+22
:Pxl-On(16F,16D+23
:Goto 1
End
If C-A=ú2 and D-B=1:Then
:(C+A)/2üF
:Pxl-On(16F-1,16B+23)
:Pxl-On(16F-1,16B+24
:Pxl-On(16F-2,16B+23
:Goto 1
End
If C-A=ú2 and D-B=ú1:Then
:(A+C)/2üF
:Pxl-On(16F-1,16D+23
:Pxl-On(16F-1,16D+22
:Pxl-On(16F-2,16D+23
:Goto 1
End
If C-A=ú1 and D-B=2:Then
:(D+B)/2üF
:Pxl-On(16C+7,16F+15
:Pxl-On(16C+7,16F+16
:Pxl-On(16C+6,16F+15
:Goto 1
End
If C-A=ú1 and D-B=ú2:Then
:(D+B)/2üF
:Pxl-On(16C+7,16F+15
:Pxl-On(16C+7,16F+14
:Pxl-On(16C+6,16F+15
:Goto 1
End
If C-A=1 and D-B=2:Then
:(B+D)/2üF
:Pxl-On(16A+7,16F+15
:Pxl-On(16A+8,16F+15
:Pxl-On(16A+7,16F+16
:Goto 1
End
If C-A=1 and D-B=ú2:Then
:(D+B)/2üF
:Pxl-On(16A+7,16F+15
:Pxl-On(16A+7,16F+14
:Pxl-On(16A+8,16F+15
:Goto 1
End
```

sorry for you having to translate it yourself

*The Silver Phantom welcomes you*