� !RunImage
� By Philip Mellor
$version$="1.00 (31st July 1997)"
(:
2� � �4:�:�" - ";�:�
<:
F8ș "Wimp_Initialise",200,&4B534154,"Sharks" � ,task%
P
Z	�init
dDUMMY=�(-�)
n:
x�get_screen_size
��setup_sharks
��draw_sharks
��new_icon:�open_sharks
�:
�� � � �error � �close:�
�:
��
�	�poll
�� quit%
�
�close
��
�:
�� �createiconbar

6!b%=-1:b%!4=0:b%!8=0:b%!12=68:b%!16=68:b%!20=&3002

4$(b%+24)="!sharks":ș "Wimp_CreateIcon",,b% � i%

�

":

,� �close

6'ș "Wimp_CloseDown",task%,&4B534154

@�

J:

T� �poll

^ș "Wimp_Poll",,b% � r%

hȎ r% �

r5� 0:�draw_sharks:�update_icon(shark%,shark_icon%)

| � 2:ș "Wimp_OpenWindow",,b%

�!� 3:ș "Wimp_CloseWindow",,b%

�� 6:�mouseclick

�� 9:�menuclick

�� 17,18,19:�recieve

��

��

�:

�� �recieve

�Ȏ b%!16 �

�� 0:quit%=�

�� &502:�helpme

�� &400C1:�alter_size

��
�
:
!� �update_icon(window%,icon%)
&b%!0=window%
0   b%!4=icon%
:
   b%!8=0
D   b%!12=0
N!   ș "Wimp_SetIconState",,b%
X�
b:
l+��get_origin(handle%,� xorig%,� yorig%)
v� c%
�
c%=b%+800
�!c%=handle%
� ș "Wimp_GetWindowState",,c%
�xorig%=c%!4-c%!20
�yorig%=c%!16-c%!24
��
�:
�� �mouseclick
�window%=b%!12
�icon%=b%!16
�button%=b%!8
�Ȏ window% �
�

 � shark%
  Ȏ button% �
+   � 2:�showmenu(mainmenu%,!b%-64,b%!4)
    �
*
4�
>�
H:
R� �s(wh%,iconnumber%,text$)
\!temp%=wh%
ftemp%!4=iconnumber%
p!ș "Wimp_GetIconState",,temp%
z $temp%!28=�text$,temp%!36-1)
�
temp%!8=0
�temp%!12=0
�!ș "Wimp_SetIconState",,temp%
��
�:
�� �init
�-� b% 5000,ws% 5000,menspc% 1000, temp% 32
�wsend%=ws%+5000
�quit%=�
��create_spr
�$�load_templates:�create_sharkwin
��main_menu
��attach(mainmenu%,0,info%)
&�set_icon_string(info%,6,version$)
�
:
$� �load_templates
.3ș "Wimp_OpenTemplate",,"<Shark$Dir>.Templates"
8=ș "Wimp_LoadTemplate",,b%,ws%,wsend%,-1,"info",0 � ,,ws%
B&ș "Wimp_CreateWindow",,b% � info%
Lș "Wimp_CloseTemplate"
V�
`:
j� �attach(menu%,item%,sub%)
t!(menu%+28+item%*24+4)=sub%
~�
�:
�� �main_menu
�� +1
�� Sharks,Info,Quit,*
�mainmenu%=�make_menu
��
�:
�� �make_menu
�start%=menspc%
�� title$
�$(start%)=title$
�start%?12=7
start%?13=2

start%?14=7
start%?15=0
start%!20=44
(start%!24=0
2� start%!16=160
<width%=�(title$)-3
Fmenspc%+=28
P�
Z� item$
d� item$<>"*" �
n!menspc%=0
xwriteable%=�
�ul%=�item$,"_")
�� ul% �
�tail$=�item$,�(item$)-ul%)
�.� �tail$,"T") !menspc%=!menspc% � 1:� tick
�5� �tail$,"D") !menspc%=!menspc% � 2:� dotted line
�X� �tail$,"W") !menspc%=!menspc% � 4:writeable%=�:� buffer%:� buflen%:� writable icon
�:� �tail$,"M") !menspc%=!menspc% � 8:� generate message
�item$=�item$,ul%-1)
��
�#� � item$>width% width%=� item$
�menspc%!4=-1
�� writeable% �
�Zmenspc%!8=&0700F121:menspc%!12=buffer%:menspc%!16=-1:menspc%!20=buflen%:$buffer%=item$
�
� � item$<12 �
+menspc%!8=&07000021:$(menspc%+12)=item$
"�
,Imenspc%!8=&07000121:menspc%!12=ws%:menspc%!16=-1:menspc%!20=� item$+1
6$ws%=item$:ws%+=� item$+1
@�
J�
Tmenspc%+=24
^�
h� item$="*"
rstart%!16=width%*16+32
|%!(menspc%-24)=!(menspc%-24) � &80
�mptr%=menspc%
�=start%
�:
�� �showmenu(menu%,x%,y%)
�$topmenu%=menu%:topx%=x%:topy%=y%
�%ș "Wimp_CreateMenu",,menu%,x%,y%
��
�:
���ungrey(menu%,item%)
�?menu%!(28+item%*24+8)=(menu%!(28+item%*24+8)) � (� (1<<22))
��
�:
���grey(menu%,item%)
;menu%!(28+item%*24+8)=(menu%!(28+item%*24+8)) � (1<<22)
�
:
&� �menuclick
0� c%
:
c%=b%+900
D ș "Wimp_GetPointerInfo",,c%
Nadj%=(c%!8 � 1)
X(ș "Wimp_DecodeMenu",,topmenu%,b%,c%
bȎ $c% �
l � "Quit":quit%=�
v�
�*� adj% �showmenu(topmenu%,topx%,topy%)
��
�:
� � �icon_state(window%,icon%)
�� c%
�
c%=b%+900
�!c%=window%
�c%!4=icon%
�ș "Wimp_GetIconState",,c%
�=((c%!24) � (1<<21))<>0
�:
�!� �string_addr(window%,icon%)
�� c%
� c% 64
!c%=window%
c%!4=icon%
 ș "Wimp_GetIconState",,c%
*
=c%!28
4:
>!� �icon_string(window%,icon%)
H&�term(�string_addr(window%,icon%))
R!=$�string_addr(window%,icon%)
\�
f:
p(� �set_icon_string(window%,icon%,a$)
z#$�string_addr(window%,icon%)=a$
��
�:
�� �term(a%)
�� n%
�ȕ a%?n%>31
�	n%+=1
��
�a%?n%=13
��
�:
���open_window(win%)
�!b%=win%
� ș "Wimp_GetWindowState",,b%
	b%!28=-1
	ș "Wimp_OpenWindow",,b%
	�
	$:
	.��close_window(win%)
	8!b%=win%
	B:ș "Wimp_GetWindowState",,b%:ș "Wimp_CloseWindow",,b%
	L�
	V:
	`� �error
	j	!b%=�
	tȎ !b% �
	~"� 1<<30:err_str$="":box%=%1001
	�(:err_str$=" at line "+Þ:box%=%1001
	��
	�$(b%+4)=�$+err_str$+�0
	�7ș "Wimp_ReportError",b%,box%,"Sharks" � ,response%
	�=(response%=2)
	�:
	���get_screen_size
	�+ș"OS_ReadModeVariable",-1,4 � ,,Xfact%
	�+ș"OS_ReadModeVariable",-1,5 � ,,Yfact%
	�+ș"OS_ReadModeVariable",-1,11 � ,,XLim%
	�+ș"OS_ReadModeVariable",-1,12 � ,,YLim%
	�X2=XLim%<<Xfact%
Y2=YLim%<<Yfact%

�
:
��helpme
(window%=b%!32
2icon%=b%!36
<+help$="This is the Sharks application."
F
PȎ window% �
Z
d � info%
nB  help$="This window shows information about the application."
x  Ȏ icon% �
�5   � 0,1:help$="This is the name of the program."
�8   � 2,3:help$="This is the purpose of the program."
�7   � 4,5:help$="This is the author of the program."
�?   � 6,7:help$="This is the version number of the program."
�  �
�
�� shark%
�$  help$="This is icon "+�(icon%)
�
��
�:
�b%!00 = 256
�b%!12 = b%!8
b%!16 = &0503
$(b%+20)= help$
$ș "Wimp_SendMessage",17,b%,b%!4
"�
,
6��create_sharkwin
@�get_screen_size
Jb%!0=0:b%!4=136
Tb%!8=2560:b%!16=136+128
^b%!16=0:b%!20=0
hb%!24=-2
r)�    10987654321098765432109876543210
|+b%!28=%10000000000000000000100101010000
�b%!32=&FF:b%?33=4
�b%?34=4:b%?35=4
�b%?36=4:b%?37=4
�b%?38=4:b%?39=0
�b%!40=0:b%!44=-128
�b%!48=9999:b%!52=0
�)�    10987654321098765432109876543210
�+b%!56=%10000000000000000000000000000000
�b%!60=0:b%!64=spr%
�b%!68=0
�$(b%+72)="win"
�b%!84=0
�'ș "Wimp_CreateWindow",,b% � shark%
�
:
��create_spr
&spr_size%=62*1024
0� spr% spr_size%
:1!spr%=spr_size%:spr%!4=0:spr%!8=16:spr%!12=16
D8ș "OS_SpriteOp",256+15,spr%,"sharkspr",0,2560,48,20
N3ș "OS_SpriteOp",&118,spr%,"sharkspr" � ,,back%
X�
b:
l��new_icon
v!b%=shark%
�b%!4=0:b%!8=-96
�b%!12=X2:b%!16=0
�)�    10987654321098765432109876543210
�+b%!20=%01000100000000000000000000000010
�$(b%+24)="sharkspr"
�*ș "Wimp_CreateIcon",,b% � shark_icon%
��
�
���open_sharks
�!b%=shark%
�b%!4=0:b%!8=136
�b%!12=X2:b%!16=136+96
�b%!20=0:b%!24=0

b%!28=-2

ș "Wimp_OpenWindow",,b%

�

 :

*��draw_sharks

4*ș &2E,&23C,spr%,back%,0 � r0,r1,r2,r3

>'� � &2E,r0,r1,r2,r3:�4:�:�" - ";�:�

H� 4:ȓ Ȑ 0,0,2560,128

R� I=1 � SH

\#X3=X(I)-(XS(I)/3):Y3=Y(I)+YS(I)

f	� 4+I

p

zR1=(XS(I)*.5):R2=YS(I)

�S1=(XS(I)*1.3)/3

�
S2=Y(I)/3

�OX=X(I):OY=Y(I)

�� OX,OY

�� A=-45 � 105 � 30

�� X(I)+(XS(I)/3),Y(I)

�
AX=R1*��A

�
AY=R2*��A

�� 85,X(I)+AX*Z(I),Y(I)+AY

�R1+=S1:R2-=S2

��

�

�XS(I)+=XD(I)
%� XS(I)<-52 XS(I)=-52:X(I)+=XD(I)
#� XS(I)>52 XS(I)=52:X(I)+=XD(I)

$5� �(100)=1 XD(I)=(�(1)*8)+4:� �(2)=1 XD(I)=-XD(I)
.� X(I)<0 XD(I)=(�(1)*8)+4
8� X(I)>X2 XD(I)=(�(1)*-8)-4
B�
Lș &2E,r0,r1,r2,r3
V�
`:
j��setup_sharks
tSH=3
~,� X(SH),Y(SH),XS(SH),YS(SH),XD(SH),Z(SH)
�� I=1 � SH
�X(I)=�(X2)
�
Y(I)=0
�YS(I)=40+(I*16)
�XS(I)=�random(48)
�Z(I)=YS(I)/96
�*XD(I)=(�(1)*8)+4:� �(2)=1 XD(I)=-XD(I)
��
��
�:
�ݤrandom(num)
�� �(2)=1 =�(num) � =-�(num)
:

��alter_size
�get_screen_size
�open_sharks
(�
�

00000000  0d 00 0a 0f f4 20 21 52  75 6e 49 6d 61 67 65 0d  |..... !RunImage.|
00000010  00 14 16 f4 20 42 79 20  50 68 69 6c 69 70 20 4d  |.... By Philip M|
00000020  65 6c 6c 6f 72 0d 00 1e  24 76 65 72 73 69 6f 6e  |ellor...$version|
00000030  24 3d 22 31 2e 30 30 20  28 33 31 73 74 20 4a 75  |$="1.00 (31st Ju|
00000040  6c 79 20 31 39 39 37 29  22 0d 00 28 05 3a 0d 00  |ly 1997)"..(.:..|
00000050  32 17 ee 20 85 20 ef 34  3a f6 3a f1 22 20 2d 20  |2.. . .4:.:." - |
00000060  22 3b 9e 3a e0 0d 00 3c  05 3a 0d 00 46 38 c8 99  |";.:...<.:..F8..|
00000070  20 22 57 69 6d 70 5f 49  6e 69 74 69 61 6c 69 73  | "Wimp_Initialis|
00000080  65 22 2c 32 30 30 2c 26  34 42 35 33 34 31 35 34  |e",200,&4B534154|
00000090  2c 22 53 68 61 72 6b 73  22 20 b8 20 2c 74 61 73  |,"Sharks" . ,tas|
000000a0  6b 25 0d 00 50 04 0d 00  5a 09 f2 69 6e 69 74 0d  |k%..P...Z..init.|
000000b0  00 64 0f 44 55 4d 4d 59  3d b3 28 2d 91 29 0d 00  |.d.DUMMY=.(-.)..|
000000c0  6e 05 3a 0d 00 78 14 f2  67 65 74 5f 73 63 72 65  |n.:..x..get_scre|
000000d0  65 6e 5f 73 69 7a 65 0d  00 82 11 f2 73 65 74 75  |en_size.....setu|
000000e0  70 5f 73 68 61 72 6b 73  0d 00 8c 10 f2 64 72 61  |p_sharks.....dra|
000000f0  77 5f 73 68 61 72 6b 73  0d 00 96 1a f2 6e 65 77  |w_sharks.....new|
00000100  5f 69 63 6f 6e 3a f2 6f  70 65 6e 5f 73 68 61 72  |_icon:.open_shar|
00000110  6b 73 0d 00 a0 05 3a 0d  00 aa 1b ee 20 85 20 e7  |ks....:..... . .|
00000120  20 a4 65 72 72 6f 72 20  8c 20 f2 63 6c 6f 73 65  | .error . .close|
00000130  3a e0 0d 00 b4 05 3a 0d  00 be 05 f5 0d 00 c8 09  |:.....:.........|
00000140  f2 70 6f 6c 6c 0d 00 d2  0b fd 20 71 75 69 74 25  |.poll..... quit%|
00000150  0d 00 dc 0a f2 63 6c 6f  73 65 0d 00 e6 05 e0 0d  |.....close......|
00000160  00 f0 05 3a 0d 00 fa 14  dd 20 f2 63 72 65 61 74  |...:..... .creat|
00000170  65 69 63 6f 6e 62 61 72  0d 01 04 36 21 62 25 3d  |eiconbar...6!b%=|
00000180  2d 31 3a 62 25 21 34 3d  30 3a 62 25 21 38 3d 30  |-1:b%!4=0:b%!8=0|
00000190  3a 62 25 21 31 32 3d 36  38 3a 62 25 21 31 36 3d  |:b%!12=68:b%!16=|
000001a0  36 38 3a 62 25 21 32 30  3d 26 33 30 30 32 0d 01  |68:b%!20=&3002..|
000001b0  0e 34 24 28 62 25 2b 32  34 29 3d 22 21 73 68 61  |.4$(b%+24)="!sha|
000001c0  72 6b 73 22 3a c8 99 20  22 57 69 6d 70 5f 43 72  |rks":.. "Wimp_Cr|
000001d0  65 61 74 65 49 63 6f 6e  22 2c 2c 62 25 20 b8 20  |eateIcon",,b% . |
000001e0  69 25 0d 01 18 05 e1 0d  01 22 05 3a 0d 01 2c 0c  |i%.......".:..,.|
000001f0  dd 20 f2 63 6c 6f 73 65  0d 01 36 27 c8 99 20 22  |. .close..6'.. "|
00000200  57 69 6d 70 5f 43 6c 6f  73 65 44 6f 77 6e 22 2c  |Wimp_CloseDown",|
00000210  74 61 73 6b 25 2c 26 34  42 35 33 34 31 35 34 0d  |task%,&4B534154.|
00000220  01 40 05 e1 0d 01 4a 05  3a 0d 01 54 0b dd 20 f2  |.@....J.:..T.. .|
00000230  70 6f 6c 6c 0d 01 5e 1b  c8 99 20 22 57 69 6d 70  |poll..^... "Wimp|
00000240  5f 50 6f 6c 6c 22 2c 2c  62 25 20 b8 20 72 25 0d  |_Poll",,b% . r%.|
00000250  01 68 0b c8 8e 20 72 25  20 ca 0d 01 72 35 c9 20  |.h... r% ...r5. |
00000260  30 3a f2 64 72 61 77 5f  73 68 61 72 6b 73 3a f2  |0:.draw_sharks:.|
00000270  75 70 64 61 74 65 5f 69  63 6f 6e 28 73 68 61 72  |update_icon(shar|
00000280  6b 25 2c 73 68 61 72 6b  5f 69 63 6f 6e 25 29 0d  |k%,shark_icon%).|
00000290  01 7c 20 c9 20 32 3a c8  99 20 22 57 69 6d 70 5f  |.| . 2:.. "Wimp_|
000002a0  4f 70 65 6e 57 69 6e 64  6f 77 22 2c 2c 62 25 0d  |OpenWindow",,b%.|
000002b0  01 86 21 c9 20 33 3a c8  99 20 22 57 69 6d 70 5f  |..!. 3:.. "Wimp_|
000002c0  43 6c 6f 73 65 57 69 6e  64 6f 77 22 2c 2c 62 25  |CloseWindow",,b%|
000002d0  0d 01 90 13 c9 20 36 3a  f2 6d 6f 75 73 65 63 6c  |..... 6:.mousecl|
000002e0  69 63 6b 0d 01 9a 12 c9  20 39 3a f2 6d 65 6e 75  |ick..... 9:.menu|
000002f0  63 6c 69 63 6b 0d 01 a4  17 c9 20 31 37 2c 31 38  |click..... 17,18|
00000300  2c 31 39 3a f2 72 65 63  69 65 76 65 0d 01 ae 05  |,19:.recieve....|
00000310  cb 0d 01 b8 05 e1 0d 01  c2 05 3a 0d 01 cc 0e dd  |..........:.....|
00000320  20 f2 72 65 63 69 65 76  65 0d 01 d6 0e c8 8e 20  | .recieve...... |
00000330  62 25 21 31 36 20 ca 0d  01 e0 0f c9 20 30 3a 71  |b%!16 ...... 0:q|
00000340  75 69 74 25 3d b9 0d 01  ea 12 c9 20 26 35 30 32  |uit%=...... &502|
00000350  3a f2 68 65 6c 70 6d 65  0d 01 f4 18 c9 20 26 34  |:.helpme..... &4|
00000360  30 30 43 31 3a f2 61 6c  74 65 72 5f 73 69 7a 65  |00C1:.alter_size|
00000370  0d 01 fe 05 cb 0d 02 08  05 e1 0d 02 12 05 3a 0d  |..............:.|
00000380  02 1c 21 dd 20 f2 75 70  64 61 74 65 5f 69 63 6f  |..!. .update_ico|
00000390  6e 28 77 69 6e 64 6f 77  25 2c 69 63 6f 6e 25 29  |n(window%,icon%)|
000003a0  0d 02 26 10 62 25 21 30  3d 77 69 6e 64 6f 77 25  |..&.b%!0=window%|
000003b0  0d 02 30 11 20 20 20 62  25 21 34 3d 69 63 6f 6e  |..0.   b%!4=icon|
000003c0  25 0d 02 3a 0d 20 20 20  62 25 21 38 3d 30 0d 02  |%..:.   b%!8=0..|
000003d0  44 0e 20 20 20 62 25 21  31 32 3d 30 0d 02 4e 21  |D.   b%!12=0..N!|
000003e0  20 20 20 c8 99 20 22 57  69 6d 70 5f 53 65 74 49  |   .. "Wimp_SetI|
000003f0  63 6f 6e 53 74 61 74 65  22 2c 2c 62 25 0d 02 58  |conState",,b%..X|
00000400  05 e1 0d 02 62 05 3a 0d  02 6c 2b dd f2 67 65 74  |....b.:..l+..get|
00000410  5f 6f 72 69 67 69 6e 28  68 61 6e 64 6c 65 25 2c  |_origin(handle%,|
00000420  f8 20 78 6f 72 69 67 25  2c f8 20 79 6f 72 69 67  |. xorig%,. yorig|
00000430  25 29 0d 02 76 08 ea 20  63 25 0d 02 80 0d 63 25  |%)..v.. c%....c%|
00000440  3d 62 25 2b 38 30 30 0d  02 8a 0f 21 63 25 3d 68  |=b%+800....!c%=h|
00000450  61 6e 64 6c 65 25 0d 02  94 20 c8 99 20 22 57 69  |andle%... .. "Wi|
00000460  6d 70 5f 47 65 74 57 69  6e 64 6f 77 53 74 61 74  |mp_GetWindowStat|
00000470  65 22 2c 2c 63 25 0d 02  9e 15 78 6f 72 69 67 25  |e",,c%....xorig%|
00000480  3d 63 25 21 34 2d 63 25  21 32 30 0d 02 a8 16 79  |=c%!4-c%!20....y|
00000490  6f 72 69 67 25 3d 63 25  21 31 36 2d 63 25 21 32  |orig%=c%!16-c%!2|
000004a0  34 0d 02 b2 05 e1 0d 02  bc 05 3a 0d 02 c6 11 dd  |4.........:.....|
000004b0  20 f2 6d 6f 75 73 65 63  6c 69 63 6b 0d 02 d0 11  | .mouseclick....|
000004c0  77 69 6e 64 6f 77 25 3d  62 25 21 31 32 0d 02 da  |window%=b%!12...|
000004d0  0f 69 63 6f 6e 25 3d 62  25 21 31 36 0d 02 e4 10  |.icon%=b%!16....|
000004e0  62 75 74 74 6f 6e 25 3d  62 25 21 38 0d 02 ee 10  |button%=b%!8....|
000004f0  c8 8e 20 77 69 6e 64 6f  77 25 20 ca 0d 02 f8 04  |.. window% .....|
00000500  0d 03 02 0d 20 c9 20 73  68 61 72 6b 25 0d 03 0c  |.... . shark%...|
00000510  12 20 20 c8 8e 20 62 75  74 74 6f 6e 25 20 ca 0d  |.  .. button% ..|
00000520  03 16 2b 20 20 20 c9 20  32 3a f2 73 68 6f 77 6d  |..+   . 2:.showm|
00000530  65 6e 75 28 6d 61 69 6e  6d 65 6e 75 25 2c 21 62  |enu(mainmenu%,!b|
00000540  25 2d 36 34 2c 62 25 21  34 29 0d 03 20 08 20 20  |%-64,b%!4).. .  |
00000550  20 cb 0d 03 2a 04 0d 03  34 05 cb 0d 03 3e 05 e1  | ...*...4....>..|
00000560  0d 03 48 05 3a 0d 03 52  1f dd 20 f2 73 28 77 68  |..H.:..R.. .s(wh|
00000570  25 2c 69 63 6f 6e 6e 75  6d 62 65 72 25 2c 74 65  |%,iconnumber%,te|
00000580  78 74 24 29 0d 03 5c 0e  21 74 65 6d 70 25 3d 77  |xt$)..\.!temp%=w|
00000590  68 25 0d 03 66 17 74 65  6d 70 25 21 34 3d 69 63  |h%..f.temp%!4=ic|
000005a0  6f 6e 6e 75 6d 62 65 72  25 0d 03 70 21 c8 99 20  |onnumber%..p!.. |
000005b0  22 57 69 6d 70 5f 47 65  74 49 63 6f 6e 53 74 61  |"Wimp_GetIconSta|
000005c0  74 65 22 2c 2c 74 65 6d  70 25 0d 03 7a 20 24 74  |te",,temp%..z $t|
000005d0  65 6d 70 25 21 32 38 3d  c0 74 65 78 74 24 2c 74  |emp%!28=.text$,t|
000005e0  65 6d 70 25 21 33 36 2d  31 29 0d 03 84 0d 74 65  |emp%!36-1)....te|
000005f0  6d 70 25 21 38 3d 30 0d  03 8e 0e 74 65 6d 70 25  |mp%!8=0....temp%|
00000600  21 31 32 3d 30 0d 03 98  21 c8 99 20 22 57 69 6d  |!12=0...!.. "Wim|
00000610  70 5f 53 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_SetIconState",|
00000620  2c 74 65 6d 70 25 0d 03  a2 05 e1 0d 03 ac 05 3a  |,temp%.........:|
00000630  0d 03 b6 0b dd 20 f2 69  6e 69 74 0d 03 c0 2d de  |..... .init...-.|
00000640  20 62 25 20 35 30 30 30  2c 77 73 25 20 35 30 30  | b% 5000,ws% 500|
00000650  30 2c 6d 65 6e 73 70 63  25 20 31 30 30 30 2c 20  |0,menspc% 1000, |
00000660  74 65 6d 70 25 20 33 32  0d 03 ca 13 77 73 65 6e  |temp% 32....wsen|
00000670  64 25 3d 77 73 25 2b 35  30 30 30 0d 03 d4 0b 71  |d%=ws%+5000....q|
00000680  75 69 74 25 3d a3 0d 03  de 0f f2 63 72 65 61 74  |uit%=......creat|
00000690  65 5f 73 70 72 0d 03 e8  24 f2 6c 6f 61 64 5f 74  |e_spr...$.load_t|
000006a0  65 6d 70 6c 61 74 65 73  3a f2 63 72 65 61 74 65  |emplates:.create|
000006b0  5f 73 68 61 72 6b 77 69  6e 0d 03 f2 0e f2 6d 61  |_sharkwin.....ma|
000006c0  69 6e 5f 6d 65 6e 75 0d  03 fc 1e f2 61 74 74 61  |in_menu.....atta|
000006d0  63 68 28 6d 61 69 6e 6d  65 6e 75 25 2c 30 2c 69  |ch(mainmenu%,0,i|
000006e0  6e 66 6f 25 29 0d 04 06  26 f2 73 65 74 5f 69 63  |nfo%)...&.set_ic|
000006f0  6f 6e 5f 73 74 72 69 6e  67 28 69 6e 66 6f 25 2c  |on_string(info%,|
00000700  36 2c 76 65 72 73 69 6f  6e 24 29 0d 04 10 05 e1  |6,version$).....|
00000710  0d 04 1a 05 3a 0d 04 24  15 dd 20 f2 6c 6f 61 64  |....:..$.. .load|
00000720  5f 74 65 6d 70 6c 61 74  65 73 0d 04 2e 33 c8 99  |_templates...3..|
00000730  20 22 57 69 6d 70 5f 4f  70 65 6e 54 65 6d 70 6c  | "Wimp_OpenTempl|
00000740  61 74 65 22 2c 2c 22 3c  53 68 61 72 6b 24 44 69  |ate",,"<Shark$Di|
00000750  72 3e 2e 54 65 6d 70 6c  61 74 65 73 22 0d 04 38  |r>.Templates"..8|
00000760  3d c8 99 20 22 57 69 6d  70 5f 4c 6f 61 64 54 65  |=.. "Wimp_LoadTe|
00000770  6d 70 6c 61 74 65 22 2c  2c 62 25 2c 77 73 25 2c  |mplate",,b%,ws%,|
00000780  77 73 65 6e 64 25 2c 2d  31 2c 22 69 6e 66 6f 22  |wsend%,-1,"info"|
00000790  2c 30 20 b8 20 2c 2c 77  73 25 0d 04 42 26 c8 99  |,0 . ,,ws%..B&..|
000007a0  20 22 57 69 6d 70 5f 43  72 65 61 74 65 57 69 6e  | "Wimp_CreateWin|
000007b0  64 6f 77 22 2c 2c 62 25  20 b8 20 69 6e 66 6f 25  |dow",,b% . info%|
000007c0  0d 04 4c 1b c8 99 20 22  57 69 6d 70 5f 43 6c 6f  |..L... "Wimp_Clo|
000007d0  73 65 54 65 6d 70 6c 61  74 65 22 0d 04 56 05 e1  |seTemplate"..V..|
000007e0  0d 04 60 05 3a 0d 04 6a  1f dd 20 f2 61 74 74 61  |..`.:..j.. .atta|
000007f0  63 68 28 6d 65 6e 75 25  2c 69 74 65 6d 25 2c 73  |ch(menu%,item%,s|
00000800  75 62 25 29 0d 04 74 1f  21 28 6d 65 6e 75 25 2b  |ub%)..t.!(menu%+|
00000810  32 38 2b 69 74 65 6d 25  2a 32 34 2b 34 29 3d 73  |28+item%*24+4)=s|
00000820  75 62 25 0d 04 7e 05 e1  0d 04 88 05 3a 0d 04 92  |ub%..~......:...|
00000830  10 dd 20 f2 6d 61 69 6e  5f 6d 65 6e 75 0d 04 9c  |.. .main_menu...|
00000840  08 f7 20 2b 31 0d 04 a6  18 dc 20 53 68 61 72 6b  |.. +1..... Shark|
00000850  73 2c 49 6e 66 6f 2c 51  75 69 74 2c 2a 0d 04 b0  |s,Info,Quit,*...|
00000860  18 6d 61 69 6e 6d 65 6e  75 25 3d a4 6d 61 6b 65  |.mainmenu%=.make|
00000870  5f 6d 65 6e 75 0d 04 ba  05 e1 0d 04 c4 05 3a 0d  |_menu.........:.|
00000880  04 ce 10 dd 20 a4 6d 61  6b 65 5f 6d 65 6e 75 0d  |.... .make_menu.|
00000890  04 d8 12 73 74 61 72 74  25 3d 6d 65 6e 73 70 63  |...start%=menspc|
000008a0  25 0d 04 e2 0c f3 20 74  69 74 6c 65 24 0d 04 ec  |%..... title$...|
000008b0  14 24 28 73 74 61 72 74  25 29 3d 74 69 74 6c 65  |.$(start%)=title|
000008c0  24 0d 04 f6 0f 73 74 61  72 74 25 3f 31 32 3d 37  |$....start%?12=7|
000008d0  0d 05 00 0f 73 74 61 72  74 25 3f 31 33 3d 32 0d  |....start%?13=2.|
000008e0  05 0a 0f 73 74 61 72 74  25 3f 31 34 3d 37 0d 05  |...start%?14=7..|
000008f0  14 0f 73 74 61 72 74 25  3f 31 35 3d 30 0d 05 1e  |..start%?15=0...|
00000900  10 73 74 61 72 74 25 21  32 30 3d 34 34 0d 05 28  |.start%!20=44..(|
00000910  0f 73 74 61 72 74 25 21  32 34 3d 30 0d 05 32 13  |.start%!24=0..2.|
00000920  f4 20 73 74 61 72 74 25  21 31 36 3d 31 36 30 0d  |. start%!16=160.|
00000930  05 3c 16 77 69 64 74 68  25 3d a9 28 74 69 74 6c  |.<.width%=.(titl|
00000940  65 24 29 2d 33 0d 05 46  0f 6d 65 6e 73 70 63 25  |e$)-3..F.menspc%|
00000950  2b 3d 32 38 0d 05 50 05  f5 0d 05 5a 0b f3 20 69  |+=28..P....Z.. i|
00000960  74 65 6d 24 0d 05 64 12  e7 20 69 74 65 6d 24 3c  |tem$..d.. item$<|
00000970  3e 22 2a 22 20 8c 0d 05  6e 0e 21 6d 65 6e 73 70  |>"*" ...n.!mensp|
00000980  63 25 3d 30 0d 05 78 10  77 72 69 74 65 61 62 6c  |c%=0..x.writeabl|
00000990  65 25 3d a3 0d 05 82 13  75 6c 25 3d a7 69 74 65  |e%=.....ul%=.ite|
000009a0  6d 24 2c 22 5f 22 29 0d  05 8c 0b e7 20 75 6c 25  |m$,"_")..... ul%|
000009b0  20 8c 0d 05 96 1e 74 61  69 6c 24 3d c2 69 74 65  | .....tail$=.ite|
000009c0  6d 24 2c a9 28 69 74 65  6d 24 29 2d 75 6c 25 29  |m$,.(item$)-ul%)|
000009d0  0d 05 a0 2e e7 20 a7 74  61 69 6c 24 2c 22 54 22  |..... .tail$,"T"|
000009e0  29 20 21 6d 65 6e 73 70  63 25 3d 21 6d 65 6e 73  |) !menspc%=!mens|
000009f0  70 63 25 20 84 20 31 3a  f4 20 74 69 63 6b 0d 05  |pc% . 1:. tick..|
00000a00  aa 35 e7 20 a7 74 61 69  6c 24 2c 22 44 22 29 20  |.5. .tail$,"D") |
00000a10  21 6d 65 6e 73 70 63 25  3d 21 6d 65 6e 73 70 63  |!menspc%=!menspc|
00000a20  25 20 84 20 32 3a f4 20  64 6f 74 74 65 64 20 6c  |% . 2:. dotted l|
00000a30  69 6e 65 0d 05 b4 58 e7  20 a7 74 61 69 6c 24 2c  |ine...X. .tail$,|
00000a40  22 57 22 29 20 21 6d 65  6e 73 70 63 25 3d 21 6d  |"W") !menspc%=!m|
00000a50  65 6e 73 70 63 25 20 84  20 34 3a 77 72 69 74 65  |enspc% . 4:write|
00000a60  61 62 6c 65 25 3d b9 3a  f3 20 62 75 66 66 65 72  |able%=.:. buffer|
00000a70  25 3a f3 20 62 75 66 6c  65 6e 25 3a f4 20 77 72  |%:. buflen%:. wr|
00000a80  69 74 61 62 6c 65 20 69  63 6f 6e 0d 05 be 3a e7  |itable icon...:.|
00000a90  20 a7 74 61 69 6c 24 2c  22 4d 22 29 20 21 6d 65  | .tail$,"M") !me|
00000aa0  6e 73 70 63 25 3d 21 6d  65 6e 73 70 63 25 20 84  |nspc%=!menspc% .|
00000ab0  20 38 3a f4 20 67 65 6e  65 72 61 74 65 20 6d 65  | 8:. generate me|
00000ac0  73 73 61 67 65 0d 05 c8  17 69 74 65 6d 24 3d c0  |ssage....item$=.|
00000ad0  69 74 65 6d 24 2c 75 6c  25 2d 31 29 0d 05 d2 05  |item$,ul%-1)....|
00000ae0  cd 0d 05 dc 23 e7 20 a9  20 69 74 65 6d 24 3e 77  |....#. . item$>w|
00000af0  69 64 74 68 25 20 77 69  64 74 68 25 3d a9 20 69  |idth% width%=. i|
00000b00  74 65 6d 24 0d 05 e6 10  6d 65 6e 73 70 63 25 21  |tem$....menspc%!|
00000b10  34 3d 2d 31 0d 05 f0 12  e7 20 77 72 69 74 65 61  |4=-1..... writea|
00000b20  62 6c 65 25 20 8c 0d 05  fa 5a 6d 65 6e 73 70 63  |ble% ....Zmenspc|
00000b30  25 21 38 3d 26 30 37 30  30 46 31 32 31 3a 6d 65  |%!8=&0700F121:me|
00000b40  6e 73 70 63 25 21 31 32  3d 62 75 66 66 65 72 25  |nspc%!12=buffer%|
00000b50  3a 6d 65 6e 73 70 63 25  21 31 36 3d 2d 31 3a 6d  |:menspc%!16=-1:m|
00000b60  65 6e 73 70 63 25 21 32  30 3d 62 75 66 6c 65 6e  |enspc%!20=buflen|
00000b70  25 3a 24 62 75 66 66 65  72 25 3d 69 74 65 6d 24  |%:$buffer%=item$|
00000b80  0d 06 04 05 cc 0d 06 0e  12 e7 20 a9 20 69 74 65  |.......... . ite|
00000b90  6d 24 3c 31 32 20 8c 0d  06 18 2b 6d 65 6e 73 70  |m$<12 ....+mensp|
00000ba0  63 25 21 38 3d 26 30 37  30 30 30 30 32 31 3a 24  |c%!8=&07000021:$|
00000bb0  28 6d 65 6e 73 70 63 25  2b 31 32 29 3d 69 74 65  |(menspc%+12)=ite|
00000bc0  6d 24 0d 06 22 05 cc 0d  06 2c 49 6d 65 6e 73 70  |m$.."....,Imensp|
00000bd0  63 25 21 38 3d 26 30 37  30 30 30 31 32 31 3a 6d  |c%!8=&07000121:m|
00000be0  65 6e 73 70 63 25 21 31  32 3d 77 73 25 3a 6d 65  |enspc%!12=ws%:me|
00000bf0  6e 73 70 63 25 21 31 36  3d 2d 31 3a 6d 65 6e 73  |nspc%!16=-1:mens|
00000c00  70 63 25 21 32 30 3d a9  20 69 74 65 6d 24 2b 31  |pc%!20=. item$+1|
00000c10  0d 06 36 1d 24 77 73 25  3d 69 74 65 6d 24 3a 77  |..6.$ws%=item$:w|
00000c20  73 25 2b 3d a9 20 69 74  65 6d 24 2b 31 0d 06 40  |s%+=. item$+1..@|
00000c30  05 cd 0d 06 4a 05 cd 0d  06 54 0f 6d 65 6e 73 70  |....J....T.mensp|
00000c40  63 25 2b 3d 32 34 0d 06  5e 05 cd 0d 06 68 0f fd  |c%+=24..^....h..|
00000c50  20 69 74 65 6d 24 3d 22  2a 22 0d 06 72 1a 73 74  | item$="*"..r.st|
00000c60  61 72 74 25 21 31 36 3d  77 69 64 74 68 25 2a 31  |art%!16=width%*1|
00000c70  36 2b 33 32 0d 06 7c 25  21 28 6d 65 6e 73 70 63  |6+32..|%!(menspc|
00000c80  25 2d 32 34 29 3d 21 28  6d 65 6e 73 70 63 25 2d  |%-24)=!(menspc%-|
00000c90  32 34 29 20 84 20 26 38  30 0d 06 86 11 6d 70 74  |24) . &80....mpt|
00000ca0  72 25 3d 6d 65 6e 73 70  63 25 0d 06 90 0b 3d 73  |r%=menspc%....=s|
00000cb0  74 61 72 74 25 0d 06 9a  05 3a 0d 06 a4 1c dd 20  |tart%....:..... |
00000cc0  f2 73 68 6f 77 6d 65 6e  75 28 6d 65 6e 75 25 2c  |.showmenu(menu%,|
00000cd0  78 25 2c 79 25 29 0d 06  ae 24 74 6f 70 6d 65 6e  |x%,y%)...$topmen|
00000ce0  75 25 3d 6d 65 6e 75 25  3a 74 6f 70 78 25 3d 78  |u%=menu%:topx%=x|
00000cf0  25 3a 74 6f 70 79 25 3d  79 25 0d 06 b8 25 c8 99  |%:topy%=y%...%..|
00000d00  20 22 57 69 6d 70 5f 43  72 65 61 74 65 4d 65 6e  | "Wimp_CreateMen|
00000d10  75 22 2c 2c 6d 65 6e 75  25 2c 78 25 2c 79 25 0d  |u",,menu%,x%,y%.|
00000d20  06 c2 05 e1 0d 06 cc 05  3a 0d 06 d6 19 dd f2 75  |........:......u|
00000d30  6e 67 72 65 79 28 6d 65  6e 75 25 2c 69 74 65 6d  |ngrey(menu%,item|
00000d40  25 29 0d 06 e0 3f 6d 65  6e 75 25 21 28 32 38 2b  |%)...?menu%!(28+|
00000d50  69 74 65 6d 25 2a 32 34  2b 38 29 3d 28 6d 65 6e  |item%*24+8)=(men|
00000d60  75 25 21 28 32 38 2b 69  74 65 6d 25 2a 32 34 2b  |u%!(28+item%*24+|
00000d70  38 29 29 20 80 20 28 ac  20 28 31 3c 3c 32 32 29  |8)) . (. (1<<22)|
00000d80  29 0d 06 ea 05 e1 0d 06  f4 05 3a 0d 06 fe 17 dd  |).........:.....|
00000d90  f2 67 72 65 79 28 6d 65  6e 75 25 2c 69 74 65 6d  |.grey(menu%,item|
00000da0  25 29 0d 07 08 3b 6d 65  6e 75 25 21 28 32 38 2b  |%)...;menu%!(28+|
00000db0  69 74 65 6d 25 2a 32 34  2b 38 29 3d 28 6d 65 6e  |item%*24+8)=(men|
00000dc0  75 25 21 28 32 38 2b 69  74 65 6d 25 2a 32 34 2b  |u%!(28+item%*24+|
00000dd0  38 29 29 20 84 20 28 31  3c 3c 32 32 29 0d 07 12  |8)) . (1<<22)...|
00000de0  05 e1 0d 07 1c 05 3a 0d  07 26 10 dd 20 f2 6d 65  |......:..&.. .me|
00000df0  6e 75 63 6c 69 63 6b 0d  07 30 08 ea 20 63 25 0d  |nuclick..0.. c%.|
00000e00  07 3a 0d 63 25 3d 62 25  2b 39 30 30 0d 07 44 20  |.:.c%=b%+900..D |
00000e10  c8 99 20 22 57 69 6d 70  5f 47 65 74 50 6f 69 6e  |.. "Wimp_GetPoin|
00000e20  74 65 72 49 6e 66 6f 22  2c 2c 63 25 0d 07 4e 13  |terInfo",,c%..N.|
00000e30  61 64 6a 25 3d 28 63 25  21 38 20 80 20 31 29 0d  |adj%=(c%!8 . 1).|
00000e40  07 58 28 c8 99 20 22 57  69 6d 70 5f 44 65 63 6f  |.X(.. "Wimp_Deco|
00000e50  64 65 4d 65 6e 75 22 2c  2c 74 6f 70 6d 65 6e 75  |deMenu",,topmenu|
00000e60  25 2c 62 25 2c 63 25 0d  07 62 0c c8 8e 20 24 63  |%,b%,c%..b... $c|
00000e70  25 20 ca 0d 07 6c 15 20  c9 20 22 51 75 69 74 22  |% ...l. . "Quit"|
00000e80  3a 71 75 69 74 25 3d b9  0d 07 76 05 cb 0d 07 80  |:quit%=...v.....|
00000e90  2a e7 20 61 64 6a 25 20  f2 73 68 6f 77 6d 65 6e  |*. adj% .showmen|
00000ea0  75 28 74 6f 70 6d 65 6e  75 25 2c 74 6f 70 78 25  |u(topmenu%,topx%|
00000eb0  2c 74 6f 70 79 25 29 0d  07 8a 05 e1 0d 07 94 05  |,topy%).........|
00000ec0  3a 0d 07 9e 20 dd 20 a4  69 63 6f 6e 5f 73 74 61  |:... . .icon_sta|
00000ed0  74 65 28 77 69 6e 64 6f  77 25 2c 69 63 6f 6e 25  |te(window%,icon%|
00000ee0  29 0d 07 a8 08 ea 20 63  25 0d 07 b2 0d 63 25 3d  |)..... c%....c%=|
00000ef0  62 25 2b 39 30 30 0d 07  bc 0f 21 63 25 3d 77 69  |b%+900....!c%=wi|
00000f00  6e 64 6f 77 25 0d 07 c6  0e 63 25 21 34 3d 69 63  |ndow%....c%!4=ic|
00000f10  6f 6e 25 0d 07 d0 1e c8  99 20 22 57 69 6d 70 5f  |on%...... "Wimp_|
00000f20  47 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 63  |GetIconState",,c|
00000f30  25 0d 07 da 1b 3d 28 28  63 25 21 32 34 29 20 80  |%....=((c%!24) .|
00000f40  20 28 31 3c 3c 32 31 29  29 3c 3e 30 0d 07 e4 05  | (1<<21))<>0....|
00000f50  3a 0d 07 ee 21 dd 20 a4  73 74 72 69 6e 67 5f 61  |:...!. .string_a|
00000f60  64 64 72 28 77 69 6e 64  6f 77 25 2c 69 63 6f 6e  |ddr(window%,icon|
00000f70  25 29 0d 07 f8 08 ea 20  63 25 0d 08 02 0b de 20  |%)..... c%..... |
00000f80  63 25 20 36 34 0d 08 0c  0f 21 63 25 3d 77 69 6e  |c% 64....!c%=win|
00000f90  64 6f 77 25 0d 08 16 0e  63 25 21 34 3d 69 63 6f  |dow%....c%!4=ico|
00000fa0  6e 25 0d 08 20 1e c8 99  20 22 57 69 6d 70 5f 47  |n%.. ... "Wimp_G|
00000fb0  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 63 25  |etIconState",,c%|
00000fc0  0d 08 2a 0a 3d 63 25 21  32 38 0d 08 34 05 3a 0d  |..*.=c%!28..4.:.|
00000fd0  08 3e 21 dd 20 a4 69 63  6f 6e 5f 73 74 72 69 6e  |.>!. .icon_strin|
00000fe0  67 28 77 69 6e 64 6f 77  25 2c 69 63 6f 6e 25 29  |g(window%,icon%)|
00000ff0  0d 08 48 26 f2 74 65 72  6d 28 a4 73 74 72 69 6e  |..H&.term(.strin|
00001000  67 5f 61 64 64 72 28 77  69 6e 64 6f 77 25 2c 69  |g_addr(window%,i|
00001010  63 6f 6e 25 29 29 0d 08  52 21 3d 24 a4 73 74 72  |con%))..R!=$.str|
00001020  69 6e 67 5f 61 64 64 72  28 77 69 6e 64 6f 77 25  |ing_addr(window%|
00001030  2c 69 63 6f 6e 25 29 0d  08 5c 05 e1 0d 08 66 05  |,icon%)..\....f.|
00001040  3a 0d 08 70 28 dd 20 f2  73 65 74 5f 69 63 6f 6e  |:..p(. .set_icon|
00001050  5f 73 74 72 69 6e 67 28  77 69 6e 64 6f 77 25 2c  |_string(window%,|
00001060  69 63 6f 6e 25 2c 61 24  29 0d 08 7a 23 24 a4 73  |icon%,a$)..z#$.s|
00001070  74 72 69 6e 67 5f 61 64  64 72 28 77 69 6e 64 6f  |tring_addr(windo|
00001080  77 25 2c 69 63 6f 6e 25  29 3d 61 24 0d 08 84 05  |w%,icon%)=a$....|
00001090  e1 0d 08 8e 05 3a 0d 08  98 0f dd 20 f2 74 65 72  |.....:..... .ter|
000010a0  6d 28 61 25 29 0d 08 a2  08 ea 20 6e 25 0d 08 ac  |m(a%)..... n%...|
000010b0  0f c8 95 20 61 25 3f 6e  25 3e 33 31 0d 08 b6 09  |... a%?n%>31....|
000010c0  6e 25 2b 3d 31 0d 08 c0  05 ce 0d 08 ca 0c 61 25  |n%+=1.........a%|
000010d0  3f 6e 25 3d 31 33 0d 08  d4 05 e1 0d 08 de 05 3a  |?n%=13.........:|
000010e0  0d 08 e8 17 dd f2 6f 70  65 6e 5f 77 69 6e 64 6f  |......open_windo|
000010f0  77 28 77 69 6e 25 29 0d  08 f2 0c 21 62 25 3d 77  |w(win%)....!b%=w|
00001100  69 6e 25 0d 08 fc 20 c8  99 20 22 57 69 6d 70 5f  |in%... .. "Wimp_|
00001110  47 65 74 57 69 6e 64 6f  77 53 74 61 74 65 22 2c  |GetWindowState",|
00001120  2c 62 25 0d 09 06 0c 62  25 21 32 38 3d 2d 31 0d  |,b%....b%!28=-1.|
00001130  09 10 1c c8 99 20 22 57  69 6d 70 5f 4f 70 65 6e  |..... "Wimp_Open|
00001140  57 69 6e 64 6f 77 22 2c  2c 62 25 0d 09 1a 05 e1  |Window",,b%.....|
00001150  0d 09 24 05 3a 0d 09 2e  18 dd f2 63 6c 6f 73 65  |..$.:......close|
00001160  5f 77 69 6e 64 6f 77 28  77 69 6e 25 29 0d 09 38  |_window(win%)..8|
00001170  0c 21 62 25 3d 77 69 6e  25 0d 09 42 3a c8 99 20  |.!b%=win%..B:.. |
00001180  22 57 69 6d 70 5f 47 65  74 57 69 6e 64 6f 77 53  |"Wimp_GetWindowS|
00001190  74 61 74 65 22 2c 2c 62  25 3a c8 99 20 22 57 69  |tate",,b%:.. "Wi|
000011a0  6d 70 5f 43 6c 6f 73 65  57 69 6e 64 6f 77 22 2c  |mp_CloseWindow",|
000011b0  2c 62 25 0d 09 4c 05 e1  0d 09 56 05 3a 0d 09 60  |,b%..L....V.:..`|
000011c0  0c dd 20 a4 65 72 72 6f  72 0d 09 6a 09 21 62 25  |.. .error..j.!b%|
000011d0  3d 9f 0d 09 74 0c c8 8e  20 21 62 25 20 ca 0d 09  |=...t... !b% ...|
000011e0  7e 22 c9 20 31 3c 3c 33  30 3a 65 72 72 5f 73 74  |~". 1<<30:err_st|
000011f0  72 24 3d 22 22 3a 62 6f  78 25 3d 25 31 30 30 31  |r$="":box%=%1001|
00001200  0d 09 88 28 7f 3a 65 72  72 5f 73 74 72 24 3d 22  |...(.:err_str$="|
00001210  20 61 74 20 6c 69 6e 65  20 22 2b c3 9e 3a 62 6f  | at line "+..:bo|
00001220  78 25 3d 25 31 30 30 31  0d 09 92 05 cb 0d 09 9c  |x%=%1001........|
00001230  1a 24 28 62 25 2b 34 29  3d f6 24 2b 65 72 72 5f  |.$(b%+4)=.$+err_|
00001240  73 74 72 24 2b bd 30 0d  09 a6 37 c8 99 20 22 57  |str$+.0...7.. "W|
00001250  69 6d 70 5f 52 65 70 6f  72 74 45 72 72 6f 72 22  |imp_ReportError"|
00001260  2c 62 25 2c 62 6f 78 25  2c 22 53 68 61 72 6b 73  |,b%,box%,"Sharks|
00001270  22 20 b8 20 2c 72 65 73  70 6f 6e 73 65 25 0d 09  |" . ,response%..|
00001280  b0 12 3d 28 72 65 73 70  6f 6e 73 65 25 3d 32 29  |..=(response%=2)|
00001290  0d 09 ba 05 3a 0d 09 c4  15 dd f2 67 65 74 5f 73  |....:......get_s|
000012a0  63 72 65 65 6e 5f 73 69  7a 65 0d 09 ce 2b c8 99  |creen_size...+..|
000012b0  22 4f 53 5f 52 65 61 64  4d 6f 64 65 56 61 72 69  |"OS_ReadModeVari|
000012c0  61 62 6c 65 22 2c 2d 31  2c 34 20 b8 20 2c 2c 58  |able",-1,4 . ,,X|
000012d0  66 61 63 74 25 0d 09 d8  2b c8 99 22 4f 53 5f 52  |fact%...+.."OS_R|
000012e0  65 61 64 4d 6f 64 65 56  61 72 69 61 62 6c 65 22  |eadModeVariable"|
000012f0  2c 2d 31 2c 35 20 b8 20  2c 2c 59 66 61 63 74 25  |,-1,5 . ,,Yfact%|
00001300  0d 09 e2 2b c8 99 22 4f  53 5f 52 65 61 64 4d 6f  |...+.."OS_ReadMo|
00001310  64 65 56 61 72 69 61 62  6c 65 22 2c 2d 31 2c 31  |deVariable",-1,1|
00001320  31 20 b8 20 2c 2c 58 4c  69 6d 25 0d 09 ec 2b c8  |1 . ,,XLim%...+.|
00001330  99 22 4f 53 5f 52 65 61  64 4d 6f 64 65 56 61 72  |."OS_ReadModeVar|
00001340  69 61 62 6c 65 22 2c 2d  31 2c 31 32 20 b8 20 2c  |iable",-1,12 . ,|
00001350  2c 59 4c 69 6d 25 0d 09  f6 14 58 32 3d 58 4c 69  |,YLim%....X2=XLi|
00001360  6d 25 3c 3c 58 66 61 63  74 25 0d 0a 00 14 59 32  |m%<<Xfact%....Y2|
00001370  3d 59 4c 69 6d 25 3c 3c  59 66 61 63 74 25 0d 0a  |=YLim%<<Yfact%..|
00001380  0a 05 e1 0d 0a 14 05 3a  0d 0a 1e 0c dd f2 68 65  |.......:......he|
00001390  6c 70 6d 65 0d 0a 28 11  77 69 6e 64 6f 77 25 3d  |lpme..(.window%=|
000013a0  62 25 21 33 32 0d 0a 32  0f 69 63 6f 6e 25 3d 62  |b%!32..2.icon%=b|
000013b0  25 21 33 36 0d 0a 3c 2b  68 65 6c 70 24 3d 22 54  |%!36..<+help$="T|
000013c0  68 69 73 20 69 73 20 74  68 65 20 53 68 61 72 6b  |his is the Shark|
000013d0  73 20 61 70 70 6c 69 63  61 74 69 6f 6e 2e 22 0d  |s application.".|
000013e0  0a 46 04 0d 0a 50 10 c8  8e 20 77 69 6e 64 6f 77  |.F...P... window|
000013f0  25 20 ca 0d 0a 5a 04 0d  0a 64 0c 20 c9 20 69 6e  |% ...Z...d. . in|
00001400  66 6f 25 0d 0a 6e 42 20  20 68 65 6c 70 24 3d 22  |fo%..nB  help$="|
00001410  54 68 69 73 20 77 69 6e  64 6f 77 20 73 68 6f 77  |This window show|
00001420  73 20 69 6e 66 6f 72 6d  61 74 69 6f 6e 20 61 62  |s information ab|
00001430  6f 75 74 20 74 68 65 20  61 70 70 6c 69 63 61 74  |out the applicat|
00001440  69 6f 6e 2e 22 0d 0a 78  10 20 20 c8 8e 20 69 63  |ion."..x.  .. ic|
00001450  6f 6e 25 20 ca 0d 0a 82  35 20 20 20 c9 20 30 2c  |on% ....5   . 0,|
00001460  31 3a 68 65 6c 70 24 3d  22 54 68 69 73 20 69 73  |1:help$="This is|
00001470  20 74 68 65 20 6e 61 6d  65 20 6f 66 20 74 68 65  | the name of the|
00001480  20 70 72 6f 67 72 61 6d  2e 22 0d 0a 8c 38 20 20  | program."...8  |
00001490  20 c9 20 32 2c 33 3a 68  65 6c 70 24 3d 22 54 68  | . 2,3:help$="Th|
000014a0  69 73 20 69 73 20 74 68  65 20 70 75 72 70 6f 73  |is is the purpos|
000014b0  65 20 6f 66 20 74 68 65  20 70 72 6f 67 72 61 6d  |e of the program|
000014c0  2e 22 0d 0a 96 37 20 20  20 c9 20 34 2c 35 3a 68  |."...7   . 4,5:h|
000014d0  65 6c 70 24 3d 22 54 68  69 73 20 69 73 20 74 68  |elp$="This is th|
000014e0  65 20 61 75 74 68 6f 72  20 6f 66 20 74 68 65 20  |e author of the |
000014f0  70 72 6f 67 72 61 6d 2e  22 0d 0a a0 3f 20 20 20  |program."...?   |
00001500  c9 20 36 2c 37 3a 68 65  6c 70 24 3d 22 54 68 69  |. 6,7:help$="Thi|
00001510  73 20 69 73 20 74 68 65  20 76 65 72 73 69 6f 6e  |s is the version|
00001520  20 6e 75 6d 62 65 72 20  6f 66 20 74 68 65 20 70  | number of the p|
00001530  72 6f 67 72 61 6d 2e 22  0d 0a aa 07 20 20 cb 0d  |rogram."....  ..|
00001540  0a b4 04 0d 0a be 0c c9  20 73 68 61 72 6b 25 0d  |........ shark%.|
00001550  0a c8 24 20 20 68 65 6c  70 24 3d 22 54 68 69 73  |..$  help$="This|
00001560  20 69 73 20 69 63 6f 6e  20 22 2b c3 28 69 63 6f  | is icon "+.(ico|
00001570  6e 25 29 0d 0a d2 04 0d  0a dc 05 cb 0d 0a e6 05  |n%).............|
00001580  3a 0d 0a f0 0f 62 25 21  30 30 20 3d 20 32 35 36  |:....b%!00 = 256|
00001590  0d 0a fa 10 62 25 21 31  32 20 3d 20 62 25 21 38  |....b%!12 = b%!8|
000015a0  0d 0b 04 11 62 25 21 31  36 20 3d 20 26 30 35 30  |....b%!16 = &050|
000015b0  33 0d 0b 0e 13 24 28 62  25 2b 32 30 29 3d 20 68  |3....$(b%+20)= h|
000015c0  65 6c 70 24 0d 0b 18 24  c8 99 20 22 57 69 6d 70  |elp$...$.. "Wimp|
000015d0  5f 53 65 6e 64 4d 65 73  73 61 67 65 22 2c 31 37  |_SendMessage",17|
000015e0  2c 62 25 2c 62 25 21 34  0d 0b 22 05 e1 0d 0b 2c  |,b%,b%!4.."....,|
000015f0  04 0d 0b 36 15 dd f2 63  72 65 61 74 65 5f 73 68  |...6...create_sh|
00001600  61 72 6b 77 69 6e 0d 0b  40 14 f2 67 65 74 5f 73  |arkwin..@..get_s|
00001610  63 72 65 65 6e 5f 73 69  7a 65 0d 0b 4a 13 62 25  |creen_size..J.b%|
00001620  21 30 3d 30 3a 62 25 21  34 3d 31 33 36 0d 0b 54  |!0=0:b%!4=136..T|
00001630  1b 62 25 21 38 3d 32 35  36 30 3a 62 25 21 31 36  |.b%!8=2560:b%!16|
00001640  3d 31 33 36 2b 31 32 38  0d 0b 5e 13 62 25 21 31  |=136+128..^.b%!1|
00001650  36 3d 30 3a 62 25 21 32  30 3d 30 0d 0b 68 0c 62  |6=0:b%!20=0..h.b|
00001660  25 21 32 34 3d 2d 32 0d  0b 72 29 f4 20 20 20 20  |%!24=-2..r).    |
00001670  31 30 39 38 37 36 35 34  33 32 31 30 39 38 37 36  |1098765432109876|
00001680  35 34 33 32 31 30 39 38  37 36 35 34 33 32 31 30  |5432109876543210|
00001690  0d 0b 7c 2b 62 25 21 32  38 3d 25 31 30 30 30 30  |..|+b%!28=%10000|
000016a0  30 30 30 30 30 30 30 30  30 30 30 30 30 30 30 31  |0000000000000001|
000016b0  30 30 31 30 31 30 31 30  30 30 30 0d 0b 86 15 62  |00101010000....b|
000016c0  25 21 33 32 3d 26 46 46  3a 62 25 3f 33 33 3d 34  |%!32=&FF:b%?33=4|
000016d0  0d 0b 90 13 62 25 3f 33  34 3d 34 3a 62 25 3f 33  |....b%?34=4:b%?3|
000016e0  35 3d 34 0d 0b 9a 13 62  25 3f 33 36 3d 34 3a 62  |5=4....b%?36=4:b|
000016f0  25 3f 33 37 3d 34 0d 0b  a4 13 62 25 3f 33 38 3d  |%?37=4....b%?38=|
00001700  34 3a 62 25 3f 33 39 3d  30 0d 0b ae 16 62 25 21  |4:b%?39=0....b%!|
00001710  34 30 3d 30 3a 62 25 21  34 34 3d 2d 31 32 38 0d  |40=0:b%!44=-128.|
00001720  0b b8 16 62 25 21 34 38  3d 39 39 39 39 3a 62 25  |...b%!48=9999:b%|
00001730  21 35 32 3d 30 0d 0b c2  29 f4 20 20 20 20 31 30  |!52=0...).    10|
00001740  39 38 37 36 35 34 33 32  31 30 39 38 37 36 35 34  |9876543210987654|
00001750  33 32 31 30 39 38 37 36  35 34 33 32 31 30 0d 0b  |32109876543210..|
00001760  cc 2b 62 25 21 35 36 3d  25 31 30 30 30 30 30 30  |.+b%!56=%1000000|
00001770  30 30 30 30 30 30 30 30  30 30 30 30 30 30 30 30  |0000000000000000|
00001780  30 30 30 30 30 30 30 30  30 0d 0b d6 16 62 25 21  |000000000....b%!|
00001790  36 30 3d 30 3a 62 25 21  36 34 3d 73 70 72 25 0d  |60=0:b%!64=spr%.|
000017a0  0b e0 0b 62 25 21 36 38  3d 30 0d 0b ea 12 24 28  |...b%!68=0....$(|
000017b0  62 25 2b 37 32 29 3d 22  77 69 6e 22 0d 0b f4 0b  |b%+72)="win"....|
000017c0  62 25 21 38 34 3d 30 0d  0b fe 27 c8 99 20 22 57  |b%!84=0...'.. "W|
000017d0  69 6d 70 5f 43 72 65 61  74 65 57 69 6e 64 6f 77  |imp_CreateWindow|
000017e0  22 2c 2c 62 25 20 b8 20  73 68 61 72 6b 25 0d 0c  |",,b% . shark%..|
000017f0  08 05 e1 0d 0c 12 05 3a  0d 0c 1c 10 dd f2 63 72  |.......:......cr|
00001800  65 61 74 65 5f 73 70 72  0d 0c 26 15 73 70 72 5f  |eate_spr..&.spr_|
00001810  73 69 7a 65 25 3d 36 32  2a 31 30 32 34 0d 0c 30  |size%=62*1024..0|
00001820  14 de 20 73 70 72 25 20  73 70 72 5f 73 69 7a 65  |.. spr% spr_size|
00001830  25 0d 0c 3a 31 21 73 70  72 25 3d 73 70 72 5f 73  |%..:1!spr%=spr_s|
00001840  69 7a 65 25 3a 73 70 72  25 21 34 3d 30 3a 73 70  |ize%:spr%!4=0:sp|
00001850  72 25 21 38 3d 31 36 3a  73 70 72 25 21 31 32 3d  |r%!8=16:spr%!12=|
00001860  31 36 0d 0c 44 38 c8 99  20 22 4f 53 5f 53 70 72  |16..D8.. "OS_Spr|
00001870  69 74 65 4f 70 22 2c 32  35 36 2b 31 35 2c 73 70  |iteOp",256+15,sp|
00001880  72 25 2c 22 73 68 61 72  6b 73 70 72 22 2c 30 2c  |r%,"sharkspr",0,|
00001890  32 35 36 30 2c 34 38 2c  32 30 0d 0c 4e 33 c8 99  |2560,48,20..N3..|
000018a0  20 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 26  | "OS_SpriteOp",&|
000018b0  31 31 38 2c 73 70 72 25  2c 22 73 68 61 72 6b 73  |118,spr%,"sharks|
000018c0  70 72 22 20 b8 20 2c 2c  62 61 63 6b 25 0d 0c 58  |pr" . ,,back%..X|
000018d0  05 e1 0d 0c 62 05 3a 0d  0c 6c 0e dd f2 6e 65 77  |....b.:..l...new|
000018e0  5f 69 63 6f 6e 0d 0c 76  0e 21 62 25 3d 73 68 61  |_icon..v.!b%=sha|
000018f0  72 6b 25 0d 0c 80 13 62  25 21 34 3d 30 3a 62 25  |rk%....b%!4=0:b%|
00001900  21 38 3d 2d 39 36 0d 0c  8a 14 62 25 21 31 32 3d  |!8=-96....b%!12=|
00001910  58 32 3a 62 25 21 31 36  3d 30 0d 0c 94 29 f4 20  |X2:b%!16=0...). |
00001920  20 20 20 31 30 39 38 37  36 35 34 33 32 31 30 39  |   1098765432109|
00001930  38 37 36 35 34 33 32 31  30 39 38 37 36 35 34 33  |8765432109876543|
00001940  32 31 30 0d 0c 9e 2b 62  25 21 32 30 3d 25 30 31  |210...+b%!20=%01|
00001950  30 30 30 31 30 30 30 30  30 30 30 30 30 30 30 30  |0001000000000000|
00001960  30 30 30 30 30 30 30 30  30 30 30 30 31 30 0d 0c  |00000000000010..|
00001970  a8 17 24 28 62 25 2b 32  34 29 3d 22 73 68 61 72  |..$(b%+24)="shar|
00001980  6b 73 70 72 22 0d 0c b2  2a c8 99 20 22 57 69 6d  |kspr"...*.. "Wim|
00001990  70 5f 43 72 65 61 74 65  49 63 6f 6e 22 2c 2c 62  |p_CreateIcon",,b|
000019a0  25 20 b8 20 73 68 61 72  6b 5f 69 63 6f 6e 25 0d  |% . shark_icon%.|
000019b0  0c bc 05 e1 0d 0c c6 04  0d 0c d0 11 dd f2 6f 70  |..............op|
000019c0  65 6e 5f 73 68 61 72 6b  73 0d 0c da 0e 21 62 25  |en_sharks....!b%|
000019d0  3d 73 68 61 72 6b 25 0d  0c e4 13 62 25 21 34 3d  |=shark%....b%!4=|
000019e0  30 3a 62 25 21 38 3d 31  33 36 0d 0c ee 19 62 25  |0:b%!8=136....b%|
000019f0  21 31 32 3d 58 32 3a 62  25 21 31 36 3d 31 33 36  |!12=X2:b%!16=136|
00001a00  2b 39 36 0d 0c f8 13 62  25 21 32 30 3d 30 3a 62  |+96....b%!20=0:b|
00001a10  25 21 32 34 3d 30 0d 0d  02 0c 62 25 21 32 38 3d  |%!24=0....b%!28=|
00001a20  2d 32 0d 0d 0c 1c c8 99  20 22 57 69 6d 70 5f 4f  |-2...... "Wimp_O|
00001a30  70 65 6e 57 69 6e 64 6f  77 22 2c 2c 62 25 0d 0d  |penWindow",,b%..|
00001a40  16 05 e1 0d 0d 20 05 3a  0d 0d 2a 11 dd f2 64 72  |..... .:..*...dr|
00001a50  61 77 5f 73 68 61 72 6b  73 0d 0d 34 2a c8 99 20  |aw_sharks..4*.. |
00001a60  26 32 45 2c 26 32 33 43  2c 73 70 72 25 2c 62 61  |&2E,&23C,spr%,ba|
00001a70  63 6b 25 2c 30 20 b8 20  72 30 2c 72 31 2c 72 32  |ck%,0 . r0,r1,r2|
00001a80  2c 72 33 0d 0d 3e 27 ee  20 85 20 26 32 45 2c 72  |,r3..>'. . &2E,r|
00001a90  30 2c 72 31 2c 72 32 2c  72 33 3a ef 34 3a f6 3a  |0,r1,r2,r3:.4:.:|
00001aa0  f1 22 20 2d 20 22 3b 9e  3a e0 0d 0d 48 1a e6 20  |." - ";.:...H.. |
00001ab0  34 3a c8 93 20 c8 90 20  30 2c 30 2c 32 35 36 30  |4:.. .. 0,0,2560|
00001ac0  2c 31 32 38 0d 0d 52 0e  e3 20 49 3d 31 20 b8 20  |,128..R.. I=1 . |
00001ad0  53 48 0d 0d 5c 23 58 33  3d 58 28 49 29 2d 28 58  |SH..\#X3=X(I)-(X|
00001ae0  53 28 49 29 2f 33 29 3a  59 33 3d 59 28 49 29 2b  |S(I)/3):Y3=Y(I)+|
00001af0  59 53 28 49 29 0d 0d 66  09 e6 20 34 2b 49 0d 0d  |YS(I)..f.. 4+I..|
00001b00  70 04 0d 0d 7a 1a 52 31  3d 28 58 53 28 49 29 2a  |p...z.R1=(XS(I)*|
00001b10  2e 35 29 3a 52 32 3d 59  53 28 49 29 0d 0d 84 14  |.5):R2=YS(I)....|
00001b20  53 31 3d 28 58 53 28 49  29 2a 31 2e 33 29 2f 33  |S1=(XS(I)*1.3)/3|
00001b30  0d 0d 8e 0d 53 32 3d 59  28 49 29 2f 33 0d 0d 98  |....S2=Y(I)/3...|
00001b40  13 4f 58 3d 58 28 49 29  3a 4f 59 3d 59 28 49 29  |.OX=X(I):OY=Y(I)|
00001b50  0d 0d a2 0b ec 20 4f 58  2c 4f 59 0d 0d ac 16 e3  |..... OX,OY.....|
00001b60  20 41 3d 2d 34 35 20 b8  20 31 30 35 20 88 20 33  | A=-45 . 105 . 3|
00001b70  30 0d 0d b6 19 ec 20 58  28 49 29 2b 28 58 53 28  |0..... X(I)+(XS(|
00001b80  49 29 2f 33 29 2c 59 28  49 29 0d 0d c0 0d 41 58  |I)/3),Y(I)....AX|
00001b90  3d 52 31 2a b5 b2 41 0d  0d ca 0d 41 59 3d 52 32  |=R1*..A....AY=R2|
00001ba0  2a 9b b2 41 0d 0d d4 1d  f0 20 38 35 2c 58 28 49  |*..A..... 85,X(I|
00001bb0  29 2b 41 58 2a 5a 28 49  29 2c 59 28 49 29 2b 41  |)+AX*Z(I),Y(I)+A|
00001bc0  59 0d 0d de 11 52 31 2b  3d 53 31 3a 52 32 2d 3d  |Y....R1+=S1:R2-=|
00001bd0  53 32 0d 0d e8 05 ed 0d  0d f2 04 0d 0d fc 10 58  |S2.............X|
00001be0  53 28 49 29 2b 3d 58 44  28 49 29 0d 0e 06 25 e7  |S(I)+=XD(I)...%.|
00001bf0  20 58 53 28 49 29 3c 2d  35 32 20 58 53 28 49 29  | XS(I)<-52 XS(I)|
00001c00  3d 2d 35 32 3a 58 28 49  29 2b 3d 58 44 28 49 29  |=-52:X(I)+=XD(I)|
00001c10  0d 0e 10 23 e7 20 58 53  28 49 29 3e 35 32 20 58  |...#. XS(I)>52 X|
00001c20  53 28 49 29 3d 35 32 3a  58 28 49 29 2b 3d 58 44  |S(I)=52:X(I)+=XD|
00001c30  28 49 29 0d 0e 1a 04 0d  0e 24 35 e7 20 b3 28 31  |(I)......$5. .(1|
00001c40  30 30 29 3d 31 20 58 44  28 49 29 3d 28 b3 28 31  |00)=1 XD(I)=(.(1|
00001c50  29 2a 38 29 2b 34 3a e7  20 b3 28 32 29 3d 31 20  |)*8)+4:. .(2)=1 |
00001c60  58 44 28 49 29 3d 2d 58  44 28 49 29 0d 0e 2e 1d  |XD(I)=-XD(I)....|
00001c70  e7 20 58 28 49 29 3c 30  20 58 44 28 49 29 3d 28  |. X(I)<0 XD(I)=(|
00001c80  b3 28 31 29 2a 38 29 2b  34 0d 0e 38 1f e7 20 58  |.(1)*8)+4..8.. X|
00001c90  28 49 29 3e 58 32 20 58  44 28 49 29 3d 28 b3 28  |(I)>X2 XD(I)=(.(|
00001ca0  31 29 2a 2d 38 29 2d 34  0d 0e 42 05 ed 0d 0e 4c  |1)*-8)-4..B....L|
00001cb0  16 c8 99 20 26 32 45 2c  72 30 2c 72 31 2c 72 32  |... &2E,r0,r1,r2|
00001cc0  2c 72 33 0d 0e 56 05 e1  0d 0e 60 05 3a 0d 0e 6a  |,r3..V....`.:..j|
00001cd0  12 dd f2 73 65 74 75 70  5f 73 68 61 72 6b 73 0d  |...setup_sharks.|
00001ce0  0e 74 08 53 48 3d 33 0d  0e 7e 2c de 20 58 28 53  |.t.SH=3..~,. X(S|
00001cf0  48 29 2c 59 28 53 48 29  2c 58 53 28 53 48 29 2c  |H),Y(SH),XS(SH),|
00001d00  59 53 28 53 48 29 2c 58  44 28 53 48 29 2c 5a 28  |YS(SH),XD(SH),Z(|
00001d10  53 48 29 0d 0e 88 0e e3  20 49 3d 31 20 b8 20 53  |SH)..... I=1 . S|
00001d20  48 0d 0e 92 0e 58 28 49  29 3d b3 28 58 32 29 0d  |H....X(I)=.(X2).|
00001d30  0e 9c 0a 59 28 49 29 3d  30 0d 0e a6 13 59 53 28  |...Y(I)=0....YS(|
00001d40  49 29 3d 34 30 2b 28 49  2a 31 36 29 0d 0e b0 15  |I)=40+(I*16)....|
00001d50  58 53 28 49 29 3d a4 72  61 6e 64 6f 6d 28 34 38  |XS(I)=.random(48|
00001d60  29 0d 0e ba 11 5a 28 49  29 3d 59 53 28 49 29 2f  |)....Z(I)=YS(I)/|
00001d70  39 36 0d 0e c4 2a 58 44  28 49 29 3d 28 b3 28 31  |96...*XD(I)=(.(1|
00001d80  29 2a 38 29 2b 34 3a e7  20 b3 28 32 29 3d 31 20  |)*8)+4:. .(2)=1 |
00001d90  58 44 28 49 29 3d 2d 58  44 28 49 29 0d 0e ce 05  |XD(I)=-XD(I)....|
00001da0  ed 0d 0e d8 05 e1 0d 0e  e2 05 3a 0d 0e ec 11 dd  |..........:.....|
00001db0  a4 72 61 6e 64 6f 6d 28  6e 75 6d 29 0d 0e f6 1f  |.random(num)....|
00001dc0  e7 20 b3 28 32 29 3d 31  20 3d b3 28 6e 75 6d 29  |. .(2)=1 =.(num)|
00001dd0  20 8b 20 3d 2d b3 28 6e  75 6d 29 0d 0f 00 05 3a  | . =-.(num)....:|
00001de0  0d 0f 0a 10 dd f2 61 6c  74 65 72 5f 73 69 7a 65  |......alter_size|
00001df0  0d 0f 14 14 f2 67 65 74  5f 73 63 72 65 65 6e 5f  |.....get_screen_|
00001e00  73 69 7a 65 0d 0f 1e 10  f2 6f 70 65 6e 5f 73 68  |size.....open_sh|
00001e10  61 72 6b 73 0d 0f 28 05  e1 0d ff                 |arks..(....|
00001e1b