Miscellany/!MouseCtrl/!RunImage

Home » Archimedes archive » Acorn Computing » 1993 09 Mega Disk.adf » 93_09 » Miscellany/!MouseCtrl/!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 » Acorn Computing » 1993 09 Mega Disk.adf » 93_09
Filename:	Miscellany/!MouseCtrl/!RunImage
Read OK:	✔
File size:	06AD bytes
Load address:	0000
Exec address:	0000

File contents

   10REM > !RunImage
   20REM Mouse Controller
   30REM by Paul Mason
   40REM (c) Acorn Computing
   50
   60DIM t% 256,mnu% 256:omx%=-1000:omy%=0
   70curs%=-1:spd%=1
   80SYS &6,161,194 TO ,,ms%
   90$t%="TASK"
  100SYS &400C0,200,!t%,"MouseCtrl"
  110t%!0=-1
  120t%!4=0:t%!8=12:t%!12=24:t%!16=60
  130t%!20=%11110OR&07000000:$(t%+24)="ptr_default"
  140SYS &400C2,,t%
  150
  160REPEAT
  170SYS &400C7,0,t% TO r%
  180IF r%=0 IF INKEY(-2) PROCink
  190IF r%=6 AND t%!8=2 PROCmenu
  200IF r%=9 PROCdec
  210IF INKEY(-6) IF INKEY(-9) PROCdc
  220IF curs%=-1 PROCcheck_arr
  230IF omx%<>-1000 THEN
  240REM IF NOT (INKEY(-6) AND INKEY(-9)) PROCclose
  250IF omx%<>-1000 WAIT:PROCclose
  260ENDIF
  270UNTIL (r%=17 OR r%=18) AND t%!16=0
  280END
  290DEFPROCink
  300IF INKEY(-3) PROCm(1):spd%=0
  310IF INKEY(-74) PROCm(ms%):spd%=1
  320ENDPROC
  330DEFPROCm(a%)
  340?t%=2:t%?1=a%:t%?2=a%
  350SYS &7,21,t%
  360ENDPROC
  370DEFPROCdc
  380SYS &400E6,7+(3<<4)
  390MOUSE mx%,my%,z%
  400IF omx%<>-1000 PROCch
  410omx%=mx%:omy%=my%
  420ENDIF
  430PROCch:WAIT
  440ENDPROC
  450DEFPROCch
  460LINE -4000,omy%,4000,omy%
  470LINE omx%,-4000,omx%,4000
  480ENDPROC
  490DEFPROCclose
  500SYS &400E6,7+(3<<4):PROCch
  510omx%=-1000:ENDPROC
  520DEFPROCcheck_arr
  530LOCAL a%,b%,c%,x%,y%
  540IF INKEY(-26) x%=-1
  550IF INKEY(-42) y%=-1
  560IF INKEY(-58) y%=1
  570IF INKEY(-122) x%=1
  580IF INKEY(-1) x%=x%*ms%:y%=y%*ms%
  590MOUSE a%,b%,c%:MOUSE TO a%+x%,b%+y%
  600ENDPROC
  610DEFPROCa(s$,t%)
  620!z%=t%:z%!4=0:z%!8=&07000001 OR %10000
  630z%+=12:$z%=LEFT$(s$+CHR$0,12)
  640z%+=12:ENDPROC
  650DEFPROCmenu
  660LOCAL x%,y%,z%
  670x%=t%!0:y%=t%!4
  680$mnu%="MouseCtrl"+CHR$0
  690mnu%!12=&00070207:mnu%!16=192
  700mnu%!20=44:mnu%!24=0:z%=mnu%+28
  710mm0%=z%
  720IF spd%=0 PROCa("Slow   ^ALT",1):PROCa("Fast   ^RET",0) ELSE PROCa("Slow   ^ALT",0):PROCa("Fast   ^RET",1)
  730mm1%=z%:IF curs% PROCa("Cursor keys",1) ELSE PROCa("Cursor keys",0)
  740PROCa("Quit",128):xp%=x%-64:yp%=48*4+80
  750SYS &400D4,,mnu%,xp%,yp%
  760ENDPROC
  770DEFPROCdec
  780CASE t%!0 OF
  790WHEN 0 : spd%=0:PROCm(1)
  800WHEN 1 : spd%=1:PROCm(ms%)
  810WHEN 2 : curs%=NOT curs%
  820WHEN 3 : END
  830ENDCASE
  840ENDPROC


� > !RunImage
� Mouse Controller
� by Paul Mason
(� (c) Acorn Computing
2
<'� t% 256,mnu% 256:omx%=-1000:omy%=0
Fcurs%=-1:spd%=1
Pș &6,161,194 � ,,ms%
Z$t%="TASK"
d!ș &400C0,200,!t%,"MouseCtrl"
nt%!0=-1
x$t%!4=0:t%!8=12:t%!12=24:t%!16=60
�1t%!20=%11110�&07000000:$(t%+24)="ptr_default"
�ș &400C2,,t%
�
��
�ș &400C7,0,t% � r%
�� r%=0 � �(-2) �ink
�� r%=6 � t%!8=2 �menu
�� r%=9 �dec
�� �(-6) � �(-9) �dc
�� curs%=-1 �check_arr
�� omx%<>-1000 �
�0� IF NOT (INKEY(-6) AND INKEY(-9)) PROCclose
�� omx%<>-1000 Ȗ:�close
�
� (r%=17 � r%=18) � t%!16=0
�
"	��ink
,� �(-3) �m(1):spd%=0
6� �(-74) �m(ms%):spd%=1
@�
J��m(a%)
T?t%=2:t%?1=a%:t%?2=a%
^ș &7,21,t%
h�
r��dc
|ș &400E6,7+(3<<4)
�ȗ mx%,my%,z%
�� omx%<>-1000 �ch
�omx%=mx%:omy%=my%
��
�
�ch:Ȗ
��
���ch
�� -4000,omy%,4000,omy%
�� omx%,-4000,omx%,4000
��
���close
�ș &400E6,7+(3<<4):�ch
�omx%=-1000:�
��check_arr
� a%,b%,c%,x%,y%
� �(-26) x%=-1
&� �(-42) y%=-1
0� �(-58) y%=1
:� �(-122) x%=1
D� �(-1) x%=x%*ms%:y%=y%*ms%
N ȗ a%,b%,c%:ȗ � a%+x%,b%+y%
X�
b��a(s$,t%)
l)!z%=t%:z%!4=0:z%!8=&07000001 � %10000
vz%+=12:$z%=�s$+�0,12)
�z%+=12:�
�
��menu
�� x%,y%,z%
�x%=t%!0:y%=t%!4
�$mnu%="MouseCtrl"+�0
�!mnu%!12=&00070207:mnu%!16=192
�#mnu%!20=44:mnu%!24=0:z%=mnu%+28
�mm0%=z%
�^� spd%=0 �a("Slow   ^ALT",1):�a("Fast   ^RET",0) � �a("Slow   ^ALT",0):�a("Fast   ^RET",1)
�=mm1%=z%:� curs% �a("Cursor keys",1) � �a("Cursor keys",0)
�(�a("Quit",128):xp%=x%-64:yp%=48*4+80
�ș &400D4,,mnu%,xp%,yp%
��
	��dec

Ȏ t%!0 �
� 0 : spd%=0:�m(1)
 � 1 : spd%=1:�m(ms%)
*� 2 : curs%=� curs%
4� 3 : �
>�
H�
�

00000000  0d 00 0a 11 f4 20 3e 20  21 52 75 6e 49 6d 61 67  |..... > !RunImag|
00000010  65 0d 00 14 16 f4 20 4d  6f 75 73 65 20 43 6f 6e  |e..... Mouse Con|
00000020  74 72 6f 6c 6c 65 72 0d  00 1e 13 f4 20 62 79 20  |troller..... by |
00000030  50 61 75 6c 20 4d 61 73  6f 6e 0d 00 28 19 f4 20  |Paul Mason..(.. |
00000040  28 63 29 20 41 63 6f 72  6e 20 43 6f 6d 70 75 74  |(c) Acorn Comput|
00000050  69 6e 67 0d 00 32 04 0d  00 3c 27 de 20 74 25 20  |ing..2...<'. t% |
00000060  32 35 36 2c 6d 6e 75 25  20 32 35 36 3a 6f 6d 78  |256,mnu% 256:omx|
00000070  25 3d 2d 31 30 30 30 3a  6f 6d 79 25 3d 30 0d 00  |%=-1000:omy%=0..|
00000080  46 13 63 75 72 73 25 3d  2d 31 3a 73 70 64 25 3d  |F.curs%=-1:spd%=|
00000090  31 0d 00 50 19 c8 99 20  26 36 2c 31 36 31 2c 31  |1..P... &6,161,1|
000000a0  39 34 20 b8 20 2c 2c 6d  73 25 0d 00 5a 0e 24 74  |94 . ,,ms%..Z.$t|
000000b0  25 3d 22 54 41 53 4b 22  0d 00 64 21 c8 99 20 26  |%="TASK"..d!.. &|
000000c0  34 30 30 43 30 2c 32 30  30 2c 21 74 25 2c 22 4d  |400C0,200,!t%,"M|
000000d0  6f 75 73 65 43 74 72 6c  22 0d 00 6e 0b 74 25 21  |ouseCtrl"..n.t%!|
000000e0  30 3d 2d 31 0d 00 78 24  74 25 21 34 3d 30 3a 74  |0=-1..x$t%!4=0:t|
000000f0  25 21 38 3d 31 32 3a 74  25 21 31 32 3d 32 34 3a  |%!8=12:t%!12=24:|
00000100  74 25 21 31 36 3d 36 30  0d 00 82 31 74 25 21 32  |t%!16=60...1t%!2|
00000110  30 3d 25 31 31 31 31 30  84 26 30 37 30 30 30 30  |0=%11110.&070000|
00000120  30 30 3a 24 28 74 25 2b  32 34 29 3d 22 70 74 72  |00:$(t%+24)="ptr|
00000130  5f 64 65 66 61 75 6c 74  22 0d 00 8c 11 c8 99 20  |_default"...... |
00000140  26 34 30 30 43 32 2c 2c  74 25 0d 00 96 04 0d 00  |&400C2,,t%......|
00000150  a0 05 f5 0d 00 aa 17 c8  99 20 26 34 30 30 43 37  |......... &400C7|
00000160  2c 30 2c 74 25 20 b8 20  72 25 0d 00 b4 17 e7 20  |,0,t% . r%..... |
00000170  72 25 3d 30 20 e7 20 a6  28 2d 32 29 20 f2 69 6e  |r%=0 . .(-2) .in|
00000180  6b 0d 00 be 19 e7 20 72  25 3d 36 20 80 20 74 25  |k..... r%=6 . t%|
00000190  21 38 3d 32 20 f2 6d 65  6e 75 0d 00 c8 0f e7 20  |!8=2 .menu..... |
000001a0  72 25 3d 39 20 f2 64 65  63 0d 00 d2 17 e7 20 a6  |r%=9 .dec..... .|
000001b0  28 2d 36 29 20 e7 20 a6  28 2d 39 29 20 f2 64 63  |(-6) . .(-9) .dc|
000001c0  0d 00 dc 19 e7 20 63 75  72 73 25 3d 2d 31 20 f2  |..... curs%=-1 .|
000001d0  63 68 65 63 6b 5f 61 72  72 0d 00 e6 13 e7 20 6f  |check_arr..... o|
000001e0  6d 78 25 3c 3e 2d 31 30  30 30 20 8c 0d 00 f0 30  |mx%<>-1000 ....0|
000001f0  f4 20 49 46 20 4e 4f 54  20 28 49 4e 4b 45 59 28  |. IF NOT (INKEY(|
00000200  2d 36 29 20 41 4e 44 20  49 4e 4b 45 59 28 2d 39  |-6) AND INKEY(-9|
00000210  29 29 20 50 52 4f 43 63  6c 6f 73 65 0d 00 fa 1b  |)) PROCclose....|
00000220  e7 20 6f 6d 78 25 3c 3e  2d 31 30 30 30 20 c8 96  |. omx%<>-1000 ..|
00000230  3a f2 63 6c 6f 73 65 0d  01 04 05 cd 0d 01 0e 1f  |:.close.........|
00000240  fd 20 28 72 25 3d 31 37  20 84 20 72 25 3d 31 38  |. (r%=17 . r%=18|
00000250  29 20 80 20 74 25 21 31  36 3d 30 0d 01 18 05 e0  |) . t%!16=0.....|
00000260  0d 01 22 09 dd f2 69 6e  6b 0d 01 2c 18 e7 20 a6  |.."...ink..,.. .|
00000270  28 2d 33 29 20 f2 6d 28  31 29 3a 73 70 64 25 3d  |(-3) .m(1):spd%=|
00000280  30 0d 01 36 1b e7 20 a6  28 2d 37 34 29 20 f2 6d  |0..6.. .(-74) .m|
00000290  28 6d 73 25 29 3a 73 70  64 25 3d 31 0d 01 40 05  |(ms%):spd%=1..@.|
000002a0  e1 0d 01 4a 0b dd f2 6d  28 61 25 29 0d 01 54 19  |...J...m(a%)..T.|
000002b0  3f 74 25 3d 32 3a 74 25  3f 31 3d 61 25 3a 74 25  |?t%=2:t%?1=a%:t%|
000002c0  3f 32 3d 61 25 0d 01 5e  0f c8 99 20 26 37 2c 32  |?2=a%..^... &7,2|
000002d0  31 2c 74 25 0d 01 68 05  e1 0d 01 72 08 dd f2 64  |1,t%..h....r...d|
000002e0  63 0d 01 7c 16 c8 99 20  26 34 30 30 45 36 2c 37  |c..|... &400E6,7|
000002f0  2b 28 33 3c 3c 34 29 0d  01 86 11 c8 97 20 6d 78  |+(3<<4)...... mx|
00000300  25 2c 6d 79 25 2c 7a 25  0d 01 90 15 e7 20 6f 6d  |%,my%,z%..... om|
00000310  78 25 3c 3e 2d 31 30 30  30 20 f2 63 68 0d 01 9a  |x%<>-1000 .ch...|
00000320  15 6f 6d 78 25 3d 6d 78  25 3a 6f 6d 79 25 3d 6d  |.omx%=mx%:omy%=m|
00000330  79 25 0d 01 a4 05 cd 0d  01 ae 0a f2 63 68 3a c8  |y%..........ch:.|
00000340  96 0d 01 b8 05 e1 0d 01  c2 08 dd f2 63 68 0d 01  |............ch..|
00000350  cc 1a 86 20 2d 34 30 30  30 2c 6f 6d 79 25 2c 34  |... -4000,omy%,4|
00000360  30 30 30 2c 6f 6d 79 25  0d 01 d6 1a 86 20 6f 6d  |000,omy%..... om|
00000370  78 25 2c 2d 34 30 30 30  2c 6f 6d 78 25 2c 34 30  |x%,-4000,omx%,40|
00000380  30 30 0d 01 e0 05 e1 0d  01 ea 0b dd f2 63 6c 6f  |00...........clo|
00000390  73 65 0d 01 f4 1a c8 99  20 26 34 30 30 45 36 2c  |se...... &400E6,|
000003a0  37 2b 28 33 3c 3c 34 29  3a f2 63 68 0d 01 fe 10  |7+(3<<4):.ch....|
000003b0  6f 6d 78 25 3d 2d 31 30  30 30 3a e1 0d 02 08 0f  |omx%=-1000:.....|
000003c0  dd f2 63 68 65 63 6b 5f  61 72 72 0d 02 12 14 ea  |..check_arr.....|
000003d0  20 61 25 2c 62 25 2c 63  25 2c 78 25 2c 79 25 0d  | a%,b%,c%,x%,y%.|
000003e0  02 1c 12 e7 20 a6 28 2d  32 36 29 20 78 25 3d 2d  |.... .(-26) x%=-|
000003f0  31 0d 02 26 12 e7 20 a6  28 2d 34 32 29 20 79 25  |1..&.. .(-42) y%|
00000400  3d 2d 31 0d 02 30 11 e7  20 a6 28 2d 35 38 29 20  |=-1..0.. .(-58) |
00000410  79 25 3d 31 0d 02 3a 12  e7 20 a6 28 2d 31 32 32  |y%=1..:.. .(-122|
00000420  29 20 78 25 3d 31 0d 02  44 1f e7 20 a6 28 2d 31  |) x%=1..D.. .(-1|
00000430  29 20 78 25 3d 78 25 2a  6d 73 25 3a 79 25 3d 79  |) x%=x%*ms%:y%=y|
00000440  25 2a 6d 73 25 0d 02 4e  20 c8 97 20 61 25 2c 62  |%*ms%..N .. a%,b|
00000450  25 2c 63 25 3a c8 97 20  b8 20 61 25 2b 78 25 2c  |%,c%:.. . a%+x%,|
00000460  62 25 2b 79 25 0d 02 58  05 e1 0d 02 62 0e dd f2  |b%+y%..X....b...|
00000470  61 28 73 24 2c 74 25 29  0d 02 6c 29 21 7a 25 3d  |a(s$,t%)..l)!z%=|
00000480  74 25 3a 7a 25 21 34 3d  30 3a 7a 25 21 38 3d 26  |t%:z%!4=0:z%!8=&|
00000490  30 37 30 30 30 30 30 31  20 84 20 25 31 30 30 30  |07000001 . %1000|
000004a0  30 0d 02 76 19 7a 25 2b  3d 31 32 3a 24 7a 25 3d  |0..v.z%+=12:$z%=|
000004b0  c0 73 24 2b bd 30 2c 31  32 29 0d 02 80 0c 7a 25  |.s$+.0,12)....z%|
000004c0  2b 3d 31 32 3a e1 0d 02  8a 0a dd f2 6d 65 6e 75  |+=12:.......menu|
000004d0  0d 02 94 0e ea 20 78 25  2c 79 25 2c 7a 25 0d 02  |..... x%,y%,z%..|
000004e0  9e 13 78 25 3d 74 25 21  30 3a 79 25 3d 74 25 21  |..x%=t%!0:y%=t%!|
000004f0  34 0d 02 a8 18 24 6d 6e  75 25 3d 22 4d 6f 75 73  |4....$mnu%="Mous|
00000500  65 43 74 72 6c 22 2b bd  30 0d 02 b2 21 6d 6e 75  |eCtrl"+.0...!mnu|
00000510  25 21 31 32 3d 26 30 30  30 37 30 32 30 37 3a 6d  |%!12=&00070207:m|
00000520  6e 75 25 21 31 36 3d 31  39 32 0d 02 bc 23 6d 6e  |nu%!16=192...#mn|
00000530  75 25 21 32 30 3d 34 34  3a 6d 6e 75 25 21 32 34  |u%!20=44:mnu%!24|
00000540  3d 30 3a 7a 25 3d 6d 6e  75 25 2b 32 38 0d 02 c6  |=0:z%=mnu%+28...|
00000550  0b 6d 6d 30 25 3d 7a 25  0d 02 d0 5e e7 20 73 70  |.mm0%=z%...^. sp|
00000560  64 25 3d 30 20 f2 61 28  22 53 6c 6f 77 20 20 20  |d%=0 .a("Slow   |
00000570  5e 41 4c 54 22 2c 31 29  3a f2 61 28 22 46 61 73  |^ALT",1):.a("Fas|
00000580  74 20 20 20 5e 52 45 54  22 2c 30 29 20 8b 20 f2  |t   ^RET",0) . .|
00000590  61 28 22 53 6c 6f 77 20  20 20 5e 41 4c 54 22 2c  |a("Slow   ^ALT",|
000005a0  30 29 3a f2 61 28 22 46  61 73 74 20 20 20 5e 52  |0):.a("Fast   ^R|
000005b0  45 54 22 2c 31 29 0d 02  da 3d 6d 6d 31 25 3d 7a  |ET",1)...=mm1%=z|
000005c0  25 3a e7 20 63 75 72 73  25 20 f2 61 28 22 43 75  |%:. curs% .a("Cu|
000005d0  72 73 6f 72 20 6b 65 79  73 22 2c 31 29 20 8b 20  |rsor keys",1) . |
000005e0  f2 61 28 22 43 75 72 73  6f 72 20 6b 65 79 73 22  |.a("Cursor keys"|
000005f0  2c 30 29 0d 02 e4 28 f2  61 28 22 51 75 69 74 22  |,0)...(.a("Quit"|
00000600  2c 31 32 38 29 3a 78 70  25 3d 78 25 2d 36 34 3a  |,128):xp%=x%-64:|
00000610  79 70 25 3d 34 38 2a 34  2b 38 30 0d 02 ee 1b c8  |yp%=48*4+80.....|
00000620  99 20 26 34 30 30 44 34  2c 2c 6d 6e 75 25 2c 78  |. &400D4,,mnu%,x|
00000630  70 25 2c 79 70 25 0d 02  f8 05 e1 0d 03 02 09 dd  |p%,yp%..........|
00000640  f2 64 65 63 0d 03 0c 0d  c8 8e 20 74 25 21 30 20  |.dec...... t%!0 |
00000650  ca 0d 03 16 16 c9 20 30  20 3a 20 73 70 64 25 3d  |...... 0 : spd%=|
00000660  30 3a f2 6d 28 31 29 0d  03 20 18 c9 20 31 20 3a  |0:.m(1).. .. 1 :|
00000670  20 73 70 64 25 3d 31 3a  f2 6d 28 6d 73 25 29 0d  | spd%=1:.m(ms%).|
00000680  03 2a 17 c9 20 32 20 3a  20 63 75 72 73 25 3d ac  |.*.. 2 : curs%=.|
00000690  20 63 75 72 73 25 0d 03  34 0b c9 20 33 20 3a 20  | curs%..4.. 3 : |
000006a0  e0 0d 03 3e 05 cb 0d 03  48 05 e1 0d ff           |...>....H....|
000006ad

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