To print input string in alternate capital letters (SUB procedure) (Qbasic Code)

To print input string in alternate capital letters using SUB procedure. (if user inputs 'COMPUTER' then the output should be 'CoMpUtEr') (QBasic Code)
  • DECLARE SUB alternate (a$)
    CLS
    INPUT "Enter string:"; a$
    CALL alternate (a$)
    END

    SUB alternate (a$)
    FOR i = 1 TO LEN (a$)
        b$ = MID$ (a$, i, 1)
        IF i MOD 2 = 0 THEN
            b$ = LCASE$ (b$)
        ELSE
            b$ = UCASE$ (b$)
        END IF
        alt$ = alt$ + b$
    NEXT i
    PRINT "The required alternate is: "; alt$
    END SUB

Share :

Twitter
Back To Top

facebook main

counter

Powered by Blogger.