roll.perky

#roll.perky
popi C;
popt 1;
popi D;
clear;
call "stat.agent";
popt 1;
popt 1;
clear;
pusht 1;
pusht "rolled a";

loop:
    less C 1;
    jumpif T done;
    rand D;
    add A 1;
    pushi A;
    add A B;
    set B A;
    sub C 1;
    set C A;
    jump loop;
done:
    pusht "SUM:";
    pushi B;
    halt;