PROGRAM voltz;
C;
INTEGER*4 i ;
REAL x, y ;
FORMAT (A,F5.3,A,/);
DO 10 i = 1, 100 ;
CALL delay() ;
x = FLOAT ( ADX4 ) ;
x = ( x * 3.260 ) / 1024.0 ;
WRITE (6,0) "Cell is at ", x, " volts" ;
10 CONTINUE ;
END ;
C;
SUBROUTINE delay ( ) ;
INTEGER*4 i ;
C wait ;
DO 10 i = 1, 8000 ;
10 CONTINUE ;
RETURN ;
END ;
\

Cell is at 0.073 volts
Cell is at 0.067 volts
Cell is at 0.054 volts
Cell is at 0.073 volts
Cell is at 0.096 volts
Cell is at 0.073 volts
...

PROGRAM battery ;
INTEGER*4 sec ;
DOUBLE start, stored, current, gain ;
C Initial state in amp-seconds;
start = 36000.0 ;
stored = start ;
C Three hours adding at one milliamp ;
current = 0.001 ;
DO 10 sec = 1, 10800 ;
stored = stored + current ;
10 CONTINUE ;
gain = stored - start ;
FORMAT (A,F5.3,/) ;
WRITE (6,0) "amp-seconds gained : ", gain ;
END ;
\

amp-seconds gained : 10.800