;****************************
;* Grafikspeicher-Anzeiger  *
;****************************
;* programmiert von:        *
;*                          *
;* Roger Landolt            *
;* alias                    *
;* Shadow of the Night      *
;****************************
;* rogerlandolt@hotmail.com *
;****************************

Graphics 400,256,8,2

Dim lines(400)
Cls

.neu

Cls
Color 10,255,15

For i=0 To 399                          ;nur damit am Anfang bereits etwas angezeigt wird.
 lines(i)=AvailVidMem()/1048576
Next

alles= TotalVidMem()/1048576

Repeat
	Cls
	freiMB=AvailVidMem()/1048576
	If AvailVidMem()=TotalVidMem()/50 Then RuntimeError \"Nur noch 2% des Speichers frei\"
	For wi=1 To 399
		lines(wi-1)=lines(wi)   ;Hier werden alle Variabeln um eins zurück geschoben, damit nicht immer das gleiche überschrieben wird.
	Next
	
	lines(399)=freiMB
	
	For wi=0 To 399
		Line wi+1,GraphicsHeight(), wi+1, GraphicsHeight() - GraphicsHeight()/alles*lines(wi))
	Next
	
	Delay 400 ;damit das Ganze nicht allzu schnell läuft
Until KeyHit(1)
End