[comp.binaries.atari.st] v10i004: oatbran -- Screen saver, like 8-bits' attract mode

koreth@panarthea.ebay.sun.com (Steven Grimm) (02/23/90)

Submitted-by: dmb@tis.com (David M. Baggett)
Posting-number: Volume 10, Issue 4
Archive-name: oatbran


Here's a screen saver which uses < 3K of RAM installed and won't hurt
your monitor.  It cycles through low-intensity palettes after ~8 minutes
of idle time a la the Atari 800 "attract mode".
 
Touching the keyboard, mouse, or joystick will restore a "saved"
screen.  MIDI events are ignored.

Use it in good health!

Dave Baggett
dmb@TIS.COM

----------------------------- >8 ----------------------------------------

begin 666 oatbran.arc
M&@A/051"4D%.+D1/0P#_> $  #\4.!?&@MH!   ,#10$#)@@P1 V8>;,23,&
M1! Z8>2D 8&CA9@T=$!,H9.'31F-8^24*>-&8Q@[9>00A$0 Q!V,:%8.  'I
MP),P&87(">-FH *: Z24:3-43$H0=-!\///F#1D0;]@\)1,FSQP6+I66S/.F
M#@@R:<BX.9'129$B1$"$ 3$GY,B2<TZF#&AT3)@Z<SZ^<?/Q3D(08NJD89,Q
MC1LZ;Y J!3'F31LX=>BD_ $"Q)4R;-A@3?HF[]>J<]2*!,&4+XN /)^Z>7,'
M!$:V(]N$OE/F!$K ;Z&BE".G3DDQ>4"PP4C'(P@1<=+@$:'8\)DT9>:X\ DT
MB1D07+VRYON4IT.($BE:Q(@U^XG1I=VL9?/F=M(TH=N*),E6KAP7( (JP9L1
M<N'"6W4EAT-54/$$"&9$149*^(&01$9[L1$<7M&!,,,26 66T1-(*/8146V\
M(5%T(?CD$Q%R@2!$&&><408== 2$0D1P\/2B#E^U(0805"0QA0M#/-%$"CX!
M&@A/051"4D%.+E!21P#_H@4  #\4<1?]Y!P'   ,8#0  &!   !( TP=',#G
MH ,53U"\ 4!@!+.!!E"98 $ @356 !B,&(:1U48 $#X"H# 2(ZR3&%1R:$F0
M%DT#N$:P \"1(*\@.P%!P( $T \ +Q XR34P@!0NCTSDP(C+Q! B@U02L,1K
MH$$2#0G:(*'@S$ *)"2H.4MM$*VN  ( 8#,0 0D>30'0&M1FH(87> D*^($W
M@9,@4 G_RT88 )/#U!:Y$$*)T0L!+Q@(.=-8R>%O_!8R6-H4U0\@%)5\:OPX
MR(AO&($=!C-0QNO83IK0!F#B-D'93G9K&'$MM@M'+)XH,07#14<1SA4X$<+B
MRZ]\5-WX!8S10F/#B!\I_L?Z\(NIOYW4(1T7V@L^9)BD$3,'A)T8+F0,=&)E
M())S&$!@@G8(V. < S@,\,, +RP  P%4  $,'__X<Q1[!(!"Q1,O ("A$T^\
M X "(P"#D3\P## #20 <(  2P$##%$'^@ "$$! P\0T"&#CAA7K\#70>1KP,
M21 +/Z!G@ IA0!#BB)N1AA T/@+9'U(,!C8 *8V9(.4 \'#Q!'L#\,,=07Y\
M]R4V8IYIP!1J,H40FQP&9H /<2Y$IQ!#V-*0%FQ T%@)7\*SH11#@*$."$JB
M DU7"&%0(D;$,(J1HY .,).)!"&S&0AY4 H"!)  ,&-&H&*$##2ERHB1#1TV
M%L.:4#QAP@=5KG?E"P,H$2I!])Q!A*\8P7"&"GSZB1(;(J0X#A P/CK0 038
MZ"RT,9ZJ@PA R% JHF!@(\2O!L @Q*DRC(L1/5*@R\",< ""D0QC>,$=0O 8
M:8 ,[!6@0ZU* &+&C7TV! $;.%P;+5P&,&.C%U H'"/##@,! P03JBC# .,$
M@40PTF@+0A P  *N,+?F^NY \<YKACO)&LR&#!*[2I .UG*,K;0M$L"MMP#4
M3+&UD8"+S RAR440#&"H,@(^ ,"!$3LAA ;  ";"H5X(V!&TD]9U_/?//^P)
M((F.8^O+CGI)=1@$/J%!  $"TYHU(M)QK0O"!R!\H2\\5@[4F B%VC@I0?:,
M@ X (& $3ZJ(AQ#6 -8PGFN0  Q>.!"'&Z!/".3"8_F/NOIW#@0<#-@1"MHQ
M8"!**BR1XA1#* '$&018P(T9](#0@(XX*$4Z"!-5BP LI]+2A@(\R_4+,&X0
M  ?9=8R #%5" *(>#!T2 *,(Y.("32(=AH$,%H_8?H8 DR0#@F%U@-"]&@(0
M 8@('2*@!@)$!*) A_(B0!@&X@@ES*]^VHO? >V'OX[LKW__ T  P^ $ U*$
M?O93C_PNB, &ZJ]^@: @" )@00)@,($;]%G^PH ##7;/@TUR(45@"((1JH<$
M0Z!! (@!#!,$  E#, 8PD""A8$!C$$04 A"@(0@32*<.2@B$&1P "*N!@ ?R
M0H@(/%0'',(B$&*0P!D0L,7L.5$]< B $ )QQCK((E,!,(,!UMA&6,!E;&* 
M """D<1 Z$>)1&SC&P>"1Q&0  !"$ (2A$"(8 AA$#9X40X!T$@1"$ ('@M"
M]F @@".VD0YJ'(0L $$& U!#$-((A!KL,4HQ$, 0@BA5(,21"'$HP@SRV"((
M!M!&)[R!#B H@QO>4(<SH $$;2A#&]X@ASPT0 $ F (=PC"&-1#/#F60@QG8
M\(8[//,@$E#:/P0!!%_> 01W2 ,=COF$, !3"'((@QM"\,UQ@8 (8< F"(00
MAC.<H0QT "8D%( ",K1!#$"@0A*FX((A/*$)*7CF-X? AC#,80YI&,/(IBF'
M-(  !RT0@SI!(,T\L*$,)!V#',H@3)+F,YO?A$0!$.  A!@  1)   54  ,)
M,"!2"L   FB@  4@  $6,( !'  !HQK J%"E  ,88  &'/6F#*  4AW@  ,@
A1 %=U0 $*( !"S"UJ4]U@ (XH("Y(4"I6KV3!2   !H 
 
end