|
| Startup file for DPlngScan
|
If "<Boot$OSVersion>" >= "500" Then IconSprites <Obey$Dir>.5Sprites Else If "<Boot$OSVersion>" >= "400" Then IconSprites <Obey$Dir>.4Sprites Else IconSprites <Obey$Dir>.!Sprites
|
Obey <Obey$Dir>.!BInstall
|
WimpSlot -min 1200K -max 1200K
|
RMEnsure ResourceFS 0.00 IconSprites <Obey$Dir>.Resources.Sprites3
|
If "<System$Path>" = "" then Error 0 System resources cannot be found
|
|
RMEnsure UtilityModule 3.10 Error This application requires RISC OS 3.10 or later
RMEnsure UtilityModule 3.70 RMEnsure CallASWI 0.02 RMLoad System:Modules.CallASWI
RMEnsure UtilityModule 3.70 RMEnsure CallASWI 0.02 Error This application requires CallASWI 0.02 or later
RMEnsure FPEmulator 4.03 RMLoad System:Modules.FPEmulator
RMEnsure FPEmulator 4.03 Error This application requires FPEmulator 4.03 or later
RMEnsure SharedCLibrary 5.17 RMLoad System:Modules.CLib
RMEnsure SharedCLibrary 5.34 Error This application requires SharedCLibrary 5.34 or later
|
|
Set DPlngScan$Dir     <Obey$Dir>
Run <DPlngScan$Dir>.Resources.RunBInst2
|
Run <DPlngScan$Dir>.Resources.Resfind DPlngScan

Set DPlngScan$Templates Templates
|
| If we are on RISC OS 5 we use the app wimp slot for all memory claims
| For other OS versions we use dynamic area for the flex stack
|
If "<Boot$OSVersion>" >= "600" Then SetEval DPlngScan$Memory -1 Else If "<Boot$OSVersion>" >= "500" Then SetEval DPlngScan$Memory -2 Else SetEval DPlngScan$Memory -1
|
Set DPlngScan$Scrap <Wimp$ScrapDir>

|Set DPlngScan$Debug 1
|
Set DPlngScan$Printfile Printer:
|
IF <DPlngScan$Memory> = -2 Then WimpSlot -min 2248K Else WimpSlot -min 1200K -max 1200K
|
X IfThere  <DPlngScan$Dir>.^.!TWAIN Then run <DPlngScan$Dir>.^.!TWAIN
|
Run "<DPlngScan$Dir>.!RunImage" %*0
