[comp.sys.tandy] Alarm clock for Model 4

UUCP@vu-vlsi.UUCP (06/04/87)

Name this file: ALARMA/UUE
Uudecode, then De-ARC.  An interrupt-driven alarm clock; works no matter
what else you are running.
---------- Cut Here ----------
table
^!"#$%&'()*+
,-./0123456
789:;<=>?@A
BCDEFGHIJKL
MNOPQRSTUVW
XYZ{\||_
begin^777^alarm4/arc
M&@-!3$%2330N0TU$^%7Y\@^^^"$^P^(<V0^!^^^!Z!;_^,WK(A;_(1\$!@^Ca
M?/X$(^5|_G^H''{|("@%_@T@{"LC?NMW(_X-*^D$>/X**^/K&.XJ%O|P(Z|Wa
M9VC);D=/2PU&86EL960-(:S_$5+_S1C_.E+__@@@+0{_#'G|!R@E/ASO(/5Ya
M,JO_/F0&^"&G_|\@$A&H_SJK_T\|'>\|"B%4_|\8!CX*(5?_{SX6(0^^{P"\a
M_P.X(/+-UCFX*^C-I#G|+"B'R=TU^L#=-@(#\|D(/A,AM/_O(:S_$;3_^0@^a
M?NOMH2^<>;<H!.LC&/(|:^;|{SYD!@^A___O.JO_3SX>{|D(|\D"^E{_&@"0a
M$1H$04Q!4DTT+D1/0P!5|18/^^^A^.^"F3L^&^^^8^^"^^$^!^^#^^8^!0^'a
M^-__"0^(^^L^"@^-^^P^#P^.^!$^$^^3^!(^%0^4^!<^%@^9^!@^&P^:^!T^a
M'^^>^&__NO\?^)K_(^#R_R$^J_\B^"0^(P"{_XO_)0"S_R8^K?\G^+{_D/\Ha
M^/;_*0",_RH^C?|>_Y;_*P"1_RP^+0"L_RX^L/\P^"\^T_|V_S$^M_\R^+'_a
M-^^S^#4^Q/|3_{S_-P^V^#@^E_|*_Z__.@^Y^+C_.P"2_SP^LO\|^(;_F_|<a
M_SX^N?\_^$$^0^#._T(^1^!#^-?_F?|J_|;_10#-_\7_M/|&^)C_|?||_T@^a
M1P#/_|'_20#'_Y3_C_|*^*?_G?|(_Z;_V/|+^,S_3^"U__O_30!.^,+_I?|)a
M_U^^3P#Z_ZC_4P!1^-+_4@!4^,#_|_|5^,O__/_*_|O_5@!7^,/_|/|8^*G_a
MV?_!_\G_R/|;^%D^7^!:^({_A__&__3_7@#U_UT^7P#J_|#_\__4_|W_W/_Oa
M_|7_E?___O__WO|?*_Z|MCQ'H)>U97MG^:#D;_'=/E1|@!/G6WRWSQ'HSOM@a
M2_Z6')02);(|NVSXG@V>(|"=RU;.{+9<2+;OP_?L;+(,ME,&>Z>2V2%0GB/0a
M&0+L{;9GLA(1WBZ=<F=\8<J5DLWLN6585\J=%XL_1Z#M'9(OC!=%:I/7<\S|a
M?6UY_'5BOS|{(|O;WKF0;,\1Z./,,>ESA6LN*TIG*Z9{*MZ'{\R|=9YA2";Ka
M%M_MMP*6?^%?ACOMF:R-0$/|SOC"E.<(E/+DQ.)ENS/9L@1JZ=V_,@3L0;%?a
M{/<A?R'9UHO|8KM_!P)|*&O+|JR!.'|QCN^6+UM)T&^7YHN|XSHIX$0H=+Q3a
M{IT|:QG6/Y^%E"_#+5{>(?G">%'D"^ZRRYY5MNX_MK={5@$G^Y-+U=5WRMD"a
M+MQ(Y_BRCK|3.F3+?1_R7P9@=X8!7X:#DB%#'G3_L?U6Q@,M6P'?7X6BK'=(a
MOC!>%*4-&H9E6'|0O:E{I6M3|Z|B>{S?A_QW!I!O93S0LA5PB|_V^_E&(+L,a
M!=RI?!F.+|OX.Z5#MEQW<B#0,_MP6QCFB_^Y^FWOE^{9<E_^,TS9MSOE;G/9a
MR{!|@7^CG><)H&/2YTJE56KI,$YF\SHMPOO+.D{IF0JW>!F>(|^S|_^-&LXUa
MEY7N/Y#GR0&YS667"X0;Z3Q/^!V3/E>XYK)R',=T.A@^QLEL7B=!KH#H.\.\a
M|AE\W_:,+1LX$={BY7;IE.|;|5;&^RU;R4??P?>MG*UU{?8');MLNUV&|5N\a
M)+MTRO<A?XN7|S!GVW>A+=NYYK+R?<C?J0C)5F{Q<KMT2O=-?;<.M{GL\GW(a
MO8S7;CL|Q<)SS67ESCLX@#*9^H^08KX,!\7:95C_8D%AA%_LMP*RR9^'=ZRQa
MCM|'_+=BH6T^MR29NN_|'0CTS#{<XF5XGERP,QT"+/W{D+/X,JP_1Z^{{X/|a
M,MSBY2^';.ET_YS9MT{*,"23=9)=MMT6\&58NX#=B<E=L';9;_'R9;!EVZ!La
M>{N#K(,<L*5#/S38A?EBORW#.NA.;6T9;O$R1%_L'4%AA%{R!=@-REC@>*?<a
MM|(A:Y=A_8L%A1%>N)'.+5YN=Y#U?2O{|R&?ML*4'2S#|O%E'7|G=,B6Z{X@a
M%&"_V#OE;G/9R{#|2JO4TN'.|,*4+Q9\@X9A&=:_#_FT"VW9OMAOR{^.Z.ESa
M)1:>:RXKSQ"(R7\@|LL^{,XP7RPHC/""?<C?XF4K=|{!!W*0^{9T7K:-;/3Ha
MBTU;^=EDR(,{>O:%*7G'{T/|6{'0-H!;\CP!W;\#@5X6BY?M|+ZV?""W.\@Za
M8(@%:5|{+\SNQ)3H?CSR*7X!'XB|9RK@)|MS!/HZ(<*2/QEN\?(,Z73V(=|=a
M/E=6"T.<OX!;O!P0:,N49TB|W'E;K"W#E|&5F)5U7WO"*|5={|R9C7C9^2@=a
M)Z9LW<DEMF"|V#OOX%MA2&:W)7|+{O&H//CST+8,Z{=XN8Y=;)//QG=0NG\'a
M^CVS#|\*0S*{+6FQ9XASV2YP*ID=^N5$>'Q9Q|\I';+EOA'(+D,!|"_"YPATa
M?%|;;O'R'8#2<6+*=J\2LPQ99>O|E2%@#R^GN|T9>ZJZ|IURMH^+-|)YCD#;a
M,|"VE<'>CT<|Q>Y?$/#R,EZ{{4FE2-&=<K:^+|^6+U\&8'>&V>U"AF\$LLM0a
M{HPO&?SKI(#OSGONN|"6{5QS6?D"$BBV|ZOM/4VV6_*=L66{Q<L#{{$')6,7a
M,IP(;_'R#,F76_*M@&+OQR.?XBUY<JAI\FMW!BH7#,3>,Q5P|A?A<P0ZOJ\Ma
MWPI#,KLM|5N\/'LCZ|O>>6%^<<;+5M0\E:$J2*Y{*JVR;UD?0<^N=@'I${F\a
MT@2.7'-9<:0G,8F?2E;W3-9&H"'_G=FWSC,,R61=L^RV;!N4;6|WD$5/XJ<2a
M@1,9(-^|%0N+S>#/D$YG'_('=EN&|0/(:2.078;R40M|H"<QB9|**ON6|1$$a
M{&(7\*DTV:JNKK*+2E4E\5.)7/)YIGS$E.&K7JI,XJ<259>JBH_M_NK.V*5#a
MMG)XR2I)_%12*?EE?W287S6|KBK4NZ>:"%SR;)P,Y9F=8<"SF;*#0D|B@D>8a
MSQ73G_HY?C&T"OP|U)*/VCVU/%O3W-#DN3&R|7T:M=^'S*?BYGW3(E|_CBOVa
M8SE\MJ:YX=P8|=@-|7V=/I$V%\^C>N3KSS%B'VK9'H?'{N%1|D3:W->1JHL"a
M!?.I(,*T<+@U{+DQ4N!%17_LWM?I$VGSU:C+?"H1|Q;.|ESRLS7-#4V>AW>Ea
M40M4S*="{++W|2<28Y>5K=+<<+@U;)/I$VES'OF?2/0UI4JE7H7:.{2>LJZZa
M25US0SFJ0_U1"RU|(A9|ER(_?2)E>7=--&I!/7TB;<XCG3X1"{_*+C||(F7Ya
M-=&HA99&+:AC/A6T.8\$OJ9_KHBC%L{Z7/+#K6&;/%S';NC/0_I$+'QUJOE$a
M8@|SMJE-GTA9?DTT:D'UN2(ZM)YR5(?ZHQ94Z1.Q\%7JYA.)X{#2:{7I$RG+a
MNVNB40O4SS&B6U..ZE!_U^(U?2+3V/OZ$XD.K:>4K6_A<&O8)A_JR|9%-FX>a
MAS1J087Y5(A=|K{|1&+LLK)5FAL.MX9M,GTB;<XC@:_IGROBJ(6S/I?\<3A<a
MQV{HST/Z1,W{ID6|_AQ7{,=R|*L>>=@-\K$;ZOLZ?2)M+O^U/>*?*V(?:!{/a
M69|+_MC|JD>F3Q2{{'W|B<38966K-#=\U2,/NT&F3\3"5ZF;3R2.PTJOU:9/a
MI"R_)AJUT#Y71(?64X{J4'_40DN?*';9KWY656RZ;X|=5K9*<\/9FN:&)M,Ga
MTN8\6OU$(DP+9VO8X;7G;$US0Y./W?/TB5CX5^H4S"<2J10HJ$V?2%E|331Ja
MH7VNB^ZMIZRK;E+7W%".ZE!_U$)+GZAYW{3(UY_CBOU8#A|N#=OD5SF+?>R&a
M|KY.GTA9?M2"ZE.).*I#_5$+JC1JH6$|%;2YKR,!/*)_CA%A6CA;T|S0Y+DQa
MLO7|8_>|3I|(FPM\38|6/U=$F!;.|ESRLS7-#8_=ZWKL:VF:/#=&ID\4N|Q|a
M_8G$V&5EJS0W/-3WXY'_6IHFSXV1K>_3)_*NY?EG5456-R{/+|LH{D.3Z1-Ia
M<X&OZ1'_7!%A6G@<'KOWXY'_6IHFSXV1K>_3)|+F?L0_D<CJQN7|RS:*||!Da
M|D3:7$>KGTB$:>&LSR4_6|/<\-B|3I|(MO"I!E&V0)-N@E68SQ73GYHJ*LSGa
MBEF|8XUUC%3J)E6HF,\5LWI'S{XP)>\8J=1-Z@.7^?.I6)O{.FJN"9|C1$\+a
MK/\05|I#?:ZYK*1/I,U-BV!5|D0LU_JC%OJ0/I$VYY$^5M$_5T03F|/Z)A\<a
MX/;JLSZ77&WZ1"S\:O.G3Z0L{ZZ)/#S6S7PJ%MV:TL-CW4SZ1-J<C;RH3-)Ua
M#6,|%6*7/?M95=$3N|:>6/;A'MG:>UV'CW.E5ID|D3;G$9L|$0N_2I,|D;+\a
MFLC#8|W,IX+HUN|U'7K*>WBL:;*E3Z3->42M-ND3R3Z<6NVG3Z0L{ZZ)=%W#a
MZ1-I<QZQGTB,74\M*P|\Q{{V/^{|E9H|D387A!{KTB.>/I$VYY&JJ\M\KHA|a
M"_?CD4_QJTW78Q|'|(FT|6K49=(GTN:|CBCZZ1/)/IQ:{:=/I"SOKHD\/-;-a
MI$|DS4V+^N|QGV-${IK#M/#@MP?>8Q|{{W4=TB?2YCP2A!{KTM,GTN9LQ-,Ga
MTN8\HH{/I$\D|W!JM9\|D3;GD:K+?(XKAJ;U:7V3K{'WZLT{#ND3:7-?1Q55a
M|D2R#Z=6||D3*<M{QR%Y>*R;P?S:G$>J+O,YKAB:UJ?U3={#8|W,O7KSCD/Za
M1-K<UU&%FCZ1{,.IU7{RC@/F<XPVYQ&5:M(GTN:|CKI,|D2R#Z=6|XFBC_E<a
M<6LX!=YC,9\*IGG&O@|\QWZ.$0/OL0_L:@HNK8+Y5#"K5S<I|%@7\ZE@|JM2a
M<TW^?"J8_M6?XQ=#7&D/|;GFLG(>TE@LYG/%|*_|'+\8XDI{:'UHYGS$8{</a
MJ0|\QV(|%9O&7A!{JY%*_QPC-N_&TD){{6J'MZJ;=+BZ-(_=T*2DP>&"ZJZNa
M2D|/GTBV<'=-|D3:7!!{JY%*C|1-|D0F_DRBB7N|JMMC-S0I:7#H{|7{L1R|a
M;*.X#TWVZ1,U;|_TB9KWN2?B'L?TB;0YCU3C,Y_CBIX66/\AKK3TB;2YKZ.Qa
MV/2)9!|.K?;3)|+FOHZ::\+G&)'R7'-9>8@K36WZ1-K<M&@L-GTB;;{*1M4Fa
MZ;J&59A/Q=J<1P)?T|,G:MXW+?)U|D0L'*=/I"SOKHEJ6OA<$=V:\J,67M/"a
M:\\#{{'I$VES'K'I$|7R/'TB9?DUD:YK6#U|HN9|TR)?IT\4N|Q|G3Z1LKRNa
M:UB5=%W#ZIA/Q=J<1ZHN1>9S171H/>4K'-ONUG'?TB?2YJL1E8*Z29|(|N'4a
M:C||(FW.(U57E_E<$67K6{@?CWR*Z1-I\|6HRZ1/I,U|'75YIH*?/I'LPZG5a
M?OI$VIQ'@M!C7?JG@BA;I:ZZ/0Y|TYY{9%UYX#WV@:_JECZ1-F<CGCZ1-N>1a
M>I=)GTCVX=1J/|6T@/D<T{R|/|4@|F,Y'+VY?%6W>_7F'8?TB9KWN2?B'L?Ta
8B5J</I%L(7VBYIKW@<N0U%3-9JXJ^1H^a
^a
end