NAZWA DNIA`D32255}:300000u:"logo2"32256~:"logo3"300000u  :4:4:0::3,3;"WITA CIE S P E C T R U M",6,0;"PROPONUJE CI ZABAWE W PODAWANIE",7,0;"NAZWY DNIA TWOICH URODZIN...",10 ,0;"OBLICZENIA WYKONUJE TYLKO DLA ",11 ,0;"DAT Z LAT 1901 - 2000" 236099\,255 "NACISNIJ ENTER ";X$ %n=115:300000u:n d$(7,12 ) n=17:d$(n):n ( m(12 ) 2n=112 :m(n):n 3%n=110 :30050bu:n 4-:8,5;"KOLOR NAPISOW? (1-7,0)" 5'i:n=14:30100u:n 6,:8,7;"KOLOR OBRAZU? (1-7,0)" 7't:n=110 :30150u:n 8 :i:t:t: d n!"PODAJ DZIEN URODZIN [..] ";day o%n=110 :30050bu:n x%"PODAJ MIESIAC URODZIN [..] ";month y$n=15:300000u:n ""PODAJ ROK URODZIN [....] ";year %n=110 :30100u:n qyear<1901m1:8,0;"XX WIEK ZACZYNA SIE W ROKU 1901":400:0::100d oyear>20001:8,0;"XX WIEK KONCZY SIE W ROKU 10000":400:0::100d month<1210 month>12 210 ;year/4-(year/4)=0m(2)=29 ^day>m(month)8,2;"TEN MIESIAC MA TYLKO ";m(month);" DNI":400:500 day>0300, J8,8;" NIE OSZUKUJ! ",9 ,8;" PODAJ REALNA DATE " 500 6y=year-1901m @b=365m*y+(y/4) Jn=1month-1 T b=b+m(n):n ^ b=b+day "b=b-7*(b/7)+1 Hxx=32 :yy=8:xs=2:ys=6:p$=(day):1500  1600@ Jxx=88X:yy=8:xs=2:ys=6:p$=(month):1500  1600@ Jxx=144:yy=8:xs=2:ys=6:p$=(year):1500  1600@ n=12 3-1 d$(b,n)""460 n  e$=d$(b,n) Lxx=64@:yy=64@:xs=2:ys=4:p$="TO JEST":1500  1600@ Fxx=32 :yy=104h:xs=2:ys=8:p$=e$:1500  1600@ >6,0,0;"" $n=12:30200u:n G4,21,0;" " $n=12:300000u:n m(2)=28  400 D%n=110 :30150u:n F I 5590 N%n=110 :30200u:n X7"JESZCZE RAZ-ENTER, ZMIANA KOLOROW-x ";a$ ]a$="x"524 ba$=""100d '"PONIEDZIALEK"," WTOREK,"," SRODA" 3" CZWARTEK"," PIATEK,"," SOBOTA,"," NIEDZIELA" V731,28,31,30,31,30 `731,31,30,31,30,31 ܫi=23306 [:i,xx:i+1,yy:i+2,xs:i+3,ys:i+4,8:i=i+4:w=p$:n=1w:i+n,p$(n):n:i+w+1,255:w=32256~: @&n=15:30050bu:n: i$ i$83000 d=18 d=3d=6d !i$(d)<"0"i$(d)>"9"3000 d w=i$(7) v=i$(45) u=i$(2) "v=0v>12 3000 n=0n>m(v)3000 <v=2u=29(w/4=(w/4))3000 &i=u-1+w*365m+(w/4) v=13090 d=2v i=i+m(d-1) d  *8,9 ;"A TERAZ...":150 Dw=year-1900l F v=month Hu=day N 3060 Xa=i 48,0;"PODAJ DZISIEJSZA DATE W POSTACI" 210 ,2;"DZIEN.MIESIAC.ROK [20.12.84]"  3000  b=i c=b-a Qxx=23:yy=4:xs=2:ys=6:p$="LICZYSZ SOBIE":1500 bxx=(255-(c)*32 )/2:yy=480:xs=4:ys=10 :p$=(c):1500 Ixx=90Z:yy=120x:xs=3:ys=6:p$="DNI":1500   pT"NAZWA DNIA"1:"logo2"32256~,300,:"logo3"300000u,250 X%WRITTEN BY JANUSZ GAJEWICZ 01.1985. (logo2 ,~3.![~#"[o<&)))K6\ >2[: [2 [: [2[> 2[~#"[2[:[= 2:[= :[G: [O: [ 2 [*[~2[: [G: [2 [*[ ~2[: [G: [2[: [Oͤ~:[<2[ :[<2[ :[0~@ :\G:\G:[o:[g>Xg:\w:[G@gxgxo:[Go!~xO F![F(// Palogo3 0u>e:H\???B˧CK :H\???B˧CZ:H\???B˧C ~ :H\???B˧C&%:H\???B˧C