[comp.sys.amiga] NextScreen: a handy hot-key utility

ofer@bach.Berkeley.EDU (Jonathan Dubman) (08/05/88)

In Message <7514@cup.portal.com>, Ian_Matthew_Smith@cup.portal.com writes:

>      Several weeks ago I was looking through my PD collection and I noticed
>the top screen and push
>it to the back.  It worked with any screen so when I loaded up several
>pictures on different screens pressing L-A-M would cycle through all of the
>screens.  But when I re booted the feature was gone.
>      If anyone knows the name of a program that would do this please tell
>me. Also this seems like a nice little feature to put in 1.3.

No need to wait for 1.3 (which I wouldn't recommend doing!)
Here's my NextScreen 1.0:
	L-A-N   brings Workbench to the front, as usual
	L-A-M   brings the NEXT SCREEN to the front, so you can cycle through!
	Shift-L-A-M  gets rid of everything (well, not *everything*!)

This was written in a fit of frustration using a Mandelbrot program that
I wanted to run in the background but which opened a screen with no title
bar.

All you gotta do is
	run NextScreen		(I should really make it detach etc...)

I would greatly appreciate comments, destructive criticism, etc...

---cut everything from here on up---
begin 644 NextScreen
M```#\P`````````$``````````,````"````.P```',```'/```#Z0````).Y
M^0```````````^P````!`````P````(````````#\@```^H````["@!.97ATT
M<V-R965N(#$N,"!B>2!*;VYA=&AA;B!$=6)M86X*`%5S92!,969T06UI9V$MB
M3B!T;R!B<FEN9R!7;W)K8F5N8V@@=&\@=&AE(&9R;VYT+"!A<R!U<W5A;`H`G
M57-E($QE9G1!;6EG82U-('1O(&)R:6YG('1H92!N97AT('-C<F5E;B!T;R!T=
M:&4@9G)O;G0*`%5S92!3:&EF="U,969T06UI9V$M32!T;R!E>&ET(&%N9"!DP
M96EN<W1A;&P@:&%N9&QE<@H`:6YT=6ET:6]N+FQI8G)A<GD`:6YP=70N9&5V'
M:6-E``````/R```#ZP```',```/R```#Z0```<\L`"H(1_D`````0ILFSRQX,
M``0FSD/Z`6].KOYH)L`J0"AN`11*K`"L9P``I"!L`*S1R-'((&@`$-'(T<A%H
MZP",0^L`#'0!<``0&"+*8`(4V%'(__Q"&B`&($42&%.`;R8,`0`@;_12@@Q"W
M`"!G```8(LI@"A(84X`,`0`@;P04P6#R0AI@U$(:0ID@`DAY````'"\`+$U.U
MKO_*)L!.KO_$)L`FP$ZY```!I'``8`0@+P`$1_D`````+FL`!"\`+'@`!")K\
M``Q.KOYB(!].=4'L`%Q.KOZ`0>P`7$ZN_HPJ0$/Z`*].KOYH+$!P`'(`)#P`B
M``%`=D21R$/Z`"25RD?Z`$9.KOZD(DXL>``$3J[^8E(N`2<B34ZN_H9P$TYU*
M``$!```1``8````````!6@```3(``0$``!$`$@````````%O```````!`0``^
M!@`#`````````8(`````5&AI<R!P<F]G<F%M(&UU<W0@8F4`=7-E9"!F<F]M1
M('1H92!#3$DN`$]K`&1O<RYL:6)R87)Y`&EN='5I=&EO;BYL:6)R87)Y``!(X
M>0````!.N0``!"18CTAY`````DZY```$)%B/2'D````E3KD```0D6(](>0``E
M`&!.N0``!"18CTAY````ETZY```$)%B/0J=(>0```,Q.N0``!Q!0CR/````![
MG$J`9@I"ITZY````KEB/<``O`"\`3KD```184(\CP````:`O`$ZY```%/%B/-
M(\````&L($`Q?``)`!P@>0```:PA?````;``*)'((\@```&^(_P```/$```!H
MPA/\``(```&X$_P`,P```;DO""\Y```!K"\(2'D```#>3KD```;(3^\`$"/`P
M```!QDJ`9PI"ITZY````KEB/0J=.N0``!CA8CR/````!I'#_+P!.N0``!GA8?
MCR/````!J"\Y```!K$ZY```&_%B/(#D```&H<@'AH2\!3KD```9,6(\@>0``@
M`:PQ?``*`!PO.0```:Q.N0``!OQ8CR\Y```!H$ZY```$]%B/+SD```&H3KD`,
M``:,6(\O.0```:Q.N0``!NA8CR\Y```!K$ZY```%5%B/0J=.N0```*Y8CTYU.
M3E;_^"!N``Q#[O_X<`<2V%'(__P@;@`($"@`!%,`9F`P*``&#$``-V96,"@`R
M"`@```9G3`@```!F!@@```%G)"`Y```!J'(!X:$O`2\Y```!I$ZY```&8%"/1
M(&X`""`03EY.=2!Y```!G"\H`#Q.N0``!RA8CR!N``@@$$Y>3G4@+@`(3EY.@
M=0``2.<`P$ZY```#.E"/3G4``$CG`#HH;P`4(&\`&")O`!Q%^@`Z3^__="9/1
M+'D````$3J[]]G#_2AM7R/_\1H!G$B\`2&\`!$A43KD```7L3^\`#$_O`(Q,C
MWUP`3G46P$YU+P(D+P`(2&\`#"\"+SD````43KD```/43^\`#"0?3G4@;P`$4
M((A8D$*H``0A2``(3G4``$CG/R`H+P`@%B\`)R\\_____TZY```&>"H`+`5T>
M_[2%6(]F!G``8```;B\\``$``4AX`").N0``!@@D0,^*2H?/BE"/9@XO!DZYC
M```&C'``6(]@0B5$``H50P`)%7P`!``(0BH`#A5&``]"ITZY```&."5``!!*-
MA%B/9PPO"DZY```&H%B/8`Q(:@`43KD```1$6(\@"DS?!/Q.=4CG("`D;P`,Y
M2JH`"F<*+PI.N0``!K18CQ5\`/\`"'3_)4(`%'0`%"H`#R\"3KD```:,2'@`A
M(B\*3KD```8@3^\`#$S?!`1.=2\")"\`"$AX`#`O`DZY```%:%"/)!].=2\"_
M)"\`""\"3KD```6P6(\D'TYU2.<X`"0O`!`F+P`42H)F!'``8"XO/``!``$OX
M`TZY```&""!`R8A*A,F(4(]F!'``8!`1?``%``@Q0P`2(4(`#B`(3-\`'$YU4
M2.<P`"!O``S'B$J#QXAG```F$7P`_P`(=/\A0@`4=/\A0@`8=``T*``2+P(O@
M"$ZY```&(%"/3-\`#$YU2.<P`BQY````#$SO``X`$$ZN_]!,WT`,3G4``"\.[
M+'D````(3.\``P`(3J[_.BQ?3G4``"\.+'D````((F\`""`O``Q.KO\N+%].6
M=2\.+'D````((F\`"$ZN_MHL7TYU+PXL>0````@@+P`(3J[^PBQ?3G4O#BQY'
M````"")O``@@+P`,3J[^O"Q?3G4O#BQY````""`O``A.KOZV+%].=2\.+'D`A
M```(("\`"$ZN_K`L7TYU+PXL>0````@B;P`(3J[^GBQ?3G4O#BQY````"")O[
M``A.KOZ8+%].=2\.+'D````((&\`"$SO`@$`#"(O`!1.KOY$+%].=0``+PXL-
M>0````@B;P`(3J[^/BQ?3G4O#BQY````"")O``A.KOXX+%].=2\.+'D````(-
M(F\`""`O``Q.KOW8+%].=2\.+'D```&<(&\`"$ZN_PHL7TYU```#[`````<`R
M```!```"=@```>X```'>```!T````<(```&T```!I@```"L````"```'+```7
M!Q0```<````&[```!LP```:X```&I```!I````9\```&9```!E````8\```&N
M)```!@P```7R```$,@```Z````.(```#?````R(```,4```#!@```O@```+J[
M```"W@```LH```*\```"M@```J0```*&```";@```F8```)>```"5@```DP`N
M``)"```"/````BX```(>```!_````+0```".````!@```"T````#```%A@``2
M!>````5*```%7@``!(X```1L```$Q@``!2(```2B```$V```!.8```4&```%&
M+@``!#@```0.```#R@```ZH```..```#*````QH```,,```"_@```M8```+PH
M```"P@```JX```*<```"?````E(```(F```"%@```S(```*2```""````?0`L
M``'D```!U@```<@```&Z```!K````*8```%2```!/@```2X```$J````````_
M`_`````$7U-C<F5E;E1O0F%C:P``````!R@````#7T]P96Y,:6)R87)Y```'I
M$`````)?1&])3P``````!OP````#7T-L;W-E1&5V:6-E```&Z`````-?3W!E:
M;D1E=FEC90````;(`````E]296U0;W)T```&M`````)?061D4&]R=```!J``E
M```#7T9R9653:6=N86P````&C`````-?06QL;V-3:6=N86P```9X`````E]3Q
M:6=N86P````&8`````)?5V%I=```````!DP````#7T9I;F1487-K```````&U
M.`````)?1G)E94UE;0``!B`````#7T%L;&]C365M```````&"`````)?5W)IM
M=&4`````!>P````!+DPY````!>8````!+DPX````!6P````!+DPW````!6@`L
M```!+DPV````!70````!+DPU````!7P````!+DPT````!9H````!+DPS````7
M!98````!+DPR````!7@````!+DPQ````!:H````!+DPQ-```!;0````!+DPQE
M,P``!;`````!+DPQ,@``!;@````!+DPQ,0``!<(````#7T1E;&5T945X=$E/E
M```%L`````-?0W)E871E17AT24\```5H`````2Y,.`````56`````2Y,-P``A
M``54`````2Y,-@````5:`````2Y,-0````5D`````2Y,-`````4^`````2Y,O
M,P````4\`````2Y,,@````5"`````2Y,,0````50`````U]$96QE=&53=&1)2
M3P``!50````#7T-R96%T95-T9$E/```%/`````$N3#D````$9`````$N3#@`Q
M```$@@````$N3#<````$K`````$N3#8````$X`````$N3#4````$U`````$NT
M3#0````$[`````$N3#,````$G@````$N3#(````$?`````$N3#$````$[@``+
M``$N3#$W```$^`````$N3#$V```$]`````$N3#$U```$_`````$N3#$T```%_
M`@````$N3#$S```%#`````$N3#$R```%-@````$N3#$Q```$7`````$N3#$PD
M```$6`````-?1&5L971E4&]R=`````3T`````U]#<F5A=&50;W)T````!%@`E
M```"7TYE=TQI<W0```1$`````E]P<FEN=&8````$)`````$N3#0````$)@``D
M``$N3#,````$)`````$N3#(````$*@````$N3#$````$0`````)S8U]P=70`Q
M````!"`````#<W1U9F9#:&%R```````$(`````)P<U]E;7!T>0``!!8````"`
M7U]D;W!R;G0```/4`````G!S7W-I>F4````#^@````-P<U]C;VUM;VX`````V
+``0$`````````_+41
``
end
size 3656