DIM c(16)
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
DO
FOR i = 15 TO 4 STEP -1
 FOR t = 1 TO 100
  OUT &H37A, c(i)
  OUT &H378, 15
  GOSUB tempo
  OUT &H37A, c(i - 1)
  OUT &H378, 20
  GOSUB tempo
  OUT &H37A, c(i - 2)
  OUT &H378, 20
  GOSUB tempo
  OUT &H37A, c(i - 3)
  OUT &H378, 15
  GOSUB tempo

 NEXT t
NEXT i
LOOP
END
 
tempo:
 FOR m = 1 TO 200

  NEXT m
 RETURN