REM EMUVITspy (c)2002,2011 Patrick GUEULLE EEPROM T$(3500) As String*4 Public K As Byte Declare Binary ATR=&H3F,&H65,&H25,&H00, _ &H2C,&H09,&H69,&H90,&H00, _ &H01 Declare Sub Note(S$) Open"Card.log" For Append As #1:Write#1,"" Command &HBC &HA0 ARG(S$,Disable Le) Call Note(S$) SW1SW2=&H9008 End Command Command &HBC &HC0 RESP(Lc=0,S$) Call Note(S$) S$=T$(0)+T$(1) IF Le<>8 Then SW1SW2=&H6708 End Command Command &HBC &HB0 LIT(Lc=0,S$) Call Note(S$) ADR=P1P2/8:A$="" K=(P1P2-(8*ADR))/2 For F=0 TO 63 A$=A$+T$(ADR+F) Next F S$=Mid$(A$,K+1,Le) End Command Command &HBC &HD0 UPD(S$,Disable Le) Call Note(S$) IF Lc<>4 Then SW1SW2=&H6704 ADR=P1P2/8 T$(ADR)=S$ End Command Command &HBC &H80 CERT(S$,Disable Le) Call Note(S$) End Command Command &HC8 &H04 COPY(Lc=0,S$) Z$="(c)2001 Patrick GUEULLE" S$=MID$(Z$,P1P2+1,Le) End Command Command &HC8 &HA2 FLUSH(S$,Disable Le) Close Kill "Card.log":S$=CHR$(FileError) End Command Command Else OTHER(Lc=0,S$) Call NOTE(S$) S$=String$(Le,&HFF) SW1SW2=&H9000 End Command Sub Note(S$) Z$=CHR$(CLA)+CHR$(INS)+CHR$(P1)+CHR$(P2) IF Len(S$)>0 Then Z$=Z$+CHR$(Lc) IF Len(S$)=0 Then Z$=Z$+CHR$(Le) Write#1,Z$+S$ End Sub