sync on : sync rate 60
set text size 13 : set text font "arial"

rem setup memory bar type holder

type Membar
name$ as string
x1 as integer
y1 as integer
x2 as integer
y2 as integer
bdr as integer
width as integer
height as integer
memory as integer
endtype

dim Membar(3) as Membar

Membar(1).height = 8
Membar(1).width = 256
Membar(1).x1 = 10
Membar(1).y1 = 10
Membar(1).x2 = Membar(1).x1 + Membar(1).width
Membar(1).y2 = Membar(1).y1 + Membar(1).height
Membar(1).bdr = 2
Membar(1).name$ = "dmem"
Membar(1).memory = system dmem available()
Membar(1).memory = Membar(1).memory /1024
Membar(1).memory = Membar(1).memory /1024

Membar(2).height = 8
Membar(2).width = 256
Membar(2).x1 = 10
Membar(2).y1 = 40
Membar(2).x2 = Membar(2).x1 + Membar(2).width
Membar(2).y2 = Membar(2).y1 + Membar(2).height
Membar(2).bdr = 2
Membar(2).name$ = "smem"
Membar(2).memory = system smem available()
Membar(2).memory = Membar(2).memory /1024
Membar(2).memory = Membar(2).memory /1024

Membar(3).height = 8
Membar(3).width = 256
Membar(3).x1 = 10
Membar(3).y1 = 70
Membar(3).x2 = Membar(3).x1 + Membar(3).width
Membar(3).y2 = Membar(3).y1 + Membar(3).height
Membar(3).bdr = 2
Membar(3).name$ = "tmem"
Membar(3).memory = system tmem available()
Membar(3).memory = Membar(3).memory /1024
Membar(3).memory = Membar(3).memory /1024

disable escapekey
while escapekey()=0

for i = 1 to 3
Display_Membar(i)
next i

sync
endwhile
undim Membar(3)
end


function Display_Membar(Num)

ink rgb(192,192,192),1
box Membar(Num).x1,Membar(Num).y1,Membar(Num).x2,Membar(Num).y2

ink rgb(32,32,32),1
box Membar(Num).x1+Membar(Num).bdr,Membar(Num).y1+Membar(Num).bdr,Membar(Num).x2-Membar(Num).bdr,Membar(Num).y2-Membar(Num).bdr

if Membar(Num).memory > Membar(Num).width
   ink rgb(32,192,32),1
   box Membar(Num).x1+Membar(Num).bdr+1,Membar(Num).y1+Membar(Num).bdr+1,Membar(Num).x1+Membar(Num).width-Membar(Num).bdr-1,Membar(Num).y2-Membar(Num).bdr-1
else
   ink rgb(32,192,32),1
   box Membar(Num).x1+Membar(Num).bdr+1,Membar(Num).y1+Membar(Num).bdr+1,Membar(Num).x1+Membar(Num).memory-1,Membar(Num).y2-Membar(Num).bdr-1
endif

ink rgb(255,255,55),1
text Membar(Num).x1+Membar(Num).bdr+2,Membar(Num).y1 + Membar(Num).height+2,Membar(Num).name$+" "+STR$(Membar(Num).memory)+"megs"
endfunction