Qbasic Program to print the short form of the name  

REM Program to print the short form of the name
CLS
INPUT "Enter your first, middle and last name "; n$
b$ = UCASE$(MID$(n$, 1, 1))
w$ = w$ + b$ + "."
a$ = a$ + b$
FOR i = 2 TO LEN(n$)
b$ = UCASE$(MID$(n$, i, 1))
IF RIGHT$(a$, 1) = " " THEN w$ = w$ + b$ + "."
a$ = a$ + b$
NEXT
PRINT w$
END