I think the first is a little busy.
And I have a feeling most APODER’s spend a a bit too much time staring at white noise anyways.
1 open "links" for output as #1: print #1, "<table><tr valign=top>": n$="January February March April May June July August SeptemberOctober November December"
2 for m = 1 to 12: m$ = mid$("010203040506070809101112",m*2-1,2) : l=val(mid$("785534469788",m,1)): dd = val(mid$("312931303130313130313031",m*2-1,2)) : print #1, "<td><center>";mid$(n$,m*9-8,l);"</center><small><ol>"
3 for d = 1 to dd : d$ = str$(d) : if d < 10 then d$ = "0"+d$
4 t$=mid$(n$,m*9-8,l)+" "+d$+", 2011": print #1,"<li><a href=";chr$(34);"http://apod.nasa.gov/apod/ap11";m$;d$;".html";chr$(34);" target=";chr$(34);"o";chr$(34);">2011";m$;d$;"</a> · <a href=";chr$(34);
5 print #1,"http://www.freerepublic.com/perl/post_article?forum=chat;keywords=astronomy,%20apod,%20science;topics=astronomy,%20science,%20apod;title=Astronomy%20Picture%20of%20the%20Day%20--%20;author=(see%20photo%20credit);";
6 print #1, "date=";t$;";source_url=http://apod.nasa.gov/apod/ap11";m$;d$;".html;source=NASA;article_body=<blockquote><small>[Credit:%20]%20Explanation:%20</small><br><br><a%20href=%22http://apod.nasa.gov/apod/ap11";m$;d$;".html";
7 print #1,"%22%20target=%22o%22%20title=%22";t$;"%22 width=600><img%20src=%22%22%20border=0%20alt=%22";t$;"%22></a></blockquote>;
8 print #1, ";is_excerpt=checked;comment_body=<blockquote>This%20space%20is%20like%20a%20Chuck%20Lorre%20vanity%20card.</blockquote>";chr$(34);" target=";chr$(34);"apod";chr$(34);">post</li>"
9 next d : print #1, "</ol></small></td>": next m : print #1, "</tr></table>": close #1