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