��background
�err$:err$="Background"
�1,128,64,64:�2,64,128,128
(�0,1:ȓȐ0,0,1279,1023
2�3,3
<%�X%=0�1279�128:ȓȐX%,0,63,1023:�
F%�Y%=0�1023�128:ȓȐ0,Y%,1279,63:�
P;�A%=0�2:A=2*�*A%/3+�/12:X%=640+320*�(A):Y%=512+256*�(A)
Z%�3,3:�T%=1�50:ȏȐX%,Y%,5000/T%:�
d*�3,1:ȏȐX%,Y%,100:�3,3:ȏȐX%,Y%,50:�
n
符(-99)�
xB�ctext("A Fractal",640,928,64):�ctext("==========",640,864,64)
�2�text("by Alistair Turnbull",100,200,1000,800)
�C�text("Move the",100,900,300,500):�text("Mouse",50,800,200,500)
�N�text("Press A - K",600,450,1200,300):�text("for Presets",650,350,1200,50)
�S�text("�",1000,700,1200,600):�text("&",400,300,200,200):�text("%",650,50,800,0)
��
��storeback
��
�:
���ctext(T$,X%,Y%,S%)
��err$:err$="Background"
�.W%=S%*�(T$)>>1:�text(T$,X%-W%,Y%,X%+W%,Y%)
��
�:

��text(T$,X1%,Y1%,X2%,Y2%)

�err$:err$="Background"

-DX=(X2%-X1%)/�(T$)/8:DY=(Y2%-Y1%)/�(T$)/8

"6�0,0:�t(T$,X1%,Y1%-4,DX,DY):�t(T$,X1%+4,Y1%,DX,DY)

,6�0,3:�t(T$,X1%,Y1%+4,DX,DY):�t(T$,X1%-4,Y1%,DX,DY)

6@�23,2,165,90,165,90,165,90,165,90:�16,0:�t(T$,X1%,Y1%,DX,DY)

@�

J:

T��t(T$,X,Y,DX,DY)

^�err$:err$="Background"

h8�T%=1��(T$):?work%=�(�T$,T%,1)):ș"OS_Word",10,work%

r*K%=128:�V%=0�7:U=X:V=Y:�U,V:�U+DX,V+DY

|�U%=8�1�-1:U-=DY:V+=DX

��((work%?U%)�K%)>0�

��85,U,V:�85,U+DX,V+DY

���U,V:�U+DX,V+DY

��:�:X+=DX:Y+=DY:K%=K%>>1:�,

��
�

00000000  0d 00 0a 10 dd f2 62 61  63 6b 67 72 6f 75 6e 64  |......background|
00000010  0d 00 14 1b ea 65 72 72  24 3a 65 72 72 24 3d 22  |.....err$:err$="|
00000020  42 61 63 6b 67 72 6f 75  6e 64 22 0d 00 1e 1e fb  |Background".....|
00000030  31 2c 31 32 38 2c 36 34  2c 36 34 3a fb 32 2c 36  |1,128,64,64:.2,6|
00000040  34 2c 31 32 38 2c 31 32  38 0d 00 28 1a e6 30 2c  |4,128,128..(..0,|
00000050  31 3a c8 93 c8 90 30 2c  30 2c 31 32 37 39 2c 31  |1:....0,0,1279,1|
00000060  30 32 33 0d 00 32 08 e6  33 2c 33 0d 00 3c 25 e3  |023..2..3,3..<%.|
00000070  58 25 3d 30 b8 31 32 37  39 88 31 32 38 3a c8 93  |X%=0.1279.128:..|
00000080  c8 90 58 25 2c 30 2c 36  33 2c 31 30 32 33 3a ed  |..X%,0,63,1023:.|
00000090  0d 00 46 25 e3 59 25 3d  30 b8 31 30 32 33 88 31  |..F%.Y%=0.1023.1|
000000a0  32 38 3a c8 93 c8 90 30  2c 59 25 2c 31 32 37 39  |28:....0,Y%,1279|
000000b0  2c 36 33 3a ed 0d 00 50  3b e3 41 25 3d 30 b8 32  |,63:...P;.A%=0.2|
000000c0  3a 41 3d 32 2a af 2a 41  25 2f 33 2b af 2f 31 32  |:A=2*.*A%/3+./12|
000000d0  3a 58 25 3d 36 34 30 2b  33 32 30 2a 9b 28 41 29  |:X%=640+320*.(A)|
000000e0  3a 59 25 3d 35 31 32 2b  32 35 36 2a b5 28 41 29  |:Y%=512+256*.(A)|
000000f0  0d 00 5a 25 e6 33 2c 33  3a e3 54 25 3d 31 b8 35  |..Z%.3,3:.T%=1.5|
00000100  30 3a c8 8f c8 90 58 25  2c 59 25 2c 35 30 30 30  |0:....X%,Y%,5000|
00000110  2f 54 25 3a ed 0d 00 64  2a e6 33 2c 31 3a c8 8f  |/T%:...d*.3,1:..|
00000120  c8 90 58 25 2c 59 25 2c  31 30 30 3a e6 33 2c 33  |..X%,Y%,100:.3,3|
00000130  3a c8 8f c8 90 58 25 2c  59 25 2c 35 30 3a ed 0d  |:....X%,Y%,50:..|
00000140  00 6e 0d e7 ac a6 28 2d  39 39 29 8c 0d 00 78 42  |.n....(-99)...xB|
00000150  f2 63 74 65 78 74 28 22  41 20 46 72 61 63 74 61  |.ctext("A Fracta|
00000160  6c 22 2c 36 34 30 2c 39  32 38 2c 36 34 29 3a f2  |l",640,928,64):.|
00000170  63 74 65 78 74 28 22 3d  3d 3d 3d 3d 3d 3d 3d 3d  |ctext("=========|
00000180  3d 22 2c 36 34 30 2c 38  36 34 2c 36 34 29 0d 00  |=",640,864,64)..|
00000190  82 32 f2 74 65 78 74 28  22 62 79 20 41 6c 69 73  |.2.text("by Alis|
000001a0  74 61 69 72 20 54 75 72  6e 62 75 6c 6c 22 2c 31  |tair Turnbull",1|
000001b0  30 30 2c 32 30 30 2c 31  30 30 30 2c 38 30 30 29  |00,200,1000,800)|
000001c0  0d 00 8c 43 f2 74 65 78  74 28 22 4d 6f 76 65 20  |...C.text("Move |
000001d0  74 68 65 22 2c 31 30 30  2c 39 30 30 2c 33 30 30  |the",100,900,300|
000001e0  2c 35 30 30 29 3a f2 74  65 78 74 28 22 4d 6f 75  |,500):.text("Mou|
000001f0  73 65 22 2c 35 30 2c 38  30 30 2c 32 30 30 2c 35  |se",50,800,200,5|
00000200  30 30 29 0d 00 96 4e f2  74 65 78 74 28 22 50 72  |00)...N.text("Pr|
00000210  65 73 73 20 41 20 2d 20  4b 22 2c 36 30 30 2c 34  |ess A - K",600,4|
00000220  35 30 2c 31 32 30 30 2c  33 30 30 29 3a f2 74 65  |50,1200,300):.te|
00000230  78 74 28 22 66 6f 72 20  50 72 65 73 65 74 73 22  |xt("for Presets"|
00000240  2c 36 35 30 2c 33 35 30  2c 31 32 30 30 2c 35 30  |,650,350,1200,50|
00000250  29 0d 00 a0 53 f2 74 65  78 74 28 22 a4 22 2c 31  |)...S.text(".",1|
00000260  30 30 30 2c 37 30 30 2c  31 32 30 30 2c 36 30 30  |000,700,1200,600|
00000270  29 3a f2 74 65 78 74 28  22 26 22 2c 34 30 30 2c  |):.text("&",400,|
00000280  33 30 30 2c 32 30 30 2c  32 30 30 29 3a f2 74 65  |300,200,200):.te|
00000290  78 74 28 22 25 22 2c 36  35 30 2c 35 30 2c 38 30  |xt("%",650,50,80|
000002a0  30 2c 30 29 0d 00 aa 05  cd 0d 00 b4 0e d6 73 74  |0,0)..........st|
000002b0  6f 72 65 62 61 63 6b 0d  00 be 05 e1 0d 00 c8 05  |oreback.........|
000002c0  3a 0d 00 d2 18 dd f2 63  74 65 78 74 28 54 24 2c  |:......ctext(T$,|
000002d0  58 25 2c 59 25 2c 53 25  29 0d 00 dc 1b ea 65 72  |X%,Y%,S%).....er|
000002e0  72 24 3a 65 72 72 24 3d  22 42 61 63 6b 67 72 6f  |r$:err$="Backgro|
000002f0  75 6e 64 22 0d 00 e6 2e  57 25 3d 53 25 2a a9 28  |und"....W%=S%*.(|
00000300  54 24 29 3e 3e 31 3a f2  74 65 78 74 28 54 24 2c  |T$)>>1:.text(T$,|
00000310  58 25 2d 57 25 2c 59 25  2c 58 25 2b 57 25 2c 59  |X%-W%,Y%,X%+W%,Y|
00000320  25 29 0d 00 f0 05 e1 0d  00 fa 05 3a 0d 01 04 1e  |%).........:....|
00000330  dd f2 74 65 78 74 28 54  24 2c 58 31 25 2c 59 31  |..text(T$,X1%,Y1|
00000340  25 2c 58 32 25 2c 59 32  25 29 0d 01 0e 1b ea 65  |%,X2%,Y2%).....e|
00000350  72 72 24 3a 65 72 72 24  3d 22 42 61 63 6b 67 72  |rr$:err$="Backgr|
00000360  6f 75 6e 64 22 0d 01 18  2d 44 58 3d 28 58 32 25  |ound"...-DX=(X2%|
00000370  2d 58 31 25 29 2f a9 28  54 24 29 2f 38 3a 44 59  |-X1%)/.(T$)/8:DY|
00000380  3d 28 59 32 25 2d 59 31  25 29 2f a9 28 54 24 29  |=(Y2%-Y1%)/.(T$)|
00000390  2f 38 0d 01 22 36 e6 30  2c 30 3a f2 74 28 54 24  |/8.."6.0,0:.t(T$|
000003a0  2c 58 31 25 2c 59 31 25  2d 34 2c 44 58 2c 44 59  |,X1%,Y1%-4,DX,DY|
000003b0  29 3a f2 74 28 54 24 2c  58 31 25 2b 34 2c 59 31  |):.t(T$,X1%+4,Y1|
000003c0  25 2c 44 58 2c 44 59 29  0d 01 2c 36 e6 30 2c 33  |%,DX,DY)..,6.0,3|
000003d0  3a f2 74 28 54 24 2c 58  31 25 2c 59 31 25 2b 34  |:.t(T$,X1%,Y1%+4|
000003e0  2c 44 58 2c 44 59 29 3a  f2 74 28 54 24 2c 58 31  |,DX,DY):.t(T$,X1|
000003f0  25 2d 34 2c 59 31 25 2c  44 58 2c 44 59 29 0d 01  |%-4,Y1%,DX,DY)..|
00000400  36 40 ef 32 33 2c 32 2c  31 36 35 2c 39 30 2c 31  |6@.23,2,165,90,1|
00000410  36 35 2c 39 30 2c 31 36  35 2c 39 30 2c 31 36 35  |65,90,165,90,165|
00000420  2c 39 30 3a e6 31 36 2c  30 3a f2 74 28 54 24 2c  |,90:.16,0:.t(T$,|
00000430  58 31 25 2c 59 31 25 2c  44 58 2c 44 59 29 0d 01  |X1%,Y1%,DX,DY)..|
00000440  40 05 e1 0d 01 4a 05 3a  0d 01 54 15 dd f2 74 28  |@....J.:..T...t(|
00000450  54 24 2c 58 2c 59 2c 44  58 2c 44 59 29 0d 01 5e  |T$,X,Y,DX,DY)..^|
00000460  1b ea 65 72 72 24 3a 65  72 72 24 3d 22 42 61 63  |..err$:err$="Bac|
00000470  6b 67 72 6f 75 6e 64 22  0d 01 68 38 e3 54 25 3d  |kground"..h8.T%=|
00000480  31 b8 a9 28 54 24 29 3a  3f 77 6f 72 6b 25 3d 97  |1..(T$):?work%=.|
00000490  28 c1 54 24 2c 54 25 2c  31 29 29 3a c8 99 22 4f  |(.T$,T%,1)):.."O|
000004a0  53 5f 57 6f 72 64 22 2c  31 30 2c 77 6f 72 6b 25  |S_Word",10,work%|
000004b0  0d 01 72 2a 4b 25 3d 31  32 38 3a e3 56 25 3d 30  |..r*K%=128:.V%=0|
000004c0  b8 37 3a 55 3d 58 3a 56  3d 59 3a ec 55 2c 56 3a  |.7:U=X:V=Y:.U,V:|
000004d0  ec 55 2b 44 58 2c 56 2b  44 59 0d 01 7c 1a e3 55  |.U+DX,V+DY..|..U|
000004e0  25 3d 38 b8 31 88 2d 31  3a 55 2d 3d 44 59 3a 56  |%=8.1.-1:U-=DY:V|
000004f0  2b 3d 44 58 0d 01 86 17  e7 28 28 77 6f 72 6b 25  |+=DX.....((work%|
00000500  3f 55 25 29 80 4b 25 29  3e 30 8c 0d 01 90 19 f0  |?U%).K%)>0......|
00000510  38 35 2c 55 2c 56 3a f0  38 35 2c 55 2b 44 58 2c  |85,U,V:.85,U+DX,|
00000520  56 2b 44 59 0d 01 9a 14  cc ec 55 2c 56 3a ec 55  |V+DY......U,V:.U|
00000530  2b 44 58 2c 56 2b 44 59  0d 01 a4 1f cd 3a ed 3a  |+DX,V+DY.....:.:|
00000540  58 2b 3d 44 58 3a 59 2b  3d 44 59 3a 4b 25 3d 4b  |X+=DX:Y+=DY:K%=K|
00000550  25 3e 3e 31 3a ed 2c 0d  01 ae 05 e1 0d ff        |%>>1:.,.......|
0000055e