habs hinbekommen!

Code:
$regfile = "m32def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 1600000
$baud = 9600

Config Portc = Output
Config Portb = Output

Dim Col As Byte
Dim Row As Byte
Dim Count As Byte
Dim Bild As Long
Bild = &B00000100100100010010010001001001
Count = 0
Do

  For Col = 0 To 8

    Config Porta = Input
    Portc = 0
    Portb = 0
    Portc.col = 1
    If Col = 8 Then
      Portb.7 = 1
    End If
    For Row = 0 To 2
       Config Porta = Input
       Ddra.row = Bild.count
       waitms 7
       Incr Count
    Next

  Next
Count = 0
Loop
jetzt muss ich das nur noch als funktion definieren - also den mutliplexing teil.

mach ich das mit:
decalare function multiplexing() as long

fuction multiplexing()
'code
end function

und dann mit function() aufrufen?

finde hier nix brauchbares!