DIM l(26, 4)       'nombre de lettre de l alfabet et les variable associe
DIM c(16)          'nombre de colonne

l(0, 0) = 15 ' A
l(0, 1) = 20
l(0, 2) = 20
l(0, 3) = 15
l(1, 0) = 31 ' B
l(1, 1) = 21
l(1, 2) = 21
l(1, 3) = 10
l(2, 0) = 31 'C
l(2, 1) = 17
l(2, 2) = 17
l(2, 3) = 17
l(3, 0) = 31 'D
l(3, 1) = 17
l(3, 2) = 17
l(3, 3) = 14
l(4, 0) = 31 'E
l(4, 1) = 21
l(4, 2) = 21
l(4, 3) = 17
l(5, 0) = 31 'F
l(5, 1) = 20
l(5, 2) = 20
l(5, 3) = 16
l(6, 0) = 15 'G
l(6, 1) = 17
l(6, 2) = 21
l(6, 3) = 23
l(7, 0) = 31 'H
l(7, 1) = 4
l(7, 2) = 4
l(7, 3) = 31
l(8, 0) = 31 'I
l(8, 1) = 0
l(8, 2) = 0
l(8, 3) = 0
l(9, 0) = 3 'J
l(9, 1) = 17
l(9, 2) = 30
l(9, 3) = 16
l(10, 0) = 31 'K
l(10, 1) = 4
l(10, 2) = 10
l(10, 3) = 17
l(11, 0) = 31 'L
l(11, 1) = 1
l(11, 2) = 1
l(11, 3) = 1
l(12, 0) = 31 'M
l(12, 1) = 8
l(12, 2) = 8
l(12, 3) = 31
l(13, 0) = 31 'N
l(13, 1) = 12
l(13, 2) = 3
l(13, 3) = 31
l(14, 0) = 31 'O
l(14, 1) = 17
l(14, 2) = 17
l(14, 3) = 31
l(15, 0) = 31 'P
l(15, 1) = 20
l(15, 2) = 20
l(15, 3) = 28
l(16, 0) = 30 'Q
l(16, 1) = 18
l(16, 2) = 30
l(16, 3) = 1
l(17, 0) = 31 'R
l(17, 1) = 22
l(17, 2) = 21
l(17, 3) = 28
l(18, 0) = 29 'S
l(18, 1) = 21
l(18, 2) = 21
l(18, 3) = 26
l(19, 0) = 16 'T
l(19, 1) = 31
l(19, 2) = 16
l(19, 3) = 0
l(20, 0) = 31 'U
l(20, 1) = 1
l(20, 2) = 1
l(20, 3) = 31
l(21, 0) = 30 'V
l(21, 1) = 1
l(21, 2) = 1
l(21, 3) = 30
l(22, 0) = 31 'W
l(22, 1) = 2
l(22, 2) = 2
l(22, 3) = 31
l(23, 0) = 25 'X
l(23, 1) = 6
l(23, 2) = 6
l(23, 3) = 25
l(24, 0) = 29 'Y
l(24, 1) = 5
l(24, 2) = 5
l(24, 3) = 31
l(25, 0) = 17 'Z
l(25, 1) = 19
l(25, 2) = 21
l(25, 3) = 25


c(0) = 11
c(1) = 10
c(2) = 9
c(3) = 8
c(4) = 15
c(5) = 14
c(6) = 13
c(7) = 12
c(7) = 12
c(8) = 3
c(9) = 2
c(10) = 1
c(11) = 0
c(12) = 7
c(13) = 6
c(14) = 5
c(15) = 4

algorythme, affichage d' un mot:

répeter

afficher lettre "A" colonne ( i, i-1, i-2, i-3)                 i=15

afficher lettre "B" colonne ( i-5, i-6, i-7, i-8)                        ( i-4: espace entre les 2 lettres)

afficher la lettre "C" colonne ( i-10, i-11, i-12, i-13)  

toujours            

DO
  i = 15   'debut du programme a la colonne 15

a1 = 3  'numero de lettre de l alfabet
a2 = 0
a3 = 21
FOR i = 15 TO 13 STEP -1  ' faire defiler
FOR t = 1 TO 100   'vitesse

OUT &H37A, c(i)  'pour changer de colonne
OUT &H378, l(a1, 0)
GOSUB tempo
OUT &H37A, c(i - 1)
OUT &H378, l(a1, 1)
GOSUB tempo
OUT &H37A, c(i - 2)
OUT &H378, l(a1, 2)
GOSUB tempo
OUT &H37A, c(i - 3)
OUT &H378, l(a1, 3)
GOSUB tempo


OUT &H37A, c(i - 5)
OUT &H378, l(a2, 0)
GOSUB tempo
OUT &H37A, c(i - 6)
OUT &H378, l(a2, 1)
GOSUB tempo
OUT &H37A, c(i - 7)
OUT &H378, l(a2, 2)
GOSUB tempo
OUT &H37A, c(i - 8)
OUT &H378, l(a2, 3)
GOSUB tempo


OUT &H37A, c(i - 10)
OUT &H378, l(a3, 0)
GOSUB tempo
OUT &H37A, c(i - 11)
OUT &H378, l(a3, 1)
GOSUB tempo
OUT &H37A, c(i - 12)
OUT &H378, l(a3, 2)
GOSUB tempo
OUT &H37A, c(i - 13)
OUT &H378, l(a3, 3)
GOSUB tempo

NEXT t 'fin de la boucle t
NEXT i ' fin de la boucle i
LOOP
END

tempo:
FOR m = 1 TO 200 ' temporisation

NEXT m
RETURN