[net.micro.pc] EGA programs - archive

davidsen@steinmetz.UUCP (Davidsen) (08/11/86)

Attached is the uuencoded .ARC file for the programs to switch from CGA
mode to EGA mode and back on an EGA card. The source and exe's are here,
along with source for a 43line mode program (get back with "mode co80").
This would have been a week later if I moved the source to a PC, compiled,
arced, etc, so here it is.

If anyone can't get this assembled, drop me a note and look for a reply
in September, after my world gets less complicated.


	-bill davidsen

  ihnp4!seismo!rochester!steinmetz!--\
                                       \
                    unirot ------------->---> crdos1!davidsen
                          chinet ------/
         sixhub ---------------------/        (davidsen@ge-crd.ARPA)

"Stupidity, like virtue, is its own reward"

begin 644 ega.arc
M&@A#1T$N05--  ,   34W08   L-,6IB&N\1   ,.QZ 0#&$BA0F+9X@20$"
MTH D0IJ @#)DHI0D3J@4D0)BR!,G1(HXF5*$"(@F3T(V4- 0 9PP9\HT), B
MQ@P9*UO224.'C4R'8]ZP$?/F#1T78>:T62FE")4O1IR  %$F3IV&!6@,0=*P
MP@X1<LK0J2/'#0@Z;T"0>3-'! @S==R,V?G&[)@P;-CD7+E#!:0B?/DV/,#D
MR96315!*R0*"Y)$F(JD$5M#W[UZ6*YF\N3.ES)FI<SRW*>.&#H@PIF' 0--0
MP@XA29Y, 6&GS-PW<N: , &"B&S:8>2D"2/&YYR<D!#@_@PI*XX;:%9B-/)D
M)ADQ#0W\0*Y<#G/G.*(KF/YD1L,!U[/_:'AAAY$RJ,G*%,-S#@L018X$Z9T$
M"H@Y=_ T!AIE'*> 9IQY-E41;I!A( B75>;$9#L,1D005.SG&&094>C7A)B%
M2$1HS!% XFBE@?"2'&&H6$=Q:8P!P@EDH!;&"2LU,<41,5B''20&G)#??BWX
MT)%0N.'71AULH)8D;U*40911)]0$0TTS6(DE"R>0< ((.\Q!1W!CP0%"&W.<
ML=(5021!A8Y'J/5CD%"$-8=N8;B1!PAKE+$G6O^)U9%^9[Y!1ADZ@.!E0P_L
M<$<8/)U9X!PPE;'2$/K!.55Z0'[IUP"#[H=22" X81@(&.%GA!%%% 3"IU7&
M<*5-6M+:)8X*"/'$$V_N*&=V)]0Y*7X9;01"&F: D,<;5P4X!VN 3FE:BV:P
M\08<<.SIQF:)>GGI04;(<!ZG!LBZI;FV>JM 4T\-8=*O0,+04 @[E"&''+CY
M5!L;((0U5ED@!'4H<&S48:F(),[$H(.704C9AQ0.YA&I&T;F(20@.NSP$ E#
M8J)HI)FV8HMPO,A&C#,*7 :N+24U1QVC337&'#K,[!D+=^H@9AACK-'2#GB%
M%089>X9FFAA[KJ6;M4/;>QF#=,!AFD-PX"NCQV8$UU6]I<FQ)QQOI)&B&?BV
MH19;W#7QAAU8A8$'"R,J"$D$80I:AYE#DV$GI?2=3,>?;Z2]-E8.LN!V0Q-4
M2 >!:MD8Z!DHTL&=RS#+I!;-<:O)4G)JL]V<VRP@V!ESC1H-PMVGD:'WI,2E
MX3?@@GM>0(&&XX&XXHQ;>\?CD4]^9^53%:B#Z)Y%"#%E@YF.NAE)8KI?&4LV
M29<;?!VO,>>#-T?&VV^888;I</8("655OW$&BV;O+$>9DMY9:>QMH\$"##FP
M!HEK58MMFIC"N:%Y2TE(47-D$ /Q7 \!;<A> <(@/QC,P'ZN$1H9 D:6.20)
M;'/@21KJPAW]8456!DQ.R9XU$S'8#A(6"%,8:J.B2H' #3 3@],VYY(ZD-!C
MVVM("BG%0GS=@05!*5@;J!>BEB10=GAA 7EF,+D&M8T-\S/#:AI"-]/I[H5Y
M$$-Q9 (H'' G24!*(@S"PYTC8F6)AN,7)"!0-],L+TE!3!+TF(2:#1+1B H$
MG6IP( /[L=%TVY)#&_!REC+@P30)'!@*X& OY@E2-XL[6$L\V!P0;FTJ/!L+
M(1,I$P )" TI:%ARS/BY!O:Q-6VD8&XNR!8-<I"&8#.3]DZ80CNA)2S]V@P0
MA0*S.XKP6E@QH0YW8$O<R.0E,7EA#&<X20$6 (1-G&!SR#._&YC!?HVRDZ"V
M%3"?:&T.8P@+:4! '].@P QIL)T8ZG"&'X0R1!(2#"0.D!2?.?(T3F2D'!QI
M-EWQJGH8$R4".D<X[GG/=,[35')V0(<RY.4T1*F#:9Q7J$/!KY3SJQ\J\Y<B
M_HGM?\D)X-0*0$ #7K0 VV-!][XG*'_V*D[S9*A#^06HJ@TK9/8Z5K(.E4%<
M2NND#,PH!'? T?W1H7\@18!(L5)2H+X-!D.  70:PL9JV9 UZ_2>O>X3%#=8
MT"?'<D/)3'.'%Z3%-F@(' V7.L "<F>$]B. VTZ:TI4B%%SB@D0"B-H_TXCK
M+L)QH;_(XE6@-K!^W&$K2=T*2V!^#@_<&4,;9+E *,* #$,-RF2#P\6T1&8C
MW%&#&_2 E2+@@2>)=68,- H)KQ"!+>0LBFGT9Z^[28Z&:IAL:4][6X?%$WGS
M9%<5I" 5*E3'-U, :,:>QMM$.82@&&475*0"B6R*A;!G28O2WA*7N=@Q8'B!
M(C[) %0H2M==C-J!'?!BL.R2\Y@N*\,$ 64O?,E!7PY-[4@)R)76$O.Z  .4
MTE8"-:F=9V&RY$"%4%";W'Q7!BY0#0B2)#U[O9-C<B. 2(B0W!!-(4-#6,)Y
M*I:1B01!"AH"L8A/\.$@A!A71!!"=FQ @]Y4 0HH$$&+0WP>$3 $2#N000UL
M ((K/$$*)MFQB$]<A""L1,D'!DF'-US:C$!!,@K0 !H(0T=!+D5810 #   $
MU'D!   +#2IITW0 !0  #$VT  @P8"  $  @#?CW#P(   *4*$M(P$/" 0$,
M0OJ74!PN P <8</UT!$P70]I)6@6@M: 9A"F2#$!"A$!$O 8(# ARB8N00!@
MTA*@90M,$X!,'"+P1]<0 "I9ZCH#=64(7 <8L(2BRU)5EEAX-*A3H%F&=0$@
M064":E/0$$6.! '1P@>((6_8O)$#HDB;.FS"T-D+P@0(*67$O'E#1T$#QR2@
MR"DS9PZ(,&[R@%A31O-@$'/*T+DK%T2;-V3*Z !! H0*A:3G-GE"I @()T^N
M@$CBI*\1(T6&4'&MT#%DR90M%W%"I8@4$&G,@,CSI@Z(.VGFH 'Q63'CRR#,
MZ(4#1[.;-W=6DS#>@$3" E.H!!FR!(3"^//KWY=/W_X _/WMEY]_ .KW'W\&
M%D@@@@L.*&" !SH8(80*/I@@@Q8V2"&&$UXH884=:NCAAA]R".*))J98XHHD
MMCCBBR+&F.&,(=*((HLPVJBBBS+6Z..-/.J(8X] &@@:"$5'02Y!4TT  P  
M!-2I!0  "PTR:ILT< X   P['H! ,82*%"8MGB!) 0+2@"1"FH" ,F2BE"1.
MJ!21 F+($R=$BCB94H0(B"9/0C90T! !G#!GRC0DP"+&#!DK6]))0X>-3(=C
MWK 1\^8-'1=AYK19*:4(E2]&G(  429.G88%: Q!TK#"#A%RRM"I(\<-"#IO
M0)!Y,T<$"#-UW(S9^<;LF#!LV.1<N4,%I")\^38\P.3)E9-%4$K) H+DD28B
MJ016T/?O7I8KF;RY,Z7,F:ES/+<IXX8.B#"F8<! TU#"#B%)GDP!8:?,W#=R
MYH P 8*(;-IAY*0)(\;GG)R0$.#^#"DKCAMH5F(T\F0F&3$-#?Q KEP.<^<X
MHBN8_F1&PP'7L_]H>&&'D3*HR<H4PW,."Q!%C@3IG00*B#EW\#0&&F4<IX!F
MG'DV51%ND&$@")=5YL1D.PQ&1!!4[.<89!E1Z->$F(5(1&C,$4#B:*6!\)(<
M8:A81W%IC '""62@%L8)*S4QQ1$Q6(<=) :<D-]^+?B GWX@M/$&&66<4!,,
M-<WP9)0LG$#""0TUL,,<= 0W%AQ)%C@'3&6LY)L3B>VHUH]!@N#7 $?NAU)(
M(#AA& @8X6>$$444Y*9#3L8 I4U57GG>#J21D88;GXTVQY@Q,>74%T.8M&9V
M,#04 J)RR(&;3[6Q 4)88Y4%0E!, L=&'66*2.),##IX&824?4CA8![1N6%D
M'D("(JVT#O$J)":*1III*[8(QXMLQ#@CJDURE]0<=8PVU1ASZ("M9RP\J@.7
M88RQ1DL[X!56&&3D\9]8((BA[EJZL?$&NF7(<1F#=,!AFD-P>"HCL68$UQ6B
MI<FA+AQO+&J:&9ZVH19;W#7QAAU8A8$'"R,J"$D$6[);!YCHDA'6H\2ET2P=
MZJ(5\<18.<B"Q0U-4"$=!*IEX[IGH$B'M(]6*Y-:V69\QLH4-V<Q"PAVQMP#
M'9OV\6EDB"QFR2>G_ ;16!7X,AXQSURSO'?@K#//U%I+5;9)>Q:AK90-%IK3
M8)J!6YQ)+MFJA+,F)W'1!9!Q\1MFF/'V23OV" EE_;YQ!HL.@RO'EV&2'"E+
M>K-L-!HLP) #:Y"XUJ_"_]$A'*/<)9%B<S+$(!ZPR2G)=QB8PS #YZZ=2\:I
M9,TQ-\)S\)1&7=R!WIR@JR>W[!R<$R &UY!8L&48M:E()@AN5"M&O=P=G[S?
M#3D_9O2>WL%"4*NVX4;>"+A>,1LLD#>#M VNG[D9JS7$\>!@4Y^'&,7)A!8(
M.>#.W("$E\QMCCOJ:X[[7B8J2$"@:2!XFMSD0!4WH"$,<BG#[<@W-T7- 0YL
M"$,>$&BY AQ--3B0 ><>.#@WX*8->#E+&?!@&B6E"@5PJ-<$VZ ;FK6J)<(K
M /$&-I5PC26&-I0)@ 3$FA90+RUC8,,<7) "]"70A+%386L@.(;<[8XMO@,>
MY5SR!C UAWO-V\'(T!*646UF?$*IUOG&B# S%F!YW5-C@=@HDY?$A'K6P]X8
M@T@\^-U.@4Z@3N9N8 ;.,6UD['+AJ7PBL#F,(2RD:1=/!F*&-'!-#'4XPP^J
M&**6[*UE?PO<X,Z4IB,,9@=T*$->3D.4.IAF2'5+E0OO@+7+&9!V._A<BK@T
MNJ&-T73[*D#JBH< -;3!CD7  T]FQ1>V50@2!V@*%:H@!:E0H3J^F4(U?45-
M!423)SHXSRE]J4VH2 42CQ0+6<SR/WB])2YS^9U=\,*^TS2HER9D7SLKU1"F
MV0$OK#I+6JXGO4=I4*%4Z=2GRA"JTIU.F3'@"B2\0JIY0A1>*\&7OLX3*S-R
MH$(HJ$UN] D"&;A -2"86PAC*0=2"DMC!! )$<09HBED: A+.,^N,C*1($A!
M0S\-Z@E\&@2@XD@!1!!"=FQ @]Y4 0HH$ %3@7H>$3 $2#N000UL ((K/$$*
M)MEJ4(U:A""L1*TD!0E/=8J5R$!!,@K0 !H(14=!+D5810 #   $U/\    +
M#2MIAC60!   #$VT0 ( 8 "   !  ( TX-^_! 0%]$JVD("'A0,0(H3T;Z$X
M7 4 .,*&BZ C8+H(TDK0+ 2M <T@3)%B A0B B3@,4A@0M1-7(( Q*0E0,N6
MF"8 F3A$X(\N"@!6MEP78" M)J!L" VQ<$&1(T% M/ !XFO8-F_(E%'0@"T)
M$"H8E@4+HLD3(D5 .'ER!402)V6-&"DRA I<AFX7*IA")<B0)2 8,G8,67+C
MQY$'3,9LF7+FS94U7PX-^O-HTYX[<Q:=FO7JTJI)GXZ-^O5LU[);P\9=.[=M
MW;=W"P].'+CQW\A]*^_-G+9SWL^''U\>O7CRYM"S2[]>?3KV[:$!&@A%1T$T
M,RY!4TT   34I0(   L--&JTX H%   ,2,K(*0,BS1P084#,"=,&#AN"<.2\
M.2.'(0@Z;T# J4/G(AJ"18X$*>@&!(T9(-BD<4.PS1LR95R 2-+1($(V<S*^
M<=- 01(L+V;<@ &BCAN8<D"\J!/CQ9V/91[*<=$3!"0"/:$$.5+$*@$;,%C$
MF"&C)Y4D5)AT;?*$2)&3(%J @,(11,B1=]+006-W"!&2&$VB5,D2A$N8/7?T
M)!*$RLBK4T(V*>*$"HC&)F$@J0H)P1,I1ZP6P(%CLX*[;-V"("+$JH$?BQL_
M)D"9R)3$/8>T[0I9,F7+6J6,A%)%"),D0T"<T.WV!&<$0:9,J3(9!(@A4W0P
M+\+"MO;=N!6D?HMRKI0GR:\Z*1)$2GBK"-A:$1T$"PL81F!HAK\#Q)$R'8U1
MAQP#N=&1'6G E-%A93R71&6BQ:#9<UA\1A\2+ 2!A%4+].?$&W> 0,:"+Q$T
M!X .0@A) 1*:!I]\]-D7 R0#R+!A9_U-$5498W2$ QXXB/A&'6(\)&1'9NQ$
MQW,PKFC<?2E:MF*+3#XQWXKU=2>;50GT-P0:8;AQAHEP\)A&&&S8)1((8N1!
M!T&!C1G@@#G)4>65!=B6(1;/13===:MEQYAC=XJ&VF[W&5&:5SD">%%&:+(!
M(@@_!BF@''46BJ5],$BX'XX@Z#@GIF\D14<>96I:P!"<@G7#C0@T^E"/",$1
MT1L1G?DF")=FJ@!\#TK)XH2_=M9D 8>ZE6@.-Q+0:$=BA#'&&L\1-T6SV%GE
MP+.!LBGM&H]>=UNQ"$#Q!!2BV=:G=-1U%>AW;JF:90PRZ >KK#QVA.:;<K@1
MQJZY&JC0& .549)$'*W4(+G'/EFOBYT%&R&QP*I8P,-6-="?%  .6%)@1#PQ
M[GAPV>4$$5"$MYU7M8VK&+FUB4;R##UI !H(6$=!+D1/0P!-   $U,8!   +
M#2QI#8-7 @  #$;DO&D#@DP9-B "I@'1)(P<$#)P@(B!0T<,&CIDV)B8 X<-
M!53>Z"@8QDX:,G/*N%$PI8X8-67&T!DYYDP8%V7PE $1Q@T9$&5LXM2I@$@8
M.F5&*F3H$*)$BA8QRJC!T:,"2 .2G/@I9N>8.G+2O*DS!P2=-R#0E&F:9^Q#
M.67@O)%#!\0;-VG?W %QYR!"%'-!N'E3MR\;-BG,JDUI]LX;!7 $GI$3IDU9
M.77PW@4Q9^!.,6\<HK1+1^W#TCT5[Q0!-PP;$2"*' GB @0(*FKS<"Y3AN!9
M$)A7FF$3Y@Z;,G/FL-&].0V='3S+A@'1YBC2AV_,@# 31B8+SI[!FZ%SQ^'.
M.VC2C$'#-\UA$$Z>4 &>6<'FTCME!VE?&L24.\ZM-]%N=?TVQ&S?79$$$TS0
MAU<:VK55!X&J<08@'0+^II\";;QA$$\^J8877"D5J!9U'I[G''NEI5%69^.5
M!U=M(&A%4!IN7(<<4C_AJ, :@P'HQAD@0%AD87.M419JA?EEEV;X/:1?"W3D
M <=GH<F!$HU.$+83DS4J@$9).[G6&0B1O6&203]U!M887J6X76"@]:>?"T%,
/T02(/QU(6YY-N*"  AH 
 
end
-- 
	-bill davidsen

  ihnp4!seismo!rochester!steinmetz!--\
                                       \
                    unirot ------------->---> crdos1!davidsen
                          chinet ------/
         sixhub ---------------------/        (davidsen@ge-crd.ARPA)

"Stupidity, like virtue, is its own reward"