[comp.sys.ibm.pc] CGASIM - I give, I give

davidsen@steinmetz.steinmetz.UUCP (William E. Davidsen Jr) (09/08/87)

I have received so many requests for this that I'm going to post it.
This allows display of CGA graphics on a Hercules (or most clones). It's
good enough to run BASICA, and does enulation of colors using texture.
To all the people I referred to a BBS, sorry, but I only got ten
requests the first day.

I thought I had source for this, but I can't find it.

begin 644 cgasim.arc
M&@)3151#1T$N0T]- "0D!P   "H-W5Y3R <   "X @#-$,T@&@)3151-3TY/
M+D-/30 D!P   "H-ZEY3G0<   "X!P#-$,T@&@A324U#1T$N0T]- "0D%0( 
M "L-IE#XW&H"   ,ZWY  M!  8@A;^#DD9/F#!HZ(% ,20$B1@X<-D"(R7/0
M!0@H'H_4T9-F#HB"&@! J@""5KQF$'JH4E5'0#,0NGX-@#7 G8<9P!QATQ<*
M!  7HU8$""7BZ*@6 1H9"!5@E%%&#IJ& N+TQ5(A3F-$-;!%P"BN6,'N P6!
M (EG#$"(:OL!EP  ,!M94#.@V0E]2&<$<,'(P(X Y$(P"& NQ#Z@CH"9 .0C
M"8$#=*Q,KDR @!PGA#WT&)S(Q@W2/G*0=E!C\"(;/P(L\A?H&  0N0 0P 4 
M5V2A_.:5"N0/ ) Z WS==E$ZMHM%K%VG=FUZL"/1U@T'T)>8A+_&^UR$$NSB
MGPNE4:!<,9 ;"&]8D6?\PP7B0?!5![Y@R3(L_?KVO/D&C'R+''-??OL- P@_
M\=2QVTS/$$(.'064YX)7/!R 7#J" ,"#9S% \5-0V+#E%EQRT84.* !@P4EY
M'G@%Q12T++ +  "\^$^, :!SR#_H=/+/%E@\(R)D);;U%@,PS$7 !U+H@LM.
M(+BC!2X'Y BC5^AP :0<_T2I$T_N2+D3(E:.*)2)2Z9(@#$&6"; !T7JHV:2
M)S+II)@[]60F+%6BT\(_.>T$@#O[8*GECEP&\(\6'Q@9!9]DPB* F672,D N
M#  @ SF-V.#% /PH0HP[0KC BCM*^$.,./3 H@BF6F2!Q3 UH.#" 7D(0,8<
M MP% !H(4TE-0T=!+D1/0P D)*L%  "M#DQ[=KTO"0  #" "@IB2I,F0(T% 
MM!B8IDT=-F'HE %Q,.&=-'30@$!21LZ8AV7F@&CRQLV;,6CDO&DS<4@8.60:
M*) ) A*"*W(P2G0#(@W/*67@2&PCIB.(&#EPV  A)@]-2 R&H*DS9@V((W7T
MI)GSE$&,&C- .'DC)^/(.G+@H,D#(HB=,BZZ3JGCQDT>.V'8E&%!,2&('#1@
M*)5)6 $5-%M!L&Q#-D\+.2'3D"GCA@Z(.G32L,'(-B^;-W=$YGE3!P2=-R!$
MF'GSAHT(Q6_F6)[SQ@R=.R\G0HY3)TU.-V=DAJ'8FNQ5.6'4IADC,@B9Y!+E
M]*R,NLX<GV= C$:[L>-'O2)1&!^S$D[$-&+TIH!MLH5,E"I9@@CS7*A1GZ;1
M3#R#7#ESV).Y$- 1_2'V7T-AG!'2?)"! !D<*I%!51DQ*8"?27*TD==\<\!1
MQAB6(9?9&WQ9AQV'BE&E46WY310&7IJ%D=Y$<XP!&64,EC%<&%Q9*!(<L5TW
M8UPS&::?:3E5==D<%(*@7X.)G08"A&_P%T8;+6YTQ!"FH4;&5G! Q!9C#6[F
MQH(LSB"3F0MZ*!U*+X4!HE&9R>>3;#J2 0*+-(" PF$M(03"EQV**9(,*0C8
M%@A,RF''<F7(I!)F/DV$!FMK-.F3E!E9^A(9N#58YWV5=21''4+YN2D(.*Q'
M'AQIH'DF"&S*Q.F1&?FF)Z%AAI%'DVQV"<(9:;PU'PAF:*87&2V09AF""A(I
M$Z"*E9'1&WI:U^23$]U!UAHBA>&&GI#-\1 =(N%'FWS:FO$0".1])IV5CM68
M%W8LR"0&9CU91L8;"Z+QHHO(EG&'8CX91P9R=X@A)[@*%2;048I.X=,8$W4*
M[QMPL,5Q1^>5M.<8'\F1+D^0Y=7"J!N[43)DE8%PD5F=/H4 KV+RM>Y$(IQQ
MJ6S8O28R8X\"UY.&"J9[<AF/TB&C7M(J,+$,%5^<\9'03I18&7B8-VZ3;Y6U
MG&=L-774"S+HK"$;;-!:Z:#6AJ%9CS4A<!';3+EHAAD?2J2GV1H'^V\=Z9TH
M$4INI,$;7 $=EEABC,G&AE-2VR3N?"%UFMD8\]7U1A[B8ASUQ#,H>EAL$U&Z
M668+WF&@1B*D3,9K&E?D8!G$XFGR?);!, ,9?5K+:!EQ$%EW;L.^83AJR8X+
M@DFWYQZ=2%+*;CIB(OV[H$FSE5$&EJ?9',;>?2LF+EM46MG&'*,+1(.B@>$A
M0PVF<6T98Y/U)!+WC*(*9%E-6HC&! :34$U$#=9YUAS<< ++= HRQK.)XT2"
M/ZU1,#D>TM.F4(,#&,B/?N+24X+DY@:^:&^!#1S>]X0EAC<\T&8:LLME,K.Z
M6+%/8@*I@:*NH!^>X$<B>+@?MB:"@@J*! 9\B0%?9- Y/<T@!7S1&(;6QIZ3
MI&0ED:H< N"$G#E))R)TR,F^)!*N!O'O17*#R(P4DI_'A6M**ID1EF:&!IMI
M##=LT1@2MN2D$((G2V 4(V8FLIC&F \.49-)%'HCD6/Q[6#I0\[Z^FBLHN"(
MC'[CR\784(<O&<T(F_&992SF$(B<1@Y\@<(06C"$(! A7PH00A (TLHF,@J+
MP[I2ZS"B$>@AA@XH"4G4)CBEAR5H(N2I# FIEQ+OP;%*DA3)0@AB$(3P90I%
MH$)%KIG-)CS!"4^H6$$J(I,H':F0<G!,N21#&<N8IRRV=(AL\N8@NN1M-:(Z
MDNVN4\J0N4$F?(L(6BPX'QBI$6H!P285O E.F2GK=K(AR]4(61(KQJ<,S7+#
MY !4AAW(1*&VNUO;RB4\VY&G#>;)C!@TPYGYV,8HPU$H0\,9D"28H8TB"2@=
M!EI.D6B+7,ZJU.3XLAV$B5)FXG(@:N# KUR=3#NDD4X0JD"%)Q0!"T48@@MD
M205D:68B[BE2W:A)3BW*])M/*$P(6X0R>\8TFR'M(51+<Z8FU4Y0.ATHD0 :
!  5D
 
end

-- 
	bill davidsen		(wedu@ge-crd.arpa)
  {uunet | philabs | seismo}!steinmetz!crdos1!davidsen
"Stupidity, like virtue, is its own reward" -me