Home » Personal collection » Acorn hard disk » apps » ImagePrcss » !TWAIN/!Run

!TWAIN/!Run

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Personal collection » Acorn hard disk » apps » ImagePrcss
Filename: !TWAIN/!Run
Read OK:
File size: 04E0 bytes
Load address: 0000
Exec address: 0000
File contents
|>$.Im.!TWAIN.!Run
|
|WimpSlot -min 256K  -max 256K
|
IconSprites <Obey$Dir>.!Sprites
Set TWAIN$Path <Obey$Dir>.
Set TWAINRes$Path <Obey$Dir>.Resources.UK.
Set TWAIN$Templates Templates
RMEnsure UtilityModule  3.10 Set TWAIN$Templates Templates2
|
RMEnsure SystemDevices  1.13 Error TWAIN needs SystemDevices Module
RMEnsure SpriteUtils    1.04 Error TWAIN needs SpriteUtils Module
RMEnsure SpriteExtend   0.20 Error TWAIN needs SpriteExtension Module
RMEnsure WindowManager  2.00 Error TWAIN needs a newer Window Manager
RMEnsure FontManager    1.15 Error TWAIN needs a newer Font Manager
RMEnsure Draw           1.01 Error TWAIN needs Draw Module 1.01 or later
|
RMEnsure ResourceFS     0.00 IconSprites TWAINRes:Sprites3
|
if "<System$Path>" = "" then Error 0 System resources cannot be found
|
RMEnsure FPEmulator     2.80 RMLoad System:Modules.FPEmulator
RMEnsure FPEmulator     2.80 Error TWAIN needs FPEmulator 2.80 or later
|
RMEnsure ColourTrans    0.52 RMLoad System:Modules.Colours
RMEnsure ColourTrans    0.52 Error TWAIN needs ColourTrans 0.52 or later
|
RMEnsure SharedCLibrary 0.00 RMLoad System:Modules.CLib
RMEnsure SharedCLibrary 3.75 Error TWAIN needs SharedCLibrary 3.75 or later
|
|WimpSlot -min 256K
|Run TWAIN:!RunImage %*0 
00000000  7c 3e 24 2e 49 6d 2e 21  54 57 41 49 4e 2e 21 52  ||>$.Im.!TWAIN.!R|
00000010  75 6e 0a 7c 0a 7c 57 69  6d 70 53 6c 6f 74 20 2d  |un.|.|WimpSlot -|
00000020  6d 69 6e 20 32 35 36 4b  20 20 2d 6d 61 78 20 32  |min 256K  -max 2|
00000030  35 36 4b 0a 7c 0a 49 63  6f 6e 53 70 72 69 74 65  |56K.|.IconSprite|
00000040  73 20 3c 4f 62 65 79 24  44 69 72 3e 2e 21 53 70  |s <Obey$Dir>.!Sp|
00000050  72 69 74 65 73 0a 53 65  74 20 54 57 41 49 4e 24  |rites.Set TWAIN$|
00000060  50 61 74 68 20 3c 4f 62  65 79 24 44 69 72 3e 2e  |Path <Obey$Dir>.|
00000070  0a 53 65 74 20 54 57 41  49 4e 52 65 73 24 50 61  |.Set TWAINRes$Pa|
00000080  74 68 20 3c 4f 62 65 79  24 44 69 72 3e 2e 52 65  |th <Obey$Dir>.Re|
00000090  73 6f 75 72 63 65 73 2e  55 4b 2e 0a 53 65 74 20  |sources.UK..Set |
000000a0  54 57 41 49 4e 24 54 65  6d 70 6c 61 74 65 73 20  |TWAIN$Templates |
000000b0  54 65 6d 70 6c 61 74 65  73 0a 52 4d 45 6e 73 75  |Templates.RMEnsu|
000000c0  72 65 20 55 74 69 6c 69  74 79 4d 6f 64 75 6c 65  |re UtilityModule|
000000d0  20 20 33 2e 31 30 20 53  65 74 20 54 57 41 49 4e  |  3.10 Set TWAIN|
000000e0  24 54 65 6d 70 6c 61 74  65 73 20 54 65 6d 70 6c  |$Templates Templ|
000000f0  61 74 65 73 32 0a 7c 0a  52 4d 45 6e 73 75 72 65  |ates2.|.RMEnsure|
00000100  20 53 79 73 74 65 6d 44  65 76 69 63 65 73 20 20  | SystemDevices  |
00000110  31 2e 31 33 20 45 72 72  6f 72 20 54 57 41 49 4e  |1.13 Error TWAIN|
00000120  20 6e 65 65 64 73 20 53  79 73 74 65 6d 44 65 76  | needs SystemDev|
00000130  69 63 65 73 20 4d 6f 64  75 6c 65 0a 52 4d 45 6e  |ices Module.RMEn|
00000140  73 75 72 65 20 53 70 72  69 74 65 55 74 69 6c 73  |sure SpriteUtils|
00000150  20 20 20 20 31 2e 30 34  20 45 72 72 6f 72 20 54  |    1.04 Error T|
00000160  57 41 49 4e 20 6e 65 65  64 73 20 53 70 72 69 74  |WAIN needs Sprit|
00000170  65 55 74 69 6c 73 20 4d  6f 64 75 6c 65 0a 52 4d  |eUtils Module.RM|
00000180  45 6e 73 75 72 65 20 53  70 72 69 74 65 45 78 74  |Ensure SpriteExt|
00000190  65 6e 64 20 20 20 30 2e  32 30 20 45 72 72 6f 72  |end   0.20 Error|
000001a0  20 54 57 41 49 4e 20 6e  65 65 64 73 20 53 70 72  | TWAIN needs Spr|
000001b0  69 74 65 45 78 74 65 6e  73 69 6f 6e 20 4d 6f 64  |iteExtension Mod|
000001c0  75 6c 65 0a 52 4d 45 6e  73 75 72 65 20 57 69 6e  |ule.RMEnsure Win|
000001d0  64 6f 77 4d 61 6e 61 67  65 72 20 20 32 2e 30 30  |dowManager  2.00|
000001e0  20 45 72 72 6f 72 20 54  57 41 49 4e 20 6e 65 65  | Error TWAIN nee|
000001f0  64 73 20 61 20 6e 65 77  65 72 20 57 69 6e 64 6f  |ds a newer Windo|
00000200  77 20 4d 61 6e 61 67 65  72 0a 52 4d 45 6e 73 75  |w Manager.RMEnsu|
00000210  72 65 20 46 6f 6e 74 4d  61 6e 61 67 65 72 20 20  |re FontManager  |
00000220  20 20 31 2e 31 35 20 45  72 72 6f 72 20 54 57 41  |  1.15 Error TWA|
00000230  49 4e 20 6e 65 65 64 73  20 61 20 6e 65 77 65 72  |IN needs a newer|
00000240  20 46 6f 6e 74 20 4d 61  6e 61 67 65 72 0a 52 4d  | Font Manager.RM|
00000250  45 6e 73 75 72 65 20 44  72 61 77 20 20 20 20 20  |Ensure Draw     |
00000260  20 20 20 20 20 20 31 2e  30 31 20 45 72 72 6f 72  |      1.01 Error|
00000270  20 54 57 41 49 4e 20 6e  65 65 64 73 20 44 72 61  | TWAIN needs Dra|
00000280  77 20 4d 6f 64 75 6c 65  20 31 2e 30 31 20 6f 72  |w Module 1.01 or|
00000290  20 6c 61 74 65 72 0a 7c  0a 52 4d 45 6e 73 75 72  | later.|.RMEnsur|
000002a0  65 20 52 65 73 6f 75 72  63 65 46 53 20 20 20 20  |e ResourceFS    |
000002b0  20 30 2e 30 30 20 49 63  6f 6e 53 70 72 69 74 65  | 0.00 IconSprite|
000002c0  73 20 54 57 41 49 4e 52  65 73 3a 53 70 72 69 74  |s TWAINRes:Sprit|
000002d0  65 73 33 0a 7c 0a 69 66  20 22 3c 53 79 73 74 65  |es3.|.if "<Syste|
000002e0  6d 24 50 61 74 68 3e 22  20 3d 20 22 22 20 74 68  |m$Path>" = "" th|
000002f0  65 6e 20 45 72 72 6f 72  20 30 20 53 79 73 74 65  |en Error 0 Syste|
00000300  6d 20 72 65 73 6f 75 72  63 65 73 20 63 61 6e 6e  |m resources cann|
00000310  6f 74 20 62 65 20 66 6f  75 6e 64 0a 7c 0a 52 4d  |ot be found.|.RM|
00000320  45 6e 73 75 72 65 20 46  50 45 6d 75 6c 61 74 6f  |Ensure FPEmulato|
00000330  72 20 20 20 20 20 32 2e  38 30 20 52 4d 4c 6f 61  |r     2.80 RMLoa|
00000340  64 20 53 79 73 74 65 6d  3a 4d 6f 64 75 6c 65 73  |d System:Modules|
00000350  2e 46 50 45 6d 75 6c 61  74 6f 72 0a 52 4d 45 6e  |.FPEmulator.RMEn|
00000360  73 75 72 65 20 46 50 45  6d 75 6c 61 74 6f 72 20  |sure FPEmulator |
00000370  20 20 20 20 32 2e 38 30  20 45 72 72 6f 72 20 54  |    2.80 Error T|
00000380  57 41 49 4e 20 6e 65 65  64 73 20 46 50 45 6d 75  |WAIN needs FPEmu|
00000390  6c 61 74 6f 72 20 32 2e  38 30 20 6f 72 20 6c 61  |lator 2.80 or la|
000003a0  74 65 72 0a 7c 0a 52 4d  45 6e 73 75 72 65 20 43  |ter.|.RMEnsure C|
000003b0  6f 6c 6f 75 72 54 72 61  6e 73 20 20 20 20 30 2e  |olourTrans    0.|
000003c0  35 32 20 52 4d 4c 6f 61  64 20 53 79 73 74 65 6d  |52 RMLoad System|
000003d0  3a 4d 6f 64 75 6c 65 73  2e 43 6f 6c 6f 75 72 73  |:Modules.Colours|
000003e0  0a 52 4d 45 6e 73 75 72  65 20 43 6f 6c 6f 75 72  |.RMEnsure Colour|
000003f0  54 72 61 6e 73 20 20 20  20 30 2e 35 32 20 45 72  |Trans    0.52 Er|
00000400  72 6f 72 20 54 57 41 49  4e 20 6e 65 65 64 73 20  |ror TWAIN needs |
00000410  43 6f 6c 6f 75 72 54 72  61 6e 73 20 30 2e 35 32  |ColourTrans 0.52|
00000420  20 6f 72 20 6c 61 74 65  72 0a 7c 0a 52 4d 45 6e  | or later.|.RMEn|
00000430  73 75 72 65 20 53 68 61  72 65 64 43 4c 69 62 72  |sure SharedCLibr|
00000440  61 72 79 20 30 2e 30 30  20 52 4d 4c 6f 61 64 20  |ary 0.00 RMLoad |
00000450  53 79 73 74 65 6d 3a 4d  6f 64 75 6c 65 73 2e 43  |System:Modules.C|
00000460  4c 69 62 0a 52 4d 45 6e  73 75 72 65 20 53 68 61  |Lib.RMEnsure Sha|
00000470  72 65 64 43 4c 69 62 72  61 72 79 20 33 2e 37 35  |redCLibrary 3.75|
00000480  20 45 72 72 6f 72 20 54  57 41 49 4e 20 6e 65 65  | Error TWAIN nee|
00000490  64 73 20 53 68 61 72 65  64 43 4c 69 62 72 61 72  |ds SharedCLibrar|
000004a0  79 20 33 2e 37 35 20 6f  72 20 6c 61 74 65 72 0a  |y 3.75 or later.|
000004b0  7c 0a 7c 57 69 6d 70 53  6c 6f 74 20 2d 6d 69 6e  ||.|WimpSlot -min|
000004c0  20 32 35 36 4b 0a 7c 52  75 6e 20 54 57 41 49 4e  | 256K.|Run TWAIN|
000004d0  3a 21 52 75 6e 49 6d 61  67 65 20 25 2a 30 20 0a  |:!RunImage %*0 .|
000004e0