[comp.sys.atari.st] Disk Param for the Sac/Spectre

bam@sbc2.SGI.COM (Brian A. McClendon) (12/15/88)

This is the program that saves all of the Mac control panel variables 
to disk.  It is an INIT resource and requires system 3.2+ to work (for
unknown reasons).  Put it in your system folder and reboot, nothing else
is required.  It was written by Dan Webb of Madison, AL (who has a 
Mac with the non-volatile RAM broken) and has been tested for about a
year on my system (Sac with 5.3/4.0) without any problems.

table
 !"#$%&'()*+,-./0123456789:;<=>?
@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_
begin 644 H:\diskpram.pit
M  QD:7-K<&%R;2YP:70  0  _XH 4! R !WDX   __\ ;@", 'T Z !N (P a
M?0#H &X C !] .@ '/<" !SX# !0250@4$E4( $  $  0 !"     !(V    a
M )_$I52?Q*54                                      !036%G"D1Ia
M<VL@4&%R86U&:6QE"@  "?H )\O(  #,$   "<X '  G,_0       "@(P "a
M3#P  1H< "<L<@ > $$  $E.251$4')M(0           !%00^;L?YU]WH,Ba
MC@   0   !!7   /5P   /D@4R\H !PO T(7J-QA"B'8"C0AT HX3G593S\\a
M !&IN I$:7-K(%!A<F%M( (   !)3DE41%!R;2   $  @&$Z  !)3DE41%!Ra
M;2   $  @&$Z                     $/F['\        14  4+PL_ :ECa
M3G593ZC8(%,A7P <3G4@:  <H"-.=3\ , +B2$A!LD!O"$A!4D$P'TYU2$%@a
M^"A#)A1%U")*80#^CB!*80#]KC\"2$(T//_H. !G!$A"8 )(0R\*+P*HJ4'La
M  @@E"%L  0 !" \_X   $I$9P)(0"\(+P"HJ2!3(&@   0X8 X  $-/1$4 a
M@        $'Z_^XAR G.8  #'E'!8 )0P4Y6_\Y![O_.(6X "  @,6X $  8a
M(FX #"%1 "1":  L0J@ +DH!9@2@ F "H ,]0  2(FX #"*H "A.7B)?W_P a
M   *3M%.5O_ 0>[_P"%N !  $C%N !0 %D)H !R@!SU  !8B;@ ,,J@ %B Ha
M ##@@.* P.@ /N. X8 B;@ ((H!.7B)?W_P    .3M%.5O_ 0>[_P"%N  P a
M$J 4/4  $")N  @RJ  63EXB7U"/3M%.5O_ 0>[_P"%N  H $C%N  @ %J 5a
M/4  #DY>(E]<CT[13E;_P$'N_\ Q;@ ( !8A;@ * !*@$SU   Y.7B)?7(].a
MT4Y6_[!![O^P(6X $@ 2,6X $  60B@ &J (2D!F%D)H !R@#" (0^@ ("+Na
M  @BK@ ,H T]0  63EXB7]_\    #D[13E;_SD'N_\XA;@ . !(Q;@ , !9"a
M*  :0B@ &T*H !R@ ")N  @RJ  8/4  $DY>(%_?_     I.T$Y6_\Y![O_.a
M,6X #  8H!@]0  .(FX ""*H "Y.7B)?7(].T4Y6_\Y![O_.,6X #@ 8,6X a
M#  L(6X "  NH$0]0  03EXB7U"/3M%.5O_.0>[_SC%N  P &* 1/4  #B)Na
M  @BJ  <3EXB7UR/3M%.5O_.0>[_SC%N  P &"%N  @ '* 2/4  #DY>(E]<a
MCT[13E;_SD'N_\XQ;@ ( !B@ 3U   I.7B!?5(].T$Y6_[!![O^P(6X #@ 2a
M,6X #  60B@ &D)H !R@##U  !)!Z  @(FX "# \ !"@+DY>(E_?_     I.a
MT4Y6_[!![O^P(6X #@ 2,6X #  60B@ &D)H !R@#$/H " @;@ (,#P $* Na
M0>[_L* -/4  $DY>(E_?_     I.T4Y6_\Y![O_.(6X #@ 2,6X #  60B@ a
M&B%N  @ '* +/4  $DY>(E_?_     I.T4Y6_\Y![O_.(6X "@ 2,6X "  6a
M0B@ &J )/4  #DY>(E]<CT[1H#\_0  $3G4O?    ?@ !$YU0?@!^'#_H#@_a
M0  $3G5.5O_P0?H W"U(__!5CR\N__ _. (02&[_^DZZ_@@P'SU __A*0&="a
M#&[_U?_X9C15CR\N__ _. (0+SH LB\Z +1.NOV<,!]*0&8858\O+O_P/S@"a
M$$AN__I.NOW(,!]*0&<&0F[_^F!B< 0M0/_T58\_+O_Z2&[_]$AZ 'Y.NOQHa
M,!]*0&9$68].NO]<(%\M2/_\<!0M0/_T58\_+O_Z2&[_]"\N__Q.NOP^,!]*a
M0&8:< (M0/_T58\_+O_Z2&[_]$AX".Q.NOP@,!]*;O_Z9PQ5CS\N__I.NOX6a
M,!].7DYU"E!A<F%M($9I;&4 1%!R;0  4%)!30  5C$N,      '1F .  !)a
M3DE4  (       !!^O_N(<@)SF    ).5O_D58](>@<6/S@"$$AN_^Y.N@+0a
M,!]*0&8  7YP!"U _^A5CS\N_^Y(;O_H2&[_Y$ZZ 7 P'PRN5C$N,/_D9@ !a
M3%F/3KH$8"!?+4C__' 4+4#_Z%6//R[_[DAN_^@O+O_\3KH!/C ?2D!F  $@a
M#*X    4_^AF  $4(&[__# H !#@0 )   <_ $ZZ!A0@;O_\,"@ $N1  D  a
M S\ J4H@;O_\,"@ $.A  D  #^5 2$!"0$A (< "\"!N__QP#\!H !#E0$A a
M0D!(0"'  O0@;O_\,"@ #G(,XF "0  /Y4 QP &.(&[__# H  [@0 )   _0a
M0#'  9 @;O_\,"@ $'(+XF "0  //4#_[%F/2'EM8VMY/R[_[*F@(%\M2/_Xa
M2J[_^&=*('@([@RH2&]R;__<9CP@> CN#*AW:71Z_^!F+B!X".Y1B"U(__ @a
M;O_X+5#_]"!N__!8KO_P(F[_]%BN__0@D2!N__0B;O_P(I!P BU _^A5CS\Na
M_^Y(;O_H2'@([$ZZ !HP'U6//R[_[DZZ AHP'TAZ_F2I\4Y>3G51P6 "4,%.a
M5O_.0>[_SB%N  @ (#%N !  &")N  PA40 D0F@ +$*H "Y* 68$H )@ J #a
M/4  $B)N  PBJ  H3EXB7]_\    "D[13E;_P$'N_\ A;@ 0 !(Q;@ 4 !9"a
M:  <H <]0  6(FX ##*H !8@*  PX(#B@,#H #[C@.& (FX ""* 3EXB7]_\a
M    #D[13E;_P$'N_\ A;@ , !*@%#U  ! B;@ (,J@ %DY>(E]0CT[13E;_a
MP$'N_\ A;@ * !(Q;@ ( !:@%3U   Y.7B)?7(].T4Y6_\!![O_ ,6X "  6a
M(6X "@ 2H!,]0  .3EXB7UR/3M%.5O^P0>[_L"%N !( $C%N !  %D(H !J@a
M"$I 9A9":  <H P@"$/H " B[@ ((JX #* -/4  %DY>(E_?_     Y.T4Y6a
M_\Y![O_.(6X #@ 2,6X #  60B@ &D(H !M"J  <H  B;@ (,J@ &#U  !).a
M7B!?W_P    *3M!.5O_.0>[_SC%N  P &* 8/4  #B)N  @BJ  N3EXB7UR/a
M3M%.5O_.0>[_SC%N  X &#%N  P +"%N  @ +J!$/4  $$Y>(E]0CT[13E;_a
MSD'N_\XQ;@ , !B@$3U   XB;@ ((J@ '$Y>(E]<CT[13E;_SD'N_\XQ;@ ,a
M !@A;@ ( !R@$CU   Y.7B)?7(].T4Y6_\Y![O_.,6X "  8H $]0  *3EX@a
M7U2/3M!.5O^P0>[_L"%N  X $C%N  P %D(H !I":  <H P]0  20>@ (")Na
M  @P/  0H"Y.7B)?W_P    *3M%.5O^P0>[_L"%N  X $C%N  P %D(H !I"a
M:  <H Q#Z  @(&X "# \ !"@+D'N_["@#3U  !).7B)?W_P    *3M%.5O_.a
M0>[_SB%N  X $C%N  P %D(H !HA;@ ( !R@"SU  !).7B)?W_P    *3M%.a
M5O_.0>[_SB%N  H $C%N  @ %D(H !J@"3U   Y.7B)?7(].T: _/T  !$YUa
M+WP   'X  1.=4'X ?AP_Z X/T  !$YU,#@ Y+!X JYE'G ZHR)F  #:H"DAa
MR #D(E C> ,\ #1!^@$.(<@#/"!X .0B4$II !!G?B(O  1K<E#I #DR*0 Ra
M) A(YV  J>%,WP &2D!F  "8<  &00 ,, &@)&8  (J@*2'( .0B4"!X GHAa
M20 ((4D #"!"(% 0*  X@2D ."!"H",S00 R"*D    X9PA":0 03KH I%'Ia
M #G2P7 ,DL!![P $H"Y@0C H !!N^B!),7P .@ R(6\ "  D(6\ #  @,7S_a
M_  8(B\ !&H(0J@ #* #8 XA00 <0_H 7"%)  RD TI 9P)A"")?WOP #$[1a
M,'@ Y+#X JYG%"!X .0B4"'I #0#/* C,?@"K@#D3G5.5O_@0>[_X#%\__P a
M&*(&0G@"@&'*3EY.=6'D(#@#/&_V($!.T$CGX, @> #D(%!**  Y9P90Z  Xa
M8& P*  R(B@ '&<,(D%(YX" 3I%,WP$!#$  .F=$(DA!Z  Z(U@ '"-8 "0Ca
M6  @,WS__  8<D:006<0,@ B2)+\  R@+@9! #I@ G(Z('@ Y"!0,4$ ,D/Za
M_Y(A20 ,I -,WP,'3G4P. #DL'@"KF<*('@ Y"!02F@ $%?O  1$+P $3G4@a
M7R)?0AD2N )@3M!*. *.:R0@7S ?+PA.5O_@0>[_X#%\__P &#%\  ( &C% a
M !RB!$Y>3G4@7S ?+P@,.0#_ $  "6<D0.< ? , $CD [__^ D$ ^ )   <1a
MP )@@D 3P0#O__Y&WTYU D  !Q'  F#C2!(Y /S=@0(! /&" !/! /S=@4YUa
M"E!A<F%M($9I;&4     CF .  !)3DE4  $       !!^O_N(<@)SF    ).a
M5O_\68](>4-/1$4_/ " J: @7RU(__PO+O_\J9(@;O_\+Q _/  X3KH &DAZa
M_]*I\4Y>3G4B7S ?+PFA1B](  1.=2)?,!\@7R\)H$=.=2 ?(E\@7R\ H#LBa
M@$YU(%\P'ZG)J?]![P $J?)![P $J?,   #@ .  !P ' $, BA$!H ""H ",a
MH ", 0 *  < !P!# (H+ !( $D0 #  , $$ B$@*          !$  H "@ _a
M (9(H "-H ",H0"6  8&     GJA )H "/_\    -@  H "8 P ##0 ,*Q,<a
M$$1I<VL@4&%R86T@=C$N,#"@ )F@ )>A )8 !@8    ">J$ F@ (  (    2a
M  "@ )@-  DK)! 'J2 Q.3@W#:  F:$ F@ (__8    ;  "@ )@H #@ +@M2a
M+B!$86X@5V5B8J  F:  EZ  C:  C:  @_\    1$$1I<VL@4&%R86T@=C$Na
M,#     '24Y)5         =04D%-  $     )$10<FT    !24-.(P !    a
M@  ! (%&4D5&  $   "   $ @0   0!____\@(  @H" .(& @$2!@(!$@8" a
M1(& @$2!@(!$@8" .(& 0 $!@#_^ 8    &    !@    88QC&&)2E*1G___a
M^9____F7F=NYDZJI.9.9BKF3NJNYE[JKN9____F?___YB4I2D88QC&&    !a
ML    ;    &    !?____@    !____\?____G____Y____^?____G____Y_a
M___^?____G____Y____^?____G____Y____^?____G____Y____^?____G__a
M__Y____^?____G____Y____^?____G____Y____^?____G____Y____^?___a
M_G____X        ! !     0    $    !     ?_X?_  "$ /_PA   $(0 a
M_A"$/P(0A" "$(0@ A"$( (0A" "$(0@!C&,8 E*4I ?___X'___^!>9V[@3a
MJJDX$YF*N!.ZJ[@7NJNX'___^!____@)2E*0!C&,8 (0A" "$(0@_A"$/P 0a
MA   $(?_____________________________________________________a
M____________________________________________________________a
M__________________________________________________________\ a
M  $    05P  #U<   #Y  #,&  ^    ' #.  9)3DE4  $ .D-/1$4   !2a
M4$E#5    %Y$4')M    :D92148  0!V0DY$3    (Y)0TXC  $ F@ "  P0a
M  0\  $X]  ! !<0  N&  $X^ "   !0          " __\   P8        a
M__\   S\      " __\   T1      "!__\   T<      " __\   TG    a
M  " __\   U/      "!__\   Y3      M7<FET92!087)A;0I296%D(%!Aa
M<F%M$U=R:71E(%!A<F%M($EN<W1A;&PQ4U!-86<*4&%R86T@1FEL949I;&4*a
M   )^@ GR\@  ,P0   )S@ < "<S]        * C  ),/  !&AP )RQR !X a
M00  4%)!3410<FT!        &@    "=?=^,GZ]_AP975C$N,*@   #,"LP*a
MGZ4C(P "8P 0B 1L  9,YU!%;F0                                 a
M                                                            a
$        a
 a
end
--

			- brian

Brian McClendon
uucp:  ...!uunet!sgi!bam
work:  415-335-1110