Manuscript history of Archimedes' works<\/title>\n"; print MANUSCRIPT "<body bgcolor=\"fffffff\">\n"; print MANUSCRIPT "<h1>Manuscript history of Archimedes' works<\/h2>\n"; print MANUSCRIPT "<center><img src=\"heathtitlesmall.jpg\"\><\/center>\n"; print MANUSCRIPT "<table cellpadding=10><td>\n"; print MANUSCRIPT "The images here have been taken from T. L. Heath's translation into English of Archimedes' collected works, published in 1897 by Cambridge University Press. Heath's edition is based in turn on the definitive Greek edition of J. L.Heiberg.\n"; print MANUSCRIPT "<p>You can see larger images of a page by clicking on its image below.\n"; print MANUSCRIPT "<p>\n"; print MANUSCRIPT "<table>\n"; print MANUSCRIPT "<tr><td><\/td>\n"; for ($no=23;$no<32;$no++) { if (($no & 1) == 0) { print MANUSCRIPT "<tr>\n"; } print MANUSCRIPT "<td>"; print MANUSCRIPT "<a name=\"ms$no\"><\/a>\n"; print MANUSCRIPT "<a href=\"manuscript\/ms$no.html\"><img src=\"manuscript\/ms$no"."small.jpg\"><\/a>\n"; print MANUSCRIPT "<\/td>"; if (($no & 1) == 1) { print MANUSCRIPT "<\/tr>\n"; } open(PRINT, ">manuscript/ms$no.html"); print PRINT "<html>\n"; print PRINT "<title>Manuscript history of Archimedes' works - page $no<\/title>\n"; print PRINT "<body bgcolor=\"fffffff\">\n"; print PRINT "<h2>Manuscript history of Archimedes' works - page $no\<\/h2\>\n"; print PRINT "[ <a href=\"..\/manuscript.html\#ms$no\">Back to main page<\/a> ]\n"; print PRINT "<p>\n<center><img src=\"ms$no.jpg\"><\/center>\n"; print PRINT "<\/ul>\n"; print PRINT "<\/html>\n"; close(PRINT); } print MANUSCRIPT "<td><\/td><\/tr>\n"; print MANUSCRIPT "<\/table>\n"; print MANUSCRIPT "<\/td><\/table>\n"; print MANUSCRIPT "<\/html>\n"; close MANUSCRIPT;

#!/usr/bin/perl open(MANUSCRIPT, ">manuscript.html"); print MANUSCRIPT "\n"; print MANUSCRIPT "Manuscript history of Archimedes' works<\/title>\n"; print MANUSCRIPT "<body bgcolor=\"fffffff\">\n"; print MANUSCRIPT "<h1>Manuscript history of Archimedes' works<\/h2>\n"; print MANUSCRIPT "<center><img src=\"heathtitlesmall.jpg\"\><\/center>\n"; print MANUSCRIPT "<table cellpadding=10><td>\n"; print MANUSCRIPT "The images here have been taken from T. L. Heath's translation into English of Archimedes' collected works, published in 1897 by Cambridge University Press. Heath's edition is based in turn on the definitive Greek edition of J. L.Heiberg.\n"; print MANUSCRIPT "<p>You can see larger images of a page by clicking on its image below.\n"; print MANUSCRIPT "<p>\n"; print MANUSCRIPT "<table>\n"; print MANUSCRIPT "<tr><td><\/td>\n"; for ($no=23;$no<32;$no++) { if (($no & 1) == 0) { print MANUSCRIPT "<tr>\n"; } print MANUSCRIPT "<td>"; print MANUSCRIPT "<a name=\"ms$no\"><\/a>\n"; print MANUSCRIPT "<a href=\"manuscript\/ms$no.html\"><img src=\"manuscript\/ms$no"."small.jpg\"><\/a>\n"; print MANUSCRIPT "<\/td>"; if (($no & 1) == 1) { print MANUSCRIPT "<\/tr>\n"; } open(PRINT, ">manuscript/ms$no.html"); print PRINT "<html>\n"; print PRINT "<title>Manuscript history of Archimedes' works - page $no<\/title>\n"; print PRINT "<body bgcolor=\"fffffff\">\n"; print PRINT "<h2>Manuscript history of Archimedes' works - page $no\<\/h2\>\n"; print PRINT "[ <a href=\"..\/manuscript.html\#ms$no\">Back to main page<\/a> ]\n"; print PRINT "<p>\n<center><img src=\"ms$no.jpg\"><\/center>\n"; print PRINT "<\/ul>\n"; print PRINT "<\/html>\n"; close(PRINT); } print MANUSCRIPT "<td><\/td><\/tr>\n"; print MANUSCRIPT "<\/table>\n"; print MANUSCRIPT "<\/td><\/table>\n"; print MANUSCRIPT "<\/html>\n"; close MANUSCRIPT;