� >Writhe by dL
� tab 256*4
!� i=0 � 256*4-1 � 4:tab!i=0:�
(�mode("X800 Y600 G256"):�
2ȑ 800,600
<5ș "OS_SWINumberFromString",,"OS_SetColour" � col
FAș "OS_SWINumberFromString",,"ColourTrans_WritePalette" � pal
Pm=16
Z;� x(m),y(m),a(m),d(m),l(m),e(m),R(15),G(15),B(15),g(14)
d� i=0 � m-1
n x(i)=0
x y(i)=0
� a(i)=�(1)*360
��
�
� i=0 � 5
� g(i)=(i*3)*17
� g(10-i)=(i*3)*17
��
�� i=0 � 15
� R(i)=0.25+0.75*�(1)
� G(i)=0.25+0.75*�(1)
� B(i)=0.25+0.75*�(1)
��
�c=0
�t=0


�cycle

�

 � w=0 � m-1

"'  ș col, 0, (w � 16)*16+(t � 15)+1

,  � l(w)=0 �

6   l(w)=�(15)+12

@   d(w)=(�(1)*180-90)

J   e(w)=l(w)

T  �

^  x(w)+=��(a(w))*2

h  y(w)+=��(a(w))*2

r  � x(w) < -850 x(w)+=1700

|  � x(w) > 850 x(w)-=1700

�  � y(w) < -650 y(w)+=1300

�  � y(w) > 650 y(w)-=1300

�  ȏ Ȑ x(w),y(w),16*��(t)

�  a(w)+=d(w)/e(w)

�
  l(w)-=1

� �

�	 t+=1

� �cycle

�� 0

�

�� �cycle

�� z=0 � 15

� p=tab+z*16*4
 � j=0 � 14
  r=g(j)*R(z)
  g=g(j)*G(z)
&  b=g(j)*B(z)
0  q=p+4*((c+j)�15+1)
:#  !q=(b<<24) � (g<<16) � (r<<8)
D �
N�
XȖ
bș pal,-1,,tab
lc=(c+1)�15
v�
�� >PROCmode
�.� Same as BASIC MODE "X... Y... C..." etc.
�+� but uses a mode selector instead of a
�*� call to WimpMode thus preserving the
�� desktop's mode
��
�:
�� �mode(mode$)
�� c$,ex,ey,mode,end
�
� mode 64
�end=mode+20
�!mode=1
�mode!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
4�
>mode!12=�_bpp(c$)
H mode!16=��_m(mode$,"F","-1")
Rex=��_m(mode$,"EX","-1")
\#� ex<>-1 !end=4:end!4=ex:end+=8
fey=��_m(mode$,"EY","-1")
p#� ey<>-1 !end=5:end!4=ey:end+=8
z!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)
�
�� �_bpp(n$)
�Ȏ n$ �

 � "2":=0

 � "4":=1
 � "16":=2
$ � "256":=3
.! � "32T","32t","32K","32k":=4
8 � "16M","16m":=5
B! : � 490,"Bad parameter "+n$
L�
�

00000000  0d 00 0a 13 f4 20 3e 57  72 69 74 68 65 20 62 79  |..... >Writhe by|
00000010  20 64 4c 0d 00 14 0f de  20 74 61 62 20 32 35 36  | dL..... tab 256|
00000020  2a 34 0d 00 1e 21 e3 20  69 3d 30 20 b8 20 32 35  |*4...!. i=0 . 25|
00000030  36 2a 34 2d 31 20 88 20  34 3a 74 61 62 21 69 3d  |6*4-1 . 4:tab!i=|
00000040  30 3a ed 0d 00 28 1d f2  6d 6f 64 65 28 22 58 38  |0:...(..mode("X8|
00000050  30 30 20 59 36 30 30 20  47 32 35 36 22 29 3a 87  |00 Y600 G256"):.|
00000060  0d 00 32 0e c8 91 20 38  30 30 2c 36 30 30 0d 00  |..2... 800,600..|
00000070  3c 35 c8 99 20 22 4f 53  5f 53 57 49 4e 75 6d 62  |<5.. "OS_SWINumb|
00000080  65 72 46 72 6f 6d 53 74  72 69 6e 67 22 2c 2c 22  |erFromString",,"|
00000090  4f 53 5f 53 65 74 43 6f  6c 6f 75 72 22 20 b8 20  |OS_SetColour" . |
000000a0  63 6f 6c 0d 00 46 41 c8  99 20 22 4f 53 5f 53 57  |col..FA.. "OS_SW|
000000b0  49 4e 75 6d 62 65 72 46  72 6f 6d 53 74 72 69 6e  |INumberFromStrin|
000000c0  67 22 2c 2c 22 43 6f 6c  6f 75 72 54 72 61 6e 73  |g",,"ColourTrans|
000000d0  5f 57 72 69 74 65 50 61  6c 65 74 74 65 22 20 b8  |_WritePalette" .|
000000e0  20 70 61 6c 0d 00 50 08  6d 3d 31 36 0d 00 5a 3b  | pal..P.m=16..Z;|
000000f0  de 20 78 28 6d 29 2c 79  28 6d 29 2c 61 28 6d 29  |. x(m),y(m),a(m)|
00000100  2c 64 28 6d 29 2c 6c 28  6d 29 2c 65 28 6d 29 2c  |,d(m),l(m),e(m),|
00000110  52 28 31 35 29 2c 47 28  31 35 29 2c 42 28 31 35  |R(15),G(15),B(15|
00000120  29 2c 67 28 31 34 29 0d  00 64 0f e3 20 69 3d 30  |),g(14)..d.. i=0|
00000130  20 b8 20 6d 2d 31 0d 00  6e 0b 20 78 28 69 29 3d  | . m-1..n. x(i)=|
00000140  30 0d 00 78 0b 20 79 28  69 29 3d 30 0d 00 82 12  |0..x. y(i)=0....|
00000150  20 61 28 69 29 3d b3 28  31 29 2a 33 36 30 0d 00  | a(i)=.(1)*360..|
00000160  8c 05 ed 0d 00 96 0d e3  20 69 3d 30 20 b8 20 35  |........ i=0 . 5|
00000170  0d 00 a0 12 20 67 28 69  29 3d 28 69 2a 33 29 2a  |.... g(i)=(i*3)*|
00000180  31 37 0d 00 aa 15 20 67  28 31 30 2d 69 29 3d 28  |17.... g(10-i)=(|
00000190  69 2a 33 29 2a 31 37 0d  00 b4 05 ed 0d 00 be 0e  |i*3)*17.........|
000001a0  e3 20 69 3d 30 20 b8 20  31 35 0d 00 c8 18 20 52  |. i=0 . 15.... R|
000001b0  28 69 29 3d 30 2e 32 35  2b 30 2e 37 35 2a b3 28  |(i)=0.25+0.75*.(|
000001c0  31 29 0d 00 d2 18 20 47  28 69 29 3d 30 2e 32 35  |1).... G(i)=0.25|
000001d0  2b 30 2e 37 35 2a b3 28  31 29 0d 00 dc 18 20 42  |+0.75*.(1).... B|
000001e0  28 69 29 3d 30 2e 32 35  2b 30 2e 37 35 2a b3 28  |(i)=0.25+0.75*.(|
000001f0  31 29 0d 00 e6 05 ed 0d  00 f0 07 63 3d 30 0d 00  |1).........c=0..|
00000200  fa 07 74 3d 30 0d 01 04  0a f2 63 79 63 6c 65 0d  |..t=0.....cycle.|
00000210  01 0e 05 f5 0d 01 18 10  20 e3 20 77 3d 30 20 b8  |........ . w=0 .|
00000220  20 6d 2d 31 0d 01 22 27  20 20 c8 99 20 63 6f 6c  | m-1.."'  .. col|
00000230  2c 20 30 2c 20 28 77 20  83 20 31 36 29 2a 31 36  |, 0, (w . 16)*16|
00000240  2b 28 74 20 83 20 31 35  29 2b 31 0d 01 2c 10 20  |+(t . 15)+1..,. |
00000250  20 e7 20 6c 28 77 29 3d  30 20 8c 0d 01 36 14 20  | . l(w)=0 ...6. |
00000260  20 20 6c 28 77 29 3d b3  28 31 35 29 2b 31 32 0d  |  l(w)=.(15)+12.|
00000270  01 40 19 20 20 20 64 28  77 29 3d 28 b3 28 31 29  |.@.   d(w)=(.(1)|
00000280  2a 31 38 30 2d 39 30 29  0d 01 4a 10 20 20 20 65  |*180-90)..J.   e|
00000290  28 77 29 3d 6c 28 77 29  0d 01 54 07 20 20 cd 0d  |(w)=l(w)..T.  ..|
000002a0  01 5e 16 20 20 78 28 77  29 2b 3d b5 b2 28 61 28  |.^.  x(w)+=..(a(|
000002b0  77 29 29 2a 32 0d 01 68  16 20 20 79 28 77 29 2b  |w))*2..h.  y(w)+|
000002c0  3d 9b b2 28 61 28 77 29  29 2a 32 0d 01 72 1e 20  |=..(a(w))*2..r. |
000002d0  20 e7 20 78 28 77 29 20  3c 20 2d 38 35 30 20 78  | . x(w) < -850 x|
000002e0  28 77 29 2b 3d 31 37 30  30 0d 01 7c 1d 20 20 e7  |(w)+=1700..|.  .|
000002f0  20 78 28 77 29 20 3e 20  38 35 30 20 78 28 77 29  | x(w) > 850 x(w)|
00000300  2d 3d 31 37 30 30 0d 01  86 1e 20 20 e7 20 79 28  |-=1700....  . y(|
00000310  77 29 20 3c 20 2d 36 35  30 20 79 28 77 29 2b 3d  |w) < -650 y(w)+=|
00000320  31 33 30 30 0d 01 90 1d  20 20 e7 20 79 28 77 29  |1300....  . y(w)|
00000330  20 3e 20 36 35 30 20 79  28 77 29 2d 3d 31 33 30  | > 650 y(w)-=130|
00000340  30 0d 01 9a 1e 20 20 c8  8f 20 c8 90 20 78 28 77  |0....  .. .. x(w|
00000350  29 2c 79 28 77 29 2c 31  36 2a b5 b2 28 74 29 0d  |),y(w),16*..(t).|
00000360  01 a4 15 20 20 61 28 77  29 2b 3d 64 28 77 29 2f  |...  a(w)+=d(w)/|
00000370  65 28 77 29 0d 01 ae 0d  20 20 6c 28 77 29 2d 3d  |e(w)....  l(w)-=|
00000380  31 0d 01 b8 06 20 ed 0d  01 c2 09 20 74 2b 3d 31  |1.... ..... t+=1|
00000390  0d 01 cc 0b 20 f2 63 79  63 6c 65 0d 01 d6 07 fd  |.... .cycle.....|
000003a0  20 30 0d 01 e0 04 0d 01  ea 0c dd 20 f2 63 79 63  | 0......... .cyc|
000003b0  6c 65 0d 01 f4 0e e3 20  7a 3d 30 20 b8 20 31 35  |le..... z=0 . 15|
000003c0  0d 01 fe 11 20 70 3d 74  61 62 2b 7a 2a 31 36 2a  |.... p=tab+z*16*|
000003d0  34 0d 02 08 0f 20 e3 20  6a 3d 30 20 b8 20 31 34  |4.... . j=0 . 14|
000003e0  0d 02 12 11 20 20 72 3d  67 28 6a 29 2a 52 28 7a  |....  r=g(j)*R(z|
000003f0  29 0d 02 1c 11 20 20 67  3d 67 28 6a 29 2a 47 28  |)....  g=g(j)*G(|
00000400  7a 29 0d 02 26 11 20 20  62 3d 67 28 6a 29 2a 42  |z)..&.  b=g(j)*B|
00000410  28 7a 29 0d 02 30 18 20  20 71 3d 70 2b 34 2a 28  |(z)..0.  q=p+4*(|
00000420  28 63 2b 6a 29 83 31 35  2b 31 29 0d 02 3a 23 20  |(c+j).15+1)..:# |
00000430  20 21 71 3d 28 62 3c 3c  32 34 29 20 84 20 28 67  | !q=(b<<24) . (g|
00000440  3c 3c 31 36 29 20 84 20  28 72 3c 3c 38 29 0d 02  |<<16) . (r<<8)..|
00000450  44 06 20 ed 0d 02 4e 05  ed 0d 02 58 06 c8 96 0d  |D. ...N....X....|
00000460  02 62 12 c8 99 20 70 61  6c 2c 2d 31 2c 2c 74 61  |.b... pal,-1,,ta|
00000470  62 0d 02 6c 0e 63 3d 28  63 2b 31 29 83 31 35 0d  |b..l.c=(c+1).15.|
00000480  02 76 05 e1 0d 02 80 0f  f4 20 3e 50 52 4f 43 6d  |.v....... >PROCm|
00000490  6f 64 65 0d 02 8a 2e f4  20 53 61 6d 65 20 61 73  |ode..... Same as|
000004a0  20 42 41 53 49 43 20 4d  4f 44 45 20 22 58 2e 2e  | BASIC MODE "X..|
000004b0  2e 20 59 2e 2e 2e 20 43  2e 2e 2e 22 20 65 74 63  |. Y... C..." etc|
000004c0  2e 0d 02 94 2b f4 20 62  75 74 20 75 73 65 73 20  |....+. but uses |
000004d0  61 20 6d 6f 64 65 20 73  65 6c 65 63 74 6f 72 20  |a mode selector |
000004e0  69 6e 73 74 65 61 64 20  6f 66 20 61 0d 02 9e 2a  |instead of a...*|
000004f0  f4 20 63 61 6c 6c 20 74  6f 20 57 69 6d 70 4d 6f  |. call to WimpMo|
00000500  64 65 20 74 68 75 73 20  70 72 65 73 65 72 76 69  |de thus preservi|
00000510  6e 67 20 74 68 65 0d 02  a8 14 f4 20 64 65 73 6b  |ng the..... desk|
00000520  74 6f 70 27 73 20 6d 6f  64 65 0d 02 b2 05 e0 0d  |top's mode......|
00000530  02 bc 05 3a 0d 02 c6 12  dd 20 f2 6d 6f 64 65 28  |...:..... .mode(|
00000540  6d 6f 64 65 24 29 0d 02  d0 17 ea 20 63 24 2c 65  |mode$)..... c$,e|
00000550  78 2c 65 79 2c 6d 6f 64  65 2c 65 6e 64 0d 02 da  |x,ey,mode,end...|
00000560  0d de 20 6d 6f 64 65 20  36 34 0d 02 e4 0f 65 6e  |.. mode 64....en|
00000570  64 3d 6d 6f 64 65 2b 32  30 0d 02 ee 0b 21 6d 6f  |d=mode+20....!mo|
00000580  64 65 3d 31 0d 02 f8 1d  6d 6f 64 65 21 34 3d bb  |de=1....mode!4=.|
00000590  a4 5f 6d 28 6d 6f 64 65  24 2c 22 58 22 2c 22 22  |._m(mode$,"X",""|
000005a0  29 0d 03 02 1d 6d 6f 64  65 21 38 3d bb a4 5f 6d  |)....mode!8=.._m|
000005b0  28 6d 6f 64 65 24 2c 22  59 22 2c 22 22 29 0d 03  |(mode$,"Y","")..|
000005c0  0c 19 63 24 3d a4 5f 6d  28 6d 6f 64 65 24 2c 22  |..c$=._m(mode$,"|
000005d0  43 22 2c 22 2a 22 29 0d  03 16 0e e7 20 63 24 3d  |C","*")..... c$=|
000005e0  22 2a 22 20 8c 0d 03 20  19 20 63 24 3d a4 5f 6d  |"*" ... . c$=._m|
000005f0  28 6d 6f 64 65 24 2c 22  47 22 2c 22 22 29 0d 03  |(mode$,"G","")..|
00000600  2a 27 20 e7 20 63 24 3d  22 32 35 36 22 20 21 65  |*' . c$="256" !e|
00000610  6e 64 3d 33 3a 65 6e 64  21 34 3d 32 35 35 3a 65  |nd=3:end!4=255:e|
00000620  6e 64 2b 3d 38 0d 03 34  05 cd 0d 03 3e 15 6d 6f  |nd+=8..4....>.mo|
00000630  64 65 21 31 32 3d a4 5f  62 70 70 28 63 24 29 0d  |de!12=._bpp(c$).|
00000640  03 48 20 6d 6f 64 65 21  31 36 3d bb a4 5f 6d 28  |.H mode!16=.._m(|
00000650  6d 6f 64 65 24 2c 22 46  22 2c 22 2d 31 22 29 0d  |mode$,"F","-1").|
00000660  03 52 1c 65 78 3d bb a4  5f 6d 28 6d 6f 64 65 24  |.R.ex=.._m(mode$|
00000670  2c 22 45 58 22 2c 22 2d  31 22 29 0d 03 5c 23 e7  |,"EX","-1")..\#.|
00000680  20 65 78 3c 3e 2d 31 20  21 65 6e 64 3d 34 3a 65  | ex<>-1 !end=4:e|
00000690  6e 64 21 34 3d 65 78 3a  65 6e 64 2b 3d 38 0d 03  |nd!4=ex:end+=8..|
000006a0  66 1c 65 79 3d bb a4 5f  6d 28 6d 6f 64 65 24 2c  |f.ey=.._m(mode$,|
000006b0  22 45 59 22 2c 22 2d 31  22 29 0d 03 70 23 e7 20  |"EY","-1")..p#. |
000006c0  65 79 3c 3e 2d 31 20 21  65 6e 64 3d 35 3a 65 6e  |ey<>-1 !end=5:en|
000006d0  64 21 34 3d 65 79 3a 65  6e 64 2b 3d 38 0d 03 7a  |d!4=ey:end+=8..z|
000006e0  0b 21 65 6e 64 3d 2d 31  0d 03 84 0a eb 20 6d 6f  |.!end=-1..... mo|
000006f0  64 65 0d 03 8e 05 e1 0d  03 98 04 0d 03 a2 13 dd  |de..............|
00000700  20 a4 5f 6d 28 73 24 2c  70 24 2c 64 24 29 0d 03  | ._m(s$,p$,d$)..|
00000710  ac 09 ea 20 69 2c 6a 0d  03 b6 0d 69 3d a7 73 24  |... i,j....i=.s$|
00000720  2c 70 24 29 0d 03 c0 25  e7 20 69 3c 31 20 80 20  |,p$)...%. i<1 . |
00000730  64 24 3d 22 22 20 85 20  34 39 30 2c 22 4d 69 73  |d$="" . 490,"Mis|
00000740  73 69 6e 67 20 22 2b 70  24 0d 03 ca 0f e7 20 69  |sing "+p$..... i|
00000750  3c 31 20 8c 20 3d 64 24  0d 03 d4 16 6a 3d a7 73  |<1 . =d$....j=.s|
00000760  24 2b 22 20 22 2c 22 20  22 2c 69 2b 31 29 0d 03  |$+" "," ",i+1)..|
00000770  de 13 3d c1 73 24 2c 69  2b 31 2c 6a 2d 69 2d 31  |..=.s$,i+1,j-i-1|
00000780  29 0d 03 e8 04 0d 03 f2  0f dd 20 a4 5f 62 70 70  |)......... ._bpp|
00000790  28 6e 24 29 0d 03 fc 0b  c8 8e 20 6e 24 20 ca 0d  |(n$)...... n$ ..|
000007a0  04 06 0d 20 c9 20 22 32  22 3a 3d 30 0d 04 10 0d  |... . "2":=0....|
000007b0  20 c9 20 22 34 22 3a 3d  31 0d 04 1a 0e 20 c9 20  | . "4":=1.... . |
000007c0  22 31 36 22 3a 3d 32 0d  04 24 0f 20 c9 20 22 32  |"16":=2..$. . "2|
000007d0  35 36 22 3a 3d 33 0d 04  2e 21 20 c9 20 22 33 32  |56":=3...! . "32|
000007e0  54 22 2c 22 33 32 74 22  2c 22 33 32 4b 22 2c 22  |T","32t","32K","|
000007f0  33 32 6b 22 3a 3d 34 0d  04 38 15 20 c9 20 22 31  |32k":=4..8. . "1|
00000800  36 4d 22 2c 22 31 36 6d  22 3a 3d 35 0d 04 42 21  |6M","16m":=5..B!|
00000810  20 7f 3a 20 85 20 34 39  30 2c 22 42 61 64 20 70  | .: . 490,"Bad p|
00000820  61 72 61 6d 65 74 65 72  20 22 2b 6e 24 0d 04 4c  |arameter "+n$..L|
00000830  05 cb 0d ff                                       |....|
00000834