ne long variable wirds nicht brauchen,
da er ja nur die pixelposition speichern braucht.
da reichen bytes locker.

ergo

dim pixelpuffer(100) as byte
dim pixelzeiger as byte
dim tempbyte as byte

if viertel = 900 then gosub Diagrammpixel ' 900= 15min.
end if


Diagrammpixel:
incr pixelzeiger
if pixelzeiger>30 then pixelzeiger=1
pixelpuffer(pixelzeiger)=pixelposition
return

graph_zeigen:
for tempbyte=pixelzeiger to 100
zeichnepixel = pixelpuffer(tempbyte)
next
for tempbyte=1 to pixelzeiger
zeichnepixel = pixelpuffer(tempbyte)
next
return