� ><FEMS$dir>.FEMS2p20
)� Finite Element Materials Simulation
/� with development version of OO3D routines
'� version 2.1: restyling of objects
� 2.11: cylinder definition
%� 2.12: nearest neigbours bonding
%� 2.13: generalised frame storage
 � 2.14: backgrounds built in
	,� 2.15: backgrounds Z-mixed with objects

.� 2.16: mixed backgrounds, replay, preview
� 2.17: 2 colour RLE
!� 2.17b: flat shading removed

'� 2.18: read scene definition files
>� 2.19: cuboid definition, compound objects (cuboids only)
"� 2.20: any object in compound
C� 2.21: PROCoutput_facets, PROCframe_actions, anims inside sims

	ch%=0
anim%=�
� � �error

� 0
ș "OS_GetEnv" � env$
i%=�env$,"-file ")
� i%=0 �
 file$="^.sims.ChairStair"
�
 file$=�env$,i%+6)
 i%=�file$," ")
 � i% � file$=�file$,i%-1)
�
 .ș "OS_File",5,file$ � ot%,,type%,,length%
!1� ot%<>1 � � 1,"File """+file$+""" not found"
"type%=(type%>>8) � &FFF
#
$Ȏ type% �
% � &FFF:
&  �init
'  �read_script(file$)
(  �init2
)  �create_frames
*
  �saveit
+ � &3C7:
,  �load(file$,length%)
-  �init_replay
. :� 1,"File wrong type"
/�
0�display_frames
1�
2:
3� �init
4
�init3OOD
5� scrap% 256*4
6� sin 2048*4:cos=sin+256*4
7�'"Filling sine array...";
82� A%=0 � 1023:sin!(A%*4)=&400*�(A%*�/512)+.5:�
90� A%=0 � 1023:sin!((A%+1024)*4)=sin!(A%*4):�
:� per% &801*4
;%�'"Filling perspective array...";
<0� N%=0 � &800:per%!(N%*4)=&600/(1+N%/&400):�
=� ptp%(3),szp%(3)
>maxobjs%=8
?world%=�create(7,maxobjs%)
@-� bgdef%(maxobjs%,6),pulldef%(maxobjs%,5)
Ainch%=&B400
B�assem_nebo
C�
D:
E� �defaults
Fxres%=320:yres%=256
G
ren%=2
H
fsp%=1
I
rstyle%=0
Jaim%=600
KVA%=700:VB%=912
Lstostyle%=0
M$grav_x%=0:grav_y%=0:grav_z%=-600
N
dampsh%=2
Omode%=4
P�
Q:
R� �read_script(file$)
S�
Tch%=�(file$)
U.� ch%=0 � � 1,"Could not open script file"
VP� �line<>"fems2" � �rse("Script file invalid: did not start with ""FEMS2""")
W
�defaults
X'solids%=0:backgrounds%=0:objects%=0
Y�
Z
 c$=�line
[ Ȏ c$ �
\6  � "rendering":�get_openbrack(c$):�read_rendering
]>  � "solid":�get_openbrack(c$):solids%+=1:�read_object(-1)
^G  � "background":�get_openbrack(c$):backgrounds%+=1:�read_object(0)
_'  � "frame_aim":aim%=�get_num(c$,1)
`&  � "time_div":fsp%=�get_num(c$,1)
aV  � "gravity":grav_x%=�get_num(c$,3):grav_y%=�get_num(c$,3):grav_z%=�get_num(c$,3)
b
  � ""
c   �not_rec
d �
e� �#ch%
f�#ch%:ch%=0
g)� solids%<1 � � 1,"No solids defined"
h3� backgrounds%<1 � � 1,"No backgrounds defined"
i�
j:
k� �read_rendering
l�
m
 c$=�line
n Ȏ c$ �
oH  � "type":rstyle%=�select(c$,�line,"all_dots,wireframe,dots,lines")
p>  � "resolution":xres%=�get_num(c$,2):yres%=�get_num(c$,2)
q8  � "background":ren%=2*�select(c$,�line,"back,mix")
r1  � "view":VB%=(�get_num(c$,2)*128/45) � &3FF
s-   VA%=(768-�get_num(c$,2)*128/45) � &3FF
t  � "}",""
u   �not_rec
v �
w� �#ch% � c$="}"
xmode%=2
yȎ rstyle% �
z � 0,2:stostyle%=0
{ � 1,3:stostyle%=0
| � 4:stostyle%=-1:mode%=16
}�
~"mode%=�mode(xres%,yres%,mode%)
3� mode%<0 �rse("No suitable screen mode found")
��
�:
�� �read_object(sol%)
�� otype%,c$,Q%,W%,i%
�otype%=-2:thing%=0
�#� sol%=0 Q%=backgrounds% � Q%=0
�W%=objects%
� com_stage%=0:faco%=0:poco%=0
�pulldef%(W%,0)=-1
��
�
 c$=�line
� Ȏ c$ �
�:  � "create":�read_create(sol%,Q%):bgdef%(Q%,0)=otype%
�   � "translate":�need_create
�<   x%=�get_num(c$,3):y%=�get_num(c$,3):z%=�get_num(c$,3)
�,   �translate(thing%,co0%,co0%,x%,y%,z%)
�6   bgdef%(Q%,1)=x%:bgdef%(Q%,2)=y%:bgdef%(Q%,3)=z%
�F  � "rotate":� sol%=0 �rse("background objects cannot be rotated")
�m   �need_create:AF=128/45:�rotate(thing%,co0%,co0%,�get_num(c$,3)*AF,�get_num(c$,3)*AF,�get_num(c$,3)*AF)
�)  � "nearbonds":�read_nearbonds(sol%)
�(  � "damping":dampsh%=�get_num(c$,1)
�^  � "velocity":�need_create:� sol%=0 �rse("background objects cannot be given a velocity")
�I   �set_velocity(thing%,�get_num(c$,3),�get_num(c$,3),�get_num(c$,3))
�Z  � "scale":�need_create:� sol%=0 �rse("scale not implemented for background objects")
�I   �scale_object(thing%,�get_num(c$,3),�get_num(c$,3),�get_num(c$,3))
�C  � "pull":� sol%=0 �rse("background objects cannot be pulled")
�2   � i%=0 � 5:pulldef%(W%,i%)=�get_num(c$,6):�
�I   � pulldef%(W%,2)<=0 � �rse("the pull point step must be positive")
�  � "}",""
�   �not_rec
� �
�� �#ch% � c$="}"
�9� poco%>thing%!nop% � �rse("too many points created")
�thing%!nop%=poco%
�9� faco%>thing%!nof% � �rse("too many facets created")
�thing%!nof%=faco%
��
�:
�� �read_nearbonds(sol%)
�H� sol%=0 � �rse("nearbonds is not applicable to background objects")
��get_openbrack(c$)
��need_create
�� c$,lambda%,R
�lambda%=30:R=2.5
��
�
 c$=�line
� Ȏ c$ �
�-  � "spring_const":lambda%=�get_num(c$,1)
�   � "range":R=�get_num(c$,1)
�  � "}",""
�   �not_rec
� �
�� �#ch% � c$="}"
�+� c%,ls%,ms%,E%,F%,C%,A%,B%,G%,H%,s%,D%
�ls%=szp%(0):ms%=R*ls%
�c%=lambda%*fsp%*ls%
�!s%=0:ȕ (ms%>>s%)>255:s%+=1:�
�%ms%=ms%>>s%:c%=c%>>s%:ls%=ls%>>s%
�!scrap%=1<<s%
�?B%=�(c%/ls%)<<24:� C%=1 � ls%:scrap%!(C%*4)=(C%<<s%) � B%:�
�>� C%=ls%+1 � ms%:scrap%!(C%*4)=(C%<<s%) � (�(c%/C%)<<24):�
�!neboblock=scrap%
�neboblock!4=ms%*ms%
�neboblock!12=s%
�neboblock!16=(.5*ls%)^2
�!H%=thing%!co0%:E%=thing%!pts%
�B%=�(nearcount)
�thing%!nob%=B%
�thing%!bnd%=�create(6,B%)
�neboblock!8=thing%!bnd%
� D%=thing%!bnd%+8*thing%!nob%
�� nearbond
�B%=neboblock!8
�� B%>D% � �
�"thing%!nob%=(B%-thing%!bnd%)/8
��
�:
�� �read_create(sol%,Q%)
��get_openbrack(c$)
�7� �line<>"type" � �rse("create needs a type first")
�� c$,o$,offx%,offy%,offz%
�offx%=0:offy%=0:offz%=0
�o$=�line
�Kotype%=�select(c$,o$,"compound,sheet,cube,tube,sphere,stairs,cuboid")-1
�Ȏ otype% �
� � 0,1,3:nptp%=1:nszp%=1
� � 2,4,5:nptp%=3:nszp%=3
�" � -1:�read_compound:otype%=-1
��
�� otype%<0 � �
��
�
 c$=�line
� Ȏ c$ �
�D  � "points":� i%=1 � nptp%:ptp%(i%)=�get_num(o$+" "+c$,nptp%):�
�[  � "size":� i%=1 � nszp%:szp%(i%)=�get_num(o$+" "+c$,nszp%):bgdef%(Q%,i%+3)=szp%(i%):�
�O  � "offset":offx%=�get_num(c$,3):offy%=�get_num(c$,3):offz%=�get_num(c$,3)
�  � "}",""
�   �not_rec
� �
�� �#ch% � c$="}"
�� �("FNcreate_"+o$)
��
�:
�� �read_compound
�� P%,c$
�<� com_stage%>0 �rse("Compound objects cannot be nested")
�com_nop%=0:com_nof%=0
�P%=�#ch%
�� com_stage%=1 � 2
�4 �'"** compound object - pass ";com_stage%;" **"
�
 �#ch%=P%
�l � com_stage%=2 � com_stage%=0:com_thing%=�create_object(com_nop%,com_nof%):com_stage%=2:faco%=0:poco%=0
� �
�  c$=�line
�
  Ȏ c$ �
�"   � "part":�read_create(-1,0)
�
   � "}":
�+   :�rse("Expected ""part"" or ""}""")
�  �
�
 � c$="}"
��
�com_stage%=0
�#�set_velocity(com_thing%,0,0,0)
��
�:
�� �need_create
�N� otype%=-2 � �rse("You need to create the object before you can do this")
��

:


$� �set_velocity(thing%,x%,y%,z%)

� com_stage%<>0 � �

� P%,A%

P%=thing%!vel%:� P%=0 �

� A%=0 � thing%!nop%-1

$ P%!0=-z%:P%!4=x%:P%!8=y%:P%+=12

�

�

	:


!� �scale_object(thing%,X,Y,Z)

� P%,A%

$� sol% szp%(0)=szp%(0)*(X+Y+Z)/3


P%=thing%!co0%:� P%=0 �

� A%=0 � thing%!nop%-1

/ P%!0=P%!0*Z:P%!4=P%!4*X:P%!8=P%!8*Y:P%+=12

�

�

:

� �create_sheet

� co%,A%,N%

%N%=ptp%(1):szp%(0)=szp%(1)/(N%-1)

*thing%=�create_object(N%^2,2*(N%-1)^2)

� thing%=0 � =0

offx%-=.5*szp%(1)

offy%-=.5*szp%(1)

co%=thing%!co0%+poco%*12

� A%=0 � thing%!nop%-1

 co%!0=-offz%

" co%!4=szp%(0)*(A% � N%)+offx%

" co%!8=szp%(0)*(A% � N%)+offy%

 co%+=12

 �

!G� �surface(thing%,thing%!fac%+faco%*elsiz%(3),poco%,1,N%,N%,N%,0,0)

"poco%+=thing%!nop%

#�set_velocity(thing%,0,0,0)

$=0

%:

&� �create_sphere

'"� co%,A%,C%,R%,W%,N%,X%,B,C,AS

(N%=ptp%(1):X%=N%*2

).thing%=�create_object(N%*(N%+1)*2,4*N%*N%)

*� thing%=0 � =0

+$R%=szp%(1):szp%(0)=.5*szp%(1)/N%

,AS=�/N%

-co%=thing%!co0%+poco%*12

.� A%=0 � (N%+1)*X%-1

/ B=(A% � X%)*AS

0 C=(A% � X%)*AS

1 co%!0=R%*�(B)-offz%

2  W%=R%*�(B):� W%=0 W%=R%*.05

3 co%!4=W%*�(C)+offx%

4 co%!8=W%*�(C)+offy%

5 co%+=12

6�

7I� �surface(thing%,thing%!fac%+faco%*elsiz%(3),poco%,1,X%,X%,N%+1,1,1)

8poco%+=(N%+1)*X%

9�set_velocity(thing%,0,0,0)

:=0

;:

<� �create_cube

=#ptp%(2)=ptp%(1):ptp%(3)=ptp%(1)

>#szp%(2)=szp%(1):szp%(3)=szp%(1)

?I� com_stage%<>1 offx%-=.5*szp%(1):offy%-=.5*szp%(1):offz%-=.5*szp%(1)

@=�create_cuboid

A:

B� �create_tube

C&� A%,C%,D%,co%,A,R%,N1%,N2%,N3%,AS

D'N1%=ptp%(1):N2%=ptp%(2):N3%=ptp%(3)

E8thing%=�create_object(N1%*N2%*N3%,4*N2%*(N1%+N3%-2))

F� thing%=0 � =0

Goffz%-=szp%(1)/2

Hszp%(1)=szp%(1)/(N1%-1)

Iszp%(3)=szp%(3)/(N3%-1)

JAS=2*�/N2%

K*szp%(0)=(szp%(1)+szp%(2)*AS+szp%(3))/3

Lco%=thing%!co0%+poco%*12

M� A%=0 � thing%!pts%-1

N A=(A% � N2%)*AS

O5 R%=szp%(2)+szp%(3)*((A% � (N2%*N1%))-(N3%-1)*.5)

P, co%!0=-szp%(1)*((A% � N2%) � N1%)-offz%

Q co%!4=R%*�(A)+offx%

R co%!8=R%*�(A)+offy%

S co%+=12

T�

ULC%=�surface(thing%,thing%!fac%+faco%*elsiz%(3),poco%,1,N2%,N2%,N1%,-1,1)

VBC%=�surface(thing%,C%,poco%+N2%*N1%*(N3%-1),1,N2%,N2%,N1%,1,1)

W6C%=�surface(thing%,C%,poco%,1,N2%*N1%,N2%,N3%,1,1)

XCC%=�surface(thing%,C%,poco%+N2%*(N1%-1),1,N2%*N1%,N2%,N3%,-1,1)

Ypoco%+=thing%!nop%

Z�set_velocity(thing%,0,0,0)

[=0

\:

]� �create_stairs

^!� co%,A%,Y%,X%,Z%,N1%,N2%,N3%

_'N1%=ptp%(1):N2%=ptp%(2):N3%=ptp%(3)

`<thing%=�create_object(N1%*N2%*N3%,2*(N1%-1)*(N2%*N3%-1))

a� thing%=0 � =0

bszp%(1)=szp%(1)/(N1%-1)

cszp%(3)=szp%(3)/(N3%-1)

dco%=thing%!co0%+poco%*12

eoffx%=-.5*(N1%-1)*szp%(1)

f� A%=0 � N1%*N2%*N3%-1

g X%=A% � N1%:Z%=A% � N1%

h Y%=Z% � N3%:Z%=Z% � N3%

i co%!0=-Z%*szp%(2)-offz%

j co%!4=X%*szp%(1)+offx%

k( co%!8=(Y%+Z%*(N3%-1))*szp%(3)+offy%

l co%+=12

m�

nOY%=�surface(thing%,thing%!fac%+faco%*elsiz%(3),poco%,1,N1%,N1%,N2%*N3%,0,0)

opoco%+=thing%!nop%

p�set_velocity(thing%,0,0,0)

q=0

r:

s� �create_cuboid

t9� X%,Y%,Z%,A%,B%,C%,D%,E%,co%,N1%,N2%,N3%,S1%,S2%,S3%

u'N1%=ptp%(1):N2%=ptp%(2):N3%=ptp%(3)

v*N1%-=(N1%=0):N2%-=(N2%=0):N3%-=(N3%=0)

wZthing%=�create_object(N1%*N2%*N3%,4*((N1%-1)*(N2%-1)+(N2%-1)*(N3%-1)+(N3%-1)*(N1%-1)))

x� thing%=0 � =0

y?S1%=szp%(1)/(N1%-1):S2%=szp%(2)/(N2%-1):S3%=szp%(3)/(N3%-1)

zszp%(0)=(S1%+S2%+S3%)/3

{co%=thing%!co0%+poco%*12

|� A%=0 � thing%!nop%-1

}6 X%=A% � N1%:Y%=(A% � N1%) � N2%:Z%=A% � (N1%*N2%)

~ co%!0=-(S3%*Z%+offz%)

 co%!4=S1%*X%+offx%

� co%!8=S2%*Y%+offy%

� co%+=12

��

�A%=poco%+N1%*N2%*(N3%-1)

�"X%=thing%!fac%+faco%*elsiz%(3)

�3C%=�surface(thing%,X%,poco%,1,N1%,N1%,N2%,-1,0)

�3C%=�surface(thing%,C%,A%   ,1,N1%,N1%,N2%, 1,0)

�A%=poco%+N1%*(N2%-1)

�7C%=�surface(thing%,C%,poco%,N1%*N2%,1,N3%,N1%,-1,0)

�7C%=�surface(thing%,C%,A%   ,N1%*N2%,1,N3%,N1%, 1,0)

�A%=poco%+N1%-1

�9C%=�surface(thing%,C%,poco%,N1%,N1%*N2%,N2%,N3%,-1,0)

�9C%=�surface(thing%,C%,A%   ,N1%,N1%*N2%,N2%,N3%, 1,0)

�poco%+=N1%*N2%*N3%

��set_velocity(thing%,0,0,0)

�=0

�:

� � �create_object(pts%,facs%)

�6� com_stage%=1 � com_nop%+=pts%:com_nof%+=facs%:=0

�� com_stage%=2 =com_thing%

�=� objects%=maxobjs% � �rse("Max. no. of objects reached")

�$thing%=world%+objects%*elsiz%(7)

�objects%+=1

�.� sol% � flags%=%1011111 � flags%=%1010111

�*�initthing(thing%,pts%,facs%,0,flags%)

�=thing%

�:

�� �select(c$,o$,l$)

�p%=�","+l$+",",","+o$+",")

�-� p%=0 � �rse(c$+" should be one of "+l$)

�l$=�l$,p%):p%=0:r%=-1

�#�:p%=�l$,",",p%+1):r%+=1:� p%=0

�=r%

�:

�� �get_openbrack(c$)

�9� �line<>"{" � �rse("open backet expected after "+c$)

��

�:

�� �get_num(c$,n%)

�� A$,P%,M,B%:A$=�line

�Ȏ �A$,2) �

� � "in":M=&B400

� � "ft":M=12*&B400

� � "cm":M=18142

� � "mm":M=1814.2

�
  M=1

��

�� M<>1 A$=�A$,�A$-2)

�� P%=1 � �(A$)

� B%=�(�A$,P%,1))

�) � B%<43 � B%>57 B%=47 � B%=44 � M=-1

��

�E� M=-1 � n%=1 � �rse("A numeric arguament is expected after "+c$)

�C� M=-1 � �rse(�n%+" numeric arguaments are expected after "+c$)

�=�(A$)*M

�:

�� �rse(A$)

��#ch%:ch%=0

��'A$

��

�:

�J� �not_rec:�rse("command """+c$+""" not recognised in this context"):�

�:

�� �line

�� A$,B%,C%,R%

�R%=0:A$="":B%=0

��

�% C%=B%:� �#ch% � B%=-1 � B%=�#ch%

�7 � B%>31 � � B% � � (B%=13 � B%=10) � C%<>23-B% � �

� � B%>64 � B%<91 � B%+=32

�/ � R%=0 � B%>33 � B%<>58 � B%<>44 � A$+=�B%

� � B%=42 � C%=47 � R%+=1

�\ � B%=47 � C%=42 � R%-=1:A$=�A$,�A$-2):� R%<0 � �rse("More remarks closed than opened!")

�6� B%<0 � ((B%<33 � B%=58 � B%=44) � R%=0 � A$<>"")

�=A$

�:

�� �init2

�%tsh%=�(fsp%)/�(2)+.5:fsp%=1<<tsh%

�grav_x%=grav_x%>>(tsh%*2)

�grav_y%=grav_y%>>(tsh%*2)

�grav_z%=grav_z%>>(tsh%*2)

�dampsh%+=tsh%

�
�assem

� �assemstore(mode%,stostyle%)

�

�'�'"Creating pointers to facets...";

�
totnof%=0

�� i%=0 � objects%-1

� thing%=world%+i%*elsiz%(7)

� totnof%+=thing%!nof%

��

�"facpt%=�create(4,totnof%):C%=0

�� i%=0 � objects%-1

� thing%=world%+i%*elsiz%(7)

�9 C%=�init_facpoint(thing%!fac%,facpt%,thing%!nof%,C%)

��

�

�!�'"Making animation area...";

�� E% -1

�%storend%=(�(basic_stack)-E%)-4000

�� store% storend%

�storend%=store%+storend%

�store%+=16

�!storend=storend%-1

�

�� timblk% 8,stri% 256

��init_screen

��

�:

�� �init_screen

�� Iblock% 16

�� mode% � 128

�=� �<>mode% � � 1,"Could not obtain requested screen mode"

��

�� �ModeVar(3),255,255,255

�
*FX 112 1

��

�
*FX 112 2

��

�
*FX 113 1

�+!Iblock%=149:Iblock%!4=148:Iblock%!8=-1

�,ș "OS_ReadVduVariables",Iblock%,scrpos1

�!scrpos=!scrpos2

�
*fx 113 2

��

�:

�� �create_frames

�store%!-16=216
"store%!-12=(xres%<<16) � yres%

store%!-8=0
store%!-4=stostyle%+1
startime%=�
� i%=0 � objects%-1
. �rotnpersp(world%+i%*elsiz%(7),VA%,VB%,0)
�
ȗ � 1250,970
�:�render(ren%,rstyle%)
	�:�render(1,rstyle%)

=!storepos=store%:�storeframe(stostyle%):store1%=!storepos
B� store1%=0 � � 1,"Not enough space to store background frame"


quit%=�
gentime%=0
�
 startime%=�
 � j%=1 � fsp%
  � i%=0 � objects%-1
$   �move(i%,world%+i%*elsiz%(7))
  �
 �
 movetime%=�
 � i%=0 � objects%-1
/  �rotnpersp(world%+i%*elsiz%(7),VA%,VB%,0)
 �
 �
 � ren%=0 C%=store%:� show
 �render(ren%,rstyle%)
 C%=store%:� show
 �storeframe(stostyle%)
 C%=store%:� show
  anim%=�
!" �frame_actions(!(store%-8)-1)
"$ nk%=0:�:k%=nk%:nk%=�(0):� nk%<0
# k%+=32*(k%>97 � k%<123)
$ � k%=80 � �preview
% � k%=81 � quit%=�
&� quit%
'�
(�"You can let go now"
)� � � �(-17)
*� 11:� �(20)
+*fx 21 0
,|ș "OS_PrettyPrint",�13+"From now on you can press Escape and type PROCsave(""filename"") to save the animation."+�13+�0
-�
.:
/� �frame_actions(frame%)
0<� IF frame%=30 THEN PROCoutput_facets("$.Temp.facets30")
1�status(frame%)
2� frame%=aim% �
3 � "Paused...":� 7
4
 *fx 21 0
5 � �
6 � 11:� �(10)
7�
8
�     
9:
:� �output_facets(f$)
;� cp%,fp%,j%,ch%,T%
<
ch%=�(f$)
=� i%=0 � objects%-1
> thing%=world%+elsiz%(7)*i%
? cp%=thing%!co0%
@ fp%=thing%!fac%
A T%=1:�#ch%,T%
B �#ch%,thing%!nof%
C � j%=0 � thing%!nof%-1
D*  T%=cp%+12*fp%!0:�#ch%,T%!4,T%!8,-!T%
E*  T%=cp%+12*fp%!4:�#ch%,T%!4,T%!8,-!T%
F*  T%=cp%+12*fp%!8:�#ch%,T%!4,T%!8,-!T%
G  fp%+=elsiz%(3)
H �
I�
J	�#ch%
K�
L:
M� �preview
N
*FX 112 1
O�
P
*FX 113 1
Qbank%=1
R�
S
 �show
T �pause(100)
U� � �(-56)
V
*FX 112 2
W�
X
*FX 113 2
Y!scrpos=!scrpos2
Z*fx 21 0
[�
\:
]� �pause(T%)
^T%=T%+�
_� � �>T%
`�
a:
b� �display_frames
c
*FX 112 1
d�
e
*FX 113 1
f!scrpos=!scrpos2
gC%=store%:store1%=�(show)
hbank%=1
i	�show
j�
k *FX 15
l	 G%=�
m � G%=32 �
n  �
o   �show
p
   *FX 15
q   G%=�(100)
r
  � G%>-1
s �
t  �show
u �
v� �
w�
x:
y� �show
z� C%,A%
{A%=store1%
|� F%=1 � !(store%-8)-1
} bank%=bank% � 3
~ !scrpos=scrpos!(bank%*4)
 ș "OS_Byte",112,bank%
� �
� C%=store%:� show
� C%=A%:A%=�(show)
�% � �(-2) � �pause(10):� � � �(-1)
� Ȗ:ș "OS_Byte",113,bank%
��
��
�:
�� �storeframe(S%)
�Ȏ S% �
� � -1:!storepos+=4
� � 0:� frstore
� � 1:� frstore
�*  � 1234,"Frame store type not known"
��
�,� !storepos=0 � quit%=� � !(store%-8)+=1
��
�:
�� �mode(xres%,yres%,cols%)
�� mode%,best%,lc%,nc%,E%
�lc%=256:best%=-1
�� mode%=0 � 127
�1 ș "XOS_ReadModeVariable",mode%,3 � ,,nc%;E%
�, � (E% � 1)=0 � nc%+1>=cols% � nc%<lc% �
�I  � �ModeVar(11)+1=xres% � �ModeVar(12)+1=yres% � best%=mode%:lc%=nc%
� �
��
�
=best%
�:
�
� �saveit
�dir$=file$
�2ȕ �file$,".")>0:file$=�file$,�file$,".")+1):�
�'dir$=�dir$,�dir$-�file$-1)+".anims"
�ș "OS_File",5,dir$ � ot%
�d� ot%<>1 � ș "OS_PrettyPrint",�13+"Press S now to save the animation as "+dir$+"."+file$+�13+�0
�*fx 21 0
�k$=�
�� ot%=1 � k$="x"
�� k$="S" � k$="s" �
�" � ot%=0 � ș "OS_File",8,dir$
� �save(dir$+"."+file$)
��
��
�:
�� �save(file$)
�� E%,F%
�.� !storepos=0 � E%=storend% � E%=!storepos
�F%=store%-16
�%ș "OS_File",&A,file$,&3C7,,F%,E%
��
�:
�� �load(file$,length%)
�� store% length%
��"Loading animation...";
�#ș "OS_File",&10,file$,store%,0
�store%+=16
�anim%=�
��
�:
�� �init_replay
�4� store%!-16<>216 � � 1,"File version not known"
�xres%=store%!-12
�(yres%=xres% � &FFFF:xres%=xres%>>>16
�stostyle%=(store%!-4)-1
�@� stostyle%<>0 � stostyle%<>1 � � 1,"Storage type not known"
�mode%=�mode(xres%,yres%,2)
�1� mode%<0 � 1,"No suitable screen mode found"
� �assemstore(mode%,stostyle%)
��init_screen
��
�:
�� �move(on%,thing%)
�� quit% � thing%!vel%=0 � �
�5� pts%,vb%,cb%,A%,B%,E%,F%,x,y,z,nx,ny,nz,h%,flx%
�pts%=thing%!nop%
�!vepos=thing%!vel%
�ș "Hourglass_On"
�A%=pts%-1:� damp
�!copos=thing%!co0%
�!bopos=thing%!bnd%
�ș "Hourglass_LEDs",1
�E%=thing%!nob%-1:� bond
�cb%=!copos:vb%=!vepos
�pull_pt%=pulldef%(on%,0)
�frsh%=3+tsh%
�ș "Hourglass_LEDs",2
�� A%=0 � pts%-1
� � A%=pull_pt% �
�\  cb%!4+=pulldef%(on%,3)>>tsh%:cb%!8+=pulldef%(on%,4)>>tsh%:cb%!0-=pulldef%(on%,5)>>tsh%
�H  pull_pt%+=pulldef%(on%,2):� pull_pt%>pulldef%(on%,1) � pull_pt%=-1
� �
�2  vb%!0-=grav_z%:vb%!4+=grav_x%:vb%!8+=grav_y%
�  x=cb%!4:y=cb%!8:z=cb%!0
�  � B%=1 � backgrounds%
�6   x-=bgdef%(B%,1):y-=bgdef%(B%,2):z+=bgdef%(B%,3)
�   Ȏ bgdef%(B%,0) �
�R    � 0:� z>-5000 � vb%!0-=(z+5000)>>1:vb%!4-=vb%!4>>frsh%:vb%!8-=vb%!8>>frsh%
�1    � 3:r=�(x*x+y*y+z*z):E%=bgdef%(B%,4)*1.06
�     � r<E% �
�      r=2*(E%-r)/r
�(      vb%!0-=vb%!0>>frsh%:vb%!0+=z*r
�(      vb%!4-=vb%!4>>frsh%:vb%!4+=x*r
�(      vb%!8-=vb%!8>>frsh%:vb%!8+=y*r
�
     �
�    � 4:
�.     n%=.5*(y/bgdef%(B%,6)-z/bgdef%(B%,5))
�!     h%=-n%*bgdef%(B%,5)-5000
�     � z>h% �
�B      � vb%!0>0 vb%!0-=(z-h%)>>1:vb%!4=vb%!4>>2:vb%!8=vb%!8>>2
�
     �
�%      h%=(n%+1)*bgdef%(B%,6)-5000
�L      � y>h% � vb%!8>0 � vb%!8-=(y-h%)>>1::vb%!4=vb%!4>>2:vb%!0=vb%!0>>2
�
     �
�	    �
�7    x+=bgdef%(B%,1):y+=bgdef%(B%,2):z-=bgdef%(B%,3)
�  �
�G  cb%!4=x+(vb%!4>>tsh%):cb%!8=y+(vb%!8>>tsh%):cb%!0=z+(vb%!0>>tsh%)
�:  � ((�(vb%!0)+�(vb%!4)+�(vb%!8))>>tsh%)>3E6 � quit%=�
� �
� vb%+=12:cb%+=12
��
�ș "Hourglass_Off"
��
�:
�6� �surface(thing%,P%,S%,XI%,YI%,XN%,YN%,wind%,LP%)
�� X%,Y%,A%,B%
�K� P%=0 � P%=thing%!fac%:� P%<�P � � 1,"bad pointer passed to FNsurface"
�� XN%<2 � YN%<2 � =P%
Z� S%+(XN%-1+(LP% � 1))*(YN%-1+.5*(LP% � 2))>thing%!nof% � � 1,"not enough facet space"

� Y%=0 � YN%-2
 � X%=0 � XN%-2
  A%=S%+X%*XI%+Y%*YI%
M  P%=�define_facet(P%,A%+XI%,A%,A%+YI%,1+(X%=-(LP% � 1) � Y%=-(LP% � 2)))
5  P%=�define_facet(P%,A%+YI%,A%+XI%+YI%,A%+XI%,0)
 �
 � LP% � 1 �
+  A%=S%+(XN%-1)*XI%+Y%*YI%:B%=S%+Y%*YI%
	9  P%=�define_facet(P%,B%,A%,A%+YI%,1+(Y%=-(LP% � 2)))

-  P%=�define_facet(P%,A%+YI%,B%+YI%,B%,0)
 �
�

� LP% � 2 �
 � X%=0 � XN%-2
$  B%=S%+X%*XI%:A%=B%+(YN%-1)*YI%
9  P%=�define_facet(P%,A%+XI%,A%,B%,1+(X%=-(LP% � 1)))
-  P%=�define_facet(P%,B%,B%+XI%,A%+XI%,0)
 �
 � LP% � 1 �
#  A%=(XN%-1)*XI%:B%=(YN%-1)*YI%
1  P%=�define_facet(P%,S%+B%,S%+A%+B%,S%+A%,0)
+  P%=�define_facet(P%,S%+A%,S%,S%+B%,0)
 �
�
=P%
:
� �ModeVar(V%)
+ș"OS_ReadModeVariable",mode%,V% � ,,V%
=V%
:
"� �assemstore(mode%,stostyle%)
 L2BPP%=�ModeVar(10)
!NPIX%=�ModeVar(7)*8>>L2BPP%
"MASK%=(1<<(1<<L2BPP%))-1
#cspace=1000
$� code cspace
%+A%=0:B%=1:C%=2:D%=3:E%=4:F%=5:G%=6:H%=7
&link=14:sp=13:pc=15
'� PASS=0 � 2 � 2
(P%=code
)F%=5
*[ OPT PASS
+	ALIGN
,.frstore
-STMFD (sp)!,{link}
.0LDR C%,storepos:CMP C%,#0:LDMEQFD (sp)!,{pc}
/LDR R11,storend
05SUB R8,R11,C%:CMP R8,#5:MOVLE C%,#0:BLE exfrstrlp
1
MOV A%,#0
2MOV R10,#MASK%:MOV H%,R10
3LDR B%,scrpos:BL findpix
4STRB A%,[C%],#1
5#MOV R8,A%,ASR#8:STRB R8,[C%],#1
6$MOV R8,A%,ASR#16:STRB R8,[C%],#1
7.frstrlp
8CMP A%,#NPIX%:BGE exfrstrlp
9CMP C%,R11:BGE exfrstrlp
:ADD A%,A%,#1:MOV E%,A%
;BL findpix:SUB D%,A%,E%
<
.frstrlp2
=CMP D%,#128:BLT exfrstrlp2
>CMP C%,R11:BGE exfrstrlp
?MOV E%,D%,ASR#7
@CMP E%,#128:MOVGE E%,#127
A!�R R8,E%,#&80:STRB R8,[C%],#1
BSUB D%,D%,E%,ASL#7
CB frstrlp2
D.exfrstrlp2
ESTRB D%,[C%],#1
F
B frstrlp
G.exfrstrlp
HCMP C%,R11:MOVGE C%,#0
ISTR C%,storepos
JLDMFD (sp)!,{pc}
K
L.findpix
MSTMFD (sp)!,{R8,R9,link}
N.fpixlp
O*CMP A%,#NPIX%:LDMGEFD (sp)!,{R8,R9,pc}
P"LDRB R8,[B%,A%,ASR#(3-L2BPP%)]
Q� R9,A%,#7>>L2BPP%
RMOV R9,R9,ASL#L2BPP%
S�S R8,R8,R10,ASL R9
T]
U8� stostyle%=0 � [OPT PASS:LDMNEFD (sp)!,{R8,R9,pc}:]
V� stostyle%=1 �
W [ OPT PASS
X CMP R8,H%,ASL R9
Y �EQ H%,H%,R10
Z LDMEQFD (sp)!,{R8,R9,pc}
[ ]
\�
][ OPT PASS
^ADD A%,A%,#1
_B fpixlp
`
a	.show
bSTMFD (sp)!,{link}
cMOV R10,#MASK%
dLDR B%,scrpos
eLDRB A%,[C%],#1
f%LDRB R8,[C%],#1:�R A%,A%,R8,ASL#8
g&LDRB R8,[C%],#1:�R A%,A%,R8,ASL#16
h]
i� stostyle%=0 �
j [OPT PASS
k .shloop
l CMP A%,#NPIX%:BGE exshloop
m# LDRB R8,[B%,A%,ASR#(3-L2BPP%)]
n � R9,A%,#7>>L2BPP%
o MOV R9,R9,ASL#L2BPP%
p � R8,R8,R10,ASL R9
q# STRB R8,[B%,A%,ASR#(3-L2BPP%)]
r ADD A%,A%,#1
s ]
t�
u� stostyle%=1 �
v [ OPT PASS
w .shloop
x \ want pixel A% set
y
z \ get next offset
{ CMP A%,#NPIX%:BGE exshloop
| ADD G%,A%,#1:.shloop3
} LDRB D%,[C%],#1
~1 TST D%,#&80:�NE D%,D%,#&7F:MOVNE D%,D%,ASL#7
) ADD G%,G%,D%:CMP D%,#128:BGE shloop3
�
� \ plot pixels A% to G%-1
�
 .shloop4
�# LDRB R8,[B%,A%,ASR#(3-L2BPP%)]
� � R9,A%,#7>>L2BPP%
� MOV R9,R9,ASL#L2BPP%
� � R8,R8,R10,ASL R9
�# STRB R8,[B%,A%,ASR#(3-L2BPP%)]
�' ADD A%,A%,#1:CMP A%,G%:BLT shloop4
� ADD A%,A%,#1
�
� \ get next offset
� CMP A%,#NPIX%:BGE exshloop
� ]
��
�[ OPT PASS
�.shloop2
�LDRB D%,[C%],#1
�0TST D%,#&80:�NE D%,D%,#&7F:MOVNE D%,D%,ASL#7
�(ADD A%,A%,D%:CMP D%,#128:BGE shloop2
�B shloop
�
.exshloop
�MOV A%,C%:LDMFD (sp)!,{pc}
�
�.copy1t2
�STMFD (sp)!,{link}
�LDR R0,scrlen
�!LDR R1,scrpos2:LDR R2,scrpos1
�ADD R0,R1,R0
�
.cop1t2lp
�)LDMIA R1!,{R3-R10}:STMIA R2!,{R3-R10}
�CMP R1,R0:BLT cop1t2lp
�LDMFD (sp)!,{pc}
�
�.eor2w1
�STMFD (sp)!,{link}
�LDR R0,scrlen
�!LDR R1,scrpos2:LDR R2,scrpos1
�ADD R0,R1,R0
�
.eor2w1lp
�'LDMIA R1!,{R3-R6}:LDMIA R2,{R7-R10}
�0� R3,R3,R7:� R4,R4,R8:� R5,R5,R9:� R6,R6,R10
�STMIA R2!,{R3-R6}
�CMP R1,R0:BLT eor2w1lp
�LDMFD (sp)!,{pc}
�
�.bank EQUD 1
�.storepos EQUD 0
�.storend EQUD 0
�.scrpos EQUD 0
�.scrpos1 EQUD 0
�.scrpos2 EQUD 0
�.scrlen EQUD �ModeVar(7)
�]
�1� P%>code+cspace � � 1,"Out of room for code"
�
� PASS
��
�:
�� �assem_nebo
��assemRoot
�
�assemDiv
�� scrap% 256*4
�cspace=500
�� code cspace
�+A%=0:B%=1:C%=2:D%=3:E%=4:F%=5:G%=6:H%=7
�link=14:sp=13:pc=15
�� PASS=0 � 2 � 2
�P%=code
�[ OPT PASS
�
.nearbond
�STMFD (sp)!,{link}
�OLDR R8,neboblock:LDR R9,neboblock+4:LDR B%,neboblock+8:LDR R10,neboblock+12
�-SUB E%,E%,#1:MOV R12,#12:MLA H%,E%,R12,H%
�
.nblp2
�SUB G%,H%,#12:SUB F%,E%,#1
�
.nblp1
�0LDR A%,[H%,#8]:LDR R12,[G%,#8]:SUB A%,A%,R12
�7MOV A%,A%,ASR R10:MUL C%,A%,A%:CMP C%,R9:BGT nbskip
�0LDR A%,[H%,#4]:LDR R12,[G%,#4]:SUB A%,A%,R12
�:MOV A%,A%,ASR R10:MLA C%,A%,A%,C%:CMP C%,R9:BGT nbskip
�0LDR A%,[H%,#0]:LDR R12,[G%,#0]:SUB A%,A%,R12
�:MOV A%,A%,ASR R10:MLA C%,A%,A%,C%:CMP C%,R9:BGT nbskip
�,LDR A%,neboblock+16:CMP C%,A%:BLT nbskip
�'CMP B%,D%:ADDGE B%,B%,#8:BGE nbskip
�/BL root:LDR A%,[R8,A%,ASL#2]:STR A%,[B%,#4]
�%�R A%,E%,F%,ASL#16:STR A%,[B%],#8
�.nbskip
�)SUB G%,G%,#12:SUBS F%,F%,#1:BGE nblp1
�)SUB H%,H%,#12:SUBS E%,E%,#1:BGT nblp2
�STR B%,neboblock+8
�LDMFD (sp)!,{pc}
�1.neboblock EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0
�
�.nearcount
�STMFD (sp)!,{link}
�<LDR R8,neboblock:LDR R9,neboblock+4:LDR R10,neboblock+12
�
MOV B%,#0
�-SUB E%,E%,#1:MOV R12,#12:MLA H%,E%,R12,H%
�.cnblp2
�SUB G%,H%,#12:SUB F%,E%,#1
�.cnblp1
�0LDR A%,[H%,#8]:LDR R12,[G%,#8]:SUB A%,A%,R12
�8MOV A%,A%,ASR R10:MUL C%,A%,A%:CMP C%,R9:BGT cnbskip
�0LDR A%,[H%,#4]:LDR R12,[G%,#4]:SUB A%,A%,R12
�;MOV A%,A%,ASR R10:MLA C%,A%,A%,C%:CMP C%,R9:BGT cnbskip
�0LDR A%,[H%,#0]:LDR R12,[G%,#0]:SUB A%,A%,R12
�;MOV A%,A%,ASR R10:MLA C%,A%,A%,C%:CMP C%,R9:BGT cnbskip
�-LDR A%,neboblock+16:CMP C%,A%:BLT cnbskip
�ADD B%,B%,#1
�.cnbskip
�*SUB G%,G%,#12:SUBS F%,F%,#1:BGE cnblp1
�*SUB H%,H%,#12:SUBS E%,E%,#1:BGT cnblp2
�
MOV R0,B%
�LDMFD (sp)!,{pc}
�]
�1� P%>code+cspace � � 1,"Out of room for code"
�
� PASS
��
�:
�� �assem
�cspace=2000
�� code cspace
�+A%=0:B%=1:C%=2:D%=3:E%=4:F%=5:G%=6:H%=7
�X%=0:Y%=1:Z%=3
�#AI%=12:BI%=11:SA%=9:CB%=8:SB%=7
�link=14:sp=13:pc=15
�� PASS=0 � 2 � 2
�P%=code
[ OPT PASS


.basic_stack
MOV R0,R13
MOV pc,link

.avZ
MOV R10,#12
STMFD (sp)!,{link}
	.avzloop

LDMIA C%,{R7,R8,R9}
MLA R7,R10,R7,D%
MLA R8,R10,R8,D%

MLA R9,R10,R9,D%
LDR F%,[R7]
LDR R11,[R8]:ADD F%,F%,R11
LDR R11,[R9]:ADD F%,F%,R11
STR F%,[C%,#12]
ADD C%,C%,#elsiz%(3)
SUBS E%,E%,#1:BGE avzloop
LDMFD (sp)!,{pc}

.hidefaces
STMFD (sp)!,{link}
.hideflp
LDR F%,[C%,#16]
LDMIA C%,{R7,R9,R11}
ADD R7,D%,R7,ASL#3
ADD R9,D%,R9,ASL#3
ADD R11,D%,R11,ASL#3
LDMIA R7,{R7,R8}
LDMIA R9,{R9,R10}
 LDMIA R11,{R11,R12}
!!SUB R9 ,R9 ,R7:SUB R10,R10,R8
"!SUB R11,R11,R7:SUB R12,R12,R8
# MUL R7,R9,R12:MUL R8,R10,R11
$BIC F%,F%,#&20000000
%#CMP R7,R8:�RLT F%,F%,#&20000000
&STR F%,[C%,#16]
'ADD C%,C%,#elsiz%(3)
(SUBS E%,E%,#1:BGE hideflp
)LDMFD (sp)!,{pc}
*
+	.damp
,LDR B%,vepos
-
.damploop
.LDMIA B%,{R10,R11,R12}
/LMOVS C%,R10,ASR#7:MUL D%,C%,C%:RSBMI D%,D%,#0:SUB R10,R10,D%,ASR#dampsh%
0LMOVS C%,R11,ASR#7:MUL D%,C%,C%:RSBMI D%,D%,#0:SUB R11,R11,D%,ASR#dampsh%
1LMOVS C%,R12,ASR#7:MUL D%,C%,C%:RSBMI D%,D%,#0:SUB R12,R12,D%,ASR#dampsh%
2STMIA (B%)!,{R10,R11,R12}
3SUBS A%,A%,#1:BGE damploop
4MOV pc,link
5
6.qfsort
7%STMFD (sp)!,{A%,B%,C%,F%,G%,link}
8 ADD A%,F%,G%:MOV A%,A%,ASR#1
9(LDR E%,[D%,A%,ASL#2]:LDR C%,[E%,#12]
:MOV A%,F%:MOV B%,G%
;.qfslp1
<(LDR E%,[D%,A%,ASL#2]:LDR E%,[E%,#12]
='CMP E%,C%:ADDLT A%,A%,#1:BLT qfslp1
>.qfslp2
?(LDR E%,[D%,B%,ASL#2]:LDR E%,[E%,#12]
@'CMP C%,E%:SUBLT B%,B%,#1:BLT qfslp2
ACMP A%,B%:BGT skipswap
B-LDR E%,[D%,A%,ASL#2]:LDR R9,[D%,B%,ASL#2]
C-STR R9,[D%,A%,ASL#2]:STR E%,[D%,B%,ASL#2]
D
.skipswap
EADD A%,A%,#1:SUB B%,B%,#1
FCMP A%,B%:BLE qfslp1
G/MOV C%,G%:CMP F%,B%:MOVLT G%,B%:BLLT qfsort
H/MOV G%,C%:CMP A%,G%:MOVLT F%,A%:BLLT qfsort
I#LDMFD (sp)!,{A%,B%,C%,F%,G%,pc}
J
K	.bond
LSTMFD (sp)!,{link}
M
.bondloop
N%LDR R8,bopos:LDR G%,[R8,E%,ASL#3]
O%ADD R8,R8,#4:LDR F%,[R8,E%,ASL#3]
P&MOV H%,G%,LSR#16:� G%,G%,H%,LSL#16
Q(MOV R8,#12:MUL G%,R8,G%:MUL H%,R8,H%
RLDR R8,copos
S$ADD R9,R8,G%:LDMIA R9,{R0,R1,R2}
T'ADD R9,R8,H%:LDMIA R9,{R10,R11,R12}
U0SUB R10,R0,R10:SUB R11,R1,R11:SUB R12,R2,R12
V
MOV B%,#0
W-CMP R10,#0:RSBLT R10,R10,#0:�RLT B%,B%,#1
X-CMP R11,#0:RSBLT R11,R11,#0:�RLT B%,B%,#2
Y-CMP R12,#0:RSBLT R12,R12,#0:�RLT B%,B%,#4
ZMOV D%,#1:MOV R8,#&6800
[3.zssl:CMP R8,R10,ASR D%:ADDLT D%,D%,#1:BLT zssl
\3.xssl:CMP R8,R11,ASR D%:ADDLT D%,D%,#1:BLT xssl
]3.yssl:CMP R8,R12,ASR D%:ADDLT D%,D%,#1:BLT yssl
^<MOV R10,R10,ASR D%:MOV R11,R11,ASR D%:MOV R12,R12,ASR D%
_6MUL C%,R10,R10:MLA C%,R11,R11,C%:MLA C%,R12,R12,C%
` BL root:CMP A%,#0:BEQ divby0
a4MOV R8,F%,LSR#24:MOV R9,F%,LSL#8:MOV R9,R9,LSR#8
b.MOV F%,A%,ASL D%:SUB F%,F%,R9:MUL F%,R8,F%
c)CMP F%,#0:RSBLT F%,F%,#0:�LT B%,B%,#7
dMOV D%,#0:MOV R8,#&8000
e2.fssl:CMP R8,F%,ASR D%:ADDLT D%,D%,#1:BLT fssl
f/RSB D%,D%,#12:MOV F%,F%,ASL D%:ADD D%,D%,#7
g
BL uDiv32
h@MUL R10,C%,R10:MOV R10,R10,ASR D%:TST B%,#1:RSBNE R10,R10,#0
i@MUL R11,C%,R11:MOV R11,R11,ASR D%:TST B%,#2:RSBNE R11,R11,#0
j@MUL R12,C%,R12:MOV R12,R12,ASR D%:TST B%,#4:RSBNE R12,R12,#0
kLDR R8,vepos
lbADD R9,R8,G%:LDMIA R9,{R0,R1,R2}:SUB R0,R0,R10:SUB R1,R1,R11:SUB R2,R2,R12:STMIA R9,{R0,R1,R2}
mbADD R9,R8,H%:LDMIA R9,{R0,R1,R2}:ADD R0,R0,R10:ADD R1,R1,R11:ADD R2,R2,R12:STMIA R9,{R0,R1,R2}
n.divby0
oSUBS E%,E%,#1:BGE bondloop
pLDMFD (sp)!,{pc}
q.bopos EQUD 0
r.nopts EQUD 0
s
t.rotate
uSTMFD (sp)!,{link}
v&ADR AI%,sinpos:LDMIA AI%,{SB%,CB%}
wALDR R4,nopts:LDR R10,copos:LDR R9,store2pos:LDR R14,store3pos
x	.loop
y\ look up coordinates
zLDMIA R10!,{X%,Y%,Z%}
{6MOV X%,X%,ASR#10:MOV Y%,Y%,ASR#10:MOV Z%,Z%,ASR#10
|<ADD X%,X%,X%,ASR#1:ADD Y%,Y%,Y%,ASR#1:ADD Z%,Z%,Z%,ASR#1
}\ rotate around x axis
~LDR AI%,cos2%:LDR BI%,sin2%
3MUL R5,AI%,Y%:MLA R5,Z%,BI%,R5:MOV R5,R5,ASR#10
�=MUL Z%,AI%,Z%:MUL R6,Y%,BI%:SUB Z%,Z%,R6:MOV Z%,Z%,ASR#10
�
MOV Y%,R5
�\ rotate around y axis
�LDR AI%,cos%:LDR BI%,sin%
�=MUL R5,X%,AI%:MUL R6,Z%,BI%:SUB R5,R5,R6:MOV R5,R5,ASR#10
�,MUL Z%,AI%,Z%:MLA Z%,X%,BI%,Z%:MOV X%,R5
�MOV Z%,Z%,ASR#10
�\ store 3D point
�STMIA R14!,{X%,Y%,Z%}
�'\ apply perspective, store 2D point
�.LDR R5,perpos:RSBS R6,X%,#&400:MOVLT R6,#0
�CMP R6,#&800:MOVGT R6,#&800
�LDR R6,[R5,R6,ASL#2]
�JMUL Y%,R6,Y%:MOV Y%,Y%,ASR#10:ADD Y%,Y%,#1+�ModeVar(11)<<�ModeVar(4)-1
�JMUL Z%,R6,Z%:MOV Z%,Z%,ASR#10:ADD Z%,Z%,#1+�ModeVar(12)<<�ModeVar(5)-1
�STMIA R9!,{Y%,Z%}
�\
�SUBS R4,R4,#1:BGT loop
�LDMFD (sp)!,{pc}
�
�%.sinpos EQUD sin:.cospos EQUD cos
�.perpos EQUD per%
�.sin% EQUD 0:.cos% EQUD 0
�.sin2% EQUD 0:.cos2% EQUD 0
�.copos EQUD 0
�.vepos EQUD 0
�.store2pos EQUD 0
�.store3pos EQUD 0
�]
�1� P%>code+cspace � � 1,"Out of room for code"
�
� PASS
��
�:
�� �assemDiv
�cspace=1000
�� code cspace
�link=14:sp=13:pc=15
�#lhs=5:rhs=0:div=2:mod=8:count=9
�� PASS=0 � 2 � 2
�P%=code
�[ OPT PASS
�	ALIGN
�.uDiv32
�MOV mod,#0
�MOV div,#0
�MOV count,#32
�.divLp1
�SUBS count,count,#1
��Q pc,link
�MOVS lhs,lhs,ASL#1
�BPL divLp1
�.divLp2
�MOVS lhs,lhs,ASL#1
�ADC mod,mod,mod
�CMP mod,rhs
�SUBCS mod,mod,rhs
�ADC div,div,div
�SUBS count,count,#1
�BNE divLp2
�.divErr
�MOV pc,link
�]
�4� P%>code+cspace � � 1234,"Out of room for code"
�
� PASS
��
�:
�� �assemRoot
�� code% 200
�link=14:sp=13:pc=15
�"sqrt=0:square=2:mask=1:shift=3
�!diff=4:subtrahend=5:t=6:min=7
�� pass%=0 � 2 � 2
�P%=code%
�[OPT pass%
�.Rstore EQUS �4*8,�0)
�	.root
�)ADR sqrt,Rstore:STMIA sqrt,{1-7,link}
�MOV mask,#&C0000000
�MOV shift,#30
�MOV sqrt,#0
�MOV min,#0
�.nextbit
�MOV sqrt,sqrt,LSL#1
�MOV min,min,LSL#2
�� t,square,mask
�MOV t,t,LSR shift
��R min,min,t
�MOV subtrahend,sqrt,LSL#1
� ADD subtrahend,subtrahend,#1
�CMP min,subtrahend
�SUBGE min,min,subtrahend
�ADDGE sqrt,sqrt,#1
�MOV mask,mask,LSR#2
�SUBS shift,shift,#2
�BPL nextbit
�#ADR R1,Rstore:LDMIA R1,{1-7,pc}
�]
��
��
�:
�� �error
�	� � �
�� 0
�� �$;" at line ";�
�ș "Hourglass_Smash"
�� ch%>0 �#ch%
�� anim% � ș "OS_PrettyPrint","Enter PROCsave(""filename"") to save the animation in memory"+�13+"Press F4 to return to the Desktop"+�13+�0
�/*Key 4 |USYS"Wimp_CommandWindow",-1|MQUIT|M
��
�:
�� �status(FR%)
�� A$,O%,H%
�6frames%=(storend%-store1%)*FR%/(!storepos-store1%)
�"� 30:�"Frame ";FR%;"/";frames%
�U�;!storepos-store%;" bytes (";�(.5+100*(!storepos-store%)/(storend%-store%));"%)"
�O%=�-startime%
�:�"last frame: ";O% � 100;".";(O% � 10)� 10;O% � 10;"s"
�2� PRINT;movetime%-startime%;"+";TIME-movetime%
�gentime%+=�-startime%
�,� aim%<frames% � aim%>FR% � frames%=aim%
�!O%=gentime%*(frames%-FR%)/FR%
�2!timblk%=3:timblk%!4=0:ș "OS_Word",14,timblk%
�H%=timblk%!3
�0!timblk%=(!timblk% � &FFFFFF)+(O% � &FFFFFF)
�#timblk%!3=H%+(O%>>24)+timblk%?3
�Dș "OS_ConvertDateAndTime",timblk%,stri%,255,"%z12:%mi%pm" � ,O%
�)?O%=13:�;frames%;" frames at ";$stri%
��
:

L� ----------------------------------------------------------------------
:
'� �initthing(thing%,np%,nf%,nb%,f%)
thing%!nop%=np%
thing%!nof%=nf%
thing%!nob%=nb%
+� f% � &01 � thing%!co0%=�create(1,np%)
+� f% � &02 � thing%!co1%=�create(1,np%)
	+� f% � &04 � thing%!co2%=�create(2,np%)

;� f% � &08 � thing%!vel%=�create(1,np%) � thing%!vel%=0
+� f% � &10 � thing%!fac%=�create(3,nf%)
+� f% � &20 � thing%!bnd%=�create(6,nb%)

+� f% � &40 � thing%!fno%=�create(1,nf%)
�
:
� �init3OOD
� A%
maxobjs%=20
maxthings%=10
types%=8
wind%=1
� elsiz%(types%-1)
Melsiz%(0)=0:elsiz%(1)=12:elsiz%(2)=8:elsiz%(3)=20:elsiz%(4)=4:elsiz%(5)=4
elsiz%(6)=8:elsiz%(7)=40
Pnop%=0:nof%=4:nob%=8:co0%=12:co1%=16:co2%=20:vel%=24:fac%=28:bnd%=32:fno%=36
�
:
� �create(TYPE%,NOEL%)
<� TYPE%>=types% � TYPE%<0 � � 1234,"Invalid object type"
;� NOEL%<0 � � 1234,"Silly number of elements requested"
� A%,S%
 � S% NOEL%*elsiz%(TYPE%)
!� TYPE%=7 �
"- � A%=0 � NOEL%*elsiz%(TYPE%)-4:S%!A%=0:�
#�
$=S%
%:
&!� �init_facpoint(A%,B%,N%,S%)
'� N%=0 �
(� C%,Q%
)B%+=S%*elsiz%(4)
*5� C%=0 � N%-1:B%!(C%*elsiz%(4))=A%+C%*elsiz%(3):�
+
=S%+N%
,:
-� �rotnpersp(A%,D%,E%,F%)
.%!sin%=sin!(D%*4):!cos%=cos!(D%*4)
/'!sin2%=sin!(E%*4):!cos2%=cos!(E%*4)
0!nopts=A%!nop%
1!copos=A%!co0%
2!store3pos=A%!co1%
3!store2pos=A%!co2%
4� rotate
5�
6:
7&� �rotate(thing%,AS%,BS%,D%,E%,F%)
8!AS%=thing%!AS%:BS%=thing%!BS%
9"� C%,CX,SX,CY,SY,CZ,SZ,X,Y,Z,T
:2D%=(D% � &3FF)*4:CX=cos!D%/&400:SX=sin!D%/&400
;2E%=(E% � &3FF)*4:CY=cos!E%/&400:SY=sin!E%/&400
<2F%=(F% � &3FF)*4:CZ=cos!F%/&400:SZ=sin!F%/&400
=� C%=0 � thing%!nop%-1
> Z=!AS%:X=AS%!4:T=AS%!8
? Y=T*CX+Z*SX:Z=Z*CX-T*SX
@ T=X*CY-Z*SY:Z=X*SY+Z*CY
A X=T*CZ-Y*SZ:Y=T*SZ+Y*CZ
B BS%!0=Z:BS%!4=X:BS%!8=Y
C AS%+=12:BS%+=12
D�
E�
F:
G)� �translate(thing%,AS%,BS%,D%,E%,F%)
H� C%
I!AS%=thing%!AS%:BS%=thing%!BS%
J� C%=0 � thing%!nop%-1
K1 BS%!0=AS%!0-F%:BS%!4=AS%!4+D%:BS%!8=AS%!8+E%
L AS%+=12:BS%+=12
M�
N�
O:
P#� �define_facet(A%,C%,D%,E%,F%)
Q!� C%=D% � D%=E% � E%=C% � =A%
R6� A%<�P � � 1,"bad pointer passed to define_facet"
S� wind%>0 Ȕ C%,E%
T*!A%=C%:A%!4=D%:A%!8=E%:A%!12=0:A%!16=0
UA%?17=objects%-1
V � F% � A%?19=&A0 � A%?19=&20
W� wind%=0 A%?19=A%?19 � &40
Xfaco%+=1
Y=A%+elsiz%(3)
Z:
[� �calcavZ(A%,B%)
\� C%,D%,E%
]$C%=A%!fac%:D%=A%!B%:E%=A%!nof%-1
^� avZ:�
_:
`� �fudge(A%)
a� C%,D%,E%,I%
bC%=A%!fac%:D%=A%!nof%-1
c� I%=0 � D%
d C%!12-=200:C%+=elsiz%(3)
e�
f�
g:
h� �hidefaces(A%)
i� C%,D%,E%
j&C%=A%!fac%:D%=A%!co2%:E%=A%!nof%-1
k� hidefaces
l�
m:
n� �Zsort
o� D%,F%,G%
pD%=facpt%:F%=0:G%=totnof%-1
q� qfsort:�
r:
s� �render(skip%,S%)
t!� AS%,BS%,CS%,DS%,I%,A%,B%,C%
uAS%=facpt%
v� S%>1 �
w � I%=0 � objects%-1
x   thing%=world%+I%*elsiz%(7)
y  �calcavZ(thing%,co1%)
z$  � thing%!vel%=0 �fudge(thing%)
{  �hidefaces(thing%)
| �
} �Zsort
~�
Ȏ S% �
�� 0:
�� I%=0 � totnof%-1
�B CS%=AS%!(I%*4):thing%=world%+elsiz%(7)*CS%?17:BS%=thing%!co2%
� � �(thing%!vel%)<>skip% �
�1  A%=BS%+8*!CS%:B%=BS%+8*CS%!4:C%=BS%+8*CS%!8
�)  Ȓ !A%,A%!4:Ȓ !B%,B%!4:Ȓ !C%,C%!4
� �
��
�� 1:
�� I%=0 � totnof%-1
�B CS%=AS%!(I%*4):thing%=world%+elsiz%(7)*CS%?17:BS%=thing%!co2%
�1 � (CS%?19 � &80)=0 � �(thing%!vel%)<>skip% �
�1  A%=BS%+8*!CS%:B%=BS%+8*CS%!4:C%=BS%+8*CS%!8
�&  � !A%,A%!4:� !B%,B%!4:� !C%,C%!4
� �
��
�� 2:
�� I%=0 � totnof%-1
�B CS%=AS%!(I%*4):thing%=world%+elsiz%(7)*CS%?17:BS%=thing%!co2%
�- � CS%?19 � &60 � �(thing%!vel%)<>skip% �
�1  A%=BS%+8*!CS%:B%=BS%+8*CS%!4:C%=BS%+8*CS%!8
�)  � !A%,A%!4:� !B%,B%!4:� 87,!C%,C%!4
�&  � 65,0,0:Ȓ !A%,A%!4:Ȓ !B%,B%!4
� �
��
�� 3:
�� I%=0 � totnof%-1
�B CS%=AS%!(I%*4):thing%=world%+elsiz%(7)*CS%?17:BS%=thing%!co2%
�- � CS%?19 � &60 � �(thing%!vel%)<>skip% �
�1  A%=BS%+8*!CS%:B%=BS%+8*CS%!4:C%=BS%+8*CS%!8
�)  � !A%,A%!4:� !B%,B%!4:� 87,!C%,C%!4
�  � !B%,B%!4:� !A%,A%!4
� �
��
��
��
�

00000000  0d 00 01 1a f4 20 3e 3c  46 45 4d 53 24 64 69 72  |..... ><FEMS$dir|
00000010  3e 2e 46 45 4d 53 32 70  32 30 0d 00 02 29 f4 20  |>.FEMS2p20...). |
00000020  46 69 6e 69 74 65 20 45  6c 65 6d 65 6e 74 20 4d  |Finite Element M|
00000030  61 74 65 72 69 61 6c 73  20 53 69 6d 75 6c 61 74  |aterials Simulat|
00000040  69 6f 6e 0d 00 03 2f f4  20 77 69 74 68 20 64 65  |ion.../. with de|
00000050  76 65 6c 6f 70 6d 65 6e  74 20 76 65 72 73 69 6f  |velopment versio|
00000060  6e 20 6f 66 20 4f 4f 33  44 20 72 6f 75 74 69 6e  |n of OO3D routin|
00000070  65 73 0d 00 04 27 f4 20  76 65 72 73 69 6f 6e 20  |es...'. version |
00000080  32 2e 31 3a 20 72 65 73  74 79 6c 69 6e 67 20 6f  |2.1: restyling o|
00000090  66 20 6f 62 6a 65 63 74  73 0d 00 05 1f f4 20 32  |f objects..... 2|
000000a0  2e 31 31 3a 20 63 79 6c  69 6e 64 65 72 20 64 65  |.11: cylinder de|
000000b0  66 69 6e 69 74 69 6f 6e  0d 00 06 25 f4 20 32 2e  |finition...%. 2.|
000000c0  31 32 3a 20 6e 65 61 72  65 73 74 20 6e 65 69 67  |12: nearest neig|
000000d0  62 6f 75 72 73 20 62 6f  6e 64 69 6e 67 0d 00 07  |bours bonding...|
000000e0  25 f4 20 32 2e 31 33 3a  20 67 65 6e 65 72 61 6c  |%. 2.13: general|
000000f0  69 73 65 64 20 66 72 61  6d 65 20 73 74 6f 72 61  |ised frame stora|
00000100  67 65 0d 00 08 20 f4 20  32 2e 31 34 3a 20 62 61  |ge... . 2.14: ba|
00000110  63 6b 67 72 6f 75 6e 64  73 20 62 75 69 6c 74 20  |ckgrounds built |
00000120  69 6e 0d 00 09 2c f4 20  32 2e 31 35 3a 20 62 61  |in...,. 2.15: ba|
00000130  63 6b 67 72 6f 75 6e 64  73 20 5a 2d 6d 69 78 65  |ckgrounds Z-mixe|
00000140  64 20 77 69 74 68 20 6f  62 6a 65 63 74 73 0d 00  |d with objects..|
00000150  0a 2e f4 20 32 2e 31 36  3a 20 6d 69 78 65 64 20  |... 2.16: mixed |
00000160  62 61 63 6b 67 72 6f 75  6e 64 73 2c 20 72 65 70  |backgrounds, rep|
00000170  6c 61 79 2c 20 70 72 65  76 69 65 77 0d 00 0b 18  |lay, preview....|
00000180  f4 20 32 2e 31 37 3a 20  32 20 63 6f 6c 6f 75 72  |. 2.17: 2 colour|
00000190  20 52 4c 45 0d 00 0c 21  f4 20 32 2e 31 37 62 3a  | RLE...!. 2.17b:|
000001a0  20 66 6c 61 74 20 73 68  61 64 69 6e 67 20 72 65  | flat shading re|
000001b0  6d 6f 76 65 64 0d 00 0d  27 f4 20 32 2e 31 38 3a  |moved...'. 2.18:|
000001c0  20 72 65 61 64 20 73 63  65 6e 65 20 64 65 66 69  | read scene defi|
000001d0  6e 69 74 69 6f 6e 20 66  69 6c 65 73 0d 00 0e 3e  |nition files...>|
000001e0  f4 20 32 2e 31 39 3a 20  63 75 62 6f 69 64 20 64  |. 2.19: cuboid d|
000001f0  65 66 69 6e 69 74 69 6f  6e 2c 20 63 6f 6d 70 6f  |efinition, compo|
00000200  75 6e 64 20 6f 62 6a 65  63 74 73 20 28 63 75 62  |und objects (cub|
00000210  6f 69 64 73 20 6f 6e 6c  79 29 0d 00 0f 22 f4 20  |oids only)...". |
00000220  32 2e 32 30 3a 20 61 6e  79 20 6f 62 6a 65 63 74  |2.20: any object|
00000230  20 69 6e 20 63 6f 6d 70  6f 75 6e 64 0d 00 10 43  | in compound...C|
00000240  f4 20 32 2e 32 31 3a 20  50 52 4f 43 6f 75 74 70  |. 2.21: PROCoutp|
00000250  75 74 5f 66 61 63 65 74  73 2c 20 50 52 4f 43 66  |ut_facets, PROCf|
00000260  72 61 6d 65 5f 61 63 74  69 6f 6e 73 2c 20 61 6e  |rame_actions, an|
00000270  69 6d 73 20 69 6e 73 69  64 65 20 73 69 6d 73 0d  |ims inside sims.|
00000280  00 11 04 0d 00 12 09 63  68 25 3d 30 0d 00 13 0b  |.......ch%=0....|
00000290  61 6e 69 6d 25 3d a3 0d  00 14 0e ee 20 85 20 f2  |anim%=...... . .|
000002a0  65 72 72 6f 72 0d 00 15  04 0d 00 16 07 eb 20 30  |error......... 0|
000002b0  0d 00 17 19 c8 99 20 22  4f 53 5f 47 65 74 45 6e  |...... "OS_GetEn|
000002c0  76 22 20 b8 20 65 6e 76  24 0d 00 18 16 69 25 3d  |v" . env$....i%=|
000002d0  a7 65 6e 76 24 2c 22 2d  66 69 6c 65 20 22 29 0d  |.env$,"-file ").|
000002e0  00 19 0c e7 20 69 25 3d  30 20 8c 0d 00 1a 1e 20  |.... i%=0 ..... |
000002f0  66 69 6c 65 24 3d 22 5e  2e 73 69 6d 73 2e 43 68  |file$="^.sims.Ch|
00000300  61 69 72 53 74 61 69 72  22 0d 00 1b 05 cc 0d 00  |airStair".......|
00000310  1c 16 20 66 69 6c 65 24  3d c1 65 6e 76 24 2c 69  |.. file$=.env$,i|
00000320  25 2b 36 29 0d 00 1d 13  20 69 25 3d a7 66 69 6c  |%+6).... i%=.fil|
00000330  65 24 2c 22 20 22 29 0d  00 1e 1e 20 e7 20 69 25  |e$," ").... . i%|
00000340  20 8c 20 66 69 6c 65 24  3d c0 66 69 6c 65 24 2c  | . file$=.file$,|
00000350  69 25 2d 31 29 0d 00 1f  05 cd 0d 00 20 2e c8 99  |i%-1)....... ...|
00000360  20 22 4f 53 5f 46 69 6c  65 22 2c 35 2c 66 69 6c  | "OS_File",5,fil|
00000370  65 24 20 b8 20 6f 74 25  2c 2c 74 79 70 65 25 2c  |e$ . ot%,,type%,|
00000380  2c 6c 65 6e 67 74 68 25  0d 00 21 31 e7 20 6f 74  |,length%..!1. ot|
00000390  25 3c 3e 31 20 8c 20 85  20 31 2c 22 46 69 6c 65  |%<>1 . . 1,"File|
000003a0  20 22 22 22 2b 66 69 6c  65 24 2b 22 22 22 20 6e  | """+file$+""" n|
000003b0  6f 74 20 66 6f 75 6e 64  22 0d 00 22 1b 74 79 70  |ot found"..".typ|
000003c0  65 25 3d 28 74 79 70 65  25 3e 3e 38 29 20 80 20  |e%=(type%>>8) . |
000003d0  26 46 46 46 0d 00 23 04  0d 00 24 0e c8 8e 20 74  |&FFF..#...$... t|
000003e0  79 70 65 25 20 ca 0d 00  25 0c 20 c9 20 26 46 46  |ype% ...%. . &FF|
000003f0  46 3a 0d 00 26 0b 20 20  f2 69 6e 69 74 0d 00 27  |F:..&.  .init..'|
00000400  19 20 20 f2 72 65 61 64  5f 73 63 72 69 70 74 28  |.  .read_script(|
00000410  66 69 6c 65 24 29 0d 00  28 0c 20 20 f2 69 6e 69  |file$)..(.  .ini|
00000420  74 32 0d 00 29 14 20 20  f2 63 72 65 61 74 65 5f  |t2..).  .create_|
00000430  66 72 61 6d 65 73 0d 00  2a 0d 20 20 f2 73 61 76  |frames..*.  .sav|
00000440  65 69 74 0d 00 2b 0c 20  c9 20 26 33 43 37 3a 0d  |eit..+. . &3C7:.|
00000450  00 2c 1a 20 20 f2 6c 6f  61 64 28 66 69 6c 65 24  |.,.  .load(file$|
00000460  2c 6c 65 6e 67 74 68 25  29 0d 00 2d 12 20 20 f2  |,length%)..-.  .|
00000470  69 6e 69 74 5f 72 65 70  6c 61 79 0d 00 2e 1c 20  |init_replay.... |
00000480  7f 3a 85 20 31 2c 22 46  69 6c 65 20 77 72 6f 6e  |.:. 1,"File wron|
00000490  67 20 74 79 70 65 22 0d  00 2f 05 cb 0d 00 30 13  |g type"../....0.|
000004a0  f2 64 69 73 70 6c 61 79  5f 66 72 61 6d 65 73 0d  |.display_frames.|
000004b0  00 31 05 e0 0d 00 32 05  3a 0d 00 33 0b dd 20 f2  |.1....2.:..3.. .|
000004c0  69 6e 69 74 0d 00 34 0d  f2 69 6e 69 74 33 4f 4f  |init..4..init3OO|
000004d0  44 0d 00 35 12 de 20 73  63 72 61 70 25 20 32 35  |D..5.. scrap% 25|
000004e0  36 2a 34 0d 00 36 1e de  20 73 69 6e 20 32 30 34  |6*4..6.. sin 204|
000004f0  38 2a 34 3a 63 6f 73 3d  73 69 6e 2b 32 35 36 2a  |8*4:cos=sin+256*|
00000500  34 0d 00 37 1e f1 27 22  46 69 6c 6c 69 6e 67 20  |4..7..'"Filling |
00000510  73 69 6e 65 20 61 72 72  61 79 2e 2e 2e 22 3b 0d  |sine array...";.|
00000520  00 38 32 e3 20 41 25 3d  30 20 b8 20 31 30 32 33  |.82. A%=0 . 1023|
00000530  3a 73 69 6e 21 28 41 25  2a 34 29 3d 26 34 30 30  |:sin!(A%*4)=&400|
00000540  2a b5 28 41 25 2a af 2f  35 31 32 29 2b 2e 35 3a  |*.(A%*./512)+.5:|
00000550  ed 0d 00 39 30 e3 20 41  25 3d 30 20 b8 20 31 30  |...90. A%=0 . 10|
00000560  32 33 3a 73 69 6e 21 28  28 41 25 2b 31 30 32 34  |23:sin!((A%+1024|
00000570  29 2a 34 29 3d 73 69 6e  21 28 41 25 2a 34 29 3a  |)*4)=sin!(A%*4):|
00000580  ed 0d 00 3a 11 de 20 70  65 72 25 20 26 38 30 31  |...:.. per% &801|
00000590  2a 34 0d 00 3b 25 f1 27  22 46 69 6c 6c 69 6e 67  |*4..;%.'"Filling|
000005a0  20 70 65 72 73 70 65 63  74 69 76 65 20 61 72 72  | perspective arr|
000005b0  61 79 2e 2e 2e 22 3b 0d  00 3c 30 e3 20 4e 25 3d  |ay...";..<0. N%=|
000005c0  30 20 b8 20 26 38 30 30  3a 70 65 72 25 21 28 4e  |0 . &800:per%!(N|
000005d0  25 2a 34 29 3d 26 36 30  30 2f 28 31 2b 4e 25 2f  |%*4)=&600/(1+N%/|
000005e0  26 34 30 30 29 3a ed 0d  00 3d 15 de 20 70 74 70  |&400):...=.. ptp|
000005f0  25 28 33 29 2c 73 7a 70  25 28 33 29 0d 00 3e 0e  |%(3),szp%(3)..>.|
00000600  6d 61 78 6f 62 6a 73 25  3d 38 0d 00 3f 1e 77 6f  |maxobjs%=8..?.wo|
00000610  72 6c 64 25 3d a4 63 72  65 61 74 65 28 37 2c 6d  |rld%=.create(7,m|
00000620  61 78 6f 62 6a 73 25 29  0d 00 40 2d de 20 62 67  |axobjs%)..@-. bg|
00000630  64 65 66 25 28 6d 61 78  6f 62 6a 73 25 2c 36 29  |def%(maxobjs%,6)|
00000640  2c 70 75 6c 6c 64 65 66  25 28 6d 61 78 6f 62 6a  |,pulldef%(maxobj|
00000650  73 25 2c 35 29 0d 00 41  0f 69 6e 63 68 25 3d 26  |s%,5)..A.inch%=&|
00000660  42 34 30 30 0d 00 42 0f  f2 61 73 73 65 6d 5f 6e  |B400..B..assem_n|
00000670  65 62 6f 0d 00 43 05 e1  0d 00 44 05 3a 0d 00 45  |ebo..C....D.:..E|
00000680  0f dd 20 f2 64 65 66 61  75 6c 74 73 0d 00 46 17  |.. .defaults..F.|
00000690  78 72 65 73 25 3d 33 32  30 3a 79 72 65 73 25 3d  |xres%=320:yres%=|
000006a0  32 35 36 0d 00 47 0a 72  65 6e 25 3d 32 0d 00 48  |256..G.ren%=2..H|
000006b0  0a 66 73 70 25 3d 31 0d  00 49 0d 72 73 74 79 6c  |.fsp%=1..I.rstyl|
000006c0  65 25 3d 30 0d 00 4a 0c  61 69 6d 25 3d 36 30 30  |e%=0..J.aim%=600|
000006d0  0d 00 4b 13 56 41 25 3d  37 30 30 3a 56 42 25 3d  |..K.VA%=700:VB%=|
000006e0  39 31 32 0d 00 4c 0f 73  74 6f 73 74 79 6c 65 25  |912..L.stostyle%|
000006f0  3d 30 0d 00 4d 24 67 72  61 76 5f 78 25 3d 30 3a  |=0..M$grav_x%=0:|
00000700  67 72 61 76 5f 79 25 3d  30 3a 67 72 61 76 5f 7a  |grav_y%=0:grav_z|
00000710  25 3d 2d 36 30 30 0d 00  4e 0d 64 61 6d 70 73 68  |%=-600..N.dampsh|
00000720  25 3d 32 0d 00 4f 0b 6d  6f 64 65 25 3d 34 0d 00  |%=2..O.mode%=4..|
00000730  50 05 e1 0d 00 51 05 3a  0d 00 52 19 dd 20 f2 72  |P....Q.:..R.. .r|
00000740  65 61 64 5f 73 63 72 69  70 74 28 66 69 6c 65 24  |ead_script(file$|
00000750  29 0d 00 53 05 db 0d 00  54 10 63 68 25 3d 8e 28  |)..S....T.ch%=.(|
00000760  66 69 6c 65 24 29 0d 00  55 2e e7 20 63 68 25 3d  |file$)..U.. ch%=|
00000770  30 20 8c 20 85 20 31 2c  22 43 6f 75 6c 64 20 6e  |0 . . 1,"Could n|
00000780  6f 74 20 6f 70 65 6e 20  73 63 72 69 70 74 20 66  |ot open script f|
00000790  69 6c 65 22 0d 00 56 50  e7 20 a4 6c 69 6e 65 3c  |ile"..VP. .line<|
000007a0  3e 22 66 65 6d 73 32 22  20 8c 20 f2 72 73 65 28  |>"fems2" . .rse(|
000007b0  22 53 63 72 69 70 74 20  66 69 6c 65 20 69 6e 76  |"Script file inv|
000007c0  61 6c 69 64 3a 20 64 69  64 20 6e 6f 74 20 73 74  |alid: did not st|
000007d0  61 72 74 20 77 69 74 68  20 22 22 46 45 4d 53 32  |art with ""FEMS2|
000007e0  22 22 22 29 0d 00 57 0d  f2 64 65 66 61 75 6c 74  |""")..W..default|
000007f0  73 0d 00 58 27 73 6f 6c  69 64 73 25 3d 30 3a 62  |s..X'solids%=0:b|
00000800  61 63 6b 67 72 6f 75 6e  64 73 25 3d 30 3a 6f 62  |ackgrounds%=0:ob|
00000810  6a 65 63 74 73 25 3d 30  0d 00 59 05 f5 0d 00 5a  |jects%=0..Y....Z|
00000820  0d 20 63 24 3d a4 6c 69  6e 65 0d 00 5b 0c 20 c8  |. c$=.line..[. .|
00000830  8e 20 63 24 20 ca 0d 00  5c 36 20 20 c9 20 22 72  |. c$ ...\6  . "r|
00000840  65 6e 64 65 72 69 6e 67  22 3a f2 67 65 74 5f 6f  |endering":.get_o|
00000850  70 65 6e 62 72 61 63 6b  28 63 24 29 3a f2 72 65  |penbrack(c$):.re|
00000860  61 64 5f 72 65 6e 64 65  72 69 6e 67 0d 00 5d 3e  |ad_rendering..]>|
00000870  20 20 c9 20 22 73 6f 6c  69 64 22 3a f2 67 65 74  |  . "solid":.get|
00000880  5f 6f 70 65 6e 62 72 61  63 6b 28 63 24 29 3a 73  |_openbrack(c$):s|
00000890  6f 6c 69 64 73 25 2b 3d  31 3a f2 72 65 61 64 5f  |olids%+=1:.read_|
000008a0  6f 62 6a 65 63 74 28 2d  31 29 0d 00 5e 47 20 20  |object(-1)..^G  |
000008b0  c9 20 22 62 61 63 6b 67  72 6f 75 6e 64 22 3a f2  |. "background":.|
000008c0  67 65 74 5f 6f 70 65 6e  62 72 61 63 6b 28 63 24  |get_openbrack(c$|
000008d0  29 3a 62 61 63 6b 67 72  6f 75 6e 64 73 25 2b 3d  |):backgrounds%+=|
000008e0  31 3a f2 72 65 61 64 5f  6f 62 6a 65 63 74 28 30  |1:.read_object(0|
000008f0  29 0d 00 5f 27 20 20 c9  20 22 66 72 61 6d 65 5f  |).._'  . "frame_|
00000900  61 69 6d 22 3a 61 69 6d  25 3d a4 67 65 74 5f 6e  |aim":aim%=.get_n|
00000910  75 6d 28 63 24 2c 31 29  0d 00 60 26 20 20 c9 20  |um(c$,1)..`&  . |
00000920  22 74 69 6d 65 5f 64 69  76 22 3a 66 73 70 25 3d  |"time_div":fsp%=|
00000930  a4 67 65 74 5f 6e 75 6d  28 63 24 2c 31 29 0d 00  |.get_num(c$,1)..|
00000940  61 56 20 20 c9 20 22 67  72 61 76 69 74 79 22 3a  |aV  . "gravity":|
00000950  67 72 61 76 5f 78 25 3d  a4 67 65 74 5f 6e 75 6d  |grav_x%=.get_num|
00000960  28 63 24 2c 33 29 3a 67  72 61 76 5f 79 25 3d a4  |(c$,3):grav_y%=.|
00000970  67 65 74 5f 6e 75 6d 28  63 24 2c 33 29 3a 67 72  |get_num(c$,3):gr|
00000980  61 76 5f 7a 25 3d a4 67  65 74 5f 6e 75 6d 28 63  |av_z%=.get_num(c|
00000990  24 2c 33 29 0d 00 62 0a  20 20 c9 20 22 22 0d 00  |$,3)..b.  . ""..|
000009a0  63 10 20 20 7f 20 f2 6e  6f 74 5f 72 65 63 0d 00  |c.  . .not_rec..|
000009b0  64 06 20 cb 0d 00 65 0b  fd 20 c5 23 63 68 25 0d  |d. ...e.. .#ch%.|
000009c0  00 66 0f d9 23 63 68 25  3a 63 68 25 3d 30 0d 00  |.f..#ch%:ch%=0..|
000009d0  67 29 e7 20 73 6f 6c 69  64 73 25 3c 31 20 8c 20  |g). solids%<1 . |
000009e0  85 20 31 2c 22 4e 6f 20  73 6f 6c 69 64 73 20 64  |. 1,"No solids d|
000009f0  65 66 69 6e 65 64 22 0d  00 68 33 e7 20 62 61 63  |efined"..h3. bac|
00000a00  6b 67 72 6f 75 6e 64 73  25 3c 31 20 8c 20 85 20  |kgrounds%<1 . . |
00000a10  31 2c 22 4e 6f 20 62 61  63 6b 67 72 6f 75 6e 64  |1,"No background|
00000a20  73 20 64 65 66 69 6e 65  64 22 0d 00 69 05 e1 0d  |s defined"..i...|
00000a30  00 6a 05 3a 0d 00 6b 15  dd 20 f2 72 65 61 64 5f  |.j.:..k.. .read_|
00000a40  72 65 6e 64 65 72 69 6e  67 0d 00 6c 05 f5 0d 00  |rendering..l....|
00000a50  6d 0d 20 63 24 3d a4 6c  69 6e 65 0d 00 6e 0c 20  |m. c$=.line..n. |
00000a60  c8 8e 20 63 24 20 ca 0d  00 6f 48 20 20 c9 20 22  |.. c$ ...oH  . "|
00000a70  74 79 70 65 22 3a 72 73  74 79 6c 65 25 3d a4 73  |type":rstyle%=.s|
00000a80  65 6c 65 63 74 28 63 24  2c a4 6c 69 6e 65 2c 22  |elect(c$,.line,"|
00000a90  61 6c 6c 5f 64 6f 74 73  2c 77 69 72 65 66 72 61  |all_dots,wirefra|
00000aa0  6d 65 2c 64 6f 74 73 2c  6c 69 6e 65 73 22 29 0d  |me,dots,lines").|
00000ab0  00 70 3e 20 20 c9 20 22  72 65 73 6f 6c 75 74 69  |.p>  . "resoluti|
00000ac0  6f 6e 22 3a 78 72 65 73  25 3d a4 67 65 74 5f 6e  |on":xres%=.get_n|
00000ad0  75 6d 28 63 24 2c 32 29  3a 79 72 65 73 25 3d a4  |um(c$,2):yres%=.|
00000ae0  67 65 74 5f 6e 75 6d 28  63 24 2c 32 29 0d 00 71  |get_num(c$,2)..q|
00000af0  38 20 20 c9 20 22 62 61  63 6b 67 72 6f 75 6e 64  |8  . "background|
00000b00  22 3a 72 65 6e 25 3d 32  2a a4 73 65 6c 65 63 74  |":ren%=2*.select|
00000b10  28 63 24 2c a4 6c 69 6e  65 2c 22 62 61 63 6b 2c  |(c$,.line,"back,|
00000b20  6d 69 78 22 29 0d 00 72  31 20 20 c9 20 22 76 69  |mix")..r1  . "vi|
00000b30  65 77 22 3a 56 42 25 3d  28 a4 67 65 74 5f 6e 75  |ew":VB%=(.get_nu|
00000b40  6d 28 63 24 2c 32 29 2a  31 32 38 2f 34 35 29 20  |m(c$,2)*128/45) |
00000b50  80 20 26 33 46 46 0d 00  73 2d 20 20 20 56 41 25  |. &3FF..s-   VA%|
00000b60  3d 28 37 36 38 2d a4 67  65 74 5f 6e 75 6d 28 63  |=(768-.get_num(c|
00000b70  24 2c 32 29 2a 31 32 38  2f 34 35 29 20 80 20 26  |$,2)*128/45) . &|
00000b80  33 46 46 0d 00 74 0e 20  20 c9 20 22 7d 22 2c 22  |3FF..t.  . "}","|
00000b90  22 0d 00 75 10 20 20 7f  20 f2 6e 6f 74 5f 72 65  |"..u.  . .not_re|
00000ba0  63 0d 00 76 06 20 cb 0d  00 77 14 fd 20 c5 23 63  |c..v. ...w.. .#c|
00000bb0  68 25 20 84 20 63 24 3d  22 7d 22 0d 00 78 0b 6d  |h% . c$="}"..x.m|
00000bc0  6f 64 65 25 3d 32 0d 00  79 10 c8 8e 20 72 73 74  |ode%=2..y... rst|
00000bd0  79 6c 65 25 20 ca 0d 00  7a 16 20 c9 20 30 2c 32  |yle% ...z. . 0,2|
00000be0  3a 73 74 6f 73 74 79 6c  65 25 3d 30 0d 00 7b 16  |:stostyle%=0..{.|
00000bf0  20 c9 20 31 2c 33 3a 73  74 6f 73 74 79 6c 65 25  | . 1,3:stostyle%|
00000c00  3d 30 0d 00 7c 1e 20 c9  20 34 3a 73 74 6f 73 74  |=0..|. . 4:stost|
00000c10  79 6c 65 25 3d 2d 31 3a  6d 6f 64 65 25 3d 31 36  |yle%=-1:mode%=16|
00000c20  0d 00 7d 05 cb 0d 00 7e  22 6d 6f 64 65 25 3d a4  |..}....~"mode%=.|
00000c30  6d 6f 64 65 28 78 72 65  73 25 2c 79 72 65 73 25  |mode(xres%,yres%|
00000c40  2c 6d 6f 64 65 25 29 0d  00 7f 33 e7 20 6d 6f 64  |,mode%)...3. mod|
00000c50  65 25 3c 30 20 f2 72 73  65 28 22 4e 6f 20 73 75  |e%<0 .rse("No su|
00000c60  69 74 61 62 6c 65 20 73  63 72 65 65 6e 20 6d 6f  |itable screen mo|
00000c70  64 65 20 66 6f 75 6e 64  22 29 0d 00 80 05 e1 0d  |de found")......|
00000c80  00 81 05 3a 0d 00 82 18  dd 20 f2 72 65 61 64 5f  |...:..... .read_|
00000c90  6f 62 6a 65 63 74 28 73  6f 6c 25 29 0d 00 83 18  |object(sol%)....|
00000ca0  ea 20 6f 74 79 70 65 25  2c 63 24 2c 51 25 2c 57  |. otype%,c$,Q%,W|
00000cb0  25 2c 69 25 0d 00 84 16  6f 74 79 70 65 25 3d 2d  |%,i%....otype%=-|
00000cc0  32 3a 74 68 69 6e 67 25  3d 30 0d 00 85 23 e7 20  |2:thing%=0...#. |
00000cd0  73 6f 6c 25 3d 30 20 51  25 3d 62 61 63 6b 67 72  |sol%=0 Q%=backgr|
00000ce0  6f 75 6e 64 73 25 20 8b  20 51 25 3d 30 0d 00 86  |ounds% . Q%=0...|
00000cf0  0f 57 25 3d 6f 62 6a 65  63 74 73 25 0d 00 87 20  |.W%=objects%... |
00000d00  63 6f 6d 5f 73 74 61 67  65 25 3d 30 3a 66 61 63  |com_stage%=0:fac|
00000d10  6f 25 3d 30 3a 70 6f 63  6f 25 3d 30 0d 00 88 15  |o%=0:poco%=0....|
00000d20  70 75 6c 6c 64 65 66 25  28 57 25 2c 30 29 3d 2d  |pulldef%(W%,0)=-|
00000d30  31 0d 00 89 05 f5 0d 00  8a 0d 20 63 24 3d a4 6c  |1......... c$=.l|
00000d40  69 6e 65 0d 00 8b 0c 20  c8 8e 20 63 24 20 ca 0d  |ine.... .. c$ ..|
00000d50  00 8c 3a 20 20 c9 20 22  63 72 65 61 74 65 22 3a  |..:  . "create":|
00000d60  f2 72 65 61 64 5f 63 72  65 61 74 65 28 73 6f 6c  |.read_create(sol|
00000d70  25 2c 51 25 29 3a 62 67  64 65 66 25 28 51 25 2c  |%,Q%):bgdef%(Q%,|
00000d80  30 29 3d 6f 74 79 70 65  25 0d 00 8d 20 20 20 c9  |0)=otype%...   .|
00000d90  20 22 74 72 61 6e 73 6c  61 74 65 22 3a f2 6e 65  | "translate":.ne|
00000da0  65 64 5f 63 72 65 61 74  65 0d 00 8e 3c 20 20 20  |ed_create...<   |
00000db0  78 25 3d a4 67 65 74 5f  6e 75 6d 28 63 24 2c 33  |x%=.get_num(c$,3|
00000dc0  29 3a 79 25 3d a4 67 65  74 5f 6e 75 6d 28 63 24  |):y%=.get_num(c$|
00000dd0  2c 33 29 3a 7a 25 3d a4  67 65 74 5f 6e 75 6d 28  |,3):z%=.get_num(|
00000de0  63 24 2c 33 29 0d 00 8f  2c 20 20 20 f2 74 72 61  |c$,3)...,   .tra|
00000df0  6e 73 6c 61 74 65 28 74  68 69 6e 67 25 2c 63 6f  |nslate(thing%,co|
00000e00  30 25 2c 63 6f 30 25 2c  78 25 2c 79 25 2c 7a 25  |0%,co0%,x%,y%,z%|
00000e10  29 0d 00 90 36 20 20 20  62 67 64 65 66 25 28 51  |)...6   bgdef%(Q|
00000e20  25 2c 31 29 3d 78 25 3a  62 67 64 65 66 25 28 51  |%,1)=x%:bgdef%(Q|
00000e30  25 2c 32 29 3d 79 25 3a  62 67 64 65 66 25 28 51  |%,2)=y%:bgdef%(Q|
00000e40  25 2c 33 29 3d 7a 25 0d  00 91 46 20 20 c9 20 22  |%,3)=z%...F  . "|
00000e50  72 6f 74 61 74 65 22 3a  e7 20 73 6f 6c 25 3d 30  |rotate":. sol%=0|
00000e60  20 f2 72 73 65 28 22 62  61 63 6b 67 72 6f 75 6e  | .rse("backgroun|
00000e70  64 20 6f 62 6a 65 63 74  73 20 63 61 6e 6e 6f 74  |d objects cannot|
00000e80  20 62 65 20 72 6f 74 61  74 65 64 22 29 0d 00 92  | be rotated")...|
00000e90  6d 20 20 20 f2 6e 65 65  64 5f 63 72 65 61 74 65  |m   .need_create|
00000ea0  3a 41 46 3d 31 32 38 2f  34 35 3a f2 72 6f 74 61  |:AF=128/45:.rota|
00000eb0  74 65 28 74 68 69 6e 67  25 2c 63 6f 30 25 2c 63  |te(thing%,co0%,c|
00000ec0  6f 30 25 2c a4 67 65 74  5f 6e 75 6d 28 63 24 2c  |o0%,.get_num(c$,|
00000ed0  33 29 2a 41 46 2c a4 67  65 74 5f 6e 75 6d 28 63  |3)*AF,.get_num(c|
00000ee0  24 2c 33 29 2a 41 46 2c  a4 67 65 74 5f 6e 75 6d  |$,3)*AF,.get_num|
00000ef0  28 63 24 2c 33 29 2a 41  46 29 0d 00 93 29 20 20  |(c$,3)*AF)...)  |
00000f00  c9 20 22 6e 65 61 72 62  6f 6e 64 73 22 3a f2 72  |. "nearbonds":.r|
00000f10  65 61 64 5f 6e 65 61 72  62 6f 6e 64 73 28 73 6f  |ead_nearbonds(so|
00000f20  6c 25 29 0d 00 94 28 20  20 c9 20 22 64 61 6d 70  |l%)...(  . "damp|
00000f30  69 6e 67 22 3a 64 61 6d  70 73 68 25 3d a4 67 65  |ing":dampsh%=.ge|
00000f40  74 5f 6e 75 6d 28 63 24  2c 31 29 0d 00 95 5e 20  |t_num(c$,1)...^ |
00000f50  20 c9 20 22 76 65 6c 6f  63 69 74 79 22 3a f2 6e  | . "velocity":.n|
00000f60  65 65 64 5f 63 72 65 61  74 65 3a e7 20 73 6f 6c  |eed_create:. sol|
00000f70  25 3d 30 20 f2 72 73 65  28 22 62 61 63 6b 67 72  |%=0 .rse("backgr|
00000f80  6f 75 6e 64 20 6f 62 6a  65 63 74 73 20 63 61 6e  |ound objects can|
00000f90  6e 6f 74 20 62 65 20 67  69 76 65 6e 20 61 20 76  |not be given a v|
00000fa0  65 6c 6f 63 69 74 79 22  29 0d 00 96 49 20 20 20  |elocity")...I   |
00000fb0  f2 73 65 74 5f 76 65 6c  6f 63 69 74 79 28 74 68  |.set_velocity(th|
00000fc0  69 6e 67 25 2c a4 67 65  74 5f 6e 75 6d 28 63 24  |ing%,.get_num(c$|
00000fd0  2c 33 29 2c a4 67 65 74  5f 6e 75 6d 28 63 24 2c  |,3),.get_num(c$,|
00000fe0  33 29 2c a4 67 65 74 5f  6e 75 6d 28 63 24 2c 33  |3),.get_num(c$,3|
00000ff0  29 29 0d 00 97 5a 20 20  c9 20 22 73 63 61 6c 65  |))...Z  . "scale|
00001000  22 3a f2 6e 65 65 64 5f  63 72 65 61 74 65 3a e7  |":.need_create:.|
00001010  20 73 6f 6c 25 3d 30 20  f2 72 73 65 28 22 73 63  | sol%=0 .rse("sc|
00001020  61 6c 65 20 6e 6f 74 20  69 6d 70 6c 65 6d 65 6e  |ale not implemen|
00001030  74 65 64 20 66 6f 72 20  62 61 63 6b 67 72 6f 75  |ted for backgrou|
00001040  6e 64 20 6f 62 6a 65 63  74 73 22 29 0d 00 98 49  |nd objects")...I|
00001050  20 20 20 f2 73 63 61 6c  65 5f 6f 62 6a 65 63 74  |   .scale_object|
00001060  28 74 68 69 6e 67 25 2c  a4 67 65 74 5f 6e 75 6d  |(thing%,.get_num|
00001070  28 63 24 2c 33 29 2c a4  67 65 74 5f 6e 75 6d 28  |(c$,3),.get_num(|
00001080  63 24 2c 33 29 2c a4 67  65 74 5f 6e 75 6d 28 63  |c$,3),.get_num(c|
00001090  24 2c 33 29 29 0d 00 99  43 20 20 c9 20 22 70 75  |$,3))...C  . "pu|
000010a0  6c 6c 22 3a e7 20 73 6f  6c 25 3d 30 20 f2 72 73  |ll":. sol%=0 .rs|
000010b0  65 28 22 62 61 63 6b 67  72 6f 75 6e 64 20 6f 62  |e("background ob|
000010c0  6a 65 63 74 73 20 63 61  6e 6e 6f 74 20 62 65 20  |jects cannot be |
000010d0  70 75 6c 6c 65 64 22 29  0d 00 9a 32 20 20 20 e3  |pulled")...2   .|
000010e0  20 69 25 3d 30 20 b8 20  35 3a 70 75 6c 6c 64 65  | i%=0 . 5:pullde|
000010f0  66 25 28 57 25 2c 69 25  29 3d a4 67 65 74 5f 6e  |f%(W%,i%)=.get_n|
00001100  75 6d 28 63 24 2c 36 29  3a ed 0d 00 9b 49 20 20  |um(c$,6):....I  |
00001110  20 e7 20 70 75 6c 6c 64  65 66 25 28 57 25 2c 32  | . pulldef%(W%,2|
00001120  29 3c 3d 30 20 8c 20 f2  72 73 65 28 22 74 68 65  |)<=0 . .rse("the|
00001130  20 70 75 6c 6c 20 70 6f  69 6e 74 20 73 74 65 70  | pull point step|
00001140  20 6d 75 73 74 20 62 65  20 70 6f 73 69 74 69 76  | must be positiv|
00001150  65 22 29 0d 00 9c 0e 20  20 c9 20 22 7d 22 2c 22  |e")....  . "}","|
00001160  22 0d 00 9d 10 20 20 7f  20 f2 6e 6f 74 5f 72 65  |"....  . .not_re|
00001170  63 0d 00 9e 06 20 cb 0d  00 9f 14 fd 20 c5 23 63  |c.... ...... .#c|
00001180  68 25 20 84 20 63 24 3d  22 7d 22 0d 00 a0 39 e7  |h% . c$="}"...9.|
00001190  20 70 6f 63 6f 25 3e 74  68 69 6e 67 25 21 6e 6f  | poco%>thing%!no|
000011a0  70 25 20 8c 20 f2 72 73  65 28 22 74 6f 6f 20 6d  |p% . .rse("too m|
000011b0  61 6e 79 20 70 6f 69 6e  74 73 20 63 72 65 61 74  |any points creat|
000011c0  65 64 22 29 0d 00 a1 15  74 68 69 6e 67 25 21 6e  |ed")....thing%!n|
000011d0  6f 70 25 3d 70 6f 63 6f  25 0d 00 a2 39 e7 20 66  |op%=poco%...9. f|
000011e0  61 63 6f 25 3e 74 68 69  6e 67 25 21 6e 6f 66 25  |aco%>thing%!nof%|
000011f0  20 8c 20 f2 72 73 65 28  22 74 6f 6f 20 6d 61 6e  | . .rse("too man|
00001200  79 20 66 61 63 65 74 73  20 63 72 65 61 74 65 64  |y facets created|
00001210  22 29 0d 00 a3 15 74 68  69 6e 67 25 21 6e 6f 66  |")....thing%!nof|
00001220  25 3d 66 61 63 6f 25 0d  00 a4 05 e1 0d 00 a5 05  |%=faco%.........|
00001230  3a 0d 00 a6 1b dd 20 f2  72 65 61 64 5f 6e 65 61  |:..... .read_nea|
00001240  72 62 6f 6e 64 73 28 73  6f 6c 25 29 0d 00 a7 48  |rbonds(sol%)...H|
00001250  e7 20 73 6f 6c 25 3d 30  20 8c 20 f2 72 73 65 28  |. sol%=0 . .rse(|
00001260  22 6e 65 61 72 62 6f 6e  64 73 20 69 73 20 6e 6f  |"nearbonds is no|
00001270  74 20 61 70 70 6c 69 63  61 62 6c 65 20 74 6f 20  |t applicable to |
00001280  62 61 63 6b 67 72 6f 75  6e 64 20 6f 62 6a 65 63  |background objec|
00001290  74 73 22 29 0d 00 a8 16  f2 67 65 74 5f 6f 70 65  |ts").....get_ope|
000012a0  6e 62 72 61 63 6b 28 63  24 29 0d 00 a9 10 f2 6e  |nbrack(c$).....n|
000012b0  65 65 64 5f 63 72 65 61  74 65 0d 00 aa 12 ea 20  |eed_create..... |
000012c0  63 24 2c 6c 61 6d 62 64  61 25 2c 52 0d 00 ab 14  |c$,lambda%,R....|
000012d0  6c 61 6d 62 64 61 25 3d  33 30 3a 52 3d 32 2e 35  |lambda%=30:R=2.5|
000012e0  0d 00 ac 05 f5 0d 00 ad  0d 20 63 24 3d a4 6c 69  |......... c$=.li|
000012f0  6e 65 0d 00 ae 0c 20 c8  8e 20 63 24 20 ca 0d 00  |ne.... .. c$ ...|
00001300  af 2d 20 20 c9 20 22 73  70 72 69 6e 67 5f 63 6f  |.-  . "spring_co|
00001310  6e 73 74 22 3a 6c 61 6d  62 64 61 25 3d a4 67 65  |nst":lambda%=.ge|
00001320  74 5f 6e 75 6d 28 63 24  2c 31 29 0d 00 b0 20 20  |t_num(c$,1)...  |
00001330  20 c9 20 22 72 61 6e 67  65 22 3a 52 3d a4 67 65  | . "range":R=.ge|
00001340  74 5f 6e 75 6d 28 63 24  2c 31 29 0d 00 b1 0e 20  |t_num(c$,1).... |
00001350  20 c9 20 22 7d 22 2c 22  22 0d 00 b2 10 20 20 7f  | . "}",""....  .|
00001360  20 f2 6e 6f 74 5f 72 65  63 0d 00 b3 06 20 cb 0d  | .not_rec.... ..|
00001370  00 b4 14 fd 20 c5 23 63  68 25 20 84 20 63 24 3d  |.... .#ch% . c$=|
00001380  22 7d 22 0d 00 b5 2b ea  20 63 25 2c 6c 73 25 2c  |"}"...+. c%,ls%,|
00001390  6d 73 25 2c 45 25 2c 46  25 2c 43 25 2c 41 25 2c  |ms%,E%,F%,C%,A%,|
000013a0  42 25 2c 47 25 2c 48 25  2c 73 25 2c 44 25 0d 00  |B%,G%,H%,s%,D%..|
000013b0  b6 19 6c 73 25 3d 73 7a  70 25 28 30 29 3a 6d 73  |..ls%=szp%(0):ms|
000013c0  25 3d 52 2a 6c 73 25 0d  00 b7 17 63 25 3d 6c 61  |%=R*ls%....c%=la|
000013d0  6d 62 64 61 25 2a 66 73  70 25 2a 6c 73 25 0d 00  |mbda%*fsp%*ls%..|
000013e0  b8 21 73 25 3d 30 3a c8  95 20 28 6d 73 25 3e 3e  |.!s%=0:.. (ms%>>|
000013f0  73 25 29 3e 32 35 35 3a  73 25 2b 3d 31 3a ce 0d  |s%)>255:s%+=1:..|
00001400  00 b9 25 6d 73 25 3d 6d  73 25 3e 3e 73 25 3a 63  |..%ms%=ms%>>s%:c|
00001410  25 3d 63 25 3e 3e 73 25  3a 6c 73 25 3d 6c 73 25  |%=c%>>s%:ls%=ls%|
00001420  3e 3e 73 25 0d 00 ba 11  21 73 63 72 61 70 25 3d  |>>s%....!scrap%=|
00001430  31 3c 3c 73 25 0d 00 bb  3f 42 25 3d a8 28 63 25  |1<<s%...?B%=.(c%|
00001440  2f 6c 73 25 29 3c 3c 32  34 3a e3 20 43 25 3d 31  |/ls%)<<24:. C%=1|
00001450  20 b8 20 6c 73 25 3a 73  63 72 61 70 25 21 28 43  | . ls%:scrap%!(C|
00001460  25 2a 34 29 3d 28 43 25  3c 3c 73 25 29 20 84 20  |%*4)=(C%<<s%) . |
00001470  42 25 3a ed 0d 00 bc 3e  e3 20 43 25 3d 6c 73 25  |B%:....>. C%=ls%|
00001480  2b 31 20 b8 20 6d 73 25  3a 73 63 72 61 70 25 21  |+1 . ms%:scrap%!|
00001490  28 43 25 2a 34 29 3d 28  43 25 3c 3c 73 25 29 20  |(C%*4)=(C%<<s%) |
000014a0  84 20 28 a8 28 63 25 2f  43 25 29 3c 3c 32 34 29  |. (.(c%/C%)<<24)|
000014b0  3a ed 0d 00 bd 15 21 6e  65 62 6f 62 6c 6f 63 6b  |:.....!neboblock|
000014c0  3d 73 63 72 61 70 25 0d  00 be 17 6e 65 62 6f 62  |=scrap%....nebob|
000014d0  6c 6f 63 6b 21 34 3d 6d  73 25 2a 6d 73 25 0d 00  |lock!4=ms%*ms%..|
000014e0  bf 13 6e 65 62 6f 62 6c  6f 63 6b 21 31 32 3d 73  |..neboblock!12=s|
000014f0  25 0d 00 c0 1b 6e 65 62  6f 62 6c 6f 63 6b 21 31  |%....neboblock!1|
00001500  36 3d 28 2e 35 2a 6c 73  25 29 5e 32 0d 00 c1 21  |6=(.5*ls%)^2...!|
00001510  48 25 3d 74 68 69 6e 67  25 21 63 6f 30 25 3a 45  |H%=thing%!co0%:E|
00001520  25 3d 74 68 69 6e 67 25  21 70 74 73 25 0d 00 c2  |%=thing%!pts%...|
00001530  13 42 25 3d ba 28 6e 65  61 72 63 6f 75 6e 74 29  |.B%=.(nearcount)|
00001540  0d 00 c3 12 74 68 69 6e  67 25 21 6e 6f 62 25 3d  |....thing%!nob%=|
00001550  42 25 0d 00 c4 1d 74 68  69 6e 67 25 21 62 6e 64  |B%....thing%!bnd|
00001560  25 3d a4 63 72 65 61 74  65 28 36 2c 42 25 29 0d  |%=.create(6,B%).|
00001570  00 c5 1b 6e 65 62 6f 62  6c 6f 63 6b 21 38 3d 74  |...neboblock!8=t|
00001580  68 69 6e 67 25 21 62 6e  64 25 0d 00 c6 20 44 25  |hing%!bnd%... D%|
00001590  3d 74 68 69 6e 67 25 21  62 6e 64 25 2b 38 2a 74  |=thing%!bnd%+8*t|
000015a0  68 69 6e 67 25 21 6e 6f  62 25 0d 00 c7 0e d6 20  |hing%!nob%..... |
000015b0  6e 65 61 72 62 6f 6e 64  0d 00 c8 12 42 25 3d 6e  |nearbond....B%=n|
000015c0  65 62 6f 62 6c 6f 63 6b  21 38 0d 00 c9 0f e7 20  |eboblock!8..... |
000015d0  42 25 3e 44 25 20 8c 20  e0 0d 00 ca 22 74 68 69  |B%>D% . ...."thi|
000015e0  6e 67 25 21 6e 6f 62 25  3d 28 42 25 2d 74 68 69  |ng%!nob%=(B%-thi|
000015f0  6e 67 25 21 62 6e 64 25  29 2f 38 0d 00 cb 05 e1  |ng%!bnd%)/8.....|
00001600  0d 00 cc 05 3a 0d 00 cd  1b dd 20 f2 72 65 61 64  |....:..... .read|
00001610  5f 63 72 65 61 74 65 28  73 6f 6c 25 2c 51 25 29  |_create(sol%,Q%)|
00001620  0d 00 ce 16 f2 67 65 74  5f 6f 70 65 6e 62 72 61  |.....get_openbra|
00001630  63 6b 28 63 24 29 0d 00  cf 37 e7 20 a4 6c 69 6e  |ck(c$)...7. .lin|
00001640  65 3c 3e 22 74 79 70 65  22 20 8c 20 f2 72 73 65  |e<>"type" . .rse|
00001650  28 22 63 72 65 61 74 65  20 6e 65 65 64 73 20 61  |("create needs a|
00001660  20 74 79 70 65 20 66 69  72 73 74 22 29 0d 00 d0  | type first")...|
00001670  1d ea 20 63 24 2c 6f 24  2c 6f 66 66 78 25 2c 6f  |.. c$,o$,offx%,o|
00001680  66 66 79 25 2c 6f 66 66  7a 25 0d 00 d1 1b 6f 66  |ffy%,offz%....of|
00001690  66 78 25 3d 30 3a 6f 66  66 79 25 3d 30 3a 6f 66  |fx%=0:offy%=0:of|
000016a0  66 7a 25 3d 30 0d 00 d2  0c 6f 24 3d a4 6c 69 6e  |fz%=0....o$=.lin|
000016b0  65 0d 00 d3 4b 6f 74 79  70 65 25 3d a4 73 65 6c  |e...Kotype%=.sel|
000016c0  65 63 74 28 63 24 2c 6f  24 2c 22 63 6f 6d 70 6f  |ect(c$,o$,"compo|
000016d0  75 6e 64 2c 73 68 65 65  74 2c 63 75 62 65 2c 74  |und,sheet,cube,t|
000016e0  75 62 65 2c 73 70 68 65  72 65 2c 73 74 61 69 72  |ube,sphere,stair|
000016f0  73 2c 63 75 62 6f 69 64  22 29 2d 31 0d 00 d4 0f  |s,cuboid")-1....|
00001700  c8 8e 20 6f 74 79 70 65  25 20 ca 0d 00 d5 1c 20  |.. otype% ..... |
00001710  c9 20 30 2c 31 2c 33 3a  6e 70 74 70 25 3d 31 3a  |. 0,1,3:nptp%=1:|
00001720  6e 73 7a 70 25 3d 31 0d  00 d6 1c 20 c9 20 32 2c  |nszp%=1.... . 2,|
00001730  34 2c 35 3a 6e 70 74 70  25 3d 33 3a 6e 73 7a 70  |4,5:nptp%=3:nszp|
00001740  25 3d 33 0d 00 d7 22 20  c9 20 2d 31 3a f2 72 65  |%=3..." . -1:.re|
00001750  61 64 5f 63 6f 6d 70 6f  75 6e 64 3a 6f 74 79 70  |ad_compound:otyp|
00001760  65 25 3d 2d 31 0d 00 d8  05 cb 0d 00 d9 12 e7 20  |e%=-1.......... |
00001770  6f 74 79 70 65 25 3c 30  20 8c 20 e1 0d 00 da 05  |otype%<0 . .....|
00001780  f5 0d 00 db 0d 20 63 24  3d a4 6c 69 6e 65 0d 00  |..... c$=.line..|
00001790  dc 0c 20 c8 8e 20 63 24  20 ca 0d 00 dd 44 20 20  |.. .. c$ ....D  |
000017a0  c9 20 22 70 6f 69 6e 74  73 22 3a e3 20 69 25 3d  |. "points":. i%=|
000017b0  31 20 b8 20 6e 70 74 70  25 3a 70 74 70 25 28 69  |1 . nptp%:ptp%(i|
000017c0  25 29 3d a4 67 65 74 5f  6e 75 6d 28 6f 24 2b 22  |%)=.get_num(o$+"|
000017d0  20 22 2b 63 24 2c 6e 70  74 70 25 29 3a ed 0d 00  | "+c$,nptp%):...|
000017e0  de 5b 20 20 c9 20 22 73  69 7a 65 22 3a e3 20 69  |.[  . "size":. i|
000017f0  25 3d 31 20 b8 20 6e 73  7a 70 25 3a 73 7a 70 25  |%=1 . nszp%:szp%|
00001800  28 69 25 29 3d a4 67 65  74 5f 6e 75 6d 28 6f 24  |(i%)=.get_num(o$|
00001810  2b 22 20 22 2b 63 24 2c  6e 73 7a 70 25 29 3a 62  |+" "+c$,nszp%):b|
00001820  67 64 65 66 25 28 51 25  2c 69 25 2b 33 29 3d 73  |gdef%(Q%,i%+3)=s|
00001830  7a 70 25 28 69 25 29 3a  ed 0d 00 df 4f 20 20 c9  |zp%(i%):....O  .|
00001840  20 22 6f 66 66 73 65 74  22 3a 6f 66 66 78 25 3d  | "offset":offx%=|
00001850  a4 67 65 74 5f 6e 75 6d  28 63 24 2c 33 29 3a 6f  |.get_num(c$,3):o|
00001860  66 66 79 25 3d a4 67 65  74 5f 6e 75 6d 28 63 24  |ffy%=.get_num(c$|
00001870  2c 33 29 3a 6f 66 66 7a  25 3d a4 67 65 74 5f 6e  |,3):offz%=.get_n|
00001880  75 6d 28 63 24 2c 33 29  0d 00 e0 0e 20 20 c9 20  |um(c$,3)....  . |
00001890  22 7d 22 2c 22 22 0d 00  e1 10 20 20 7f 20 f2 6e  |"}",""....  . .n|
000018a0  6f 74 5f 72 65 63 0d 00  e2 06 20 cb 0d 00 e3 14  |ot_rec.... .....|
000018b0  fd 20 c5 23 63 68 25 20  84 20 63 24 3d 22 7d 22  |. .#ch% . c$="}"|
000018c0  0d 00 e4 17 e7 20 a0 28  22 46 4e 63 72 65 61 74  |..... .("FNcreat|
000018d0  65 5f 22 2b 6f 24 29 0d  00 e5 05 e1 0d 00 e6 05  |e_"+o$).........|
000018e0  3a 0d 00 e7 14 dd 20 f2  72 65 61 64 5f 63 6f 6d  |:..... .read_com|
000018f0  70 6f 75 6e 64 0d 00 e8  0b ea 20 50 25 2c 63 24  |pound..... P%,c$|
00001900  0d 00 e9 3c e7 20 63 6f  6d 5f 73 74 61 67 65 25  |...<. com_stage%|
00001910  3e 30 20 f2 72 73 65 28  22 43 6f 6d 70 6f 75 6e  |>0 .rse("Compoun|
00001920  64 20 6f 62 6a 65 63 74  73 20 63 61 6e 6e 6f 74  |d objects cannot|
00001930  20 62 65 20 6e 65 73 74  65 64 22 29 0d 00 ea 19  | be nested")....|
00001940  63 6f 6d 5f 6e 6f 70 25  3d 30 3a 63 6f 6d 5f 6e  |com_nop%=0:com_n|
00001950  6f 66 25 3d 30 0d 00 eb  0c 50 25 3d 8f 23 63 68  |of%=0....P%=.#ch|
00001960  25 0d 00 ec 16 e3 20 63  6f 6d 5f 73 74 61 67 65  |%..... com_stage|
00001970  25 3d 31 20 b8 20 32 0d  00 ed 34 20 f1 27 22 2a  |%=1 . 2...4 .'"*|
00001980  2a 20 63 6f 6d 70 6f 75  6e 64 20 6f 62 6a 65 63  |* compound objec|
00001990  74 20 2d 20 70 61 73 73  20 22 3b 63 6f 6d 5f 73  |t - pass ";com_s|
000019a0  74 61 67 65 25 3b 22 20  2a 2a 22 0d 00 ee 0d 20  |tage%;" **".... |
000019b0  cf 23 63 68 25 3d 50 25  0d 00 ef 6c 20 e7 20 63  |.#ch%=P%...l . c|
000019c0  6f 6d 5f 73 74 61 67 65  25 3d 32 20 8c 20 63 6f  |om_stage%=2 . co|
000019d0  6d 5f 73 74 61 67 65 25  3d 30 3a 63 6f 6d 5f 74  |m_stage%=0:com_t|
000019e0  68 69 6e 67 25 3d a4 63  72 65 61 74 65 5f 6f 62  |hing%=.create_ob|
000019f0  6a 65 63 74 28 63 6f 6d  5f 6e 6f 70 25 2c 63 6f  |ject(com_nop%,co|
00001a00  6d 5f 6e 6f 66 25 29 3a  63 6f 6d 5f 73 74 61 67  |m_nof%):com_stag|
00001a10  65 25 3d 32 3a 66 61 63  6f 25 3d 30 3a 70 6f 63  |e%=2:faco%=0:poc|
00001a20  6f 25 3d 30 0d 00 f0 06  20 f5 0d 00 f1 0e 20 20  |o%=0.... .....  |
00001a30  63 24 3d a4 6c 69 6e 65  0d 00 f2 0d 20 20 c8 8e  |c$=.line....  ..|
00001a40  20 63 24 20 ca 0d 00 f3  22 20 20 20 c9 20 22 70  | c$ ...."   . "p|
00001a50  61 72 74 22 3a f2 72 65  61 64 5f 63 72 65 61 74  |art":.read_creat|
00001a60  65 28 2d 31 2c 30 29 0d  00 f4 0d 20 20 20 c9 20  |e(-1,0)....   . |
00001a70  22 7d 22 3a 0d 00 f5 2b  20 20 20 7f 3a f2 72 73  |"}":...+   .:.rs|
00001a80  65 28 22 45 78 70 65 63  74 65 64 20 22 22 70 61  |e("Expected ""pa|
00001a90  72 74 22 22 20 6f 72 20  22 22 7d 22 22 22 29 0d  |rt"" or ""}""").|
00001aa0  00 f6 07 20 20 cb 0d 00  f7 0d 20 fd 20 63 24 3d  |...  ..... . c$=|
00001ab0  22 7d 22 0d 00 f8 05 ed  0d 00 f9 10 63 6f 6d 5f  |"}".........com_|
00001ac0  73 74 61 67 65 25 3d 30  0d 00 fa 23 f2 73 65 74  |stage%=0...#.set|
00001ad0  5f 76 65 6c 6f 63 69 74  79 28 63 6f 6d 5f 74 68  |_velocity(com_th|
00001ae0  69 6e 67 25 2c 30 2c 30  2c 30 29 0d 00 fb 05 e1  |ing%,0,0,0).....|
00001af0  0d 00 fc 05 3a 0d 00 fd  12 dd 20 f2 6e 65 65 64  |....:..... .need|
00001b00  5f 63 72 65 61 74 65 0d  00 fe 4e e7 20 6f 74 79  |_create...N. oty|
00001b10  70 65 25 3d 2d 32 20 8c  20 f2 72 73 65 28 22 59  |pe%=-2 . .rse("Y|
00001b20  6f 75 20 6e 65 65 64 20  74 6f 20 63 72 65 61 74  |ou need to creat|
00001b30  65 20 74 68 65 20 6f 62  6a 65 63 74 20 62 65 66  |e the object bef|
00001b40  6f 72 65 20 79 6f 75 20  63 61 6e 20 64 6f 20 74  |ore you can do t|
00001b50  68 69 73 22 29 0d 00 ff  05 e1 0d 01 00 05 3a 0d  |his").........:.|
00001b60  01 01 24 dd 20 f2 73 65  74 5f 76 65 6c 6f 63 69  |..$. .set_veloci|
00001b70  74 79 28 74 68 69 6e 67  25 2c 78 25 2c 79 25 2c  |ty(thing%,x%,y%,|
00001b80  7a 25 29 0d 01 02 17 e7  20 63 6f 6d 5f 73 74 61  |z%)..... com_sta|
00001b90  67 65 25 3c 3e 30 20 8c  20 e1 0d 01 03 0b ea 20  |ge%<>0 . ...... |
00001ba0  50 25 2c 41 25 0d 01 04  1b 50 25 3d 74 68 69 6e  |P%,A%....P%=thin|
00001bb0  67 25 21 76 65 6c 25 3a  e7 20 50 25 3d 30 20 e1  |g%!vel%:. P%=0 .|
00001bc0  0d 01 05 1a e3 20 41 25  3d 30 20 b8 20 74 68 69  |..... A%=0 . thi|
00001bd0  6e 67 25 21 6e 6f 70 25  2d 31 0d 01 06 24 20 50  |ng%!nop%-1...$ P|
00001be0  25 21 30 3d 2d 7a 25 3a  50 25 21 34 3d 78 25 3a  |%!0=-z%:P%!4=x%:|
00001bf0  50 25 21 38 3d 79 25 3a  50 25 2b 3d 31 32 0d 01  |P%!8=y%:P%+=12..|
00001c00  07 05 ed 0d 01 08 05 e1  0d 01 09 05 3a 0d 01 0a  |............:...|
00001c10  21 dd 20 f2 73 63 61 6c  65 5f 6f 62 6a 65 63 74  |!. .scale_object|
00001c20  28 74 68 69 6e 67 25 2c  58 2c 59 2c 5a 29 0d 01  |(thing%,X,Y,Z)..|
00001c30  0b 0b ea 20 50 25 2c 41  25 0d 01 0c 24 e7 20 73  |... P%,A%...$. s|
00001c40  6f 6c 25 20 73 7a 70 25  28 30 29 3d 73 7a 70 25  |ol% szp%(0)=szp%|
00001c50  28 30 29 2a 28 58 2b 59  2b 5a 29 2f 33 0d 01 0d  |(0)*(X+Y+Z)/3...|
00001c60  1b 50 25 3d 74 68 69 6e  67 25 21 63 6f 30 25 3a  |.P%=thing%!co0%:|
00001c70  e7 20 50 25 3d 30 20 e1  0d 01 0e 1a e3 20 41 25  |. P%=0 ...... A%|
00001c80  3d 30 20 b8 20 74 68 69  6e 67 25 21 6e 6f 70 25  |=0 . thing%!nop%|
00001c90  2d 31 0d 01 0f 2f 20 50  25 21 30 3d 50 25 21 30  |-1.../ P%!0=P%!0|
00001ca0  2a 5a 3a 50 25 21 34 3d  50 25 21 34 2a 58 3a 50  |*Z:P%!4=P%!4*X:P|
00001cb0  25 21 38 3d 50 25 21 38  2a 59 3a 50 25 2b 3d 31  |%!8=P%!8*Y:P%+=1|
00001cc0  32 0d 01 10 05 ed 0d 01  11 05 e1 0d 01 12 05 3a  |2..............:|
00001cd0  0d 01 13 13 dd 20 a4 63  72 65 61 74 65 5f 73 68  |..... .create_sh|
00001ce0  65 65 74 0d 01 14 0f ea  20 63 6f 25 2c 41 25 2c  |eet..... co%,A%,|
00001cf0  4e 25 0d 01 15 25 4e 25  3d 70 74 70 25 28 31 29  |N%...%N%=ptp%(1)|
00001d00  3a 73 7a 70 25 28 30 29  3d 73 7a 70 25 28 31 29  |:szp%(0)=szp%(1)|
00001d10  2f 28 4e 25 2d 31 29 0d  01 16 2a 74 68 69 6e 67  |/(N%-1)...*thing|
00001d20  25 3d a4 63 72 65 61 74  65 5f 6f 62 6a 65 63 74  |%=.create_object|
00001d30  28 4e 25 5e 32 2c 32 2a  28 4e 25 2d 31 29 5e 32  |(N%^2,2*(N%-1)^2|
00001d40  29 0d 01 17 13 e7 20 74  68 69 6e 67 25 3d 30 20  |)..... thing%=0 |
00001d50  8c 20 3d 30 0d 01 18 15  6f 66 66 78 25 2d 3d 2e  |. =0....offx%-=.|
00001d60  35 2a 73 7a 70 25 28 31  29 0d 01 19 15 6f 66 66  |5*szp%(1)....off|
00001d70  79 25 2d 3d 2e 35 2a 73  7a 70 25 28 31 29 0d 01  |y%-=.5*szp%(1)..|
00001d80  1a 1c 63 6f 25 3d 74 68  69 6e 67 25 21 63 6f 30  |..co%=thing%!co0|
00001d90  25 2b 70 6f 63 6f 25 2a  31 32 0d 01 1b 1a e3 20  |%+poco%*12..... |
00001da0  41 25 3d 30 20 b8 20 74  68 69 6e 67 25 21 6e 6f  |A%=0 . thing%!no|
00001db0  70 25 2d 31 0d 01 1c 11  20 63 6f 25 21 30 3d 2d  |p%-1.... co%!0=-|
00001dc0  6f 66 66 7a 25 0d 01 1d  22 20 63 6f 25 21 34 3d  |offz%..." co%!4=|
00001dd0  73 7a 70 25 28 30 29 2a  28 41 25 20 83 20 4e 25  |szp%(0)*(A% . N%|
00001de0  29 2b 6f 66 66 78 25 0d  01 1e 22 20 63 6f 25 21  |)+offx%..." co%!|
00001df0  38 3d 73 7a 70 25 28 30  29 2a 28 41 25 20 81 20  |8=szp%(0)*(A% . |
00001e00  4e 25 29 2b 6f 66 66 79  25 0d 01 1f 0c 20 63 6f  |N%)+offy%.... co|
00001e10  25 2b 3d 31 32 0d 01 20  05 ed 0d 01 21 47 e7 20  |%+=12.. ....!G. |
00001e20  a4 73 75 72 66 61 63 65  28 74 68 69 6e 67 25 2c  |.surface(thing%,|
00001e30  74 68 69 6e 67 25 21 66  61 63 25 2b 66 61 63 6f  |thing%!fac%+faco|
00001e40  25 2a 65 6c 73 69 7a 25  28 33 29 2c 70 6f 63 6f  |%*elsiz%(3),poco|
00001e50  25 2c 31 2c 4e 25 2c 4e  25 2c 4e 25 2c 30 2c 30  |%,1,N%,N%,N%,0,0|
00001e60  29 0d 01 22 16 70 6f 63  6f 25 2b 3d 74 68 69 6e  |)..".poco%+=thin|
00001e70  67 25 21 6e 6f 70 25 0d  01 23 1f f2 73 65 74 5f  |g%!nop%..#..set_|
00001e80  76 65 6c 6f 63 69 74 79  28 74 68 69 6e 67 25 2c  |velocity(thing%,|
00001e90  30 2c 30 2c 30 29 0d 01  24 06 3d 30 0d 01 25 05  |0,0,0)..$.=0..%.|
00001ea0  3a 0d 01 26 14 dd 20 a4  63 72 65 61 74 65 5f 73  |:..&.. .create_s|
00001eb0  70 68 65 72 65 0d 01 27  22 ea 20 63 6f 25 2c 41  |phere..'". co%,A|
00001ec0  25 2c 43 25 2c 52 25 2c  57 25 2c 4e 25 2c 58 25  |%,C%,R%,W%,N%,X%|
00001ed0  2c 42 2c 43 2c 41 53 0d  01 28 16 4e 25 3d 70 74  |,B,C,AS..(.N%=pt|
00001ee0  70 25 28 31 29 3a 58 25  3d 4e 25 2a 32 0d 01 29  |p%(1):X%=N%*2..)|
00001ef0  2e 74 68 69 6e 67 25 3d  a4 63 72 65 61 74 65 5f  |.thing%=.create_|
00001f00  6f 62 6a 65 63 74 28 4e  25 2a 28 4e 25 2b 31 29  |object(N%*(N%+1)|
00001f10  2a 32 2c 34 2a 4e 25 2a  4e 25 29 0d 01 2a 13 e7  |*2,4*N%*N%)..*..|
00001f20  20 74 68 69 6e 67 25 3d  30 20 8c 20 3d 30 0d 01  | thing%=0 . =0..|
00001f30  2b 24 52 25 3d 73 7a 70  25 28 31 29 3a 73 7a 70  |+$R%=szp%(1):szp|
00001f40  25 28 30 29 3d 2e 35 2a  73 7a 70 25 28 31 29 2f  |%(0)=.5*szp%(1)/|
00001f50  4e 25 0d 01 2c 0b 41 53  3d af 2f 4e 25 0d 01 2d  |N%..,.AS=./N%..-|
00001f60  1c 63 6f 25 3d 74 68 69  6e 67 25 21 63 6f 30 25  |.co%=thing%!co0%|
00001f70  2b 70 6f 63 6f 25 2a 31  32 0d 01 2e 18 e3 20 41  |+poco%*12..... A|
00001f80  25 3d 30 20 b8 20 28 4e  25 2b 31 29 2a 58 25 2d  |%=0 . (N%+1)*X%-|
00001f90  31 0d 01 2f 13 20 42 3d  28 41 25 20 81 20 58 25  |1../. B=(A% . X%|
00001fa0  29 2a 41 53 0d 01 30 13  20 43 3d 28 41 25 20 83  |)*AS..0. C=(A% .|
00001fb0  20 58 25 29 2a 41 53 0d  01 31 18 20 63 6f 25 21  | X%)*AS..1. co%!|
00001fc0  30 3d 52 25 2a 9b 28 42  29 2d 6f 66 66 7a 25 0d  |0=R%*.(B)-offz%.|
00001fd0  01 32 20 20 57 25 3d 52  25 2a b5 28 42 29 3a e7  |.2  W%=R%*.(B):.|
00001fe0  20 57 25 3d 30 20 57 25  3d 52 25 2a 2e 30 35 0d  | W%=0 W%=R%*.05.|
00001ff0  01 33 18 20 63 6f 25 21  34 3d 57 25 2a 9b 28 43  |.3. co%!4=W%*.(C|
00002000  29 2b 6f 66 66 78 25 0d  01 34 18 20 63 6f 25 21  |)+offx%..4. co%!|
00002010  38 3d 57 25 2a b5 28 43  29 2b 6f 66 66 79 25 0d  |8=W%*.(C)+offy%.|
00002020  01 35 0c 20 63 6f 25 2b  3d 31 32 0d 01 36 05 ed  |.5. co%+=12..6..|
00002030  0d 01 37 49 e7 20 a4 73  75 72 66 61 63 65 28 74  |..7I. .surface(t|
00002040  68 69 6e 67 25 2c 74 68  69 6e 67 25 21 66 61 63  |hing%,thing%!fac|
00002050  25 2b 66 61 63 6f 25 2a  65 6c 73 69 7a 25 28 33  |%+faco%*elsiz%(3|
00002060  29 2c 70 6f 63 6f 25 2c  31 2c 58 25 2c 58 25 2c  |),poco%,1,X%,X%,|
00002070  4e 25 2b 31 2c 31 2c 31  29 0d 01 38 14 70 6f 63  |N%+1,1,1)..8.poc|
00002080  6f 25 2b 3d 28 4e 25 2b  31 29 2a 58 25 0d 01 39  |o%+=(N%+1)*X%..9|
00002090  1f f2 73 65 74 5f 76 65  6c 6f 63 69 74 79 28 74  |..set_velocity(t|
000020a0  68 69 6e 67 25 2c 30 2c  30 2c 30 29 0d 01 3a 06  |hing%,0,0,0)..:.|
000020b0  3d 30 0d 01 3b 05 3a 0d  01 3c 12 dd 20 a4 63 72  |=0..;.:..<.. .cr|
000020c0  65 61 74 65 5f 63 75 62  65 0d 01 3d 23 70 74 70  |eate_cube..=#ptp|
000020d0  25 28 32 29 3d 70 74 70  25 28 31 29 3a 70 74 70  |%(2)=ptp%(1):ptp|
000020e0  25 28 33 29 3d 70 74 70  25 28 31 29 0d 01 3e 23  |%(3)=ptp%(1)..>#|
000020f0  73 7a 70 25 28 32 29 3d  73 7a 70 25 28 31 29 3a  |szp%(2)=szp%(1):|
00002100  73 7a 70 25 28 33 29 3d  73 7a 70 25 28 31 29 0d  |szp%(3)=szp%(1).|
00002110  01 3f 49 e7 20 63 6f 6d  5f 73 74 61 67 65 25 3c  |.?I. com_stage%<|
00002120  3e 31 20 6f 66 66 78 25  2d 3d 2e 35 2a 73 7a 70  |>1 offx%-=.5*szp|
00002130  25 28 31 29 3a 6f 66 66  79 25 2d 3d 2e 35 2a 73  |%(1):offy%-=.5*s|
00002140  7a 70 25 28 31 29 3a 6f  66 66 7a 25 2d 3d 2e 35  |zp%(1):offz%-=.5|
00002150  2a 73 7a 70 25 28 31 29  0d 01 40 13 3d a4 63 72  |*szp%(1)..@.=.cr|
00002160  65 61 74 65 5f 63 75 62  6f 69 64 0d 01 41 05 3a  |eate_cuboid..A.:|
00002170  0d 01 42 12 dd 20 a4 63  72 65 61 74 65 5f 74 75  |..B.. .create_tu|
00002180  62 65 0d 01 43 26 ea 20  41 25 2c 43 25 2c 44 25  |be..C&. A%,C%,D%|
00002190  2c 63 6f 25 2c 41 2c 52  25 2c 4e 31 25 2c 4e 32  |,co%,A,R%,N1%,N2|
000021a0  25 2c 4e 33 25 2c 41 53  0d 01 44 27 4e 31 25 3d  |%,N3%,AS..D'N1%=|
000021b0  70 74 70 25 28 31 29 3a  4e 32 25 3d 70 74 70 25  |ptp%(1):N2%=ptp%|
000021c0  28 32 29 3a 4e 33 25 3d  70 74 70 25 28 33 29 0d  |(2):N3%=ptp%(3).|
000021d0  01 45 38 74 68 69 6e 67  25 3d a4 63 72 65 61 74  |.E8thing%=.creat|
000021e0  65 5f 6f 62 6a 65 63 74  28 4e 31 25 2a 4e 32 25  |e_object(N1%*N2%|
000021f0  2a 4e 33 25 2c 34 2a 4e  32 25 2a 28 4e 31 25 2b  |*N3%,4*N2%*(N1%+|
00002200  4e 33 25 2d 32 29 29 0d  01 46 13 e7 20 74 68 69  |N3%-2))..F.. thi|
00002210  6e 67 25 3d 30 20 8c 20  3d 30 0d 01 47 14 6f 66  |ng%=0 . =0..G.of|
00002220  66 7a 25 2d 3d 73 7a 70  25 28 31 29 2f 32 0d 01  |fz%-=szp%(1)/2..|
00002230  48 1b 73 7a 70 25 28 31  29 3d 73 7a 70 25 28 31  |H.szp%(1)=szp%(1|
00002240  29 2f 28 4e 31 25 2d 31  29 0d 01 49 1b 73 7a 70  |)/(N1%-1)..I.szp|
00002250  25 28 33 29 3d 73 7a 70  25 28 33 29 2f 28 4e 33  |%(3)=szp%(3)/(N3|
00002260  25 2d 31 29 0d 01 4a 0e  41 53 3d 32 2a af 2f 4e  |%-1)..J.AS=2*./N|
00002270  32 25 0d 01 4b 2a 73 7a  70 25 28 30 29 3d 28 73  |2%..K*szp%(0)=(s|
00002280  7a 70 25 28 31 29 2b 73  7a 70 25 28 32 29 2a 41  |zp%(1)+szp%(2)*A|
00002290  53 2b 73 7a 70 25 28 33  29 29 2f 33 0d 01 4c 1c  |S+szp%(3))/3..L.|
000022a0  63 6f 25 3d 74 68 69 6e  67 25 21 63 6f 30 25 2b  |co%=thing%!co0%+|
000022b0  70 6f 63 6f 25 2a 31 32  0d 01 4d 1a e3 20 41 25  |poco%*12..M.. A%|
000022c0  3d 30 20 b8 20 74 68 69  6e 67 25 21 70 74 73 25  |=0 . thing%!pts%|
000022d0  2d 31 0d 01 4e 14 20 41  3d 28 41 25 20 83 20 4e  |-1..N. A=(A% . N|
000022e0  32 25 29 2a 41 53 0d 01  4f 35 20 52 25 3d 73 7a  |2%)*AS..O5 R%=sz|
000022f0  70 25 28 32 29 2b 73 7a  70 25 28 33 29 2a 28 28  |p%(2)+szp%(3)*((|
00002300  41 25 20 81 20 28 4e 32  25 2a 4e 31 25 29 29 2d  |A% . (N2%*N1%))-|
00002310  28 4e 33 25 2d 31 29 2a  2e 35 29 0d 01 50 2c 20  |(N3%-1)*.5)..P, |
00002320  63 6f 25 21 30 3d 2d 73  7a 70 25 28 31 29 2a 28  |co%!0=-szp%(1)*(|
00002330  28 41 25 20 81 20 4e 32  25 29 20 83 20 4e 31 25  |(A% . N2%) . N1%|
00002340  29 2d 6f 66 66 7a 25 0d  01 51 18 20 63 6f 25 21  |)-offz%..Q. co%!|
00002350  34 3d 52 25 2a 9b 28 41  29 2b 6f 66 66 78 25 0d  |4=R%*.(A)+offx%.|
00002360  01 52 18 20 63 6f 25 21  38 3d 52 25 2a b5 28 41  |.R. co%!8=R%*.(A|
00002370  29 2b 6f 66 66 79 25 0d  01 53 0c 20 63 6f 25 2b  |)+offy%..S. co%+|
00002380  3d 31 32 0d 01 54 05 ed  0d 01 55 4c 43 25 3d a4  |=12..T....ULC%=.|
00002390  73 75 72 66 61 63 65 28  74 68 69 6e 67 25 2c 74  |surface(thing%,t|
000023a0  68 69 6e 67 25 21 66 61  63 25 2b 66 61 63 6f 25  |hing%!fac%+faco%|
000023b0  2a 65 6c 73 69 7a 25 28  33 29 2c 70 6f 63 6f 25  |*elsiz%(3),poco%|
000023c0  2c 31 2c 4e 32 25 2c 4e  32 25 2c 4e 31 25 2c 2d  |,1,N2%,N2%,N1%,-|
000023d0  31 2c 31 29 0d 01 56 42  43 25 3d a4 73 75 72 66  |1,1)..VBC%=.surf|
000023e0  61 63 65 28 74 68 69 6e  67 25 2c 43 25 2c 70 6f  |ace(thing%,C%,po|
000023f0  63 6f 25 2b 4e 32 25 2a  4e 31 25 2a 28 4e 33 25  |co%+N2%*N1%*(N3%|
00002400  2d 31 29 2c 31 2c 4e 32  25 2c 4e 32 25 2c 4e 31  |-1),1,N2%,N2%,N1|
00002410  25 2c 31 2c 31 29 0d 01  57 36 43 25 3d a4 73 75  |%,1,1)..W6C%=.su|
00002420  72 66 61 63 65 28 74 68  69 6e 67 25 2c 43 25 2c  |rface(thing%,C%,|
00002430  70 6f 63 6f 25 2c 31 2c  4e 32 25 2a 4e 31 25 2c  |poco%,1,N2%*N1%,|
00002440  4e 32 25 2c 4e 33 25 2c  31 2c 31 29 0d 01 58 43  |N2%,N3%,1,1)..XC|
00002450  43 25 3d a4 73 75 72 66  61 63 65 28 74 68 69 6e  |C%=.surface(thin|
00002460  67 25 2c 43 25 2c 70 6f  63 6f 25 2b 4e 32 25 2a  |g%,C%,poco%+N2%*|
00002470  28 4e 31 25 2d 31 29 2c  31 2c 4e 32 25 2a 4e 31  |(N1%-1),1,N2%*N1|
00002480  25 2c 4e 32 25 2c 4e 33  25 2c 2d 31 2c 31 29 0d  |%,N2%,N3%,-1,1).|
00002490  01 59 16 70 6f 63 6f 25  2b 3d 74 68 69 6e 67 25  |.Y.poco%+=thing%|
000024a0  21 6e 6f 70 25 0d 01 5a  1f f2 73 65 74 5f 76 65  |!nop%..Z..set_ve|
000024b0  6c 6f 63 69 74 79 28 74  68 69 6e 67 25 2c 30 2c  |locity(thing%,0,|
000024c0  30 2c 30 29 0d 01 5b 06  3d 30 0d 01 5c 05 3a 0d  |0,0)..[.=0..\.:.|
000024d0  01 5d 14 dd 20 a4 63 72  65 61 74 65 5f 73 74 61  |.].. .create_sta|
000024e0  69 72 73 0d 01 5e 21 ea  20 63 6f 25 2c 41 25 2c  |irs..^!. co%,A%,|
000024f0  59 25 2c 58 25 2c 5a 25  2c 4e 31 25 2c 4e 32 25  |Y%,X%,Z%,N1%,N2%|
00002500  2c 4e 33 25 0d 01 5f 27  4e 31 25 3d 70 74 70 25  |,N3%.._'N1%=ptp%|
00002510  28 31 29 3a 4e 32 25 3d  70 74 70 25 28 32 29 3a  |(1):N2%=ptp%(2):|
00002520  4e 33 25 3d 70 74 70 25  28 33 29 0d 01 60 3c 74  |N3%=ptp%(3)..`<t|
00002530  68 69 6e 67 25 3d a4 63  72 65 61 74 65 5f 6f 62  |hing%=.create_ob|
00002540  6a 65 63 74 28 4e 31 25  2a 4e 32 25 2a 4e 33 25  |ject(N1%*N2%*N3%|
00002550  2c 32 2a 28 4e 31 25 2d  31 29 2a 28 4e 32 25 2a  |,2*(N1%-1)*(N2%*|
00002560  4e 33 25 2d 31 29 29 0d  01 61 13 e7 20 74 68 69  |N3%-1))..a.. thi|
00002570  6e 67 25 3d 30 20 8c 20  3d 30 0d 01 62 1b 73 7a  |ng%=0 . =0..b.sz|
00002580  70 25 28 31 29 3d 73 7a  70 25 28 31 29 2f 28 4e  |p%(1)=szp%(1)/(N|
00002590  31 25 2d 31 29 0d 01 63  1b 73 7a 70 25 28 33 29  |1%-1)..c.szp%(3)|
000025a0  3d 73 7a 70 25 28 33 29  2f 28 4e 33 25 2d 31 29  |=szp%(3)/(N3%-1)|
000025b0  0d 01 64 1c 63 6f 25 3d  74 68 69 6e 67 25 21 63  |..d.co%=thing%!c|
000025c0  6f 30 25 2b 70 6f 63 6f  25 2a 31 32 0d 01 65 1d  |o0%+poco%*12..e.|
000025d0  6f 66 66 78 25 3d 2d 2e  35 2a 28 4e 31 25 2d 31  |offx%=-.5*(N1%-1|
000025e0  29 2a 73 7a 70 25 28 31  29 0d 01 66 1a e3 20 41  |)*szp%(1)..f.. A|
000025f0  25 3d 30 20 b8 20 4e 31  25 2a 4e 32 25 2a 4e 33  |%=0 . N1%*N2%*N3|
00002600  25 2d 31 0d 01 67 1c 20  58 25 3d 41 25 20 83 20  |%-1..g. X%=A% . |
00002610  4e 31 25 3a 5a 25 3d 41  25 20 81 20 4e 31 25 0d  |N1%:Z%=A% . N1%.|
00002620  01 68 1c 20 59 25 3d 5a  25 20 83 20 4e 33 25 3a  |.h. Y%=Z% . N3%:|
00002630  5a 25 3d 5a 25 20 81 20  4e 33 25 0d 01 69 1c 20  |Z%=Z% . N3%..i. |
00002640  63 6f 25 21 30 3d 2d 5a  25 2a 73 7a 70 25 28 32  |co%!0=-Z%*szp%(2|
00002650  29 2d 6f 66 66 7a 25 0d  01 6a 1b 20 63 6f 25 21  |)-offz%..j. co%!|
00002660  34 3d 58 25 2a 73 7a 70  25 28 31 29 2b 6f 66 66  |4=X%*szp%(1)+off|
00002670  78 25 0d 01 6b 28 20 63  6f 25 21 38 3d 28 59 25  |x%..k( co%!8=(Y%|
00002680  2b 5a 25 2a 28 4e 33 25  2d 31 29 29 2a 73 7a 70  |+Z%*(N3%-1))*szp|
00002690  25 28 33 29 2b 6f 66 66  79 25 0d 01 6c 0c 20 63  |%(3)+offy%..l. c|
000026a0  6f 25 2b 3d 31 32 0d 01  6d 05 ed 0d 01 6e 4f 59  |o%+=12..m....nOY|
000026b0  25 3d a4 73 75 72 66 61  63 65 28 74 68 69 6e 67  |%=.surface(thing|
000026c0  25 2c 74 68 69 6e 67 25  21 66 61 63 25 2b 66 61  |%,thing%!fac%+fa|
000026d0  63 6f 25 2a 65 6c 73 69  7a 25 28 33 29 2c 70 6f  |co%*elsiz%(3),po|
000026e0  63 6f 25 2c 31 2c 4e 31  25 2c 4e 31 25 2c 4e 32  |co%,1,N1%,N1%,N2|
000026f0  25 2a 4e 33 25 2c 30 2c  30 29 0d 01 6f 16 70 6f  |%*N3%,0,0)..o.po|
00002700  63 6f 25 2b 3d 74 68 69  6e 67 25 21 6e 6f 70 25  |co%+=thing%!nop%|
00002710  0d 01 70 1f f2 73 65 74  5f 76 65 6c 6f 63 69 74  |..p..set_velocit|
00002720  79 28 74 68 69 6e 67 25  2c 30 2c 30 2c 30 29 0d  |y(thing%,0,0,0).|
00002730  01 71 06 3d 30 0d 01 72  05 3a 0d 01 73 14 dd 20  |.q.=0..r.:..s.. |
00002740  a4 63 72 65 61 74 65 5f  63 75 62 6f 69 64 0d 01  |.create_cuboid..|
00002750  74 39 ea 20 58 25 2c 59  25 2c 5a 25 2c 41 25 2c  |t9. X%,Y%,Z%,A%,|
00002760  42 25 2c 43 25 2c 44 25  2c 45 25 2c 63 6f 25 2c  |B%,C%,D%,E%,co%,|
00002770  4e 31 25 2c 4e 32 25 2c  4e 33 25 2c 53 31 25 2c  |N1%,N2%,N3%,S1%,|
00002780  53 32 25 2c 53 33 25 0d  01 75 27 4e 31 25 3d 70  |S2%,S3%..u'N1%=p|
00002790  74 70 25 28 31 29 3a 4e  32 25 3d 70 74 70 25 28  |tp%(1):N2%=ptp%(|
000027a0  32 29 3a 4e 33 25 3d 70  74 70 25 28 33 29 0d 01  |2):N3%=ptp%(3)..|
000027b0  76 2a 4e 31 25 2d 3d 28  4e 31 25 3d 30 29 3a 4e  |v*N1%-=(N1%=0):N|
000027c0  32 25 2d 3d 28 4e 32 25  3d 30 29 3a 4e 33 25 2d  |2%-=(N2%=0):N3%-|
000027d0  3d 28 4e 33 25 3d 30 29  0d 01 77 5a 74 68 69 6e  |=(N3%=0)..wZthin|
000027e0  67 25 3d a4 63 72 65 61  74 65 5f 6f 62 6a 65 63  |g%=.create_objec|
000027f0  74 28 4e 31 25 2a 4e 32  25 2a 4e 33 25 2c 34 2a  |t(N1%*N2%*N3%,4*|
00002800  28 28 4e 31 25 2d 31 29  2a 28 4e 32 25 2d 31 29  |((N1%-1)*(N2%-1)|
00002810  2b 28 4e 32 25 2d 31 29  2a 28 4e 33 25 2d 31 29  |+(N2%-1)*(N3%-1)|
00002820  2b 28 4e 33 25 2d 31 29  2a 28 4e 31 25 2d 31 29  |+(N3%-1)*(N1%-1)|
00002830  29 29 0d 01 78 13 e7 20  74 68 69 6e 67 25 3d 30  |))..x.. thing%=0|
00002840  20 8c 20 3d 30 0d 01 79  3f 53 31 25 3d 73 7a 70  | . =0..y?S1%=szp|
00002850  25 28 31 29 2f 28 4e 31  25 2d 31 29 3a 53 32 25  |%(1)/(N1%-1):S2%|
00002860  3d 73 7a 70 25 28 32 29  2f 28 4e 32 25 2d 31 29  |=szp%(2)/(N2%-1)|
00002870  3a 53 33 25 3d 73 7a 70  25 28 33 29 2f 28 4e 33  |:S3%=szp%(3)/(N3|
00002880  25 2d 31 29 0d 01 7a 1b  73 7a 70 25 28 30 29 3d  |%-1)..z.szp%(0)=|
00002890  28 53 31 25 2b 53 32 25  2b 53 33 25 29 2f 33 0d  |(S1%+S2%+S3%)/3.|
000028a0  01 7b 1c 63 6f 25 3d 74  68 69 6e 67 25 21 63 6f  |.{.co%=thing%!co|
000028b0  30 25 2b 70 6f 63 6f 25  2a 31 32 0d 01 7c 1a e3  |0%+poco%*12..|..|
000028c0  20 41 25 3d 30 20 b8 20  74 68 69 6e 67 25 21 6e  | A%=0 . thing%!n|
000028d0  6f 70 25 2d 31 0d 01 7d  36 20 58 25 3d 41 25 20  |op%-1..}6 X%=A% |
000028e0  83 20 4e 31 25 3a 59 25  3d 28 41 25 20 81 20 4e  |. N1%:Y%=(A% . N|
000028f0  31 25 29 20 83 20 4e 32  25 3a 5a 25 3d 41 25 20  |1%) . N2%:Z%=A% |
00002900  81 20 28 4e 31 25 2a 4e  32 25 29 0d 01 7e 1a 20  |. (N1%*N2%)..~. |
00002910  63 6f 25 21 30 3d 2d 28  53 33 25 2a 5a 25 2b 6f  |co%!0=-(S3%*Z%+o|
00002920  66 66 7a 25 29 0d 01 7f  17 20 63 6f 25 21 34 3d  |ffz%).... co%!4=|
00002930  53 31 25 2a 58 25 2b 6f  66 66 78 25 0d 01 80 17  |S1%*X%+offx%....|
00002940  20 63 6f 25 21 38 3d 53  32 25 2a 59 25 2b 6f 66  | co%!8=S2%*Y%+of|
00002950  66 79 25 0d 01 81 0c 20  63 6f 25 2b 3d 31 32 0d  |fy%.... co%+=12.|
00002960  01 82 05 ed 0d 01 83 1c  41 25 3d 70 6f 63 6f 25  |........A%=poco%|
00002970  2b 4e 31 25 2a 4e 32 25  2a 28 4e 33 25 2d 31 29  |+N1%*N2%*(N3%-1)|
00002980  0d 01 84 22 58 25 3d 74  68 69 6e 67 25 21 66 61  |..."X%=thing%!fa|
00002990  63 25 2b 66 61 63 6f 25  2a 65 6c 73 69 7a 25 28  |c%+faco%*elsiz%(|
000029a0  33 29 0d 01 85 33 43 25  3d a4 73 75 72 66 61 63  |3)...3C%=.surfac|
000029b0  65 28 74 68 69 6e 67 25  2c 58 25 2c 70 6f 63 6f  |e(thing%,X%,poco|
000029c0  25 2c 31 2c 4e 31 25 2c  4e 31 25 2c 4e 32 25 2c  |%,1,N1%,N1%,N2%,|
000029d0  2d 31 2c 30 29 0d 01 86  33 43 25 3d a4 73 75 72  |-1,0)...3C%=.sur|
000029e0  66 61 63 65 28 74 68 69  6e 67 25 2c 43 25 2c 41  |face(thing%,C%,A|
000029f0  25 20 20 20 2c 31 2c 4e  31 25 2c 4e 31 25 2c 4e  |%   ,1,N1%,N1%,N|
00002a00  32 25 2c 20 31 2c 30 29  0d 01 87 18 41 25 3d 70  |2%, 1,0)....A%=p|
00002a10  6f 63 6f 25 2b 4e 31 25  2a 28 4e 32 25 2d 31 29  |oco%+N1%*(N2%-1)|
00002a20  0d 01 88 37 43 25 3d a4  73 75 72 66 61 63 65 28  |...7C%=.surface(|
00002a30  74 68 69 6e 67 25 2c 43  25 2c 70 6f 63 6f 25 2c  |thing%,C%,poco%,|
00002a40  4e 31 25 2a 4e 32 25 2c  31 2c 4e 33 25 2c 4e 31  |N1%*N2%,1,N3%,N1|
00002a50  25 2c 2d 31 2c 30 29 0d  01 89 37 43 25 3d a4 73  |%,-1,0)...7C%=.s|
00002a60  75 72 66 61 63 65 28 74  68 69 6e 67 25 2c 43 25  |urface(thing%,C%|
00002a70  2c 41 25 20 20 20 2c 4e  31 25 2a 4e 32 25 2c 31  |,A%   ,N1%*N2%,1|
00002a80  2c 4e 33 25 2c 4e 31 25  2c 20 31 2c 30 29 0d 01  |,N3%,N1%, 1,0)..|
00002a90  8a 12 41 25 3d 70 6f 63  6f 25 2b 4e 31 25 2d 31  |..A%=poco%+N1%-1|
00002aa0  0d 01 8b 39 43 25 3d a4  73 75 72 66 61 63 65 28  |...9C%=.surface(|
00002ab0  74 68 69 6e 67 25 2c 43  25 2c 70 6f 63 6f 25 2c  |thing%,C%,poco%,|
00002ac0  4e 31 25 2c 4e 31 25 2a  4e 32 25 2c 4e 32 25 2c  |N1%,N1%*N2%,N2%,|
00002ad0  4e 33 25 2c 2d 31 2c 30  29 0d 01 8c 39 43 25 3d  |N3%,-1,0)...9C%=|
00002ae0  a4 73 75 72 66 61 63 65  28 74 68 69 6e 67 25 2c  |.surface(thing%,|
00002af0  43 25 2c 41 25 20 20 20  2c 4e 31 25 2c 4e 31 25  |C%,A%   ,N1%,N1%|
00002b00  2a 4e 32 25 2c 4e 32 25  2c 4e 33 25 2c 20 31 2c  |*N2%,N2%,N3%, 1,|
00002b10  30 29 0d 01 8d 16 70 6f  63 6f 25 2b 3d 4e 31 25  |0)....poco%+=N1%|
00002b20  2a 4e 32 25 2a 4e 33 25  0d 01 8e 1f f2 73 65 74  |*N2%*N3%.....set|
00002b30  5f 76 65 6c 6f 63 69 74  79 28 74 68 69 6e 67 25  |_velocity(thing%|
00002b40  2c 30 2c 30 2c 30 29 0d  01 8f 06 3d 30 0d 01 90  |,0,0,0)....=0...|
00002b50  05 3a 0d 01 91 20 dd 20  a4 63 72 65 61 74 65 5f  |.:... . .create_|
00002b60  6f 62 6a 65 63 74 28 70  74 73 25 2c 66 61 63 73  |object(pts%,facs|
00002b70  25 29 0d 01 92 36 e7 20  63 6f 6d 5f 73 74 61 67  |%)...6. com_stag|
00002b80  65 25 3d 31 20 8c 20 63  6f 6d 5f 6e 6f 70 25 2b  |e%=1 . com_nop%+|
00002b90  3d 70 74 73 25 3a 63 6f  6d 5f 6e 6f 66 25 2b 3d  |=pts%:com_nof%+=|
00002ba0  66 61 63 73 25 3a 3d 30  0d 01 93 1e e7 20 63 6f  |facs%:=0..... co|
00002bb0  6d 5f 73 74 61 67 65 25  3d 32 20 3d 63 6f 6d 5f  |m_stage%=2 =com_|
00002bc0  74 68 69 6e 67 25 0d 01  94 3d e7 20 6f 62 6a 65  |thing%...=. obje|
00002bd0  63 74 73 25 3d 6d 61 78  6f 62 6a 73 25 20 8c 20  |cts%=maxobjs% . |
00002be0  f2 72 73 65 28 22 4d 61  78 2e 20 6e 6f 2e 20 6f  |.rse("Max. no. o|
00002bf0  66 20 6f 62 6a 65 63 74  73 20 72 65 61 63 68 65  |f objects reache|
00002c00  64 22 29 0d 01 95 24 74  68 69 6e 67 25 3d 77 6f  |d")...$thing%=wo|
00002c10  72 6c 64 25 2b 6f 62 6a  65 63 74 73 25 2a 65 6c  |rld%+objects%*el|
00002c20  73 69 7a 25 28 37 29 0d  01 96 0f 6f 62 6a 65 63  |siz%(7)....objec|
00002c30  74 73 25 2b 3d 31 0d 01  97 2e e7 20 73 6f 6c 25  |ts%+=1..... sol%|
00002c40  20 8c 20 66 6c 61 67 73  25 3d 25 31 30 31 31 31  | . flags%=%10111|
00002c50  31 31 20 8b 20 66 6c 61  67 73 25 3d 25 31 30 31  |11 . flags%=%101|
00002c60  30 31 31 31 0d 01 98 2a  f2 69 6e 69 74 74 68 69  |0111...*.initthi|
00002c70  6e 67 28 74 68 69 6e 67  25 2c 70 74 73 25 2c 66  |ng(thing%,pts%,f|
00002c80  61 63 73 25 2c 30 2c 66  6c 61 67 73 25 29 0d 01  |acs%,0,flags%)..|
00002c90  99 0b 3d 74 68 69 6e 67  25 0d 01 9a 05 3a 0d 01  |..=thing%....:..|
00002ca0  9b 17 dd 20 a4 73 65 6c  65 63 74 28 63 24 2c 6f  |... .select(c$,o|
00002cb0  24 2c 6c 24 29 0d 01 9c  1e 70 25 3d a7 22 2c 22  |$,l$)....p%=.","|
00002cc0  2b 6c 24 2b 22 2c 22 2c  22 2c 22 2b 6f 24 2b 22  |+l$+",",","+o$+"|
00002cd0  2c 22 29 0d 01 9d 2d e7  20 70 25 3d 30 20 8c 20  |,")...-. p%=0 . |
00002ce0  f2 72 73 65 28 63 24 2b  22 20 73 68 6f 75 6c 64  |.rse(c$+" should|
00002cf0  20 62 65 20 6f 6e 65 20  6f 66 20 22 2b 6c 24 29  | be one of "+l$)|
00002d00  0d 01 9e 19 6c 24 3d c0  6c 24 2c 70 25 29 3a 70  |....l$=.l$,p%):p|
00002d10  25 3d 30 3a 72 25 3d 2d  31 0d 01 9f 23 f5 3a 70  |%=0:r%=-1...#.:p|
00002d20  25 3d a7 6c 24 2c 22 2c  22 2c 70 25 2b 31 29 3a  |%=.l$,",",p%+1):|
00002d30  72 25 2b 3d 31 3a fd 20  70 25 3d 30 0d 01 a0 07  |r%+=1:. p%=0....|
00002d40  3d 72 25 0d 01 a1 05 3a  0d 01 a2 18 dd 20 f2 67  |=r%....:..... .g|
00002d50  65 74 5f 6f 70 65 6e 62  72 61 63 6b 28 63 24 29  |et_openbrack(c$)|
00002d60  0d 01 a3 39 e7 20 a4 6c  69 6e 65 3c 3e 22 7b 22  |...9. .line<>"{"|
00002d70  20 8c 20 f2 72 73 65 28  22 6f 70 65 6e 20 62 61  | . .rse("open ba|
00002d80  63 6b 65 74 20 65 78 70  65 63 74 65 64 20 61 66  |cket expected af|
00002d90  74 65 72 20 22 2b 63 24  29 0d 01 a4 05 e1 0d 01  |ter "+c$).......|
00002da0  a5 05 3a 0d 01 a6 15 dd  20 a4 67 65 74 5f 6e 75  |..:..... .get_nu|
00002db0  6d 28 63 24 2c 6e 25 29  0d 01 a7 19 ea 20 41 24  |m(c$,n%)..... A$|
00002dc0  2c 50 25 2c 4d 2c 42 25  3a 41 24 3d a4 6c 69 6e  |,P%,M,B%:A$=.lin|
00002dd0  65 0d 01 a8 0f c8 8e 20  c2 41 24 2c 32 29 20 ca  |e...... .A$,2) .|
00002de0  0d 01 a9 13 20 c9 20 22  69 6e 22 3a 4d 3d 26 42  |.... . "in":M=&B|
00002df0  34 30 30 0d 01 aa 16 20  c9 20 22 66 74 22 3a 4d  |400.... . "ft":M|
00002e00  3d 31 32 2a 26 42 34 30  30 0d 01 ab 13 20 c9 20  |=12*&B400.... . |
00002e10  22 63 6d 22 3a 4d 3d 31  38 31 34 32 0d 01 ac 14  |"cm":M=18142....|
00002e20  20 c9 20 22 6d 6d 22 3a  4d 3d 31 38 31 34 2e 32  | . "mm":M=1814.2|
00002e30  0d 01 ad 0a 20 7f 20 4d  3d 31 0d 01 ae 05 cb 0d  |.... . M=1......|
00002e40  01 af 18 e7 20 4d 3c 3e  31 20 41 24 3d c0 41 24  |.... M<>1 A$=.A$|
00002e50  2c a9 41 24 2d 32 29 0d  01 b0 12 e3 20 50 25 3d  |,.A$-2)..... P%=|
00002e60  31 20 b8 20 a9 28 41 24  29 0d 01 b1 14 20 42 25  |1 . .(A$).... B%|
00002e70  3d 97 28 c1 41 24 2c 50  25 2c 31 29 29 0d 01 b2  |=.(.A$,P%,1))...|
00002e80  29 20 e7 20 42 25 3c 34  33 20 84 20 42 25 3e 35  |) . B%<43 . B%>5|
00002e90  37 20 42 25 3d 34 37 20  84 20 42 25 3d 34 34 20  |7 B%=47 . B%=44 |
00002ea0  8c 20 4d 3d 2d 31 0d 01  b3 05 ed 0d 01 b4 45 e7  |. M=-1........E.|
00002eb0  20 4d 3d 2d 31 20 80 20  6e 25 3d 31 20 8c 20 f2  | M=-1 . n%=1 . .|
00002ec0  72 73 65 28 22 41 20 6e  75 6d 65 72 69 63 20 61  |rse("A numeric a|
00002ed0  72 67 75 61 6d 65 6e 74  20 69 73 20 65 78 70 65  |rguament is expe|
00002ee0  63 74 65 64 20 61 66 74  65 72 20 22 2b 63 24 29  |cted after "+c$)|
00002ef0  0d 01 b5 43 e7 20 4d 3d  2d 31 20 8c 20 f2 72 73  |...C. M=-1 . .rs|
00002f00  65 28 c3 6e 25 2b 22 20  6e 75 6d 65 72 69 63 20  |e(.n%+" numeric |
00002f10  61 72 67 75 61 6d 65 6e  74 73 20 61 72 65 20 65  |arguaments are e|
00002f20  78 70 65 63 74 65 64 20  61 66 74 65 72 20 22 2b  |xpected after "+|
00002f30  63 24 29 0d 01 b6 0c 3d  bb 28 41 24 29 2a 4d 0d  |c$)....=.(A$)*M.|
00002f40  01 b7 05 3a 0d 01 b8 0e  dd 20 f2 72 73 65 28 41  |...:..... .rse(A|
00002f50  24 29 0d 01 b9 0f d9 23  63 68 25 3a 63 68 25 3d  |$).....#ch%:ch%=|
00002f60  30 0d 01 ba 08 f1 27 41  24 0d 01 bb 05 e0 0d 01  |0.....'A$.......|
00002f70  bc 05 3a 0d 01 bd 4a dd  20 f2 6e 6f 74 5f 72 65  |..:...J. .not_re|
00002f80  63 3a f2 72 73 65 28 22  63 6f 6d 6d 61 6e 64 20  |c:.rse("command |
00002f90  22 22 22 2b 63 24 2b 22  22 22 20 6e 6f 74 20 72  |"""+c$+""" not r|
00002fa0  65 63 6f 67 6e 69 73 65  64 20 69 6e 20 74 68 69  |ecognised in thi|
00002fb0  73 20 63 6f 6e 74 65 78  74 22 29 3a e1 0d 01 be  |s context"):....|
00002fc0  05 3a 0d 01 bf 0b dd 20  a4 6c 69 6e 65 0d 01 c0  |.:..... .line...|
00002fd0  11 ea 20 41 24 2c 42 25  2c 43 25 2c 52 25 0d 01  |.. A$,B%,C%,R%..|
00002fe0  c1 13 52 25 3d 30 3a 41  24 3d 22 22 3a 42 25 3d  |..R%=0:A$="":B%=|
00002ff0  30 0d 01 c2 05 f5 0d 01  c3 25 20 43 25 3d 42 25  |0........% C%=B%|
00003000  3a e7 20 c5 23 63 68 25  20 8c 20 42 25 3d 2d 31  |:. .#ch% . B%=-1|
00003010  20 8b 20 42 25 3d 9a 23  63 68 25 0d 01 c4 37 20  | . B%=.#ch%...7 |
00003020  e7 20 42 25 3e 33 31 20  8c 20 ef 20 42 25 20 8b  |. B%>31 . . B% .|
00003030  20 e7 20 28 42 25 3d 31  33 20 84 20 42 25 3d 31  | . (B%=13 . B%=1|
00003040  30 29 20 80 20 43 25 3c  3e 32 33 2d 42 25 20 8c  |0) . C%<>23-B% .|
00003050  20 f1 0d 01 c5 1d 20 e7  20 42 25 3e 36 34 20 80  | ..... . B%>64 .|
00003060  20 42 25 3c 39 31 20 8c  20 42 25 2b 3d 33 32 0d  | B%<91 . B%+=32.|
00003070  01 c6 2f 20 e7 20 52 25  3d 30 20 80 20 42 25 3e  |../ . R%=0 . B%>|
00003080  33 33 20 80 20 42 25 3c  3e 35 38 20 80 20 42 25  |33 . B%<>58 . B%|
00003090  3c 3e 34 34 20 8c 20 41  24 2b 3d bd 42 25 0d 01  |<>44 . A$+=.B%..|
000030a0  c7 1c 20 e7 20 42 25 3d  34 32 20 80 20 43 25 3d  |.. . B%=42 . C%=|
000030b0  34 37 20 8c 20 52 25 2b  3d 31 0d 01 c8 5c 20 e7  |47 . R%+=1...\ .|
000030c0  20 42 25 3d 34 37 20 80  20 43 25 3d 34 32 20 8c  | B%=47 . C%=42 .|
000030d0  20 52 25 2d 3d 31 3a 41  24 3d c0 41 24 2c a9 41  | R%-=1:A$=.A$,.A|
000030e0  24 2d 32 29 3a e7 20 52  25 3c 30 20 8c 20 f2 72  |$-2):. R%<0 . .r|
000030f0  73 65 28 22 4d 6f 72 65  20 72 65 6d 61 72 6b 73  |se("More remarks|
00003100  20 63 6c 6f 73 65 64 20  74 68 61 6e 20 6f 70 65  | closed than ope|
00003110  6e 65 64 21 22 29 0d 01  c9 36 fd 20 42 25 3c 30  |ned!")...6. B%<0|
00003120  20 84 20 28 28 42 25 3c  33 33 20 84 20 42 25 3d  | . ((B%<33 . B%=|
00003130  35 38 20 84 20 42 25 3d  34 34 29 20 80 20 52 25  |58 . B%=44) . R%|
00003140  3d 30 20 80 20 41 24 3c  3e 22 22 29 0d 01 ca 07  |=0 . A$<>"")....|
00003150  3d 41 24 0d 01 cb 05 3a  0d 01 cc 0c dd 20 f2 69  |=A$....:..... .i|
00003160  6e 69 74 32 0d 01 cd 25  74 73 68 25 3d aa 28 66  |nit2...%tsh%=.(f|
00003170  73 70 25 29 2f aa 28 32  29 2b 2e 35 3a 66 73 70  |sp%)/.(2)+.5:fsp|
00003180  25 3d 31 3c 3c 74 73 68  25 0d 01 ce 1d 67 72 61  |%=1<<tsh%....gra|
00003190  76 5f 78 25 3d 67 72 61  76 5f 78 25 3e 3e 28 74  |v_x%=grav_x%>>(t|
000031a0  73 68 25 2a 32 29 0d 01  cf 1d 67 72 61 76 5f 79  |sh%*2)....grav_y|
000031b0  25 3d 67 72 61 76 5f 79  25 3e 3e 28 74 73 68 25  |%=grav_y%>>(tsh%|
000031c0  2a 32 29 0d 01 d0 1d 67  72 61 76 5f 7a 25 3d 67  |*2)....grav_z%=g|
000031d0  72 61 76 5f 7a 25 3e 3e  28 74 73 68 25 2a 32 29  |rav_z%>>(tsh%*2)|
000031e0  0d 01 d1 11 64 61 6d 70  73 68 25 2b 3d 74 73 68  |....dampsh%+=tsh|
000031f0  25 0d 01 d2 0a f2 61 73  73 65 6d 0d 01 d3 20 f2  |%.....assem... .|
00003200  61 73 73 65 6d 73 74 6f  72 65 28 6d 6f 64 65 25  |assemstore(mode%|
00003210  2c 73 74 6f 73 74 79 6c  65 25 29 0d 01 d4 04 0d  |,stostyle%).....|
00003220  01 d5 27 f1 27 22 43 72  65 61 74 69 6e 67 20 70  |..'.'"Creating p|
00003230  6f 69 6e 74 65 72 73 20  74 6f 20 66 61 63 65 74  |ointers to facet|
00003240  73 2e 2e 2e 22 3b 0d 01  d6 0d 74 6f 74 6e 6f 66  |s...";....totnof|
00003250  25 3d 30 0d 01 d7 17 e3  20 69 25 3d 30 20 b8 20  |%=0..... i%=0 . |
00003260  6f 62 6a 65 63 74 73 25  2d 31 0d 01 d8 1f 20 74  |objects%-1.... t|
00003270  68 69 6e 67 25 3d 77 6f  72 6c 64 25 2b 69 25 2a  |hing%=world%+i%*|
00003280  65 6c 73 69 7a 25 28 37  29 0d 01 d9 19 20 74 6f  |elsiz%(7).... to|
00003290  74 6e 6f 66 25 2b 3d 74  68 69 6e 67 25 21 6e 6f  |tnof%+=thing%!no|
000032a0  66 25 0d 01 da 05 ed 0d  01 db 22 66 61 63 70 74  |f%........"facpt|
000032b0  25 3d a4 63 72 65 61 74  65 28 34 2c 74 6f 74 6e  |%=.create(4,totn|
000032c0  6f 66 25 29 3a 43 25 3d  30 0d 01 dc 17 e3 20 69  |of%):C%=0..... i|
000032d0  25 3d 30 20 b8 20 6f 62  6a 65 63 74 73 25 2d 31  |%=0 . objects%-1|
000032e0  0d 01 dd 1f 20 74 68 69  6e 67 25 3d 77 6f 72 6c  |.... thing%=worl|
000032f0  64 25 2b 69 25 2a 65 6c  73 69 7a 25 28 37 29 0d  |d%+i%*elsiz%(7).|
00003300  01 de 39 20 43 25 3d a4  69 6e 69 74 5f 66 61 63  |..9 C%=.init_fac|
00003310  70 6f 69 6e 74 28 74 68  69 6e 67 25 21 66 61 63  |point(thing%!fac|
00003320  25 2c 66 61 63 70 74 25  2c 74 68 69 6e 67 25 21  |%,facpt%,thing%!|
00003330  6e 6f 66 25 2c 43 25 29  0d 01 df 05 ed 0d 01 e0  |nof%,C%)........|
00003340  04 0d 01 e1 21 f1 27 22  4d 61 6b 69 6e 67 20 61  |....!.'"Making a|
00003350  6e 69 6d 61 74 69 6f 6e  20 61 72 65 61 2e 2e 2e  |nimation area...|
00003360  22 3b 0d 01 e2 0b de 20  45 25 20 2d 31 0d 01 e3  |";..... E% -1...|
00003370  25 73 74 6f 72 65 6e 64  25 3d 28 ba 28 62 61 73  |%storend%=(.(bas|
00003380  69 63 5f 73 74 61 63 6b  29 2d 45 25 29 2d 34 30  |ic_stack)-E%)-40|
00003390  30 30 0d 01 e4 15 de 20  73 74 6f 72 65 25 20 73  |00..... store% s|
000033a0  74 6f 72 65 6e 64 25 0d  01 e5 1c 73 74 6f 72 65  |torend%....store|
000033b0  6e 64 25 3d 73 74 6f 72  65 25 2b 73 74 6f 72 65  |nd%=store%+store|
000033c0  6e 64 25 0d 01 e6 0e 73  74 6f 72 65 25 2b 3d 31  |nd%....store%+=1|
000033d0  36 0d 01 e7 17 21 73 74  6f 72 65 6e 64 3d 73 74  |6....!storend=st|
000033e0  6f 72 65 6e 64 25 2d 31  0d 01 e8 04 0d 01 e9 19  |orend%-1........|
000033f0  de 20 74 69 6d 62 6c 6b  25 20 38 2c 73 74 72 69  |. timblk% 8,stri|
00003400  25 20 32 35 36 0d 01 ea  10 f2 69 6e 69 74 5f 73  |% 256.....init_s|
00003410  63 72 65 65 6e 0d 01 eb  05 e1 0d 01 ec 05 3a 0d  |creen.........:.|
00003420  01 ed 12 dd 20 f2 69 6e  69 74 5f 73 63 72 65 65  |.... .init_scree|
00003430  6e 0d 01 ee 10 de 20 49  62 6c 6f 63 6b 25 20 31  |n..... Iblock% 1|
00003440  36 0d 01 ef 11 eb 20 6d  6f 64 65 25 20 84 20 31  |6..... mode% . 1|
00003450  32 38 0d 01 f0 3d e7 20  eb 3c 3e 6d 6f 64 65 25  |28...=. .<>mode%|
00003460  20 8c 20 85 20 31 2c 22  43 6f 75 6c 64 20 6e 6f  | . . 1,"Could no|
00003470  74 20 6f 62 74 61 69 6e  20 72 65 71 75 65 73 74  |t obtain request|
00003480  65 64 20 73 63 72 65 65  6e 20 6d 6f 64 65 22 0d  |ed screen mode".|
00003490  01 f1 05 87 0d 01 f2 1d  fb 20 a4 4d 6f 64 65 56  |......... .ModeV|
000034a0  61 72 28 33 29 2c 32 35  35 2c 32 35 35 2c 32 35  |ar(3),255,255,25|
000034b0  35 0d 01 f3 0d 2a 46 58  20 31 31 32 20 31 0d 01  |5....*FX 112 1..|
000034c0  f4 05 db 0d 01 f5 0d 2a  46 58 20 31 31 32 20 32  |.......*FX 112 2|
000034d0  0d 01 f6 05 db 0d 01 f7  0d 2a 46 58 20 31 31 33  |.........*FX 113|
000034e0  20 31 0d 01 f8 2b 21 49  62 6c 6f 63 6b 25 3d 31  | 1...+!Iblock%=1|
000034f0  34 39 3a 49 62 6c 6f 63  6b 25 21 34 3d 31 34 38  |49:Iblock%!4=148|
00003500  3a 49 62 6c 6f 63 6b 25  21 38 3d 2d 31 0d 01 f9  |:Iblock%!8=-1...|
00003510  2c c8 99 20 22 4f 53 5f  52 65 61 64 56 64 75 56  |,.. "OS_ReadVduV|
00003520  61 72 69 61 62 6c 65 73  22 2c 49 62 6c 6f 63 6b  |ariables",Iblock|
00003530  25 2c 73 63 72 70 6f 73  31 0d 01 fa 14 21 73 63  |%,scrpos1....!sc|
00003540  72 70 6f 73 3d 21 73 63  72 70 6f 73 32 0d 01 fb  |rpos=!scrpos2...|
00003550  0d 2a 66 78 20 31 31 33  20 32 0d 01 fc 05 e1 0d  |.*fx 113 2......|
00003560  01 fd 05 3a 0d 01 fe 14  dd 20 f2 63 72 65 61 74  |...:..... .creat|
00003570  65 5f 66 72 61 6d 65 73  0d 01 ff 12 73 74 6f 72  |e_frames....stor|
00003580  65 25 21 2d 31 36 3d 32  31 36 0d 02 00 22 73 74  |e%!-16=216..."st|
00003590  6f 72 65 25 21 2d 31 32  3d 28 78 72 65 73 25 3c  |ore%!-12=(xres%<|
000035a0  3c 31 36 29 20 84 20 79  72 65 73 25 0d 02 01 0f  |<16) . yres%....|
000035b0  73 74 6f 72 65 25 21 2d  38 3d 30 0d 02 02 19 73  |store%!-8=0....s|
000035c0  74 6f 72 65 25 21 2d 34  3d 73 74 6f 73 74 79 6c  |tore%!-4=stostyl|
000035d0  65 25 2b 31 0d 02 03 0f  73 74 61 72 74 69 6d 65  |e%+1....startime|
000035e0  25 3d 91 0d 02 04 17 e3  20 69 25 3d 30 20 b8 20  |%=...... i%=0 . |
000035f0  6f 62 6a 65 63 74 73 25  2d 31 0d 02 05 2e 20 f2  |objects%-1.... .|
00003600  72 6f 74 6e 70 65 72 73  70 28 77 6f 72 6c 64 25  |rotnpersp(world%|
00003610  2b 69 25 2a 65 6c 73 69  7a 25 28 37 29 2c 56 41  |+i%*elsiz%(7),VA|
00003620  25 2c 56 42 25 2c 30 29  0d 02 06 05 ed 0d 02 07  |%,VB%,0)........|
00003630  11 c8 97 20 b8 20 31 32  35 30 2c 39 37 30 0d 02  |... . 1250,970..|
00003640  08 1b db 3a f2 72 65 6e  64 65 72 28 72 65 6e 25  |...:.render(ren%|
00003650  2c 72 73 74 79 6c 65 25  29 0d 02 09 18 db 3a f2  |,rstyle%).....:.|
00003660  72 65 6e 64 65 72 28 31  2c 72 73 74 79 6c 65 25  |render(1,rstyle%|
00003670  29 0d 02 0a 3d 21 73 74  6f 72 65 70 6f 73 3d 73  |)...=!storepos=s|
00003680  74 6f 72 65 25 3a f2 73  74 6f 72 65 66 72 61 6d  |tore%:.storefram|
00003690  65 28 73 74 6f 73 74 79  6c 65 25 29 3a 73 74 6f  |e(stostyle%):sto|
000036a0  72 65 31 25 3d 21 73 74  6f 72 65 70 6f 73 0d 02  |re1%=!storepos..|
000036b0  0b 42 e7 20 73 74 6f 72  65 31 25 3d 30 20 8c 20  |.B. store1%=0 . |
000036c0  85 20 31 2c 22 4e 6f 74  20 65 6e 6f 75 67 68 20  |. 1,"Not enough |
000036d0  73 70 61 63 65 20 74 6f  20 73 74 6f 72 65 20 62  |space to store b|
000036e0  61 63 6b 67 72 6f 75 6e  64 20 66 72 61 6d 65 22  |ackground frame"|
000036f0  0d 02 0c 04 0d 02 0d 0b  71 75 69 74 25 3d a3 0d  |........quit%=..|
00003700  02 0e 0e 67 65 6e 74 69  6d 65 25 3d 30 0d 02 0f  |...gentime%=0...|
00003710  05 f5 0d 02 10 10 20 73  74 61 72 74 69 6d 65 25  |...... startime%|
00003720  3d 91 0d 02 11 12 20 e3  20 6a 25 3d 31 20 b8 20  |=..... . j%=1 . |
00003730  66 73 70 25 0d 02 12 19  20 20 e3 20 69 25 3d 30  |fsp%....  . i%=0|
00003740  20 b8 20 6f 62 6a 65 63  74 73 25 2d 31 0d 02 13  | . objects%-1...|
00003750  24 20 20 20 f2 6d 6f 76  65 28 69 25 2c 77 6f 72  |$   .move(i%,wor|
00003760  6c 64 25 2b 69 25 2a 65  6c 73 69 7a 25 28 37 29  |ld%+i%*elsiz%(7)|
00003770  29 0d 02 14 07 20 20 ed  0d 02 15 06 20 ed 0d 02  |)....  ..... ...|
00003780  16 10 20 6d 6f 76 65 74  69 6d 65 25 3d 91 0d 02  |.. movetime%=...|
00003790  17 18 20 e3 20 69 25 3d  30 20 b8 20 6f 62 6a 65  |.. . i%=0 . obje|
000037a0  63 74 73 25 2d 31 0d 02  18 2f 20 20 f2 72 6f 74  |cts%-1.../  .rot|
000037b0  6e 70 65 72 73 70 28 77  6f 72 6c 64 25 2b 69 25  |npersp(world%+i%|
000037c0  2a 65 6c 73 69 7a 25 28  37 29 2c 56 41 25 2c 56  |*elsiz%(7),VA%,V|
000037d0  42 25 2c 30 29 0d 02 19  06 20 ed 0d 02 1a 06 20  |B%,0).... ..... |
000037e0  db 0d 02 1b 1e 20 e7 20  72 65 6e 25 3d 30 20 43  |..... . ren%=0 C|
000037f0  25 3d 73 74 6f 72 65 25  3a d6 20 73 68 6f 77 0d  |%=store%:. show.|
00003800  02 1c 1a 20 f2 72 65 6e  64 65 72 28 72 65 6e 25  |... .render(ren%|
00003810  2c 72 73 74 79 6c 65 25  29 0d 02 1d 15 20 43 25  |,rstyle%).... C%|
00003820  3d 73 74 6f 72 65 25 3a  d6 20 73 68 6f 77 0d 02  |=store%:. show..|
00003830  1e 1b 20 f2 73 74 6f 72  65 66 72 61 6d 65 28 73  |.. .storeframe(s|
00003840  74 6f 73 74 79 6c 65 25  29 0d 02 1f 15 20 43 25  |tostyle%).... C%|
00003850  3d 73 74 6f 72 65 25 3a  d6 20 73 68 6f 77 0d 02  |=store%:. show..|
00003860  20 0c 20 61 6e 69 6d 25  3d b9 0d 02 21 22 20 f2  | . anim%=...!" .|
00003870  66 72 61 6d 65 5f 61 63  74 69 6f 6e 73 28 21 28  |frame_actions(!(|
00003880  73 74 6f 72 65 25 2d 38  29 2d 31 29 0d 02 22 24  |store%-8)-1).."$|
00003890  20 6e 6b 25 3d 30 3a f5  3a 6b 25 3d 6e 6b 25 3a  | nk%=0:.:k%=nk%:|
000038a0  6e 6b 25 3d a6 28 30 29  3a fd 20 6e 6b 25 3c 30  |nk%=.(0):. nk%<0|
000038b0  0d 02 23 1c 20 6b 25 2b  3d 33 32 2a 28 6b 25 3e  |..#. k%+=32*(k%>|
000038c0  39 37 20 80 20 6b 25 3c  31 32 33 29 0d 02 24 17  |97 . k%<123)..$.|
000038d0  20 e7 20 6b 25 3d 38 30  20 8c 20 f2 70 72 65 76  | . k%=80 . .prev|
000038e0  69 65 77 0d 02 25 16 20  e7 20 6b 25 3d 38 31 20  |iew..%. . k%=81 |
000038f0  8c 20 71 75 69 74 25 3d  b9 0d 02 26 0b fd 20 71  |. quit%=...&.. q|
00003900  75 69 74 25 0d 02 27 05  db 0d 02 28 19 f1 22 59  |uit%..'....(.."Y|
00003910  6f 75 20 63 61 6e 20 6c  65 74 20 67 6f 20 6e 6f  |ou can let go no|
00003920  77 22 0d 02 29 10 f5 20  fd 20 ac 20 a6 28 2d 31  |w"..).. . . .(-1|
00003930  37 29 0d 02 2a 10 ef 20  31 31 3a f1 20 89 28 32  |7)..*.. 11:. .(2|
00003940  30 29 0d 02 2b 0c 2a 66  78 20 32 31 20 30 0d 02  |0)..+.*fx 21 0..|
00003950  2c 7c c8 99 20 22 4f 53  5f 50 72 65 74 74 79 50  |,|.. "OS_PrettyP|
00003960  72 69 6e 74 22 2c bd 31  33 2b 22 46 72 6f 6d 20  |rint",.13+"From |
00003970  6e 6f 77 20 6f 6e 20 79  6f 75 20 63 61 6e 20 70  |now on you can p|
00003980  72 65 73 73 20 45 73 63  61 70 65 20 61 6e 64 20  |ress Escape and |
00003990  74 79 70 65 20 50 52 4f  43 73 61 76 65 28 22 22  |type PROCsave(""|
000039a0  66 69 6c 65 6e 61 6d 65  22 22 29 20 74 6f 20 73  |filename"") to s|
000039b0  61 76 65 20 74 68 65 20  61 6e 69 6d 61 74 69 6f  |ave the animatio|
000039c0  6e 2e 22 2b bd 31 33 2b  bd 30 0d 02 2d 05 e1 0d  |n."+.13+.0..-...|
000039d0  02 2e 05 3a 0d 02 2f 1c  dd 20 f2 66 72 61 6d 65  |...:../.. .frame|
000039e0  5f 61 63 74 69 6f 6e 73  28 66 72 61 6d 65 25 29  |_actions(frame%)|
000039f0  0d 02 30 3c f4 20 49 46  20 66 72 61 6d 65 25 3d  |..0<. IF frame%=|
00003a00  33 30 20 54 48 45 4e 20  50 52 4f 43 6f 75 74 70  |30 THEN PROCoutp|
00003a10  75 74 5f 66 61 63 65 74  73 28 22 24 2e 54 65 6d  |ut_facets("$.Tem|
00003a20  70 2e 66 61 63 65 74 73  33 30 22 29 0d 02 31 13  |p.facets30")..1.|
00003a30  f2 73 74 61 74 75 73 28  66 72 61 6d 65 25 29 0d  |.status(frame%).|
00003a40  02 32 13 e7 20 66 72 61  6d 65 25 3d 61 69 6d 25  |.2.. frame%=aim%|
00003a50  20 8c 0d 02 33 16 20 f1  20 22 50 61 75 73 65 64  | ...3. . "Paused|
00003a60  2e 2e 2e 22 3a ef 20 37  0d 02 34 0d 20 2a 66 78  |...":. 7..4. *fx|
00003a70  20 32 31 20 30 0d 02 35  08 20 e7 20 a5 0d 02 36  | 21 0..5. . ...6|
00003a80  11 20 ef 20 31 31 3a f1  20 89 28 31 30 29 0d 02  |. . 11:. .(10)..|
00003a90  37 05 cd 0d 02 38 0a e1  20 20 20 20 20 0d 02 39  |7....8..     ..9|
00003aa0  05 3a 0d 02 3a 18 dd 20  f2 6f 75 74 70 75 74 5f  |.:..:.. .output_|
00003ab0  66 61 63 65 74 73 28 66  24 29 0d 02 3b 17 ea 20  |facets(f$)..;.. |
00003ac0  63 70 25 2c 66 70 25 2c  6a 25 2c 63 68 25 2c 54  |cp%,fp%,j%,ch%,T|
00003ad0  25 0d 02 3c 0d 63 68 25  3d ae 28 66 24 29 0d 02  |%..<.ch%=.(f$)..|
00003ae0  3d 17 e3 20 69 25 3d 30  20 b8 20 6f 62 6a 65 63  |=.. i%=0 . objec|
00003af0  74 73 25 2d 31 0d 02 3e  1f 20 74 68 69 6e 67 25  |ts%-1..>. thing%|
00003b00  3d 77 6f 72 6c 64 25 2b  65 6c 73 69 7a 25 28 37  |=world%+elsiz%(7|
00003b10  29 2a 69 25 0d 02 3f 14  20 63 70 25 3d 74 68 69  |)*i%..?. cp%=thi|
00003b20  6e 67 25 21 63 6f 30 25  0d 02 40 14 20 66 70 25  |ng%!co0%..@. fp%|
00003b30  3d 74 68 69 6e 67 25 21  66 61 63 25 0d 02 41 12  |=thing%!fac%..A.|
00003b40  20 54 25 3d 31 3a f1 23  63 68 25 2c 54 25 0d 02  | T%=1:.#ch%,T%..|
00003b50  42 16 20 f1 23 63 68 25  2c 74 68 69 6e 67 25 21  |B. .#ch%,thing%!|
00003b60  6e 6f 66 25 0d 02 43 1b  20 e3 20 6a 25 3d 30 20  |nof%..C. . j%=0 |
00003b70  b8 20 74 68 69 6e 67 25  21 6e 6f 66 25 2d 31 0d  |. thing%!nof%-1.|
00003b80  02 44 2a 20 20 54 25 3d  63 70 25 2b 31 32 2a 66  |.D*  T%=cp%+12*f|
00003b90  70 25 21 30 3a f1 23 63  68 25 2c 54 25 21 34 2c  |p%!0:.#ch%,T%!4,|
00003ba0  54 25 21 38 2c 2d 21 54  25 0d 02 45 2a 20 20 54  |T%!8,-!T%..E*  T|
00003bb0  25 3d 63 70 25 2b 31 32  2a 66 70 25 21 34 3a f1  |%=cp%+12*fp%!4:.|
00003bc0  23 63 68 25 2c 54 25 21  34 2c 54 25 21 38 2c 2d  |#ch%,T%!4,T%!8,-|
00003bd0  21 54 25 0d 02 46 2a 20  20 54 25 3d 63 70 25 2b  |!T%..F*  T%=cp%+|
00003be0  31 32 2a 66 70 25 21 38  3a f1 23 63 68 25 2c 54  |12*fp%!8:.#ch%,T|
00003bf0  25 21 34 2c 54 25 21 38  2c 2d 21 54 25 0d 02 47  |%!4,T%!8,-!T%..G|
00003c00  14 20 20 66 70 25 2b 3d  65 6c 73 69 7a 25 28 33  |.  fp%+=elsiz%(3|
00003c10  29 0d 02 48 06 20 ed 0d  02 49 05 ed 0d 02 4a 09  |)..H. ...I....J.|
00003c20  d9 23 63 68 25 0d 02 4b  05 e1 0d 02 4c 05 3a 0d  |.#ch%..K....L.:.|
00003c30  02 4d 0e dd 20 f2 70 72  65 76 69 65 77 0d 02 4e  |.M.. .preview..N|
00003c40  0d 2a 46 58 20 31 31 32  20 31 0d 02 4f 05 db 0d  |.*FX 112 1..O...|
00003c50  02 50 0d 2a 46 58 20 31  31 33 20 31 0d 02 51 0b  |.P.*FX 113 1..Q.|
00003c60  62 61 6e 6b 25 3d 31 0d  02 52 05 f5 0d 02 53 0a  |bank%=1..R....S.|
00003c70  20 f2 73 68 6f 77 0d 02  54 10 20 f2 70 61 75 73  | .show..T. .paus|
00003c80  65 28 31 30 30 29 0d 02  55 0e fd 20 ac 20 a6 28  |e(100)..U.. . .(|
00003c90  2d 35 36 29 0d 02 56 0d  2a 46 58 20 31 31 32 20  |-56)..V.*FX 112 |
00003ca0  32 0d 02 57 05 db 0d 02  58 0d 2a 46 58 20 31 31  |2..W....X.*FX 11|
00003cb0  33 20 32 0d 02 59 14 21  73 63 72 70 6f 73 3d 21  |3 2..Y.!scrpos=!|
00003cc0  73 63 72 70 6f 73 32 0d  02 5a 0c 2a 66 78 20 32  |scrpos2..Z.*fx 2|
00003cd0  31 20 30 0d 02 5b 05 e1  0d 02 5c 05 3a 0d 02 5d  |1 0..[....\.:..]|
00003ce0  10 dd 20 f2 70 61 75 73  65 28 54 25 29 0d 02 5e  |.. .pause(T%)..^|
00003cf0  0b 54 25 3d 54 25 2b 91  0d 02 5f 0c f5 20 fd 20  |.T%=T%+..._.. . |
00003d00  91 3e 54 25 0d 02 60 05  e1 0d 02 61 05 3a 0d 02  |.>T%..`....a.:..|
00003d10  62 15 dd 20 f2 64 69 73  70 6c 61 79 5f 66 72 61  |b.. .display_fra|
00003d20  6d 65 73 0d 02 63 0d 2a  46 58 20 31 31 32 20 31  |mes..c.*FX 112 1|
00003d30  0d 02 64 05 db 0d 02 65  0d 2a 46 58 20 31 31 33  |..d....e.*FX 113|
00003d40  20 31 0d 02 66 14 21 73  63 72 70 6f 73 3d 21 73  | 1..f.!scrpos=!s|
00003d50  63 72 70 6f 73 32 0d 02  67 1d 43 25 3d 73 74 6f  |crpos2..g.C%=sto|
00003d60  72 65 25 3a 73 74 6f 72  65 31 25 3d ba 28 73 68  |re%:store1%=.(sh|
00003d70  6f 77 29 0d 02 68 0b 62  61 6e 6b 25 3d 31 0d 02  |ow)..h.bank%=1..|
00003d80  69 09 f2 73 68 6f 77 0d  02 6a 05 f5 0d 02 6b 0b  |i..show..j....k.|
00003d90  20 2a 46 58 20 31 35 0d  02 6c 09 20 47 25 3d a5  | *FX 15..l. G%=.|
00003da0  0d 02 6d 0e 20 e7 20 47  25 3d 33 32 20 8c 0d 02  |..m. . G%=32 ...|
00003db0  6e 07 20 20 f5 0d 02 6f  0c 20 20 20 f2 73 68 6f  |n.  ...o.   .sho|
00003dc0  77 0d 02 70 0d 20 20 20  2a 46 58 20 31 35 0d 02  |w..p.   *FX 15..|
00003dd0  71 10 20 20 20 47 25 3d  a6 28 31 30 30 29 0d 02  |q.   G%=.(100)..|
00003de0  72 0d 20 20 fd 20 47 25  3e 2d 31 0d 02 73 06 20  |r.  . G%>-1..s. |
00003df0  cc 0d 02 74 0b 20 20 f2  73 68 6f 77 0d 02 75 06  |...t.  .show..u.|
00003e00  20 cd 0d 02 76 07 fd 20  a3 0d 02 77 05 e1 0d 02  | ...v.. ...w....|
00003e10  78 05 3a 0d 02 79 0b dd  20 f2 73 68 6f 77 0d 02  |x.:..y.. .show..|
00003e20  7a 0b ea 20 43 25 2c 41  25 0d 02 7b 0e 41 25 3d  |z.. C%,A%..{.A%=|
00003e30  73 74 6f 72 65 31 25 0d  02 7c 1a e3 20 46 25 3d  |store1%..|.. F%=|
00003e40  31 20 b8 20 21 28 73 74  6f 72 65 25 2d 38 29 2d  |1 . !(store%-8)-|
00003e50  31 0d 02 7d 14 20 62 61  6e 6b 25 3d 62 61 6e 6b  |1..}. bank%=bank|
00003e60  25 20 82 20 33 0d 02 7e  1d 20 21 73 63 72 70 6f  |% . 3..~. !scrpo|
00003e70  73 3d 73 63 72 70 6f 73  21 28 62 61 6e 6b 25 2a  |s=scrpos!(bank%*|
00003e80  34 29 0d 02 7f 1b 20 c8  99 20 22 4f 53 5f 42 79  |4).... .. "OS_By|
00003e90  74 65 22 2c 31 31 32 2c  62 61 6e 6b 25 0d 02 80  |te",112,bank%...|
00003ea0  06 20 db 0d 02 81 15 20  43 25 3d 73 74 6f 72 65  |. ..... C%=store|
00003eb0  25 3a d6 20 73 68 6f 77  0d 02 82 15 20 43 25 3d  |%:. show.... C%=|
00003ec0  41 25 3a 41 25 3d ba 28  73 68 6f 77 29 0d 02 83  |A%:A%=.(show)...|
00003ed0  25 20 e7 20 a6 28 2d 32  29 20 8c 20 f2 70 61 75  |% . .(-2) . .pau|
00003ee0  73 65 28 31 30 29 3a f5  20 fd 20 ac 20 a6 28 2d  |se(10):. . . .(-|
00003ef0  31 29 0d 02 84 1e 20 c8  96 3a c8 99 20 22 4f 53  |1).... ..:.. "OS|
00003f00  5f 42 79 74 65 22 2c 31  31 33 2c 62 61 6e 6b 25  |_Byte",113,bank%|
00003f10  0d 02 85 05 ed 0d 02 86  05 e1 0d 02 87 05 3a 0d  |..............:.|
00003f20  02 88 15 dd 20 f2 73 74  6f 72 65 66 72 61 6d 65  |.... .storeframe|
00003f30  28 53 25 29 0d 02 89 0b  c8 8e 20 53 25 20 ca 0d  |(S%)...... S% ..|
00003f40  02 8a 16 20 c9 20 2d 31  3a 21 73 74 6f 72 65 70  |... . -1:!storep|
00003f50  6f 73 2b 3d 34 0d 02 8b  12 20 c9 20 30 3a d6 20  |os+=4.... . 0:. |
00003f60  66 72 73 74 6f 72 65 0d  02 8c 12 20 c9 20 31 3a  |frstore.... . 1:|
00003f70  d6 20 66 72 73 74 6f 72  65 0d 02 8d 2a 20 7f 20  |. frstore...* . |
00003f80  85 20 31 32 33 34 2c 22  46 72 61 6d 65 20 73 74  |. 1234,"Frame st|
00003f90  6f 72 65 20 74 79 70 65  20 6e 6f 74 20 6b 6e 6f  |ore type not kno|
00003fa0  77 6e 22 0d 02 8e 05 cb  0d 02 8f 2c e7 20 21 73  |wn"........,. !s|
00003fb0  74 6f 72 65 70 6f 73 3d  30 20 8c 20 71 75 69 74  |torepos=0 . quit|
00003fc0  25 3d b9 20 8b 20 21 28  73 74 6f 72 65 25 2d 38  |%=. . !(store%-8|
00003fd0  29 2b 3d 31 0d 02 90 05  e1 0d 02 91 05 3a 0d 02  |)+=1.........:..|
00003fe0  92 1e dd 20 a4 6d 6f 64  65 28 78 72 65 73 25 2c  |... .mode(xres%,|
00003ff0  79 72 65 73 25 2c 63 6f  6c 73 25 29 0d 02 93 1c  |yres%,cols%)....|
00004000  ea 20 6d 6f 64 65 25 2c  62 65 73 74 25 2c 6c 63  |. mode%,best%,lc|
00004010  25 2c 6e 63 25 2c 45 25  0d 02 94 14 6c 63 25 3d  |%,nc%,E%....lc%=|
00004020  32 35 36 3a 62 65 73 74  25 3d 2d 31 0d 02 95 13  |256:best%=-1....|
00004030  e3 20 6d 6f 64 65 25 3d  30 20 b8 20 31 32 37 0d  |. mode%=0 . 127.|
00004040  02 96 31 20 c8 99 20 22  58 4f 53 5f 52 65 61 64  |..1 .. "XOS_Read|
00004050  4d 6f 64 65 56 61 72 69  61 62 6c 65 22 2c 6d 6f  |ModeVariable",mo|
00004060  64 65 25 2c 33 20 b8 20  2c 2c 6e 63 25 3b 45 25  |de%,3 . ,,nc%;E%|
00004070  0d 02 97 2c 20 e7 20 28  45 25 20 80 20 31 29 3d  |..., . (E% . 1)=|
00004080  30 20 80 20 6e 63 25 2b  31 3e 3d 63 6f 6c 73 25  |0 . nc%+1>=cols%|
00004090  20 80 20 6e 63 25 3c 6c  63 25 20 8c 0d 02 98 49  | . nc%<lc% ....I|
000040a0  20 20 e7 20 a4 4d 6f 64  65 56 61 72 28 31 31 29  |  . .ModeVar(11)|
000040b0  2b 31 3d 78 72 65 73 25  20 80 20 a4 4d 6f 64 65  |+1=xres% . .Mode|
000040c0  56 61 72 28 31 32 29 2b  31 3d 79 72 65 73 25 20  |Var(12)+1=yres% |
000040d0  8c 20 62 65 73 74 25 3d  6d 6f 64 65 25 3a 6c 63  |. best%=mode%:lc|
000040e0  25 3d 6e 63 25 0d 02 99  06 20 cd 0d 02 9a 05 ed  |%=nc%.... ......|
000040f0  0d 02 9b 0a 3d 62 65 73  74 25 0d 02 9c 05 3a 0d  |....=best%....:.|
00004100  02 9d 0d dd 20 f2 73 61  76 65 69 74 0d 02 9e 0e  |.... .saveit....|
00004110  64 69 72 24 3d 66 69 6c  65 24 0d 02 9f 32 c8 95  |dir$=file$...2..|
00004120  20 a7 66 69 6c 65 24 2c  22 2e 22 29 3e 30 3a 66  | .file$,".")>0:f|
00004130  69 6c 65 24 3d c1 66 69  6c 65 24 2c a7 66 69 6c  |ile$=.file$,.fil|
00004140  65 24 2c 22 2e 22 29 2b  31 29 3a ce 0d 02 a0 27  |e$,".")+1):....'|
00004150  64 69 72 24 3d c0 64 69  72 24 2c a9 64 69 72 24  |dir$=.dir$,.dir$|
00004160  2d a9 66 69 6c 65 24 2d  31 29 2b 22 2e 61 6e 69  |-.file$-1)+".ani|
00004170  6d 73 22 0d 02 a1 1d c8  99 20 22 4f 53 5f 46 69  |ms"...... "OS_Fi|
00004180  6c 65 22 2c 35 2c 64 69  72 24 20 b8 20 6f 74 25  |le",5,dir$ . ot%|
00004190  0d 02 a2 64 e7 20 6f 74  25 3c 3e 31 20 8c 20 c8  |...d. ot%<>1 . .|
000041a0  99 20 22 4f 53 5f 50 72  65 74 74 79 50 72 69 6e  |. "OS_PrettyPrin|
000041b0  74 22 2c bd 31 33 2b 22  50 72 65 73 73 20 53 20  |t",.13+"Press S |
000041c0  6e 6f 77 20 74 6f 20 73  61 76 65 20 74 68 65 20  |now to save the |
000041d0  61 6e 69 6d 61 74 69 6f  6e 20 61 73 20 22 2b 64  |animation as "+d|
000041e0  69 72 24 2b 22 2e 22 2b  66 69 6c 65 24 2b bd 31  |ir$+"."+file$+.1|
000041f0  33 2b bd 30 0d 02 a3 0c  2a 66 78 20 32 31 20 30  |3+.0....*fx 21 0|
00004200  0d 02 a4 08 6b 24 3d be  0d 02 a5 14 e7 20 6f 74  |....k$=...... ot|
00004210  25 3d 31 20 8c 20 6b 24  3d 22 78 22 0d 02 a6 17  |%=1 . k$="x"....|
00004220  e7 20 6b 24 3d 22 53 22  20 84 20 6b 24 3d 22 73  |. k$="S" . k$="s|
00004230  22 20 8c 0d 02 a7 22 20  e7 20 6f 74 25 3d 30 20  |" ...." . ot%=0 |
00004240  8c 20 c8 99 20 22 4f 53  5f 46 69 6c 65 22 2c 38  |. .. "OS_File",8|
00004250  2c 64 69 72 24 0d 02 a8  1a 20 f2 73 61 76 65 28  |,dir$.... .save(|
00004260  64 69 72 24 2b 22 2e 22  2b 66 69 6c 65 24 29 0d  |dir$+"."+file$).|
00004270  02 a9 05 cd 0d 02 aa 05  e1 0d 02 ab 05 3a 0d 02  |.............:..|
00004280  ac 12 dd 20 f2 73 61 76  65 28 66 69 6c 65 24 29  |... .save(file$)|
00004290  0d 02 ad 0b ea 20 45 25  2c 46 25 0d 02 ae 2e e7  |..... E%,F%.....|
000042a0  20 21 73 74 6f 72 65 70  6f 73 3d 30 20 8c 20 45  | !storepos=0 . E|
000042b0  25 3d 73 74 6f 72 65 6e  64 25 20 8b 20 45 25 3d  |%=storend% . E%=|
000042c0  21 73 74 6f 72 65 70 6f  73 0d 02 af 10 46 25 3d  |!storepos....F%=|
000042d0  73 74 6f 72 65 25 2d 31  36 0d 02 b0 25 c8 99 20  |store%-16...%.. |
000042e0  22 4f 53 5f 46 69 6c 65  22 2c 26 41 2c 66 69 6c  |"OS_File",&A,fil|
000042f0  65 24 2c 26 33 43 37 2c  2c 46 25 2c 45 25 0d 02  |e$,&3C7,,F%,E%..|
00004300  b1 05 e1 0d 02 b2 05 3a  0d 02 b3 1a dd 20 f2 6c  |.......:..... .l|
00004310  6f 61 64 28 66 69 6c 65  24 2c 6c 65 6e 67 74 68  |oad(file$,length|
00004320  25 29 0d 02 b4 14 de 20  73 74 6f 72 65 25 20 6c  |%)..... store% l|
00004330  65 6e 67 74 68 25 0d 02  b5 1c f1 22 4c 6f 61 64  |ength%....."Load|
00004340  69 6e 67 20 61 6e 69 6d  61 74 69 6f 6e 2e 2e 2e  |ing animation...|
00004350  22 3b 0d 02 b6 23 c8 99  20 22 4f 53 5f 46 69 6c  |";...#.. "OS_Fil|
00004360  65 22 2c 26 31 30 2c 66  69 6c 65 24 2c 73 74 6f  |e",&10,file$,sto|
00004370  72 65 25 2c 30 0d 02 b7  0e 73 74 6f 72 65 25 2b  |re%,0....store%+|
00004380  3d 31 36 0d 02 b8 0b 61  6e 69 6d 25 3d b9 0d 02  |=16....anim%=...|
00004390  b9 05 e1 0d 02 ba 05 3a  0d 02 bb 12 dd 20 f2 69  |.......:..... .i|
000043a0  6e 69 74 5f 72 65 70 6c  61 79 0d 02 bc 34 e7 20  |nit_replay...4. |
000043b0  73 74 6f 72 65 25 21 2d  31 36 3c 3e 32 31 36 20  |store%!-16<>216 |
000043c0  8c 20 85 20 31 2c 22 46  69 6c 65 20 76 65 72 73  |. . 1,"File vers|
000043d0  69 6f 6e 20 6e 6f 74 20  6b 6e 6f 77 6e 22 0d 02  |ion not known"..|
000043e0  bd 14 78 72 65 73 25 3d  73 74 6f 72 65 25 21 2d  |..xres%=store%!-|
000043f0  31 32 0d 02 be 28 79 72  65 73 25 3d 78 72 65 73  |12...(yres%=xres|
00004400  25 20 80 20 26 46 46 46  46 3a 78 72 65 73 25 3d  |% . &FFFF:xres%=|
00004410  78 72 65 73 25 3e 3e 3e  31 36 0d 02 bf 1b 73 74  |xres%>>>16....st|
00004420  6f 73 74 79 6c 65 25 3d  28 73 74 6f 72 65 25 21  |ostyle%=(store%!|
00004430  2d 34 29 2d 31 0d 02 c0  40 e7 20 73 74 6f 73 74  |-4)-1...@. stost|
00004440  79 6c 65 25 3c 3e 30 20  80 20 73 74 6f 73 74 79  |yle%<>0 . stosty|
00004450  6c 65 25 3c 3e 31 20 8c  20 85 20 31 2c 22 53 74  |le%<>1 . . 1,"St|
00004460  6f 72 61 67 65 20 74 79  70 65 20 6e 6f 74 20 6b  |orage type not k|
00004470  6e 6f 77 6e 22 0d 02 c1  1e 6d 6f 64 65 25 3d a4  |nown"....mode%=.|
00004480  6d 6f 64 65 28 78 72 65  73 25 2c 79 72 65 73 25  |mode(xres%,yres%|
00004490  2c 32 29 0d 02 c2 31 e7  20 6d 6f 64 65 25 3c 30  |,2)...1. mode%<0|
000044a0  20 85 20 31 2c 22 4e 6f  20 73 75 69 74 61 62 6c  | . 1,"No suitabl|
000044b0  65 20 73 63 72 65 65 6e  20 6d 6f 64 65 20 66 6f  |e screen mode fo|
000044c0  75 6e 64 22 0d 02 c3 20  f2 61 73 73 65 6d 73 74  |und"... .assemst|
000044d0  6f 72 65 28 6d 6f 64 65  25 2c 73 74 6f 73 74 79  |ore(mode%,stosty|
000044e0  6c 65 25 29 0d 02 c4 10  f2 69 6e 69 74 5f 73 63  |le%).....init_sc|
000044f0  72 65 65 6e 0d 02 c5 05  e1 0d 02 c6 05 3a 0d 02  |reen.........:..|
00004500  c7 17 dd 20 f2 6d 6f 76  65 28 6f 6e 25 2c 74 68  |... .move(on%,th|
00004510  69 6e 67 25 29 0d 02 c8  1f e7 20 71 75 69 74 25  |ing%)..... quit%|
00004520  20 84 20 74 68 69 6e 67  25 21 76 65 6c 25 3d 30  | . thing%!vel%=0|
00004530  20 8c 20 e1 0d 02 c9 35  ea 20 70 74 73 25 2c 76  | . ....5. pts%,v|
00004540  62 25 2c 63 62 25 2c 41  25 2c 42 25 2c 45 25 2c  |b%,cb%,A%,B%,E%,|
00004550  46 25 2c 78 2c 79 2c 7a  2c 6e 78 2c 6e 79 2c 6e  |F%,x,y,z,nx,ny,n|
00004560  7a 2c 68 25 2c 66 6c 78  25 0d 02 ca 14 70 74 73  |z,h%,flx%....pts|
00004570  25 3d 74 68 69 6e 67 25  21 6e 6f 70 25 0d 02 cb  |%=thing%!nop%...|
00004580  16 21 76 65 70 6f 73 3d  74 68 69 6e 67 25 21 76  |.!vepos=thing%!v|
00004590  65 6c 25 0d 02 cc 15 c8  99 20 22 48 6f 75 72 67  |el%...... "Hourg|
000045a0  6c 61 73 73 5f 4f 6e 22  0d 02 cd 14 41 25 3d 70  |lass_On"....A%=p|
000045b0  74 73 25 2d 31 3a d6 20  64 61 6d 70 0d 02 ce 16  |ts%-1:. damp....|
000045c0  21 63 6f 70 6f 73 3d 74  68 69 6e 67 25 21 63 6f  |!copos=thing%!co|
000045d0  30 25 0d 02 cf 16 21 62  6f 70 6f 73 3d 74 68 69  |0%....!bopos=thi|
000045e0  6e 67 25 21 62 6e 64 25  0d 02 d0 19 c8 99 20 22  |ng%!bnd%...... "|
000045f0  48 6f 75 72 67 6c 61 73  73 5f 4c 45 44 73 22 2c  |Hourglass_LEDs",|
00004600  31 0d 02 d1 1b 45 25 3d  74 68 69 6e 67 25 21 6e  |1....E%=thing%!n|
00004610  6f 62 25 2d 31 3a d6 20  62 6f 6e 64 0d 02 d2 19  |ob%-1:. bond....|
00004620  63 62 25 3d 21 63 6f 70  6f 73 3a 76 62 25 3d 21  |cb%=!copos:vb%=!|
00004630  76 65 70 6f 73 0d 02 d3  1c 70 75 6c 6c 5f 70 74  |vepos....pull_pt|
00004640  25 3d 70 75 6c 6c 64 65  66 25 28 6f 6e 25 2c 30  |%=pulldef%(on%,0|
00004650  29 0d 02 d4 10 66 72 73  68 25 3d 33 2b 74 73 68  |)....frsh%=3+tsh|
00004660  25 0d 02 d5 19 c8 99 20  22 48 6f 75 72 67 6c 61  |%...... "Hourgla|
00004670  73 73 5f 4c 45 44 73 22  2c 32 0d 02 d6 13 e3 20  |ss_LEDs",2..... |
00004680  41 25 3d 30 20 b8 20 70  74 73 25 2d 31 0d 02 d7  |A%=0 . pts%-1...|
00004690  14 20 e7 20 41 25 3d 70  75 6c 6c 5f 70 74 25 20  |. . A%=pull_pt% |
000046a0  8c 0d 02 d8 5c 20 20 63  62 25 21 34 2b 3d 70 75  |....\  cb%!4+=pu|
000046b0  6c 6c 64 65 66 25 28 6f  6e 25 2c 33 29 3e 3e 74  |lldef%(on%,3)>>t|
000046c0  73 68 25 3a 63 62 25 21  38 2b 3d 70 75 6c 6c 64  |sh%:cb%!8+=pulld|
000046d0  65 66 25 28 6f 6e 25 2c  34 29 3e 3e 74 73 68 25  |ef%(on%,4)>>tsh%|
000046e0  3a 63 62 25 21 30 2d 3d  70 75 6c 6c 64 65 66 25  |:cb%!0-=pulldef%|
000046f0  28 6f 6e 25 2c 35 29 3e  3e 74 73 68 25 0d 02 d9  |(on%,5)>>tsh%...|
00004700  48 20 20 70 75 6c 6c 5f  70 74 25 2b 3d 70 75 6c  |H  pull_pt%+=pul|
00004710  6c 64 65 66 25 28 6f 6e  25 2c 32 29 3a e7 20 70  |ldef%(on%,2):. p|
00004720  75 6c 6c 5f 70 74 25 3e  70 75 6c 6c 64 65 66 25  |ull_pt%>pulldef%|
00004730  28 6f 6e 25 2c 31 29 20  8c 20 70 75 6c 6c 5f 70  |(on%,1) . pull_p|
00004740  74 25 3d 2d 31 0d 02 da  06 20 cc 0d 02 db 32 20  |t%=-1.... ....2 |
00004750  20 76 62 25 21 30 2d 3d  67 72 61 76 5f 7a 25 3a  | vb%!0-=grav_z%:|
00004760  76 62 25 21 34 2b 3d 67  72 61 76 5f 78 25 3a 76  |vb%!4+=grav_x%:v|
00004770  62 25 21 38 2b 3d 67 72  61 76 5f 79 25 0d 02 dc  |b%!8+=grav_y%...|
00004780  1d 20 20 78 3d 63 62 25  21 34 3a 79 3d 63 62 25  |.  x=cb%!4:y=cb%|
00004790  21 38 3a 7a 3d 63 62 25  21 30 0d 02 dd 1b 20 20  |!8:z=cb%!0....  |
000047a0  e3 20 42 25 3d 31 20 b8  20 62 61 63 6b 67 72 6f  |. B%=1 . backgro|
000047b0  75 6e 64 73 25 0d 02 de  36 20 20 20 78 2d 3d 62  |unds%...6   x-=b|
000047c0  67 64 65 66 25 28 42 25  2c 31 29 3a 79 2d 3d 62  |gdef%(B%,1):y-=b|
000047d0  67 64 65 66 25 28 42 25  2c 32 29 3a 7a 2b 3d 62  |gdef%(B%,2):z+=b|
000047e0  67 64 65 66 25 28 42 25  2c 33 29 0d 02 df 18 20  |gdef%(B%,3).... |
000047f0  20 20 c8 8e 20 62 67 64  65 66 25 28 42 25 2c 30  |  .. bgdef%(B%,0|
00004800  29 20 ca 0d 02 e0 52 20  20 20 20 c9 20 30 3a e7  |) ....R    . 0:.|
00004810  20 7a 3e 2d 35 30 30 30  20 8c 20 76 62 25 21 30  | z>-5000 . vb%!0|
00004820  2d 3d 28 7a 2b 35 30 30  30 29 3e 3e 31 3a 76 62  |-=(z+5000)>>1:vb|
00004830  25 21 34 2d 3d 76 62 25  21 34 3e 3e 66 72 73 68  |%!4-=vb%!4>>frsh|
00004840  25 3a 76 62 25 21 38 2d  3d 76 62 25 21 38 3e 3e  |%:vb%!8-=vb%!8>>|
00004850  66 72 73 68 25 0d 02 e1  31 20 20 20 20 c9 20 33  |frsh%...1    . 3|
00004860  3a 72 3d b6 28 78 2a 78  2b 79 2a 79 2b 7a 2a 7a  |:r=.(x*x+y*y+z*z|
00004870  29 3a 45 25 3d 62 67 64  65 66 25 28 42 25 2c 34  |):E%=bgdef%(B%,4|
00004880  29 2a 31 2e 30 36 0d 02  e2 11 20 20 20 20 20 e7  |)*1.06....     .|
00004890  20 72 3c 45 25 20 8c 0d  02 e3 16 20 20 20 20 20  | r<E% .....     |
000048a0  20 72 3d 32 2a 28 45 25  2d 72 29 2f 72 0d 02 e4  | r=2*(E%-r)/r...|
000048b0  28 20 20 20 20 20 20 76  62 25 21 30 2d 3d 76 62  |(      vb%!0-=vb|
000048c0  25 21 30 3e 3e 66 72 73  68 25 3a 76 62 25 21 30  |%!0>>frsh%:vb%!0|
000048d0  2b 3d 7a 2a 72 0d 02 e5  28 20 20 20 20 20 20 76  |+=z*r...(      v|
000048e0  62 25 21 34 2d 3d 76 62  25 21 34 3e 3e 66 72 73  |b%!4-=vb%!4>>frs|
000048f0  68 25 3a 76 62 25 21 34  2b 3d 78 2a 72 0d 02 e6  |h%:vb%!4+=x*r...|
00004900  28 20 20 20 20 20 20 76  62 25 21 38 2d 3d 76 62  |(      vb%!8-=vb|
00004910  25 21 38 3e 3e 66 72 73  68 25 3a 76 62 25 21 38  |%!8>>frsh%:vb%!8|
00004920  2b 3d 79 2a 72 0d 02 e7  0a 20 20 20 20 20 cd 0d  |+=y*r....     ..|
00004930  02 e8 0c 20 20 20 20 c9  20 34 3a 0d 02 e9 2e 20  |...    . 4:.... |
00004940  20 20 20 20 6e 25 3d 2e  35 2a 28 79 2f 62 67 64  |    n%=.5*(y/bgd|
00004950  65 66 25 28 42 25 2c 36  29 2d 7a 2f 62 67 64 65  |ef%(B%,6)-z/bgde|
00004960  66 25 28 42 25 2c 35 29  29 0d 02 ea 21 20 20 20  |f%(B%,5))...!   |
00004970  20 20 68 25 3d 2d 6e 25  2a 62 67 64 65 66 25 28  |  h%=-n%*bgdef%(|
00004980  42 25 2c 35 29 2d 35 30  30 30 0d 02 eb 11 20 20  |B%,5)-5000....  |
00004990  20 20 20 e7 20 7a 3e 68  25 20 8c 0d 02 ec 42 20  |   . z>h% ....B |
000049a0  20 20 20 20 20 e7 20 76  62 25 21 30 3e 30 20 76  |     . vb%!0>0 v|
000049b0  62 25 21 30 2d 3d 28 7a  2d 68 25 29 3e 3e 31 3a  |b%!0-=(z-h%)>>1:|
000049c0  76 62 25 21 34 3d 76 62  25 21 34 3e 3e 32 3a 76  |vb%!4=vb%!4>>2:v|
000049d0  62 25 21 38 3d 76 62 25  21 38 3e 3e 32 0d 02 ed  |b%!8=vb%!8>>2...|
000049e0  0a 20 20 20 20 20 cc 0d  02 ee 25 20 20 20 20 20  |.     ....%     |
000049f0  20 68 25 3d 28 6e 25 2b  31 29 2a 62 67 64 65 66  | h%=(n%+1)*bgdef|
00004a00  25 28 42 25 2c 36 29 2d  35 30 30 30 0d 02 ef 4c  |%(B%,6)-5000...L|
00004a10  20 20 20 20 20 20 e7 20  79 3e 68 25 20 80 20 76  |      . y>h% . v|
00004a20  62 25 21 38 3e 30 20 8c  20 76 62 25 21 38 2d 3d  |b%!8>0 . vb%!8-=|
00004a30  28 79 2d 68 25 29 3e 3e  31 3a 3a 76 62 25 21 34  |(y-h%)>>1::vb%!4|
00004a40  3d 76 62 25 21 34 3e 3e  32 3a 76 62 25 21 30 3d  |=vb%!4>>2:vb%!0=|
00004a50  76 62 25 21 30 3e 3e 32  0d 02 f0 0a 20 20 20 20  |vb%!0>>2....    |
00004a60  20 cd 0d 02 f1 09 20 20  20 20 cb 0d 02 f2 37 20  | .....    ....7 |
00004a70  20 20 20 78 2b 3d 62 67  64 65 66 25 28 42 25 2c  |   x+=bgdef%(B%,|
00004a80  31 29 3a 79 2b 3d 62 67  64 65 66 25 28 42 25 2c  |1):y+=bgdef%(B%,|
00004a90  32 29 3a 7a 2d 3d 62 67  64 65 66 25 28 42 25 2c  |2):z-=bgdef%(B%,|
00004aa0  33 29 0d 02 f3 07 20 20  ed 0d 02 f4 47 20 20 63  |3)....  ....G  c|
00004ab0  62 25 21 34 3d 78 2b 28  76 62 25 21 34 3e 3e 74  |b%!4=x+(vb%!4>>t|
00004ac0  73 68 25 29 3a 63 62 25  21 38 3d 79 2b 28 76 62  |sh%):cb%!8=y+(vb|
00004ad0  25 21 38 3e 3e 74 73 68  25 29 3a 63 62 25 21 30  |%!8>>tsh%):cb%!0|
00004ae0  3d 7a 2b 28 76 62 25 21  30 3e 3e 74 73 68 25 29  |=z+(vb%!0>>tsh%)|
00004af0  0d 02 f5 3a 20 20 e7 20  28 28 94 28 76 62 25 21  |...:  . ((.(vb%!|
00004b00  30 29 2b 94 28 76 62 25  21 34 29 2b 94 28 76 62  |0)+.(vb%!4)+.(vb|
00004b10  25 21 38 29 29 3e 3e 74  73 68 25 29 3e 33 45 36  |%!8))>>tsh%)>3E6|
00004b20  20 8c 20 71 75 69 74 25  3d b9 0d 02 f6 06 20 cd  | . quit%=..... .|
00004b30  0d 02 f7 14 20 76 62 25  2b 3d 31 32 3a 63 62 25  |.... vb%+=12:cb%|
00004b40  2b 3d 31 32 0d 02 f8 05  ed 0d 02 f9 16 c8 99 20  |+=12........... |
00004b50  22 48 6f 75 72 67 6c 61  73 73 5f 4f 66 66 22 0d  |"Hourglass_Off".|
00004b60  02 fa 05 e1 0d 02 fb 05  3a 0d 02 fc 36 dd 20 a4  |........:...6. .|
00004b70  73 75 72 66 61 63 65 28  74 68 69 6e 67 25 2c 50  |surface(thing%,P|
00004b80  25 2c 53 25 2c 58 49 25  2c 59 49 25 2c 58 4e 25  |%,S%,XI%,YI%,XN%|
00004b90  2c 59 4e 25 2c 77 69 6e  64 25 2c 4c 50 25 29 0d  |,YN%,wind%,LP%).|
00004ba0  02 fd 11 ea 20 58 25 2c  59 25 2c 41 25 2c 42 25  |.... X%,Y%,A%,B%|
00004bb0  0d 02 fe 4b e7 20 50 25  3d 30 20 8c 20 50 25 3d  |...K. P%=0 . P%=|
00004bc0  74 68 69 6e 67 25 21 66  61 63 25 3a e7 20 50 25  |thing%!fac%:. P%|
00004bd0  3c b8 50 20 8c 20 85 20  31 2c 22 62 61 64 20 70  |<.P . . 1,"bad p|
00004be0  6f 69 6e 74 65 72 20 70  61 73 73 65 64 20 74 6f  |ointer passed to|
00004bf0  20 46 4e 73 75 72 66 61  63 65 22 0d 02 ff 19 e7  | FNsurface".....|
00004c00  20 58 4e 25 3c 32 20 84  20 59 4e 25 3c 32 20 8c  | XN%<2 . YN%<2 .|
00004c10  20 3d 50 25 0d 03 00 5a  e7 20 53 25 2b 28 58 4e  | =P%...Z. S%+(XN|
00004c20  25 2d 31 2b 28 4c 50 25  20 80 20 31 29 29 2a 28  |%-1+(LP% . 1))*(|
00004c30  59 4e 25 2d 31 2b 2e 35  2a 28 4c 50 25 20 80 20  |YN%-1+.5*(LP% . |
00004c40  32 29 29 3e 74 68 69 6e  67 25 21 6e 6f 66 25 20  |2))>thing%!nof% |
00004c50  8c 20 85 20 31 2c 22 6e  6f 74 20 65 6e 6f 75 67  |. . 1,"not enoug|
00004c60  68 20 66 61 63 65 74 20  73 70 61 63 65 22 0d 03  |h facet space"..|
00004c70  01 12 e3 20 59 25 3d 30  20 b8 20 59 4e 25 2d 32  |... Y%=0 . YN%-2|
00004c80  0d 03 02 13 20 e3 20 58  25 3d 30 20 b8 20 58 4e  |.... . X%=0 . XN|
00004c90  25 2d 32 0d 03 03 19 20  20 41 25 3d 53 25 2b 58  |%-2....  A%=S%+X|
00004ca0  25 2a 58 49 25 2b 59 25  2a 59 49 25 0d 03 04 4d  |%*XI%+Y%*YI%...M|
00004cb0  20 20 50 25 3d a4 64 65  66 69 6e 65 5f 66 61 63  |  P%=.define_fac|
00004cc0  65 74 28 50 25 2c 41 25  2b 58 49 25 2c 41 25 2c  |et(P%,A%+XI%,A%,|
00004cd0  41 25 2b 59 49 25 2c 31  2b 28 58 25 3d 2d 28 4c  |A%+YI%,1+(X%=-(L|
00004ce0  50 25 20 80 20 31 29 20  84 20 59 25 3d 2d 28 4c  |P% . 1) . Y%=-(L|
00004cf0  50 25 20 80 20 32 29 29  29 0d 03 05 35 20 20 50  |P% . 2)))...5  P|
00004d00  25 3d a4 64 65 66 69 6e  65 5f 66 61 63 65 74 28  |%=.define_facet(|
00004d10  50 25 2c 41 25 2b 59 49  25 2c 41 25 2b 58 49 25  |P%,A%+YI%,A%+XI%|
00004d20  2b 59 49 25 2c 41 25 2b  58 49 25 2c 30 29 0d 03  |+YI%,A%+XI%,0)..|
00004d30  06 06 20 ed 0d 03 07 10  20 e7 20 4c 50 25 20 80  |.. ..... . LP% .|
00004d40  20 31 20 8c 0d 03 08 2b  20 20 41 25 3d 53 25 2b  | 1 ....+  A%=S%+|
00004d50  28 58 4e 25 2d 31 29 2a  58 49 25 2b 59 25 2a 59  |(XN%-1)*XI%+Y%*Y|
00004d60  49 25 3a 42 25 3d 53 25  2b 59 25 2a 59 49 25 0d  |I%:B%=S%+Y%*YI%.|
00004d70  03 09 39 20 20 50 25 3d  a4 64 65 66 69 6e 65 5f  |..9  P%=.define_|
00004d80  66 61 63 65 74 28 50 25  2c 42 25 2c 41 25 2c 41  |facet(P%,B%,A%,A|
00004d90  25 2b 59 49 25 2c 31 2b  28 59 25 3d 2d 28 4c 50  |%+YI%,1+(Y%=-(LP|
00004da0  25 20 80 20 32 29 29 29  0d 03 0a 2d 20 20 50 25  |% . 2)))...-  P%|
00004db0  3d a4 64 65 66 69 6e 65  5f 66 61 63 65 74 28 50  |=.define_facet(P|
00004dc0  25 2c 41 25 2b 59 49 25  2c 42 25 2b 59 49 25 2c  |%,A%+YI%,B%+YI%,|
00004dd0  42 25 2c 30 29 0d 03 0b  06 20 cd 0d 03 0c 05 ed  |B%,0).... ......|
00004de0  0d 03 0d 0f e7 20 4c 50  25 20 80 20 32 20 8c 0d  |..... LP% . 2 ..|
00004df0  03 0e 13 20 e3 20 58 25  3d 30 20 b8 20 58 4e 25  |... . X%=0 . XN%|
00004e00  2d 32 0d 03 0f 24 20 20  42 25 3d 53 25 2b 58 25  |-2...$  B%=S%+X%|
00004e10  2a 58 49 25 3a 41 25 3d  42 25 2b 28 59 4e 25 2d  |*XI%:A%=B%+(YN%-|
00004e20  31 29 2a 59 49 25 0d 03  10 39 20 20 50 25 3d a4  |1)*YI%...9  P%=.|
00004e30  64 65 66 69 6e 65 5f 66  61 63 65 74 28 50 25 2c  |define_facet(P%,|
00004e40  41 25 2b 58 49 25 2c 41  25 2c 42 25 2c 31 2b 28  |A%+XI%,A%,B%,1+(|
00004e50  58 25 3d 2d 28 4c 50 25  20 80 20 31 29 29 29 0d  |X%=-(LP% . 1))).|
00004e60  03 11 2d 20 20 50 25 3d  a4 64 65 66 69 6e 65 5f  |..-  P%=.define_|
00004e70  66 61 63 65 74 28 50 25  2c 42 25 2c 42 25 2b 58  |facet(P%,B%,B%+X|
00004e80  49 25 2c 41 25 2b 58 49  25 2c 30 29 0d 03 12 06  |I%,A%+XI%,0)....|
00004e90  20 ed 0d 03 13 10 20 e7  20 4c 50 25 20 80 20 31  | ..... . LP% . 1|
00004ea0  20 8c 0d 03 14 23 20 20  41 25 3d 28 58 4e 25 2d  | ....#  A%=(XN%-|
00004eb0  31 29 2a 58 49 25 3a 42  25 3d 28 59 4e 25 2d 31  |1)*XI%:B%=(YN%-1|
00004ec0  29 2a 59 49 25 0d 03 15  31 20 20 50 25 3d a4 64  |)*YI%...1  P%=.d|
00004ed0  65 66 69 6e 65 5f 66 61  63 65 74 28 50 25 2c 53  |efine_facet(P%,S|
00004ee0  25 2b 42 25 2c 53 25 2b  41 25 2b 42 25 2c 53 25  |%+B%,S%+A%+B%,S%|
00004ef0  2b 41 25 2c 30 29 0d 03  16 2b 20 20 50 25 3d a4  |+A%,0)...+  P%=.|
00004f00  64 65 66 69 6e 65 5f 66  61 63 65 74 28 50 25 2c  |define_facet(P%,|
00004f10  53 25 2b 41 25 2c 53 25  2c 53 25 2b 42 25 2c 30  |S%+A%,S%,S%+B%,0|
00004f20  29 0d 03 17 06 20 cd 0d  03 18 05 cd 0d 03 19 07  |).... ..........|
00004f30  3d 50 25 0d 03 1a 05 3a  0d 03 1b 12 dd 20 a4 4d  |=P%....:..... .M|
00004f40  6f 64 65 56 61 72 28 56  25 29 0d 03 1c 2b c8 99  |odeVar(V%)...+..|
00004f50  22 4f 53 5f 52 65 61 64  4d 6f 64 65 56 61 72 69  |"OS_ReadModeVari|
00004f60  61 62 6c 65 22 2c 6d 6f  64 65 25 2c 56 25 20 b8  |able",mode%,V% .|
00004f70  20 2c 2c 56 25 0d 03 1d  07 3d 56 25 0d 03 1e 05  | ,,V%....=V%....|
00004f80  3a 0d 03 1f 22 dd 20 f2  61 73 73 65 6d 73 74 6f  |:...". .assemsto|
00004f90  72 65 28 6d 6f 64 65 25  2c 73 74 6f 73 74 79 6c  |re(mode%,stostyl|
00004fa0  65 25 29 0d 03 20 17 4c  32 42 50 50 25 3d a4 4d  |e%).. .L2BPP%=.M|
00004fb0  6f 64 65 56 61 72 28 31  30 29 0d 03 21 1f 4e 50  |odeVar(10)..!.NP|
00004fc0  49 58 25 3d a4 4d 6f 64  65 56 61 72 28 37 29 2a  |IX%=.ModeVar(7)*|
00004fd0  38 3e 3e 4c 32 42 50 50  25 0d 03 22 1c 4d 41 53  |8>>L2BPP%..".MAS|
00004fe0  4b 25 3d 28 31 3c 3c 28  31 3c 3c 4c 32 42 50 50  |K%=(1<<(1<<L2BPP|
00004ff0  25 29 29 2d 31 0d 03 23  0f 63 73 70 61 63 65 3d  |%))-1..#.cspace=|
00005000  31 30 30 30 0d 03 24 11  de 20 63 6f 64 65 20 63  |1000..$.. code c|
00005010  73 70 61 63 65 0d 03 25  2b 41 25 3d 30 3a 42 25  |space..%+A%=0:B%|
00005020  3d 31 3a 43 25 3d 32 3a  44 25 3d 33 3a 45 25 3d  |=1:C%=2:D%=3:E%=|
00005030  34 3a 46 25 3d 35 3a 47  25 3d 36 3a 48 25 3d 37  |4:F%=5:G%=6:H%=7|
00005040  0d 03 26 17 6c 69 6e 6b  3d 31 34 3a 73 70 3d 31  |..&.link=14:sp=1|
00005050  33 3a 70 63 3d 31 35 0d  03 27 14 e3 20 50 41 53  |3:pc=15..'.. PAS|
00005060  53 3d 30 20 b8 20 32 20  88 20 32 0d 03 28 0b 50  |S=0 . 2 . 2..(.P|
00005070  25 3d 63 6f 64 65 0d 03  29 08 46 25 3d 35 0d 03  |%=code..).F%=5..|
00005080  2a 0e 5b 20 4f 50 54 20  50 41 53 53 0d 03 2b 09  |*.[ OPT PASS..+.|
00005090  41 4c 49 47 4e 0d 03 2c  0c 2e 66 72 73 74 6f 72  |ALIGN..,..frstor|
000050a0  65 0d 03 2d 16 53 54 4d  46 44 20 28 73 70 29 21  |e..-.STMFD (sp)!|
000050b0  2c 7b 6c 69 6e 6b 7d 0d  03 2e 30 4c 44 52 20 43  |,{link}...0LDR C|
000050c0  25 2c 73 74 6f 72 65 70  6f 73 3a 43 4d 50 20 43  |%,storepos:CMP C|
000050d0  25 2c 23 30 3a 4c 44 4d  45 51 46 44 20 28 73 70  |%,#0:LDMEQFD (sp|
000050e0  29 21 2c 7b 70 63 7d 0d  03 2f 13 4c 44 52 20 52  |)!,{pc}../.LDR R|
000050f0  31 31 2c 73 74 6f 72 65  6e 64 0d 03 30 35 53 55  |11,storend..05SU|
00005100  42 20 52 38 2c 52 31 31  2c 43 25 3a 43 4d 50 20  |B R8,R11,C%:CMP |
00005110  52 38 2c 23 35 3a 4d 4f  56 4c 45 20 43 25 2c 23  |R8,#5:MOVLE C%,#|
00005120  30 3a 42 4c 45 20 65 78  66 72 73 74 72 6c 70 0d  |0:BLE exfrstrlp.|
00005130  03 31 0d 4d 4f 56 20 41  25 2c 23 30 0d 03 32 1d  |.1.MOV A%,#0..2.|
00005140  4d 4f 56 20 52 31 30 2c  23 4d 41 53 4b 25 3a 4d  |MOV R10,#MASK%:M|
00005150  4f 56 20 48 25 2c 52 31  30 0d 03 33 1c 4c 44 52  |OV H%,R10..3.LDR|
00005160  20 42 25 2c 73 63 72 70  6f 73 3a 42 4c 20 66 69  | B%,scrpos:BL fi|
00005170  6e 64 70 69 78 0d 03 34  13 53 54 52 42 20 41 25  |ndpix..4.STRB A%|
00005180  2c 5b 43 25 5d 2c 23 31  0d 03 35 23 4d 4f 56 20  |,[C%],#1..5#MOV |
00005190  52 38 2c 41 25 2c 41 53  52 23 38 3a 53 54 52 42  |R8,A%,ASR#8:STRB|
000051a0  20 52 38 2c 5b 43 25 5d  2c 23 31 0d 03 36 24 4d  | R8,[C%],#1..6$M|
000051b0  4f 56 20 52 38 2c 41 25  2c 41 53 52 23 31 36 3a  |OV R8,A%,ASR#16:|
000051c0  53 54 52 42 20 52 38 2c  5b 43 25 5d 2c 23 31 0d  |STRB R8,[C%],#1.|
000051d0  03 37 0c 2e 66 72 73 74  72 6c 70 0d 03 38 1f 43  |.7..frstrlp..8.C|
000051e0  4d 50 20 41 25 2c 23 4e  50 49 58 25 3a 42 47 45  |MP A%,#NPIX%:BGE|
000051f0  20 65 78 66 72 73 74 72  6c 70 0d 03 39 1c 43 4d  | exfrstrlp..9.CM|
00005200  50 20 43 25 2c 52 31 31  3a 42 47 45 20 65 78 66  |P C%,R11:BGE exf|
00005210  72 73 74 72 6c 70 0d 03  3a 1a 41 44 44 20 41 25  |rstrlp..:.ADD A%|
00005220  2c 41 25 2c 23 31 3a 4d  4f 56 20 45 25 2c 41 25  |,A%,#1:MOV E%,A%|
00005230  0d 03 3b 1b 42 4c 20 66  69 6e 64 70 69 78 3a 53  |..;.BL findpix:S|
00005240  55 42 20 44 25 2c 41 25  2c 45 25 0d 03 3c 0d 2e  |UB D%,A%,E%..<..|
00005250  66 72 73 74 72 6c 70 32  0d 03 3d 1e 43 4d 50 20  |frstrlp2..=.CMP |
00005260  44 25 2c 23 31 32 38 3a  42 4c 54 20 65 78 66 72  |D%,#128:BLT exfr|
00005270  73 74 72 6c 70 32 0d 03  3e 1c 43 4d 50 20 43 25  |strlp2..>.CMP C%|
00005280  2c 52 31 31 3a 42 47 45  20 65 78 66 72 73 74 72  |,R11:BGE exfrstr|
00005290  6c 70 0d 03 3f 13 4d 4f  56 20 45 25 2c 44 25 2c  |lp..?.MOV E%,D%,|
000052a0  41 53 52 23 37 0d 03 40  1d 43 4d 50 20 45 25 2c  |ASR#7..@.CMP E%,|
000052b0  23 31 32 38 3a 4d 4f 56  47 45 20 45 25 2c 23 31  |#128:MOVGE E%,#1|
000052c0  32 37 0d 03 41 21 84 52  20 52 38 2c 45 25 2c 23  |27..A!.R R8,E%,#|
000052d0  26 38 30 3a 53 54 52 42  20 52 38 2c 5b 43 25 5d  |&80:STRB R8,[C%]|
000052e0  2c 23 31 0d 03 42 16 53  55 42 20 44 25 2c 44 25  |,#1..B.SUB D%,D%|
000052f0  2c 45 25 2c 41 53 4c 23  37 0d 03 43 0e 42 20 66  |,E%,ASL#7..C.B f|
00005300  72 73 74 72 6c 70 32 0d  03 44 0f 2e 65 78 66 72  |rstrlp2..D..exfr|
00005310  73 74 72 6c 70 32 0d 03  45 13 53 54 52 42 20 44  |strlp2..E.STRB D|
00005320  25 2c 5b 43 25 5d 2c 23  31 0d 03 46 0d 42 20 66  |%,[C%],#1..F.B f|
00005330  72 73 74 72 6c 70 0d 03  47 0e 2e 65 78 66 72 73  |rstrlp..G..exfrs|
00005340  74 72 6c 70 0d 03 48 1a  43 4d 50 20 43 25 2c 52  |trlp..H.CMP C%,R|
00005350  31 31 3a 4d 4f 56 47 45  20 43 25 2c 23 30 0d 03  |11:MOVGE C%,#0..|
00005360  49 13 53 54 52 20 43 25  2c 73 74 6f 72 65 70 6f  |I.STR C%,storepo|
00005370  73 0d 03 4a 14 4c 44 4d  46 44 20 28 73 70 29 21  |s..J.LDMFD (sp)!|
00005380  2c 7b 70 63 7d 0d 03 4b  04 0d 03 4c 0c 2e 66 69  |,{pc}..K...L..fi|
00005390  6e 64 70 69 78 0d 03 4d  1c 53 54 4d 46 44 20 28  |ndpix..M.STMFD (|
000053a0  73 70 29 21 2c 7b 52 38  2c 52 39 2c 6c 69 6e 6b  |sp)!,{R8,R9,link|
000053b0  7d 0d 03 4e 0b 2e 66 70  69 78 6c 70 0d 03 4f 2a  |}..N..fpixlp..O*|
000053c0  43 4d 50 20 41 25 2c 23  4e 50 49 58 25 3a 4c 44  |CMP A%,#NPIX%:LD|
000053d0  4d 47 45 46 44 20 28 73  70 29 21 2c 7b 52 38 2c  |MGEFD (sp)!,{R8,|
000053e0  52 39 2c 70 63 7d 0d 03  50 22 4c 44 52 42 20 52  |R9,pc}..P"LDRB R|
000053f0  38 2c 5b 42 25 2c 41 25  2c 41 53 52 23 28 33 2d  |8,[B%,A%,ASR#(3-|
00005400  4c 32 42 50 50 25 29 5d  0d 03 51 16 80 20 52 39  |L2BPP%)]..Q.. R9|
00005410  2c 41 25 2c 23 37 3e 3e  4c 32 42 50 50 25 0d 03  |,A%,#7>>L2BPP%..|
00005420  52 18 4d 4f 56 20 52 39  2c 52 39 2c 41 53 4c 23  |R.MOV R9,R9,ASL#|
00005430  4c 32 42 50 50 25 0d 03  53 17 80 53 20 52 38 2c  |L2BPP%..S..S R8,|
00005440  52 38 2c 52 31 30 2c 41  53 4c 20 52 39 0d 03 54  |R8,R10,ASL R9..T|
00005450  05 5d 0d 03 55 38 e7 20  73 74 6f 73 74 79 6c 65  |.]..U8. stostyle|
00005460  25 3d 30 20 8c 20 5b 4f  50 54 20 50 41 53 53 3a  |%=0 . [OPT PASS:|
00005470  4c 44 4d 4e 45 46 44 20  28 73 70 29 21 2c 7b 52  |LDMNEFD (sp)!,{R|
00005480  38 2c 52 39 2c 70 63 7d  3a 5d 0d 03 56 13 e7 20  |8,R9,pc}:]..V.. |
00005490  73 74 6f 73 74 79 6c 65  25 3d 31 20 8c 0d 03 57  |stostyle%=1 ...W|
000054a0  0f 20 5b 20 4f 50 54 20  50 41 53 53 0d 03 58 15  |. [ OPT PASS..X.|
000054b0  20 43 4d 50 20 52 38 2c  48 25 2c 41 53 4c 20 52  | CMP R8,H%,ASL R|
000054c0  39 0d 03 59 12 20 82 45  51 20 48 25 2c 48 25 2c  |9..Y. .EQ H%,H%,|
000054d0  52 31 30 0d 03 5a 1d 20  4c 44 4d 45 51 46 44 20  |R10..Z. LDMEQFD |
000054e0  28 73 70 29 21 2c 7b 52  38 2c 52 39 2c 70 63 7d  |(sp)!,{R8,R9,pc}|
000054f0  0d 03 5b 06 20 5d 0d 03  5c 05 cd 0d 03 5d 0e 5b  |..[. ]..\....].[|
00005500  20 4f 50 54 20 50 41 53  53 0d 03 5e 10 41 44 44  | OPT PASS..^.ADD|
00005510  20 41 25 2c 41 25 2c 23  31 0d 03 5f 0c 42 20 66  | A%,A%,#1.._.B f|
00005520  70 69 78 6c 70 0d 03 60  04 0d 03 61 09 2e 73 68  |pixlp..`...a..sh|
00005530  6f 77 0d 03 62 16 53 54  4d 46 44 20 28 73 70 29  |ow..b.STMFD (sp)|
00005540  21 2c 7b 6c 69 6e 6b 7d  0d 03 63 12 4d 4f 56 20  |!,{link}..c.MOV |
00005550  52 31 30 2c 23 4d 41 53  4b 25 0d 03 64 11 4c 44  |R10,#MASK%..d.LD|
00005560  52 20 42 25 2c 73 63 72  70 6f 73 0d 03 65 13 4c  |R B%,scrpos..e.L|
00005570  44 52 42 20 41 25 2c 5b  43 25 5d 2c 23 31 0d 03  |DRB A%,[C%],#1..|
00005580  66 25 4c 44 52 42 20 52  38 2c 5b 43 25 5d 2c 23  |f%LDRB R8,[C%],#|
00005590  31 3a 84 52 20 41 25 2c  41 25 2c 52 38 2c 41 53  |1:.R A%,A%,R8,AS|
000055a0  4c 23 38 0d 03 67 26 4c  44 52 42 20 52 38 2c 5b  |L#8..g&LDRB R8,[|
000055b0  43 25 5d 2c 23 31 3a 84  52 20 41 25 2c 41 25 2c  |C%],#1:.R A%,A%,|
000055c0  52 38 2c 41 53 4c 23 31  36 0d 03 68 05 5d 0d 03  |R8,ASL#16..h.]..|
000055d0  69 13 e7 20 73 74 6f 73  74 79 6c 65 25 3d 30 20  |i.. stostyle%=0 |
000055e0  8c 0d 03 6a 0e 20 5b 4f  50 54 20 50 41 53 53 0d  |...j. [OPT PASS.|
000055f0  03 6b 0c 20 2e 73 68 6c  6f 6f 70 0d 03 6c 1f 20  |.k. .shloop..l. |
00005600  43 4d 50 20 41 25 2c 23  4e 50 49 58 25 3a 42 47  |CMP A%,#NPIX%:BG|
00005610  45 20 65 78 73 68 6c 6f  6f 70 0d 03 6d 23 20 4c  |E exshloop..m# L|
00005620  44 52 42 20 52 38 2c 5b  42 25 2c 41 25 2c 41 53  |DRB R8,[B%,A%,AS|
00005630  52 23 28 33 2d 4c 32 42  50 50 25 29 5d 0d 03 6e  |R#(3-L2BPP%)]..n|
00005640  17 20 80 20 52 39 2c 41  25 2c 23 37 3e 3e 4c 32  |. . R9,A%,#7>>L2|
00005650  42 50 50 25 0d 03 6f 19  20 4d 4f 56 20 52 39 2c  |BPP%..o. MOV R9,|
00005660  52 39 2c 41 53 4c 23 4c  32 42 50 50 25 0d 03 70  |R9,ASL#L2BPP%..p|
00005670  17 20 82 20 52 38 2c 52  38 2c 52 31 30 2c 41 53  |. . R8,R8,R10,AS|
00005680  4c 20 52 39 0d 03 71 23  20 53 54 52 42 20 52 38  |L R9..q# STRB R8|
00005690  2c 5b 42 25 2c 41 25 2c  41 53 52 23 28 33 2d 4c  |,[B%,A%,ASR#(3-L|
000056a0  32 42 50 50 25 29 5d 0d  03 72 11 20 41 44 44 20  |2BPP%)]..r. ADD |
000056b0  41 25 2c 41 25 2c 23 31  0d 03 73 06 20 5d 0d 03  |A%,A%,#1..s. ]..|
000056c0  74 05 cd 0d 03 75 13 e7  20 73 74 6f 73 74 79 6c  |t....u.. stostyl|
000056d0  65 25 3d 31 20 8c 0d 03  76 0f 20 5b 20 4f 50 54  |e%=1 ...v. [ OPT|
000056e0  20 50 41 53 53 0d 03 77  0c 20 2e 73 68 6c 6f 6f  | PASS..w. .shloo|
000056f0  70 0d 03 78 18 20 5c 20  77 61 6e 74 20 70 69 78  |p..x. \ want pix|
00005700  65 6c 20 41 25 20 73 65  74 0d 03 79 04 0d 03 7a  |el A% set..y...z|
00005710  16 20 5c 20 67 65 74 20  6e 65 78 74 20 6f 66 66  |. \ get next off|
00005720  73 65 74 0d 03 7b 1f 20  43 4d 50 20 41 25 2c 23  |set..{. CMP A%,#|
00005730  4e 50 49 58 25 3a 42 47  45 20 65 78 73 68 6c 6f  |NPIX%:BGE exshlo|
00005740  6f 70 0d 03 7c 1a 20 41  44 44 20 47 25 2c 41 25  |op..|. ADD G%,A%|
00005750  2c 23 31 3a 2e 73 68 6c  6f 6f 70 33 0d 03 7d 14  |,#1:.shloop3..}.|
00005760  20 4c 44 52 42 20 44 25  2c 5b 43 25 5d 2c 23 31  | LDRB D%,[C%],#1|
00005770  0d 03 7e 31 20 54 53 54  20 44 25 2c 23 26 38 30  |..~1 TST D%,#&80|
00005780  3a 80 4e 45 20 44 25 2c  44 25 2c 23 26 37 46 3a  |:.NE D%,D%,#&7F:|
00005790  4d 4f 56 4e 45 20 44 25  2c 44 25 2c 41 53 4c 23  |MOVNE D%,D%,ASL#|
000057a0  37 0d 03 7f 29 20 41 44  44 20 47 25 2c 47 25 2c  |7...) ADD G%,G%,|
000057b0  44 25 3a 43 4d 50 20 44  25 2c 23 31 32 38 3a 42  |D%:CMP D%,#128:B|
000057c0  47 45 20 73 68 6c 6f 6f  70 33 0d 03 80 04 0d 03  |GE shloop3......|
000057d0  81 1d 20 5c 20 70 6c 6f  74 20 70 69 78 65 6c 73  |.. \ plot pixels|
000057e0  20 41 25 20 74 6f 20 47  25 2d 31 0d 03 82 0d 20  | A% to G%-1.... |
000057f0  2e 73 68 6c 6f 6f 70 34  0d 03 83 23 20 4c 44 52  |.shloop4...# LDR|
00005800  42 20 52 38 2c 5b 42 25  2c 41 25 2c 41 53 52 23  |B R8,[B%,A%,ASR#|
00005810  28 33 2d 4c 32 42 50 50  25 29 5d 0d 03 84 17 20  |(3-L2BPP%)].... |
00005820  80 20 52 39 2c 41 25 2c  23 37 3e 3e 4c 32 42 50  |. R9,A%,#7>>L2BP|
00005830  50 25 0d 03 85 19 20 4d  4f 56 20 52 39 2c 52 39  |P%.... MOV R9,R9|
00005840  2c 41 53 4c 23 4c 32 42  50 50 25 0d 03 86 17 20  |,ASL#L2BPP%.... |
00005850  82 20 52 38 2c 52 38 2c  52 31 30 2c 41 53 4c 20  |. R8,R8,R10,ASL |
00005860  52 39 0d 03 87 23 20 53  54 52 42 20 52 38 2c 5b  |R9...# STRB R8,[|
00005870  42 25 2c 41 25 2c 41 53  52 23 28 33 2d 4c 32 42  |B%,A%,ASR#(3-L2B|
00005880  50 50 25 29 5d 0d 03 88  27 20 41 44 44 20 41 25  |PP%)]...' ADD A%|
00005890  2c 41 25 2c 23 31 3a 43  4d 50 20 41 25 2c 47 25  |,A%,#1:CMP A%,G%|
000058a0  3a 42 4c 54 20 73 68 6c  6f 6f 70 34 0d 03 89 11  |:BLT shloop4....|
000058b0  20 41 44 44 20 41 25 2c  41 25 2c 23 31 0d 03 8a  | ADD A%,A%,#1...|
000058c0  04 0d 03 8b 16 20 5c 20  67 65 74 20 6e 65 78 74  |..... \ get next|
000058d0  20 6f 66 66 73 65 74 0d  03 8c 1f 20 43 4d 50 20  | offset.... CMP |
000058e0  41 25 2c 23 4e 50 49 58  25 3a 42 47 45 20 65 78  |A%,#NPIX%:BGE ex|
000058f0  73 68 6c 6f 6f 70 0d 03  8d 06 20 5d 0d 03 8e 05  |shloop.... ]....|
00005900  cd 0d 03 8f 0e 5b 20 4f  50 54 20 50 41 53 53 0d  |.....[ OPT PASS.|
00005910  03 90 0c 2e 73 68 6c 6f  6f 70 32 0d 03 91 13 4c  |....shloop2....L|
00005920  44 52 42 20 44 25 2c 5b  43 25 5d 2c 23 31 0d 03  |DRB D%,[C%],#1..|
00005930  92 30 54 53 54 20 44 25  2c 23 26 38 30 3a 80 4e  |.0TST D%,#&80:.N|
00005940  45 20 44 25 2c 44 25 2c  23 26 37 46 3a 4d 4f 56  |E D%,D%,#&7F:MOV|
00005950  4e 45 20 44 25 2c 44 25  2c 41 53 4c 23 37 0d 03  |NE D%,D%,ASL#7..|
00005960  93 28 41 44 44 20 41 25  2c 41 25 2c 44 25 3a 43  |.(ADD A%,A%,D%:C|
00005970  4d 50 20 44 25 2c 23 31  32 38 3a 42 47 45 20 73  |MP D%,#128:BGE s|
00005980  68 6c 6f 6f 70 32 0d 03  94 0c 42 20 73 68 6c 6f  |hloop2....B shlo|
00005990  6f 70 0d 03 95 0d 2e 65  78 73 68 6c 6f 6f 70 0d  |op.....exshloop.|
000059a0  03 96 1e 4d 4f 56 20 41  25 2c 43 25 3a 4c 44 4d  |...MOV A%,C%:LDM|
000059b0  46 44 20 28 73 70 29 21  2c 7b 70 63 7d 0d 03 97  |FD (sp)!,{pc}...|
000059c0  04 0d 03 98 0c 2e 63 6f  70 79 31 74 32 0d 03 99  |......copy1t2...|
000059d0  16 53 54 4d 46 44 20 28  73 70 29 21 2c 7b 6c 69  |.STMFD (sp)!,{li|
000059e0  6e 6b 7d 0d 03 9a 11 4c  44 52 20 52 30 2c 73 63  |nk}....LDR R0,sc|
000059f0  72 6c 65 6e 0d 03 9b 21  4c 44 52 20 52 31 2c 73  |rlen...!LDR R1,s|
00005a00  63 72 70 6f 73 32 3a 4c  44 52 20 52 32 2c 73 63  |crpos2:LDR R2,sc|
00005a10  72 70 6f 73 31 0d 03 9c  10 41 44 44 20 52 30 2c  |rpos1....ADD R0,|
00005a20  52 31 2c 52 30 0d 03 9d  0d 2e 63 6f 70 31 74 32  |R1,R0.....cop1t2|
00005a30  6c 70 0d 03 9e 29 4c 44  4d 49 41 20 52 31 21 2c  |lp...)LDMIA R1!,|
00005a40  7b 52 33 2d 52 31 30 7d  3a 53 54 4d 49 41 20 52  |{R3-R10}:STMIA R|
00005a50  32 21 2c 7b 52 33 2d 52  31 30 7d 0d 03 9f 1a 43  |2!,{R3-R10}....C|
00005a60  4d 50 20 52 31 2c 52 30  3a 42 4c 54 20 63 6f 70  |MP R1,R0:BLT cop|
00005a70  31 74 32 6c 70 0d 03 a0  14 4c 44 4d 46 44 20 28  |1t2lp....LDMFD (|
00005a80  73 70 29 21 2c 7b 70 63  7d 0d 03 a1 04 0d 03 a2  |sp)!,{pc}.......|
00005a90  0b 2e 65 6f 72 32 77 31  0d 03 a3 16 53 54 4d 46  |..eor2w1....STMF|
00005aa0  44 20 28 73 70 29 21 2c  7b 6c 69 6e 6b 7d 0d 03  |D (sp)!,{link}..|
00005ab0  a4 11 4c 44 52 20 52 30  2c 73 63 72 6c 65 6e 0d  |..LDR R0,scrlen.|
00005ac0  03 a5 21 4c 44 52 20 52  31 2c 73 63 72 70 6f 73  |..!LDR R1,scrpos|
00005ad0  32 3a 4c 44 52 20 52 32  2c 73 63 72 70 6f 73 31  |2:LDR R2,scrpos1|
00005ae0  0d 03 a6 10 41 44 44 20  52 30 2c 52 31 2c 52 30  |....ADD R0,R1,R0|
00005af0  0d 03 a7 0d 2e 65 6f 72  32 77 31 6c 70 0d 03 a8  |.....eor2w1lp...|
00005b00  27 4c 44 4d 49 41 20 52  31 21 2c 7b 52 33 2d 52  |'LDMIA R1!,{R3-R|
00005b10  36 7d 3a 4c 44 4d 49 41  20 52 32 2c 7b 52 37 2d  |6}:LDMIA R2,{R7-|
00005b20  52 31 30 7d 0d 03 a9 30  82 20 52 33 2c 52 33 2c  |R10}...0. R3,R3,|
00005b30  52 37 3a 82 20 52 34 2c  52 34 2c 52 38 3a 82 20  |R7:. R4,R4,R8:. |
00005b40  52 35 2c 52 35 2c 52 39  3a 82 20 52 36 2c 52 36  |R5,R5,R9:. R6,R6|
00005b50  2c 52 31 30 0d 03 aa 15  53 54 4d 49 41 20 52 32  |,R10....STMIA R2|
00005b60  21 2c 7b 52 33 2d 52 36  7d 0d 03 ab 1a 43 4d 50  |!,{R3-R6}....CMP|
00005b70  20 52 31 2c 52 30 3a 42  4c 54 20 65 6f 72 32 77  | R1,R0:BLT eor2w|
00005b80  31 6c 70 0d 03 ac 14 4c  44 4d 46 44 20 28 73 70  |1lp....LDMFD (sp|
00005b90  29 21 2c 7b 70 63 7d 0d  03 ad 04 0d 03 ae 10 2e  |)!,{pc}.........|
00005ba0  62 61 6e 6b 20 45 51 55  44 20 31 0d 03 af 14 2e  |bank EQUD 1.....|
00005bb0  73 74 6f 72 65 70 6f 73  20 45 51 55 44 20 30 0d  |storepos EQUD 0.|
00005bc0  03 b0 13 2e 73 74 6f 72  65 6e 64 20 45 51 55 44  |....storend EQUD|
00005bd0  20 30 0d 03 b1 12 2e 73  63 72 70 6f 73 20 45 51  | 0.....scrpos EQ|
00005be0  55 44 20 30 0d 03 b2 13  2e 73 63 72 70 6f 73 31  |UD 0.....scrpos1|
00005bf0  20 45 51 55 44 20 30 0d  03 b3 13 2e 73 63 72 70  | EQUD 0.....scrp|
00005c00  6f 73 32 20 45 51 55 44  20 30 0d 03 b4 1c 2e 73  |os2 EQUD 0.....s|
00005c10  63 72 6c 65 6e 20 45 51  55 44 20 a4 4d 6f 64 65  |crlen EQUD .Mode|
00005c20  56 61 72 28 37 29 0d 03  b5 05 5d 0d 03 b6 31 e7  |Var(7)....]...1.|
00005c30  20 50 25 3e 63 6f 64 65  2b 63 73 70 61 63 65 20  | P%>code+cspace |
00005c40  8c 20 85 20 31 2c 22 4f  75 74 20 6f 66 20 72 6f  |. . 1,"Out of ro|
00005c50  6f 6d 20 66 6f 72 20 63  6f 64 65 22 0d 03 b7 0a  |om for code"....|
00005c60  ed 20 50 41 53 53 0d 03  b8 05 e1 0d 03 b9 05 3a  |. PASS.........:|
00005c70  0d 03 ba 11 dd 20 f2 61  73 73 65 6d 5f 6e 65 62  |..... .assem_neb|
00005c80  6f 0d 03 bb 0e f2 61 73  73 65 6d 52 6f 6f 74 0d  |o.....assemRoot.|
00005c90  03 bc 0d f2 61 73 73 65  6d 44 69 76 0d 03 bd 12  |....assemDiv....|
00005ca0  de 20 73 63 72 61 70 25  20 32 35 36 2a 34 0d 03  |. scrap% 256*4..|
00005cb0  be 0e 63 73 70 61 63 65  3d 35 30 30 0d 03 bf 11  |..cspace=500....|
00005cc0  de 20 63 6f 64 65 20 63  73 70 61 63 65 0d 03 c0  |. code cspace...|
00005cd0  2b 41 25 3d 30 3a 42 25  3d 31 3a 43 25 3d 32 3a  |+A%=0:B%=1:C%=2:|
00005ce0  44 25 3d 33 3a 45 25 3d  34 3a 46 25 3d 35 3a 47  |D%=3:E%=4:F%=5:G|
00005cf0  25 3d 36 3a 48 25 3d 37  0d 03 c1 17 6c 69 6e 6b  |%=6:H%=7....link|
00005d00  3d 31 34 3a 73 70 3d 31  33 3a 70 63 3d 31 35 0d  |=14:sp=13:pc=15.|
00005d10  03 c2 14 e3 20 50 41 53  53 3d 30 20 b8 20 32 20  |.... PASS=0 . 2 |
00005d20  88 20 32 0d 03 c3 0b 50  25 3d 63 6f 64 65 0d 03  |. 2....P%=code..|
00005d30  c4 0e 5b 20 4f 50 54 20  50 41 53 53 0d 03 c5 0d  |..[ OPT PASS....|
00005d40  2e 6e 65 61 72 62 6f 6e  64 0d 03 c6 16 53 54 4d  |.nearbond....STM|
00005d50  46 44 20 28 73 70 29 21  2c 7b 6c 69 6e 6b 7d 0d  |FD (sp)!,{link}.|
00005d60  03 c7 4f 4c 44 52 20 52  38 2c 6e 65 62 6f 62 6c  |..OLDR R8,nebobl|
00005d70  6f 63 6b 3a 4c 44 52 20  52 39 2c 6e 65 62 6f 62  |ock:LDR R9,nebob|
00005d80  6c 6f 63 6b 2b 34 3a 4c  44 52 20 42 25 2c 6e 65  |lock+4:LDR B%,ne|
00005d90  62 6f 62 6c 6f 63 6b 2b  38 3a 4c 44 52 20 52 31  |boblock+8:LDR R1|
00005da0  30 2c 6e 65 62 6f 62 6c  6f 63 6b 2b 31 32 0d 03  |0,neboblock+12..|
00005db0  c8 2d 53 55 42 20 45 25  2c 45 25 2c 23 31 3a 4d  |.-SUB E%,E%,#1:M|
00005dc0  4f 56 20 52 31 32 2c 23  31 32 3a 4d 4c 41 20 48  |OV R12,#12:MLA H|
00005dd0  25 2c 45 25 2c 52 31 32  2c 48 25 0d 03 c9 0a 2e  |%,E%,R12,H%.....|
00005de0  6e 62 6c 70 32 0d 03 ca  1e 53 55 42 20 47 25 2c  |nblp2....SUB G%,|
00005df0  48 25 2c 23 31 32 3a 53  55 42 20 46 25 2c 45 25  |H%,#12:SUB F%,E%|
00005e00  2c 23 31 0d 03 cb 0a 2e  6e 62 6c 70 31 0d 03 cc  |,#1.....nblp1...|
00005e10  30 4c 44 52 20 41 25 2c  5b 48 25 2c 23 38 5d 3a  |0LDR A%,[H%,#8]:|
00005e20  4c 44 52 20 52 31 32 2c  5b 47 25 2c 23 38 5d 3a  |LDR R12,[G%,#8]:|
00005e30  53 55 42 20 41 25 2c 41  25 2c 52 31 32 0d 03 cd  |SUB A%,A%,R12...|
00005e40  37 4d 4f 56 20 41 25 2c  41 25 2c 41 53 52 20 52  |7MOV A%,A%,ASR R|
00005e50  31 30 3a 4d 55 4c 20 43  25 2c 41 25 2c 41 25 3a  |10:MUL C%,A%,A%:|
00005e60  43 4d 50 20 43 25 2c 52  39 3a 42 47 54 20 6e 62  |CMP C%,R9:BGT nb|
00005e70  73 6b 69 70 0d 03 ce 30  4c 44 52 20 41 25 2c 5b  |skip...0LDR A%,[|
00005e80  48 25 2c 23 34 5d 3a 4c  44 52 20 52 31 32 2c 5b  |H%,#4]:LDR R12,[|
00005e90  47 25 2c 23 34 5d 3a 53  55 42 20 41 25 2c 41 25  |G%,#4]:SUB A%,A%|
00005ea0  2c 52 31 32 0d 03 cf 3a  4d 4f 56 20 41 25 2c 41  |,R12...:MOV A%,A|
00005eb0  25 2c 41 53 52 20 52 31  30 3a 4d 4c 41 20 43 25  |%,ASR R10:MLA C%|
00005ec0  2c 41 25 2c 41 25 2c 43  25 3a 43 4d 50 20 43 25  |,A%,A%,C%:CMP C%|
00005ed0  2c 52 39 3a 42 47 54 20  6e 62 73 6b 69 70 0d 03  |,R9:BGT nbskip..|
00005ee0  d0 30 4c 44 52 20 41 25  2c 5b 48 25 2c 23 30 5d  |.0LDR A%,[H%,#0]|
00005ef0  3a 4c 44 52 20 52 31 32  2c 5b 47 25 2c 23 30 5d  |:LDR R12,[G%,#0]|
00005f00  3a 53 55 42 20 41 25 2c  41 25 2c 52 31 32 0d 03  |:SUB A%,A%,R12..|
00005f10  d1 3a 4d 4f 56 20 41 25  2c 41 25 2c 41 53 52 20  |.:MOV A%,A%,ASR |
00005f20  52 31 30 3a 4d 4c 41 20  43 25 2c 41 25 2c 41 25  |R10:MLA C%,A%,A%|
00005f30  2c 43 25 3a 43 4d 50 20  43 25 2c 52 39 3a 42 47  |,C%:CMP C%,R9:BG|
00005f40  54 20 6e 62 73 6b 69 70  0d 03 d2 2c 4c 44 52 20  |T nbskip...,LDR |
00005f50  41 25 2c 6e 65 62 6f 62  6c 6f 63 6b 2b 31 36 3a  |A%,neboblock+16:|
00005f60  43 4d 50 20 43 25 2c 41  25 3a 42 4c 54 20 6e 62  |CMP C%,A%:BLT nb|
00005f70  73 6b 69 70 0d 03 d3 27  43 4d 50 20 42 25 2c 44  |skip...'CMP B%,D|
00005f80  25 3a 41 44 44 47 45 20  42 25 2c 42 25 2c 23 38  |%:ADDGE B%,B%,#8|
00005f90  3a 42 47 45 20 6e 62 73  6b 69 70 0d 03 d4 2f 42  |:BGE nbskip.../B|
00005fa0  4c 20 72 6f 6f 74 3a 4c  44 52 20 41 25 2c 5b 52  |L root:LDR A%,[R|
00005fb0  38 2c 41 25 2c 41 53 4c  23 32 5d 3a 53 54 52 20  |8,A%,ASL#2]:STR |
00005fc0  41 25 2c 5b 42 25 2c 23  34 5d 0d 03 d5 25 84 52  |A%,[B%,#4]...%.R|
00005fd0  20 41 25 2c 45 25 2c 46  25 2c 41 53 4c 23 31 36  | A%,E%,F%,ASL#16|
00005fe0  3a 53 54 52 20 41 25 2c  5b 42 25 5d 2c 23 38 0d  |:STR A%,[B%],#8.|
00005ff0  03 d6 0b 2e 6e 62 73 6b  69 70 0d 03 d7 29 53 55  |....nbskip...)SU|
00006000  42 20 47 25 2c 47 25 2c  23 31 32 3a 53 55 42 53  |B G%,G%,#12:SUBS|
00006010  20 46 25 2c 46 25 2c 23  31 3a 42 47 45 20 6e 62  | F%,F%,#1:BGE nb|
00006020  6c 70 31 0d 03 d8 29 53  55 42 20 48 25 2c 48 25  |lp1...)SUB H%,H%|
00006030  2c 23 31 32 3a 53 55 42  53 20 45 25 2c 45 25 2c  |,#12:SUBS E%,E%,|
00006040  23 31 3a 42 47 54 20 6e  62 6c 70 32 0d 03 d9 16  |#1:BGT nblp2....|
00006050  53 54 52 20 42 25 2c 6e  65 62 6f 62 6c 6f 63 6b  |STR B%,neboblock|
00006060  2b 38 0d 03 da 14 4c 44  4d 46 44 20 28 73 70 29  |+8....LDMFD (sp)|
00006070  21 2c 7b 70 63 7d 0d 03  db 31 2e 6e 65 62 6f 62  |!,{pc}...1.nebob|
00006080  6c 6f 63 6b 20 45 51 55  44 20 30 3a 45 51 55 44  |lock EQUD 0:EQUD|
00006090  20 30 3a 45 51 55 44 20  30 3a 45 51 55 44 20 30  | 0:EQUD 0:EQUD 0|
000060a0  3a 45 51 55 44 20 30 0d  03 dc 04 0d 03 dd 0e 2e  |:EQUD 0.........|
000060b0  6e 65 61 72 63 6f 75 6e  74 0d 03 de 16 53 54 4d  |nearcount....STM|
000060c0  46 44 20 28 73 70 29 21  2c 7b 6c 69 6e 6b 7d 0d  |FD (sp)!,{link}.|
000060d0  03 df 3c 4c 44 52 20 52  38 2c 6e 65 62 6f 62 6c  |..<LDR R8,nebobl|
000060e0  6f 63 6b 3a 4c 44 52 20  52 39 2c 6e 65 62 6f 62  |ock:LDR R9,nebob|
000060f0  6c 6f 63 6b 2b 34 3a 4c  44 52 20 52 31 30 2c 6e  |lock+4:LDR R10,n|
00006100  65 62 6f 62 6c 6f 63 6b  2b 31 32 0d 03 e0 0d 4d  |eboblock+12....M|
00006110  4f 56 20 42 25 2c 23 30  0d 03 e1 2d 53 55 42 20  |OV B%,#0...-SUB |
00006120  45 25 2c 45 25 2c 23 31  3a 4d 4f 56 20 52 31 32  |E%,E%,#1:MOV R12|
00006130  2c 23 31 32 3a 4d 4c 41  20 48 25 2c 45 25 2c 52  |,#12:MLA H%,E%,R|
00006140  31 32 2c 48 25 0d 03 e2  0b 2e 63 6e 62 6c 70 32  |12,H%.....cnblp2|
00006150  0d 03 e3 1e 53 55 42 20  47 25 2c 48 25 2c 23 31  |....SUB G%,H%,#1|
00006160  32 3a 53 55 42 20 46 25  2c 45 25 2c 23 31 0d 03  |2:SUB F%,E%,#1..|
00006170  e4 0b 2e 63 6e 62 6c 70  31 0d 03 e5 30 4c 44 52  |...cnblp1...0LDR|
00006180  20 41 25 2c 5b 48 25 2c  23 38 5d 3a 4c 44 52 20  | A%,[H%,#8]:LDR |
00006190  52 31 32 2c 5b 47 25 2c  23 38 5d 3a 53 55 42 20  |R12,[G%,#8]:SUB |
000061a0  41 25 2c 41 25 2c 52 31  32 0d 03 e6 38 4d 4f 56  |A%,A%,R12...8MOV|
000061b0  20 41 25 2c 41 25 2c 41  53 52 20 52 31 30 3a 4d  | A%,A%,ASR R10:M|
000061c0  55 4c 20 43 25 2c 41 25  2c 41 25 3a 43 4d 50 20  |UL C%,A%,A%:CMP |
000061d0  43 25 2c 52 39 3a 42 47  54 20 63 6e 62 73 6b 69  |C%,R9:BGT cnbski|
000061e0  70 0d 03 e7 30 4c 44 52  20 41 25 2c 5b 48 25 2c  |p...0LDR A%,[H%,|
000061f0  23 34 5d 3a 4c 44 52 20  52 31 32 2c 5b 47 25 2c  |#4]:LDR R12,[G%,|
00006200  23 34 5d 3a 53 55 42 20  41 25 2c 41 25 2c 52 31  |#4]:SUB A%,A%,R1|
00006210  32 0d 03 e8 3b 4d 4f 56  20 41 25 2c 41 25 2c 41  |2...;MOV A%,A%,A|
00006220  53 52 20 52 31 30 3a 4d  4c 41 20 43 25 2c 41 25  |SR R10:MLA C%,A%|
00006230  2c 41 25 2c 43 25 3a 43  4d 50 20 43 25 2c 52 39  |,A%,C%:CMP C%,R9|
00006240  3a 42 47 54 20 63 6e 62  73 6b 69 70 0d 03 e9 30  |:BGT cnbskip...0|
00006250  4c 44 52 20 41 25 2c 5b  48 25 2c 23 30 5d 3a 4c  |LDR A%,[H%,#0]:L|
00006260  44 52 20 52 31 32 2c 5b  47 25 2c 23 30 5d 3a 53  |DR R12,[G%,#0]:S|
00006270  55 42 20 41 25 2c 41 25  2c 52 31 32 0d 03 ea 3b  |UB A%,A%,R12...;|
00006280  4d 4f 56 20 41 25 2c 41  25 2c 41 53 52 20 52 31  |MOV A%,A%,ASR R1|
00006290  30 3a 4d 4c 41 20 43 25  2c 41 25 2c 41 25 2c 43  |0:MLA C%,A%,A%,C|
000062a0  25 3a 43 4d 50 20 43 25  2c 52 39 3a 42 47 54 20  |%:CMP C%,R9:BGT |
000062b0  63 6e 62 73 6b 69 70 0d  03 eb 2d 4c 44 52 20 41  |cnbskip...-LDR A|
000062c0  25 2c 6e 65 62 6f 62 6c  6f 63 6b 2b 31 36 3a 43  |%,neboblock+16:C|
000062d0  4d 50 20 43 25 2c 41 25  3a 42 4c 54 20 63 6e 62  |MP C%,A%:BLT cnb|
000062e0  73 6b 69 70 0d 03 ec 10  41 44 44 20 42 25 2c 42  |skip....ADD B%,B|
000062f0  25 2c 23 31 0d 03 ed 0c  2e 63 6e 62 73 6b 69 70  |%,#1.....cnbskip|
00006300  0d 03 ee 2a 53 55 42 20  47 25 2c 47 25 2c 23 31  |...*SUB G%,G%,#1|
00006310  32 3a 53 55 42 53 20 46  25 2c 46 25 2c 23 31 3a  |2:SUBS F%,F%,#1:|
00006320  42 47 45 20 63 6e 62 6c  70 31 0d 03 ef 2a 53 55  |BGE cnblp1...*SU|
00006330  42 20 48 25 2c 48 25 2c  23 31 32 3a 53 55 42 53  |B H%,H%,#12:SUBS|
00006340  20 45 25 2c 45 25 2c 23  31 3a 42 47 54 20 63 6e  | E%,E%,#1:BGT cn|
00006350  62 6c 70 32 0d 03 f0 0d  4d 4f 56 20 52 30 2c 42  |blp2....MOV R0,B|
00006360  25 0d 03 f1 14 4c 44 4d  46 44 20 28 73 70 29 21  |%....LDMFD (sp)!|
00006370  2c 7b 70 63 7d 0d 03 f2  05 5d 0d 03 f3 31 e7 20  |,{pc}....]...1. |
00006380  50 25 3e 63 6f 64 65 2b  63 73 70 61 63 65 20 8c  |P%>code+cspace .|
00006390  20 85 20 31 2c 22 4f 75  74 20 6f 66 20 72 6f 6f  | . 1,"Out of roo|
000063a0  6d 20 66 6f 72 20 63 6f  64 65 22 0d 03 f4 0a ed  |m for code".....|
000063b0  20 50 41 53 53 0d 03 f5  05 e1 0d 03 f6 05 3a 0d  | PASS.........:.|
000063c0  03 f7 0c dd 20 f2 61 73  73 65 6d 0d 03 f8 0f 63  |.... .assem....c|
000063d0  73 70 61 63 65 3d 32 30  30 30 0d 03 f9 11 de 20  |space=2000..... |
000063e0  63 6f 64 65 20 63 73 70  61 63 65 0d 03 fa 2b 41  |code cspace...+A|
000063f0  25 3d 30 3a 42 25 3d 31  3a 43 25 3d 32 3a 44 25  |%=0:B%=1:C%=2:D%|
00006400  3d 33 3a 45 25 3d 34 3a  46 25 3d 35 3a 47 25 3d  |=3:E%=4:F%=5:G%=|
00006410  36 3a 48 25 3d 37 0d 03  fb 12 58 25 3d 30 3a 59  |6:H%=7....X%=0:Y|
00006420  25 3d 31 3a 5a 25 3d 33  0d 03 fc 23 41 49 25 3d  |%=1:Z%=3...#AI%=|
00006430  31 32 3a 42 49 25 3d 31  31 3a 53 41 25 3d 39 3a  |12:BI%=11:SA%=9:|
00006440  43 42 25 3d 38 3a 53 42  25 3d 37 0d 03 fd 17 6c  |CB%=8:SB%=7....l|
00006450  69 6e 6b 3d 31 34 3a 73  70 3d 31 33 3a 70 63 3d  |ink=14:sp=13:pc=|
00006460  31 35 0d 03 fe 14 e3 20  50 41 53 53 3d 30 20 b8  |15..... PASS=0 .|
00006470  20 32 20 88 20 32 0d 03  ff 0b 50 25 3d 63 6f 64  | 2 . 2....P%=cod|
00006480  65 0d 04 00 0e 5b 20 4f  50 54 20 50 41 53 53 0d  |e....[ OPT PASS.|
00006490  04 01 04 0d 04 02 10 2e  62 61 73 69 63 5f 73 74  |........basic_st|
000064a0  61 63 6b 0d 04 03 0e 4d  4f 56 20 52 30 2c 52 31  |ack....MOV R0,R1|
000064b0  33 0d 04 04 0f 4d 4f 56  20 70 63 2c 6c 69 6e 6b  |3....MOV pc,link|
000064c0  0d 04 05 04 0d 04 06 08  2e 61 76 5a 0d 04 07 0f  |.........avZ....|
000064d0  4d 4f 56 20 52 31 30 2c  23 31 32 0d 04 08 16 53  |MOV R10,#12....S|
000064e0  54 4d 46 44 20 28 73 70  29 21 2c 7b 6c 69 6e 6b  |TMFD (sp)!,{link|
000064f0  7d 0d 04 09 0c 2e 61 76  7a 6c 6f 6f 70 0d 04 0a  |}.....avzloop...|
00006500  17 4c 44 4d 49 41 20 43  25 2c 7b 52 37 2c 52 38  |.LDMIA C%,{R7,R8|
00006510  2c 52 39 7d 0d 04 0b 14  4d 4c 41 20 52 37 2c 52  |,R9}....MLA R7,R|
00006520  31 30 2c 52 37 2c 44 25  0d 04 0c 14 4d 4c 41 20  |10,R7,D%....MLA |
00006530  52 38 2c 52 31 30 2c 52  38 2c 44 25 0d 04 0d 14  |R8,R10,R8,D%....|
00006540  4d 4c 41 20 52 39 2c 52  31 30 2c 52 39 2c 44 25  |MLA R9,R10,R9,D%|
00006550  0d 04 0e 0f 4c 44 52 20  46 25 2c 5b 52 37 5d 0d  |....LDR F%,[R7].|
00006560  04 0f 1e 4c 44 52 20 52  31 31 2c 5b 52 38 5d 3a  |...LDR R11,[R8]:|
00006570  41 44 44 20 46 25 2c 46  25 2c 52 31 31 0d 04 10  |ADD F%,F%,R11...|
00006580  1e 4c 44 52 20 52 31 31  2c 5b 52 39 5d 3a 41 44  |.LDR R11,[R9]:AD|
00006590  44 20 46 25 2c 46 25 2c  52 31 31 0d 04 11 13 53  |D F%,F%,R11....S|
000065a0  54 52 20 46 25 2c 5b 43  25 2c 23 31 32 5d 0d 04  |TR F%,[C%,#12]..|
000065b0  12 18 41 44 44 20 43 25  2c 43 25 2c 23 65 6c 73  |..ADD C%,C%,#els|
000065c0  69 7a 25 28 33 29 0d 04  13 1d 53 55 42 53 20 45  |iz%(3)....SUBS E|
000065d0  25 2c 45 25 2c 23 31 3a  42 47 45 20 61 76 7a 6c  |%,E%,#1:BGE avzl|
000065e0  6f 6f 70 0d 04 14 14 4c  44 4d 46 44 20 28 73 70  |oop....LDMFD (sp|
000065f0  29 21 2c 7b 70 63 7d 0d  04 15 04 0d 04 16 0e 2e  |)!,{pc}.........|
00006600  68 69 64 65 66 61 63 65  73 0d 04 17 16 53 54 4d  |hidefaces....STM|
00006610  46 44 20 28 73 70 29 21  2c 7b 6c 69 6e 6b 7d 0d  |FD (sp)!,{link}.|
00006620  04 18 0c 2e 68 69 64 65  66 6c 70 0d 04 19 13 4c  |....hideflp....L|
00006630  44 52 20 46 25 2c 5b 43  25 2c 23 31 36 5d 0d 04  |DR F%,[C%,#16]..|
00006640  1a 18 4c 44 4d 49 41 20  43 25 2c 7b 52 37 2c 52  |..LDMIA C%,{R7,R|
00006650  39 2c 52 31 31 7d 0d 04  1b 16 41 44 44 20 52 37  |9,R11}....ADD R7|
00006660  2c 44 25 2c 52 37 2c 41  53 4c 23 33 0d 04 1c 16  |,D%,R7,ASL#3....|
00006670  41 44 44 20 52 39 2c 44  25 2c 52 39 2c 41 53 4c  |ADD R9,D%,R9,ASL|
00006680  23 33 0d 04 1d 18 41 44  44 20 52 31 31 2c 44 25  |#3....ADD R11,D%|
00006690  2c 52 31 31 2c 41 53 4c  23 33 0d 04 1e 14 4c 44  |,R11,ASL#3....LD|
000066a0  4d 49 41 20 52 37 2c 7b  52 37 2c 52 38 7d 0d 04  |MIA R7,{R7,R8}..|
000066b0  1f 15 4c 44 4d 49 41 20  52 39 2c 7b 52 39 2c 52  |..LDMIA R9,{R9,R|
000066c0  31 30 7d 0d 04 20 17 4c  44 4d 49 41 20 52 31 31  |10}.. .LDMIA R11|
000066d0  2c 7b 52 31 31 2c 52 31  32 7d 0d 04 21 21 53 55  |,{R11,R12}..!!SU|
000066e0  42 20 52 39 20 2c 52 39  20 2c 52 37 3a 53 55 42  |B R9 ,R9 ,R7:SUB|
000066f0  20 52 31 30 2c 52 31 30  2c 52 38 0d 04 22 21 53  | R10,R10,R8.."!S|
00006700  55 42 20 52 31 31 2c 52  31 31 2c 52 37 3a 53 55  |UB R11,R11,R7:SU|
00006710  42 20 52 31 32 2c 52 31  32 2c 52 38 0d 04 23 20  |B R12,R12,R8..# |
00006720  4d 55 4c 20 52 37 2c 52  39 2c 52 31 32 3a 4d 55  |MUL R7,R9,R12:MU|
00006730  4c 20 52 38 2c 52 31 30  2c 52 31 31 0d 04 24 18  |L R8,R10,R11..$.|
00006740  42 49 43 20 46 25 2c 46  25 2c 23 26 32 30 30 30  |BIC F%,F%,#&2000|
00006750  30 30 30 30 0d 04 25 23  43 4d 50 20 52 37 2c 52  |0000..%#CMP R7,R|
00006760  38 3a 84 52 4c 54 20 46  25 2c 46 25 2c 23 26 32  |8:.RLT F%,F%,#&2|
00006770  30 30 30 30 30 30 30 0d  04 26 13 53 54 52 20 46  |0000000..&.STR F|
00006780  25 2c 5b 43 25 2c 23 31  36 5d 0d 04 27 18 41 44  |%,[C%,#16]..'.AD|
00006790  44 20 43 25 2c 43 25 2c  23 65 6c 73 69 7a 25 28  |D C%,C%,#elsiz%(|
000067a0  33 29 0d 04 28 1d 53 55  42 53 20 45 25 2c 45 25  |3)..(.SUBS E%,E%|
000067b0  2c 23 31 3a 42 47 45 20  68 69 64 65 66 6c 70 0d  |,#1:BGE hideflp.|
000067c0  04 29 14 4c 44 4d 46 44  20 28 73 70 29 21 2c 7b  |.).LDMFD (sp)!,{|
000067d0  70 63 7d 0d 04 2a 04 0d  04 2b 09 2e 64 61 6d 70  |pc}..*...+..damp|
000067e0  0d 04 2c 10 4c 44 52 20  42 25 2c 76 65 70 6f 73  |..,.LDR B%,vepos|
000067f0  0d 04 2d 0d 2e 64 61 6d  70 6c 6f 6f 70 0d 04 2e  |..-..damploop...|
00006800  1a 4c 44 4d 49 41 20 42  25 2c 7b 52 31 30 2c 52  |.LDMIA B%,{R10,R|
00006810  31 31 2c 52 31 32 7d 0d  04 2f 4c 4d 4f 56 53 20  |11,R12}../LMOVS |
00006820  43 25 2c 52 31 30 2c 41  53 52 23 37 3a 4d 55 4c  |C%,R10,ASR#7:MUL|
00006830  20 44 25 2c 43 25 2c 43  25 3a 52 53 42 4d 49 20  | D%,C%,C%:RSBMI |
00006840  44 25 2c 44 25 2c 23 30  3a 53 55 42 20 52 31 30  |D%,D%,#0:SUB R10|
00006850  2c 52 31 30 2c 44 25 2c  41 53 52 23 64 61 6d 70  |,R10,D%,ASR#damp|
00006860  73 68 25 0d 04 30 4c 4d  4f 56 53 20 43 25 2c 52  |sh%..0LMOVS C%,R|
00006870  31 31 2c 41 53 52 23 37  3a 4d 55 4c 20 44 25 2c  |11,ASR#7:MUL D%,|
00006880  43 25 2c 43 25 3a 52 53  42 4d 49 20 44 25 2c 44  |C%,C%:RSBMI D%,D|
00006890  25 2c 23 30 3a 53 55 42  20 52 31 31 2c 52 31 31  |%,#0:SUB R11,R11|
000068a0  2c 44 25 2c 41 53 52 23  64 61 6d 70 73 68 25 0d  |,D%,ASR#dampsh%.|
000068b0  04 31 4c 4d 4f 56 53 20  43 25 2c 52 31 32 2c 41  |.1LMOVS C%,R12,A|
000068c0  53 52 23 37 3a 4d 55 4c  20 44 25 2c 43 25 2c 43  |SR#7:MUL D%,C%,C|
000068d0  25 3a 52 53 42 4d 49 20  44 25 2c 44 25 2c 23 30  |%:RSBMI D%,D%,#0|
000068e0  3a 53 55 42 20 52 31 32  2c 52 31 32 2c 44 25 2c  |:SUB R12,R12,D%,|
000068f0  41 53 52 23 64 61 6d 70  73 68 25 0d 04 32 1d 53  |ASR#dampsh%..2.S|
00006900  54 4d 49 41 20 28 42 25  29 21 2c 7b 52 31 30 2c  |TMIA (B%)!,{R10,|
00006910  52 31 31 2c 52 31 32 7d  0d 04 33 1e 53 55 42 53  |R11,R12}..3.SUBS|
00006920  20 41 25 2c 41 25 2c 23  31 3a 42 47 45 20 64 61  | A%,A%,#1:BGE da|
00006930  6d 70 6c 6f 6f 70 0d 04  34 0f 4d 4f 56 20 70 63  |mploop..4.MOV pc|
00006940  2c 6c 69 6e 6b 0d 04 35  04 0d 04 36 0b 2e 71 66  |,link..5...6..qf|
00006950  73 6f 72 74 0d 04 37 25  53 54 4d 46 44 20 28 73  |sort..7%STMFD (s|
00006960  70 29 21 2c 7b 41 25 2c  42 25 2c 43 25 2c 46 25  |p)!,{A%,B%,C%,F%|
00006970  2c 47 25 2c 6c 69 6e 6b  7d 0d 04 38 20 41 44 44  |,G%,link}..8 ADD|
00006980  20 41 25 2c 46 25 2c 47  25 3a 4d 4f 56 20 41 25  | A%,F%,G%:MOV A%|
00006990  2c 41 25 2c 41 53 52 23  31 0d 04 39 28 4c 44 52  |,A%,ASR#1..9(LDR|
000069a0  20 45 25 2c 5b 44 25 2c  41 25 2c 41 53 4c 23 32  | E%,[D%,A%,ASL#2|
000069b0  5d 3a 4c 44 52 20 43 25  2c 5b 45 25 2c 23 31 32  |]:LDR C%,[E%,#12|
000069c0  5d 0d 04 3a 17 4d 4f 56  20 41 25 2c 46 25 3a 4d  |]..:.MOV A%,F%:M|
000069d0  4f 56 20 42 25 2c 47 25  0d 04 3b 0b 2e 71 66 73  |OV B%,G%..;..qfs|
000069e0  6c 70 31 0d 04 3c 28 4c  44 52 20 45 25 2c 5b 44  |lp1..<(LDR E%,[D|
000069f0  25 2c 41 25 2c 41 53 4c  23 32 5d 3a 4c 44 52 20  |%,A%,ASL#2]:LDR |
00006a00  45 25 2c 5b 45 25 2c 23  31 32 5d 0d 04 3d 27 43  |E%,[E%,#12]..='C|
00006a10  4d 50 20 45 25 2c 43 25  3a 41 44 44 4c 54 20 41  |MP E%,C%:ADDLT A|
00006a20  25 2c 41 25 2c 23 31 3a  42 4c 54 20 71 66 73 6c  |%,A%,#1:BLT qfsl|
00006a30  70 31 0d 04 3e 0b 2e 71  66 73 6c 70 32 0d 04 3f  |p1..>..qfslp2..?|
00006a40  28 4c 44 52 20 45 25 2c  5b 44 25 2c 42 25 2c 41  |(LDR E%,[D%,B%,A|
00006a50  53 4c 23 32 5d 3a 4c 44  52 20 45 25 2c 5b 45 25  |SL#2]:LDR E%,[E%|
00006a60  2c 23 31 32 5d 0d 04 40  27 43 4d 50 20 43 25 2c  |,#12]..@'CMP C%,|
00006a70  45 25 3a 53 55 42 4c 54  20 42 25 2c 42 25 2c 23  |E%:SUBLT B%,B%,#|
00006a80  31 3a 42 4c 54 20 71 66  73 6c 70 32 0d 04 41 1a  |1:BLT qfslp2..A.|
00006a90  43 4d 50 20 41 25 2c 42  25 3a 42 47 54 20 73 6b  |CMP A%,B%:BGT sk|
00006aa0  69 70 73 77 61 70 0d 04  42 2d 4c 44 52 20 45 25  |ipswap..B-LDR E%|
00006ab0  2c 5b 44 25 2c 41 25 2c  41 53 4c 23 32 5d 3a 4c  |,[D%,A%,ASL#2]:L|
00006ac0  44 52 20 52 39 2c 5b 44  25 2c 42 25 2c 41 53 4c  |DR R9,[D%,B%,ASL|
00006ad0  23 32 5d 0d 04 43 2d 53  54 52 20 52 39 2c 5b 44  |#2]..C-STR R9,[D|
00006ae0  25 2c 41 25 2c 41 53 4c  23 32 5d 3a 53 54 52 20  |%,A%,ASL#2]:STR |
00006af0  45 25 2c 5b 44 25 2c 42  25 2c 41 53 4c 23 32 5d  |E%,[D%,B%,ASL#2]|
00006b00  0d 04 44 0d 2e 73 6b 69  70 73 77 61 70 0d 04 45  |..D..skipswap..E|
00006b10  1d 41 44 44 20 41 25 2c  41 25 2c 23 31 3a 53 55  |.ADD A%,A%,#1:SU|
00006b20  42 20 42 25 2c 42 25 2c  23 31 0d 04 46 18 43 4d  |B B%,B%,#1..F.CM|
00006b30  50 20 41 25 2c 42 25 3a  42 4c 45 20 71 66 73 6c  |P A%,B%:BLE qfsl|
00006b40  70 31 0d 04 47 2f 4d 4f  56 20 43 25 2c 47 25 3a  |p1..G/MOV C%,G%:|
00006b50  43 4d 50 20 46 25 2c 42  25 3a 4d 4f 56 4c 54 20  |CMP F%,B%:MOVLT |
00006b60  47 25 2c 42 25 3a 42 4c  4c 54 20 71 66 73 6f 72  |G%,B%:BLLT qfsor|
00006b70  74 0d 04 48 2f 4d 4f 56  20 47 25 2c 43 25 3a 43  |t..H/MOV G%,C%:C|
00006b80  4d 50 20 41 25 2c 47 25  3a 4d 4f 56 4c 54 20 46  |MP A%,G%:MOVLT F|
00006b90  25 2c 41 25 3a 42 4c 4c  54 20 71 66 73 6f 72 74  |%,A%:BLLT qfsort|
00006ba0  0d 04 49 23 4c 44 4d 46  44 20 28 73 70 29 21 2c  |..I#LDMFD (sp)!,|
00006bb0  7b 41 25 2c 42 25 2c 43  25 2c 46 25 2c 47 25 2c  |{A%,B%,C%,F%,G%,|
00006bc0  70 63 7d 0d 04 4a 04 0d  04 4b 09 2e 62 6f 6e 64  |pc}..J...K..bond|
00006bd0  0d 04 4c 16 53 54 4d 46  44 20 28 73 70 29 21 2c  |..L.STMFD (sp)!,|
00006be0  7b 6c 69 6e 6b 7d 0d 04  4d 0d 2e 62 6f 6e 64 6c  |{link}..M..bondl|
00006bf0  6f 6f 70 0d 04 4e 25 4c  44 52 20 52 38 2c 62 6f  |oop..N%LDR R8,bo|
00006c00  70 6f 73 3a 4c 44 52 20  47 25 2c 5b 52 38 2c 45  |pos:LDR G%,[R8,E|
00006c10  25 2c 41 53 4c 23 33 5d  0d 04 4f 25 41 44 44 20  |%,ASL#3]..O%ADD |
00006c20  52 38 2c 52 38 2c 23 34  3a 4c 44 52 20 46 25 2c  |R8,R8,#4:LDR F%,|
00006c30  5b 52 38 2c 45 25 2c 41  53 4c 23 33 5d 0d 04 50  |[R8,E%,ASL#3]..P|
00006c40  26 4d 4f 56 20 48 25 2c  47 25 2c 4c 53 52 23 31  |&MOV H%,G%,LSR#1|
00006c50  36 3a 82 20 47 25 2c 47  25 2c 48 25 2c 4c 53 4c  |6:. G%,G%,H%,LSL|
00006c60  23 31 36 0d 04 51 28 4d  4f 56 20 52 38 2c 23 31  |#16..Q(MOV R8,#1|
00006c70  32 3a 4d 55 4c 20 47 25  2c 52 38 2c 47 25 3a 4d  |2:MUL G%,R8,G%:M|
00006c80  55 4c 20 48 25 2c 52 38  2c 48 25 0d 04 52 10 4c  |UL H%,R8,H%..R.L|
00006c90  44 52 20 52 38 2c 63 6f  70 6f 73 0d 04 53 24 41  |DR R8,copos..S$A|
00006ca0  44 44 20 52 39 2c 52 38  2c 47 25 3a 4c 44 4d 49  |DD R9,R8,G%:LDMI|
00006cb0  41 20 52 39 2c 7b 52 30  2c 52 31 2c 52 32 7d 0d  |A R9,{R0,R1,R2}.|
00006cc0  04 54 27 41 44 44 20 52  39 2c 52 38 2c 48 25 3a  |.T'ADD R9,R8,H%:|
00006cd0  4c 44 4d 49 41 20 52 39  2c 7b 52 31 30 2c 52 31  |LDMIA R9,{R10,R1|
00006ce0  31 2c 52 31 32 7d 0d 04  55 30 53 55 42 20 52 31  |1,R12}..U0SUB R1|
00006cf0  30 2c 52 30 2c 52 31 30  3a 53 55 42 20 52 31 31  |0,R0,R10:SUB R11|
00006d00  2c 52 31 2c 52 31 31 3a  53 55 42 20 52 31 32 2c  |,R1,R11:SUB R12,|
00006d10  52 32 2c 52 31 32 0d 04  56 0d 4d 4f 56 20 42 25  |R2,R12..V.MOV B%|
00006d20  2c 23 30 0d 04 57 2d 43  4d 50 20 52 31 30 2c 23  |,#0..W-CMP R10,#|
00006d30  30 3a 52 53 42 4c 54 20  52 31 30 2c 52 31 30 2c  |0:RSBLT R10,R10,|
00006d40  23 30 3a 84 52 4c 54 20  42 25 2c 42 25 2c 23 31  |#0:.RLT B%,B%,#1|
00006d50  0d 04 58 2d 43 4d 50 20  52 31 31 2c 23 30 3a 52  |..X-CMP R11,#0:R|
00006d60  53 42 4c 54 20 52 31 31  2c 52 31 31 2c 23 30 3a  |SBLT R11,R11,#0:|
00006d70  84 52 4c 54 20 42 25 2c  42 25 2c 23 32 0d 04 59  |.RLT B%,B%,#2..Y|
00006d80  2d 43 4d 50 20 52 31 32  2c 23 30 3a 52 53 42 4c  |-CMP R12,#0:RSBL|
00006d90  54 20 52 31 32 2c 52 31  32 2c 23 30 3a 84 52 4c  |T R12,R12,#0:.RL|
00006da0  54 20 42 25 2c 42 25 2c  23 34 0d 04 5a 1b 4d 4f  |T B%,B%,#4..Z.MO|
00006db0  56 20 44 25 2c 23 31 3a  4d 4f 56 20 52 38 2c 23  |V D%,#1:MOV R8,#|
00006dc0  26 36 38 30 30 0d 04 5b  33 2e 7a 73 73 6c 3a 43  |&6800..[3.zssl:C|
00006dd0  4d 50 20 52 38 2c 52 31  30 2c 41 53 52 20 44 25  |MP R8,R10,ASR D%|
00006de0  3a 41 44 44 4c 54 20 44  25 2c 44 25 2c 23 31 3a  |:ADDLT D%,D%,#1:|
00006df0  42 4c 54 20 7a 73 73 6c  0d 04 5c 33 2e 78 73 73  |BLT zssl..\3.xss|
00006e00  6c 3a 43 4d 50 20 52 38  2c 52 31 31 2c 41 53 52  |l:CMP R8,R11,ASR|
00006e10  20 44 25 3a 41 44 44 4c  54 20 44 25 2c 44 25 2c  | D%:ADDLT D%,D%,|
00006e20  23 31 3a 42 4c 54 20 78  73 73 6c 0d 04 5d 33 2e  |#1:BLT xssl..]3.|
00006e30  79 73 73 6c 3a 43 4d 50  20 52 38 2c 52 31 32 2c  |yssl:CMP R8,R12,|
00006e40  41 53 52 20 44 25 3a 41  44 44 4c 54 20 44 25 2c  |ASR D%:ADDLT D%,|
00006e50  44 25 2c 23 31 3a 42 4c  54 20 79 73 73 6c 0d 04  |D%,#1:BLT yssl..|
00006e60  5e 3c 4d 4f 56 20 52 31  30 2c 52 31 30 2c 41 53  |^<MOV R10,R10,AS|
00006e70  52 20 44 25 3a 4d 4f 56  20 52 31 31 2c 52 31 31  |R D%:MOV R11,R11|
00006e80  2c 41 53 52 20 44 25 3a  4d 4f 56 20 52 31 32 2c  |,ASR D%:MOV R12,|
00006e90  52 31 32 2c 41 53 52 20  44 25 0d 04 5f 36 4d 55  |R12,ASR D%.._6MU|
00006ea0  4c 20 43 25 2c 52 31 30  2c 52 31 30 3a 4d 4c 41  |L C%,R10,R10:MLA|
00006eb0  20 43 25 2c 52 31 31 2c  52 31 31 2c 43 25 3a 4d  | C%,R11,R11,C%:M|
00006ec0  4c 41 20 43 25 2c 52 31  32 2c 52 31 32 2c 43 25  |LA C%,R12,R12,C%|
00006ed0  0d 04 60 20 42 4c 20 72  6f 6f 74 3a 43 4d 50 20  |..` BL root:CMP |
00006ee0  41 25 2c 23 30 3a 42 45  51 20 64 69 76 62 79 30  |A%,#0:BEQ divby0|
00006ef0  0d 04 61 34 4d 4f 56 20  52 38 2c 46 25 2c 4c 53  |..a4MOV R8,F%,LS|
00006f00  52 23 32 34 3a 4d 4f 56  20 52 39 2c 46 25 2c 4c  |R#24:MOV R9,F%,L|
00006f10  53 4c 23 38 3a 4d 4f 56  20 52 39 2c 52 39 2c 4c  |SL#8:MOV R9,R9,L|
00006f20  53 52 23 38 0d 04 62 2e  4d 4f 56 20 46 25 2c 41  |SR#8..b.MOV F%,A|
00006f30  25 2c 41 53 4c 20 44 25  3a 53 55 42 20 46 25 2c  |%,ASL D%:SUB F%,|
00006f40  46 25 2c 52 39 3a 4d 55  4c 20 46 25 2c 52 38 2c  |F%,R9:MUL F%,R8,|
00006f50  46 25 0d 04 63 29 43 4d  50 20 46 25 2c 23 30 3a  |F%..c)CMP F%,#0:|
00006f60  52 53 42 4c 54 20 46 25  2c 46 25 2c 23 30 3a 82  |RSBLT F%,F%,#0:.|
00006f70  4c 54 20 42 25 2c 42 25  2c 23 37 0d 04 64 1b 4d  |LT B%,B%,#7..d.M|
00006f80  4f 56 20 44 25 2c 23 30  3a 4d 4f 56 20 52 38 2c  |OV D%,#0:MOV R8,|
00006f90  23 26 38 30 30 30 0d 04  65 32 2e 66 73 73 6c 3a  |#&8000..e2.fssl:|
00006fa0  43 4d 50 20 52 38 2c 46  25 2c 41 53 52 20 44 25  |CMP R8,F%,ASR D%|
00006fb0  3a 41 44 44 4c 54 20 44  25 2c 44 25 2c 23 31 3a  |:ADDLT D%,D%,#1:|
00006fc0  42 4c 54 20 66 73 73 6c  0d 04 66 2f 52 53 42 20  |BLT fssl..f/RSB |
00006fd0  44 25 2c 44 25 2c 23 31  32 3a 4d 4f 56 20 46 25  |D%,D%,#12:MOV F%|
00006fe0  2c 46 25 2c 41 53 4c 20  44 25 3a 41 44 44 20 44  |,F%,ASL D%:ADD D|
00006ff0  25 2c 44 25 2c 23 37 0d  04 67 0d 42 4c 20 75 44  |%,D%,#7..g.BL uD|
00007000  69 76 33 32 0d 04 68 40  4d 55 4c 20 52 31 30 2c  |iv32..h@MUL R10,|
00007010  43 25 2c 52 31 30 3a 4d  4f 56 20 52 31 30 2c 52  |C%,R10:MOV R10,R|
00007020  31 30 2c 41 53 52 20 44  25 3a 54 53 54 20 42 25  |10,ASR D%:TST B%|
00007030  2c 23 31 3a 52 53 42 4e  45 20 52 31 30 2c 52 31  |,#1:RSBNE R10,R1|
00007040  30 2c 23 30 0d 04 69 40  4d 55 4c 20 52 31 31 2c  |0,#0..i@MUL R11,|
00007050  43 25 2c 52 31 31 3a 4d  4f 56 20 52 31 31 2c 52  |C%,R11:MOV R11,R|
00007060  31 31 2c 41 53 52 20 44  25 3a 54 53 54 20 42 25  |11,ASR D%:TST B%|
00007070  2c 23 32 3a 52 53 42 4e  45 20 52 31 31 2c 52 31  |,#2:RSBNE R11,R1|
00007080  31 2c 23 30 0d 04 6a 40  4d 55 4c 20 52 31 32 2c  |1,#0..j@MUL R12,|
00007090  43 25 2c 52 31 32 3a 4d  4f 56 20 52 31 32 2c 52  |C%,R12:MOV R12,R|
000070a0  31 32 2c 41 53 52 20 44  25 3a 54 53 54 20 42 25  |12,ASR D%:TST B%|
000070b0  2c 23 34 3a 52 53 42 4e  45 20 52 31 32 2c 52 31  |,#4:RSBNE R12,R1|
000070c0  32 2c 23 30 0d 04 6b 10  4c 44 52 20 52 38 2c 76  |2,#0..k.LDR R8,v|
000070d0  65 70 6f 73 0d 04 6c 62  41 44 44 20 52 39 2c 52  |epos..lbADD R9,R|
000070e0  38 2c 47 25 3a 4c 44 4d  49 41 20 52 39 2c 7b 52  |8,G%:LDMIA R9,{R|
000070f0  30 2c 52 31 2c 52 32 7d  3a 53 55 42 20 52 30 2c  |0,R1,R2}:SUB R0,|
00007100  52 30 2c 52 31 30 3a 53  55 42 20 52 31 2c 52 31  |R0,R10:SUB R1,R1|
00007110  2c 52 31 31 3a 53 55 42  20 52 32 2c 52 32 2c 52  |,R11:SUB R2,R2,R|
00007120  31 32 3a 53 54 4d 49 41  20 52 39 2c 7b 52 30 2c  |12:STMIA R9,{R0,|
00007130  52 31 2c 52 32 7d 0d 04  6d 62 41 44 44 20 52 39  |R1,R2}..mbADD R9|
00007140  2c 52 38 2c 48 25 3a 4c  44 4d 49 41 20 52 39 2c  |,R8,H%:LDMIA R9,|
00007150  7b 52 30 2c 52 31 2c 52  32 7d 3a 41 44 44 20 52  |{R0,R1,R2}:ADD R|
00007160  30 2c 52 30 2c 52 31 30  3a 41 44 44 20 52 31 2c  |0,R0,R10:ADD R1,|
00007170  52 31 2c 52 31 31 3a 41  44 44 20 52 32 2c 52 32  |R1,R11:ADD R2,R2|
00007180  2c 52 31 32 3a 53 54 4d  49 41 20 52 39 2c 7b 52  |,R12:STMIA R9,{R|
00007190  30 2c 52 31 2c 52 32 7d  0d 04 6e 0b 2e 64 69 76  |0,R1,R2}..n..div|
000071a0  62 79 30 0d 04 6f 1e 53  55 42 53 20 45 25 2c 45  |by0..o.SUBS E%,E|
000071b0  25 2c 23 31 3a 42 47 45  20 62 6f 6e 64 6c 6f 6f  |%,#1:BGE bondloo|
000071c0  70 0d 04 70 14 4c 44 4d  46 44 20 28 73 70 29 21  |p..p.LDMFD (sp)!|
000071d0  2c 7b 70 63 7d 0d 04 71  11 2e 62 6f 70 6f 73 20  |,{pc}..q..bopos |
000071e0  45 51 55 44 20 30 0d 04  72 11 2e 6e 6f 70 74 73  |EQUD 0..r..nopts|
000071f0  20 45 51 55 44 20 30 0d  04 73 04 0d 04 74 0b 2e  | EQUD 0..s...t..|
00007200  72 6f 74 61 74 65 0d 04  75 16 53 54 4d 46 44 20  |rotate..u.STMFD |
00007210  28 73 70 29 21 2c 7b 6c  69 6e 6b 7d 0d 04 76 26  |(sp)!,{link}..v&|
00007220  41 44 52 20 41 49 25 2c  73 69 6e 70 6f 73 3a 4c  |ADR AI%,sinpos:L|
00007230  44 4d 49 41 20 41 49 25  2c 7b 53 42 25 2c 43 42  |DMIA AI%,{SB%,CB|
00007240  25 7d 0d 04 77 41 4c 44  52 20 52 34 2c 6e 6f 70  |%}..wALDR R4,nop|
00007250  74 73 3a 4c 44 52 20 52  31 30 2c 63 6f 70 6f 73  |ts:LDR R10,copos|
00007260  3a 4c 44 52 20 52 39 2c  73 74 6f 72 65 32 70 6f  |:LDR R9,store2po|
00007270  73 3a 4c 44 52 20 52 31  34 2c 73 74 6f 72 65 33  |s:LDR R14,store3|
00007280  70 6f 73 0d 04 78 09 2e  6c 6f 6f 70 0d 04 79 19  |pos..x..loop..y.|
00007290  5c 20 6c 6f 6f 6b 20 75  70 20 63 6f 6f 72 64 69  |\ look up coordi|
000072a0  6e 61 74 65 73 0d 04 7a  19 4c 44 4d 49 41 20 52  |nates..z.LDMIA R|
000072b0  31 30 21 2c 7b 58 25 2c  59 25 2c 5a 25 7d 0d 04  |10!,{X%,Y%,Z%}..|
000072c0  7b 36 4d 4f 56 20 58 25  2c 58 25 2c 41 53 52 23  |{6MOV X%,X%,ASR#|
000072d0  31 30 3a 4d 4f 56 20 59  25 2c 59 25 2c 41 53 52  |10:MOV Y%,Y%,ASR|
000072e0  23 31 30 3a 4d 4f 56 20  5a 25 2c 5a 25 2c 41 53  |#10:MOV Z%,Z%,AS|
000072f0  52 23 31 30 0d 04 7c 3c  41 44 44 20 58 25 2c 58  |R#10..|<ADD X%,X|
00007300  25 2c 58 25 2c 41 53 52  23 31 3a 41 44 44 20 59  |%,X%,ASR#1:ADD Y|
00007310  25 2c 59 25 2c 59 25 2c  41 53 52 23 31 3a 41 44  |%,Y%,Y%,ASR#1:AD|
00007320  44 20 5a 25 2c 5a 25 2c  5a 25 2c 41 53 52 23 31  |D Z%,Z%,Z%,ASR#1|
00007330  0d 04 7d 1a 5c 20 72 6f  74 61 74 65 20 61 72 6f  |..}.\ rotate aro|
00007340  75 6e 64 20 78 20 61 78  69 73 0d 04 7e 1f 4c 44  |und x axis..~.LD|
00007350  52 20 41 49 25 2c 63 6f  73 32 25 3a 4c 44 52 20  |R AI%,cos2%:LDR |
00007360  42 49 25 2c 73 69 6e 32  25 0d 04 7f 33 4d 55 4c  |BI%,sin2%...3MUL|
00007370  20 52 35 2c 41 49 25 2c  59 25 3a 4d 4c 41 20 52  | R5,AI%,Y%:MLA R|
00007380  35 2c 5a 25 2c 42 49 25  2c 52 35 3a 4d 4f 56 20  |5,Z%,BI%,R5:MOV |
00007390  52 35 2c 52 35 2c 41 53  52 23 31 30 0d 04 80 3d  |R5,R5,ASR#10...=|
000073a0  4d 55 4c 20 5a 25 2c 41  49 25 2c 5a 25 3a 4d 55  |MUL Z%,AI%,Z%:MU|
000073b0  4c 20 52 36 2c 59 25 2c  42 49 25 3a 53 55 42 20  |L R6,Y%,BI%:SUB |
000073c0  5a 25 2c 5a 25 2c 52 36  3a 4d 4f 56 20 5a 25 2c  |Z%,Z%,R6:MOV Z%,|
000073d0  5a 25 2c 41 53 52 23 31  30 0d 04 81 0d 4d 4f 56  |Z%,ASR#10....MOV|
000073e0  20 59 25 2c 52 35 0d 04  82 1a 5c 20 72 6f 74 61  | Y%,R5....\ rota|
000073f0  74 65 20 61 72 6f 75 6e  64 20 79 20 61 78 69 73  |te around y axis|
00007400  0d 04 83 1d 4c 44 52 20  41 49 25 2c 63 6f 73 25  |....LDR AI%,cos%|
00007410  3a 4c 44 52 20 42 49 25  2c 73 69 6e 25 0d 04 84  |:LDR BI%,sin%...|
00007420  3d 4d 55 4c 20 52 35 2c  58 25 2c 41 49 25 3a 4d  |=MUL R5,X%,AI%:M|
00007430  55 4c 20 52 36 2c 5a 25  2c 42 49 25 3a 53 55 42  |UL R6,Z%,BI%:SUB|
00007440  20 52 35 2c 52 35 2c 52  36 3a 4d 4f 56 20 52 35  | R5,R5,R6:MOV R5|
00007450  2c 52 35 2c 41 53 52 23  31 30 0d 04 85 2c 4d 55  |,R5,ASR#10...,MU|
00007460  4c 20 5a 25 2c 41 49 25  2c 5a 25 3a 4d 4c 41 20  |L Z%,AI%,Z%:MLA |
00007470  5a 25 2c 58 25 2c 42 49  25 2c 5a 25 3a 4d 4f 56  |Z%,X%,BI%,Z%:MOV|
00007480  20 58 25 2c 52 35 0d 04  86 14 4d 4f 56 20 5a 25  | X%,R5....MOV Z%|
00007490  2c 5a 25 2c 41 53 52 23  31 30 0d 04 87 14 5c 20  |,Z%,ASR#10....\ |
000074a0  73 74 6f 72 65 20 33 44  20 70 6f 69 6e 74 0d 04  |store 3D point..|
000074b0  88 19 53 54 4d 49 41 20  52 31 34 21 2c 7b 58 25  |..STMIA R14!,{X%|
000074c0  2c 59 25 2c 5a 25 7d 0d  04 89 27 5c 20 61 70 70  |,Y%,Z%}...'\ app|
000074d0  6c 79 20 70 65 72 73 70  65 63 74 69 76 65 2c 20  |ly perspective, |
000074e0  73 74 6f 72 65 20 32 44  20 70 6f 69 6e 74 0d 04  |store 2D point..|
000074f0  8a 2e 4c 44 52 20 52 35  2c 70 65 72 70 6f 73 3a  |..LDR R5,perpos:|
00007500  52 53 42 53 20 52 36 2c  58 25 2c 23 26 34 30 30  |RSBS R6,X%,#&400|
00007510  3a 4d 4f 56 4c 54 20 52  36 2c 23 30 0d 04 8b 1f  |:MOVLT R6,#0....|
00007520  43 4d 50 20 52 36 2c 23  26 38 30 30 3a 4d 4f 56  |CMP R6,#&800:MOV|
00007530  47 54 20 52 36 2c 23 26  38 30 30 0d 04 8c 18 4c  |GT R6,#&800....L|
00007540  44 52 20 52 36 2c 5b 52  35 2c 52 36 2c 41 53 4c  |DR R6,[R5,R6,ASL|
00007550  23 32 5d 0d 04 8d 4a 4d  55 4c 20 59 25 2c 52 36  |#2]...JMUL Y%,R6|
00007560  2c 59 25 3a 4d 4f 56 20  59 25 2c 59 25 2c 41 53  |,Y%:MOV Y%,Y%,AS|
00007570  52 23 31 30 3a 41 44 44  20 59 25 2c 59 25 2c 23  |R#10:ADD Y%,Y%,#|
00007580  31 2b a4 4d 6f 64 65 56  61 72 28 31 31 29 3c 3c  |1+.ModeVar(11)<<|
00007590  a4 4d 6f 64 65 56 61 72  28 34 29 2d 31 0d 04 8e  |.ModeVar(4)-1...|
000075a0  4a 4d 55 4c 20 5a 25 2c  52 36 2c 5a 25 3a 4d 4f  |JMUL Z%,R6,Z%:MO|
000075b0  56 20 5a 25 2c 5a 25 2c  41 53 52 23 31 30 3a 41  |V Z%,Z%,ASR#10:A|
000075c0  44 44 20 5a 25 2c 5a 25  2c 23 31 2b a4 4d 6f 64  |DD Z%,Z%,#1+.Mod|
000075d0  65 56 61 72 28 31 32 29  3c 3c a4 4d 6f 64 65 56  |eVar(12)<<.ModeV|
000075e0  61 72 28 35 29 2d 31 0d  04 8f 15 53 54 4d 49 41  |ar(5)-1....STMIA|
000075f0  20 52 39 21 2c 7b 59 25  2c 5a 25 7d 0d 04 90 05  | R9!,{Y%,Z%}....|
00007600  5c 0d 04 91 1a 53 55 42  53 20 52 34 2c 52 34 2c  |\....SUBS R4,R4,|
00007610  23 31 3a 42 47 54 20 6c  6f 6f 70 0d 04 92 14 4c  |#1:BGT loop....L|
00007620  44 4d 46 44 20 28 73 70  29 21 2c 7b 70 63 7d 0d  |DMFD (sp)!,{pc}.|
00007630  04 93 04 0d 04 94 25 2e  73 69 6e 70 6f 73 20 45  |......%.sinpos E|
00007640  51 55 44 20 73 69 6e 3a  2e 63 6f 73 70 6f 73 20  |QUD sin:.cospos |
00007650  45 51 55 44 20 63 6f 73  0d 04 95 15 2e 70 65 72  |EQUD cos.....per|
00007660  70 6f 73 20 45 51 55 44  20 70 65 72 25 0d 04 96  |pos EQUD per%...|
00007670  1d 2e 73 69 6e 25 20 45  51 55 44 20 30 3a 2e 63  |..sin% EQUD 0:.c|
00007680  6f 73 25 20 45 51 55 44  20 30 0d 04 97 1f 2e 73  |os% EQUD 0.....s|
00007690  69 6e 32 25 20 45 51 55  44 20 30 3a 2e 63 6f 73  |in2% EQUD 0:.cos|
000076a0  32 25 20 45 51 55 44 20  30 0d 04 98 11 2e 63 6f  |2% EQUD 0.....co|
000076b0  70 6f 73 20 45 51 55 44  20 30 0d 04 99 11 2e 76  |pos EQUD 0.....v|
000076c0  65 70 6f 73 20 45 51 55  44 20 30 0d 04 9a 15 2e  |epos EQUD 0.....|
000076d0  73 74 6f 72 65 32 70 6f  73 20 45 51 55 44 20 30  |store2pos EQUD 0|
000076e0  0d 04 9b 15 2e 73 74 6f  72 65 33 70 6f 73 20 45  |.....store3pos E|
000076f0  51 55 44 20 30 0d 04 9c  05 5d 0d 04 9d 31 e7 20  |QUD 0....]...1. |
00007700  50 25 3e 63 6f 64 65 2b  63 73 70 61 63 65 20 8c  |P%>code+cspace .|
00007710  20 85 20 31 2c 22 4f 75  74 20 6f 66 20 72 6f 6f  | . 1,"Out of roo|
00007720  6d 20 66 6f 72 20 63 6f  64 65 22 0d 04 9e 0a ed  |m for code".....|
00007730  20 50 41 53 53 0d 04 9f  05 e1 0d 04 a0 05 3a 0d  | PASS.........:.|
00007740  04 a1 0f dd 20 f2 61 73  73 65 6d 44 69 76 0d 04  |.... .assemDiv..|
00007750  a2 0f 63 73 70 61 63 65  3d 31 30 30 30 0d 04 a3  |..cspace=1000...|
00007760  11 de 20 63 6f 64 65 20  63 73 70 61 63 65 0d 04  |.. code cspace..|
00007770  a4 17 6c 69 6e 6b 3d 31  34 3a 73 70 3d 31 33 3a  |..link=14:sp=13:|
00007780  70 63 3d 31 35 0d 04 a5  23 6c 68 73 3d 35 3a 72  |pc=15...#lhs=5:r|
00007790  68 73 3d 30 3a 64 69 76  3d 32 3a 6d 6f 64 3d 38  |hs=0:div=2:mod=8|
000077a0  3a 63 6f 75 6e 74 3d 39  0d 04 a6 14 e3 20 50 41  |:count=9..... PA|
000077b0  53 53 3d 30 20 b8 20 32  20 88 20 32 0d 04 a7 0b  |SS=0 . 2 . 2....|
000077c0  50 25 3d 63 6f 64 65 0d  04 a8 0e 5b 20 4f 50 54  |P%=code....[ OPT|
000077d0  20 50 41 53 53 0d 04 a9  09 41 4c 49 47 4e 0d 04  | PASS....ALIGN..|
000077e0  aa 0b 2e 75 44 69 76 33  32 0d 04 ab 0e 4d 4f 56  |...uDiv32....MOV|
000077f0  20 6d 6f 64 2c 23 30 0d  04 ac 0e 4d 4f 56 20 64  | mod,#0....MOV d|
00007800  69 76 2c 23 30 0d 04 ad  11 4d 4f 56 20 63 6f 75  |iv,#0....MOV cou|
00007810  6e 74 2c 23 33 32 0d 04  ae 0b 2e 64 69 76 4c 70  |nt,#32.....divLp|
00007820  31 0d 04 af 17 53 55 42  53 20 63 6f 75 6e 74 2c  |1....SUBS count,|
00007830  63 6f 75 6e 74 2c 23 31  0d 04 b0 0e ec 51 20 70  |count,#1.....Q p|
00007840  63 2c 6c 69 6e 6b 0d 04  b1 16 4d 4f 56 53 20 6c  |c,link....MOVS l|
00007850  68 73 2c 6c 68 73 2c 41  53 4c 23 31 0d 04 b2 0e  |hs,lhs,ASL#1....|
00007860  42 50 4c 20 64 69 76 4c  70 31 0d 04 b3 0b 2e 64  |BPL divLp1.....d|
00007870  69 76 4c 70 32 0d 04 b4  16 4d 4f 56 53 20 6c 68  |ivLp2....MOVS lh|
00007880  73 2c 6c 68 73 2c 41 53  4c 23 31 0d 04 b5 13 41  |s,lhs,ASL#1....A|
00007890  44 43 20 6d 6f 64 2c 6d  6f 64 2c 6d 6f 64 0d 04  |DC mod,mod,mod..|
000078a0  b6 0f 43 4d 50 20 6d 6f  64 2c 72 68 73 0d 04 b7  |..CMP mod,rhs...|
000078b0  15 53 55 42 43 53 20 6d  6f 64 2c 6d 6f 64 2c 72  |.SUBCS mod,mod,r|
000078c0  68 73 0d 04 b8 13 41 44  43 20 64 69 76 2c 64 69  |hs....ADC div,di|
000078d0  76 2c 64 69 76 0d 04 b9  17 53 55 42 53 20 63 6f  |v,div....SUBS co|
000078e0  75 6e 74 2c 63 6f 75 6e  74 2c 23 31 0d 04 ba 0e  |unt,count,#1....|
000078f0  42 4e 45 20 64 69 76 4c  70 32 0d 04 bb 0b 2e 64  |BNE divLp2.....d|
00007900  69 76 45 72 72 0d 04 bc  0f 4d 4f 56 20 70 63 2c  |ivErr....MOV pc,|
00007910  6c 69 6e 6b 0d 04 bd 05  5d 0d 04 be 34 e7 20 50  |link....]...4. P|
00007920  25 3e 63 6f 64 65 2b 63  73 70 61 63 65 20 8c 20  |%>code+cspace . |
00007930  85 20 31 32 33 34 2c 22  4f 75 74 20 6f 66 20 72  |. 1234,"Out of r|
00007940  6f 6f 6d 20 66 6f 72 20  63 6f 64 65 22 0d 04 bf  |oom for code"...|
00007950  0a ed 20 50 41 53 53 0d  04 c0 05 e1 0d 04 c1 05  |.. PASS.........|
00007960  3a 0d 04 c2 10 dd 20 f2  61 73 73 65 6d 52 6f 6f  |:..... .assemRoo|
00007970  74 0d 04 c3 0f de 20 63  6f 64 65 25 20 32 30 30  |t..... code% 200|
00007980  0d 04 c4 17 6c 69 6e 6b  3d 31 34 3a 73 70 3d 31  |....link=14:sp=1|
00007990  33 3a 70 63 3d 31 35 0d  04 c5 22 73 71 72 74 3d  |3:pc=15..."sqrt=|
000079a0  30 3a 73 71 75 61 72 65  3d 32 3a 6d 61 73 6b 3d  |0:square=2:mask=|
000079b0  31 3a 73 68 69 66 74 3d  33 0d 04 c6 21 64 69 66  |1:shift=3...!dif|
000079c0  66 3d 34 3a 73 75 62 74  72 61 68 65 6e 64 3d 35  |f=4:subtrahend=5|
000079d0  3a 74 3d 36 3a 6d 69 6e  3d 37 0d 04 c7 15 e3 20  |:t=6:min=7..... |
000079e0  70 61 73 73 25 3d 30 20  b8 20 32 20 88 20 32 0d  |pass%=0 . 2 . 2.|
000079f0  04 c8 0c 50 25 3d 63 6f  64 65 25 0d 04 c9 0e 5b  |...P%=code%....[|
00007a00  4f 50 54 20 70 61 73 73  25 0d 04 ca 19 2e 52 73  |OPT pass%.....Rs|
00007a10  74 6f 72 65 20 45 51 55  53 20 c4 34 2a 38 2c bd  |tore EQUS .4*8,.|
00007a20  30 29 0d 04 cb 09 2e 72  6f 6f 74 0d 04 cc 29 41  |0).....root...)A|
00007a30  44 52 20 73 71 72 74 2c  52 73 74 6f 72 65 3a 53  |DR sqrt,Rstore:S|
00007a40  54 4d 49 41 20 73 71 72  74 2c 7b 31 2d 37 2c 6c  |TMIA sqrt,{1-7,l|
00007a50  69 6e 6b 7d 0d 04 cd 17  4d 4f 56 20 6d 61 73 6b  |ink}....MOV mask|
00007a60  2c 23 26 43 30 30 30 30  30 30 30 0d 04 ce 11 4d  |,#&C0000000....M|
00007a70  4f 56 20 73 68 69 66 74  2c 23 33 30 0d 04 cf 0f  |OV shift,#30....|
00007a80  4d 4f 56 20 73 71 72 74  2c 23 30 0d 04 d0 0e 4d  |MOV sqrt,#0....M|
00007a90  4f 56 20 6d 69 6e 2c 23  30 0d 04 d1 0c 2e 6e 65  |OV min,#0.....ne|
00007aa0  78 74 62 69 74 0d 04 d2  17 4d 4f 56 20 73 71 72  |xtbit....MOV sqr|
00007ab0  74 2c 73 71 72 74 2c 4c  53 4c 23 31 0d 04 d3 15  |t,sqrt,LSL#1....|
00007ac0  4d 4f 56 20 6d 69 6e 2c  6d 69 6e 2c 4c 53 4c 23  |MOV min,min,LSL#|
00007ad0  32 0d 04 d4 13 80 20 74  2c 73 71 75 61 72 65 2c  |2..... t,square,|
00007ae0  6d 61 73 6b 0d 04 d5 15  4d 4f 56 20 74 2c 74 2c  |mask....MOV t,t,|
00007af0  4c 53 52 20 73 68 69 66  74 0d 04 d6 10 84 52 20  |LSR shift.....R |
00007b00  6d 69 6e 2c 6d 69 6e 2c  74 0d 04 d7 1d 4d 4f 56  |min,min,t....MOV|
00007b10  20 73 75 62 74 72 61 68  65 6e 64 2c 73 71 72 74  | subtrahend,sqrt|
00007b20  2c 4c 53 4c 23 31 0d 04  d8 20 41 44 44 20 73 75  |,LSL#1... ADD su|
00007b30  62 74 72 61 68 65 6e 64  2c 73 75 62 74 72 61 68  |btrahend,subtrah|
00007b40  65 6e 64 2c 23 31 0d 04  d9 16 43 4d 50 20 6d 69  |end,#1....CMP mi|
00007b50  6e 2c 73 75 62 74 72 61  68 65 6e 64 0d 04 da 1c  |n,subtrahend....|
00007b60  53 55 42 47 45 20 6d 69  6e 2c 6d 69 6e 2c 73 75  |SUBGE min,min,su|
00007b70  62 74 72 61 68 65 6e 64  0d 04 db 16 41 44 44 47  |btrahend....ADDG|
00007b80  45 20 73 71 72 74 2c 73  71 72 74 2c 23 31 0d 04  |E sqrt,sqrt,#1..|
00007b90  dc 17 4d 4f 56 20 6d 61  73 6b 2c 6d 61 73 6b 2c  |..MOV mask,mask,|
00007ba0  4c 53 52 23 32 0d 04 dd  17 53 55 42 53 20 73 68  |LSR#2....SUBS sh|
00007bb0  69 66 74 2c 73 68 69 66  74 2c 23 32 0d 04 de 0f  |ift,shift,#2....|
00007bc0  42 50 4c 20 6e 65 78 74  62 69 74 0d 04 df 23 41  |BPL nextbit...#A|
00007bd0  44 52 20 52 31 2c 52 73  74 6f 72 65 3a 4c 44 4d  |DR R1,Rstore:LDM|
00007be0  49 41 20 52 31 2c 7b 31  2d 37 2c 70 63 7d 0d 04  |IA R1,{1-7,pc}..|
00007bf0  e0 05 5d 0d 04 e1 05 ed  0d 04 e2 05 e1 0d 04 e3  |..].............|
00007c00  05 3a 0d 04 e4 0c dd 20  f2 65 72 72 6f 72 0d 04  |.:..... .error..|
00007c10  e5 09 ee 20 85 20 87 0d  04 e6 07 eb 20 30 0d 04  |... . ...... 0..|
00007c20  e7 16 f1 20 f6 24 3b 22  20 61 74 20 6c 69 6e 65  |... .$;" at line|
00007c30  20 22 3b 9e 0d 04 e8 18  c8 99 20 22 48 6f 75 72  | ";....... "Hour|
00007c40  67 6c 61 73 73 5f 53 6d  61 73 68 22 0d 04 e9 11  |glass_Smash"....|
00007c50  e7 20 63 68 25 3e 30 20  d9 23 63 68 25 0d 04 ea  |. ch%>0 .#ch%...|
00007c60  8f e7 20 61 6e 69 6d 25  20 8c 20 c8 99 20 22 4f  |.. anim% . .. "O|
00007c70  53 5f 50 72 65 74 74 79  50 72 69 6e 74 22 2c 22  |S_PrettyPrint","|
00007c80  45 6e 74 65 72 20 50 52  4f 43 73 61 76 65 28 22  |Enter PROCsave("|
00007c90  22 66 69 6c 65 6e 61 6d  65 22 22 29 20 74 6f 20  |"filename"") to |
00007ca0  73 61 76 65 20 74 68 65  20 61 6e 69 6d 61 74 69  |save the animati|
00007cb0  6f 6e 20 69 6e 20 6d 65  6d 6f 72 79 22 2b bd 31  |on in memory"+.1|
00007cc0  33 2b 22 50 72 65 73 73  20 46 34 20 74 6f 20 72  |3+"Press F4 to r|
00007cd0  65 74 75 72 6e 20 74 6f  20 74 68 65 20 44 65 73  |eturn to the Des|
00007ce0  6b 74 6f 70 22 2b bd 31  33 2b bd 30 0d 04 eb 2f  |ktop"+.13+.0.../|
00007cf0  2a 4b 65 79 20 34 20 7c  55 53 59 53 22 57 69 6d  |*Key 4 |USYS"Wim|
00007d00  70 5f 43 6f 6d 6d 61 6e  64 57 69 6e 64 6f 77 22  |p_CommandWindow"|
00007d10  2c 2d 31 7c 4d 51 55 49  54 7c 4d 0d 04 ec 05 e0  |,-1|MQUIT|M.....|
00007d20  0d 04 ed 05 3a 0d 04 ee  12 dd 20 f2 73 74 61 74  |....:..... .stat|
00007d30  75 73 28 46 52 25 29 0d  04 ef 0e ea 20 41 24 2c  |us(FR%)..... A$,|
00007d40  4f 25 2c 48 25 0d 04 f0  36 66 72 61 6d 65 73 25  |O%,H%...6frames%|
00007d50  3d 28 73 74 6f 72 65 6e  64 25 2d 73 74 6f 72 65  |=(storend%-store|
00007d60  31 25 29 2a 46 52 25 2f  28 21 73 74 6f 72 65 70  |1%)*FR%/(!storep|
00007d70  6f 73 2d 73 74 6f 72 65  31 25 29 0d 04 f1 22 ef  |os-store1%)...".|
00007d80  20 33 30 3a f1 22 46 72  61 6d 65 20 22 3b 46 52  | 30:."Frame ";FR|
00007d90  25 3b 22 2f 22 3b 66 72  61 6d 65 73 25 0d 04 f2  |%;"/";frames%...|
00007da0  55 f1 3b 21 73 74 6f 72  65 70 6f 73 2d 73 74 6f  |U.;!storepos-sto|
00007db0  72 65 25 3b 22 20 62 79  74 65 73 20 28 22 3b a8  |re%;" bytes (";.|
00007dc0  28 2e 35 2b 31 30 30 2a  28 21 73 74 6f 72 65 70  |(.5+100*(!storep|
00007dd0  6f 73 2d 73 74 6f 72 65  25 29 2f 28 73 74 6f 72  |os-store%)/(stor|
00007de0  65 6e 64 25 2d 73 74 6f  72 65 25 29 29 3b 22 25  |end%-store%));"%|
00007df0  29 22 0d 04 f3 12 4f 25  3d 91 2d 73 74 61 72 74  |)"....O%=.-start|
00007e00  69 6d 65 25 0d 04 f4 3a  f1 22 6c 61 73 74 20 66  |ime%...:."last f|
00007e10  72 61 6d 65 3a 20 22 3b  4f 25 20 81 20 31 30 30  |rame: ";O% . 100|
00007e20  3b 22 2e 22 3b 28 4f 25  20 81 20 31 30 29 83 20  |;".";(O% . 10). |
00007e30  31 30 3b 4f 25 20 83 20  31 30 3b 22 73 22 0d 04  |10;O% . 10;"s"..|
00007e40  f5 32 f4 20 50 52 49 4e  54 3b 6d 6f 76 65 74 69  |.2. PRINT;moveti|
00007e50  6d 65 25 2d 73 74 61 72  74 69 6d 65 25 3b 22 2b  |me%-startime%;"+|
00007e60  22 3b 54 49 4d 45 2d 6d  6f 76 65 74 69 6d 65 25  |";TIME-movetime%|
00007e70  0d 04 f6 19 67 65 6e 74  69 6d 65 25 2b 3d 91 2d  |....gentime%+=.-|
00007e80  73 74 61 72 74 69 6d 65  25 0d 04 f7 2c e7 20 61  |startime%...,. a|
00007e90  69 6d 25 3c 66 72 61 6d  65 73 25 20 80 20 61 69  |im%<frames% . ai|
00007ea0  6d 25 3e 46 52 25 20 8c  20 66 72 61 6d 65 73 25  |m%>FR% . frames%|
00007eb0  3d 61 69 6d 25 0d 04 f8  21 4f 25 3d 67 65 6e 74  |=aim%...!O%=gent|
00007ec0  69 6d 65 25 2a 28 66 72  61 6d 65 73 25 2d 46 52  |ime%*(frames%-FR|
00007ed0  25 29 2f 46 52 25 0d 04  f9 32 21 74 69 6d 62 6c  |%)/FR%...2!timbl|
00007ee0  6b 25 3d 33 3a 74 69 6d  62 6c 6b 25 21 34 3d 30  |k%=3:timblk%!4=0|
00007ef0  3a c8 99 20 22 4f 53 5f  57 6f 72 64 22 2c 31 34  |:.. "OS_Word",14|
00007f00  2c 74 69 6d 62 6c 6b 25  0d 04 fa 10 48 25 3d 74  |,timblk%....H%=t|
00007f10  69 6d 62 6c 6b 25 21 33  0d 04 fb 30 21 74 69 6d  |imblk%!3...0!tim|
00007f20  62 6c 6b 25 3d 28 21 74  69 6d 62 6c 6b 25 20 80  |blk%=(!timblk% .|
00007f30  20 26 46 46 46 46 46 46  29 2b 28 4f 25 20 80 20  | &FFFFFF)+(O% . |
00007f40  26 46 46 46 46 46 46 29  0d 04 fc 23 74 69 6d 62  |&FFFFFF)...#timb|
00007f50  6c 6b 25 21 33 3d 48 25  2b 28 4f 25 3e 3e 32 34  |lk%!3=H%+(O%>>24|
00007f60  29 2b 74 69 6d 62 6c 6b  25 3f 33 0d 04 fd 44 c8  |)+timblk%?3...D.|
00007f70  99 20 22 4f 53 5f 43 6f  6e 76 65 72 74 44 61 74  |. "OS_ConvertDat|
00007f80  65 41 6e 64 54 69 6d 65  22 2c 74 69 6d 62 6c 6b  |eAndTime",timblk|
00007f90  25 2c 73 74 72 69 25 2c  32 35 35 2c 22 25 7a 31  |%,stri%,255,"%z1|
00007fa0  32 3a 25 6d 69 25 70 6d  22 20 b8 20 2c 4f 25 0d  |2:%mi%pm" . ,O%.|
00007fb0  04 fe 29 3f 4f 25 3d 31  33 3a f1 3b 66 72 61 6d  |..)?O%=13:.;fram|
00007fc0  65 73 25 3b 22 20 66 72  61 6d 65 73 20 61 74 20  |es%;" frames at |
00007fd0  22 3b 24 73 74 72 69 25  0d 04 ff 05 e1 0d 05 00  |";$stri%........|
00007fe0  05 3a 0d 05 01 4c dd 20  2d 2d 2d 2d 2d 2d 2d 2d  |.:...L. --------|
00007ff0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00008020  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 0d 05  |--------------..|
00008030  02 05 3a 0d 05 03 27 dd  20 f2 69 6e 69 74 74 68  |..:...'. .initth|
00008040  69 6e 67 28 74 68 69 6e  67 25 2c 6e 70 25 2c 6e  |ing(thing%,np%,n|
00008050  66 25 2c 6e 62 25 2c 66  25 29 0d 05 04 13 74 68  |f%,nb%,f%)....th|
00008060  69 6e 67 25 21 6e 6f 70  25 3d 6e 70 25 0d 05 05  |ing%!nop%=np%...|
00008070  13 74 68 69 6e 67 25 21  6e 6f 66 25 3d 6e 66 25  |.thing%!nof%=nf%|
00008080  0d 05 06 13 74 68 69 6e  67 25 21 6e 6f 62 25 3d  |....thing%!nob%=|
00008090  6e 62 25 0d 05 07 2b e7  20 66 25 20 80 20 26 30  |nb%...+. f% . &0|
000080a0  31 20 8c 20 74 68 69 6e  67 25 21 63 6f 30 25 3d  |1 . thing%!co0%=|
000080b0  a4 63 72 65 61 74 65 28  31 2c 6e 70 25 29 0d 05  |.create(1,np%)..|
000080c0  08 2b e7 20 66 25 20 80  20 26 30 32 20 8c 20 74  |.+. f% . &02 . t|
000080d0  68 69 6e 67 25 21 63 6f  31 25 3d a4 63 72 65 61  |hing%!co1%=.crea|
000080e0  74 65 28 31 2c 6e 70 25  29 0d 05 09 2b e7 20 66  |te(1,np%)...+. f|
000080f0  25 20 80 20 26 30 34 20  8c 20 74 68 69 6e 67 25  |% . &04 . thing%|
00008100  21 63 6f 32 25 3d a4 63  72 65 61 74 65 28 32 2c  |!co2%=.create(2,|
00008110  6e 70 25 29 0d 05 0a 3b  e7 20 66 25 20 80 20 26  |np%)...;. f% . &|
00008120  30 38 20 8c 20 74 68 69  6e 67 25 21 76 65 6c 25  |08 . thing%!vel%|
00008130  3d a4 63 72 65 61 74 65  28 31 2c 6e 70 25 29 20  |=.create(1,np%) |
00008140  8b 20 74 68 69 6e 67 25  21 76 65 6c 25 3d 30 0d  |. thing%!vel%=0.|
00008150  05 0b 2b e7 20 66 25 20  80 20 26 31 30 20 8c 20  |..+. f% . &10 . |
00008160  74 68 69 6e 67 25 21 66  61 63 25 3d a4 63 72 65  |thing%!fac%=.cre|
00008170  61 74 65 28 33 2c 6e 66  25 29 0d 05 0c 2b e7 20  |ate(3,nf%)...+. |
00008180  66 25 20 80 20 26 32 30  20 8c 20 74 68 69 6e 67  |f% . &20 . thing|
00008190  25 21 62 6e 64 25 3d a4  63 72 65 61 74 65 28 36  |%!bnd%=.create(6|
000081a0  2c 6e 62 25 29 0d 05 0d  2b e7 20 66 25 20 80 20  |,nb%)...+. f% . |
000081b0  26 34 30 20 8c 20 74 68  69 6e 67 25 21 66 6e 6f  |&40 . thing%!fno|
000081c0  25 3d a4 63 72 65 61 74  65 28 31 2c 6e 66 25 29  |%=.create(1,nf%)|
000081d0  0d 05 0e 05 e1 0d 05 0f  05 3a 0d 05 10 0f dd 20  |.........:..... |
000081e0  f2 69 6e 69 74 33 4f 4f  44 0d 05 11 08 ea 20 41  |.init3OOD..... A|
000081f0  25 0d 05 12 0f 6d 61 78  6f 62 6a 73 25 3d 32 30  |%....maxobjs%=20|
00008200  0d 05 13 11 6d 61 78 74  68 69 6e 67 73 25 3d 31  |....maxthings%=1|
00008210  30 0d 05 14 0c 74 79 70  65 73 25 3d 38 0d 05 15  |0....types%=8...|
00008220  0b 77 69 6e 64 25 3d 31  0d 05 16 16 de 20 65 6c  |.wind%=1..... el|
00008230  73 69 7a 25 28 74 79 70  65 73 25 2d 31 29 0d 05  |siz%(types%-1)..|
00008240  17 4d 65 6c 73 69 7a 25  28 30 29 3d 30 3a 65 6c  |.Melsiz%(0)=0:el|
00008250  73 69 7a 25 28 31 29 3d  31 32 3a 65 6c 73 69 7a  |siz%(1)=12:elsiz|
00008260  25 28 32 29 3d 38 3a 65  6c 73 69 7a 25 28 33 29  |%(2)=8:elsiz%(3)|
00008270  3d 32 30 3a 65 6c 73 69  7a 25 28 34 29 3d 34 3a  |=20:elsiz%(4)=4:|
00008280  65 6c 73 69 7a 25 28 35  29 3d 34 0d 05 18 1c 65  |elsiz%(5)=4....e|
00008290  6c 73 69 7a 25 28 36 29  3d 38 3a 65 6c 73 69 7a  |lsiz%(6)=8:elsiz|
000082a0  25 28 37 29 3d 34 30 0d  05 19 50 6e 6f 70 25 3d  |%(7)=40...Pnop%=|
000082b0  30 3a 6e 6f 66 25 3d 34  3a 6e 6f 62 25 3d 38 3a  |0:nof%=4:nob%=8:|
000082c0  63 6f 30 25 3d 31 32 3a  63 6f 31 25 3d 31 36 3a  |co0%=12:co1%=16:|
000082d0  63 6f 32 25 3d 32 30 3a  76 65 6c 25 3d 32 34 3a  |co2%=20:vel%=24:|
000082e0  66 61 63 25 3d 32 38 3a  62 6e 64 25 3d 33 32 3a  |fac%=28:bnd%=32:|
000082f0  66 6e 6f 25 3d 33 36 0d  05 1a 05 e1 0d 05 1b 05  |fno%=36.........|
00008300  3a 0d 05 1c 1a dd 20 a4  63 72 65 61 74 65 28 54  |:..... .create(T|
00008310  59 50 45 25 2c 4e 4f 45  4c 25 29 0d 05 1d 3c e7  |YPE%,NOEL%)...<.|
00008320  20 54 59 50 45 25 3e 3d  74 79 70 65 73 25 20 84  | TYPE%>=types% .|
00008330  20 54 59 50 45 25 3c 30  20 8c 20 85 20 31 32 33  | TYPE%<0 . . 123|
00008340  34 2c 22 49 6e 76 61 6c  69 64 20 6f 62 6a 65 63  |4,"Invalid objec|
00008350  74 20 74 79 70 65 22 0d  05 1e 3b e7 20 4e 4f 45  |t type"...;. NOE|
00008360  4c 25 3c 30 20 8c 20 85  20 31 32 33 34 2c 22 53  |L%<0 . . 1234,"S|
00008370  69 6c 6c 79 20 6e 75 6d  62 65 72 20 6f 66 20 65  |illy number of e|
00008380  6c 65 6d 65 6e 74 73 20  72 65 71 75 65 73 74 65  |lements requeste|
00008390  64 22 0d 05 1f 0b ea 20  41 25 2c 53 25 0d 05 20  |d"..... A%,S%.. |
000083a0  1c de 20 53 25 20 4e 4f  45 4c 25 2a 65 6c 73 69  |.. S% NOEL%*elsi|
000083b0  7a 25 28 54 59 50 45 25  29 0d 05 21 0f e7 20 54  |z%(TYPE%)..!.. T|
000083c0  59 50 45 25 3d 37 20 8c  0d 05 22 2d 20 e3 20 41  |YPE%=7 ..."- . A|
000083d0  25 3d 30 20 b8 20 4e 4f  45 4c 25 2a 65 6c 73 69  |%=0 . NOEL%*elsi|
000083e0  7a 25 28 54 59 50 45 25  29 2d 34 3a 53 25 21 41  |z%(TYPE%)-4:S%!A|
000083f0  25 3d 30 3a ed 0d 05 23  05 cd 0d 05 24 07 3d 53  |%=0:...#....$.=S|
00008400  25 0d 05 25 05 3a 0d 05  26 21 dd 20 a4 69 6e 69  |%..%.:..&!. .ini|
00008410  74 5f 66 61 63 70 6f 69  6e 74 28 41 25 2c 42 25  |t_facpoint(A%,B%|
00008420  2c 4e 25 2c 53 25 29 0d  05 27 0c e7 20 4e 25 3d  |,N%,S%)..'.. N%=|
00008430  30 20 e1 0d 05 28 0b ea  20 43 25 2c 51 25 0d 05  |0 ...(.. C%,Q%..|
00008440  29 14 42 25 2b 3d 53 25  2a 65 6c 73 69 7a 25 28  |).B%+=S%*elsiz%(|
00008450  34 29 0d 05 2a 35 e3 20  43 25 3d 30 20 b8 20 4e  |4)..*5. C%=0 . N|
00008460  25 2d 31 3a 42 25 21 28  43 25 2a 65 6c 73 69 7a  |%-1:B%!(C%*elsiz|
00008470  25 28 34 29 29 3d 41 25  2b 43 25 2a 65 6c 73 69  |%(4))=A%+C%*elsi|
00008480  7a 25 28 33 29 3a ed 0d  05 2b 0a 3d 53 25 2b 4e  |z%(3):...+.=S%+N|
00008490  25 0d 05 2c 05 3a 0d 05  2d 1d dd 20 f2 72 6f 74  |%..,.:..-.. .rot|
000084a0  6e 70 65 72 73 70 28 41  25 2c 44 25 2c 45 25 2c  |npersp(A%,D%,E%,|
000084b0  46 25 29 0d 05 2e 25 21  73 69 6e 25 3d 73 69 6e  |F%)...%!sin%=sin|
000084c0  21 28 44 25 2a 34 29 3a  21 63 6f 73 25 3d 63 6f  |!(D%*4):!cos%=co|
000084d0  73 21 28 44 25 2a 34 29  0d 05 2f 27 21 73 69 6e  |s!(D%*4)../'!sin|
000084e0  32 25 3d 73 69 6e 21 28  45 25 2a 34 29 3a 21 63  |2%=sin!(E%*4):!c|
000084f0  6f 73 32 25 3d 63 6f 73  21 28 45 25 2a 34 29 0d  |os2%=cos!(E%*4).|
00008500  05 30 12 21 6e 6f 70 74  73 3d 41 25 21 6e 6f 70  |.0.!nopts=A%!nop|
00008510  25 0d 05 31 12 21 63 6f  70 6f 73 3d 41 25 21 63  |%..1.!copos=A%!c|
00008520  6f 30 25 0d 05 32 16 21  73 74 6f 72 65 33 70 6f  |o0%..2.!store3po|
00008530  73 3d 41 25 21 63 6f 31  25 0d 05 33 16 21 73 74  |s=A%!co1%..3.!st|
00008540  6f 72 65 32 70 6f 73 3d  41 25 21 63 6f 32 25 0d  |ore2pos=A%!co2%.|
00008550  05 34 0c d6 20 72 6f 74  61 74 65 0d 05 35 05 e1  |.4.. rotate..5..|
00008560  0d 05 36 05 3a 0d 05 37  26 dd 20 f2 72 6f 74 61  |..6.:..7&. .rota|
00008570  74 65 28 74 68 69 6e 67  25 2c 41 53 25 2c 42 53  |te(thing%,AS%,BS|
00008580  25 2c 44 25 2c 45 25 2c  46 25 29 0d 05 38 21 41  |%,D%,E%,F%)..8!A|
00008590  53 25 3d 74 68 69 6e 67  25 21 41 53 25 3a 42 53  |S%=thing%!AS%:BS|
000085a0  25 3d 74 68 69 6e 67 25  21 42 53 25 0d 05 39 22  |%=thing%!BS%..9"|
000085b0  ea 20 43 25 2c 43 58 2c  53 58 2c 43 59 2c 53 59  |. C%,CX,SX,CY,SY|
000085c0  2c 43 5a 2c 53 5a 2c 58  2c 59 2c 5a 2c 54 0d 05  |,CZ,SZ,X,Y,Z,T..|
000085d0  3a 32 44 25 3d 28 44 25  20 80 20 26 33 46 46 29  |:2D%=(D% . &3FF)|
000085e0  2a 34 3a 43 58 3d 63 6f  73 21 44 25 2f 26 34 30  |*4:CX=cos!D%/&40|
000085f0  30 3a 53 58 3d 73 69 6e  21 44 25 2f 26 34 30 30  |0:SX=sin!D%/&400|
00008600  0d 05 3b 32 45 25 3d 28  45 25 20 80 20 26 33 46  |..;2E%=(E% . &3F|
00008610  46 29 2a 34 3a 43 59 3d  63 6f 73 21 45 25 2f 26  |F)*4:CY=cos!E%/&|
00008620  34 30 30 3a 53 59 3d 73  69 6e 21 45 25 2f 26 34  |400:SY=sin!E%/&4|
00008630  30 30 0d 05 3c 32 46 25  3d 28 46 25 20 80 20 26  |00..<2F%=(F% . &|
00008640  33 46 46 29 2a 34 3a 43  5a 3d 63 6f 73 21 46 25  |3FF)*4:CZ=cos!F%|
00008650  2f 26 34 30 30 3a 53 5a  3d 73 69 6e 21 46 25 2f  |/&400:SZ=sin!F%/|
00008660  26 34 30 30 0d 05 3d 1a  e3 20 43 25 3d 30 20 b8  |&400..=.. C%=0 .|
00008670  20 74 68 69 6e 67 25 21  6e 6f 70 25 2d 31 0d 05  | thing%!nop%-1..|
00008680  3e 1b 20 5a 3d 21 41 53  25 3a 58 3d 41 53 25 21  |>. Z=!AS%:X=AS%!|
00008690  34 3a 54 3d 41 53 25 21  38 0d 05 3f 1c 20 59 3d  |4:T=AS%!8..?. Y=|
000086a0  54 2a 43 58 2b 5a 2a 53  58 3a 5a 3d 5a 2a 43 58  |T*CX+Z*SX:Z=Z*CX|
000086b0  2d 54 2a 53 58 0d 05 40  1c 20 54 3d 58 2a 43 59  |-T*SX..@. T=X*CY|
000086c0  2d 5a 2a 53 59 3a 5a 3d  58 2a 53 59 2b 5a 2a 43  |-Z*SY:Z=X*SY+Z*C|
000086d0  59 0d 05 41 1c 20 58 3d  54 2a 43 5a 2d 59 2a 53  |Y..A. X=T*CZ-Y*S|
000086e0  5a 3a 59 3d 54 2a 53 5a  2b 59 2a 43 5a 0d 05 42  |Z:Y=T*SZ+Y*CZ..B|
000086f0  1c 20 42 53 25 21 30 3d  5a 3a 42 53 25 21 34 3d  |. BS%!0=Z:BS%!4=|
00008700  58 3a 42 53 25 21 38 3d  59 0d 05 43 14 20 41 53  |X:BS%!8=Y..C. AS|
00008710  25 2b 3d 31 32 3a 42 53  25 2b 3d 31 32 0d 05 44  |%+=12:BS%+=12..D|
00008720  05 ed 0d 05 45 05 e1 0d  05 46 05 3a 0d 05 47 29  |....E....F.:..G)|
00008730  dd 20 f2 74 72 61 6e 73  6c 61 74 65 28 74 68 69  |. .translate(thi|
00008740  6e 67 25 2c 41 53 25 2c  42 53 25 2c 44 25 2c 45  |ng%,AS%,BS%,D%,E|
00008750  25 2c 46 25 29 0d 05 48  08 ea 20 43 25 0d 05 49  |%,F%)..H.. C%..I|
00008760  21 41 53 25 3d 74 68 69  6e 67 25 21 41 53 25 3a  |!AS%=thing%!AS%:|
00008770  42 53 25 3d 74 68 69 6e  67 25 21 42 53 25 0d 05  |BS%=thing%!BS%..|
00008780  4a 1a e3 20 43 25 3d 30  20 b8 20 74 68 69 6e 67  |J.. C%=0 . thing|
00008790  25 21 6e 6f 70 25 2d 31  0d 05 4b 31 20 42 53 25  |%!nop%-1..K1 BS%|
000087a0  21 30 3d 41 53 25 21 30  2d 46 25 3a 42 53 25 21  |!0=AS%!0-F%:BS%!|
000087b0  34 3d 41 53 25 21 34 2b  44 25 3a 42 53 25 21 38  |4=AS%!4+D%:BS%!8|
000087c0  3d 41 53 25 21 38 2b 45  25 0d 05 4c 14 20 41 53  |=AS%!8+E%..L. AS|
000087d0  25 2b 3d 31 32 3a 42 53  25 2b 3d 31 32 0d 05 4d  |%+=12:BS%+=12..M|
000087e0  05 ed 0d 05 4e 05 e1 0d  05 4f 05 3a 0d 05 50 23  |....N....O.:..P#|
000087f0  dd 20 a4 64 65 66 69 6e  65 5f 66 61 63 65 74 28  |. .define_facet(|
00008800  41 25 2c 43 25 2c 44 25  2c 45 25 2c 46 25 29 0d  |A%,C%,D%,E%,F%).|
00008810  05 51 21 e7 20 43 25 3d  44 25 20 84 20 44 25 3d  |.Q!. C%=D% . D%=|
00008820  45 25 20 84 20 45 25 3d  43 25 20 8c 20 3d 41 25  |E% . E%=C% . =A%|
00008830  0d 05 52 36 e7 20 41 25  3c b8 50 20 8c 20 85 20  |..R6. A%<.P . . |
00008840  31 2c 22 62 61 64 20 70  6f 69 6e 74 65 72 20 70  |1,"bad pointer p|
00008850  61 73 73 65 64 20 74 6f  20 64 65 66 69 6e 65 5f  |assed to define_|
00008860  66 61 63 65 74 22 0d 05  53 16 e7 20 77 69 6e 64  |facet"..S.. wind|
00008870  25 3e 30 20 c8 94 20 43  25 2c 45 25 0d 05 54 2a  |%>0 .. C%,E%..T*|
00008880  21 41 25 3d 43 25 3a 41  25 21 34 3d 44 25 3a 41  |!A%=C%:A%!4=D%:A|
00008890  25 21 38 3d 45 25 3a 41  25 21 31 32 3d 30 3a 41  |%!8=E%:A%!12=0:A|
000088a0  25 21 31 36 3d 30 0d 05  55 14 41 25 3f 31 37 3d  |%!16=0..U.A%?17=|
000088b0  6f 62 6a 65 63 74 73 25  2d 31 0d 05 56 20 e7 20  |objects%-1..V . |
000088c0  46 25 20 8c 20 41 25 3f  31 39 3d 26 41 30 20 8b  |F% . A%?19=&A0 .|
000088d0  20 41 25 3f 31 39 3d 26  32 30 0d 05 57 1f e7 20  | A%?19=&20..W.. |
000088e0  77 69 6e 64 25 3d 30 20  41 25 3f 31 39 3d 41 25  |wind%=0 A%?19=A%|
000088f0  3f 31 39 20 84 20 26 34  30 0d 05 58 0c 66 61 63  |?19 . &40..X.fac|
00008900  6f 25 2b 3d 31 0d 05 59  11 3d 41 25 2b 65 6c 73  |o%+=1..Y.=A%+els|
00008910  69 7a 25 28 33 29 0d 05  5a 05 3a 0d 05 5b 15 dd  |iz%(3)..Z.:..[..|
00008920  20 f2 63 61 6c 63 61 76  5a 28 41 25 2c 42 25 29  | .calcavZ(A%,B%)|
00008930  0d 05 5c 0e ea 20 43 25  2c 44 25 2c 45 25 0d 05  |..\.. C%,D%,E%..|
00008940  5d 24 43 25 3d 41 25 21  66 61 63 25 3a 44 25 3d  |]$C%=A%!fac%:D%=|
00008950  41 25 21 42 25 3a 45 25  3d 41 25 21 6e 6f 66 25  |A%!B%:E%=A%!nof%|
00008960  2d 31 0d 05 5e 0b d6 20  61 76 5a 3a e1 0d 05 5f  |-1..^.. avZ:..._|
00008970  05 3a 0d 05 60 10 dd 20  f2 66 75 64 67 65 28 41  |.:..`.. .fudge(A|
00008980  25 29 0d 05 61 11 ea 20  43 25 2c 44 25 2c 45 25  |%)..a.. C%,D%,E%|
00008990  2c 49 25 0d 05 62 1b 43  25 3d 41 25 21 66 61 63  |,I%..b.C%=A%!fac|
000089a0  25 3a 44 25 3d 41 25 21  6e 6f 66 25 2d 31 0d 05  |%:D%=A%!nof%-1..|
000089b0  63 0f e3 20 49 25 3d 30  20 b8 20 44 25 0d 05 64  |c.. I%=0 . D%..d|
000089c0  1d 20 43 25 21 31 32 2d  3d 32 30 30 3a 43 25 2b  |. C%!12-=200:C%+|
000089d0  3d 65 6c 73 69 7a 25 28  33 29 0d 05 65 05 ed 0d  |=elsiz%(3)..e...|
000089e0  05 66 05 e1 0d 05 67 05  3a 0d 05 68 14 dd 20 f2  |.f....g.:..h.. .|
000089f0  68 69 64 65 66 61 63 65  73 28 41 25 29 0d 05 69  |hidefaces(A%)..i|
00008a00  0e ea 20 43 25 2c 44 25  2c 45 25 0d 05 6a 26 43  |.. C%,D%,E%..j&C|
00008a10  25 3d 41 25 21 66 61 63  25 3a 44 25 3d 41 25 21  |%=A%!fac%:D%=A%!|
00008a20  63 6f 32 25 3a 45 25 3d  41 25 21 6e 6f 66 25 2d  |co2%:E%=A%!nof%-|
00008a30  31 0d 05 6b 0f d6 20 68  69 64 65 66 61 63 65 73  |1..k.. hidefaces|
00008a40  0d 05 6c 05 e1 0d 05 6d  05 3a 0d 05 6e 0c dd 20  |..l....m.:..n.. |
00008a50  f2 5a 73 6f 72 74 0d 05  6f 0e ea 20 44 25 2c 46  |.Zsort..o.. D%,F|
00008a60  25 2c 47 25 0d 05 70 1f  44 25 3d 66 61 63 70 74  |%,G%..p.D%=facpt|
00008a70  25 3a 46 25 3d 30 3a 47  25 3d 74 6f 74 6e 6f 66  |%:F%=0:G%=totnof|
00008a80  25 2d 31 0d 05 71 0e d6  20 71 66 73 6f 72 74 3a  |%-1..q.. qfsort:|
00008a90  e1 0d 05 72 05 3a 0d 05  73 17 dd 20 f2 72 65 6e  |...r.:..s.. .ren|
00008aa0  64 65 72 28 73 6b 69 70  25 2c 53 25 29 0d 05 74  |der(skip%,S%)..t|
00008ab0  21 ea 20 41 53 25 2c 42  53 25 2c 43 53 25 2c 44  |!. AS%,BS%,CS%,D|
00008ac0  53 25 2c 49 25 2c 41 25  2c 42 25 2c 43 25 0d 05  |S%,I%,A%,B%,C%..|
00008ad0  75 0e 41 53 25 3d 66 61  63 70 74 25 0d 05 76 0c  |u.AS%=facpt%..v.|
00008ae0  e7 20 53 25 3e 31 20 8c  0d 05 77 18 20 e3 20 49  |. S%>1 ...w. . I|
00008af0  25 3d 30 20 b8 20 6f 62  6a 65 63 74 73 25 2d 31  |%=0 . objects%-1|
00008b00  0d 05 78 20 20 20 74 68  69 6e 67 25 3d 77 6f 72  |..x   thing%=wor|
00008b10  6c 64 25 2b 49 25 2a 65  6c 73 69 7a 25 28 37 29  |ld%+I%*elsiz%(7)|
00008b20  0d 05 79 1b 20 20 f2 63  61 6c 63 61 76 5a 28 74  |..y.  .calcavZ(t|
00008b30  68 69 6e 67 25 2c 63 6f  31 25 29 0d 05 7a 24 20  |hing%,co1%)..z$ |
00008b40  20 e7 20 74 68 69 6e 67  25 21 76 65 6c 25 3d 30  | . thing%!vel%=0|
00008b50  20 f2 66 75 64 67 65 28  74 68 69 6e 67 25 29 0d  | .fudge(thing%).|
00008b60  05 7b 18 20 20 f2 68 69  64 65 66 61 63 65 73 28  |.{.  .hidefaces(|
00008b70  74 68 69 6e 67 25 29 0d  05 7c 06 20 ed 0d 05 7d  |thing%)..|. ...}|
00008b80  0b 20 f2 5a 73 6f 72 74  0d 05 7e 05 cd 0d 05 7f  |. .Zsort..~.....|
00008b90  0b c8 8e 20 53 25 20 ca  0d 05 80 08 c9 20 30 3a  |... S% ...... 0:|
00008ba0  0d 05 81 16 e3 20 49 25  3d 30 20 b8 20 74 6f 74  |..... I%=0 . tot|
00008bb0  6e 6f 66 25 2d 31 0d 05  82 42 20 43 53 25 3d 41  |nof%-1...B CS%=A|
00008bc0  53 25 21 28 49 25 2a 34  29 3a 74 68 69 6e 67 25  |S%!(I%*4):thing%|
00008bd0  3d 77 6f 72 6c 64 25 2b  65 6c 73 69 7a 25 28 37  |=world%+elsiz%(7|
00008be0  29 2a 43 53 25 3f 31 37  3a 42 53 25 3d 74 68 69  |)*CS%?17:BS%=thi|
00008bf0  6e 67 25 21 63 6f 32 25  0d 05 83 1e 20 e7 20 b4  |ng%!co2%.... . .|
00008c00  28 74 68 69 6e 67 25 21  76 65 6c 25 29 3c 3e 73  |(thing%!vel%)<>s|
00008c10  6b 69 70 25 20 8c 0d 05  84 31 20 20 41 25 3d 42  |kip% ....1  A%=B|
00008c20  53 25 2b 38 2a 21 43 53  25 3a 42 25 3d 42 53 25  |S%+8*!CS%:B%=BS%|
00008c30  2b 38 2a 43 53 25 21 34  3a 43 25 3d 42 53 25 2b  |+8*CS%!4:C%=BS%+|
00008c40  38 2a 43 53 25 21 38 0d  05 85 29 20 20 c8 92 20  |8*CS%!8...)  .. |
00008c50  21 41 25 2c 41 25 21 34  3a c8 92 20 21 42 25 2c  |!A%,A%!4:.. !B%,|
00008c60  42 25 21 34 3a c8 92 20  21 43 25 2c 43 25 21 34  |B%!4:.. !C%,C%!4|
00008c70  0d 05 86 06 20 cd 0d 05  87 05 ed 0d 05 88 08 c9  |.... ...........|
00008c80  20 31 3a 0d 05 89 16 e3  20 49 25 3d 30 20 b8 20  | 1:..... I%=0 . |
00008c90  74 6f 74 6e 6f 66 25 2d  31 0d 05 8a 42 20 43 53  |totnof%-1...B CS|
00008ca0  25 3d 41 53 25 21 28 49  25 2a 34 29 3a 74 68 69  |%=AS%!(I%*4):thi|
00008cb0  6e 67 25 3d 77 6f 72 6c  64 25 2b 65 6c 73 69 7a  |ng%=world%+elsiz|
00008cc0  25 28 37 29 2a 43 53 25  3f 31 37 3a 42 53 25 3d  |%(7)*CS%?17:BS%=|
00008cd0  74 68 69 6e 67 25 21 63  6f 32 25 0d 05 8b 31 20  |thing%!co2%...1 |
00008ce0  e7 20 28 43 53 25 3f 31  39 20 80 20 26 38 30 29  |. (CS%?19 . &80)|
00008cf0  3d 30 20 80 20 b4 28 74  68 69 6e 67 25 21 76 65  |=0 . .(thing%!ve|
00008d00  6c 25 29 3c 3e 73 6b 69  70 25 20 8c 0d 05 8c 31  |l%)<>skip% ....1|
00008d10  20 20 41 25 3d 42 53 25  2b 38 2a 21 43 53 25 3a  |  A%=BS%+8*!CS%:|
00008d20  42 25 3d 42 53 25 2b 38  2a 43 53 25 21 34 3a 43  |B%=BS%+8*CS%!4:C|
00008d30  25 3d 42 53 25 2b 38 2a  43 53 25 21 38 0d 05 8d  |%=BS%+8*CS%!8...|
00008d40  26 20 20 ec 20 21 41 25  2c 41 25 21 34 3a df 20  |&  . !A%,A%!4:. |
00008d50  21 42 25 2c 42 25 21 34  3a df 20 21 43 25 2c 43  |!B%,B%!4:. !C%,C|
00008d60  25 21 34 0d 05 8e 06 20  cd 0d 05 8f 05 ed 0d 05  |%!4.... ........|
00008d70  90 08 c9 20 32 3a 0d 05  91 16 e3 20 49 25 3d 30  |... 2:..... I%=0|
00008d80  20 b8 20 74 6f 74 6e 6f  66 25 2d 31 0d 05 92 42  | . totnof%-1...B|
00008d90  20 43 53 25 3d 41 53 25  21 28 49 25 2a 34 29 3a  | CS%=AS%!(I%*4):|
00008da0  74 68 69 6e 67 25 3d 77  6f 72 6c 64 25 2b 65 6c  |thing%=world%+el|
00008db0  73 69 7a 25 28 37 29 2a  43 53 25 3f 31 37 3a 42  |siz%(7)*CS%?17:B|
00008dc0  53 25 3d 74 68 69 6e 67  25 21 63 6f 32 25 0d 05  |S%=thing%!co2%..|
00008dd0  93 2d 20 e7 20 43 53 25  3f 31 39 20 80 20 26 36  |.- . CS%?19 . &6|
00008de0  30 20 80 20 b4 28 74 68  69 6e 67 25 21 76 65 6c  |0 . .(thing%!vel|
00008df0  25 29 3c 3e 73 6b 69 70  25 20 8c 0d 05 94 31 20  |%)<>skip% ....1 |
00008e00  20 41 25 3d 42 53 25 2b  38 2a 21 43 53 25 3a 42  | A%=BS%+8*!CS%:B|
00008e10  25 3d 42 53 25 2b 38 2a  43 53 25 21 34 3a 43 25  |%=BS%+8*CS%!4:C%|
00008e20  3d 42 53 25 2b 38 2a 43  53 25 21 38 0d 05 95 29  |=BS%+8*CS%!8...)|
00008e30  20 20 ec 20 21 41 25 2c  41 25 21 34 3a ec 20 21  |  . !A%,A%!4:. !|
00008e40  42 25 2c 42 25 21 34 3a  f0 20 38 37 2c 21 43 25  |B%,B%!4:. 87,!C%|
00008e50  2c 43 25 21 34 0d 05 96  26 20 20 f0 20 36 35 2c  |,C%!4...&  . 65,|
00008e60  30 2c 30 3a c8 92 20 21  41 25 2c 41 25 21 34 3a  |0,0:.. !A%,A%!4:|
00008e70  c8 92 20 21 42 25 2c 42  25 21 34 0d 05 97 06 20  |.. !B%,B%!4.... |
00008e80  cd 0d 05 98 05 ed 0d 05  99 08 c9 20 33 3a 0d 05  |........... 3:..|
00008e90  9a 16 e3 20 49 25 3d 30  20 b8 20 74 6f 74 6e 6f  |... I%=0 . totno|
00008ea0  66 25 2d 31 0d 05 9b 42  20 43 53 25 3d 41 53 25  |f%-1...B CS%=AS%|
00008eb0  21 28 49 25 2a 34 29 3a  74 68 69 6e 67 25 3d 77  |!(I%*4):thing%=w|
00008ec0  6f 72 6c 64 25 2b 65 6c  73 69 7a 25 28 37 29 2a  |orld%+elsiz%(7)*|
00008ed0  43 53 25 3f 31 37 3a 42  53 25 3d 74 68 69 6e 67  |CS%?17:BS%=thing|
00008ee0  25 21 63 6f 32 25 0d 05  9c 2d 20 e7 20 43 53 25  |%!co2%...- . CS%|
00008ef0  3f 31 39 20 80 20 26 36  30 20 80 20 b4 28 74 68  |?19 . &60 . .(th|
00008f00  69 6e 67 25 21 76 65 6c  25 29 3c 3e 73 6b 69 70  |ing%!vel%)<>skip|
00008f10  25 20 8c 0d 05 9d 31 20  20 41 25 3d 42 53 25 2b  |% ....1  A%=BS%+|
00008f20  38 2a 21 43 53 25 3a 42  25 3d 42 53 25 2b 38 2a  |8*!CS%:B%=BS%+8*|
00008f30  43 53 25 21 34 3a 43 25  3d 42 53 25 2b 38 2a 43  |CS%!4:C%=BS%+8*C|
00008f40  53 25 21 38 0d 05 9e 29  20 20 ec 20 21 41 25 2c  |S%!8...)  . !A%,|
00008f50  41 25 21 34 3a ec 20 21  42 25 2c 42 25 21 34 3a  |A%!4:. !B%,B%!4:|
00008f60  f0 20 38 37 2c 21 43 25  2c 43 25 21 34 0d 05 9f  |. 87,!C%,C%!4...|
00008f70  1b 20 20 df 20 21 42 25  2c 42 25 21 34 3a df 20  |.  . !B%,B%!4:. |
00008f80  21 41 25 2c 41 25 21 34  0d 05 a0 06 20 cd 0d 05  |!A%,A%!4.... ...|
00008f90  a1 05 ed 0d 05 a2 05 cb  0d 05 a3 05 e1 0d ff     |...............|
00008f9f