| > !Run for !SuperMono

|
| A simple utility which gives halftoning from within Monochrome Screen modes, 
| ideally used within super hi-res modes, 23.
|
| Written by Dave De Vorchik
|
Set ColPresent 1
RMEnsure ColourTrans 0.51 SetEval ColPresent 0
|
IF "<System$Path>"="" AND <ColPresent> =0 THEN Error 0 ColourTrans not present and System resources cannot be found
|
RMEnsure ColourTrans 0.51 RMLoad System:Modules.Colours
RMEnsure ColourTrans 0.51 Error You need ColourTrans 0.51 or later
*UnSet <ColPresent>
|
Set SuperMono$Dir <Obey$Dir>
WimpSlot -Min 8K -Max 8K
RMEnsure SuperMonochrome 1.00 RMLoad <SuperMono$Dir>.SuperMono
Run <SuperMono$Dir>.!RunImage

