� > SPIDERWEB2

�mode("X800 Y600 G256")

�:C%=0
(�T%=0�255�32
29R%=-((C%�1)<>0):G%=-((C%�2)<>0):B%=-((C%�4)<>0):C%+=1
<0�S%=0�31:Z%=8*S%:�S%-T%,Z%*R%,Z%*G%,Z%*B%:�,
FA%=0:H1%=0:H2%=0:�
P%X1%=800+H1%*��A%:Y1%=600+H1%*��A%
Z/X2%=800+H1%*��(A%+18):Y2%=600+H1%*��(A%+18)
d/X3%=800+H2%*��(A%+18):Y3%=600+H2%*��(A%+18)
n)X4%=800+H2%*��(A%):Y4%=600+H2%*��(A%)
x'�A(X1%,Y1%,X2%,Y2%,X3%,Y3%,X4%,Y4%)
�%A%+=18:H2%+=4:� H2%>76 H1%=H2%-80
��H1%>=1000
��
�
�(��A(X1%,Y1%,X2%,Y2%,X3%,Y3%,X4%,Y4%)
�� XC%,YC%,N%,D%
�0�X4%,Y4%:�X1%,Y1%:�X2%,Y2%:�X3%,Y3%:�X4%,Y4%
�3XC%=(X1%+X2%+X3%+X4%)/4:YC%=(Y1%+Y2%+Y3%+Y4%)/4
�D%=32*�(7)+1
��N%=0�30
�ș "OS_SetColour",0,N%+D%
�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$)

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

J
� mode 64

Tend=mode+20

^!mode=1

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

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

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