$regfile = "m8def.dat" 
$crystal = 4000000 

Dim I As Integer 
Dim S As Integer 

Dim Segment(9) As Byte 
' SPI Bus (Hardware) als Master konfiguiren 
Config Spi = Hard , Master = Yes 

' SPI Bus initialisieren 
' setzt das DDR Register entsprechend 
Spiinit 

' Bytes fur die Daten 

Segment(1) = &B00000001 
Segment(2) = &B00000001 
Segment(3) = &B00000001 

Segment(4) = &B00000001 
Segment(5) = &B00000001 
Segment(6) = &B00000001 

Segment(7) = &B00000001 
Segment(8) = &B00000001 
Segment(9) = &B00000001 

Do 
For I = 1 To 128 
Segment(1) = Segment(1) + I 
Segment(2) = Segment(1) + I 
Segment(3) = Segment(1) + I 

Segment(4) = Segment(1) + I 
Segment(5) = Segment(1) + I 
Segment(6) = Segment(1) + I 

Segment(7) = Segment(1) + I 
Segment(8) = Segment(1) + I 
Segment(9) = Segment(1) + I 
Spiout Segment(1) , 9 
Wait 1 
Next 
Loop