Code so far of my little project

DIM STR AS INTEGER
DIM AGI AS INTEGER
DIM WIS AS INTEGER
DIM LUK AS INTEGER
DIM RES AS INTEGER
DIM CHR AS INTEGER
DIM POINTS AS INTEGER

SUB FINISHPOINTSET
    PRINT "You have expended all your available points"
    PRINT "Your character's stats are now: "
    PRINT "Strength ", STR
    PRINT "Agility ", AGI
    PRINT "Wisdom ", WIS
    PRINT "Luck ", LUK
    PRINT "Resistance ", RES
    PRINT "Charm ", CHR
ENDSUB

SUB POINTSET
    POINTS=20
    INPUT "Please input how many points you want to allocate to the Strength Stat", STR
    STR = STR + 10
    PRINT "The Strength Stat is now ", STR
    SLEEP 2000
    POINTS = POINTS - (STR - 10)
    IF (POINTS<1) THEN
        PRINT "You have no more points to spend :("
        SLEEP 3000
        CALL FINISHPOINTSET
    ELSE
        PRINT "You have ", POINTS, "Points left."
    ENDIF
    SLEEP 2000
    INPUT "Please input how many points you want to allocate to the Agility Stat", AGI
    AGI = AGI + 10
    PRINT "The Agility Stat is now ", AGI
    SLEEP 2000
    POINTS = POINTS - (AGI - 10)
    IF (POINTS<1) THEN
        PRINT "You have no more points to spend :("
        SLEEP 2000
        CALL FINISHPOINTSET
    ELSE
        PRINT "You have ", POINTS, "Points left."
    ENDIF
    INPUT "Please input how many points you want to allocate to the Wisdom Stat", WIS
    WIS = WIS + 10
    PRINT "The Wisdom Stat is now ", WIS
    SLEEP 2000
    POINTS = POINTS - (WIS - 10)
    IF (POINTS<1) THEN
        PRINT "You have no more points to spend :("
        SLEEP 2000
        CALL FINISHPOINTSET
    ELSE
        PRINT "You have ", POINTS, "Points left."
    ENDIF
    INPUT "Please input how many points you want to allocate to the Luck Stat", LUK
    LUK = LUK + 10
    PRINT "The Luck Stat is now", LUK
    SLEEP 2000
    POINTS = POINTS - (LUK - 10)
    IF (POINTS<1) THEN
        PRINT "You have no more points to spend :("
        SLEEP 2000
        CALL FINISHPOINTSET
    ELSE
        PRINT "You have ", POINTS, "Points left."
    ENDIF
    INPUT "Please input how many points you want to allocate to the Resistance Stat", RES
    RES = RES + 10
    PRINT "The Resistance Stat is now", RES
    SLEEP 2000
    POINTS = POINTS - (RES - 10)
    IF (POINTS<1) THEN
        PRINT "You have no more points to spend :("
        SLEEP 2000
        CALL FINISHPOINTSET
    ELSE
        PRINT "You have ", POINTS, "Points left."
    ENDIF
    INPUT "Please input how many points you want to allocate to the Charm Stat", CHR
    CHR = CHR + 10
    PRINT "The Charm Stat is now", CHR
    SLEEP 2000
    POINTS = POINTS - (CHR - 10)
    CALL FINISHPOINTSET
END SUB



SUB MAIN
    DIM NAME AS STRING
    DIM SUREONE AS STRING
    PRINT "Welcome to Verl's Indevelopment Text RPG!"
    INPUT "Input your character's name", NAME
    PRINT "Your Character's name is " + NAME
    SLEEP 2500
    PRINT "You will now set your character's stats, these are Strength, Agility, Wisdom, Luck, Resistance & Charm."
    SLEEP 2500
    PRINT "Strength determines your base limit on how many how much damage you can inflict on an enemy."
    SLEEP 2500
    PRINT "Agility determines your base limit on how fast you are and your chance of dodging an attack."
    SLEEP 2500
    PRINT "Wisdom determines how fast you can learn new skills in a Library."
    SLEEP 2000
    PRINT "Luck determines the chance of succesfuly hitting a Combo in battle and your chance of a succesful rob."
    SLEEP 2500
    PRINT "Resistance determines your base limit of how much damage you can adsorb from an enemy."
    SLEEP 2500
    PRINT "And finally, Charm determines how persuasive you are in swindling money from shop keepers."
    SLEEP 2500
    PRINT "All your stats are set at 10 and you have 20 points to spend, choose carefully."
    SLEEP 2500
    CALL POINTSET
END SUB