kkaempf@rmi.UUCP (Klaus Kaempf) (12/02/87)
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,V<P@#&<4("P`!.6`LK0(`&P$(C0(`"A4]
M8.0L`0:!````,I'(*&H`='`,3I5*@6<``.`&@0```#(J*@!P)$'5RM7*+@$@I
M2B#&*$;9Q]G,V<P@/$=,``,@P%2`L<QO^)'(("\`#$/O`!"3P"-\_____P`$Z
M(@D$@````*#0@2-```CD@25!`#`N'RP'Y8;>L&@`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<C_S
M_"(*Y($$@0```#(H:@!X<`Q.E2`'3G5*GTJ?</].=2`!8,H``````_(```/I'
M````CP```(]R!-*)Y(DB@78>)`%'[`%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<V%G93H@1$]317)R(%M32$]7A
H?%%52454?%)%455%4U1%4ET*`````````````0````0```!.```#\EM3=
``
end
Ralph Babel | sys64824
Falkenweg 3 | (!#X3F0001)()
D-6204 Taunusstein | (**((void (**)(void))0xfc0004))();