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"