The Name Game: Difference between revisions

Content added Content deleted

Inline

@@ Line 713: / Line 713: @@
          {0}!
          }
-         While not empty {
+      While not empty {
-            Read a$
+            Read x$
-            x$=a$
+            x$=ucase$(left$(x$,1))+lcase$(mid$(x$,2))
             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$, a$, y$, b$, f$, m$)
+            toprint$=format$(song$, x$, y$, b$, f$, m$)
             doc$=toprint$
             report toprint$
@@ Line 752: / Line 752: @@
 Felix!
 </pre >
 =={{header|Modula-2}}==