10REM Covert into uppercase 20CLS:PRINT"Convert Lowercase to Uppe rcase" 30PRINT'':INPUT"Enter text> " text$ 40word$=FNcapital(text$) 50PRINT''"UpperCase: ";word$ 60END 70DEFFNcapital(s$) 80IF s$="" THEN ="" 90s2$="" 100FOR g%=1 TO LEN(s$) 110a%=ASC(MID$(s$,g%,1)) 120IF a%=32 THEN GOTO 140 130a%=(a% AND &DF) 140s2$=s2$+CHR$a% 150NEXT g% 160=s2$