[comp.binaries.atari.st] v04i088: deskset -- Re-read DESKTOP.INF and set up system accordingly

koreth@ssyx.ucsc.edu (Steven Grimm) (04/14/89)

Submitted-by: 7103_300@uwovax.uwo.ca (Eric R. Smith)
Posting-number: Volume 4, Issue 88
Archive-name: deskset

This is a small program for setting the screen and keyboard
parameters from DESKTOP.INF. It can thus be placed in the AUTO
folder and used in lieu of the control panel, or run at some
time when an ill-behaved program has mucked up the screen.
It should run on any ST (it's been tested on Mega's and 520's).
The Laser C source code is included.  [It's in the sources
group. -sg]

--
Eric R. Smith                      email:
Dept. of Mathematics               7103_300@uwovax.uwo.ca
University of Western Ontario      7103_300@uwovax.bitnet
London, Ont. Canada N6A 5B7    (a shared mailbox: put my name on
ph: (519) 661-3638              the Subj: line, please!)

table
 !"#$%&'()*+,-./0123456789:;<=>?
@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_
begin 644 deskset.arc
M&@A$15-+4T54+E!21P  [AD  !01:PMT^\XF   ,8#0  """UT !!@$$$ 8 z
MDH,E^1H2V,1O8   2EH!(&$&A9 \ PL^B0B@!+<7.0:.</2#!P D3H)P>:($y
MT!I_+H!\([D2C T0+0 P@*:1 E$ '*#E4NG( ""+! %(:R2,US]( W &>0'@x
M10,A9UIBC/FM(E8&(YH-/($"!$@ ;%^@ , ""1H @)PL!2" "Y1'*->"" S w
M!+L?*0NST3N0@33&0BU #L""RB.Q " WT"#DE%@0,;D\4H*'@" S,H+H V %v
M!"X <(*0#" @!#+87#^'?@16MD45D4C&12 V1DRP,5\@4$UP"I0S"I3@(J %u
MNI#I6D*L9@ ;Q)<7.@ 0<%)'8@1*3N(XL?)/4@\^XO]IZJQ[+P-*HEL ^6=)t
M2&DB+[C 7WV-X?<($F^)H ^"(;$#&00>_*5?>V<,Q T8 V$"@8"<( $(+/"-s
M8,9 BFSX3R<>@@A &&98$(0[_W " @)4 ,(59 JH@L4C4[@AGXDH?@B?&"V^r
M&..,-=ZX%P+F[-CCCP(&J>(81<(H(XTV9K:7 %XXZ:,F0*8(7Q%5'HFED@,Eq
M0(V7\@78GEAC(.$C)Y Y@,@3[P"@P!D(P""@)B/^PX2;DF@&"0 [0H8 %I =p
MH AC6/$"A@&-/NH%>9BRA\Y["OV##Z<+_$,/IP'\XPZG _S##@PN =##?O:\o
M^@\\LLH#!@%2N (  B"XL2L$$'CH&P C7 (!# -Y" Q\")@A#AA,^/F//>D n
MT>NNN>XJ0;"!2 (?#- $(:L]TL(CA8_P,  $7V:((*T\Y_XCSSA #&L"'#&Xm
M,NU K XTKJSP7(L L'PRX"L$\K9!BL $XZHKK[X.#,$9% B<K<0>'OJMK.XPl
M/''%$5\,;,8 ;+P?/AX+[*$%<P6 Q"# #'&&"OTJ(/"V2'3[;3#!W-QRSMX"k
M *ZX^]%#Q<,I1[SRSS#+;$+--W,;- P\^ZP0T-^&*^NJ N)3#A" P"< (#ZZj
MT\%^^]#G$FCV&3@A.BW )QXA__#3:]T0Z+N/F^@0*)2!/PAXF(#TB#4"9 Q8i
M(9H3E]:QWC_4@"56 &)5@+CB!R;(CU@)(&Z@G/^( UD$_.QHI#@CW 87"Y 9h
M8(VLX+3^^G[>R"XK-P8#0,8_W)#A0>Y0\$Z& M)R PT?!T #1I\"&H\\&[?Gg
MSL _X$P!C!( 0)?[!_]X8SWVV&OOQ@&[\"[%]1AEKX#!"-# >Q7H+ZN0K-00f
M,+Y5W$A+C1D.,$BL9'NY #%VI+\*_4,'Q:-7.( @ P&!8QU! $0$?>2-&0!Ce
M+23PWPA(P#G/B09THML+Z4P'(]2I[@2LVXOK9*4-V^T'&R[\AS4F)86]H- Md
M:V'!R"3($V,AZR6 D%^SO('#U>U016$X P2*B,(CPB<(9M" ]/ZA#3(80%K:c
M6!X6-284%C)1A\$2$FR4^$4G @ *49QB%8DG(&T<3RBWPB(+<X<!*L(O?.OSb
MU0[^@8WOI4]\ -BC-?PHOP#03W_\TR /("-  @J(&A7R1_[:> X@++"!?(2@a
M!#%I#7$D08(67 L,8)"8$Y  & GYQS]&<$&XR  $I91!.  Q2QN4$@;&2.4_z
M #$(5JY%!H0Y@0S$ L#&8$XL&Q"+ #RW([$409G,Y,T9).<2R]D'<XS+U#_\y
M(00?^8.&-F1!&<,XK&(=*UE!9)89B/B6)H9113HX@S/&*::NG,$7]!1C"\[@x
MBGRJR 5G\ 08W.42!0 #1O[X8@USB#.="4UK^TEH.\$HK!Z>$XCR(X 9A"$Mw
M?V33<>Q9T%M&H 1&#O R+KG Y2SC2U?"\I>H'(@J0PD7&+S4E>  1$YI:DI2v
M8E!^'Y"5/WP*%Q*H PGR>X"L^*$$;WH!?8 $P3:[@+[P(:"I=7LJ^-27NP;4u
MC:K8*Z2L]"$M?9B!4GLA  =+R4&7K"":B!&E6%H0S8\^3A]B&<\U+4.O88G t
M&TB%!B)  (0>!(\?/7B+">3P#WUT<YM@&*6 _-%7DMSK!S_L:&5#X@O,#D0Ls
M![B<:.+EC]P]8)MM0$9<"R.'P-4-M*)%:4E6^@B[LH>;WKS5Q3Q6497X$)U"r
M=);'*&:QA^V0BS (A#>':X'B_BJ,R*67<K?)7.=B#!#(_=IT$QHQ@C4W9,:%q
M;LF$5LGM5A>\SR79MZIEWNY.[+O8"J]ZA;8.(&S7M?X02P@NEZC&/2Z_+M&Kp
M,2TCU-P)8)L5 H M7L"#JQ! + L02P$0AX&_H/(?#1E @BVA6Z2YM[?$^BU&o
MU?DLA^V*MSST[465!9\#.*O#)_YPBD.\XG3NREF[E3%RU<4N#TR.P0X&,B0>n
M[)()7Q-/0K%M8TFU34X=H&Z<PD1C80RQ],[8G#]D\8W%,5P35UEB9] !BE4$m
M@S:T1<8JFH$;-(#BZ-:+)"(@1P_@(%-^Y/BY9T#"F+_5AI^@&3XR<,.9K8S<l
M,PC$5P1H;)O'"X,I $&Z/M+'G<'\RC\+K0T@V#, U"R!17^KOM.5M(?Q+$Y+k
ME]D#FE;S$G7,:*&V1)6O_D>L78O7R;IV<RYYP.60[ "[UL%>\("&<$R A7::j
M  2)" 'V(!""+P  -$W(@K&!+>RUF$ $4"#!72 @EV<K 0CDH?:PBVUM9"L;i
M ,QV-FB<(&UKB]O:V-8VNKL-@F^'V[+!'K>QS;WL9C\[)NV&BPG>+?!X;YO>h
M]@;I0&R[</]:82 W)0$&AF620R&"'&)$ !N:^Q:)8V$O$@?!P_H5@#BV2LG^g
M0,(YQ ,&"&0!Y!@H8LBAX(1#17SB)*DX "X.B'4.BP0<4 $2P( !& 3%H'P@f
M@(85X!5#(>H1VJC($AOP<PZ(  '22$@ @ "+0+2!&H';%60Z8 '+,.$;(,B,e
MPY.U<@*H(&)&UY/\!' &"31]+PV0QX[.<,4&_P,,,H@[TM%]!@:\("AH'4@%d
M4+ C(;1!3S\("@,@XP$%6(;OK%*ER0=R]K0S_"7G"(#;X7[T92G]K)G_NQQ<c
M4 %/:.2*I8</(,Y@!<'/'?5^!X,4; \? M1=F?21/&0D (>__.  AP>  2*?b
MY+ULP"^/4)<JS<"=QZ^+>+F7@ #:\(\_Z$D%KW>\>/H%@,[GQ>';5+E0WKXKa
M%#2AY1W% ##JJ0 S"  ,1NB14/PDE&^_0<R^X@!3<!<$  -S00#?U@8@ P .z
M  (0( 4V!P0[)#]_9W@NP("0\0# L",%MA__8 :J( 048#!7D17\ P(,  N-y
M8 9]TBI(!08"  (-D!YGARR?IWZCMRN\1P#9<RRQQRX&  "/=Q'$\X,!<%9"x
M" #7QWL   9GX #@IWSB5X"YAP5 H7QFP'0SN!<=X ([$H6P)W=\( #9TS\=w
MET(#D7<$%'L!@ "8YQ(E5X!!X0 _T!45P'R3MQ<90 E_L0/K0H6<AW9JERELv
M)Q[LAP!W-Q /( %[UW>:AP-3\'AR*![?Q@8HR'T8IE$(D(1IIP"3DH37-X6Iu
M!P8,  )5( 65,('P(2B"B'(J=P ,P'X,\%C^  $54$]$@@#OD7;;) 6-H &Wt
M6 @,4 0 ( =G8 '#" !WH$3)F$38ERS @"$!H 8W50+\@ ) 4!-FX )5AP)#s
M=RPL((:G=W\8@ U2AX)5=W599Q%<YW7<@(XD 73JJ'7MV ;/^!+1J! 2( 1[r
M88U"P 9ZP@%!X3*&P OPL0)78 S, !\!4'@ P 8\J"<"P 9UHR?)> =FP ,Mq
M$0"V  ,&\(9\L7D!$#;B09(00#;;5(<!(G9[80%\\!<^(#0&@(0 28:>.!!Xp
MT(QF( 0;V9$NX13>I)(7B "0X9(PB1%'@&G YQFAM1?$]Q</*1YZXI$TR1=Zo
M @8N !8>"9+W!XAX$91=,91%^9*/$)-4&80 280,< 33-XL >8\OZ $Y< 1"n
M\8_B 0(N,60H  @IL"X&D -O40)<P( H6(.QLW;$X@[H-A#6N)(0X'0[LI(6m
MR)(# 2%_<8.A%XL1XWYQ=  :  Q5-X#C=X )R'$# 70+M1$<H(H \'=F>)H<l
MD($;6)9"X8%\MY9Z8@:X( 05L);3UX+0"(,H2(/?  /GITWRT%2[P@82, /\k
M\ _;,! FX 9XZ6#2B 1A1X=#N9(*(!9"X#E(I@ 3PE2 T :\(B#\((T^!H=Aj
MAP!J P#?V3;A.2'X4!-L4#%=0U/369U#AB$ H [*U)[O&9\%,I]%DSL7X0 Gi
MV#70H"OB>7U@8 (&QH +*BH-JB?Z<97'<H$. !W\20#^*0D@<($*  OZ0@]Oh
M@)UBV9)(8!G+\@W_\&UF@)]UHY_4V6#]B14@ #KR,*)Z<B@GFAM#*1;@)I]Yg
M,HMAL9TDZIW@F2?1 0A4)5;[(0]U-P,P(@_2>:/6B0"3XJ,*D!Z8&0 ,X *Mf
M0@ 8( )#N8[B@0%3$ @O$  B4*88\*:0P0&&( (?$)D'X (!\ )-.1 <0 TNe
M\ $@< #GD"60H0%-\@@J  2[\)Q#QH)X*1$!X7XI0)<$@()0@*A[L7@[4HU>d
M4(/'J7"@)Z9DFF%P.I10$ AM^J9QFF&(& !U>J=Y^@C>$ B@BHW:R 'V\FP(c
M@(TM50)>T%(F )][80)N1P572 "P< AEH ++VJQF0  H4 E@T&D'$ D:D:E!b
M00"'N@W L *8.@+,P)A>((.;"@9MT0"PT(]>8 9S^J< , '6\(79V'.\DI<@a
M:@#NIP)5  :F(*J?QW\($%.M^0]H @ 40 7]18B@)Q0^VBP@.A!V$+%1  B-z
MB@*!Z05@T%PI2 EMT(#LR@AN8  R" N4P ;WYP HH*PC^P;D<+(I2T0-( +=y
M>@Z!  V!@+)FL$3*>H#1L*T@0 4J<"@PJ *4@((B$([>FK,[NX*EV*W1P KBx
M4:TPB *-0*[F6H.#"%+;1(M@P ,=]37V<BBC-!!F\#231;:6=2CYLBO\LK9Ow
M)IUNZZ AR0"DE3L7@%J\@')@2S-R6[9"\T.P$#$].[9S6QB'(@1T!@!YZRM[v
MZP]MX RN&'H X -#R2E<L$V"*P)(( T(Y0O/80!8@ 2S@ QF0"YS(0!GAQ=Au
M^A*!*08K293.AP-_<59"< 32"+N,B0:S"QD;8+N/P((^X!+W-Q#DX#\EX :_t
M6[NWBP#%"P #X)_(P'\,D%%GL'L7>+WP,0!"N2MBT0.><Y0)R$9"(3\38P)*s
MD)1T> !BX0/1!!:S*Q:+U#9'"09J8+WH>P9$H+_=^[W$X1+B:[^TF8 B<'SOr
M&[]G,+\N4;\%<K\<X+_2"\#A.[X%? 1LP  S< Q9.HH0$'8,<'R040&V0$ 'q
MT+JCNA[)<H;-.Q ?8 9_\7,  8;-.Q ?8 8LIJ !0  &"H)*@+31 ($'  4@p
M\@  0(*%E%P3*T( A 00,#X _H&1@$0B118_'"IP@A& !RM<'CGQXJ2.$RO_o
M_"%Q\^_?"X>0!@3XX0( @I0 ?K"<R(#2DW< &)@QT &DAIX07/3L.+/FS7_\n
M8.286,(.+),EZ)B9B ^&0P S@)&E$Y>L'3 3N0DYLQ0 !@Y4'O4  I:!&Z-@m
MS4@0:_>,@2EH[TZD91A @\0P& ,H*R5RD'P332"(P.OA1*0*D I .J O PPQl
M\0(@5'E 8@:J^S;0$+CR57YFB,#0RD_&V,UV.MO]''HT( A)'390S=HU[$>Hk
MJ3MLW?)U;!'#P1JWJQPY<P"B(SP'X!9 @+7_0&A.>UXT!!@3.\*R.M5M3S 8j
MS$='>?2!AAX"]^4'B!-Q=&433O@@<4Y4*ARFP'  . !,:2']TP)A_ AAD@ENi
M$&547R$ $]@9-@CA"EA@:- 7!DYHP!$@^_5D!@%@4 "& 5(T(L6+817EP!2'h
M.9"0&=J 0)QLZH!!PPM%*4 E6"8>Y9!2W3D%%0,?@J4$(&Q(X"18=:'GAG\Bg
M399E7Q8@$=A'( "P%@"<G,G/8!DZ^9 *0*  !!AV@-  ) "X\A 2P,!"9!M4f
MO,  AAIRV-,+216E95*N>1E5F/B,R08$9^*3)HEL@F%$J68( (8+E&XX44^(e
MOHA/)$2JP 0$%>@'4@,[!ODC!MT@F2&E9A " @.U+@I,F/SHR<0W^#GX%3]4d
M&H44$IW&!*V>9D#0 A__0%( /S/P\T\VH;FAI[563(0A K)VB&E?&IB#A4PTc
MU<'$.P-,1( 00$" @6.P9' &/E,D(D00$D1PA@ =)30Q$H$@&H175O2CCX0#b
M<%#A0R@T(01/_E06@%%G4/!F2W'.R4>==Z(2A#L>FX"$"PQXTH@O259QC#,@a
M!2#;<QQ8 (RO#YGA  @+3 $(" 67UH %_#S$L\] 9R@TT>Y!?;/'B"*R7P#^z
ML%'0 <&)C;,^93,:YL=N>'RE/EDB!42G3T7E$*.._J//&0S,8$R[J9(QMCXZy
MP\!V2'XLBV@C@^4$AA(O-!"KI3YEJJU#>W?9-YB$Z2.#D<)P#DL@9Y"JE3ZGx
MKLG#?PR<J4\T*(?GS[0X  -O?N? 0Y&F9B@ 2-8 " &($(& 88((13&@O!T!w
MT!((&0R,(P@9!(@C"1@$C#,(&/!8+P8!@ PBB2#B*"+.(F3(\Z%1+001U;0 v
M// [ !(*SX0[ #" 44P0  $,HB<3.0,!D# $8P@#!!0#@L4( (Q@6 ,(#!3"u
M$(AA04&T8 CW^T;^9N*"3RCA%03AV&DTA10F=&I?^