� > <Sleep$Dir>.!RunImage
� (c) B.Moseley Jan 1990
�
#� � �0:�:� �:*BASIC
(vers$="0.10 (23-Jan-89)"
2	�init
<TimeOut=�+100*(Delay)
F�getpointerinfo
P,A=mosx%:B=mosy%:C=button%:OA=A:OB=B:OC=C
Z:
d�
n#ș"Wimp_Poll",0,data1% � reply%
xȎ reply% �
�� 0:
��getpointerinfo
�A=mosx%:B=mosy%:C=button%
�!� A=0 � B=0 � �bedtime:� �dp@
�"� �>=TimeOut � �bedtime:� �dp@
�3� A<>OA � B<>OB � C<>OC � TimeOut=�+100*(Delay)
�OA=A:OB=B:OC=C
�)� 6:�mouseclick:TimeOut=�+100*(Delay)
�� 8:TimeOut=�+100*(Delay)
�<� 9:�menuselect:Delay=�($DelText%):TimeOut=�+100*(Delay)
�� 17,18:�respond(reply%)
��
�� �

:


��init

&� pts(7,2):� Number of pendulums,3

"Delay=300:� 5 minutes

,TimeOut=�+100*(Delay)

6B� data1% 256,data2% 1024:� General data blocks (not permanent)

@-ș"Wimp_Initialise",200,&4B534154,"Sleep"

J3workspacesize%=&300:� workspace% workspacesize%

T+maxworkspace%=workspace%+workspacesize%

^Gwsptr%=workspace%:� Pointer to next available free bit of workspace

h*� menudata% &300:� For menu structures

rKmptr%=menudata%:� Pointer to next available free bit of menu data space

|� Get Info Window Template

�2ș"Wimp_OpenTemplate",,"<Sleep$Dir>.Templates"

�Mș"Wimp_LoadTemplate",,data2%,wsptr%,maxworkspace%,-1,"info",0 � ,,wsptr%

�$(data2%!(88+96+20))=vers$

�)ș"Wimp_CreateWindow",,data2% � info%

�ș"Wimp_CloseTemplate"

�:

�� Menus.

�� DelText% 5

�%delaym$="#Delay/s|$DelText%[4]||"

�delaym%=�makemenu(delaym$)

�$DelText%="300"

�7mainm$="#Sleep|Info(info%)|Options(delaym%)|Quit||"

�mainm%=�makemenu(mainm$)
� Put icon on icon bar
N!data1%=-1:data1%!4=0:data1%!8=0:data1%!12=69:data1%!16=68:data1%!20=&3002
$(data1%+24)="!Sleep"
&(ș"Wimp_CreateIcon",,data1% � icbar%
0�
::
Dݤworkspace_claim(size%)
N:� gets general storage space. returns pointer to area.
Xwsptr%+=size%
b7� wsptr%>maxworkspace% � � 0,"Not Enough workspace"
l=wsptr%-size%
v:
�ݤmakemenu(men$)
�4� MM%,ThisOpt$,mtitle$,flag%,last%,submen%,maxx%
�last%=�
�� �men$,1)="#" �
�#mtitle$=�getmenubit(men$,last%)
�mtitle$=�mtitle$,2)
��
�mtitle$=""
��
�$mptr%=mtitle$
�mptr%?12=7
�mptr%?13=2
�mptr%?14=7
mptr%?15=0
mptr%!16=0:� width
mptr%!20=44:� height
 mptr%!24=0
*
mptr%+=28
4maxx%=�(mtitle$)
>�
H$ThisOpt$=�getmenubit(men$,last%)
R�menuoption(ThisOpt$)
\
� last%=�
fMM%=menudata%
pmenudata%!16=(maxx%*8+6)*2
zmenudata%=mptr%
�=MM%
�:
���menuoption(ThisOpt$)
�B� SubHan%,TxtInd%,TxtStorage%,flag%,TxtSz%,Indrctd%,SubHanPos%
�flag%=0
�"mptr%!4=-1:� No submenu as yet
�mptr%!8=&7000021
�5� �ThisOpt$,1)="!" � ThisOpt$=�ThisOpt$):flag%+=1
�5� �ThisOpt$,1)="@" � ThisOpt$=�ThisOpt$):flag%+=2
�mptr%!0=flag%
�8� last% � !mptr%=!mptr% � &80:� Set last option flag
�� �ThisOpt$,1)="$" �
�ThisOpt$=�ThisOpt$,2)
)TxtSz%=�(�ThisOpt$,�ThisOpt$,"[")+1))
 TxtRubbish%=�ThisOpt$,"[")-1
)TxtStorage%=�(�ThisOpt$,TxtRubbish%))
$4ThisOpt$=�TxtSz%," "):� Get right width for menu
.mptr%!0+=4
8(mptr%!4=-1:� Writeable so no submenu
Bmptr%!8+=&100
Lmptr%!12=TxtStorage%
V#mptr%!16=-1:� Validation string
`mptr%!20=TxtSz%
j�
t.SubHanPos%=�ThisOpt$,"("):� SubHanPos%>0 �
~&SubHan%=�(�ThisOpt$,SubHanPos%+1))
�$ThisOpt$=�ThisOpt$,SubHanPos%-1)
�mptr%!4=SubHan%
��
�� �(ThisOpt$)<=12 �
�$(mptr%+12)=ThisOpt$
��
�,Indrctd%=�workspace_claim(�(ThisOpt$)+1)
�$Indrctd%=ThisOpt$
�mptr%!12=Indrctd%
�mptr%!8=mptr%!8 � &100
�mptr%!16=-1
�mptr%!20=�(ThisOpt$)+1
�

�
+� �(ThisOpt$)>maxx% � maxx%=�(ThisOpt$)

mptr%+=24
(�
2:
<!ݤgetmenubit(� text$,� last%)
F� gmb%,gmb2%,gmb$
Pgmb%=�text$,"|")
Zgmb$=�text$,gmb%-1)
dtext$=�text$,�(text$)-gmb%)
n"� text$="|" � last%=�:text$=""
x	=gmb$
�:
���mouseclick
�Ȏ data1%!8 �
�<� 2:� data1%!12=-2 �printmenu(mainm%,!data1%-64,96+3*44)
�� 4:�bedtime
��
��
�:
�%��printmenu(curmenu%,curx%,cury%)
�cmenhan%=curmenu%
�-ș"Wimp_CreateMenu",,cmenhan%,curx%,cury%
��
�:
��respond(reply%)
Ȏ data1%!16 �
� 0:�die:�
"�
,�
6:
@	��die
Jș"Wimp_CloseDown"
T�
^:
h��getpointerinfo
r#ș"Wimp_GetPointerInfo",,data1%
|mosx%=!data1%
�mosy%=data1%!4
�button%=data1%!8
�handle%=data1%!12
�icon%=data1%!16
��
�:
���menuselect
�� adjpressed%,slctd$,x%,y%
�~ș"Wimp_GetPointerInfo",,data2%:adjpressed%=(data2%!8 � 1):� If Adjust used for menu selection then menu doesn't dissapear
�x%=!data2%:y%=data2%!4
�� Decode Menu Selection
�>ș"Wimp_DecodeMenu",,cmenhan%,data1%,�200," ") � ,,,slctd$
�� slctd$="" � �
� slctd$="Quit" � �die:�
.� adjpressed% � �printmenu(cmenhan%,x%,y%)
�
&:
0ݤsleep
:�0
D� A,B,C,OA,OB,OC
N� wait%=0 � 30:Ȗ:�
X*FX 21,9
bȗ� 650,550
l3ȗ OA,OB,OC:OA=(OA � 100)*100:OB=(OB � 100)*100
vA=OA:B=OB:C=OC
��
�halt%=�
�strt%=76
�speed%=strt%
�a%=-40:b%=-48:c%=4:d%=8
�&ainc%=�(1129)+150:binc%=�(873)+150
��
�	� 0,1
�za%=a%:zb%=b%:zc%=c%:zd%=d%
��z(za%,zb%,zc%,zd%)
��z(za%/2,zb%/2,zc%/2,zd%/2)
�+�z(za%*0.75,zb%*0.75,zc%*0.75,zd%*0.75)
�+�z(za%*0.25,zb%*0.25,zc%*0.25,zd%*0.25)
� wait%=0 � 6:Ȗ:�
&a%+=ainc%/speed%:ainc%+=(�(30)-15)
&b%+=binc%/speed%:binc%+=(�(30)-15)
 c%=a%+(zc%-za%)+1
*d%=b%+(zd%-zb%)+1
4� speed%<20 �
>,� �(4)=2 � speed%-=1:� speed%<1 speed%=1
H�
R,� �(2)=2 � speed%-=1:� speed%<1 speed%=1
\�
f,ȗ A,B,C:A=(A � 100)*100:B=(B � 100)*100
p� �(-3) � halt%=3:� �tvH
z7� �(0)<>-1 � A<>OA � B<>OB � C<>OC � halt%=�:� �tvH
�	� 0,0
��z(za%,zb%,zc%,zd%)
��z(za%/2,zb%/2,zc%/2,zd%/2)
�+�z(za%*0.75,zb%*0.75,zc%*0.75,zd%*0.75)
�+�z(za%*0.25,zb%*0.25,zc%*0.25,zd%*0.25)
�+� za%*0.25>1280 � zb%*0.25>1024 � halt%
�� halt% � � �dTH
�speed%=strt%:� �thG
�� halt%=3 � =3 � =0
�:
���z(x%,y%,X%,Y%)
�	� xx%
�
xx%=X%-x%
	
xx%=xx%/6
	� X%,y%
	� x%,y%
	$� x%+xx%,y%
	.� 85,X%,Y%
	8� X%-xx%,Y%
	B� 85,x%,y%:� X%,Y%
	L� x%,Y%
	V�
	`:
	jݤswing
	t�0
	~�12
	�� D,E,F,OD,OE,FF
	�� wait%=0 � 30:Ȗ:�
	�*FX 21,9
	�ȗ� 0,0
	�ȗ OD,OD,FF
	�halt%=�
	�	NP%=7
	�dt=0.007
	�CP%=1:� Current point
	�� dt, Time interval
	�(pts(1,0)=-3:pts(1,1)=-6:pts(1,2)=-20
	�� cnt%=2 � NP%
!pts(cnt%,0)=pts(cnt%-1,0)+0.1

!pts(cnt%,1)=pts(cnt%-1,1)+0.1
!pts(cnt%,2)=pts(cnt%-1,2)+0.1
�
(�12:�:�29,640;512;
2�0,30)
<�
F� cnt%=1 � NP%
P&dx=10*(pts(cnt%,1)-pts(cnt%,0))*dt
Z0dy=-(pts(cnt%,0)*pts(cnt%,2)+pts(cnt%,1))*dt
d8dz=(pts(cnt%,0)*pts(cnt%,1)-8/3*(pts(cnt%,2)+28))*dt
n1� (pts(cnt%,0)+pts(cnt%,1))*12,pts(cnt%,2)*12
x� 0,7-(cnt%-1)
�Tpts(cnt%,0)=pts(cnt%,0)+dx:pts(cnt%,1)=pts(cnt%,1)+dy:pts(cnt%,2)=pts(cnt%,2)+dz
�1� (pts(cnt%,0)+pts(cnt%,1))*12,pts(cnt%,2)*12
��
��
�ȗ D,E,F
�� �(-3) � halt%=3
�0� �(0)<>-1 � D>100 � E>100 � F<>FF � halt%=�
�� halt%=� � halt%=3
�
� 29,0;0;
�� halt%=3 � =3 � =0
�:
���goback
�� 12
TimeOut=�+100*(Delay)
*FX 138,0,204
*FX 138,0,13
"�
,:
6
��bedtime
@ret%=�sleep
J� ret%=0 � �goback:�
Tret%=�swing
^� ret%=0 � �goback:�
h
� �D@K
r�
|:
�

00000000  0d 00 0a 1d f4 20 3e 20  3c 53 6c 65 65 70 24 44  |..... > <Sleep$D|
00000010  69 72 3e 2e 21 52 75 6e  49 6d 61 67 65 0d 00 14  |ir>.!RunImage...|
00000020  1c f4 20 28 63 29 20 42  2e 4d 6f 73 65 6c 65 79  |.. (c) B.Moseley|
00000030  20 4a 61 6e 20 31 39 39  30 0d 00 1e 05 f4 0d 00  | Jan 1990.......|
00000040  23 17 ee 20 85 20 eb 30  3a f6 3a f1 20 9e 3a 2a  |#.. . .0:.:. .:*|
00000050  42 41 53 49 43 0d 00 28  1c 76 65 72 73 24 3d 22  |BASIC..(.vers$="|
00000060  30 2e 31 30 20 28 32 33  2d 4a 61 6e 2d 38 39 29  |0.10 (23-Jan-89)|
00000070  22 0d 00 32 09 f2 69 6e  69 74 0d 00 3c 19 54 69  |"..2..init..<.Ti|
00000080  6d 65 4f 75 74 3d 91 2b  31 30 30 2a 28 44 65 6c  |meOut=.+100*(Del|
00000090  61 79 29 0d 00 46 13 f2  67 65 74 70 6f 69 6e 74  |ay)..F..getpoint|
000000a0  65 72 69 6e 66 6f 0d 00  50 2c 41 3d 6d 6f 73 78  |erinfo..P,A=mosx|
000000b0  25 3a 42 3d 6d 6f 73 79  25 3a 43 3d 62 75 74 74  |%:B=mosy%:C=butt|
000000c0  6f 6e 25 3a 4f 41 3d 41  3a 4f 42 3d 42 3a 4f 43  |on%:OA=A:OB=B:OC|
000000d0  3d 43 0d 00 5a 05 3a 0d  00 64 05 f5 0d 00 6e 23  |=C..Z.:..d....n#|
000000e0  c8 99 22 57 69 6d 70 5f  50 6f 6c 6c 22 2c 30 2c  |.."Wimp_Poll",0,|
000000f0  64 61 74 61 31 25 20 b8  20 72 65 70 6c 79 25 0d  |data1% . reply%.|
00000100  00 78 0f c8 8e 20 72 65  70 6c 79 25 20 ca 0d 00  |.x... reply% ...|
00000110  82 08 c9 20 30 3a 0d 00  8c 13 f2 67 65 74 70 6f  |... 0:.....getpo|
00000120  69 6e 74 65 72 69 6e 66  6f 0d 00 96 1d 41 3d 6d  |interinfo....A=m|
00000130  6f 73 78 25 3a 42 3d 6d  6f 73 79 25 3a 43 3d 62  |osx%:B=mosy%:C=b|
00000140  75 74 74 6f 6e 25 0d 00  a0 21 e7 20 41 3d 30 20  |utton%...!. A=0 |
00000150  80 20 42 3d 30 20 8c 20  f2 62 65 64 74 69 6d 65  |. B=0 . .bedtime|
00000160  3a e5 20 8d 64 70 40 0d  00 aa 22 e7 20 91 3e 3d  |:. .dp@...". .>=|
00000170  54 69 6d 65 4f 75 74 20  8c 20 f2 62 65 64 74 69  |TimeOut . .bedti|
00000180  6d 65 3a e5 20 8d 64 70  40 0d 00 b4 33 e7 20 41  |me:. .dp@...3. A|
00000190  3c 3e 4f 41 20 84 20 42  3c 3e 4f 42 20 84 20 43  |<>OA . B<>OB . C|
000001a0  3c 3e 4f 43 20 8c 20 54  69 6d 65 4f 75 74 3d 91  |<>OC . TimeOut=.|
000001b0  2b 31 30 30 2a 28 44 65  6c 61 79 29 0d 00 be 12  |+100*(Delay)....|
000001c0  4f 41 3d 41 3a 4f 42 3d  42 3a 4f 43 3d 43 0d 00  |OA=A:OB=B:OC=C..|
000001d0  c8 29 c9 20 36 3a f2 6d  6f 75 73 65 63 6c 69 63  |.). 6:.mouseclic|
000001e0  6b 3a 54 69 6d 65 4f 75  74 3d 91 2b 31 30 30 2a  |k:TimeOut=.+100*|
000001f0  28 44 65 6c 61 79 29 0d  00 d2 1d c9 20 38 3a 54  |(Delay)..... 8:T|
00000200  69 6d 65 4f 75 74 3d 91  2b 31 30 30 2a 28 44 65  |imeOut=.+100*(De|
00000210  6c 61 79 29 0d 00 dc 3c  c9 20 39 3a f2 6d 65 6e  |lay)...<. 9:.men|
00000220  75 73 65 6c 65 63 74 3a  44 65 6c 61 79 3d bb 28  |uselect:Delay=.(|
00000230  24 44 65 6c 54 65 78 74  25 29 3a 54 69 6d 65 4f  |$DelText%):TimeO|
00000240  75 74 3d 91 2b 31 30 30  2a 28 44 65 6c 61 79 29  |ut=.+100*(Delay)|
00000250  0d 00 e6 1c c9 20 31 37  2c 31 38 3a f2 72 65 73  |..... 17,18:.res|
00000260  70 6f 6e 64 28 72 65 70  6c 79 25 29 0d 00 f0 05  |pond(reply%)....|
00000270  cb 0d 00 fa 07 fd 20 a3  0d 01 04 05 3a 0d 01 0e  |...... .....:...|
00000280  0a dd f2 69 6e 69 74 0d  01 18 26 de 20 70 74 73  |...init...&. pts|
00000290  28 37 2c 32 29 3a f4 20  4e 75 6d 62 65 72 20 6f  |(7,2):. Number o|
000002a0  66 20 70 65 6e 64 75 6c  75 6d 73 2c 33 0d 01 22  |f pendulums,3.."|
000002b0  19 44 65 6c 61 79 3d 33  30 30 3a f4 20 35 20 6d  |.Delay=300:. 5 m|
000002c0  69 6e 75 74 65 73 0d 01  2c 19 54 69 6d 65 4f 75  |inutes..,.TimeOu|
000002d0  74 3d 91 2b 31 30 30 2a  28 44 65 6c 61 79 29 0d  |t=.+100*(Delay).|
000002e0  01 36 42 de 20 64 61 74  61 31 25 20 32 35 36 2c  |.6B. data1% 256,|
000002f0  64 61 74 61 32 25 20 31  30 32 34 3a f4 20 47 65  |data2% 1024:. Ge|
00000300  6e 65 72 61 6c 20 64 61  74 61 20 62 6c 6f 63 6b  |neral data block|
00000310  73 20 28 6e 6f 74 20 70  65 72 6d 61 6e 65 6e 74  |s (not permanent|
00000320  29 0d 01 40 2d c8 99 22  57 69 6d 70 5f 49 6e 69  |)..@-.."Wimp_Ini|
00000330  74 69 61 6c 69 73 65 22  2c 32 30 30 2c 26 34 42  |tialise",200,&4B|
00000340  35 33 34 31 35 34 2c 22  53 6c 65 65 70 22 0d 01  |534154,"Sleep"..|
00000350  4a 33 77 6f 72 6b 73 70  61 63 65 73 69 7a 65 25  |J3workspacesize%|
00000360  3d 26 33 30 30 3a de 20  77 6f 72 6b 73 70 61 63  |=&300:. workspac|
00000370  65 25 20 77 6f 72 6b 73  70 61 63 65 73 69 7a 65  |e% workspacesize|
00000380  25 0d 01 54 2b 6d 61 78  77 6f 72 6b 73 70 61 63  |%..T+maxworkspac|
00000390  65 25 3d 77 6f 72 6b 73  70 61 63 65 25 2b 77 6f  |e%=workspace%+wo|
000003a0  72 6b 73 70 61 63 65 73  69 7a 65 25 0d 01 5e 47  |rkspacesize%..^G|
000003b0  77 73 70 74 72 25 3d 77  6f 72 6b 73 70 61 63 65  |wsptr%=workspace|
000003c0  25 3a f4 20 50 6f 69 6e  74 65 72 20 74 6f 20 6e  |%:. Pointer to n|
000003d0  65 78 74 20 61 76 61 69  6c 61 62 6c 65 20 66 72  |ext available fr|
000003e0  65 65 20 62 69 74 20 6f  66 20 77 6f 72 6b 73 70  |ee bit of worksp|
000003f0  61 63 65 0d 01 68 2a de  20 6d 65 6e 75 64 61 74  |ace..h*. menudat|
00000400  61 25 20 26 33 30 30 3a  f4 20 46 6f 72 20 6d 65  |a% &300:. For me|
00000410  6e 75 20 73 74 72 75 63  74 75 72 65 73 0d 01 72  |nu structures..r|
00000420  4b 6d 70 74 72 25 3d 6d  65 6e 75 64 61 74 61 25  |Kmptr%=menudata%|
00000430  3a f4 20 50 6f 69 6e 74  65 72 20 74 6f 20 6e 65  |:. Pointer to ne|
00000440  78 74 20 61 76 61 69 6c  61 62 6c 65 20 66 72 65  |xt available fre|
00000450  65 20 62 69 74 20 6f 66  20 6d 65 6e 75 20 64 61  |e bit of menu da|
00000460  74 61 20 73 70 61 63 65  0d 01 7c 1e f4 20 47 65  |ta space..|.. Ge|
00000470  74 20 49 6e 66 6f 20 57  69 6e 64 6f 77 20 54 65  |t Info Window Te|
00000480  6d 70 6c 61 74 65 0d 01  86 32 c8 99 22 57 69 6d  |mplate...2.."Wim|
00000490  70 5f 4f 70 65 6e 54 65  6d 70 6c 61 74 65 22 2c  |p_OpenTemplate",|
000004a0  2c 22 3c 53 6c 65 65 70  24 44 69 72 3e 2e 54 65  |,"<Sleep$Dir>.Te|
000004b0  6d 70 6c 61 74 65 73 22  0d 01 90 4d c8 99 22 57  |mplates"...M.."W|
000004c0  69 6d 70 5f 4c 6f 61 64  54 65 6d 70 6c 61 74 65  |imp_LoadTemplate|
000004d0  22 2c 2c 64 61 74 61 32  25 2c 77 73 70 74 72 25  |",,data2%,wsptr%|
000004e0  2c 6d 61 78 77 6f 72 6b  73 70 61 63 65 25 2c 2d  |,maxworkspace%,-|
000004f0  31 2c 22 69 6e 66 6f 22  2c 30 20 b8 20 2c 2c 77  |1,"info",0 . ,,w|
00000500  73 70 74 72 25 0d 01 9a  1e 24 28 64 61 74 61 32  |sptr%....$(data2|
00000510  25 21 28 38 38 2b 39 36  2b 32 30 29 29 3d 76 65  |%!(88+96+20))=ve|
00000520  72 73 24 0d 01 a4 29 c8  99 22 57 69 6d 70 5f 43  |rs$...).."Wimp_C|
00000530  72 65 61 74 65 57 69 6e  64 6f 77 22 2c 2c 64 61  |reateWindow",,da|
00000540  74 61 32 25 20 b8 20 69  6e 66 6f 25 0d 01 ae 1a  |ta2% . info%....|
00000550  c8 99 22 57 69 6d 70 5f  43 6c 6f 73 65 54 65 6d  |.."Wimp_CloseTem|
00000560  70 6c 61 74 65 22 0d 01  b8 05 3a 0d 01 c2 0c f4  |plate"....:.....|
00000570  20 4d 65 6e 75 73 2e 0d  01 cc 10 de 20 44 65 6c  | Menus...... Del|
00000580  54 65 78 74 25 20 35 0d  01 d6 25 64 65 6c 61 79  |Text% 5...%delay|
00000590  6d 24 3d 22 23 44 65 6c  61 79 2f 73 7c 24 44 65  |m$="#Delay/s|$De|
000005a0  6c 54 65 78 74 25 5b 34  5d 7c 7c 22 0d 01 e0 1e  |lText%[4]||"....|
000005b0  64 65 6c 61 79 6d 25 3d  a4 6d 61 6b 65 6d 65 6e  |delaym%=.makemen|
000005c0  75 28 64 65 6c 61 79 6d  24 29 0d 01 ea 13 24 44  |u(delaym$)....$D|
000005d0  65 6c 54 65 78 74 25 3d  22 33 30 30 22 0d 01 f4  |elText%="300"...|
000005e0  37 6d 61 69 6e 6d 24 3d  22 23 53 6c 65 65 70 7c  |7mainm$="#Sleep||
000005f0  49 6e 66 6f 28 69 6e 66  6f 25 29 7c 4f 70 74 69  |Info(info%)|Opti|
00000600  6f 6e 73 28 64 65 6c 61  79 6d 25 29 7c 51 75 69  |ons(delaym%)|Qui|
00000610  74 7c 7c 22 0d 01 fe 1c  6d 61 69 6e 6d 25 3d a4  |t||"....mainm%=.|
00000620  6d 61 6b 65 6d 65 6e 75  28 6d 61 69 6e 6d 24 29  |makemenu(mainm$)|
00000630  0d 02 08 1a f4 20 50 75  74 20 69 63 6f 6e 20 6f  |..... Put icon o|
00000640  6e 20 69 63 6f 6e 20 62  61 72 0d 02 12 4e 21 64  |n icon bar...N!d|
00000650  61 74 61 31 25 3d 2d 31  3a 64 61 74 61 31 25 21  |ata1%=-1:data1%!|
00000660  34 3d 30 3a 64 61 74 61  31 25 21 38 3d 30 3a 64  |4=0:data1%!8=0:d|
00000670  61 74 61 31 25 21 31 32  3d 36 39 3a 64 61 74 61  |ata1%!12=69:data|
00000680  31 25 21 31 36 3d 36 38  3a 64 61 74 61 31 25 21  |1%!16=68:data1%!|
00000690  32 30 3d 26 33 30 30 32  0d 02 1c 19 24 28 64 61  |20=&3002....$(da|
000006a0  74 61 31 25 2b 32 34 29  3d 22 21 53 6c 65 65 70  |ta1%+24)="!Sleep|
000006b0  22 0d 02 26 28 c8 99 22  57 69 6d 70 5f 43 72 65  |"..&(.."Wimp_Cre|
000006c0  61 74 65 49 63 6f 6e 22  2c 2c 64 61 74 61 31 25  |ateIcon",,data1%|
000006d0  20 b8 20 69 63 62 61 72  25 0d 02 30 05 e1 0d 02  | . icbar%..0....|
000006e0  3a 05 3a 0d 02 44 1c dd  a4 77 6f 72 6b 73 70 61  |:.:..D...workspa|
000006f0  63 65 5f 63 6c 61 69 6d  28 73 69 7a 65 25 29 0d  |ce_claim(size%).|
00000700  02 4e 3a f4 20 67 65 74  73 20 67 65 6e 65 72 61  |.N:. gets genera|
00000710  6c 20 73 74 6f 72 61 67  65 20 73 70 61 63 65 2e  |l storage space.|
00000720  20 72 65 74 75 72 6e 73  20 70 6f 69 6e 74 65 72  | returns pointer|
00000730  20 74 6f 20 61 72 65 61  2e 0d 02 58 11 77 73 70  | to area...X.wsp|
00000740  74 72 25 2b 3d 73 69 7a  65 25 0d 02 62 37 e7 20  |tr%+=size%..b7. |
00000750  77 73 70 74 72 25 3e 6d  61 78 77 6f 72 6b 73 70  |wsptr%>maxworksp|
00000760  61 63 65 25 20 8c 20 85  20 30 2c 22 4e 6f 74 20  |ace% . . 0,"Not |
00000770  45 6e 6f 75 67 68 20 77  6f 72 6b 73 70 61 63 65  |Enough workspace|
00000780  22 0d 02 6c 11 3d 77 73  70 74 72 25 2d 73 69 7a  |"..l.=wsptr%-siz|
00000790  65 25 0d 02 76 05 3a 0d  02 80 14 dd a4 6d 61 6b  |e%..v.:......mak|
000007a0  65 6d 65 6e 75 28 6d 65  6e 24 29 0d 02 8a 34 ea  |emenu(men$)...4.|
000007b0  20 4d 4d 25 2c 54 68 69  73 4f 70 74 24 2c 6d 74  | MM%,ThisOpt$,mt|
000007c0  69 74 6c 65 24 2c 66 6c  61 67 25 2c 6c 61 73 74  |itle$,flag%,last|
000007d0  25 2c 73 75 62 6d 65 6e  25 2c 6d 61 78 78 25 0d  |%,submen%,maxx%.|
000007e0  02 94 0b 6c 61 73 74 25  3d a3 0d 02 9e 14 e7 20  |...last%=...... |
000007f0  c0 6d 65 6e 24 2c 31 29  3d 22 23 22 20 8c 0d 02  |.men$,1)="#" ...|
00000800  a8 23 6d 74 69 74 6c 65  24 3d a4 67 65 74 6d 65  |.#mtitle$=.getme|
00000810  6e 75 62 69 74 28 6d 65  6e 24 2c 6c 61 73 74 25  |nubit(men$,last%|
00000820  29 0d 02 b2 17 6d 74 69  74 6c 65 24 3d c1 6d 74  |)....mtitle$=.mt|
00000830  69 74 6c 65 24 2c 32 29  0d 02 bc 05 cc 0d 02 c6  |itle$,2)........|
00000840  0e 6d 74 69 74 6c 65 24  3d 22 22 0d 02 d0 05 cd  |.mtitle$="".....|
00000850  0d 02 da 12 24 6d 70 74  72 25 3d 6d 74 69 74 6c  |....$mptr%=mtitl|
00000860  65 24 0d 02 e4 0e 6d 70  74 72 25 3f 31 32 3d 37  |e$....mptr%?12=7|
00000870  0d 02 ee 0e 6d 70 74 72  25 3f 31 33 3d 32 0d 02  |....mptr%?13=2..|
00000880  f8 0e 6d 70 74 72 25 3f  31 34 3d 37 0d 03 02 0e  |..mptr%?14=7....|
00000890  6d 70 74 72 25 3f 31 35  3d 30 0d 03 0c 16 6d 70  |mptr%?15=0....mp|
000008a0  74 72 25 21 31 36 3d 30  3a f4 20 77 69 64 74 68  |tr%!16=0:. width|
000008b0  0d 03 16 18 6d 70 74 72  25 21 32 30 3d 34 34 3a  |....mptr%!20=44:|
000008c0  f4 20 68 65 69 67 68 74  0d 03 20 0e 6d 70 74 72  |. height.. .mptr|
000008d0  25 21 32 34 3d 30 0d 03  2a 0d 6d 70 74 72 25 2b  |%!24=0..*.mptr%+|
000008e0  3d 32 38 0d 03 34 14 6d  61 78 78 25 3d a9 28 6d  |=28..4.maxx%=.(m|
000008f0  74 69 74 6c 65 24 29 0d  03 3e 05 f5 0d 03 48 24  |title$)..>....H$|
00000900  54 68 69 73 4f 70 74 24  3d a4 67 65 74 6d 65 6e  |ThisOpt$=.getmen|
00000910  75 62 69 74 28 6d 65 6e  24 2c 6c 61 73 74 25 29  |ubit(men$,last%)|
00000920  0d 03 52 19 f2 6d 65 6e  75 6f 70 74 69 6f 6e 28  |..R..menuoption(|
00000930  54 68 69 73 4f 70 74 24  29 0d 03 5c 0d fd 20 6c  |ThisOpt$)..\.. l|
00000940  61 73 74 25 3d b9 0d 03  66 11 4d 4d 25 3d 6d 65  |ast%=...f.MM%=me|
00000950  6e 75 64 61 74 61 25 0d  03 70 1e 6d 65 6e 75 64  |nudata%..p.menud|
00000960  61 74 61 25 21 31 36 3d  28 6d 61 78 78 25 2a 38  |ata%!16=(maxx%*8|
00000970  2b 36 29 2a 32 0d 03 7a  13 6d 65 6e 75 64 61 74  |+6)*2..z.menudat|
00000980  61 25 3d 6d 70 74 72 25  0d 03 84 08 3d 4d 4d 25  |a%=mptr%....=MM%|
00000990  0d 03 8e 05 3a 0d 03 98  1a dd f2 6d 65 6e 75 6f  |....:......menuo|
000009a0  70 74 69 6f 6e 28 54 68  69 73 4f 70 74 24 29 0d  |ption(ThisOpt$).|
000009b0  03 a2 42 ea 20 53 75 62  48 61 6e 25 2c 54 78 74  |..B. SubHan%,Txt|
000009c0  49 6e 64 25 2c 54 78 74  53 74 6f 72 61 67 65 25  |Ind%,TxtStorage%|
000009d0  2c 66 6c 61 67 25 2c 54  78 74 53 7a 25 2c 49 6e  |,flag%,TxtSz%,In|
000009e0  64 72 63 74 64 25 2c 53  75 62 48 61 6e 50 6f 73  |drctd%,SubHanPos|
000009f0  25 0d 03 ac 0b 66 6c 61  67 25 3d 30 0d 03 b6 22  |%....flag%=0..."|
00000a00  6d 70 74 72 25 21 34 3d  2d 31 3a f4 20 4e 6f 20  |mptr%!4=-1:. No |
00000a10  73 75 62 6d 65 6e 75 20  61 73 20 79 65 74 0d 03  |submenu as yet..|
00000a20  c0 14 6d 70 74 72 25 21  38 3d 26 37 30 30 30 30  |..mptr%!8=&70000|
00000a30  32 31 0d 03 ca 35 e7 20  c2 54 68 69 73 4f 70 74  |21...5. .ThisOpt|
00000a40  24 2c 31 29 3d 22 21 22  20 8c 20 54 68 69 73 4f  |$,1)="!" . ThisO|
00000a50  70 74 24 3d c0 54 68 69  73 4f 70 74 24 29 3a 66  |pt$=.ThisOpt$):f|
00000a60  6c 61 67 25 2b 3d 31 0d  03 d4 35 e7 20 c2 54 68  |lag%+=1...5. .Th|
00000a70  69 73 4f 70 74 24 2c 31  29 3d 22 40 22 20 8c 20  |isOpt$,1)="@" . |
00000a80  54 68 69 73 4f 70 74 24  3d c0 54 68 69 73 4f 70  |ThisOpt$=.ThisOp|
00000a90  74 24 29 3a 66 6c 61 67  25 2b 3d 32 0d 03 de 11  |t$):flag%+=2....|
00000aa0  6d 70 74 72 25 21 30 3d  66 6c 61 67 25 0d 03 e8  |mptr%!0=flag%...|
00000ab0  38 e7 20 6c 61 73 74 25  20 8c 20 21 6d 70 74 72  |8. last% . !mptr|
00000ac0  25 3d 21 6d 70 74 72 25  20 84 20 26 38 30 3a f4  |%=!mptr% . &80:.|
00000ad0  20 53 65 74 20 6c 61 73  74 20 6f 70 74 69 6f 6e  | Set last option|
00000ae0  20 66 6c 61 67 0d 03 f2  18 e7 20 c0 54 68 69 73  | flag..... .This|
00000af0  4f 70 74 24 2c 31 29 3d  22 24 22 20 8c 0d 03 fc  |Opt$,1)="$" ....|
00000b00  19 54 68 69 73 4f 70 74  24 3d c1 54 68 69 73 4f  |.ThisOpt$=.ThisO|
00000b10  70 74 24 2c 32 29 0d 04  06 29 54 78 74 53 7a 25  |pt$,2)...)TxtSz%|
00000b20  3d bb 28 c1 54 68 69 73  4f 70 74 24 2c a7 54 68  |=.(.ThisOpt$,.Th|
00000b30  69 73 4f 70 74 24 2c 22  5b 22 29 2b 31 29 29 0d  |isOpt$,"[")+1)).|
00000b40  04 10 20 54 78 74 52 75  62 62 69 73 68 25 3d a7  |.. TxtRubbish%=.|
00000b50  54 68 69 73 4f 70 74 24  2c 22 5b 22 29 2d 31 0d  |ThisOpt$,"[")-1.|
00000b60  04 1a 29 54 78 74 53 74  6f 72 61 67 65 25 3d a0  |..)TxtStorage%=.|
00000b70  28 c0 54 68 69 73 4f 70  74 24 2c 54 78 74 52 75  |(.ThisOpt$,TxtRu|
00000b80  62 62 69 73 68 25 29 29  0d 04 24 34 54 68 69 73  |bbish%))..$4This|
00000b90  4f 70 74 24 3d c4 54 78  74 53 7a 25 2c 22 20 22  |Opt$=.TxtSz%," "|
00000ba0  29 3a f4 20 47 65 74 20  72 69 67 68 74 20 77 69  |):. Get right wi|
00000bb0  64 74 68 20 66 6f 72 20  6d 65 6e 75 0d 04 2e 0e  |dth for menu....|
00000bc0  6d 70 74 72 25 21 30 2b  3d 34 0d 04 38 28 6d 70  |mptr%!0+=4..8(mp|
00000bd0  74 72 25 21 34 3d 2d 31  3a f4 20 57 72 69 74 65  |tr%!4=-1:. Write|
00000be0  61 62 6c 65 20 73 6f 20  6e 6f 20 73 75 62 6d 65  |able so no subme|
00000bf0  6e 75 0d 04 42 11 6d 70  74 72 25 21 38 2b 3d 26  |nu..B.mptr%!8+=&|
00000c00  31 30 30 0d 04 4c 18 6d  70 74 72 25 21 31 32 3d  |100..L.mptr%!12=|
00000c10  54 78 74 53 74 6f 72 61  67 65 25 0d 04 56 23 6d  |TxtStorage%..V#m|
00000c20  70 74 72 25 21 31 36 3d  2d 31 3a f4 20 56 61 6c  |ptr%!16=-1:. Val|
00000c30  69 64 61 74 69 6f 6e 20  73 74 72 69 6e 67 0d 04  |idation string..|
00000c40  60 13 6d 70 74 72 25 21  32 30 3d 54 78 74 53 7a  |`.mptr%!20=TxtSz|
00000c50  25 0d 04 6a 05 cc 0d 04  74 2e 53 75 62 48 61 6e  |%..j....t.SubHan|
00000c60  50 6f 73 25 3d a7 54 68  69 73 4f 70 74 24 2c 22  |Pos%=.ThisOpt$,"|
00000c70  28 22 29 3a e7 20 53 75  62 48 61 6e 50 6f 73 25  |("):. SubHanPos%|
00000c80  3e 30 20 8c 0d 04 7e 26  53 75 62 48 61 6e 25 3d  |>0 ...~&SubHan%=|
00000c90  a0 28 c1 54 68 69 73 4f  70 74 24 2c 53 75 62 48  |.(.ThisOpt$,SubH|
00000ca0  61 6e 50 6f 73 25 2b 31  29 29 0d 04 88 24 54 68  |anPos%+1))...$Th|
00000cb0  69 73 4f 70 74 24 3d c0  54 68 69 73 4f 70 74 24  |isOpt$=.ThisOpt$|
00000cc0  2c 53 75 62 48 61 6e 50  6f 73 25 2d 31 29 0d 04  |,SubHanPos%-1)..|
00000cd0  92 13 6d 70 74 72 25 21  34 3d 53 75 62 48 61 6e  |..mptr%!4=SubHan|
00000ce0  25 0d 04 9c 05 cd 0d 04  a6 17 e7 20 a9 28 54 68  |%.......... .(Th|
00000cf0  69 73 4f 70 74 24 29 3c  3d 31 32 20 8c 0d 04 b0  |isOpt$)<=12 ....|
00000d00  18 24 28 6d 70 74 72 25  2b 31 32 29 3d 54 68 69  |.$(mptr%+12)=Thi|
00000d10  73 4f 70 74 24 0d 04 ba  05 cc 0d 04 c4 2c 49 6e  |sOpt$........,In|
00000d20  64 72 63 74 64 25 3d a4  77 6f 72 6b 73 70 61 63  |drctd%=.workspac|
00000d30  65 5f 63 6c 61 69 6d 28  a9 28 54 68 69 73 4f 70  |e_claim(.(ThisOp|
00000d40  74 24 29 2b 31 29 0d 04  ce 16 24 49 6e 64 72 63  |t$)+1)....$Indrc|
00000d50  74 64 25 3d 54 68 69 73  4f 70 74 24 0d 04 d8 15  |td%=ThisOpt$....|
00000d60  6d 70 74 72 25 21 31 32  3d 49 6e 64 72 63 74 64  |mptr%!12=Indrctd|
00000d70  25 0d 04 e2 1a 6d 70 74  72 25 21 38 3d 6d 70 74  |%....mptr%!8=mpt|
00000d80  72 25 21 38 20 84 20 26  31 30 30 0d 04 ec 0f 6d  |r%!8 . &100....m|
00000d90  70 74 72 25 21 31 36 3d  2d 31 0d 04 f6 1a 6d 70  |ptr%!16=-1....mp|
00000da0  74 72 25 21 32 30 3d a9  28 54 68 69 73 4f 70 74  |tr%!20=.(ThisOpt|
00000db0  24 29 2b 31 0d 05 00 05  cd 0d 05 0a 05 cd 0d 05  |$)+1............|
00000dc0  14 2b e7 20 a9 28 54 68  69 73 4f 70 74 24 29 3e  |.+. .(ThisOpt$)>|
00000dd0  6d 61 78 78 25 20 8c 20  6d 61 78 78 25 3d a9 28  |maxx% . maxx%=.(|
00000de0  54 68 69 73 4f 70 74 24  29 0d 05 1e 0d 6d 70 74  |ThisOpt$)....mpt|
00000df0  72 25 2b 3d 32 34 0d 05  28 05 e1 0d 05 32 05 3a  |r%+=24..(....2.:|
00000e00  0d 05 3c 21 dd a4 67 65  74 6d 65 6e 75 62 69 74  |..<!..getmenubit|
00000e10  28 f8 20 74 65 78 74 24  2c f8 20 6c 61 73 74 25  |(. text$,. last%|
00000e20  29 0d 05 46 15 ea 20 67  6d 62 25 2c 67 6d 62 32  |)..F.. gmb%,gmb2|
00000e30  25 2c 67 6d 62 24 0d 05  50 14 67 6d 62 25 3d a7  |%,gmb$..P.gmb%=.|
00000e40  74 65 78 74 24 2c 22 7c  22 29 0d 05 5a 17 67 6d  |text$,"|")..Z.gm|
00000e50  62 24 3d c0 74 65 78 74  24 2c 67 6d 62 25 2d 31  |b$=.text$,gmb%-1|
00000e60  29 0d 05 64 1f 74 65 78  74 24 3d c2 74 65 78 74  |)..d.text$=.text|
00000e70  24 2c a9 28 74 65 78 74  24 29 2d 67 6d 62 25 29  |$,.(text$)-gmb%)|
00000e80  0d 05 6e 22 e7 20 74 65  78 74 24 3d 22 7c 22 20  |..n". text$="|" |
00000e90  8c 20 6c 61 73 74 25 3d  b9 3a 74 65 78 74 24 3d  |. last%=.:text$=|
00000ea0  22 22 0d 05 78 09 3d 67  6d 62 24 0d 05 82 05 3a  |""..x.=gmb$....:|
00000eb0  0d 05 8c 10 dd f2 6d 6f  75 73 65 63 6c 69 63 6b  |......mouseclick|
00000ec0  0d 05 96 11 c8 8e 20 64  61 74 61 31 25 21 38 20  |...... data1%!8 |
00000ed0  ca 0d 05 a0 3c c9 20 32  3a e7 20 64 61 74 61 31  |....<. 2:. data1|
00000ee0  25 21 31 32 3d 2d 32 20  f2 70 72 69 6e 74 6d 65  |%!12=-2 .printme|
00000ef0  6e 75 28 6d 61 69 6e 6d  25 2c 21 64 61 74 61 31  |nu(mainm%,!data1|
00000f00  25 2d 36 34 2c 39 36 2b  33 2a 34 34 29 0d 05 aa  |%-64,96+3*44)...|
00000f10  10 c9 20 34 3a f2 62 65  64 74 69 6d 65 0d 05 b4  |.. 4:.bedtime...|
00000f20  05 cb 0d 05 be 05 e1 0d  05 c8 05 3a 0d 05 d2 25  |...........:...%|
00000f30  dd f2 70 72 69 6e 74 6d  65 6e 75 28 63 75 72 6d  |..printmenu(curm|
00000f40  65 6e 75 25 2c 63 75 72  78 25 2c 63 75 72 79 25  |enu%,curx%,cury%|
00000f50  29 0d 05 dc 15 63 6d 65  6e 68 61 6e 25 3d 63 75  |)....cmenhan%=cu|
00000f60  72 6d 65 6e 75 25 0d 05  e6 2d c8 99 22 57 69 6d  |rmenu%...-.."Wim|
00000f70  70 5f 43 72 65 61 74 65  4d 65 6e 75 22 2c 2c 63  |p_CreateMenu",,c|
00000f80  6d 65 6e 68 61 6e 25 2c  63 75 72 78 25 2c 63 75  |menhan%,curx%,cu|
00000f90  72 79 25 0d 05 f0 05 e1  0d 05 fa 05 3a 0d 06 04  |ry%.........:...|
00000fa0  15 dd f2 72 65 73 70 6f  6e 64 28 72 65 70 6c 79  |...respond(reply|
00000fb0  25 29 0d 06 0e 12 c8 8e  20 64 61 74 61 31 25 21  |%)...... data1%!|
00000fc0  31 36 20 ca 0d 06 18 0e  c9 20 30 3a f2 64 69 65  |16 ...... 0:.die|
00000fd0  3a e0 0d 06 22 05 cb 0d  06 2c 05 e1 0d 06 36 05  |:..."....,....6.|
00000fe0  3a 0d 06 40 09 dd f2 64  69 65 0d 06 4a 16 c8 99  |:..@...die..J...|
00000ff0  22 57 69 6d 70 5f 43 6c  6f 73 65 44 6f 77 6e 22  |"Wimp_CloseDown"|
00001000  0d 06 54 05 e1 0d 06 5e  05 3a 0d 06 68 14 dd f2  |..T....^.:..h...|
00001010  67 65 74 70 6f 69 6e 74  65 72 69 6e 66 6f 0d 06  |getpointerinfo..|
00001020  72 23 c8 99 22 57 69 6d  70 5f 47 65 74 50 6f 69  |r#.."Wimp_GetPoi|
00001030  6e 74 65 72 49 6e 66 6f  22 2c 2c 64 61 74 61 31  |nterInfo",,data1|
00001040  25 0d 06 7c 11 6d 6f 73  78 25 3d 21 64 61 74 61  |%..|.mosx%=!data|
00001050  31 25 0d 06 86 12 6d 6f  73 79 25 3d 64 61 74 61  |1%....mosy%=data|
00001060  31 25 21 34 0d 06 90 14  62 75 74 74 6f 6e 25 3d  |1%!4....button%=|
00001070  64 61 74 61 31 25 21 38  0d 06 9a 15 68 61 6e 64  |data1%!8....hand|
00001080  6c 65 25 3d 64 61 74 61  31 25 21 31 32 0d 06 a4  |le%=data1%!12...|
00001090  13 69 63 6f 6e 25 3d 64  61 74 61 31 25 21 31 36  |.icon%=data1%!16|
000010a0  0d 06 ae 05 e1 0d 06 b8  05 3a 0d 06 c2 10 dd f2  |.........:......|
000010b0  6d 65 6e 75 73 65 6c 65  63 74 0d 06 cc 1e ea 20  |menuselect..... |
000010c0  61 64 6a 70 72 65 73 73  65 64 25 2c 73 6c 63 74  |adjpressed%,slct|
000010d0  64 24 2c 78 25 2c 79 25  0d 06 d6 7e c8 99 22 57  |d$,x%,y%...~.."W|
000010e0  69 6d 70 5f 47 65 74 50  6f 69 6e 74 65 72 49 6e  |imp_GetPointerIn|
000010f0  66 6f 22 2c 2c 64 61 74  61 32 25 3a 61 64 6a 70  |fo",,data2%:adjp|
00001100  72 65 73 73 65 64 25 3d  28 64 61 74 61 32 25 21  |ressed%=(data2%!|
00001110  38 20 80 20 31 29 3a f4  20 49 66 20 41 64 6a 75  |8 . 1):. If Adju|
00001120  73 74 20 75 73 65 64 20  66 6f 72 20 6d 65 6e 75  |st used for menu|
00001130  20 73 65 6c 65 63 74 69  6f 6e 20 74 68 65 6e 20  | selection then |
00001140  6d 65 6e 75 20 64 6f 65  73 6e 27 74 20 64 69 73  |menu doesn't dis|
00001150  73 61 70 65 61 72 0d 06  e0 1a 78 25 3d 21 64 61  |sapear....x%=!da|
00001160  74 61 32 25 3a 79 25 3d  64 61 74 61 32 25 21 34  |ta2%:y%=data2%!4|
00001170  0d 06 ea 1b f4 20 44 65  63 6f 64 65 20 4d 65 6e  |..... Decode Men|
00001180  75 20 53 65 6c 65 63 74  69 6f 6e 0d 06 f4 3e c8  |u Selection...>.|
00001190  99 22 57 69 6d 70 5f 44  65 63 6f 64 65 4d 65 6e  |."Wimp_DecodeMen|
000011a0  75 22 2c 2c 63 6d 65 6e  68 61 6e 25 2c 64 61 74  |u",,cmenhan%,dat|
000011b0  61 31 25 2c c4 32 30 30  2c 22 20 22 29 20 b8 20  |a1%,.200," ") . |
000011c0  2c 2c 2c 73 6c 63 74 64  24 0d 06 fe 13 e7 20 73  |,,,slctd$..... s|
000011d0  6c 63 74 64 24 3d 22 22  20 8c 20 e1 0d 07 08 1c  |lctd$="" . .....|
000011e0  e7 20 73 6c 63 74 64 24  3d 22 51 75 69 74 22 20  |. slctd$="Quit" |
000011f0  8c 20 f2 64 69 65 3a e0  0d 07 12 2e e7 20 61 64  |. .die:...... ad|
00001200  6a 70 72 65 73 73 65 64  25 20 8c 20 f2 70 72 69  |jpressed% . .pri|
00001210  6e 74 6d 65 6e 75 28 63  6d 65 6e 68 61 6e 25 2c  |ntmenu(cmenhan%,|
00001220  78 25 2c 79 25 29 0d 07  1c 05 e1 0d 07 26 05 3a  |x%,y%).......&.:|
00001230  0d 07 30 0b dd a4 73 6c  65 65 70 0d 07 3a 06 eb  |..0...sleep..:..|
00001240  30 0d 07 44 14 ea 20 41  2c 42 2c 43 2c 4f 41 2c  |0..D.. A,B,C,OA,|
00001250  4f 42 2c 4f 43 0d 07 4e  17 e3 20 77 61 69 74 25  |OB,OC..N.. wait%|
00001260  3d 30 20 b8 20 33 30 3a  c8 96 3a ed 0d 07 58 0c  |=0 . 30:..:...X.|
00001270  2a 46 58 20 32 31 2c 39  0d 07 62 0f c8 97 b8 20  |*FX 21,9..b.... |
00001280  36 35 30 2c 35 35 30 0d  07 6c 33 c8 97 20 4f 41  |650,550..l3.. OA|
00001290  2c 4f 42 2c 4f 43 3a 4f  41 3d 28 4f 41 20 81 20  |,OB,OC:OA=(OA . |
000012a0  31 30 30 29 2a 31 30 30  3a 4f 42 3d 28 4f 42 20  |100)*100:OB=(OB |
000012b0  81 20 31 30 30 29 2a 31  30 30 0d 07 76 12 41 3d  |. 100)*100..v.A=|
000012c0  4f 41 3a 42 3d 4f 42 3a  43 3d 4f 43 0d 07 80 05  |OA:B=OB:C=OC....|
000012d0  87 0d 07 8a 0b 68 61 6c  74 25 3d a3 0d 07 94 0c  |.....halt%=.....|
000012e0  73 74 72 74 25 3d 37 36  0d 07 9e 10 73 70 65 65  |strt%=76....spee|
000012f0  64 25 3d 73 74 72 74 25  0d 07 a8 1b 61 25 3d 2d  |d%=strt%....a%=-|
00001300  34 30 3a 62 25 3d 2d 34  38 3a 63 25 3d 34 3a 64  |40:b%=-48:c%=4:d|
00001310  25 3d 38 0d 07 b2 26 61  69 6e 63 25 3d b3 28 31  |%=8...&ainc%=.(1|
00001320  31 32 39 29 2b 31 35 30  3a 62 69 6e 63 25 3d b3  |129)+150:binc%=.|
00001330  28 38 37 33 29 2b 31 35  30 0d 07 bc 05 f5 0d 07  |(873)+150.......|
00001340  c6 09 e6 20 30 2c 31 0d  07 d0 1f 7a 61 25 3d 61  |... 0,1....za%=a|
00001350  25 3a 7a 62 25 3d 62 25  3a 7a 63 25 3d 63 25 3a  |%:zb%=b%:zc%=c%:|
00001360  7a 64 25 3d 64 25 0d 07  da 17 f2 7a 28 7a 61 25  |zd%=d%.....z(za%|
00001370  2c 7a 62 25 2c 7a 63 25  2c 7a 64 25 29 0d 07 e4  |,zb%,zc%,zd%)...|
00001380  1f f2 7a 28 7a 61 25 2f  32 2c 7a 62 25 2f 32 2c  |..z(za%/2,zb%/2,|
00001390  7a 63 25 2f 32 2c 7a 64  25 2f 32 29 0d 07 ee 2b  |zc%/2,zd%/2)...+|
000013a0  f2 7a 28 7a 61 25 2a 30  2e 37 35 2c 7a 62 25 2a  |.z(za%*0.75,zb%*|
000013b0  30 2e 37 35 2c 7a 63 25  2a 30 2e 37 35 2c 7a 64  |0.75,zc%*0.75,zd|
000013c0  25 2a 30 2e 37 35 29 0d  07 f8 2b f2 7a 28 7a 61  |%*0.75)...+.z(za|
000013d0  25 2a 30 2e 32 35 2c 7a  62 25 2a 30 2e 32 35 2c  |%*0.25,zb%*0.25,|
000013e0  7a 63 25 2a 30 2e 32 35  2c 7a 64 25 2a 30 2e 32  |zc%*0.25,zd%*0.2|
000013f0  35 29 0d 08 02 16 e3 20  77 61 69 74 25 3d 30 20  |5)..... wait%=0 |
00001400  b8 20 36 3a c8 96 3a ed  0d 08 0c 26 61 25 2b 3d  |. 6:..:....&a%+=|
00001410  61 69 6e 63 25 2f 73 70  65 65 64 25 3a 61 69 6e  |ainc%/speed%:ain|
00001420  63 25 2b 3d 28 b3 28 33  30 29 2d 31 35 29 0d 08  |c%+=(.(30)-15)..|
00001430  16 26 62 25 2b 3d 62 69  6e 63 25 2f 73 70 65 65  |.&b%+=binc%/spee|
00001440  64 25 3a 62 69 6e 63 25  2b 3d 28 b3 28 33 30 29  |d%:binc%+=(.(30)|
00001450  2d 31 35 29 0d 08 20 15  63 25 3d 61 25 2b 28 7a  |-15).. .c%=a%+(z|
00001460  63 25 2d 7a 61 25 29 2b  31 0d 08 2a 15 64 25 3d  |c%-za%)+1..*.d%=|
00001470  62 25 2b 28 7a 64 25 2d  7a 62 25 29 2b 31 0d 08  |b%+(zd%-zb%)+1..|
00001480  34 11 e7 20 73 70 65 65  64 25 3c 32 30 20 8c 0d  |4.. speed%<20 ..|
00001490  08 3e 2c e7 20 b3 28 34  29 3d 32 20 8c 20 73 70  |.>,. .(4)=2 . sp|
000014a0  65 65 64 25 2d 3d 31 3a  e7 20 73 70 65 65 64 25  |eed%-=1:. speed%|
000014b0  3c 31 20 73 70 65 65 64  25 3d 31 0d 08 48 05 cc  |<1 speed%=1..H..|
000014c0  0d 08 52 2c e7 20 b3 28  32 29 3d 32 20 8c 20 73  |..R,. .(2)=2 . s|
000014d0  70 65 65 64 25 2d 3d 31  3a e7 20 73 70 65 65 64  |peed%-=1:. speed|
000014e0  25 3c 31 20 73 70 65 65  64 25 3d 31 0d 08 5c 05  |%<1 speed%=1..\.|
000014f0  cd 0d 08 66 2c c8 97 20  41 2c 42 2c 43 3a 41 3d  |...f,.. A,B,C:A=|
00001500  28 41 20 81 20 31 30 30  29 2a 31 30 30 3a 42 3d  |(A . 100)*100:B=|
00001510  28 42 20 81 20 31 30 30  29 2a 31 30 30 0d 08 70  |(B . 100)*100..p|
00001520  1c e7 20 a6 28 2d 33 29  20 8c 20 68 61 6c 74 25  |.. .(-3) . halt%|
00001530  3d 33 3a e5 20 8d 74 76  48 0d 08 7a 37 e7 20 a6  |=3:. .tvH..z7. .|
00001540  28 30 29 3c 3e 2d 31 20  84 20 41 3c 3e 4f 41 20  |(0)<>-1 . A<>OA |
00001550  84 20 42 3c 3e 4f 42 20  84 20 43 3c 3e 4f 43 20  |. B<>OB . C<>OC |
00001560  8c 20 68 61 6c 74 25 3d  b9 3a e5 20 8d 74 76 48  |. halt%=.:. .tvH|
00001570  0d 08 84 09 e6 20 30 2c  30 0d 08 8e 17 f2 7a 28  |..... 0,0.....z(|
00001580  7a 61 25 2c 7a 62 25 2c  7a 63 25 2c 7a 64 25 29  |za%,zb%,zc%,zd%)|
00001590  0d 08 98 1f f2 7a 28 7a  61 25 2f 32 2c 7a 62 25  |.....z(za%/2,zb%|
000015a0  2f 32 2c 7a 63 25 2f 32  2c 7a 64 25 2f 32 29 0d  |/2,zc%/2,zd%/2).|
000015b0  08 a2 2b f2 7a 28 7a 61  25 2a 30 2e 37 35 2c 7a  |..+.z(za%*0.75,z|
000015c0  62 25 2a 30 2e 37 35 2c  7a 63 25 2a 30 2e 37 35  |b%*0.75,zc%*0.75|
000015d0  2c 7a 64 25 2a 30 2e 37  35 29 0d 08 ac 2b f2 7a  |,zd%*0.75)...+.z|
000015e0  28 7a 61 25 2a 30 2e 32  35 2c 7a 62 25 2a 30 2e  |(za%*0.25,zb%*0.|
000015f0  32 35 2c 7a 63 25 2a 30  2e 32 35 2c 7a 64 25 2a  |25,zc%*0.25,zd%*|
00001600  30 2e 32 35 29 0d 08 b6  2b fd 20 7a 61 25 2a 30  |0.25)...+. za%*0|
00001610  2e 32 35 3e 31 32 38 30  20 84 20 7a 62 25 2a 30  |.25>1280 . zb%*0|
00001620  2e 32 35 3e 31 30 32 34  20 84 20 68 61 6c 74 25  |.25>1024 . halt%|
00001630  0d 08 c0 14 e7 20 68 61  6c 74 25 20 8c 20 e5 20  |..... halt% . . |
00001640  8d 64 54 48 0d 08 ca 17  73 70 65 65 64 25 3d 73  |.dTH....speed%=s|
00001650  74 72 74 25 3a e5 20 8d  74 68 47 0d 08 d4 17 e7  |trt%:. .thG.....|
00001660  20 68 61 6c 74 25 3d 33  20 8c 20 3d 33 20 8b 20  | halt%=3 . =3 . |
00001670  3d 30 0d 08 de 05 3a 0d  08 e8 14 dd f2 7a 28 78  |=0....:......z(x|
00001680  25 2c 79 25 2c 58 25 2c  59 25 29 0d 08 f2 09 ea  |%,y%,X%,Y%).....|
00001690  20 78 78 25 0d 08 fc 0d  78 78 25 3d 58 25 2d 78  | xx%....xx%=X%-x|
000016a0  25 0d 09 06 0d 78 78 25  3d 78 78 25 2f 36 0d 09  |%....xx%=xx%/6..|
000016b0  10 0b ec 20 58 25 2c 79  25 0d 09 1a 0b df 20 78  |... X%,y%..... x|
000016c0  25 2c 79 25 0d 09 24 0f  ec 20 78 25 2b 78 78 25  |%,y%..$.. x%+xx%|
000016d0  2c 79 25 0d 09 2e 0e f0  20 38 35 2c 58 25 2c 59  |,y%..... 85,X%,Y|
000016e0  25 0d 09 38 0f ec 20 58  25 2d 78 78 25 2c 59 25  |%..8.. X%-xx%,Y%|
000016f0  0d 09 42 16 f0 20 38 35  2c 78 25 2c 79 25 3a ec  |..B.. 85,x%,y%:.|
00001700  20 58 25 2c 59 25 0d 09  4c 0b df 20 78 25 2c 59  | X%,Y%..L.. x%,Y|
00001710  25 0d 09 56 05 e1 0d 09  60 05 3a 0d 09 6a 0b dd  |%..V....`.:..j..|
00001720  a4 73 77 69 6e 67 0d 09  74 06 eb 30 0d 09 7e 07  |.swing..t..0..~.|
00001730  eb 31 32 0d 09 88 14 ea  20 44 2c 45 2c 46 2c 4f  |.12..... D,E,F,O|
00001740  44 2c 4f 45 2c 46 46 0d  09 92 17 e3 20 77 61 69  |D,OE,FF..... wai|
00001750  74 25 3d 30 20 b8 20 33  30 3a c8 96 3a ed 0d 09  |t%=0 . 30:..:...|
00001760  9c 0c 2a 46 58 20 32 31  2c 39 0d 09 a6 0b c8 97  |..*FX 21,9......|
00001770  b8 20 30 2c 30 0d 09 b0  0f c8 97 20 4f 44 2c 4f  |. 0,0...... OD,O|
00001780  44 2c 46 46 0d 09 ba 0b  68 61 6c 74 25 3d a3 0d  |D,FF....halt%=..|
00001790  09 c4 09 4e 50 25 3d 37  0d 09 ce 0c 64 74 3d 30  |...NP%=7....dt=0|
000017a0  2e 30 30 37 0d 09 d8 19  43 50 25 3d 31 3a f4 20  |.007....CP%=1:. |
000017b0  43 75 72 72 65 6e 74 20  70 6f 69 6e 74 0d 09 e2  |Current point...|
000017c0  17 f4 20 64 74 2c 20 54  69 6d 65 20 69 6e 74 65  |.. dt, Time inte|
000017d0  72 76 61 6c 0d 09 ec 28  70 74 73 28 31 2c 30 29  |rval...(pts(1,0)|
000017e0  3d 2d 33 3a 70 74 73 28  31 2c 31 29 3d 2d 36 3a  |=-3:pts(1,1)=-6:|
000017f0  70 74 73 28 31 2c 32 29  3d 2d 32 30 0d 09 f6 12  |pts(1,2)=-20....|
00001800  e3 20 63 6e 74 25 3d 32  20 b8 20 4e 50 25 0d 0a  |. cnt%=2 . NP%..|
00001810  00 21 70 74 73 28 63 6e  74 25 2c 30 29 3d 70 74  |.!pts(cnt%,0)=pt|
00001820  73 28 63 6e 74 25 2d 31  2c 30 29 2b 30 2e 31 0d  |s(cnt%-1,0)+0.1.|
00001830  0a 0a 21 70 74 73 28 63  6e 74 25 2c 31 29 3d 70  |..!pts(cnt%,1)=p|
00001840  74 73 28 63 6e 74 25 2d  31 2c 31 29 2b 30 2e 31  |ts(cnt%-1,1)+0.1|
00001850  0d 0a 14 21 70 74 73 28  63 6e 74 25 2c 32 29 3d  |...!pts(cnt%,2)=|
00001860  70 74 73 28 63 6e 74 25  2d 31 2c 32 29 2b 30 2e  |pts(cnt%-1,2)+0.|
00001870  31 0d 0a 1e 05 ed 0d 0a  28 16 eb 31 32 3a 87 3a  |1.......(..12:.:|
00001880  ef 32 39 2c 36 34 30 3b  35 31 32 3b 0d 0a 32 0b  |.29,640;512;..2.|
00001890  f1 8a 30 2c 33 30 29 0d  0a 3c 05 f5 0d 0a 46 12  |..0,30)..<....F.|
000018a0  e3 20 63 6e 74 25 3d 31  20 b8 20 4e 50 25 0d 0a  |. cnt%=1 . NP%..|
000018b0  50 26 64 78 3d 31 30 2a  28 70 74 73 28 63 6e 74  |P&dx=10*(pts(cnt|
000018c0  25 2c 31 29 2d 70 74 73  28 63 6e 74 25 2c 30 29  |%,1)-pts(cnt%,0)|
000018d0  29 2a 64 74 0d 0a 5a 30  64 79 3d 2d 28 70 74 73  |)*dt..Z0dy=-(pts|
000018e0  28 63 6e 74 25 2c 30 29  2a 70 74 73 28 63 6e 74  |(cnt%,0)*pts(cnt|
000018f0  25 2c 32 29 2b 70 74 73  28 63 6e 74 25 2c 31 29  |%,2)+pts(cnt%,1)|
00001900  29 2a 64 74 0d 0a 64 38  64 7a 3d 28 70 74 73 28  |)*dt..d8dz=(pts(|
00001910  63 6e 74 25 2c 30 29 2a  70 74 73 28 63 6e 74 25  |cnt%,0)*pts(cnt%|
00001920  2c 31 29 2d 38 2f 33 2a  28 70 74 73 28 63 6e 74  |,1)-8/3*(pts(cnt|
00001930  25 2c 32 29 2b 32 38 29  29 2a 64 74 0d 0a 6e 31  |%,2)+28))*dt..n1|
00001940  ec 20 28 70 74 73 28 63  6e 74 25 2c 30 29 2b 70  |. (pts(cnt%,0)+p|
00001950  74 73 28 63 6e 74 25 2c  31 29 29 2a 31 32 2c 70  |ts(cnt%,1))*12,p|
00001960  74 73 28 63 6e 74 25 2c  32 29 2a 31 32 0d 0a 78  |ts(cnt%,2)*12..x|
00001970  12 e6 20 30 2c 37 2d 28  63 6e 74 25 2d 31 29 0d  |.. 0,7-(cnt%-1).|
00001980  0a 82 54 70 74 73 28 63  6e 74 25 2c 30 29 3d 70  |..Tpts(cnt%,0)=p|
00001990  74 73 28 63 6e 74 25 2c  30 29 2b 64 78 3a 70 74  |ts(cnt%,0)+dx:pt|
000019a0  73 28 63 6e 74 25 2c 31  29 3d 70 74 73 28 63 6e  |s(cnt%,1)=pts(cn|
000019b0  74 25 2c 31 29 2b 64 79  3a 70 74 73 28 63 6e 74  |t%,1)+dy:pts(cnt|
000019c0  25 2c 32 29 3d 70 74 73  28 63 6e 74 25 2c 32 29  |%,2)=pts(cnt%,2)|
000019d0  2b 64 7a 0d 0a 8c 31 df  20 28 70 74 73 28 63 6e  |+dz...1. (pts(cn|
000019e0  74 25 2c 30 29 2b 70 74  73 28 63 6e 74 25 2c 31  |t%,0)+pts(cnt%,1|
000019f0  29 29 2a 31 32 2c 70 74  73 28 63 6e 74 25 2c 32  |))*12,pts(cnt%,2|
00001a00  29 2a 31 32 0d 0a 96 05  ed 0d 0a a0 05 f1 0d 0a  |)*12............|
00001a10  aa 0c c8 97 20 44 2c 45  2c 46 0d 0a b4 15 e7 20  |.... D,E,F..... |
00001a20  a6 28 2d 33 29 20 8c 20  68 61 6c 74 25 3d 33 0d  |.(-3) . halt%=3.|
00001a30  0a be 30 e7 20 a6 28 30  29 3c 3e 2d 31 20 84 20  |..0. .(0)<>-1 . |
00001a40  44 3e 31 30 30 20 84 20  45 3e 31 30 30 20 84 20  |D>100 . E>100 . |
00001a50  46 3c 3e 46 46 20 8c 20  68 61 6c 74 25 3d b9 0d  |F<>FF . halt%=..|
00001a60  0a c8 17 fd 20 68 61 6c  74 25 3d b9 20 84 20 68  |.... halt%=. . h|
00001a70  61 6c 74 25 3d 33 0d 0a  d2 0d ef 20 32 39 2c 30  |alt%=3..... 29,0|
00001a80  3b 30 3b 0d 0a dc 17 e7  20 68 61 6c 74 25 3d 33  |;0;..... halt%=3|
00001a90  20 8c 20 3d 33 20 8b 20  3d 30 0d 0a e6 05 3a 0d  | . =3 . =0....:.|
00001aa0  0a f0 0c dd f2 67 6f 62  61 63 6b 0d 0a fa 08 eb  |.....goback.....|
00001ab0  20 31 32 0d 0b 04 19 54  69 6d 65 4f 75 74 3d 91  | 12....TimeOut=.|
00001ac0  2b 31 30 30 2a 28 44 65  6c 61 79 29 0d 0b 0e 11  |+100*(Delay)....|
00001ad0  2a 46 58 20 31 33 38 2c  30 2c 32 30 34 0d 0b 18  |*FX 138,0,204...|
00001ae0  10 2a 46 58 20 31 33 38  2c 30 2c 31 33 0d 0b 22  |.*FX 138,0,13.."|
00001af0  05 e1 0d 0b 2c 05 3a 0d  0b 36 0d dd f2 62 65 64  |....,.:..6...bed|
00001b00  74 69 6d 65 0d 0b 40 0f  72 65 74 25 3d a4 73 6c  |time..@.ret%=.sl|
00001b10  65 65 70 0d 0b 4a 18 e7  20 72 65 74 25 3d 30 20  |eep..J.. ret%=0 |
00001b20  8c 20 f2 67 6f 62 61 63  6b 3a e1 0d 0b 54 0f 72  |. .goback:...T.r|
00001b30  65 74 25 3d a4 73 77 69  6e 67 0d 0b 5e 18 e7 20  |et%=.swing..^.. |
00001b40  72 65 74 25 3d 30 20 8c  20 f2 67 6f 62 61 63 6b  |ret%=0 . .goback|
00001b50  3a e1 0d 0b 68 0a e5 20  8d 44 40 4b 0d 0b 72 05  |:...h.. .D@K..r.|
00001b60  e1 0d 0b 7c 05 3a 0d ff                           |...|.:..|
00001b68