Mad Libs: Difference between revisions

← Older editNewer edit →
Content deleted Content added
Dinosaur (talk | contribs)
1,220 edits
Dinosaur (talk | contribs)
1,220 edits
Line 1,154:
Aline:='';
Reading:=true;
if eoln(inf) then Reading:=false {Agh! Why can't the read statemetstatement return true/false?}
else ReadLn(inf,Aline);
if Aline = '' then Reading:=false; {Specified that a blank line ends the story.}
End;
 
Procedure Table(it: string); {Check it as a targertarget, and obtain its replacement.}
var i: integer; {A stepper.}
Begin
Retrieved from "https://rosettacode.org/wiki/Mad_Libs"