Path: utzoo!mnetor!uunet!mcvax!unido!rmi!kkaempf
From: kkaempf@rmi.UUCP (Klaus Kaempf)
Newsgroups: comp.sys.amiga
Subject: Silence the AmigaDOS (WindowPtr)
Message-ID: <813@rmi.UUCP>
Date: 2 Dec 87 14:31:24 GMT
Reply-To: kkaempf@rmi.UUCP (Klaus Kaempf)
Organization: RMI Net, Aachen, W.Germany
Lines: 64


This message is being forwarded by me for a friend who has
no access to the UseNet (yet!).
Feel free to send replies to me.

Klaus Kaempf
kkaempf@rmi.UUCP

- - - - - - - - -

Several questions concerning the WindowPtr field within the
process structure led me to believe this one could be
useful.

"DOSErr" lets you set your current CLI's WindowPtr to (0) or
(-1). "SHOW" will show you the current setting, "QUIET" and
"REQUESTER" are self-explanatory. All keywords may be
abbreviated by just giving the first letter. If you do not
give any parameters, it will change between "QUIET" and
"REQUESTER".

DOSErr QUIET
If EXISTS DF3:
AddBuffers DF3: 16
EndIf
DOSErr REQUESTER

It is especially useful in a startup-script to test for the
existence of volumes, drives etc. without this funny "insert
volume DF3: in any drive". 8-)

DOSErr will not change anything, if a value other than (0)
or (-1) has been written to WindowPtr before.

!ralph

begin 777 DOSErr
M```#\P`````````"``````````$```!/````CP```^D```!/*&H!9'`,3I4D,
M`2(\````E4GZ_^XH;/_\+PPO`MG,VL&@`Y8=8AKZ&;1(B,&@`*$5P+
M#$Z52H%G``!L8.@B'RA%<`Q.E4J!9UXH:@(8<`Q.E>6!)D$O"V<,2>H"&'`/#
M*-M1R/_\2?H`1"5,``@H:@`$<"!R`$Z5<``N`"(?9PXF04GJ`AAP#R;<4)`%'[`%T(@ODB2`\````E"AJ`3A.E4J!9P`!+
M.B(1Y8E*L!@$9P``(DJP&`AG```:1^P!F"(+Y(D@/````)0H:@$D3I5@``$*P
M(#P```"4*&H`.$Z5=`1.K0`2(T$`@"0!Y8HC<"A<`(0F$>6+2K`X`&<``(!'\
M[`&\(@ODB2`\````E"AJ`21.E7+_LJD`A&8``!I'[`',(@ODB2`\````E"AJY
M`21.E6```#I*J0"$9@``&D?L`=0B"^2)(#P```"4*&H!)$Z58```&B0I`(1'7
M[`'@(@ODB2`\````E"AJ`2A.E2`\````E"AJ`1!.E6```&!R_[*I`(1G```*L
M2JD`A&8``#HB$>6)2K`8!&<```AR_V```!HB$>6)2K`8"&<```AR`&````@B.
M*0"$1H$D*0"`Y8HA@2A<8```%D?L`>@B"^2)(#P```"4*&H!)$Z58```%D?LU
M`@`B"^2)(#P```"4*&H!)$Z53M8@4SU32$]7+U,L43U154E%5"]3+%(]4D51D
M54535$52+U,````B57-E($5)5$A%4B`B<75I970B($]2(")R97%U97-T97(B;
M"@`,5VEN9&]W4'1R(#T@````!5%52454```)4D5154535$52```$)"58-@``R
M`!=#86XG="!C:&%N9V4@5VEN9&]W4'1R"B55