!� > <PlayMorph$Dir>.!RunImage
�
8� * Desktop morph animator by K.S & S.S Pardesi 1990
(�
2
�autoload
<�initialise
F�SetGraphics
P�SprtDraw1
[� � �error:�
n� � � �wimperror � �
o� c$<>"" �LoadFile(c$)
x�
�� ANI%=1 � 2
�+� ANI%=2 � BN%=1:SECV%=SEC%:ASV%=�(AS%)
�0� ANI%=1 � BN%=SEC%:SECV%=2:ASV%=�(AS%)*(-1)
� � I%=BN% � SECV%-1 � ASV%
�" ș"Wimp_Poll",,q1% � respond%
� Ȏ respond% �
� 
� � 0 : � anim%=1 �
� �SprtDraw
�7 q1%!0=playw%:q1%!4=0:q1%!8=0:q1%!12=640:q1%!16=512
� ș &400C9,,q1% � more%
� �getorigin(q1%,x0%,y0%)
�
 ȕ more%

 �draw(x0%,y0%)

 ș &400CA,,q1% � more%

 �

" �

, � 1 : � anim%=1 �Redraw

6$ � 2 : ș "Wimp_OpenWindow",,q1%

@- � 3 : ș "Wimp_CloseWindow",,q1%:anim%=0

J � 6 : �mouseclick

T � 9 : �menuselect

^ � 17,18: �receive

h�

r� I%

|
� ANI%

�� �

�
�shutdown

��

�:

���initialise

�.maxws%=&400:� ws% maxws%:wsend%=ws%+maxws%

�� q1% 6096

�� q2% 8096

�,� menufree% &370:menuend%=menufree%+&370

�Bș"Wimp_Initialise",200,&4B534154,"PlayMorph" � version%,task%

�0� ***** and install the icon on the icon bar

�<!q1%=-1:q1%!4=0:q1%!8=0:q1%!12=69:q1%!16=68:q1%!20=&3002

�menu$="":x0%=0:y0%=0
9$(q1%+24)="!PlayMorph":ș"Wimp_CreateIcon",,q1% � ic%
:
7ș "Wimp_OpenTemplate",,"<PlayMorph$Dir>.Templates"
&>ș "Wimp_LoadTemplate",,q2%,ws%,wsend%,-1,"info",0 � ,,ws%
0'ș "Wimp_CreateWindow",,q2% � info%
:?ș "Wimp_LoadTemplate",,q2%,ws%,wsend%,-1,"playw",0 � ,,ws%
D(ș "Wimp_CreateWindow",,q2% � playw%
N?ș "Wimp_LoadTemplate",,q2%,ws%,wsend%,-1,"lfile",0 � ,,ws%
X(ș "Wimp_CreateWindow",,q2% � lfile%
b?ș "Wimp_LoadTemplate",,q2%,ws%,wsend%,-1,"speed",0 � ,,ws%
l(ș "Wimp_CreateWindow",,q2% � speed%
v>ș "Wimp_LoadTemplate",,q2%,ws%,wsend%,-1,"zoom",0 � ,,ws%
�'ș "Wimp_CreateWindow",,q2% � zoom%
�Bș "Wimp_LoadTemplate",,q2%,ws%,wsend%,-1,"fullinfo",0 � ,,ws%
�+ș "Wimp_CreateWindow",,q2% � fullinfo%
�ș "Wimp_CloseTemplate"
�:
�quit%=�
�NP%=300
�%� X%(NP%),Y%(NP%),A%(NP%),B%(NP%)
�� XI(NP%),YI(NP%)
�DEL%=20
�first%=1
�SEC%=100
�CNT%=0:FCNT%=0
	AS%=1
anim%=0
mainmenu%=�crmenu
 "� "#PlayMorph,Info>info%,Quit"
*misc%=�crmenu
4*� "#Misc,Info>info%,Morph file>lfile%"
>runmenu%=�crmenu
H\� "#PlayMorph,Misc >misc%,Goto first,Zoom>zoom%,Step rate >speed%,Full screen>fullinfo%"
R�
\:
fݤrtoz(p%)
p� q$
zȕ ?p%<>0 q$+=�?p%:p%+=1:�
�=q$
�
�
��receive
�Ȏ q1%!16 �
��0: �shutdown:�
�!�3: � file dropped from Filer
�file_type%=q1%!40
�� file_type%<>&7EF � � �drC
�file1$=�rtoz(q1%+44)
��LoadFile(file1$)
��
��
�
��LoadFile(fn$)
A=� fn$

�# A,CNT%
$� I%=1 � CNT%
.$�# A,X%(I%),Y%(I%),A%(I%),B%(I%)
8� I%
B�# A
L�calculate_a_bit
V	AS%=1
`	ZT%=1
j	ZB%=2
tanim%=1
~!q2%=playw%
� ș"Wimp_GetWindowState",,q2%
�ș"Wimp_OpenWindow",,q2%
�� QQ%=�(fn$) � 1 � -1
�;� �fn$,QQ%,1)="." � filename$=�fn$,QQ%+1,�(fn$)):� �tzD
�	� QQ%
� �settext(lfile%,0,filename$)
��settext(lfile%,1,�(CNT%))
��settext(speed%,2,"1")
��settext(zoom%,4,"1")
��settext(zoom%,6,"2")
��
� 
:

 
��shutdown
$q2%="TASK"
(!ș"Wimp_CloseDown",task%,!q2%
2�
< 
F ��getorigin(q1%,� x0%,� y0%)
Px0%=q1%!4-q1%!20
Zy0%=q1%!16-q1%!24
d�
n 
x��Redraw
�q1%!0=playw%
�&ș"Wimp_RedrawWindow",,q1% � more%
��getorigin(q1%,x0%,y0%)
�ȕ more%
��draw(x0%,y0%)
�&ș"Wimp_GetRectangle",,q1% � more%
��
��
���draw(x0%,y0%)
��schoose("image")
��splot(x0%,y0%)
��
���SprtDraw1
$ș "OS_SpriteOp",&100+9,sprites%
"� 0,0:� 640,512:�sget("image")
�
"��SprtDraw
,	md%=�
6;ș "OS_SpriteOp",&100+15,sprites%,"image",0,320,128,md%
@/ș "OS_SpriteOp",&100+60,sprites%,"image",0
JG� (((A%(1)+(XI(1)*I%)))*(ZT%/ZB%)),(((B%(1)+(YI(1)*I%)))*(ZT%/ZB%))
T� J%=1 � CNT%
^I� (((A%(J%)+(XI(J%)*I%)))*(ZT%/ZB%)),((B%(J%)+(YI(J%)*I%))*(ZT%/ZB%))
h� J%
r)ș "OS_SpriteOp",&100+60,sprites%,0,0
|�
�:
���mouseclick
�
Ȏq1%!8 �
�4� 2: � q1%!12=-2 �domenu(mainmenu%,q1%!0-64,184)
�<        � q1%!12=playw% �domenu(runmenu%,q1%!0-64,q1%!4)
�� 4: � q1%!12=speed% �
�A        � q1%!16=0 � AS%>1 � AS%-=1:�settext(speed%,2,�(AS%))
�I        � q1%!16=1 � AS%<�(SEC%/2) � AS%+=1:�settext(speed%,2,�(AS%))
�
        �
�        � q1%!12=zoom% �
�@        � q1%!16=0 � ZT%<8 � ZT%+=1:�settext(zoom%,4,�(ZT%))
�@        � q1%!16=1 � ZT%>1 � ZT%-=1:�settext(zoom%,4,�(ZT%))
�@        � q1%!16=2 � ZB%<8 � ZB%+=1:�settext(zoom%,6,�(ZB%))
@        � q1%!16=3 � ZB%>1 � ZB%-=1:�settext(zoom%,6,�(ZB%))

        �
K        � q1%!12=fullinfo% � ent%=�:� 0:�display:ș "Wimp_SetMode",ent%
&�
0�
::
D��domenu(h%,x%,y%)
N$menudata%=h%:menux%=x%:menuy%=y%
X"ș "Wimp_CreateMenu",,h%,x%,y%
b�
l:
v��menuselect
�� a$,i%,adjust%
�5ș "Wimp_GetPointerInfo",,q2%:adjust%=(q2%!8 � 1)
�8ș "Wimp_DecodeMenu",,menudata%,q1%,�200," ")� ,,,a$
�� a$="" � �
�%� a$="Goto first" � ANI%=1:� �Dx@
�� a$="Full screen" �
�
ent%=�
��0
��display
�ș "Wimp_SetMode",ent%
��
�� a$="Quit" �shutdown:�
��
:
ݤcrmenu
� M%,menu$,m$,I%
 � menu$
*ȕ �menu$,2)="++"
4	 � m$
> menu$=�menu$,�menu$-2)+m$
H�
Rmenuptr%=menufree%
\I%=0
f=� �menu$,1)="#" I%=1:menutitle$=�par(",") � menutitle$=""
p$menuptr%=menutitle$
zmenuptr%?12=7
�menuptr%?13=2
�menuptr%?14=7
�menuptr%?15=1
�menuptr%!16=196
�menuptr%!20=44
�menuptr%!24=0
�menuptr%+=28
�maxx%=�menutitle$-3
��
� item$=�par(",")
� �menuitem(item$)
�� item$=""
�M%=menufree%
	M%!16=(maxx%*8+6)*2
	menufree%=menuptr%
	=M%
	$:
	.��menuitem(text$)
	8� I%,F%,S%,L%
	B0� text$="" menuptr%!-24=(menuptr%!-24)�&80:�
	L
F%=&00
	VI%=�text$,">")
	`� I%>0 �
	j S$=�text$,I%+1)
	t � S$="info%" � S%=info%
	~ � S$="lfile%" � S%=lfile%
	� � S$="misc%" � S%=misc%
	� � S$="zoom%" � S%=zoom%
	� � S$="speed%" � S%=speed%
	�$ � S$="fullinfo%" � S%=fullinfo%
	� text$=�text$,I%-1)
	��
	�
 S%=-1
	��
	�)� �text$,1)="#" text$=�text$):F%+=&02
	�)� �text$,1)="@" text$=�text$):F%+=&08
	�menuptr%!0=F%
	�menuptr%!4=S%
menuptr%!8=&07000021

� �text$,1)="$" �
 !menuptr%+=&04
 menuptr%!8+=&100
( I%=�text$,"(")
2
 � I%>0 �
< � L%=VALMID$(text$,I%+1)
F  text$=�text$,I%-1)
P �
Z  L%=12
d �
n M$=�text$,2)
x menuptr%!12=�(M$)
� menuptr%!16=-1
� menuptr%!20=L%
� �L%>16 L%=16
� text$=�L%," ")
��
� �text$<=12�
�  $(menuptr%+12)=text$
� �
�'  I%=�workspace(�text$+1):$I%=text$
�8  menuptr%!12=I%:menuptr%!16=-1:menuptr%!20=�text$+1
�"  menuptr%!8=menuptr%!8 � &100
� �
��
� �text$>maxx% maxx%=�text$
menuptr%+=24
�
":
,ݤpar(sep$)
6� L%
@L%=I%+1
JI%=�menu$+sep$,sep$,L%)
T=�menu$,L%,I%-L%)
^:
hݤworkspace(L%)
rcurws%+=L%
|=curws%-L%
�:
���error
�
�shutdown
�� �$;" at line ";�
��
�:
�ݤwimperror
�sampname$=""
�
!q2%=�
�$(q2%+4)=�$+�(�)+�0
�7ș"Wimp_ReportError",q2%,3,"PlayMorph" � ,response%
�"� response%=1 � �shutdown:=� �
�=�
��calculate_a_bit
� I%=1 � CNT%
!XI(I%)=((X%(I%)-A%(I%))/SEC%)
&!YI(I%)=((Y%(I%)-B%(I%))/SEC%)
0� I%
:�
D ��schoose(n$)
N chosen$=n$
X) ș "OS_SpriteOp",&100+24,sprites%,n$
b �
l ��sget(n$)
v% ș "OS_SpriteOp",&100+9,sprites%
� sprites%!0=spritelen
� sprites%!8=16
�% ș "OS_SpriteOp",&100+9,sprites%
�+ ș "OS_SpriteOp",&100+14,sprites%,n$,0
� �
� ��splot(x%,y%)
� � x%,y%
�2 ș "OS_SpriteOp",&100+28,sprites%,chosen$,,,0
� �
� ��SetGraphics
� spritelen=45*1024
� � sprites% spritelen
� sprites%!0=spritelen

 sprites%!8=16

% ș "OS_SpriteOp",&100+9,sprites%

 �

  � �settext(window%,icon%,a$)

*:q2%!0=window%:q2%!4=icon%:ș "Wimp_GetIconState",0,q2%

4>$(q2%!28)=a$:q2%!8=0:q2%!12=0:ș "Wimp_SetIconState",0,q2%

>$ș "Wimp_GetCaretPosition",0,q2%

H�

R ��animate(BE%,EN%,SP%)

\ � I%=BE% � EN%-1 � SP%

f% BANK%=BANK% � 3:ș 6,112,BANK%:�

p2 � (A%(1)+(XI(1)*I%))*OT,(B%(1)+(YI(1)*I%))*OT

z � J%=1 � CNT%

�6 � (A%(J%)+(XI(J%)*I%))*OT,(B%(J%)+(YI(J%)*I%))*OT

�	 � J%

� ș 6,113,BANK%:Ȗ

�1 BUT%=0:ȗ XPOS%,YPOS%,BUT%:� BUT%=2 EXIT=�:�

� � BUT%<>0 �

�3 � BUT%=1 � I%>BE%+SP% � BE%=1 � I%-=SP%:� �DfM

�5 � BUT%=4 � I%<EN%-SP%-1 � BE%=1 � I%+=SP%:� �DfM

�6 � BUT%=4 � I%<BE%+SP% � BE%=SEC% � I%-=SP%:� �DfM

�8 � BUT%=1 � I%>EN%-SP%-1 � BE%=SEC% � I%+=SP%:� �DfM

� �

� A$=�(1)

� � A$<>"" �

�* � �-58 � SP%<SEC%/2 � SP%+=1:AAS%=SP%
% � �-42 � SP%>1 � SP%-=1:AAS%=SP%
 � �-26 � OT>.1 � OT-=.05
 � �-122 � OT<4 � OT+=.05
$ � �-113 EXIT=�:�
. � A$=" " �
8 �
B A$=�(1)
L ȗ PP%,WW%,EE%
V � EE%<>0 � A$=" "
` �
j �
t	 � I%
~ �
� ��display
� AAS%=AS%:OT=(ZT%/ZB%)
�> OOX%=320-(((ZT%/ZB%)*320)/2):OOY%=256-(((ZT%/ZB%)*256)/2)
� �ORIGIN OOX%,OOY%
� EXIT=�
�	 ȗ �
� �
� �animate(1,SEC%,�(AAS%))
�+ � EXIT=� �animate(SEC%,2,�(AAS%)*(-1))
�
 � EXIT=�
�	 ȗ �
� ȗ ȓ 0,0,1279,1023
	 OK=�

 ȑ 0,0
 �

(��autoload
2	c$=""
<ș "OS_GetEnv" � c$
F	a$=c$
Pp=�c$,"""",�c$,"""")+1)
Zc$=�c$,p+1)
dȕ �c$,1)=" "
n
c$=�c$,2)
x�
��
�

00000000  0d 00 0a 21 f4 20 3e 20  3c 50 6c 61 79 4d 6f 72  |...!. > <PlayMor|
00000010  70 68 24 44 69 72 3e 2e  21 52 75 6e 49 6d 61 67  |ph$Dir>.!RunImag|
00000020  65 0d 00 14 05 f4 0d 00  1e 38 f4 20 2a 20 44 65  |e........8. * De|
00000030  73 6b 74 6f 70 20 6d 6f  72 70 68 20 61 6e 69 6d  |sktop morph anim|
00000040  61 74 6f 72 20 62 79 20  4b 2e 53 20 26 20 53 2e  |ator by K.S & S.|
00000050  53 20 50 61 72 64 65 73  69 20 31 39 39 30 0d 00  |S Pardesi 1990..|
00000060  28 05 f4 0d 00 32 0d f2  61 75 74 6f 6c 6f 61 64  |(....2..autoload|
00000070  0d 00 3c 0f f2 69 6e 69  74 69 61 6c 69 73 65 0d  |..<..initialise.|
00000080  00 46 10 f2 53 65 74 47  72 61 70 68 69 63 73 0d  |.F..SetGraphics.|
00000090  00 50 0e f2 53 70 72 74  44 72 61 77 31 0d 00 5b  |.P..SprtDraw1..[|
000000a0  10 ee 20 85 20 f2 65 72  72 6f 72 3a e0 0d 00 6e  |.. . .error:...n|
000000b0  18 ee 20 85 20 e7 20 a4  77 69 6d 70 65 72 72 6f  |.. . . .wimperro|
000000c0  72 20 8c 20 e0 0d 00 6f  1a e7 20 63 24 3c 3e 22  |r . ...o.. c$<>"|
000000d0  22 20 f2 4c 6f 61 64 46  69 6c 65 28 63 24 29 0d  |" .LoadFile(c$).|
000000e0  00 78 05 f5 0d 00 82 10  e3 20 41 4e 49 25 3d 31  |.x....... ANI%=1|
000000f0  20 b8 20 32 0d 00 8c 2b  e7 20 41 4e 49 25 3d 32  | . 2...+. ANI%=2|
00000100  20 8c 20 42 4e 25 3d 31  3a 53 45 43 56 25 3d 53  | . BN%=1:SECV%=S|
00000110  45 43 25 3a 41 53 56 25  3d 94 28 41 53 25 29 0d  |EC%:ASV%=.(AS%).|
00000120  00 96 30 e7 20 41 4e 49  25 3d 31 20 8c 20 42 4e  |..0. ANI%=1 . BN|
00000130  25 3d 53 45 43 25 3a 53  45 43 56 25 3d 32 3a 41  |%=SEC%:SECV%=2:A|
00000140  53 56 25 3d 94 28 41 53  25 29 2a 28 2d 31 29 0d  |SV%=.(AS%)*(-1).|
00000150  00 a0 1e 20 e3 20 49 25  3d 42 4e 25 20 b8 20 53  |... . I%=BN% . S|
00000160  45 43 56 25 2d 31 20 88  20 41 53 56 25 0d 00 aa  |ECV%-1 . ASV%...|
00000170  22 20 c8 99 22 57 69 6d  70 5f 50 6f 6c 6c 22 2c  |" .."Wimp_Poll",|
00000180  2c 71 31 25 20 b8 20 72  65 73 70 6f 6e 64 25 0d  |,q1% . respond%.|
00000190  00 b4 12 20 c8 8e 20 72  65 73 70 6f 6e 64 25 20  |... .. respond% |
000001a0  ca 0d 00 be 05 20 0d 00  c8 16 20 c9 20 30 20 3a  |..... .... . 0 :|
000001b0  20 e7 20 61 6e 69 6d 25  3d 31 20 8c 0d 00 d2 0e  | . anim%=1 .....|
000001c0  20 f2 53 70 72 74 44 72  61 77 0d 00 dc 37 20 71  | .SprtDraw...7 q|
000001d0  31 25 21 30 3d 70 6c 61  79 77 25 3a 71 31 25 21  |1%!0=playw%:q1%!|
000001e0  34 3d 30 3a 71 31 25 21  38 3d 30 3a 71 31 25 21  |4=0:q1%!8=0:q1%!|
000001f0  31 32 3d 36 34 30 3a 71  31 25 21 31 36 3d 35 31  |12=640:q1%!16=51|
00000200  32 0d 00 e6 1b 20 c8 99  20 26 34 30 30 43 39 2c  |2.... .. &400C9,|
00000210  2c 71 31 25 20 b8 20 6d  6f 72 65 25 0d 00 f0 1c  |,q1% . more%....|
00000220  20 f2 67 65 74 6f 72 69  67 69 6e 28 71 31 25 2c  | .getorigin(q1%,|
00000230  78 30 25 2c 79 30 25 29  0d 00 fa 0d 20 c8 95 20  |x0%,y0%).... .. |
00000240  6d 6f 72 65 25 0d 01 04  13 20 f2 64 72 61 77 28  |more%.... .draw(|
00000250  78 30 25 2c 79 30 25 29  0d 01 0e 1b 20 c8 99 20  |x0%,y0%).... .. |
00000260  26 34 30 30 43 41 2c 2c  71 31 25 20 b8 20 6d 6f  |&400CA,,q1% . mo|
00000270  72 65 25 0d 01 18 06 20  ce 0d 01 22 06 20 cd 0d  |re%.... ...". ..|
00000280  01 2c 1c 20 c9 20 31 20  3a 20 e7 20 61 6e 69 6d  |.,. . 1 : . anim|
00000290  25 3d 31 20 f2 52 65 64  72 61 77 0d 01 36 24 20  |%=1 .Redraw..6$ |
000002a0  c9 20 32 20 3a 20 c8 99  20 22 57 69 6d 70 5f 4f  |. 2 : .. "Wimp_O|
000002b0  70 65 6e 57 69 6e 64 6f  77 22 2c 2c 71 31 25 0d  |penWindow",,q1%.|
000002c0  01 40 2d 20 c9 20 33 20  3a 20 c8 99 20 22 57 69  |.@- . 3 : .. "Wi|
000002d0  6d 70 5f 43 6c 6f 73 65  57 69 6e 64 6f 77 22 2c  |mp_CloseWindow",|
000002e0  2c 71 31 25 3a 61 6e 69  6d 25 3d 30 0d 01 4a 16  |,q1%:anim%=0..J.|
000002f0  20 c9 20 36 20 3a 20 f2  6d 6f 75 73 65 63 6c 69  | . 6 : .mousecli|
00000300  63 6b 0d 01 54 16 20 c9  20 39 20 3a 20 f2 6d 65  |ck..T. . 9 : .me|
00000310  6e 75 73 65 6c 65 63 74  0d 01 5e 16 20 c9 20 31  |nuselect..^. . 1|
00000320  37 2c 31 38 3a 20 f2 72  65 63 65 69 76 65 0d 01  |7,18: .receive..|
00000330  68 05 cb 0d 01 72 08 ed  20 49 25 0d 01 7c 0a ed  |h....r.. I%..|..|
00000340  20 41 4e 49 25 0d 01 86  07 fd 20 a3 0d 01 90 0d  | ANI%..... .....|
00000350  f2 73 68 75 74 64 6f 77  6e 0d 01 9a 05 e0 0d 01  |.shutdown.......|
00000360  a4 05 3a 0d 01 ae 10 dd  f2 69 6e 69 74 69 61 6c  |..:......initial|
00000370  69 73 65 0d 01 b8 2e 6d  61 78 77 73 25 3d 26 34  |ise....maxws%=&4|
00000380  30 30 3a de 20 77 73 25  20 6d 61 78 77 73 25 3a  |00:. ws% maxws%:|
00000390  77 73 65 6e 64 25 3d 77  73 25 2b 6d 61 78 77 73  |wsend%=ws%+maxws|
000003a0  25 0d 01 c2 0e de 20 71  31 25 20 36 30 39 36 0d  |%..... q1% 6096.|
000003b0  01 cc 0e de 20 71 32 25  20 38 30 39 36 0d 01 d6  |.... q2% 8096...|
000003c0  2c de 20 6d 65 6e 75 66  72 65 65 25 20 26 33 37  |,. menufree% &37|
000003d0  30 3a 6d 65 6e 75 65 6e  64 25 3d 6d 65 6e 75 66  |0:menuend%=menuf|
000003e0  72 65 65 25 2b 26 33 37  30 0d 01 e0 42 c8 99 22  |ree%+&370...B.."|
000003f0  57 69 6d 70 5f 49 6e 69  74 69 61 6c 69 73 65 22  |Wimp_Initialise"|
00000400  2c 32 30 30 2c 26 34 42  35 33 34 31 35 34 2c 22  |,200,&4B534154,"|
00000410  50 6c 61 79 4d 6f 72 70  68 22 20 b8 20 76 65 72  |PlayMorph" . ver|
00000420  73 69 6f 6e 25 2c 74 61  73 6b 25 0d 01 ea 30 f4  |sion%,task%...0.|
00000430  20 2a 2a 2a 2a 2a 20 61  6e 64 20 69 6e 73 74 61  | ***** and insta|
00000440  6c 6c 20 74 68 65 20 69  63 6f 6e 20 6f 6e 20 74  |ll the icon on t|
00000450  68 65 20 69 63 6f 6e 20  62 61 72 0d 01 f4 3c 21  |he icon bar...<!|
00000460  71 31 25 3d 2d 31 3a 71  31 25 21 34 3d 30 3a 71  |q1%=-1:q1%!4=0:q|
00000470  31 25 21 38 3d 30 3a 71  31 25 21 31 32 3d 36 39  |1%!8=0:q1%!12=69|
00000480  3a 71 31 25 21 31 36 3d  36 38 3a 71 31 25 21 32  |:q1%!16=68:q1%!2|
00000490  30 3d 26 33 30 30 32 0d  01 fe 18 6d 65 6e 75 24  |0=&3002....menu$|
000004a0  3d 22 22 3a 78 30 25 3d  30 3a 79 30 25 3d 30 0d  |="":x0%=0:y0%=0.|
000004b0  02 08 39 24 28 71 31 25  2b 32 34 29 3d 22 21 50  |..9$(q1%+24)="!P|
000004c0  6c 61 79 4d 6f 72 70 68  22 3a c8 99 22 57 69 6d  |layMorph":.."Wim|
000004d0  70 5f 43 72 65 61 74 65  49 63 6f 6e 22 2c 2c 71  |p_CreateIcon",,q|
000004e0  31 25 20 b8 20 69 63 25  0d 02 12 05 3a 0d 02 1c  |1% . ic%....:...|
000004f0  37 c8 99 20 22 57 69 6d  70 5f 4f 70 65 6e 54 65  |7.. "Wimp_OpenTe|
00000500  6d 70 6c 61 74 65 22 2c  2c 22 3c 50 6c 61 79 4d  |mplate",,"<PlayM|
00000510  6f 72 70 68 24 44 69 72  3e 2e 54 65 6d 70 6c 61  |orph$Dir>.Templa|
00000520  74 65 73 22 0d 02 26 3e  c8 99 20 22 57 69 6d 70  |tes"..&>.. "Wimp|
00000530  5f 4c 6f 61 64 54 65 6d  70 6c 61 74 65 22 2c 2c  |_LoadTemplate",,|
00000540  71 32 25 2c 77 73 25 2c  77 73 65 6e 64 25 2c 2d  |q2%,ws%,wsend%,-|
00000550  31 2c 22 69 6e 66 6f 22  2c 30 20 b8 20 2c 2c 77  |1,"info",0 . ,,w|
00000560  73 25 0d 02 30 27 c8 99  20 22 57 69 6d 70 5f 43  |s%..0'.. "Wimp_C|
00000570  72 65 61 74 65 57 69 6e  64 6f 77 22 2c 2c 71 32  |reateWindow",,q2|
00000580  25 20 b8 20 69 6e 66 6f  25 0d 02 3a 3f c8 99 20  |% . info%..:?.. |
00000590  22 57 69 6d 70 5f 4c 6f  61 64 54 65 6d 70 6c 61  |"Wimp_LoadTempla|
000005a0  74 65 22 2c 2c 71 32 25  2c 77 73 25 2c 77 73 65  |te",,q2%,ws%,wse|
000005b0  6e 64 25 2c 2d 31 2c 22  70 6c 61 79 77 22 2c 30  |nd%,-1,"playw",0|
000005c0  20 b8 20 2c 2c 77 73 25  0d 02 44 28 c8 99 20 22  | . ,,ws%..D(.. "|
000005d0  57 69 6d 70 5f 43 72 65  61 74 65 57 69 6e 64 6f  |Wimp_CreateWindo|
000005e0  77 22 2c 2c 71 32 25 20  b8 20 70 6c 61 79 77 25  |w",,q2% . playw%|
000005f0  0d 02 4e 3f c8 99 20 22  57 69 6d 70 5f 4c 6f 61  |..N?.. "Wimp_Loa|
00000600  64 54 65 6d 70 6c 61 74  65 22 2c 2c 71 32 25 2c  |dTemplate",,q2%,|
00000610  77 73 25 2c 77 73 65 6e  64 25 2c 2d 31 2c 22 6c  |ws%,wsend%,-1,"l|
00000620  66 69 6c 65 22 2c 30 20  b8 20 2c 2c 77 73 25 0d  |file",0 . ,,ws%.|
00000630  02 58 28 c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |.X(.. "Wimp_Crea|
00000640  74 65 57 69 6e 64 6f 77  22 2c 2c 71 32 25 20 b8  |teWindow",,q2% .|
00000650  20 6c 66 69 6c 65 25 0d  02 62 3f c8 99 20 22 57  | lfile%..b?.. "W|
00000660  69 6d 70 5f 4c 6f 61 64  54 65 6d 70 6c 61 74 65  |imp_LoadTemplate|
00000670  22 2c 2c 71 32 25 2c 77  73 25 2c 77 73 65 6e 64  |",,q2%,ws%,wsend|
00000680  25 2c 2d 31 2c 22 73 70  65 65 64 22 2c 30 20 b8  |%,-1,"speed",0 .|
00000690  20 2c 2c 77 73 25 0d 02  6c 28 c8 99 20 22 57 69  | ,,ws%..l(.. "Wi|
000006a0  6d 70 5f 43 72 65 61 74  65 57 69 6e 64 6f 77 22  |mp_CreateWindow"|
000006b0  2c 2c 71 32 25 20 b8 20  73 70 65 65 64 25 0d 02  |,,q2% . speed%..|
000006c0  76 3e c8 99 20 22 57 69  6d 70 5f 4c 6f 61 64 54  |v>.. "Wimp_LoadT|
000006d0  65 6d 70 6c 61 74 65 22  2c 2c 71 32 25 2c 77 73  |emplate",,q2%,ws|
000006e0  25 2c 77 73 65 6e 64 25  2c 2d 31 2c 22 7a 6f 6f  |%,wsend%,-1,"zoo|
000006f0  6d 22 2c 30 20 b8 20 2c  2c 77 73 25 0d 02 80 27  |m",0 . ,,ws%...'|
00000700  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 57  |.. "Wimp_CreateW|
00000710  69 6e 64 6f 77 22 2c 2c  71 32 25 20 b8 20 7a 6f  |indow",,q2% . zo|
00000720  6f 6d 25 0d 02 8a 42 c8  99 20 22 57 69 6d 70 5f  |om%...B.. "Wimp_|
00000730  4c 6f 61 64 54 65 6d 70  6c 61 74 65 22 2c 2c 71  |LoadTemplate",,q|
00000740  32 25 2c 77 73 25 2c 77  73 65 6e 64 25 2c 2d 31  |2%,ws%,wsend%,-1|
00000750  2c 22 66 75 6c 6c 69 6e  66 6f 22 2c 30 20 b8 20  |,"fullinfo",0 . |
00000760  2c 2c 77 73 25 0d 02 94  2b c8 99 20 22 57 69 6d  |,,ws%...+.. "Wim|
00000770  70 5f 43 72 65 61 74 65  57 69 6e 64 6f 77 22 2c  |p_CreateWindow",|
00000780  2c 71 32 25 20 b8 20 66  75 6c 6c 69 6e 66 6f 25  |,q2% . fullinfo%|
00000790  0d 02 9e 1b c8 99 20 22  57 69 6d 70 5f 43 6c 6f  |...... "Wimp_Clo|
000007a0  73 65 54 65 6d 70 6c 61  74 65 22 0d 02 a8 05 3a  |seTemplate"....:|
000007b0  0d 02 b2 0b 71 75 69 74  25 3d a3 0d 02 bc 0b 4e  |....quit%=.....N|
000007c0  50 25 3d 33 30 30 0d 02  c6 25 de 20 58 25 28 4e  |P%=300...%. X%(N|
000007d0  50 25 29 2c 59 25 28 4e  50 25 29 2c 41 25 28 4e  |P%),Y%(NP%),A%(N|
000007e0  50 25 29 2c 42 25 28 4e  50 25 29 0d 02 d0 15 de  |P%),B%(NP%).....|
000007f0  20 58 49 28 4e 50 25 29  2c 59 49 28 4e 50 25 29  | XI(NP%),YI(NP%)|
00000800  0d 02 da 0b 44 45 4c 25  3d 32 30 0d 02 e4 0c 66  |....DEL%=20....f|
00000810  69 72 73 74 25 3d 31 0d  02 ee 0c 53 45 43 25 3d  |irst%=1....SEC%=|
00000820  31 30 30 0d 02 f8 12 43  4e 54 25 3d 30 3a 46 43  |100....CNT%=0:FC|
00000830  4e 54 25 3d 30 0d 03 02  09 41 53 25 3d 31 0d 03  |NT%=0....AS%=1..|
00000840  0c 0b 61 6e 69 6d 25 3d  30 0d 03 16 15 6d 61 69  |..anim%=0....mai|
00000850  6e 6d 65 6e 75 25 3d a4  63 72 6d 65 6e 75 0d 03  |nmenu%=.crmenu..|
00000860  20 22 dc 20 22 23 50 6c  61 79 4d 6f 72 70 68 2c  | ". "#PlayMorph,|
00000870  49 6e 66 6f 3e 69 6e 66  6f 25 2c 51 75 69 74 22  |Info>info%,Quit"|
00000880  0d 03 2a 11 6d 69 73 63  25 3d a4 63 72 6d 65 6e  |..*.misc%=.crmen|
00000890  75 0d 03 34 2a dc 20 22  23 4d 69 73 63 2c 49 6e  |u..4*. "#Misc,In|
000008a0  66 6f 3e 69 6e 66 6f 25  2c 4d 6f 72 70 68 20 66  |fo>info%,Morph f|
000008b0  69 6c 65 3e 6c 66 69 6c  65 25 22 0d 03 3e 14 72  |ile>lfile%"..>.r|
000008c0  75 6e 6d 65 6e 75 25 3d  a4 63 72 6d 65 6e 75 0d  |unmenu%=.crmenu.|
000008d0  03 48 5c dc 20 22 23 50  6c 61 79 4d 6f 72 70 68  |.H\. "#PlayMorph|
000008e0  2c 4d 69 73 63 20 3e 6d  69 73 63 25 2c 47 6f 74  |,Misc >misc%,Got|
000008f0  6f 20 66 69 72 73 74 2c  5a 6f 6f 6d 3e 7a 6f 6f  |o first,Zoom>zoo|
00000900  6d 25 2c 53 74 65 70 20  72 61 74 65 20 3e 73 70  |m%,Step rate >sp|
00000910  65 65 64 25 2c 46 75 6c  6c 20 73 63 72 65 65 6e  |eed%,Full screen|
00000920  3e 66 75 6c 6c 69 6e 66  6f 25 22 0d 03 52 05 e1  |>fullinfo%"..R..|
00000930  0d 03 5c 05 3a 0d 03 66  0e dd a4 72 74 6f 7a 28  |..\.:..f...rtoz(|
00000940  70 25 29 0d 03 70 08 ea  20 71 24 0d 03 7a 1e c8  |p%)..p.. q$..z..|
00000950  95 20 3f 70 25 3c 3e 30  20 71 24 2b 3d bd 3f 70  |. ?p%<>0 q$+=.?p|
00000960  25 3a 70 25 2b 3d 31 3a  ce 0d 03 84 07 3d 71 24  |%:p%+=1:.....=q$|
00000970  0d 03 8e 04 0d 03 98 0d  dd f2 72 65 63 65 69 76  |..........receiv|
00000980  65 0d 03 a2 0f c8 8e 20  71 31 25 21 31 36 20 ca  |e...... q1%!16 .|
00000990  0d 03 ac 13 c9 30 3a 20  f2 73 68 75 74 64 6f 77  |.....0: .shutdow|
000009a0  6e 3a e0 0d 03 b6 21 c9  33 3a 20 f4 20 66 69 6c  |n:....!.3: . fil|
000009b0  65 20 64 72 6f 70 70 65  64 20 66 72 6f 6d 20 46  |e dropped from F|
000009c0  69 6c 65 72 0d 03 c0 15  66 69 6c 65 5f 74 79 70  |iler....file_typ|
000009d0  65 25 3d 71 31 25 21 34  30 0d 03 ca 1f e7 20 66  |e%=q1%!40..... f|
000009e0  69 6c 65 5f 74 79 70 65  25 3c 3e 26 37 45 46 20  |ile_type%<>&7EF |
000009f0  8c 20 e5 20 8d 64 72 43  0d 03 d4 18 66 69 6c 65  |. . .drC....file|
00000a00  31 24 3d a4 72 74 6f 7a  28 71 31 25 2b 34 34 29  |1$=.rtoz(q1%+44)|
00000a10  0d 03 de 15 f2 4c 6f 61  64 46 69 6c 65 28 66 69  |.....LoadFile(fi|
00000a20  6c 65 31 24 29 0d 03 e8  05 cb 0d 03 f2 05 e1 0d  |le1$)...........|
00000a30  03 fc 04 0d 04 06 13 dd  f2 4c 6f 61 64 46 69 6c  |.........LoadFil|
00000a40  65 28 66 6e 24 29 0d 04  10 0b 41 3d 8e 20 66 6e  |e(fn$)....A=. fn|
00000a50  24 0d 04 1a 0d e8 23 20  41 2c 43 4e 54 25 0d 04  |$.....# A,CNT%..|
00000a60  24 11 e3 20 49 25 3d 31  20 b8 20 43 4e 54 25 0d  |$.. I%=1 . CNT%.|
00000a70  04 2e 24 e8 23 20 41 2c  58 25 28 49 25 29 2c 59  |..$.# A,X%(I%),Y|
00000a80  25 28 49 25 29 2c 41 25  28 49 25 29 2c 42 25 28  |%(I%),A%(I%),B%(|
00000a90  49 25 29 0d 04 38 08 ed  20 49 25 0d 04 42 08 d9  |I%)..8.. I%..B..|
00000aa0  23 20 41 0d 04 4c 14 f2  63 61 6c 63 75 6c 61 74  |# A..L..calculat|
00000ab0  65 5f 61 5f 62 69 74 0d  04 56 09 41 53 25 3d 31  |e_a_bit..V.AS%=1|
00000ac0  0d 04 60 09 5a 54 25 3d  31 0d 04 6a 09 5a 42 25  |..`.ZT%=1..j.ZB%|
00000ad0  3d 32 0d 04 74 0b 61 6e  69 6d 25 3d 31 0d 04 7e  |=2..t.anim%=1..~|
00000ae0  0f 21 71 32 25 3d 70 6c  61 79 77 25 0d 04 88 20  |.!q2%=playw%... |
00000af0  c8 99 22 57 69 6d 70 5f  47 65 74 57 69 6e 64 6f  |.."Wimp_GetWindo|
00000b00  77 53 74 61 74 65 22 2c  2c 71 32 25 0d 04 92 1c  |wState",,q2%....|
00000b10  c8 99 22 57 69 6d 70 5f  4f 70 65 6e 57 69 6e 64  |.."Wimp_OpenWind|
00000b20  6f 77 22 2c 2c 71 32 25  0d 04 9c 19 e3 20 51 51  |ow",,q2%..... QQ|
00000b30  25 3d a9 28 66 6e 24 29  20 b8 20 31 20 88 20 2d  |%=.(fn$) . 1 . -|
00000b40  31 0d 04 a6 3b e7 20 c1  66 6e 24 2c 51 51 25 2c  |1...;. .fn$,QQ%,|
00000b50  31 29 3d 22 2e 22 20 8c  20 66 69 6c 65 6e 61 6d  |1)="." . filenam|
00000b60  65 24 3d c1 66 6e 24 2c  51 51 25 2b 31 2c a9 28  |e$=.fn$,QQ%+1,.(|
00000b70  66 6e 24 29 29 3a e5 20  8d 74 7a 44 0d 04 b0 09  |fn$)):. .tzD....|
00000b80  ed 20 51 51 25 0d 04 ba  20 f2 73 65 74 74 65 78  |. QQ%... .settex|
00000b90  74 28 6c 66 69 6c 65 25  2c 30 2c 66 69 6c 65 6e  |t(lfile%,0,filen|
00000ba0  61 6d 65 24 29 0d 04 c4  1e f2 73 65 74 74 65 78  |ame$).....settex|
00000bb0  74 28 6c 66 69 6c 65 25  2c 31 2c c3 28 43 4e 54  |t(lfile%,1,.(CNT|
00000bc0  25 29 29 0d 04 ce 1a f2  73 65 74 74 65 78 74 28  |%)).....settext(|
00000bd0  73 70 65 65 64 25 2c 32  2c 22 31 22 29 0d 04 d8  |speed%,2,"1")...|
00000be0  19 f2 73 65 74 74 65 78  74 28 7a 6f 6f 6d 25 2c  |..settext(zoom%,|
00000bf0  34 2c 22 31 22 29 0d 04  e2 19 f2 73 65 74 74 65  |4,"1").....sette|
00000c00  78 74 28 7a 6f 6f 6d 25  2c 36 2c 22 32 22 29 0d  |xt(zoom%,6,"2").|
00000c10  04 ec 05 e1 0d 04 f6 05  20 0d 05 00 05 3a 0d 05  |........ ....:..|
00000c20  0a 05 20 0d 05 14 0e dd  f2 73 68 75 74 64 6f 77  |.. ......shutdow|
00000c30  6e 0d 05 1e 0f 24 71 32  25 3d 22 54 41 53 4b 22  |n....$q2%="TASK"|
00000c40  0d 05 28 21 c8 99 22 57  69 6d 70 5f 43 6c 6f 73  |..(!.."Wimp_Clos|
00000c50  65 44 6f 77 6e 22 2c 74  61 73 6b 25 2c 21 71 32  |eDown",task%,!q2|
00000c60  25 0d 05 32 05 e1 0d 05  3c 05 20 0d 05 46 20 dd  |%..2....<. ..F .|
00000c70  f2 67 65 74 6f 72 69 67  69 6e 28 71 31 25 2c f8  |.getorigin(q1%,.|
00000c80  20 78 30 25 2c f8 20 79  30 25 29 0d 05 50 14 78  | x0%,. y0%)..P.x|
00000c90  30 25 3d 71 31 25 21 34  2d 71 31 25 21 32 30 0d  |0%=q1%!4-q1%!20.|
00000ca0  05 5a 15 79 30 25 3d 71  31 25 21 31 36 2d 71 31  |.Z.y0%=q1%!16-q1|
00000cb0  25 21 32 34 0d 05 64 05  e1 0d 05 6e 05 20 0d 05  |%!24..d....n. ..|
00000cc0  78 0c dd f2 52 65 64 72  61 77 0d 05 82 10 71 31  |x...Redraw....q1|
00000cd0  25 21 30 3d 70 6c 61 79  77 25 0d 05 8c 26 c8 99  |%!0=playw%...&..|
00000ce0  22 57 69 6d 70 5f 52 65  64 72 61 77 57 69 6e 64  |"Wimp_RedrawWind|
00000cf0  6f 77 22 2c 2c 71 31 25  20 b8 20 6d 6f 72 65 25  |ow",,q1% . more%|
00000d00  0d 05 96 1b f2 67 65 74  6f 72 69 67 69 6e 28 71  |.....getorigin(q|
00000d10  31 25 2c 78 30 25 2c 79  30 25 29 0d 05 a0 0c c8  |1%,x0%,y0%).....|
00000d20  95 20 6d 6f 72 65 25 0d  05 aa 12 f2 64 72 61 77  |. more%.....draw|
00000d30  28 78 30 25 2c 79 30 25  29 0d 05 b4 26 c8 99 22  |(x0%,y0%)...&.."|
00000d40  57 69 6d 70 5f 47 65 74  52 65 63 74 61 6e 67 6c  |Wimp_GetRectangl|
00000d50  65 22 2c 2c 71 31 25 20  b8 20 6d 6f 72 65 25 0d  |e",,q1% . more%.|
00000d60  05 be 05 ce 0d 05 c8 05  e1 0d 05 d2 13 dd f2 64  |...............d|
00000d70  72 61 77 28 78 30 25 2c  79 30 25 29 0d 05 dc 15  |raw(x0%,y0%)....|
00000d80  f2 73 63 68 6f 6f 73 65  28 22 69 6d 61 67 65 22  |.schoose("image"|
00000d90  29 0d 05 e6 13 f2 73 70  6c 6f 74 28 78 30 25 2c  |).....splot(x0%,|
00000da0  79 30 25 29 0d 05 f0 05  e1 0d 05 fa 0f dd f2 53  |y0%)...........S|
00000db0  70 72 74 44 72 61 77 31  0d 06 04 24 c8 99 20 22  |prtDraw1...$.. "|
00000dc0  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 26 31 30  |OS_SpriteOp",&10|
00000dd0  30 2b 39 2c 73 70 72 69  74 65 73 25 0d 06 0e 22  |0+9,sprites%..."|
00000de0  ec 20 30 2c 30 3a ec 20  36 34 30 2c 35 31 32 3a  |. 0,0:. 640,512:|
00000df0  f2 73 67 65 74 28 22 69  6d 61 67 65 22 29 0d 06  |.sget("image")..|
00000e00  18 05 e1 0d 06 22 0e dd  f2 53 70 72 74 44 72 61  |....."...SprtDra|
00000e10  77 0d 06 2c 09 6d 64 25  3d eb 0d 06 36 3b c8 99  |w..,.md%=...6;..|
00000e20  20 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 26  | "OS_SpriteOp",&|
00000e30  31 30 30 2b 31 35 2c 73  70 72 69 74 65 73 25 2c  |100+15,sprites%,|
00000e40  22 69 6d 61 67 65 22 2c  30 2c 33 32 30 2c 31 32  |"image",0,320,12|
00000e50  38 2c 6d 64 25 0d 06 40  2f c8 99 20 22 4f 53 5f  |8,md%..@/.. "OS_|
00000e60  53 70 72 69 74 65 4f 70  22 2c 26 31 30 30 2b 36  |SpriteOp",&100+6|
00000e70  30 2c 73 70 72 69 74 65  73 25 2c 22 69 6d 61 67  |0,sprites%,"imag|
00000e80  65 22 2c 30 0d 06 4a 47  ec 20 28 28 28 41 25 28  |e",0..JG. (((A%(|
00000e90  31 29 2b 28 58 49 28 31  29 2a 49 25 29 29 29 2a  |1)+(XI(1)*I%)))*|
00000ea0  28 5a 54 25 2f 5a 42 25  29 29 2c 28 28 28 42 25  |(ZT%/ZB%)),(((B%|
00000eb0  28 31 29 2b 28 59 49 28  31 29 2a 49 25 29 29 29  |(1)+(YI(1)*I%)))|
00000ec0  2a 28 5a 54 25 2f 5a 42  25 29 29 0d 06 54 11 e3  |*(ZT%/ZB%))..T..|
00000ed0  20 4a 25 3d 31 20 b8 20  43 4e 54 25 0d 06 5e 49  | J%=1 . CNT%..^I|
00000ee0  df 20 28 28 28 41 25 28  4a 25 29 2b 28 58 49 28  |. (((A%(J%)+(XI(|
00000ef0  4a 25 29 2a 49 25 29 29  29 2a 28 5a 54 25 2f 5a  |J%)*I%)))*(ZT%/Z|
00000f00  42 25 29 29 2c 28 28 42  25 28 4a 25 29 2b 28 59  |B%)),((B%(J%)+(Y|
00000f10  49 28 4a 25 29 2a 49 25  29 29 2a 28 5a 54 25 2f  |I(J%)*I%))*(ZT%/|
00000f20  5a 42 25 29 29 0d 06 68  08 ed 20 4a 25 0d 06 72  |ZB%))..h.. J%..r|
00000f30  29 c8 99 20 22 4f 53 5f  53 70 72 69 74 65 4f 70  |).. "OS_SpriteOp|
00000f40  22 2c 26 31 30 30 2b 36  30 2c 73 70 72 69 74 65  |",&100+60,sprite|
00000f50  73 25 2c 30 2c 30 0d 06  7c 05 e1 0d 06 86 05 3a  |s%,0,0..|......:|
00000f60  0d 06 90 10 dd f2 6d 6f  75 73 65 63 6c 69 63 6b  |......mouseclick|
00000f70  0d 06 9a 0d c8 8e 71 31  25 21 38 20 ca 0d 06 a4  |......q1%!8 ....|
00000f80  34 c9 20 32 3a 20 e7 20  71 31 25 21 31 32 3d 2d  |4. 2: . q1%!12=-|
00000f90  32 20 f2 64 6f 6d 65 6e  75 28 6d 61 69 6e 6d 65  |2 .domenu(mainme|
00000fa0  6e 75 25 2c 71 31 25 21  30 2d 36 34 2c 31 38 34  |nu%,q1%!0-64,184|
00000fb0  29 0d 06 ae 3c 20 20 20  20 20 20 20 20 e7 20 71  |)...<        . q|
00000fc0  31 25 21 31 32 3d 70 6c  61 79 77 25 20 f2 64 6f  |1%!12=playw% .do|
00000fd0  6d 65 6e 75 28 72 75 6e  6d 65 6e 75 25 2c 71 31  |menu(runmenu%,q1|
00000fe0  25 21 30 2d 36 34 2c 71  31 25 21 34 29 0d 06 b8  |%!0-64,q1%!4)...|
00000ff0  1a c9 20 34 3a 20 e7 20  71 31 25 21 31 32 3d 73  |.. 4: . q1%!12=s|
00001000  70 65 65 64 25 20 8c 0d  06 c2 41 20 20 20 20 20  |peed% ....A     |
00001010  20 20 20 e7 20 71 31 25  21 31 36 3d 30 20 80 20  |   . q1%!16=0 . |
00001020  41 53 25 3e 31 20 8c 20  41 53 25 2d 3d 31 3a f2  |AS%>1 . AS%-=1:.|
00001030  73 65 74 74 65 78 74 28  73 70 65 65 64 25 2c 32  |settext(speed%,2|
00001040  2c c3 28 41 53 25 29 29  0d 06 cc 49 20 20 20 20  |,.(AS%))...I    |
00001050  20 20 20 20 e7 20 71 31  25 21 31 36 3d 31 20 80  |    . q1%!16=1 .|
00001060  20 41 53 25 3c 94 28 53  45 43 25 2f 32 29 20 8c  | AS%<.(SEC%/2) .|
00001070  20 41 53 25 2b 3d 31 3a  f2 73 65 74 74 65 78 74  | AS%+=1:.settext|
00001080  28 73 70 65 65 64 25 2c  32 2c c3 28 41 53 25 29  |(speed%,2,.(AS%)|
00001090  29 0d 06 d6 0d 20 20 20  20 20 20 20 20 cd 0d 06  |)....        ...|
000010a0  e0 1c 20 20 20 20 20 20  20 20 e7 20 71 31 25 21  |..        . q1%!|
000010b0  31 32 3d 7a 6f 6f 6d 25  20 8c 0d 06 ea 40 20 20  |12=zoom% ....@  |
000010c0  20 20 20 20 20 20 e7 20  71 31 25 21 31 36 3d 30  |      . q1%!16=0|
000010d0  20 80 20 5a 54 25 3c 38  20 8c 20 5a 54 25 2b 3d  | . ZT%<8 . ZT%+=|
000010e0  31 3a f2 73 65 74 74 65  78 74 28 7a 6f 6f 6d 25  |1:.settext(zoom%|
000010f0  2c 34 2c c3 28 5a 54 25  29 29 0d 06 f4 40 20 20  |,4,.(ZT%))...@  |
00001100  20 20 20 20 20 20 e7 20  71 31 25 21 31 36 3d 31  |      . q1%!16=1|
00001110  20 80 20 5a 54 25 3e 31  20 8c 20 5a 54 25 2d 3d  | . ZT%>1 . ZT%-=|
00001120  31 3a f2 73 65 74 74 65  78 74 28 7a 6f 6f 6d 25  |1:.settext(zoom%|
00001130  2c 34 2c c3 28 5a 54 25  29 29 0d 06 fe 40 20 20  |,4,.(ZT%))...@  |
00001140  20 20 20 20 20 20 e7 20  71 31 25 21 31 36 3d 32  |      . q1%!16=2|
00001150  20 80 20 5a 42 25 3c 38  20 8c 20 5a 42 25 2b 3d  | . ZB%<8 . ZB%+=|
00001160  31 3a f2 73 65 74 74 65  78 74 28 7a 6f 6f 6d 25  |1:.settext(zoom%|
00001170  2c 36 2c c3 28 5a 42 25  29 29 0d 07 08 40 20 20  |,6,.(ZB%))...@  |
00001180  20 20 20 20 20 20 e7 20  71 31 25 21 31 36 3d 33  |      . q1%!16=3|
00001190  20 80 20 5a 42 25 3e 31  20 8c 20 5a 42 25 2d 3d  | . ZB%>1 . ZB%-=|
000011a0  31 3a f2 73 65 74 74 65  78 74 28 7a 6f 6f 6d 25  |1:.settext(zoom%|
000011b0  2c 36 2c c3 28 5a 42 25  29 29 0d 07 12 0d 20 20  |,6,.(ZB%))....  |
000011c0  20 20 20 20 20 20 cd 0d  07 1c 4b 20 20 20 20 20  |      ....K     |
000011d0  20 20 20 e7 20 71 31 25  21 31 32 3d 66 75 6c 6c  |   . q1%!12=full|
000011e0  69 6e 66 6f 25 20 8c 20  65 6e 74 25 3d eb 3a eb  |info% . ent%=.:.|
000011f0  20 30 3a f2 64 69 73 70  6c 61 79 3a c8 99 20 22  | 0:.display:.. "|
00001200  57 69 6d 70 5f 53 65 74  4d 6f 64 65 22 2c 65 6e  |Wimp_SetMode",en|
00001210  74 25 0d 07 26 05 cb 0d  07 30 05 e1 0d 07 3a 05  |t%..&....0....:.|
00001220  3a 0d 07 44 16 dd f2 64  6f 6d 65 6e 75 28 68 25  |:..D...domenu(h%|
00001230  2c 78 25 2c 79 25 29 0d  07 4e 24 6d 65 6e 75 64  |,x%,y%)..N$menud|
00001240  61 74 61 25 3d 68 25 3a  6d 65 6e 75 78 25 3d 78  |ata%=h%:menux%=x|
00001250  25 3a 6d 65 6e 75 79 25  3d 79 25 0d 07 58 22 c8  |%:menuy%=y%..X".|
00001260  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 4d 65  |. "Wimp_CreateMe|
00001270  6e 75 22 2c 2c 68 25 2c  78 25 2c 79 25 0d 07 62  |nu",,h%,x%,y%..b|
00001280  05 e1 0d 07 6c 05 3a 0d  07 76 10 dd f2 6d 65 6e  |....l.:..v...men|
00001290  75 73 65 6c 65 63 74 0d  07 80 13 ea 20 61 24 2c  |uselect..... a$,|
000012a0  69 25 2c 61 64 6a 75 73  74 25 0d 07 8a 35 c8 99  |i%,adjust%...5..|
000012b0  20 22 57 69 6d 70 5f 47  65 74 50 6f 69 6e 74 65  | "Wimp_GetPointe|
000012c0  72 49 6e 66 6f 22 2c 2c  71 32 25 3a 61 64 6a 75  |rInfo",,q2%:adju|
000012d0  73 74 25 3d 28 71 32 25  21 38 20 80 20 31 29 0d  |st%=(q2%!8 . 1).|
000012e0  07 94 38 c8 99 20 22 57  69 6d 70 5f 44 65 63 6f  |..8.. "Wimp_Deco|
000012f0  64 65 4d 65 6e 75 22 2c  2c 6d 65 6e 75 64 61 74  |deMenu",,menudat|
00001300  61 25 2c 71 31 25 2c c4  32 30 30 2c 22 20 22 29  |a%,q1%,.200," ")|
00001310  b8 20 2c 2c 2c 61 24 0d  07 9e 0f e7 20 61 24 3d  |. ,,,a$..... a$=|
00001320  22 22 20 8c 20 e1 0d 07  a8 25 e7 20 61 24 3d 22  |"" . ....%. a$="|
00001330  47 6f 74 6f 20 66 69 72  73 74 22 20 8c 20 41 4e  |Goto first" . AN|
00001340  49 25 3d 31 3a e5 20 8d  44 78 40 0d 07 b2 18 e7  |I%=1:. .Dx@.....|
00001350  20 61 24 3d 22 46 75 6c  6c 20 73 63 72 65 65 6e  | a$="Full screen|
00001360  22 20 8c 0d 07 bc 0a 65  6e 74 25 3d eb 0d 07 c6  |" .....ent%=....|
00001370  06 eb 30 0d 07 d0 0c f2  64 69 73 70 6c 61 79 0d  |..0.....display.|
00001380  07 da 1a c8 99 20 22 57  69 6d 70 5f 53 65 74 4d  |..... "Wimp_SetM|
00001390  6f 64 65 22 2c 65 6e 74  25 0d 07 e4 05 cd 0d 07  |ode",ent%.......|
000013a0  ee 1b e7 20 61 24 3d 22  51 75 69 74 22 20 f2 73  |... a$="Quit" .s|
000013b0  68 75 74 64 6f 77 6e 3a  e0 0d 07 f8 05 e1 0d 08  |hutdown:........|
000013c0  02 05 3a 0d 08 0c 0c dd  a4 63 72 6d 65 6e 75 0d  |..:......crmenu.|
000013d0  08 16 14 ea 20 4d 25 2c  6d 65 6e 75 24 2c 6d 24  |.... M%,menu$,m$|
000013e0  2c 49 25 0d 08 20 0b f3  20 6d 65 6e 75 24 0d 08  |,I%.. .. menu$..|
000013f0  2a 15 c8 95 20 c2 6d 65  6e 75 24 2c 32 29 3d 22  |*... .menu$,2)="|
00001400  2b 2b 22 0d 08 34 09 20  f3 20 6d 24 0d 08 3e 1e  |++"..4. . m$..>.|
00001410  20 6d 65 6e 75 24 3d c0  6d 65 6e 75 24 2c a9 6d  | menu$=.menu$,.m|
00001420  65 6e 75 24 2d 32 29 2b  6d 24 0d 08 48 05 ce 0d  |enu$-2)+m$..H...|
00001430  08 52 16 6d 65 6e 75 70  74 72 25 3d 6d 65 6e 75  |.R.menuptr%=menu|
00001440  66 72 65 65 25 0d 08 5c  08 49 25 3d 30 0d 08 66  |free%..\.I%=0..f|
00001450  3d e7 20 c0 6d 65 6e 75  24 2c 31 29 3d 22 23 22  |=. .menu$,1)="#"|
00001460  20 49 25 3d 31 3a 6d 65  6e 75 74 69 74 6c 65 24  | I%=1:menutitle$|
00001470  3d a4 70 61 72 28 22 2c  22 29 20 8b 20 6d 65 6e  |=.par(",") . men|
00001480  75 74 69 74 6c 65 24 3d  22 22 0d 08 70 18 24 6d  |utitle$=""..p.$m|
00001490  65 6e 75 70 74 72 25 3d  6d 65 6e 75 74 69 74 6c  |enuptr%=menutitl|
000014a0  65 24 0d 08 7a 11 6d 65  6e 75 70 74 72 25 3f 31  |e$..z.menuptr%?1|
000014b0  32 3d 37 0d 08 84 11 6d  65 6e 75 70 74 72 25 3f  |2=7....menuptr%?|
000014c0  31 33 3d 32 0d 08 8e 11  6d 65 6e 75 70 74 72 25  |13=2....menuptr%|
000014d0  3f 31 34 3d 37 0d 08 98  11 6d 65 6e 75 70 74 72  |?14=7....menuptr|
000014e0  25 3f 31 35 3d 31 0d 08  a2 13 6d 65 6e 75 70 74  |%?15=1....menupt|
000014f0  72 25 21 31 36 3d 31 39  36 0d 08 ac 12 6d 65 6e  |r%!16=196....men|
00001500  75 70 74 72 25 21 32 30  3d 34 34 0d 08 b6 11 6d  |uptr%!20=44....m|
00001510  65 6e 75 70 74 72 25 21  32 34 3d 30 0d 08 c0 10  |enuptr%!24=0....|
00001520  6d 65 6e 75 70 74 72 25  2b 3d 32 38 0d 08 ca 17  |menuptr%+=28....|
00001530  6d 61 78 78 25 3d a9 6d  65 6e 75 74 69 74 6c 65  |maxx%=.menutitle|
00001540  24 2d 33 0d 08 d4 05 f5  0d 08 de 14 20 69 74 65  |$-3......... ite|
00001550  6d 24 3d a4 70 61 72 28  22 2c 22 29 0d 08 e8 15  |m$=.par(",")....|
00001560  20 f2 6d 65 6e 75 69 74  65 6d 28 69 74 65 6d 24  | .menuitem(item$|
00001570  29 0d 08 f2 0e fd 20 69  74 65 6d 24 3d 22 22 0d  |)..... item$="".|
00001580  08 fc 10 4d 25 3d 6d 65  6e 75 66 72 65 65 25 0d  |...M%=menufree%.|
00001590  09 06 17 4d 25 21 31 36  3d 28 6d 61 78 78 25 2a  |...M%!16=(maxx%*|
000015a0  38 2b 36 29 2a 32 0d 09  10 16 6d 65 6e 75 66 72  |8+6)*2....menufr|
000015b0  65 65 25 3d 6d 65 6e 75  70 74 72 25 0d 09 1a 07  |ee%=menuptr%....|
000015c0  3d 4d 25 0d 09 24 05 3a  0d 09 2e 15 dd f2 6d 65  |=M%..$.:......me|
000015d0  6e 75 69 74 65 6d 28 74  65 78 74 24 29 0d 09 38  |nuitem(text$)..8|
000015e0  11 ea 20 49 25 2c 46 25  2c 53 25 2c 4c 25 0d 09  |.. I%,F%,S%,L%..|
000015f0  42 30 e7 20 74 65 78 74  24 3d 22 22 20 6d 65 6e  |B0. text$="" men|
00001600  75 70 74 72 25 21 2d 32  34 3d 28 6d 65 6e 75 70  |uptr%!-24=(menup|
00001610  74 72 25 21 2d 32 34 29  84 26 38 30 3a e1 0d 09  |tr%!-24).&80:...|
00001620  4c 0a 46 25 3d 26 30 30  0d 09 56 12 49 25 3d a7  |L.F%=&00..V.I%=.|
00001630  74 65 78 74 24 2c 22 3e  22 29 0d 09 60 0c e7 20  |text$,">")..`.. |
00001640  49 25 3e 30 20 8c 0d 09  6a 14 20 53 24 3d c1 74  |I%>0 ...j. S$=.t|
00001650  65 78 74 24 2c 49 25 2b  31 29 0d 09 74 1c 20 e7  |ext$,I%+1)..t. .|
00001660  20 53 24 3d 22 69 6e 66  6f 25 22 20 8c 20 53 25  | S$="info%" . S%|
00001670  3d 69 6e 66 6f 25 0d 09  7e 1e 20 e7 20 53 24 3d  |=info%..~. . S$=|
00001680  22 6c 66 69 6c 65 25 22  20 8c 20 53 25 3d 6c 66  |"lfile%" . S%=lf|
00001690  69 6c 65 25 0d 09 88 1c  20 e7 20 53 24 3d 22 6d  |ile%.... . S$="m|
000016a0  69 73 63 25 22 20 8c 20  53 25 3d 6d 69 73 63 25  |isc%" . S%=misc%|
000016b0  0d 09 92 1c 20 e7 20 53  24 3d 22 7a 6f 6f 6d 25  |.... . S$="zoom%|
000016c0  22 20 8c 20 53 25 3d 7a  6f 6f 6d 25 0d 09 9c 1e  |" . S%=zoom%....|
000016d0  20 e7 20 53 24 3d 22 73  70 65 65 64 25 22 20 8c  | . S$="speed%" .|
000016e0  20 53 25 3d 73 70 65 65  64 25 0d 09 a6 24 20 e7  | S%=speed%...$ .|
000016f0  20 53 24 3d 22 66 75 6c  6c 69 6e 66 6f 25 22 20  | S$="fullinfo%" |
00001700  8c 20 53 25 3d 66 75 6c  6c 69 6e 66 6f 25 0d 09  |. S%=fullinfo%..|
00001710  b0 17 20 74 65 78 74 24  3d c0 74 65 78 74 24 2c  |.. text$=.text$,|
00001720  49 25 2d 31 29 0d 09 ba  05 cc 0d 09 c4 0a 20 53  |I%-1)......... S|
00001730  25 3d 2d 31 0d 09 ce 05  cd 0d 09 d8 29 e7 20 c2  |%=-1........). .|
00001740  74 65 78 74 24 2c 31 29  3d 22 23 22 20 74 65 78  |text$,1)="#" tex|
00001750  74 24 3d c0 74 65 78 74  24 29 3a 46 25 2b 3d 26  |t$=.text$):F%+=&|
00001760  30 32 0d 09 e2 29 e7 20  c2 74 65 78 74 24 2c 31  |02...). .text$,1|
00001770  29 3d 22 40 22 20 74 65  78 74 24 3d c0 74 65 78  |)="@" text$=.tex|
00001780  74 24 29 3a 46 25 2b 3d  26 30 38 0d 09 ec 11 6d  |t$):F%+=&08....m|
00001790  65 6e 75 70 74 72 25 21  30 3d 46 25 0d 09 f6 11  |enuptr%!0=F%....|
000017a0  6d 65 6e 75 70 74 72 25  21 34 3d 53 25 0d 0a 00  |menuptr%!4=S%...|
000017b0  18 6d 65 6e 75 70 74 72  25 21 38 3d 26 30 37 30  |.menuptr%!8=&070|
000017c0  30 30 30 32 31 0d 0a 0a  15 e7 20 c0 74 65 78 74  |00021..... .text|
000017d0  24 2c 31 29 3d 22 24 22  20 8c 0d 0a 14 13 20 21  |$,1)="$" ..... !|
000017e0  6d 65 6e 75 70 74 72 25  2b 3d 26 30 34 0d 0a 1e  |menuptr%+=&04...|
000017f0  15 20 6d 65 6e 75 70 74  72 25 21 38 2b 3d 26 31  |. menuptr%!8+=&1|
00001800  30 30 0d 0a 28 13 20 49  25 3d a7 74 65 78 74 24  |00..(. I%=.text$|
00001810  2c 22 28 22 29 0d 0a 32  0d 20 e7 20 49 25 3e 30  |,"(")..2. . I%>0|
00001820  20 8c 0d 0a 3c 1d 20 f4  20 4c 25 3d 56 41 4c 4d  | ...<. . L%=VALM|
00001830  49 44 24 28 74 65 78 74  24 2c 49 25 2b 31 29 0d  |ID$(text$,I%+1).|
00001840  0a 46 18 20 20 74 65 78  74 24 3d c0 74 65 78 74  |.F.  text$=.text|
00001850  24 2c 49 25 2d 31 29 0d  0a 50 06 20 cc 0d 0a 5a  |$,I%-1)..P. ...Z|
00001860  0b 20 20 4c 25 3d 31 32  0d 0a 64 06 20 cd 0d 0a  |.  L%=12..d. ...|
00001870  6e 11 20 4d 24 3d c1 74  65 78 74 24 2c 32 29 0d  |n. M$=.text$,2).|
00001880  0a 78 16 20 6d 65 6e 75  70 74 72 25 21 31 32 3d  |.x. menuptr%!12=|
00001890  bb 28 4d 24 29 0d 0a 82  13 20 6d 65 6e 75 70 74  |.(M$).... menupt|
000018a0  72 25 21 31 36 3d 2d 31  0d 0a 8c 13 20 6d 65 6e  |r%!16=-1.... men|
000018b0  75 70 74 72 25 21 32 30  3d 4c 25 0d 0a 96 11 20  |uptr%!20=L%.... |
000018c0  e7 4c 25 3e 31 36 20 4c  25 3d 31 36 0d 0a a0 13  |.L%>16 L%=16....|
000018d0  20 74 65 78 74 24 3d c4  4c 25 2c 22 20 22 29 0d  | text$=.L%," ").|
000018e0  0a aa 05 cc 0d 0a b4 11  20 e7 a9 74 65 78 74 24  |........ ..text$|
000018f0  3c 3d 31 32 8c 0d 0a be  1a 20 20 24 28 6d 65 6e  |<=12.....  $(men|
00001900  75 70 74 72 25 2b 31 32  29 3d 74 65 78 74 24 0d  |uptr%+12)=text$.|
00001910  0a c8 06 20 cc 0d 0a d2  27 20 20 49 25 3d a4 77  |... ....'  I%=.w|
00001920  6f 72 6b 73 70 61 63 65  28 a9 74 65 78 74 24 2b  |orkspace(.text$+|
00001930  31 29 3a 24 49 25 3d 74  65 78 74 24 0d 0a dc 38  |1):$I%=text$...8|
00001940  20 20 6d 65 6e 75 70 74  72 25 21 31 32 3d 49 25  |  menuptr%!12=I%|
00001950  3a 6d 65 6e 75 70 74 72  25 21 31 36 3d 2d 31 3a  |:menuptr%!16=-1:|
00001960  6d 65 6e 75 70 74 72 25  21 32 30 3d a9 74 65 78  |menuptr%!20=.tex|
00001970  74 24 2b 31 0d 0a e6 22  20 20 6d 65 6e 75 70 74  |t$+1..."  menupt|
00001980  72 25 21 38 3d 6d 65 6e  75 70 74 72 25 21 38 20  |r%!8=menuptr%!8 |
00001990  84 20 26 31 30 30 0d 0a  f0 06 20 cd 0d 0a fa 05  |. &100.... .....|
000019a0  cd 0d 0b 04 1f e7 20 a9  74 65 78 74 24 3e 6d 61  |...... .text$>ma|
000019b0  78 78 25 20 6d 61 78 78  25 3d a9 74 65 78 74 24  |xx% maxx%=.text$|
000019c0  0d 0b 0e 10 6d 65 6e 75  70 74 72 25 2b 3d 32 34  |....menuptr%+=24|
000019d0  0d 0b 18 05 e1 0d 0b 22  05 3a 0d 0b 2c 0f dd a4  |.......".:..,...|
000019e0  70 61 72 28 73 65 70 24  29 0d 0b 36 08 ea 20 4c  |par(sep$)..6.. L|
000019f0  25 0d 0b 40 0b 4c 25 3d  49 25 2b 31 0d 0b 4a 1b  |%..@.L%=I%+1..J.|
00001a00  49 25 3d a7 6d 65 6e 75  24 2b 73 65 70 24 2c 73  |I%=.menu$+sep$,s|
00001a10  65 70 24 2c 4c 25 29 0d  0b 54 15 3d c1 6d 65 6e  |ep$,L%)..T.=.men|
00001a20  75 24 2c 4c 25 2c 49 25  2d 4c 25 29 0d 0b 5e 05  |u$,L%,I%-L%)..^.|
00001a30  3a 0d 0b 68 13 dd a4 77  6f 72 6b 73 70 61 63 65  |:..h...workspace|
00001a40  28 4c 25 29 0d 0b 72 0e  63 75 72 77 73 25 2b 3d  |(L%)..r.curws%+=|
00001a50  4c 25 0d 0b 7c 0e 3d 63  75 72 77 73 25 2d 4c 25  |L%..|.=curws%-L%|
00001a60  0d 0b 86 05 3a 0d 0b 90  0b dd f2 65 72 72 6f 72  |....:......error|
00001a70  0d 0b 9a 0d f2 73 68 75  74 64 6f 77 6e 0d 0b a4  |.....shutdown...|
00001a80  16 f1 20 f6 24 3b 22 20  61 74 20 6c 69 6e 65 20  |.. .$;" at line |
00001a90  22 3b 9e 0d 0b ae 05 e1  0d 0b b8 05 3a 0d 0b c2  |";..........:...|
00001aa0  0f dd a4 77 69 6d 70 65  72 72 6f 72 0d 0b cc 10  |...wimperror....|
00001ab0  73 61 6d 70 6e 61 6d 65  24 3d 22 22 0d 0b d6 0a  |sampname$=""....|
00001ac0  21 71 32 25 3d 9f 0d 0b  e0 17 24 28 71 32 25 2b  |!q2%=.....$(q2%+|
00001ad0  34 29 3d f6 24 2b c3 28  9e 29 2b bd 30 0d 0b ea  |4)=.$+.(.)+.0...|
00001ae0  37 c8 99 22 57 69 6d 70  5f 52 65 70 6f 72 74 45  |7.."Wimp_ReportE|
00001af0  72 72 6f 72 22 2c 71 32  25 2c 33 2c 22 50 6c 61  |rror",q2%,3,"Pla|
00001b00  79 4d 6f 72 70 68 22 20  b8 20 2c 72 65 73 70 6f  |yMorph" . ,respo|
00001b10  6e 73 65 25 0d 0b f4 22  e7 20 72 65 73 70 6f 6e  |nse%...". respon|
00001b20  73 65 25 3d 31 20 8c 20  f2 73 68 75 74 64 6f 77  |se%=1 . .shutdow|
00001b30  6e 3a 3d b9 20 8b 0d 0b  fe 06 3d a3 0d 0c 08 15  |n:=. .....=.....|
00001b40  dd f2 63 61 6c 63 75 6c  61 74 65 5f 61 5f 62 69  |..calculate_a_bi|
00001b50  74 0d 0c 12 11 e3 20 49  25 3d 31 20 b8 20 43 4e  |t..... I%=1 . CN|
00001b60  54 25 0d 0c 1c 21 58 49  28 49 25 29 3d 28 28 58  |T%...!XI(I%)=((X|
00001b70  25 28 49 25 29 2d 41 25  28 49 25 29 29 2f 53 45  |%(I%)-A%(I%))/SE|
00001b80  43 25 29 0d 0c 26 21 59  49 28 49 25 29 3d 28 28  |C%)..&!YI(I%)=((|
00001b90  59 25 28 49 25 29 2d 42  25 28 49 25 29 29 2f 53  |Y%(I%)-B%(I%))/S|
00001ba0  45 43 25 29 0d 0c 30 08  ed 20 49 25 0d 0c 3a 05  |EC%)..0.. I%..:.|
00001bb0  e1 0d 0c 44 12 20 dd f2  73 63 68 6f 6f 73 65 28  |...D. ..schoose(|
00001bc0  6e 24 29 0d 0c 4e 0f 20  63 68 6f 73 65 6e 24 3d  |n$)..N. chosen$=|
00001bd0  6e 24 0d 0c 58 29 20 c8  99 20 22 4f 53 5f 53 70  |n$..X) .. "OS_Sp|
00001be0  72 69 74 65 4f 70 22 2c  26 31 30 30 2b 32 34 2c  |riteOp",&100+24,|
00001bf0  73 70 72 69 74 65 73 25  2c 6e 24 0d 0c 62 06 20  |sprites%,n$..b. |
00001c00  e1 0d 0c 6c 0f 20 dd f2  73 67 65 74 28 6e 24 29  |...l. ..sget(n$)|
00001c10  0d 0c 76 25 20 c8 99 20  22 4f 53 5f 53 70 72 69  |..v% .. "OS_Spri|
00001c20  74 65 4f 70 22 2c 26 31  30 30 2b 39 2c 73 70 72  |teOp",&100+9,spr|
00001c30  69 74 65 73 25 0d 0c 80  19 20 73 70 72 69 74 65  |ites%.... sprite|
00001c40  73 25 21 30 3d 73 70 72  69 74 65 6c 65 6e 0d 0c  |s%!0=spritelen..|
00001c50  8a 12 20 73 70 72 69 74  65 73 25 21 38 3d 31 36  |.. sprites%!8=16|
00001c60  0d 0c 94 25 20 c8 99 20  22 4f 53 5f 53 70 72 69  |...% .. "OS_Spri|
00001c70  74 65 4f 70 22 2c 26 31  30 30 2b 39 2c 73 70 72  |teOp",&100+9,spr|
00001c80  69 74 65 73 25 0d 0c 9e  2b 20 c8 99 20 22 4f 53  |ites%...+ .. "OS|
00001c90  5f 53 70 72 69 74 65 4f  70 22 2c 26 31 30 30 2b  |_SpriteOp",&100+|
00001ca0  31 34 2c 73 70 72 69 74  65 73 25 2c 6e 24 2c 30  |14,sprites%,n$,0|
00001cb0  0d 0c a8 06 20 e1 0d 0c  b2 13 20 dd f2 73 70 6c  |.... ..... ..spl|
00001cc0  6f 74 28 78 25 2c 79 25  29 0d 0c bc 0c 20 ec 20  |ot(x%,y%).... . |
00001cd0  78 25 2c 79 25 0d 0c c6  32 20 c8 99 20 22 4f 53  |x%,y%...2 .. "OS|
00001ce0  5f 53 70 72 69 74 65 4f  70 22 2c 26 31 30 30 2b  |_SpriteOp",&100+|
00001cf0  32 38 2c 73 70 72 69 74  65 73 25 2c 63 68 6f 73  |28,sprites%,chos|
00001d00  65 6e 24 2c 2c 2c 30 0d  0c d0 06 20 e1 0d 0c da  |en$,,,0.... ....|
00001d10  12 20 dd f2 53 65 74 47  72 61 70 68 69 63 73 0d  |. ..SetGraphics.|
00001d20  0c e4 16 20 73 70 72 69  74 65 6c 65 6e 3d 34 35  |... spritelen=45|
00001d30  2a 31 30 32 34 0d 0c ee  19 20 de 20 73 70 72 69  |*1024.... . spri|
00001d40  74 65 73 25 20 73 70 72  69 74 65 6c 65 6e 0d 0c  |tes% spritelen..|
00001d50  f8 19 20 73 70 72 69 74  65 73 25 21 30 3d 73 70  |.. sprites%!0=sp|
00001d60  72 69 74 65 6c 65 6e 0d  0d 02 12 20 73 70 72 69  |ritelen.... spri|
00001d70  74 65 73 25 21 38 3d 31  36 0d 0d 0c 25 20 c8 99  |tes%!8=16...% ..|
00001d80  20 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 26  | "OS_SpriteOp",&|
00001d90  31 30 30 2b 39 2c 73 70  72 69 74 65 73 25 0d 0d  |100+9,sprites%..|
00001da0  16 06 20 e1 0d 0d 20 20  dd 20 f2 73 65 74 74 65  |.. ...  . .sette|
00001db0  78 74 28 77 69 6e 64 6f  77 25 2c 69 63 6f 6e 25  |xt(window%,icon%|
00001dc0  2c 61 24 29 0d 0d 2a 3a  71 32 25 21 30 3d 77 69  |,a$)..*:q2%!0=wi|
00001dd0  6e 64 6f 77 25 3a 71 32  25 21 34 3d 69 63 6f 6e  |ndow%:q2%!4=icon|
00001de0  25 3a c8 99 20 22 57 69  6d 70 5f 47 65 74 49 63  |%:.. "Wimp_GetIc|
00001df0  6f 6e 53 74 61 74 65 22  2c 30 2c 71 32 25 0d 0d  |onState",0,q2%..|
00001e00  34 3e 24 28 71 32 25 21  32 38 29 3d 61 24 3a 71  |4>$(q2%!28)=a$:q|
00001e10  32 25 21 38 3d 30 3a 71  32 25 21 31 32 3d 30 3a  |2%!8=0:q2%!12=0:|
00001e20  c8 99 20 22 57 69 6d 70  5f 53 65 74 49 63 6f 6e  |.. "Wimp_SetIcon|
00001e30  53 74 61 74 65 22 2c 30  2c 71 32 25 0d 0d 3e 24  |State",0,q2%..>$|
00001e40  c8 99 20 22 57 69 6d 70  5f 47 65 74 43 61 72 65  |.. "Wimp_GetCare|
00001e50  74 50 6f 73 69 74 69 6f  6e 22 2c 30 2c 71 32 25  |tPosition",0,q2%|
00001e60  0d 0d 48 05 e1 0d 0d 52  1b 20 dd f2 61 6e 69 6d  |..H....R. ..anim|
00001e70  61 74 65 28 42 45 25 2c  45 4e 25 2c 53 50 25 29  |ate(BE%,EN%,SP%)|
00001e80  0d 0d 5c 1b 20 e3 20 49  25 3d 42 45 25 20 b8 20  |..\. . I%=BE% . |
00001e90  45 4e 25 2d 31 20 88 20  53 50 25 0d 0d 66 25 20  |EN%-1 . SP%..f% |
00001ea0  42 41 4e 4b 25 3d 42 41  4e 4b 25 20 82 20 33 3a  |BANK%=BANK% . 3:|
00001eb0  c8 99 20 36 2c 31 31 32  2c 42 41 4e 4b 25 3a db  |.. 6,112,BANK%:.|
00001ec0  0d 0d 70 32 20 ec 20 28  41 25 28 31 29 2b 28 58  |..p2 . (A%(1)+(X|
00001ed0  49 28 31 29 2a 49 25 29  29 2a 4f 54 2c 28 42 25  |I(1)*I%))*OT,(B%|
00001ee0  28 31 29 2b 28 59 49 28  31 29 2a 49 25 29 29 2a  |(1)+(YI(1)*I%))*|
00001ef0  4f 54 0d 0d 7a 12 20 e3  20 4a 25 3d 31 20 b8 20  |OT..z. . J%=1 . |
00001f00  43 4e 54 25 0d 0d 84 36  20 df 20 28 41 25 28 4a  |CNT%...6 . (A%(J|
00001f10  25 29 2b 28 58 49 28 4a  25 29 2a 49 25 29 29 2a  |%)+(XI(J%)*I%))*|
00001f20  4f 54 2c 28 42 25 28 4a  25 29 2b 28 59 49 28 4a  |OT,(B%(J%)+(YI(J|
00001f30  25 29 2a 49 25 29 29 2a  4f 54 0d 0d 8e 09 20 ed  |%)*I%))*OT.... .|
00001f40  20 4a 25 0d 0d 98 16 20  c8 99 20 36 2c 31 31 33  | J%.... .. 6,113|
00001f50  2c 42 41 4e 4b 25 3a c8  96 0d 0d a2 31 20 42 55  |,BANK%:.....1 BU|
00001f60  54 25 3d 30 3a c8 97 20  58 50 4f 53 25 2c 59 50  |T%=0:.. XPOS%,YP|
00001f70  4f 53 25 2c 42 55 54 25  3a e7 20 42 55 54 25 3d  |OS%,BUT%:. BUT%=|
00001f80  32 20 45 58 49 54 3d b9  3a e1 0d 0d ac 10 20 e7  |2 EXIT=.:..... .|
00001f90  20 42 55 54 25 3c 3e 30  20 8c 0d 0d b6 33 20 e7  | BUT%<>0 ....3 .|
00001fa0  20 42 55 54 25 3d 31 20  80 20 49 25 3e 42 45 25  | BUT%=1 . I%>BE%|
00001fb0  2b 53 50 25 20 80 20 42  45 25 3d 31 20 8c 20 49  |+SP% . BE%=1 . I|
00001fc0  25 2d 3d 53 50 25 3a e5  20 8d 44 66 4d 0d 0d c0  |%-=SP%:. .DfM...|
00001fd0  35 20 e7 20 42 55 54 25  3d 34 20 80 20 49 25 3c  |5 . BUT%=4 . I%<|
00001fe0  45 4e 25 2d 53 50 25 2d  31 20 80 20 42 45 25 3d  |EN%-SP%-1 . BE%=|
00001ff0  31 20 8c 20 49 25 2b 3d  53 50 25 3a e5 20 8d 44  |1 . I%+=SP%:. .D|
00002000  66 4d 0d 0d ca 36 20 e7  20 42 55 54 25 3d 34 20  |fM...6 . BUT%=4 |
00002010  80 20 49 25 3c 42 45 25  2b 53 50 25 20 80 20 42  |. I%<BE%+SP% . B|
00002020  45 25 3d 53 45 43 25 20  8c 20 49 25 2d 3d 53 50  |E%=SEC% . I%-=SP|
00002030  25 3a e5 20 8d 44 66 4d  0d 0d d4 38 20 e7 20 42  |%:. .DfM...8 . B|
00002040  55 54 25 3d 31 20 80 20  49 25 3e 45 4e 25 2d 53  |UT%=1 . I%>EN%-S|
00002050  50 25 2d 31 20 80 20 42  45 25 3d 53 45 43 25 20  |P%-1 . BE%=SEC% |
00002060  8c 20 49 25 2b 3d 53 50  25 3a e5 20 8d 44 66 4d  |. I%+=SP%:. .DfM|
00002070  0d 0d de 06 20 cd 0d 0d  e8 0c 20 41 24 3d bf 28  |.... ..... A$=.(|
00002080  31 29 0d 0d f2 0f 20 e7  20 41 24 3c 3e 22 22 20  |1).... . A$<>"" |
00002090  8c 0d 0d fc 2a 20 e7 20  a6 2d 35 38 20 80 20 53  |....* . .-58 . S|
000020a0  50 25 3c 53 45 43 25 2f  32 20 8c 20 53 50 25 2b  |P%<SEC%/2 . SP%+|
000020b0  3d 31 3a 41 41 53 25 3d  53 50 25 0d 0e 06 25 20  |=1:AAS%=SP%...% |
000020c0  e7 20 a6 2d 34 32 20 80  20 53 50 25 3e 31 20 8c  |. .-42 . SP%>1 .|
000020d0  20 53 50 25 2d 3d 31 3a  41 41 53 25 3d 53 50 25  | SP%-=1:AAS%=SP%|
000020e0  0d 0e 10 1d 20 e7 20 a6  2d 32 36 20 80 20 4f 54  |.... . .-26 . OT|
000020f0  3e 2e 31 20 8c 20 4f 54  2d 3d 2e 30 35 0d 0e 1a  |>.1 . OT-=.05...|
00002100  1d 20 e7 20 a6 2d 31 32  32 20 80 20 4f 54 3c 34  |. . .-122 . OT<4|
00002110  20 8c 20 4f 54 2b 3d 2e  30 35 0d 0e 24 15 20 e7  | . OT+=.05..$. .|
00002120  20 a6 2d 31 31 33 20 45  58 49 54 3d b9 3a e1 0d  | .-113 EXIT=.:..|
00002130  0e 2e 0f 20 e7 20 41 24  3d 22 20 22 20 8c 0d 0e  |... . A$=" " ...|
00002140  38 06 20 f5 0d 0e 42 0c  20 41 24 3d bf 28 31 29  |8. ...B. A$=.(1)|
00002150  0d 0e 4c 13 20 c8 97 20  50 50 25 2c 57 57 25 2c  |..L. .. PP%,WW%,|
00002160  45 45 25 0d 0e 56 16 20  fd 20 45 45 25 3c 3e 30  |EE%..V. . EE%<>0|
00002170  20 84 20 41 24 3d 22 20  22 0d 0e 60 06 20 cd 0d  | . A$=" "..`. ..|
00002180  0e 6a 06 20 cd 0d 0e 74  09 20 ed 20 49 25 0d 0e  |.j. ...t. . I%..|
00002190  7e 06 20 e1 0d 0e 88 0e  20 dd f2 64 69 73 70 6c  |~. ..... ..displ|
000021a0  61 79 0d 0e 92 1a 20 41  41 53 25 3d 41 53 25 3a  |ay.... AAS%=AS%:|
000021b0  4f 54 3d 28 5a 54 25 2f  5a 42 25 29 0d 0e 9c 3e  |OT=(ZT%/ZB%)...>|
000021c0  20 4f 4f 58 25 3d 33 32  30 2d 28 28 28 5a 54 25  | OOX%=320-(((ZT%|
000021d0  2f 5a 42 25 29 2a 33 32  30 29 2f 32 29 3a 4f 4f  |/ZB%)*320)/2):OO|
000021e0  59 25 3d 32 35 36 2d 28  28 28 5a 54 25 2f 5a 42  |Y%=256-(((ZT%/ZB|
000021f0  25 29 2a 32 35 36 29 2f  32 29 0d 0e a6 16 20 f4  |%)*256)/2).... .|
00002200  4f 52 49 47 49 4e 20 4f  4f 58 25 2c 4f 4f 59 25  |ORIGIN OOX%,OOY%|
00002210  0d 0e b0 0b 20 45 58 49  54 3d a3 0d 0e ba 09 20  |.... EXIT=..... |
00002220  c8 97 20 87 0d 0e c4 06  20 f5 0d 0e ce 1d 20 f2  |.. ..... ..... .|
00002230  61 6e 69 6d 61 74 65 28  31 2c 53 45 43 25 2c 94  |animate(1,SEC%,.|
00002240  28 41 41 53 25 29 29 0d  0e d8 2b 20 e7 20 45 58  |(AAS%))...+ . EX|
00002250  49 54 3d a3 20 f2 61 6e  69 6d 61 74 65 28 53 45  |IT=. .animate(SE|
00002260  43 25 2c 32 2c 94 28 41  41 53 25 29 2a 28 2d 31  |C%,2,.(AAS%)*(-1|
00002270  29 29 0d 0e e2 0d 20 fd  20 45 58 49 54 3d b9 0d  |)).... . EXIT=..|
00002280  0e ec 09 20 c8 97 20 ee  0d 0e f6 18 20 c8 97 20  |... .. ..... .. |
00002290  c8 93 20 30 2c 30 2c 31  32 37 39 2c 31 30 32 33  |.. 0,0,1279,1023|
000022a0  0d 0f 00 09 20 4f 4b 3d  b9 0d 0f 0a 0b 20 c8 91  |.... OK=..... ..|
000022b0  20 30 2c 30 0d 0f 14 06  20 e1 0d 0f 1e 04 0d 0f  | 0,0.... .......|
000022c0  28 0e dd f2 61 75 74 6f  6c 6f 61 64 0d 0f 32 09  |(...autoload..2.|
000022d0  63 24 3d 22 22 0d 0f 3c  17 c8 99 20 22 4f 53 5f  |c$=""..<... "OS_|
000022e0  47 65 74 45 6e 76 22 20  b8 20 63 24 0d 0f 46 09  |GetEnv" . c$..F.|
000022f0  61 24 3d 63 24 0d 0f 50  1b 70 3d a7 63 24 2c 22  |a$=c$..P.p=.c$,"|
00002300  22 22 22 2c a7 63 24 2c  22 22 22 22 29 2b 31 29  |""",.c$,"""")+1)|
00002310  0d 0f 5a 0f 63 24 3d c1  63 24 2c 70 2b 31 29 0d  |..Z.c$=.c$,p+1).|
00002320  0f 64 11 c8 95 20 c0 63  24 2c 31 29 3d 22 20 22  |.d... .c$,1)=" "|
00002330  0d 0f 6e 0d 63 24 3d c1  63 24 2c 32 29 0d 0f 78  |..n.c$=.c$,2)..x|
00002340  05 ce 0d 0f 82 05 e1 0d  ff                       |.........|
00002349