� > Mosaic_RPC

�mode("X800 Y600 C256")
(
2*�"This program converts a sprite into"
<&�"a mosaic with irregular tiles."'
F,�"SPRITEFILE="SPF$,'"NEW SPRITEFILE="NF$
P�
Z
d$ș"OS_FSControl",28,SPF$ � ,,LG%
nLG%=LG%*1.3
x
�� SPR LG%,BUF 16
�� XF%(1000),YF%(1000)
�*SPR!0=LG%-1:SPR!4=0:SPR!8=16:SPR!12=16
�
�#ș"OS_SpriteOp",256+10,SPR,SPF$
�'ș"OS_SpriteOp",256+13,SPR,BUF,16,1
�N$="":P%=0:�
�T%=BUF?P%:� T%<>0 N$+=�T%
�P%+=1:� T%=0
�-ș"OS_SpriteOp",256+40,SPR,N$ � ,,, W%,H%
�W%=2*W%:H%=2*H%
�3XA=(1600-W%)/2:XB=XA+W%:YA=(1200-H%)/2:YB=YA+H%
�W=XB-XA:H=YB-YA:A=W*H/100



4ș"OS_SpriteOp",256+15,SPR,"MOSA",0,W%/2,H%/2,19

%ș"OS_SpriteOp",256+60,SPR,"MOSA"

"#S%=8:A%=(W%+3*S%)/S%:P%=1:OP%=2

,� PX%(A%,2),PY%(A%,2)

64�X%=0�A%:PX%(X%,P%)=�(S%/2):PY%(X%,P%)=�(S%/2):�

@�Y%=0�H%+S%�S%:Ȕ OP%,P%

J4�X%=0�A%:PX%(X%,P%)=�(S%/2):PY%(X%,P%)=�(S%/2):�

T#�X%=0�A%-1:X1%=S%*X%:X2%=X1%+S%

^P� X1%+PX%(X%,OP%)-S%,Y%+PY%(X%,OP%)-S%,X1%+PX%(X%,P%)-S%,Y%+S%+PY%(X%,P%)-S%

hS� X1%+PX%(X%,OP%)-S%,Y%+PY%(X%,OP%)-S%,X2%+PX%(X%+1,OP%)-S%,Y%+PY%(X%+1,OP%)-S%

r�,

|�M%=0� H �2:�N%=0� W �2

�� �N%,M%)=0 �

� �1:PF%=0:R%=0:G%=0:B%=0:L%=0

�
�F(N%,M%)

� ș"OS_SpriteOp",256+60,SPR,0

�+R%=R%/PF%:G%=G%/PF%:B%=B%/PF%:L%=L%/PF%

�C%=R%+G%*4+B%*16

�� C% Ȝ L%

�(�P%=1�PF%:Ȓ XF%(P%)+XA,YF%(P%)+YA:�

�%ș"OS_SpriteOp",256+60,SPR,"MOSA"

��

��,

�"�:ș"OS_SpriteOp",256+60,SPR,0

�� NF$<>"" �
*SPR!0=LG%-1:SPR!4=0:SPR!8=16:SPR!12=16
ș"OS_SpriteOp",256+9,SPR
9ș"OS_SpriteOp",256+16,SPR,"Mosaic",0,XA,YA,XA+W,YA+H
&"ș"OS_SpriteOp",256+12,SPR,NF$
0�
:�
D
N��F(X%,Y%)
X� �X%,Y%)=0 �
b+PF%+=1:XF%(PF%)=X%:YF%(PF%)=Y%:Ȓ X%,Y%
l8ș"OS_SpriteOp",256+41,SPR,N$,X%/2,Y%/2 � ,,,,,C%,T%
v
L%+=T%
�R%+=C%�3
�G%+=(C%�12)�4
�B%+=(C%�48)�16
��
�� �X%+2,Y%)=0 � �F(X%+2,Y%)
�� �X%-2,Y%)=0 � �F(X%-2,Y%)
�� �X%,Y%+2)=0 � �F(X%,Y%+2)
�� �X%,Y%-2)=0 � �F(X%,Y%-2)
��
�
�� �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$="*" �
4 c$=�_m(mode$,"G","")
>' � c$="256" !end=3:end!4=255:end+=8
H�
Rmode!12=�_bpp(c$)
\ mode!16=��_m(mode$,"F","-1")
fex=��_m(mode$,"EX","-1")
p#� ex<>-1 !end=4:end!4=ex:end+=8
zey=��_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$)
�%� 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
8 � "256":=3
B! � "32T","32t","32K","32k":=4
L � "16M","16m":=5
V! : � 490,"Bad parameter "+n$
`�
�

00000000  0d 00 0a 12 f4 20 3e 20  4d 6f 73 61 69 63 5f 52  |..... > Mosaic_R|
00000010  50 43 0d 00 14 04 0d 00  1e 1b f2 6d 6f 64 65 28  |PC.........mode(|
00000020  22 58 38 30 30 20 59 36  30 30 20 43 32 35 36 22  |"X800 Y600 C256"|
00000030  29 0d 00 28 04 0d 00 32  2a f1 22 54 68 69 73 20  |)..(...2*."This |
00000040  70 72 6f 67 72 61 6d 20  63 6f 6e 76 65 72 74 73  |program converts|
00000050  20 61 20 73 70 72 69 74  65 20 69 6e 74 6f 22 0d  | a sprite into".|
00000060  00 3c 26 f1 22 61 20 6d  6f 73 61 69 63 20 77 69  |.<&."a mosaic wi|
00000070  74 68 20 69 72 72 65 67  75 6c 61 72 20 74 69 6c  |th irregular til|
00000080  65 73 2e 22 27 0d 00 46  2c e8 22 53 50 52 49 54  |es."'..F,."SPRIT|
00000090  45 46 49 4c 45 3d 22 53  50 46 24 2c 27 22 4e 45  |EFILE="SPF$,'"NE|
000000a0  57 20 53 50 52 49 54 45  46 49 4c 45 3d 22 4e 46  |W SPRITEFILE="NF|
000000b0  24 0d 00 50 05 db 0d 00  5a 04 0d 00 64 24 c8 99  |$..P....Z...d$..|
000000c0  22 4f 53 5f 46 53 43 6f  6e 74 72 6f 6c 22 2c 32  |"OS_FSControl",2|
000000d0  38 2c 53 50 46 24 20 b8  20 2c 2c 4c 47 25 0d 00  |8,SPF$ . ,,LG%..|
000000e0  6e 0f 4c 47 25 3d 4c 47  25 2a 31 2e 33 0d 00 78  |n.LG%=LG%*1.3..x|
000000f0  04 0d 00 82 14 de 20 53  50 52 20 4c 47 25 2c 42  |...... SPR LG%,B|
00000100  55 46 20 31 36 0d 00 8c  19 de 20 58 46 25 28 31  |UF 16..... XF%(1|
00000110  30 30 30 29 2c 59 46 25  28 31 30 30 30 29 0d 00  |000),YF%(1000)..|
00000120  96 2a 53 50 52 21 30 3d  4c 47 25 2d 31 3a 53 50  |.*SPR!0=LG%-1:SP|
00000130  52 21 34 3d 30 3a 53 50  52 21 38 3d 31 36 3a 53  |R!4=0:SPR!8=16:S|
00000140  50 52 21 31 32 3d 31 36  0d 00 a0 04 0d 00 aa 23  |PR!12=16.......#|
00000150  c8 99 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |.."OS_SpriteOp",|
00000160  32 35 36 2b 31 30 2c 53  50 52 2c 53 50 46 24 0d  |256+10,SPR,SPF$.|
00000170  00 b4 27 c8 99 22 4f 53  5f 53 70 72 69 74 65 4f  |..'.."OS_SpriteO|
00000180  70 22 2c 32 35 36 2b 31  33 2c 53 50 52 2c 42 55  |p",256+13,SPR,BU|
00000190  46 2c 31 36 2c 31 0d 00  be 10 4e 24 3d 22 22 3a  |F,16,1....N$="":|
000001a0  50 25 3d 30 3a f5 0d 00  c8 1d 54 25 3d 42 55 46  |P%=0:.....T%=BUF|
000001b0  3f 50 25 3a e7 20 54 25  3c 3e 30 20 4e 24 2b 3d  |?P%:. T%<>0 N$+=|
000001c0  bd 54 25 0d 00 d2 10 50  25 2b 3d 31 3a fd 20 54  |.T%....P%+=1:. T|
000001d0  25 3d 30 0d 00 dc 2d c8  99 22 4f 53 5f 53 70 72  |%=0...-.."OS_Spr|
000001e0  69 74 65 4f 70 22 2c 32  35 36 2b 34 30 2c 53 50  |iteOp",256+40,SP|
000001f0  52 2c 4e 24 20 b8 20 2c  2c 2c 20 57 25 2c 48 25  |R,N$ . ,,, W%,H%|
00000200  0d 00 e6 13 57 25 3d 32  2a 57 25 3a 48 25 3d 32  |....W%=2*W%:H%=2|
00000210  2a 48 25 0d 00 f0 33 58  41 3d 28 31 36 30 30 2d  |*H%...3XA=(1600-|
00000220  57 25 29 2f 32 3a 58 42  3d 58 41 2b 57 25 3a 59  |W%)/2:XB=XA+W%:Y|
00000230  41 3d 28 31 32 30 30 2d  48 25 29 2f 32 3a 59 42  |A=(1200-H%)/2:YB|
00000240  3d 59 41 2b 48 25 0d 00  fa 1d 57 3d 58 42 2d 58  |=YA+H%....W=XB-X|
00000250  41 3a 48 3d 59 42 2d 59  41 3a 41 3d 57 2a 48 2f  |A:H=YB-YA:A=W*H/|
00000260  31 30 30 0d 01 04 04 0d  01 0e 34 c8 99 22 4f 53  |100.......4.."OS|
00000270  5f 53 70 72 69 74 65 4f  70 22 2c 32 35 36 2b 31  |_SpriteOp",256+1|
00000280  35 2c 53 50 52 2c 22 4d  4f 53 41 22 2c 30 2c 57  |5,SPR,"MOSA",0,W|
00000290  25 2f 32 2c 48 25 2f 32  2c 31 39 0d 01 18 25 c8  |%/2,H%/2,19...%.|
000002a0  99 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 32  |."OS_SpriteOp",2|
000002b0  35 36 2b 36 30 2c 53 50  52 2c 22 4d 4f 53 41 22  |56+60,SPR,"MOSA"|
000002c0  0d 01 22 23 53 25 3d 38  3a 41 25 3d 28 57 25 2b  |.."#S%=8:A%=(W%+|
000002d0  33 2a 53 25 29 2f 53 25  3a 50 25 3d 31 3a 4f 50  |3*S%)/S%:P%=1:OP|
000002e0  25 3d 32 0d 01 2c 19 de  20 50 58 25 28 41 25 2c  |%=2..,.. PX%(A%,|
000002f0  32 29 2c 50 59 25 28 41  25 2c 32 29 0d 01 36 34  |2),PY%(A%,2)..64|
00000300  e3 58 25 3d 30 b8 41 25  3a 50 58 25 28 58 25 2c  |.X%=0.A%:PX%(X%,|
00000310  50 25 29 3d b3 28 53 25  2f 32 29 3a 50 59 25 28  |P%)=.(S%/2):PY%(|
00000320  58 25 2c 50 25 29 3d b3  28 53 25 2f 32 29 3a ed  |X%,P%)=.(S%/2):.|
00000330  0d 01 40 1c e3 59 25 3d  30 b8 48 25 2b 53 25 88  |..@..Y%=0.H%+S%.|
00000340  53 25 3a c8 94 20 4f 50  25 2c 50 25 0d 01 4a 34  |S%:.. OP%,P%..J4|
00000350  e3 58 25 3d 30 b8 41 25  3a 50 58 25 28 58 25 2c  |.X%=0.A%:PX%(X%,|
00000360  50 25 29 3d b3 28 53 25  2f 32 29 3a 50 59 25 28  |P%)=.(S%/2):PY%(|
00000370  58 25 2c 50 25 29 3d b3  28 53 25 2f 32 29 3a ed  |X%,P%)=.(S%/2):.|
00000380  0d 01 54 23 e3 58 25 3d  30 b8 41 25 2d 31 3a 58  |..T#.X%=0.A%-1:X|
00000390  31 25 3d 53 25 2a 58 25  3a 58 32 25 3d 58 31 25  |1%=S%*X%:X2%=X1%|
000003a0  2b 53 25 0d 01 5e 50 86  20 58 31 25 2b 50 58 25  |+S%..^P. X1%+PX%|
000003b0  28 58 25 2c 4f 50 25 29  2d 53 25 2c 59 25 2b 50  |(X%,OP%)-S%,Y%+P|
000003c0  59 25 28 58 25 2c 4f 50  25 29 2d 53 25 2c 58 31  |Y%(X%,OP%)-S%,X1|
000003d0  25 2b 50 58 25 28 58 25  2c 50 25 29 2d 53 25 2c  |%+PX%(X%,P%)-S%,|
000003e0  59 25 2b 53 25 2b 50 59  25 28 58 25 2c 50 25 29  |Y%+S%+PY%(X%,P%)|
000003f0  2d 53 25 0d 01 68 53 86  20 58 31 25 2b 50 58 25  |-S%..hS. X1%+PX%|
00000400  28 58 25 2c 4f 50 25 29  2d 53 25 2c 59 25 2b 50  |(X%,OP%)-S%,Y%+P|
00000410  59 25 28 58 25 2c 4f 50  25 29 2d 53 25 2c 58 32  |Y%(X%,OP%)-S%,X2|
00000420  25 2b 50 58 25 28 58 25  2b 31 2c 4f 50 25 29 2d  |%+PX%(X%+1,OP%)-|
00000430  53 25 2c 59 25 2b 50 59  25 28 58 25 2b 31 2c 4f  |S%,Y%+PY%(X%+1,O|
00000440  50 25 29 2d 53 25 0d 01  72 06 ed 2c 0d 01 7c 1b  |P%)-S%..r..,..|.|
00000450  e3 4d 25 3d 30 b8 20 48  20 88 32 3a e3 4e 25 3d  |.M%=0. H .2:.N%=|
00000460  30 b8 20 57 20 88 32 0d  01 86 11 e7 20 b0 4e 25  |0. W .2..... .N%|
00000470  2c 4d 25 29 3d 30 20 8c  0d 01 90 20 e6 31 3a 50  |,M%)=0 .... .1:P|
00000480  46 25 3d 30 3a 52 25 3d  30 3a 47 25 3d 30 3a 42  |F%=0:R%=0:G%=0:B|
00000490  25 3d 30 3a 4c 25 3d 30  0d 01 9a 0d f2 46 28 4e  |%=0:L%=0.....F(N|
000004a0  25 2c 4d 25 29 0d 01 a4  20 c8 99 22 4f 53 5f 53  |%,M%)... .."OS_S|
000004b0  70 72 69 74 65 4f 70 22  2c 32 35 36 2b 36 30 2c  |priteOp",256+60,|
000004c0  53 50 52 2c 30 0d 01 ae  2b 52 25 3d 52 25 2f 50  |SPR,0...+R%=R%/P|
000004d0  46 25 3a 47 25 3d 47 25  2f 50 46 25 3a 42 25 3d  |F%:G%=G%/PF%:B%=|
000004e0  42 25 2f 50 46 25 3a 4c  25 3d 4c 25 2f 50 46 25  |B%/PF%:L%=L%/PF%|
000004f0  0d 01 b8 14 43 25 3d 52  25 2b 47 25 2a 34 2b 42  |....C%=R%+G%*4+B|
00000500  25 2a 31 36 0d 01 c2 0e  e6 20 43 25 20 c8 9c 20  |%*16..... C% .. |
00000510  4c 25 0d 01 cc 28 e3 50  25 3d 31 b8 50 46 25 3a  |L%...(.P%=1.PF%:|
00000520  c8 92 20 58 46 25 28 50  25 29 2b 58 41 2c 59 46  |.. XF%(P%)+XA,YF|
00000530  25 28 50 25 29 2b 59 41  3a ed 0d 01 d6 25 c8 99  |%(P%)+YA:....%..|
00000540  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 2c 32 35  |"OS_SpriteOp",25|
00000550  36 2b 36 30 2c 53 50 52  2c 22 4d 4f 53 41 22 0d  |6+60,SPR,"MOSA".|
00000560  01 e0 05 cd 0d 01 ea 06  ed 2c 0d 01 f4 22 db 3a  |.........,...".:|
00000570  c8 99 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |.."OS_SpriteOp",|
00000580  32 35 36 2b 36 30 2c 53  50 52 2c 30 0d 01 fe 0f  |256+60,SPR,0....|
00000590  e7 20 4e 46 24 3c 3e 22  22 20 8c 0d 02 08 2a 53  |. NF$<>"" ....*S|
000005a0  50 52 21 30 3d 4c 47 25  2d 31 3a 53 50 52 21 34  |PR!0=LG%-1:SPR!4|
000005b0  3d 30 3a 53 50 52 21 38  3d 31 36 3a 53 50 52 21  |=0:SPR!8=16:SPR!|
000005c0  31 32 3d 31 36 0d 02 12  1d c8 99 22 4f 53 5f 53  |12=16......"OS_S|
000005d0  70 72 69 74 65 4f 70 22  2c 32 35 36 2b 39 2c 53  |priteOp",256+9,S|
000005e0  50 52 0d 02 1c 39 c8 99  22 4f 53 5f 53 70 72 69  |PR...9.."OS_Spri|
000005f0  74 65 4f 70 22 2c 32 35  36 2b 31 36 2c 53 50 52  |teOp",256+16,SPR|
00000600  2c 22 4d 6f 73 61 69 63  22 2c 30 2c 58 41 2c 59  |,"Mosaic",0,XA,Y|
00000610  41 2c 58 41 2b 57 2c 59  41 2b 48 0d 02 26 22 c8  |A,XA+W,YA+H..&".|
00000620  99 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 32  |."OS_SpriteOp",2|
00000630  35 36 2b 31 32 2c 53 50  52 2c 4e 46 24 0d 02 30  |56+12,SPR,NF$..0|
00000640  05 cd 0d 02 3a 05 e0 0d  02 44 04 0d 02 4e 0e dd  |....:....D...N..|
00000650  f2 46 28 58 25 2c 59 25  29 0d 02 58 11 e7 20 b0  |.F(X%,Y%)..X.. .|
00000660  58 25 2c 59 25 29 3d 30  20 8c 0d 02 62 2b 50 46  |X%,Y%)=0 ...b+PF|
00000670  25 2b 3d 31 3a 58 46 25  28 50 46 25 29 3d 58 25  |%+=1:XF%(PF%)=X%|
00000680  3a 59 46 25 28 50 46 25  29 3d 59 25 3a c8 92 20  |:YF%(PF%)=Y%:.. |
00000690  58 25 2c 59 25 0d 02 6c  38 c8 99 22 4f 53 5f 53  |X%,Y%..l8.."OS_S|
000006a0  70 72 69 74 65 4f 70 22  2c 32 35 36 2b 34 31 2c  |priteOp",256+41,|
000006b0  53 50 52 2c 4e 24 2c 58  25 2f 32 2c 59 25 2f 32  |SPR,N$,X%/2,Y%/2|
000006c0  20 b8 20 2c 2c 2c 2c 2c  43 25 2c 54 25 0d 02 76  | . ,,,,,C%,T%..v|
000006d0  0a 4c 25 2b 3d 54 25 0d  02 80 0c 52 25 2b 3d 43  |.L%+=T%....R%+=C|
000006e0  25 80 33 0d 02 8a 11 47  25 2b 3d 28 43 25 80 31  |%.3....G%+=(C%.1|
000006f0  32 29 81 34 0d 02 94 12  42 25 2b 3d 28 43 25 80  |2).4....B%+=(C%.|
00000700  34 38 29 81 31 36 0d 02  9e 05 cd 0d 02 a8 1f e7  |48).16..........|
00000710  20 b0 58 25 2b 32 2c 59  25 29 3d 30 20 8c 20 f2  | .X%+2,Y%)=0 . .|
00000720  46 28 58 25 2b 32 2c 59  25 29 0d 02 b2 1f e7 20  |F(X%+2,Y%)..... |
00000730  b0 58 25 2d 32 2c 59 25  29 3d 30 20 8c 20 f2 46  |.X%-2,Y%)=0 . .F|
00000740  28 58 25 2d 32 2c 59 25  29 0d 02 bc 1f e7 20 b0  |(X%-2,Y%)..... .|
00000750  58 25 2c 59 25 2b 32 29  3d 30 20 8c 20 f2 46 28  |X%,Y%+2)=0 . .F(|
00000760  58 25 2c 59 25 2b 32 29  0d 02 c6 1f e7 20 b0 58  |X%,Y%+2)..... .X|
00000770  25 2c 59 25 2d 32 29 3d  30 20 8c 20 f2 46 28 58  |%,Y%-2)=0 . .F(X|
00000780  25 2c 59 25 2d 32 29 0d  02 d0 05 e1 0d 02 da 04  |%,Y%-2).........|
00000790  0d 02 db 12 dd 20 f2 6d  6f 64 65 28 6d 6f 64 65  |..... .mode(mode|
000007a0  24 29 0d 02 e4 17 ea 20  63 24 2c 65 78 2c 65 79  |$)..... c$,ex,ey|
000007b0  2c 6d 6f 64 65 2c 65 6e  64 0d 02 ee 0d de 20 6d  |,mode,end..... m|
000007c0  6f 64 65 20 36 34 0d 02  f8 0f 65 6e 64 3d 6d 6f  |ode 64....end=mo|
000007d0  64 65 2b 32 30 0d 03 02  0b 21 6d 6f 64 65 3d 31  |de+20....!mode=1|
000007e0  0d 03 0c 1d 6d 6f 64 65  21 34 3d bb a4 5f 6d 28  |....mode!4=.._m(|
000007f0  6d 6f 64 65 24 2c 22 58  22 2c 22 22 29 0d 03 16  |mode$,"X","")...|
00000800  1d 6d 6f 64 65 21 38 3d  bb a4 5f 6d 28 6d 6f 64  |.mode!8=.._m(mod|
00000810  65 24 2c 22 59 22 2c 22  22 29 0d 03 20 19 63 24  |e$,"Y","").. .c$|
00000820  3d a4 5f 6d 28 6d 6f 64  65 24 2c 22 43 22 2c 22  |=._m(mode$,"C","|
00000830  2a 22 29 0d 03 2a 0e e7  20 63 24 3d 22 2a 22 20  |*")..*.. c$="*" |
00000840  8c 0d 03 34 19 20 63 24  3d a4 5f 6d 28 6d 6f 64  |...4. c$=._m(mod|
00000850  65 24 2c 22 47 22 2c 22  22 29 0d 03 3e 27 20 e7  |e$,"G","")..>' .|
00000860  20 63 24 3d 22 32 35 36  22 20 21 65 6e 64 3d 33  | c$="256" !end=3|
00000870  3a 65 6e 64 21 34 3d 32  35 35 3a 65 6e 64 2b 3d  |:end!4=255:end+=|
00000880  38 0d 03 48 05 cd 0d 03  52 15 6d 6f 64 65 21 31  |8..H....R.mode!1|
00000890  32 3d a4 5f 62 70 70 28  63 24 29 0d 03 5c 20 6d  |2=._bpp(c$)..\ m|
000008a0  6f 64 65 21 31 36 3d bb  a4 5f 6d 28 6d 6f 64 65  |ode!16=.._m(mode|
000008b0  24 2c 22 46 22 2c 22 2d  31 22 29 0d 03 66 1c 65  |$,"F","-1")..f.e|
000008c0  78 3d bb a4 5f 6d 28 6d  6f 64 65 24 2c 22 45 58  |x=.._m(mode$,"EX|
000008d0  22 2c 22 2d 31 22 29 0d  03 70 23 e7 20 65 78 3c  |","-1")..p#. ex<|
000008e0  3e 2d 31 20 21 65 6e 64  3d 34 3a 65 6e 64 21 34  |>-1 !end=4:end!4|
000008f0  3d 65 78 3a 65 6e 64 2b  3d 38 0d 03 7a 1c 65 79  |=ex:end+=8..z.ey|
00000900  3d bb a4 5f 6d 28 6d 6f  64 65 24 2c 22 45 59 22  |=.._m(mode$,"EY"|
00000910  2c 22 2d 31 22 29 0d 03  84 23 e7 20 65 79 3c 3e  |,"-1")...#. ey<>|
00000920  2d 31 20 21 65 6e 64 3d  35 3a 65 6e 64 21 34 3d  |-1 !end=5:end!4=|
00000930  65 79 3a 65 6e 64 2b 3d  38 0d 03 8e 0b 21 65 6e  |ey:end+=8....!en|
00000940  64 3d 2d 31 0d 03 98 0a  eb 20 6d 6f 64 65 0d 03  |d=-1..... mode..|
00000950  a2 05 e1 0d 03 ac 04 0d  03 b6 13 dd 20 a4 5f 6d  |............ ._m|
00000960  28 73 24 2c 70 24 2c 64  24 29 0d 03 c0 09 ea 20  |(s$,p$,d$)..... |
00000970  69 2c 6a 0d 03 ca 0d 69  3d a7 73 24 2c 70 24 29  |i,j....i=.s$,p$)|
00000980  0d 03 d4 25 e7 20 69 3c  31 20 80 20 64 24 3d 22  |...%. i<1 . d$="|
00000990  22 20 85 20 34 39 30 2c  22 4d 69 73 73 69 6e 67  |" . 490,"Missing|
000009a0  20 22 2b 70 24 0d 03 de  0f e7 20 69 3c 31 20 8c  | "+p$..... i<1 .|
000009b0  20 3d 64 24 0d 03 e8 16  6a 3d a7 73 24 2b 22 20  | =d$....j=.s$+" |
000009c0  22 2c 22 20 22 2c 69 2b  31 29 0d 03 f2 13 3d c1  |"," ",i+1)....=.|
000009d0  73 24 2c 69 2b 31 2c 6a  2d 69 2d 31 29 0d 03 fc  |s$,i+1,j-i-1)...|
000009e0  04 0d 04 06 0f dd 20 a4  5f 62 70 70 28 6e 24 29  |...... ._bpp(n$)|
000009f0  0d 04 10 0b c8 8e 20 6e  24 20 ca 0d 04 1a 0d 20  |...... n$ ..... |
00000a00  c9 20 22 32 22 3a 3d 30  0d 04 24 0d 20 c9 20 22  |. "2":=0..$. . "|
00000a10  34 22 3a 3d 31 0d 04 2e  0e 20 c9 20 22 31 36 22  |4":=1.... . "16"|
00000a20  3a 3d 32 0d 04 38 0f 20  c9 20 22 32 35 36 22 3a  |:=2..8. . "256":|
00000a30  3d 33 0d 04 42 21 20 c9  20 22 33 32 54 22 2c 22  |=3..B! . "32T","|
00000a40  33 32 74 22 2c 22 33 32  4b 22 2c 22 33 32 6b 22  |32t","32K","32k"|
00000a50  3a 3d 34 0d 04 4c 15 20  c9 20 22 31 36 4d 22 2c  |:=4..L. . "16M",|
00000a60  22 31 36 6d 22 3a 3d 35  0d 04 56 21 20 7f 3a 20  |"16m":=5..V! .: |
00000a70  85 20 34 39 30 2c 22 42  61 64 20 70 61 72 61 6d  |. 490,"Bad param|
00000a80  65 74 65 72 20 22 2b 6e  24 0d 04 60 05 cb 0d ff  |eter "+n$..`....|
00000a90