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

• See Also
• Using Function Procedure

Share :

Twitter