REM d:\freebasic\fbc d:\lomd\in.bas
#include "vbcompat.bi"
print "Auxiliar de consulta para os arquivos PDF da Imprensa Nacional - V1.00.20080224"
print "Autoria: Luis Olavo Dantas - luis@dantas.com"
print "http://www.dantas.com/imprensanacional"
print
p$="e:\"
k1$="
"
for q=2008 to 2002 step -1
print q
print #1," "
for r=101 to 112
b$=str$(q)
c$=right$(str$(r),2)
if r=101 then e$="Janeiro"
if r=102 then e$="Fevereiro"
if r=103 then e$="Março"
if r=104 then e$="Abril"
if r=105 then e$="Maio"
if r=106 then e$="Junho"
if r=107 then e$="Julho"
if r=108 then e$="Agosto"
if r=109 then e$="Setembro"
if r=110 then e$="Outubro"
if r=111 then e$="Novembro"
if r=112 then e$="Dezembro"
print #1,"
DJ Seção 1 de ";e$;" de ";b$;" | ";
if i=2 then print #1,"|
---|---|
DJ Seção 2 de ";e$;" de ";b$;" | ";
if i=3 then print #1,"|
DJ Seção 3 de ";e$;" de ";b$;" | ";
if i=4 then print #1,"|
DOU Seção 1 de ";e$;" de ";b$;" | ";
if i=5 then print #1,"|
DOU Seção 2 de ";e$;" de ";b$;" | ";
if i=6 then print #1,"|
DOU Seção 3 de ";e$;" de ";b$;" | ";
for j=1001 to 1031
k=dateserial(val(b$),val(c$),j-1000)
k=weekday(k)
if j>1028 then if c$="02" then if b$<>"2008" then if b$<>"2004" then goto 110
if j>1029 then if c$="02" then goto 110
if j>1030 then if (c$="04") or (c$="06") or (c$="09") or (c$="11") then goto 110
print #1,""; if k<2 goto 105 if k>6 goto 105 print #1,k1$;right$(str$(j),2);"/";c$;"/";b$;"&jornal=d"; if i<4 then print #1,"j"; if i>3 then print #1,"o"; print #1, "&secao="; if i=1 then print #1, "1"; if i=2 then print #1, "2"; if i=3 then print #1, "3"; if i=4 then print #1, "1"; if i=5 then print #1, "2"; if i=6 then print #1, "3"; print #1,"&pagina=1>"; 105 print #1,str$(j-1000); if k>=2 then if k<=6 then print #1,""; print #1," | " 110 next j print #1,"