Hallo Vitis,
die Idee ist gut .Der Speicher ist wieder frei,aber es darf der Wert
nur einmal in der Schleife ausgegeben werden.Deine Version gibt
mehrmals den Wert aus .Irgend etwas habe ich falsch gemacht.
Anbei mal den Code

Code:
 Wait 1
 Graphic
 Wait 3
 Loschen
 Waitms 500                                                 'Interrupts global zulassen
Do
  Screen
  Waitms 25
  Datenpunkt
  If Poti =< 80 Then
    Portd.3 = 1
  Else
    Portd.3 = 0
  End If

  Dim X As Byte
  Dim Y As Byte
   X = Poti / 5
  For Y = 1 To X
  Call Balken
    Next
  Loschen
  Waitms 70
Loop

Sub Graphic
 Restore Graph
 For Count = 1 To 14
 Read Bar : Printbin Bar;
  Next
End Sub

Sub Screen
 Restore Scre
 For Count = 1 To 18
 Read Bar : Printbin Bar ;
  Next
End Sub

Sub Datenpunkt
 Restore Datenp
 For Count = 1 To 5
 Read Bar : Printbin Bar ;
  Next
End Sub

Sub Balken
Restore Bar1
 For Count = 1 To 4
 Read Bar : Printbin Bar;
  Next
End Sub

Sub Loschen
 Restore Los
 For Count = 1 To 3
 Read Bar : Printbin Bar:
  Next
End Sub