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