Path: utzoo!mnetor!uunet!steinmetz!davidsen From: davidsen@steinmetz.steinmetz.UUCP (William E. Davidsen Jr) Newsgroups: comp.sys.ibm.pc Subject: Re: wanted HERC->CGA program Message-ID: <9300@steinmetz.steinmetz.UUCP> Date: 22 Jan 88 19:17:29 GMT References: <39500006@pyr1.cs.ucl.ac.uk> Reply-To: davidsen@kbsvax.steinmetz.UUCP (William E. Davidsen Jr) Organization: General Electric CRD, Schenectady, NY Lines: 107 In article <39500006@pyr1.cs.ucl.ac.uk> ajoseph@pyr1.cs.ucl.ac.uk writes: > >Hi, I'm sure I've seen messages on emulating CGA graphics in mono using >herculies graphics. Could anyone tell me where I can get a PD version of >a program to do this, many thanks Here is a program which works well enough to run real BASICA on Herculae with four "colors," in dither, even. I can't believe that this posting of 50 lines will take as much bandwidth as all the people who will post messages saying "please mail me a copy." Here it is with support routines and source. begin 644 simcga.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-'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$>3;#J2`0*+-("`PF$M(03"EQV**9(,*0C8 M%@A,RF''&&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[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$+@?MB:"@@J*!`9\B0%?9-`Y/@AA@XH"4G4)CBEAR5H(N2I#`FIEQ+OP;%*DA3)0@AB$(3P90I% MH$)%KIG-)CS!"4^H6$$J(I,H':F0;)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+-3(=CWK`1\^8-'1=AYK19*:4(E2]&G(``429.G88%:`Q!TK#" M#A%RRM"I(\<-"#IO0)!Y,T<$"#-UW(S9^<;LF#!LV.1&&'D3*HR$F(5( M1&C,$4#B:*6!\)(<8:A81W%IC`'""62@%L8)*S4QQ1$Q6(<=)`:H]6.04(0UAVYAN)$'"&N4L2=:_XG5D7YGOD%&&3J`X&5##^QP M1Q@\G5G@'#"5L=(0^L$Y57I`?NG7`(/NAU)((#AA&`@8X6>$$444!,*G5<9P MI4U:TMHEC@H(\<03;^XH9W8GU#DI?AEM!$(:9H"0QQM7!3@':X!.:5J+9K#Q M!AQP[.G&9HEZ>>E!1LAP'J<&R+JEN;9ZJT!33PUATJ]`PM!0"#N4(8<(45 M!AE[AF::&'NNI9NU0]M[&8-TP&&:0W#@*Z/'9@375;VER;$G'&^DD:(9^+:A M%EO<-?&&'5B%@0<+(RH(201A"EJ'F4.382>E])U,QY]OI+TV5@ZRX'9#$U1( M!X%JV1CH&2C2P9W+,,ND%LUQJ\E21H?>DQ*7A M-^"">UY`@8;C@;CBC%M[Q^.13WYGY5,5J(/HGD4(,66#F8ZZ&4EBNE\92S9) MEQM\':\QYX,W1\;;;YAAANEP]@@)956_<0:+9N\L1YF2WEEI[&VCP0(,.;`& MB6M5BVV:F,*YH7E+24A1&$!>68PN0:UC0WS,\-J&D(WT^GNA7D0 M0W%D`B@<<"=)0$HB#,+#G2-B98F&XQ6$,9SA)`18`A$V<8'/(,[\;F,%^C;*3H+85 M,)]H;0YC"`MI0$`?TZ#`#&FPG1CJ<(8?A#)$$A(,)`Z0%)\Y\C1.9*0<'&DV M7?&J>A@3)0(Z1SCN><]TSM-4H0\&OE/.K'RKSER+^ MB>U_R0G@U`I`0`->M`#;8T'WOB?-D M5Q6D(!4J5,$I>YV#%@>($B M/LD`5"A*UUV,VH$=\&*P[)+SF"XKPP0!92]\R4%?#DWM2`G(E=82\[H``Y32 M5@(UJ9UG8;+D0(504)O