sevenseg

Seven segment digit

Seven segment display attached to pins 7-13 (e-d-c-b-a-f-g segments accordingly). Code iterates hexadecimal values.

1 dim d 16 b
2 data 63 12 91 94 108 118
3 data 119 28 127 126 125
4 data 103 51 79 115 113
10 i=0
20 x=i%16
30 gosub 80
40 i=i+1
50 delay 500
60 goto 20
80 z=d(x)
83 j=7
86 pin j;z%2
89 z=z/2
92 j=j+1
95 if j<14;goto 86
98 return