� � ȗ � 4:�:�:�

� 12:�
R=�(5)/10+0.5
(G=�(5)/10+0.5
2B=�(5)/10+0.5
<� C = 1 � 15
F� C,R*C*17,G*C*17,B*C*17
P� C
Z�FINDMEM
dNUM=1000
n� X(NUM),Y(NUM)
x�
�� 15
�:
�PX=�(1280)
�PY=�(1024)
�
OPY=PY
�
OPX=PX
�PXP=�(3)*�(�)
�PYP=�(3)*�(�)
�L=0
�
�	 � 15
� �
�  � MOVE PX,PY


  PX+=PXP


  PY+=PYP

  PXP+=�(3)*�(�)

"  PYP+=�(3)*�(�)

,  � PXP>10 PXP=PXP*0.9

6  � PXP<-10 PXP=PXP*0.9

@  � PYP>10 PYP=PYP*0.9

J  � PYP<-10 PYP=PYP*0.9

T8  � PX>1280 � PX<0 PXP=-PXP+�(�)*�(3):PYP+=�(�)*�(3)

^8  � PY>1024 � PY<0 PYP=-PYP+�(�)*�(3):PXP+=�(�)*�(3)

h  � DRAW PX,PY

r
  L+=1

|
  X(L)=PX

�
  Y(L)=PY

�( � �(100)=1 � L=NUM � �X(L),Y(L))<>0

� � X(1),Y(1)

� � EM = 1 � L

� � X(EM),Y(EM)

�	 � EM

��

�� 15

�M=L

�:

��B

�:

�� �
�
:
:
&:
0� �B
:� L = 1 � M
Dȗ OX,OY,OB
N�BLUR(X(L),Y(L),7)
X� L
b�
l:
v:
�:
�� �FINDMEM
�� input_list  8
�� output_list 4
�input_list!0 = 149
�input_list!4 =  -1
�3ș "OS_ReadVduVariables",input_list,output_list
� BASE_ADDRESS = output_list!0
��
�:
�:
�:
���BLUR(BX,BY,R)
� YC = 0 � R � 2
S=�((R^2)-(YC^2))
� X = BX-S � BX+S � 2
 Y=BY+YC
*�POINT(X,Y)
4Y=BY-YC
>�POINT(X,Y)
H� X
R� YC
\�
f:
p:
z:
�� �POINT(X,Y)
�
A=�X,Y+1)
�
B=�X,Y-1)
�
D=�X+1,Y)
�
E=�X-1,Y)
�F=�X-1,Y-1)
�G=�X+1,Y-1)
�H=�X+1,Y+1)
�I=�X-1,Y+1)
�J=�X,Y)
�COL=(J+A+B+D+E+F+G+H+I)/8
�	� COL
�<� SYS "ColourTrans_SetGCOL",(COL<<8)+(COL<<16)+(COL<<24)

Ȓ X,Y
%� A=INT(X/4)+(256-INT((Y)/4))*320
� BASE_ADDRESS?A+=%10001
$�
.
8
B
L
�

00000000  0d 00 0a 15 ee 20 85 20  c8 97 20 88 20 34 3a f1  |..... . .. . 4:.|
00000010  9e 3a f6 3a e0 0d 00 14  0a eb 20 31 32 3a 87 0d  |.:.:...... 12:..|
00000020  00 1e 11 52 3d b3 28 35  29 2f 31 30 2b 30 2e 35  |...R=.(5)/10+0.5|
00000030  0d 00 28 11 47 3d b3 28  35 29 2f 31 30 2b 30 2e  |..(.G=.(5)/10+0.|
00000040  35 0d 00 32 11 42 3d b3  28 35 29 2f 31 30 2b 30  |5..2.B=.(5)/10+0|
00000050  2e 35 0d 00 3c 10 e3 20  43 20 3d 20 31 20 b8 20  |.5..<.. C = 1 . |
00000060  31 35 0d 00 46 1c fb 20  43 2c 52 2a 43 2a 31 37  |15..F.. C,R*C*17|
00000070  2c 47 2a 43 2a 31 37 2c  42 2a 43 2a 31 37 0d 00  |,G*C*17,B*C*17..|
00000080  50 07 ed 20 43 0d 00 5a  0c f2 46 49 4e 44 4d 45  |P.. C..Z..FINDME|
00000090  4d 0d 00 64 0c 4e 55 4d  3d 31 30 30 30 0d 00 6e  |M..d.NUM=1000..n|
000000a0  13 de 20 58 28 4e 55 4d  29 2c 59 28 4e 55 4d 29  |.. X(NUM),Y(NUM)|
000000b0  0d 00 78 05 f5 0d 00 82  08 e6 20 31 35 0d 00 8c  |..x....... 15...|
000000c0  05 3a 0d 00 96 0e 50 58  3d b3 28 31 32 38 30 29  |.:....PX=.(1280)|
000000d0  0d 00 a0 0e 50 59 3d b3  28 31 30 32 34 29 0d 00  |....PY=.(1024)..|
000000e0  aa 0a 4f 50 59 3d 50 59  0d 00 b4 0a 4f 50 58 3d  |..OPY=PY....OPX=|
000000f0  50 58 0d 00 be 11 50 58  50 3d b3 28 33 29 2a b4  |PX....PXP=.(3)*.|
00000100  28 b3 29 0d 00 c8 11 50  59 50 3d b3 28 33 29 2a  |(.)....PYP=.(3)*|
00000110  b4 28 b3 29 0d 00 d2 07  4c 3d 30 0d 00 dc 04 0d  |.(.)....L=0.....|
00000120  00 e6 09 20 e6 20 31 35  0d 00 f0 06 20 f5 0d 00  |... . 15.... ...|
00000130  fa 12 20 20 f4 20 4d 4f  56 45 20 50 58 2c 50 59  |..  . MOVE PX,PY|
00000140  0d 01 04 0d 20 20 50 58  2b 3d 50 58 50 0d 01 0e  |....  PX+=PXP...|
00000150  0d 20 20 50 59 2b 3d 50  59 50 0d 01 18 14 20 20  |.  PY+=PYP....  |
00000160  50 58 50 2b 3d b3 28 33  29 2a b4 28 b3 29 0d 01  |PXP+=.(3)*.(.)..|
00000170  22 14 20 20 50 59 50 2b  3d b3 28 33 29 2a b4 28  |".  PYP+=.(3)*.(|
00000180  b3 29 0d 01 2c 1a 20 20  e7 20 50 58 50 3e 31 30  |.)..,.  . PXP>10|
00000190  20 50 58 50 3d 50 58 50  2a 30 2e 39 0d 01 36 1b  | PXP=PXP*0.9..6.|
000001a0  20 20 e7 20 50 58 50 3c  2d 31 30 20 50 58 50 3d  |  . PXP<-10 PXP=|
000001b0  50 58 50 2a 30 2e 39 0d  01 40 1a 20 20 e7 20 50  |PXP*0.9..@.  . P|
000001c0  59 50 3e 31 30 20 50 59  50 3d 50 59 50 2a 30 2e  |YP>10 PYP=PYP*0.|
000001d0  39 0d 01 4a 1b 20 20 e7  20 50 59 50 3c 2d 31 30  |9..J.  . PYP<-10|
000001e0  20 50 59 50 3d 50 59 50  2a 30 2e 39 0d 01 54 38  | PYP=PYP*0.9..T8|
000001f0  20 20 e7 20 50 58 3e 31  32 38 30 20 84 20 50 58  |  . PX>1280 . PX|
00000200  3c 30 20 50 58 50 3d 2d  50 58 50 2b b4 28 b3 29  |<0 PXP=-PXP+.(.)|
00000210  2a b3 28 33 29 3a 50 59  50 2b 3d b4 28 b3 29 2a  |*.(3):PYP+=.(.)*|
00000220  b3 28 33 29 0d 01 5e 38  20 20 e7 20 50 59 3e 31  |.(3)..^8  . PY>1|
00000230  30 32 34 20 84 20 50 59  3c 30 20 50 59 50 3d 2d  |024 . PY<0 PYP=-|
00000240  50 59 50 2b b4 28 b3 29  2a b3 28 33 29 3a 50 58  |PYP+.(.)*.(3):PX|
00000250  50 2b 3d b4 28 b3 29 2a  b3 28 33 29 0d 01 68 12  |P+=.(.)*.(3)..h.|
00000260  20 20 f4 20 44 52 41 57  20 50 58 2c 50 59 0d 01  |  . DRAW PX,PY..|
00000270  72 0a 20 20 4c 2b 3d 31  0d 01 7c 0d 20 20 58 28  |r.  L+=1..|.  X(|
00000280  4c 29 3d 50 58 0d 01 86  0d 20 20 59 28 4c 29 3d  |L)=PX....  Y(L)=|
00000290  50 59 0d 01 90 28 20 fd  20 b3 28 31 30 30 29 3d  |PY...( . .(100)=|
000002a0  31 20 84 20 4c 3d 4e 55  4d 20 84 20 b0 58 28 4c  |1 . L=NUM . .X(L|
000002b0  29 2c 59 28 4c 29 29 3c  3e 30 0d 01 9a 10 20 ec  |),Y(L))<>0.... .|
000002c0  20 58 28 31 29 2c 59 28  31 29 0d 01 a4 11 20 e3  | X(1),Y(1).... .|
000002d0  20 45 4d 20 3d 20 31 20  b8 20 4c 0d 01 ae 12 20  | EM = 1 . L.... |
000002e0  df 20 58 28 45 4d 29 2c  59 28 45 4d 29 0d 01 b8  |. X(EM),Y(EM)...|
000002f0  09 20 ed 20 45 4d 0d 01  c2 05 cd 0d 01 cc 08 e6  |. . EM..........|
00000300  20 31 35 0d 01 d6 07 4d  3d 4c 0d 01 e0 05 3a 0d  | 15....M=L....:.|
00000310  01 ea 06 f2 42 0d 01 f4  05 3a 0d 01 fe 07 fd 20  |....B....:..... |
00000320  a3 0d 02 08 05 e0 0d 02  12 05 3a 0d 02 1c 05 3a  |..........:....:|
00000330  0d 02 26 05 3a 0d 02 30  08 dd 20 f2 42 0d 02 3a  |..&.:..0.. .B..:|
00000340  0f e3 20 4c 20 3d 20 31  20 b8 20 4d 0d 02 44 0f  |.. L = 1 . M..D.|
00000350  c8 97 20 4f 58 2c 4f 59  2c 4f 42 0d 02 4e 16 f2  |.. OX,OY,OB..N..|
00000360  42 4c 55 52 28 58 28 4c  29 2c 59 28 4c 29 2c 37  |BLUR(X(L),Y(L),7|
00000370  29 0d 02 58 07 ed 20 4c  0d 02 62 05 e1 0d 02 6c  |)..X.. L..b....l|
00000380  05 3a 0d 02 76 05 3a 0d  02 80 05 3a 0d 02 8a 0e  |.:..v.:....:....|
00000390  dd 20 f2 46 49 4e 44 4d  45 4d 0d 02 94 13 de 20  |. .FINDMEM..... |
000003a0  69 6e 70 75 74 5f 6c 69  73 74 20 20 38 0d 02 9e  |input_list  8...|
000003b0  13 de 20 6f 75 74 70 75  74 5f 6c 69 73 74 20 34  |.. output_list 4|
000003c0  0d 02 a8 16 69 6e 70 75  74 5f 6c 69 73 74 21 30  |....input_list!0|
000003d0  20 3d 20 31 34 39 0d 02  b2 16 69 6e 70 75 74 5f  | = 149....input_|
000003e0  6c 69 73 74 21 34 20 3d  20 20 2d 31 0d 02 bc 33  |list!4 =  -1...3|
000003f0  c8 99 20 22 4f 53 5f 52  65 61 64 56 64 75 56 61  |.. "OS_ReadVduVa|
00000400  72 69 61 62 6c 65 73 22  2c 69 6e 70 75 74 5f 6c  |riables",input_l|
00000410  69 73 74 2c 6f 75 74 70  75 74 5f 6c 69 73 74 0d  |ist,output_list.|
00000420  02 c6 20 42 41 53 45 5f  41 44 44 52 45 53 53 20  |.. BASE_ADDRESS |
00000430  3d 20 6f 75 74 70 75 74  5f 6c 69 73 74 21 30 0d  |= output_list!0.|
00000440  02 d0 05 e1 0d 02 da 05  3a 0d 02 e4 05 3a 0d 02  |........:....:..|
00000450  ee 05 3a 0d 02 f8 13 dd  f2 42 4c 55 52 28 42 58  |..:......BLUR(BX|
00000460  2c 42 59 2c 52 29 0d 03  02 14 e3 20 59 43 20 3d  |,BY,R)..... YC =|
00000470  20 30 20 b8 20 52 20 88  20 32 0d 03 0c 15 53 3d  | 0 . R . 2....S=|
00000480  b6 28 28 52 5e 32 29 2d  28 59 43 5e 32 29 29 0d  |.((R^2)-(YC^2)).|
00000490  03 16 19 e3 20 58 20 3d  20 42 58 2d 53 20 b8 20  |.... X = BX-S . |
000004a0  42 58 2b 53 20 88 20 32  0d 03 20 0b 59 3d 42 59  |BX+S . 2.. .Y=BY|
000004b0  2b 59 43 0d 03 2a 0f f2  50 4f 49 4e 54 28 58 2c  |+YC..*..POINT(X,|
000004c0  59 29 0d 03 34 0b 59 3d  42 59 2d 59 43 0d 03 3e  |Y)..4.Y=BY-YC..>|
000004d0  0f f2 50 4f 49 4e 54 28  58 2c 59 29 0d 03 48 07  |..POINT(X,Y)..H.|
000004e0  ed 20 58 0d 03 52 08 ed  20 59 43 0d 03 5c 05 e1  |. X..R.. YC..\..|
000004f0  0d 03 66 05 3a 0d 03 70  05 3a 0d 03 7a 05 3a 0d  |..f.:..p.:..z.:.|
00000500  03 84 11 dd 20 f2 50 4f  49 4e 54 28 58 2c 59 29  |.... .POINT(X,Y)|
00000510  0d 03 8e 0d 41 3d b0 58  2c 59 2b 31 29 0d 03 98  |....A=.X,Y+1)...|
00000520  0d 42 3d b0 58 2c 59 2d  31 29 0d 03 a2 0d 44 3d  |.B=.X,Y-1)....D=|
00000530  b0 58 2b 31 2c 59 29 0d  03 ac 0d 45 3d b0 58 2d  |.X+1,Y)....E=.X-|
00000540  31 2c 59 29 0d 03 b6 0f  46 3d b0 58 2d 31 2c 59  |1,Y)....F=.X-1,Y|
00000550  2d 31 29 0d 03 c0 0f 47  3d b0 58 2b 31 2c 59 2d  |-1)....G=.X+1,Y-|
00000560  31 29 0d 03 ca 0f 48 3d  b0 58 2b 31 2c 59 2b 31  |1)....H=.X+1,Y+1|
00000570  29 0d 03 d4 0f 49 3d b0  58 2d 31 2c 59 2b 31 29  |)....I=.X-1,Y+1)|
00000580  0d 03 de 0b 4a 3d b0 58  2c 59 29 0d 03 e8 1d 43  |....J=.X,Y)....C|
00000590  4f 4c 3d 28 4a 2b 41 2b  42 2b 44 2b 45 2b 46 2b  |OL=(J+A+B+D+E+F+|
000005a0  47 2b 48 2b 49 29 2f 38  0d 03 f2 09 e6 20 43 4f  |G+H+I)/8..... CO|
000005b0  4c 0d 03 fc 3c f4 20 53  59 53 20 22 43 6f 6c 6f  |L...<. SYS "Colo|
000005c0  75 72 54 72 61 6e 73 5f  53 65 74 47 43 4f 4c 22  |urTrans_SetGCOL"|
000005d0  2c 28 43 4f 4c 3c 3c 38  29 2b 28 43 4f 4c 3c 3c  |,(COL<<8)+(COL<<|
000005e0  31 36 29 2b 28 43 4f 4c  3c 3c 32 34 29 0d 04 06  |16)+(COL<<24)...|
000005f0  0a c8 92 20 58 2c 59 0d  04 10 25 f4 20 41 3d 49  |... X,Y...%. A=I|
00000600  4e 54 28 58 2f 34 29 2b  28 32 35 36 2d 49 4e 54  |NT(X/4)+(256-INT|
00000610  28 28 59 29 2f 34 29 29  2a 33 32 30 0d 04 1a 1c  |((Y)/4))*320....|
00000620  f4 20 42 41 53 45 5f 41  44 44 52 45 53 53 3f 41  |. BASE_ADDRESS?A|
00000630  2b 3d 25 31 30 30 30 31  0d 04 24 05 e1 0d 04 2e  |+=%10001..$.....|
00000640  04 0d 04 38 04 0d 04 42  04 0d 04 4c 04 0d ff     |...8...B...L...|
0000064f