#include CARDUTIL.DEF
#include COMMERR.DEF
ComPort=101
Declare Command &H22 &H44 UP(S$,Disable Le)
Declare Command &H22 &H22 WR(S$,Disable le)
Call WaitForCard
ResetCard:Call CheckSW1SW2
CLS
Print"   barre d'espace : avance lecture"
Print"   touche +       : ecriture de bit"
Print"   touche -       : ecriture de bit avec retenue"
Print"   touche ESCape  : quitter":Print

FOR F=1 TO 16
FOR G=1 TO 8
FOR H=1 TO 4
S$="":Call UP(S$)
IF SW2=&HAA OR SW2=&H5A Then L$="1"
IF SW2=&H55 OR SW2=&HA5 Then L$="0"
IF F+G+H>3 Then Goto bit
IF SW2=&HA5 OR SW2=&HAA Then Print"1";:H=H+1
IF SW2=&H5A OR SW2=&H55 Then Print"0";:H=H+1
bit:Print L$;
touche:Z$=Inkey$:If Z$="" Then Goto touche
If Z$=Chr$(32) Then Goto suite
If Z$=Chr$(43) Then Goto pgm
If Z$=Chr$(45) Then Goto carry
If Z$=Chr$(27) Then Exit
Goto touche

suite:Next H
Print" ";
NEXT G
Print
NEXT F
ResetCard:Call CheckSW1SW2:Exit

carry:S$="":Call WR(S$)
pgm:S$="":Call WR(S$)
fin:IF Inkey$<>"" Then Goto fin
Goto touche
REM (c)2001 Patrick GUEULLE