�mode("X800 Y600 G256"):�
� scr 8
!scr=148
(scr!4=-1
2$ș "OS_ReadVduVariables",scr,scr
<scr=!scr
F	n=500
P
max=10000
Z� x(n),y(n),c(n)
d�
n �
x �
� r=�(1): g=�(1): b=�(1)
� � r+g+b>1
� �
� r1=�(1): g1=�(1): b1=�(1)
� � r1+g1+b1>1
� r1=(r1-r)/15
� g1=(g1-g)/15
� b1=(b1-b)/15
�
� � c=0 � 15
�  � i=0 � 15
�$   � c*16+i,i*17*r,i*17*g,i*17*b
�  �

  r+=r1

  g+=g1

  b+=b1

" �

, � i=0 � n-1

6  x(i)=�(800+200)-100

@  y(i)=�(600+200)-100

J  c(i)=(�(16)-1)*16

T �

^ black=0

h	 d=50

r �

|
  x0=x(0)

�
  y0=y(0)

�  � i=0 � n-1

�*   � x0>=0 � y0>=0 � x0<800 � y0<600 �

�   a=scr+�(x0)+�(y0)*800

�   c=?a � 15

�$   � c<15 ?a=c(i)+c+1 � black+=1

�   �

�   x1=x((i+1)�n)

�   y1=y((i+1)�n)

�   x(i)+=(x1-x0)/d

�   y(i)+=(y1-y0)/d

�   x0=x1

�   y0=y1
  �
  d=d*.995
 � black>max
& a=�500
0� 0
:� >PROCmode
D.� Same as BASIC MODE "X... Y... C..." etc.
N+� but uses a mode selector instead of a
X*� call to WimpMode thus preserving the
b� desktop's mode
l�
v:
�� �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
��
�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
4!end=-1
>
� mode
H�
R
\� �_m(s$,p$,d$)
f	� i,j
p
i=�s$,p$)
z%� 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
� � "16M","16m":=5
�! : � 490,"Bad parameter "+n$
�
�

00000000  0d 00 0a 1d f2 6d 6f 64  65 28 22 58 38 30 30 20  |.....mode("X800 |
00000010  59 36 30 30 20 47 32 35  36 22 29 3a 87 0d 00 14  |Y600 G256"):....|
00000020  0b de 20 73 63 72 20 38  0d 00 1e 0c 21 73 63 72  |.. scr 8....!scr|
00000030  3d 31 34 38 0d 00 28 0c  73 63 72 21 34 3d 2d 31  |=148..(.scr!4=-1|
00000040  0d 00 32 24 c8 99 20 22  4f 53 5f 52 65 61 64 56  |..2$.. "OS_ReadV|
00000050  64 75 56 61 72 69 61 62  6c 65 73 22 2c 73 63 72  |duVariables",scr|
00000060  2c 73 63 72 0d 00 3c 0c  73 63 72 3d 21 73 63 72  |,scr..<.scr=!scr|
00000070  0d 00 46 09 6e 3d 35 30  30 0d 00 50 0d 6d 61 78  |..F.n=500..P.max|
00000080  3d 31 30 30 30 30 0d 00  5a 14 de 20 78 28 6e 29  |=10000..Z.. x(n)|
00000090  2c 79 28 6e 29 2c 63 28  6e 29 0d 00 64 05 f5 0d  |,y(n),c(n)..d...|
000000a0  00 6e 06 20 db 0d 00 78  06 20 f5 0d 00 82 1b 20  |.n. ...x. ..... |
000000b0  72 3d b3 28 31 29 3a 20  67 3d b3 28 31 29 3a 20  |r=.(1): g=.(1): |
000000c0  62 3d b3 28 31 29 0d 00  8c 0e 20 fd 20 72 2b 67  |b=.(1).... . r+g|
000000d0  2b 62 3e 31 0d 00 96 06  20 f5 0d 00 a0 1e 20 72  |+b>1.... ..... r|
000000e0  31 3d b3 28 31 29 3a 20  67 31 3d b3 28 31 29 3a  |1=.(1): g1=.(1):|
000000f0  20 62 31 3d b3 28 31 29  0d 00 aa 11 20 fd 20 72  | b1=.(1).... . r|
00000100  31 2b 67 31 2b 62 31 3e  31 0d 00 b4 11 20 72 31  |1+g1+b1>1.... r1|
00000110  3d 28 72 31 2d 72 29 2f  31 35 0d 00 be 11 20 67  |=(r1-r)/15.... g|
00000120  31 3d 28 67 31 2d 67 29  2f 31 35 0d 00 c8 11 20  |1=(g1-g)/15.... |
00000130  62 31 3d 28 62 31 2d 62  29 2f 31 35 0d 00 d2 04  |b1=(b1-b)/15....|
00000140  0d 00 dc 0f 20 e3 20 63  3d 30 20 b8 20 31 35 0d  |.... . c=0 . 15.|
00000150  00 e6 10 20 20 e3 20 69  3d 30 20 b8 20 31 35 0d  |...  . i=0 . 15.|
00000160  00 f0 24 20 20 20 fb 20  63 2a 31 36 2b 69 2c 69  |..$   . c*16+i,i|
00000170  2a 31 37 2a 72 2c 69 2a  31 37 2a 67 2c 69 2a 31  |*17*r,i*17*g,i*1|
00000180  37 2a 62 0d 00 fa 07 20  20 ed 0d 01 04 0b 20 20  |7*b....  .....  |
00000190  72 2b 3d 72 31 0d 01 0e  0b 20 20 67 2b 3d 67 31  |r+=r1....  g+=g1|
000001a0  0d 01 18 0b 20 20 62 2b  3d 62 31 0d 01 22 06 20  |....  b+=b1..". |
000001b0  ed 0d 01 2c 10 20 e3 20  69 3d 30 20 b8 20 6e 2d  |...,. . i=0 . n-|
000001c0  31 0d 01 36 19 20 20 78  28 69 29 3d b3 28 38 30  |1..6.  x(i)=.(80|
000001d0  30 2b 32 30 30 29 2d 31  30 30 0d 01 40 19 20 20  |0+200)-100..@.  |
000001e0  79 28 69 29 3d b3 28 36  30 30 2b 32 30 30 29 2d  |y(i)=.(600+200)-|
000001f0  31 30 30 0d 01 4a 17 20  20 63 28 69 29 3d 28 b3  |100..J.  c(i)=(.|
00000200  28 31 36 29 2d 31 29 2a  31 36 0d 01 54 06 20 ed  |(16)-1)*16..T. .|
00000210  0d 01 5e 0c 20 62 6c 61  63 6b 3d 30 0d 01 68 09  |..^. black=0..h.|
00000220  20 64 3d 35 30 0d 01 72  06 20 f5 0d 01 7c 0d 20  | d=50..r. ...|. |
00000230  20 78 30 3d 78 28 30 29  0d 01 86 0d 20 20 79 30  | x0=x(0)....  y0|
00000240  3d 79 28 30 29 0d 01 90  11 20 20 e3 20 69 3d 30  |=y(0)....  . i=0|
00000250  20 b8 20 6e 2d 31 0d 01  9a 2a 20 20 20 e7 20 78  | . n-1...*   . x|
00000260  30 3e 3d 30 20 80 20 79  30 3e 3d 30 20 80 20 78  |0>=0 . y0>=0 . x|
00000270  30 3c 38 30 30 20 80 20  79 30 3c 36 30 30 20 8c  |0<800 . y0<600 .|
00000280  0d 01 a4 1c 20 20 20 61  3d 73 63 72 2b a8 28 78  |....   a=scr+.(x|
00000290  30 29 2b a8 28 79 30 29  2a 38 30 30 0d 01 ae 10  |0)+.(y0)*800....|
000002a0  20 20 20 63 3d 3f 61 20  80 20 31 35 0d 01 b8 24  |   c=?a . 15...$|
000002b0  20 20 20 e7 20 63 3c 31  35 20 3f 61 3d 63 28 69  |   . c<15 ?a=c(i|
000002c0  29 2b 63 2b 31 20 8b 20  62 6c 61 63 6b 2b 3d 31  |)+c+1 . black+=1|
000002d0  0d 01 c2 08 20 20 20 cd  0d 01 cc 14 20 20 20 78  |....   .....   x|
000002e0  31 3d 78 28 28 69 2b 31  29 83 6e 29 0d 01 d6 14  |1=x((i+1).n)....|
000002f0  20 20 20 79 31 3d 79 28  28 69 2b 31 29 83 6e 29  |   y1=y((i+1).n)|
00000300  0d 01 e0 16 20 20 20 78  28 69 29 2b 3d 28 78 31  |....   x(i)+=(x1|
00000310  2d 78 30 29 2f 64 0d 01  ea 16 20 20 20 79 28 69  |-x0)/d....   y(i|
00000320  29 2b 3d 28 79 31 2d 79  30 29 2f 64 0d 01 f4 0c  |)+=(y1-y0)/d....|
00000330  20 20 20 78 30 3d 78 31  0d 01 fe 0c 20 20 20 79  |   x0=x1....   y|
00000340  30 3d 79 31 0d 02 08 07  20 20 ed 0d 02 12 0e 20  |0=y1....  ..... |
00000350  20 64 3d 64 2a 2e 39 39  35 0d 02 1c 10 20 fd 20  | d=d*.995.... . |
00000360  62 6c 61 63 6b 3e 6d 61  78 0d 02 26 0b 20 61 3d  |black>max..&. a=|
00000370  a6 35 30 30 0d 02 30 07  fd 20 30 0d 02 3a 0f f4  |.500..0.. 0..:..|
00000380  20 3e 50 52 4f 43 6d 6f  64 65 0d 02 44 2e f4 20  | >PROCmode..D.. |
00000390  53 61 6d 65 20 61 73 20  42 41 53 49 43 20 4d 4f  |Same as BASIC MO|
000003a0  44 45 20 22 58 2e 2e 2e  20 59 2e 2e 2e 20 43 2e  |DE "X... Y... C.|
000003b0  2e 2e 22 20 65 74 63 2e  0d 02 4e 2b f4 20 62 75  |.." etc...N+. bu|
000003c0  74 20 75 73 65 73 20 61  20 6d 6f 64 65 20 73 65  |t uses a mode se|
000003d0  6c 65 63 74 6f 72 20 69  6e 73 74 65 61 64 20 6f  |lector instead o|
000003e0  66 20 61 0d 02 58 2a f4  20 63 61 6c 6c 20 74 6f  |f a..X*. call to|
000003f0  20 57 69 6d 70 4d 6f 64  65 20 74 68 75 73 20 70  | WimpMode thus p|
00000400  72 65 73 65 72 76 69 6e  67 20 74 68 65 0d 02 62  |reserving the..b|
00000410  14 f4 20 64 65 73 6b 74  6f 70 27 73 20 6d 6f 64  |.. desktop's mod|
00000420  65 0d 02 6c 05 e0 0d 02  76 05 3a 0d 02 80 12 dd  |e..l....v.:.....|
00000430  20 f2 6d 6f 64 65 28 6d  6f 64 65 24 29 0d 02 8a  | .mode(mode$)...|
00000440  17 ea 20 63 24 2c 65 78  2c 65 79 2c 6d 6f 64 65  |.. c$,ex,ey,mode|
00000450  2c 65 6e 64 0d 02 94 0d  de 20 6d 6f 64 65 20 36  |,end..... mode 6|
00000460  34 0d 02 9e 0f 65 6e 64  3d 6d 6f 64 65 2b 32 30  |4....end=mode+20|
00000470  0d 02 a8 0b 21 6d 6f 64  65 3d 31 0d 02 b2 1d 6d  |....!mode=1....m|
00000480  6f 64 65 21 34 3d bb a4  5f 6d 28 6d 6f 64 65 24  |ode!4=.._m(mode$|
00000490  2c 22 58 22 2c 22 22 29  0d 02 bc 1d 6d 6f 64 65  |,"X","")....mode|
000004a0  21 38 3d bb a4 5f 6d 28  6d 6f 64 65 24 2c 22 59  |!8=.._m(mode$,"Y|
000004b0  22 2c 22 22 29 0d 02 c6  19 63 24 3d a4 5f 6d 28  |","")....c$=._m(|
000004c0  6d 6f 64 65 24 2c 22 43  22 2c 22 2a 22 29 0d 02  |mode$,"C","*")..|
000004d0  d0 0e e7 20 63 24 3d 22  2a 22 20 8c 0d 02 da 19  |... c$="*" .....|
000004e0  20 63 24 3d a4 5f 6d 28  6d 6f 64 65 24 2c 22 47  | c$=._m(mode$,"G|
000004f0  22 2c 22 22 29 0d 02 e4  27 20 e7 20 63 24 3d 22  |","")...' . c$="|
00000500  32 35 36 22 20 21 65 6e  64 3d 33 3a 65 6e 64 21  |256" !end=3:end!|
00000510  34 3d 32 35 35 3a 65 6e  64 2b 3d 38 0d 02 ee 05  |4=255:end+=8....|
00000520  cd 0d 02 f8 15 6d 6f 64  65 21 31 32 3d a4 5f 62  |.....mode!12=._b|
00000530  70 70 28 63 24 29 0d 03  02 20 6d 6f 64 65 21 31  |pp(c$)... mode!1|
00000540  36 3d bb a4 5f 6d 28 6d  6f 64 65 24 2c 22 46 22  |6=.._m(mode$,"F"|
00000550  2c 22 2d 31 22 29 0d 03  0c 1c 65 78 3d bb a4 5f  |,"-1")....ex=.._|
00000560  6d 28 6d 6f 64 65 24 2c  22 45 58 22 2c 22 2d 31  |m(mode$,"EX","-1|
00000570  22 29 0d 03 16 23 e7 20  65 78 3c 3e 2d 31 20 21  |")...#. ex<>-1 !|
00000580  65 6e 64 3d 34 3a 65 6e  64 21 34 3d 65 78 3a 65  |end=4:end!4=ex:e|
00000590  6e 64 2b 3d 38 0d 03 20  1c 65 79 3d bb a4 5f 6d  |nd+=8.. .ey=.._m|
000005a0  28 6d 6f 64 65 24 2c 22  45 59 22 2c 22 2d 31 22  |(mode$,"EY","-1"|
000005b0  29 0d 03 2a 23 e7 20 65  79 3c 3e 2d 31 20 21 65  |)..*#. ey<>-1 !e|
000005c0  6e 64 3d 35 3a 65 6e 64  21 34 3d 65 79 3a 65 6e  |nd=5:end!4=ey:en|
000005d0  64 2b 3d 38 0d 03 34 0b  21 65 6e 64 3d 2d 31 0d  |d+=8..4.!end=-1.|
000005e0  03 3e 0a eb 20 6d 6f 64  65 0d 03 48 05 e1 0d 03  |.>.. mode..H....|
000005f0  52 04 0d 03 5c 13 dd 20  a4 5f 6d 28 73 24 2c 70  |R...\.. ._m(s$,p|
00000600  24 2c 64 24 29 0d 03 66  09 ea 20 69 2c 6a 0d 03  |$,d$)..f.. i,j..|
00000610  70 0d 69 3d a7 73 24 2c  70 24 29 0d 03 7a 25 e7  |p.i=.s$,p$)..z%.|
00000620  20 69 3c 31 20 80 20 64  24 3d 22 22 20 85 20 34  | i<1 . d$="" . 4|
00000630  39 30 2c 22 4d 69 73 73  69 6e 67 20 22 2b 70 24  |90,"Missing "+p$|
00000640  0d 03 84 0f e7 20 69 3c  31 20 8c 20 3d 64 24 0d  |..... i<1 . =d$.|
00000650  03 8e 16 6a 3d a7 73 24  2b 22 20 22 2c 22 20 22  |...j=.s$+" "," "|
00000660  2c 69 2b 31 29 0d 03 98  13 3d c1 73 24 2c 69 2b  |,i+1)....=.s$,i+|
00000670  31 2c 6a 2d 69 2d 31 29  0d 03 a2 04 0d 03 ac 0f  |1,j-i-1)........|
00000680  dd 20 a4 5f 62 70 70 28  6e 24 29 0d 03 b6 0b c8  |. ._bpp(n$).....|
00000690  8e 20 6e 24 20 ca 0d 03  c0 0d 20 c9 20 22 32 22  |. n$ ..... . "2"|
000006a0  3a 3d 30 0d 03 ca 0d 20  c9 20 22 34 22 3a 3d 31  |:=0.... . "4":=1|
000006b0  0d 03 d4 0e 20 c9 20 22  31 36 22 3a 3d 32 0d 03  |.... . "16":=2..|
000006c0  de 0f 20 c9 20 22 32 35  36 22 3a 3d 33 0d 03 e8  |.. . "256":=3...|
000006d0  21 20 c9 20 22 33 32 54  22 2c 22 33 32 74 22 2c  |! . "32T","32t",|
000006e0  22 33 32 4b 22 2c 22 33  32 6b 22 3a 3d 34 0d 03  |"32K","32k":=4..|
000006f0  f2 15 20 c9 20 22 31 36  4d 22 2c 22 31 36 6d 22  |.. . "16M","16m"|
00000700  3a 3d 35 0d 03 fc 21 20  7f 3a 20 85 20 34 39 30  |:=5...! .: . 490|
00000710  2c 22 42 61 64 20 70 61  72 61 6d 65 74 65 72 20  |,"Bad parameter |
00000720  22 2b 6e 24 0d 04 06 05  cb 0d ff                 |"+n$.......|
0000072b