#Include CARDUTIL.DEF #Include COMMERR.DEF Declare Command &H00 &HA4 SEL(S$,Disable Le) Declare Command &H00 &HB2 RREC(Lc=0,P$) ComPort=101 CLS:Print "CHAMONEO (c)2011 Patrick GUEULLE":Print Call WaitForCard ResetCard:Call CheckSW1SW2 S$=Chr$(&HA0)+Chr$(0)+Chr$(0)+Chr$(0)+Chr$(&H69)+Chr$(&H00) Call SEL(P1P2=&H0400,S$) Print "------ Derniers chargements enregistres ------" Print "(Barre d'espace pour avancer Esc pour quitter)" PRINT L=0:P=1 Call RREC(P1=P,P2=&HE4,P$,Le=L):L=SW2 suite: Call RREC(P1=P,P2=&HE4,P$,Le=L) If SW1SW2<>&H9000 Then Goto vide FOR F=1 TO Len(P$) M=ASC(MID$(P$,F,1)) M$=HEX$(M):IF Len(M$)=1 Then M$="0"+M$ PRINT M$;" "; IF F=13 OR F=25 Then PRINT NEXT F PRINT:PRINT attente: Z$=Inkey$ If Z$="" Then Goto attente If Z$=Chr$(27) Then Goto vide P=P+1:Goto suite vide: PRINT Call WaitForNoCard