Home » Archimedes archive » Micro User » MU 1992-03.adf » PD » Pointers/!BeebBird/!RunImage

Pointers/!BeebBird/!RunImage

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 » Micro User » MU 1992-03.adf » PD
Filename: Pointers/!BeebBird/!RunImage
Read OK: ✔
File size: 0259 bytes
Load address: 0000
Exec address: 0000
Duplicates

There are 39 duplicate copies of this file in the archive:

File contents
D��< ��40����Q��Z���BASIC -Quit @00009000,0000920Ca�\�

,� !RunImage for !NewPointer version 1.00
=� by Dave 'Send Me A Programmers Reference Manual' Thomas
:
� init thingys
� task 4
($task="TASK"
2=ș "Wimp_Initialise",200,!task,"New Pointer" � ,TaskIdent
6:
7I� Turn off pointer load palette and new pointer then re-init pointer.
87� load palette and new pointer then re-init pointer
<*Pointer 0
F&*IconSprites <Obey$Dir>.ptr_dfault
P%*WimpPalette <Obey$Dir>.mouse_pal
d*Pointer 1
n&ș "Wimp_Poll",0,task � ReasonCode
xș "Wimp_CloseDown"
��
�
00000000  44 10 9f e5 3c 20 9f e5  34 30 9f e5 04 00 12 e4  |D...< ..40......|
00000010  04 00 03 e4 04 10 51 e2  fb ff ff 5a 00 00 8f e2  |......Q....Z....|
00000020  05 00 00 ef 42 41 53 49  43 20 2d 51 75 69 74 20  |....BASIC -Quit |
00000030  40 30 30 30 30 39 30 30  30 2c 30 30 30 30 39 32  |@00009000,000092|
00000040  30 43 00 61 0c 92 00 00  5c 82 00 00 0c 02 00 00  |0C.a....\.......|
00000050  0d 00 0a 2c f4 20 21 52  75 6e 49 6d 61 67 65 20  |...,. !RunImage |
00000060  66 6f 72 20 21 4e 65 77  50 6f 69 6e 74 65 72 20  |for !NewPointer |
00000070  76 65 72 73 69 6f 6e 20  31 2e 30 30 0d 00 14 3d  |version 1.00...=|
00000080  f4 20 62 79 20 44 61 76  65 20 27 53 65 6e 64 20  |. by Dave 'Send |
00000090  4d 65 20 41 20 50 72 6f  67 72 61 6d 6d 65 72 73  |Me A Programmers|
000000a0  20 52 65 66 65 72 65 6e  63 65 20 4d 61 6e 75 61  | Reference Manua|
000000b0  6c 27 20 54 68 6f 6d 61  73 0d 00 19 05 3a 0d 00  |l' Thomas....:..|
000000c0  1a 12 f4 20 69 6e 69 74  20 74 68 69 6e 67 79 73  |... init thingys|
000000d0  0d 00 1e 0c de 20 74 61  73 6b 20 34 0d 00 28 10  |..... task 4..(.|
000000e0  24 74 61 73 6b 3d 22 54  41 53 4b 22 0d 00 32 3d  |$task="TASK"..2=|
000000f0  c8 99 20 22 57 69 6d 70  5f 49 6e 69 74 69 61 6c  |.. "Wimp_Initial|
00000100  69 73 65 22 2c 32 30 30  2c 21 74 61 73 6b 2c 22  |ise",200,!task,"|
00000110  4e 65 77 20 50 6f 69 6e  74 65 72 22 20 b8 20 2c  |New Pointer" . ,|
00000120  54 61 73 6b 49 64 65 6e  74 0d 00 36 05 3a 0d 00  |TaskIdent..6.:..|
00000130  37 49 f4 20 54 75 72 6e  20 6f 66 66 20 70 6f 69  |7I. Turn off poi|
00000140  6e 74 65 72 20 6c 6f 61  64 20 70 61 6c 65 74 74  |nter load palett|
00000150  65 20 61 6e 64 20 6e 65  77 20 70 6f 69 6e 74 65  |e and new pointe|
00000160  72 20 74 68 65 6e 20 72  65 2d 69 6e 69 74 20 70  |r then re-init p|
00000170  6f 69 6e 74 65 72 2e 0d  00 38 37 f4 20 6c 6f 61  |ointer...87. loa|
00000180  64 20 70 61 6c 65 74 74  65 20 61 6e 64 20 6e 65  |d palette and ne|
00000190  77 20 70 6f 69 6e 74 65  72 20 74 68 65 6e 20 72  |w pointer then r|
000001a0  65 2d 69 6e 69 74 20 70  6f 69 6e 74 65 72 0d 00  |e-init pointer..|
000001b0  3c 0e 2a 50 6f 69 6e 74  65 72 20 30 0d 00 46 26  |<.*Pointer 0..F&|
000001c0  2a 49 63 6f 6e 53 70 72  69 74 65 73 20 3c 4f 62  |*IconSprites <Ob|
000001d0  65 79 24 44 69 72 3e 2e  70 74 72 5f 64 66 61 75  |ey$Dir>.ptr_dfau|
000001e0  6c 74 0d 00 50 25 2a 57  69 6d 70 50 61 6c 65 74  |lt..P%*WimpPalet|
000001f0  74 65 20 3c 4f 62 65 79  24 44 69 72 3e 2e 6d 6f  |te <Obey$Dir>.mo|
00000200  75 73 65 5f 70 61 6c 0d  00 64 0e 2a 50 6f 69 6e  |use_pal..d.*Poin|
00000210  74 65 72 20 31 0d 00 6e  26 c8 99 20 22 57 69 6d  |ter 1..n&.. "Wim|
00000220  70 5f 50 6f 6c 6c 22 2c  30 2c 74 61 73 6b 20 b8  |p_Poll",0,task .|
00000230  20 52 65 61 73 6f 6e 43  6f 64 65 0d 00 78 17 c8  | ReasonCode..x..|
00000240  99 20 22 57 69 6d 70 5f  43 6c 6f 73 65 44 6f 77  |. "Wimp_CloseDow|
00000250  6e 22 0d 00 82 05 e0 0d  ff                       |n".......|
00000259

© Dominic Ford 2021–2025.

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .