[comp.binaries.atari.st] v11i072: monoemu2 -- Another monochrome emulator

koreth@panarthea.ebay.sun.com (Steven Grimm) (07/04/90)

Submitted-by: uunet.UU.NET!udcps3!udcps2!vanleeuw (James Van Leeuwen)
Posting-number: Volume 11, Issue 72
Archive-name: monoemu2

-------------------------------------------------------------
Mono Emulator                                     Version 1.4 
-------------------------------------------------------------

Description:  This program will emulate a monochrome monitor
on a color system.  The screen is a lot slower, but if you're
just dying to see one of the monochrome programs, this is
the answer.  This version is compatible with Version 1.4 of
TOS.

Requirements:  Any Color ST.

Enjoy!

table
 !"#$%&'()*+,-./0123456789:;<=>?
@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_
begin 644 mono_emu.lzh
M5$(M;&@Q+0X$    !@  >WS7%"  #$U/3D]%33$T+E!21YEG5F5R<VEO;B Qz
M+C0@=&AE($UO;F\@16UU;&%T;W(@*%1/4R Q+C0@8V]M<&%T:6)L92GV:;&8y
M>1[F"> &L_>#(;CD6VB%K0:6YB, >@L 'J-WDN7<TN^U5> ;/ B>.^4YY:ZUx
M= (SD\WG&= ,WLN5]%1KTR4L>)5KX5CRQ\)Y6MA-_Q979M([JL!7\2Q'(DG_w
MFJYZG?8 +M(+#I!^4Q5C]0;#-S*8^,T$OC5H7D;0$:S+LCE$;X,4B.1.!+Y]v
MBB)T4^4*VC)'.\1*]=:(*$8*4G^P-)(?:P6[M:<YF<-"\&$5$7[Q!X0=!8S]u
M(H<DPS0J-!>S@VZQ04$2E/\\:@0;&W0<@EOR F.WY$95D"?U4% 10=EJSAO4t
M/U?;U1#2"9YU-Z;P<AO409.8>Y;Z= [1T#Y@]I9'HMXPZ7Y@5T?.$AD!YML0s
M[\VYYZ#>BGJP)\0N4NS__QC/_[A?O:L.9:J!YV%W@ 7 ODUDOM<.U5>M\G.Qr
MY1*YB)VJ+8+_I:O@;Y*ZN=T8M3P.C=Z!/<RHF[WS4CHZC);<D;?+%0S/W<"Eq
M8K*W@<]J/Y8/Z-VM*35\.6/9 _",J*M^;:W63[G \[@>4X'F(R\M=&FF5/)Op
M)C4HJH;[B.ISGSWKAF W5XYEFAO<(75=MY.95A-WFH$N@+16L\GD6?J^U5<No
M;T\W28''9-SK<'_CN?^9KJW]0W!<1*<=(@G)/AT(+<)VPVUX("6KYMCU)$+*n
M!\%R:/?)[_&V,DW6 HGYH]HB2[#R+P%L$T7<=LW3:+"=J ]5C=D4]=KBQUB m
M'[N(M\N.R=+S;/%?W<I6KL";^T9CCHT,A&V\O$;B<.:[6.79+_M9-W>X-1]Xl
M;138(K4R1[B.-<KN<L/[^-14 I+AHA,S<<^#8#/J["S:81E*JG3M_;P_S8$Sk
M<2W]KN]LL/J82?R:QFI8]!\L[[BC^P%HX_+6)CTOFS2]O,VTLG?Y7LA2&%B-j
MX464*)Q26Q9N:-YAW'G6%WDD.??6=H'% AMB*,1<FCQ4<8Q!&0%HF 49@#8=i
M^LDP#@8(R-BA[Q-)*43ZP)^7R'$X1X</PBS?BW;O[<5%T=?8Y<@)RWI?Y\VBh
M;"[NX'[S[P3 E8Z%/0=7N80+QF5YM![U_KI00OSY^(C  DYA^CXL,D[PQ[(Ug
M2/Q^OY+F3Z]R>%C!L=QOEBR&,^:G0TKL*X85?\@]G@OEAUC9,&2VAO)54UZ>f
MLNS@9X2?V=<<G^D&G<0Y0O,;NM/L7LG#JO;C7>.;RT;<H.>.98NF*)G95<COe
M7<\9H_Y\FD]^]]B4*,J8BD\,4>AK08TFF12:1_C9HYPK$LIY2NSYNFV'UDI3d
M9A).6'Q:180S79+4I[^?@UOTC?[U'"__E/1T933TH#&):4C,4] @*+O @N/6c
MG[AJ0\SY"2L?IVM)?!T?N% #(\;_/(:'CUK?:G?#([*M@?$YJ\ ,', !B !1b
M-RUL:#$MUPL    9  "C '0+(  +34].3T5-52Y$3T.ACT1O8W5M96YT871Ia
M;VX@1FEL92!F;W(@36]N;R!%;75L871O<B!697)S:6]N(#$N-)$ >#Z?7_ZRz
M, 0!A_' ^'[]X#^;W]7WMKX5W;U_E5_UGL]OM5GKZ-;X=UW.]TY0+?T^\C\Sy
MEJ"+RQ'SIEU]Y?'!P;6_%'-_E=-_$DF]XO$9\ *<2_,-EQ8=K,EK[F.MEG!@x
M,U6("P5MHMW 5O1QLU/FS:O<19@HOARPW+R$-##N6K:"@2I=H\47WTVX/&"Lw
M1K66L@911I ,?$"A'*$XJU$MN0^.NIF!"3* 9FS9 1&C]\((1!-ID!"]@$0Cv
M>"10DRB>$HL26G?J^.11GA@IP/DZ.#IB!(]X]5^\C6[9[ZG\#V0XXV@C'CB_u
M,M002!&_0!W)%AY(Z8@F+%E>KK2;U^ WCX=_7YZ?XU\%>U>0(3(C8 G1%62?t
MAYKYWG7>Q# X%60IG%@7?NH/AO62()[CKX4Q[MI57F1@Z<);O?YGOO9587<Rs
M[AOR_C_C,<IS_<W"\=:"GR<V"PRKGP.=A;HCOP.)[^E,JOF_>F1TJK_JO5L^r
MO)RS'=8)7;,HYI=E$B^CFV7;9]()%DZ\[?OO4>D+(.UUK66=,6R:2HM+?RL-q
MN%<ZX/]M+L6O"#'/0;=\BW%=-ZF/W)L0_2>@T'KB*MOEGB/UIWAF(UQB^<YEp
M_PBY21 M7ACU1<HULR%^A7Y,5#=:@44U.,>[7F0)R&0J$RFCR32ZMH*-U2,To
MBUC>\K8+VGHQBEZ&J.XQ7<X5,RTD9=XY736LB2H1/[H0JQZ/ZJ%J+IK:8Q'Vn
M:+-J*H5YP(_I(K?F2G  Z3NL@J/MR'*S D87>YN,(I--%E(J7!%+<)?C'VH3m
MS*X9V#/360?G9UPIE%DOV8K(6<CT+?2+MH4) E2^_P"X0L2?Y"#D8<X!S$I]l
M7\3*TC\K&@&D(H7PLR)&IFEEN,D?K%%Z2SX4I^_NXS'KP2?Q+_/%B=*(A[H&k
MM3'L+IS?=BD-IFWX5/'B1!\88>)8'GJ18F8P^(L"3'-5>CJ 5&QA^!\3G?\%j
MN3IE^I? 6DH5TJ>[:GW2;A8QIMT'Y/RGD_4GRF]OB1^-GD XS"IS?3.B4!NEi
MQ LM24!M;]VVJ$(LCPH<&.;)=U5W6\^ UWYUN*>3@^&M7JG*QK'(D1_5<,PHh
MW[];TK_ZJ<N9*'RRMXB5ZN#$GG%GT@>_BJP(;DB\RZ_9;V5X<D=UZ.$O!#N9g
M<]L^S=*Q%+-MR\._PT%?P62%:VF,,5K&JW_FE@!H$YD(7]L.HA08XM!S=9EHf
M\N);]"["SZ2T+.&8YACI/INR4GN(;NKL5D:'6MK8> .0_Y?9H"?"?@8Q<ZJ\e
M,1U/*XWWRX?0_IYWW_Z0#VF:</\ O?W]Q?,+WR:0.(45=.>>8DT ?6(4)T+Td
MQ5RTWOX>?:>+U^SU[N8A>2 B8H-SAE#JIIY3/9$("ZI A/SSO4)C[<\4U@L.c
M3;'NQ.JNXP1BX"G_3)>1;'F^.E-::^AS(H%PT8;P_"PL2N>.>$3(T>KP?RV]b
MW@<U/M1.$FB7J6]*UYI!]JL<,6<#PN32F6T[T7Z>.[O+S[6>OPDN&G1@Q9]Na
M!>7*ZS*Z@8'\P9D)-8.YB^OISHU\WAZY0*X.^UY'%8[%7W,S.AS<![<3RE39z
MDDD\#SI(G2W[.*7'8%M>:NY)[V0C*LB+<[9^19VHRGE/>=\U<>I[@SRQ@1^Cy
M5=;M(RPNU:I_OS+T<TB1;$+L&PZV=C^%Q^6RIFO+3W-E>U!;KK<J'/>J>?=;x
MZPFID')\GGP^$H"<OE5%Y8$"_Q+0+4JG-Q!)$?L?.>M T%,-'A'RR3:DD=PUw
M[1S<411Z"6WB1[_@>1[EV;4_SP&<K:.V;[-<=YEK6+DRYR 6=%!/>X,E#+QEv
M0O6$KC&[/R@,62IBBKVBF*9&\=C%[DNOD>?-#X('M\8OK&:V-#))NZC),]PLu
MDTNU'0"\Y"7<N76SKNM6Q $7G-5%XFM:;YJ*;5XLZ3JX2[(](VN6+HBY'C7Kt
MNA:\"$<[>QS,$;8P#D]$J]@\O7\TUZ"SO_3FJNZM?^SVHX&8CAJF4)B?F.!Is
M\::.&Q=5REQ-(A-V_99FLEUK%B!JR;UTLC+C^WN9]X86+I66ZV3%I=*OJ^'Gr
MAQU7B1X=JQ#.5,W6R+M_F-J,H[$,P46??RT92LN9S[E"9118V+X2-?]^;38Eq
MO/9.A7^Q]#[R^:"''YJTODHDG6&7S >C\**;V09D:G):@UQ*<XH,^!Z)8.+:p
MC>9 W2"EY#'OMFR/%MQ^4WTC>/S:EK>LG*N6^/#'*[E8R:#_95^5.[E9W1(8o
M_6VRMF>"TUA>90E^ZCJ\AE[7L'8RC\1Q%^VEL)/J\31&^=U >0GLF:OWBK' n
MF*X<VV87H_**>\6D3C_-33*Y@RK,1=RU]TQK#C?KK))U]>,U:3O;%<,G]1PAm
MP7^W0"U;S7*0CR4&$2!YTO!^;G^'@H\'JBJ7I0KF%X>_7I=7I:U/Y&?T3"7Fl
MG3S)L%TU>V<\Q4;Z>AE/\-6/58*GY1WM<AUW.59W6(.!,BJ$L][)+V 3#WB#k
M_(SR-EG==_YZ<M0+54J]6C?[D=CSHOFH^BWJ!&?J7,=24<-S\>H/JX#WDTL'j
M9(QGAD$YEMGA@=Z6# 6US$7)4>B\M4-^N@U(#PIQ]^U64R/C%KH(IEC N4W@i
M4+93LLW9WK CO0Z)R/Z<S,7AN4"C=3HJ,9)T5!1[MWT9B;]611EA7&Q4S6#*h
M+-/LN#_T>7SQ*71P<J9*0S^02L+.#0J="?3^)U<>?W8*:)<2-YP(GA5BE_#Bg
MAKTG]7C2LLEWWSVI^?E5/YUL*\BY7"-,W$HXVNF?:VI9OC(5*DWO[D(%\3OEf
M+@E?L_1=T(LOM47BKA<?FX(-3?LVS"LGBX2SQ59#55/JNZWU#<))SN(&N I0e
M.$*M7*BF4W5[6D2Y*B'>\*8K7N&?"9[;W#]&PWJ632R[KT%@1&';#YP%8$-Dd
MOJ7[7WM6*XD&G+VC'ATU;MSF(IZQ;C+HKO3'?@$[R_O9G9GV!D3'=;J'SA*Vc
M:UUM_'=KD],@=Y3W"?:H">%VQ:*%S5U@YX&GX 8"JS+)6B5-'5N:0-)2Y!Z!b
M?@'$-$HW7MMK@-'0.>*C"7T=HHY:YF8G8;1YD"%4Y\I//SBDW;8<%),58*0<a
M\#%)O##L .4D<?P9E9KL$],^*$[:%$YD%$&[A1I_R,U\?&:RLTS=:1*,V6V$z
MR[=N\I&W,3*D*,3+^S?(AEOO*XW6SLNL.=:)_#LYU?BZC.IBN_=&KVGQU#;3y
MIU!2>VCOOWA297N+2-,0'K3<R?]8P!2M"\'*"O(9T(XW>S$$C0;WI6E\1-+Qx
MK^H=!W$XT&#>^O>G(&2UUP&:40\'\Z/]KU'$?,K53$R>K9>NWT\2I%F>TDE.w
M#A)SRL/V[5&";,Z_1^NEM7N[E/&:9Q?/.6V%XMV^5T^U\[E9F 3G[Z6% /L_v
MU-OG>K$CDPY8\IC54A<U"B;S9H&+0W+&TJME^2+L#F],N(.)2O0'B@W\R+JTu
M*R1_>L:"6A:!!7D! @[]<4@K@BE!N1*I?O# N$^YE*H_>Z&]J]YCU5 (]B=6t
M%<P>[QM)YS;GN\C:*U@][PK74'<@;,W?\OO]PJZ.XD5(O3X2-03@^4MO+I(Hs
M+@!Y,%S\1!YAM?$B$$^;X3&PW5!\"Q]-X@R_(0VOD*0G0!UN"7RO?[.WP9[:r
MVS<<-OE._X[0:T C/+[XW2!#H@?H7]O-,>@&X7^1JV6NP+K$H7%^_[N-;>[Aq
MSWFE=YR3'>7;,UQQBMA)>!1@I37TDWM);-0S;IDO B&'=]=_,]T?;W5WQNNBp
M#>ZQ6W;[M/[>,8ZCO!XV>PK\7\R82+I![_:DT,X$ZPWO4+CO.73M9&=Z_)1.o
MU/[G_W!QK[C/T\A;W"\L>P[!]J-E,[>GZ-^Z-"^AH>(YJR:?BKFV(T[<F\#Fn
MY_M7[?22ORSX9T=YU['@^[)](OQOQY'69/VF4*N)A3GV?K#N(2^/]5XRS]D<m
MB_ZT8K,@+=Y'/6])\YOR9@W[4H,I;P1AQ8?@#& &]?%1.MAQ,@LTXY/8M5[$l
M-G=&PQQ'>#63D9ZB'*SK0HY$RY?N^)$1&"EFP8W!K/\UP374YSF#QQFN:&:_k
MN)%_-DG9( !(Q2UL:#$MQ0   .8   !4FM84(  ,5$]3,31-3T0N1$]#P"9$j
M;V-U;65N=&%T:6]N(&]F(%1/4R Q+C0@0V]M<&%T:6)I;&ET>?!]/K_]9V?Wi
M^K_!Z/Y ?Q[0"U_K5]; [5E79_?"HJX=QB48O;[]>]W7 IZ^K&Y^%)\8T*$Vh
M+BX4A0C7D2$!^&]_F9RVTV&\IHSA5'%XD5M82G5Y$]^&+69+6?\H0E[^-ZF]g
M8KN?WEKSM.@M7;4V&DY>-672>^<L3Q+<:K%146]Z*'N5'D(]$>\#+ JFLP49f
M\*#H+&(M2ETNJ.G$R%60=5_83"")Y$D,+@^O?FO_3B4B<R:,*NU&"?OURZ/Le
*]]^+1=>/$Q90 .G$d
 c
end