| > !Run

|
| Computer Concepts ScanLight-Plus v1.12
| --------------------------------------
|
| (c)1990 Computer Concepts Limited.
|
| All rights reserved.
|

Set Scanner$Dir <Obey$Dir>

If "<Scanner$Options>"="" Then Set Scanner$Options -outputs 16 -sampling 4 -originalview -originalscale 100 -alteredscale 100 -alteredangle 0 -file <Scanner$Dir>.Settings -halftone

IconSprites <Scanner$Dir>.!Sprites

Set File$Type_D8C Settings

Set IRQutils$ "poo"
RMEnsure UtilityModule 2.01 Set IRQutils$ "foo"
If IRQutils$="foo" Then RMEnsure IRQUtils 0.12 RMLoad <Scanner$Dir>.Modules.IRQUtils
UnSet IRQutils$

RMEnsure Hourglass 2.02 RMLoad <Scanner$Dir>.Modules.Hourglass
RMEnsure SoundScheduler 1.13 RMLoad <Scanner$Dir>.Modules.Sound2
RMEnsure ColourTrans 0.51 RMLoad <Scanner$Dir>.Modules.Colours
RMEnsure ImageExtend 0.71 RMLoad <Scanner$Dir>.Modules.ImageExtnd

|
| Now we must install the new scanner drivers, including the SAM module.
| We must decide which podule the user had originally and load in the
| appropriate modules.
|

RMEnsure SAM 1.00 RMLoad <Scanner$Dir>.Drivers.!Sam

Set ScanSenior$  "foo"
Set ScanSenior$2 "foo"
Set ScanJunior$  "foo"

RMEnsure ScanLight 0.00 Set ScanSenior$ "poo"
RMEnsure ScanLight2 0.00 Set ScanSenior$2 "poo"
RMEnsure ScanJunior 0.00 Set ScanJunior$ "poo"

IF ScanSenior$2="foo" THEN RMEnsure ScannerMH216AF 0.50 RMLoad <Scanner$Dir>.Drivers.!MH216AF
IF ScanSenior$2="foo" THEN RMEnsure ScannerMH216CG 0.50 RMLoad <Scanner$Dir>.Drivers.!MH216CG
IF ScanJunior$ ="foo" THEN RMEnsure ScannerMH105AG 0.50 RMLoad <Scanner$Dir>.Drivers.!MH105AG
IF ScanJunior$ ="foo" THEN RMEnsure ScannerMH105AL 0.64 RMLoad <Scanner$Dir>.Drivers.!MH105AL/6
IF ScanJunior$ ="foo" THEN RMEnsure ScannerMH105F 0.50 RMLoad <Scanner$Dir>.Drivers.!MH105F
IF ScanJunior$ ="foo" THEN RMEnsure ScannerHS3000 0.50 RMLoad <Scanner$Dir>.Drivers.!HS3000
IF ScanSenior$ ="foo" THEN RMEnsure ScannerFaxPack 0.53 RMLoad <Scanner$Dir>.Drivers.!FaxPack

UnSet ScanSenior$
UnSet ScanSenior$2
UnSet ScanJunior$

WimpSlot -Min 72K

If "<Wimp$Scrap>"="" Then Set Wimp$Scrap <Scanner$Dir>.ScrapFile

Run <Scanner$Dir>.!RunImage