�mode("X480 Y352 G256"):�
� C = 0 � 255:� C,C,C,C:� C
$� � ș 6,112,1:ș 6,113,1:�:�:�
(�FINDMEM
2B=1
<N=4
F � X(N),Y(N),R(N),XP(N),YP(N)
P�
Z� L = 1 � N
dX(L)=256/N
nY(L)=256/N
xR(L)=�(�)*�(10)
�� L
�:
�
��
�	X=480
�	Y=352
�� L = 1 � N
��ROT(X(L),Y(L),R(L)/5)
�X(L)=RX
�Y(L)=RY
�X+=X(L)
�Y+=Y(L)
�XP(L)=X

YP(L)=Y

�BLUR(X*�(L-1),Y*�(L-1),5)

� R(L)+=0.25*SGN(RND)

"� L

,:

6
� �-99

@�:� � �-99

J�

T� �

^�

h:

r:

|:

�� �ROT(TX,TY,TR)

�TR=�(TR)

�RX=TX*�(TR)-TY*�(TR)

�RY=TX*�(TR)+TY*�(TR)

��

�:

�:

�:

�:

�:

�:

���BLUR(BX,BY,R)

�� YC,S,X,Y,Y
� YC = 2 � R � 2
S=�((R^2)-(YC^2))
� X = BX-S � BX+S � 2
&Y=BY+YC
0�POINT(X,Y)
:Y=BY-YC
D�POINT(X,Y)
N� X
X� YC
b:
lS=�(R^2)
v� X = BX-S � BX+S � 2
�Y=BY
��POINT(X,Y)
�� X
��
�:
�:
�:
�� �POINT(BX,BY)
�� A
�A=�(BX/2)+�((704-BY)/2)*480
�5� BX>0 � BX<960 � BY>0 � BY<704 BASE_ADDRESS?A+=6
��
�:
:
:
� �mode(mode$)
 � c$,ex,ey,mode,end
*
� mode 64
4end=mode+20
>!mode=1
Hmode!4=��_m(mode$,"X","")
Rmode!8=��_m(mode$,"Y","")
\c$=�_m(mode$,"C","*")
f� c$="*" �
p c$=�_m(mode$,"G","")
z' � c$="256" !end=3:end!4=255:end+=8
��
�mode!12=�_bpp(c$)
� mode!16=��_m(mode$,"F","-1")
�ex=��_m(mode$,"EX","-1")
�#� ex<>-1 !end=4:end!4=ex:end+=8
�ey=��_m(mode$,"EY","-1")
�#� ey<>-1 !end=5:end!4=ey:end+=8
�!end=-1
�
� mode
��
�
�� �_m(s$,p$,d$)
�	� i,j

i=�s$,p$)
%� i<1 � d$="" � 490,"Missing "+p$
� i<1 � =d$
$j=�s$+" "," ",i+1)
.=�s$,i+1,j-i-1)
8
B� �_bpp(n$)
LȎ n$ �
V
 � "2":=0
`
 � "4":=1
j � "16":=2
t � "256":=3
~! � "32T","32t","32K","32k":=4
� � "16M","16m":=5
�! : � 490,"Bad parameter "+n$
��
�:
� :
� :
� � �FINDMEM
� � input_list  8
� � output_list 4
� input_list!0 = 149
� input_list!4 =  -1
�4 ș "OS_ReadVduVariables",input_list,output_list
! BASE_ADDRESS = output_list!0

 �

�

00000000  0d 00 0a 1d f2 6d 6f 64  65 28 22 58 34 38 30 20  |.....mode("X480 |
00000010  59 33 35 32 20 47 32 35  36 22 29 3a 87 0d 00 14  |Y352 G256"):....|
00000020  1f e3 20 43 20 3d 20 30  20 b8 20 32 35 35 3a fb  |.. C = 0 . 255:.|
00000030  20 43 2c 43 2c 43 2c 43  3a ed 20 43 0d 00 1e 24  | C,C,C,C:. C...$|
00000040  ee 20 85 20 c8 99 20 36  2c 31 31 32 2c 31 3a c8  |. . .. 6,112,1:.|
00000050  99 20 36 2c 31 31 33 2c  31 3a f1 9e 3a f6 3a e0  |. 6,113,1:..:.:.|
00000060  0d 00 28 0c f2 46 49 4e  44 4d 45 4d 0d 00 32 07  |..(..FINDMEM..2.|
00000070  42 3d 31 0d 00 3c 07 4e  3d 34 0d 00 46 20 de 20  |B=1..<.N=4..F . |
00000080  58 28 4e 29 2c 59 28 4e  29 2c 52 28 4e 29 2c 58  |X(N),Y(N),R(N),X|
00000090  50 28 4e 29 2c 59 50 28  4e 29 0d 00 50 05 f5 0d  |P(N),YP(N)..P...|
000000a0  00 5a 0f e3 20 4c 20 3d  20 31 20 b8 20 4e 0d 00  |.Z.. L = 1 . N..|
000000b0  64 0e 58 28 4c 29 3d 32  35 36 2f 4e 0d 00 6e 0e  |d.X(L)=256/N..n.|
000000c0  59 28 4c 29 3d 32 35 36  2f 4e 0d 00 78 13 52 28  |Y(L)=256/N..x.R(|
000000d0  4c 29 3d b4 28 b3 29 2a  b3 28 31 30 29 0d 00 82  |L)=.(.)*.(10)...|
000000e0  07 ed 20 4c 0d 00 8c 05  3a 0d 00 96 04 0d 00 a0  |.. L....:.......|
000000f0  05 f5 0d 00 aa 09 58 3d  34 38 30 0d 00 b4 09 59  |......X=480....Y|
00000100  3d 33 35 32 0d 00 be 0f  e3 20 4c 20 3d 20 31 20  |=352..... L = 1 |
00000110  b8 20 4e 0d 00 c8 1a f2  52 4f 54 28 58 28 4c 29  |. N.....ROT(X(L)|
00000120  2c 59 28 4c 29 2c 52 28  4c 29 2f 35 29 0d 00 d2  |,Y(L),R(L)/5)...|
00000130  0b 58 28 4c 29 3d 52 58  0d 00 dc 0b 59 28 4c 29  |.X(L)=RX....Y(L)|
00000140  3d 52 59 0d 00 e6 0b 58  2b 3d 58 28 4c 29 0d 00  |=RY....X+=X(L)..|
00000150  f0 0b 59 2b 3d 59 28 4c  29 0d 00 fa 0b 58 50 28  |..Y+=Y(L)....XP(|
00000160  4c 29 3d 58 0d 01 04 0b  59 50 28 4c 29 3d 59 0d  |L)=X....YP(L)=Y.|
00000170  01 0e 1e f2 42 4c 55 52  28 58 2a b4 28 4c 2d 31  |....BLUR(X*.(L-1|
00000180  29 2c 59 2a b4 28 4c 2d  31 29 2c 35 29 0d 01 18  |),Y*.(L-1),5)...|
00000190  19 f4 20 52 28 4c 29 2b  3d 30 2e 32 35 2a 53 47  |.. R(L)+=0.25*SG|
000001a0  4e 28 52 4e 44 29 0d 01  22 07 ed 20 4c 0d 01 2c  |N(RND)..".. L..,|
000001b0  05 3a 0d 01 36 0a fd 20  a6 2d 39 39 0d 01 40 0e  |.:..6.. .-99..@.|
000001c0  f5 3a fd 20 ac 20 a6 2d  39 39 0d 01 4a 05 db 0d  |.:. . .-99..J...|
000001d0  01 54 07 fd 20 a3 0d 01  5e 05 e0 0d 01 68 05 3a  |.T.. ...^....h.:|
000001e0  0d 01 72 05 3a 0d 01 7c  05 3a 0d 01 86 14 dd 20  |..r.:..|.:..... |
000001f0  f2 52 4f 54 28 54 58 2c  54 59 2c 54 52 29 0d 01  |.ROT(TX,TY,TR)..|
00000200  90 0c 54 52 3d b2 28 54  52 29 0d 01 9a 18 52 58  |..TR=.(TR)....RX|
00000210  3d 54 58 2a 9b 28 54 52  29 2d 54 59 2a b5 28 54  |=TX*.(TR)-TY*.(T|
00000220  52 29 0d 01 a4 18 52 59  3d 54 58 2a b5 28 54 52  |R)....RY=TX*.(TR|
00000230  29 2b 54 59 2a 9b 28 54  52 29 0d 01 ae 05 e1 0d  |)+TY*.(TR)......|
00000240  01 b8 05 3a 0d 01 c2 05  3a 0d 01 cc 05 3a 0d 01  |...:....:....:..|
00000250  d6 05 3a 0d 01 e0 05 3a  0d 01 ea 05 3a 0d 01 f4  |..:....:....:...|
00000260  13 dd f2 42 4c 55 52 28  42 58 2c 42 59 2c 52 29  |...BLUR(BX,BY,R)|
00000270  0d 01 fe 10 ea 20 59 43  2c 53 2c 58 2c 59 2c 59  |..... YC,S,X,Y,Y|
00000280  0d 02 08 14 e3 20 59 43  20 3d 20 32 20 b8 20 52  |..... YC = 2 . R|
00000290  20 88 20 32 0d 02 12 15  53 3d b6 28 28 52 5e 32  | . 2....S=.((R^2|
000002a0  29 2d 28 59 43 5e 32 29  29 0d 02 1c 19 e3 20 58  |)-(YC^2))..... X|
000002b0  20 3d 20 42 58 2d 53 20  b8 20 42 58 2b 53 20 88  | = BX-S . BX+S .|
000002c0  20 32 0d 02 26 0b 59 3d  42 59 2b 59 43 0d 02 30  | 2..&.Y=BY+YC..0|
000002d0  0f f2 50 4f 49 4e 54 28  58 2c 59 29 0d 02 3a 0b  |..POINT(X,Y)..:.|
000002e0  59 3d 42 59 2d 59 43 0d  02 44 0f f2 50 4f 49 4e  |Y=BY-YC..D..POIN|
000002f0  54 28 58 2c 59 29 0d 02  4e 07 ed 20 58 0d 02 58  |T(X,Y)..N.. X..X|
00000300  08 ed 20 59 43 0d 02 62  05 3a 0d 02 6c 0c 53 3d  |.. YC..b.:..l.S=|
00000310  b6 28 52 5e 32 29 0d 02  76 19 e3 20 58 20 3d 20  |.(R^2)..v.. X = |
00000320  42 58 2d 53 20 b8 20 42  58 2b 53 20 88 20 32 0d  |BX-S . BX+S . 2.|
00000330  02 80 08 59 3d 42 59 0d  02 8a 0f f2 50 4f 49 4e  |...Y=BY.....POIN|
00000340  54 28 58 2c 59 29 0d 02  94 07 ed 20 58 0d 02 9e  |T(X,Y)..... X...|
00000350  05 e1 0d 02 a8 05 3a 0d  02 b2 05 3a 0d 02 bc 05  |......:....:....|
00000360  3a 0d 02 c6 13 dd 20 f2  50 4f 49 4e 54 28 42 58  |:..... .POINT(BX|
00000370  2c 42 59 29 0d 02 d0 07  ea 20 41 0d 02 da 1f 41  |,BY)..... A....A|
00000380  3d a8 28 42 58 2f 32 29  2b a8 28 28 37 30 34 2d  |=.(BX/2)+.((704-|
00000390  42 59 29 2f 32 29 2a 34  38 30 0d 02 e4 35 e7 20  |BY)/2)*480...5. |
000003a0  42 58 3e 30 20 80 20 42  58 3c 39 36 30 20 80 20  |BX>0 . BX<960 . |
000003b0  42 59 3e 30 20 80 20 42  59 3c 37 30 34 20 42 41  |BY>0 . BY<704 BA|
000003c0  53 45 5f 41 44 44 52 45  53 53 3f 41 2b 3d 36 0d  |SE_ADDRESS?A+=6.|
000003d0  02 ee 05 e1 0d 02 f8 05  3a 0d 03 02 05 3a 0d 03  |........:....:..|
000003e0  0c 05 3a 0d 03 16 12 dd  20 f2 6d 6f 64 65 28 6d  |..:..... .mode(m|
000003f0  6f 64 65 24 29 0d 03 20  17 ea 20 63 24 2c 65 78  |ode$).. .. c$,ex|
00000400  2c 65 79 2c 6d 6f 64 65  2c 65 6e 64 0d 03 2a 0d  |,ey,mode,end..*.|
00000410  de 20 6d 6f 64 65 20 36  34 0d 03 34 0f 65 6e 64  |. mode 64..4.end|
00000420  3d 6d 6f 64 65 2b 32 30  0d 03 3e 0b 21 6d 6f 64  |=mode+20..>.!mod|
00000430  65 3d 31 0d 03 48 1d 6d  6f 64 65 21 34 3d bb a4  |e=1..H.mode!4=..|
00000440  5f 6d 28 6d 6f 64 65 24  2c 22 58 22 2c 22 22 29  |_m(mode$,"X","")|
00000450  0d 03 52 1d 6d 6f 64 65  21 38 3d bb a4 5f 6d 28  |..R.mode!8=.._m(|
00000460  6d 6f 64 65 24 2c 22 59  22 2c 22 22 29 0d 03 5c  |mode$,"Y","")..\|
00000470  19 63 24 3d a4 5f 6d 28  6d 6f 64 65 24 2c 22 43  |.c$=._m(mode$,"C|
00000480  22 2c 22 2a 22 29 0d 03  66 0e e7 20 63 24 3d 22  |","*")..f.. c$="|
00000490  2a 22 20 8c 0d 03 70 19  20 63 24 3d a4 5f 6d 28  |*" ...p. c$=._m(|
000004a0  6d 6f 64 65 24 2c 22 47  22 2c 22 22 29 0d 03 7a  |mode$,"G","")..z|
000004b0  27 20 e7 20 63 24 3d 22  32 35 36 22 20 21 65 6e  |' . c$="256" !en|
000004c0  64 3d 33 3a 65 6e 64 21  34 3d 32 35 35 3a 65 6e  |d=3:end!4=255:en|
000004d0  64 2b 3d 38 0d 03 84 05  cd 0d 03 8e 15 6d 6f 64  |d+=8.........mod|
000004e0  65 21 31 32 3d a4 5f 62  70 70 28 63 24 29 0d 03  |e!12=._bpp(c$)..|
000004f0  98 20 6d 6f 64 65 21 31  36 3d bb a4 5f 6d 28 6d  |. mode!16=.._m(m|
00000500  6f 64 65 24 2c 22 46 22  2c 22 2d 31 22 29 0d 03  |ode$,"F","-1")..|
00000510  a2 1c 65 78 3d bb a4 5f  6d 28 6d 6f 64 65 24 2c  |..ex=.._m(mode$,|
00000520  22 45 58 22 2c 22 2d 31  22 29 0d 03 ac 23 e7 20  |"EX","-1")...#. |
00000530  65 78 3c 3e 2d 31 20 21  65 6e 64 3d 34 3a 65 6e  |ex<>-1 !end=4:en|
00000540  64 21 34 3d 65 78 3a 65  6e 64 2b 3d 38 0d 03 b6  |d!4=ex:end+=8...|
00000550  1c 65 79 3d bb a4 5f 6d  28 6d 6f 64 65 24 2c 22  |.ey=.._m(mode$,"|
00000560  45 59 22 2c 22 2d 31 22  29 0d 03 c0 23 e7 20 65  |EY","-1")...#. e|
00000570  79 3c 3e 2d 31 20 21 65  6e 64 3d 35 3a 65 6e 64  |y<>-1 !end=5:end|
00000580  21 34 3d 65 79 3a 65 6e  64 2b 3d 38 0d 03 ca 0b  |!4=ey:end+=8....|
00000590  21 65 6e 64 3d 2d 31 0d  03 d4 0a eb 20 6d 6f 64  |!end=-1..... mod|
000005a0  65 0d 03 de 05 e1 0d 03  e8 04 0d 03 f2 13 dd 20  |e.............. |
000005b0  a4 5f 6d 28 73 24 2c 70  24 2c 64 24 29 0d 03 fc  |._m(s$,p$,d$)...|
000005c0  09 ea 20 69 2c 6a 0d 04  06 0d 69 3d a7 73 24 2c  |.. i,j....i=.s$,|
000005d0  70 24 29 0d 04 10 25 e7  20 69 3c 31 20 80 20 64  |p$)...%. i<1 . d|
000005e0  24 3d 22 22 20 85 20 34  39 30 2c 22 4d 69 73 73  |$="" . 490,"Miss|
000005f0  69 6e 67 20 22 2b 70 24  0d 04 1a 0f e7 20 69 3c  |ing "+p$..... i<|
00000600  31 20 8c 20 3d 64 24 0d  04 24 16 6a 3d a7 73 24  |1 . =d$..$.j=.s$|
00000610  2b 22 20 22 2c 22 20 22  2c 69 2b 31 29 0d 04 2e  |+" "," ",i+1)...|
00000620  13 3d c1 73 24 2c 69 2b  31 2c 6a 2d 69 2d 31 29  |.=.s$,i+1,j-i-1)|
00000630  0d 04 38 04 0d 04 42 0f  dd 20 a4 5f 62 70 70 28  |..8...B.. ._bpp(|
00000640  6e 24 29 0d 04 4c 0b c8  8e 20 6e 24 20 ca 0d 04  |n$)..L... n$ ...|
00000650  56 0d 20 c9 20 22 32 22  3a 3d 30 0d 04 60 0d 20  |V. . "2":=0..`. |
00000660  c9 20 22 34 22 3a 3d 31  0d 04 6a 0e 20 c9 20 22  |. "4":=1..j. . "|
00000670  31 36 22 3a 3d 32 0d 04  74 0f 20 c9 20 22 32 35  |16":=2..t. . "25|
00000680  36 22 3a 3d 33 0d 04 7e  21 20 c9 20 22 33 32 54  |6":=3..~! . "32T|
00000690  22 2c 22 33 32 74 22 2c  22 33 32 4b 22 2c 22 33  |","32t","32K","3|
000006a0  32 6b 22 3a 3d 34 0d 04  88 15 20 c9 20 22 31 36  |2k":=4.... . "16|
000006b0  4d 22 2c 22 31 36 6d 22  3a 3d 35 0d 04 92 21 20  |M","16m":=5...! |
000006c0  7f 3a 20 85 20 34 39 30  2c 22 42 61 64 20 70 61  |.: . 490,"Bad pa|
000006d0  72 61 6d 65 74 65 72 20  22 2b 6e 24 0d 04 9c 05  |rameter "+n$....|
000006e0  cb 0d 04 a6 05 3a 0d 04  b0 06 20 3a 0d 04 ba 06  |.....:.... :....|
000006f0  20 3a 0d 04 c4 0f 20 dd  20 f2 46 49 4e 44 4d 45  | :.... . .FINDME|
00000700  4d 0d 04 ce 14 20 de 20  69 6e 70 75 74 5f 6c 69  |M.... . input_li|
00000710  73 74 20 20 38 0d 04 d8  14 20 de 20 6f 75 74 70  |st  8.... . outp|
00000720  75 74 5f 6c 69 73 74 20  34 0d 04 e2 17 20 69 6e  |ut_list 4.... in|
00000730  70 75 74 5f 6c 69 73 74  21 30 20 3d 20 31 34 39  |put_list!0 = 149|
00000740  0d 04 ec 17 20 69 6e 70  75 74 5f 6c 69 73 74 21  |.... input_list!|
00000750  34 20 3d 20 20 2d 31 0d  04 f6 34 20 c8 99 20 22  |4 =  -1...4 .. "|
00000760  4f 53 5f 52 65 61 64 56  64 75 56 61 72 69 61 62  |OS_ReadVduVariab|
00000770  6c 65 73 22 2c 69 6e 70  75 74 5f 6c 69 73 74 2c  |les",input_list,|
00000780  6f 75 74 70 75 74 5f 6c  69 73 74 0d 05 00 21 20  |output_list...! |
00000790  42 41 53 45 5f 41 44 44  52 45 53 53 20 3d 20 6f  |BASE_ADDRESS = o|
000007a0  75 74 70 75 74 5f 6c 69  73 74 21 30 0d 05 0a 06  |utput_list!0....|
000007b0  20 e1 0d 05 14 04 0d ff                           | .......|
000007b8