Home » Archimedes archive » Acorn User » AU 1995-06.adf » !StarInfo_StarInfo » Marriott/PtrWrapHlp

Marriott/PtrWrapHlp

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 1995-06.adf » !StarInfo_StarInfo
Filename: Marriott/PtrWrapHlp
Read OK:
File size: 031D bytes
Load address: 0000
Exec address: 0000
File contents
This small module allows the pointer to be 'wrapped' round the screen,
if it is moved off the side it appears on the other side. It provides
one star command: *Edges, which controls the distance away from the edge
the mouse pointer must be before wrapping occurs (it is best NOT put at
less than 2). I have seen several other implementations of this, one 
of them on the Acorn User Shareware disc and one on an ancient BAU
magazine disc, but I think mine is the best because:

  a) It is a module and thus takes up only 816 bytes of RMA whereas the
     others all took at least 32k on a 4Mb machine.
  b) It will work within any program which uses the mouse even outside
     the desktop, although some screen modes do give problems when
     edge settings are too low.
  c) It is just wonderful.
00000000  54 68 69 73 20 73 6d 61  6c 6c 20 6d 6f 64 75 6c  |This small modul|
00000010  65 20 61 6c 6c 6f 77 73  20 74 68 65 20 70 6f 69  |e allows the poi|
00000020  6e 74 65 72 20 74 6f 20  62 65 20 27 77 72 61 70  |nter to be 'wrap|
00000030  70 65 64 27 20 72 6f 75  6e 64 20 74 68 65 20 73  |ped' round the s|
00000040  63 72 65 65 6e 2c 0a 69  66 20 69 74 20 69 73 20  |creen,.if it is |
00000050  6d 6f 76 65 64 20 6f 66  66 20 74 68 65 20 73 69  |moved off the si|
00000060  64 65 20 69 74 20 61 70  70 65 61 72 73 20 6f 6e  |de it appears on|
00000070  20 74 68 65 20 6f 74 68  65 72 20 73 69 64 65 2e  | the other side.|
00000080  20 49 74 20 70 72 6f 76  69 64 65 73 0a 6f 6e 65  | It provides.one|
00000090  20 73 74 61 72 20 63 6f  6d 6d 61 6e 64 3a 20 2a  | star command: *|
000000a0  45 64 67 65 73 2c 20 77  68 69 63 68 20 63 6f 6e  |Edges, which con|
000000b0  74 72 6f 6c 73 20 74 68  65 20 64 69 73 74 61 6e  |trols the distan|
000000c0  63 65 20 61 77 61 79 20  66 72 6f 6d 20 74 68 65  |ce away from the|
000000d0  20 65 64 67 65 0a 74 68  65 20 6d 6f 75 73 65 20  | edge.the mouse |
000000e0  70 6f 69 6e 74 65 72 20  6d 75 73 74 20 62 65 20  |pointer must be |
000000f0  62 65 66 6f 72 65 20 77  72 61 70 70 69 6e 67 20  |before wrapping |
00000100  6f 63 63 75 72 73 20 28  69 74 20 69 73 20 62 65  |occurs (it is be|
00000110  73 74 20 4e 4f 54 20 70  75 74 20 61 74 0a 6c 65  |st NOT put at.le|
00000120  73 73 20 74 68 61 6e 20  32 29 2e 20 49 20 68 61  |ss than 2). I ha|
00000130  76 65 20 73 65 65 6e 20  73 65 76 65 72 61 6c 20  |ve seen several |
00000140  6f 74 68 65 72 20 69 6d  70 6c 65 6d 65 6e 74 61  |other implementa|
00000150  74 69 6f 6e 73 20 6f 66  20 74 68 69 73 2c 20 6f  |tions of this, o|
00000160  6e 65 20 0a 6f 66 20 74  68 65 6d 20 6f 6e 20 74  |ne .of them on t|
00000170  68 65 20 41 63 6f 72 6e  20 55 73 65 72 20 53 68  |he Acorn User Sh|
00000180  61 72 65 77 61 72 65 20  64 69 73 63 20 61 6e 64  |areware disc and|
00000190  20 6f 6e 65 20 6f 6e 20  61 6e 20 61 6e 63 69 65  | one on an ancie|
000001a0  6e 74 20 42 41 55 0a 6d  61 67 61 7a 69 6e 65 20  |nt BAU.magazine |
000001b0  64 69 73 63 2c 20 62 75  74 20 49 20 74 68 69 6e  |disc, but I thin|
000001c0  6b 20 6d 69 6e 65 20 69  73 20 74 68 65 20 62 65  |k mine is the be|
000001d0  73 74 20 62 65 63 61 75  73 65 3a 0a 0a 20 20 61  |st because:..  a|
000001e0  29 20 49 74 20 69 73 20  61 20 6d 6f 64 75 6c 65  |) It is a module|
000001f0  20 61 6e 64 20 74 68 75  73 20 74 61 6b 65 73 20  | and thus takes |
00000200  75 70 20 6f 6e 6c 79 20  38 31 36 20 62 79 74 65  |up only 816 byte|
00000210  73 20 6f 66 20 52 4d 41  20 77 68 65 72 65 61 73  |s of RMA whereas|
00000220  20 74 68 65 0a 20 20 20  20 20 6f 74 68 65 72 73  | the.     others|
00000230  20 61 6c 6c 20 74 6f 6f  6b 20 61 74 20 6c 65 61  | all took at lea|
00000240  73 74 20 33 32 6b 20 6f  6e 20 61 20 34 4d 62 20  |st 32k on a 4Mb |
00000250  6d 61 63 68 69 6e 65 2e  0a 20 20 62 29 20 49 74  |machine..  b) It|
00000260  20 77 69 6c 6c 20 77 6f  72 6b 20 77 69 74 68 69  | will work withi|
00000270  6e 20 61 6e 79 20 70 72  6f 67 72 61 6d 20 77 68  |n any program wh|
00000280  69 63 68 20 75 73 65 73  20 74 68 65 20 6d 6f 75  |ich uses the mou|
00000290  73 65 20 65 76 65 6e 20  6f 75 74 73 69 64 65 0a  |se even outside.|
000002a0  20 20 20 20 20 74 68 65  20 64 65 73 6b 74 6f 70  |     the desktop|
000002b0  2c 20 61 6c 74 68 6f 75  67 68 20 73 6f 6d 65 20  |, although some |
000002c0  73 63 72 65 65 6e 20 6d  6f 64 65 73 20 64 6f 20  |screen modes do |
000002d0  67 69 76 65 20 70 72 6f  62 6c 65 6d 73 20 77 68  |give problems wh|
000002e0  65 6e 0a 20 20 20 20 20  65 64 67 65 20 73 65 74  |en.     edge set|
000002f0  74 69 6e 67 73 20 61 72  65 20 74 6f 6f 20 6c 6f  |tings are too lo|
00000300  77 2e 0a 20 20 63 29 20  49 74 20 69 73 20 6a 75  |w..  c) It is ju|
00000310  73 74 20 77 6f 6e 64 65  72 66 75 6c 2e           |st wonderful.|
0000031d