$regfile = "m32def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32

$crystal = 16000000                                         'Quarzfrequenz
Dim A As Byte
Dim B As Byte
Dim C As Byte
Dim M As Byte
Dim D As Byte


Config Portc = Output


Do

For A = 1 To 10
For B = 0 To 7
Portc.b = 1
Waitms 50
N
Portc.b = 0
Next B
Next A

For A = 1 To 10
For B = 7 To 0 Step -1
Portc.b = 1
Waitms 50
Portc.b = 0
Next B
Next A

For A = 0 To 7
Portc.a = 1
Next A

For A = 1 To 10
For B = 0 To 7
Portc.b = 0
Waitms 50
Portc.b = 1
Waitms 50
Next B
Next A

For A = 0 To 7
Portc.a = 1
Next A

For A = 1 To 20
For B = 7 To 0 Step -1
Portc.b = 0
Waitms 50
Portc.b = 1
Next B
Next A


For A = 1 To 20
D = 3
For B = 4 To 7
Portc.b = 0
Portc.d = 0
Waitms 50
Portc.b = 1
Portc.d = 1
Waitms 50
Decr D
Next B
Next A

For A = 0 To 7
Portc.a = 1
Next A

For A = 1 To 20
D = 0
For B = 7 To 4 Step -1
Portc.b = 0
Portc.d = 0
Waitms 50
Portc.b = 1
Portc.d = 1
Incr D
Next B
Next A

For A = 1 To 20
D = 0
For B = 4 To 7
Portc.b = 0
Portc.d = 0
Waitms 50
Portc.b = 1
Portc.d = 1
Waitms 50
Incr D
Next B
Next A

For A = 1 To 20
D = 7
For B = 0 To 7
Portc.b = 0
Portc.d = 0
Waitms 50
Portc.b = 1
Portc.d = 1
Waitms 50
Decr D
Next B
Next A

For A = 1 To 20
D = 7
For B = 0 To 7
Portc.b = 0
Portc.d = 0
Waitms 50
Portc.b = 1
Portc.d = 1
Decr D
Next B
Next A

Loop