DECLARE FUNCTION FindSumOfDivisors& (n&)
DO
    PRINT
    INPUT "Starting Number"; s&
    IF s& = 0 THEN END
    n& = s&
    PRINT n&;
    Firstime% = 1
    DO UNTIL n& = 1 OR Firstime% = 0 AND n& = s&
        n& = FindSumOfDivisors&(n&)
        Firstime% = 0
        PRINT "->";
        PRINT n&;
    LOOP
LOOP

FUNCTION FindSumOfDivisors& (n&)
s& = 0
IF n& > 1 THEN
    d& = 1
    DO UNTIL d& * d& > n&
        IF n& MOD d& = 0 THEN
            s& = s& + d&
            IF d& > 1 AND d& * d& < n& THEN s& = s& + n& \ d&
        END IF
        d& = d& + 1
    LOOP
END IF
FindSumOfDivisors& = s&
END FUNCTION