Home » Archimedes archive » Acorn User » AU 1996-10 B.adf » Hilighter » !Hilighter/!Run

!Hilighter/!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 1996-10 B.adf » Hilighter
Filename: !Hilighter/!Run
Read OK:
File size: 039C bytes
Load address: 0000
Exec address: 0000
File contents
unset Hilighter$CopyDefaultTools
|
| !Run file for Hilighter V1.00 - 10/10/91
| Copyright � Sherston Software 1991
|
| Comment out the following line if you do not want default
| sprites/drawfiles copied automatically into new folders.
|
set Hilighter$CopyDefaultTools OK
|
|
IconSprites <Obey$Dir>.!Sprites
SET Hilighter$Dir <Obey$Dir>
*WimpSlot -min 100k -max 100k
|
if "<System$Path>" = "" then Error 0 System resources cannot be found
|
RMEnsure Draw 1.01 Error You need Draw 1.01 or later
|
RMEnsure SharedCLibrary 3.75 RMLoad System:Modules.Clib
RMEnsure SharedCLibrary 3.75 Error You need Clib 3.75 or later
|
RMEnsure FPEmulator 2.70 RMLoad System:Modules.FPEmulator
RMEnsure FPEmulator 2.70 Error You need FPEmulator 2.70 or later
|
RMEnsure ColourTrans 0.51 RMLoad System:Modules.Colours
RMEnsure ColourTrans 0.51 Error You need ColourTrans 0.51 or later
|
*WimpSlot -min 400K
*Run <Hilighter$Dir>.!RunImage %*0


00000000  75 6e 73 65 74 20 48 69  6c 69 67 68 74 65 72 24  |unset Hilighter$|
00000010  43 6f 70 79 44 65 66 61  75 6c 74 54 6f 6f 6c 73  |CopyDefaultTools|
00000020  0a 7c 0a 7c 20 21 52 75  6e 20 66 69 6c 65 20 66  |.|.| !Run file f|
00000030  6f 72 20 48 69 6c 69 67  68 74 65 72 20 56 31 2e  |or Hilighter V1.|
00000040  30 30 20 2d 20 31 30 2f  31 30 2f 39 31 0a 7c 20  |00 - 10/10/91.| |
00000050  43 6f 70 79 72 69 67 68  74 20 a9 20 53 68 65 72  |Copyright . Sher|
00000060  73 74 6f 6e 20 53 6f 66  74 77 61 72 65 20 31 39  |ston Software 19|
00000070  39 31 0a 7c 0a 7c 20 43  6f 6d 6d 65 6e 74 20 6f  |91.|.| Comment o|
00000080  75 74 20 74 68 65 20 66  6f 6c 6c 6f 77 69 6e 67  |ut the following|
00000090  20 6c 69 6e 65 20 69 66  20 79 6f 75 20 64 6f 20  | line if you do |
000000a0  6e 6f 74 20 77 61 6e 74  20 64 65 66 61 75 6c 74  |not want default|
000000b0  0a 7c 20 73 70 72 69 74  65 73 2f 64 72 61 77 66  |.| sprites/drawf|
000000c0  69 6c 65 73 20 63 6f 70  69 65 64 20 61 75 74 6f  |iles copied auto|
000000d0  6d 61 74 69 63 61 6c 6c  79 20 69 6e 74 6f 20 6e  |matically into n|
000000e0  65 77 20 66 6f 6c 64 65  72 73 2e 0a 7c 0a 73 65  |ew folders..|.se|
000000f0  74 20 48 69 6c 69 67 68  74 65 72 24 43 6f 70 79  |t Hilighter$Copy|
00000100  44 65 66 61 75 6c 74 54  6f 6f 6c 73 20 4f 4b 0a  |DefaultTools OK.|
00000110  7c 0a 7c 0a 49 63 6f 6e  53 70 72 69 74 65 73 20  ||.|.IconSprites |
00000120  3c 4f 62 65 79 24 44 69  72 3e 2e 21 53 70 72 69  |<Obey$Dir>.!Spri|
00000130  74 65 73 0a 53 45 54 20  48 69 6c 69 67 68 74 65  |tes.SET Hilighte|
00000140  72 24 44 69 72 20 3c 4f  62 65 79 24 44 69 72 3e  |r$Dir <Obey$Dir>|
00000150  0a 2a 57 69 6d 70 53 6c  6f 74 20 2d 6d 69 6e 20  |.*WimpSlot -min |
00000160  31 30 30 6b 20 2d 6d 61  78 20 31 30 30 6b 0a 7c  |100k -max 100k.||
00000170  0a 69 66 20 22 3c 53 79  73 74 65 6d 24 50 61 74  |.if "<System$Pat|
00000180  68 3e 22 20 3d 20 22 22  20 74 68 65 6e 20 45 72  |h>" = "" then Er|
00000190  72 6f 72 20 30 20 53 79  73 74 65 6d 20 72 65 73  |ror 0 System res|
000001a0  6f 75 72 63 65 73 20 63  61 6e 6e 6f 74 20 62 65  |ources cannot be|
000001b0  20 66 6f 75 6e 64 0a 7c  0a 52 4d 45 6e 73 75 72  | found.|.RMEnsur|
000001c0  65 20 44 72 61 77 20 31  2e 30 31 20 45 72 72 6f  |e Draw 1.01 Erro|
000001d0  72 20 59 6f 75 20 6e 65  65 64 20 44 72 61 77 20  |r You need Draw |
000001e0  31 2e 30 31 20 6f 72 20  6c 61 74 65 72 0a 7c 0a  |1.01 or later.|.|
000001f0  52 4d 45 6e 73 75 72 65  20 53 68 61 72 65 64 43  |RMEnsure SharedC|
00000200  4c 69 62 72 61 72 79 20  33 2e 37 35 20 52 4d 4c  |Library 3.75 RML|
00000210  6f 61 64 20 53 79 73 74  65 6d 3a 4d 6f 64 75 6c  |oad System:Modul|
00000220  65 73 2e 43 6c 69 62 0a  52 4d 45 6e 73 75 72 65  |es.Clib.RMEnsure|
00000230  20 53 68 61 72 65 64 43  4c 69 62 72 61 72 79 20  | SharedCLibrary |
00000240  33 2e 37 35 20 45 72 72  6f 72 20 59 6f 75 20 6e  |3.75 Error You n|
00000250  65 65 64 20 43 6c 69 62  20 33 2e 37 35 20 6f 72  |eed Clib 3.75 or|
00000260  20 6c 61 74 65 72 0a 7c  0a 52 4d 45 6e 73 75 72  | later.|.RMEnsur|
00000270  65 20 46 50 45 6d 75 6c  61 74 6f 72 20 32 2e 37  |e FPEmulator 2.7|
00000280  30 20 52 4d 4c 6f 61 64  20 53 79 73 74 65 6d 3a  |0 RMLoad System:|
00000290  4d 6f 64 75 6c 65 73 2e  46 50 45 6d 75 6c 61 74  |Modules.FPEmulat|
000002a0  6f 72 0a 52 4d 45 6e 73  75 72 65 20 46 50 45 6d  |or.RMEnsure FPEm|
000002b0  75 6c 61 74 6f 72 20 32  2e 37 30 20 45 72 72 6f  |ulator 2.70 Erro|
000002c0  72 20 59 6f 75 20 6e 65  65 64 20 46 50 45 6d 75  |r You need FPEmu|
000002d0  6c 61 74 6f 72 20 32 2e  37 30 20 6f 72 20 6c 61  |lator 2.70 or la|
000002e0  74 65 72 0a 7c 0a 52 4d  45 6e 73 75 72 65 20 43  |ter.|.RMEnsure C|
000002f0  6f 6c 6f 75 72 54 72 61  6e 73 20 30 2e 35 31 20  |olourTrans 0.51 |
00000300  52 4d 4c 6f 61 64 20 53  79 73 74 65 6d 3a 4d 6f  |RMLoad System:Mo|
00000310  64 75 6c 65 73 2e 43 6f  6c 6f 75 72 73 0a 52 4d  |dules.Colours.RM|
00000320  45 6e 73 75 72 65 20 43  6f 6c 6f 75 72 54 72 61  |Ensure ColourTra|
00000330  6e 73 20 30 2e 35 31 20  45 72 72 6f 72 20 59 6f  |ns 0.51 Error Yo|
00000340  75 20 6e 65 65 64 20 43  6f 6c 6f 75 72 54 72 61  |u need ColourTra|
00000350  6e 73 20 30 2e 35 31 20  6f 72 20 6c 61 74 65 72  |ns 0.51 or later|
00000360  0a 7c 0a 2a 57 69 6d 70  53 6c 6f 74 20 2d 6d 69  |.|.*WimpSlot -mi|
00000370  6e 20 34 30 30 4b 0a 2a  52 75 6e 20 3c 48 69 6c  |n 400K.*Run <Hil|
00000380  69 67 68 74 65 72 24 44  69 72 3e 2e 21 52 75 6e  |ighter$Dir>.!Run|
00000390  49 6d 61 67 65 20 25 2a  30 0a 0a 0a              |Image %*0...|
0000039c