hallo werner,
Code:
$regfile = "2313def.dat" 
$crystal = 10000000 
Config Portb = Output 
Config Portd = Output 
Dim A As Byte 
Dim S As String * 5 
Dim X As Byte 
Dim Pos As Byte 
Dim Z As String * 1 
Dim L As Byte 

Do 

    S = Str(w) 
    L = Len(s) 

For A = 0 To 10 
For X = 1 To L 

      S = Str(w) 
      Pos = L - X 
      Pos = Pos + 1 
      Z = Mid(s , Pos , 1) 

    If Z = "0" Then Portb = 63 
    If Z = "1" Then Portb = 34 
    If Z = "2" Then Portb = 94 
    If Z = "3" Then Portb = 118 
    If Z = "4" Then Portb = 99 
    If Z = "5" Then Portb = 117 
    If Z = "6" Then Portb = 125 
    If Z = "7" Then Portb = 38 
    If Z = "8" Then Portb = 127 
    If Z = "9" Then Portb = 119 

    If X = 1 Then Portd = 1 
    If X = 2 Then Portd = 2 
    If X = 3 Then Portd = 4 
    If X = 4 Then Portd = 8 
    If X = 5 Then Portd = 16 

    If L = 1 Then Waitus 9996 
    If L = 2 Then Waitus 4996 
    If L = 3 Then Waitus 3327 
    If L = 4 Then Waitus 2496 
    If L = 5 Then Waitus 1996 

Next X 
Next A 

Loop
Denn Code mein ich.
Grüßle