ALFABET6

DIM L(26, 4)
DIM c(16)
DIM t(100, 4)

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


FOR k = 0 TO 16

FOR j = 0 TO 4
t(k, j) = L(k, j)
NEXT j
NEXT k

algorithme pour faire défiler les 9 première lettre de l' alphabet:

répéter

   afficher les lettres A B C

   afficher les lettres B C D

   afficher les lettres C D E

   afficher les lettres D E F

   afficher les lettres E F G

   afficher les lettres F G H

   afficher les lettres G H I

   afficher les lettres H I J

toujours

DO
FOR a = 0 TO 9
FOR t = 1 TO 100
OUT &H37A, 4
OUT &H378, t(a, 0)
GOSUB tempo
OUT &H37A, 5
OUT &H378, t(a, 1)
GOSUB tempo
OUT &H37A, 6
OUT &H378, t(a, 2)
GOSUB tempo
OUT &H37A, 7
OUT &H378, t(a, 3)
GOSUB tempo



OUT &H37A, 1
OUT &H378, L(a + 1, 0)
GOSUB tempo
OUT &H37A, 2
OUT &H378, L(a + 1, 1)
GOSUB tempo
OUT &H37A, 3
OUT &H378, L(a + 1, 2)
GOSUB tempo
OUT &H37A, 12
OUT &H378, L(a + 1, 3)
GOSUB tempo


OUT &H37A, 14
OUT &H378, L(a + 2, 0)
GOSUB tempo
OUT &H37A, 15
OUT &H378, L(a + 2, 1)
GOSUB tempo
OUT &H37A, 8
OUT &H378, L(a + 2, 2)
GOSUB tempo
OUT &H37A, 9
OUT &H378, L(a + 2, 3)
GOSUB tempo


NEXT t
NEXT a
LOOP


END

tempo:
FOR m = 1 TO 200

NEXT m
RETURN