I would like create an axe librairie to input replace input function, but my code doesn't work
This is my code:
..
.Adresse Var
8265→→°Num+2→→°Shift+2→→°ALock+2→→°Alpha

.Change Type Disp
1→Num
0→Shift
0→ALock
0→Alpha

.Data
Liste(33,34,26,18,35,27,19,36,28,20,0)→N
Liste(47,39,31,46,38,30,22,14,45,37,29,21,13,44,36,28,20,12,43,35,27,19,11,42,34,26,18,10,33,25,17,0)→A

Liste('0','1','2','3','4','5','6','7','8','9',0)→D
Liste('A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z','θ','"',' ',':','?',0)→E

Lbl BInput

.Parametres
°Alpha+2→→°XBox+2→→°YBox+2→→°MaxInput+2→→°OutPtr
r₁→XBox
r₂→YBox
r₃→MaxInput
L₁→OutPtr

For(A,0,MaxInput-1)
0→{OutPtr+A}
End

Repeat getKey(9) ou getKey(15)
 Output(XBox,YBox,"_"
 getKey(54)?Shift=0→Shift
 If getKey(48)
  If Shift
   1→ALock
   0→Num
  Else
   1→Alpha
   0→Num
  End
  If Alpha ou ALock
   0→Alpha
   0→ALock
   1→Num
  End
  0→Shift
 End
If YBox*16+XBox<MaxInput
 If ALock ou Alpha
  dansChaîne(A,getKey)→θ
  If θ
   Output(XBox,YBox,{E+θ-1}Frac
   →{YBox*16+XBox+OutPtr}
   XBox++
  End
 End
 If Num
  dansChaîne(N,getKey)→θ
  If θ
   Output(XBox,YBox,{D+θ-1}Frac
   →{YBox*16+XBox+OutPtr}
   XBox++
  End
 End
 If XBox=16
  YBox++
  0→XBox
 End
End
 Pause 500
 Output(XBox,YBox," "
 Pause 500
End
Return
And the code of the example program:
.INPUT
Goto A
prgmINPUTLIB
Lbl A
BInput(0,0,11)Thank you in advance

Could you be more descriptive about how it doesn't work? Does it crash? Does it freeze? Does it produce unexpected output?

Wouldn't it be that your code is never run because you skip over it via 'Goto A'?

Axe doesn't have real library support, so you traditionally just import the "library" program at compile time like that and jump over all of it. It looks silly, but it's actually legit.