10 REM > Fred2
   20 REM Prints a name in lower case with an initial capital
   30 ON ERROR REPORT:PRINT " at line ";ERL:END
   40 INPUT "What is your name? "name$
   50 char%=ASC(LEFT$(name$,1))
   60 char%=char% AND &DF
   70 name2$=CHR$char%
   80 FOR n%=2 TO LENname$
   90   char%=ASC(MID$(name$,n%,1))
  100   char%=char% OR &20
  110   name2$+=CHR$char%
  120 NEXT
  130 PRINT "Hello "name2$", nice to see you."