IchigoJam_Train/pwmCompensation

list 1,30000

10 @ARUN:'Train
100 GOSUB @GETK: OUT 6
200 ?"Push BTN"
210 IF !BTN() THEN CONT
220 IF BTN() THEN CONT
230 WAIT 60
300 PWM 2,2000-K: WAIT 600
310 PWM 2,2000
320 GOTO 10
20000 @GETK
20010 K=ANA(2):WAIT2
20011 K=K+ANA(2):WAIT2
20012 K=K+ANA(2):WAIT2
20013 K=K+ANA(2):WAIT2
20014 K=K+ANA(2):WAIT2
20015 K=K+ANA(2):WAIT2
20016 K=K+ANA(2):WAIT2
20017 K=K+ANA(2):WAIT2
20018 K=K+ANA(2):WAIT2
20019 K=K+ANA(2)
20020 K=K/10
20050 K=495*64/K*31

20060 IF K > 2000 THEN K = 2000: ?" Low Battery"
20090 RETURN