#Header
%Graph.LoadBitmap('p4a.bmp',0,0,0,0,83,47,0,NONE)
%DefVar(desdeinicio,Local=0)
%DefVar(temp,Local=0)
%DefVar(minus,Local=0)
%DefVar(Xmin=0)
%DefVar(Xmax=83)
%DefVar(Ymin=0)
%DefVar(Ymax=47)
%DefVar(base1=21)
%DefVar(base2=53)
/dibuja eje Y, Xmin/
%Graph.Pen(%Xmin(),%Ymin(),1)
%Graph.LineTo(%Xmin(),%Ymax(),1)
/dibuja eje Y, Xmax/
%Graph.Pen(%Xmax(),%Ymin(),1)
%Graph.LineTo(%Xmax(),%Ymax(),1)
/dibuja eje X, Ymin/
%Graph.Pen(%Xmin(),%Ymin(),1)
%Graph.LineTo(%Xmax(),%Ymin(),1)
/dibuja eje intermedio X, Ymin/
%Graph.Pen(%Xmin(),23,1)
%Graph.LineTo(%Xmax(),23,1)
/dibuja eje X, Ymax/
%Graph.Pen(%Xmin(),%Ymax(),1)
%Graph.LineTo(%Xmax(),%Ymax(),1)
%DefVar(IncTsys=-1)
%Graph.Font('Terminal',5,1)
%Graph.SetInvertArea(0,0,84,48)
%Param.RenderMode(Simple)
#EndHeader
#GfxMode
%Common.ChangeScreen(17100,16)
%Graph.SetRefreshArea(0,0,83,47)
/contador de actualizaciones de pantalla/
%Assign(IncTsys,%Inc(%IncTsys(),1))
%Format.Offset(Horizontal,59)
%Format.Offset(Vertical,2)"CPU:"%UsePlugin('mbm\mbm.dll',mbmTemperature2)
/Calculo de punto final de temperatura/
%Graph.Pen(%IncTsys(),%base1(),1)
%Assign(base1,%Dec(37,%UsePlugin('mbm\mbm.dll',mbmTemperature2)))
/Trazo final/
%Graph.LineTo(%IncTsys(),%base1(),1)
%Common.CreateNewLine()
%Format.Offset(Horizontal,73)
%Format.Offset(Vertical,17)
%UsePlugin('mbm\mbm.dll',mbmTemperature1)
%Common.CreateNewLine()
%Format.Offset(Horizontal,54)
%Format.Offset(Vertical,-6)"CASE:"
%Graph.Pen(%IncTsys(),%base2(),1)
%Assign(base2,%Dec(69,%UsePlugin('mbm\mbm.dll',mbmTemperature1)))
/%LCD.Gfx_SetPixel(%IncTsys(),%base2(),1)/
%Graph.LineTo(%IncTsys(),%base2(),1)
%Common.CreateNewLine()
%Format.Offset(Horizontal,30)
%Format.Offset(Vertical,-29)"CPU:"%System.CPU(Usage)
%Common.CreateNewLine()
%Format.Offset(Horizontal,1)
%Format.Offset(Vertical,17)
%UsePlugin('mbm\mbm.dll',mbmMHZ) "MHz"
%Common.CreateNewLine()
%Format.Offset(Horizontal,1)
%Format.Offset(Vertical,-29)
%Assign(desdeinicio,%System.Uptime())
%Assign(temp,%Trunc(%Div(%desdeinicio(),3600000),8))
%Dec(%temp(),%Dec(%temp(),%Trunc(%temp())))"h"
%Assign(minus,%Mul(60,%Dec(%temp(),%Trunc(%temp()))))
%Trunc(%minus())"m"
%Common.CreateNewLine()
%Format.Offset(Horizontal,32)
%Format.Offset(Vertical,17)
"px:" %IncTsys()
#EndGfxMode