INCLUDE "system.oxh"

PROC Battery:
  LOCAL stat%,id%
  gSETWIN 440,110,200,130
  gUSE 1
  gAT 1,1
  DO
    stat%=MAINBATTERYSTATUS&:
    gAT 40,50
    gFONT 268435964
    IF stat%=3
      gPRINT "Batteries are Good"
    ELSEIF stat%=2
      gPRINT "Batteries are Low"
    ELSEIF stat%=1
      gPRINT "Batteries are Very Low"
    ELSEIF stat%=0
      gPRINT "Batteries are Dead!"
    ENDIF
    stat%=BACKUPBATTERYSTATUS&:
    gAT 40,80
    gFONT 268435964
    IF stat%=3
      gPRINT "Backup Battery Good"
    ELSEIF stat%=2
      gPRINT "Backup Battery Low"
    ELSEIF stat%=1
      gPRINT "Backup Battery Very Low"
    ELSEIF stat%=0
      gPRINT "Backup Battery Dead!"
    ENDIF
    PAUSE 2000
  UNTIL 0
ENDP