ain@j.cc.purdue.edu (Patrick White) (05/18/88)
Submitted by: joe@ut-sally (Joe Hitchens)
Summary: Blanks screen after 90 sec. -- takes approx. 250 bytes.
Poster Boy: Patrick White (ain@j.cc.purdue.edu)
Archive Name: binaries/amiga/volume5/blank2.bin.sh.Z
tested but uncompiled.
NOTES:
Ran the binary -- it works, but didn't try compiling it.
-- Pat White (co-moderator comp.sources/binaries.amiga)
ARPA/UUCP: j.cc.purdue.edu!ain BITNET: PATWHITE@PURCCVM PHONE: (317) 743-8421
U.S. Mail: 320 Brown St. apt. 406, West Lafayette, IN 47906
========================================
# This is a shell archive.
# Remove everything above and including the cut line.
# Then run the rest of the file through sh.
#----cut here-----cut here-----cut here-----cut here----#
#!/bin/sh
# shar: Shell Archiver
# Run the following text with /bin/sh to create:
# readme
# blank2.uue
# blank2.info.uue
# This archive created: Mon May 16 10:52:00 1988
# By: Patrick White (PUCC Land, USA)
echo shar: extracting readme '(2149 characters)'
cat << \SHAR_EOF > readme
From: joe@vixen.uucp (Joe Hitchens)
Blanker2 -- by Joe Hitchens -- v1.27.88
A screen blanking program that turns the screen black after 90 seconds
of keyboard and mouse inactivity.
Adds a tiny event handler to the input.handler event stream and watches
the events go by. If it doesn't see a mouse or keyboard event after 900
timer events (10 per second), it turns the screen black by turning off
DMA for rasters and the copper.
If run from the CLI, a message will be printed out saying how long
the blank time is set to.
If run from (my cool) icon, nothing will appear to happen, but 90
seconds later you will be able to tell if it installed itself ok.
This program cannot be removed once installed, so if you have a
problem with it, all I can say is "Stop using it".
I realize that it would be a lot nicer to have a true task running
in the background and message ports between the handler and the task
so the handler could be programmed and removed from the outside,
but, I opted to not do this because as it is, Blanker2 will take up
less than 256 bytes of ram, and doesn't require any more when it
attempts to blank the screen (via opening black screens, etc.).
It's tiny and it does the job. I think that may be worth alot to
most users.
This program is PUBLIC DOMAIN.
Do me a favor though, and leave my name on it so I can get a little
recognition.
Usage: blanker2 [n]
n = number of seconds of inactivity after which blanking occurs.
if n is not given, a default of 90 is used.
NOTE: blanker2 need not be 'run'. It will install an event
handler and leave it behind when exiting.
Also, the CLI window it may have been run from can be
closed after installation.
Exit codes
0 Normal exit, everything went fine.
1 CreatePort() failed.
2 CreateStdIO() failed.
3 OpenDevice() on "input.device" failed.
4 Memory Allocation for Interrupt structure failed.
5 Memory Allocation for Blanker structure failed.
6 Memory Allocation for event handler code space failed.
Please report any bugs you may find to me, so that I can try to
fix them.
j.h. joe@sally.utexas.edu
SHAR_EOF
if test 2149 -ne "`wc -c readme`"
then
echo shar: error transmitting readme '(should have been 2149 characters)'
fi
echo shar: extracting blank2.uue '(9606 characters)'
cat << \SHAR_EOF > blank2.uue
From joe@vixen.UUCP Fri Feb 12 23:12:49 1988
Posted-Date: Fri, 12 Feb 88 21:52:23 CST
Received-Date: Fri, 12 Feb 88 23:12:45 CST
Received: by sally.utexas.edu (5.54/5.51)
id AA24042; Fri, 12 Feb 88 23:12:45 CST
Received: by vixen.uucp (3.2/SMI-3.2)
id AA00143; Fri, 12 Feb 88 21:52:23 CST
Date: Fri, 12 Feb 88 21:52:23 CST
From: joe@vixen.uucp (Joe Hitchens)
Message-Id: <8802130352.AA00143@vixen.uucp>
To: joe@sally.UUCP
Subject: blank2.uue
Status: R
begin 644 Blanker2
M #\P # ( 7- IP $ /I %S4[Z!#!(
MYP# 8010CTYU3E4 $CG # D;0 ()FT #' $"H !": #), &9C)2JP $
M("L !+"K AM&C/\ 8 W_"60GD W_& 0JL !"=\ 0 ,( I,WPP 3EU.
M=0R3 F8:0JL !$JK QG##/\@8 W_"60JL #" *8-8,DP %F&D*K
M 1*JP ,9PPS_(& -_PED*K P@"F"T( I@L$Y5_^0,K0 $ "&\L(&T
M#"\H 1.N@+V6$]R"DZZ$PXK0/_L#*T *_^QL""M\ "O_L8 @K?
M X3_[$*G2'H"/$ZZ$[)03RM __Q*K?_\9@I(> !3KH1=%A/+RW__$ZZ%'Y8
M3RM __A*K?_X9A0O+?_\3KH4#%A/2'@ DZZ$4Q83T*G+RW_^$*G2'H!_4ZZ
M%71/[P 02H!G'B\M__A.NA146$\O+?_\3KH3UEA/2'@ TZZ$1983TAY $
M $AX !9.NA3"4$\K0/_T2JW_]&8>+RW_^$ZZ%!Q83R\M__Q.NA.>6$](> $
M3KH0WEA/2'D 0 2'@ &$ZZ%(I03RM _^A*K?_H9BPO+?_X3KH3Y%A/+RW_
M_$ZZ$V983TAX !8O+?_T3KH4GE!/2'@ !4ZZ$)A83R!M_^A"D"!M_^A"J $
M(&W_Z"%M_^P ""!M_^A"J ,2'@ !TAZ 3H@;?_H2&@ $$ZZ!8Q/[P ,0?K^
MB$/Z_>"1R2M(__!(>0 ! O+?_P3KH3_E!/*T#_Y$JM_^1F.B\M__A.NA-8
M6$\O+?_\3KH2VEA/2'@ %B\M__1.NA024$](> 8+RW_Z$ZZ% 103TAX 9.
MN@_^6$\O+?_P+RW_Y$AZ_7I.NA($3^\ #"!M__0A;?_H X@;?_T(6W_Y 2
M(&W_]!%\ #, "2!M__0@+?_HT+P 0(4 "B!M__@Q? ) !P@;?_X(6W_
M] H+RW_^$ZZ$VI83R\M__A.NA&.6$\O+?_X3KH2LEA/+RW__$ZZ$C183TJM
M AO($AZ $9.N@6H6$]R"B M_^Q.N@F>+P!(>@!@3KH%DE!/3EU.=4)L86YK
M97(M3&]A9&5R &EN<'5T+F1E=FEC90!";&%N:V5R " M+2!";&%N:V5R,B M
M+2!B>2!*;V4@2&ET8VAE;G,@+2T@5C$N,C<N.#@@+2T* %-C<F5E;B!";&%N
M:W,@869T97(@)60@<V5C)W,@;V8@;6]U<V4O:V5Y(&EN86-T:79I='DN"@
M3E4 $CG#" D;0 (#!( (&<&#!( "68$4HI@\'H #!( +68&>@%2BF (#!(
M*V8"4HIX & @($I2BA 02(!(P'(*+P @!$ZZ#]@D']2 * *8O # 0$DB
M2,!![( 5"# @@ 9LY*A6<&( 1$@& "( 1,WP0P3EU.=6%P0^R"4D7L@E*U
MR68.,CP $FL(= BPE')__PI3X)6+'@ !"E.@EI(YX" ""X ! $I9Q!+^@ (
M3J[_XF &0J?S7TYS0_H ($ZN_F@I0()>9@PN/ #@ =.KO^48 1.N@ :4$].
M=61O<RYL:6)R87)Y $GY !__DYU3E4 "\*2'D 0 ,"R"3L'\ 8O $ZZ
M$7903RE @F)F%$*G2'D 0 3KH/AE!/+FR"5DYU(&R"8D)H 0@;()B,7P
M 0 0(FR"8C-\ $ "B!L@E8@+()6D*@ !%" *4""9B!L@F8@O$U!3EA"ITZZ
M$4183R1 2JH K&<P+RT #"\M @O"DZZ +1/[P ,*7P !@FH@;()B &B
M $(&R"8@!H@ "F!$2&H 7$ZZ$:!83TAJ %Q.NA$L6$\I0()N(&R";DJH
M "1G$"!L@FXB: D+Q%.N@Y^6$\O+()N+PI.N@)L4$\I;()N@G).N@Y^(&R"
M8B" 3KH.GB!L@F(A0 &9Q9(> /M2'H +$ZZ#GI03R!L@F(A0 ,+RR"<B\L
M@G9.NOK24$]"ITZZ#)Q83R1?3EU.=2H 3E4 $CG## D;0 0(&T "" H *SE
M@"@ ($0@* 0Y8 F0! 32(!(P-"M Q4@"E @GI"IR\L@GI.NA 64$\I0()^
M9@A,WPPP3EU.=1 32(!(P"\ ($M2B"\(+RR"?DZZ 5I/[P ,2'H!4! 32(!(
MP-"L@GXO $ZZ 8Y03R\M PO"B\L@GY.N@%:3^\ #$*L@G8F;()^)$L0$TB
M2, J +"\ (&<@NKP )9QBZO QG$+J\ #6<(NKP *9@12
MBV#,#!, (&T (P,$P B9C)2BR!+4HL0$$B 2, J &<@($I2BA"%NKP B
M9A ,$P B9@12BV &0BK__V "8-)@1"!+4HL0$$B 2, J &<PNKP @9RBZ
MO EG(+J\ #&<8NKP -9Q"ZO IG""!*4HH0A6#"($I2BD(0
M2H5F E.+4JR"=F _SQ"$D*G("R"=E* Y8 O $ZZ#N)03RE @G)F"$*L@G9@
M /[&>@ F;()^8!H@!>6 (&R"<B&+" O"TZZ!=Q83U* U\!2A;JL@G9MX" %
MY8 @;()R0K ( & _HX@ $SO P !" ((B\ #& "$-E7R?_\9P9206 "0AA1
MR?_\3G4P/'__8 0P+P .(&\ !$H89OQ32")O A30!#95\C__&<"0A @+P $
M3G4@;P $( @B;P ($-EF_$YU3E4 $CG#C D;0 (0J=(>@".3KH.ME!/*4""
MFF8(3-\,<$Y=3G4@;0 ,(F@ )"\I 1.N@[R6$\H &=22'H ;2!$+R@ -DZZ
M#L103R9 2H!G-$AX ^TO"TZZ"^!03RP 9R0@!N6 *@ @125H @ I"5& )Q(
M> /M2'H .$ZZ"[Q03R5 * O!$ZZ#I!83R\L@II.N@ON6$]"K(*:8(!I8V]N
M+FQI8G)A<GD 5TE.1$]7 "H 3E4 $AM PO+0 (2'H$KDZZ )!/[P ,3EU.
M=4Y5 !(YP@@)&T $ RM ! 49@@@;0 (*!!@%$JM QO""!M @H$& &
M(&T ""@00JT %$JM QL$D2M Q*A&P*1(0K? $ %"(M P@!$ZZ ])!
M[( "4XH4L @ (BT #" $3KH#RB@ 9MY*K0 49P93BA2\ "T@"DS?!!!.74YU
M3E7_%$CG"# D;0 ()FT #$*M__@K;0 0__P@2U*+$!!(@$C * !G ,PN+P
M E9@ #"D(M_R(K? '_]"M\ (/_P*WP "<0_^P@2U*+$!!(@$C
M* "PO "UF$$*M__0@2U*+$!!(@$C * "XO #!F%"M\ ,/_P($M2
MBQ 02(!(P"@ N+P J9AH@;?_\6*W__"M0_^@@2U*+$!!(@$C * !@-$*M
M_^A@(G(*("W_Z$ZZ"<#0A)"\ ,"M _^@@2U*+$!!(@$C * !![( 5"#
M D@ 9M*XO "YF8B!+4HL0$$B 2, H +"\ *F8:(&W__%BM__PK4/_L
M($M2BQ 02(!(P"@ 8#1"K?_L8")R"B M_^Q.N@E6T(20O # K0/_L($M2
MBQ 02(!(P"@ 0>R %0@P )( &;2*WP $_^2XO &QF%B!+4HL0$$B
M2, H "M\ !/_D8!2XO &AF#"!+4HL0$$B 2, H " $8'XK? C_
MX& <*WP *_^!@$BM\ $/_@8 @K?/____;_X"\M_^1(;?\B+RW_X"\M
M__Q.NOVT3^\ $"M _]P@+?_DT:W__&!:(&W__%BM__PK4/_<+RW_W$ZZ AQ8
M3RM _^1@2B!M__Q8K?_\*!!![?\A*TC_W!"$8"B0O &-GXE. 9Y20O
M MG /]N68!GM%6 9P#_;E> 9P#_<F#,0>W_(I'M_]PK2/_D("W_Y+"M_^QO
M!BMM_^S_Y$JM__1G<"!M_]P,$ M9PHB;?_<#!$ *V8T#*T P__!F*E.M
M_^@@;?_<4JW_W! 02(!(P"\ 3I)83["\_____V8*</],WPP03EU.=6 8+RW_
M\$Z26$^PO/____]F!'#_8.)2K?_X("W_Z%.M_^BPK?_D;MI"K?_@8"0@;?_<
M4JW_W! 02(!(P"\ 3I)83["\_____V8$</]@JE*M_^ @;?_<2A!G"B M_^"P
MK?_L;<H@+?_@T:W_^$JM__1F*F :2'@ ($Z26$^PO/____]F!G#_8 #_<%*M
M__@@+?_H4ZW_Z+"M_^1NV& 8+P1.DEA/L+S_____9@9P_V _TA2K?_X8 #\
MQ" M__A@ /\X2.=( $*$2H!J!$2 4D1*@6H&1($*1 !83Y*1&<"1(!,WP 2
M2H!.=4CG2 !"A$J :@1$@%)$2H%J D2!81H@ 6#8+P%A$B !(A]*@$YU+P%A
M!B(?2H!.=4CG, !(04I!9B!(038!- !"0$A @,,B $A ,@*"PS !0D%(04S?
M Q.=4A!)@$B $)!2$%(0$) = _0@-.!MH%B!)*#4D!1RO_R3-\ #$YU(&\
M!" (2AAF_)' ( A3@$YU3E4 $AL@*PO+0 (3KH "%!/3EU.=4Y5 O!"@M
M @O+0 ,+P1.N@ T4$^XO IF)B!M P0* ,2(!(P @ =G%$AX__\O
M+0 ,3KH _E!/*!].74YU8/A.50 +PHD;0 ,(%*QZ@ $91H@+0 (P+P #_
M+P O"DZZ -!03R1?3EU.=2!24I(0+0 +$(!(@$C P+P #_8.1.50 +PI!
M[("6)$@@2M7\ %B\(81!83T'L@DZUR&7J)%].74YU3E4 $CG"" D;0 (
M> @"F8*</],WP003EU.=4HJ QG5 @J ( #&<,2'C__R\*85903R@ $"H
M#4B 2, O $ZZ!0A83XB ""H 0 ,9PHO*@ (3KH"/%A/""H !0 ,9Q0O*@ 2
M3KH"V%A/+RH $DZZ B!83T*20JH !$*J A"*@ ,( 1@C$Y5__Y(YP@@)&T
M"$'Z_T(I2(*"""H ! ,9PIP_TS?!!!.74YU""H @ ,9S(H$IBJ @O!"\J
M @0*@ -2(!(P"\ 3KH"ED_O RPA&<0".H ! ,0I)"J@ $</]@O@RM____
M_P ,9A (J@ " Q"DD*J 1P &"D2JH "&8(+PI.N@"D6$\,:@ ! !!F,!MM
M ___TAX %(;?__$"H #4B 2, O $ZZ C)/[P ,L+P !9I@@+0 ,8 #_
M8"2J @P*@ 02,#0J@ ()4 ! CJ ( #"!24I(0+0 /$(!(@$C P+P #_
M8 #_,$Y5 O"D'L@)8D2$HJ QG&-7\ %D'L@DZUR&4(< D7TY=3G5@
MXD*20JH !$*J @@"F#J3E7__"\*)&T "$AX! !.N@#"6$\K0/_\9A@U? !
M ! @"M"\ #B5 @D7TY=3G4U? 0 ! (Z@ ! PE;?_\ @0*@ -2(!(
MP"\ 3KH WEA/2H!G!@ J ( #&#,3E4 $CG # D;()28!0F4B J 10@"\
M+PI.N@884$\D2R *9NA"K()23-\, $Y=3G5.50 +PI!^O_&*4B"AD*G("T
M"%" +P!.N@6H4$\D0$J 9@AP "1?3EU.=22L@E(E;0 ( 0I2H)2( I0@&#F
M3E4 "\M AAMEA/3EU.=4Y5 !(YP PE\LD;()28 X@;0 (48BQRF<2)DHD
M4B *9NYP_TS?# !.74YU( MG!":28 0I4H)2("H !%" +P O"DZZ!6Y03W
M8-A.50 +PIR!B M A.N@*T)$#5[()B2JT "&T2,"R"3DC (BT "+* ; 1*
MDF80*7P "@HIP_R1?3EU.=7(&("T "$ZZ GP@;()B+S ( $ZZ LA83TJ
M9P1P 6 "< !@UDY5 O+0 (3KH"DEA/2H!F#DZZ IPI0(**</].74YU< !@
M^$Y5 !(YPP@*"T "$ZZ '9R!B $3KH")B1 U>R"8DJ$;0XP+().2,"X@&P$
M2I)F$BE\ H**</],WP0P3EU.=3 J 3 ? #9@PI? 6"BG#_8.(O
M+0 0+RT #"\23KH"4D_O PJ +"\_____V8,3KH"%BE @HIP_V"Z( 5@MDY5
M__Q(>! 0J=.N@3(4$\K0/_\" #&<22JR":F8(("W__$Y=3G5.N@ &< !@
M]$Y5 !(> $2'H 'DZZ >PO $ZZ >Y/[P ,2'@ 4ZZ Q83TY=3G5>0PH
M3E4 $JL@H)G!B!L@H).D"\M A.N@ (6$].74YU3E7__"\$*VT "/_\2JR"
M8F<L> !@"B\$3KH SEA/4H0P+().2,"X@&WL,"R"3L'\ 8O "\L@F).N@.H
M4$]*K(*&9P8@;(*&3I!*K(*.9PHO+(*.3KH!F%A/2JR"DF<*+RR"DDZZ 8A8
M3TJL@I9G"B\L@I9.N@%X6$\L> $""X ! $I9Q0O#4OZ I.KO_B*E]@!D*G
M\U].<TJL@FYF*DJL@GYG(B\L@GHO+()^3KH#,E!/("R"=E* Y8 O "\L@G).
MN@,>4$]@#DZZ PHO+()N3KH#>EA/("W__"YL@E9.=2@?3EU.=4Y5 !(YPX@
M*"T "'(&( 1.N@!$)$#5[()B2H1M#C L@DY(P+B ; 1*DF82*7P "@HIP
M_TS?!'!.74YU,"H !,!\@ !F""\23KH +EA/0I)P &#@2.=P #0!Q, F 4A#
MQL!(0T)#U(-(0,#!2$!"0-""3-\ #DYU(B\ !"QL@EY.[O_<(B\ !"QL@EY.
M[O^"(B\ !"QL@EY.[O^X+&R"7D[N_\HL;()>3N[_?"(O 0L;()>3N[_*$SO
M 8 !"QL@EY.[O_B+&R"7D[N_\1,[P . 0L;()>3N[_T$CG 01,[R" PL
M;():3J[_E$S?((!.=2)O 0L;():3N[^/D[Z (B;P $+&R"6D[N_F),[P,
M 0@+P ,+&R"6D[N_9!.50 2.<(($AX__].N@#06$\H +"\_____V8*< !,
MWP003EU.=4AY $ 4AX ").N@%@4$\D0$J 9@PO!$ZZ :983W 8-8E;0 (
M H5;0 / D5? $ A"*@ .%40 #T*G3KH!5%A/)4 $$JM AG"B\*3KH
M6EA/8 I(:@ 43KH!>EA/( I@DDY5 O"B1M A*J@ *9P@O"DZZ 9983Q5\
M /\ ""5\_____P 4< 0*@ /+P!.N@$J6$](> B+PI.N@$*4$\D7TY=3G4B
M;P $+&R"6D[N_IX@+P $+&R"6D[N_K9.50 2'@ ,"\M A.N@ :4$].74YU
M3E4 "\M A.N@!,6$].74YU3E4 "\*2JT "&8(< D7TY=3G5(>0 ! $O
M+0 ,3KH 8%!/)$!*@&8$< !@X!5\ 4 "#5M X $B5M @ #B *8,I.50
M+PHD;0 (( IF!B1?3EU.=15\ /\ ""5\_____P 4)7S_____ !AP # J !(O
M "\*3KH 1E!/8-).^@ "3.\ P $+&R"6D[N_SI(YP, (F\ #"QL@EI.KOXX
M3-\ P$YU3OH B)O 0L;():3N[^VBQL@EI.[O]\3OH B)O 0@+P (+&R"
M6D[N_RX@+P $+&R"6D[N_K @;P $+&R"6D[N_HP@;P $((A8D$*H 0A2 (
M3G4@;P $3.\" 0 ((B\ $"QL@EI.[OY$+&R"6B)O 0@+P (3N[]V")O 0L
M;():3N[^F")O 0L;():3N[^ADSO , !"QL@EI.[O[.(&\ !"QL@EI.[OZ
M3.\# $+&R"FD[N_Z @;P $+&R"FD[N_Z8@;P $+&R"FD[N_[( ^P
M ! 0 !*8 #\@ ^H "4,#$R,S0U-C<X.6%B8V1E9@
M " @(" @(" @(# P,# P(" @(" @(" @(" @(" @(" @D$! 0$! 0$! 0$!
M0$! 0 P,# P,# P,# Q 0$! 0$! "0D)"0D) 0$! 0$! 0$! 0$! 0$! 0$!
M 0% 0$! 0$ *"@H*"@H" @(" @(" @(" @(" @(" @(" D! 0$ @
M $ 0 ! 0 $
M 0( !
M
M
M
M
M
M
M
M !0 _( /K
% 0 _(
end
SHAR_EOF
if test 9606 -ne "`wc -c blank2.uue`"
then
echo shar: error transmitting blank2.uue '(should have been 9606 characters)'
fi
echo shar: extracting blank2.info.uue '(1124 characters)'
cat << \SHAR_EOF > blank2.info.uue
begin 644 Blanker2.info
MXQ 0 #$ %0 & , 0" ER @6T
M W@ ( " Q !4 @ !
M/@ # #_______^ /_______X ________@ #^ #^ /W_____
MWX _?__^/_?@ #]___@_]^ /W__X#_WX _?_^,/_?@ #]__CP_]^ /W_
MX #_WX _?^/\/_?@ #]^ / /]^ /[_____OX ________@ #_ZO____^
M /_______X ______]5@ "JJJJJJJJ
M #_______@ /______^ _______X #X /@ /@ !P ^ ^
M ? #X #X '\ /@ /@ !SP ^ ^ </ #X #X '_\ /@ /@!P#P ^
M ^!_P_P#X #\ ?@ /______^ ]5?____X
M "^ !55555554 '_______P #$ %0 " $_4 ,
M /_______X ________@ #_______^ /X /X _ ?@ #\
M !^ /P 'X _ ?@ #\ !^ /P 'X _ ?
M@ #\ !^ /P 'X _@ _@ #_______^ /_J_____X ____
M____@ #______U6 *JJJJJJJH
M/______^ _______X #_______@ /______^ _______X #______
M_@ /______^ _______X #_______@ /______^ _______X #__
M_____@ /______^ _______X #U5_____@ +X
9 %55555550 ?_______ /__
end
SHAR_EOF
if test 1124 -ne "`wc -c blank2.info.uue`"
then
echo shar: error transmitting blank2.info.uue '(should have been 1124 characters)'
fi
# End of shell archive
exit 0