QBASIC CODE TO FIND REPETITION OF CHARACTER

CLS
INPUT “Enter any sentence”; s$
INPUT “Enter a character to count repetition”; c$
FOR I = 1 TO LEN(s$)
r$ = MID$(s$, I, 1)
IF c$=r$ THEN n = n + 1
NEXT I
PRINT
PRINT
PRINT “Repetition of “; c$, “is”, n
END

USING SUB PROCEDURE

DECLARE SUB REPEAT()
CLS
CALL REPEAT()
END

SUB REPEAT(A$)
INPUT “Enter any sentence”; s$
INPUT “Enter a character to count repetition”; c$
FOR I = 1 TO LEN(s$)
r$ = MID$(s$, I, 1)
IF c$=r$ THEN n = n + 1
NEXT I
PRINT
PRINT
PRINT “Repetition of “; c$, “is”, n
END SUB

USING FUNCTION

DECLARE FUNCTION REPEAT(s$,c$)
CLS
INPUT “Enter any sentence”; s$
INPUT “Enter a character to count repetition”; c$
PRINT “Number of words in a sentence = "; REPEAT(s$,c$)
END

FUNCTION REPEAT(s$,c$)
FOR I = 1 TO LEN(s$)
r$ = MID$(s$, I, 1)
IF c$=r$ THEN n = n + 1
NEXT I
REPEAT = n
END FUNCTION