
;Symbols 
{
symbol varA = b0
symbol varB = b1
symbol varC = b2
symbol varD = b3
symbol varE = b4
symbol varF = b5
symbol varG = b6
symbol varH = b7
symbol varI = b14
symbol varJ = b15
symbol varK = b16
symbol varL = b17
symbol varM = b18
symbol varN = b19
symbol varO = b20
symbol varP = b21
symbol varQ = b22
symbol varR = b23
symbol varS = b24
symbol varT = b25
symbol timer = time
}


let dirsC = %00000111


main:
		pause 1000	'Wait command
		serout 1,N2400_4,(254,128,"Attente code    ")
label_221:	serin C.3,N2400_4,varB
		serout 1,N2400_4,(254,128,"    code :      ")
	bintoascii varB,b8,b9,b10
			serout 1,N2400_4,(254,192,"      ",b8,b9,b10,"       ")
		goto label_221



