Program in qbasic to check amicable number

CLS
INPUT "ENTER FIRST NUMBER"; A
INPUT "ENTER SECOND NUMBER"; B

FOR I = 1 TO A - 1
    IF A MOD I = 0 THEN
        S = S + I
    END IF
NEXT

FOR J = 1 TO B - 1
    IF B MOD J = 0 THEN
        S1 = S1 + J
    END IF
NEXT

IF S1 = A AND S = B THEN
    PRINT "ENTER NUMBER IS AMICABLE"
ELSE
    PRINT "ENTER NUMBER IS NOT AMICABLE"
END IF