REM COPFT (c)2002,2008 Patrick GUEULLE

#Include CARDUTIL.DEF
#Include COMMERR.DEF
ComPort=101
Public S$ As String
Public T$ As String
Declare Sub AFF(S$)
Declare Command &HBC &HB0 LIT(Lc=0,S$)
Declare Command &HBC &HD0 UPD(S$,Disable Le)

Call WaitForCard
ResetCard:Call CheckSW1SW2:Print
MAX=&H0A00

Call LIT(P1P2=&H09C8,S$,Le=2):Call CheckSW1SW2
ADL=ASC(Right$(S$,1))+256*ASC(Left$(S$,1)):ADL=(ADL AND &H3FE0)/4

Open"Clovis.log" For Output As #1
Write#1,Left$(R$,4):Write#1,Right$(R$,4)
A=ADL
While A<MAX
Call LIT(P1P2=A,S$,Le=4):Write#1,S$:Print".";
A=A+8:Wend
Print:Print:Close#1
Call WaitForNocard

Call WaitForCard
ResetCard:Call CheckSW1SW2:Print
Open"Clovis.log" For Input As #1
Input#1,R$:Call UPD(P1P2=0,R$)
Input#1,R$:Call UPD(P1P2=8,R$)

A=ADL
While A<MAX
Input#1,U$:Print".";
Call UPD(P1P2=A,U$)
A=A+8:Wend

Sub AFF(S$)
T$=""
For F=1 TO Len(S$)
C$=MID$(S$,F,1):C=ASC(C$):C$=HEX$(C)
IF LEN(C$)=1 then C$="0"+C$
T$=T$+C$
NEXT F
End Sub