54 lines
1.1 KiB
Plaintext
54 lines
1.1 KiB
Plaintext
PROGRAM "The Name Game"
|
|
VERSION "0.0000"
|
|
|
|
DECLARE FUNCTION Entry ()
|
|
DECLARE FUNCTION TheGameName (nombre$)
|
|
|
|
FUNCTION Entry ()
|
|
DIM listanombres$[5]
|
|
listanombres$[0] = "Gary"
|
|
listanombres$[1] = "EARL"
|
|
listanombres$[2] = "billy"
|
|
listanombres$[3] = "FeLiX"
|
|
listanombres$[4] = "Mary"
|
|
listanombres$[5] = "ShirlEY"
|
|
|
|
FOR i = 0 TO 5
|
|
TheGameName(listanombres$[i])
|
|
NEXT i
|
|
END FUNCTION
|
|
|
|
FUNCTION TheGameName (nombre$)
|
|
x$ = LCASE$(nombre$)
|
|
x$ = UCASE$(MID$(x$, 1, 1)) + MID$(x$, 2, LEN(x$) - 1)
|
|
x0$ = UCASE$(MID$(x$, 1, 1))
|
|
|
|
IF (x0$ = "A") OR (x0$ = "E") OR (x0$ = "I") OR (x0$ = "O") OR (x0$ = "U") THEN
|
|
y$ = LCASE$(x$)
|
|
ELSE
|
|
y$ = MID$(x$, 2, LEN(x$) - 1)
|
|
END IF
|
|
|
|
b$ = "b" + y$
|
|
f$ = "f" + y$
|
|
m$ = "m" + y$
|
|
|
|
IF x0$ = "B" THEN
|
|
b$ = y$
|
|
ELSE
|
|
IF x0$ = "F" THEN
|
|
f$ = y$
|
|
ELSE
|
|
IF x0$ = "M" THEN
|
|
m$ = y$
|
|
END IF
|
|
END IF
|
|
END IF
|
|
|
|
PRINT x$ + ", " + x$ + ", bo-" + b$
|
|
PRINT "Banana-fana fo-" + f$
|
|
PRINT "Fee-fi-mo-" + m$
|
|
PRINT x$ + "!" + CHR$(10)
|
|
END FUNCTION
|
|
END PROGRAM
|