&� SpriteTest - Interquartile range
 � By Dominic Ford - May 1995
:
(� 0
2$�"Sprite Recognition by D Ford"'
<	�init
F�analyse
P�conclusion
Z
�learn
d
�store
n� 0
x�
�:
�
��analyse
�� Y=1 � yax
�� X=1 � xax
��0,3);�pera;"%"
�0ș "OS_SpriteOp",41,,SPR$,X-1,Y-1 � ,,,,,C,T
�	bin=0
�c%(C)=c%(C)+1
�� bo=1 � mb
�B� col(bo)=C � block(bo,X)>Y-6 � bin=bin+1:oproc=bo:�object_add
��
�� bin=0 � �object_make
�� bin>1 � �object_join

�,

�mcc

�

":

,	��mcc

6	CM%=0

@� C=1 � 15

J0� c%(C)>=CM% � CM%=c%(C):MCC$=CNA$(C):MCC%=C

T�

^�

h:

r
��init

|� � � 0:�:�" at line ";�:�

�%ș "OS_ChangeDynamicArea",3,&8000

�F�"            Filing System: (R)am (A)DFS (S)erver (V)ideo Camera"

��

�K$=�

�� �"rRaAsSvV",K$)<>0

�� K$="S" � K$="s" � �server

�� K$="A" � K$="a" � �adfs

�� K$="R" � K$="r" � *RAM

�� K$="V" � K$="v" � �video

�'�"         Sprite file name";SFILE$

�%�"              Sprite name";SPR$

�maxno=50

��
�'"Please Wait. . ."
� "SLOAD "+SFILE$
2ș "OS_SpriteOp",40,,SPR$ � ,,,xax,yax,H,,MDOE
&B�block(maxno,xax),col(maxno),bmin(maxno,xax),CNA$(15),cols(15)
0.�c%(15),MCC$(15),MCC%(15),CM%(15),iw%(xax)
:mb=0
D� C=0 � 15
N� CNA$(C),cols(C)
X�
b�
l:
v��server
�&�"              Server name";NAME$
��"I AM "+NAME$
��
�:
�
��adfs
�8�(28)"Insert Graphic Data Disc"''�(34)"Press SPACE"
�	*ADFS
�
*MOUNT
��
�:
���video
��"Function not available"
��
�
:
��object_make
 5� mb=maxno � �'"I am going to need more objects."
*mb=mb+1
4
col(mb)=C
>� Xwr=X-5 � X+5
H� Xwr<0 � Xwr>xax � �:�
Rblock(mb,Xwr)=Y
\bmin(mb,Xwr)=Y
f�
p�
z:
���object_add
�� Xwr=X-5 � X+5
�� Xwr<0 � Xwr>xax � �:�
�block(oproc,Xwr)=Y
�+� bmin(oproc,Xwr)=0 � bmin(oproc,Xwr)=Y
��
��
�:
���object_join
�� ob=1 � mb
�-� col(ob)=C � block(ob,X)>=Y-5 � �additon
��
�� ob=1 � mb
<� col(ob)=C � ob<>oproc � block(ob,X)>=Y-5 � �getridofit
�:oproc=-1
�
$:
.
��additon
8� oproc=-1 � oproc=ob
B� xscan=0 � xax-1
LM� block(ob,xscan)>block(oproc,xscan) � block(oproc,xscan)=block(ob,xscan)
VI� bmin(ob,xscan)<bmin(oproc,xscan) � bmin(oproc,xscan)=bmin(ob,xscan)
`�
j�
t:
~��getridofit
�� groi=ob+1 � mb
�� groil=0 � xax-1
�)block(groi,groil)=block(groi-1,groil)
�'bmin(groi,groil)=bmin(groi-1,groil)
��
�col(groi)=col(groi-1)
��
�mb=mb-1
��
�:
�
��getdata
�file=� "<Obey$Dir>.Objects"
�#file,noobs%

b�ob%(noobs%+2,maxno),prob%(noobs%+2,maxno),coobs%(noobs%+2,maxno),name$(noobs%+2),mb(noobs%+2)
� obget=0 � noobs%
!�#file,name$(obget),mb(obget)
(� oblop=1 � mb(obget)
2B�#file,ob%(obget,oblop),coobs%(obget,oblop),prob%(obget,oblop)
<�,
F
�#file
P�
Z:
d��savedata
nfile=� "<Obey$Dir>.Objects"
x�#file,noobs%
�� obget=0 � noobs%
�!�#file,name$(obget),mb(obget)
�� oblop=1 � mb(obget)
�B�#file,ob%(obget,oblop),coobs%(obget,oblop),prob%(obget,oblop)
��,
�
�#file
��
�:
���conclusion
��getdata
�
�colcheck
�
�iqrcheck
�smax=-1
� obscan=0 � noobs%
Q� smax<score%(obscan) � snum=obscan:smax=score%(obscan):obname$=name$(obscan)
�
"�
,:
6��colcheck
@�score%(noobs%+2)
J� picobs=1 � mb
T� cclude=0 � noobs%
^� obscan=1 � mb(cclude)
hh�(coobs%(cclude,obscan) � 2^(col(picobs)+1))<>0 � score%(cclude)=score%(cclude)+prob%(cclude,obscan)
r�,,
|�
�:
���iqrcheck
�� picobs=1 � mb
�iqr=�iqr(picobs)
�� cclude=0 � noobs%
�� obscan=1 � mb(cclude)
�iscore%(cclude)=score%(cclude)+prob%(cclude,obscan)*(iqr-ob%(cclude,obscan))*�(iqr-ob%(cclude,obscan))
��,,
��
�:
���bonds
�� cclude=1 � mb(snum)
�� learn=1 � mb
	del=�
�
.prob%(snum,cclude)=prob%(snum,cclude)+�pup
&+� prob%(snum,cclude)<=0 � �getrid:del=�
0� del=� � cclude=mb(snum)
:�,
D�
N:
X��learn
b�'"Is it a ";obname$;:�ask
l4� A$="N" � �"What was it then";obnamen$:�rethink
v(�'"Was it a ";MCC$;" ";obname$;:�ask
�� A$="N" � �recolour
�
�bonds
��
�:
���recolour
��colourtable
��
�A$=�
�� �(A$)>64 � �(A$)<70
�MCC%=�(A$)-64
�MCC$=CNA$(MCC%)
��
�:
��colourtable

� MDOE
*<Obey$Dir>.!Palette
 �"What colour was it then:"
*�c=0�15
4� 128:�(c+64);" ";
>� c+128
H�;"          ";
R�
\�
f:
p
��rethink
z�
��"Please Wait. . ."'
�
�bonds
�obname$=obnamen$
��
�	err=�
�obname$=" "+obname$+" "
�� c=2 � �(obname$)-1
�S� (�rt<97) � (�rt<>32) � obname$=�obname$,c-1)+�(�rt+32)+�obname$,�(obname$)-c)
�*� (�rt<97 � �rt>122) � �rt<>32 � err=�
��
�$obname$=�obname$,2,�(obname$)-2)
�� err=� � �reask
�� err=�
	� ono=0 � noobs%
	)� name$(ono)=obname$ � snum=ono:err=�
	�
	$� err=� � �newob
	.�
	8:
	B��reask
	LG�'"Object names can only contain letters. Please re-type the name"'
	V�"What was it then";obname$
	`�
	j:
	t��newob
	~noobs%=noobs%+1
	�mb(noobs%)=mb
	�name$(noobs%)=obname$
	�� ono=1 � mb
	�ob%(noobs%,ono)=�iqr(ono)
	�%coobs%(noobs%,ono)=cols(col(ono))
	�prob%(noobs%,ono)=2
	��
	�snum=noobs%
	��
	�:
	�	��ask
	��;" (Y/N) ";
�

A$=�
� �"YyNn",A$)<>0
3� A$="Y" � A$="y"� �"Yes":A$="Y" � �"No":A$="N"
(�
2:
<��getrid
Fmb(snum)=mb(snum)-1
P� obno=cclude � mb(snum)
Z#ob%(obno,snum)=ob%(obno+1,snum)
d)coobs%(obno,snum)=coobs%(obno+1,snum)
n'prob%(obno,snum)=prob%(obno+1,snum)
x�
��
�:
���store
�
� MDOE
�*<Obey$Dir>.!Pallete
��"SCHOOSE "+SPR$
�
� &ED,0,0
�5�"Do you want me to learn from this sprite";:�ask
�� A$="N" � �
��"Please wait. . .";
�
�savedata
��
�:
ݤiqr(ono)
	dva=0
� xt=0 � xax-1
"4� block(ono,xt)>bmin(ono,xt) � �addiqr:dva=dva+1
,�
6$=iw%(�(dva*.75))/iw%(�(dva*.25))
@:
J��addiqr
T� xs=0 � dva
^� �dif>=iw%(xs) � pos=xs
h�
r� s=pos+1 � dva
|iw%(xs-1)=iw%(xs)
��
�iw%(pos)=�dif
��
�:
�$ݤdif=block(ono,xt)-bmin(ono,xt)
�:
�	ݤpup
�xs=0
�� ono=1 � mb
�iqr=�iqr(ono)
�;� iqr<=ob%(snum,cclude) � xt=(iqr/ob%(snum,cclude))*1.5
�:� iqr>ob%(snum,cclude) � xt=(ob%(snum,cclude)/iqr)*1.5
�8� (2^(col(ono)+1) � coobs%(snum,cclude)) � xt=xt+.25
� col(ono)=MCC% � xt=xt+.25
� xt>xs � xs=xt
�
&	=xs-1
0:
:ݤrt=�(�obname$,c,1))
D:
N/ݤpera=�((100/(xax*yax))*((X-1)+(Y-1)*xax))
X:
bS� "white",3,"light grey",7,"medium grey",14,"dark grey",28,"very dark grey",240
l=� "extremely dark grey",240,"light black",240,"black",240
v=� "dark blue",8448,"yellow",4608,"green",1024,"red",18432
�+� "light yellow",4608,"dark green",8448
�'� "orange",16384,"light blue",32768
�

00000000  0d 00 0a 26 f4 20 53 70  72 69 74 65 54 65 73 74  |...&. SpriteTest|
00000010  20 2d 20 49 6e 74 65 72  71 75 61 72 74 69 6c 65  | - Interquartile|
00000020  20 72 61 6e 67 65 0d 00  14 20 f4 20 42 79 20 44  | range... . By D|
00000030  6f 6d 69 6e 69 63 20 46  6f 72 64 20 2d 20 4d 61  |ominic Ford - Ma|
00000040  79 20 31 39 39 35 0d 00  1e 05 3a 0d 00 28 07 eb  |y 1995....:..(..|
00000050  20 30 0d 00 32 24 f1 22  53 70 72 69 74 65 20 52  | 0..2$."Sprite R|
00000060  65 63 6f 67 6e 69 74 69  6f 6e 20 62 79 20 44 20  |ecognition by D |
00000070  46 6f 72 64 22 27 0d 00  3c 09 f2 69 6e 69 74 0d  |Ford"'..<..init.|
00000080  00 46 0c f2 61 6e 61 6c  79 73 65 0d 00 50 0f f2  |.F..analyse..P..|
00000090  63 6f 6e 63 6c 75 73 69  6f 6e 0d 00 5a 0a f2 6c  |conclusion..Z..l|
000000a0  65 61 72 6e 0d 00 64 0a  f2 73 74 6f 72 65 0d 00  |earn..d..store..|
000000b0  6e 07 eb 20 30 0d 00 78  05 e0 0d 00 82 05 3a 0d  |n.. 0..x......:.|
000000c0  00 8c 0d dd f2 61 6e 61  6c 79 73 65 0d 00 96 0f  |.....analyse....|
000000d0  e3 20 59 3d 31 20 b8 20  79 61 78 0d 00 a0 0f e3  |. Y=1 . yax.....|
000000e0  20 58 3d 31 20 b8 20 78  61 78 0d 00 aa 14 f1 8a  | X=1 . xax......|
000000f0  30 2c 33 29 3b a4 70 65  72 61 3b 22 25 22 0d 00  |0,3);.pera;"%"..|
00000100  b4 30 c8 99 20 22 4f 53  5f 53 70 72 69 74 65 4f  |.0.. "OS_SpriteO|
00000110  70 22 2c 34 31 2c 2c 53  50 52 24 2c 58 2d 31 2c  |p",41,,SPR$,X-1,|
00000120  59 2d 31 20 b8 20 2c 2c  2c 2c 2c 43 2c 54 0d 00  |Y-1 . ,,,,,C,T..|
00000130  be 09 62 69 6e 3d 30 0d  00 c8 11 63 25 28 43 29  |..bin=0....c%(C)|
00000140  3d 63 25 28 43 29 2b 31  0d 00 d2 0f e3 20 62 6f  |=c%(C)+1..... bo|
00000150  3d 31 20 b8 20 6d 62 0d  00 dc 42 e7 20 63 6f 6c  |=1 . mb...B. col|
00000160  28 62 6f 29 3d 43 20 80  20 62 6c 6f 63 6b 28 62  |(bo)=C . block(b|
00000170  6f 2c 58 29 3e 59 2d 36  20 8c 20 62 69 6e 3d 62  |o,X)>Y-6 . bin=b|
00000180  69 6e 2b 31 3a 6f 70 72  6f 63 3d 62 6f 3a f2 6f  |in+1:oproc=bo:.o|
00000190  62 6a 65 63 74 5f 61 64  64 0d 00 e6 05 ed 0d 00  |bject_add.......|
000001a0  f0 1a e7 20 62 69 6e 3d  30 20 8c 20 f2 6f 62 6a  |... bin=0 . .obj|
000001b0  65 63 74 5f 6d 61 6b 65  0d 00 fa 1a e7 20 62 69  |ect_make..... bi|
000001c0  6e 3e 31 20 8c 20 f2 6f  62 6a 65 63 74 5f 6a 6f  |n>1 . .object_jo|
000001d0  69 6e 0d 01 04 06 ed 2c  0d 01 0e 08 f2 6d 63 63  |in.....,.....mcc|
000001e0  0d 01 18 05 e1 0d 01 22  05 3a 0d 01 2c 09 dd f2  |.......".:..,...|
000001f0  6d 63 63 0d 01 36 09 43  4d 25 3d 30 0d 01 40 0e  |mcc..6.CM%=0..@.|
00000200  e3 20 43 3d 31 20 b8 20  31 35 0d 01 4a 30 e7 20  |. C=1 . 15..J0. |
00000210  63 25 28 43 29 3e 3d 43  4d 25 20 8c 20 43 4d 25  |c%(C)>=CM% . CM%|
00000220  3d 63 25 28 43 29 3a 4d  43 43 24 3d 43 4e 41 24  |=c%(C):MCC$=CNA$|
00000230  28 43 29 3a 4d 43 43 25  3d 43 0d 01 54 05 ed 0d  |(C):MCC%=C..T...|
00000240  01 5e 05 e1 0d 01 68 05  3a 0d 01 72 0a dd f2 69  |.^....h.:..r...i|
00000250  6e 69 74 0d 01 7c 1e ee  20 85 20 eb 20 30 3a f6  |nit..|.. . . 0:.|
00000260  3a f1 22 20 61 74 20 6c  69 6e 65 20 22 3b 9e 3a  |:." at line ";.:|
00000270  e0 0d 01 86 25 c8 99 20  22 4f 53 5f 43 68 61 6e  |....%.. "OS_Chan|
00000280  67 65 44 79 6e 61 6d 69  63 41 72 65 61 22 2c 33  |geDynamicArea",3|
00000290  2c 26 38 30 30 30 0d 01  90 46 f1 22 20 20 20 20  |,&8000...F."    |
000002a0  20 20 20 20 20 20 20 20  46 69 6c 69 6e 67 20 53  |        Filing S|
000002b0  79 73 74 65 6d 3a 20 28  52 29 61 6d 20 28 41 29  |ystem: (R)am (A)|
000002c0  44 46 53 20 28 53 29 65  72 76 65 72 20 28 56 29  |DFS (S)erver (V)|
000002d0  69 64 65 6f 20 43 61 6d  65 72 61 22 0d 01 9a 05  |ideo Camera"....|
000002e0  f5 0d 01 a4 08 4b 24 3d  be 0d 01 ae 18 fd 20 a7  |.....K$=...... .|
000002f0  22 72 52 61 41 73 53 76  56 22 2c 4b 24 29 3c 3e  |"rRaAsSvV",K$)<>|
00000300  30 0d 01 b8 1f e7 20 4b  24 3d 22 53 22 20 84 20  |0..... K$="S" . |
00000310  4b 24 3d 22 73 22 20 8c  20 f2 73 65 72 76 65 72  |K$="s" . .server|
00000320  0d 01 c2 1d e7 20 4b 24  3d 22 41 22 20 84 20 4b  |..... K$="A" . K|
00000330  24 3d 22 61 22 20 8c 20  f2 61 64 66 73 0d 01 cc  |$="a" . .adfs...|
00000340  1c e7 20 4b 24 3d 22 52  22 20 84 20 4b 24 3d 22  |.. K$="R" . K$="|
00000350  72 22 20 8c 20 2a 52 41  4d 0d 01 d6 1e e7 20 4b  |r" . *RAM..... K|
00000360  24 3d 22 56 22 20 84 20  4b 24 3d 22 76 22 20 8c  |$="V" . K$="v" .|
00000370  20 f2 76 69 64 65 6f 0d  01 e0 27 e8 22 20 20 20  | .video...'."   |
00000380  20 20 20 20 20 20 53 70  72 69 74 65 20 66 69 6c  |      Sprite fil|
00000390  65 20 6e 61 6d 65 22 3b  53 46 49 4c 45 24 0d 01  |e name";SFILE$..|
000003a0  ea 25 e8 22 20 20 20 20  20 20 20 20 20 20 20 20  |.%."            |
000003b0  20 20 53 70 72 69 74 65  20 6e 61 6d 65 22 3b 53  |  Sprite name";S|
000003c0  50 52 24 0d 01 f4 0c 6d  61 78 6e 6f 3d 35 30 0d  |PR$....maxno=50.|
000003d0  01 fe 05 db 0d 02 08 18  f1 27 22 50 6c 65 61 73  |.........'"Pleas|
000003e0  65 20 57 61 69 74 2e 20  2e 20 2e 22 0d 02 12 15  |e Wait. . ."....|
000003f0  ff 20 22 53 4c 4f 41 44  20 22 2b 53 46 49 4c 45  |. "SLOAD "+SFILE|
00000400  24 0d 02 1c 32 c8 99 20  22 4f 53 5f 53 70 72 69  |$...2.. "OS_Spri|
00000410  74 65 4f 70 22 2c 34 30  2c 2c 53 50 52 24 20 b8  |teOp",40,,SPR$ .|
00000420  20 2c 2c 2c 78 61 78 2c  79 61 78 2c 48 2c 2c 4d  | ,,,xax,yax,H,,M|
00000430  44 4f 45 0d 02 26 42 de  62 6c 6f 63 6b 28 6d 61  |DOE..&B.block(ma|
00000440  78 6e 6f 2c 78 61 78 29  2c 63 6f 6c 28 6d 61 78  |xno,xax),col(max|
00000450  6e 6f 29 2c 62 6d 69 6e  28 6d 61 78 6e 6f 2c 78  |no),bmin(maxno,x|
00000460  61 78 29 2c 43 4e 41 24  28 31 35 29 2c 63 6f 6c  |ax),CNA$(15),col|
00000470  73 28 31 35 29 0d 02 30  2e de 63 25 28 31 35 29  |s(15)..0..c%(15)|
00000480  2c 4d 43 43 24 28 31 35  29 2c 4d 43 43 25 28 31  |,MCC$(15),MCC%(1|
00000490  35 29 2c 43 4d 25 28 31  35 29 2c 69 77 25 28 78  |5),CM%(15),iw%(x|
000004a0  61 78 29 0d 02 3a 08 6d  62 3d 30 0d 02 44 0e e3  |ax)..:.mb=0..D..|
000004b0  20 43 3d 30 20 b8 20 31  35 0d 02 4e 15 f3 20 43  | C=0 . 15..N.. C|
000004c0  4e 41 24 28 43 29 2c 63  6f 6c 73 28 43 29 0d 02  |NA$(C),cols(C)..|
000004d0  58 05 ed 0d 02 62 05 e1  0d 02 6c 05 3a 0d 02 76  |X....b....l.:..v|
000004e0  0c dd f2 73 65 72 76 65  72 0d 02 80 26 e8 22 20  |...server...&." |
000004f0  20 20 20 20 20 20 20 20  20 20 20 20 20 53 65 72  |             Ser|
00000500  76 65 72 20 6e 61 6d 65  22 3b 4e 41 4d 45 24 0d  |ver name";NAME$.|
00000510  02 8a 12 ff 22 49 20 41  4d 20 22 2b 4e 41 4d 45  |...."I AM "+NAME|
00000520  24 0d 02 94 05 e1 0d 02  9e 05 3a 0d 02 a8 0a dd  |$.........:.....|
00000530  f2 61 64 66 73 0d 02 b2  38 f1 89 28 32 38 29 22  |.adfs...8..(28)"|
00000540  49 6e 73 65 72 74 20 47  72 61 70 68 69 63 20 44  |Insert Graphic D|
00000550  61 74 61 20 44 69 73 63  22 27 27 89 28 33 34 29  |ata Disc"''.(34)|
00000560  22 50 72 65 73 73 20 53  50 41 43 45 22 0d 02 bc  |"Press SPACE"...|
00000570  09 2a 41 44 46 53 0d 02  c6 0a 2a 4d 4f 55 4e 54  |.*ADFS....*MOUNT|
00000580  0d 02 d0 05 e1 0d 02 da  05 3a 0d 02 e4 0b dd f2  |.........:......|
00000590  76 69 64 65 6f 0d 02 ee  1d f1 22 46 75 6e 63 74  |video....."Funct|
000005a0  69 6f 6e 20 6e 6f 74 20  61 76 61 69 6c 61 62 6c  |ion not availabl|
000005b0  65 22 0d 02 f8 05 fa 0d  03 02 05 e1 0d 03 0c 05  |e"..............|
000005c0  3a 0d 03 16 11 dd f2 6f  62 6a 65 63 74 5f 6d 61  |:......object_ma|
000005d0  6b 65 0d 03 20 35 e7 20  6d 62 3d 6d 61 78 6e 6f  |ke.. 5. mb=maxno|
000005e0  20 8c 20 f1 27 22 49 20  61 6d 20 67 6f 69 6e 67  | . .'"I am going|
000005f0  20 74 6f 20 6e 65 65 64  20 6d 6f 72 65 20 6f 62  | to need more ob|
00000600  6a 65 63 74 73 2e 22 0d  03 2a 0b 6d 62 3d 6d 62  |jects."..*.mb=mb|
00000610  2b 31 0d 03 34 0d 63 6f  6c 28 6d 62 29 3d 43 0d  |+1..4.col(mb)=C.|
00000620  03 3e 13 e3 20 58 77 72  3d 58 2d 35 20 b8 20 58  |.>.. Xwr=X-5 . X|
00000630  2b 35 0d 03 48 1b e7 20  58 77 72 3c 30 20 84 20  |+5..H.. Xwr<0 . |
00000640  58 77 72 3e 78 61 78 20  8c 20 ed 3a e1 0d 03 52  |Xwr>xax . .:...R|
00000650  13 62 6c 6f 63 6b 28 6d  62 2c 58 77 72 29 3d 59  |.block(mb,Xwr)=Y|
00000660  0d 03 5c 12 62 6d 69 6e  28 6d 62 2c 58 77 72 29  |..\.bmin(mb,Xwr)|
00000670  3d 59 0d 03 66 05 ed 0d  03 70 05 e1 0d 03 7a 05  |=Y..f....p....z.|
00000680  3a 0d 03 84 10 dd f2 6f  62 6a 65 63 74 5f 61 64  |:......object_ad|
00000690  64 0d 03 8e 13 e3 20 58  77 72 3d 58 2d 35 20 b8  |d..... Xwr=X-5 .|
000006a0  20 58 2b 35 0d 03 98 1b  e7 20 58 77 72 3c 30 20  | X+5..... Xwr<0 |
000006b0  84 20 58 77 72 3e 78 61  78 20 8c 20 ed 3a e1 0d  |. Xwr>xax . .:..|
000006c0  03 a2 16 62 6c 6f 63 6b  28 6f 70 72 6f 63 2c 58  |...block(oproc,X|
000006d0  77 72 29 3d 59 0d 03 ac  2b e7 20 62 6d 69 6e 28  |wr)=Y...+. bmin(|
000006e0  6f 70 72 6f 63 2c 58 77  72 29 3d 30 20 8c 20 62  |oproc,Xwr)=0 . b|
000006f0  6d 69 6e 28 6f 70 72 6f  63 2c 58 77 72 29 3d 59  |min(oproc,Xwr)=Y|
00000700  0d 03 b6 05 ed 0d 03 c0  05 e1 0d 03 ca 05 3a 0d  |..............:.|
00000710  03 d4 11 dd f2 6f 62 6a  65 63 74 5f 6a 6f 69 6e  |.....object_join|
00000720  0d 03 de 0f e3 20 6f 62  3d 31 20 b8 20 6d 62 0d  |..... ob=1 . mb.|
00000730  03 e8 2d e7 20 63 6f 6c  28 6f 62 29 3d 43 20 80  |..-. col(ob)=C .|
00000740  20 62 6c 6f 63 6b 28 6f  62 2c 58 29 3e 3d 59 2d  | block(ob,X)>=Y-|
00000750  35 20 8c 20 f2 61 64 64  69 74 6f 6e 0d 03 f2 05  |5 . .additon....|
00000760  ed 0d 03 fc 0f e3 20 6f  62 3d 31 20 b8 20 6d 62  |...... ob=1 . mb|
00000770  0d 04 06 3c e7 20 63 6f  6c 28 6f 62 29 3d 43 20  |...<. col(ob)=C |
00000780  80 20 6f 62 3c 3e 6f 70  72 6f 63 20 80 20 62 6c  |. ob<>oproc . bl|
00000790  6f 63 6b 28 6f 62 2c 58  29 3e 3d 59 2d 35 20 8c  |ock(ob,X)>=Y-5 .|
000007a0  20 f2 67 65 74 72 69 64  6f 66 69 74 0d 04 10 0e  | .getridofit....|
000007b0  ed 3a 6f 70 72 6f 63 3d  2d 31 0d 04 1a 05 e1 0d  |.:oproc=-1......|
000007c0  04 24 05 3a 0d 04 2e 0d  dd f2 61 64 64 69 74 6f  |.$.:......addito|
000007d0  6e 0d 04 38 19 e7 20 6f  70 72 6f 63 3d 2d 31 20  |n..8.. oproc=-1 |
000007e0  8c 20 6f 70 72 6f 63 3d  6f 62 0d 04 42 15 e3 20  |. oproc=ob..B.. |
000007f0  78 73 63 61 6e 3d 30 20  b8 20 78 61 78 2d 31 0d  |xscan=0 . xax-1.|
00000800  04 4c 4d e7 20 62 6c 6f  63 6b 28 6f 62 2c 78 73  |.LM. block(ob,xs|
00000810  63 61 6e 29 3e 62 6c 6f  63 6b 28 6f 70 72 6f 63  |can)>block(oproc|
00000820  2c 78 73 63 61 6e 29 20  8c 20 62 6c 6f 63 6b 28  |,xscan) . block(|
00000830  6f 70 72 6f 63 2c 78 73  63 61 6e 29 3d 62 6c 6f  |oproc,xscan)=blo|
00000840  63 6b 28 6f 62 2c 78 73  63 61 6e 29 0d 04 56 49  |ck(ob,xscan)..VI|
00000850  e7 20 62 6d 69 6e 28 6f  62 2c 78 73 63 61 6e 29  |. bmin(ob,xscan)|
00000860  3c 62 6d 69 6e 28 6f 70  72 6f 63 2c 78 73 63 61  |<bmin(oproc,xsca|
00000870  6e 29 20 8c 20 62 6d 69  6e 28 6f 70 72 6f 63 2c  |n) . bmin(oproc,|
00000880  78 73 63 61 6e 29 3d 62  6d 69 6e 28 6f 62 2c 78  |xscan)=bmin(ob,x|
00000890  73 63 61 6e 29 0d 04 60  05 ed 0d 04 6a 05 e1 0d  |scan)..`....j...|
000008a0  04 74 05 3a 0d 04 7e 10  dd f2 67 65 74 72 69 64  |.t.:..~...getrid|
000008b0  6f 66 69 74 0d 04 88 14  e3 20 67 72 6f 69 3d 6f  |ofit..... groi=o|
000008c0  62 2b 31 20 b8 20 6d 62  0d 04 92 15 e3 20 67 72  |b+1 . mb..... gr|
000008d0  6f 69 6c 3d 30 20 b8 20  78 61 78 2d 31 0d 04 9c  |oil=0 . xax-1...|
000008e0  29 62 6c 6f 63 6b 28 67  72 6f 69 2c 67 72 6f 69  |)block(groi,groi|
000008f0  6c 29 3d 62 6c 6f 63 6b  28 67 72 6f 69 2d 31 2c  |l)=block(groi-1,|
00000900  67 72 6f 69 6c 29 0d 04  a6 27 62 6d 69 6e 28 67  |groil)...'bmin(g|
00000910  72 6f 69 2c 67 72 6f 69  6c 29 3d 62 6d 69 6e 28  |roi,groil)=bmin(|
00000920  67 72 6f 69 2d 31 2c 67  72 6f 69 6c 29 0d 04 b0  |groi-1,groil)...|
00000930  05 ed 0d 04 ba 19 63 6f  6c 28 67 72 6f 69 29 3d  |......col(groi)=|
00000940  63 6f 6c 28 67 72 6f 69  2d 31 29 0d 04 c4 05 ed  |col(groi-1).....|
00000950  0d 04 ce 0b 6d 62 3d 6d  62 2d 31 0d 04 d8 05 e1  |....mb=mb-1.....|
00000960  0d 04 e2 05 3a 0d 04 ec  0d dd f2 67 65 74 64 61  |....:......getda|
00000970  74 61 0d 04 f6 1f 66 69  6c 65 3d 8e 20 22 3c 4f  |ta....file=. "<O|
00000980  62 65 79 24 44 69 72 3e  2e 4f 62 6a 65 63 74 73  |bey$Dir>.Objects|
00000990  22 0d 05 00 11 e8 23 66  69 6c 65 2c 6e 6f 6f 62  |".....#file,noob|
000009a0  73 25 0d 05 0a 62 de 6f  62 25 28 6e 6f 6f 62 73  |s%...b.ob%(noobs|
000009b0  25 2b 32 2c 6d 61 78 6e  6f 29 2c 70 72 6f 62 25  |%+2,maxno),prob%|
000009c0  28 6e 6f 6f 62 73 25 2b  32 2c 6d 61 78 6e 6f 29  |(noobs%+2,maxno)|
000009d0  2c 63 6f 6f 62 73 25 28  6e 6f 6f 62 73 25 2b 32  |,coobs%(noobs%+2|
000009e0  2c 6d 61 78 6e 6f 29 2c  6e 61 6d 65 24 28 6e 6f  |,maxno),name$(no|
000009f0  6f 62 73 25 2b 32 29 2c  6d 62 28 6e 6f 6f 62 73  |obs%+2),mb(noobs|
00000a00  25 2b 32 29 0d 05 14 16  e3 20 6f 62 67 65 74 3d  |%+2)..... obget=|
00000a10  30 20 b8 20 6e 6f 6f 62  73 25 0d 05 1e 21 e8 23  |0 . noobs%...!.#|
00000a20  66 69 6c 65 2c 6e 61 6d  65 24 28 6f 62 67 65 74  |file,name$(obget|
00000a30  29 2c 6d 62 28 6f 62 67  65 74 29 0d 05 28 19 e3  |),mb(obget)..(..|
00000a40  20 6f 62 6c 6f 70 3d 31  20 b8 20 6d 62 28 6f 62  | oblop=1 . mb(ob|
00000a50  67 65 74 29 0d 05 32 42  e8 23 66 69 6c 65 2c 6f  |get)..2B.#file,o|
00000a60  62 25 28 6f 62 67 65 74  2c 6f 62 6c 6f 70 29 2c  |b%(obget,oblop),|
00000a70  63 6f 6f 62 73 25 28 6f  62 67 65 74 2c 6f 62 6c  |coobs%(obget,obl|
00000a80  6f 70 29 2c 70 72 6f 62  25 28 6f 62 67 65 74 2c  |op),prob%(obget,|
00000a90  6f 62 6c 6f 70 29 0d 05  3c 06 ed 2c 0d 05 46 0a  |oblop)..<..,..F.|
00000aa0  d9 23 66 69 6c 65 0d 05  50 05 e1 0d 05 5a 05 3a  |.#file..P....Z.:|
00000ab0  0d 05 64 0e dd f2 73 61  76 65 64 61 74 61 0d 05  |..d...savedata..|
00000ac0  6e 1f 66 69 6c 65 3d ae  20 22 3c 4f 62 65 79 24  |n.file=. "<Obey$|
00000ad0  44 69 72 3e 2e 4f 62 6a  65 63 74 73 22 0d 05 78  |Dir>.Objects"..x|
00000ae0  11 f1 23 66 69 6c 65 2c  6e 6f 6f 62 73 25 0d 05  |..#file,noobs%..|
00000af0  82 16 e3 20 6f 62 67 65  74 3d 30 20 b8 20 6e 6f  |... obget=0 . no|
00000b00  6f 62 73 25 0d 05 8c 21  f1 23 66 69 6c 65 2c 6e  |obs%...!.#file,n|
00000b10  61 6d 65 24 28 6f 62 67  65 74 29 2c 6d 62 28 6f  |ame$(obget),mb(o|
00000b20  62 67 65 74 29 0d 05 96  19 e3 20 6f 62 6c 6f 70  |bget)..... oblop|
00000b30  3d 31 20 b8 20 6d 62 28  6f 62 67 65 74 29 0d 05  |=1 . mb(obget)..|
00000b40  a0 42 f1 23 66 69 6c 65  2c 6f 62 25 28 6f 62 67  |.B.#file,ob%(obg|
00000b50  65 74 2c 6f 62 6c 6f 70  29 2c 63 6f 6f 62 73 25  |et,oblop),coobs%|
00000b60  28 6f 62 67 65 74 2c 6f  62 6c 6f 70 29 2c 70 72  |(obget,oblop),pr|
00000b70  6f 62 25 28 6f 62 67 65  74 2c 6f 62 6c 6f 70 29  |ob%(obget,oblop)|
00000b80  0d 05 aa 06 ed 2c 0d 05  b4 0a d9 23 66 69 6c 65  |.....,.....#file|
00000b90  0d 05 be 05 e1 0d 05 c8  05 3a 0d 05 d2 10 dd f2  |.........:......|
00000ba0  63 6f 6e 63 6c 75 73 69  6f 6e 0d 05 dc 0c f2 67  |conclusion.....g|
00000bb0  65 74 64 61 74 61 0d 05  e6 0d f2 63 6f 6c 63 68  |etdata.....colch|
00000bc0  65 63 6b 0d 05 f0 0d f2  69 71 72 63 68 65 63 6b  |eck.....iqrcheck|
00000bd0  0d 05 fa 0b 73 6d 61 78  3d 2d 31 0d 06 04 17 e3  |....smax=-1.....|
00000be0  20 6f 62 73 63 61 6e 3d  30 20 b8 20 6e 6f 6f 62  | obscan=0 . noob|
00000bf0  73 25 0d 06 0e 51 e7 20  73 6d 61 78 3c 73 63 6f  |s%...Q. smax<sco|
00000c00  72 65 25 28 6f 62 73 63  61 6e 29 20 8c 20 73 6e  |re%(obscan) . sn|
00000c10  75 6d 3d 6f 62 73 63 61  6e 3a 73 6d 61 78 3d 73  |um=obscan:smax=s|
00000c20  63 6f 72 65 25 28 6f 62  73 63 61 6e 29 3a 6f 62  |core%(obscan):ob|
00000c30  6e 61 6d 65 24 3d 6e 61  6d 65 24 28 6f 62 73 63  |name$=name$(obsc|
00000c40  61 6e 29 0d 06 18 05 ed  0d 06 22 05 e1 0d 06 2c  |an)......."....,|
00000c50  05 3a 0d 06 36 0e dd f2  63 6f 6c 63 68 65 63 6b  |.:..6...colcheck|
00000c60  0d 06 40 15 de 73 63 6f  72 65 25 28 6e 6f 6f 62  |..@..score%(noob|
00000c70  73 25 2b 32 29 0d 06 4a  13 e3 20 70 69 63 6f 62  |s%+2)..J.. picob|
00000c80  73 3d 31 20 b8 20 6d 62  0d 06 54 17 e3 20 63 63  |s=1 . mb..T.. cc|
00000c90  6c 75 64 65 3d 30 20 b8  20 6e 6f 6f 62 73 25 0d  |lude=0 . noobs%.|
00000ca0  06 5e 1b e3 20 6f 62 73  63 61 6e 3d 31 20 b8 20  |.^.. obscan=1 . |
00000cb0  6d 62 28 63 63 6c 75 64  65 29 0d 06 68 68 e7 28  |mb(cclude)..hh.(|
00000cc0  63 6f 6f 62 73 25 28 63  63 6c 75 64 65 2c 6f 62  |coobs%(cclude,ob|
00000cd0  73 63 61 6e 29 20 80 20  32 5e 28 63 6f 6c 28 70  |scan) . 2^(col(p|
00000ce0  69 63 6f 62 73 29 2b 31  29 29 3c 3e 30 20 8c 20  |icobs)+1))<>0 . |
00000cf0  73 63 6f 72 65 25 28 63  63 6c 75 64 65 29 3d 73  |score%(cclude)=s|
00000d00  63 6f 72 65 25 28 63 63  6c 75 64 65 29 2b 70 72  |core%(cclude)+pr|
00000d10  6f 62 25 28 63 63 6c 75  64 65 2c 6f 62 73 63 61  |ob%(cclude,obsca|
00000d20  6e 29 0d 06 72 07 ed 2c  2c 0d 06 7c 05 e1 0d 06  |n)..r..,,..|....|
00000d30  86 05 3a 0d 06 90 0e dd  f2 69 71 72 63 68 65 63  |..:......iqrchec|
00000d40  6b 0d 06 9a 13 e3 20 70  69 63 6f 62 73 3d 31 20  |k..... picobs=1 |
00000d50  b8 20 6d 62 0d 06 a4 14  69 71 72 3d a4 69 71 72  |. mb....iqr=.iqr|
00000d60  28 70 69 63 6f 62 73 29  0d 06 ae 17 e3 20 63 63  |(picobs)..... cc|
00000d70  6c 75 64 65 3d 30 20 b8  20 6e 6f 6f 62 73 25 0d  |lude=0 . noobs%.|
00000d80  06 b8 1b e3 20 6f 62 73  63 61 6e 3d 31 20 b8 20  |.... obscan=1 . |
00000d90  6d 62 28 63 63 6c 75 64  65 29 0d 06 c2 69 73 63  |mb(cclude)...isc|
00000da0  6f 72 65 25 28 63 63 6c  75 64 65 29 3d 73 63 6f  |ore%(cclude)=sco|
00000db0  72 65 25 28 63 63 6c 75  64 65 29 2b 70 72 6f 62  |re%(cclude)+prob|
00000dc0  25 28 63 63 6c 75 64 65  2c 6f 62 73 63 61 6e 29  |%(cclude,obscan)|
00000dd0  2a 28 69 71 72 2d 6f 62  25 28 63 63 6c 75 64 65  |*(iqr-ob%(cclude|
00000de0  2c 6f 62 73 63 61 6e 29  29 2a b4 28 69 71 72 2d  |,obscan))*.(iqr-|
00000df0  6f 62 25 28 63 63 6c 75  64 65 2c 6f 62 73 63 61  |ob%(cclude,obsca|
00000e00  6e 29 29 0d 06 cc 07 ed  2c 2c 0d 06 d6 05 e1 0d  |n)).....,,......|
00000e10  06 e0 05 3a 0d 06 ea 0b  dd f2 62 6f 6e 64 73 0d  |...:......bonds.|
00000e20  06 f4 19 e3 20 63 63 6c  75 64 65 3d 31 20 b8 20  |.... cclude=1 . |
00000e30  6d 62 28 73 6e 75 6d 29  0d 06 fe 12 e3 20 6c 65  |mb(snum)..... le|
00000e40  61 72 6e 3d 31 20 b8 20  6d 62 0d 07 08 09 64 65  |arn=1 . mb....de|
00000e50  6c 3d a3 0d 07 12 05 f5  0d 07 1c 2e 70 72 6f 62  |l=..........prob|
00000e60  25 28 73 6e 75 6d 2c 63  63 6c 75 64 65 29 3d 70  |%(snum,cclude)=p|
00000e70  72 6f 62 25 28 73 6e 75  6d 2c 63 63 6c 75 64 65  |rob%(snum,cclude|
00000e80  29 2b a4 70 75 70 0d 07  26 2b e7 20 70 72 6f 62  |)+.pup..&+. prob|
00000e90  25 28 73 6e 75 6d 2c 63  63 6c 75 64 65 29 3c 3d  |%(snum,cclude)<=|
00000ea0  30 20 8c 20 f2 67 65 74  72 69 64 3a 64 65 6c 3d  |0 . .getrid:del=|
00000eb0  b9 0d 07 30 1d fd 20 64  65 6c 3d a3 20 84 20 63  |...0.. del=. . c|
00000ec0  63 6c 75 64 65 3d 6d 62  28 73 6e 75 6d 29 0d 07  |clude=mb(snum)..|
00000ed0  3a 06 ed 2c 0d 07 44 05  e1 0d 07 4e 05 3a 0d 07  |:..,..D....N.:..|
00000ee0  58 0b dd f2 6c 65 61 72  6e 0d 07 62 1e f1 27 22  |X...learn..b..'"|
00000ef0  49 73 20 69 74 20 61 20  22 3b 6f 62 6e 61 6d 65  |Is it a ";obname|
00000f00  24 3b 3a f2 61 73 6b 0d  07 6c 34 e7 20 41 24 3d  |$;:.ask..l4. A$=|
00000f10  22 4e 22 20 8c 20 e8 22  57 68 61 74 20 77 61 73  |"N" . ."What was|
00000f20  20 69 74 20 74 68 65 6e  22 3b 6f 62 6e 61 6d 65  | it then";obname|
00000f30  6e 24 3a f2 72 65 74 68  69 6e 6b 0d 07 76 28 f1  |n$:.rethink..v(.|
00000f40  27 22 57 61 73 20 69 74  20 61 20 22 3b 4d 43 43  |'"Was it a ";MCC|
00000f50  24 3b 22 20 22 3b 6f 62  6e 61 6d 65 24 3b 3a f2  |$;" ";obname$;:.|
00000f60  61 73 6b 0d 07 80 18 e7  20 41 24 3d 22 4e 22 20  |ask..... A$="N" |
00000f70  8c 20 f2 72 65 63 6f 6c  6f 75 72 0d 07 8a 0a f2  |. .recolour.....|
00000f80  62 6f 6e 64 73 0d 07 94  05 e1 0d 07 9e 05 3a 0d  |bonds.........:.|
00000f90  07 a8 0e dd f2 72 65 63  6f 6c 6f 75 72 0d 07 b2  |.....recolour...|
00000fa0  10 f2 63 6f 6c 6f 75 72  74 61 62 6c 65 0d 07 bc  |..colourtable...|
00000fb0  05 f5 0d 07 c6 08 41 24  3d be 0d 07 d0 19 fd 20  |......A$=...... |
00000fc0  97 28 41 24 29 3e 36 34  20 80 20 97 28 41 24 29  |.(A$)>64 . .(A$)|
00000fd0  3c 37 30 0d 07 da 11 4d  43 43 25 3d 97 28 41 24  |<70....MCC%=.(A$|
00000fe0  29 2d 36 34 0d 07 e4 13  4d 43 43 24 3d 43 4e 41  |)-64....MCC$=CNA|
00000ff0  24 28 4d 43 43 25 29 0d  07 ee 05 e1 0d 07 f8 05  |$(MCC%).........|
00001000  3a 0d 08 02 11 dd f2 63  6f 6c 6f 75 72 74 61 62  |:......colourtab|
00001010  6c 65 0d 08 0c 0a eb 20  4d 44 4f 45 0d 08 16 18  |le..... MDOE....|
00001020  2a 3c 4f 62 65 79 24 44  69 72 3e 2e 21 50 61 6c  |*<Obey$Dir>.!Pal|
00001030  65 74 74 65 0d 08 20 1f  f1 22 57 68 61 74 20 63  |ette.. .."What c|
00001040  6f 6c 6f 75 72 20 77 61  73 20 69 74 20 74 68 65  |olour was it the|
00001050  6e 3a 22 0d 08 2a 0b e3  63 3d 30 b8 31 35 0d 08  |n:"..*..c=0.15..|
00001060  34 17 fb 20 31 32 38 3a  f1 bd 28 63 2b 36 34 29  |4.. 128:..(c+64)|
00001070  3b 22 20 22 3b 0d 08 3e  0b fb 20 63 2b 31 32 38  |;" ";..>.. c+128|
00001080  0d 08 48 13 f1 3b 22 20  20 20 20 20 20 20 20 20  |..H..;"         |
00001090  20 22 3b 0d 08 52 05 ed  0d 08 5c 05 e1 0d 08 66  | ";..R....\....f|
000010a0  05 3a 0d 08 70 0d dd f2  72 65 74 68 69 6e 6b 0d  |.:..p...rethink.|
000010b0  08 7a 05 db 0d 08 84 18  f1 22 50 6c 65 61 73 65  |.z......."Please|
000010c0  20 57 61 69 74 2e 20 2e  20 2e 22 27 0d 08 8e 0a  | Wait. . ."'....|
000010d0  f2 62 6f 6e 64 73 0d 08  98 14 6f 62 6e 61 6d 65  |.bonds....obname|
000010e0  24 3d 6f 62 6e 61 6d 65  6e 24 0d 08 a2 05 f5 0d  |$=obnamen$......|
000010f0  08 ac 09 65 72 72 3d a3  0d 08 b6 1b 6f 62 6e 61  |...err=.....obna|
00001100  6d 65 24 3d 22 20 22 2b  6f 62 6e 61 6d 65 24 2b  |me$=" "+obname$+|
00001110  22 20 22 0d 08 c0 18 e3  20 63 3d 32 20 b8 20 a9  |" "..... c=2 . .|
00001120  28 6f 62 6e 61 6d 65 24  29 2d 31 0d 08 ca 53 e7  |(obname$)-1...S.|
00001130  20 28 a4 72 74 3c 39 37  29 20 80 20 28 a4 72 74  | (.rt<97) . (.rt|
00001140  3c 3e 33 32 29 20 8c 20  6f 62 6e 61 6d 65 24 3d  |<>32) . obname$=|
00001150  c0 6f 62 6e 61 6d 65 24  2c 63 2d 31 29 2b bd 28  |.obname$,c-1)+.(|
00001160  a4 72 74 2b 33 32 29 2b  c2 6f 62 6e 61 6d 65 24  |.rt+32)+.obname$|
00001170  2c a9 28 6f 62 6e 61 6d  65 24 29 2d 63 29 0d 08  |,.(obname$)-c)..|
00001180  d4 2a e7 20 28 a4 72 74  3c 39 37 20 84 20 a4 72  |.*. (.rt<97 . .r|
00001190  74 3e 31 32 32 29 20 80  20 a4 72 74 3c 3e 33 32  |t>122) . .rt<>32|
000011a0  20 8c 20 65 72 72 3d b9  0d 08 de 05 ed 0d 08 e8  | . err=.........|
000011b0  24 6f 62 6e 61 6d 65 24  3d c1 6f 62 6e 61 6d 65  |$obname$=.obname|
000011c0  24 2c 32 2c a9 28 6f 62  6e 61 6d 65 24 29 2d 32  |$,2,.(obname$)-2|
000011d0  29 0d 08 f2 14 e7 20 65  72 72 3d b9 20 8c 20 f2  |)..... err=. . .|
000011e0  72 65 61 73 6b 0d 08 fc  0b fd 20 65 72 72 3d a3  |reask..... err=.|
000011f0  0d 09 06 14 e3 20 6f 6e  6f 3d 30 20 b8 20 6e 6f  |..... ono=0 . no|
00001200  6f 62 73 25 0d 09 10 29  e7 20 6e 61 6d 65 24 28  |obs%...). name$(|
00001210  6f 6e 6f 29 3d 6f 62 6e  61 6d 65 24 20 8c 20 73  |ono)=obname$ . s|
00001220  6e 75 6d 3d 6f 6e 6f 3a  65 72 72 3d b9 0d 09 1a  |num=ono:err=....|
00001230  05 ed 0d 09 24 14 e7 20  65 72 72 3d a3 20 8c 20  |....$.. err=. . |
00001240  f2 6e 65 77 6f 62 0d 09  2e 05 e1 0d 09 38 05 3a  |.newob.......8.:|
00001250  0d 09 42 0b dd f2 72 65  61 73 6b 0d 09 4c 47 f1  |..B...reask..LG.|
00001260  27 22 4f 62 6a 65 63 74  20 6e 61 6d 65 73 20 63  |'"Object names c|
00001270  61 6e 20 6f 6e 6c 79 20  63 6f 6e 74 61 69 6e 20  |an only contain |
00001280  6c 65 74 74 65 72 73 2e  20 50 6c 65 61 73 65 20  |letters. Please |
00001290  72 65 2d 74 79 70 65 20  74 68 65 20 6e 61 6d 65  |re-type the name|
000012a0  22 27 0d 09 56 1f e8 22  57 68 61 74 20 77 61 73  |"'..V.."What was|
000012b0  20 69 74 20 74 68 65 6e  22 3b 6f 62 6e 61 6d 65  | it then";obname|
000012c0  24 0d 09 60 05 e1 0d 09  6a 05 3a 0d 09 74 0b dd  |$..`....j.:..t..|
000012d0  f2 6e 65 77 6f 62 0d 09  7e 13 6e 6f 6f 62 73 25  |.newob..~.noobs%|
000012e0  3d 6e 6f 6f 62 73 25 2b  31 0d 09 88 11 6d 62 28  |=noobs%+1....mb(|
000012f0  6e 6f 6f 62 73 25 29 3d  6d 62 0d 09 92 19 6e 61  |noobs%)=mb....na|
00001300  6d 65 24 28 6e 6f 6f 62  73 25 29 3d 6f 62 6e 61  |me$(noobs%)=obna|
00001310  6d 65 24 0d 09 9c 10 e3  20 6f 6e 6f 3d 31 20 b8  |me$..... ono=1 .|
00001320  20 6d 62 0d 09 a6 1d 6f  62 25 28 6e 6f 6f 62 73  | mb....ob%(noobs|
00001330  25 2c 6f 6e 6f 29 3d a4  69 71 72 28 6f 6e 6f 29  |%,ono)=.iqr(ono)|
00001340  0d 09 b0 25 63 6f 6f 62  73 25 28 6e 6f 6f 62 73  |...%coobs%(noobs|
00001350  25 2c 6f 6e 6f 29 3d 63  6f 6c 73 28 63 6f 6c 28  |%,ono)=cols(col(|
00001360  6f 6e 6f 29 29 0d 09 ba  17 70 72 6f 62 25 28 6e  |ono))....prob%(n|
00001370  6f 6f 62 73 25 2c 6f 6e  6f 29 3d 32 0d 09 c4 05  |oobs%,ono)=2....|
00001380  ed 0d 09 ce 0f 73 6e 75  6d 3d 6e 6f 6f 62 73 25  |.....snum=noobs%|
00001390  0d 09 d8 05 e1 0d 09 e2  05 3a 0d 09 ec 09 dd f2  |.........:......|
000013a0  61 73 6b 0d 09 f6 10 f1  3b 22 20 28 59 2f 4e 29  |ask.....;" (Y/N)|
000013b0  20 22 3b 0d 0a 00 05 f5  0d 0a 0a 08 41 24 3d be  | ";.........A$=.|
000013c0  0d 0a 14 14 fd 20 a7 22  59 79 4e 6e 22 2c 41 24  |..... ."YyNn",A$|
000013d0  29 3c 3e 30 0d 0a 1e 33  e7 20 41 24 3d 22 59 22  |)<>0...3. A$="Y"|
000013e0  20 84 20 41 24 3d 22 79  22 8c 20 f1 22 59 65 73  | . A$="y". ."Yes|
000013f0  22 3a 41 24 3d 22 59 22  20 8b 20 f1 22 4e 6f 22  |":A$="Y" . ."No"|
00001400  3a 41 24 3d 22 4e 22 0d  0a 28 05 e1 0d 0a 32 05  |:A$="N"..(....2.|
00001410  3a 0d 0a 3c 0c dd f2 67  65 74 72 69 64 0d 0a 46  |:..<...getrid..F|
00001420  17 6d 62 28 73 6e 75 6d  29 3d 6d 62 28 73 6e 75  |.mb(snum)=mb(snu|
00001430  6d 29 2d 31 0d 0a 50 1c  e3 20 6f 62 6e 6f 3d 63  |m)-1..P.. obno=c|
00001440  63 6c 75 64 65 20 b8 20  6d 62 28 73 6e 75 6d 29  |clude . mb(snum)|
00001450  0d 0a 5a 23 6f 62 25 28  6f 62 6e 6f 2c 73 6e 75  |..Z#ob%(obno,snu|
00001460  6d 29 3d 6f 62 25 28 6f  62 6e 6f 2b 31 2c 73 6e  |m)=ob%(obno+1,sn|
00001470  75 6d 29 0d 0a 64 29 63  6f 6f 62 73 25 28 6f 62  |um)..d)coobs%(ob|
00001480  6e 6f 2c 73 6e 75 6d 29  3d 63 6f 6f 62 73 25 28  |no,snum)=coobs%(|
00001490  6f 62 6e 6f 2b 31 2c 73  6e 75 6d 29 0d 0a 6e 27  |obno+1,snum)..n'|
000014a0  70 72 6f 62 25 28 6f 62  6e 6f 2c 73 6e 75 6d 29  |prob%(obno,snum)|
000014b0  3d 70 72 6f 62 25 28 6f  62 6e 6f 2b 31 2c 73 6e  |=prob%(obno+1,sn|
000014c0  75 6d 29 0d 0a 78 05 ed  0d 0a 82 05 e1 0d 0a 8c  |um)..x..........|
000014d0  05 3a 0d 0a 96 0b dd f2  73 74 6f 72 65 0d 0a a0  |.:......store...|
000014e0  0a eb 20 4d 44 4f 45 0d  0a aa 18 2a 3c 4f 62 65  |.. MDOE....*<Obe|
000014f0  79 24 44 69 72 3e 2e 21  50 61 6c 6c 65 74 65 0d  |y$Dir>.!Pallete.|
00001500  0a b4 14 ff 22 53 43 48  4f 4f 53 45 20 22 2b 53  |...."SCHOOSE "+S|
00001510  50 52 24 0d 0a be 0d f0  20 26 45 44 2c 30 2c 30  |PR$..... &ED,0,0|
00001520  0d 0a c8 35 f1 22 44 6f  20 79 6f 75 20 77 61 6e  |...5."Do you wan|
00001530  74 20 6d 65 20 74 6f 20  6c 65 61 72 6e 20 66 72  |t me to learn fr|
00001540  6f 6d 20 74 68 69 73 20  73 70 72 69 74 65 22 3b  |om this sprite";|
00001550  3a f2 61 73 6b 0d 0a d2  10 e7 20 41 24 3d 22 4e  |:.ask..... A$="N|
00001560  22 20 8c 20 e1 0d 0a dc  18 f1 22 50 6c 65 61 73  |" . ......"Pleas|
00001570  65 20 77 61 69 74 2e 20  2e 20 2e 22 3b 0d 0a e6  |e wait. . .";...|
00001580  0d f2 73 61 76 65 64 61  74 61 0d 0a f0 05 e1 0d  |..savedata......|
00001590  0a fa 05 3a 0d 0b 04 0e  dd a4 69 71 72 28 6f 6e  |...:......iqr(on|
000015a0  6f 29 0d 0b 0e 09 64 76  61 3d 30 0d 0b 18 12 e3  |o)....dva=0.....|
000015b0  20 78 74 3d 30 20 b8 20  78 61 78 2d 31 0d 0b 22  | xt=0 . xax-1.."|
000015c0  34 e7 20 62 6c 6f 63 6b  28 6f 6e 6f 2c 78 74 29  |4. block(ono,xt)|
000015d0  3e 62 6d 69 6e 28 6f 6e  6f 2c 78 74 29 20 8c 20  |>bmin(ono,xt) . |
000015e0  f2 61 64 64 69 71 72 3a  64 76 61 3d 64 76 61 2b  |.addiqr:dva=dva+|
000015f0  31 0d 0b 2c 05 ed 0d 0b  36 24 3d 69 77 25 28 a8  |1..,....6$=iw%(.|
00001600  28 64 76 61 2a 2e 37 35  29 29 2f 69 77 25 28 a8  |(dva*.75))/iw%(.|
00001610  28 64 76 61 2a 2e 32 35  29 29 0d 0b 40 05 3a 0d  |(dva*.25))..@.:.|
00001620  0b 4a 0c dd f2 61 64 64  69 71 72 0d 0b 54 10 e3  |.J...addiqr..T..|
00001630  20 78 73 3d 30 20 b8 20  64 76 61 0d 0b 5e 1c e7  | xs=0 . dva..^..|
00001640  20 a4 64 69 66 3e 3d 69  77 25 28 78 73 29 20 8c  | .dif>=iw%(xs) .|
00001650  20 70 6f 73 3d 78 73 0d  0b 68 05 ed 0d 0b 72 13  | pos=xs..h....r.|
00001660  e3 20 73 3d 70 6f 73 2b  31 20 b8 20 64 76 61 0d  |. s=pos+1 . dva.|
00001670  0b 7c 15 69 77 25 28 78  73 2d 31 29 3d 69 77 25  |.|.iw%(xs-1)=iw%|
00001680  28 78 73 29 0d 0b 86 05  ed 0d 0b 90 11 69 77 25  |(xs).........iw%|
00001690  28 70 6f 73 29 3d a4 64  69 66 0d 0b 9a 05 e1 0d  |(pos)=.dif......|
000016a0  0b a4 05 3a 0d 0b ae 24  dd a4 64 69 66 3d 62 6c  |...:...$..dif=bl|
000016b0  6f 63 6b 28 6f 6e 6f 2c  78 74 29 2d 62 6d 69 6e  |ock(ono,xt)-bmin|
000016c0  28 6f 6e 6f 2c 78 74 29  0d 0b b8 05 3a 0d 0b c2  |(ono,xt)....:...|
000016d0  09 dd a4 70 75 70 0d 0b  cc 08 78 73 3d 30 0d 0b  |...pup....xs=0..|
000016e0  d6 10 e3 20 6f 6e 6f 3d  31 20 b8 20 6d 62 0d 0b  |... ono=1 . mb..|
000016f0  e0 11 69 71 72 3d a4 69  71 72 28 6f 6e 6f 29 0d  |..iqr=.iqr(ono).|
00001700  0b ea 3b e7 20 69 71 72  3c 3d 6f 62 25 28 73 6e  |..;. iqr<=ob%(sn|
00001710  75 6d 2c 63 63 6c 75 64  65 29 20 8c 20 78 74 3d  |um,cclude) . xt=|
00001720  28 69 71 72 2f 6f 62 25  28 73 6e 75 6d 2c 63 63  |(iqr/ob%(snum,cc|
00001730  6c 75 64 65 29 29 2a 31  2e 35 0d 0b f4 3a e7 20  |lude))*1.5...:. |
00001740  69 71 72 3e 6f 62 25 28  73 6e 75 6d 2c 63 63 6c  |iqr>ob%(snum,ccl|
00001750  75 64 65 29 20 8c 20 78  74 3d 28 6f 62 25 28 73  |ude) . xt=(ob%(s|
00001760  6e 75 6d 2c 63 63 6c 75  64 65 29 2f 69 71 72 29  |num,cclude)/iqr)|
00001770  2a 31 2e 35 0d 0b fe 38  e7 20 28 32 5e 28 63 6f  |*1.5...8. (2^(co|
00001780  6c 28 6f 6e 6f 29 2b 31  29 20 80 20 63 6f 6f 62  |l(ono)+1) . coob|
00001790  73 25 28 73 6e 75 6d 2c  63 63 6c 75 64 65 29 29  |s%(snum,cclude))|
000017a0  20 8c 20 78 74 3d 78 74  2b 2e 32 35 0d 0c 08 1f  | . xt=xt+.25....|
000017b0  e7 20 63 6f 6c 28 6f 6e  6f 29 3d 4d 43 43 25 20  |. col(ono)=MCC% |
000017c0  8c 20 78 74 3d 78 74 2b  2e 32 35 0d 0c 12 13 e7  |. xt=xt+.25.....|
000017d0  20 78 74 3e 78 73 20 8c  20 78 73 3d 78 74 0d 0c  | xt>xs . xs=xt..|
000017e0  1c 05 ed 0d 0c 26 09 3d  78 73 2d 31 0d 0c 30 05  |.....&.=xs-1..0.|
000017f0  3a 0d 0c 3a 19 dd a4 72  74 3d 97 28 c1 6f 62 6e  |:..:...rt=.(.obn|
00001800  61 6d 65 24 2c 63 2c 31  29 29 0d 0c 44 05 3a 0d  |ame$,c,1))..D.:.|
00001810  0c 4e 2f dd a4 70 65 72  61 3d a8 28 28 31 30 30  |.N/..pera=.((100|
00001820  2f 28 78 61 78 2a 79 61  78 29 29 2a 28 28 58 2d  |/(xax*yax))*((X-|
00001830  31 29 2b 28 59 2d 31 29  2a 78 61 78 29 29 0d 0c  |1)+(Y-1)*xax))..|
00001840  58 05 3a 0d 0c 62 53 dc  20 22 77 68 69 74 65 22  |X.:..bS. "white"|
00001850  2c 33 2c 22 6c 69 67 68  74 20 67 72 65 79 22 2c  |,3,"light grey",|
00001860  37 2c 22 6d 65 64 69 75  6d 20 67 72 65 79 22 2c  |7,"medium grey",|
00001870  31 34 2c 22 64 61 72 6b  20 67 72 65 79 22 2c 32  |14,"dark grey",2|
00001880  38 2c 22 76 65 72 79 20  64 61 72 6b 20 67 72 65  |8,"very dark gre|
00001890  79 22 2c 32 34 30 0d 0c  6c 3d dc 20 22 65 78 74  |y",240..l=. "ext|
000018a0  72 65 6d 65 6c 79 20 64  61 72 6b 20 67 72 65 79  |remely dark grey|
000018b0  22 2c 32 34 30 2c 22 6c  69 67 68 74 20 62 6c 61  |",240,"light bla|
000018c0  63 6b 22 2c 32 34 30 2c  22 62 6c 61 63 6b 22 2c  |ck",240,"black",|
000018d0  32 34 30 0d 0c 76 3d dc  20 22 64 61 72 6b 20 62  |240..v=. "dark b|
000018e0  6c 75 65 22 2c 38 34 34  38 2c 22 79 65 6c 6c 6f  |lue",8448,"yello|
000018f0  77 22 2c 34 36 30 38 2c  22 67 72 65 65 6e 22 2c  |w",4608,"green",|
00001900  31 30 32 34 2c 22 72 65  64 22 2c 31 38 34 33 32  |1024,"red",18432|
00001910  0d 0c 80 2b dc 20 22 6c  69 67 68 74 20 79 65 6c  |...+. "light yel|
00001920  6c 6f 77 22 2c 34 36 30  38 2c 22 64 61 72 6b 20  |low",4608,"dark |
00001930  67 72 65 65 6e 22 2c 38  34 34 38 0d 0c 8a 27 dc  |green",8448...'.|
00001940  20 22 6f 72 61 6e 67 65  22 2c 31 36 33 38 34 2c  | "orange",16384,|
00001950  22 6c 69 67 68 74 20 62  6c 75 65 22 2c 33 32 37  |"light blue",327|
00001960  36 38 0d ff                                       |68..|
00001964