Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!watmath!clyde!burl!ulysses!allegra!princeton!orsvax1!pyrnj!caip!seismo!lll-crg!lll-lcc!vecpyr!atari!jwt
From: jwt@atari.UUcp (Jim Tittsler)
Newsgroups: net.micro.atari16
Subject: ST Calendar Desk Accessory (UUENCODED BINARY)
Message-ID: <211@atari.UUcp>
Date: Thu, 24-Apr-86 15:23:16 EDT
Article-I.D.: atari.211
Posted: Thu Apr 24 15:23:16 1986
Date-Received: Sun, 27-Apr-86 05:38:24 EDT
Organization: Atari Corp., Sunnyvale, CA
Lines: 182
Keywords: ST Accessory Calendar

Here is the uuencoded binary for a calendar desk accessory for the ST.
It provides a "perpetual" (well, really 1980-2009) calendar page display,
showing the current month when initially opened.  It uses the vertical
scroll bar:  arrows move by month, shaded area by year.  It also attempts
to use the ikbd clock to maintain the TOS time of day across resets.
Enjoy.  Comments solicited.

----
begin 644 cal.acc
M8!H``!AL```"N@``"EP``````````````````"Y\```?*DZY```#VBZ\````
M`$Y!(B\`!#`\`,A.0DYU3E;_^DCG#PP^+@`(/"X`"BI\```A;$I';`P:_``M
M4T8P!T1`/@!)[O_Z0D4P!TC`@?P`"DA`T'P`,!C`4D5(QX_\``IG!+I&;>)*
M1V<00D5@!AK\`"I21;I&;?9@'D)'8`8:_``@4D<P!I!%OD!M\F`"&N0P!5-%
M2D!F]D(5(#P``"%L2I],WS#@3EY.=4Y6__Q*>0``(9)F%D*7/SP!`$ZY```5
MDE2/,_P``0``(9).7DYU3E;__$IY```ADF<40I<_/`$!3KD``!625(]">0``
M(9).7DYU3E;_^D)N__Y@%#!N__[1R-'\```D<C"\``%2;O_^#&X`"O_^;>0S
M_``"```DAC/Y```AC```(8XNO```),@O/```(8XO/```)').N0``$')0CTY>
M3G5.5O_T/6X`"/_X/6X`"O_Z,"X`"-!N``Q30#U`__PP+@`*T&X`#E-`/4#_
M_BZ.49<_/``!/SD``"&.3KD``!#R6(].7DYU3E;_]"Z.49<O#EV7+PY9ER\.
M59<P.0``),;G0#\`4E<P.0``)7C!_``6/P`_.0``&>@_.0``&>8_/`'+0F=.
MN0``%RS?_````!@^KO_X/R[_^C\N__P_+O_^/SP!RTZY```5UE"/,\```"5Z
M0E="9R\\```:XC\\``(_.0``)7I.N0``%M#?_`````I"5T)G0F<_//__/SP`
M$#\Y```E>DZY```6T-_\````"D)70F="9R\\```!:"\\```#Z#`Y```CE-!\
M^$3!_``,T'D``"%H2,`O`$ZY```1_E"/+P!.N0``$E)0CS\`/SP`"3\Y```E
M>DZY```6T-_\````"CZN__@_+O_Z/R[__#\N__X_.0``($P_.0``)$Y"9T)G
M3KD``!2LW_P````./J[_^#\N__H_+O_\/R[__C\Y```E>DZY```6$%"/+KP`
M`"&0+SP``"1P+SP``"2*+SP``"2(/SP`!#\Y```E>DZY```6?M_\````$$Y>
M3G5.5O_L80#]F#Z\``%.N0``%Q(];@`*__`];@`,__(];@`.__0];@`0__8N
MCE67+PY9ER\.79<O#E&7/SP`"S\Y```E>DZY```6?M_\````$&!<+HY1ER\.
M!I?____P3KD``!>>6(]*0&<>/J[__C\N__P_+O_Z/R[_^&$`_<)<CSZN``AA
M``<"+HY5ER\.69<O#EV7+PY1ES\\``P_.0``)7I.N0``%G[?_````!!*;O_\
M9P9*;O_^9IA"5TZY```7$F$`_0!.7DYU3E;_^$ZY```36BZ\```@3"\\```D
M3B\\```DQB\\```E>$ZY```54-_\````##/````AC%)Y```DQBZ\```:[3\Y
M```E5DZY```5M%2/,\```!]*/KP`%TZY```/+"U`__S`O`'@``!G+B`N__QR
M$.*@/H`_/``K3KD```],5(\@+O_\P+P``/__/H`_/``M3KD```],5(\S_/__
M```E>D)Y```ADCZ\``1.N0``#RRPO`````)G!$)`8`)P`3/````E?&$$3EY.
M=4Y6__I@``7F+KP``"54+SP``"!.+SP``"54+SP``"54+SP``"%X+SP``"%V
M0F<_/"<0+SP``"%Z0F="9T)G0F="9T)G0F="9T)G0F="9S\\``$_/``!/SP`
M,4ZY```3SM_\````.#U`__X^O``J3KD```],,'D``!GJL(AG``"8#'G__P``
M)7IG``",/KP`*DZY```/3#/````9ZC`Y```9ZL!\`!\SP```)3HP.0``&>KJ
M0,!\``\SP```(6HP.0``&>IR">)@T'P'O#/````D;C`Y```CE+!Y```D;F8.
M,#D``"%HL'D``"%J9PA*>0``(8IG(#ZY```AD#\Y```D<#\Y```DBC\Y```D
MB$)G80#]6E"//KP``4ZY```7$BZ\```E5"\\```E5"\\```E5"\\```DCC\\
M``H_.0``)7I.N0``%G[?_````!`(+@`$__]G``2.,#D``"%Z8``$;#`Y```A
M@+!Y```E>F8B/KD``"&(/SD``"&&/SD``"&$/SD``"&"/SP``6$`_-Y0CV``
M!%`P.0``(8"P>0``)7IF'D)70F="9T)G/SP`"C\Y```E>DZY```6T-_\````
M"F``!"`P.0``(8"P>0``'TIF'@QY__\``"5Z9Q0^N0``(8Y.N0``#]PS_/__
M```E>F```_`P.0``(8"P>0``)7IF8#ZY```E>DZY```62CZY```AD#\Y```D
M<#\Y```DBC\Y```DB#\Y```@3#\Y```D3D)G0F=.N0``%/[?_`````X^N0``
M)7I.N0``%F0^N0``(8Y.N0``#]PS_/__```E>F```WXP.0``(8"P>0``)7IF
M<#ZY```AB#\Y```AAC\Y```AA#\Y```A@C\\``4_.0``)7I.N0``%M#?_```
M``HNO```(9`O/```)'`O/```)(HO/```)(@_/``$/SD``"5Z3KD``!9^W_P`
M```0,_D``"2(```9YC/Y```DB@``&>A@``+\,#D``"&"L'D``!]*9@``N@QY
M__\``"5Z9@``D#Z\`"I.N0``#TPP>0``&>JPB&=P/KP`*DZY```/3#/````9
MZC`Y```9ZL!\`!\SP```)(PSP```)3HP.0``&>KJ0,!\``\SP```(6@SP```
M(6HP.0``&>IR">)@T'P'O#/````CE#/````D;CZY```DC#\Y```A:#\Y```C
ME&$`!298CV$`^,AA`/E@8!Y"5T)G0F="9S\\``H_.0``)7I.N0``%M#?_```
M``I@``(P,#D``"&"8```M%-Y```A:&8``,(S_``,```A:%-Y```CE#`Y```C
ME+!\![QL$#/\![P``".4,_P``0``(6A@``"44WD``".4,#D``".4L'P'O&P(
M,_P'O```(Y1@``!V4GD``"%H,#D``"%HL'P`#6UB,_P``0``(6A2>0``(Y0P
M.0``(Y2P?`?9;Q`S_`?9```CE#/\``P``"%H8#92>0``(Y0P.0``(Y2P?`?9
M;P@S_`?9```CE&`:8!A*0&>"L'P``6?8L'P``F<`_SZP?``#9XP^O/__/SD`
M`"%H/SD``".480`$$%B//KD``"&0/SD``"1P/SD``"2*/SD``"2(0F=A`/FP
M4(]"5T)G0F<O/````6@O/````^@P.0``(Y30?/A$P?P`#-!Y```A:$C`+P!.
MN0``$?Y0CR\`3KD``!)24(\_`#\\``D_.0``)7I.N0``%M#?_`````I@``#.
M0E="9T)G/SD``"&"/SP`"3\Y```E>DZY```6T-_\````"B\\```#Z"\\```!
M9S!Y```A@B\(3KD``!'^4(\O`$ZY```24E"/,\```"%H,#D``"%H2,"!_``,
MT'P'O#/````CE#`Y```A:$C`@?P`#$A`4D`SP```(6@^O/__/SD``"%H/SD`
M`".480`#"%B//KD``"&0/SD``"1P/SD``"2*/SD``"2(0F=A`/BH4(]@&F`8
MD'P`%+!\`!5B#N5`,$#1_```&C0@4$[00E=.N0``%Q)@`/H:3EY.=4Y6__)*
M;@`(9@A*>0``(8IG:#Z\``$_.0``(8Y.N0``$714CT)7/SD``"&.3KD``!$Z
M5(\]>0``)(C_^#UY```DBO_Z,#D``"2(T'D``"1P4T`]0/_\,#D``"2*T'D`
M`"&04T`]0/_^+HY1ES\Y```ACDZY```/EE2//KP``3\Y```ACDZY```1KE2/
M0F[_]F!`,"[_]L'\`!?0O```(Y8N@#`N__920,'Y```DQC\`,#D``"2*T5=3
M5S\Y```DB#\Y```ACDZY```0!ER/4F[_]@QN``C_]FVX,#D``".4L'D``"1N
M9@`!;#`Y```A:+!Y```A:F8``5P^O``!/SD``"%J/SD``"1N80`!4EB/T'D`
M`"4Z4T`]0/_V/KP``3\Y```ACDZY```1.E2/,"[_]DC`@?P`!TA`P?P``U)`
MP?D``"5XT'D``"2(54`]0/_X,"[_]DC`@?P`!U1`P?D``"3&T'D``"2*T'D`
M`"5\4D`]0/_Z,#D``"5XXT#0;O_X5D"0>0``)7P]0/_\,"[_^M!Y```DQE-`
MD'D``"5\/4#__BZ.49<_.0``(8Y.N0``#Y94CT)7/SD``"&.3KD``!&N5(\^
MO``"/SD``"&.3KD```]<5(\^O``"/SD``"4Z80#SI%2/+H`P+O_V2,"!_``'
M5D#!^0``),8_`#`Y```DBM%74U<P+O_V2,"!_``'2$#!_``#4D#!^0``)7@_
M`#`Y```DB-%7/SD``"&.3KD``!`&7(\^O``!/SD``"&.3KD```]<5(\S_``!
M```ABF`&0GD``"&*3EY.=4Y6``!(YP<`/BX`"%9'2,>/_``$WFX`"%I'2,>/
M_``'2$=\`6`2,$932-'(T?P``!H<,!#>0%)&O&X`"FWH,"X`#%-`WD`P!TC`
M@?P`!TA`2I],WP#`3EY.=4Y6``!(YP\`,"X`"$C`@?P`!$A`2D!G!'`<8`)P
M'3/````:'E-N``I"1V`>+KP``!KX,`?!_``7T+P``".6+P!.N0``#K)8CU)'
MOGP`"&W<,&X`"M'(T<@B?```&>PNL)@`3KD```\*/`!Z"S`&6D!(P('\``*:
M0#Z&,&X`"M'(T<@B?```&>PO,)@`,`5(P-"\```CEB\`3KD```[04(\^O``$
M/SP`!#\Y```CE&$`\B!8CR\`,`701DC`T+P``".6+P!2ETZY```.T%"//KP`
M%B\\```;#R\\```CK4ZY```.T%"//KP``3\N``I25S\N``AA`/ZP6(\Z`'X!
M8$@^O``"/SP``C\'80#QQ%B/+P`P!4C`@?P`!U1`P?P`%S(%2,&#_``'2$'#
M_``#2,'0@="\```CEB\`4I=.N0``#M!0CU)'4D4P;@`*T<C1_```&AR^4&^H
M2I],WP#@3EY.=4Y6``!(YP$,*FX`""AN``P:W&;\2I],WS``3EY.=4Y6``!(
MYP<,*FX`""AN``P^+@`08`(:QAP<9P@P!U-'2D!F\F`"0ATP!U-'2D!F]DJ?
M3-\PP$Y>3G5.5@``2.<#!"IN``A"1V`"4D=*'6;Z,`=*GTS?((!.7DYU(]\`
M`!\N3DXO.0``'RY.=2/?```?+DY-+SD``!\N3G4CWP``'RY.02\Y```?+DYU
M3E;__#/N``H``!],,_P`(```)5A">0``)5HS_``!```E7C/N``@``"5D3KD`
M`!'H,#D``"!03EY.=4Y6__PC[@`*```?.C/\``L``"58,_P``@``)5I">0``
M)5XS_``!```E8C/N``@``"5D3KD``!'H(_P``"&4```?.DY>3G5.5O_\,_P`
M90``)5A">0``)5I">0``)5XS[@`(```E9$ZY```1Z$Y>3G5.5O_Z,^X`"@``
M(90S[@`,```AED)N__X@;@`.$!!(@,!\`/\R;O_^T\G3_```'TPR@%*N``Y2
M;O_^2D!FVC/\``@``"58,_P``0``)5I3;O_^,^[__@``)5XS[@`(```E9$ZY
M```1Z$Y>3G5.5O_\(^X`"```'S8C[@`0```?/B`N`!#0O````%HCP```'T(S
M_`!D```E6$)Y```E6C/\``L``"5>(&X`##/0```E9$ZY```1Z"!N``PPN0``
M)60C_```'TP``!\V(_P``"!0```?/B/\```BE```'T(C_```(90``!\Z3EY.
M=4Y6__PC[@`,```?.C/N``H``!],,_P`@0``)5@S_``"```E6C/\``$``"5>
M,^X`"```)61.N0``$>@C_```(90``!\Z3EY.=4Y6__PS[@`*```?3#/\`!D`
M`"580GD``"5:,_P``0``)5XS[@`(```E9$ZY```1Z#`Y```@4$Y>3G5.5O_\
M,^X`"@``'TPS_``7```E6$)Y```E6C/\``$``"5>,^X`"```)61.N0``$>@P
M.0``(%!.7DYU3E;__#/N``H``!],,_P`%@``)5A">0``)5HS_``!```E7C/N
M``@``"5D3KD``!'H,#D``"!03EY.=2/\```E6```'S(B/```'S)P<TY"3G5.
M5O_\0D)*K@`(;`9$K@`(4D)*K@`,;`9$K@`,4D(P+@`*P.X`#BU`__PP+@`(
MP.X`#C(N``S"[@`*T$'0;O_\/4#__"`N__P(`@``9P)$@$Y>3G5.5O_^2.<_
M`$)#0H4N+@`(+"X`#&88(_R````````?1B`\@````('\``!@``!H;`1$AE)#
M2H=L!$2'4D.\AVXX9@9Z`4*'8#"^O``!``!L"H[&.@=(1TC'8!YX`;Z&90;C
MAN.$8/9*A&<.OH9E!(J$GH;BC.*.8.ZV?``!9@Y$AR/'```?1B`%1(!@""/'
M```?1B`%2I],WP#X3EY.=4Y6__8S[@`(```DD#`N``C0?/_VP?P``TC`T+P`
M`!AL+4#_^CU\``'__F`>(&[_^A`02(`R;O_^T\G3_```))`R@%*N__I2;O_^
M#&X`!/_^;=HNN0``)5!.N0```!1"0#`Y```DN$Y>3G5.5O_Z(_P``"20```A
M4"/\```D4```(50C_```))@``"%8(_P``"2X```A7"/\```E<```(6`C_```
M)7X``"%D(_P``"%0```E4#Z\``IA`/]&,_D``"2X```E5G`!3EY.=4Y6__P^
MO``380#_*G`!3EY.=4Y6__PS[@`(```DF#/N``H``"2:,^X`#```))PS[@`.
M```DGC/N`!```"2@,^X`$@``)*(S[@`4```DI#/N`!8``"2F,^X`&```)*@S
M[@`:```DJC/N`!P``"2L,^X`'@``)*XS[@`@```DL#/N`"(``"2R(^X`)```
M)7`S[@`H```DM#/N`"H``"2V/KP`&4ZY```2\"!N`"PPN0``)+H@;@`P,+D`
M`"2\(&X`-#"Y```DOB!N`#@PN0``),`@;@`\,+D``"3"(&X`0#"Y```DQ$)`
M,#D``"2X3EY.=4Y6__PS[@`(```DF#/N``H``"2:,^X`#```))PS[@`.```D
MGC/N`!```"2@,^X`$@``)*(S[@`4```DI#/N`!8``"2F/KP`24ZY```2\$Y>
M3G5.5O_\,^X`"```))@S[@`*```DFC/N``P``"2<,^X`#@``))XS[@`0```D
MH#/N`!(``"2B,^X`%```)*0S[@`6```DICZ\`$I.N0``$O!.7DYU3E;__#Z\
M`$U.N0``$O`@;@`(,+D``"2Z(&X`##"Y```DO"!N`!`PN0``)+X@;@`4,+D`
M`"3`0D`P.0``)+A.7DYU3E;__#/N``@``"28(^X`"@``)7`^O`!.3KD``!+P
M3EY.=4Y6__PS[@`(```DF"/N``H``"5P/KP`(TZY```2\$Y>3G5.5O_\,^X`
M"```))@S[@`*```DFC/N``P``"2<,^X`#@``))XS[@`0```DH#Z\`&1.N0``
M$O!.7DYU3E;__#/N``@``"28,^X`"@``))HS[@`,```DG#/N``X``"2>,^X`
M$```)*`^O`!E3KD``!+P3EY.=4Y6__PS[@`(```DF#Z\`&9.N0``$O!.7DYU
M3E;__#/N``@``"28/KP`9TZY```2\$Y>3G5.5O_\,^X`"```))@S[@`*```D
MFCZ\`&A.N0``$O`@;@`,,+D``"2Z(&X`$#"Y```DO"!N`!0PN0``)+X@;@`8
M,+D``"3`0D`P.0``)+A.7DYU3E;__#/N``@``"28,^X`"@``))HS[@`,```D
MG#/N``X``"2>,^X`$```)*`S[@`2```DHCZ\`&E.N0``$O!.7DYU3E;__#/N
M``@``"28/KP`:TZY```2\$Y>3G5.5O_\,^X`"```))@S[@`*```DFC/N``P`
M`"2<,^X`#@``))XS[@`0```DH#/N`!(``"2B/KP`;$ZY```2\"!N`!0PN0``
M)+H@;@`8,+D``"2\(&X`'#"Y```DOB!N`"`PN0``),!"0#`Y```DN$Y>3G5.
M5@``2.<?#"IN``@H;@`,/I4P+0`$T5<_%#`L``315TZY```84%2/.@`^K0`"
M,"T`!M%7/RP``C`L``;15TZY```84%2/.``^E3\43KD``!@T5(\^`#ZM``(_
M+``"3KD``!@T5(\\`#B'.48``C`%D$<Y0``$,`201CE```:Z1V\$N$9N!$)`
M8`)P`4J?3-\P\$Y>3G5.5O_\,"X`"+!N``IO!C`N``A@!#`N``I.7DYU3E;_
M_#`N``BP;@`*;`8P+@`(8`0P+@`*3EY.=0`!``(!`0(!`0`!`0(!`0$!`0``
M```````````!```!``,%``4%```!`0(!`!`'`0(!``````````````$!`0(!
M`0(!`0(!`0$!`@$!`0````````````````(!`0$!`08!`00!`0$#`0(!`00"
M`0@!`0````````$!`0D!`0$!`0$!```%`0``````````````````````````
M``````````````````````````````````0#``@#``8!``@!``@!``0!`0,!
M`0`%``$!`0`%```!`0`!`0`````````````````````````````````"`@``
M``````````````````````````````````4!``4!``$!``$!``(%``8!``(!
M``$!``8%```````!`0`!``(!``(!`0$!`0`````````````````````!`@,!
M`@$!`0$!`0`!`0`!`D`H(RE#04PN04-#(%8Q+C`P("!J=W1`871A<FD```!D
M`#+__P``&HP``!J4```:G0``&J,``!JI```:K0``&K(``!JW```:O@``&L@`
M`!K0```:V0`?`!P`'P`>`!\`'@`?`!\`'@`?`!X`'P``!@8```8Z```&F@``
M"H@```A:```*B```";P```J(```'#```!CH```J(```*B```"H@```J(```*
MB```"H@```J(```*B```"H@```J(```'C@``!FI*86YU87)Y`$9E8G)U87)Y
M`$UA<F-H`$%P<FEL`$UA>0!*=6YE`$IU;'D`075G=7-T`%-E<'1E;6)E<@!/
M8W1O8F5R`$YO=F5M8F5R`$1E8V5M8F5R`"!#04Q%3D1!4B``("!#86QE;F1A
M<@`@("`@("`@("`@("`@("`@("`@("`@`"!3;B`@32!4=2`@5R!4:"`@1B!3
M82```````@8J;A0."@X."!H8!@0&!@8&0`8@#`P&#"`("@H&&@8>#@H*#@8<
M!@H<!@@&!@8*!APR!AH^!AH2!@8&!@8,!@8&!@@*(!@*!@H4%`8&!@8&#"@4
M!@X.!@8*!@P&#@8&"`8("`8&!A(&!@8&"@86"@8(!@8&%`84!A`&"@@&"`H&
M"`8&!@8&!@8*#`8&!@@*!@@&!@8*!@P&!@8*!@P$!@0*!@P.!@X&!@H&!@P&
M!@X&!@8&(@80"@P&!@X("@8."@8.!@8."`@&#B8&#`8&!B`."@H.!A8*!A@(
M"@@&$`80"@8,!@8&(`P8#`8*!@@("`8,!A`&#`86#@@*!@84!@H&#@8,$`8:
M!A@&!@P.#@@.!@H&#`8,&@@<"`@&#`8*"#9,#@P(&`H@#@@0%`H,!@94"A*.
M"`@("`@."`8("`8&$`@(!@@(!@8$$`8&"`80"!P6"`P(!A`($`@&"`H&"@8$
M!@0&!`8$$`@("`@(!@8$$`@&"`@&!A`(!@@(!@80"`8("`8&"@0&>F8,&!0@
M&`8(#@0&!`8$!@0&!`8$!@0.!"0("`@("`@("`@("`@("`@("@H*"@H*"@@0
M"`@("`@("`H0"`@("`@("`H2"@H*"@@0"`H0"`H0"`@("`H0"`@("`H0"A`*
M$`@*"@H*"@@0"`@("`@*$`H0"`@("`@*"@H*"@@J'@X2`?`$!`0$!`0$!`0$
8!!P$!`0$!`0$!`0$!`0$!`0$!`0$!`0`
`
end

----
Jim Tittsler, Atari Corp.   lll-crg!vecpyr!atari!jwt