� > <Opened$File>
9� Swinging Pointer by Merlyn Kline Copyright (c) 1991
� v0.10
(
2"�task%4,wimp%255:$task%="TASK"
<lastx%=0:lasty%=0:lasta%=0
F0�x%(15),y%(15):�+1:�I%=0�15:�x%(I%),y%(I%):�
PBș"Wimp_Initialise",200,!task%,"Swinging Pointer" � A%,handle%
Z�
dș"Wimp_Poll",0,wimp% � Q%
nJ�Q%=17�Q%=18:�wimp%!16=0:ș"Wimp_SpriteOp",36,,"ptr_default",%100001:�
xȗ X%,Y%,B%
�dx%=X%-lastx%:dy%=Y%-lasty%
��dx%<16��dy%<16�
�
A%=lasta%
��
�/�dy%=0:A%=90:��dx%=0:A%=0:�A%=��(�dx%/�dy%)
�J�dx%<0�dy%<0A%=180-A%:��dx%>=0�dy%<0:A%+=180:��dx%>=0�dy%>=0:A%=360-A%
�!A%=15-((A%+11.25)/22.5+15)�16
�D�A%<>lasta%:ș"Wimp_SpriteOp",36,,"p"+�A%,%1100001,x%(A%),y%(A%)
�!lastx%=X%:lasty%=Y%:lasta%=A%
��
��0
�
��  4, 0

� 12, 0

� 14, 0

� 17, 0

"� 19, 2

,� 17, 6

6� 14, 7

@� 12, 8

J�  4, 9

T�  0, 8

^�  0, 7

h�  0, 6

r�  0, 2

|�  0, 0

��  0, 0

��  0, 0
�

00000000  0d 00 0a 15 f4 20 3e 20  3c 4f 70 65 6e 65 64 24  |..... > <Opened$|
00000010  46 69 6c 65 3e 0d 00 14  39 f4 20 53 77 69 6e 67  |File>...9. Swing|
00000020  69 6e 67 20 50 6f 69 6e  74 65 72 20 62 79 20 4d  |ing Pointer by M|
00000030  65 72 6c 79 6e 20 4b 6c  69 6e 65 20 43 6f 70 79  |erlyn Kline Copy|
00000040  72 69 67 68 74 20 28 63  29 20 31 39 39 31 0d 00  |right (c) 1991..|
00000050  1e 0b f4 20 76 30 2e 31  30 0d 00 28 04 0d 00 32  |... v0.10..(...2|
00000060  22 de 74 61 73 6b 25 34  2c 77 69 6d 70 25 32 35  |".task%4,wimp%25|
00000070  35 3a 24 74 61 73 6b 25  3d 22 54 41 53 4b 22 0d  |5:$task%="TASK".|
00000080  00 3c 1e 6c 61 73 74 78  25 3d 30 3a 6c 61 73 74  |.<.lastx%=0:last|
00000090  79 25 3d 30 3a 6c 61 73  74 61 25 3d 30 0d 00 46  |y%=0:lasta%=0..F|
000000a0  30 de 78 25 28 31 35 29  2c 79 25 28 31 35 29 3a  |0.x%(15),y%(15):|
000000b0  f7 2b 31 3a e3 49 25 3d  30 b8 31 35 3a f3 78 25  |.+1:.I%=0.15:.x%|
000000c0  28 49 25 29 2c 79 25 28  49 25 29 3a ed 0d 00 50  |(I%),y%(I%):...P|
000000d0  42 c8 99 22 57 69 6d 70  5f 49 6e 69 74 69 61 6c  |B.."Wimp_Initial|
000000e0  69 73 65 22 2c 32 30 30  2c 21 74 61 73 6b 25 2c  |ise",200,!task%,|
000000f0  22 53 77 69 6e 67 69 6e  67 20 50 6f 69 6e 74 65  |"Swinging Pointe|
00000100  72 22 20 b8 20 41 25 2c  68 61 6e 64 6c 65 25 0d  |r" . A%,handle%.|
00000110  00 5a 05 f5 0d 00 64 1e  c8 99 22 57 69 6d 70 5f  |.Z....d..."Wimp_|
00000120  50 6f 6c 6c 22 2c 30 2c  77 69 6d 70 25 20 b8 20  |Poll",0,wimp% . |
00000130  51 25 0d 00 6e 4a e7 51  25 3d 31 37 84 51 25 3d  |Q%..nJ.Q%=17.Q%=|
00000140  31 38 3a e7 77 69 6d 70  25 21 31 36 3d 30 3a c8  |18:.wimp%!16=0:.|
00000150  99 22 57 69 6d 70 5f 53  70 72 69 74 65 4f 70 22  |."Wimp_SpriteOp"|
00000160  2c 33 36 2c 2c 22 70 74  72 5f 64 65 66 61 75 6c  |,36,,"ptr_defaul|
00000170  74 22 2c 25 31 30 30 30  30 31 3a e0 0d 00 78 0f  |t",%100001:...x.|
00000180  c8 97 20 58 25 2c 59 25  2c 42 25 0d 00 82 1f 64  |.. X%,Y%,B%....d|
00000190  78 25 3d 58 25 2d 6c 61  73 74 78 25 3a 64 79 25  |x%=X%-lastx%:dy%|
000001a0  3d 59 25 2d 6c 61 73 74  79 25 0d 00 8c 15 e7 94  |=Y%-lasty%......|
000001b0  64 78 25 3c 31 36 80 94  64 79 25 3c 31 36 8c 0d  |dx%<16..dy%<16..|
000001c0  00 96 0d 41 25 3d 6c 61  73 74 61 25 0d 00 a0 05  |...A%=lasta%....|
000001d0  cc 0d 00 aa 2f e7 64 79  25 3d 30 3a 41 25 3d 39  |..../.dy%=0:A%=9|
000001e0  30 3a 8b e7 64 78 25 3d  30 3a 41 25 3d 30 3a 8b  |0:..dx%=0:A%=0:.|
000001f0  41 25 3d 9d 99 28 94 64  78 25 2f 94 64 79 25 29  |A%=..(.dx%/.dy%)|
00000200  0d 00 b4 4a e7 64 78 25  3c 30 80 64 79 25 3c 30  |...J.dx%<0.dy%<0|
00000210  41 25 3d 31 38 30 2d 41  25 3a 8b e7 64 78 25 3e  |A%=180-A%:..dx%>|
00000220  3d 30 80 64 79 25 3c 30  3a 41 25 2b 3d 31 38 30  |=0.dy%<0:A%+=180|
00000230  3a 8b e7 64 78 25 3e 3d  30 80 64 79 25 3e 3d 30  |:..dx%>=0.dy%>=0|
00000240  3a 41 25 3d 33 36 30 2d  41 25 0d 00 be 21 41 25  |:A%=360-A%...!A%|
00000250  3d 31 35 2d 28 28 41 25  2b 31 31 2e 32 35 29 2f  |=15-((A%+11.25)/|
00000260  32 32 2e 35 2b 31 35 29  83 31 36 0d 00 c8 44 e7  |22.5+15).16...D.|
00000270  41 25 3c 3e 6c 61 73 74  61 25 3a c8 99 22 57 69  |A%<>lasta%:.."Wi|
00000280  6d 70 5f 53 70 72 69 74  65 4f 70 22 2c 33 36 2c  |mp_SpriteOp",36,|
00000290  2c 22 70 22 2b c3 41 25  2c 25 31 31 30 30 30 30  |,"p"+.A%,%110000|
000002a0  31 2c 78 25 28 41 25 29  2c 79 25 28 41 25 29 0d  |1,x%(A%),y%(A%).|
000002b0  00 d2 21 6c 61 73 74 78  25 3d 58 25 3a 6c 61 73  |..!lastx%=X%:las|
000002c0  74 79 25 3d 59 25 3a 6c  61 73 74 61 25 3d 41 25  |ty%=Y%:lasta%=A%|
000002d0  0d 00 dc 05 cd 0d 00 e6  06 fd 30 0d 00 f0 04 0d  |..........0.....|
000002e0  00 fa 0b dc 20 20 34 2c  20 30 0d 01 04 0b dc 20  |....  4, 0..... |
000002f0  31 32 2c 20 30 0d 01 0e  0b dc 20 31 34 2c 20 30  |12, 0..... 14, 0|
00000300  0d 01 18 0b dc 20 31 37  2c 20 30 0d 01 22 0b dc  |..... 17, 0.."..|
00000310  20 31 39 2c 20 32 0d 01  2c 0b dc 20 31 37 2c 20  | 19, 2..,.. 17, |
00000320  36 0d 01 36 0b dc 20 31  34 2c 20 37 0d 01 40 0b  |6..6.. 14, 7..@.|
00000330  dc 20 31 32 2c 20 38 0d  01 4a 0b dc 20 20 34 2c  |. 12, 8..J..  4,|
00000340  20 39 0d 01 54 0b dc 20  20 30 2c 20 38 0d 01 5e  | 9..T..  0, 8..^|
00000350  0b dc 20 20 30 2c 20 37  0d 01 68 0b dc 20 20 30  |..  0, 7..h..  0|
00000360  2c 20 36 0d 01 72 0b dc  20 20 30 2c 20 32 0d 01  |, 6..r..  0, 2..|
00000370  7c 0b dc 20 20 30 2c 20  30 0d 01 86 0b dc 20 20  ||..  0, 0.....  |
00000380  30 2c 20 30 0d 01 90 0b  dc 20 20 30 2c 20 30 0d  |0, 0.....  0, 0.|
00000390  ff                                                |.|
00000391