Home » Archimedes archive » Acorn User » AU 1997-Xmas B.adf » PD » MakeJPEG/!MakeJPEG/!Run

MakeJPEG/!MakeJPEG/!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 » Archimedes archive » Acorn User » AU 1997-Xmas B.adf » PD
Filename: MakeJPEG/!MakeJPEG/!Run
Read OK:
File size: 01D2 bytes
Load address: 0000
Exec address: 0000
File contents
| >!Run file for MakeJPEG
| A front-end for the The Independent JPEG Group applications
| � Dave Thomas, 1992-5

| OS and environment checks
|
RMEnsure UtilityModule 3.10 Error MakeJPEG needs RISC OS 3.10 or later to run.
If Wimp$State<>"desktop" Then Error MakeJPEG should only be started from the Desktop environment.

| Paths, Filetypes and Sprites
|
Obey <Obey$Dir>.!Boot

| Set the wimpslot and load
|
WimpSlot -min 40K -max 40K
Run <MakeJPEG$Dir>.!RunImage %*0
00000000  7c 20 3e 21 52 75 6e 20  66 69 6c 65 20 66 6f 72  || >!Run file for|
00000010  20 4d 61 6b 65 4a 50 45  47 0a 7c 20 41 20 66 72  | MakeJPEG.| A fr|
00000020  6f 6e 74 2d 65 6e 64 20  66 6f 72 20 74 68 65 20  |ont-end for the |
00000030  54 68 65 20 49 6e 64 65  70 65 6e 64 65 6e 74 20  |The Independent |
00000040  4a 50 45 47 20 47 72 6f  75 70 20 61 70 70 6c 69  |JPEG Group appli|
00000050  63 61 74 69 6f 6e 73 0a  7c 20 a9 20 44 61 76 65  |cations.| . Dave|
00000060  20 54 68 6f 6d 61 73 2c  20 31 39 39 32 2d 35 0a  | Thomas, 1992-5.|
00000070  0a 7c 20 4f 53 20 61 6e  64 20 65 6e 76 69 72 6f  |.| OS and enviro|
00000080  6e 6d 65 6e 74 20 63 68  65 63 6b 73 0a 7c 0a 52  |nment checks.|.R|
00000090  4d 45 6e 73 75 72 65 20  55 74 69 6c 69 74 79 4d  |MEnsure UtilityM|
000000a0  6f 64 75 6c 65 20 33 2e  31 30 20 45 72 72 6f 72  |odule 3.10 Error|
000000b0  20 4d 61 6b 65 4a 50 45  47 20 6e 65 65 64 73 20  | MakeJPEG needs |
000000c0  52 49 53 43 20 4f 53 20  33 2e 31 30 20 6f 72 20  |RISC OS 3.10 or |
000000d0  6c 61 74 65 72 20 74 6f  20 72 75 6e 2e 0a 49 66  |later to run..If|
000000e0  20 57 69 6d 70 24 53 74  61 74 65 3c 3e 22 64 65  | Wimp$State<>"de|
000000f0  73 6b 74 6f 70 22 20 54  68 65 6e 20 45 72 72 6f  |sktop" Then Erro|
00000100  72 20 4d 61 6b 65 4a 50  45 47 20 73 68 6f 75 6c  |r MakeJPEG shoul|
00000110  64 20 6f 6e 6c 79 20 62  65 20 73 74 61 72 74 65  |d only be starte|
00000120  64 20 66 72 6f 6d 20 74  68 65 20 44 65 73 6b 74  |d from the Deskt|
00000130  6f 70 20 65 6e 76 69 72  6f 6e 6d 65 6e 74 2e 0a  |op environment..|
00000140  0a 7c 20 50 61 74 68 73  2c 20 46 69 6c 65 74 79  |.| Paths, Filety|
00000150  70 65 73 20 61 6e 64 20  53 70 72 69 74 65 73 0a  |pes and Sprites.|
00000160  7c 0a 4f 62 65 79 20 3c  4f 62 65 79 24 44 69 72  ||.Obey <Obey$Dir|
00000170  3e 2e 21 42 6f 6f 74 0a  0a 7c 20 53 65 74 20 74  |>.!Boot..| Set t|
00000180  68 65 20 77 69 6d 70 73  6c 6f 74 20 61 6e 64 20  |he wimpslot and |
00000190  6c 6f 61 64 0a 7c 0a 57  69 6d 70 53 6c 6f 74 20  |load.|.WimpSlot |
000001a0  2d 6d 69 6e 20 34 30 4b  20 2d 6d 61 78 20 34 30  |-min 40K -max 40|
000001b0  4b 0a 52 75 6e 20 3c 4d  61 6b 65 4a 50 45 47 24  |K.Run <MakeJPEG$|
000001c0  44 69 72 3e 2e 21 52 75  6e 49 6d 61 67 65 20 25  |Dir>.!RunImage %|
000001d0  2a 30                                             |*0|
000001d2