REM SPYFT (c)2002,2008 Patrick GUEULLE Declare Binary ATR=&H3F,&H65,&H25,&H08, _ &H24,&H04,&H68,&H90,&H00,&H01 EEPROM T$(2000) As String*4 Public K As Byte EEPROM SPY As Byte=1 Declare Sub Note(S$) IF SPY=1 Then Open"Card.log" For Append As #1:Write#1,"" Command &HBC &HB0 LIT(Lc=0,S$) IF SPY=1 THEN 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) IF Lc<>4 Then SW1SW2=&H6704 ADR=P1P2/8 T$(ADR)=S$ End Command Command Else OTHER(Lc=0,S$) If Spy=1 Then Call NOTE(S$) 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 Command &HC8 &HA0 SPYONOFF(S$,Disable Le) SPY=P2 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