� >$.!Scape.!RunImage
*FX229,1
� �Quit
(�0
2�
<*POINTER 1
Fȗ �
P� M% 42000
Z� B% 32768
d$�("LOAD <Scape$Dir>.Code "+�~B%)
n	C%=M%
x� B%
��141
��13
��
�� T1% 60000
�� T2% 24000
�� w%(11,2),s%(11,2),p%(2,4)
�C1%=M%+&9D30
�T%=M%+&7FE4
�Scr%=�ScrAddr
�	Co%=0
�
Bc%=65
�Max%=16
�	D%=40

MaxCol%=31

F%=1

Ms=0.001

":

,Si%=150

6Sj%=Si%*1/�2

@
L%=320

JCx%=L%/2+48:Cy%=160

T:

^ �I%=M%+&7C24�M%+&7FE3:�?I%:�

h�Sprites

r#�I%=B%+2800�B%+3072�4:!I%=0:�I%

|%�I%=B%+&63E4�B%+&6510�4:!I%=0:�I%

�:

�	Sc%=0

�	C2%=0

�XOf%=85:YOf%=40

�O%=XOf%+YOf%*L%

�
�Title

�Elv%=40:An%=0

�
�ResetMan

�:

��

��SelectMan

��LandScape

��Ch%=2 �
	�Swap
�
A%=�Screen
&4�Zoom C%=M%+&12E0:�M%+&500 �C%=M%+&5C0:�M%+&4C8
0>ș "OS_SpriteOp",290,T2%,"x",(XOf%-1)*4,(255-YOf%-Si%)*4,0
:�
D
�Ch%=1
N	*FX20
X*FX229,0
b�0
lȘ
v�
�:
���LandScape
�	�Swap
��
�A%=�Screen
�C%=M%+&2500:�M%+&540
�,�StoreAngles((An%/180-.75)*�,Elv%/180*�)
�	�Info
�	�Draw
�	�Swap
�	�Info
�A%=�Screen
��
C%=M%+&2500:�M%+&540
:
	Ch%=0
 �
*�GetNew
4�Ch%=0 �
>,�StoreAngles((An%/180-.75)*�,Elv%/180*�)
H	�Info
R	�Draw
\	�Swap
f�
p�Ch%<>0
zȗ �
��
�:
���StoreAngles(An,ElAn)
�
Ele=�ElAn
�!M%=Cx%+Sj%*�An
�M%!8=Cy%+Ele*Sj%*�An
�M%!4=Cx%+Sj%*�(An+�/2)
�M%!12=Cy%+Ele*Sj%*�(An+�/2)
�
M%!16=!M%
�M%!24=M%!8
�M%!20=Cx%+Sj%*�(An+3*�/2)
�!M%!28=Cy%+Ele*Sj%*�(An+3*�/2)
�C%=C1%+C2%*33+(1-F%)*231
�
:

��Draw
$A%=�Screen
.�M%+&56C
8
�M%+32
B
�DSwap
Lȗ �
V�
`:
j
��Info
t�0,63Ȝ192
~ȓ Ȑ 8,848,116,32
�ȓ Ȑ 8,716,80,32
�ȓ Ȑ 8,584,116,32
��0,0Ȝ0
��5
��20,876:�;�"00"+�An%,3)
��28,744:�;Elv%
��20,612:�;�" "+�(D%*5),3)
��4:�
�,ș "OS_SpriteOp",290,T%,�(C2%+1),4,364,0
��
�:
���GetNew
*FX21,9

	Fi%=�
�
�
(ȗ X%,Y%,Bu%
2�Bu%<>0
<0Am%=-((Bu%�1)=1)-2*((Bu%�2)=2)-5*((Bu%�4)=4)
F�In(24,912) Ch%=1:Fi%=�
P6�In(156,912) Fi%=�:�Save:�Swap:ȗ�Ox%,Oy%:*FX21,9
Z�In(288,912) Ch%=2:Fi%=�
d0�In(156,780) Fi%=�:An%-=Am%:�An%<0 An%+=360
n)�In(288,780) Fi%=�:An%=(An%+Am%)�360
x2�In(156,648) Fi%=�:Elv%-=Am%:�Elv%<10 Elv%=10
�2�In(288,648) Fi%=�:Elv%+=Am%:�Elv%>60 Elv%=60
�,�In(156,516) Fi%=�:D%-=2*Am%:�D%<2 D%=2
�.�In(288,516) Fi%=�:D%+=2*Am%:�D%>62 D%=62
�+�In(156,384) Fi%=�:C2%-=1:�C2%<0 C2%=6
�+�In(288,384) Fi%=�:C2%+=1:�C2%=7 C2%=0
�5�In(156,252)��In(288,252) Fi%=�:F%=F%�1:�M%+&4A0
�!�X%>400�(Bu%�4)=4 Fi%=�:�Find
��Fi%
��
�:
�
��Save
�ȗOx%,Oy%,Bx%
�ȗ �
�ȗAx%,Ay%,Bx%:�Bx%=0
	�Swap
�400,0:�1280,1024
"*ș "OS_SpriteOp",270,T1%,"landscape",0
,�0,32Ȝ192
6ȓ Ȑ 500,724,680,188
@�0,63Ȝ192
Jȓ496,720,688,196
T�5
^�520,884:�"Save Picture:"
h,�520,820:�"Filename: Scape";�"0"+�Co%,2)
r$�520,780:�"Press Select to Save"
|�4:�
��
�ȗAx%,Ay%,Bx%
��(Bx%�5)<>0
��(Bx%�1)=1 �
��:��:�SaveError:��:�
�
*MOUNT
�3ș "OS_SpriteOp",268,T1%,"$.Scape"+�"0"+�Co%,2)
�
Co%+=1
��ȗAx%,Ay%,Bx%:�Bx%=0
��
�:
���SaveError
��0,32Ȝ192
ȓ Ȑ 500,724,680,188
�0,63Ȝ192
�5
&�520,884:�"Save Error:"
0�520,820:�"Error: ";��$,14)
:�520,780:�"Click Mouse."
D�ȗAx%,Ay%,Bx%:�Bx%=0
N�ȗAx%,Ay%,Bx%:�Bx%<>0
X�ȗAx%,Ay%,Bx%:�Bx%=0
b�
l:
v��ResetMan
�	�Swap
��
�+XMin=-2.25:XMax=0.75:YMin=-1.5:YMax=1.5
�A%=�Screen
�C%=M%+&12E0:�M%+&500
�	�Plot
��
�:
�
��Plot
�!�XMax-XMin<0.08 Ac%=25�Ac%=12
�M%!&44C=XMin*2^Ac%
�#M%!&450=((XMax-XMin)/Si%)*2^Ac%
�M%!&454=YMax*2^Ac%
#M%!&458=((YMin-YMax)/Si%)*2^Ac%
A%=�Screen+O%
�0,63 Ȝ192
 +ȓ(XOf%-1)*4,(255-YOf%-Si%)*4,(Si%+1)*4
*
�DSwap
4ș "Hourglass_Start",1
>*�Ac%=12 �M%+&3B0 �C%=M%+&44C:�M%+&72BC
Hș "Hourglass_Smash"
R�
\:
f��DoZoom
p*FX21,9
z�
�ȗ X%,Y%,Bu%
�
�Bu%=0
�	� 4,0
�ȑ XOf%*4,(256-YOf%-Si%)*4
�S%=Si%*4:ȗ � 0,0
�Ms%=Ms*S%/(XMax-XMin)
��Ms%<24 Ms%=24
��
�ȗ ȓ0,0,Si%*4-S%,Si%*4-S%
�ȗ X%,Y%,Bu%
�ȓX%,Y%,S%-4
�"Nx=XMin+X%*(XMax-XMin)/(Si%*4)
�"Ny=YMin+Y%*(YMax-YMin)/(Si%*4)
	Ȗ
	ȓX%,Y%,S%-4
	"� (Bu% � 1)=1 � S%<Si%*4 S%+=8
	$"� (Bu% � 4)=4 � S%>Ms%+8 S%-=8
	.� (Bu% � 2)=2
	8Sx=S%/(Si%*4)*(XMax-XMin)
	BXMin=Nx:YMin=Ny
	LXMax=XMin+Sx
	VYMax=YMin+Sx
	`
ȑ 0,0
	jȗ ȓ0,0,1280,1024
	t�S%=Si%*4 �
	~	�Swap
	��
	�A%=�Screen
	�4�Zoom C%=M%+&12E0:�M%+&500 �C%=M%+&5C0:�M%+&4C8
	�	�Plot
	��
	�:
	�
��Swap
	�
Sc%=Sc%�1
	�ș "OS_Byte",112,Sc%+1
	��
	�:
	���DSwap
Ȗ

ș "OS_Byte",113,Sc%+1
�
:
(ݤScreen
2�Sc%=0 =Scr% �=Scr%+81920
<:
F
ݤZoom
P"�Ms*Si%/(XMax-XMin)<=75 =� �=�
Z:
d��SelectMan
n�
x%�Zoom Ch%=�Choose3 �Ch%=�Choose2
�ȗ �
�ȗ ȓ0,0,1280,1024
��Ch%=1 �DoZoom
�!�Ch%=2�XMax-XMin<>3 �ResetMan
�
�Ch%=3
�;�(XOf%-1)*4,(255-YOf%-Si%)*4:�(XOf%+Si%)*4,(256-YOf%)*4
�"ș "OS_SpriteOp",270,T2%,"x",0
�A%=�Screen+O%
��M%+&45C
��
�:
�
ݤChoose3
�ȗ ȓ420,68,452,148
ȗ �
	Ch%=0
�
"�
,ȗX%,Y%,Bu%
6�(Bu%�4)=4
@�In(464,100) Ch%=1
J�In(604,100) Ch%=2
T�In(744,100) Ch%=3
^�Ch%<>0
h=Ch%
r:
|
ݤChoose2
�ȗ ȓ484,68,312,148
�ȗ �
�	Ch%=0
��
��
�ȗX%,Y%,Bu%
��(Bu%�4)=4
��In(528,100) Ch%=2
��In(668,100) Ch%=3
��Ch%<>0
�=Ch%
�:
�ݤIn(x%,y%)
	In%=�
�X%<x%�X%>x%+88 In%=�
�Y%<y%�Y%>y%+88 In%=�
&=In%
0:
:
��Find
Dȗ Ox%,Oy%,Bu%
N
ȑ836,384
X	��DFO
b
�n%,m%
l�I%=1�n%
v�w%(I%,1),w%(I%,2)
��I%
��I%=1�m%
��J%=1�4
��p%(I%,J%)
��J%
��I%
�:
�ȗ �
�ȗ ȓ -160,160,4480,960
�ȗ � An%*12,Elv%*16
��
�:
�ȗ X%,Y%,Bu%

�(Bu%�4)<>0 �

�(Bu%�2)=2 D%-=2:�D%<2 D%=2

!�(Bu%�1)=1 D%+=2:�D%>62 D%=62

 Elv%=Y%�16

*�Elv%<10 Elv%=10

4�Elv%>60 Elv%=60

>
An%=X%�12

H�An%<0 ȗ � 4320+An%*12,Y%

R"�An%>=360 ȗ � (An%-360)*12,Y%

\ �An%<0 An%+=360 �An%=An%�360

f:

pA%=�Screen:�M%+&56C

z�rotate

�	�draw

�	ȑ0,0

�	�Info

�
ȑ836,384

�
�DSwap

�	�Swap

��

��(Bu%�4)=0

�	ȑ0,0

�ȗ ȓ 0,0,1280,1024

�ȗ � Ox%,Oy%

��

�:
��rotate
4S1=�(�(An%-90)):C1=�(�(An%-90)):C2=�(�(90-Elv%))
�I%=1�n%
$x%=w%(I%,1):y%=w%(I%,2)
.s%(I%,1)=-x%*S1+y%*C1
8$s%(I%,2)=-x%*C1*C2-y%*S1*C2+D%*4
B�I%
L�
V:
`
��draw
jMi%=256
t�0,63Ȝ192
~�s%(4,1),s%(4,2)
��I%=1�4
��s%(I%,1),s%(I%,2)
�&�s%(I%,2)<Mi% Mi%=s%(I%,2):Mxn%=I%
��I%
�6�s%(Mxn%,1),s%(Mxn%,2):�s%(Mxn%,1),s%(Mxn%,2)-D%*4
�I%=Mxn%+1:�I%>4 I%=1
�.�s%(I%,1),s%(I%,2)-D%*4:�s%(I%,1),s%(I%,2)
��s%(Mxn%,1),s%(Mxn%,2)-D%*4
�I%=Mxn%-1:�I%=0 I%=4
�.�s%(I%,1),s%(I%,2)-D%*4:�s%(I%,1),s%(I%,2)
�
�0,3Ȝ128
��I%=1�m%
"K%=p%(I%,2):�s%(K%,1),s%(K%,2)

"K%=p%(I%,1):�s%(K%,1),s%(K%,2)
%K%=p%(I%,3):�85,s%(K%,1),s%(K%,2)
%K%=p%(I%,4):�85,s%(K%,1),s%(K%,2)
(�I%
2�
<:
F
� 11,2
P)� 300,-300,-300,-300,-300,300,300,300
Z6� 0,270,75,180,-75,180,30,75,-30,75,-30,180,30,180
d
� 5,6,7,7
n� 8,9,10,11
x:
�
��Sprites
�!T1%=60000
�T1%!8=16
�ș "OS_SpriteOp",265,T1%
�!T2%=24000
�T2%!8=16
�ș "OS_SpriteOp",265,T2%
��
�:
���Title
�	*FX15
�
� Blk% 16
�'!Blk%=2:Blk%!4=2:Blk%!8=1:Blk%!12=1

�M%+&745C
��I%=0�99:B%?I%=255:?(B%+I%+9900)=255:?(B%+I%*100)=255:?(B%+I%*100+99)=255:?(B%+I%+100)=255:?(B%+I%+9800)=255:?(B%+I%*100+1)=255:?(B%+I%*100+98)=255:�I%
	�Swap
"	�Text
,A%=�Screen+86*L%+56
6
�M%+&756C
@
�DSwap
J	�Swap
T	�Text
^Oa%=16:Ob%=16:c%=86*L%+56
h�
r*M%!&75DC=Oa%:Oa%+=16:�Oa%>319 Oa%-=320
|*M%!&75E0=Ob%:Ob%+=16:�Ob%>399 Ob%-=400
�A%=�Screen+c%
�
�M%+&756C
�
�DSwap
�	�Swap
�A%=�Screen
�
�M%+&7508
�ȗX%,Y%,Bu%
��(Bu%+�(0))<>-1
��
�:
�
��Text
�Z$="Mandelscape"
�	�0,15

�J%=1��Z$
9ș "OS_SpriteOp",51,�(�Z$,J%,1)),,192+J%*64,860,,Blk%
�J%
&�21
0'�7,29);"Written by Martin Hesketh"
:�
D:
N
ݤScrAddr
X!B%=149
bB%!4=-1
l$ș "OS_ReadVduVariables",B%,B%+8
v	=B%!8
�:
�
��Quit
��0
�(�"Something wonderful has happened!"
�"�'"An error has occurred: ";�$
��"At location: ";~�+&10000
��'''
�	*FX20
�*FX229,0
�Ș
��
�:
�

00000000  0d 00 0a 19 f4 20 3e 24  2e 21 53 63 61 70 65 2e  |..... >$.!Scape.|
00000010  21 52 75 6e 49 6d 61 67  65 0d 00 14 0c 2a 46 58  |!RunImage....*FX|
00000020  32 32 39 2c 31 0d 00 1e  0c ee 85 20 f2 51 75 69  |229,1...... .Qui|
00000030  74 0d 00 28 06 eb 30 0d  00 32 05 87 0d 00 3c 0e  |t..(..0..2....<.|
00000040  2a 50 4f 49 4e 54 45 52  20 31 0d 00 46 08 c8 97  |*POINTER 1..F...|
00000050  20 87 0d 00 50 0e de 20  4d 25 20 34 32 30 30 30  | ...P.. M% 42000|
00000060  0d 00 5a 0e de 20 42 25  20 33 32 37 36 38 0d 00  |..Z.. B% 32768..|
00000070  64 24 ff 28 22 4c 4f 41  44 20 3c 53 63 61 70 65  |d$.("LOAD <Scape|
00000080  24 44 69 72 3e 2e 43 6f  64 65 20 22 2b c3 7e 42  |$Dir>.Code "+.~B|
00000090  25 29 0d 00 6e 09 43 25  3d 4d 25 0d 00 78 08 d6  |%)..n.C%=M%..x..|
000000a0  20 42 25 0d 00 82 08 eb  31 34 31 0d 00 8c 07 eb  | B%.....141.....|
000000b0  31 33 0d 00 96 05 87 0d  00 a0 0f de 20 54 31 25  |13.......... T1%|
000000c0  20 36 30 30 30 30 0d 00  aa 0f de 20 54 32 25 20  | 60000..... T2% |
000000d0  32 34 30 30 30 0d 00 b4  1f de 20 77 25 28 31 31  |24000..... w%(11|
000000e0  2c 32 29 2c 73 25 28 31  31 2c 32 29 2c 70 25 28  |,2),s%(11,2),p%(|
000000f0  32 2c 34 29 0d 00 be 10  43 31 25 3d 4d 25 2b 26  |2,4)....C1%=M%+&|
00000100  39 44 33 30 0d 00 c8 0f  54 25 3d 4d 25 2b 26 37  |9D30....T%=M%+&7|
00000110  46 45 34 0d 00 d2 11 53  63 72 25 3d a4 53 63 72  |FE4....Scr%=.Scr|
00000120  41 64 64 72 0d 00 dc 09  43 6f 25 3d 30 0d 00 e6  |Addr....Co%=0...|
00000130  0a 42 63 25 3d 36 35 0d  00 f0 0b 4d 61 78 25 3d  |.Bc%=65....Max%=|
00000140  31 36 0d 00 fa 09 44 25  3d 34 30 0d 01 04 0e 4d  |16....D%=40....M|
00000150  61 78 43 6f 6c 25 3d 33  31 0d 01 0e 08 46 25 3d  |axCol%=31....F%=|
00000160  31 0d 01 18 0c 4d 73 3d  30 2e 30 30 31 0d 01 22  |1....Ms=0.001.."|
00000170  05 3a 0d 01 2c 0b 53 69  25 3d 31 35 30 0d 01 36  |.:..,.Si%=150..6|
00000180  10 53 6a 25 3d 53 69 25  2a 31 2f b6 32 0d 01 40  |.Sj%=Si%*1/.2..@|
00000190  0a 4c 25 3d 33 32 30 0d  01 4a 17 43 78 25 3d 4c  |.L%=320..J.Cx%=L|
000001a0  25 2f 32 2b 34 38 3a 43  79 25 3d 31 36 30 0d 01  |%/2+48:Cy%=160..|
000001b0  54 05 3a 0d 01 5e 20 e3  49 25 3d 4d 25 2b 26 37  |T.:..^ .I%=M%+&7|
000001c0  43 32 34 b8 4d 25 2b 26  37 46 45 33 3a ef 3f 49  |C24.M%+&7FE3:.?I|
000001d0  25 3a ed 0d 01 68 0c f2  53 70 72 69 74 65 73 0d  |%:...h..Sprites.|
000001e0  01 72 23 e3 49 25 3d 42  25 2b 32 38 30 30 b8 42  |.r#.I%=B%+2800.B|
000001f0  25 2b 33 30 37 32 88 34  3a 21 49 25 3d 30 3a ed  |%+3072.4:!I%=0:.|
00000200  49 25 0d 01 7c 25 e3 49  25 3d 42 25 2b 26 36 33  |I%..|%.I%=B%+&63|
00000210  45 34 b8 42 25 2b 26 36  35 31 30 88 34 3a 21 49  |E4.B%+&6510.4:!I|
00000220  25 3d 30 3a ed 49 25 0d  01 86 05 3a 0d 01 90 09  |%=0:.I%....:....|
00000230  53 63 25 3d 30 0d 01 9a  09 43 32 25 3d 30 0d 01  |Sc%=0....C2%=0..|
00000240  a4 13 58 4f 66 25 3d 38  35 3a 59 4f 66 25 3d 34  |..XOf%=85:YOf%=4|
00000250  30 0d 01 ae 13 4f 25 3d  58 4f 66 25 2b 59 4f 66  |0....O%=XOf%+YOf|
00000260  25 2a 4c 25 0d 01 b8 0a  f2 54 69 74 6c 65 0d 01  |%*L%.....Title..|
00000270  c2 11 45 6c 76 25 3d 34  30 3a 41 6e 25 3d 30 0d  |..Elv%=40:An%=0.|
00000280  01 cc 0d f2 52 65 73 65  74 4d 61 6e 0d 01 d6 05  |....ResetMan....|
00000290  3a 0d 01 e0 05 f5 0d 01  ea 0e f2 53 65 6c 65 63  |:..........Selec|
000002a0  74 4d 61 6e 0d 01 f4 0e  f2 4c 61 6e 64 53 63 61  |tMan.....LandSca|
000002b0  70 65 0d 01 fe 0c e7 43  68 25 3d 32 20 8c 0d 02  |pe.....Ch%=2 ...|
000002c0  08 09 f2 53 77 61 70 0d  02 12 05 db 0d 02 1c 0e  |...Swap.........|
000002d0  41 25 3d a4 53 63 72 65  65 6e 0d 02 26 34 e7 a4  |A%=.Screen..&4..|
000002e0  5a 6f 6f 6d 20 43 25 3d  4d 25 2b 26 31 32 45 30  |Zoom C%=M%+&12E0|
000002f0  3a d6 4d 25 2b 26 35 30  30 20 8b 43 25 3d 4d 25  |:.M%+&500 .C%=M%|
00000300  2b 26 35 43 30 3a d6 4d  25 2b 26 34 43 38 0d 02  |+&5C0:.M%+&4C8..|
00000310  30 3e c8 99 20 22 4f 53  5f 53 70 72 69 74 65 4f  |0>.. "OS_SpriteO|
00000320  70 22 2c 32 39 30 2c 54  32 25 2c 22 78 22 2c 28  |p",290,T2%,"x",(|
00000330  58 4f 66 25 2d 31 29 2a  34 2c 28 32 35 35 2d 59  |XOf%-1)*4,(255-Y|
00000340  4f 66 25 2d 53 69 25 29  2a 34 2c 30 0d 02 3a 05  |Of%-Si%)*4,0..:.|
00000350  cd 0d 02 44 0a fd 43 68  25 3d 31 0d 02 4e 09 2a  |...D..Ch%=1..N.*|
00000360  46 58 32 30 0d 02 58 0c  2a 46 58 32 32 39 2c 30  |FX20..X.*FX229,0|
00000370  0d 02 62 06 eb 30 0d 02  6c 06 c8 98 0d 02 76 05  |..b..0..l.....v.|
00000380  e0 0d 02 80 05 3a 0d 02  8a 0f dd f2 4c 61 6e 64  |.....:......Land|
00000390  53 63 61 70 65 0d 02 94  09 f2 53 77 61 70 0d 02  |Scape.....Swap..|
000003a0  9e 05 db 0d 02 a8 0e 41  25 3d a4 53 63 72 65 65  |.......A%=.Scree|
000003b0  6e 0d 02 b2 18 43 25 3d  4d 25 2b 26 32 35 30 30  |n....C%=M%+&2500|
000003c0  3a d6 4d 25 2b 26 35 34  30 0d 02 bc 2c f2 53 74  |:.M%+&540...,.St|
000003d0  6f 72 65 41 6e 67 6c 65  73 28 28 41 6e 25 2f 31  |oreAngles((An%/1|
000003e0  38 30 2d 2e 37 35 29 2a  af 2c 45 6c 76 25 2f 31  |80-.75)*.,Elv%/1|
000003f0  38 30 2a af 29 0d 02 c6  09 f2 49 6e 66 6f 0d 02  |80*.).....Info..|
00000400  d0 09 f2 44 72 61 77 0d  02 da 09 f2 53 77 61 70  |...Draw.....Swap|
00000410  0d 02 e4 09 f2 49 6e 66  6f 0d 02 ee 0e 41 25 3d  |.....Info....A%=|
00000420  a4 53 63 72 65 65 6e 0d  02 f8 05 db 0d 03 02 18  |.Screen.........|
00000430  43 25 3d 4d 25 2b 26 32  35 30 30 3a d6 4d 25 2b  |C%=M%+&2500:.M%+|
00000440  26 35 34 30 0d 03 0c 05  3a 0d 03 16 09 43 68 25  |&540....:....Ch%|
00000450  3d 30 0d 03 20 05 f5 0d  03 2a 0b f2 47 65 74 4e  |=0.. ....*..GetN|
00000460  65 77 0d 03 34 0c e7 43  68 25 3d 30 20 8c 0d 03  |ew..4..Ch%=0 ...|
00000470  3e 2c f2 53 74 6f 72 65  41 6e 67 6c 65 73 28 28  |>,.StoreAngles((|
00000480  41 6e 25 2f 31 38 30 2d  2e 37 35 29 2a af 2c 45  |An%/180-.75)*.,E|
00000490  6c 76 25 2f 31 38 30 2a  af 29 0d 03 48 09 f2 49  |lv%/180*.)..H..I|
000004a0  6e 66 6f 0d 03 52 09 f2  44 72 61 77 0d 03 5c 09  |nfo..R..Draw..\.|
000004b0  f2 53 77 61 70 0d 03 66  05 cd 0d 03 70 0b fd 43  |.Swap..f....p..C|
000004c0  68 25 3c 3e 30 0d 03 7a  08 c8 97 20 87 0d 03 84  |h%<>0..z... ....|
000004d0  05 e1 0d 03 8e 05 3a 0d  03 98 1a dd f2 53 74 6f  |......:......Sto|
000004e0  72 65 41 6e 67 6c 65 73  28 41 6e 2c 45 6c 41 6e  |reAngles(An,ElAn|
000004f0  29 0d 03 a2 0d 45 6c 65  3d b5 45 6c 41 6e 0d 03  |)....Ele=.ElAn..|
00000500  ac 13 21 4d 25 3d 43 78  25 2b 53 6a 25 2a 9b 41  |..!M%=Cx%+Sj%*.A|
00000510  6e 0d 03 b6 18 4d 25 21  38 3d 43 79 25 2b 45 6c  |n....M%!8=Cy%+El|
00000520  65 2a 53 6a 25 2a b5 41  6e 0d 03 c0 1a 4d 25 21  |e*Sj%*.An....M%!|
00000530  34 3d 43 78 25 2b 53 6a  25 2a 9b 28 41 6e 2b af  |4=Cx%+Sj%*.(An+.|
00000540  2f 32 29 0d 03 ca 1f 4d  25 21 31 32 3d 43 79 25  |/2)....M%!12=Cy%|
00000550  2b 45 6c 65 2a 53 6a 25  2a b5 28 41 6e 2b af 2f  |+Ele*Sj%*.(An+./|
00000560  32 29 0d 03 d4 0d 4d 25  21 31 36 3d 21 4d 25 0d  |2)....M%!16=!M%.|
00000570  03 de 0e 4d 25 21 32 34  3d 4d 25 21 38 0d 03 e8  |...M%!24=M%!8...|
00000580  1d 4d 25 21 32 30 3d 43  78 25 2b 53 6a 25 2a 9b  |.M%!20=Cx%+Sj%*.|
00000590  28 41 6e 2b 33 2a af 2f  32 29 0d 03 f2 21 4d 25  |(An+3*./2)...!M%|
000005a0  21 32 38 3d 43 79 25 2b  45 6c 65 2a 53 6a 25 2a  |!28=Cy%+Ele*Sj%*|
000005b0  b5 28 41 6e 2b 33 2a af  2f 32 29 0d 03 fc 1c 43  |.(An+3*./2)....C|
000005c0  25 3d 43 31 25 2b 43 32  25 2a 33 33 2b 28 31 2d  |%=C1%+C2%*33+(1-|
000005d0  46 25 29 2a 32 33 31 0d  04 06 05 e1 0d 04 10 05  |F%)*231.........|
000005e0  3a 0d 04 1a 0a dd f2 44  72 61 77 0d 04 24 0e 41  |:......Draw..$.A|
000005f0  25 3d a4 53 63 72 65 65  6e 0d 04 2e 0c d6 4d 25  |%=.Screen.....M%|
00000600  2b 26 35 36 43 0d 04 38  0a d6 4d 25 2b 33 32 0d  |+&56C..8..M%+32.|
00000610  04 42 0a f2 44 53 77 61  70 0d 04 4c 08 c8 97 20  |.B..DSwap..L... |
00000620  ee 0d 04 56 05 e1 0d 04  60 05 3a 0d 04 6a 0a dd  |...V....`.:..j..|
00000630  f2 49 6e 66 6f 0d 04 74  0e e6 30 2c 36 33 c8 9c  |.Info..t..0,63..|
00000640  31 39 32 0d 04 7e 16 c8  93 20 c8 90 20 38 2c 38  |192..~... .. 8,8|
00000650  34 38 2c 31 31 36 2c 33  32 0d 04 88 15 c8 93 20  |48,116,32...... |
00000660  c8 90 20 38 2c 37 31 36  2c 38 30 2c 33 32 0d 04  |.. 8,716,80,32..|
00000670  92 16 c8 93 20 c8 90 20  38 2c 35 38 34 2c 31 31  |.... .. 8,584,11|
00000680  36 2c 33 32 0d 04 9c 0b  e6 30 2c 30 c8 9c 30 0d  |6,32.....0,0..0.|
00000690  04 a6 06 ef 35 0d 04 b0  1b ec 32 30 2c 38 37 36  |....5.....20,876|
000006a0  3a f1 3b c2 22 30 30 22  2b c3 41 6e 25 2c 33 29  |:.;."00"+.An%,3)|
000006b0  0d 04 ba 12 ec 32 38 2c  37 34 34 3a f1 3b 45 6c  |.....28,744:.;El|
000006c0  76 25 0d 04 c4 1d ec 32  30 2c 36 31 32 3a f1 3b  |v%.....20,612:.;|
000006d0  c2 22 20 22 2b c3 28 44  25 2a 35 29 2c 33 29 0d  |." "+.(D%*5),3).|
000006e0  04 ce 08 ef 34 3a 87 0d  04 d8 2c c8 99 20 22 4f  |....4:....,.. "O|
000006f0  53 5f 53 70 72 69 74 65  4f 70 22 2c 32 39 30 2c  |S_SpriteOp",290,|
00000700  54 25 2c c3 28 43 32 25  2b 31 29 2c 34 2c 33 36  |T%,.(C2%+1),4,36|
00000710  34 2c 30 0d 04 e2 05 e1  0d 04 ec 05 3a 0d 04 f6  |4,0.........:...|
00000720  0c dd f2 47 65 74 4e 65  77 0d 05 00 0b 2a 46 58  |...GetNew....*FX|
00000730  32 31 2c 39 0d 05 0a 09  46 69 25 3d a3 0d 05 14  |21,9....Fi%=....|
00000740  05 f5 0d 05 1e 05 f5 0d  05 28 10 c8 97 20 58 25  |.........(... X%|
00000750  2c 59 25 2c 42 75 25 0d  05 32 0b fd 42 75 25 3c  |,Y%,Bu%..2..Bu%<|
00000760  3e 30 0d 05 3c 30 41 6d  25 3d 2d 28 28 42 75 25  |>0..<0Am%=-((Bu%|
00000770  80 31 29 3d 31 29 2d 32  2a 28 28 42 75 25 80 32  |.1)=1)-2*((Bu%.2|
00000780  29 3d 32 29 2d 35 2a 28  28 42 75 25 80 34 29 3d  |)=2)-5*((Bu%.4)=|
00000790  34 29 0d 05 46 1c e7 a4  49 6e 28 32 34 2c 39 31  |4)..F...In(24,91|
000007a0  32 29 20 43 68 25 3d 31  3a 46 69 25 3d b9 0d 05  |2) Ch%=1:Fi%=...|
000007b0  50 36 e7 a4 49 6e 28 31  35 36 2c 39 31 32 29 20  |P6..In(156,912) |
000007c0  46 69 25 3d b9 3a f2 53  61 76 65 3a f2 53 77 61  |Fi%=.:.Save:.Swa|
000007d0  70 3a c8 97 b8 4f 78 25  2c 4f 79 25 3a 2a 46 58  |p:...Ox%,Oy%:*FX|
000007e0  32 31 2c 39 0d 05 5a 1d  e7 a4 49 6e 28 32 38 38  |21,9..Z...In(288|
000007f0  2c 39 31 32 29 20 43 68  25 3d 32 3a 46 69 25 3d  |,912) Ch%=2:Fi%=|
00000800  b9 0d 05 64 30 e7 a4 49  6e 28 31 35 36 2c 37 38  |...d0..In(156,78|
00000810  30 29 20 46 69 25 3d b9  3a 41 6e 25 2d 3d 41 6d  |0) Fi%=.:An%-=Am|
00000820  25 3a e7 41 6e 25 3c 30  20 41 6e 25 2b 3d 33 36  |%:.An%<0 An%+=36|
00000830  30 0d 05 6e 29 e7 a4 49  6e 28 32 38 38 2c 37 38  |0..n)..In(288,78|
00000840  30 29 20 46 69 25 3d b9  3a 41 6e 25 3d 28 41 6e  |0) Fi%=.:An%=(An|
00000850  25 2b 41 6d 25 29 83 33  36 30 0d 05 78 32 e7 a4  |%+Am%).360..x2..|
00000860  49 6e 28 31 35 36 2c 36  34 38 29 20 46 69 25 3d  |In(156,648) Fi%=|
00000870  b9 3a 45 6c 76 25 2d 3d  41 6d 25 3a e7 45 6c 76  |.:Elv%-=Am%:.Elv|
00000880  25 3c 31 30 20 45 6c 76  25 3d 31 30 0d 05 82 32  |%<10 Elv%=10...2|
00000890  e7 a4 49 6e 28 32 38 38  2c 36 34 38 29 20 46 69  |..In(288,648) Fi|
000008a0  25 3d b9 3a 45 6c 76 25  2b 3d 41 6d 25 3a e7 45  |%=.:Elv%+=Am%:.E|
000008b0  6c 76 25 3e 36 30 20 45  6c 76 25 3d 36 30 0d 05  |lv%>60 Elv%=60..|
000008c0  8c 2c e7 a4 49 6e 28 31  35 36 2c 35 31 36 29 20  |.,..In(156,516) |
000008d0  46 69 25 3d b9 3a 44 25  2d 3d 32 2a 41 6d 25 3a  |Fi%=.:D%-=2*Am%:|
000008e0  e7 44 25 3c 32 20 44 25  3d 32 0d 05 96 2e e7 a4  |.D%<2 D%=2......|
000008f0  49 6e 28 32 38 38 2c 35  31 36 29 20 46 69 25 3d  |In(288,516) Fi%=|
00000900  b9 3a 44 25 2b 3d 32 2a  41 6d 25 3a e7 44 25 3e  |.:D%+=2*Am%:.D%>|
00000910  36 32 20 44 25 3d 36 32  0d 05 a0 2b e7 a4 49 6e  |62 D%=62...+..In|
00000920  28 31 35 36 2c 33 38 34  29 20 46 69 25 3d b9 3a  |(156,384) Fi%=.:|
00000930  43 32 25 2d 3d 31 3a e7  43 32 25 3c 30 20 43 32  |C2%-=1:.C2%<0 C2|
00000940  25 3d 36 0d 05 aa 2b e7  a4 49 6e 28 32 38 38 2c  |%=6...+..In(288,|
00000950  33 38 34 29 20 46 69 25  3d b9 3a 43 32 25 2b 3d  |384) Fi%=.:C2%+=|
00000960  31 3a e7 43 32 25 3d 37  20 43 32 25 3d 30 0d 05  |1:.C2%=7 C2%=0..|
00000970  b4 35 e7 a4 49 6e 28 31  35 36 2c 32 35 32 29 84  |.5..In(156,252).|
00000980  a4 49 6e 28 32 38 38 2c  32 35 32 29 20 46 69 25  |.In(288,252) Fi%|
00000990  3d b9 3a 46 25 3d 46 25  82 31 3a d6 4d 25 2b 26  |=.:F%=F%.1:.M%+&|
000009a0  34 41 30 0d 05 be 21 e7  58 25 3e 34 30 30 80 28  |4A0...!.X%>400.(|
000009b0  42 75 25 80 34 29 3d 34  20 46 69 25 3d b9 3a f2  |Bu%.4)=4 Fi%=.:.|
000009c0  46 69 6e 64 0d 05 c8 08  fd 46 69 25 0d 05 d2 05  |Find.....Fi%....|
000009d0  e1 0d 05 dc 05 3a 0d 05  e6 0a dd f2 53 61 76 65  |.....:......Save|
000009e0  0d 05 f0 11 c8 97 4f 78  25 2c 4f 79 25 2c 42 78  |......Ox%,Oy%,Bx|
000009f0  25 0d 05 fa 08 c8 97 20  87 0d 06 04 19 f5 c8 97  |%...... ........|
00000a00  41 78 25 2c 41 79 25 2c  42 78 25 3a fd 42 78 25  |Ax%,Ay%,Bx%:.Bx%|
00000a10  3d 30 0d 06 0e 09 f2 53  77 61 70 0d 06 18 15 ec  |=0.....Swap.....|
00000a20  34 30 30 2c 30 3a ec 31  32 38 30 2c 31 30 32 34  |400,0:.1280,1024|
00000a30  0d 06 22 2a c8 99 20 22  4f 53 5f 53 70 72 69 74  |.."*.. "OS_Sprit|
00000a40  65 4f 70 22 2c 32 37 30  2c 54 31 25 2c 22 6c 61  |eOp",270,T1%,"la|
00000a50  6e 64 73 63 61 70 65 22  2c 30 0d 06 2c 0e e6 30  |ndscape",0..,..0|
00000a60  2c 33 32 c8 9c 31 39 32  0d 06 36 19 c8 93 20 c8  |,32..192..6... .|
00000a70  90 20 35 30 30 2c 37 32  34 2c 36 38 30 2c 31 38  |. 500,724,680,18|
00000a80  38 0d 06 40 0e e6 30 2c  36 33 c8 9c 31 39 32 0d  |8..@..0,63..192.|
00000a90  06 4a 15 c8 93 34 39 36  2c 37 32 30 2c 36 38 38  |.J...496,720,688|
00000aa0  2c 31 39 36 0d 06 54 06  ef 35 0d 06 5e 1d ec 35  |,196..T..5..^..5|
00000ab0  32 30 2c 38 38 34 3a f1  22 53 61 76 65 20 50 69  |20,884:."Save Pi|
00000ac0  63 74 75 72 65 3a 22 0d  06 68 2c ec 35 32 30 2c  |cture:"..h,.520,|
00000ad0  38 32 30 3a f1 22 46 69  6c 65 6e 61 6d 65 3a 20  |820:."Filename: |
00000ae0  53 63 61 70 65 22 3b c2  22 30 22 2b c3 43 6f 25  |Scape";."0"+.Co%|
00000af0  2c 32 29 0d 06 72 24 ec  35 32 30 2c 37 38 30 3a  |,2)..r$.520,780:|
00000b00  f1 22 50 72 65 73 73 20  53 65 6c 65 63 74 20 74  |."Press Select t|
00000b10  6f 20 53 61 76 65 22 0d  06 7c 08 ef 34 3a 87 0d  |o Save"..|..4:..|
00000b20  06 86 05 f5 0d 06 90 11  c8 97 41 78 25 2c 41 79  |..........Ax%,Ay|
00000b30  25 2c 42 78 25 0d 06 9a  0f fd 28 42 78 25 80 35  |%,Bx%.....(Bx%.5|
00000b40  29 3c 3e 30 0d 06 a4 10  e7 28 42 78 25 80 31 29  |)<>0.....(Bx%.1)|
00000b50  3d 31 20 e1 0d 06 ae 1a  ea 85 3a ee 85 ea 3a f2  |=1 .......:...:.|
00000b60  53 61 76 65 45 72 72 6f  72 3a f7 85 3a e1 0d 06  |SaveError:..:...|
00000b70  b8 0a 2a 4d 4f 55 4e 54  0d 06 c2 33 c8 99 20 22  |..*MOUNT...3.. "|
00000b80  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 32 36 38  |OS_SpriteOp",268|
00000b90  2c 54 31 25 2c 22 24 2e  53 63 61 70 65 22 2b c2  |,T1%,"$.Scape"+.|
00000ba0  22 30 22 2b c3 43 6f 25  2c 32 29 0d 06 cc 0a 43  |"0"+.Co%,2)....C|
00000bb0  6f 25 2b 3d 31 0d 06 d6  19 f5 c8 97 41 78 25 2c  |o%+=1.......Ax%,|
00000bc0  41 79 25 2c 42 78 25 3a  fd 42 78 25 3d 30 0d 06  |Ay%,Bx%:.Bx%=0..|
00000bd0  e0 05 e1 0d 06 ea 05 3a  0d 06 f4 0f dd f2 53 61  |.......:......Sa|
00000be0  76 65 45 72 72 6f 72 0d  06 fe 0e e6 30 2c 33 32  |veError.....0,32|
00000bf0  c8 9c 31 39 32 0d 07 08  19 c8 93 20 c8 90 20 35  |..192...... .. 5|
00000c00  30 30 2c 37 32 34 2c 36  38 30 2c 31 38 38 0d 07  |00,724,680,188..|
00000c10  12 0e e6 30 2c 36 33 c8  9c 31 39 32 0d 07 1c 06  |...0,63..192....|
00000c20  ef 35 0d 07 26 1b ec 35  32 30 2c 38 38 34 3a f1  |.5..&..520,884:.|
00000c30  22 53 61 76 65 20 45 72  72 6f 72 3a 22 0d 07 30  |"Save Error:"..0|
00000c40  1f ec 35 32 30 2c 38 32  30 3a f1 22 45 72 72 6f  |..520,820:."Erro|
00000c50  72 3a 20 22 3b c0 f6 24  2c 31 34 29 0d 07 3a 1c  |r: ";..$,14)..:.|
00000c60  ec 35 32 30 2c 37 38 30  3a f1 22 43 6c 69 63 6b  |.520,780:."Click|
00000c70  20 4d 6f 75 73 65 2e 22  0d 07 44 19 f5 c8 97 41  | Mouse."..D....A|
00000c80  78 25 2c 41 79 25 2c 42  78 25 3a fd 42 78 25 3d  |x%,Ay%,Bx%:.Bx%=|
00000c90  30 0d 07 4e 1a f5 c8 97  41 78 25 2c 41 79 25 2c  |0..N....Ax%,Ay%,|
00000ca0  42 78 25 3a fd 42 78 25  3c 3e 30 0d 07 58 19 f5  |Bx%:.Bx%<>0..X..|
00000cb0  c8 97 41 78 25 2c 41 79  25 2c 42 78 25 3a fd 42  |..Ax%,Ay%,Bx%:.B|
00000cc0  78 25 3d 30 0d 07 62 05  e1 0d 07 6c 05 3a 0d 07  |x%=0..b....l.:..|
00000cd0  76 0e dd f2 52 65 73 65  74 4d 61 6e 0d 07 80 09  |v...ResetMan....|
00000ce0  f2 53 77 61 70 0d 07 8a  05 db 0d 07 94 2b 58 4d  |.Swap........+XM|
00000cf0  69 6e 3d 2d 32 2e 32 35  3a 58 4d 61 78 3d 30 2e  |in=-2.25:XMax=0.|
00000d00  37 35 3a 59 4d 69 6e 3d  2d 31 2e 35 3a 59 4d 61  |75:YMin=-1.5:YMa|
00000d10  78 3d 31 2e 35 0d 07 9e  0e 41 25 3d a4 53 63 72  |x=1.5....A%=.Scr|
00000d20  65 65 6e 0d 07 a8 18 43  25 3d 4d 25 2b 26 31 32  |een....C%=M%+&12|
00000d30  45 30 3a d6 4d 25 2b 26  35 30 30 0d 07 b2 09 f2  |E0:.M%+&500.....|
00000d40  50 6c 6f 74 0d 07 bc 05  e1 0d 07 c6 05 3a 0d 07  |Plot.........:..|
00000d50  d0 0a dd f2 50 6c 6f 74  0d 07 da 21 e7 58 4d 61  |....Plot...!.XMa|
00000d60  78 2d 58 4d 69 6e 3c 30  2e 30 38 20 41 63 25 3d  |x-XMin<0.08 Ac%=|
00000d70  32 35 8b 41 63 25 3d 31  32 0d 07 e4 16 4d 25 21  |25.Ac%=12....M%!|
00000d80  26 34 34 43 3d 58 4d 69  6e 2a 32 5e 41 63 25 0d  |&44C=XMin*2^Ac%.|
00000d90  07 ee 23 4d 25 21 26 34  35 30 3d 28 28 58 4d 61  |..#M%!&450=((XMa|
00000da0  78 2d 58 4d 69 6e 29 2f  53 69 25 29 2a 32 5e 41  |x-XMin)/Si%)*2^A|
00000db0  63 25 0d 07 f8 16 4d 25  21 26 34 35 34 3d 59 4d  |c%....M%!&454=YM|
00000dc0  61 78 2a 32 5e 41 63 25  0d 08 02 23 4d 25 21 26  |ax*2^Ac%...#M%!&|
00000dd0  34 35 38 3d 28 28 59 4d  69 6e 2d 59 4d 61 78 29  |458=((YMin-YMax)|
00000de0  2f 53 69 25 29 2a 32 5e  41 63 25 0d 08 0c 11 41  |/Si%)*2^Ac%....A|
00000df0  25 3d a4 53 63 72 65 65  6e 2b 4f 25 0d 08 16 0f  |%=.Screen+O%....|
00000e00  e6 30 2c 36 33 20 c8 9c  31 39 32 0d 08 20 2b c8  |.0,63 ..192.. +.|
00000e10  93 28 58 4f 66 25 2d 31  29 2a 34 2c 28 32 35 35  |.(XOf%-1)*4,(255|
00000e20  2d 59 4f 66 25 2d 53 69  25 29 2a 34 2c 28 53 69  |-YOf%-Si%)*4,(Si|
00000e30  25 2b 31 29 2a 34 0d 08  2a 0a f2 44 53 77 61 70  |%+1)*4..*..DSwap|
00000e40  0d 08 34 1a c8 99 20 22  48 6f 75 72 67 6c 61 73  |..4... "Hourglas|
00000e50  73 5f 53 74 61 72 74 22  2c 31 0d 08 3e 2a e7 41  |s_Start",1..>*.A|
00000e60  63 25 3d 31 32 20 d6 4d  25 2b 26 33 42 30 20 8b  |c%=12 .M%+&3B0 .|
00000e70  43 25 3d 4d 25 2b 26 34  34 43 3a d6 4d 25 2b 26  |C%=M%+&44C:.M%+&|
00000e80  37 32 42 43 0d 08 48 18  c8 99 20 22 48 6f 75 72  |72BC..H... "Hour|
00000e90  67 6c 61 73 73 5f 53 6d  61 73 68 22 0d 08 52 05  |glass_Smash"..R.|
00000ea0  e1 0d 08 5c 05 3a 0d 08  66 0c dd f2 44 6f 5a 6f  |...\.:..f...DoZo|
00000eb0  6f 6d 0d 08 70 0b 2a 46  58 32 31 2c 39 0d 08 7a  |om..p.*FX21,9..z|
00000ec0  05 f5 0d 08 84 10 c8 97  20 58 25 2c 59 25 2c 42  |........ X%,Y%,B|
00000ed0  75 25 0d 08 8e 0a fd 42  75 25 3d 30 0d 08 98 09  |u%.....Bu%=0....|
00000ee0  e6 20 34 2c 30 0d 08 a2  1e c8 91 20 58 4f 66 25  |. 4,0...... XOf%|
00000ef0  2a 34 2c 28 32 35 36 2d  59 4f 66 25 2d 53 69 25  |*4,(256-YOf%-Si%|
00000f00  29 2a 34 0d 08 ac 15 53  25 3d 53 69 25 2a 34 3a  |)*4....S%=Si%*4:|
00000f10  c8 97 20 b8 20 30 2c 30  0d 08 b6 19 4d 73 25 3d  |.. . 0,0....Ms%=|
00000f20  4d 73 2a 53 25 2f 28 58  4d 61 78 2d 58 4d 69 6e  |Ms*S%/(XMax-XMin|
00000f30  29 0d 08 c0 12 e7 4d 73  25 3c 32 34 20 4d 73 25  |).....Ms%<24 Ms%|
00000f40  3d 32 34 0d 08 ca 05 f5  0d 08 d4 1e c8 97 20 c8  |=24........... .|
00000f50  93 30 2c 30 2c 53 69 25  2a 34 2d 53 25 2c 53 69  |.0,0,Si%*4-S%,Si|
00000f60  25 2a 34 2d 53 25 0d 08  de 10 c8 97 20 58 25 2c  |%*4-S%...... X%,|
00000f70  59 25 2c 42 75 25 0d 08  e8 10 c8 93 58 25 2c 59  |Y%,Bu%......X%,Y|
00000f80  25 2c 53 25 2d 34 0d 08  f2 22 4e 78 3d 58 4d 69  |%,S%-4..."Nx=XMi|
00000f90  6e 2b 58 25 2a 28 58 4d  61 78 2d 58 4d 69 6e 29  |n+X%*(XMax-XMin)|
00000fa0  2f 28 53 69 25 2a 34 29  0d 08 fc 22 4e 79 3d 59  |/(Si%*4)..."Ny=Y|
00000fb0  4d 69 6e 2b 59 25 2a 28  59 4d 61 78 2d 59 4d 69  |Min+Y%*(YMax-YMi|
00000fc0  6e 29 2f 28 53 69 25 2a  34 29 0d 09 06 06 c8 96  |n)/(Si%*4)......|
00000fd0  0d 09 10 10 c8 93 58 25  2c 59 25 2c 53 25 2d 34  |......X%,Y%,S%-4|
00000fe0  0d 09 1a 22 e7 20 28 42  75 25 20 80 20 31 29 3d  |...". (Bu% . 1)=|
00000ff0  31 20 80 20 53 25 3c 53  69 25 2a 34 20 53 25 2b  |1 . S%<Si%*4 S%+|
00001000  3d 38 0d 09 24 22 e7 20  28 42 75 25 20 80 20 34  |=8..$". (Bu% . 4|
00001010  29 3d 34 20 80 20 53 25  3e 4d 73 25 2b 38 20 53  |)=4 . S%>Ms%+8 S|
00001020  25 2d 3d 38 0d 09 2e 11  fd 20 28 42 75 25 20 80  |%-=8..... (Bu% .|
00001030  20 32 29 3d 32 0d 09 38  1d 53 78 3d 53 25 2f 28  | 2)=2..8.Sx=S%/(|
00001040  53 69 25 2a 34 29 2a 28  58 4d 61 78 2d 58 4d 69  |Si%*4)*(XMax-XMi|
00001050  6e 29 0d 09 42 13 58 4d  69 6e 3d 4e 78 3a 59 4d  |n)..B.XMin=Nx:YM|
00001060  69 6e 3d 4e 79 0d 09 4c  10 58 4d 61 78 3d 58 4d  |in=Ny..L.XMax=XM|
00001070  69 6e 2b 53 78 0d 09 56  10 59 4d 61 78 3d 59 4d  |in+Sx..V.YMax=YM|
00001080  69 6e 2b 53 78 0d 09 60  0a c8 91 20 30 2c 30 0d  |in+Sx..`... 0,0.|
00001090  09 6a 16 c8 97 20 c8 93  30 2c 30 2c 31 32 38 30  |.j... ..0,0,1280|
000010a0  2c 31 30 32 34 0d 09 74  0f e7 53 25 3d 53 69 25  |,1024..t..S%=Si%|
000010b0  2a 34 20 e1 0d 09 7e 09  f2 53 77 61 70 0d 09 88  |*4 ...~..Swap...|
000010c0  05 db 0d 09 92 0e 41 25  3d a4 53 63 72 65 65 6e  |......A%=.Screen|
000010d0  0d 09 9c 34 e7 a4 5a 6f  6f 6d 20 43 25 3d 4d 25  |...4..Zoom C%=M%|
000010e0  2b 26 31 32 45 30 3a d6  4d 25 2b 26 35 30 30 20  |+&12E0:.M%+&500 |
000010f0  8b 43 25 3d 4d 25 2b 26  35 43 30 3a d6 4d 25 2b  |.C%=M%+&5C0:.M%+|
00001100  26 34 43 38 0d 09 a6 09  f2 50 6c 6f 74 0d 09 b0  |&4C8.....Plot...|
00001110  05 e1 0d 09 ba 05 3a 0d  09 c4 0a dd f2 53 77 61  |......:......Swa|
00001120  70 0d 09 ce 0d 53 63 25  3d 53 63 25 82 31 0d 09  |p....Sc%=Sc%.1..|
00001130  d8 1a c8 99 20 22 4f 53  5f 42 79 74 65 22 2c 31  |.... "OS_Byte",1|
00001140  31 32 2c 53 63 25 2b 31  0d 09 e2 05 e1 0d 09 ec  |12,Sc%+1........|
00001150  05 3a 0d 09 f6 0b dd f2  44 53 77 61 70 0d 0a 00  |.:......DSwap...|
00001160  06 c8 96 0d 0a 0a 1a c8  99 20 22 4f 53 5f 42 79  |......... "OS_By|
00001170  74 65 22 2c 31 31 33 2c  53 63 25 2b 31 0d 0a 14  |te",113,Sc%+1...|
00001180  05 e1 0d 0a 1e 05 3a 0d  0a 28 0c dd a4 53 63 72  |......:..(...Scr|
00001190  65 65 6e 0d 0a 32 1d e7  53 63 25 3d 30 20 3d 53  |een..2..Sc%=0 =S|
000011a0  63 72 25 20 8b 3d 53 63  72 25 2b 38 31 39 32 30  |cr% .=Scr%+81920|
000011b0  0d 0a 3c 05 3a 0d 0a 46  0a dd a4 5a 6f 6f 6d 0d  |..<.:..F...Zoom.|
000011c0  0a 50 22 e7 4d 73 2a 53  69 25 2f 28 58 4d 61 78  |.P".Ms*Si%/(XMax|
000011d0  2d 58 4d 69 6e 29 3c 3d  37 35 20 3d b9 20 8b 3d  |-XMin)<=75 =. .=|
000011e0  a3 0d 0a 5a 05 3a 0d 0a  64 0f dd f2 53 65 6c 65  |...Z.:..d...Sele|
000011f0  63 74 4d 61 6e 0d 0a 6e  05 f5 0d 0a 78 25 e7 a4  |ctMan..n....x%..|
00001200  5a 6f 6f 6d 20 43 68 25  3d a4 43 68 6f 6f 73 65  |Zoom Ch%=.Choose|
00001210  33 20 8b 43 68 25 3d a4  43 68 6f 6f 73 65 32 0d  |3 .Ch%=.Choose2.|
00001220  0a 82 08 c8 97 20 87 0d  0a 8c 16 c8 97 20 c8 93  |..... ....... ..|
00001230  30 2c 30 2c 31 32 38 30  2c 31 30 32 34 0d 0a 96  |0,0,1280,1024...|
00001240  12 e7 43 68 25 3d 31 20  f2 44 6f 5a 6f 6f 6d 0d  |..Ch%=1 .DoZoom.|
00001250  0a a0 21 e7 43 68 25 3d  32 80 58 4d 61 78 2d 58  |..!.Ch%=2.XMax-X|
00001260  4d 69 6e 3c 3e 33 20 f2  52 65 73 65 74 4d 61 6e  |Min<>3 .ResetMan|
00001270  0d 0a aa 0a fd 43 68 25  3d 33 0d 0a b4 3b ec 28  |.....Ch%=3...;.(|
00001280  58 4f 66 25 2d 31 29 2a  34 2c 28 32 35 35 2d 59  |XOf%-1)*4,(255-Y|
00001290  4f 66 25 2d 53 69 25 29  2a 34 3a ec 28 58 4f 66  |Of%-Si%)*4:.(XOf|
000012a0  25 2b 53 69 25 29 2a 34  2c 28 32 35 36 2d 59 4f  |%+Si%)*4,(256-YO|
000012b0  66 25 29 2a 34 0d 0a be  22 c8 99 20 22 4f 53 5f  |f%)*4...".. "OS_|
000012c0  53 70 72 69 74 65 4f 70  22 2c 32 37 30 2c 54 32  |SpriteOp",270,T2|
000012d0  25 2c 22 78 22 2c 30 0d  0a c8 11 41 25 3d a4 53  |%,"x",0....A%=.S|
000012e0  63 72 65 65 6e 2b 4f 25  0d 0a d2 0c d6 4d 25 2b  |creen+O%.....M%+|
000012f0  26 34 35 43 0d 0a dc 05  e1 0d 0a e6 05 3a 0d 0a  |&45C.........:..|
00001300  f0 0d dd a4 43 68 6f 6f  73 65 33 0d 0a fa 17 c8  |....Choose3.....|
00001310  97 20 c8 93 34 32 30 2c  36 38 2c 34 35 32 2c 31  |. ..420,68,452,1|
00001320  34 38 0d 0b 04 08 c8 97  20 ee 0d 0b 0e 09 43 68  |48...... .....Ch|
00001330  25 3d 30 0d 0b 18 05 f5  0d 0b 22 05 f5 0d 0b 2c  |%=0......."....,|
00001340  0f c8 97 58 25 2c 59 25  2c 42 75 25 0d 0b 36 0e  |...X%,Y%,Bu%..6.|
00001350  fd 28 42 75 25 80 34 29  3d 34 0d 0b 40 17 e7 a4  |.(Bu%.4)=4..@...|
00001360  49 6e 28 34 36 34 2c 31  30 30 29 20 43 68 25 3d  |In(464,100) Ch%=|
00001370  31 0d 0b 4a 17 e7 a4 49  6e 28 36 30 34 2c 31 30  |1..J...In(604,10|
00001380  30 29 20 43 68 25 3d 32  0d 0b 54 17 e7 a4 49 6e  |0) Ch%=2..T...In|
00001390  28 37 34 34 2c 31 30 30  29 20 43 68 25 3d 33 0d  |(744,100) Ch%=3.|
000013a0  0b 5e 0b fd 43 68 25 3c  3e 30 0d 0b 68 08 3d 43  |.^..Ch%<>0..h.=C|
000013b0  68 25 0d 0b 72 05 3a 0d  0b 7c 0d dd a4 43 68 6f  |h%..r.:..|...Cho|
000013c0  6f 73 65 32 0d 0b 86 17  c8 97 20 c8 93 34 38 34  |ose2...... ..484|
000013d0  2c 36 38 2c 33 31 32 2c  31 34 38 0d 0b 90 08 c8  |,68,312,148.....|
000013e0  97 20 ee 0d 0b 9a 09 43  68 25 3d 30 0d 0b a4 05  |. .....Ch%=0....|
000013f0  f5 0d 0b ae 05 f5 0d 0b  b8 0f c8 97 58 25 2c 59  |............X%,Y|
00001400  25 2c 42 75 25 0d 0b c2  0e fd 28 42 75 25 80 34  |%,Bu%.....(Bu%.4|
00001410  29 3d 34 0d 0b cc 17 e7  a4 49 6e 28 35 32 38 2c  |)=4......In(528,|
00001420  31 30 30 29 20 43 68 25  3d 32 0d 0b d6 17 e7 a4  |100) Ch%=2......|
00001430  49 6e 28 36 36 38 2c 31  30 30 29 20 43 68 25 3d  |In(668,100) Ch%=|
00001440  33 0d 0b e0 0b fd 43 68  25 3c 3e 30 0d 0b ea 08  |3.....Ch%<>0....|
00001450  3d 43 68 25 0d 0b f4 05  3a 0d 0b fe 0f dd a4 49  |=Ch%....:......I|
00001460  6e 28 78 25 2c 79 25 29  0d 0c 08 09 49 6e 25 3d  |n(x%,y%)....In%=|
00001470  b9 0d 0c 12 19 e7 58 25  3c 78 25 84 58 25 3e 78  |......X%<x%.X%>x|
00001480  25 2b 38 38 20 49 6e 25  3d a3 0d 0c 1c 19 e7 59  |%+88 In%=......Y|
00001490  25 3c 79 25 84 59 25 3e  79 25 2b 38 38 20 49 6e  |%<y%.Y%>y%+88 In|
000014a0  25 3d a3 0d 0c 26 08 3d  49 6e 25 0d 0c 30 05 3a  |%=...&.=In%..0.:|
000014b0  0d 0c 3a 0a dd f2 46 69  6e 64 0d 0c 44 12 c8 97  |..:...Find..D...|
000014c0  20 4f 78 25 2c 4f 79 25  2c 42 75 25 0d 0c 4e 0d  | Ox%,Oy%,Bu%..N.|
000014d0  c8 91 38 33 36 2c 33 38  34 0d 0c 58 09 f7 8d 44  |..836,384..X...D|
000014e0  46 4f 0d 0c 62 0a f3 6e  25 2c 6d 25 0d 0c 6c 0c  |FO..b..n%,m%..l.|
000014f0  e3 49 25 3d 31 b8 6e 25  0d 0c 76 16 f3 77 25 28  |.I%=1.n%..v..w%(|
00001500  49 25 2c 31 29 2c 77 25  28 49 25 2c 32 29 0d 0c  |I%,1),w%(I%,2)..|
00001510  80 07 ed 49 25 0d 0c 8a  0c e3 49 25 3d 31 b8 6d  |...I%.....I%=1.m|
00001520  25 0d 0c 94 0b e3 4a 25  3d 31 b8 34 0d 0c 9e 0e  |%.....J%=1.4....|
00001530  f3 70 25 28 49 25 2c 4a  25 29 0d 0c a8 07 ed 4a  |.p%(I%,J%).....J|
00001540  25 0d 0c b2 07 ed 49 25  0d 0c bc 05 3a 0d 0c c6  |%.....I%....:...|
00001550  08 c8 97 20 87 0d 0c d0  1b c8 97 20 c8 93 20 2d  |... ....... .. -|
00001560  31 36 30 2c 31 36 30 2c  34 34 38 30 2c 39 36 30  |160,160,4480,960|
00001570  0d 0c da 17 c8 97 20 b8  20 41 6e 25 2a 31 32 2c  |...... . An%*12,|
00001580  45 6c 76 25 2a 31 36 0d  0c e4 05 f5 0d 0c ee 05  |Elv%*16.........|
00001590  3a 0d 0c f8 10 c8 97 20  58 25 2c 59 25 2c 42 75  |:...... X%,Y%,Bu|
000015a0  25 0d 0d 02 11 e7 28 42  75 25 80 34 29 3c 3e 30  |%.....(Bu%.4)<>0|
000015b0  20 8c 0d 0d 0c 1f e7 28  42 75 25 80 32 29 3d 32  | ......(Bu%.2)=2|
000015c0  20 44 25 2d 3d 32 3a e7  44 25 3c 32 20 44 25 3d  | D%-=2:.D%<2 D%=|
000015d0  32 0d 0d 16 21 e7 28 42  75 25 80 31 29 3d 31 20  |2...!.(Bu%.1)=1 |
000015e0  44 25 2b 3d 32 3a e7 44  25 3e 36 32 20 44 25 3d  |D%+=2:.D%>62 D%=|
000015f0  36 32 0d 0d 20 0e 45 6c  76 25 3d 59 25 81 31 36  |62.. .Elv%=Y%.16|
00001600  0d 0d 2a 14 e7 45 6c 76  25 3c 31 30 20 45 6c 76  |..*..Elv%<10 Elv|
00001610  25 3d 31 30 0d 0d 34 14  e7 45 6c 76 25 3e 36 30  |%=10..4..Elv%>60|
00001620  20 45 6c 76 25 3d 36 30  0d 0d 3e 0d 41 6e 25 3d  | Elv%=60..>.An%=|
00001630  58 25 81 31 32 0d 0d 48  1e e7 41 6e 25 3c 30 20  |X%.12..H..An%<0 |
00001640  c8 97 20 b8 20 34 33 32  30 2b 41 6e 25 2a 31 32  |.. . 4320+An%*12|
00001650  2c 59 25 0d 0d 52 22 e7  41 6e 25 3e 3d 33 36 30  |,Y%..R".An%>=360|
00001660  20 c8 97 20 b8 20 28 41  6e 25 2d 33 36 30 29 2a  | .. . (An%-360)*|
00001670  31 32 2c 59 25 0d 0d 5c  20 e7 41 6e 25 3c 30 20  |12,Y%..\ .An%<0 |
00001680  41 6e 25 2b 3d 33 36 30  20 8b 41 6e 25 3d 41 6e  |An%+=360 .An%=An|
00001690  25 83 33 36 30 0d 0d 66  05 3a 0d 0d 70 17 41 25  |%.360..f.:..p.A%|
000016a0  3d a4 53 63 72 65 65 6e  3a d6 4d 25 2b 26 35 36  |=.Screen:.M%+&56|
000016b0  43 0d 0d 7a 0b f2 72 6f  74 61 74 65 0d 0d 84 09  |C..z..rotate....|
000016c0  f2 64 72 61 77 0d 0d 8e  09 c8 91 30 2c 30 0d 0d  |.draw......0,0..|
000016d0  98 09 f2 49 6e 66 6f 0d  0d a2 0d c8 91 38 33 36  |...Info......836|
000016e0  2c 33 38 34 0d 0d ac 0a  f2 44 53 77 61 70 0d 0d  |,384.....DSwap..|
000016f0  b6 09 f2 53 77 61 70 0d  0d c0 05 cd 0d 0d ca 0e  |...Swap.........|
00001700  fd 28 42 75 25 80 34 29  3d 30 0d 0d d4 09 c8 91  |.(Bu%.4)=0......|
00001710  30 2c 30 0d 0d de 17 c8  97 20 c8 93 20 30 2c 30  |0,0...... .. 0,0|
00001720  2c 31 32 38 30 2c 31 30  32 34 0d 0d e8 10 c8 97  |,1280,1024......|
00001730  20 b8 20 4f 78 25 2c 4f  79 25 0d 0d f2 05 e1 0d  | . Ox%,Oy%......|
00001740  0d fc 05 3a 0d 0e 06 0c  dd f2 72 6f 74 61 74 65  |...:......rotate|
00001750  0d 0e 10 34 53 31 3d b5  28 b2 28 41 6e 25 2d 39  |...4S1=.(.(An%-9|
00001760  30 29 29 3a 43 31 3d 9b  28 b2 28 41 6e 25 2d 39  |0)):C1=.(.(An%-9|
00001770  30 29 29 3a 43 32 3d 9b  28 b2 28 39 30 2d 45 6c  |0)):C2=.(.(90-El|
00001780  76 25 29 29 0d 0e 1a 0c  e3 49 25 3d 31 b8 6e 25  |v%)).....I%=1.n%|
00001790  0d 0e 24 1b 78 25 3d 77  25 28 49 25 2c 31 29 3a  |..$.x%=w%(I%,1):|
000017a0  79 25 3d 77 25 28 49 25  2c 32 29 0d 0e 2e 19 73  |y%=w%(I%,2)....s|
000017b0  25 28 49 25 2c 31 29 3d  2d 78 25 2a 53 31 2b 79  |%(I%,1)=-x%*S1+y|
000017c0  25 2a 43 31 0d 0e 38 24  73 25 28 49 25 2c 32 29  |%*C1..8$s%(I%,2)|
000017d0  3d 2d 78 25 2a 43 31 2a  43 32 2d 79 25 2a 53 31  |=-x%*C1*C2-y%*S1|
000017e0  2a 43 32 2b 44 25 2a 34  0d 0e 42 07 ed 49 25 0d  |*C2+D%*4..B..I%.|
000017f0  0e 4c 05 e1 0d 0e 56 05  3a 0d 0e 60 0a dd f2 64  |.L....V.:..`...d|
00001800  72 61 77 0d 0e 6a 0b 4d  69 25 3d 32 35 36 0d 0e  |raw..j.Mi%=256..|
00001810  74 0e e6 30 2c 36 33 c8  9c 31 39 32 0d 0e 7e 14  |t..0,63..192..~.|
00001820  ec 73 25 28 34 2c 31 29  2c 73 25 28 34 2c 32 29  |.s%(4,1),s%(4,2)|
00001830  0d 0e 88 0b e3 49 25 3d  31 b8 34 0d 0e 92 16 df  |.....I%=1.4.....|
00001840  73 25 28 49 25 2c 31 29  2c 73 25 28 49 25 2c 32  |s%(I%,1),s%(I%,2|
00001850  29 0d 0e 9c 26 e7 73 25  28 49 25 2c 32 29 3c 4d  |)...&.s%(I%,2)<M|
00001860  69 25 20 4d 69 25 3d 73  25 28 49 25 2c 32 29 3a  |i% Mi%=s%(I%,2):|
00001870  4d 78 6e 25 3d 49 25 0d  0e a6 07 ed 49 25 0d 0e  |Mxn%=I%.....I%..|
00001880  b0 36 ec 73 25 28 4d 78  6e 25 2c 31 29 2c 73 25  |.6.s%(Mxn%,1),s%|
00001890  28 4d 78 6e 25 2c 32 29  3a df 73 25 28 4d 78 6e  |(Mxn%,2):.s%(Mxn|
000018a0  25 2c 31 29 2c 73 25 28  4d 78 6e 25 2c 32 29 2d  |%,1),s%(Mxn%,2)-|
000018b0  44 25 2a 34 0d 0e ba 18  49 25 3d 4d 78 6e 25 2b  |D%*4....I%=Mxn%+|
000018c0  31 3a e7 49 25 3e 34 20  49 25 3d 31 0d 0e c4 2e  |1:.I%>4 I%=1....|
000018d0  df 73 25 28 49 25 2c 31  29 2c 73 25 28 49 25 2c  |.s%(I%,1),s%(I%,|
000018e0  32 29 2d 44 25 2a 34 3a  df 73 25 28 49 25 2c 31  |2)-D%*4:.s%(I%,1|
000018f0  29 2c 73 25 28 49 25 2c  32 29 0d 0e ce 1f ec 73  |),s%(I%,2).....s|
00001900  25 28 4d 78 6e 25 2c 31  29 2c 73 25 28 4d 78 6e  |%(Mxn%,1),s%(Mxn|
00001910  25 2c 32 29 2d 44 25 2a  34 0d 0e d8 18 49 25 3d  |%,2)-D%*4....I%=|
00001920  4d 78 6e 25 2d 31 3a e7  49 25 3d 30 20 49 25 3d  |Mxn%-1:.I%=0 I%=|
00001930  34 0d 0e e2 2e df 73 25  28 49 25 2c 31 29 2c 73  |4.....s%(I%,1),s|
00001940  25 28 49 25 2c 32 29 2d  44 25 2a 34 3a df 73 25  |%(I%,2)-D%*4:.s%|
00001950  28 49 25 2c 31 29 2c 73  25 28 49 25 2c 32 29 0d  |(I%,1),s%(I%,2).|
00001960  0e ec 0d e6 30 2c 33 c8  9c 31 32 38 0d 0e f6 0c  |....0,3..128....|
00001970  e3 49 25 3d 31 b8 6d 25  0d 0f 00 22 4b 25 3d 70  |.I%=1.m%..."K%=p|
00001980  25 28 49 25 2c 32 29 3a  ec 73 25 28 4b 25 2c 31  |%(I%,2):.s%(K%,1|
00001990  29 2c 73 25 28 4b 25 2c  32 29 0d 0f 0a 22 4b 25  |),s%(K%,2)..."K%|
000019a0  3d 70 25 28 49 25 2c 31  29 3a ec 73 25 28 4b 25  |=p%(I%,1):.s%(K%|
000019b0  2c 31 29 2c 73 25 28 4b  25 2c 32 29 0d 0f 14 25  |,1),s%(K%,2)...%|
000019c0  4b 25 3d 70 25 28 49 25  2c 33 29 3a f0 38 35 2c  |K%=p%(I%,3):.85,|
000019d0  73 25 28 4b 25 2c 31 29  2c 73 25 28 4b 25 2c 32  |s%(K%,1),s%(K%,2|
000019e0  29 0d 0f 1e 25 4b 25 3d  70 25 28 49 25 2c 34 29  |)...%K%=p%(I%,4)|
000019f0  3a f0 38 35 2c 73 25 28  4b 25 2c 31 29 2c 73 25  |:.85,s%(K%,1),s%|
00001a00  28 4b 25 2c 32 29 0d 0f  28 07 ed 49 25 0d 0f 32  |(K%,2)..(..I%..2|
00001a10  05 e1 0d 0f 3c 05 3a 0d  0f 46 0a dc 20 31 31 2c  |....<.:..F.. 11,|
00001a20  32 0d 0f 50 29 dc 20 33  30 30 2c 2d 33 30 30 2c  |2..P). 300,-300,|
00001a30  2d 33 30 30 2c 2d 33 30  30 2c 2d 33 30 30 2c 33  |-300,-300,-300,3|
00001a40  30 30 2c 33 30 30 2c 33  30 30 0d 0f 5a 36 dc 20  |00,300,300..Z6. |
00001a50  30 2c 32 37 30 2c 37 35  2c 31 38 30 2c 2d 37 35  |0,270,75,180,-75|
00001a60  2c 31 38 30 2c 33 30 2c  37 35 2c 2d 33 30 2c 37  |,180,30,75,-30,7|
00001a70  35 2c 2d 33 30 2c 31 38  30 2c 33 30 2c 31 38 30  |5,-30,180,30,180|
00001a80  0d 0f 64 0d dc 20 35 2c  36 2c 37 2c 37 0d 0f 6e  |..d.. 5,6,7,7..n|
00001a90  0f dc 20 38 2c 39 2c 31  30 2c 31 31 0d 0f 78 05  |.. 8,9,10,11..x.|
00001aa0  3a 0d 0f 82 0d dd f2 53  70 72 69 74 65 73 0d 0f  |:......Sprites..|
00001ab0  8c 0e 21 54 31 25 3d 36  30 30 30 30 0d 0f 96 0c  |..!T1%=60000....|
00001ac0  54 31 25 21 38 3d 31 36  0d 0f a0 1c c8 99 20 22  |T1%!8=16...... "|
00001ad0  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 32 36 35  |OS_SpriteOp",265|
00001ae0  2c 54 31 25 0d 0f aa 0e  21 54 32 25 3d 32 34 30  |,T1%....!T2%=240|
00001af0  30 30 0d 0f b4 0c 54 32  25 21 38 3d 31 36 0d 0f  |00....T2%!8=16..|
00001b00  be 1c c8 99 20 22 4f 53  5f 53 70 72 69 74 65 4f  |.... "OS_SpriteO|
00001b10  70 22 2c 32 36 35 2c 54  32 25 0d 0f c8 05 e1 0d  |p",265,T2%......|
00001b20  0f d2 05 3a 0d 0f dc 0b  dd f2 54 69 74 6c 65 0d  |...:......Title.|
00001b30  0f e6 09 2a 46 58 31 35  0d 0f f0 0d de 20 42 6c  |...*FX15..... Bl|
00001b40  6b 25 20 31 36 0d 0f fa  27 21 42 6c 6b 25 3d 32  |k% 16...'!Blk%=2|
00001b50  3a 42 6c 6b 25 21 34 3d  32 3a 42 6c 6b 25 21 38  |:Blk%!4=2:Blk%!8|
00001b60  3d 31 3a 42 6c 6b 25 21  31 32 3d 31 0d 10 04 0d  |=1:Blk%!12=1....|
00001b70  d6 4d 25 2b 26 37 34 35  43 0d 10 0e 9b e3 49 25  |.M%+&745C.....I%|
00001b80  3d 30 b8 39 39 3a 42 25  3f 49 25 3d 32 35 35 3a  |=0.99:B%?I%=255:|
00001b90  3f 28 42 25 2b 49 25 2b  39 39 30 30 29 3d 32 35  |?(B%+I%+9900)=25|
00001ba0  35 3a 3f 28 42 25 2b 49  25 2a 31 30 30 29 3d 32  |5:?(B%+I%*100)=2|
00001bb0  35 35 3a 3f 28 42 25 2b  49 25 2a 31 30 30 2b 39  |55:?(B%+I%*100+9|
00001bc0  39 29 3d 32 35 35 3a 3f  28 42 25 2b 49 25 2b 31  |9)=255:?(B%+I%+1|
00001bd0  30 30 29 3d 32 35 35 3a  3f 28 42 25 2b 49 25 2b  |00)=255:?(B%+I%+|
00001be0  39 38 30 30 29 3d 32 35  35 3a 3f 28 42 25 2b 49  |9800)=255:?(B%+I|
00001bf0  25 2a 31 30 30 2b 31 29  3d 32 35 35 3a 3f 28 42  |%*100+1)=255:?(B|
00001c00  25 2b 49 25 2a 31 30 30  2b 39 38 29 3d 32 35 35  |%+I%*100+98)=255|
00001c10  3a ed 49 25 0d 10 18 09  f2 53 77 61 70 0d 10 22  |:.I%.....Swap.."|
00001c20  09 f2 54 65 78 74 0d 10  2c 17 41 25 3d a4 53 63  |..Text..,.A%=.Sc|
00001c30  72 65 65 6e 2b 38 36 2a  4c 25 2b 35 36 0d 10 36  |reen+86*L%+56..6|
00001c40  0d d6 4d 25 2b 26 37 35  36 43 0d 10 40 0a f2 44  |..M%+&756C..@..D|
00001c50  53 77 61 70 0d 10 4a 09  f2 53 77 61 70 0d 10 54  |Swap..J..Swap..T|
00001c60  09 f2 54 65 78 74 0d 10  5e 1d 4f 61 25 3d 31 36  |..Text..^.Oa%=16|
00001c70  3a 4f 62 25 3d 31 36 3a  63 25 3d 38 36 2a 4c 25  |:Ob%=16:c%=86*L%|
00001c80  2b 35 36 0d 10 68 05 f5  0d 10 72 2a 4d 25 21 26  |+56..h....r*M%!&|
00001c90  37 35 44 43 3d 4f 61 25  3a 4f 61 25 2b 3d 31 36  |75DC=Oa%:Oa%+=16|
00001ca0  3a e7 4f 61 25 3e 33 31  39 20 4f 61 25 2d 3d 33  |:.Oa%>319 Oa%-=3|
00001cb0  32 30 0d 10 7c 2a 4d 25  21 26 37 35 45 30 3d 4f  |20..|*M%!&75E0=O|
00001cc0  62 25 3a 4f 62 25 2b 3d  31 36 3a e7 4f 62 25 3e  |b%:Ob%+=16:.Ob%>|
00001cd0  33 39 39 20 4f 62 25 2d  3d 34 30 30 0d 10 86 11  |399 Ob%-=400....|
00001ce0  41 25 3d a4 53 63 72 65  65 6e 2b 63 25 0d 10 90  |A%=.Screen+c%...|
00001cf0  0d d6 4d 25 2b 26 37 35  36 43 0d 10 9a 0a f2 44  |..M%+&756C.....D|
00001d00  53 77 61 70 0d 10 a4 09  f2 53 77 61 70 0d 10 ae  |Swap.....Swap...|
00001d10  0e 41 25 3d a4 53 63 72  65 65 6e 0d 10 b8 0d d6  |.A%=.Screen.....|
00001d20  4d 25 2b 26 37 35 30 38  0d 10 c2 0f c8 97 58 25  |M%+&7508......X%|
00001d30  2c 59 25 2c 42 75 25 0d  10 cc 13 fd 28 42 75 25  |,Y%,Bu%.....(Bu%|
00001d40  2b a6 28 30 29 29 3c 3e  2d 31 0d 10 d6 05 e1 0d  |+.(0))<>-1......|
00001d50  10 e0 05 3a 0d 10 ea 0a  dd f2 54 65 78 74 0d 10  |...:......Text..|
00001d60  f4 14 5a 24 3d 22 4d 61  6e 64 65 6c 73 63 61 70  |..Z$="Mandelscap|
00001d70  65 22 0d 10 fe 09 e6 30  2c 31 35 0d 11 08 0d e3  |e".....0,15.....|
00001d80  4a 25 3d 31 b8 a9 5a 24  0d 11 12 39 c8 99 20 22  |J%=1..Z$...9.. "|
00001d90  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 35 31 2c  |OS_SpriteOp",51,|
00001da0  97 28 c1 5a 24 2c 4a 25  2c 31 29 29 2c 2c 31 39  |.(.Z$,J%,1)),,19|
00001db0  32 2b 4a 25 2a 36 34 2c  38 36 30 2c 2c 42 6c 6b  |2+J%*64,860,,Blk|
00001dc0  25 0d 11 1c 07 ed 4a 25  0d 11 26 07 fb 32 31 0d  |%.....J%..&..21.|
00001dd0  11 30 27 f1 8a 37 2c 32  39 29 3b 22 57 72 69 74  |.0'..7,29);"Writ|
00001de0  74 65 6e 20 62 79 20 4d  61 72 74 69 6e 20 48 65  |ten by Martin He|
00001df0  73 6b 65 74 68 22 0d 11  3a 05 e1 0d 11 44 05 3a  |sketh"..:....D.:|
00001e00  0d 11 4e 0d dd a4 53 63  72 41 64 64 72 0d 11 58  |..N...ScrAddr..X|
00001e10  0b 21 42 25 3d 31 34 39  0d 11 62 0b 42 25 21 34  |.!B%=149..b.B%!4|
00001e20  3d 2d 31 0d 11 6c 24 c8  99 20 22 4f 53 5f 52 65  |=-1..l$.. "OS_Re|
00001e30  61 64 56 64 75 56 61 72  69 61 62 6c 65 73 22 2c  |adVduVariables",|
00001e40  42 25 2c 42 25 2b 38 0d  11 76 09 3d 42 25 21 38  |B%,B%+8..v.=B%!8|
00001e50  0d 11 80 05 3a 0d 11 8a  0a dd f2 51 75 69 74 0d  |....:......Quit.|
00001e60  11 94 06 eb 30 0d 11 9e  28 f1 22 53 6f 6d 65 74  |....0...(."Somet|
00001e70  68 69 6e 67 20 77 6f 6e  64 65 72 66 75 6c 20 68  |hing wonderful h|
00001e80  61 73 20 68 61 70 70 65  6e 65 64 21 22 0d 11 a8  |as happened!"...|
00001e90  22 f1 27 22 41 6e 20 65  72 72 6f 72 20 68 61 73  |".'"An error has|
00001ea0  20 6f 63 63 75 72 72 65  64 3a 20 22 3b f6 24 0d  | occurred: ";.$.|
00001eb0  11 b2 1e f1 22 41 74 20  6c 6f 63 61 74 69 6f 6e  |...."At location|
00001ec0  3a 20 22 3b 7e 9e 2b 26  31 30 30 30 30 0d 11 bc  |: ";~.+&10000...|
00001ed0  08 f1 27 27 27 0d 11 c6  09 2a 46 58 32 30 0d 11  |..'''....*FX20..|
00001ee0  d0 0c 2a 46 58 32 32 39  2c 30 0d 11 da 06 c8 98  |..*FX229,0......|
00001ef0  0d 11 e4 05 e1 0d 11 ee  05 3a 0d ff              |.........:..|
00001efc