[comp.binaries.ibm.pc] CGA simulation on Hercules

davidsen@crdos1.UUCP (07/28/87)

There has been a lot of talk about this program, but I haven't
seen it on the net. This allows CGA software (most of it) to
run on a Hercules card or most of the cheap H-clones included in
various low priced PCs.

I have tried it on a real Hercules board in a real PC, and it allowed
me to run real BASICA programs. I also tried it on a clone with a QuickBasic
program and that worked.

It does graphics including simulating colors with grey scale. I did
*not* write it, send me no thanks, and no questions.

bill davidsen		(wedu@ge-crd.ARPA)
{uunet | philabs | seismo!rochester}!steinmetz!crdos1!davidsen
"Stupidity, like virtue, is its own reward" -me
--- cut here ---
begin 644 cga.arc
M&@A04D]#3TU-+DQ/1P D100  *X.NW8ORQT(   ,=/* V.*B#)TQ7=B\00 "
M 4,$=> H#$/&Q9@W;1HH(!%"(T<0(").) /B8ILV8=R0\1@"I) T;-B (!+&
M3AHR<\JX =$"1! X<F""B)$#QPV6()F$F4,'A)PR-G.2;!)&(%&C++-N;)FS
M#(@T9D"$ 4$GS!JO9F!Z12E0C-<W<'266;GQ:U@1)TY B7%"!(B"<>:X "'"
M+QTT.D&<>4/G#8@R<N2\D1-#Z\>N=LDB!I&6C=<R>-(PG>,1!%R=+YY2? %9
M3@\GC*O "0FGLU>"(M]0G--%;^6Z8Q3FI&V[])V@=+S.R3.'Q)LZ=.! )VQ$
M+8B\>T^ 0+,4A-O$N2G.%<M&-9D\(DHO;OPX-!W++<74@4GRL%<19<_Z+;X1
M-AW9.I1FAAMAM%&&#CT01$<;</2V5VFGN?'"<6DDQUIDK[U!A5E>T1'6"0,6
M6(9QR'5X5TY-V496'G%YEP:!<J!'8H4F$O;4& .Y$!Y.O?G65VG!O3&<AZ6=
M)4<;%8( !(@$&E@:&67(Q*2(.Z@ GU-E4*295V*P48<<8IBVTV&BB3EB71%.
M6.*%KL%&Q!LXDA$6063 Z>!O)(! 87(@+-?<<]%-)T(1;B0GAUA]HC%94U#.
M,490<-"1QAL[O1$6F7-PIA8+Z=6UIW+,.0>==$V)\&)P=9#QXAD@Y/'<H4UZ
ME1))9%0EJ8$@P*&H&V5TFN>G?88***F$$4K2'16B <(0A;+1@A:^=K05" K!
M199CYH%0YQAU&%AH&))2ZM&;8S#Q!EP!UF4>:RKU0*ZQF?I)0FN3D??BF;^6
MJ.U=>87!QKT_UK6>8^2:"]>X<,*;;IY!#B>G>HPY!EJ%5YHQ&4I-T2N'1QK'
ML+">^LH[K*!&7 RN#KZ"3&.P?XXJ*$@[@L"#;;'ZD/+ [5&\%5)(SC''JIIZ
MQG%DD\GP,; BNUQJ$40?VI.*V/&E[1ME9.H&8SDS=7/$.;^W\[1CI'1"4X]F
MR6=^:*GE$6P;GG5TR,(J35@5!';9H6-E@]OA9F-SJ)UM6[,WL=<<(652&Y1V
MS;%['PN09T Y&H30CA9AA  D"M1YQTB5M^$&YR9=.?4=G^M&TN&S(@7"2S'-
M5---.>W4TT]!R73545_G"19A4??U5QF!#5;8ECOAW#&$<4FX;FL]:"P#654W
MY1N0PG48_97RT;<E86COIW9=(1J(H((,WHD\:I^RF6';-4[II*?Z>D@8BD%W
MR"*7+X818\K RB]"["3I7<H:9J(B009)35E2^/"EK2A=9X%5@IC@W%,QDV6L
M:4.3#&7>MK*D!:I4)3O2R?@'MY9]D# @T5SIM#0SM=0L<!*C8.Y:TK.?N8%5
M_)E7TXPV(SYYD%B#:AI/ZG<='TVM:B"X6L9"HS4)QE!GA0.;V,BFFK-QJ'YK
MTQ"'..C#N)U0!'0+@]VN59(J[LTK?3O+W]0"0\7-L"080=Q.!K>X"GT,&@)3
M151#1T$N0T]- "0D!P   "H-W5Y3R <   "X @#-$,T@&@)3151-3TY/+D-/
M30 D!P   "H-ZEY3G0<   "X!P#-$,T@&@A324U#1T$N0T]- "0D%0(  "L-
MIE#XW&H"   ,ZWY  M!  8@A;^#DD9/F#!HZ(% ,20$B1@X<-D"(R7/0!0@H
M'H_4T9-F#HB"&@! J@""5KQF$'JH4E5'0#,0NGX-@#7 G8<9P!QATQ<*!  7
MHU8$""7BZ*@6 1H9"!5@E%%&#IJ& N+TQ5(A3F-$-;!%P"BN6,'N P6! (EG
M#$"(:OL!EP  ,!M94#.@V0E]2&<$<,'(P(X Y$(P"& NQ#Z@CH"9 .0C"8$#
M=*Q,KDR @!PGA#WT&)S(Q@W2/G*0=E!C\"(;/P(L\A?H&  0N0 0P 4 5V2A
M_.:5"N0/ ) Z WS==E$ZMHM%K%VG=FUZL"/1U@T'T)>8A+_&^UR$$NSBGPNE
M4:!<,9 ;"&]8D6?\PP7B0?!5![Y@R3(L_?KVO/D&C'R+''-??OL- P@_\=2Q
MVTS/$$(.'064YX)7/!R 7#J" ,"#9S% \5-0V+#E%EQRT84.* !@P4EY'G@%
MQ12T++ +  "\^$^, :!SR#_H=/+/%E@\(R)D);;U%@,PS$7 !U+H@LM.(+BC
M!2X'Y BC5^AP :0<_T2I$T_N2+D3(E:.*)2)2Z9(@#$&6"; !T7JHV:2)S+I
MI)@[]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< MP%
M !H(4TE-0T=!+D1/0P D)*L%  "M#DQ[=KTO"0  #" "@IB2I,F0(T% M!B8
MIDT=-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((W7TI)GS
ME$&,&C- .'DC)^/(.G+@H,D#(HB=,BZZ3JGCQDT>.V'8E&%!,2&('#1@*)5)
M6 $5-%M!L&Q#-D\+.2'3D"GCA@Z(.G32L,'(-B^;-W=$YGE3!P2=-R!$F'GS
MAHT(Q6_F6)[SQ@R=.R\G0HY3)TU.-V=DAJ'8FNQ5.6'4IADC,@B9Y!+E]*R,
MNLX<GV= C$:[L>-'O2)1&!^S$D[$-&+TIH!MLH5,E"I9@@CS7*A1GZ;13#R#
M7#ESV).Y$- 1_2'V7T-AG!'2?)"! !D<*I%!51DQ*8"?27*TD==\<\!1QAB6
M(9?9&WQ9AQV'BE&E46WY310&7IJ%D=Y$<XP!&64,EC%<&%Q9*!(<L5TW8UPS
M&::?:3E5==D<%(*@7X.)G08"A&_P%T8;+6YTQ!"FH4;&5G! Q!9C#6[FQH(L
MSB"3F0MZ*!U*+X4!HE&9R>>3;#J2 0*+-(" PF$M(03"EQV**9(,*0C8%@A,
MRF''<F7(I!)F/DV$!FMK-.F3E!E9^A(9N#58YWV5=21''4+YN2D(.*Q''AQI
MH'DF"&S*Q.F1&?FF)Z%AAI%'DVQV"<(9:;PU'PAF:*87&2V09AF""A(I$Z"*
ME9'1&WI:U^23$]U!UAHBA>&&GI#-\1 =(N%'FWS:FO$0".1])IV5CM68%W8L
MR"0&9CU91L8;"Z+QHHO(EG&'8CX91P9R=X@A)[@*%2;048I.X=,8$W4*[QMP
ML,5Q1^>5M.<8'\F1+D^0Y=7"J!N[43)DE8%PD5F=/H4 KV+RM>Y$(IQQJ6S8
MO28R8X\"UY.&"J9[<AF/TB&C7M(J,+$,%5^<\9'03I18&7B8-VZ3;Y6UG&=L
M-774"S+HK"$;;-!:Z:#6AJ%9CS4A<!';3+EHAAD?2J2GV1H'^V\=Z9TH$4IN
MI,$;7 $=EEABC,G&AE-2VR3N?"%UFMD8\]7U1A[B8ASUQ#,H>EAL$U&Z668+
MWF&@1B*D3,9K&E?D8!G$XFGR?);!, ,9?5K+:!EQ$%EW;L.^83AJR8X+@DFW
MYQZ=2%+*;CIB(OV[H$FSE5$&EJ?9',;>?2LF+EM46MG&'*,+1(.B@>$A0PVF
M<6T98Y/U)!+WC*(*9%E-6HC&! :34$U$#=9YUAS<< ++= HRQK.)XT2"/ZU1
M,#D>TM.F4(,#&,B/?N+24X+DY@:^:&^!#1S>]X0EAC<\T&8:LLME,K.Z6+%/
M8@*I@:*NH!^>X$<B>+@?MB:"@@J*! 9\B0%?9- Y/<T@!7S1&(;6QIZ3I&0E
MD:H< N"$G#E))R)TR,F^)!*N!O'O17*#R(P4DI_'A6M**ID1EF:&!IMI##=L
MT1@2MN2D$((G2V 4(V8FLIC&F \.49-)%'HCD6/Q[6#I0\[Z^FBLHN"(C'[C
MR\784(<O&<T(F_&992SF$(B<1@Y\@<(06C"$(! A7PH00A (TLHF,@J+P[I2
MZS"B$>@AA@XH"4G4)CBEAR5H(N2I# FIEQ+OP;%*DA3)0@AB$(3P90I%H$)%
MKIG-)CS!"4^H6$$J(I,H':F0<G!,N21#&<N8IRRV=(AL\N8@NN1M-:(ZDNVN
M4\J0N4$F?(L(6BPX'QBI$6H!P285O E.F2GK=K(AR]4(61(KQJ<,S7+#Y !4
MAAW(1*&VNUO;RB4\VY&G#>;)C!@TPYGYV,8HPU$H0\,9D"28H8TB"2@=!EI.
MD6B+7,ZJU.3XLAV$B5)FXG(@:N# KUR=3#NDD4X0JD"%)Q0!"T48@@MD205D
K:68B[BE2W:A)3BW*])M/*$P(6X0R>\8TFR'M(51+<Z8FU4Y0.ATHD0 :  ndoj.A 'p