Anonymous user
The Name Game: Difference between revisions
m
→{{header|M2000 Interpreter}}
No edit summary |
|||
Line 713:
{0}!
}
Read
x$=
b$=if$(x$ ~ "B*"->"", "b")
f$=if$(x$ ~ "F*"->"", "f")
m$=if$(x$ ~ "M*"->"", "m")
y$=if$(x$ ~ "[AEIOU]*"->lcase$(x$),Mid$(x$, 2))
toprint$=format$(song$,
doc$=toprint$
report toprint$
Line 752:
Felix!
</pre >
=={{header|Modula-2}}==
| |||