🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: net.micro.pc
Article #7661

EGA programs - archive

#7661
From: Davidsen
Date: Mon, 11 Aug 1986 19:18
148 lines
8855 bytes
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"
Technical Details
Message-ID: <884@kbsvax.steinmetz.UUCP>
Path: arc1-ca.pugleaf.net!utzoo!mnetor!seismo!gatech!akgua!mcnc!ncsu!uvacs!edison!steinmetz!davidsen

Show Full Headers
Complete Article Headers
Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: arc1-ca.pugleaf.net!utzoo!mnetor!seismo!gatech!akgua!mcnc!ncsu!uvacs!edison!steinmetz!davidsen
From: davidsen@steinmetz.UUCP (Davidsen)
Newsgroups: net.micro.pc
Subject: EGA programs - archive
Message-ID: <884@kbsvax.steinmetz.UUCP>
Date: Mon, 11-Aug-86 15:18:08 EDT
Article-I.D.: kbsvax.884
Posted: Mon Aug 11 15:18:08 1986
Date-Received: Thu, 14-Aug-86 22:08:09 EDT
Organization: General Electric CRD, Schenectady, NY
Lines: 148
Keywords: ega, pc, archive