addon/sb_vfd/vfd_4x40_m68_test.bas


1
2
3
4
5
6
7
8
9
10
11
12

10 OUT 0, &H30
15 OUT 2, &H30
20 OUT 1, 0
25 OUT 3, 0
30 OUT 0, 1
35 OUT 2, 1
40 OUT 0, &H0F
45 OUT 2, &H0F
50 FOR I = &H10 TO &HFF
60 OUT 1, I : OUT3, I
70 FOR J = 0 to 1000 : NEXT J
80 NEXT I