voici un example:
afficheur 7 segments
10 fori=0 to 9
20 read A
30portb=A
for j=1 to 9999:next j
50 next i
60restore
70 goto 10
data "(ici on met en hexadecimal les sement pour former les chifres)
exemple :pour afficher un 0 on met $3f)

NB:pic 68hc11 programé en basic11 ,afficheur catodes communes relié au port b)