REM Init NFC Type 2 (version pour ACR122) #Include CARDUTIL.DEF #Include COMMERR.DEF ComPort=101 Declare Command &HFF &HD6 WRPAGE(S$) CLS:Print"ULNFC (c)2010 Patrick GUEULLE" Call WaitForCard() ResetCard:Call CheckSW1SW2() P$=Chr$(&HE1)+Chr$(&H10)+Chr$(&H06)+Chr$(&H00) Call WRPAGE(P1P2=&H0003,P$,Disable Le) P$=Chr$(&H03)+Chr$(&H03)+Chr$(&HD0)+Chr$(&H00) Call WRPAGE(P1P2=&H0004,P$,Disable Le) P$=Chr$(&H00)+Chr$(&HFE)+Chr$(&H00)+Chr$(&H00) Call WRPAGE(P1P2=&H0005,P$,Disable Le) Call WaitForNoCard