Free Republic
Browse · Search
General/Chat
Topics · Post Article

To: bigheadfred

Seemingly -- but the fact is, as with the other ping lists I meister, I wanted to have a 'blog topic, and also wanted to have an easy method of loading up each day's APOD original page. Here's the q'n'd program I used:
1 open "links" for output as #1
2 for m=1 to 12: m$=mid$("010203040506070809101112", m*2-1, 2): dd=val(mid$("312931303130313130313031", m*2-1, 2)): for d=1 to dd: d$=str$(d): if d<10 then d$="0"+d$
3 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></li>":next d: next m: close #1

13 posted on 05/13/2011 7:46:27 PM PDT by SunkenCiv (Thanks Cincinna for this link -- http://www.friendsofitamar.org)
[ Post Reply | Private Reply | To 7 | View Replies ]


To: SunkenCiv

oh duh. I see now. Thanks.


20 posted on 05/13/2011 8:17:17 PM PDT by bigheadfred (Beat me, Bite me...Make Me Write Bad Checks)
[ Post Reply | Private Reply | To 13 | View Replies ]

Free Republic
Browse · Search
General/Chat
Topics · Post Article


FreeRepublic, LLC, PO BOX 9771, FRESNO, CA 93794
FreeRepublic.com is powered by software copyright 2000-2008 John Robinson