Paypackets 163
810 REM CALCULATE
820 X=0:A=A*100:FOR J=10 TO 1 STEP -1 830 CA(J)=0:IF X=1 THEN 880
840 IF(A-CV(J)*100)<0 THEN 880
850 A=INT(A-INT(CV(J)*100)):IF A=0 THEN X=1
860 REM OVERFLOW CHECH
870 CA(J)=CA(J)+1:IF X=0 THEN 840
880 NEXT J
890 FOR J=1 TO 10:CA(J)=CA(J)*B:NEXT
900 FOR J=1 TO 10:CB(J)=CB(J)+CA(J):NEXT
910 RETURN