array.load dn$[],"Пн","Вт","Ср","Чт","Пт","Сб","Вс"
array.load m$[],"Январь","Февраль","Март","Апрель","Май","Июнь","Июль","Август","Сентябрь","Октябрь","Ноябрь","Декабрь"
gosub uf
     !    include fn_viewer.bas
!include ../functions/graphics
gr.open 255,255,255,255
gr.screen sw,sh
gr.orientation 2

cw=sw/2 : ch=sh/2
!fon_l(white)

gosub wait
!fl(brown):a(20)
gr.color 20,150,75,0,1
text(cw,ch,"2017", cw*0.9,2,2)
!fl(black):a(255)
gr.color 255,0,0,0,1
text(q(),q()/2,"© b0ing",q()/3,1,2)
dim p[8],ps[6]
!a(75):fl(yellow)
gr.color 75,255,255,0,1
Gr.paint.get p[1]
p[2]=p[1]:ps[1]=p[1]:ps[2]=p[1]
!a(0):fl(black)
gr.color 0,0,0,0,1
gr.paint.get p[3]
p[4]=p[3]
!a(75):fl(lilac)
gr.color 75,200,162,200,1
gr.paint.get p[5]
p[6]=p[5]:ps[3]=p[5]:ps[4]=p[5]
!a(0):fl(black) 
gr.color 0,0,0,0,1
gr.paint.get p[7]
p[8]=p[7]:ps[5]=p[7]:ps[6]=p[7]
!include ../functions/rustime
!a(255):fl(black)
gr.color 255,0,0,0,1
dim ot[12,7,7],okr[12,7,7]

for t=1 to 3 : for f=1 to 4
  text(x((f-1)*8+4),y((t-1)*9+2),m$[++m],q()*0.7,2,2)
for i=1 to 7 : for j=1 to 7
!a(0)
gr.color 0
gr.circle okr[m,i,j],x(i+((f-1)*8+s)),y(j+((t-1)*9)+2),q()*0.35
!a(255):fl(black)
gr.color 255,0,0,0,1
!if i=1 & j>5 then fl(red)
if i=1 & j>5 then gr.color 255,255,0,0,1
ot[m,i,j]= text(x(i+((f-1)*8+s)),y(j+((t-1)*9)+2),"",q()/2,2,2)
next:next:next:next


for i=1 to 12
for j=1 to 7
   gr.modify ot[i,1,j],"text", dn$[j]
next
next


i=1:a=7:k=7:ks=3
for j=2 to 7:for t=a to 7:a=1
if kdm(i,0)=d & i<12 then d=0:i++:j=2

gr.modify ot[i,j,t],"text", int$(++d)

if i>5 then
gr.modify okr[i,j,t],"paint", p[++k]
if k=8 then k=0
endif

if i<=5 then
gr.modify okr[i,j,t],"paint", ps[++ks]
if ks=6 then ks=0
endif

if kdm(12,0)<d & i=12 then 
s$=""
gr.modify ot[i,j,t],"text", s$
gr.modify okr[i,j,t],"paint", p[3]
endif
next:next

gr.hide g_load

gr.render
do
until 0

wait:
!fl(black)
gr.color 255,0,0,0,1
gr.rect wfo1,0,0,sw,sh
!fl(white)
gr.color 255,255,255,255,1
wfo2=text(cw,ch,"Загрузка...",q()*1,2,2)
Gr.group g_load,wfo1,wfo2
gr.render
return


uf:


fn.def kdm(a,b) %Количество дней в месяце. а- номер месяца, b- 1 -високосный год.
 if b=1 then
array.load cvm[],31,29,31,30,31,30,31,31,30,31,30,31
else
array.load cvm[],31,28,31,30,31,30,31,31,30,31,30,31
endif
if a>0 & a<13 then
s=cvm[a]
else
s=0
endif
fn.rtn s
fn.end


fn.def text(x,y,s$,s,ag,av)
  gr.text.align ag
  gr.text.size s
  if av=1 then v=0
  if av=2 then v=-(s*(0.29/2))+s/2
  if av=3 then v=-(s*0.29)+s
  gr.text.draw oTx,x,y+v,s$
  fn.rtn oTx
fn.end



fn.def x(a)
gr.screen w,h
fn.rtn w/32*a
fn.end

fn.def y(a)
gr.screen w,h
fn.rtn h/28*a
fn.end

fn.def q()
gr.screen w,h
fn.rtn w/32
fn.end

return


onerror: