� ><Morph$Dir>.!runimage
X� ON ERROR PROCerror:OSCLI "CLOSE":GOTO 290:REM HAS TO GOTO LINE WHICH SAYS PROCpoll
&� � � �wimperror:�CloseFile:� �DF@
(�initialise_variables
2
�Initwimp
<�initagain
F	�poll
P :
Z��PutIcon(i$)
d!q1%=-1:q1%!4=iconh%
nș "Wimp_DeleteIcon",,q1%
x<!q1%=-1:q1%!4=0:q1%!8=0:q1%!12=69:q1%!16=68:q1%!20=&3002
�/$(q1%+24)=i$:ș"Wimp_CreateIcon",,q1% � ic%
�iconh%=ic%
��
�
���Initwimp
�/maxws%=&5400:� ws% maxws%:wsend%=ws%+maxws%
�
� q1% 256
�� q2% 1192
�� editbuffer 200
�,� menufree% &370:menuend%=menufree%+&370
�Dș"Wimp_Initialise",200,&4B534154,"Morph" � version%,taskhandle%
�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

5$(q1%+24)="!Morph":ș"Wimp_CreateIcon",,q1% � ic%

iconh%=ic%

cd%=1:fill%=0

"3ș "Wimp_OpenTemplate",,"<Morph$Dir>.Templates"

,>ș "Wimp_LoadTemplate",,q2%,ws%,wsend%,-1,"info",0 � ,,ws%

6'ș "Wimp_CreateWindow",,q2% � info%

@@ș "Wimp_LoadTemplate",,q2%,ws%,wsend%,-1,"saveas",0 � ,,ws%

J)ș "Wimp_CreateWindow",,q2% � saveas%

T>ș "Wimp_LoadTemplate",,q2%,ws%,wsend%,-1,"pic1",0 � ,,ws%

^'ș "Wimp_CreateWindow",,q2% � pic1%

h>ș "Wimp_LoadTemplate",,q2%,ws%,wsend%,-1,"pic2",0 � ,,ws%

r'ș "Wimp_CreateWindow",,q2% � pic2%

|Bș "Wimp_LoadTemplate",,q2%,ws%,wsend%,-1,"fileinfo",0 � ,,ws%

�+ș "Wimp_CreateWindow",,q2% � fileinfo%

�Aș "Wimp_LoadTemplate",,q2%,ws%,wsend%,-1,"aniinfo",0 � ,,ws%

�*ș "Wimp_CreateWindow",,q2% � aniinfo%

�filename%=q1%!(88+64+20)

�ș "Wimp_CloseTemplate"

�fmode%=1

�quit%=�

�
� �d`A

�mainmenu%=�crmenu

�-� "#Morph,Info >info%,Save >saveas%,Quit"

�
� �d~A

�misc%=�crmenu

�'� "#Misc,Info>info%,File>fileinfo%"

� �T\B
drawmenu1%=�crmenu
I� "#Morph,Misc>misc%,Animate>aniinfo%,No Fill,Save>saveas%,Clear All"
&
� �TzB
0drawmenu2%=�crmenu
:I� "#Morph,Misc>misc%,Animate>aniinfo%,Fill On,Save>saveas%,Clear All"
D�
N :
Xݤrtoz(p%)
b� q$
lȕ ?p%<>0 q$+=�?p%:p%+=1:�
v=q$
� 
���receive(r%)
�� LOCAL ERROR
�� ON ERROR LOCAL ENDPROC
�Ȏ q1%!16 �
��0: �shutdown
�� 2:�DataSave
�%� 3: ș"Wimp_GetPointerInfo",,q2%
�file_type%=q1%!40
�file1$=�rtoz(q1%+44)
�just$=""
�� file_type%<>&7ef � � �tNC
�� QQQ%=�(file1$) � 1 � -1
 � �file1$,QQQ%,1)="." � �TVC

� QQQ%
just$=�file1$,QQQ%+1)
 �load_pics(file1$)
*!q1%=pic1%
4!ș "Wimp_GetWindowState",,q1%
>ș "Wimp_OpenWindow",,q1%
H!q1%=pic2%
R!ș "Wimp_GetWindowState",,q1%
\ș "Wimp_OpenWindow",,q1%
f �settext(fileinfo%,3,file1$)
p1�settext(fileinfo%,4,�(CNT%+FCNT%)+" points")
z+ș "Wimp_ForceRedraw",pic1%,0,0,640,512
�+ș "Wimp_ForceRedraw",pic2%,0,0,640,512
��
��
�:
���shutdown
�$q2%="TASK"
�'ș"Wimp_CloseDown",taskhandle%,!q2%
��
��
� 
� ��getorigin(q1%,� x0%,� y0%)
�x0%=q1%!4-q1%!20
�y0%=q1%!16-q1%!24
�
 
��Redraw
$q1%!0=pic1%
.&ș"Wimp_RedrawWindow",,q1% � more%
8�getorigin(q1%,x0%,y0%)
Bȕ more%
L�drawpic1(x0%,y0%)
V&ș"Wimp_GetRectangle",,q1% � more%
`�
jq1%!0=pic2%
t&ș"Wimp_RedrawWindow",,q1% � more%
~�getorigin(q1%,x0%,y0%)
�ȕ more%
��drawpic2(x0%,y0%)
�&ș"Wimp_GetRectangle",,q1% � more%
��
��
�
���do(x0%,y0%)
�ȏ Ȑ 200+x0%,200+y0%,50
��
�:
���mouseclick
�
Ȏq1%!8 �
9� 2: � q1%!12=-2 � �domenu(mainmenu%,!q1%-44,96+3*44)

+        � q1%!12=pic1% � q1%!12=pic2% �
        Ȏ fill% �
        � 0 :
(-        �domenu(drawmenu1%,!q1%-94,q1%!4)
2        � 1 :
<-        �domenu(drawmenu2%,!q1%-94,q1%!4)
F
        �
P
        �
Z
d&� 1: ș "Wimp_GetPointerInfo",,q2%
n"        � q2%!12=pic1% � cd%=1
x"        � q2%!12=pic2% � cd%=2
�        � cd%=1 � CNT%>0 �
�        CNT%-=1
�2        �settext(pic1%,2,"No.points:"+�(CNT%))
�4        ș "Wimp_ForceRedraw",pic1%,0,50,640,512
�
        �
�        � cd%=2 � FCNT%>0 �
�        FCNT%-=1
�3        �settext(pic2%,2,"No.points:"+�(FCNT%))
�4        ș "Wimp_ForceRedraw",pic2%,0,50,640,512
�
        �
�9        �settext(fileinfo%,4,�(FCNT%+CNT%)+" points")
�
�&� 4: ș "Wimp_GetPointerInfo",,q2%
        now%=0
)        � q2%!12=pic1% � cd%=1:now%=1
)        � q2%!12=pic2% � cd%=2:now%=1
"         � cd%=1 � !q2%=pic1%
,         � cd%=2 � !q2%=pic2%
6)        ș "Wimp_GetWindowState",,q2%
@        xo%=q2%!4:yo%=q2%!8
J)        ș "Wimp_GetPointerInfo",,q2%
T        px%=q2%!0:py%=q2%!4
^        � now%=1 �
h         � cd%=1 � CNT%<300 �
r        CNT%+=1
|-        �settext(pic1%,0,"X:"+�(px%-xo%))
�-        �settext(pic1%,1,"Y:"+�(py%-yo%))
�5        X%(CNT%)=(px%-xo%)*2:Y%(CNT%)=(py%-yo%)*2
�2        �settext(pic1%,2,"No.points:"+�(CNT%))
�4        ș "Wimp_ForceRedraw",pic1%,0,50,640,512
�
        �
�
�!        � cd%=2 � FCNT%<300 �
�        FCNT%+=1
�-        �settext(pic2%,0,"X:"+�(px%-xo%))
�-        �settext(pic2%,1,"Y:"+�(py%-yo%))
�7        A%(FCNT%)=(px%-xo%)*2:B%(FCNT%)=(py%-yo%)*2
�3        �settext(pic2%,2,"No.points:"+�(FCNT%))
�4        ș "Wimp_ForceRedraw",pic2%,0,50,640,512

        �
9        �settext(fileinfo%,4,�(FCNT%+CNT%)+" points")

        �
&
0        � q1%!12=aniinfo% �
:        ent%=�
D        �display
N"        ș "Wimp_SetMode",ent%
X
        �
b
        �
l
v        � q1%!12=-2 �
�
�N        !q1%=pic1%:ș "Wimp_GetWindowState",,q1%:ș "Wimp_OpenWindow",,q1%
�N        !q1%=pic2%:ș "Wimp_GetWindowState",,q1%:ș "Wimp_OpenWindow",,q1%
�
        �
�)        � q1%!12=saveas% � q1%!16=3 �
�        !q1%=saveas%
�)        ș "Wimp_GetWindowState",,q1%
�        wex=q1%!4-q1%!20
�        wey=q1%!16-q1%!24
�        q1%!4=3
�'        ș "Wimp_GetIconState",,q1%
�         !q1%=saveas%:q1%!4=5
�        q1%!8=q1%!8+wex
        q1%!12=q1%!12+wey
        q1%!16=q1%!16+wex
        q1%!20=q1%!20+wey
         q1%!24=0:q1%!28=0
*-        q1%!32=&7FFFFFFF:q1%!36=&7FFFFFFF
4"        ș "Wimp_DragBox",,q1%
>
        �
H6        �q1%!12=saveas% � q1%!16=2 �savefile(�,"")
R�
\�
f:
p��domenu(h%,x%,y%)
z$menudata%=h%:menux%=x%:menuy%=y%
�"ș "Wimp_CreateMenu",,h%,x%,y%
��
�:
���menuselect
�� WH$,i%,adjust%,MM$,sp$
�5ș "Wimp_GetPointerInfo",,q2%:adjust%=(q2%!8 � 1)
�9ș "Wimp_DecodeMenu",,menudata%,q1%,�200," ")� ,,,WH$
�� WH$="" �
�� WH$="Animate" �
�
ent%=�
��display
�ș "Wimp_SetMode",ent%
��
	�
	� WH$="No Fill" � fill%=1
	� WH$="Fill On" � fill%=0
	$� WH$="Clear All" �
	.�initagain
	8#�settext(pic1%,2,"No.points:0")
	B#�settext(pic2%,2,"No.points:0")
	L+ș "Wimp_ForceRedraw",pic1%,0,0,640,512
	V+ș "Wimp_ForceRedraw",pic2%,0,0,640,512
	`�
	j� WH$="Quit" � �shutdown
	t
	~@� adjust% � fill%=0 � �domenu(drawmenu1%,!q2%-100,q2%!4+100)
	�@� adjust% � fill%=1 � �domenu(drawmenu2%,!q2%-100,q2%!4+100)
	��
	�:
	�ݤcrmenu
	�� M%,menu$,m$,I%
	�6� (menufree%+28>menuend%) �fatal("Menu area full")
	�� menu$
	�ȕ �menu$,2)="++"
	�	 � m$
	� menu$=�menu$,�menu$-2)+m$
	��
	�menuptr%=menufree%
I%=0

=� �menu$,1)="#" I%=1:menutitle$=�par(",") � menutitle$=""
$menuptr%=menutitle$
menuptr%?12=7
(menuptr%?13=2
2menuptr%?14=7
<menuptr%?15=1
Fmenuptr%!16=196
Pmenuptr%!20=44
Zmenuptr%!24=0
dmenuptr%+=28
nmaxx%=�menutitle$-3
x�
� item$=�par(",")
� �menuitem(item$)
�� item$=""
�M%=menufree%
�M%!16=(maxx%*8+6)*2
�menufree%=menuptr%
�=M%
�:
���menuitem(text$)
�� I%,F%,S%,L%
�0� text$="" menuptr%!-24=(menuptr%!-24)�&80:�
�5� (menuptr%+24>menuend%) �fatal("Menu area full")
�
F%=&00
I%=�text$,">")
� I%>0 �
 S%=��text$,I%+1)
"text$=�text$,I%-1)
,�
6
 S%=-1
@�
J)� �text$,1)="#" text$=�text$):F%+=&02
T)� �text$,1)="@" text$=�text$):F%+=&08
^menuptr%!0=F%
hmenuptr%!4=S%
rmenuptr%!8=&07000021
|� �text$,1)="$" �
� !menuptr%+=&04
� menuptr%!8+=&100
� I%=�text$,"(")
�
 � I%>0 �
�  L%=��text$,I%+1)
�  text$=�text$,I%-1)
� �
�  L%=12
� �
� menuptr%!12=��text$,2)
� menuptr%!16=-1
� menuptr%!20=L%
� �L%>16 L%=16
 text$=�L%," ")
�
 �text$<=12�
&  $(menuptr%+12)=text$
0 �
:'  I%=�workspace(�text$+1):$I%=text$
D8  menuptr%!12=I%:menuptr%!16=-1:menuptr%!20=�text$+1
N"  menuptr%!8=menuptr%!8 � &100
X �
b�
l� �text$>maxx% maxx%=�text$
vmenuptr%+=24
��
�:
�ݤpar(sep$)
�� L%
�L%=I%+1
�I%=�menu$+sep$,sep$,L%)
�=�menu$,L%,I%-L%)
�:
�ݤworkspace(L%)
�8� curws%+L%>ws%+maxws% � �fatal("No more workspace")
�curws%+=L%
�=curws%-L%
�
��ackload

!q1%!12=q1%!8:q1%!16=4:!q1%=64

&ș "Wimp_SendMessage",17,q1%,q1%!4

�

 :

*:

4ݤwimperror

>-� �$="Object is a directory" � �CloseFile

H
!q2%=�

R$(q2%+4)=�$+�0

\2ș"Wimp_ReportError",q2%,,"Morph" � ,response%

f"� response%=1 � � �DF@:=� � =�

p :

z
��poll

� � *FX 4,1

� �

�" ș"Wimp_Poll",,q1% � respond%

� Ȏ respond% �

� � 1 : �Redraw

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

�% � 3 : ș "Wimp_CloseWindow",,q1%

� � 6 : �mouseclick

� � 7 : �save

� � 8 : �keypress

� � 9 : �menuselect

� � 17,18: �receive(r%)

� � 19: �ack
�
� �
�
$ ��setupgraphics
. spritelen=16*1024
8 � sprites% spritelen
B sprites%!0=spritelen
L sprites%!8=17
V% ș "OS_SpriteOp",&100+9,sprites%
`= ș "OS_SpriteOp",&100+10,sprites%,"<Morph$Dir>.!Sprites"
j �
t ��Schoose(n$)
~ chosen$=n$
� �
� ��Sget(n$)
�+ ș "OS_SpriteOp",&100+14,sprites%,n$,0
� �
� ��Splot(x%,y%,chosen$)
�6 ș "OS_SpriteOp",&100+34,sprites%,chosen$,x%,y%,0
� �
� ��Mplot(x%,y%)
�6 ș "OS_SpriteOp",&100+34,sprites%,chosen$,x%,y%,8
� �
� ��settext(ww%,icn%,ict$)
�5 q2%!0=ww%:q2%!4=icn%:ș "Wimp_GetIconState",,q2%
@ $(q2%!28)=ict$:q2%!8=0:q2%!12=0:ș "Wimp_SetIconState",,q2%

 �
 ��seticon(ww%,icn%,ict$)
5 q2%!0=ww%:q2%!4=icn%:ș "Wimp_GetIconState",,q2%
(= q2%!24=ict$:q2%!8=0:q2%!12=0:ș "Wimp_SetIconState",,q2%
2 �
<� �gettext(window%,icon%)
F q1%!0=window%:q1%!4=icon%
P! ș "Wimp_GetIconState",0,q1%
Z= $(q1%!28)
d� �getleafname(fsp$)
n pos=�(fsp$)
x! ȕ �fsp$,pos,1)<>"." � pos>0
�  pos-=1
� �
�=�fsp$,pos+1)
���savefile(f%,n$)
�� l$,c%,d$,d%
�	�f% �
�
 l$=n$
��
�l$=�gettext(saveas%,4)
��l$,".")=0 �
�A�ok("To save the file, drag the icon to a directory viewer.")
�UBDU%=0
�
� �TlP
�
�
�SaveFile(l$)
"*!q2%=saveas%:ș"Wimp_CloseWindow",,q2%
,�
6��keypress
@2� q1%!24=13 � !q1%=saveas% � �savefile(�,""):�
Jș"Wimp_ProcessKey",q1%!24
T�
^��ok(e$)
herror_flag%=1
r
� 1,e$
|�
�:
���fatal(e$)
�error_flag%=2
�
� 1,e$
��
�:
�
��save
�
�getfname
�!ș "Wimp_GetPointerInfo",,q1%
�q1%!20=64:q1%!32=0
�q1%!36=1:q1%!40=q1%!12
�q1%!44=q1%!16
�q1%!48=!q1%
q1%!52=q1%!4
q1%!56=10192
q1%!60=&fff
&$(q1%+64)=MYFNAME$
01ș "Wimp_SendMessage",17,q1%+20,q1%!12,q1%!16
:�
D��DataSave
N�SaveFile(�gname(q1%+44))
X!q1%!12=q1%!8:q1%!16=3:!q1%=64
b.ș "Wimp_SendMessage",17,q1%,q1%!20,q1%!24
l�
v� �gname(ptr)
�	f$=""
�ȕ ?ptr<>0 � ?ptr<>13
�f$=f$+�?ptr:ptr+=1
��
�=f$
���getfname
�#wholething$=�gettext(saveas%,4)
�"� qwe%=�(wholething$) � 1 � -1
�'� �wholething$,qwe%,1)="." � � �ddQ
�
� qwe%
�0MYFNAME$=�wholething$,qwe%+1,�(wholething$))
��
�
��SaveFile(NAMESAVE$)
�save_pics(NAMESAVE$)
�
 
*��CloseFile
4� #FILEOUT
>�
H
R ��draw_new_pics
\ �initialise_screen
f �draw_first
p �draw_second
z �calculate_a_bit
�	 OK=�
� �
� 
� ��initialise_variables
� NP%=300
�& � X%(NP%),Y%(NP%),A%(NP%),B%(NP%)
� � XI(NP%),YI(NP%)
� DEL%=20
�
 SEC%=100
� CNT%=0:FCNT%=0
�
 AS%=1
� �
� 
 ��initagain
 CNT%=0:FCNT%=0

 AS%=1
$ �
. 
8 ��calculate_a_bit
B � CNT%>=FCNT% � MM%=CNT%
L � CNT%<FCNT% � MM%=FCNT%
V � I%=1 � MM%
`  XI(I%)=(X%(I%)-A%(I%))/SEC%
j  YI(I%)=(Y%(I%)-B%(I%))/SEC%
t	 � I%
~ �
� 
� ��drawpic1(ox%,oy%)
� � X%(1)/2+ox%,Y%(1)/2+oy%
� � J%=1 � CNT%
�  � X%(J%)/2+ox%,Y%(J%)/2+oy%
�	 � J%
� �
�
� ��drawpic2(ox%,oy%)
� � A%(1)/2+ox%,B%(1)/2+oy%
� � J%=1 � FCNT%
�  � A%(J%)/2+ox%,B%(J%)/2+oy%
	 � J%

 �

 ��save_pics(F$)
( � CNT%>=FCNT% � MM%=CNT%
2 � CNT%<FCNT% � MM%=FCNT%
< A=� F$
F
 �# A,MM%
P � I%=1 � MM%
Z% �# A,X%(I%),Y%(I%),A%(I%),B%(I%)
d	 � I%
n	 �# A
x	 OK=�
� � "SETTYPE "+F$+" 7EF"
� �settext(fileinfo%,3,F$)
� �settext(saveas%,4,F$)
� �
� 
� ��load_pics(F$)
� A=� F$
� �# A,CNT%
� � I%=1 � CNT%
�% �# A,X%(I%),Y%(I%),A%(I%),B%(I%)
�	 � I%
�	 �# A
� �calculate_a_bit

 AS%=1
	 OK=�
 FCNT%=CNT%
"+ �settext(pic1%,2,"No.points:"+�(CNT%))
,, �settext(pic2%,2,"No.points:"+�(FCNT%))
6 �settext(saveas%,4,F$)
@�
J
T ��animate(BE%,EN%,SP%)
^ � I%=BE% � EN%-1 � SP%
h% BANK%=BANK% � 3:ș 6,112,BANK%:�
r2 � (A%(1)+(XI(1)*I%))*OT,(B%(1)+(YI(1)*I%))*OT
| � 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%:� �DhU
�5 � BUT%=4 � I%<EN%-SP%-1 � BE%=1 � I%+=SP%:� �DhU
�6 � BUT%=4 � I%<BE%+SP% � BE%=SEC% � I%-=SP%:� �DhU
�8 � BUT%=1 � I%>EN%-SP%-1 � BE%=SEC% � I%+=SP%:� �DhU
� �
� A$=�(1)
� � A$<>"" �
6 � �-58 � SP%<(EN%-BE%)/2 � SP%+=1:AAS%=SP%:� �D^U
, � �-42 � SP%>2 � SP%-=1:AAS%=SP%:� �D^U
 � SP%=0 SP%=1
 � �-26 � OT>.1 � OT-=.05
& � �-122 � OT<4 � OT+=.05
0 � �-113 EXIT=�:�
: � A$=" " �
D �
N A$=�(1)
X ȗ PP%,WW%,EE%
b � EE%<>0 � A$=" "
l �
v �
�	 � I%
� �
�
� ��display
� � 0
� �
� � MM%=CNT% � 300
�& X%(MM%)=X%(CNT%):Y%(MM%)=Y%(CNT%)
�
 � MM%
� � MM%=FCNT% � 300
�( A%(MM%)=A%(FCNT%):B%(MM%)=B%(FCNT%)
�
 � MM%
� �calculate_a_bit

 ZT%=1

 ZB%=1
 AAS%=AS%:OT=1
 > OOX%=320-(((ZT%/ZB%)*320)/2):OOY%=256-(((ZT%/ZB%)*256)/2)
* EXIT=�
4	 ȗ �
> �
H Ȏ fill% �
R
 � 0 :
\ �animate(1,SEC%,�(AAS%))
f+ � EXIT=� �animate(SEC%,2,�(AAS%)*(-1))
p
 � 1 :
z# �animatefilled(1,SEC%,�(AAS%))
�1 � EXIT=� �animatefilled(SEC%,2,�(AAS%)*(-1))
� �
�
 � EXIT=�
�	 ȗ �
� ȗ ȓ 0,0,1279,1023
�	 OK=�
� ȑ 0,0
� �
�
�! ��animatefilled(BE%,EN%,SP%)
� � I%=BE% � EN%-1 � SP%
�% BANK%=BANK% � 3:ș 6,112,BANK%:�
� � J%=1 � CNT% � 3
6 � (A%(J%)+(XI(J%)*I%))*OT,(B%(J%)+(YI(J%)*I%))*OT
> � (A%(J%+1)+(XI(J%+1)*I%))*OT,(B%(J%+1)+(YI(J%+1)*I%))*OT
$O � J%+2<=CNT% � &55,(A%(J%+2)+(XI(J%+2)*I%))*OT,(B%(J%+2)+(YI(J%+2)*I%))*OT
.	 � J%
8 ș 6,113,BANK%:Ȗ
B1 BUT%=0:ȗ XPOS%,YPOS%,BUT%:� BUT%=2 EXIT=�:�
L � BUT%<>0 �
V3 � BUT%=1 � I%>BE%+SP% � BE%=1 � I%-=SP%:� �drW
`5 � BUT%=4 � I%<EN%-SP%-1 � BE%=1 � I%+=SP%:� �drW
j6 � BUT%=4 � I%<BE%+SP% � BE%=SEC% � I%-=SP%:� �drW
t8 � BUT%=1 � I%>EN%-SP%-1 � BE%=SEC% � I%+=SP%:� �drW
~ �
� A$=�(1)
� � A$<>"" �
�6 � �-58 � SP%<(EN%-BE%)/2 � SP%+=1:AAS%=SP%:� �dhW
�, � �-42 � SP%>2 � SP%-=1:AAS%=SP%:� �dhW
� � SP%=0 SP%=1
� � �-26 � OT>.1 � OT-=.05
� � �-122 � OT<4 � OT+=.05
� � �-113 EXIT=�:�
� � A$=" " �
� �
� A$=�(1)
� ȗ PP%,WW%,EE%
� � EE%<>0 � A$=" "
 �

 �
	 � I%
 �
�

00000000  0d 00 0a 1c f4 20 3e 3c  4d 6f 72 70 68 24 44 69  |..... ><Morph$Di|
00000010  72 3e 2e 21 72 75 6e 69  6d 61 67 65 0d 00 14 58  |r>.!runimage...X|
00000020  f4 20 4f 4e 20 45 52 52  4f 52 20 50 52 4f 43 65  |. ON ERROR PROCe|
00000030  72 72 6f 72 3a 4f 53 43  4c 49 20 22 43 4c 4f 53  |rror:OSCLI "CLOS|
00000040  45 22 3a 47 4f 54 4f 20  32 39 30 3a 52 45 4d 20  |E":GOTO 290:REM |
00000050  48 41 53 20 54 4f 20 47  4f 54 4f 20 4c 49 4e 45  |HAS TO GOTO LINE|
00000060  20 57 48 49 43 48 20 53  41 59 53 20 50 52 4f 43  | WHICH SAYS PROC|
00000070  70 6f 6c 6c 0d 00 1e 26  ee 20 85 20 e7 20 a4 77  |poll...&. . . .w|
00000080  69 6d 70 65 72 72 6f 72  3a f2 43 6c 6f 73 65 46  |imperror:.CloseF|
00000090  69 6c 65 3a e5 20 8d 44  46 40 0d 00 28 19 f2 69  |ile:. .DF@..(..i|
000000a0  6e 69 74 69 61 6c 69 73  65 5f 76 61 72 69 61 62  |nitialise_variab|
000000b0  6c 65 73 0d 00 32 0d f2  49 6e 69 74 77 69 6d 70  |les..2..Initwimp|
000000c0  0d 00 3c 0e f2 69 6e 69  74 61 67 61 69 6e 0d 00  |..<..initagain..|
000000d0  46 09 f2 70 6f 6c 6c 0d  00 50 06 20 3a 0d 00 5a  |F..poll..P. :..Z|
000000e0  11 dd f2 50 75 74 49 63  6f 6e 28 69 24 29 0d 00  |...PutIcon(i$)..|
000000f0  64 18 21 71 31 25 3d 2d  31 3a 71 31 25 21 34 3d  |d.!q1%=-1:q1%!4=|
00000100  69 63 6f 6e 68 25 0d 00  6e 1d c8 99 20 22 57 69  |iconh%..n... "Wi|
00000110  6d 70 5f 44 65 6c 65 74  65 49 63 6f 6e 22 2c 2c  |mp_DeleteIcon",,|
00000120  71 31 25 0d 00 78 3c 21  71 31 25 3d 2d 31 3a 71  |q1%..x<!q1%=-1:q|
00000130  31 25 21 34 3d 30 3a 71  31 25 21 38 3d 30 3a 71  |1%!4=0:q1%!8=0:q|
00000140  31 25 21 31 32 3d 36 39  3a 71 31 25 21 31 36 3d  |1%!12=69:q1%!16=|
00000150  36 38 3a 71 31 25 21 32  30 3d 26 33 30 30 32 0d  |68:q1%!20=&3002.|
00000160  00 82 2f 24 28 71 31 25  2b 32 34 29 3d 69 24 3a  |../$(q1%+24)=i$:|
00000170  c8 99 22 57 69 6d 70 5f  43 72 65 61 74 65 49 63  |.."Wimp_CreateIc|
00000180  6f 6e 22 2c 2c 71 31 25  20 b8 20 69 63 25 0d 00  |on",,q1% . ic%..|
00000190  8c 0e 69 63 6f 6e 68 25  3d 69 63 25 0d 00 96 05  |..iconh%=ic%....|
000001a0  e1 0d 00 a0 04 0d 00 aa  0e dd f2 49 6e 69 74 77  |...........Initw|
000001b0  69 6d 70 0d 00 b4 2f 6d  61 78 77 73 25 3d 26 35  |imp.../maxws%=&5|
000001c0  34 30 30 3a de 20 77 73  25 20 6d 61 78 77 73 25  |400:. ws% maxws%|
000001d0  3a 77 73 65 6e 64 25 3d  77 73 25 2b 6d 61 78 77  |:wsend%=ws%+maxw|
000001e0  73 25 0d 00 be 0d de 20  71 31 25 20 32 35 36 0d  |s%..... q1% 256.|
000001f0  00 c8 0e de 20 71 32 25  20 31 31 39 32 0d 00 d2  |.... q2% 1192...|
00000200  14 de 20 65 64 69 74 62  75 66 66 65 72 20 32 30  |.. editbuffer 20|
00000210  30 0d 00 dc 2c de 20 6d  65 6e 75 66 72 65 65 25  |0...,. menufree%|
00000220  20 26 33 37 30 3a 6d 65  6e 75 65 6e 64 25 3d 6d  | &370:menuend%=m|
00000230  65 6e 75 66 72 65 65 25  2b 26 33 37 30 0d 00 e6  |enufree%+&370...|
00000240  44 c8 99 22 57 69 6d 70  5f 49 6e 69 74 69 61 6c  |D.."Wimp_Initial|
00000250  69 73 65 22 2c 32 30 30  2c 26 34 42 35 33 34 31  |ise",200,&4B5341|
00000260  35 34 2c 22 4d 6f 72 70  68 22 20 b8 20 76 65 72  |54,"Morph" . ver|
00000270  73 69 6f 6e 25 2c 74 61  73 6b 68 61 6e 64 6c 65  |sion%,taskhandle|
00000280  25 0d 00 f0 30 f4 20 2a  2a 2a 2a 2a 20 61 6e 64  |%...0. ***** and|
00000290  20 69 6e 73 74 61 6c 6c  20 74 68 65 20 69 63 6f  | install the ico|
000002a0  6e 20 6f 6e 20 74 68 65  20 69 63 6f 6e 20 62 61  |n on the icon ba|
000002b0  72 0d 00 fa 3c 21 71 31  25 3d 2d 31 3a 71 31 25  |r...<!q1%=-1:q1%|
000002c0  21 34 3d 30 3a 71 31 25  21 38 3d 30 3a 71 31 25  |!4=0:q1%!8=0:q1%|
000002d0  21 31 32 3d 36 39 3a 71  31 25 21 31 36 3d 36 38  |!12=69:q1%!16=68|
000002e0  3a 71 31 25 21 32 30 3d  26 33 30 30 32 0d 01 04  |:q1%!20=&3002...|
000002f0  35 24 28 71 31 25 2b 32  34 29 3d 22 21 4d 6f 72  |5$(q1%+24)="!Mor|
00000300  70 68 22 3a c8 99 22 57  69 6d 70 5f 43 72 65 61  |ph":.."Wimp_Crea|
00000310  74 65 49 63 6f 6e 22 2c  2c 71 31 25 20 b8 20 69  |teIcon",,q1% . i|
00000320  63 25 0d 01 0e 0e 69 63  6f 6e 68 25 3d 69 63 25  |c%....iconh%=ic%|
00000330  0d 01 18 11 63 64 25 3d  31 3a 66 69 6c 6c 25 3d  |....cd%=1:fill%=|
00000340  30 0d 01 22 33 c8 99 20  22 57 69 6d 70 5f 4f 70  |0.."3.. "Wimp_Op|
00000350  65 6e 54 65 6d 70 6c 61  74 65 22 2c 2c 22 3c 4d  |enTemplate",,"<M|
00000360  6f 72 70 68 24 44 69 72  3e 2e 54 65 6d 70 6c 61  |orph$Dir>.Templa|
00000370  74 65 73 22 0d 01 2c 3e  c8 99 20 22 57 69 6d 70  |tes"..,>.. "Wimp|
00000380  5f 4c 6f 61 64 54 65 6d  70 6c 61 74 65 22 2c 2c  |_LoadTemplate",,|
00000390  71 32 25 2c 77 73 25 2c  77 73 65 6e 64 25 2c 2d  |q2%,ws%,wsend%,-|
000003a0  31 2c 22 69 6e 66 6f 22  2c 30 20 b8 20 2c 2c 77  |1,"info",0 . ,,w|
000003b0  73 25 0d 01 36 27 c8 99  20 22 57 69 6d 70 5f 43  |s%..6'.. "Wimp_C|
000003c0  72 65 61 74 65 57 69 6e  64 6f 77 22 2c 2c 71 32  |reateWindow",,q2|
000003d0  25 20 b8 20 69 6e 66 6f  25 0d 01 40 40 c8 99 20  |% . info%..@@.. |
000003e0  22 57 69 6d 70 5f 4c 6f  61 64 54 65 6d 70 6c 61  |"Wimp_LoadTempla|
000003f0  74 65 22 2c 2c 71 32 25  2c 77 73 25 2c 77 73 65  |te",,q2%,ws%,wse|
00000400  6e 64 25 2c 2d 31 2c 22  73 61 76 65 61 73 22 2c  |nd%,-1,"saveas",|
00000410  30 20 b8 20 2c 2c 77 73  25 0d 01 4a 29 c8 99 20  |0 . ,,ws%..J).. |
00000420  22 57 69 6d 70 5f 43 72  65 61 74 65 57 69 6e 64  |"Wimp_CreateWind|
00000430  6f 77 22 2c 2c 71 32 25  20 b8 20 73 61 76 65 61  |ow",,q2% . savea|
00000440  73 25 0d 01 54 3e c8 99  20 22 57 69 6d 70 5f 4c  |s%..T>.. "Wimp_L|
00000450  6f 61 64 54 65 6d 70 6c  61 74 65 22 2c 2c 71 32  |oadTemplate",,q2|
00000460  25 2c 77 73 25 2c 77 73  65 6e 64 25 2c 2d 31 2c  |%,ws%,wsend%,-1,|
00000470  22 70 69 63 31 22 2c 30  20 b8 20 2c 2c 77 73 25  |"pic1",0 . ,,ws%|
00000480  0d 01 5e 27 c8 99 20 22  57 69 6d 70 5f 43 72 65  |..^'.. "Wimp_Cre|
00000490  61 74 65 57 69 6e 64 6f  77 22 2c 2c 71 32 25 20  |ateWindow",,q2% |
000004a0  b8 20 70 69 63 31 25 0d  01 68 3e c8 99 20 22 57  |. pic1%..h>.. "W|
000004b0  69 6d 70 5f 4c 6f 61 64  54 65 6d 70 6c 61 74 65  |imp_LoadTemplate|
000004c0  22 2c 2c 71 32 25 2c 77  73 25 2c 77 73 65 6e 64  |",,q2%,ws%,wsend|
000004d0  25 2c 2d 31 2c 22 70 69  63 32 22 2c 30 20 b8 20  |%,-1,"pic2",0 . |
000004e0  2c 2c 77 73 25 0d 01 72  27 c8 99 20 22 57 69 6d  |,,ws%..r'.. "Wim|
000004f0  70 5f 43 72 65 61 74 65  57 69 6e 64 6f 77 22 2c  |p_CreateWindow",|
00000500  2c 71 32 25 20 b8 20 70  69 63 32 25 0d 01 7c 42  |,q2% . pic2%..|B|
00000510  c8 99 20 22 57 69 6d 70  5f 4c 6f 61 64 54 65 6d  |.. "Wimp_LoadTem|
00000520  70 6c 61 74 65 22 2c 2c  71 32 25 2c 77 73 25 2c  |plate",,q2%,ws%,|
00000530  77 73 65 6e 64 25 2c 2d  31 2c 22 66 69 6c 65 69  |wsend%,-1,"filei|
00000540  6e 66 6f 22 2c 30 20 b8  20 2c 2c 77 73 25 0d 01  |nfo",0 . ,,ws%..|
00000550  86 2b c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |.+.. "Wimp_Creat|
00000560  65 57 69 6e 64 6f 77 22  2c 2c 71 32 25 20 b8 20  |eWindow",,q2% . |
00000570  66 69 6c 65 69 6e 66 6f  25 0d 01 90 41 c8 99 20  |fileinfo%...A.. |
00000580  22 57 69 6d 70 5f 4c 6f  61 64 54 65 6d 70 6c 61  |"Wimp_LoadTempla|
00000590  74 65 22 2c 2c 71 32 25  2c 77 73 25 2c 77 73 65  |te",,q2%,ws%,wse|
000005a0  6e 64 25 2c 2d 31 2c 22  61 6e 69 69 6e 66 6f 22  |nd%,-1,"aniinfo"|
000005b0  2c 30 20 b8 20 2c 2c 77  73 25 0d 01 9a 2a c8 99  |,0 . ,,ws%...*..|
000005c0  20 22 57 69 6d 70 5f 43  72 65 61 74 65 57 69 6e  | "Wimp_CreateWin|
000005d0  64 6f 77 22 2c 2c 71 32  25 20 b8 20 61 6e 69 69  |dow",,q2% . anii|
000005e0  6e 66 6f 25 0d 01 a4 1c  66 69 6c 65 6e 61 6d 65  |nfo%....filename|
000005f0  25 3d 71 31 25 21 28 38  38 2b 36 34 2b 32 30 29  |%=q1%!(88+64+20)|
00000600  0d 01 ae 1b c8 99 20 22  57 69 6d 70 5f 43 6c 6f  |...... "Wimp_Clo|
00000610  73 65 54 65 6d 70 6c 61  74 65 22 0d 01 b8 0c 66  |seTemplate"....f|
00000620  6d 6f 64 65 25 3d 31 0d  01 c2 0b 71 75 69 74 25  |mode%=1....quit%|
00000630  3d a3 0d 01 cc 0a f7 20  8d 64 60 41 0d 01 d6 15  |=...... .d`A....|
00000640  6d 61 69 6e 6d 65 6e 75  25 3d a4 63 72 6d 65 6e  |mainmenu%=.crmen|
00000650  75 0d 01 e0 2d dc 20 22  23 4d 6f 72 70 68 2c 49  |u...-. "#Morph,I|
00000660  6e 66 6f 20 3e 69 6e 66  6f 25 2c 53 61 76 65 20  |nfo >info%,Save |
00000670  3e 73 61 76 65 61 73 25  2c 51 75 69 74 22 0d 01  |>saveas%,Quit"..|
00000680  ea 0a f7 20 8d 64 7e 41  0d 01 f4 11 6d 69 73 63  |... .d~A....misc|
00000690  25 3d a4 63 72 6d 65 6e  75 0d 01 fe 27 dc 20 22  |%=.crmenu...'. "|
000006a0  23 4d 69 73 63 2c 49 6e  66 6f 3e 69 6e 66 6f 25  |#Misc,Info>info%|
000006b0  2c 46 69 6c 65 3e 66 69  6c 65 69 6e 66 6f 25 22  |,File>fileinfo%"|
000006c0  0d 02 08 0a f7 20 8d 54  5c 42 0d 02 12 16 64 72  |..... .T\B....dr|
000006d0  61 77 6d 65 6e 75 31 25  3d a4 63 72 6d 65 6e 75  |awmenu1%=.crmenu|
000006e0  0d 02 1c 49 dc 20 22 23  4d 6f 72 70 68 2c 4d 69  |...I. "#Morph,Mi|
000006f0  73 63 3e 6d 69 73 63 25  2c 41 6e 69 6d 61 74 65  |sc>misc%,Animate|
00000700  3e 61 6e 69 69 6e 66 6f  25 2c 4e 6f 20 46 69 6c  |>aniinfo%,No Fil|
00000710  6c 2c 53 61 76 65 3e 73  61 76 65 61 73 25 2c 43  |l,Save>saveas%,C|
00000720  6c 65 61 72 20 41 6c 6c  22 0d 02 26 0a f7 20 8d  |lear All"..&.. .|
00000730  54 7a 42 0d 02 30 16 64  72 61 77 6d 65 6e 75 32  |TzB..0.drawmenu2|
00000740  25 3d a4 63 72 6d 65 6e  75 0d 02 3a 49 dc 20 22  |%=.crmenu..:I. "|
00000750  23 4d 6f 72 70 68 2c 4d  69 73 63 3e 6d 69 73 63  |#Morph,Misc>misc|
00000760  25 2c 41 6e 69 6d 61 74  65 3e 61 6e 69 69 6e 66  |%,Animate>aniinf|
00000770  6f 25 2c 46 69 6c 6c 20  4f 6e 2c 53 61 76 65 3e  |o%,Fill On,Save>|
00000780  73 61 76 65 61 73 25 2c  43 6c 65 61 72 20 41 6c  |saveas%,Clear Al|
00000790  6c 22 0d 02 44 05 e1 0d  02 4e 06 20 3a 0d 02 58  |l"..D....N. :..X|
000007a0  0e dd a4 72 74 6f 7a 28  70 25 29 0d 02 62 08 ea  |...rtoz(p%)..b..|
000007b0  20 71 24 0d 02 6c 1e c8  95 20 3f 70 25 3c 3e 30  | q$..l... ?p%<>0|
000007c0  20 71 24 2b 3d bd 3f 70  25 3a 70 25 2b 3d 31 3a  | q$+=.?p%:p%+=1:|
000007d0  ce 0d 02 76 07 3d 71 24  0d 02 80 05 20 0d 02 8a  |...v.=q$.... ...|
000007e0  11 dd f2 72 65 63 65 69  76 65 28 72 25 29 0d 02  |...receive(r%)..|
000007f0  94 11 f4 20 4c 4f 43 41  4c 20 45 52 52 4f 52 0d  |... LOCAL ERROR.|
00000800  02 9e 1c f4 20 4f 4e 20  45 52 52 4f 52 20 4c 4f  |.... ON ERROR LO|
00000810  43 41 4c 20 45 4e 44 50  52 4f 43 0d 02 a8 0f c8  |CAL ENDPROC.....|
00000820  8e 20 71 31 25 21 31 36  20 ca 0d 02 b2 11 c9 30  |. q1%!16 ......0|
00000830  3a 20 f2 73 68 75 74 64  6f 77 6e 0d 02 bc 11 c9  |: .shutdown.....|
00000840  20 32 3a f2 44 61 74 61  53 61 76 65 0d 02 c6 25  | 2:.DataSave...%|
00000850  c9 20 33 3a 20 c8 99 22  57 69 6d 70 5f 47 65 74  |. 3: .."Wimp_Get|
00000860  50 6f 69 6e 74 65 72 49  6e 66 6f 22 2c 2c 71 32  |PointerInfo",,q2|
00000870  25 0d 02 d0 15 66 69 6c  65 5f 74 79 70 65 25 3d  |%....file_type%=|
00000880  71 31 25 21 34 30 0d 02  da 18 66 69 6c 65 31 24  |q1%!40....file1$|
00000890  3d a4 72 74 6f 7a 28 71  31 25 2b 34 34 29 0d 02  |=.rtoz(q1%+44)..|
000008a0  e4 0c 6a 75 73 74 24 3d  22 22 0d 02 ee 1f e7 20  |..just$=""..... |
000008b0  66 69 6c 65 5f 74 79 70  65 25 3c 3e 26 37 65 66  |file_type%<>&7ef|
000008c0  20 8c 20 e5 20 8d 74 4e  43 0d 02 f8 1d e3 20 51  | . . .tNC..... Q|
000008d0  51 51 25 3d a9 28 66 69  6c 65 31 24 29 20 b8 20  |QQ%=.(file1$) . |
000008e0  31 20 88 20 2d 31 0d 03  02 20 e7 20 c1 66 69 6c  |1 . -1... . .fil|
000008f0  65 31 24 2c 51 51 51 25  2c 31 29 3d 22 2e 22 20  |e1$,QQQ%,1)="." |
00000900  8c 20 8d 54 56 43 0d 03  0c 0a ed 20 51 51 51 25  |. .TVC..... QQQ%|
00000910  0d 03 16 19 6a 75 73 74  24 3d c1 66 69 6c 65 31  |....just$=.file1|
00000920  24 2c 51 51 51 25 2b 31  29 0d 03 20 16 f2 6c 6f  |$,QQQ%+1).. ..lo|
00000930  61 64 5f 70 69 63 73 28  66 69 6c 65 31 24 29 0d  |ad_pics(file1$).|
00000940  03 2a 0e 21 71 31 25 3d  70 69 63 31 25 0d 03 34  |.*.!q1%=pic1%..4|
00000950  21 c8 99 20 22 57 69 6d  70 5f 47 65 74 57 69 6e  |!.. "Wimp_GetWin|
00000960  64 6f 77 53 74 61 74 65  22 2c 2c 71 31 25 0d 03  |dowState",,q1%..|
00000970  3e 1d c8 99 20 22 57 69  6d 70 5f 4f 70 65 6e 57  |>... "Wimp_OpenW|
00000980  69 6e 64 6f 77 22 2c 2c  71 31 25 0d 03 48 0e 21  |indow",,q1%..H.!|
00000990  71 31 25 3d 70 69 63 32  25 0d 03 52 21 c8 99 20  |q1%=pic2%..R!.. |
000009a0  22 57 69 6d 70 5f 47 65  74 57 69 6e 64 6f 77 53  |"Wimp_GetWindowS|
000009b0  74 61 74 65 22 2c 2c 71  31 25 0d 03 5c 1d c8 99  |tate",,q1%..\...|
000009c0  20 22 57 69 6d 70 5f 4f  70 65 6e 57 69 6e 64 6f  | "Wimp_OpenWindo|
000009d0  77 22 2c 2c 71 31 25 0d  03 66 20 f2 73 65 74 74  |w",,q1%..f .sett|
000009e0  65 78 74 28 66 69 6c 65  69 6e 66 6f 25 2c 33 2c  |ext(fileinfo%,3,|
000009f0  66 69 6c 65 31 24 29 0d  03 70 31 f2 73 65 74 74  |file1$)..p1.sett|
00000a00  65 78 74 28 66 69 6c 65  69 6e 66 6f 25 2c 34 2c  |ext(fileinfo%,4,|
00000a10  c3 28 43 4e 54 25 2b 46  43 4e 54 25 29 2b 22 20  |.(CNT%+FCNT%)+" |
00000a20  70 6f 69 6e 74 73 22 29  0d 03 7a 2b c8 99 20 22  |points")..z+.. "|
00000a30  57 69 6d 70 5f 46 6f 72  63 65 52 65 64 72 61 77  |Wimp_ForceRedraw|
00000a40  22 2c 70 69 63 31 25 2c  30 2c 30 2c 36 34 30 2c  |",pic1%,0,0,640,|
00000a50  35 31 32 0d 03 84 2b c8  99 20 22 57 69 6d 70 5f  |512...+.. "Wimp_|
00000a60  46 6f 72 63 65 52 65 64  72 61 77 22 2c 70 69 63  |ForceRedraw",pic|
00000a70  32 25 2c 30 2c 30 2c 36  34 30 2c 35 31 32 0d 03  |2%,0,0,640,512..|
00000a80  8e 05 cb 0d 03 98 05 e1  0d 03 a2 05 3a 0d 03 ac  |............:...|
00000a90  0e dd f2 73 68 75 74 64  6f 77 6e 0d 03 b6 0f 24  |...shutdown....$|
00000aa0  71 32 25 3d 22 54 41 53  4b 22 0d 03 c0 27 c8 99  |q2%="TASK"...'..|
00000ab0  22 57 69 6d 70 5f 43 6c  6f 73 65 44 6f 77 6e 22  |"Wimp_CloseDown"|
00000ac0  2c 74 61 73 6b 68 61 6e  64 6c 65 25 2c 21 71 32  |,taskhandle%,!q2|
00000ad0  25 0d 03 ca 05 e0 0d 03  d4 05 e1 0d 03 de 05 20  |%.............. |
00000ae0  0d 03 e8 20 dd f2 67 65  74 6f 72 69 67 69 6e 28  |... ..getorigin(|
00000af0  71 31 25 2c f8 20 78 30  25 2c f8 20 79 30 25 29  |q1%,. x0%,. y0%)|
00000b00  0d 03 f2 14 78 30 25 3d  71 31 25 21 34 2d 71 31  |....x0%=q1%!4-q1|
00000b10  25 21 32 30 0d 03 fc 15  79 30 25 3d 71 31 25 21  |%!20....y0%=q1%!|
00000b20  31 36 2d 71 31 25 21 32  34 0d 04 06 05 e1 0d 04  |16-q1%!24.......|
00000b30  10 05 20 0d 04 1a 0c dd  f2 52 65 64 72 61 77 0d  |.. ......Redraw.|
00000b40  04 24 0f 71 31 25 21 30  3d 70 69 63 31 25 0d 04  |.$.q1%!0=pic1%..|
00000b50  2e 26 c8 99 22 57 69 6d  70 5f 52 65 64 72 61 77  |.&.."Wimp_Redraw|
00000b60  57 69 6e 64 6f 77 22 2c  2c 71 31 25 20 b8 20 6d  |Window",,q1% . m|
00000b70  6f 72 65 25 0d 04 38 1b  f2 67 65 74 6f 72 69 67  |ore%..8..getorig|
00000b80  69 6e 28 71 31 25 2c 78  30 25 2c 79 30 25 29 0d  |in(q1%,x0%,y0%).|
00000b90  04 42 0c c8 95 20 6d 6f  72 65 25 0d 04 4c 16 f2  |.B... more%..L..|
00000ba0  64 72 61 77 70 69 63 31  28 78 30 25 2c 79 30 25  |drawpic1(x0%,y0%|
00000bb0  29 0d 04 56 26 c8 99 22  57 69 6d 70 5f 47 65 74  |)..V&.."Wimp_Get|
00000bc0  52 65 63 74 61 6e 67 6c  65 22 2c 2c 71 31 25 20  |Rectangle",,q1% |
00000bd0  b8 20 6d 6f 72 65 25 0d  04 60 05 ce 0d 04 6a 0f  |. more%..`....j.|
00000be0  71 31 25 21 30 3d 70 69  63 32 25 0d 04 74 26 c8  |q1%!0=pic2%..t&.|
00000bf0  99 22 57 69 6d 70 5f 52  65 64 72 61 77 57 69 6e  |."Wimp_RedrawWin|
00000c00  64 6f 77 22 2c 2c 71 31  25 20 b8 20 6d 6f 72 65  |dow",,q1% . more|
00000c10  25 0d 04 7e 1b f2 67 65  74 6f 72 69 67 69 6e 28  |%..~..getorigin(|
00000c20  71 31 25 2c 78 30 25 2c  79 30 25 29 0d 04 88 0c  |q1%,x0%,y0%)....|
00000c30  c8 95 20 6d 6f 72 65 25  0d 04 92 16 f2 64 72 61  |.. more%.....dra|
00000c40  77 70 69 63 32 28 78 30  25 2c 79 30 25 29 0d 04  |wpic2(x0%,y0%)..|
00000c50  9c 26 c8 99 22 57 69 6d  70 5f 47 65 74 52 65 63  |.&.."Wimp_GetRec|
00000c60  74 61 6e 67 6c 65 22 2c  2c 71 31 25 20 b8 20 6d  |tangle",,q1% . m|
00000c70  6f 72 65 25 0d 04 a6 05  ce 0d 04 b0 05 e1 0d 04  |ore%............|
00000c80  ba 04 0d 04 c4 11 dd f2  64 6f 28 78 30 25 2c 79  |........do(x0%,y|
00000c90  30 25 29 0d 04 ce 1c c8  8f 20 c8 90 20 32 30 30  |0%)...... .. 200|
00000ca0  2b 78 30 25 2c 32 30 30  2b 79 30 25 2c 35 30 0d  |+x0%,200+y0%,50.|
00000cb0  04 d8 05 e1 0d 04 e2 05  3a 0d 04 ec 10 dd f2 6d  |........:......m|
00000cc0  6f 75 73 65 63 6c 69 63  6b 0d 04 f6 0d c8 8e 71  |ouseclick......q|
00000cd0  31 25 21 38 20 ca 0d 05  00 39 c9 20 32 3a 20 e7  |1%!8 ....9. 2: .|
00000ce0  20 71 31 25 21 31 32 3d  2d 32 20 8c 20 f2 64 6f  | q1%!12=-2 . .do|
00000cf0  6d 65 6e 75 28 6d 61 69  6e 6d 65 6e 75 25 2c 21  |menu(mainmenu%,!|
00000d00  71 31 25 2d 34 34 2c 39  36 2b 33 2a 34 34 29 0d  |q1%-44,96+3*44).|
00000d10  05 0a 2b 20 20 20 20 20  20 20 20 e7 20 71 31 25  |..+        . q1%|
00000d20  21 31 32 3d 70 69 63 31  25 20 84 20 71 31 25 21  |!12=pic1% . q1%!|
00000d30  31 32 3d 70 69 63 32 25  20 8c 0d 05 14 16 20 20  |12=pic2% .....  |
00000d40  20 20 20 20 20 20 c8 8e  20 66 69 6c 6c 25 20 ca  |      .. fill% .|
00000d50  0d 05 1e 11 20 20 20 20  20 20 20 20 c9 20 30 20  |....        . 0 |
00000d60  3a 0d 05 28 2d 20 20 20  20 20 20 20 20 f2 64 6f  |:..(-        .do|
00000d70  6d 65 6e 75 28 64 72 61  77 6d 65 6e 75 31 25 2c  |menu(drawmenu1%,|
00000d80  21 71 31 25 2d 39 34 2c  71 31 25 21 34 29 0d 05  |!q1%-94,q1%!4)..|
00000d90  32 11 20 20 20 20 20 20  20 20 c9 20 31 20 3a 0d  |2.        . 1 :.|
00000da0  05 3c 2d 20 20 20 20 20  20 20 20 f2 64 6f 6d 65  |.<-        .dome|
00000db0  6e 75 28 64 72 61 77 6d  65 6e 75 32 25 2c 21 71  |nu(drawmenu2%,!q|
00000dc0  31 25 2d 39 34 2c 71 31  25 21 34 29 0d 05 46 0d  |1%-94,q1%!4)..F.|
00000dd0  20 20 20 20 20 20 20 20  cb 0d 05 50 0d 20 20 20  |        ...P.   |
00000de0  20 20 20 20 20 cd 0d 05  5a 04 0d 05 64 26 c9 20  |     ...Z...d&. |
00000df0  31 3a 20 c8 99 20 22 57  69 6d 70 5f 47 65 74 50  |1: .. "Wimp_GetP|
00000e00  6f 69 6e 74 65 72 49 6e  66 6f 22 2c 2c 71 32 25  |ointerInfo",,q2%|
00000e10  0d 05 6e 22 20 20 20 20  20 20 20 20 e7 20 71 32  |..n"        . q2|
00000e20  25 21 31 32 3d 70 69 63  31 25 20 8c 20 63 64 25  |%!12=pic1% . cd%|
00000e30  3d 31 0d 05 78 22 20 20  20 20 20 20 20 20 e7 20  |=1..x"        . |
00000e40  71 32 25 21 31 32 3d 70  69 63 32 25 20 8c 20 63  |q2%!12=pic2% . c|
00000e50  64 25 3d 32 0d 05 82 1e  20 20 20 20 20 20 20 20  |d%=2....        |
00000e60  e7 20 63 64 25 3d 31 20  80 20 43 4e 54 25 3e 30  |. cd%=1 . CNT%>0|
00000e70  20 8c 0d 05 8c 13 20 20  20 20 20 20 20 20 43 4e  | .....        CN|
00000e80  54 25 2d 3d 31 0d 05 96  32 20 20 20 20 20 20 20  |T%-=1...2       |
00000e90  20 f2 73 65 74 74 65 78  74 28 70 69 63 31 25 2c  | .settext(pic1%,|
00000ea0  32 2c 22 4e 6f 2e 70 6f  69 6e 74 73 3a 22 2b c3  |2,"No.points:"+.|
00000eb0  28 43 4e 54 25 29 29 0d  05 a0 34 20 20 20 20 20  |(CNT%))...4     |
00000ec0  20 20 20 c8 99 20 22 57  69 6d 70 5f 46 6f 72 63  |   .. "Wimp_Forc|
00000ed0  65 52 65 64 72 61 77 22  2c 70 69 63 31 25 2c 30  |eRedraw",pic1%,0|
00000ee0  2c 35 30 2c 36 34 30 2c  35 31 32 0d 05 aa 0d 20  |,50,640,512.... |
00000ef0  20 20 20 20 20 20 20 cd  0d 05 b4 1f 20 20 20 20  |       .....    |
00000f00  20 20 20 20 e7 20 63 64  25 3d 32 20 80 20 46 43  |    . cd%=2 . FC|
00000f10  4e 54 25 3e 30 20 8c 0d  05 be 14 20 20 20 20 20  |NT%>0 .....     |
00000f20  20 20 20 46 43 4e 54 25  2d 3d 31 0d 05 c8 33 20  |   FCNT%-=1...3 |
00000f30  20 20 20 20 20 20 20 f2  73 65 74 74 65 78 74 28  |       .settext(|
00000f40  70 69 63 32 25 2c 32 2c  22 4e 6f 2e 70 6f 69 6e  |pic2%,2,"No.poin|
00000f50  74 73 3a 22 2b c3 28 46  43 4e 54 25 29 29 0d 05  |ts:"+.(FCNT%))..|
00000f60  d2 34 20 20 20 20 20 20  20 20 c8 99 20 22 57 69  |.4        .. "Wi|
00000f70  6d 70 5f 46 6f 72 63 65  52 65 64 72 61 77 22 2c  |mp_ForceRedraw",|
00000f80  70 69 63 32 25 2c 30 2c  35 30 2c 36 34 30 2c 35  |pic2%,0,50,640,5|
00000f90  31 32 0d 05 dc 0d 20 20  20 20 20 20 20 20 cd 0d  |12....        ..|
00000fa0  05 e6 39 20 20 20 20 20  20 20 20 f2 73 65 74 74  |..9        .sett|
00000fb0  65 78 74 28 66 69 6c 65  69 6e 66 6f 25 2c 34 2c  |ext(fileinfo%,4,|
00000fc0  c3 28 46 43 4e 54 25 2b  43 4e 54 25 29 2b 22 20  |.(FCNT%+CNT%)+" |
00000fd0  70 6f 69 6e 74 73 22 29  0d 05 f0 04 0d 05 fa 26  |points").......&|
00000fe0  c9 20 34 3a 20 c8 99 20  22 57 69 6d 70 5f 47 65  |. 4: .. "Wimp_Ge|
00000ff0  74 50 6f 69 6e 74 65 72  49 6e 66 6f 22 2c 2c 71  |tPointerInfo",,q|
00001000  32 25 0d 06 04 12 20 20  20 20 20 20 20 20 6e 6f  |2%....        no|
00001010  77 25 3d 30 0d 06 0e 29  20 20 20 20 20 20 20 20  |w%=0...)        |
00001020  e7 20 71 32 25 21 31 32  3d 70 69 63 31 25 20 8c  |. q2%!12=pic1% .|
00001030  20 63 64 25 3d 31 3a 6e  6f 77 25 3d 31 0d 06 18  | cd%=1:now%=1...|
00001040  29 20 20 20 20 20 20 20  20 e7 20 71 32 25 21 31  |)        . q2%!1|
00001050  32 3d 70 69 63 32 25 20  8c 20 63 64 25 3d 32 3a  |2=pic2% . cd%=2:|
00001060  6e 6f 77 25 3d 31 0d 06  22 20 20 20 20 20 20 20  |now%=1.."       |
00001070  20 20 e7 20 63 64 25 3d  31 20 8c 20 21 71 32 25  |  . cd%=1 . !q2%|
00001080  3d 70 69 63 31 25 0d 06  2c 20 20 20 20 20 20 20  |=pic1%..,       |
00001090  20 20 e7 20 63 64 25 3d  32 20 8c 20 21 71 32 25  |  . cd%=2 . !q2%|
000010a0  3d 70 69 63 32 25 0d 06  36 29 20 20 20 20 20 20  |=pic2%..6)      |
000010b0  20 20 c8 99 20 22 57 69  6d 70 5f 47 65 74 57 69  |  .. "Wimp_GetWi|
000010c0  6e 64 6f 77 53 74 61 74  65 22 2c 2c 71 32 25 0d  |ndowState",,q2%.|
000010d0  06 40 1f 20 20 20 20 20  20 20 20 78 6f 25 3d 71  |.@.        xo%=q|
000010e0  32 25 21 34 3a 79 6f 25  3d 71 32 25 21 38 0d 06  |2%!4:yo%=q2%!8..|
000010f0  4a 29 20 20 20 20 20 20  20 20 c8 99 20 22 57 69  |J)        .. "Wi|
00001100  6d 70 5f 47 65 74 50 6f  69 6e 74 65 72 49 6e 66  |mp_GetPointerInf|
00001110  6f 22 2c 2c 71 32 25 0d  06 54 1f 20 20 20 20 20  |o",,q2%..T.     |
00001120  20 20 20 70 78 25 3d 71  32 25 21 30 3a 70 79 25  |   px%=q2%!0:py%|
00001130  3d 71 32 25 21 34 0d 06  5e 16 20 20 20 20 20 20  |=q2%!4..^.      |
00001140  20 20 e7 20 6e 6f 77 25  3d 31 20 8c 0d 06 68 20  |  . now%=1 ...h |
00001150  20 20 20 20 20 20 20 20  e7 20 63 64 25 3d 31 20  |        . cd%=1 |
00001160  80 20 43 4e 54 25 3c 33  30 30 20 8c 0d 06 72 13  |. CNT%<300 ...r.|
00001170  20 20 20 20 20 20 20 20  43 4e 54 25 2b 3d 31 0d  |        CNT%+=1.|
00001180  06 7c 2d 20 20 20 20 20  20 20 20 f2 73 65 74 74  |.|-        .sett|
00001190  65 78 74 28 70 69 63 31  25 2c 30 2c 22 58 3a 22  |ext(pic1%,0,"X:"|
000011a0  2b c3 28 70 78 25 2d 78  6f 25 29 29 0d 06 86 2d  |+.(px%-xo%))...-|
000011b0  20 20 20 20 20 20 20 20  f2 73 65 74 74 65 78 74  |        .settext|
000011c0  28 70 69 63 31 25 2c 31  2c 22 59 3a 22 2b c3 28  |(pic1%,1,"Y:"+.(|
000011d0  70 79 25 2d 79 6f 25 29  29 0d 06 90 35 20 20 20  |py%-yo%))...5   |
000011e0  20 20 20 20 20 58 25 28  43 4e 54 25 29 3d 28 70  |     X%(CNT%)=(p|
000011f0  78 25 2d 78 6f 25 29 2a  32 3a 59 25 28 43 4e 54  |x%-xo%)*2:Y%(CNT|
00001200  25 29 3d 28 70 79 25 2d  79 6f 25 29 2a 32 0d 06  |%)=(py%-yo%)*2..|
00001210  9a 32 20 20 20 20 20 20  20 20 f2 73 65 74 74 65  |.2        .sette|
00001220  78 74 28 70 69 63 31 25  2c 32 2c 22 4e 6f 2e 70  |xt(pic1%,2,"No.p|
00001230  6f 69 6e 74 73 3a 22 2b  c3 28 43 4e 54 25 29 29  |oints:"+.(CNT%))|
00001240  0d 06 a4 34 20 20 20 20  20 20 20 20 c8 99 20 22  |...4        .. "|
00001250  57 69 6d 70 5f 46 6f 72  63 65 52 65 64 72 61 77  |Wimp_ForceRedraw|
00001260  22 2c 70 69 63 31 25 2c  30 2c 35 30 2c 36 34 30  |",pic1%,0,50,640|
00001270  2c 35 31 32 0d 06 ae 0d  20 20 20 20 20 20 20 20  |,512....        |
00001280  cd 0d 06 b8 04 0d 06 c2  21 20 20 20 20 20 20 20  |........!       |
00001290  20 e7 20 63 64 25 3d 32  20 80 20 46 43 4e 54 25  | . cd%=2 . FCNT%|
000012a0  3c 33 30 30 20 8c 0d 06  cc 14 20 20 20 20 20 20  |<300 .....      |
000012b0  20 20 46 43 4e 54 25 2b  3d 31 0d 06 d6 2d 20 20  |  FCNT%+=1...-  |
000012c0  20 20 20 20 20 20 f2 73  65 74 74 65 78 74 28 70  |      .settext(p|
000012d0  69 63 32 25 2c 30 2c 22  58 3a 22 2b c3 28 70 78  |ic2%,0,"X:"+.(px|
000012e0  25 2d 78 6f 25 29 29 0d  06 e0 2d 20 20 20 20 20  |%-xo%))...-     |
000012f0  20 20 20 f2 73 65 74 74  65 78 74 28 70 69 63 32  |   .settext(pic2|
00001300  25 2c 31 2c 22 59 3a 22  2b c3 28 70 79 25 2d 79  |%,1,"Y:"+.(py%-y|
00001310  6f 25 29 29 0d 06 ea 37  20 20 20 20 20 20 20 20  |o%))...7        |
00001320  41 25 28 46 43 4e 54 25  29 3d 28 70 78 25 2d 78  |A%(FCNT%)=(px%-x|
00001330  6f 25 29 2a 32 3a 42 25  28 46 43 4e 54 25 29 3d  |o%)*2:B%(FCNT%)=|
00001340  28 70 79 25 2d 79 6f 25  29 2a 32 0d 06 f4 33 20  |(py%-yo%)*2...3 |
00001350  20 20 20 20 20 20 20 f2  73 65 74 74 65 78 74 28  |       .settext(|
00001360  70 69 63 32 25 2c 32 2c  22 4e 6f 2e 70 6f 69 6e  |pic2%,2,"No.poin|
00001370  74 73 3a 22 2b c3 28 46  43 4e 54 25 29 29 0d 06  |ts:"+.(FCNT%))..|
00001380  fe 34 20 20 20 20 20 20  20 20 c8 99 20 22 57 69  |.4        .. "Wi|
00001390  6d 70 5f 46 6f 72 63 65  52 65 64 72 61 77 22 2c  |mp_ForceRedraw",|
000013a0  70 69 63 32 25 2c 30 2c  35 30 2c 36 34 30 2c 35  |pic2%,0,50,640,5|
000013b0  31 32 0d 07 08 0d 20 20  20 20 20 20 20 20 cd 0d  |12....        ..|
000013c0  07 12 39 20 20 20 20 20  20 20 20 f2 73 65 74 74  |..9        .sett|
000013d0  65 78 74 28 66 69 6c 65  69 6e 66 6f 25 2c 34 2c  |ext(fileinfo%,4,|
000013e0  c3 28 46 43 4e 54 25 2b  43 4e 54 25 29 2b 22 20  |.(FCNT%+CNT%)+" |
000013f0  70 6f 69 6e 74 73 22 29  0d 07 1c 0d 20 20 20 20  |points")....    |
00001400  20 20 20 20 cd 0d 07 26  04 0d 07 30 1f 20 20 20  |    ...&...0.   |
00001410  20 20 20 20 20 e7 20 71  31 25 21 31 32 3d 61 6e  |     . q1%!12=an|
00001420  69 69 6e 66 6f 25 20 8c  0d 07 3a 12 20 20 20 20  |iinfo% ...:.    |
00001430  20 20 20 20 65 6e 74 25  3d eb 0d 07 44 14 20 20  |    ent%=...D.  |
00001440  20 20 20 20 20 20 f2 64  69 73 70 6c 61 79 0d 07  |      .display..|
00001450  4e 22 20 20 20 20 20 20  20 20 c8 99 20 22 57 69  |N"        .. "Wi|
00001460  6d 70 5f 53 65 74 4d 6f  64 65 22 2c 65 6e 74 25  |mp_SetMode",ent%|
00001470  0d 07 58 0d 20 20 20 20  20 20 20 20 87 0d 07 62  |..X.        ...b|
00001480  0d 20 20 20 20 20 20 20  20 cd 0d 07 6c 04 0d 07  |.        ...l...|
00001490  76 19 20 20 20 20 20 20  20 20 e7 20 71 31 25 21  |v.        . q1%!|
000014a0  31 32 3d 2d 32 20 8c 0d  07 80 04 0d 07 8a 4e 20  |12=-2 ........N |
000014b0  20 20 20 20 20 20 20 21  71 31 25 3d 70 69 63 31  |       !q1%=pic1|
000014c0  25 3a c8 99 20 22 57 69  6d 70 5f 47 65 74 57 69  |%:.. "Wimp_GetWi|
000014d0  6e 64 6f 77 53 74 61 74  65 22 2c 2c 71 31 25 3a  |ndowState",,q1%:|
000014e0  c8 99 20 22 57 69 6d 70  5f 4f 70 65 6e 57 69 6e  |.. "Wimp_OpenWin|
000014f0  64 6f 77 22 2c 2c 71 31  25 0d 07 94 4e 20 20 20  |dow",,q1%...N   |
00001500  20 20 20 20 20 21 71 31  25 3d 70 69 63 32 25 3a  |     !q1%=pic2%:|
00001510  c8 99 20 22 57 69 6d 70  5f 47 65 74 57 69 6e 64  |.. "Wimp_GetWind|
00001520  6f 77 53 74 61 74 65 22  2c 2c 71 31 25 3a c8 99  |owState",,q1%:..|
00001530  20 22 57 69 6d 70 5f 4f  70 65 6e 57 69 6e 64 6f  | "Wimp_OpenWindo|
00001540  77 22 2c 2c 71 31 25 0d  07 9e 0d 20 20 20 20 20  |w",,q1%....     |
00001550  20 20 20 cd 0d 07 a8 29  20 20 20 20 20 20 20 20  |   ....)        |
00001560  e7 20 71 31 25 21 31 32  3d 73 61 76 65 61 73 25  |. q1%!12=saveas%|
00001570  20 80 20 71 31 25 21 31  36 3d 33 20 8c 0d 07 b2  | . q1%!16=3 ....|
00001580  18 20 20 20 20 20 20 20  20 21 71 31 25 3d 73 61  |.        !q1%=sa|
00001590  76 65 61 73 25 0d 07 bc  29 20 20 20 20 20 20 20  |veas%...)       |
000015a0  20 c8 99 20 22 57 69 6d  70 5f 47 65 74 57 69 6e  | .. "Wimp_GetWin|
000015b0  64 6f 77 53 74 61 74 65  22 2c 2c 71 31 25 0d 07  |dowState",,q1%..|
000015c0  c6 1c 20 20 20 20 20 20  20 20 77 65 78 3d 71 31  |..        wex=q1|
000015d0  25 21 34 2d 71 31 25 21  32 30 0d 07 d0 1d 20 20  |%!4-q1%!20....  |
000015e0  20 20 20 20 20 20 77 65  79 3d 71 31 25 21 31 36  |      wey=q1%!16|
000015f0  2d 71 31 25 21 32 34 0d  07 da 13 20 20 20 20 20  |-q1%!24....     |
00001600  20 20 20 71 31 25 21 34  3d 33 0d 07 e4 27 20 20  |   q1%!4=3...'  |
00001610  20 20 20 20 20 20 c8 99  20 22 57 69 6d 70 5f 47  |      .. "Wimp_G|
00001620  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 71 31  |etIconState",,q1|
00001630  25 0d 07 ee 20 20 20 20  20 20 20 20 20 21 71 31  |%...         !q1|
00001640  25 3d 73 61 76 65 61 73  25 3a 71 31 25 21 34 3d  |%=saveas%:q1%!4=|
00001650  35 0d 07 f8 1b 20 20 20  20 20 20 20 20 71 31 25  |5....        q1%|
00001660  21 38 3d 71 31 25 21 38  2b 77 65 78 0d 08 02 1d  |!8=q1%!8+wex....|
00001670  20 20 20 20 20 20 20 20  71 31 25 21 31 32 3d 71  |        q1%!12=q|
00001680  31 25 21 31 32 2b 77 65  79 0d 08 0c 1d 20 20 20  |1%!12+wey....   |
00001690  20 20 20 20 20 71 31 25  21 31 36 3d 71 31 25 21  |     q1%!16=q1%!|
000016a0  31 36 2b 77 65 78 0d 08  16 1d 20 20 20 20 20 20  |16+wex....      |
000016b0  20 20 71 31 25 21 32 30  3d 71 31 25 21 32 30 2b  |  q1%!20=q1%!20+|
000016c0  77 65 79 0d 08 20 1d 20  20 20 20 20 20 20 20 71  |wey.. .        q|
000016d0  31 25 21 32 34 3d 30 3a  71 31 25 21 32 38 3d 30  |1%!24=0:q1%!28=0|
000016e0  0d 08 2a 2d 20 20 20 20  20 20 20 20 71 31 25 21  |..*-        q1%!|
000016f0  33 32 3d 26 37 46 46 46  46 46 46 46 3a 71 31 25  |32=&7FFFFFFF:q1%|
00001700  21 33 36 3d 26 37 46 46  46 46 46 46 46 0d 08 34  |!36=&7FFFFFFF..4|
00001710  22 20 20 20 20 20 20 20  20 c8 99 20 22 57 69 6d  |"        .. "Wim|
00001720  70 5f 44 72 61 67 42 6f  78 22 2c 2c 71 31 25 0d  |p_DragBox",,q1%.|
00001730  08 3e 0d 20 20 20 20 20  20 20 20 cd 0d 08 48 36  |.>.        ...H6|
00001740  20 20 20 20 20 20 20 20  e7 71 31 25 21 31 32 3d  |        .q1%!12=|
00001750  73 61 76 65 61 73 25 20  80 20 71 31 25 21 31 36  |saveas% . q1%!16|
00001760  3d 32 20 f2 73 61 76 65  66 69 6c 65 28 a3 2c 22  |=2 .savefile(.,"|
00001770  22 29 0d 08 52 05 cb 0d  08 5c 05 e1 0d 08 66 05  |")..R....\....f.|
00001780  3a 0d 08 70 16 dd f2 64  6f 6d 65 6e 75 28 68 25  |:..p...domenu(h%|
00001790  2c 78 25 2c 79 25 29 0d  08 7a 24 6d 65 6e 75 64  |,x%,y%)..z$menud|
000017a0  61 74 61 25 3d 68 25 3a  6d 65 6e 75 78 25 3d 78  |ata%=h%:menux%=x|
000017b0  25 3a 6d 65 6e 75 79 25  3d 79 25 0d 08 84 22 c8  |%:menuy%=y%...".|
000017c0  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 4d 65  |. "Wimp_CreateMe|
000017d0  6e 75 22 2c 2c 68 25 2c  78 25 2c 79 25 0d 08 8e  |nu",,h%,x%,y%...|
000017e0  05 e1 0d 08 98 05 3a 0d  08 a2 10 dd f2 6d 65 6e  |......:......men|
000017f0  75 73 65 6c 65 63 74 0d  08 ac 1c ea 20 57 48 24  |uselect..... WH$|
00001800  2c 69 25 2c 61 64 6a 75  73 74 25 2c 4d 4d 24 2c  |,i%,adjust%,MM$,|
00001810  73 70 24 0d 08 b6 35 c8  99 20 22 57 69 6d 70 5f  |sp$...5.. "Wimp_|
00001820  47 65 74 50 6f 69 6e 74  65 72 49 6e 66 6f 22 2c  |GetPointerInfo",|
00001830  2c 71 32 25 3a 61 64 6a  75 73 74 25 3d 28 71 32  |,q2%:adjust%=(q2|
00001840  25 21 38 20 80 20 31 29  0d 08 c0 39 c8 99 20 22  |%!8 . 1)...9.. "|
00001850  57 69 6d 70 5f 44 65 63  6f 64 65 4d 65 6e 75 22  |Wimp_DecodeMenu"|
00001860  2c 2c 6d 65 6e 75 64 61  74 61 25 2c 71 31 25 2c  |,,menudata%,q1%,|
00001870  c4 32 30 30 2c 22 20 22  29 b8 20 2c 2c 2c 57 48  |.200," "). ,,,WH|
00001880  24 0d 08 ca 0e e7 20 57  48 24 3d 22 22 20 e1 0d  |$..... WH$="" ..|
00001890  08 d4 15 e7 20 57 48 24  3d 22 41 6e 69 6d 61 74  |.... WH$="Animat|
000018a0  65 22 20 8c 0d 08 de 0a  65 6e 74 25 3d eb 0d 08  |e" .....ent%=...|
000018b0  e8 0c f2 64 69 73 70 6c  61 79 0d 08 f2 1a c8 99  |...display......|
000018c0  20 22 57 69 6d 70 5f 53  65 74 4d 6f 64 65 22 2c  | "Wimp_SetMode",|
000018d0  65 6e 74 25 0d 08 fc 05  87 0d 09 06 05 cd 0d 09  |ent%............|
000018e0  10 1d e7 20 57 48 24 3d  22 4e 6f 20 46 69 6c 6c  |... WH$="No Fill|
000018f0  22 20 8c 20 66 69 6c 6c  25 3d 31 0d 09 1a 1d e7  |" . fill%=1.....|
00001900  20 57 48 24 3d 22 46 69  6c 6c 20 4f 6e 22 20 8c  | WH$="Fill On" .|
00001910  20 66 69 6c 6c 25 3d 30  0d 09 24 17 e7 20 57 48  | fill%=0..$.. WH|
00001920  24 3d 22 43 6c 65 61 72  20 41 6c 6c 22 20 8c 0d  |$="Clear All" ..|
00001930  09 2e 0e f2 69 6e 69 74  61 67 61 69 6e 0d 09 38  |....initagain..8|
00001940  23 f2 73 65 74 74 65 78  74 28 70 69 63 31 25 2c  |#.settext(pic1%,|
00001950  32 2c 22 4e 6f 2e 70 6f  69 6e 74 73 3a 30 22 29  |2,"No.points:0")|
00001960  0d 09 42 23 f2 73 65 74  74 65 78 74 28 70 69 63  |..B#.settext(pic|
00001970  32 25 2c 32 2c 22 4e 6f  2e 70 6f 69 6e 74 73 3a  |2%,2,"No.points:|
00001980  30 22 29 0d 09 4c 2b c8  99 20 22 57 69 6d 70 5f  |0")..L+.. "Wimp_|
00001990  46 6f 72 63 65 52 65 64  72 61 77 22 2c 70 69 63  |ForceRedraw",pic|
000019a0  31 25 2c 30 2c 30 2c 36  34 30 2c 35 31 32 0d 09  |1%,0,0,640,512..|
000019b0  56 2b c8 99 20 22 57 69  6d 70 5f 46 6f 72 63 65  |V+.. "Wimp_Force|
000019c0  52 65 64 72 61 77 22 2c  70 69 63 32 25 2c 30 2c  |Redraw",pic2%,0,|
000019d0  30 2c 36 34 30 2c 35 31  32 0d 09 60 05 cd 0d 09  |0,640,512..`....|
000019e0  6a 1c e7 20 57 48 24 3d  22 51 75 69 74 22 20 8c  |j.. WH$="Quit" .|
000019f0  20 f2 73 68 75 74 64 6f  77 6e 0d 09 74 04 0d 09  | .shutdown..t...|
00001a00  7e 40 e7 20 61 64 6a 75  73 74 25 20 80 20 66 69  |~@. adjust% . fi|
00001a10  6c 6c 25 3d 30 20 8c 20  f2 64 6f 6d 65 6e 75 28  |ll%=0 . .domenu(|
00001a20  64 72 61 77 6d 65 6e 75  31 25 2c 21 71 32 25 2d  |drawmenu1%,!q2%-|
00001a30  31 30 30 2c 71 32 25 21  34 2b 31 30 30 29 0d 09  |100,q2%!4+100)..|
00001a40  88 40 e7 20 61 64 6a 75  73 74 25 20 80 20 66 69  |.@. adjust% . fi|
00001a50  6c 6c 25 3d 31 20 8c 20  f2 64 6f 6d 65 6e 75 28  |ll%=1 . .domenu(|
00001a60  64 72 61 77 6d 65 6e 75  32 25 2c 21 71 32 25 2d  |drawmenu2%,!q2%-|
00001a70  31 30 30 2c 71 32 25 21  34 2b 31 30 30 29 0d 09  |100,q2%!4+100)..|
00001a80  92 05 e1 0d 09 9c 05 3a  0d 09 a6 0c dd a4 63 72  |.......:......cr|
00001a90  6d 65 6e 75 0d 09 b0 14  ea 20 4d 25 2c 6d 65 6e  |menu..... M%,men|
00001aa0  75 24 2c 6d 24 2c 49 25  0d 09 ba 36 e7 20 28 6d  |u$,m$,I%...6. (m|
00001ab0  65 6e 75 66 72 65 65 25  2b 32 38 3e 6d 65 6e 75  |enufree%+28>menu|
00001ac0  65 6e 64 25 29 20 f2 66  61 74 61 6c 28 22 4d 65  |end%) .fatal("Me|
00001ad0  6e 75 20 61 72 65 61 20  66 75 6c 6c 22 29 0d 09  |nu area full")..|
00001ae0  c4 0b f3 20 6d 65 6e 75  24 0d 09 ce 15 c8 95 20  |... menu$...... |
00001af0  c2 6d 65 6e 75 24 2c 32  29 3d 22 2b 2b 22 0d 09  |.menu$,2)="++"..|
00001b00  d8 09 20 f3 20 6d 24 0d  09 e2 1e 20 6d 65 6e 75  |.. . m$.... menu|
00001b10  24 3d c0 6d 65 6e 75 24  2c a9 6d 65 6e 75 24 2d  |$=.menu$,.menu$-|
00001b20  32 29 2b 6d 24 0d 09 ec  05 ce 0d 09 f6 16 6d 65  |2)+m$.........me|
00001b30  6e 75 70 74 72 25 3d 6d  65 6e 75 66 72 65 65 25  |nuptr%=menufree%|
00001b40  0d 0a 00 08 49 25 3d 30  0d 0a 0a 3d e7 20 c0 6d  |....I%=0...=. .m|
00001b50  65 6e 75 24 2c 31 29 3d  22 23 22 20 49 25 3d 31  |enu$,1)="#" I%=1|
00001b60  3a 6d 65 6e 75 74 69 74  6c 65 24 3d a4 70 61 72  |:menutitle$=.par|
00001b70  28 22 2c 22 29 20 8b 20  6d 65 6e 75 74 69 74 6c  |(",") . menutitl|
00001b80  65 24 3d 22 22 0d 0a 14  18 24 6d 65 6e 75 70 74  |e$=""....$menupt|
00001b90  72 25 3d 6d 65 6e 75 74  69 74 6c 65 24 0d 0a 1e  |r%=menutitle$...|
00001ba0  11 6d 65 6e 75 70 74 72  25 3f 31 32 3d 37 0d 0a  |.menuptr%?12=7..|
00001bb0  28 11 6d 65 6e 75 70 74  72 25 3f 31 33 3d 32 0d  |(.menuptr%?13=2.|
00001bc0  0a 32 11 6d 65 6e 75 70  74 72 25 3f 31 34 3d 37  |.2.menuptr%?14=7|
00001bd0  0d 0a 3c 11 6d 65 6e 75  70 74 72 25 3f 31 35 3d  |..<.menuptr%?15=|
00001be0  31 0d 0a 46 13 6d 65 6e  75 70 74 72 25 21 31 36  |1..F.menuptr%!16|
00001bf0  3d 31 39 36 0d 0a 50 12  6d 65 6e 75 70 74 72 25  |=196..P.menuptr%|
00001c00  21 32 30 3d 34 34 0d 0a  5a 11 6d 65 6e 75 70 74  |!20=44..Z.menupt|
00001c10  72 25 21 32 34 3d 30 0d  0a 64 10 6d 65 6e 75 70  |r%!24=0..d.menup|
00001c20  74 72 25 2b 3d 32 38 0d  0a 6e 17 6d 61 78 78 25  |tr%+=28..n.maxx%|
00001c30  3d a9 6d 65 6e 75 74 69  74 6c 65 24 2d 33 0d 0a  |=.menutitle$-3..|
00001c40  78 05 f5 0d 0a 82 14 20  69 74 65 6d 24 3d a4 70  |x...... item$=.p|
00001c50  61 72 28 22 2c 22 29 0d  0a 8c 15 20 f2 6d 65 6e  |ar(",").... .men|
00001c60  75 69 74 65 6d 28 69 74  65 6d 24 29 0d 0a 96 0e  |uitem(item$)....|
00001c70  fd 20 69 74 65 6d 24 3d  22 22 0d 0a a0 10 4d 25  |. item$=""....M%|
00001c80  3d 6d 65 6e 75 66 72 65  65 25 0d 0a aa 17 4d 25  |=menufree%....M%|
00001c90  21 31 36 3d 28 6d 61 78  78 25 2a 38 2b 36 29 2a  |!16=(maxx%*8+6)*|
00001ca0  32 0d 0a b4 16 6d 65 6e  75 66 72 65 65 25 3d 6d  |2....menufree%=m|
00001cb0  65 6e 75 70 74 72 25 0d  0a be 07 3d 4d 25 0d 0a  |enuptr%....=M%..|
00001cc0  c8 05 3a 0d 0a d2 15 dd  f2 6d 65 6e 75 69 74 65  |..:......menuite|
00001cd0  6d 28 74 65 78 74 24 29  0d 0a dc 11 ea 20 49 25  |m(text$)..... I%|
00001ce0  2c 46 25 2c 53 25 2c 4c  25 0d 0a e6 30 e7 20 74  |,F%,S%,L%...0. t|
00001cf0  65 78 74 24 3d 22 22 20  6d 65 6e 75 70 74 72 25  |ext$="" menuptr%|
00001d00  21 2d 32 34 3d 28 6d 65  6e 75 70 74 72 25 21 2d  |!-24=(menuptr%!-|
00001d10  32 34 29 84 26 38 30 3a  e1 0d 0a f0 35 e7 20 28  |24).&80:....5. (|
00001d20  6d 65 6e 75 70 74 72 25  2b 32 34 3e 6d 65 6e 75  |menuptr%+24>menu|
00001d30  65 6e 64 25 29 20 f2 66  61 74 61 6c 28 22 4d 65  |end%) .fatal("Me|
00001d40  6e 75 20 61 72 65 61 20  66 75 6c 6c 22 29 0d 0a  |nu area full")..|
00001d50  fa 0a 46 25 3d 26 30 30  0d 0b 04 12 49 25 3d a7  |..F%=&00....I%=.|
00001d60  74 65 78 74 24 2c 22 3e  22 29 0d 0b 0e 0c e7 20  |text$,">")..... |
00001d70  49 25 3e 30 20 8c 0d 0b  18 15 20 53 25 3d a0 c1  |I%>0 ..... S%=..|
00001d80  74 65 78 74 24 2c 49 25  2b 31 29 0d 0b 22 16 74  |text$,I%+1)..".t|
00001d90  65 78 74 24 3d c0 74 65  78 74 24 2c 49 25 2d 31  |ext$=.text$,I%-1|
00001da0  29 0d 0b 2c 05 cc 0d 0b  36 0a 20 53 25 3d 2d 31  |)..,....6. S%=-1|
00001db0  0d 0b 40 05 cd 0d 0b 4a  29 e7 20 c2 74 65 78 74  |..@....J). .text|
00001dc0  24 2c 31 29 3d 22 23 22  20 74 65 78 74 24 3d c0  |$,1)="#" text$=.|
00001dd0  74 65 78 74 24 29 3a 46  25 2b 3d 26 30 32 0d 0b  |text$):F%+=&02..|
00001de0  54 29 e7 20 c2 74 65 78  74 24 2c 31 29 3d 22 40  |T). .text$,1)="@|
00001df0  22 20 74 65 78 74 24 3d  c0 74 65 78 74 24 29 3a  |" text$=.text$):|
00001e00  46 25 2b 3d 26 30 38 0d  0b 5e 11 6d 65 6e 75 70  |F%+=&08..^.menup|
00001e10  74 72 25 21 30 3d 46 25  0d 0b 68 11 6d 65 6e 75  |tr%!0=F%..h.menu|
00001e20  70 74 72 25 21 34 3d 53  25 0d 0b 72 18 6d 65 6e  |ptr%!4=S%..r.men|
00001e30  75 70 74 72 25 21 38 3d  26 30 37 30 30 30 30 32  |uptr%!8=&0700002|
00001e40  31 0d 0b 7c 15 e7 20 c0  74 65 78 74 24 2c 31 29  |1..|.. .text$,1)|
00001e50  3d 22 24 22 20 8c 0d 0b  86 13 20 21 6d 65 6e 75  |="$" ..... !menu|
00001e60  70 74 72 25 2b 3d 26 30  34 0d 0b 90 15 20 6d 65  |ptr%+=&04.... me|
00001e70  6e 75 70 74 72 25 21 38  2b 3d 26 31 30 30 0d 0b  |nuptr%!8+=&100..|
00001e80  9a 13 20 49 25 3d a7 74  65 78 74 24 2c 22 28 22  |.. I%=.text$,"("|
00001e90  29 0d 0b a4 0d 20 e7 20  49 25 3e 30 20 8c 0d 0b  |).... . I%>0 ...|
00001ea0  ae 16 20 20 4c 25 3d bb  c1 74 65 78 74 24 2c 49  |..  L%=..text$,I|
00001eb0  25 2b 31 29 0d 0b b8 18  20 20 74 65 78 74 24 3d  |%+1)....  text$=|
00001ec0  c0 74 65 78 74 24 2c 49  25 2d 31 29 0d 0b c2 06  |.text$,I%-1)....|
00001ed0  20 cc 0d 0b cc 0b 20 20  4c 25 3d 31 32 0d 0b d6  | .....  L%=12...|
00001ee0  06 20 cd 0d 0b e0 1b 20  6d 65 6e 75 70 74 72 25  |. ..... menuptr%|
00001ef0  21 31 32 3d a0 c1 74 65  78 74 24 2c 32 29 0d 0b  |!12=..text$,2)..|
00001f00  ea 13 20 6d 65 6e 75 70  74 72 25 21 31 36 3d 2d  |.. menuptr%!16=-|
00001f10  31 0d 0b f4 13 20 6d 65  6e 75 70 74 72 25 21 32  |1.... menuptr%!2|
00001f20  30 3d 4c 25 0d 0b fe 11  20 e7 4c 25 3e 31 36 20  |0=L%.... .L%>16 |
00001f30  4c 25 3d 31 36 0d 0c 08  13 20 74 65 78 74 24 3d  |L%=16.... text$=|
00001f40  c4 4c 25 2c 22 20 22 29  0d 0c 12 05 cc 0d 0c 1c  |.L%," ")........|
00001f50  11 20 e7 a9 74 65 78 74  24 3c 3d 31 32 8c 0d 0c  |. ..text$<=12...|
00001f60  26 1a 20 20 24 28 6d 65  6e 75 70 74 72 25 2b 31  |&.  $(menuptr%+1|
00001f70  32 29 3d 74 65 78 74 24  0d 0c 30 06 20 cc 0d 0c  |2)=text$..0. ...|
00001f80  3a 27 20 20 49 25 3d a4  77 6f 72 6b 73 70 61 63  |:'  I%=.workspac|
00001f90  65 28 a9 74 65 78 74 24  2b 31 29 3a 24 49 25 3d  |e(.text$+1):$I%=|
00001fa0  74 65 78 74 24 0d 0c 44  38 20 20 6d 65 6e 75 70  |text$..D8  menup|
00001fb0  74 72 25 21 31 32 3d 49  25 3a 6d 65 6e 75 70 74  |tr%!12=I%:menupt|
00001fc0  72 25 21 31 36 3d 2d 31  3a 6d 65 6e 75 70 74 72  |r%!16=-1:menuptr|
00001fd0  25 21 32 30 3d a9 74 65  78 74 24 2b 31 0d 0c 4e  |%!20=.text$+1..N|
00001fe0  22 20 20 6d 65 6e 75 70  74 72 25 21 38 3d 6d 65  |"  menuptr%!8=me|
00001ff0  6e 75 70 74 72 25 21 38  20 84 20 26 31 30 30 0d  |nuptr%!8 . &100.|
00002000  0c 58 06 20 cd 0d 0c 62  05 cd 0d 0c 6c 1f e7 20  |.X. ...b....l.. |
00002010  a9 74 65 78 74 24 3e 6d  61 78 78 25 20 6d 61 78  |.text$>maxx% max|
00002020  78 25 3d a9 74 65 78 74  24 0d 0c 76 10 6d 65 6e  |x%=.text$..v.men|
00002030  75 70 74 72 25 2b 3d 32  34 0d 0c 80 05 e1 0d 0c  |uptr%+=24.......|
00002040  8a 05 3a 0d 0c 94 0f dd  a4 70 61 72 28 73 65 70  |..:......par(sep|
00002050  24 29 0d 0c 9e 08 ea 20  4c 25 0d 0c a8 0b 4c 25  |$)..... L%....L%|
00002060  3d 49 25 2b 31 0d 0c b2  1b 49 25 3d a7 6d 65 6e  |=I%+1....I%=.men|
00002070  75 24 2b 73 65 70 24 2c  73 65 70 24 2c 4c 25 29  |u$+sep$,sep$,L%)|
00002080  0d 0c bc 15 3d c1 6d 65  6e 75 24 2c 4c 25 2c 49  |....=.menu$,L%,I|
00002090  25 2d 4c 25 29 0d 0c c6  05 3a 0d 0c d0 13 dd a4  |%-L%)....:......|
000020a0  77 6f 72 6b 73 70 61 63  65 28 4c 25 29 0d 0c da  |workspace(L%)...|
000020b0  38 e7 20 63 75 72 77 73  25 2b 4c 25 3e 77 73 25  |8. curws%+L%>ws%|
000020c0  2b 6d 61 78 77 73 25 20  8c 20 f2 66 61 74 61 6c  |+maxws% . .fatal|
000020d0  28 22 4e 6f 20 6d 6f 72  65 20 77 6f 72 6b 73 70  |("No more worksp|
000020e0  61 63 65 22 29 0d 0c e4  0e 63 75 72 77 73 25 2b  |ace")....curws%+|
000020f0  3d 4c 25 0d 0c ee 0e 3d  63 75 72 77 73 25 2d 4c  |=L%....=curws%-L|
00002100  25 0d 0c f8 0d dd f2 61  63 6b 6c 6f 61 64 0d 0d  |%......ackload..|
00002110  02 21 71 31 25 21 31 32  3d 71 31 25 21 38 3a 71  |.!q1%!12=q1%!8:q|
00002120  31 25 21 31 36 3d 34 3a  21 71 31 25 3d 36 34 0d  |1%!16=4:!q1%=64.|
00002130  0d 0c 26 c8 99 20 22 57  69 6d 70 5f 53 65 6e 64  |..&.. "Wimp_Send|
00002140  4d 65 73 73 61 67 65 22  2c 31 37 2c 71 31 25 2c  |Message",17,q1%,|
00002150  71 31 25 21 34 0d 0d 16  05 e1 0d 0d 20 05 3a 0d  |q1%!4....... .:.|
00002160  0d 2a 05 3a 0d 0d 34 0f  dd a4 77 69 6d 70 65 72  |.*.:..4...wimper|
00002170  72 6f 72 0d 0d 3e 2d e7  20 f6 24 3d 22 4f 62 6a  |ror..>-. .$="Obj|
00002180  65 63 74 20 69 73 20 61  20 64 69 72 65 63 74 6f  |ect is a directo|
00002190  72 79 22 20 8c 20 f2 43  6c 6f 73 65 46 69 6c 65  |ry" . .CloseFile|
000021a0  0d 0d 48 0a 21 71 32 25  3d 9f 0d 0d 52 12 24 28  |..H.!q2%=...R.$(|
000021b0  71 32 25 2b 34 29 3d f6  24 2b bd 30 0d 0d 5c 32  |q2%+4)=.$+.0..\2|
000021c0  c8 99 22 57 69 6d 70 5f  52 65 70 6f 72 74 45 72  |.."Wimp_ReportEr|
000021d0  72 6f 72 22 2c 71 32 25  2c 2c 22 4d 6f 72 70 68  |ror",q2%,,"Morph|
000021e0  22 20 b8 20 2c 72 65 73  70 6f 6e 73 65 25 0d 0d  |" . ,response%..|
000021f0  66 22 e7 20 72 65 73 70  6f 6e 73 65 25 3d 31 20  |f". response%=1 |
00002200  8c 20 e5 20 8d 44 46 40  3a 3d b9 20 8b 20 3d a3  |. . .DF@:=. . =.|
00002210  0d 0d 70 06 20 3a 0d 0d  7a 0a dd f2 70 6f 6c 6c  |..p. :..z...poll|
00002220  0d 0d 84 0e 20 f4 20 2a  46 58 20 34 2c 31 0d 0d  |.... . *FX 4,1..|
00002230  8e 06 20 f5 0d 0d 98 22  20 c8 99 22 57 69 6d 70  |.. ...." .."Wimp|
00002240  5f 50 6f 6c 6c 22 2c 2c  71 31 25 20 b8 20 72 65  |_Poll",,q1% . re|
00002250  73 70 6f 6e 64 25 0d 0d  a2 12 20 c8 8e 20 72 65  |spond%.... .. re|
00002260  73 70 6f 6e 64 25 20 ca  0d 0d ac 12 20 c9 20 31  |spond% ..... . 1|
00002270  20 3a 20 f2 52 65 64 72  61 77 0d 0d b6 24 20 c9  | : .Redraw...$ .|
00002280  20 32 20 3a 20 c8 99 20  22 57 69 6d 70 5f 4f 70  | 2 : .. "Wimp_Op|
00002290  65 6e 57 69 6e 64 6f 77  22 2c 2c 71 31 25 0d 0d  |enWindow",,q1%..|
000022a0  c0 25 20 c9 20 33 20 3a  20 c8 99 20 22 57 69 6d  |.% . 3 : .. "Wim|
000022b0  70 5f 43 6c 6f 73 65 57  69 6e 64 6f 77 22 2c 2c  |p_CloseWindow",,|
000022c0  71 31 25 0d 0d ca 16 20  c9 20 36 20 3a 20 f2 6d  |q1%.... . 6 : .m|
000022d0  6f 75 73 65 63 6c 69 63  6b 0d 0d d4 10 20 c9 20  |ouseclick.... . |
000022e0  37 20 3a 20 f2 73 61 76  65 0d 0d de 14 20 c9 20  |7 : .save.... . |
000022f0  38 20 3a 20 f2 6b 65 79  70 72 65 73 73 0d 0d e8  |8 : .keypress...|
00002300  16 20 c9 20 39 20 3a 20  f2 6d 65 6e 75 73 65 6c  |. . 9 : .menusel|
00002310  65 63 74 0d 0d f2 1a 20  c9 20 31 37 2c 31 38 3a  |ect.... . 17,18:|
00002320  20 f2 72 65 63 65 69 76  65 28 72 25 29 0d 0d fc  | .receive(r%)...|
00002330  0f 20 c9 20 31 39 3a 20  f2 61 63 6b 0d 0e 06 05  |. . 19: .ack....|
00002340  cb 0d 0e 10 07 fd 20 a3  0d 0e 1a 05 e1 0d 0e 24  |...... ........$|
00002350  14 20 dd f2 73 65 74 75  70 67 72 61 70 68 69 63  |. ..setupgraphic|
00002360  73 0d 0e 2e 16 20 73 70  72 69 74 65 6c 65 6e 3d  |s.... spritelen=|
00002370  31 36 2a 31 30 32 34 0d  0e 38 19 20 de 20 73 70  |16*1024..8. . sp|
00002380  72 69 74 65 73 25 20 73  70 72 69 74 65 6c 65 6e  |rites% spritelen|
00002390  0d 0e 42 19 20 73 70 72  69 74 65 73 25 21 30 3d  |..B. sprites%!0=|
000023a0  73 70 72 69 74 65 6c 65  6e 0d 0e 4c 12 20 73 70  |spritelen..L. sp|
000023b0  72 69 74 65 73 25 21 38  3d 31 37 0d 0e 56 25 20  |rites%!8=17..V% |
000023c0  c8 99 20 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |.. "OS_SpriteOp"|
000023d0  2c 26 31 30 30 2b 39 2c  73 70 72 69 74 65 73 25  |,&100+9,sprites%|
000023e0  0d 0e 60 3d 20 c8 99 20  22 4f 53 5f 53 70 72 69  |..`= .. "OS_Spri|
000023f0  74 65 4f 70 22 2c 26 31  30 30 2b 31 30 2c 73 70  |teOp",&100+10,sp|
00002400  72 69 74 65 73 25 2c 22  3c 4d 6f 72 70 68 24 44  |rites%,"<Morph$D|
00002410  69 72 3e 2e 21 53 70 72  69 74 65 73 22 0d 0e 6a  |ir>.!Sprites"..j|
00002420  06 20 e1 0d 0e 74 12 20  dd f2 53 63 68 6f 6f 73  |. ...t. ..Schoos|
00002430  65 28 6e 24 29 0d 0e 7e  0f 20 63 68 6f 73 65 6e  |e(n$)..~. chosen|
00002440  24 3d 6e 24 0d 0e 88 06  20 e1 0d 0e 92 0f 20 dd  |$=n$.... ..... .|
00002450  f2 53 67 65 74 28 6e 24  29 0d 0e 9c 2b 20 c8 99  |.Sget(n$)...+ ..|
00002460  20 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 26  | "OS_SpriteOp",&|
00002470  31 30 30 2b 31 34 2c 73  70 72 69 74 65 73 25 2c  |100+14,sprites%,|
00002480  6e 24 2c 30 0d 0e a6 06  20 e1 0d 0e b0 1b 20 dd  |n$,0.... ..... .|
00002490  f2 53 70 6c 6f 74 28 78  25 2c 79 25 2c 63 68 6f  |.Splot(x%,y%,cho|
000024a0  73 65 6e 24 29 0d 0e ba  36 20 c8 99 20 22 4f 53  |sen$)...6 .. "OS|
000024b0  5f 53 70 72 69 74 65 4f  70 22 2c 26 31 30 30 2b  |_SpriteOp",&100+|
000024c0  33 34 2c 73 70 72 69 74  65 73 25 2c 63 68 6f 73  |34,sprites%,chos|
000024d0  65 6e 24 2c 78 25 2c 79  25 2c 30 0d 0e c4 06 20  |en$,x%,y%,0.... |
000024e0  e1 0d 0e ce 13 20 dd f2  4d 70 6c 6f 74 28 78 25  |..... ..Mplot(x%|
000024f0  2c 79 25 29 0d 0e d8 36  20 c8 99 20 22 4f 53 5f  |,y%)...6 .. "OS_|
00002500  53 70 72 69 74 65 4f 70  22 2c 26 31 30 30 2b 33  |SpriteOp",&100+3|
00002510  34 2c 73 70 72 69 74 65  73 25 2c 63 68 6f 73 65  |4,sprites%,chose|
00002520  6e 24 2c 78 25 2c 79 25  2c 38 0d 0e e2 06 20 e1  |n$,x%,y%,8.... .|
00002530  0d 0e ec 1d 20 dd f2 73  65 74 74 65 78 74 28 77  |.... ..settext(w|
00002540  77 25 2c 69 63 6e 25 2c  69 63 74 24 29 0d 0e f6  |w%,icn%,ict$)...|
00002550  35 20 71 32 25 21 30 3d  77 77 25 3a 71 32 25 21  |5 q2%!0=ww%:q2%!|
00002560  34 3d 69 63 6e 25 3a c8  99 20 22 57 69 6d 70 5f  |4=icn%:.. "Wimp_|
00002570  47 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 71  |GetIconState",,q|
00002580  32 25 0d 0f 00 40 20 24  28 71 32 25 21 32 38 29  |2%...@ $(q2%!28)|
00002590  3d 69 63 74 24 3a 71 32  25 21 38 3d 30 3a 71 32  |=ict$:q2%!8=0:q2|
000025a0  25 21 31 32 3d 30 3a c8  99 20 22 57 69 6d 70 5f  |%!12=0:.. "Wimp_|
000025b0  53 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 71  |SetIconState",,q|
000025c0  32 25 0d 0f 0a 06 20 e1  0d 0f 14 1d 20 dd f2 73  |2%.... ..... ..s|
000025d0  65 74 69 63 6f 6e 28 77  77 25 2c 69 63 6e 25 2c  |eticon(ww%,icn%,|
000025e0  69 63 74 24 29 0d 0f 1e  35 20 71 32 25 21 30 3d  |ict$)...5 q2%!0=|
000025f0  77 77 25 3a 71 32 25 21  34 3d 69 63 6e 25 3a c8  |ww%:q2%!4=icn%:.|
00002600  99 20 22 57 69 6d 70 5f  47 65 74 49 63 6f 6e 53  |. "Wimp_GetIconS|
00002610  74 61 74 65 22 2c 2c 71  32 25 0d 0f 28 3d 20 71  |tate",,q2%..(= q|
00002620  32 25 21 32 34 3d 69 63  74 24 3a 71 32 25 21 38  |2%!24=ict$:q2%!8|
00002630  3d 30 3a 71 32 25 21 31  32 3d 30 3a c8 99 20 22  |=0:q2%!12=0:.. "|
00002640  57 69 6d 70 5f 53 65 74  49 63 6f 6e 53 74 61 74  |Wimp_SetIconStat|
00002650  65 22 2c 2c 71 32 25 0d  0f 32 06 20 e1 0d 0f 3c  |e",,q2%..2. ...<|
00002660  1d dd 20 a4 67 65 74 74  65 78 74 28 77 69 6e 64  |.. .gettext(wind|
00002670  6f 77 25 2c 69 63 6f 6e  25 29 0d 0f 46 1e 20 71  |ow%,icon%)..F. q|
00002680  31 25 21 30 3d 77 69 6e  64 6f 77 25 3a 71 31 25  |1%!0=window%:q1%|
00002690  21 34 3d 69 63 6f 6e 25  0d 0f 50 21 20 c8 99 20  |!4=icon%..P! .. |
000026a0  22 57 69 6d 70 5f 47 65  74 49 63 6f 6e 53 74 61  |"Wimp_GetIconSta|
000026b0  74 65 22 2c 30 2c 71 31  25 0d 0f 5a 0f 3d 20 24  |te",0,q1%..Z.= $|
000026c0  28 71 31 25 21 32 38 29  0d 0f 64 18 dd 20 a4 67  |(q1%!28)..d.. .g|
000026d0  65 74 6c 65 61 66 6e 61  6d 65 28 66 73 70 24 29  |etleafname(fsp$)|
000026e0  0d 0f 6e 10 20 70 6f 73  3d a9 28 66 73 70 24 29  |..n. pos=.(fsp$)|
000026f0  0d 0f 78 21 20 c8 95 20  c1 66 73 70 24 2c 70 6f  |..x! .. .fsp$,po|
00002700  73 2c 31 29 3c 3e 22 2e  22 20 80 20 70 6f 73 3e  |s,1)<>"." . pos>|
00002710  30 0d 0f 82 0c 20 20 70  6f 73 2d 3d 31 0d 0f 8c  |0....  pos-=1...|
00002720  06 20 ce 0d 0f 96 11 3d  c1 66 73 70 24 2c 70 6f  |. .....=.fsp$,po|
00002730  73 2b 31 29 0d 0f a0 15  dd f2 73 61 76 65 66 69  |s+1)......savefi|
00002740  6c 65 28 66 25 2c 6e 24  29 0d 0f aa 11 ea 20 6c  |le(f%,n$)..... l|
00002750  24 2c 63 25 2c 64 24 2c  64 25 0d 0f b4 09 e7 66  |$,c%,d$,d%.....f|
00002760  25 20 8c 0d 0f be 0a 20  6c 24 3d 6e 24 0d 0f c8  |% ..... l$=n$...|
00002770  05 cc 0d 0f d2 1a 6c 24  3d a4 67 65 74 74 65 78  |......l$=.gettex|
00002780  74 28 73 61 76 65 61 73  25 2c 34 29 0d 0f dc 11  |t(saveas%,4)....|
00002790  e7 a7 6c 24 2c 22 2e 22  29 3d 30 20 8c 0d 0f e6  |..l$,".")=0 ....|
000027a0  41 f2 6f 6b 28 22 54 6f  20 73 61 76 65 20 74 68  |A.ok("To save th|
000027b0  65 20 66 69 6c 65 2c 20  64 72 61 67 20 74 68 65  |e file, drag the|
000027c0  20 69 63 6f 6e 20 74 6f  20 61 20 64 69 72 65 63  | icon to a direc|
000027d0  74 6f 72 79 20 76 69 65  77 65 72 2e 22 29 0d 0f  |tory viewer.")..|
000027e0  f0 0b 55 42 44 55 25 3d  30 0d 0f fa 0a e5 20 8d  |..UBDU%=0..... .|
000027f0  54 6c 50 0d 10 04 05 cd  0d 10 0e 05 cd 0d 10 18  |TlP.............|
00002800  11 f2 53 61 76 65 46 69  6c 65 28 6c 24 29 0d 10  |..SaveFile(l$)..|
00002810  22 2a 21 71 32 25 3d 73  61 76 65 61 73 25 3a c8  |"*!q2%=saveas%:.|
00002820  99 22 57 69 6d 70 5f 43  6c 6f 73 65 57 69 6e 64  |."Wimp_CloseWind|
00002830  6f 77 22 2c 2c 71 32 25  0d 10 2c 05 e1 0d 10 36  |ow",,q2%..,....6|
00002840  0e dd f2 6b 65 79 70 72  65 73 73 0d 10 40 32 e7  |...keypress..@2.|
00002850  20 71 31 25 21 32 34 3d  31 33 20 80 20 21 71 31  | q1%!24=13 . !q1|
00002860  25 3d 73 61 76 65 61 73  25 20 8c 20 f2 73 61 76  |%=saveas% . .sav|
00002870  65 66 69 6c 65 28 a3 2c  22 22 29 3a e1 0d 10 4a  |efile(.,""):...J|
00002880  1e c8 99 22 57 69 6d 70  5f 50 72 6f 63 65 73 73  |..."Wimp_Process|
00002890  4b 65 79 22 2c 71 31 25  21 32 34 0d 10 54 05 e1  |Key",q1%!24..T..|
000028a0  0d 10 5e 0c dd f2 6f 6b  28 65 24 29 0d 10 68 11  |..^...ok(e$)..h.|
000028b0  65 72 72 6f 72 5f 66 6c  61 67 25 3d 31 0d 10 72  |error_flag%=1..r|
000028c0  0a 85 20 31 2c 65 24 0d  10 7c 05 e1 0d 10 86 05  |.. 1,e$..|......|
000028d0  3a 0d 10 90 0f dd f2 66  61 74 61 6c 28 65 24 29  |:......fatal(e$)|
000028e0  0d 10 9a 11 65 72 72 6f  72 5f 66 6c 61 67 25 3d  |....error_flag%=|
000028f0  32 0d 10 a4 0a 85 20 31  2c 65 24 0d 10 ae 05 e1  |2..... 1,e$.....|
00002900  0d 10 b8 05 3a 0d 10 c2  0a dd f2 73 61 76 65 0d  |....:......save.|
00002910  10 cc 0d f2 67 65 74 66  6e 61 6d 65 0d 10 d6 21  |....getfname...!|
00002920  c8 99 20 22 57 69 6d 70  5f 47 65 74 50 6f 69 6e  |.. "Wimp_GetPoin|
00002930  74 65 72 49 6e 66 6f 22  2c 2c 71 31 25 0d 10 e0  |terInfo",,q1%...|
00002940  16 71 31 25 21 32 30 3d  36 34 3a 71 31 25 21 33  |.q1%!20=64:q1%!3|
00002950  32 3d 30 0d 10 ea 1a 71  31 25 21 33 36 3d 31 3a  |2=0....q1%!36=1:|
00002960  71 31 25 21 34 30 3d 71  31 25 21 31 32 0d 10 f4  |q1%!40=q1%!12...|
00002970  11 71 31 25 21 34 34 3d  71 31 25 21 31 36 0d 10  |.q1%!44=q1%!16..|
00002980  fe 0f 71 31 25 21 34 38  3d 21 71 31 25 0d 11 08  |..q1%!48=!q1%...|
00002990  10 71 31 25 21 35 32 3d  71 31 25 21 34 0d 11 12  |.q1%!52=q1%!4...|
000029a0  10 71 31 25 21 35 36 3d  31 30 31 39 32 0d 11 1c  |.q1%!56=10192...|
000029b0  0f 71 31 25 21 36 30 3d  26 66 66 66 0d 11 26 16  |.q1%!60=&fff..&.|
000029c0  24 28 71 31 25 2b 36 34  29 3d 4d 59 46 4e 41 4d  |$(q1%+64)=MYFNAM|
000029d0  45 24 0d 11 30 31 c8 99  20 22 57 69 6d 70 5f 53  |E$..01.. "Wimp_S|
000029e0  65 6e 64 4d 65 73 73 61  67 65 22 2c 31 37 2c 71  |endMessage",17,q|
000029f0  31 25 2b 32 30 2c 71 31  25 21 31 32 2c 71 31 25  |1%+20,q1%!12,q1%|
00002a00  21 31 36 0d 11 3a 05 e1  0d 11 44 0e dd f2 44 61  |!16..:....D...Da|
00002a10  74 61 53 61 76 65 0d 11  4e 1d f2 53 61 76 65 46  |taSave..N..SaveF|
00002a20  69 6c 65 28 a4 67 6e 61  6d 65 28 71 31 25 2b 34  |ile(.gname(q1%+4|
00002a30  34 29 29 0d 11 58 21 71  31 25 21 31 32 3d 71 31  |4))..X!q1%!12=q1|
00002a40  25 21 38 3a 71 31 25 21  31 36 3d 33 3a 21 71 31  |%!8:q1%!16=3:!q1|
00002a50  25 3d 36 34 0d 11 62 2e  c8 99 20 22 57 69 6d 70  |%=64..b... "Wimp|
00002a60  5f 53 65 6e 64 4d 65 73  73 61 67 65 22 2c 31 37  |_SendMessage",17|
00002a70  2c 71 31 25 2c 71 31 25  21 32 30 2c 71 31 25 21  |,q1%,q1%!20,q1%!|
00002a80  32 34 0d 11 6c 05 e1 0d  11 76 11 dd 20 a4 67 6e  |24..l....v.. .gn|
00002a90  61 6d 65 28 70 74 72 29  0d 11 80 09 66 24 3d 22  |ame(ptr)....f$="|
00002aa0  22 0d 11 8a 19 c8 95 20  3f 70 74 72 3c 3e 30 20  |"...... ?ptr<>0 |
00002ab0  80 20 3f 70 74 72 3c 3e  31 33 0d 11 94 16 66 24  |. ?ptr<>13....f$|
00002ac0  3d 66 24 2b bd 3f 70 74  72 3a 70 74 72 2b 3d 31  |=f$+.?ptr:ptr+=1|
00002ad0  0d 11 9e 05 ce 0d 11 a8  07 3d 66 24 0d 11 b2 0e  |.........=f$....|
00002ae0  dd f2 67 65 74 66 6e 61  6d 65 0d 11 bc 23 77 68  |..getfname...#wh|
00002af0  6f 6c 65 74 68 69 6e 67  24 3d a4 67 65 74 74 65  |olething$=.gette|
00002b00  78 74 28 73 61 76 65 61  73 25 2c 34 29 0d 11 c6  |xt(saveas%,4)...|
00002b10  22 e3 20 71 77 65 25 3d  a9 28 77 68 6f 6c 65 74  |". qwe%=.(wholet|
00002b20  68 69 6e 67 24 29 20 b8  20 31 20 88 20 2d 31 0d  |hing$) . 1 . -1.|
00002b30  11 d0 27 e7 20 c1 77 68  6f 6c 65 74 68 69 6e 67  |..'. .wholething|
00002b40  24 2c 71 77 65 25 2c 31  29 3d 22 2e 22 20 8c 20  |$,qwe%,1)="." . |
00002b50  e5 20 8d 64 64 51 0d 11  da 0a ed 20 71 77 65 25  |. .ddQ..... qwe%|
00002b60  0d 11 e4 30 4d 59 46 4e  41 4d 45 24 3d c1 77 68  |...0MYFNAME$=.wh|
00002b70  6f 6c 65 74 68 69 6e 67  24 2c 71 77 65 25 2b 31  |olething$,qwe%+1|
00002b80  2c a9 28 77 68 6f 6c 65  74 68 69 6e 67 24 29 29  |,.(wholething$))|
00002b90  0d 11 ee 05 e1 0d 11 f8  04 0d 12 02 19 dd f2 53  |...............S|
00002ba0  61 76 65 46 69 6c 65 28  4e 41 4d 45 53 41 56 45  |aveFile(NAMESAVE|
00002bb0  24 29 0d 12 0c 19 f2 73  61 76 65 5f 70 69 63 73  |$).....save_pics|
00002bc0  28 4e 41 4d 45 53 41 56  45 24 29 0d 12 16 05 e1  |(NAMESAVE$).....|
00002bd0  0d 12 20 04 0d 12 2a 0f  dd f2 43 6c 6f 73 65 46  |.. ...*...CloseF|
00002be0  69 6c 65 0d 12 34 0e d9  20 23 46 49 4c 45 4f 55  |ile..4.. #FILEOU|
00002bf0  54 0d 12 3e 05 e1 0d 12  48 04 0d 12 52 14 20 dd  |T..>....H...R. .|
00002c00  f2 64 72 61 77 5f 6e 65  77 5f 70 69 63 73 0d 12  |.draw_new_pics..|
00002c10  5c 17 20 f2 69 6e 69 74  69 61 6c 69 73 65 5f 73  |\. .initialise_s|
00002c20  63 72 65 65 6e 0d 12 66  10 20 f2 64 72 61 77 5f  |creen..f. .draw_|
00002c30  66 69 72 73 74 0d 12 70  11 20 f2 64 72 61 77 5f  |first..p. .draw_|
00002c40  73 65 63 6f 6e 64 0d 12  7a 15 20 f2 63 61 6c 63  |second..z. .calc|
00002c50  75 6c 61 74 65 5f 61 5f  62 69 74 0d 12 84 09 20  |ulate_a_bit.... |
00002c60  4f 4b 3d b9 0d 12 8e 06  20 e1 0d 12 98 05 20 0d  |OK=..... ..... .|
00002c70  12 a2 1b 20 dd f2 69 6e  69 74 69 61 6c 69 73 65  |... ..initialise|
00002c80  5f 76 61 72 69 61 62 6c  65 73 0d 12 ac 0c 20 4e  |_variables.... N|
00002c90  50 25 3d 33 30 30 0d 12  b6 26 20 de 20 58 25 28  |P%=300...& . X%(|
00002ca0  4e 50 25 29 2c 59 25 28  4e 50 25 29 2c 41 25 28  |NP%),Y%(NP%),A%(|
00002cb0  4e 50 25 29 2c 42 25 28  4e 50 25 29 0d 12 c0 16  |NP%),B%(NP%)....|
00002cc0  20 de 20 58 49 28 4e 50  25 29 2c 59 49 28 4e 50  | . XI(NP%),YI(NP|
00002cd0  25 29 0d 12 ca 0c 20 44  45 4c 25 3d 32 30 0d 12  |%).... DEL%=20..|
00002ce0  d4 0d 20 53 45 43 25 3d  31 30 30 0d 12 de 13 20  |.. SEC%=100.... |
00002cf0  43 4e 54 25 3d 30 3a 46  43 4e 54 25 3d 30 0d 12  |CNT%=0:FCNT%=0..|
00002d00  e8 0a 20 41 53 25 3d 31  0d 12 f2 06 20 e1 0d 12  |.. AS%=1.... ...|
00002d10  fc 05 20 0d 13 06 10 20  dd f2 69 6e 69 74 61 67  |.. .... ..initag|
00002d20  61 69 6e 0d 13 10 13 20  43 4e 54 25 3d 30 3a 46  |ain.... CNT%=0:F|
00002d30  43 4e 54 25 3d 30 0d 13  1a 0a 20 41 53 25 3d 31  |CNT%=0.... AS%=1|
00002d40  0d 13 24 06 20 e1 0d 13  2e 05 20 0d 13 38 16 20  |..$. ..... ..8. |
00002d50  dd f2 63 61 6c 63 75 6c  61 74 65 5f 61 5f 62 69  |..calculate_a_bi|
00002d60  74 0d 13 42 1d 20 e7 20  43 4e 54 25 3e 3d 46 43  |t..B. . CNT%>=FC|
00002d70  4e 54 25 20 8c 20 4d 4d  25 3d 43 4e 54 25 0d 13  |NT% . MM%=CNT%..|
00002d80  4c 1d 20 e7 20 43 4e 54  25 3c 46 43 4e 54 25 20  |L. . CNT%<FCNT% |
00002d90  8c 20 4d 4d 25 3d 46 43  4e 54 25 0d 13 56 11 20  |. MM%=FCNT%..V. |
00002da0  e3 20 49 25 3d 31 20 b8  20 4d 4d 25 0d 13 60 20  |. I%=1 . MM%..` |
00002db0  20 58 49 28 49 25 29 3d  28 58 25 28 49 25 29 2d  | XI(I%)=(X%(I%)-|
00002dc0  41 25 28 49 25 29 29 2f  53 45 43 25 0d 13 6a 20  |A%(I%))/SEC%..j |
00002dd0  20 59 49 28 49 25 29 3d  28 59 25 28 49 25 29 2d  | YI(I%)=(Y%(I%)-|
00002de0  42 25 28 49 25 29 29 2f  53 45 43 25 0d 13 74 09  |B%(I%))/SEC%..t.|
00002df0  20 ed 20 49 25 0d 13 7e  06 20 e1 0d 13 88 05 20  | . I%..~. ..... |
00002e00  0d 13 92 18 20 dd f2 64  72 61 77 70 69 63 31 28  |.... ..drawpic1(|
00002e10  6f 78 25 2c 6f 79 25 29  0d 13 9c 1e 20 ec 20 58  |ox%,oy%).... . X|
00002e20  25 28 31 29 2f 32 2b 6f  78 25 2c 59 25 28 31 29  |%(1)/2+ox%,Y%(1)|
00002e30  2f 32 2b 6f 79 25 0d 13  a6 12 20 e3 20 4a 25 3d  |/2+oy%.... . J%=|
00002e40  31 20 b8 20 43 4e 54 25  0d 13 b0 20 20 df 20 58  |1 . CNT%...  . X|
00002e50  25 28 4a 25 29 2f 32 2b  6f 78 25 2c 59 25 28 4a  |%(J%)/2+ox%,Y%(J|
00002e60  25 29 2f 32 2b 6f 79 25  0d 13 ba 09 20 ed 20 4a  |%)/2+oy%.... . J|
00002e70  25 0d 13 c4 06 20 e1 0d  13 ce 04 0d 13 d8 18 20  |%.... ......... |
00002e80  dd f2 64 72 61 77 70 69  63 32 28 6f 78 25 2c 6f  |..drawpic2(ox%,o|
00002e90  79 25 29 0d 13 e2 1e 20  ec 20 41 25 28 31 29 2f  |y%).... . A%(1)/|
00002ea0  32 2b 6f 78 25 2c 42 25  28 31 29 2f 32 2b 6f 79  |2+ox%,B%(1)/2+oy|
00002eb0  25 0d 13 ec 13 20 e3 20  4a 25 3d 31 20 b8 20 46  |%.... . J%=1 . F|
00002ec0  43 4e 54 25 0d 13 f6 20  20 df 20 41 25 28 4a 25  |CNT%...  . A%(J%|
00002ed0  29 2f 32 2b 6f 78 25 2c  42 25 28 4a 25 29 2f 32  |)/2+ox%,B%(J%)/2|
00002ee0  2b 6f 79 25 0d 14 00 09  20 ed 20 4a 25 0d 14 0a  |+oy%.... . J%...|
00002ef0  06 20 e1 0d 14 14 04 0d  14 1e 14 20 dd f2 73 61  |. ......... ..sa|
00002f00  76 65 5f 70 69 63 73 28  46 24 29 0d 14 28 1d 20  |ve_pics(F$)..(. |
00002f10  e7 20 43 4e 54 25 3e 3d  46 43 4e 54 25 20 8c 20  |. CNT%>=FCNT% . |
00002f20  4d 4d 25 3d 43 4e 54 25  0d 14 32 1d 20 e7 20 43  |MM%=CNT%..2. . C|
00002f30  4e 54 25 3c 46 43 4e 54  25 20 8c 20 4d 4d 25 3d  |NT%<FCNT% . MM%=|
00002f40  46 43 4e 54 25 0d 14 3c  0b 20 41 3d ae 20 46 24  |FCNT%..<. A=. F$|
00002f50  0d 14 46 0d 20 f1 23 20  41 2c 4d 4d 25 0d 14 50  |..F. .# A,MM%..P|
00002f60  11 20 e3 20 49 25 3d 31  20 b8 20 4d 4d 25 0d 14  |. . I%=1 . MM%..|
00002f70  5a 25 20 f1 23 20 41 2c  58 25 28 49 25 29 2c 59  |Z% .# A,X%(I%),Y|
00002f80  25 28 49 25 29 2c 41 25  28 49 25 29 2c 42 25 28  |%(I%),A%(I%),B%(|
00002f90  49 25 29 0d 14 64 09 20  ed 20 49 25 0d 14 6e 09  |I%)..d. . I%..n.|
00002fa0  20 d9 23 20 41 0d 14 78  09 20 4f 4b 3d b9 0d 14  | .# A..x. OK=...|
00002fb0  82 1b 20 ff 20 22 53 45  54 54 59 50 45 20 22 2b  |.. . "SETTYPE "+|
00002fc0  46 24 2b 22 20 37 45 46  22 0d 14 8c 1d 20 f2 73  |F$+" 7EF".... .s|
00002fd0  65 74 74 65 78 74 28 66  69 6c 65 69 6e 66 6f 25  |ettext(fileinfo%|
00002fe0  2c 33 2c 46 24 29 0d 14  96 1b 20 f2 73 65 74 74  |,3,F$).... .sett|
00002ff0  65 78 74 28 73 61 76 65  61 73 25 2c 34 2c 46 24  |ext(saveas%,4,F$|
00003000  29 0d 14 a0 06 20 e1 0d  14 aa 05 20 0d 14 b4 14  |).... ..... ....|
00003010  20 dd f2 6c 6f 61 64 5f  70 69 63 73 28 46 24 29  | ..load_pics(F$)|
00003020  0d 14 be 0b 20 41 3d 8e  20 46 24 0d 14 c8 0e 20  |.... A=. F$.... |
00003030  e8 23 20 41 2c 43 4e 54  25 0d 14 d2 12 20 e3 20  |.# A,CNT%.... . |
00003040  49 25 3d 31 20 b8 20 43  4e 54 25 0d 14 dc 25 20  |I%=1 . CNT%...% |
00003050  e8 23 20 41 2c 58 25 28  49 25 29 2c 59 25 28 49  |.# A,X%(I%),Y%(I|
00003060  25 29 2c 41 25 28 49 25  29 2c 42 25 28 49 25 29  |%),A%(I%),B%(I%)|
00003070  0d 14 e6 09 20 ed 20 49  25 0d 14 f0 09 20 d9 23  |.... . I%.... .#|
00003080  20 41 0d 14 fa 15 20 f2  63 61 6c 63 75 6c 61 74  | A.... .calculat|
00003090  65 5f 61 5f 62 69 74 0d  15 04 0a 20 41 53 25 3d  |e_a_bit.... AS%=|
000030a0  31 0d 15 0e 09 20 4f 4b  3d b9 0d 15 18 0f 20 46  |1.... OK=..... F|
000030b0  43 4e 54 25 3d 43 4e 54  25 0d 15 22 2b 20 f2 73  |CNT%=CNT%.."+ .s|
000030c0  65 74 74 65 78 74 28 70  69 63 31 25 2c 32 2c 22  |ettext(pic1%,2,"|
000030d0  4e 6f 2e 70 6f 69 6e 74  73 3a 22 2b c3 28 43 4e  |No.points:"+.(CN|
000030e0  54 25 29 29 0d 15 2c 2c  20 f2 73 65 74 74 65 78  |T%))..,, .settex|
000030f0  74 28 70 69 63 32 25 2c  32 2c 22 4e 6f 2e 70 6f  |t(pic2%,2,"No.po|
00003100  69 6e 74 73 3a 22 2b c3  28 46 43 4e 54 25 29 29  |ints:"+.(FCNT%))|
00003110  0d 15 36 1b 20 f2 73 65  74 74 65 78 74 28 73 61  |..6. .settext(sa|
00003120  76 65 61 73 25 2c 34 2c  46 24 29 0d 15 40 05 e1  |veas%,4,F$)..@..|
00003130  0d 15 4a 04 0d 15 54 1b  20 dd f2 61 6e 69 6d 61  |..J...T. ..anima|
00003140  74 65 28 42 45 25 2c 45  4e 25 2c 53 50 25 29 0d  |te(BE%,EN%,SP%).|
00003150  15 5e 1b 20 e3 20 49 25  3d 42 45 25 20 b8 20 45  |.^. . I%=BE% . E|
00003160  4e 25 2d 31 20 88 20 53  50 25 0d 15 68 25 20 42  |N%-1 . SP%..h% B|
00003170  41 4e 4b 25 3d 42 41 4e  4b 25 20 82 20 33 3a c8  |ANK%=BANK% . 3:.|
00003180  99 20 36 2c 31 31 32 2c  42 41 4e 4b 25 3a db 0d  |. 6,112,BANK%:..|
00003190  15 72 32 20 ec 20 28 41  25 28 31 29 2b 28 58 49  |.r2 . (A%(1)+(XI|
000031a0  28 31 29 2a 49 25 29 29  2a 4f 54 2c 28 42 25 28  |(1)*I%))*OT,(B%(|
000031b0  31 29 2b 28 59 49 28 31  29 2a 49 25 29 29 2a 4f  |1)+(YI(1)*I%))*O|
000031c0  54 0d 15 7c 12 20 e3 20  4a 25 3d 31 20 b8 20 43  |T..|. . J%=1 . C|
000031d0  4e 54 25 0d 15 86 36 20  df 20 28 41 25 28 4a 25  |NT%...6 . (A%(J%|
000031e0  29 2b 28 58 49 28 4a 25  29 2a 49 25 29 29 2a 4f  |)+(XI(J%)*I%))*O|
000031f0  54 2c 28 42 25 28 4a 25  29 2b 28 59 49 28 4a 25  |T,(B%(J%)+(YI(J%|
00003200  29 2a 49 25 29 29 2a 4f  54 0d 15 90 09 20 ed 20  |)*I%))*OT.... . |
00003210  4a 25 0d 15 a4 16 20 c8  99 20 36 2c 31 31 33 2c  |J%.... .. 6,113,|
00003220  42 41 4e 4b 25 3a c8 96  0d 15 ae 31 20 42 55 54  |BANK%:.....1 BUT|
00003230  25 3d 30 3a c8 97 20 58  50 4f 53 25 2c 59 50 4f  |%=0:.. XPOS%,YPO|
00003240  53 25 2c 42 55 54 25 3a  e7 20 42 55 54 25 3d 32  |S%,BUT%:. BUT%=2|
00003250  20 45 58 49 54 3d b9 3a  e1 0d 15 b8 10 20 e7 20  | EXIT=.:..... . |
00003260  42 55 54 25 3c 3e 30 20  8c 0d 15 c2 33 20 e7 20  |BUT%<>0 ....3 . |
00003270  42 55 54 25 3d 31 20 80  20 49 25 3e 42 45 25 2b  |BUT%=1 . I%>BE%+|
00003280  53 50 25 20 80 20 42 45  25 3d 31 20 8c 20 49 25  |SP% . BE%=1 . I%|
00003290  2d 3d 53 50 25 3a e5 20  8d 44 68 55 0d 15 cc 35  |-=SP%:. .DhU...5|
000032a0  20 e7 20 42 55 54 25 3d  34 20 80 20 49 25 3c 45  | . BUT%=4 . I%<E|
000032b0  4e 25 2d 53 50 25 2d 31  20 80 20 42 45 25 3d 31  |N%-SP%-1 . BE%=1|
000032c0  20 8c 20 49 25 2b 3d 53  50 25 3a e5 20 8d 44 68  | . I%+=SP%:. .Dh|
000032d0  55 0d 15 d6 36 20 e7 20  42 55 54 25 3d 34 20 80  |U...6 . BUT%=4 .|
000032e0  20 49 25 3c 42 45 25 2b  53 50 25 20 80 20 42 45  | I%<BE%+SP% . BE|
000032f0  25 3d 53 45 43 25 20 8c  20 49 25 2d 3d 53 50 25  |%=SEC% . I%-=SP%|
00003300  3a e5 20 8d 44 68 55 0d  15 e0 38 20 e7 20 42 55  |:. .DhU...8 . BU|
00003310  54 25 3d 31 20 80 20 49  25 3e 45 4e 25 2d 53 50  |T%=1 . I%>EN%-SP|
00003320  25 2d 31 20 80 20 42 45  25 3d 53 45 43 25 20 8c  |%-1 . BE%=SEC% .|
00003330  20 49 25 2b 3d 53 50 25  3a e5 20 8d 44 68 55 0d  | I%+=SP%:. .DhU.|
00003340  15 ea 06 20 cd 0d 15 f4  0c 20 41 24 3d bf 28 31  |... ..... A$=.(1|
00003350  29 0d 15 fe 0f 20 e7 20  41 24 3c 3e 22 22 20 8c  |).... . A$<>"" .|
00003360  0d 16 08 36 20 e7 20 a6  2d 35 38 20 80 20 53 50  |...6 . .-58 . SP|
00003370  25 3c 28 45 4e 25 2d 42  45 25 29 2f 32 20 8c 20  |%<(EN%-BE%)/2 . |
00003380  53 50 25 2b 3d 31 3a 41  41 53 25 3d 53 50 25 3a  |SP%+=1:AAS%=SP%:|
00003390  e5 20 8d 44 5e 55 0d 16  12 2c 20 e7 20 a6 2d 34  |. .D^U..., . .-4|
000033a0  32 20 80 20 53 50 25 3e  32 20 8c 20 53 50 25 2d  |2 . SP%>2 . SP%-|
000033b0  3d 31 3a 41 41 53 25 3d  53 50 25 3a e5 20 8d 44  |=1:AAS%=SP%:. .D|
000033c0  5e 55 0d 16 13 12 20 e7  20 53 50 25 3d 30 20 53  |^U.... . SP%=0 S|
000033d0  50 25 3d 31 0d 16 1c 1d  20 e7 20 a6 2d 32 36 20  |P%=1.... . .-26 |
000033e0  80 20 4f 54 3e 2e 31 20  8c 20 4f 54 2d 3d 2e 30  |. OT>.1 . OT-=.0|
000033f0  35 0d 16 26 1d 20 e7 20  a6 2d 31 32 32 20 80 20  |5..&. . .-122 . |
00003400  4f 54 3c 34 20 8c 20 4f  54 2b 3d 2e 30 35 0d 16  |OT<4 . OT+=.05..|
00003410  30 15 20 e7 20 a6 2d 31  31 33 20 45 58 49 54 3d  |0. . .-113 EXIT=|
00003420  b9 3a e1 0d 16 3a 0f 20  e7 20 41 24 3d 22 20 22  |.:...:. . A$=" "|
00003430  20 8c 0d 16 44 06 20 f5  0d 16 4e 0c 20 41 24 3d  | ...D. ...N. A$=|
00003440  bf 28 31 29 0d 16 58 13  20 c8 97 20 50 50 25 2c  |.(1)..X. .. PP%,|
00003450  57 57 25 2c 45 45 25 0d  16 62 16 20 fd 20 45 45  |WW%,EE%..b. . EE|
00003460  25 3c 3e 30 20 84 20 41  24 3d 22 20 22 0d 16 6c  |%<>0 . A$=" "..l|
00003470  06 20 cd 0d 16 76 06 20  cd 0d 16 80 09 20 ed 20  |. ...v. ..... . |
00003480  49 25 0d 16 8a 06 20 e1  0d 16 94 04 0d 16 9e 0e  |I%.... .........|
00003490  20 dd f2 64 69 73 70 6c  61 79 0d 16 a8 08 20 eb  | ..display.... .|
000034a0  20 30 0d 16 b2 06 20 87  0d 16 bc 15 20 e3 20 4d  | 0.... ..... . M|
000034b0  4d 25 3d 43 4e 54 25 20  b8 20 33 30 30 0d 16 c6  |M%=CNT% . 300...|
000034c0  26 20 58 25 28 4d 4d 25  29 3d 58 25 28 43 4e 54  |& X%(MM%)=X%(CNT|
000034d0  25 29 3a 59 25 28 4d 4d  25 29 3d 59 25 28 43 4e  |%):Y%(MM%)=Y%(CN|
000034e0  54 25 29 0d 16 d0 0a 20  ed 20 4d 4d 25 0d 16 da  |T%).... . MM%...|
000034f0  16 20 e3 20 4d 4d 25 3d  46 43 4e 54 25 20 b8 20  |. . MM%=FCNT% . |
00003500  33 30 30 0d 16 e4 28 20  41 25 28 4d 4d 25 29 3d  |300...( A%(MM%)=|
00003510  41 25 28 46 43 4e 54 25  29 3a 42 25 28 4d 4d 25  |A%(FCNT%):B%(MM%|
00003520  29 3d 42 25 28 46 43 4e  54 25 29 0d 16 ee 0a 20  |)=B%(FCNT%).... |
00003530  ed 20 4d 4d 25 0d 16 f8  15 20 f2 63 61 6c 63 75  |. MM%.... .calcu|
00003540  6c 61 74 65 5f 61 5f 62  69 74 0d 17 02 0a 20 5a  |late_a_bit.... Z|
00003550  54 25 3d 31 0d 17 0c 0a  20 5a 42 25 3d 31 0d 17  |T%=1.... ZB%=1..|
00003560  16 12 20 41 41 53 25 3d  41 53 25 3a 4f 54 3d 31  |.. AAS%=AS%:OT=1|
00003570  0d 17 20 3e 20 4f 4f 58  25 3d 33 32 30 2d 28 28  |.. > OOX%=320-((|
00003580  28 5a 54 25 2f 5a 42 25  29 2a 33 32 30 29 2f 32  |(ZT%/ZB%)*320)/2|
00003590  29 3a 4f 4f 59 25 3d 32  35 36 2d 28 28 28 5a 54  |):OOY%=256-(((ZT|
000035a0  25 2f 5a 42 25 29 2a 32  35 36 29 2f 32 29 0d 17  |%/ZB%)*256)/2)..|
000035b0  2a 0b 20 45 58 49 54 3d  a3 0d 17 34 09 20 c8 97  |*. EXIT=...4. ..|
000035c0  20 87 0d 17 3e 06 20 f5  0d 17 48 0f 20 c8 8e 20  | ...>. ...H. .. |
000035d0  66 69 6c 6c 25 20 ca 0d  17 52 0a 20 c9 20 30 20  |fill% ...R. . 0 |
000035e0  3a 0d 17 5c 1d 20 f2 61  6e 69 6d 61 74 65 28 31  |:..\. .animate(1|
000035f0  2c 53 45 43 25 2c 94 28  41 41 53 25 29 29 0d 17  |,SEC%,.(AAS%))..|
00003600  66 2b 20 e7 20 45 58 49  54 3d a3 20 f2 61 6e 69  |f+ . EXIT=. .ani|
00003610  6d 61 74 65 28 53 45 43  25 2c 32 2c 94 28 41 41  |mate(SEC%,2,.(AA|
00003620  53 25 29 2a 28 2d 31 29  29 0d 17 70 0a 20 c9 20  |S%)*(-1))..p. . |
00003630  31 20 3a 0d 17 7a 23 20  f2 61 6e 69 6d 61 74 65  |1 :..z# .animate|
00003640  66 69 6c 6c 65 64 28 31  2c 53 45 43 25 2c 94 28  |filled(1,SEC%,.(|
00003650  41 41 53 25 29 29 0d 17  84 31 20 e7 20 45 58 49  |AAS%))...1 . EXI|
00003660  54 3d a3 20 f2 61 6e 69  6d 61 74 65 66 69 6c 6c  |T=. .animatefill|
00003670  65 64 28 53 45 43 25 2c  32 2c 94 28 41 41 53 25  |ed(SEC%,2,.(AAS%|
00003680  29 2a 28 2d 31 29 29 0d  17 8e 06 20 cb 0d 17 98  |)*(-1)).... ....|
00003690  0d 20 fd 20 45 58 49 54  3d b9 0d 17 a2 09 20 c8  |. . EXIT=..... .|
000036a0  97 20 ee 0d 17 ac 18 20  c8 97 20 c8 93 20 30 2c  |. ..... .. .. 0,|
000036b0  30 2c 31 32 37 39 2c 31  30 32 33 0d 17 b6 09 20  |0,1279,1023.... |
000036c0  4f 4b 3d b9 0d 17 c0 0b  20 c8 91 20 30 2c 30 0d  |OK=..... .. 0,0.|
000036d0  17 ca 06 20 e1 0d 17 d4  04 0d 17 de 21 20 dd f2  |... ........! ..|
000036e0  61 6e 69 6d 61 74 65 66  69 6c 6c 65 64 28 42 45  |animatefilled(BE|
000036f0  25 2c 45 4e 25 2c 53 50  25 29 0d 17 e8 1b 20 e3  |%,EN%,SP%).... .|
00003700  20 49 25 3d 42 45 25 20  b8 20 45 4e 25 2d 31 20  | I%=BE% . EN%-1 |
00003710  88 20 53 50 25 0d 17 f2  25 20 42 41 4e 4b 25 3d  |. SP%...% BANK%=|
00003720  42 41 4e 4b 25 20 82 20  33 3a c8 99 20 36 2c 31  |BANK% . 3:.. 6,1|
00003730  31 32 2c 42 41 4e 4b 25  3a db 0d 17 fc 16 20 e3  |12,BANK%:..... .|
00003740  20 4a 25 3d 31 20 b8 20  43 4e 54 25 20 88 20 33  | J%=1 . CNT% . 3|
00003750  0d 18 10 36 20 ec 20 28  41 25 28 4a 25 29 2b 28  |...6 . (A%(J%)+(|
00003760  58 49 28 4a 25 29 2a 49  25 29 29 2a 4f 54 2c 28  |XI(J%)*I%))*OT,(|
00003770  42 25 28 4a 25 29 2b 28  59 49 28 4a 25 29 2a 49  |B%(J%)+(YI(J%)*I|
00003780  25 29 29 2a 4f 54 0d 18  1a 3e 20 ec 20 28 41 25  |%))*OT...> . (A%|
00003790  28 4a 25 2b 31 29 2b 28  58 49 28 4a 25 2b 31 29  |(J%+1)+(XI(J%+1)|
000037a0  2a 49 25 29 29 2a 4f 54  2c 28 42 25 28 4a 25 2b  |*I%))*OT,(B%(J%+|
000037b0  31 29 2b 28 59 49 28 4a  25 2b 31 29 2a 49 25 29  |1)+(YI(J%+1)*I%)|
000037c0  29 2a 4f 54 0d 18 24 4f  20 e7 20 4a 25 2b 32 3c  |)*OT..$O . J%+2<|
000037d0  3d 43 4e 54 25 20 f0 20  26 35 35 2c 28 41 25 28  |=CNT% . &55,(A%(|
000037e0  4a 25 2b 32 29 2b 28 58  49 28 4a 25 2b 32 29 2a  |J%+2)+(XI(J%+2)*|
000037f0  49 25 29 29 2a 4f 54 2c  28 42 25 28 4a 25 2b 32  |I%))*OT,(B%(J%+2|
00003800  29 2b 28 59 49 28 4a 25  2b 32 29 2a 49 25 29 29  |)+(YI(J%+2)*I%))|
00003810  2a 4f 54 0d 18 2e 09 20  ed 20 4a 25 0d 18 38 16  |*OT.... . J%..8.|
00003820  20 c8 99 20 36 2c 31 31  33 2c 42 41 4e 4b 25 3a  | .. 6,113,BANK%:|
00003830  c8 96 0d 18 42 31 20 42  55 54 25 3d 30 3a c8 97  |....B1 BUT%=0:..|
00003840  20 58 50 4f 53 25 2c 59  50 4f 53 25 2c 42 55 54  | XPOS%,YPOS%,BUT|
00003850  25 3a e7 20 42 55 54 25  3d 32 20 45 58 49 54 3d  |%:. BUT%=2 EXIT=|
00003860  b9 3a e1 0d 18 4c 10 20  e7 20 42 55 54 25 3c 3e  |.:...L. . BUT%<>|
00003870  30 20 8c 0d 18 56 33 20  e7 20 42 55 54 25 3d 31  |0 ...V3 . BUT%=1|
00003880  20 80 20 49 25 3e 42 45  25 2b 53 50 25 20 80 20  | . I%>BE%+SP% . |
00003890  42 45 25 3d 31 20 8c 20  49 25 2d 3d 53 50 25 3a  |BE%=1 . I%-=SP%:|
000038a0  e5 20 8d 64 72 57 0d 18  60 35 20 e7 20 42 55 54  |. .drW..`5 . BUT|
000038b0  25 3d 34 20 80 20 49 25  3c 45 4e 25 2d 53 50 25  |%=4 . I%<EN%-SP%|
000038c0  2d 31 20 80 20 42 45 25  3d 31 20 8c 20 49 25 2b  |-1 . BE%=1 . I%+|
000038d0  3d 53 50 25 3a e5 20 8d  64 72 57 0d 18 6a 36 20  |=SP%:. .drW..j6 |
000038e0  e7 20 42 55 54 25 3d 34  20 80 20 49 25 3c 42 45  |. BUT%=4 . I%<BE|
000038f0  25 2b 53 50 25 20 80 20  42 45 25 3d 53 45 43 25  |%+SP% . BE%=SEC%|
00003900  20 8c 20 49 25 2d 3d 53  50 25 3a e5 20 8d 64 72  | . I%-=SP%:. .dr|
00003910  57 0d 18 74 38 20 e7 20  42 55 54 25 3d 31 20 80  |W..t8 . BUT%=1 .|
00003920  20 49 25 3e 45 4e 25 2d  53 50 25 2d 31 20 80 20  | I%>EN%-SP%-1 . |
00003930  42 45 25 3d 53 45 43 25  20 8c 20 49 25 2b 3d 53  |BE%=SEC% . I%+=S|
00003940  50 25 3a e5 20 8d 64 72  57 0d 18 7e 06 20 cd 0d  |P%:. .drW..~. ..|
00003950  18 88 0c 20 41 24 3d bf  28 31 29 0d 18 92 0f 20  |... A$=.(1).... |
00003960  e7 20 41 24 3c 3e 22 22  20 8c 0d 18 9c 36 20 e7  |. A$<>"" ....6 .|
00003970  20 a6 2d 35 38 20 80 20  53 50 25 3c 28 45 4e 25  | .-58 . SP%<(EN%|
00003980  2d 42 45 25 29 2f 32 20  8c 20 53 50 25 2b 3d 31  |-BE%)/2 . SP%+=1|
00003990  3a 41 41 53 25 3d 53 50  25 3a e5 20 8d 64 68 57  |:AAS%=SP%:. .dhW|
000039a0  0d 18 a6 2c 20 e7 20 a6  2d 34 32 20 80 20 53 50  |..., . .-42 . SP|
000039b0  25 3e 32 20 8c 20 53 50  25 2d 3d 31 3a 41 41 53  |%>2 . SP%-=1:AAS|
000039c0  25 3d 53 50 25 3a e5 20  8d 64 68 57 0d 18 a7 12  |%=SP%:. .dhW....|
000039d0  20 e7 20 53 50 25 3d 30  20 53 50 25 3d 31 0d 18  | . SP%=0 SP%=1..|
000039e0  b0 1d 20 e7 20 a6 2d 32  36 20 80 20 4f 54 3e 2e  |.. . .-26 . OT>.|
000039f0  31 20 8c 20 4f 54 2d 3d  2e 30 35 0d 18 ba 1d 20  |1 . OT-=.05.... |
00003a00  e7 20 a6 2d 31 32 32 20  80 20 4f 54 3c 34 20 8c  |. .-122 . OT<4 .|
00003a10  20 4f 54 2b 3d 2e 30 35  0d 18 c4 15 20 e7 20 a6  | OT+=.05.... . .|
00003a20  2d 31 31 33 20 45 58 49  54 3d b9 3a e1 0d 18 ce  |-113 EXIT=.:....|
00003a30  0f 20 e7 20 41 24 3d 22  20 22 20 8c 0d 18 d8 06  |. . A$=" " .....|
00003a40  20 f5 0d 18 e2 0c 20 41  24 3d bf 28 31 29 0d 18  | ..... A$=.(1)..|
00003a50  ec 13 20 c8 97 20 50 50  25 2c 57 57 25 2c 45 45  |.. .. PP%,WW%,EE|
00003a60  25 0d 18 f6 16 20 fd 20  45 45 25 3c 3e 30 20 84  |%.... . EE%<>0 .|
00003a70  20 41 24 3d 22 20 22 0d  19 00 06 20 cd 0d 19 0a  | A$=" ".... ....|
00003a80  06 20 cd 0d 19 14 09 20  ed 20 49 25 0d 19 1e 06  |. ..... . I%....|
00003a90  20 e1 0d ff                                       | ...|
00003a94