Select Code to Download

   if (open(THE_FILE, $prestring . "WWM.txt")){print "<center><img bor
+der=0 src=/article_separator.png><br><B>WWM: Windmills and Wind Motor
+s. 1910.</B></center><br>";fn1();} else {print "<center><img border=0
+ src=/article_separator.png><br><b>Windmills and Wind Motors, 1910,</
+b> has no ATOCI.</b></center><br>"};
   if (open(THE_FILE, $prestring . "ycmi.htm")){print "<center><img bo
+rder=0 src=/article_separator.png><br><B>YCMI: You Can Make It. 1929-
+1931.</b></center><br>";fn1();} else {print "<center>YCMI file not fo
+und.</center><br>"};
   if (open(THE_FILE, $prestring . "youngs.htm")) {print "<center><img
+ border=0 src=/article_separator.png><br><B>YOUNGS: Youngs Demonstrat
+ive Translation of Scientific Secrets. 1861.</b></center><br>";fn1();
+} else {print "<center>Youngs.htm Missing.</center><br>"};

sub fn1
 {
...
   }
 close (THE_FILE);
 }