Hi,

ich würde das mit ner Sub machen:

Code:
$regfile = "m8def.dat"                                      ' specify the used micro
$crystal = 1000000
$baud = 4800

Declare Sub Get_prozent
Dim Ausgabe As String * 20
Dim Eingabe As Byte

Do

Input "Eingabe: " , Eingabe
Call Get_prozent
Print "Ausgabe: " ; Ausgabe

Loop

End

Sub Get_prozent
Ausgabe = ""
Local Temp As Integer
Local Temp2 As Byte

Temp = Eingabe / 10

For Temp2 = 1 To Temp Step 1
Ausgabe = Ausgabe + "#"
Next

Temp2 = 0

End Sub
Das funktioniert bei mir in Simulator.