Home » Archimedes archive » Acorn User » AU 1996-12 B.adf » Regulars_2 » StarInfo/Clifford/Example

StarInfo/Clifford/Example

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-12 B.adf » Regulars_2
Filename: StarInfo/Clifford/Example
Read OK:
File size: 15CD bytes
Load address: 0000
Exec address: 0000
File contents
If "<Macros$Dir>" = "" Then Error Macros must have been seen by the filer before this can be run
Run <Macros$Dir>


| ------------------------------------------------------------------------ |
| Machines without RISC OS 3.50 or later are missing the ability to        |
| kill off tasks that hang the machine. The macro below rectifies          |
| this, setting up alt and break to give the option of killing the         |
| current task.                                                            |
| ------------------------------------------------------------------------ |

Set RO350 Yes
RMEnsure UtilityModule 3.50 Set RO350 No
If "<RO350>" = "No" Then MacroCode MacroCode:Watchdog
If "<RO350>" = "No" Then Macro LeftAlt | RightAlt Break :: Watchdog
UnSet RO350


| ------------------------------------------------------------------------ |
| If the CDFS module is found, then four macros are defined, allowing      |
| control over the CD drive without the use of a desktop front end:        |
|  Alt + Cursor up : Start playing an audio CD                             |
|  Alt + Cursor down : Open the CD drive                                   |
|  Alt + Cursor left : Move back a track on an audio CD                    |
|  Alt + Cursor right : Move forward a track on an audio CD                |
| ------------------------------------------------------------------------ |

Set CD Yes
RMEnsure CDFS 0.00 Set CD No
If "<CD>" = "Yes" Then MacroCode MacroCode:CDControl
If "<CD>" = "Yes" Then Macro LeftAlt | RightAlt Up :: CDControl 0
If "<CD>" = "Yes" Then Macro LeftAlt | RightAlt Down :: CDControl 4
If "<CD>" = "Yes" Then Macro LeftAlt | RightAlt Left :: CDControl 2
If "<CD>" = "Yes" Then Macro LeftAlt | RightAlt Right :: CDControl 3
UnSet CD


| ------------------------------------------------------------------------ |
| The two macros below allow text to be read from an icon into memory      |
| and then inserted anywhere that accepts keyboard input, which need       |
| not be limited to just the desktop. Pressing alt and copy will attempt   |
| to read the text from an icon into Icon$Text. Alt and insert will then   |
| copy the text out again, as if it had been typed at the keyboard.        |
| ------------------------------------------------------------------------ |

MacroCode MacroCode:ReadIcon
If "<Wimp$State>" = "desktop" Then WimpTask Desktop_ReadIcon
MacroCode MacroCode:InsertText
Macro LeftAlt | RightAlt Copy :: ReadIcon
Macro LeftAlt | RightAlt Insert :: InsertText <Icon$Text>


| ------------------------------------------------------------------------ |
| Some programs intercept a large number of key presses when they own      |
| the caret, and can stop other programs from receiving them. Badly        |
| written ones will sometimes also intercept keys such as F12 which        |
| can interfere with desktop operation. The macro below will remove        |
| the caret from the current window when alt and the delete key is         |
| pressed.                                                                 |
| ------------------------------------------------------------------------ |

MacroCode MacroCode:LoseCaret
Macro LeftAlt | RightAlt Delete :: LoseCaret

                                                                           
| ------------------------------------------------------------------------ |
| A useful function provided by Menon and Director is the ability to       |
| set the currently selected directory (CSD) when ctrl and tab are         |
| pressed over a filer window. If neither of these modules are present     |
| in the machine, a macro is set up to perform this action.                |
| ------------------------------------------------------------------------ |

Set SetCSD No
RMEnsure Menon 0.00 RMEnsure Director 0.00 Set SetCSD Yes
If "<SetCSD>" = "Yes" Then MacroCode MacroCode:SetCSD
If "<SetCSD>" = "Yes" Then Macro LeftCtrl | RightCtrl Tab :: SetCSD
Unset SetCSD


| ------------------------------------------------------------------------ |
| Grabbing a sprite of the current screen can be achieved under the        |
| desktop by using Paint, but outside of the desktop environment this      |
| cannot be used. The macro below will save the screen whenever both       |
| alt keys are pressed, under the filename Screen<number>, where           |
| number is automatically increased each time. By default, these files     |
| are put in the Scrap directory, but this can be altered by setting       |
| the ScreenGrabs$Dir variable.                                            |
| ------------------------------------------------------------------------ |

Set ScreenGrabs$Dir <Wimp$ScrapDir>
SetEval Screen%Number 0
SetMacro Alias$ScreenGrab SetEval Screen%Number Screen%Number+1|MScreenSave <ScreenGrabs$Dir>.Screen|<Screen%Number>
Macro LeftAlt RightAlt : ScreenGrab


| ------------------------------------------------------------------------ |
| Older games, such as Zarch, will run too fast under the more recent      |
| ARM processors. This can be offset to some degree by turning off the     |
| cache in these processors, but once back in the desktop the slow         |
| down caused by this can be unbearable. The macros below allow easy       |
| control over the cache; alt and page up turns on the cache, and alt      |
| and page down turns it off.                                              |
| ------------------------------------------------------------------------ |

Macro LeftAlt | RightAlt PageUp : Cache On
Macro LeftAlt | RightAlt PageDown : Cache Off
00000000  49 66 20 22 3c 4d 61 63  72 6f 73 24 44 69 72 3e  |If "<Macros$Dir>|
00000010  22 20 3d 20 22 22 20 54  68 65 6e 20 45 72 72 6f  |" = "" Then Erro|
00000020  72 20 4d 61 63 72 6f 73  20 6d 75 73 74 20 68 61  |r Macros must ha|
00000030  76 65 20 62 65 65 6e 20  73 65 65 6e 20 62 79 20  |ve been seen by |
00000040  74 68 65 20 66 69 6c 65  72 20 62 65 66 6f 72 65  |the filer before|
00000050  20 74 68 69 73 20 63 61  6e 20 62 65 20 72 75 6e  | this can be run|
00000060  0a 52 75 6e 20 3c 4d 61  63 72 6f 73 24 44 69 72  |.Run <Macros$Dir|
00000070  3e 0a 0a 0a 7c 20 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |>...| ----------|
00000080  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000000b0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 20 7c  |-------------- ||
000000c0  0a 7c 20 4d 61 63 68 69  6e 65 73 20 77 69 74 68  |.| Machines with|
000000d0  6f 75 74 20 52 49 53 43  20 4f 53 20 33 2e 35 30  |out RISC OS 3.50|
000000e0  20 6f 72 20 6c 61 74 65  72 20 61 72 65 20 6d 69  | or later are mi|
000000f0  73 73 69 6e 67 20 74 68  65 20 61 62 69 6c 69 74  |ssing the abilit|
00000100  79 20 74 6f 20 20 20 20  20 20 20 20 7c 0a 7c 20  |y to        |.| |
00000110  6b 69 6c 6c 20 6f 66 66  20 74 61 73 6b 73 20 74  |kill off tasks t|
00000120  68 61 74 20 68 61 6e 67  20 74 68 65 20 6d 61 63  |hat hang the mac|
00000130  68 69 6e 65 2e 20 54 68  65 20 6d 61 63 72 6f 20  |hine. The macro |
00000140  62 65 6c 6f 77 20 72 65  63 74 69 66 69 65 73 20  |below rectifies |
00000150  20 20 20 20 20 20 20 20  20 7c 0a 7c 20 74 68 69  |         |.| thi|
00000160  73 2c 20 73 65 74 74 69  6e 67 20 75 70 20 61 6c  |s, setting up al|
00000170  74 20 61 6e 64 20 62 72  65 61 6b 20 74 6f 20 67  |t and break to g|
00000180  69 76 65 20 74 68 65 20  6f 70 74 69 6f 6e 20 6f  |ive the option o|
00000190  66 20 6b 69 6c 6c 69 6e  67 20 74 68 65 20 20 20  |f killing the   |
000001a0  20 20 20 20 20 20 7c 0a  7c 20 63 75 72 72 65 6e  |      |.| curren|
000001b0  74 20 74 61 73 6b 2e 20  20 20 20 20 20 20 20 20  |t task.         |
000001c0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
000001f0  20 20 20 7c 0a 7c 20 2d  2d 2d 2d 2d 2d 2d 2d 2d  |   |.| ---------|
00000200  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000230  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 20  |--------------- |
00000240  7c 0a 0a 53 65 74 20 52  4f 33 35 30 20 59 65 73  ||..Set RO350 Yes|
00000250  0a 52 4d 45 6e 73 75 72  65 20 55 74 69 6c 69 74  |.RMEnsure Utilit|
00000260  79 4d 6f 64 75 6c 65 20  33 2e 35 30 20 53 65 74  |yModule 3.50 Set|
00000270  20 52 4f 33 35 30 20 4e  6f 0a 49 66 20 22 3c 52  | RO350 No.If "<R|
00000280  4f 33 35 30 3e 22 20 3d  20 22 4e 6f 22 20 54 68  |O350>" = "No" Th|
00000290  65 6e 20 4d 61 63 72 6f  43 6f 64 65 20 4d 61 63  |en MacroCode Mac|
000002a0  72 6f 43 6f 64 65 3a 57  61 74 63 68 64 6f 67 0a  |roCode:Watchdog.|
000002b0  49 66 20 22 3c 52 4f 33  35 30 3e 22 20 3d 20 22  |If "<RO350>" = "|
000002c0  4e 6f 22 20 54 68 65 6e  20 4d 61 63 72 6f 20 4c  |No" Then Macro L|
000002d0  65 66 74 41 6c 74 20 7c  20 52 69 67 68 74 41 6c  |eftAlt | RightAl|
000002e0  74 20 42 72 65 61 6b 20  3a 3a 20 57 61 74 63 68  |t Break :: Watch|
000002f0  64 6f 67 0a 55 6e 53 65  74 20 52 4f 33 35 30 0a  |dog.UnSet RO350.|
00000300  0a 0a 7c 20 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |..| ------------|
00000310  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000340  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 20 7c 0a 7c  |------------ |.||
00000350  20 49 66 20 74 68 65 20  43 44 46 53 20 6d 6f 64  | If the CDFS mod|
00000360  75 6c 65 20 69 73 20 66  6f 75 6e 64 2c 20 74 68  |ule is found, th|
00000370  65 6e 20 66 6f 75 72 20  6d 61 63 72 6f 73 20 61  |en four macros a|
00000380  72 65 20 64 65 66 69 6e  65 64 2c 20 61 6c 6c 6f  |re defined, allo|
00000390  77 69 6e 67 20 20 20 20  20 20 7c 0a 7c 20 63 6f  |wing      |.| co|
000003a0  6e 74 72 6f 6c 20 6f 76  65 72 20 74 68 65 20 43  |ntrol over the C|
000003b0  44 20 64 72 69 76 65 20  77 69 74 68 6f 75 74 20  |D drive without |
000003c0  74 68 65 20 75 73 65 20  6f 66 20 61 20 64 65 73  |the use of a des|
000003d0  6b 74 6f 70 20 66 72 6f  6e 74 20 65 6e 64 3a 20  |ktop front end: |
000003e0  20 20 20 20 20 20 20 7c  0a 7c 20 20 41 6c 74 20  |       |.|  Alt |
000003f0  2b 20 43 75 72 73 6f 72  20 75 70 20 3a 20 53 74  |+ Cursor up : St|
00000400  61 72 74 20 70 6c 61 79  69 6e 67 20 61 6e 20 61  |art playing an a|
00000410  75 64 69 6f 20 43 44 20  20 20 20 20 20 20 20 20  |udio CD         |
00000420  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000430  20 20 20 20 7c 0a 7c 20  20 41 6c 74 20 2b 20 43  |    |.|  Alt + C|
00000440  75 72 73 6f 72 20 64 6f  77 6e 20 3a 20 4f 70 65  |ursor down : Ope|
00000450  6e 20 74 68 65 20 43 44  20 64 72 69 76 65 20 20  |n the CD drive  |
00000460  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00000480  20 7c 0a 7c 20 20 41 6c  74 20 2b 20 43 75 72 73  | |.|  Alt + Curs|
00000490  6f 72 20 6c 65 66 74 20  3a 20 4d 6f 76 65 20 62  |or left : Move b|
000004a0  61 63 6b 20 61 20 74 72  61 63 6b 20 6f 6e 20 61  |ack a track on a|
000004b0  6e 20 61 75 64 69 6f 20  43 44 20 20 20 20 20 20  |n audio CD      |
000004c0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 7c 0a  |              |.|
000004d0  7c 20 20 41 6c 74 20 2b  20 43 75 72 73 6f 72 20  ||  Alt + Cursor |
000004e0  72 69 67 68 74 20 3a 20  4d 6f 76 65 20 66 6f 72  |right : Move for|
000004f0  77 61 72 64 20 61 20 74  72 61 63 6b 20 6f 6e 20  |ward a track on |
00000500  61 6e 20 61 75 64 69 6f  20 43 44 20 20 20 20 20  |an audio CD     |
00000510  20 20 20 20 20 20 20 20  20 20 20 7c 0a 7c 20 2d  |           |.| -|
00000520  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000560  2d 2d 2d 2d 2d 2d 2d 20  7c 0a 0a 53 65 74 20 43  |------- |..Set C|
00000570  44 20 59 65 73 0a 52 4d  45 6e 73 75 72 65 20 43  |D Yes.RMEnsure C|
00000580  44 46 53 20 30 2e 30 30  20 53 65 74 20 43 44 20  |DFS 0.00 Set CD |
00000590  4e 6f 0a 49 66 20 22 3c  43 44 3e 22 20 3d 20 22  |No.If "<CD>" = "|
000005a0  59 65 73 22 20 54 68 65  6e 20 4d 61 63 72 6f 43  |Yes" Then MacroC|
000005b0  6f 64 65 20 4d 61 63 72  6f 43 6f 64 65 3a 43 44  |ode MacroCode:CD|
000005c0  43 6f 6e 74 72 6f 6c 0a  49 66 20 22 3c 43 44 3e  |Control.If "<CD>|
000005d0  22 20 3d 20 22 59 65 73  22 20 54 68 65 6e 20 4d  |" = "Yes" Then M|
000005e0  61 63 72 6f 20 4c 65 66  74 41 6c 74 20 7c 20 52  |acro LeftAlt | R|
000005f0  69 67 68 74 41 6c 74 20  55 70 20 3a 3a 20 43 44  |ightAlt Up :: CD|
00000600  43 6f 6e 74 72 6f 6c 20  30 0a 49 66 20 22 3c 43  |Control 0.If "<C|
00000610  44 3e 22 20 3d 20 22 59  65 73 22 20 54 68 65 6e  |D>" = "Yes" Then|
00000620  20 4d 61 63 72 6f 20 4c  65 66 74 41 6c 74 20 7c  | Macro LeftAlt ||
00000630  20 52 69 67 68 74 41 6c  74 20 44 6f 77 6e 20 3a  | RightAlt Down :|
00000640  3a 20 43 44 43 6f 6e 74  72 6f 6c 20 34 0a 49 66  |: CDControl 4.If|
00000650  20 22 3c 43 44 3e 22 20  3d 20 22 59 65 73 22 20  | "<CD>" = "Yes" |
00000660  54 68 65 6e 20 4d 61 63  72 6f 20 4c 65 66 74 41  |Then Macro LeftA|
00000670  6c 74 20 7c 20 52 69 67  68 74 41 6c 74 20 4c 65  |lt | RightAlt Le|
00000680  66 74 20 3a 3a 20 43 44  43 6f 6e 74 72 6f 6c 20  |ft :: CDControl |
00000690  32 0a 49 66 20 22 3c 43  44 3e 22 20 3d 20 22 59  |2.If "<CD>" = "Y|
000006a0  65 73 22 20 54 68 65 6e  20 4d 61 63 72 6f 20 4c  |es" Then Macro L|
000006b0  65 66 74 41 6c 74 20 7c  20 52 69 67 68 74 41 6c  |eftAlt | RightAl|
000006c0  74 20 52 69 67 68 74 20  3a 3a 20 43 44 43 6f 6e  |t Right :: CDCon|
000006d0  74 72 6f 6c 20 33 0a 55  6e 53 65 74 20 43 44 0a  |trol 3.UnSet CD.|
000006e0  0a 0a 7c 20 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |..| ------------|
000006f0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000720  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 20 7c 0a 7c  |------------ |.||
00000730  20 54 68 65 20 74 77 6f  20 6d 61 63 72 6f 73 20  | The two macros |
00000740  62 65 6c 6f 77 20 61 6c  6c 6f 77 20 74 65 78 74  |below allow text|
00000750  20 74 6f 20 62 65 20 72  65 61 64 20 66 72 6f 6d  | to be read from|
00000760  20 61 6e 20 69 63 6f 6e  20 69 6e 74 6f 20 6d 65  | an icon into me|
00000770  6d 6f 72 79 20 20 20 20  20 20 7c 0a 7c 20 61 6e  |mory      |.| an|
00000780  64 20 74 68 65 6e 20 69  6e 73 65 72 74 65 64 20  |d then inserted |
00000790  61 6e 79 77 68 65 72 65  20 74 68 61 74 20 61 63  |anywhere that ac|
000007a0  63 65 70 74 73 20 6b 65  79 62 6f 61 72 64 20 69  |cepts keyboard i|
000007b0  6e 70 75 74 2c 20 77 68  69 63 68 20 6e 65 65 64  |nput, which need|
000007c0  20 20 20 20 20 20 20 7c  0a 7c 20 6e 6f 74 20 62  |       |.| not b|
000007d0  65 20 6c 69 6d 69 74 65  64 20 74 6f 20 6a 75 73  |e limited to jus|
000007e0  74 20 74 68 65 20 64 65  73 6b 74 6f 70 2e 20 50  |t the desktop. P|
000007f0  72 65 73 73 69 6e 67 20  61 6c 74 20 61 6e 64 20  |ressing alt and |
00000800  63 6f 70 79 20 77 69 6c  6c 20 61 74 74 65 6d 70  |copy will attemp|
00000810  74 20 20 20 7c 0a 7c 20  74 6f 20 72 65 61 64 20  |t   |.| to read |
00000820  74 68 65 20 74 65 78 74  20 66 72 6f 6d 20 61 6e  |the text from an|
00000830  20 69 63 6f 6e 20 69 6e  74 6f 20 49 63 6f 6e 24  | icon into Icon$|
00000840  54 65 78 74 2e 20 41 6c  74 20 61 6e 64 20 69 6e  |Text. Alt and in|
00000850  73 65 72 74 20 77 69 6c  6c 20 74 68 65 6e 20 20  |sert will then  |
00000860  20 7c 0a 7c 20 63 6f 70  79 20 74 68 65 20 74 65  | |.| copy the te|
00000870  78 74 20 6f 75 74 20 61  67 61 69 6e 2c 20 61 73  |xt out again, as|
00000880  20 69 66 20 69 74 20 68  61 64 20 62 65 65 6e 20  | if it had been |
00000890  74 79 70 65 64 20 61 74  20 74 68 65 20 6b 65 79  |typed at the key|
000008a0  62 6f 61 72 64 2e 20 20  20 20 20 20 20 20 7c 0a  |board.        |.|
000008b0  7c 20 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  || --------------|
000008c0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000008f0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 20 7c 0a 0a 4d 61  |---------- |..Ma|
00000900  63 72 6f 43 6f 64 65 20  4d 61 63 72 6f 43 6f 64  |croCode MacroCod|
00000910  65 3a 52 65 61 64 49 63  6f 6e 0a 49 66 20 22 3c  |e:ReadIcon.If "<|
00000920  57 69 6d 70 24 53 74 61  74 65 3e 22 20 3d 20 22  |Wimp$State>" = "|
00000930  64 65 73 6b 74 6f 70 22  20 54 68 65 6e 20 57 69  |desktop" Then Wi|
00000940  6d 70 54 61 73 6b 20 44  65 73 6b 74 6f 70 5f 52  |mpTask Desktop_R|
00000950  65 61 64 49 63 6f 6e 0a  4d 61 63 72 6f 43 6f 64  |eadIcon.MacroCod|
00000960  65 20 4d 61 63 72 6f 43  6f 64 65 3a 49 6e 73 65  |e MacroCode:Inse|
00000970  72 74 54 65 78 74 0a 4d  61 63 72 6f 20 4c 65 66  |rtText.Macro Lef|
00000980  74 41 6c 74 20 7c 20 52  69 67 68 74 41 6c 74 20  |tAlt | RightAlt |
00000990  43 6f 70 79 20 3a 3a 20  52 65 61 64 49 63 6f 6e  |Copy :: ReadIcon|
000009a0  0a 4d 61 63 72 6f 20 4c  65 66 74 41 6c 74 20 7c  |.Macro LeftAlt ||
000009b0  20 52 69 67 68 74 41 6c  74 20 49 6e 73 65 72 74  | RightAlt Insert|
000009c0  20 3a 3a 20 49 6e 73 65  72 74 54 65 78 74 20 3c  | :: InsertText <|
000009d0  49 63 6f 6e 24 54 65 78  74 3e 0a 0a 0a 7c 20 2d  |Icon$Text>...| -|
000009e0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000a20  2d 2d 2d 2d 2d 2d 2d 20  7c 0a 7c 20 53 6f 6d 65  |------- |.| Some|
00000a30  20 70 72 6f 67 72 61 6d  73 20 69 6e 74 65 72 63  | programs interc|
00000a40  65 70 74 20 61 20 6c 61  72 67 65 20 6e 75 6d 62  |ept a large numb|
00000a50  65 72 20 6f 66 20 6b 65  79 20 70 72 65 73 73 65  |er of key presse|
00000a60  73 20 77 68 65 6e 20 74  68 65 79 20 6f 77 6e 20  |s when they own |
00000a70  20 20 20 20 20 7c 0a 7c  20 74 68 65 20 63 61 72  |     |.| the car|
00000a80  65 74 2c 20 61 6e 64 20  63 61 6e 20 73 74 6f 70  |et, and can stop|
00000a90  20 6f 74 68 65 72 20 70  72 6f 67 72 61 6d 73 20  | other programs |
00000aa0  66 72 6f 6d 20 72 65 63  65 69 76 69 6e 67 20 74  |from receiving t|
00000ab0  68 65 6d 2e 20 42 61 64  6c 79 20 20 20 20 20 20  |hem. Badly      |
00000ac0  20 20 7c 0a 7c 20 77 72  69 74 74 65 6e 20 6f 6e  |  |.| written on|
00000ad0  65 73 20 77 69 6c 6c 20  73 6f 6d 65 74 69 6d 65  |es will sometime|
00000ae0  73 20 61 6c 73 6f 20 69  6e 74 65 72 63 65 70 74  |s also intercept|
00000af0  20 6b 65 79 73 20 73 75  63 68 20 61 73 20 46 31  | keys such as F1|
00000b00  32 20 77 68 69 63 68 20  20 20 20 20 20 20 20 7c  |2 which        ||
00000b10  0a 7c 20 63 61 6e 20 69  6e 74 65 72 66 65 72 65  |.| can interfere|
00000b20  20 77 69 74 68 20 64 65  73 6b 74 6f 70 20 6f 70  | with desktop op|
00000b30  65 72 61 74 69 6f 6e 2e  20 54 68 65 20 6d 61 63  |eration. The mac|
00000b40  72 6f 20 62 65 6c 6f 77  20 77 69 6c 6c 20 72 65  |ro below will re|
00000b50  6d 6f 76 65 20 20 20 20  20 20 20 20 7c 0a 7c 20  |move        |.| |
00000b60  74 68 65 20 63 61 72 65  74 20 66 72 6f 6d 20 74  |the caret from t|
00000b70  68 65 20 63 75 72 72 65  6e 74 20 77 69 6e 64 6f  |he current windo|
00000b80  77 20 77 68 65 6e 20 61  6c 74 20 61 6e 64 20 74  |w when alt and t|
00000b90  68 65 20 64 65 6c 65 74  65 20 6b 65 79 20 69 73  |he delete key is|
00000ba0  20 20 20 20 20 20 20 20  20 7c 0a 7c 20 70 72 65  |         |.| pre|
00000bb0  73 73 65 64 2e 20 20 20  20 20 20 20 20 20 20 20  |ssed.           |
00000bc0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00000bf0  20 20 20 20 20 20 7c 0a  7c 20 2d 2d 2d 2d 2d 2d  |      |.| ------|
00000c00  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000c40  2d 2d 20 7c 0a 0a 4d 61  63 72 6f 43 6f 64 65 20  |-- |..MacroCode |
00000c50  4d 61 63 72 6f 43 6f 64  65 3a 4c 6f 73 65 43 61  |MacroCode:LoseCa|
00000c60  72 65 74 0a 4d 61 63 72  6f 20 4c 65 66 74 41 6c  |ret.Macro LeftAl|
00000c70  74 20 7c 20 52 69 67 68  74 41 6c 74 20 44 65 6c  |t | RightAlt Del|
00000c80  65 74 65 20 3a 3a 20 4c  6f 73 65 43 61 72 65 74  |ete :: LoseCaret|
00000c90  0a 0a 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |..              |
00000ca0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00000cd0  20 20 20 20 20 20 20 20  20 20 20 20 20 0a 7c 20  |             .| |
00000ce0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000d20  2d 2d 2d 2d 2d 2d 2d 2d  20 7c 0a 7c 20 41 20 75  |-------- |.| A u|
00000d30  73 65 66 75 6c 20 66 75  6e 63 74 69 6f 6e 20 70  |seful function p|
00000d40  72 6f 76 69 64 65 64 20  62 79 20 4d 65 6e 6f 6e  |rovided by Menon|
00000d50  20 61 6e 64 20 44 69 72  65 63 74 6f 72 20 69 73  | and Director is|
00000d60  20 74 68 65 20 61 62 69  6c 69 74 79 20 74 6f 20  | the ability to |
00000d70  20 20 20 20 20 20 7c 0a  7c 20 73 65 74 20 74 68  |      |.| set th|
00000d80  65 20 63 75 72 72 65 6e  74 6c 79 20 73 65 6c 65  |e currently sele|
00000d90  63 74 65 64 20 64 69 72  65 63 74 6f 72 79 20 28  |cted directory (|
00000da0  43 53 44 29 20 77 68 65  6e 20 63 74 72 6c 20 61  |CSD) when ctrl a|
00000db0  6e 64 20 74 61 62 20 61  72 65 20 20 20 20 20 20  |nd tab are      |
00000dc0  20 20 20 7c 0a 7c 20 70  72 65 73 73 65 64 20 6f  |   |.| pressed o|
00000dd0  76 65 72 20 61 20 66 69  6c 65 72 20 77 69 6e 64  |ver a filer wind|
00000de0  6f 77 2e 20 49 66 20 6e  65 69 74 68 65 72 20 6f  |ow. If neither o|
00000df0  66 20 74 68 65 73 65 20  6d 6f 64 75 6c 65 73 20  |f these modules |
00000e00  61 72 65 20 70 72 65 73  65 6e 74 20 20 20 20 20  |are present     |
00000e10  7c 0a 7c 20 69 6e 20 74  68 65 20 6d 61 63 68 69  ||.| in the machi|
00000e20  6e 65 2c 20 61 20 6d 61  63 72 6f 20 69 73 20 73  |ne, a macro is s|
00000e30  65 74 20 75 70 20 74 6f  20 70 65 72 66 6f 72 6d  |et up to perform|
00000e40  20 74 68 69 73 20 61 63  74 69 6f 6e 2e 20 20 20  | this action.   |
00000e50  20 20 20 20 20 20 20 20  20 20 20 20 20 7c 0a 7c  |             |.||
00000e60  20 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  | ---------------|
00000e70  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000ea0  2d 2d 2d 2d 2d 2d 2d 2d  2d 20 7c 0a 0a 53 65 74  |--------- |..Set|
00000eb0  20 53 65 74 43 53 44 20  4e 6f 0a 52 4d 45 6e 73  | SetCSD No.RMEns|
00000ec0  75 72 65 20 4d 65 6e 6f  6e 20 30 2e 30 30 20 52  |ure Menon 0.00 R|
00000ed0  4d 45 6e 73 75 72 65 20  44 69 72 65 63 74 6f 72  |MEnsure Director|
00000ee0  20 30 2e 30 30 20 53 65  74 20 53 65 74 43 53 44  | 0.00 Set SetCSD|
00000ef0  20 59 65 73 0a 49 66 20  22 3c 53 65 74 43 53 44  | Yes.If "<SetCSD|
00000f00  3e 22 20 3d 20 22 59 65  73 22 20 54 68 65 6e 20  |>" = "Yes" Then |
00000f10  4d 61 63 72 6f 43 6f 64  65 20 4d 61 63 72 6f 43  |MacroCode MacroC|
00000f20  6f 64 65 3a 53 65 74 43  53 44 0a 49 66 20 22 3c  |ode:SetCSD.If "<|
00000f30  53 65 74 43 53 44 3e 22  20 3d 20 22 59 65 73 22  |SetCSD>" = "Yes"|
00000f40  20 54 68 65 6e 20 4d 61  63 72 6f 20 4c 65 66 74  | Then Macro Left|
00000f50  43 74 72 6c 20 7c 20 52  69 67 68 74 43 74 72 6c  |Ctrl | RightCtrl|
00000f60  20 54 61 62 20 3a 3a 20  53 65 74 43 53 44 0a 55  | Tab :: SetCSD.U|
00000f70  6e 73 65 74 20 53 65 74  43 53 44 0a 0a 0a 7c 20  |nset SetCSD...| |
00000f80  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000fc0  2d 2d 2d 2d 2d 2d 2d 2d  20 7c 0a 7c 20 47 72 61  |-------- |.| Gra|
00000fd0  62 62 69 6e 67 20 61 20  73 70 72 69 74 65 20 6f  |bbing a sprite o|
00000fe0  66 20 74 68 65 20 63 75  72 72 65 6e 74 20 73 63  |f the current sc|
00000ff0  72 65 65 6e 20 63 61 6e  20 62 65 20 61 63 68 69  |reen can be achi|
00001000  65 76 65 64 20 75 6e 64  65 72 20 74 68 65 20 20  |eved under the  |
00001010  20 20 20 20 20 20 7c 0a  7c 20 64 65 73 6b 74 6f  |      |.| deskto|
00001020  70 20 62 79 20 75 73 69  6e 67 20 50 61 69 6e 74  |p by using Paint|
00001030  2c 20 62 75 74 20 6f 75  74 73 69 64 65 20 6f 66  |, but outside of|
00001040  20 74 68 65 20 64 65 73  6b 74 6f 70 20 65 6e 76  | the desktop env|
00001050  69 72 6f 6e 6d 65 6e 74  20 74 68 69 73 20 20 20  |ironment this   |
00001060  20 20 20 7c 0a 7c 20 63  61 6e 6e 6f 74 20 62 65  |   |.| cannot be|
00001070  20 75 73 65 64 2e 20 54  68 65 20 6d 61 63 72 6f  | used. The macro|
00001080  20 62 65 6c 6f 77 20 77  69 6c 6c 20 73 61 76 65  | below will save|
00001090  20 74 68 65 20 73 63 72  65 65 6e 20 77 68 65 6e  | the screen when|
000010a0  65 76 65 72 20 62 6f 74  68 20 20 20 20 20 20 20  |ever both       |
000010b0  7c 0a 7c 20 61 6c 74 20  6b 65 79 73 20 61 72 65  ||.| alt keys are|
000010c0  20 70 72 65 73 73 65 64  2c 20 75 6e 64 65 72 20  | pressed, under |
000010d0  74 68 65 20 66 69 6c 65  6e 61 6d 65 20 53 63 72  |the filename Scr|
000010e0  65 65 6e 3c 6e 75 6d 62  65 72 3e 2c 20 77 68 65  |een<number>, whe|
000010f0  72 65 20 20 20 20 20 20  20 20 20 20 20 7c 0a 7c  |re           |.||
00001100  20 6e 75 6d 62 65 72 20  69 73 20 61 75 74 6f 6d  | number is autom|
00001110  61 74 69 63 61 6c 6c 79  20 69 6e 63 72 65 61 73  |atically increas|
00001120  65 64 20 65 61 63 68 20  74 69 6d 65 2e 20 42 79  |ed each time. By|
00001130  20 64 65 66 61 75 6c 74  2c 20 74 68 65 73 65 20  | default, these |
00001140  66 69 6c 65 73 20 20 20  20 20 7c 0a 7c 20 61 72  |files     |.| ar|
00001150  65 20 70 75 74 20 69 6e  20 74 68 65 20 53 63 72  |e put in the Scr|
00001160  61 70 20 64 69 72 65 63  74 6f 72 79 2c 20 62 75  |ap directory, bu|
00001170  74 20 74 68 69 73 20 63  61 6e 20 62 65 20 61 6c  |t this can be al|
00001180  74 65 72 65 64 20 62 79  20 73 65 74 74 69 6e 67  |tered by setting|
00001190  20 20 20 20 20 20 20 7c  0a 7c 20 74 68 65 20 53  |       |.| the S|
000011a0  63 72 65 65 6e 47 72 61  62 73 24 44 69 72 20 76  |creenGrabs$Dir v|
000011b0  61 72 69 61 62 6c 65 2e  20 20 20 20 20 20 20 20  |ariable.        |
000011c0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
000011e0  20 20 20 20 7c 0a 7c 20  2d 2d 2d 2d 2d 2d 2d 2d  |    |.| --------|
000011f0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001230  20 7c 0a 0a 53 65 74 20  53 63 72 65 65 6e 47 72  | |..Set ScreenGr|
00001240  61 62 73 24 44 69 72 20  3c 57 69 6d 70 24 53 63  |abs$Dir <Wimp$Sc|
00001250  72 61 70 44 69 72 3e 0a  53 65 74 45 76 61 6c 20  |rapDir>.SetEval |
00001260  53 63 72 65 65 6e 25 4e  75 6d 62 65 72 20 30 0a  |Screen%Number 0.|
00001270  53 65 74 4d 61 63 72 6f  20 41 6c 69 61 73 24 53  |SetMacro Alias$S|
00001280  63 72 65 65 6e 47 72 61  62 20 53 65 74 45 76 61  |creenGrab SetEva|
00001290  6c 20 53 63 72 65 65 6e  25 4e 75 6d 62 65 72 20  |l Screen%Number |
000012a0  53 63 72 65 65 6e 25 4e  75 6d 62 65 72 2b 31 7c  |Screen%Number+1||
000012b0  4d 53 63 72 65 65 6e 53  61 76 65 20 3c 53 63 72  |MScreenSave <Scr|
000012c0  65 65 6e 47 72 61 62 73  24 44 69 72 3e 2e 53 63  |eenGrabs$Dir>.Sc|
000012d0  72 65 65 6e 7c 3c 53 63  72 65 65 6e 25 4e 75 6d  |reen|<Screen%Num|
000012e0  62 65 72 3e 0a 4d 61 63  72 6f 20 4c 65 66 74 41  |ber>.Macro LeftA|
000012f0  6c 74 20 52 69 67 68 74  41 6c 74 20 3a 20 53 63  |lt RightAlt : Sc|
00001300  72 65 65 6e 47 72 61 62  0a 0a 0a 7c 20 2d 2d 2d  |reenGrab...| ---|
00001310  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001350  2d 2d 2d 2d 2d 20 7c 0a  7c 20 4f 6c 64 65 72 20  |----- |.| Older |
00001360  67 61 6d 65 73 2c 20 73  75 63 68 20 61 73 20 5a  |games, such as Z|
00001370  61 72 63 68 2c 20 77 69  6c 6c 20 72 75 6e 20 74  |arch, will run t|
00001380  6f 6f 20 66 61 73 74 20  75 6e 64 65 72 20 74 68  |oo fast under th|
00001390  65 20 6d 6f 72 65 20 72  65 63 65 6e 74 20 20 20  |e more recent   |
000013a0  20 20 20 7c 0a 7c 20 41  52 4d 20 70 72 6f 63 65  |   |.| ARM proce|
000013b0  73 73 6f 72 73 2e 20 54  68 69 73 20 63 61 6e 20  |ssors. This can |
000013c0  62 65 20 6f 66 66 73 65  74 20 74 6f 20 73 6f 6d  |be offset to som|
000013d0  65 20 64 65 67 72 65 65  20 62 79 20 74 75 72 6e  |e degree by turn|
000013e0  69 6e 67 20 6f 66 66 20  74 68 65 20 20 20 20 20  |ing off the     |
000013f0  7c 0a 7c 20 63 61 63 68  65 20 69 6e 20 74 68 65  ||.| cache in the|
00001400  73 65 20 70 72 6f 63 65  73 73 6f 72 73 2c 20 62  |se processors, b|
00001410  75 74 20 6f 6e 63 65 20  62 61 63 6b 20 69 6e 20  |ut once back in |
00001420  74 68 65 20 64 65 73 6b  74 6f 70 20 74 68 65 20  |the desktop the |
00001430  73 6c 6f 77 20 20 20 20  20 20 20 20 20 7c 0a 7c  |slow         |.||
00001440  20 64 6f 77 6e 20 63 61  75 73 65 64 20 62 79 20  | down caused by |
00001450  74 68 69 73 20 63 61 6e  20 62 65 20 75 6e 62 65  |this can be unbe|
00001460  61 72 61 62 6c 65 2e 20  54 68 65 20 6d 61 63 72  |arable. The macr|
00001470  6f 73 20 62 65 6c 6f 77  20 61 6c 6c 6f 77 20 65  |os below allow e|
00001480  61 73 79 20 20 20 20 20  20 20 7c 0a 7c 20 63 6f  |asy       |.| co|
00001490  6e 74 72 6f 6c 20 6f 76  65 72 20 74 68 65 20 63  |ntrol over the c|
000014a0  61 63 68 65 3b 20 61 6c  74 20 61 6e 64 20 70 61  |ache; alt and pa|
000014b0  67 65 20 75 70 20 74 75  72 6e 73 20 6f 6e 20 74  |ge up turns on t|
000014c0  68 65 20 63 61 63 68 65  2c 20 61 6e 64 20 61 6c  |he cache, and al|
000014d0  74 20 20 20 20 20 20 7c  0a 7c 20 61 6e 64 20 70  |t      |.| and p|
000014e0  61 67 65 20 64 6f 77 6e  20 74 75 72 6e 73 20 69  |age down turns i|
000014f0  74 20 6f 66 66 2e 20 20  20 20 20 20 20 20 20 20  |t off.          |
00001500  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00001520  20 20 20 20 7c 0a 7c 20  2d 2d 2d 2d 2d 2d 2d 2d  |    |.| --------|
00001530  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001570  20 7c 0a 0a 4d 61 63 72  6f 20 4c 65 66 74 41 6c  | |..Macro LeftAl|
00001580  74 20 7c 20 52 69 67 68  74 41 6c 74 20 50 61 67  |t | RightAlt Pag|
00001590  65 55 70 20 3a 20 43 61  63 68 65 20 4f 6e 0a 4d  |eUp : Cache On.M|
000015a0  61 63 72 6f 20 4c 65 66  74 41 6c 74 20 7c 20 52  |acro LeftAlt | R|
000015b0  69 67 68 74 41 6c 74 20  50 61 67 65 44 6f 77 6e  |ightAlt PageDown|
000015c0  20 3a 20 43 61 63 68 65  20 4f 66 66 0a           | : Cache Off.|
000015cd