Mad Libs: Difference between revisions
m
→{{header|REXX}}: typos (mostly)
(→{{header|REXX}}: added the REXX language. -- ~~~~) |
Walterpachl (talk | contribs) m (→{{header|REXX}}: typos (mostly)) |
||
Line 589:
=={{header|REXX}}==
<lang rexx>/*REXX program to prompt user for template
@=; @.=; !.=0; #=0; old.= /*assign some defaults. */
parse arg iFID . /*allow
if iFID=='' then iFID="MAD_LIBS.TXT" /*Not specified? Then use default*/
Line 601:
recs=recs-1 /*adjust for E-O-F or blank line.*/
do k=1 /*look for
parse var @ '<' ? '>' @ /*scan for <xxx> stuff in text.*/
if ?='' then leave /*if no XXX, then we're done. */
Line 610:
parse pull ans; if ans\='' then leave
end /*forever*/
#=#+1 /*bump the
old.#='<'?">"; new.#=ans /*assign "old" name, "new" name. */
end /*k*/
Line 617:
do m=1 for recs /*display the text, line for line*/
do n=1 for # /*perform
@.m=changestr(old.n, @.m, new.n)
end /*n*/
say @.m /*display (new)
end /*m*/
| |||