� > SPIDERWEB

�mode("X800 Y600 G256")
�
(A%=0:H1%=0:H2%=0:�
2%X1%=800+H1%*��A%:Y1%=600+H1%*��A%
</X2%=800+H1%*��(A%+18):Y2%=600+H1%*��(A%+18)
F/X3%=800+H2%*��(A%+18):Y3%=600+H2%*��(A%+18)
P)X4%=800+H2%*��(A%):Y4%=600+H2%*��(A%)
Z'�A(X1%,Y1%,X2%,Y2%,X3%,Y3%,X4%,Y4%)
d%A%+=18:H2%+=4:� H2%>76 H1%=H2%-80
n�H1%>=1000
x�
�
�(��A(X1%,Y1%,X2%,Y2%,X3%,Y3%,X4%,Y4%)
�� XC%,YC%,N%
�0�X4%,Y4%:�X1%,Y1%:�X2%,Y2%:�X3%,Y3%:�X4%,Y4%
�3XC%=(X1%+X2%+X3%+X4%)/4:YC%=(Y1%+Y2%+Y3%+Y4%)/4
��N%=0�31
�K%=8*N%:� K%,K%,K%
�5� ((32-N%)*X1%+N%*XC%)/32,((32-N%)*Y1%+N%*YC%)/32
�5� ((32-N%)*X2%+N%*XC%)/32,((32-N%)*Y2%+N%*YC%)/32
�7�85,((32-N%)*X4%+N%*XC%)/32,((32-N%)*Y4%+N%*YC%)/32
�7�85,((32-N%)*X3%+N%*XC%)/32,((32-N%)*Y3%+N%*YC%)/32
��
��

6:

@� �mode(mode$)

J� c$,ex,ey,mode,end

T
� mode 64

^end=mode+20

h!mode=1

rmode!4=��_m(mode$,"X","")

|mode!8=��_m(mode$,"Y","")

�c$=�_m(mode$,"C","*")

�� c$="*" �

� c$=�_m(mode$,"G","")

�' � 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
0
i=�s$,p$)
:%� i<1 � d$="" � 490,"Missing "+p$
D� i<1 � =d$
Nj=�s$+" "," ",i+1)
X=�s$,i+1,j-i-1)
b
l� �_bpp(n$)
vȎ n$ �
�
 � "2":=0
�
 � "4":=1
� � "16":=2
� � "256":=3
�! � "32T","32t","32K","32k":=4
� � "16M","16m":=5
�! : � 490,"Bad parameter "+n$
��
�

00000000  0d 00 0a 11 f4 20 3e 20  53 50 49 44 45 52 57 45  |..... > SPIDERWE|
00000010  42 0d 00 14 04 0d 00 15  1b f2 6d 6f 64 65 28 22  |B.........mode("|
00000020  58 38 30 30 20 59 36 30  30 20 47 32 35 36 22 29  |X800 Y600 G256")|
00000030  0d 00 1e 05 87 0d 00 28  16 41 25 3d 30 3a 48 31  |.......(.A%=0:H1|
00000040  25 3d 30 3a 48 32 25 3d  30 3a f5 0d 00 32 25 58  |%=0:H2%=0:...2%X|
00000050  31 25 3d 38 30 30 2b 48  31 25 2a b5 b2 41 25 3a  |1%=800+H1%*..A%:|
00000060  59 31 25 3d 36 30 30 2b  48 31 25 2a 9b b2 41 25  |Y1%=600+H1%*..A%|
00000070  0d 00 3c 2f 58 32 25 3d  38 30 30 2b 48 31 25 2a  |..</X2%=800+H1%*|
00000080  b5 b2 28 41 25 2b 31 38  29 3a 59 32 25 3d 36 30  |..(A%+18):Y2%=60|
00000090  30 2b 48 31 25 2a 9b b2  28 41 25 2b 31 38 29 0d  |0+H1%*..(A%+18).|
000000a0  00 46 2f 58 33 25 3d 38  30 30 2b 48 32 25 2a b5  |.F/X3%=800+H2%*.|
000000b0  b2 28 41 25 2b 31 38 29  3a 59 33 25 3d 36 30 30  |.(A%+18):Y3%=600|
000000c0  2b 48 32 25 2a 9b b2 28  41 25 2b 31 38 29 0d 00  |+H2%*..(A%+18)..|
000000d0  50 29 58 34 25 3d 38 30  30 2b 48 32 25 2a b5 b2  |P)X4%=800+H2%*..|
000000e0  28 41 25 29 3a 59 34 25  3d 36 30 30 2b 48 32 25  |(A%):Y4%=600+H2%|
000000f0  2a 9b b2 28 41 25 29 0d  00 5a 27 f2 41 28 58 31  |*..(A%)..Z'.A(X1|
00000100  25 2c 59 31 25 2c 58 32  25 2c 59 32 25 2c 58 33  |%,Y1%,X2%,Y2%,X3|
00000110  25 2c 59 33 25 2c 58 34  25 2c 59 34 25 29 0d 00  |%,Y3%,X4%,Y4%)..|
00000120  64 25 41 25 2b 3d 31 38  3a 48 32 25 2b 3d 34 3a  |d%A%+=18:H2%+=4:|
00000130  e7 20 48 32 25 3e 37 36  20 48 31 25 3d 48 32 25  |. H2%>76 H1%=H2%|
00000140  2d 38 30 0d 00 6e 0e fd  48 31 25 3e 3d 31 30 30  |-80..n..H1%>=100|
00000150  30 0d 00 78 05 e0 0d 00  82 04 0d 00 8c 28 dd f2  |0..x.........(..|
00000160  41 28 58 31 25 2c 59 31  25 2c 58 32 25 2c 59 32  |A(X1%,Y1%,X2%,Y2|
00000170  25 2c 58 33 25 2c 59 33  25 2c 58 34 25 2c 59 34  |%,X3%,Y3%,X4%,Y4|
00000180  25 29 0d 00 96 10 ea 20  58 43 25 2c 59 43 25 2c  |%)..... XC%,YC%,|
00000190  4e 25 0d 00 a0 30 ec 58  34 25 2c 59 34 25 3a df  |N%...0.X4%,Y4%:.|
000001a0  58 31 25 2c 59 31 25 3a  df 58 32 25 2c 59 32 25  |X1%,Y1%:.X2%,Y2%|
000001b0  3a df 58 33 25 2c 59 33  25 3a df 58 34 25 2c 59  |:.X3%,Y3%:.X4%,Y|
000001c0  34 25 0d 00 aa 33 58 43  25 3d 28 58 31 25 2b 58  |4%...3XC%=(X1%+X|
000001d0  32 25 2b 58 33 25 2b 58  34 25 29 2f 34 3a 59 43  |2%+X3%+X4%)/4:YC|
000001e0  25 3d 28 59 31 25 2b 59  32 25 2b 59 33 25 2b 59  |%=(Y1%+Y2%+Y3%+Y|
000001f0  34 25 29 2f 34 0d 00 b4  0c e3 4e 25 3d 30 b8 33  |4%)/4.....N%=0.3|
00000200  31 0d 00 be 16 4b 25 3d  38 2a 4e 25 3a e6 20 4b  |1....K%=8*N%:. K|
00000210  25 2c 4b 25 2c 4b 25 0d  00 c8 35 ec 20 28 28 33  |%,K%,K%...5. ((3|
00000220  32 2d 4e 25 29 2a 58 31  25 2b 4e 25 2a 58 43 25  |2-N%)*X1%+N%*XC%|
00000230  29 2f 33 32 2c 28 28 33  32 2d 4e 25 29 2a 59 31  |)/32,((32-N%)*Y1|
00000240  25 2b 4e 25 2a 59 43 25  29 2f 33 32 0d 00 d2 35  |%+N%*YC%)/32...5|
00000250  ec 20 28 28 33 32 2d 4e  25 29 2a 58 32 25 2b 4e  |. ((32-N%)*X2%+N|
00000260  25 2a 58 43 25 29 2f 33  32 2c 28 28 33 32 2d 4e  |%*XC%)/32,((32-N|
00000270  25 29 2a 59 32 25 2b 4e  25 2a 59 43 25 29 2f 33  |%)*Y2%+N%*YC%)/3|
00000280  32 0d 00 dc 37 f0 38 35  2c 28 28 33 32 2d 4e 25  |2...7.85,((32-N%|
00000290  29 2a 58 34 25 2b 4e 25  2a 58 43 25 29 2f 33 32  |)*X4%+N%*XC%)/32|
000002a0  2c 28 28 33 32 2d 4e 25  29 2a 59 34 25 2b 4e 25  |,((32-N%)*Y4%+N%|
000002b0  2a 59 43 25 29 2f 33 32  0d 00 e6 37 f0 38 35 2c  |*YC%)/32...7.85,|
000002c0  28 28 33 32 2d 4e 25 29  2a 58 33 25 2b 4e 25 2a  |((32-N%)*X3%+N%*|
000002d0  58 43 25 29 2f 33 32 2c  28 28 33 32 2d 4e 25 29  |XC%)/32,((32-N%)|
000002e0  2a 59 33 25 2b 4e 25 2a  59 43 25 29 2f 33 32 0d  |*Y3%+N%*YC%)/32.|
000002f0  00 f0 05 ed 0d 00 fa 05  e1 0d 01 36 05 3a 0d 01  |...........6.:..|
00000300  40 12 dd 20 f2 6d 6f 64  65 28 6d 6f 64 65 24 29  |@.. .mode(mode$)|
00000310  0d 01 4a 17 ea 20 63 24  2c 65 78 2c 65 79 2c 6d  |..J.. c$,ex,ey,m|
00000320  6f 64 65 2c 65 6e 64 0d  01 54 0d de 20 6d 6f 64  |ode,end..T.. mod|
00000330  65 20 36 34 0d 01 5e 0f  65 6e 64 3d 6d 6f 64 65  |e 64..^.end=mode|
00000340  2b 32 30 0d 01 68 0b 21  6d 6f 64 65 3d 31 0d 01  |+20..h.!mode=1..|
00000350  72 1d 6d 6f 64 65 21 34  3d bb a4 5f 6d 28 6d 6f  |r.mode!4=.._m(mo|
00000360  64 65 24 2c 22 58 22 2c  22 22 29 0d 01 7c 1d 6d  |de$,"X","")..|.m|
00000370  6f 64 65 21 38 3d bb a4  5f 6d 28 6d 6f 64 65 24  |ode!8=.._m(mode$|
00000380  2c 22 59 22 2c 22 22 29  0d 01 86 19 63 24 3d a4  |,"Y","")....c$=.|
00000390  5f 6d 28 6d 6f 64 65 24  2c 22 43 22 2c 22 2a 22  |_m(mode$,"C","*"|
000003a0  29 0d 01 90 0e e7 20 63  24 3d 22 2a 22 20 8c 0d  |)..... c$="*" ..|
000003b0  01 9a 19 20 63 24 3d a4  5f 6d 28 6d 6f 64 65 24  |... c$=._m(mode$|
000003c0  2c 22 47 22 2c 22 22 29  0d 01 a4 27 20 e7 20 63  |,"G","")...' . c|
000003d0  24 3d 22 32 35 36 22 20  21 65 6e 64 3d 33 3a 65  |$="256" !end=3:e|
000003e0  6e 64 21 34 3d 32 35 35  3a 65 6e 64 2b 3d 38 0d  |nd!4=255:end+=8.|
000003f0  01 ae 05 cd 0d 01 b8 15  6d 6f 64 65 21 31 32 3d  |........mode!12=|
00000400  a4 5f 62 70 70 28 63 24  29 0d 01 c2 20 6d 6f 64  |._bpp(c$)... mod|
00000410  65 21 31 36 3d bb a4 5f  6d 28 6d 6f 64 65 24 2c  |e!16=.._m(mode$,|
00000420  22 46 22 2c 22 2d 31 22  29 0d 01 cc 1c 65 78 3d  |"F","-1")....ex=|
00000430  bb a4 5f 6d 28 6d 6f 64  65 24 2c 22 45 58 22 2c  |.._m(mode$,"EX",|
00000440  22 2d 31 22 29 0d 01 d6  23 e7 20 65 78 3c 3e 2d  |"-1")...#. ex<>-|
00000450  31 20 21 65 6e 64 3d 34  3a 65 6e 64 21 34 3d 65  |1 !end=4:end!4=e|
00000460  78 3a 65 6e 64 2b 3d 38  0d 01 e0 1c 65 79 3d bb  |x:end+=8....ey=.|
00000470  a4 5f 6d 28 6d 6f 64 65  24 2c 22 45 59 22 2c 22  |._m(mode$,"EY","|
00000480  2d 31 22 29 0d 01 ea 23  e7 20 65 79 3c 3e 2d 31  |-1")...#. ey<>-1|
00000490  20 21 65 6e 64 3d 35 3a  65 6e 64 21 34 3d 65 79  | !end=5:end!4=ey|
000004a0  3a 65 6e 64 2b 3d 38 0d  01 f4 0b 21 65 6e 64 3d  |:end+=8....!end=|
000004b0  2d 31 0d 01 fe 0a eb 20  6d 6f 64 65 0d 02 08 05  |-1..... mode....|
000004c0  e1 0d 02 12 04 0d 02 1c  13 dd 20 a4 5f 6d 28 73  |.......... ._m(s|
000004d0  24 2c 70 24 2c 64 24 29  0d 02 26 09 ea 20 69 2c  |$,p$,d$)..&.. i,|
000004e0  6a 0d 02 30 0d 69 3d a7  73 24 2c 70 24 29 0d 02  |j..0.i=.s$,p$)..|
000004f0  3a 25 e7 20 69 3c 31 20  80 20 64 24 3d 22 22 20  |:%. i<1 . d$="" |
00000500  85 20 34 39 30 2c 22 4d  69 73 73 69 6e 67 20 22  |. 490,"Missing "|
00000510  2b 70 24 0d 02 44 0f e7  20 69 3c 31 20 8c 20 3d  |+p$..D.. i<1 . =|
00000520  64 24 0d 02 4e 16 6a 3d  a7 73 24 2b 22 20 22 2c  |d$..N.j=.s$+" ",|
00000530  22 20 22 2c 69 2b 31 29  0d 02 58 13 3d c1 73 24  |" ",i+1)..X.=.s$|
00000540  2c 69 2b 31 2c 6a 2d 69  2d 31 29 0d 02 62 04 0d  |,i+1,j-i-1)..b..|
00000550  02 6c 0f dd 20 a4 5f 62  70 70 28 6e 24 29 0d 02  |.l.. ._bpp(n$)..|
00000560  76 0b c8 8e 20 6e 24 20  ca 0d 02 80 0d 20 c9 20  |v... n$ ..... . |
00000570  22 32 22 3a 3d 30 0d 02  8a 0d 20 c9 20 22 34 22  |"2":=0.... . "4"|
00000580  3a 3d 31 0d 02 94 0e 20  c9 20 22 31 36 22 3a 3d  |:=1.... . "16":=|
00000590  32 0d 02 9e 0f 20 c9 20  22 32 35 36 22 3a 3d 33  |2.... . "256":=3|
000005a0  0d 02 a8 21 20 c9 20 22  33 32 54 22 2c 22 33 32  |...! . "32T","32|
000005b0  74 22 2c 22 33 32 4b 22  2c 22 33 32 6b 22 3a 3d  |t","32K","32k":=|
000005c0  34 0d 02 b2 15 20 c9 20  22 31 36 4d 22 2c 22 31  |4.... . "16M","1|
000005d0  36 6d 22 3a 3d 35 0d 02  bc 21 20 7f 3a 20 85 20  |6m":=5...! .: . |
000005e0  34 39 30 2c 22 42 61 64  20 70 61 72 61 6d 65 74  |490,"Bad paramet|
000005f0  65 72 20 22 2b 6e 24 0d  02 c6 05 cb 0d ff        |er "+n$.......|
000005fe