Declare ApplicationID="MONEOSPY" REM (c)2001,2009 Patrick GUEULLE Declare Binary ATR = &H3B,&H6F,&H00,&HFF, _ &H80,&H5A,&H0A,&H01,&H02,&H20,&H03,&H11,&HC8,&H01,&H20,&H0A,&H82,&H90,&H00, _ &H01 Declare Sub Note(S$) Open"Card.log" For Append As #1:Write#1,"" Public AP$ As String*6=&HA0,&H00,&H00,&H00,&H69,&H00 EEPROM EC$ As String*51=&H71,&H00,&H00,&H00,&H00,&H00, _ &H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00, _ &H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00, _ &H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00, _ &H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00 EEPROM E4$ As String*48=&H11,&H00,&H00,&H01,&H00,&H00, _ &H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00, _ &H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00, _ &H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00, _ &H00,&H00,&H00,&H00,&H00,&H00 EEPROM TR$ As String*48=&H11,&H00,&H00,&H01,&H00,&H00, _ &H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00, _ &H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00, _ &H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00, _ &H00,&H00,&H00,&H00,&H00,&H00 EEPROM DIR$ As String*90= _ &H70,&H07,&HC1,&H02,&H37,&H00,&HC4,&H01,&H20, _ &H70,&H07,&HC1,&H02,&H38,&H00,&HC4,&H01,&H20, _ &H70,&H07,&HC1,&H02,&H39,&H00,&HC4,&H01,&H20, _ &H70,&H07,&HC1,&H02,&H3A,&H00,&HC4,&H01,&H20, _ &H70,&H07,&HC1,&H02,&H3B,&H00,&HC4,&H01,&H20, _ &H70,&H07,&HC1,&H02,&H3C,&H00,&HC4,&H01,&H20, _ &H70,&H07,&HC1,&H02,&H3D,&H00,&HC4,&H01,&H20, _ &H70,&H07,&HC1,&H02,&H3E,&H00,&HC4,&H01,&H20, _ &H70,&H07,&HC1,&H02,&H3F,&H00,&HC4,&H01,&H20, _ &H70,&H07,&HC1,&H02,&H40,&H00,&HC4,&H01,&H20 EEPROM C4$ As String*9=&H00,&H99,&H99,&H01,&H00,&H00,&H00,&H30,&H00 EEPROM E0EC$ As String*9=&H70,&H07,&HC1,&H02,&H19,&H00,&HC4,&H01,&H20 EEPROM BC$ As String*22=&H92,&H50,&H00,&H00,&H00,&H00, _ &H00,&H00,&H00,&H0D,&H12,&H12,&H09,&H10,&H26,&H02,&H50,&H45, _ &H55,&H52,&H01,&H1C EEPROM CC$ As String*11=&HFF,&H88,&H88,&H86,&H66,&H66, _ &H00,&H10,&H00,&H39,&H8D Command &H00 &HA4 SEL(S$,Disable Le) Call Note(S$) IF S$<>AP$ Then SW1SW2=&H6A82 End Command Command &H00 &HB2 RREC(Lc=0,S$) Call Note(S$) IF P2=&HE4 Then S$=Left$(E4$,Le) IF P2=&HEC Then S$=Left$(EC$,Le) IF P2=&H64 And P1=&H01 Then S$=String$(Le,&H00) IF P2=&H44 And P1=&H01 Then S$=String$(Le,&H00) IF P2=&HE4 And P1=&H01 Then S$=Left$(TR$,Le) IF P2=&HEC And P1=&H01 Then S$=Left$(EC$,Le) IF P2=&HBC And P1=&H01 Then S$=Left$(BC$,Le) IF P2=&HC4 And P1=&H01 Then S$=Left$(C4$,Le) IF P2=&H54 And P1=&H01 Then S$=Chr$(&H00)+Chr$(&H01) IF P2=&HDC And P1=&H01 Then S$=Chr$(&H00)+Chr$(&H01) IF P2=&HD4 And P1=&H01 Then S$=Chr$(&H00)+Chr$(&H02) IF P2=&HCC And P1=&H01 Then S$=Left$(CC$,Le) IF P2=&H64 And Le<>&H04 Then SW1SW2=&H6C04 IF P2=&H44 And Le<>&H0E Then SW1SW2=&H6C0E IF P2=&HE4 And Le<>&H30 Then SW1SW2=&H6C30 IF P2=&HEC And Le<>&H33 Then SW1SW2=&H6C33 IF P2=&HBC And Le<>&H16 Then SW1SW2=&H6C16 IF P2=&HC4 And Le<>&H09 Then SW1SW2=&H6C09 IF P2=&H54 And Le<>&H02 Then SW1SW2=&H6C02 IF P2=&HDC And Le<>&H02 Then SW1SW2=&H6C02 IF P2=&HD4 And Le<>&H02 Then SW1SW2=&H6C02 IF P2=&HCC And Le<>&H0B Then SW1SW2=&H6C0B IF P2=&HE4 And P1>&H06 Then SW1SW2=&H6A83 IF P2=&HEC And P1>&H05 Then SW1SW2=&H6A83 End Command Command &HE0 &HEC RR(Lc=0,S$) Call Note(S$) IF P2=&H00 And P1=&H04 Then S$=Left$(E0EC$,Le) IF P2=&H00 And P1=&H06 Then S$=Left$(DIR$,Le) IF P1=&H04 And Le<>&H09 Then SW1SW2=&H6C09 IF P1=&H06 And Le<>&H5A Then SW1SW2=&H6C5A End Command Command &HE0 &H34 ALG(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$) 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