Home » Archimedes archive » Micro User » MU 1991-07.adf » PD-Stuff » Utilities/!Pointer3/!RunImage
Utilities/!Pointer3/!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 1991-07.adf » PD-Stuff |
| Filename: | Utilities/!Pointer3/!RunImage |
| Read OK: | ✔ |
| File size: | 01CF bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM ><Current$Dir>.!RunImage 20REM By Edouard (I Hate Weedy Mouse Pointers) Poor 21 30ON ERROR ON ERROR OFF : ERROR 1 , REPORT$+" / "+STR$ERL : END 40*POINTER 0 50DIM Block 256 60$Block="TASK" 70SYS "Wimp_Initialise",200,!Block,"Pointer Fixer" TO ,TaskID 80*IconSprites <Pointer$Dir>.!Pointer 90*WimpPalette <Pointer$Dir>.!Palette 100*| The WimpPalette Seems To Have To Be Done Inside A Wimp Program 110*POINTER 1 120SYS "Wimp_Poll" , 0 , Block TO ReasonCode 130SYS "Wimp_CloseDown" 140END
� ><Current$Dir>.!RunImage 3� By Edouard (I Hate Weedy Mouse Pointers) Poor %� � � � � : � 1 , �$+" / "+Þ : � (*POINTER 0 2� Block 256 <$Block="TASK" F=ș "Wimp_Initialise",200,!Block,"Pointer Fixer" � ,TaskID P'*IconSprites <Pointer$Dir>.!Pointer Z'*WimpPalette <Pointer$Dir>.!Palette dE*| The WimpPalette Seems To Have To Be Done Inside A Wimp Program n*POINTER 1 x+ș "Wimp_Poll" , 0 , Block � ReasonCode �ș "Wimp_CloseDown" �� �
00000000 0d 00 0a 1e f4 20 3e 3c 43 75 72 72 65 6e 74 24 |..... ><Current$| 00000010 44 69 72 3e 2e 21 52 75 6e 49 6d 61 67 65 0d 00 |Dir>.!RunImage..| 00000020 14 33 f4 20 42 79 20 45 64 6f 75 61 72 64 20 28 |.3. By Edouard (| 00000030 49 20 48 61 74 65 20 57 65 65 64 79 20 4d 6f 75 |I Hate Weedy Mou| 00000040 73 65 20 50 6f 69 6e 74 65 72 73 29 20 50 6f 6f |se Pointers) Poo| 00000050 72 0d 00 15 04 0d 00 1e 25 ee 20 85 20 ee 20 85 |r.......%. . . .| 00000060 20 87 20 3a 20 85 20 31 20 2c 20 f6 24 2b 22 20 | . : . 1 , .$+" | 00000070 2f 20 22 2b c3 9e 20 3a 20 e0 0d 00 28 0e 2a 50 |/ "+.. : ...(.*P| 00000080 4f 49 4e 54 45 52 20 30 0d 00 32 0f de 20 42 6c |OINTER 0..2.. Bl| 00000090 6f 63 6b 20 32 35 36 0d 00 3c 11 24 42 6c 6f 63 |ock 256..<.$Bloc| 000000a0 6b 3d 22 54 41 53 4b 22 0d 00 46 3d c8 99 20 22 |k="TASK"..F=.. "| 000000b0 57 69 6d 70 5f 49 6e 69 74 69 61 6c 69 73 65 22 |Wimp_Initialise"| 000000c0 2c 32 30 30 2c 21 42 6c 6f 63 6b 2c 22 50 6f 69 |,200,!Block,"Poi| 000000d0 6e 74 65 72 20 46 69 78 65 72 22 20 b8 20 2c 54 |nter Fixer" . ,T| 000000e0 61 73 6b 49 44 0d 00 50 27 2a 49 63 6f 6e 53 70 |askID..P'*IconSp| 000000f0 72 69 74 65 73 20 3c 50 6f 69 6e 74 65 72 24 44 |rites <Pointer$D| 00000100 69 72 3e 2e 21 50 6f 69 6e 74 65 72 0d 00 5a 27 |ir>.!Pointer..Z'| 00000110 2a 57 69 6d 70 50 61 6c 65 74 74 65 20 3c 50 6f |*WimpPalette <Po| 00000120 69 6e 74 65 72 24 44 69 72 3e 2e 21 50 61 6c 65 |inter$Dir>.!Pale| 00000130 74 74 65 0d 00 64 45 2a 7c 20 54 68 65 20 57 69 |tte..dE*| The Wi| 00000140 6d 70 50 61 6c 65 74 74 65 20 53 65 65 6d 73 20 |mpPalette Seems | 00000150 54 6f 20 48 61 76 65 20 54 6f 20 42 65 20 44 6f |To Have To Be Do| 00000160 6e 65 20 49 6e 73 69 64 65 20 41 20 57 69 6d 70 |ne Inside A Wimp| 00000170 20 50 72 6f 67 72 61 6d 0d 00 6e 0e 2a 50 4f 49 | Program..n.*POI| 00000180 4e 54 45 52 20 31 0d 00 78 2b c8 99 20 22 57 69 |NTER 1..x+.. "Wi| 00000190 6d 70 5f 50 6f 6c 6c 22 20 2c 20 30 20 2c 20 42 |mp_Poll" , 0 , B| 000001a0 6c 6f 63 6b 20 b8 20 52 65 61 73 6f 6e 43 6f 64 |lock . ReasonCod| 000001b0 65 0d 00 82 17 c8 99 20 22 57 69 6d 70 5f 43 6c |e...... "Wimp_Cl| 000001c0 6f 73 65 44 6f 77 6e 22 0d 00 8c 05 e0 0d ff |oseDown".......| 000001cf
.