[comp.sources.atari.st] v01i019: Idle -- Monitor protector

koreth@ssyx.ucsc.edu (Steven Grimm) (04/25/88)

Submitted-by: braner@tcgould.tn.cornell.edu (Moshe Braner)
Posting-number: Volume 1, Issue 19
Archive-name: idle

[This program blanks out your screen if you've been idle for a certain
 amount of time.  Source, documentation, and executable are in the arc
 file. -sg]

begin 600 idle.arc
M&@A)1$Q%+D%330``;FH``PX``)@0FU2-J.L=```,#12H2)"$"),B`54D!!'$
M#8@P;.B4D>,F#)TT=LJ`H/,&Q`DG28X@H7*"Q48T%D&P*1,FXYR3&JT(81+&
MS9J78]ZT2>/FC`M(`Q8.>>/&S!LY;5YR!-$F#P@1<LK,24.FC!LZ(.I<9).&
MCE,X<MYPS,E&A(N%0IPV>3,'C48A<FI.-(GC1@P9,6*<5;"0"IHT+S/*F4H4
M!&`01N7`!'%D"A6&<^:4:2-FI9R]`8D481(D"PB@9>+4^5Q@A@T80#\OF,&4
MIU:I(%2`D`$#!@@D>@(&+'CP,X'0HR$1($$C!PV@0VC4^(Q`!.\B(G0K.%*D
M"9$G4T"``/[Y0(S/#:A;Q[XQ+AP0;NI0GA@0BY`DY$&+_FP@!@WP[N%GIV,>
MO7HQ[/&E`!5%2-&$;]Q!<H!MD(17W753Z+#11#M5)!$(8+TQAE1S!`2%%%1D
M)UR"!^0`GG@02@@63UC-P1]/9P1$H(%2%)%=@@60,,-W#:*(G802(<6311K5
M1`8(:Y11QGD9;A@9"%%-5=55`4U1!11%8%'$$-O-!XD!,^"`WWL_:C=''7!,
M9`=@1VV'1QEC:)4&4=)1$800I)&80T!,&$%?@O4QV`!7;FADAI)D!#2$%']Z
M61]K#<8Y6)M1T5$'1=+)-D<>+DX&@AUAR)%&&)7!1@=*6-V1!AML@`#@0V8<
M.H9$B0I(YA16;-EE<,/!(,1]#=Y:7ACG933K43(FT42N7.[J&PEY`=O`IIVV
ML5$:;4ST*9P<R1'0$D(0P:QV"0Z7EY@-)IF'&&^$>F024D21Z:=4E=$1&QI:
M-*<;<^@@'11(9"'B;U[F:(1P.-#&X`%K5M517-;"\0:+`0(L,!))D%LP"0<3
MD#`,/#)<[\-A1#SQ5=K^=08:KN8AD8<!3\'$$QH'9S#"M$$JLL-0EHSAR4&J
M],8=VHGA<AF*/C&S%+8Y"\G-'LM`P\)P0%0&'1=&=09@0<,PKXNA8O6&&2#D
M5)5TS$VQ)17P.0'"<VA#@H`8<9$&MAQ80;+`&!"UZ@91+419[U6&N=$5E&_(
M6>C7=(0-PM@@2!%$$X%+-3A682F.M("R792M8OP1"T(+9?==QI%E".;4<DG!
MF=!"8[@UQAJ&D>VYMF7@`4<:49'APMMDS_&&26VE8096#=O[,\7>"N1F5Q*^
MP<:1MX/>G['=QHT`&6.XT*IP<"O@N?1'@D#&'-[[QN,#1Z6Q=46M4BN1M=5O
M>VSS`7G.WWE,O9%1&^D+`PQ>0`88L*`%*)@#'%)@MY9HY`Y'H9W6N#:1#BF`
M.71PD0N(!A0SL"$,9_@,`PYS.#*$P2EM,MS*L/*#@#!'#(5RP4N`\C>DB%"%
M:*"#25;B0*84"5^+NZ#<>$B:ZK%`@"Z4VYG$$(?T@6`$,6`!"@3(0$@DH"IC
MB$JV")>3.E!)B'.#`QMD^)D!U-!:D&#`W[!R.Q#DX6H2RLE57*.1,_8M#TE$
M0!O\5X8-:@>*+/`@"/-(Q*<-06E/8-H1O0;&/6;$CR"8(@Q2P`+R5>U[!9A#
M#]OW/HB437K(`F,&Z>!'H.A!D"'4VV%.]<,695%)#ND;"/0P$;:T$(P`:N(,
M!]`W1C)GC:4<@"2KR("H"$8RG\378`K7J3#4ZH5Q(2,-C]*&@/32-V-@PV4X
M*$PJBE!B27+5!V='2):0QF)36&0>'=E',6@G!L-D00$).8<Q<G,$.)"G+^7&
M3A>X$P0SB.<\&\E'2!:PDM,[CQ4UF9''B:J3K4I>1R3&O'46E&@/B0@<]&G1
M1_[SH`'UIMS`V<J)6`@C&J$HRIK''#;,89MEQ"='">I1[1P4GE0,R!E]4\@"
M\*0J>%`G3?N(48'N,XQCW*4<+Y+';,+4E*A4C2QI&9:7_.T.)GG"$C;2D>(=
MCUX.ZRA1_S@#V@!%G]V9`]\<4E;4#*!E$GD)"L24)L4P3PYHHD,*`K+4-)1Q
MB4W$J$P'RIQ^8O2@P_Q,`AA:QS(0[:>Y$ZL3(4('.&P4B:+4X/>Z:<`";K"*
M!X@=G&AW'Z/%M7`9#=))&ZK6J%@ECS#LXR[?@(:_B9"V)OE;"/(XRO0!A0:2
MU.=GZ2/:V3UDC6Y13&F/9L$7AD::`Z@4WE3#2J>$2B,&!(%6`T);VPI'#"^%
M;AMJD@:%+H`C'1&#,T<'`K!9]PYA2))D!=O6LT(6#[ZYFRMK8KB>("8L]',+
M5\\#PC#P9+Y_C.(I/Q@C!4@W;P-@)P!;E<`%KF"1!&10`:+4+8U,L%/+_$E0
MANK$\4WO@!6N(@%$?%S4X>%P:PJ#0]TWI%;5#WNA9`[>+(@6_0SK/*3C&ZM.
M]SB'I&XB3A&6D-GP.N<5EW;&`X$0Y)@X.J"`@8=1()R,EX;3_2X)P1L>E*1R
MM6M];B^RD0*97>E:ARS%CJV*<E3A^Q*]+*0(+V9C1SA98RG[.'3G08D;R&`9
MS("1>[XE0/C$,"?A3<]\Z/L>`=;'9_CYF3R`ME_V%,!HMNRO?X]LE?D,B$`%
M5A$!C`4!$8YJV'?"(,5H5="J0:"#'K0W36/@,I&%908OSFI?GSP;&,?0!C@$
M<P0SB/4"2(B5*1.ERE<&P2U?&,-=_JW*JOF;A#XYQ_34D9IWA&UX=SE>PYGW
MC?W"T$028ZTWU%5?A1&Q3M^`;:#T4]0IOG`!F<-B#A]%([.6-XE%W6E'DP'%
MIBXCBXWT/.2-:L80O?1^KL>M',MMQ_-2%[O<]6/V+IG(A3FR')RRQSH@LTT:
M;Y<<CG37O&H/T9(.WQK$0`;RV332ZOL,^Q[:YY1SO.5P0%[%FS=S,GS:5>,N
M8[G+*UE1%YU\"%\@@O),+QE7VI,^7[FF+8X`C'/NDVW8HT/,9J@VP7<-,,K*
M>=KDWK2'X>R;4XCSHE3FZGV9;%&U=13;6^;6PK)_57%5&(S[9G"/43I+5^@`
M>LO-J*:1V>8[H4/1X[X<2ANVS]VE=-&X`!>MJE4FS(.$:HX>L?RE)PA^7$)G
M6MB"?M2`Z)Q9=T@*\3ZK-$CT?.H`!LMJU]L4]C'#6.HM"1$6'')I#!H`[:_>
M*K)PW:G!=/P(Z7""EX2^C5<-R.:57E!1CT`SG,D""^HG'/V:&49Y]/I"7'04
M$)9=,:A\"<-O7T'I.)X`B.8@`1BT`!S2@8"2%U4H8!NV%GI[)3[8HBU``7/:
M`7Z=H5CUTT6$@P(7,3LO(7*KPQ22,08'>%]EE'^^P7]4U1%/]DE>A'L*L&`@
M]('=HW_\1UGM]4I681@XP4/PQV"11(!E8X,':$F^<3ZE-&FJP7Q@I3STUSS$
M)VI`J'\\L@!$>$E7DS5EL#4@!@*,1%D*A7_HPX12%1$FI2\-)5'+LU+6I%&*
M!X22UH18B%J]QBH@<`;*A$=?9Q5'`CF20SF",R684V4\40;$TSC3!3D\T16C
MPA5Z`&\.D3D7$42R,45N>"J'H2IN^"IH-V1'$@;'HRV#J%=?4V:%0C0XMDP\
MT5YHHB9LHAA[)&P!87Y`D28R]C0H-0:I-P)6@B5:,@11=X`8U!_",0+Y@1UY
MY$QDT$3>9P,LH$#S0@:`(4:2-Q5G\#<.D10-ED>N2!K2.(L?$B*YR%N\2``C
MX"-3$(QD,(Q.-`+&B(Q?!U^'@R_N)AUWP(Z*QTYQ$%,QT%D\H@!$\!VU]CBO
MH1CP:()DJ`#P*`/<EQ'S"!0CT`)1M&^0@(^VL8\\42C^2&_G(8$H"(\\,@!D
M0#>OB'\&A)',D3MP\AJ%(Y$@('#,L9%U(QQD$$4#R6^IP7!5IBWP."]!4B%$
MXBI:T5Z-XQ1Y:!5TH#T]I5^+Q!P"1&NV1H>/0S8_23A5@S<F42$FET=+Y%L#
M`%RF5I1RHU[(5#5G4"3C&"4O86LKT1.GPE5(HB1PT%3:%$REMD!-IQT"M(TD
M)E@ST@0UDDYOJ8MRDVF]"([S8@8_M1B4]847$88C(S1\<Q%$(2%EM54`@B]$
M(RE1\44!$8O8U):;15A#9$Y/@TY"U7HU!0(X-4FL)S=A4$_'ED^<J4>^!U!&
M195U(`;'=A>LR2"+Q16!5W-WP%8RL%6C*`,U8`,M8%H:$3M>=!.I=U!K:$60
M^!+,%HRJN5F\%Y>C=D1FB$$"-GB6XDG"*):=V"*<,C];-Q@2DFI$2!1281)1
MP8P;`A/68C3HX5A%)A7:<V_:`2[BLB6A*3?$9FS4^1P'A`.))1Q1YAP&`1TT
M"!-1@7FZ]('J*4*LY!`UYP8G@!6D=SA\Q%+\Q$<'N7LRH&QW4`8GT%!G(!8`
M59Y*,5%AX23-I42S:94M*4]-F$TLH1CY&$D>^&%!,@=\B0`]13Z-(P9:>0!!
M0(`]X`,;02HK@1AM0H2A:$$\@0=Y0P#X:86O-I<MZ3V4%`;?P1#?T0-)6IX/
M$98<8IUW$5Q;R@9=2I`,09!BJJ3L%Q=?^1!1(6.)H7I'`BIL4`>;(YI])&I2
MHZ9ZP:9'Q!H,P1IQ.I^@"!%^:IU3%`.4-$4R`%KH^6A\ZJ<G"136&0;)%JE5
ME``+-VA\AQ6?6)[B2([>1P,TJAH\\4I;A!4[.H44Q*';PY$_:$!3FC<)T)XL
M@15Y*DNL$:4!4:$:(1SJIP!"2BHVU3V2=BO,P@+Z&:ULLRRZ`A3RXRFAJ)B(
M^*+;XZR^47!0]W0G9F)'`A0VMZV9:I^'!J[?U6C[PP)%%Z_Z(P>*=ZKJZJCL
MNA#9$AGN9Z<L@7ASD$H%@&CN)!R+P@)]P@)V(@0L<`+/`20"MBB/D2$2<3\G
MD$<&ZQL)N[`-^[#AJA9L(6!P(1=RD+'MZD\<*P4*:P0,>R</>TS`IA>V03H\
M`3:66!(=Z[(+RTAY1(<!`1H(241,12Y$3T,``&YJ`&@#``"8$)M4\NI.!0``
M#%NZ-%`P,`@(-F_<G`%!)TV;,B#"G'G#$`W$.@W9I*&3!X0()TF.(*$B`L2=
M,'-`P'DSATX9,BY`@$A"!X08-F'<K'E9$>*<,7+*E'$S,(P9EW(B@C!3Y@Z(
M-FG<8"R3\LY&-"#<4`PSIJ&=C7E81'1#!D0=-S=S[BR[T>Q*-TIWYH$3=,Z<
M@6^2AGGZILX<B&W>V"GST$W-O""$)'DRA6$9/(<QPL'(D"(=BR!^!AWJ8N!`
MD"*I@$`3INQ?.6GZIA13Y\R<F"!`4BFR-`T>GG/>/!3+NF;;M#I37O8)5"A<
M,7D&#L\<YN'3,I??D-&1V2J=,6BB+J1#\3%2-V'8@/A*I@S%.7G<C(&=Q$S/
MH!'A:QWHO8P<\.+1J\^<Y@S^.6(-!U\8\E$TF!P-C1&>33@%)Y96*J7151U!
MM0#)`#F1,1"$5@C!!`A1(25''7#0\9I,0E#61DX=O0&'?6$TE%!*4?4$PA2B
M!<5&BW!%]Q<('3(Q4(CVC5CBB2`P44887RED(XX@)+048@@Y^2)JTE5U56PA
MC1115VD,=M"29-RE`'>9T2%'3F=`)$89I'V%6(9*N2%466;,"4)08KSQ!AV=
M$:0`$O9!E$9*21#!1!%BY101&]_%&"9$:,I6!'LUS8%&7VR4I55-"OH%$8LJ
MR?'&380!.-`<48TQ*AOBM47&&U2!F)*F:1QE(WGF@2!%$$VH]`:12<T@PQ(V
ME8&04\MI)<>*;`R$D((RN@';%*U22EI-!"YI:U9Y0;OCH^+I81]+8OU%1T-.
M+L?K&P/!$1YT+NW9'QHU604K"&0<"@=.';6%$KD,<K4&>XK2AET98ZPAW'E"
M512C<MM&R#!$;[CW:["'$FRNJ0".Q99[;77\J5AML;'D8,)A]FZ\PQIF7T0T
MYHM2HV3M6<:!?[4,T1AO("0'C6ZT1"9L5&"V<,-3RK%A0A^S].VL=F:V[([I
MGJ<FF]IJE](74)V![Q>9;>J4E,MI9MQ`>29%8F4@R`!#9@PG5"9L*=;T*=QW
MY"5''M0ENBB_M'[]*=EWH%8OFL,-]*ZOP`8Z4!*C,8FQ&^.Z9'19@M-F'59[
M!:85=J8Z)_I&>?%&6<FWDKC27QJ>25'?<JQATI9`"UW9&Y(KT`((3;"$F1!K
MVNFTH!9:`,(8E%D$GX44#`0:"$E$3$4N4%)'``!N:@#D`0``F!";5+J=/P(`
M``Q@-```((`!`$@6P``(("$)$29%#A)`<@X0("5Y!@8`8$9)$'T`T$V!!$"-
MD!G\%FH$$`2?("`SH&ED@%$C@C,$C$`!0T((E):"`$!`L3`<DJ$`!LP`IE$!
M#!T`<$4`DA0<DJD+/P(0!0."&@5",BY$`(-''P!1@,``!$(/`$M*8`TT8R`N
M``)G)(1!@O(LI`$!#*!4.9;)MP`!7NCXA\9)'8<0);X``&.R`@94!Y@1$`8#
MB`^*_ZES##DB)`)A#(3&Y[BFRC,:G@)P$0&8H`%6:PL*$`.DB)=A5XY("8`1
M*(T"'$LT?M`!$K<T?O``8,*)$RZ/G@/@)!U``B=!L,M1`.=?%&3__$5)]@_?
MQW_:(KV[*^3,"P3=8X`7`@BH4*(!A`,$4@,00!4@2VGD0#B`C,#40A"`@$<`
M&#"`2FGMG>$!'`)($HA6&H@`!P8`D#`B`R:,B`$)D8BP"!:!G/</.\K]18M&
M)"Y$P4$#H,*C,3PBP",K/"K#(P,-*)!`:3J`0`<:98`PA!14@`"''&_04<88
M=+PA1Y()@'":&'F`T,0;<T`)@A!RA.%&&5\J:0><<Z3QAAL@Q.`"#""T`$(:
E;LQ!1QALL%$&&4DJ()$$$BA@``<<B("`#QPH8,:D!$!2```:`.`"
`
end