Language Basic

Bonjour,

Je suis actuellement en Terminale S et je dois programmer un digicode qui gère l'entrée d'un immeuble a l'aide d'un kit 68HC11 et du logiciel basic11.L'objectif est de d"bloquer la porte en rentrant un code a 4 chiffres sur le digicode. Cependant, je n'ai aucune base en language basic. Pour l'instant, notre programme ressemble sa : integer compteur
byte chiffre
byte code
byte masque
byte touche
byte code2

acquisition:

masque =$FF
PORTB=$FF 'Eteindre les leds'
compteur = 0
code = 0

Gosub ligne1
print " Bienvenue"
Gosub ligne2
print " Entrer le code"

for compteur = 1 to 2 step 1
touche = PORTE and $10
if touche =$10 then
masque = PORTE AND $0F
compteur = 1
gosub table
code = chiffre
else
PORTB = $FF
end if

Do Until touche = $00
touche = PORTE and $10
loop

gosub ligne1
print code
PORTB=$FF
next

do
loop

table:

If masque = $00 then chiffre = 1
If masque = $01 then chiffre = 2
If masque = $02 then chiffre = 3
If masque = $04 then chiffre = 4
If masque = $05 then chiffre = 5
If masque = $06 then chiffre = 6
If masque = $08 then chiffre = 7
If masque = $09 then chiffre = 8
If masque = $0A then chiffre = 9
If masque = $0D then chiffre = 0

return

Merci de votre aide.