Home » Archimedes archive » Acorn User » AU 1997-06 B.adf » Extras » RiscUtils/!RuInstall/Install/Non_User/Mouse
RiscUtils/!RuInstall/Install/Non_User/Mouse
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 1997-06 B.adf » Extras |
| Filename: | RiscUtils/!RuInstall/Install/Non_User/Mouse |
| Read OK: | ✔ |
| File size: | 01FF bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
1MOUSE X,Y,B:S$="Select":M$="Menu":A$="Adjust":ON ERROR r$="<RISCutils$Path>.!Help.!Run ":OSCLI r$+"9 "+REPORT$+" at line "+STR$(ERL)
2X=INT(X/2)+1:Y=INT(Y/2)+1:OSCLI"Set MouseXcoordinate "+STR$(X):OSCLI"Set MouseYcoordinate "+STR$(Y):IF B=4OSCLI"SET MouseButtonState "+S$ELSE IF B=1OSCLI"SET MouseButtonState "+A$ELSE IF B=2OSCLI"SET MouseButtonState "+M$ELSE IF B=0OSCLI"SET MouseButtonState None"
3IF B=6OSCLI"SET MouseButtonState "+S$+"+"+M$ELSE IF B=3OSCLI"SET MouseButtonState "+M$+"+"+A$ ELSE IF B=5OSCLI"SET MouseButtonState "+S$+"+"+A$ELSE IF B=7OSCLI"SET MouseButtonState "+S$+"+"+M$+"+"+A$
rȗ X,Y,B:S$="Select":M$="Menu":A$="Adjust":� � r$="<RISCutils$Path>.!Help.!Run ":� r$+"9 "+�$+" at line "+�(�) �X=�(X/2)+1:Y=�(Y/2)+1:�"Set MouseXcoordinate "+�(X):�"Set MouseYcoordinate "+�(Y):� B=4�"SET MouseButtonState "+S$� � B=1�"SET MouseButtonState "+A$� � B=2�"SET MouseButtonState "+M$� � B=0�"SET MouseButtonState None" �� B=6�"SET MouseButtonState "+S$+"+"+M$� � B=3�"SET MouseButtonState "+M$+"+"+A$ � � B=5�"SET MouseButtonState "+S$+"+"+A$� � B=7�"SET MouseButtonState "+S$+"+"+M$+"+"+A$ �
00000000 0d 00 01 72 c8 97 20 58 2c 59 2c 42 3a 53 24 3d |...r.. X,Y,B:S$=| 00000010 22 53 65 6c 65 63 74 22 3a 4d 24 3d 22 4d 65 6e |"Select":M$="Men| 00000020 75 22 3a 41 24 3d 22 41 64 6a 75 73 74 22 3a ee |u":A$="Adjust":.| 00000030 20 85 20 72 24 3d 22 3c 52 49 53 43 75 74 69 6c | . r$="<RISCutil| 00000040 73 24 50 61 74 68 3e 2e 21 48 65 6c 70 2e 21 52 |s$Path>.!Help.!R| 00000050 75 6e 20 22 3a ff 20 72 24 2b 22 39 20 22 2b f6 |un ":. r$+"9 "+.| 00000060 24 2b 22 20 61 74 20 6c 69 6e 65 20 22 2b c3 28 |$+" at line "+.(| 00000070 9e 29 0d 00 02 dd 58 3d a8 28 58 2f 32 29 2b 31 |.)....X=.(X/2)+1| 00000080 3a 59 3d a8 28 59 2f 32 29 2b 31 3a ff 22 53 65 |:Y=.(Y/2)+1:."Se| 00000090 74 20 4d 6f 75 73 65 58 63 6f 6f 72 64 69 6e 61 |t MouseXcoordina| 000000a0 74 65 20 22 2b c3 28 58 29 3a ff 22 53 65 74 20 |te "+.(X):."Set | 000000b0 4d 6f 75 73 65 59 63 6f 6f 72 64 69 6e 61 74 65 |MouseYcoordinate| 000000c0 20 22 2b c3 28 59 29 3a e7 20 42 3d 34 ff 22 53 | "+.(Y):. B=4."S| 000000d0 45 54 20 4d 6f 75 73 65 42 75 74 74 6f 6e 53 74 |ET MouseButtonSt| 000000e0 61 74 65 20 22 2b 53 24 8b 20 e7 20 42 3d 31 ff |ate "+S$. . B=1.| 000000f0 22 53 45 54 20 4d 6f 75 73 65 42 75 74 74 6f 6e |"SET MouseButton| 00000100 53 74 61 74 65 20 22 2b 41 24 8b 20 e7 20 42 3d |State "+A$. . B=| 00000110 32 ff 22 53 45 54 20 4d 6f 75 73 65 42 75 74 74 |2."SET MouseButt| 00000120 6f 6e 53 74 61 74 65 20 22 2b 4d 24 8b 20 e7 20 |onState "+M$. . | 00000130 42 3d 30 ff 22 53 45 54 20 4d 6f 75 73 65 42 75 |B=0."SET MouseBu| 00000140 74 74 6f 6e 53 74 61 74 65 20 4e 6f 6e 65 22 0d |ttonState None".| 00000150 00 03 ae e7 20 42 3d 36 ff 22 53 45 54 20 4d 6f |.... B=6."SET Mo| 00000160 75 73 65 42 75 74 74 6f 6e 53 74 61 74 65 20 22 |useButtonState "| 00000170 2b 53 24 2b 22 2b 22 2b 4d 24 8b 20 e7 20 42 3d |+S$+"+"+M$. . B=| 00000180 33 ff 22 53 45 54 20 4d 6f 75 73 65 42 75 74 74 |3."SET MouseButt| 00000190 6f 6e 53 74 61 74 65 20 22 2b 4d 24 2b 22 2b 22 |onState "+M$+"+"| 000001a0 2b 41 24 20 8b 20 e7 20 42 3d 35 ff 22 53 45 54 |+A$ . . B=5."SET| 000001b0 20 4d 6f 75 73 65 42 75 74 74 6f 6e 53 74 61 74 | MouseButtonStat| 000001c0 65 20 22 2b 53 24 2b 22 2b 22 2b 41 24 8b 20 e7 |e "+S$+"+"+A$. .| 000001d0 20 42 3d 37 ff 22 53 45 54 20 4d 6f 75 73 65 42 | B=7."SET MouseB| 000001e0 75 74 74 6f 6e 53 74 61 74 65 20 22 2b 53 24 2b |uttonState "+S$+| 000001f0 22 2b 22 2b 4d 24 2b 22 2b 22 2b 41 24 0d ff |"+"+M$+"+"+A$..| 000001ff
.