Dim P(75) As Byte
Dim I As Byte

Out &H37 , &HFF

P(1) = &H63
P(2) = &H54
P(3) = &H64
P(4) = &H74
P(5) = &H84
P(6) = &H54
P(7) = &H36
P(8) = &H48
P(9) = &H58
P(10) = &H57
P(11) = &H67
P(12) = &H57
P(13) = &H58
P(14) = &H68
P(15) = &H77
P(16) = &H86
P(17) = &HA7
P(18) = &HA8
P(19) = &HA7
P(20) = &H88
P(21) = &H69
P(22) = &H5A
P(23) = &H4A
P(24) = &H48
P(25) = &H68
P(26) = &H79
P(27) = &H7A
P(28) = &H6B
P(29) = &H5B
P(30) = &H4A
P(31) = &H5B
P(32) = &H6D
P(33) = &H7F
P(34) = &H8E
P(35) = &H9E
P(36) = &HAD
P(37) = &HBD
P(38) = &HCC
P(39) = &HDC
P(40) = &HDB
P(41) = &HEB
P(42) = &HB6
P(43) = &HA6
P(44) = &HB6
P(45) = &HB5
P(46) = &HA4
P(47) = &HA3
P(48) = &HD6
P(49) = &HE8
P(50) = &HE9
P(51) = &HF9
P(52) = &HF5
P(53) = &HC2
P(54) = &HD2
P(55) = &HD3
P(56) = &HC2
P(57) = &HD2
P(58) = &HC1
P(59) = &HC0
P(60) = &HC1
P(61) = &HD2
P(62) = &HC2
P(63) = &HA3
P(64) = &H43
P(65) = &H10
P(66) = &H21
P(67) = &H15
P(68) = &H07
P(69) = &H0B
P(70) = &H1B
P(71) = &H1A
P(72) = &H36
P(73) = &H45
P(74) = &H53
P(75) = &H63

Do
   For I = 1 To 75
      Out &H38 , P(I)
      Waitus 50
   Next I
Loop