�     >Shatter2
� By  Jan Vibe
� For 32-bit machines
(� (c) BAU November 1993
2:
<	� 140
F� 12
P�
Z>� vert_x%(50,15),vert_y%(50,15),nvert%(50),ax%(15),ay%(15)
d	s1%=1
n	s2%=2
x�"Please wait..."
��
� v%=�(6)+2
� nvert%(1)=v%
�
 d=360/v%
� � n%=1 � v%
�  t=�(360-n%*d)
�   vert_x%(1,n%)=640+300*�(t)
�   vert_y%(1,n%)=512+300*�(t)
� �
� � i%=1 � 49
�  � i%=1 �
�   r%=1
�  �


   max%=0

   � n%=1 � i%


    x1%=0

"
    y1%=0

,    � m%=1 � nvert%(n%)

6     x1%+=vert_x%(n%,m%)

@     y1%+=vert_y%(n%,m%)

J	    �

T    x1%=x1%/nvert%(n%)

^    y1%=y1%/nvert%(n%)

h    a%=0

r    � m%=1 � nvert%(n%)

|     m1%=m% � nvert%(n%)+1

�     x2%=vert_x%(n%,m%)

�     y2%=vert_y%(n%,m%)

�     x3%=vert_x%(n%,m1%)

�     y3%=vert_y%(n%,m1%)

�@     a%+=(x1%*y2%+y1%*x3%+y3%*x2%-y2%*x3%-y1%*x2%-x1%*y3%)/2

�	    �

�    � a%>max% max%=a%:r%=n%

�   �

�  �

�  p%=nvert%(r%)

�  � n%=1 � p%

�   ax%(n%)=vert_x%(r%,n%)

�   ay%(n%)=vert_y%(r%,n%)
  �

  l%=0
  � n%=1 � p%
&   n1%=n% � p%+1
03   g%=(ax%(n%)-ax%(n1%))^2+(ay%(n%)-ay%(n1%))^2
:   � g%>l% l%=g%:d11%=n%
D  �
N  �
X   d21%=�(p%)
b  � d11%<>d21%
l  � d11%>d21% Ȕ d11%,d21%
v  d12%=d11% � p%+1
�  d22%=d21% � p%+1
�  f1%=�(2)
�  f2%=3-f1%
�*  px1%=(f1%*ax%(d11%)+f2%*ax%(d12%))/3
�*  py1%=(f1%*ay%(d11%)+f2%*ay%(d12%))/3
�*  px2%=(f1%*ax%(d21%)+f2%*ax%(d22%))/3
�*  py2%=(f1%*ay%(d21%)+f2%*ay%(d22%))/3
�
  k%=0
�  � n%=1 � p%
�   k%+=1
�   vert_x%(r%,k%)=ax%(n%)
�   vert_y%(r%,k%)=ay%(n%)
�   � n%=d11% �

    k%+=1
    vert_x%(r%,k%)=px1%
    vert_y%(r%,k%)=py1%
 
    k%+=1
*    vert_x%(r%,k%)=px2%
4    vert_y%(r%,k%)=py2%
>    n%=d21%
H   �
R  �
\  nvert%(r%)=k%
f
  q%=i%+1
p
  k%=1
z  vert_x%(q%,k%)=px1%
�  vert_y%(q%,k%)=py1%
�  � n%=d11%+1 � d21%
�   k%+=1
�   vert_x%(q%,k%)=ax%(n%)
�   vert_y%(q%,k%)=ay%(n%)
�  �
�  k%+=1
�  vert_x%(q%,k%)=px2%
�  vert_y%(q%,k%)=py2%
�  nvert%(q%)=k%
� �
�
� � � �err:�
 � i%=0 � 20
  �swap
  � n%=1 � 50
$   �d(n%,i%/30)
.  �
8 �
B
 �swap
L� �
V:
`� �swap
jȖ
tș 6,112,s1%
~ș 6,113,s2%
��
�Ȕ s1%,s2%
��
�:
�� �d(p%,f)
�!� n%,cx%,cy%,mx%,my%,x%,y%,f1
�� n%=1 � nvert%(p%)
� cx%+=vert_x%(p%,n%)
� cy%+=vert_y%(p%,n%)
��
�cx%=cx%/nvert%(p%)
�cy%=cy%/nvert%(p%)
mx%=(cx%-640)

my%=(cy%-512)

f1=f+1
!x%=vert_x%(p%,nvert%(p%))-640
(!y%=vert_y%(p%,nvert%(p%))-512
2� x%+mx%*f+640,y%+my%*f+512
<� n%=1 � nvert%(p%)
F x%=vert_x%(p%,n%)-640
P y%=vert_y%(p%,n%)-512
Z � mx%*f1+640,my%*f1+512
d# � 85,x%+mx%*f+640,y%+my%*f+512
n�
x�
�:
�
� �err
�ș 6,112,s1%
��$" at line "Þ
��
��
�

00000000  0d 00 0a 13 f4 20 20 20  20 20 3e 53 68 61 74 74  |.....     >Shatt|
00000010  65 72 32 0d 00 14 12 f4  20 42 79 20 20 4a 61 6e  |er2..... By  Jan|
00000020  20 56 69 62 65 0d 00 1e  19 f4 20 46 6f 72 20 33  | Vibe..... For 3|
00000030  32 2d 62 69 74 20 6d 61  63 68 69 6e 65 73 0d 00  |2-bit machines..|
00000040  28 1b f4 20 28 63 29 20  42 41 55 20 4e 6f 76 65  |(.. (c) BAU Nove|
00000050  6d 62 65 72 20 31 39 39  33 0d 00 32 05 3a 0d 00  |mber 1993..2.:..|
00000060  3c 09 eb 20 31 34 30 0d  00 46 08 eb 20 31 32 0d  |<.. 140..F.. 12.|
00000070  00 50 05 87 0d 00 5a 3e  de 20 76 65 72 74 5f 78  |.P....Z>. vert_x|
00000080  25 28 35 30 2c 31 35 29  2c 76 65 72 74 5f 79 25  |%(50,15),vert_y%|
00000090  28 35 30 2c 31 35 29 2c  6e 76 65 72 74 25 28 35  |(50,15),nvert%(5|
000000a0  30 29 2c 61 78 25 28 31  35 29 2c 61 79 25 28 31  |0),ax%(15),ay%(1|
000000b0  35 29 0d 00 64 09 73 31  25 3d 31 0d 00 6e 09 73  |5)..d.s1%=1..n.s|
000000c0  32 25 3d 32 0d 00 78 15  f1 22 50 6c 65 61 73 65  |2%=2..x.."Please|
000000d0  20 77 61 69 74 2e 2e 2e  22 0d 00 82 05 f5 0d 00  | wait...".......|
000000e0  8c 0e 20 76 25 3d b3 28  36 29 2b 32 0d 00 96 11  |.. v%=.(6)+2....|
000000f0  20 6e 76 65 72 74 25 28  31 29 3d 76 25 0d 00 a0  | nvert%(1)=v%...|
00000100  0d 20 64 3d 33 36 30 2f  76 25 0d 00 aa 10 20 e3  |. d=360/v%.... .|
00000110  20 6e 25 3d 31 20 b8 20  76 25 0d 00 b4 13 20 20  | n%=1 . v%....  |
00000120  74 3d b2 28 33 36 30 2d  6e 25 2a 64 29 0d 00 be  |t=.(360-n%*d)...|
00000130  20 20 20 76 65 72 74 5f  78 25 28 31 2c 6e 25 29  |   vert_x%(1,n%)|
00000140  3d 36 34 30 2b 33 30 30  2a b5 28 74 29 0d 00 c8  |=640+300*.(t)...|
00000150  20 20 20 76 65 72 74 5f  79 25 28 31 2c 6e 25 29  |   vert_y%(1,n%)|
00000160  3d 35 31 32 2b 33 30 30  2a 9b 28 74 29 0d 00 d2  |=512+300*.(t)...|
00000170  06 20 ed 0d 00 dc 10 20  e3 20 69 25 3d 31 20 b8  |. ..... . i%=1 .|
00000180  20 34 39 0d 00 e6 0e 20  20 e7 20 69 25 3d 31 20  | 49....  . i%=1 |
00000190  8c 0d 00 f0 0b 20 20 20  72 25 3d 31 0d 00 fa 07  |.....   r%=1....|
000001a0  20 20 cc 0d 01 04 0d 20  20 20 6d 61 78 25 3d 30  |  .....   max%=0|
000001b0  0d 01 0e 12 20 20 20 e3  20 6e 25 3d 31 20 b8 20  |....   . n%=1 . |
000001c0  69 25 0d 01 18 0d 20 20  20 20 78 31 25 3d 30 0d  |i%....    x1%=0.|
000001d0  01 22 0d 20 20 20 20 79  31 25 3d 30 0d 01 2c 1b  |.".    y1%=0..,.|
000001e0  20 20 20 20 e3 20 6d 25  3d 31 20 b8 20 6e 76 65  |    . m%=1 . nve|
000001f0  72 74 25 28 6e 25 29 0d  01 36 1c 20 20 20 20 20  |rt%(n%)..6.     |
00000200  78 31 25 2b 3d 76 65 72  74 5f 78 25 28 6e 25 2c  |x1%+=vert_x%(n%,|
00000210  6d 25 29 0d 01 40 1c 20  20 20 20 20 79 31 25 2b  |m%)..@.     y1%+|
00000220  3d 76 65 72 74 5f 79 25  28 6e 25 2c 6d 25 29 0d  |=vert_y%(n%,m%).|
00000230  01 4a 09 20 20 20 20 ed  0d 01 54 1a 20 20 20 20  |.J.    ...T.    |
00000240  78 31 25 3d 78 31 25 2f  6e 76 65 72 74 25 28 6e  |x1%=x1%/nvert%(n|
00000250  25 29 0d 01 5e 1a 20 20  20 20 79 31 25 3d 79 31  |%)..^.    y1%=y1|
00000260  25 2f 6e 76 65 72 74 25  28 6e 25 29 0d 01 68 0c  |%/nvert%(n%)..h.|
00000270  20 20 20 20 61 25 3d 30  0d 01 72 1b 20 20 20 20  |    a%=0..r.    |
00000280  e3 20 6d 25 3d 31 20 b8  20 6e 76 65 72 74 25 28  |. m%=1 . nvert%(|
00000290  6e 25 29 0d 01 7c 1e 20  20 20 20 20 6d 31 25 3d  |n%)..|.     m1%=|
000002a0  6d 25 20 83 20 6e 76 65  72 74 25 28 6e 25 29 2b  |m% . nvert%(n%)+|
000002b0  31 0d 01 86 1b 20 20 20  20 20 78 32 25 3d 76 65  |1....     x2%=ve|
000002c0  72 74 5f 78 25 28 6e 25  2c 6d 25 29 0d 01 90 1b  |rt_x%(n%,m%)....|
000002d0  20 20 20 20 20 79 32 25  3d 76 65 72 74 5f 79 25  |     y2%=vert_y%|
000002e0  28 6e 25 2c 6d 25 29 0d  01 9a 1c 20 20 20 20 20  |(n%,m%)....     |
000002f0  78 33 25 3d 76 65 72 74  5f 78 25 28 6e 25 2c 6d  |x3%=vert_x%(n%,m|
00000300  31 25 29 0d 01 a4 1c 20  20 20 20 20 79 33 25 3d  |1%)....     y3%=|
00000310  76 65 72 74 5f 79 25 28  6e 25 2c 6d 31 25 29 0d  |vert_y%(n%,m1%).|
00000320  01 ae 40 20 20 20 20 20  61 25 2b 3d 28 78 31 25  |..@     a%+=(x1%|
00000330  2a 79 32 25 2b 79 31 25  2a 78 33 25 2b 79 33 25  |*y2%+y1%*x3%+y3%|
00000340  2a 78 32 25 2d 79 32 25  2a 78 33 25 2d 79 31 25  |*x2%-y2%*x3%-y1%|
00000350  2a 78 32 25 2d 78 31 25  2a 79 33 25 29 2f 32 0d  |*x2%-x1%*y3%)/2.|
00000360  01 b8 09 20 20 20 20 ed  0d 01 c2 1f 20 20 20 20  |...    .....    |
00000370  e7 20 61 25 3e 6d 61 78  25 20 6d 61 78 25 3d 61  |. a%>max% max%=a|
00000380  25 3a 72 25 3d 6e 25 0d  01 cc 08 20 20 20 ed 0d  |%:r%=n%....   ..|
00000390  01 d6 07 20 20 cd 0d 01  e0 13 20 20 70 25 3d 6e  |...  .....  p%=n|
000003a0  76 65 72 74 25 28 72 25  29 0d 01 ea 11 20 20 e3  |vert%(r%)....  .|
000003b0  20 6e 25 3d 31 20 b8 20  70 25 0d 01 f4 1d 20 20  | n%=1 . p%....  |
000003c0  20 61 78 25 28 6e 25 29  3d 76 65 72 74 5f 78 25  | ax%(n%)=vert_x%|
000003d0  28 72 25 2c 6e 25 29 0d  01 fe 1d 20 20 20 61 79  |(r%,n%)....   ay|
000003e0  25 28 6e 25 29 3d 76 65  72 74 5f 79 25 28 72 25  |%(n%)=vert_y%(r%|
000003f0  2c 6e 25 29 0d 02 08 07  20 20 ed 0d 02 12 0a 20  |,n%)....  ..... |
00000400  20 6c 25 3d 30 0d 02 1c  11 20 20 e3 20 6e 25 3d  | l%=0....  . n%=|
00000410  31 20 b8 20 70 25 0d 02  26 14 20 20 20 6e 31 25  |1 . p%..&.   n1%|
00000420  3d 6e 25 20 83 20 70 25  2b 31 0d 02 30 33 20 20  |=n% . p%+1..03  |
00000430  20 67 25 3d 28 61 78 25  28 6e 25 29 2d 61 78 25  | g%=(ax%(n%)-ax%|
00000440  28 6e 31 25 29 29 5e 32  2b 28 61 79 25 28 6e 25  |(n1%))^2+(ay%(n%|
00000450  29 2d 61 79 25 28 6e 31  25 29 29 5e 32 0d 02 3a  |)-ay%(n1%))^2..:|
00000460  1c 20 20 20 e7 20 67 25  3e 6c 25 20 6c 25 3d 67  |.   . g%>l% l%=g|
00000470  25 3a 64 31 31 25 3d 6e  25 0d 02 44 07 20 20 ed  |%:d11%=n%..D.  .|
00000480  0d 02 4e 07 20 20 f5 0d  02 58 11 20 20 20 64 32  |..N.  ...X.   d2|
00000490  31 25 3d b3 28 70 25 29  0d 02 62 12 20 20 fd 20  |1%=.(p%)..b.  . |
000004a0  64 31 31 25 3c 3e 64 32  31 25 0d 02 6c 1e 20 20  |d11%<>d21%..l.  |
000004b0  e7 20 64 31 31 25 3e 64  32 31 25 20 c8 94 20 64  |. d11%>d21% .. d|
000004c0  31 31 25 2c 64 32 31 25  0d 02 76 16 20 20 64 31  |11%,d21%..v.  d1|
000004d0  32 25 3d 64 31 31 25 20  83 20 70 25 2b 31 0d 02  |2%=d11% . p%+1..|
000004e0  80 16 20 20 64 32 32 25  3d 64 32 31 25 20 83 20  |..  d22%=d21% . |
000004f0  70 25 2b 31 0d 02 8a 0e  20 20 66 31 25 3d b3 28  |p%+1....  f1%=.(|
00000500  32 29 0d 02 94 0f 20 20  66 32 25 3d 33 2d 66 31  |2)....  f2%=3-f1|
00000510  25 0d 02 9e 2a 20 20 70  78 31 25 3d 28 66 31 25  |%...*  px1%=(f1%|
00000520  2a 61 78 25 28 64 31 31  25 29 2b 66 32 25 2a 61  |*ax%(d11%)+f2%*a|
00000530  78 25 28 64 31 32 25 29  29 2f 33 0d 02 a8 2a 20  |x%(d12%))/3...* |
00000540  20 70 79 31 25 3d 28 66  31 25 2a 61 79 25 28 64  | py1%=(f1%*ay%(d|
00000550  31 31 25 29 2b 66 32 25  2a 61 79 25 28 64 31 32  |11%)+f2%*ay%(d12|
00000560  25 29 29 2f 33 0d 02 b2  2a 20 20 70 78 32 25 3d  |%))/3...*  px2%=|
00000570  28 66 31 25 2a 61 78 25  28 64 32 31 25 29 2b 66  |(f1%*ax%(d21%)+f|
00000580  32 25 2a 61 78 25 28 64  32 32 25 29 29 2f 33 0d  |2%*ax%(d22%))/3.|
00000590  02 bc 2a 20 20 70 79 32  25 3d 28 66 31 25 2a 61  |..*  py2%=(f1%*a|
000005a0  79 25 28 64 32 31 25 29  2b 66 32 25 2a 61 79 25  |y%(d21%)+f2%*ay%|
000005b0  28 64 32 32 25 29 29 2f  33 0d 02 c6 0a 20 20 6b  |(d22%))/3....  k|
000005c0  25 3d 30 0d 02 d0 11 20  20 e3 20 6e 25 3d 31 20  |%=0....  . n%=1 |
000005d0  b8 20 70 25 0d 02 da 0c  20 20 20 6b 25 2b 3d 31  |. p%....   k%+=1|
000005e0  0d 02 e4 1d 20 20 20 76  65 72 74 5f 78 25 28 72  |....   vert_x%(r|
000005f0  25 2c 6b 25 29 3d 61 78  25 28 6e 25 29 0d 02 ee  |%,k%)=ax%(n%)...|
00000600  1d 20 20 20 76 65 72 74  5f 79 25 28 72 25 2c 6b  |.   vert_y%(r%,k|
00000610  25 29 3d 61 79 25 28 6e  25 29 0d 02 f8 12 20 20  |%)=ay%(n%)....  |
00000620  20 e7 20 6e 25 3d 64 31  31 25 20 8c 0d 03 02 0d  | . n%=d11% .....|
00000630  20 20 20 20 6b 25 2b 3d  31 0d 03 0c 1b 20 20 20  |    k%+=1....   |
00000640  20 76 65 72 74 5f 78 25  28 72 25 2c 6b 25 29 3d  | vert_x%(r%,k%)=|
00000650  70 78 31 25 0d 03 16 1b  20 20 20 20 76 65 72 74  |px1%....    vert|
00000660  5f 79 25 28 72 25 2c 6b  25 29 3d 70 79 31 25 0d  |_y%(r%,k%)=py1%.|
00000670  03 20 0d 20 20 20 20 6b  25 2b 3d 31 0d 03 2a 1b  |. .    k%+=1..*.|
00000680  20 20 20 20 76 65 72 74  5f 78 25 28 72 25 2c 6b  |    vert_x%(r%,k|
00000690  25 29 3d 70 78 32 25 0d  03 34 1b 20 20 20 20 76  |%)=px2%..4.    v|
000006a0  65 72 74 5f 79 25 28 72  25 2c 6b 25 29 3d 70 79  |ert_y%(r%,k%)=py|
000006b0  32 25 0d 03 3e 0f 20 20  20 20 6e 25 3d 64 32 31  |2%..>.    n%=d21|
000006c0  25 0d 03 48 08 20 20 20  cd 0d 03 52 07 20 20 ed  |%..H.   ...R.  .|
000006d0  0d 03 5c 13 20 20 6e 76  65 72 74 25 28 72 25 29  |..\.  nvert%(r%)|
000006e0  3d 6b 25 0d 03 66 0d 20  20 71 25 3d 69 25 2b 31  |=k%..f.  q%=i%+1|
000006f0  0d 03 70 0a 20 20 6b 25  3d 31 0d 03 7a 19 20 20  |..p.  k%=1..z.  |
00000700  76 65 72 74 5f 78 25 28  71 25 2c 6b 25 29 3d 70  |vert_x%(q%,k%)=p|
00000710  78 31 25 0d 03 84 19 20  20 76 65 72 74 5f 79 25  |x1%....  vert_y%|
00000720  28 71 25 2c 6b 25 29 3d  70 79 31 25 0d 03 8e 18  |(q%,k%)=py1%....|
00000730  20 20 e3 20 6e 25 3d 64  31 31 25 2b 31 20 b8 20  |  . n%=d11%+1 . |
00000740  64 32 31 25 0d 03 98 0c  20 20 20 6b 25 2b 3d 31  |d21%....   k%+=1|
00000750  0d 03 a2 1d 20 20 20 76  65 72 74 5f 78 25 28 71  |....   vert_x%(q|
00000760  25 2c 6b 25 29 3d 61 78  25 28 6e 25 29 0d 03 ac  |%,k%)=ax%(n%)...|
00000770  1d 20 20 20 76 65 72 74  5f 79 25 28 71 25 2c 6b  |.   vert_y%(q%,k|
00000780  25 29 3d 61 79 25 28 6e  25 29 0d 03 b6 07 20 20  |%)=ay%(n%)....  |
00000790  ed 0d 03 c0 0b 20 20 6b  25 2b 3d 31 0d 03 ca 19  |.....  k%+=1....|
000007a0  20 20 76 65 72 74 5f 78  25 28 71 25 2c 6b 25 29  |  vert_x%(q%,k%)|
000007b0  3d 70 78 32 25 0d 03 d4  19 20 20 76 65 72 74 5f  |=px2%....  vert_|
000007c0  79 25 28 71 25 2c 6b 25  29 3d 70 79 32 25 0d 03  |y%(q%,k%)=py2%..|
000007d0  de 13 20 20 6e 76 65 72  74 25 28 71 25 29 3d 6b  |..  nvert%(q%)=k|
000007e0  25 0d 03 e8 06 20 ed 0d  03 f2 04 0d 03 fc 0f 20  |%.... ......... |
000007f0  ee 20 85 20 f2 65 72 72  3a e0 0d 04 06 10 20 e3  |. . .err:..... .|
00000800  20 69 25 3d 30 20 b8 20  32 30 0d 04 10 0b 20 20  | i%=0 . 20....  |
00000810  f2 73 77 61 70 0d 04 1a  11 20 20 e3 20 6e 25 3d  |.swap....  . n%=|
00000820  31 20 b8 20 35 30 0d 04  24 13 20 20 20 f2 64 28  |1 . 50..$.   .d(|
00000830  6e 25 2c 69 25 2f 33 30  29 0d 04 2e 07 20 20 ed  |n%,i%/30)....  .|
00000840  0d 04 38 06 20 ed 0d 04  42 0a 20 f2 73 77 61 70  |..8. ...B. .swap|
00000850  0d 04 4c 07 fd 20 a3 0d  04 56 05 3a 0d 04 60 0b  |..L.. ...V.:..`.|
00000860  dd 20 f2 73 77 61 70 0d  04 6a 06 c8 96 0d 04 74  |. .swap..j.....t|
00000870  10 c8 99 20 36 2c 31 31  32 2c 73 31 25 0d 04 7e  |... 6,112,s1%..~|
00000880  10 c8 99 20 36 2c 31 31  33 2c 73 32 25 0d 04 88  |... 6,113,s2%...|
00000890  05 db 0d 04 92 0e c8 94  20 73 31 25 2c 73 32 25  |........ s1%,s2%|
000008a0  0d 04 9c 05 e1 0d 04 a6  05 3a 0d 04 b0 0e dd 20  |.........:..... |
000008b0  f2 64 28 70 25 2c 66 29  0d 04 ba 21 ea 20 6e 25  |.d(p%,f)...!. n%|
000008c0  2c 63 78 25 2c 63 79 25  2c 6d 78 25 2c 6d 79 25  |,cx%,cy%,mx%,my%|
000008d0  2c 78 25 2c 79 25 2c 66  31 0d 04 c4 17 e3 20 6e  |,x%,y%,f1..... n|
000008e0  25 3d 31 20 b8 20 6e 76  65 72 74 25 28 70 25 29  |%=1 . nvert%(p%)|
000008f0  0d 04 ce 18 20 63 78 25  2b 3d 76 65 72 74 5f 78  |.... cx%+=vert_x|
00000900  25 28 70 25 2c 6e 25 29  0d 04 d8 18 20 63 79 25  |%(p%,n%).... cy%|
00000910  2b 3d 76 65 72 74 5f 79  25 28 70 25 2c 6e 25 29  |+=vert_y%(p%,n%)|
00000920  0d 04 e2 05 ed 0d 04 ec  16 63 78 25 3d 63 78 25  |.........cx%=cx%|
00000930  2f 6e 76 65 72 74 25 28  70 25 29 0d 04 f6 16 63  |/nvert%(p%)....c|
00000940  79 25 3d 63 79 25 2f 6e  76 65 72 74 25 28 70 25  |y%=cy%/nvert%(p%|
00000950  29 0d 05 00 11 6d 78 25  3d 28 63 78 25 2d 36 34  |)....mx%=(cx%-64|
00000960  30 29 0d 05 0a 11 6d 79  25 3d 28 63 79 25 2d 35  |0)....my%=(cy%-5|
00000970  31 32 29 0d 05 14 0a 66  31 3d 66 2b 31 0d 05 1e  |12)....f1=f+1...|
00000980  21 78 25 3d 76 65 72 74  5f 78 25 28 70 25 2c 6e  |!x%=vert_x%(p%,n|
00000990  76 65 72 74 25 28 70 25  29 29 2d 36 34 30 0d 05  |vert%(p%))-640..|
000009a0  28 21 79 25 3d 76 65 72  74 5f 79 25 28 70 25 2c  |(!y%=vert_y%(p%,|
000009b0  6e 76 65 72 74 25 28 70  25 29 29 2d 35 31 32 0d  |nvert%(p%))-512.|
000009c0  05 32 1f ec 20 78 25 2b  6d 78 25 2a 66 2b 36 34  |.2.. x%+mx%*f+64|
000009d0  30 2c 79 25 2b 6d 79 25  2a 66 2b 35 31 32 0d 05  |0,y%+my%*f+512..|
000009e0  3c 17 e3 20 6e 25 3d 31  20 b8 20 6e 76 65 72 74  |<.. n%=1 . nvert|
000009f0  25 28 70 25 29 0d 05 46  1a 20 78 25 3d 76 65 72  |%(p%)..F. x%=ver|
00000a00  74 5f 78 25 28 70 25 2c  6e 25 29 2d 36 34 30 0d  |t_x%(p%,n%)-640.|
00000a10  05 50 1a 20 79 25 3d 76  65 72 74 5f 79 25 28 70  |.P. y%=vert_y%(p|
00000a20  25 2c 6e 25 29 2d 35 31  32 0d 05 5a 1c 20 ec 20  |%,n%)-512..Z. . |
00000a30  6d 78 25 2a 66 31 2b 36  34 30 2c 6d 79 25 2a 66  |mx%*f1+640,my%*f|
00000a40  31 2b 35 31 32 0d 05 64  23 20 f0 20 38 35 2c 78  |1+512..d# . 85,x|
00000a50  25 2b 6d 78 25 2a 66 2b  36 34 30 2c 79 25 2b 6d  |%+mx%*f+640,y%+m|
00000a60  79 25 2a 66 2b 35 31 32  0d 05 6e 05 ed 0d 05 78  |y%*f+512..n....x|
00000a70  05 e1 0d 05 82 05 3a 0d  05 8c 0a dd 20 f2 65 72  |......:..... .er|
00000a80  72 0d 05 96 10 c8 99 20  36 2c 31 31 32 2c 73 31  |r...... 6,112,s1|
00000a90  25 0d 05 a0 14 f1 f6 24  22 20 61 74 20 6c 69 6e  |%......$" at lin|
00000aa0  65 20 22 c3 9e 0d 05 aa  05 ee 0d 05 b4 05 e1 0d  |e ".............|
00000ab0  ff                                                |.|
00000ab1