� > !RunImage
�   Decide
�   The Flying Pig!
(�   26/7/1994 Version 1.00
2
<'�q%768,d%512,aa%-1,link%(128),e%256
F6!q%=10:q%!4=1282:q%!8=0:N$="<Decide$Dir>.Messages"
P:ș30,6,,,17+�(N$)�,,k%:$(k%+16)=N$:ș267521,k%,k%+16,0
ZXj$=�a("Tsk"):ș262336,300,1263747412,j$,q%�z%,ca%:e=0:p=12:q=4:r=2:f=7:g=7:s=13:t=12
d�set:�z%>=310�I%128
n&ș262361,,"<Decide$Dir>.Templates"
xpg%=�c("Decide"):�J%g%:ș262363,,q%,J%,J%+g%,-1,"Decide",0�,,,,,,F%:�F%=0�ș262362:�1,�b("TNF","Decide"):�c:�
�zș262337,,q%�f%:g%=�c("Info"):�K%g%:ș262363,,q%,K%,K%+g%,-1,"Info",0�,,,,,,F%:�F%=0�ș262362:�1,�b("TNF","Info"):�c:�
�%ș262337,,q%�M%:ș262362:��error
�da%=�icon:șc,,-1
��process
��reply(4,�a("IS4"))
��reply(5,�a("IS5"))
��process
�:
��:șpoll%,0,q%�A%:ȎA%�
��0:�process%�draw
��1:�redraw(!q%)
�8�2:ș&400C5,,q%:�q%!0=f%R%=q%!4-q%!20:S%=q%!16-q%!24
��3:șclose,,q%

.�6:�mouse(!q%,q%!4,q%!8,q%!12,q%!16,q%!20)

�8:�key(!q%,q%!24)

�9:�menu(q%)

"�17,18:�receive(q%)

,�

6��

@:

J��receive(q%):Ȏq%!16�

T
�0:�end:�

^�1282:�help

h�

r�

|:

�,ݤc(o$):�N%:ș262363,,0,,,,o$,0�,,N%:=N%

�:

���mouse(D%,O%,b%,a%,w%,V%)

��(b%�2)�

�	Ȏa%�

�%�-2:�cmenu(101,�a("M1"),�a("M2"))

��

��

��(b%�5)�

�!q%=f%:șwinfo,,q%

�	Ȏa%�

��f%

�	Ȏw%�
�2:�process
:ș&400D2,f%,4,0,0,,-1
�
&�-2:q%!28=-1:ș&400C5,,q%
0 R%=q%!4-q%!20:S%=q%!16-q%!24
:ș262354,f%,4,0,0,,-1
D�
N�
X�
b:
l��key(h%,s%)
v	Ȏs%�
��13,61:�process
�A�&18E,&18F:ș&400D3,,q%:ș&400D2,!q%,9-q%!4,q%!18,q%!12,-1,-1
�:ș262364,s%
��
��
�:
���end:�k%<>0�
�ș267524,k%:ș30,7,,k%
��
�ș262365:�
�:
�O��cmenu(a%,m$,f$):�m%,P%,x%:x%=0:W%=a%:c%=d%:i%=0:c%!20=40:�z%<310��f$<=12�
�$c%=�f$,12)
�:$I%=f$:c%!0=I%:x%=1<<8
�
�
 =c%?12=g:c%?13=2:c%?14=f:c%?15=e:c%!24=0:P%=c%:c%+=28:m%=0
*�
4/G%=i%+1:i%=�m$+",",",",G%):g$=�m$,G%,i%-G%)
>�g$>m%�
Hm%=�g$:�g$,1)=">"�
R	m%-=1
\�
f�
p!c%=x%:�x%>0�x%=0
z�z(g$):�g$="":�z%<310�
��m%<�(�f$,12))�
�m%=�(�f$))
��
��:�m%<�f$�
�
m%=�f$
��
��
�;P%!16=(m%+1)*16:c%!-24=(c%!-24)�128:șh,,d%,D%-64,96+80
��
�:
���z(h$):�g%,t$:�h$=""�
��h$,1)=">"c%!4=M%�c%!4=-1
�c%!8=117440545:�h$,1)=">"�

t$=�h$,2)
�:t$=h$
�
$�t$>12�
.?c%!8=c%!8�256:�g%�t$+1:$g%=t$:c%!12=g%:c%!16=-1:c%!20=�t$+1
8�:$(c%+12)=t$
B�
Lc%+=24:�
V:
`3��menu(X%):șmi,,d%,X%,�200," ")�,,,a$:�a$=""��
j	ȎW%�
t�101:�a$=�a("Q")�end:�
~�
�6ș262351,,q%:�q%?8�1��cmenu(101,�a("M1"),�a("M2"))
��
�:
���redraw(a%)
��a%=f%�
�!q%=a%:șm,,q%�H%
�ȕH%
�#�(q%!32-q%!8>88�q%!40-q%!8<8)�
�
șQ%,8
�8�n%=(q%!28-q%!4-16)/width-1 �(q%!36-q%!4-16)/width+1
�C�n%>0�n%<=position%�lines(n%*width,�(link%(n%-1)),�(link%(n%)))
��
�

șZ%,,q%�H%
�
�
(�
2:
<���set:a=(1<<18)+(3<<6):close=a+6:poll%=a+7:m=a+8:l=a+9:Z%=a+10:winfo=a+11:o=a+15:c=a+16:h=a+20:mi=a+21:ș57,,"Wimp_SetColour"�Q%:�
F:
P��error:�:EXT1,�$
ZPș&400D0,,-1:!d%=�:$(d%+4)=�f("FIE",�$,Þ)+�0:ș262367,d%,1,�a("Tsk"):�end:�
d�
n:
x�ݤicon:!q%=-1:q%!4=0:q%!8=0:q%!12=63:q%!16=68:q%!20=8450:k$=�g("SN"):�q%!24(�k$+1):$(q%!24)=k$:q%!28=1:q%!32=�k$+1:ș262338,,q%�ha%:=ha%
�:
�Mݤg(T$):�F%,L%:ș267522,k%,T$,e%,256,"",""�,,,L%;F%:�F%�1�$e%=T$�e%?L%=13
�=$e%
�:
�Fݤa(T$):�F%,L%,y%:ș398594,k%,T$,e%,256,"",0,0,0�y%,,,L%;F%:�F%�1�
�ș262367,y%,1,j$:$e%=T$
��:e%?L%=13
��
�=$e%
�:
�Mݤf(T$,S$,p$):�F%,L%,y%:ș398594,k%,T$,e%,256,S$,p$,0,0�y%,,,L%;F%:�F%�1�
�ș262367,y%,1,j$:$e%=T$
��:e%?L%=13
�
=$e%
:
"��help:e$="":Ȏq%!32�
,�f%:e$=�a("HC"):Ȏq%!36�
6 �2:e$+=�a("HI2")
@ �3:e$+=�a("HI3")
J �4:e$+=�a("HI4")
T �5:e$+=�a("HI5")
^ �6:e$+=�a("HI6")
h �
r�M%:e$=�a("I")
|�-2:e$=�a("HI")
�:�z%>=218�q%!36<>-1�
�$ș262388,1,d%,q%!32,q%!36:Ȏ!d%�
��0:�d%!4=-1�e$=�a("MH1")
��1:e$=�a("MH2")
��
��
��
�`q%!0=((20+�e$+1)+3)��3:q%!12=q%!8:q%!16=1283:$(q%+20)=e$:q%?(20+�e$)=0:ș262375,17,q%,q%!4:�
�:
�
��process
��cd%,nm%,dc%
�
�clear
�question$=�text(4)
�invalid �invalid:�
day%=�(question$):cd%=0
<�+1:�inc("ME")question$+=" "+�text(5):day%=�(question$)
&�I,MYSELF,MY,I'M,I'LL,ME
0"�+1:�inc("NOW"):question$+=�$
:`�TIME,LATER,SOON,TOMORROW,TODAY,YESTERDAY,THIS MORNING,LUNCHTIME,THIS AFTERNOON,THIS EVENING
D�TONIGHT,STRAIGHT AWAY
N�NOW
Xwidth=450/�(question$)
b�nm%=1��(question$)
ldc%=�(�question$,nm%,1))
v�dc%>96dc%-=32
�cd%=cd%+dc%-70
�#�nm%>day%cd%+=14:�nm%�4=0cd%-=3
�0link%(nm%)=�(cd%/10)+1:�cd%>200link%(nm%)=16
��
�$�cd%<1answer$="Yes"�answer$="No"
��
�:
�
ݤinvalid
��invalid%,i%,check$
�invalid%=�
�i%=0
��+1
��
�check$
�check$,1)="~"�
check$=�check$,�(check$)-1)
 ,�question$," "+check$+" ")<>0invalid%=�
*�
4"�question$,check$+" ")=1i%+=1
>�
H�invalid%�check$="WILL"
R�i%=0:invalid%=�
\
=invalid%
fZ�MUST,HAVE,SHOULD,CAN,DO,ARE,~OR,IS,MAYBE,PERHAPS,AM,MAY,DOES,WONT,ISN'T,DON'T,DOESN'T
p	�WILL
z:
���reply(icon%,r$)
�!q%=f%:q%!4=�(icon%)
�ș&400CE,0,q%
�$(!(q%+28))=r$+�(0)
�/�icon%>=0ș&400D1,f%,q%!8,q%!12,q%!16,q%!20
��
�:
�ݤtext(icon%)
�
�p%,t$
�!q%=f%:q%!4=icon%
�ș&400CE,0,q%
�p%=!(q%+28)
�	t$=""
	ȕ?p%<>13�?p%<>10�?p%<>0
	#�?p%>96t$+=�(?p%-32)�t$+=�(?p%)
		p%+=1
	$�
	.=t$
	8:
	B��lines(x%,n%,p%)
	La=1:b=2:i=(n%-2)/(p%+.01)
	Vs=x%/width
	`
�a=1�p%+1
	j4�R%+20+x%-width,S%-228+80*�(b+.5+.5*�(s))/(n%+3)
	t�i<0�R%+20+x%-width,S%-186
	~&�R%+20+x%,S%-228+80*�(a+.5)/(p%+3)
	�	b=b+i
	�	s=s+2
	��
	��
	�:
	�
��draw
	�
�<time%�
	�time%=time%+10
	�<position%+=1:�position%>�(question$)process%=�:�answer:�
	�V!q%=f%:q%!4=20+position%*width-width:q%!8=-228:q%!12=20+position%*width:q%!16=-148
	� ș"Wimp_UpdateWindow",,q%�H%
	�ȕH%

șQ%,8

E�lines(position%*width,�(link%(position%-1)),�(link%(position%)))
șZ%,,q%�H%
�
(�
2:
<��answer
F�answer$=""�
Pposition%-=1
Z�reply(-6,answer$)
d,!q%=f%:q%!4=6:q%!8=%100100:q%!12=%100100
nș"Wimp_SetIconState",,q%
x�
�:
���clear
�question$="":answer$=""
�process%=�
�!q%=f%:q%!4=3
��reply(-3," ")
��reply(-6," ")
�&!q%=f%:q%!4=6:q%!8=0:q%!12=%100100
�ș"Wimp_SetIconState",,q%
�position%=0:time%=�
��reply(3," ")
��
�:
ݤinc(end$)
�inc%,check$,n%

inc%=�
"�
,�check$
6n%=�question$,check$)
@
�n%>1�
Jc1%=��question$,n%-1,1)
T'c2%=��question$+" ",n%+�(check$),1)
^,�(c1%>64�c1%<91)��(c2%>64�c2%<91)inc%=�
h�
r�inc%�check$=end$
|	=inc%
�:
�
��invalid
��+1
��
��check$,reply$
�7�question$=check$�check$="END"�question$=check$+"?"
�8�check$="END"��question$,"WHY ")<>0reply$="Why not?"
��reply(3,reply$)
�question$=""
�process%=�
��
�d�HELLO,Hello,THANKYOU,That's okay,GOODBYE,Bye,BYE,Bye for now,WHY,Why not?,WHY NOT,I don't know!
��END,Invalid Question
�

00000000  0d 00 0a 11 f4 20 3e 20  21 52 75 6e 49 6d 61 67  |..... > !RunImag|
00000010  65 0d 00 14 0e f4 20 20  20 44 65 63 69 64 65 0d  |e.....   Decide.|
00000020  00 1e 17 f4 20 20 20 54  68 65 20 46 6c 79 69 6e  |....   The Flyin|
00000030  67 20 50 69 67 21 0d 00  28 1e f4 20 20 20 32 36  |g Pig!..(..   26|
00000040  2f 37 2f 31 39 39 34 20  56 65 72 73 69 6f 6e 20  |/7/1994 Version |
00000050  31 2e 30 30 0d 00 32 04  0d 00 3c 27 de 71 25 37  |1.00..2...<'.q%7|
00000060  36 38 2c 64 25 35 31 32  2c 61 61 25 2d 31 2c 6c  |68,d%512,aa%-1,l|
00000070  69 6e 6b 25 28 31 32 38  29 2c 65 25 32 35 36 0d  |ink%(128),e%256.|
00000080  00 46 36 21 71 25 3d 31  30 3a 71 25 21 34 3d 31  |.F6!q%=10:q%!4=1|
00000090  32 38 32 3a 71 25 21 38  3d 30 3a 4e 24 3d 22 3c  |282:q%!8=0:N$="<|
000000a0  44 65 63 69 64 65 24 44  69 72 3e 2e 4d 65 73 73  |Decide$Dir>.Mess|
000000b0  61 67 65 73 22 0d 00 50  3a c8 99 33 30 2c 36 2c  |ages"..P:..30,6,|
000000c0  2c 2c 31 37 2b a9 28 4e  24 29 b8 2c 2c 6b 25 3a  |,,17+.(N$).,,k%:|
000000d0  24 28 6b 25 2b 31 36 29  3d 4e 24 3a c8 99 32 36  |$(k%+16)=N$:..26|
000000e0  37 35 32 31 2c 6b 25 2c  6b 25 2b 31 36 2c 30 0d  |7521,k%,k%+16,0.|
000000f0  00 5a 58 6a 24 3d a4 61  28 22 54 73 6b 22 29 3a  |.ZXj$=.a("Tsk"):|
00000100  c8 99 32 36 32 33 33 36  2c 33 30 30 2c 31 32 36  |..262336,300,126|
00000110  33 37 34 37 34 31 32 2c  6a 24 2c 71 25 b8 7a 25  |3747412,j$,q%.z%|
00000120  2c 63 61 25 3a 65 3d 30  3a 70 3d 31 32 3a 71 3d  |,ca%:e=0:p=12:q=|
00000130  34 3a 72 3d 32 3a 66 3d  37 3a 67 3d 37 3a 73 3d  |4:r=2:f=7:g=7:s=|
00000140  31 33 3a 74 3d 31 32 0d  00 64 17 f2 73 65 74 3a  |13:t=12..d..set:|
00000150  e7 7a 25 3e 3d 33 31 30  de 49 25 31 32 38 0d 00  |.z%>=310.I%128..|
00000160  6e 26 c8 99 32 36 32 33  36 31 2c 2c 22 3c 44 65  |n&..262361,,"<De|
00000170  63 69 64 65 24 44 69 72  3e 2e 54 65 6d 70 6c 61  |cide$Dir>.Templa|
00000180  74 65 73 22 0d 00 78 70  67 25 3d a4 63 28 22 44  |tes"..xpg%=.c("D|
00000190  65 63 69 64 65 22 29 3a  de 4a 25 67 25 3a c8 99  |ecide"):.J%g%:..|
000001a0  32 36 32 33 36 33 2c 2c  71 25 2c 4a 25 2c 4a 25  |262363,,q%,J%,J%|
000001b0  2b 67 25 2c 2d 31 2c 22  44 65 63 69 64 65 22 2c  |+g%,-1,"Decide",|
000001c0  30 b8 2c 2c 2c 2c 2c 2c  46 25 3a e7 46 25 3d 30  |0.,,,,,,F%:.F%=0|
000001d0  8c c8 99 32 36 32 33 36  32 3a 85 31 2c a4 62 28  |...262362:.1,.b(|
000001e0  22 54 4e 46 22 2c 22 44  65 63 69 64 65 22 29 3a  |"TNF","Decide"):|
000001f0  f2 63 3a e0 0d 00 82 7a  c8 99 32 36 32 33 33 37  |.c:....z..262337|
00000200  2c 2c 71 25 b8 66 25 3a  67 25 3d a4 63 28 22 49  |,,q%.f%:g%=.c("I|
00000210  6e 66 6f 22 29 3a de 4b  25 67 25 3a c8 99 32 36  |nfo"):.K%g%:..26|
00000220  32 33 36 33 2c 2c 71 25  2c 4b 25 2c 4b 25 2b 67  |2363,,q%,K%,K%+g|
00000230  25 2c 2d 31 2c 22 49 6e  66 6f 22 2c 30 b8 2c 2c  |%,-1,"Info",0.,,|
00000240  2c 2c 2c 2c 46 25 3a e7  46 25 3d 30 8c c8 99 32  |,,,,F%:.F%=0...2|
00000250  36 32 33 36 32 3a 85 31  2c a4 62 28 22 54 4e 46  |62362:.1,.b("TNF|
00000260  22 2c 22 49 6e 66 6f 22  29 3a f2 63 3a e0 0d 00  |","Info"):.c:...|
00000270  8c 25 c8 99 32 36 32 33  33 37 2c 2c 71 25 b8 4d  |.%..262337,,q%.M|
00000280  25 3a c8 99 32 36 32 33  36 32 3a ee 85 f2 65 72  |%:..262362:...er|
00000290  72 6f 72 0d 00 96 15 64  61 25 3d a4 69 63 6f 6e  |ror....da%=.icon|
000002a0  3a c8 99 63 2c 2c 2d 31  0d 00 a0 0c f2 70 72 6f  |:..c,,-1.....pro|
000002b0  63 65 73 73 0d 00 aa 17  f2 72 65 70 6c 79 28 34  |cess.....reply(4|
000002c0  2c a4 61 28 22 49 53 34  22 29 29 0d 00 b4 17 f2  |,.a("IS4")).....|
000002d0  72 65 70 6c 79 28 35 2c  a4 61 28 22 49 53 35 22  |reply(5,.a("IS5"|
000002e0  29 29 0d 00 be 0c f2 70  72 6f 63 65 73 73 0d 00  |)).....process..|
000002f0  c8 05 3a 0d 00 d2 1b f5  3a c8 99 70 6f 6c 6c 25  |..:.....:..poll%|
00000300  2c 30 2c 71 25 b8 41 25  3a c8 8e 41 25 ca 0d 00  |,0,q%.A%:..A%...|
00000310  dc 15 c9 30 3a e7 70 72  6f 63 65 73 73 25 f2 64  |...0:.process%.d|
00000320  72 61 77 0d 00 e6 13 c9  31 3a f2 72 65 64 72 61  |raw.....1:.redra|
00000330  77 28 21 71 25 29 0d 00  f0 38 c9 32 3a c8 99 26  |w(!q%)...8.2:..&|
00000340  34 30 30 43 35 2c 2c 71  25 3a e7 71 25 21 30 3d  |400C5,,q%:.q%!0=|
00000350  66 25 52 25 3d 71 25 21  34 2d 71 25 21 32 30 3a  |f%R%=q%!4-q%!20:|
00000360  53 25 3d 71 25 21 31 36  2d 71 25 21 32 34 0d 00  |S%=q%!16-q%!24..|
00000370  fa 12 c9 33 3a c8 99 63  6c 6f 73 65 2c 2c 71 25  |...3:..close,,q%|
00000380  0d 01 04 2e c9 36 3a f2  6d 6f 75 73 65 28 21 71  |.....6:.mouse(!q|
00000390  25 2c 71 25 21 34 2c 71  25 21 38 2c 71 25 21 31  |%,q%!4,q%!8,q%!1|
000003a0  32 2c 71 25 21 31 36 2c  71 25 21 32 30 29 0d 01  |2,q%!16,q%!20)..|
000003b0  0e 16 c9 38 3a f2 6b 65  79 28 21 71 25 2c 71 25  |...8:.key(!q%,q%|
000003c0  21 32 34 29 0d 01 18 10  c9 39 3a f2 6d 65 6e 75  |!24).....9:.menu|
000003d0  28 71 25 29 0d 01 22 17  c9 31 37 2c 31 38 3a f2  |(q%).."..17,18:.|
000003e0  72 65 63 65 69 76 65 28  71 25 29 0d 01 2c 05 cb  |receive(q%)..,..|
000003f0  0d 01 36 06 fd a3 0d 01  40 05 3a 0d 01 4a 1a dd  |..6.....@.:..J..|
00000400  f2 72 65 63 65 69 76 65  28 71 25 29 3a c8 8e 71  |.receive(q%):..q|
00000410  25 21 31 36 ca 0d 01 54  0d c9 30 3a f2 65 6e 64  |%!16...T..0:.end|
00000420  3a e0 0d 01 5e 0f c9 31  32 38 32 3a f2 68 65 6c  |:...^..1282:.hel|
00000430  70 0d 01 68 05 cb 0d 01  72 05 e1 0d 01 7c 05 3a  |p..h....r....|.:|
00000440  0d 01 86 2c dd a4 63 28  6f 24 29 3a ea 4e 25 3a  |...,..c(o$):.N%:|
00000450  c8 99 32 36 32 33 36 33  2c 2c 30 2c 2c 2c 2c 6f  |..262363,,0,,,,o|
00000460  24 2c 30 b8 2c 2c 4e 25  3a 3d 4e 25 0d 01 90 05  |$,0.,,N%:=N%....|
00000470  3a 0d 01 9a 1e dd f2 6d  6f 75 73 65 28 44 25 2c  |:......mouse(D%,|
00000480  4f 25 2c 62 25 2c 61 25  2c 77 25 2c 56 25 29 0d  |O%,b%,a%,w%,V%).|
00000490  01 a4 0c e7 28 62 25 80  32 29 8c 0d 01 ae 09 c8  |....(b%.2)......|
000004a0  8e 61 25 ca 0d 01 b8 25  c9 2d 32 3a f2 63 6d 65  |.a%....%.-2:.cme|
000004b0  6e 75 28 31 30 31 2c a4  61 28 22 4d 31 22 29 2c  |nu(101,.a("M1"),|
000004c0  a4 61 28 22 4d 32 22 29  29 0d 01 c2 05 cb 0d 01  |.a("M2")).......|
000004d0  cc 05 cd 0d 01 d6 0c e7  28 62 25 80 35 29 8c 0d  |........(b%.5)..|
000004e0  01 e0 16 21 71 25 3d 66  25 3a c8 99 77 69 6e 66  |...!q%=f%:..winf|
000004f0  6f 2c 2c 71 25 0d 01 ea  09 c8 8e 61 25 ca 0d 01  |o,,q%......a%...|
00000500  f4 07 c9 66 25 0d 01 fe  09 c8 8e 77 25 ca 0d 02  |...f%......w%...|
00000510  08 0f c9 32 3a f2 70 72  6f 63 65 73 73 0d 02 12  |...2:.process...|
00000520  1b 7f 3a c8 99 26 34 30  30 44 32 2c 66 25 2c 34  |..:..&400D2,f%,4|
00000530  2c 30 2c 30 2c 2c 2d 31  0d 02 1c 05 cb 0d 02 26  |,0,0,,-1.......&|
00000540  1d c9 2d 32 3a 71 25 21  32 38 3d 2d 31 3a c8 99  |..-2:q%!28=-1:..|
00000550  26 34 30 30 43 35 2c 2c  71 25 0d 02 30 20 52 25  |&400C5,,q%..0 R%|
00000560  3d 71 25 21 34 2d 71 25  21 32 30 3a 53 25 3d 71  |=q%!4-q%!20:S%=q|
00000570  25 21 31 36 2d 71 25 21  32 34 0d 02 3a 19 c8 99  |%!16-q%!24..:...|
00000580  32 36 32 33 35 34 2c 66  25 2c 34 2c 30 2c 30 2c  |262354,f%,4,0,0,|
00000590  2c 2d 31 0d 02 44 05 cb  0d 02 4e 05 cd 0d 02 58  |,-1..D....N....X|
000005a0  05 e1 0d 02 62 05 3a 0d  02 6c 10 dd f2 6b 65 79  |....b.:..l...key|
000005b0  28 68 25 2c 73 25 29 0d  02 76 09 c8 8e 73 25 ca  |(h%,s%)..v...s%.|
000005c0  0d 02 80 13 c9 31 33 2c  36 31 3a f2 70 72 6f 63  |.....13,61:.proc|
000005d0  65 73 73 0d 02 8a 41 c9  26 31 38 45 2c 26 31 38  |ess...A.&18E,&18|
000005e0  46 3a c8 99 26 34 30 30  44 33 2c 2c 71 25 3a c8  |F:..&400D3,,q%:.|
000005f0  99 26 34 30 30 44 32 2c  21 71 25 2c 39 2d 71 25  |.&400D2,!q%,9-q%|
00000600  21 34 2c 71 25 21 31 38  2c 71 25 21 31 32 2c 2d  |!4,q%!18,q%!12,-|
00000610  31 2c 2d 31 0d 02 94 11  7f 3a c8 99 32 36 32 33  |1,-1.....:..2623|
00000620  36 34 2c 73 25 0d 02 9e  05 cb 0d 02 a8 05 e1 0d  |64,s%...........|
00000630  02 b2 05 3a 0d 02 bc 11  dd f2 65 6e 64 3a e7 6b  |...:......end:.k|
00000640  25 3c 3e 30 8c 0d 02 c6  1a c8 99 32 36 37 35 32  |%<>0.......26752|
00000650  34 2c 6b 25 3a c8 99 33  30 2c 37 2c 2c 6b 25 0d  |4,k%:..30,7,,k%.|
00000660  02 d0 05 cd 0d 02 da 0e  c8 99 32 36 32 33 36 35  |..........262365|
00000670  3a e1 0d 02 e4 05 3a 0d  02 ee 4f dd f2 63 6d 65  |:.....:...O..cme|
00000680  6e 75 28 61 25 2c 6d 24  2c 66 24 29 3a ea 6d 25  |nu(a%,m$,f$):.m%|
00000690  2c 50 25 2c 78 25 3a 78  25 3d 30 3a 57 25 3d 61  |,P%,x%:x%=0:W%=a|
000006a0  25 3a 63 25 3d 64 25 3a  69 25 3d 30 3a 63 25 21  |%:c%=d%:i%=0:c%!|
000006b0  32 30 3d 34 30 3a e7 7a  25 3c 33 31 30 84 a9 66  |20=40:.z%<310..f|
000006c0  24 3c 3d 31 32 8c 0d 02  f8 0f 24 63 25 3d c0 66  |$<=12.....$c%=.f|
000006d0  24 2c 31 32 29 0d 03 02  1c cc 3a 24 49 25 3d 66  |$,12).....:$I%=f|
000006e0  24 3a 63 25 21 30 3d 49  25 3a 78 25 3d 31 3c 3c  |$:c%!0=I%:x%=1<<|
000006f0  38 0d 03 0c 05 cd 0d 03  16 05 cd 0d 03 20 3d 63  |8............ =c|
00000700  25 3f 31 32 3d 67 3a 63  25 3f 31 33 3d 32 3a 63  |%?12=g:c%?13=2:c|
00000710  25 3f 31 34 3d 66 3a 63  25 3f 31 35 3d 65 3a 63  |%?14=f:c%?15=e:c|
00000720  25 21 32 34 3d 30 3a 50  25 3d 63 25 3a 63 25 2b  |%!24=0:P%=c%:c%+|
00000730  3d 32 38 3a 6d 25 3d 30  0d 03 2a 05 f5 0d 03 34  |=28:m%=0..*....4|
00000740  2f 47 25 3d 69 25 2b 31  3a 69 25 3d a7 6d 24 2b  |/G%=i%+1:i%=.m$+|
00000750  22 2c 22 2c 22 2c 22 2c  47 25 29 3a 67 24 3d c1  |",",",",G%):g$=.|
00000760  6d 24 2c 47 25 2c 69 25  2d 47 25 29 0d 03 3e 0c  |m$,G%,i%-G%)..>.|
00000770  e7 a9 67 24 3e 6d 25 8c  0d 03 48 17 6d 25 3d a9  |..g$>m%...H.m%=.|
00000780  67 24 3a e7 c0 67 24 2c  31 29 3d 22 3e 22 8c 0d  |g$:..g$,1)=">"..|
00000790  03 52 09 6d 25 2d 3d 31  0d 03 5c 05 cd 0d 03 66  |.R.m%-=1..\....f|
000007a0  05 cd 0d 03 70 15 21 63  25 3d 78 25 3a e7 78 25  |....p.!c%=x%:.x%|
000007b0  3e 30 8c 78 25 3d 30 0d  03 7a 1a f2 7a 28 67 24  |>0.x%=0..z..z(g$|
000007c0  29 3a fd 67 24 3d 22 22  3a e7 7a 25 3c 33 31 30  |):.g$="":.z%<310|
000007d0  8c 0d 03 84 13 e7 6d 25  3c a9 28 c0 66 24 2c 31  |......m%<.(.f$,1|
000007e0  32 29 29 8c 0d 03 8e 0e  6d 25 3d a9 28 c0 66 24  |2)).....m%=.(.f$|
000007f0  29 29 0d 03 98 05 cd 0d  03 a2 0e cc 3a e7 6d 25  |))..........:.m%|
00000800  3c a9 66 24 8c 0d 03 ac  0a 6d 25 3d a9 66 24 0d  |<.f$.....m%=.f$.|
00000810  03 b6 05 cd 0d 03 c0 05  cd 0d 03 ca 3b 50 25 21  |............;P%!|
00000820  31 36 3d 28 6d 25 2b 31  29 2a 31 36 3a 63 25 21  |16=(m%+1)*16:c%!|
00000830  2d 32 34 3d 28 63 25 21  2d 32 34 29 84 31 32 38  |-24=(c%!-24).128|
00000840  3a c8 99 68 2c 2c 64 25  2c 44 25 2d 36 34 2c 39  |:..h,,d%,D%-64,9|
00000850  36 2b 38 30 0d 03 d4 05  e1 0d 03 de 05 3a 0d 03  |6+80.........:..|
00000860  e8 1a dd f2 7a 28 68 24  29 3a ea 67 25 2c 74 24  |....z(h$):.g%,t$|
00000870  3a e7 68 24 3d 22 22 e1  0d 03 f2 1e e7 c0 68 24  |:.h$="".......h$|
00000880  2c 31 29 3d 22 3e 22 63  25 21 34 3d 4d 25 8b 63  |,1)=">"c%!4=M%.c|
00000890  25 21 34 3d 2d 31 0d 03  fc 1f 63 25 21 38 3d 31  |%!4=-1....c%!8=1|
000008a0  31 37 34 34 30 35 34 35  3a e7 c0 68 24 2c 31 29  |17440545:..h$,1)|
000008b0  3d 22 3e 22 8c 0d 04 06  0d 74 24 3d c1 68 24 2c  |=">".....t$=.h$,|
000008c0  32 29 0d 04 10 0b cc 3a  74 24 3d 68 24 0d 04 1a  |2).....:t$=h$...|
000008d0  05 cd 0d 04 24 0c e7 a9  74 24 3e 31 32 8c 0d 04  |....$...t$>12...|
000008e0  2e 3f 63 25 21 38 3d 63  25 21 38 84 32 35 36 3a  |.?c%!8=c%!8.256:|
000008f0  de 67 25 a9 74 24 2b 31  3a 24 67 25 3d 74 24 3a  |.g%.t$+1:$g%=t$:|
00000900  63 25 21 31 32 3d 67 25  3a 63 25 21 31 36 3d 2d  |c%!12=g%:c%!16=-|
00000910  31 3a 63 25 21 32 30 3d  a9 74 24 2b 31 0d 04 38  |1:c%!20=.t$+1..8|
00000920  11 cc 3a 24 28 63 25 2b  31 32 29 3d 74 24 0d 04  |..:$(c%+12)=t$..|
00000930  42 05 cd 0d 04 4c 0c 63  25 2b 3d 32 34 3a e1 0d  |B....L.c%+=24:..|
00000940  04 56 05 3a 0d 04 60 33  dd f2 6d 65 6e 75 28 58  |.V.:..`3..menu(X|
00000950  25 29 3a c8 99 6d 69 2c  2c 64 25 2c 58 25 2c c4  |%):..mi,,d%,X%,.|
00000960  32 30 30 2c 22 20 22 29  b8 2c 2c 2c 61 24 3a e7  |200," ").,,,a$:.|
00000970  61 24 3d 22 22 8c e1 0d  04 6a 09 c8 8e 57 25 ca  |a$=""....j...W%.|
00000980  0d 04 74 1a c9 31 30 31  3a e7 61 24 3d a4 61 28  |..t..101:.a$=.a(|
00000990  22 51 22 29 f2 65 6e 64  3a e0 0d 04 7e 05 cb 0d  |"Q").end:...~...|
000009a0  04 88 36 c8 99 32 36 32  33 35 31 2c 2c 71 25 3a  |..6..262351,,q%:|
000009b0  e7 71 25 3f 38 80 31 8c  f2 63 6d 65 6e 75 28 31  |.q%?8.1..cmenu(1|
000009c0  30 31 2c a4 61 28 22 4d  31 22 29 2c a4 61 28 22  |01,.a("M1"),.a("|
000009d0  4d 32 22 29 29 0d 04 92  05 e1 0d 04 9c 05 3a 0d  |M2")).........:.|
000009e0  04 a6 10 dd f2 72 65 64  72 61 77 28 61 25 29 0d  |.....redraw(a%).|
000009f0  04 b0 0b e7 61 25 3d 66  25 8c 0d 04 ba 15 21 71  |....a%=f%.....!q|
00000a00  25 3d 61 25 3a c8 99 6d  2c 2c 71 25 b8 48 25 0d  |%=a%:..m,,q%.H%.|
00000a10  04 c4 08 c8 95 48 25 0d  04 ce 23 e7 ac 28 71 25  |.....H%...#..(q%|
00000a20  21 33 32 2d 71 25 21 38  3e 38 38 84 71 25 21 34  |!32-q%!8>88.q%!4|
00000a30  30 2d 71 25 21 38 3c 38  29 8c 0d 04 d8 0a c8 99  |0-q%!8<8).......|
00000a40  51 25 2c 38 0d 04 e2 38  e3 6e 25 3d 28 71 25 21  |Q%,8...8.n%=(q%!|
00000a50  32 38 2d 71 25 21 34 2d  31 36 29 2f 77 69 64 74  |28-q%!4-16)/widt|
00000a60  68 2d 31 20 b8 28 71 25  21 33 36 2d 71 25 21 34  |h-1 .(q%!36-q%!4|
00000a70  2d 31 36 29 2f 77 69 64  74 68 2b 31 0d 04 ec 43  |-16)/width+1...C|
00000a80  e7 6e 25 3e 30 80 6e 25  3c 3d 70 6f 73 69 74 69  |.n%>0.n%<=positi|
00000a90  6f 6e 25 f2 6c 69 6e 65  73 28 6e 25 2a 77 69 64  |on%.lines(n%*wid|
00000aa0  74 68 2c 94 28 6c 69 6e  6b 25 28 6e 25 2d 31 29  |th,.(link%(n%-1)|
00000ab0  29 2c 94 28 6c 69 6e 6b  25 28 6e 25 29 29 29 0d  |),.(link%(n%))).|
00000ac0  04 f6 05 ed 0d 05 00 05  cd 0d 05 0a 0f c8 99 5a  |...............Z|
00000ad0  25 2c 2c 71 25 b8 48 25  0d 05 14 05 ce 0d 05 1e  |%,,q%.H%........|
00000ae0  05 cd 0d 05 28 05 e1 0d  05 32 05 3a 0d 05 3c 86  |....(....2.:..<.|
00000af0  dd f2 73 65 74 3a 61 3d  28 31 3c 3c 31 38 29 2b  |..set:a=(1<<18)+|
00000b00  28 33 3c 3c 36 29 3a 63  6c 6f 73 65 3d 61 2b 36  |(3<<6):close=a+6|
00000b10  3a 70 6f 6c 6c 25 3d 61  2b 37 3a 6d 3d 61 2b 38  |:poll%=a+7:m=a+8|
00000b20  3a 6c 3d 61 2b 39 3a 5a  25 3d 61 2b 31 30 3a 77  |:l=a+9:Z%=a+10:w|
00000b30  69 6e 66 6f 3d 61 2b 31  31 3a 6f 3d 61 2b 31 35  |info=a+11:o=a+15|
00000b40  3a 63 3d 61 2b 31 36 3a  68 3d 61 2b 32 30 3a 6d  |:c=a+16:h=a+20:m|
00000b50  69 3d 61 2b 32 31 3a c8  99 35 37 2c 2c 22 57 69  |i=a+21:..57,,"Wi|
00000b60  6d 70 5f 53 65 74 43 6f  6c 6f 75 72 22 b8 51 25  |mp_SetColour".Q%|
00000b70  3a e1 0d 05 46 05 3a 0d  05 50 19 dd f2 65 72 72  |:...F.:..P...err|
00000b80  6f 72 3a ea 85 3a ee 85  85 45 58 54 31 2c f6 24  |or:..:...EXT1,.$|
00000b90  0d 05 5a 50 c8 99 26 34  30 30 44 30 2c 2c 2d 31  |..ZP..&400D0,,-1|
00000ba0  3a 21 64 25 3d 9f 3a 24  28 64 25 2b 34 29 3d a4  |:!d%=.:$(d%+4)=.|
00000bb0  66 28 22 46 49 45 22 2c  f6 24 2c c3 9e 29 2b bd  |f("FIE",.$,..)+.|
00000bc0  30 3a c8 99 32 36 32 33  36 37 2c 64 25 2c 31 2c  |0:..262367,d%,1,|
00000bd0  a4 61 28 22 54 73 6b 22  29 3a f2 65 6e 64 3a e0  |.a("Tsk"):.end:.|
00000be0  0d 05 64 05 e1 0d 05 6e  05 3a 0d 05 78 8c dd a4  |..d....n.:..x...|
00000bf0  69 63 6f 6e 3a 21 71 25  3d 2d 31 3a 71 25 21 34  |icon:!q%=-1:q%!4|
00000c00  3d 30 3a 71 25 21 38 3d  30 3a 71 25 21 31 32 3d  |=0:q%!8=0:q%!12=|
00000c10  36 33 3a 71 25 21 31 36  3d 36 38 3a 71 25 21 32  |63:q%!16=68:q%!2|
00000c20  30 3d 38 34 35 30 3a 6b  24 3d a4 67 28 22 53 4e  |0=8450:k$=.g("SN|
00000c30  22 29 3a de 71 25 21 32  34 28 a9 6b 24 2b 31 29  |"):.q%!24(.k$+1)|
00000c40  3a 24 28 71 25 21 32 34  29 3d 6b 24 3a 71 25 21  |:$(q%!24)=k$:q%!|
00000c50  32 38 3d 31 3a 71 25 21  33 32 3d a9 6b 24 2b 31  |28=1:q%!32=.k$+1|
00000c60  3a c8 99 32 36 32 33 33  38 2c 2c 71 25 b8 68 61  |:..262338,,q%.ha|
00000c70  25 3a 3d 68 61 25 0d 05  82 05 3a 0d 05 8c 4d dd  |%:=ha%....:...M.|
00000c80  a4 67 28 54 24 29 3a ea  46 25 2c 4c 25 3a c8 99  |.g(T$):.F%,L%:..|
00000c90  32 36 37 35 32 32 2c 6b  25 2c 54 24 2c 65 25 2c  |267522,k%,T$,e%,|
00000ca0  32 35 36 2c 22 22 2c 22  22 b8 2c 2c 2c 4c 25 3b  |256,"","".,,,L%;|
00000cb0  46 25 3a e7 46 25 80 31  8c 24 65 25 3d 54 24 8b  |F%:.F%.1.$e%=T$.|
00000cc0  65 25 3f 4c 25 3d 31 33  0d 05 96 08 3d 24 65 25  |e%?L%=13....=$e%|
00000cd0  0d 05 a0 05 3a 0d 05 aa  46 dd a4 61 28 54 24 29  |....:...F..a(T$)|
00000ce0  3a ea 46 25 2c 4c 25 2c  79 25 3a c8 99 33 39 38  |:.F%,L%,y%:..398|
00000cf0  35 39 34 2c 6b 25 2c 54  24 2c 65 25 2c 32 35 36  |594,k%,T$,e%,256|
00000d00  2c 22 22 2c 30 2c 30 2c  30 b8 79 25 2c 2c 2c 4c  |,"",0,0,0.y%,,,L|
00000d10  25 3b 46 25 3a e7 46 25  80 31 8c 0d 05 b4 1b c8  |%;F%:.F%.1......|
00000d20  99 32 36 32 33 36 37 2c  79 25 2c 31 2c 6a 24 3a  |.262367,y%,1,j$:|
00000d30  24 65 25 3d 54 24 0d 05  be 0e cc 3a 65 25 3f 4c  |$e%=T$.....:e%?L|
00000d40  25 3d 31 33 0d 05 c8 05  cd 0d 05 d2 08 3d 24 65  |%=13.........=$e|
00000d50  25 0d 05 dc 05 3a 0d 05  e6 4d dd a4 66 28 54 24  |%....:...M..f(T$|
00000d60  2c 53 24 2c 70 24 29 3a  ea 46 25 2c 4c 25 2c 79  |,S$,p$):.F%,L%,y|
00000d70  25 3a c8 99 33 39 38 35  39 34 2c 6b 25 2c 54 24  |%:..398594,k%,T$|
00000d80  2c 65 25 2c 32 35 36 2c  53 24 2c 70 24 2c 30 2c  |,e%,256,S$,p$,0,|
00000d90  30 b8 79 25 2c 2c 2c 4c  25 3b 46 25 3a e7 46 25  |0.y%,,,L%;F%:.F%|
00000da0  80 31 8c 0d 05 f0 1b c8  99 32 36 32 33 36 37 2c  |.1.......262367,|
00000db0  79 25 2c 31 2c 6a 24 3a  24 65 25 3d 54 24 0d 05  |y%,1,j$:$e%=T$..|
00000dc0  fa 0e cc 3a 65 25 3f 4c  25 3d 31 33 0d 06 04 05  |...:e%?L%=13....|
00000dd0  cd 0d 06 0e 08 3d 24 65  25 0d 06 18 05 3a 0d 06  |.....=$e%....:..|
00000de0  22 19 dd f2 68 65 6c 70  3a 65 24 3d 22 22 3a c8  |"...help:e$="":.|
00000df0  8e 71 25 21 33 32 ca 0d  06 2c 1c c9 66 25 3a 65  |.q%!32...,..f%:e|
00000e00  24 3d a4 61 28 22 48 43  22 29 3a c8 8e 71 25 21  |$=.a("HC"):..q%!|
00000e10  33 36 ca 0d 06 36 15 20  c9 32 3a 65 24 2b 3d a4  |36...6. .2:e$+=.|
00000e20  61 28 22 48 49 32 22 29  0d 06 40 15 20 c9 33 3a  |a("HI2")..@. .3:|
00000e30  65 24 2b 3d a4 61 28 22  48 49 33 22 29 0d 06 4a  |e$+=.a("HI3")..J|
00000e40  15 20 c9 34 3a 65 24 2b  3d a4 61 28 22 48 49 34  |. .4:e$+=.a("HI4|
00000e50  22 29 0d 06 54 15 20 c9  35 3a 65 24 2b 3d a4 61  |")..T. .5:e$+=.a|
00000e60  28 22 48 49 35 22 29 0d  06 5e 15 20 c9 36 3a 65  |("HI5")..^. .6:e|
00000e70  24 2b 3d a4 61 28 22 48  49 36 22 29 0d 06 68 06  |$+=.a("HI6")..h.|
00000e80  20 cb 0d 06 72 12 c9 4d  25 3a 65 24 3d a4 61 28  | ...r..M%:e$=.a(|
00000e90  22 49 22 29 0d 06 7c 13  c9 2d 32 3a 65 24 3d a4  |"I")..|..-2:e$=.|
00000ea0  61 28 22 48 49 22 29 0d  06 86 19 7f 3a e7 7a 25  |a("HI").....:.z%|
00000eb0  3e 3d 32 31 38 80 71 25  21 33 36 3c 3e 2d 31 8c  |>=218.q%!36<>-1.|
00000ec0  0d 06 90 24 c8 99 32 36  32 33 38 38 2c 31 2c 64  |...$..262388,1,d|
00000ed0  25 2c 71 25 21 33 32 2c  71 25 21 33 36 3a c8 8e  |%,q%!32,q%!36:..|
00000ee0  21 64 25 ca 0d 06 9a 1c  c9 30 3a e7 64 25 21 34  |!d%......0:.d%!4|
00000ef0  3d 2d 31 8c 65 24 3d a4  61 28 22 4d 48 31 22 29  |=-1.e$=.a("MH1")|
00000f00  0d 06 a4 13 c9 31 3a 65  24 3d a4 61 28 22 4d 48  |.....1:e$=.a("MH|
00000f10  32 22 29 0d 06 ae 05 cb  0d 06 b8 05 cd 0d 06 c2  |2").............|
00000f20  05 cb 0d 06 cc 60 71 25  21 30 3d 28 28 32 30 2b  |.....`q%!0=((20+|
00000f30  a9 65 24 2b 31 29 2b 33  29 80 ac 33 3a 71 25 21  |.e$+1)+3)..3:q%!|
00000f40  31 32 3d 71 25 21 38 3a  71 25 21 31 36 3d 31 32  |12=q%!8:q%!16=12|
00000f50  38 33 3a 24 28 71 25 2b  32 30 29 3d 65 24 3a 71  |83:$(q%+20)=e$:q|
00000f60  25 3f 28 32 30 2b a9 65  24 29 3d 30 3a c8 99 32  |%?(20+.e$)=0:..2|
00000f70  36 32 33 37 35 2c 31 37  2c 71 25 2c 71 25 21 34  |62375,17,q%,q%!4|
00000f80  3a e1 0d 06 d6 05 3a 0d  06 e0 0d dd f2 70 72 6f  |:.....:......pro|
00000f90  63 65 73 73 0d 06 ea 10  ea 63 64 25 2c 6e 6d 25  |cess.....cd%,nm%|
00000fa0  2c 64 63 25 0d 06 f4 0a  f2 63 6c 65 61 72 0d 06  |,dc%.....clear..|
00000fb0  fe 16 71 75 65 73 74 69  6f 6e 24 3d a4 74 65 78  |..question$=.tex|
00000fc0  74 28 34 29 0d 07 08 18  e7 a4 69 6e 76 61 6c 69  |t(4)......invali|
00000fd0  64 20 f2 69 6e 76 61 6c  69 64 3a e1 0d 07 12 1b  |d .invalid:.....|
00000fe0  64 61 79 25 3d a9 28 71  75 65 73 74 69 6f 6e 24  |day%=.(question$|
00000ff0  29 3a 63 64 25 3d 30 0d  07 1c 3c f7 2b 31 3a e7  |):cd%=0...<.+1:.|
00001000  a4 69 6e 63 28 22 4d 45  22 29 71 75 65 73 74 69  |.inc("ME")questi|
00001010  6f 6e 24 2b 3d 22 20 22  2b a4 74 65 78 74 28 35  |on$+=" "+.text(5|
00001020  29 3a 64 61 79 25 3d a9  28 71 75 65 73 74 69 6f  |):day%=.(questio|
00001030  6e 24 29 0d 07 26 1c dc  49 2c 4d 59 53 45 4c 46  |n$)..&..I,MYSELF|
00001040  2c 4d 59 2c 49 27 4d 2c  49 27 4c 4c 2c 4d 45 0d  |,MY,I'M,I'LL,ME.|
00001050  07 30 22 f7 2b 31 3a e7  a4 69 6e 63 28 22 4e 4f  |.0".+1:..inc("NO|
00001060  57 22 29 3a 71 75 65 73  74 69 6f 6e 24 2b 3d 91  |W"):question$+=.|
00001070  24 0d 07 3a 60 dc 54 49  4d 45 2c 4c 41 54 45 52  |$..:`.TIME,LATER|
00001080  2c 53 4f 4f 4e 2c 54 4f  4d 4f 52 52 4f 57 2c 54  |,SOON,TOMORROW,T|
00001090  4f 44 41 59 2c 59 45 53  54 45 52 44 41 59 2c 54  |ODAY,YESTERDAY,T|
000010a0  48 49 53 20 4d 4f 52 4e  49 4e 47 2c 4c 55 4e 43  |HIS MORNING,LUNC|
000010b0  48 54 49 4d 45 2c 54 48  49 53 20 41 46 54 45 52  |HTIME,THIS AFTER|
000010c0  4e 4f 4f 4e 2c 54 48 49  53 20 45 56 45 4e 49 4e  |NOON,THIS EVENIN|
000010d0  47 0d 07 44 1a dc 54 4f  4e 49 47 48 54 2c 53 54  |G..D..TONIGHT,ST|
000010e0  52 41 49 47 48 54 20 41  57 41 59 0d 07 4e 08 dc  |RAIGHT AWAY..N..|
000010f0  4e 4f 57 0d 07 58 1a 77  69 64 74 68 3d 34 35 30  |NOW..X.width=450|
00001100  2f a9 28 71 75 65 73 74  69 6f 6e 24 29 0d 07 62  |/.(question$)..b|
00001110  17 e3 6e 6d 25 3d 31 b8  a9 28 71 75 65 73 74 69  |..nm%=1..(questi|
00001120  6f 6e 24 29 0d 07 6c 1c  64 63 25 3d 97 28 c1 71  |on$)..l.dc%=.(.q|
00001130  75 65 73 74 69 6f 6e 24  2c 6e 6d 25 2c 31 29 29  |uestion$,nm%,1))|
00001140  0d 07 76 12 e7 64 63 25  3e 39 36 64 63 25 2d 3d  |..v..dc%>96dc%-=|
00001150  33 32 0d 07 80 12 63 64  25 3d 63 64 25 2b 64 63  |32....cd%=cd%+dc|
00001160  25 2d 37 30 0d 07 8a 23  e7 6e 6d 25 3e 64 61 79  |%-70...#.nm%>day|
00001170  25 63 64 25 2b 3d 31 34  3a e7 6e 6d 25 83 34 3d  |%cd%+=14:.nm%.4=|
00001180  30 63 64 25 2d 3d 33 0d  07 94 30 6c 69 6e 6b 25  |0cd%-=3...0link%|
00001190  28 6e 6d 25 29 3d 94 28  63 64 25 2f 31 30 29 2b  |(nm%)=.(cd%/10)+|
000011a0  31 3a e7 63 64 25 3e 32  30 30 6c 69 6e 6b 25 28  |1:.cd%>200link%(|
000011b0  6e 6d 25 29 3d 31 36 0d  07 9e 05 ed 0d 07 a8 24  |nm%)=16........$|
000011c0  e7 63 64 25 3c 31 61 6e  73 77 65 72 24 3d 22 59  |.cd%<1answer$="Y|
000011d0  65 73 22 8b 61 6e 73 77  65 72 24 3d 22 4e 6f 22  |es".answer$="No"|
000011e0  0d 07 b2 05 e1 0d 07 bc  05 3a 0d 07 c6 0d dd a4  |.........:......|
000011f0  69 6e 76 61 6c 69 64 0d  07 d0 17 ea 69 6e 76 61  |invalid.....inva|
00001200  6c 69 64 25 2c 69 25 2c  63 68 65 63 6b 24 0d 07  |lid%,i%,check$..|
00001210  da 0e 69 6e 76 61 6c 69  64 25 3d a3 0d 07 e4 08  |..invalid%=.....|
00001220  69 25 3d 30 0d 07 ee 07  f7 2b 31 0d 07 f8 05 f5  |i%=0.....+1.....|
00001230  0d 08 02 0b f3 63 68 65  63 6b 24 0d 08 0c 14 e7  |.....check$.....|
00001240  c0 63 68 65 63 6b 24 2c  31 29 3d 22 7e 22 8c 0d  |.check$,1)="~"..|
00001250  08 16 1f 63 68 65 63 6b  24 3d c2 63 68 65 63 6b  |...check$=.check|
00001260  24 2c a9 28 63 68 65 63  6b 24 29 2d 31 29 0d 08  |$,.(check$)-1)..|
00001270  20 2c e7 a7 71 75 65 73  74 69 6f 6e 24 2c 22 20  | ,..question$," |
00001280  22 2b 63 68 65 63 6b 24  2b 22 20 22 29 3c 3e 30  |"+check$+" ")<>0|
00001290  69 6e 76 61 6c 69 64 25  3d b9 0d 08 2a 05 cc 0d  |invalid%=...*...|
000012a0  08 34 22 e7 a7 71 75 65  73 74 69 6f 6e 24 2c 63  |.4"..question$,c|
000012b0  68 65 63 6b 24 2b 22 20  22 29 3d 31 69 25 2b 3d  |heck$+" ")=1i%+=|
000012c0  31 0d 08 3e 05 cd 0d 08  48 1b fd 69 6e 76 61 6c  |1..>....H..inval|
000012d0  69 64 25 84 63 68 65 63  6b 24 3d 22 57 49 4c 4c  |id%.check$="WILL|
000012e0  22 0d 08 52 14 e7 69 25  3d 30 3a 69 6e 76 61 6c  |"..R..i%=0:inval|
000012f0  69 64 25 3d b9 0d 08 5c  0d 3d 69 6e 76 61 6c 69  |id%=...\.=invali|
00001300  64 25 0d 08 66 5a dc 4d  55 53 54 2c 48 41 56 45  |d%..fZ.MUST,HAVE|
00001310  2c 53 48 4f 55 4c 44 2c  43 41 4e 2c 44 4f 2c 41  |,SHOULD,CAN,DO,A|
00001320  52 45 2c 7e 4f 52 2c 49  53 2c 4d 41 59 42 45 2c  |RE,~OR,IS,MAYBE,|
00001330  50 45 52 48 41 50 53 2c  41 4d 2c 4d 41 59 2c 44  |PERHAPS,AM,MAY,D|
00001340  4f 45 53 2c 57 4f 4e 54  2c 49 53 4e 27 54 2c 44  |OES,WONT,ISN'T,D|
00001350  4f 4e 27 54 2c 44 4f 45  53 4e 27 54 0d 08 70 09  |ON'T,DOESN'T..p.|
00001360  dc 57 49 4c 4c 0d 08 7a  05 3a 0d 08 84 15 dd f2  |.WILL..z.:......|
00001370  72 65 70 6c 79 28 69 63  6f 6e 25 2c 72 24 29 0d  |reply(icon%,r$).|
00001380  08 8e 18 21 71 25 3d 66  25 3a 71 25 21 34 3d 94  |...!q%=f%:q%!4=.|
00001390  28 69 63 6f 6e 25 29 0d  08 98 11 c8 99 26 34 30  |(icon%)......&40|
000013a0  30 43 45 2c 30 2c 71 25  0d 08 a2 17 24 28 21 28  |0CE,0,q%....$(!(|
000013b0  71 25 2b 32 38 29 29 3d  72 24 2b bd 28 30 29 0d  |q%+28))=r$+.(0).|
000013c0  08 ac 2f e7 69 63 6f 6e  25 3e 3d 30 c8 99 26 34  |../.icon%>=0..&4|
000013d0  30 30 44 31 2c 66 25 2c  71 25 21 38 2c 71 25 21  |00D1,f%,q%!8,q%!|
000013e0  31 32 2c 71 25 21 31 36  2c 71 25 21 32 30 0d 08  |12,q%!16,q%!20..|
000013f0  b6 05 e1 0d 08 c0 05 3a  0d 08 ca 11 dd a4 74 65  |.......:......te|
00001400  78 74 28 69 63 6f 6e 25  29 0d 08 d4 0a ea 70 25  |xt(icon%).....p%|
00001410  2c 74 24 0d 08 de 15 21  71 25 3d 66 25 3a 71 25  |,t$....!q%=f%:q%|
00001420  21 34 3d 69 63 6f 6e 25  0d 08 e8 11 c8 99 26 34  |!4=icon%......&4|
00001430  30 30 43 45 2c 30 2c 71  25 0d 08 f2 0f 70 25 3d  |00CE,0,q%....p%=|
00001440  21 28 71 25 2b 32 38 29  0d 08 fc 09 74 24 3d 22  |!(q%+28)....t$="|
00001450  22 0d 09 06 1c c8 95 3f  70 25 3c 3e 31 33 80 3f  |"......?p%<>13.?|
00001460  70 25 3c 3e 31 30 80 3f  70 25 3c 3e 30 0d 09 10  |p%<>10.?p%<>0...|
00001470  23 e7 3f 70 25 3e 39 36  74 24 2b 3d bd 28 3f 70  |#.?p%>96t$+=.(?p|
00001480  25 2d 33 32 29 8b 74 24  2b 3d bd 28 3f 70 25 29  |%-32).t$+=.(?p%)|
00001490  0d 09 1a 09 70 25 2b 3d  31 0d 09 24 05 ce 0d 09  |....p%+=1..$....|
000014a0  2e 07 3d 74 24 0d 09 38  05 3a 0d 09 42 15 dd f2  |..=t$..8.:..B...|
000014b0  6c 69 6e 65 73 28 78 25  2c 6e 25 2c 70 25 29 0d  |lines(x%,n%,p%).|
000014c0  09 4c 1d 61 3d 31 3a 62  3d 32 3a 69 3d 28 6e 25  |.L.a=1:b=2:i=(n%|
000014d0  2d 32 29 2f 28 70 25 2b  2e 30 31 29 0d 09 56 0e  |-2)/(p%+.01)..V.|
000014e0  73 3d 78 25 2f 77 69 64  74 68 0d 09 60 0d e3 61  |s=x%/width..`..a|
000014f0  3d 31 b8 70 25 2b 31 0d  09 6a 34 ec 52 25 2b 32  |=1.p%+1..j4.R%+2|
00001500  30 2b 78 25 2d 77 69 64  74 68 2c 53 25 2d 32 32  |0+x%-width,S%-22|
00001510  38 2b 38 30 2a a8 28 62  2b 2e 35 2b 2e 35 2a b5  |8+80*.(b+.5+.5*.|
00001520  28 73 29 29 2f 28 6e 25  2b 33 29 0d 09 74 1e e7  |(s))/(n%+3)..t..|
00001530  69 3c 30 ec 52 25 2b 32  30 2b 78 25 2d 77 69 64  |i<0.R%+20+x%-wid|
00001540  74 68 2c 53 25 2d 31 38  36 0d 09 7e 26 df 52 25  |th,S%-186..~&.R%|
00001550  2b 32 30 2b 78 25 2c 53  25 2d 32 32 38 2b 38 30  |+20+x%,S%-228+80|
00001560  2a a8 28 61 2b 2e 35 29  2f 28 70 25 2b 33 29 0d  |*.(a+.5)/(p%+3).|
00001570  09 88 09 62 3d 62 2b 69  0d 09 92 09 73 3d 73 2b  |...b=b+i....s=s+|
00001580  32 0d 09 9c 05 ed 0d 09  a6 05 e1 0d 09 b0 05 3a  |2..............:|
00001590  0d 09 ba 0a dd f2 64 72  61 77 0d 09 c4 0d e7 91  |......draw......|
000015a0  3c 74 69 6d 65 25 e1 0d  09 ce 12 74 69 6d 65 25  |<time%.....time%|
000015b0  3d 74 69 6d 65 25 2b 31  30 0d 09 d8 3c 70 6f 73  |=time%+10...<pos|
000015c0  69 74 69 6f 6e 25 2b 3d  31 3a e7 70 6f 73 69 74  |ition%+=1:.posit|
000015d0  69 6f 6e 25 3e a9 28 71  75 65 73 74 69 6f 6e 24  |ion%>.(question$|
000015e0  29 70 72 6f 63 65 73 73  25 3d a3 3a f2 61 6e 73  |)process%=.:.ans|
000015f0  77 65 72 3a e1 0d 09 e2  56 21 71 25 3d 66 25 3a  |wer:....V!q%=f%:|
00001600  71 25 21 34 3d 32 30 2b  70 6f 73 69 74 69 6f 6e  |q%!4=20+position|
00001610  25 2a 77 69 64 74 68 2d  77 69 64 74 68 3a 71 25  |%*width-width:q%|
00001620  21 38 3d 2d 32 32 38 3a  71 25 21 31 32 3d 32 30  |!8=-228:q%!12=20|
00001630  2b 70 6f 73 69 74 69 6f  6e 25 2a 77 69 64 74 68  |+position%*width|
00001640  3a 71 25 21 31 36 3d 2d  31 34 38 0d 09 ec 20 c8  |:q%!16=-148... .|
00001650  99 22 57 69 6d 70 5f 55  70 64 61 74 65 57 69 6e  |."Wimp_UpdateWin|
00001660  64 6f 77 22 2c 2c 71 25  b8 48 25 0d 09 f6 08 c8  |dow",,q%.H%.....|
00001670  95 48 25 0d 0a 00 0a c8  99 51 25 2c 38 0d 0a 0a  |.H%......Q%,8...|
00001680  45 f2 6c 69 6e 65 73 28  70 6f 73 69 74 69 6f 6e  |E.lines(position|
00001690  25 2a 77 69 64 74 68 2c  94 28 6c 69 6e 6b 25 28  |%*width,.(link%(|
000016a0  70 6f 73 69 74 69 6f 6e  25 2d 31 29 29 2c 94 28  |position%-1)),.(|
000016b0  6c 69 6e 6b 25 28 70 6f  73 69 74 69 6f 6e 25 29  |link%(position%)|
000016c0  29 29 0d 0a 14 0f c8 99  5a 25 2c 2c 71 25 b8 48  |))......Z%,,q%.H|
000016d0  25 0d 0a 1e 05 ce 0d 0a  28 05 e1 0d 0a 32 05 3a  |%.......(....2.:|
000016e0  0d 0a 3c 0c dd f2 61 6e  73 77 65 72 0d 0a 46 10  |..<...answer..F.|
000016f0  e7 61 6e 73 77 65 72 24  3d 22 22 e1 0d 0a 50 10  |.answer$=""...P.|
00001700  70 6f 73 69 74 69 6f 6e  25 2d 3d 31 0d 0a 5a 16  |position%-=1..Z.|
00001710  f2 72 65 70 6c 79 28 2d  36 2c 61 6e 73 77 65 72  |.reply(-6,answer|
00001720  24 29 0d 0a 64 2c 21 71  25 3d 66 25 3a 71 25 21  |$)..d,!q%=f%:q%!|
00001730  34 3d 36 3a 71 25 21 38  3d 25 31 30 30 31 30 30  |4=6:q%!8=%100100|
00001740  3a 71 25 21 31 32 3d 25  31 30 30 31 30 30 0d 0a  |:q%!12=%100100..|
00001750  6e 1d c8 99 22 57 69 6d  70 5f 53 65 74 49 63 6f  |n..."Wimp_SetIco|
00001760  6e 53 74 61 74 65 22 2c  2c 71 25 0d 0a 78 05 e1  |nState",,q%..x..|
00001770  0d 0a 82 05 3a 0d 0a 8c  0b dd f2 63 6c 65 61 72  |....:......clear|
00001780  0d 0a 96 1b 71 75 65 73  74 69 6f 6e 24 3d 22 22  |....question$=""|
00001790  3a 61 6e 73 77 65 72 24  3d 22 22 0d 0a a0 0e 70  |:answer$=""....p|
000017a0  72 6f 63 65 73 73 25 3d  b9 0d 0a aa 11 21 71 25  |rocess%=.....!q%|
000017b0  3d 66 25 3a 71 25 21 34  3d 33 0d 0a b4 12 f2 72  |=f%:q%!4=3.....r|
000017c0  65 70 6c 79 28 2d 33 2c  22 20 22 29 0d 0a be 12  |eply(-3," ")....|
000017d0  f2 72 65 70 6c 79 28 2d  36 2c 22 20 22 29 0d 0a  |.reply(-6," ")..|
000017e0  c8 26 21 71 25 3d 66 25  3a 71 25 21 34 3d 36 3a  |.&!q%=f%:q%!4=6:|
000017f0  71 25 21 38 3d 30 3a 71  25 21 31 32 3d 25 31 30  |q%!8=0:q%!12=%10|
00001800  30 31 30 30 0d 0a d2 1d  c8 99 22 57 69 6d 70 5f  |0100......"Wimp_|
00001810  53 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 71  |SetIconState",,q|
00001820  25 0d 0a dc 17 70 6f 73  69 74 69 6f 6e 25 3d 30  |%....position%=0|
00001830  3a 74 69 6d 65 25 3d 91  0d 0a e6 11 f2 72 65 70  |:time%=......rep|
00001840  6c 79 28 33 2c 22 20 22  29 0d 0a f0 05 e1 0d 0a  |ly(3," ").......|
00001850  fa 05 3a 0d 0b 04 0f dd  a4 69 6e 63 28 65 6e 64  |..:......inc(end|
00001860  24 29 0d 0b 0e 13 ea 69  6e 63 25 2c 63 68 65 63  |$).....inc%,chec|
00001870  6b 24 2c 6e 25 0d 0b 18  0a 69 6e 63 25 3d a3 0d  |k$,n%....inc%=..|
00001880  0b 22 05 f5 0d 0b 2c 0b  f3 63 68 65 63 6b 24 0d  |."....,..check$.|
00001890  0b 36 19 6e 25 3d a7 71  75 65 73 74 69 6f 6e 24  |.6.n%=.question$|
000018a0  2c 63 68 65 63 6b 24 29  0d 0b 40 0a e7 6e 25 3e  |,check$)..@..n%>|
000018b0  31 8c 0d 0b 4a 1b 63 31  25 3d 97 c1 71 75 65 73  |1...J.c1%=..ques|
000018c0  74 69 6f 6e 24 2c 6e 25  2d 31 2c 31 29 0d 0b 54  |tion$,n%-1,1)..T|
000018d0  27 63 32 25 3d 97 c1 71  75 65 73 74 69 6f 6e 24  |'c2%=..question$|
000018e0  2b 22 20 22 2c 6e 25 2b  a9 28 63 68 65 63 6b 24  |+" ",n%+.(check$|
000018f0  29 2c 31 29 0d 0b 5e 2c  e7 ac 28 63 31 25 3e 36  |),1)..^,..(c1%>6|
00001900  34 80 63 31 25 3c 39 31  29 80 ac 28 63 32 25 3e  |4.c1%<91)..(c2%>|
00001910  36 34 80 63 32 25 3c 39  31 29 69 6e 63 25 3d b9  |64.c2%<91)inc%=.|
00001920  0d 0b 68 05 cd 0d 0b 72  15 fd 69 6e 63 25 84 63  |..h....r..inc%.c|
00001930  68 65 63 6b 24 3d 65 6e  64 24 0d 0b 7c 09 3d 69  |heck$=end$..|.=i|
00001940  6e 63 25 0d 0b 86 05 3a  0d 0b 90 0d dd f2 69 6e  |nc%....:......in|
00001950  76 61 6c 69 64 0d 0b 9a  07 f7 2b 31 0d 0b a4 05  |valid.....+1....|
00001960  f5 0d 0b ae 12 f3 63 68  65 63 6b 24 2c 72 65 70  |......check$,rep|
00001970  6c 79 24 0d 0b b8 37 fd  71 75 65 73 74 69 6f 6e  |ly$...7.question|
00001980  24 3d 63 68 65 63 6b 24  84 63 68 65 63 6b 24 3d  |$=check$.check$=|
00001990  22 45 4e 44 22 84 71 75  65 73 74 69 6f 6e 24 3d  |"END".question$=|
000019a0  63 68 65 63 6b 24 2b 22  3f 22 0d 0b c2 38 e7 63  |check$+"?"...8.c|
000019b0  68 65 63 6b 24 3d 22 45  4e 44 22 80 a7 71 75 65  |heck$="END"..que|
000019c0  73 74 69 6f 6e 24 2c 22  57 48 59 20 22 29 3c 3e  |stion$,"WHY ")<>|
000019d0  30 72 65 70 6c 79 24 3d  22 57 68 79 20 6e 6f 74  |0reply$="Why not|
000019e0  3f 22 0d 0b cc 14 f2 72  65 70 6c 79 28 33 2c 72  |?".....reply(3,r|
000019f0  65 70 6c 79 24 29 0d 0b  d6 10 71 75 65 73 74 69  |eply$)....questi|
00001a00  6f 6e 24 3d 22 22 0d 0b  e0 0e 70 72 6f 63 65 73  |on$=""....proces|
00001a10  73 25 3d a3 0d 0b ea 05  e1 0d 0b f4 64 dc 48 45  |s%=.........d.HE|
00001a20  4c 4c 4f 2c 48 65 6c 6c  6f 2c 54 48 41 4e 4b 59  |LLO,Hello,THANKY|
00001a30  4f 55 2c 54 68 61 74 27  73 20 6f 6b 61 79 2c 47  |OU,That's okay,G|
00001a40  4f 4f 44 42 59 45 2c 42  79 65 2c 42 59 45 2c 42  |OODBYE,Bye,BYE,B|
00001a50  79 65 20 66 6f 72 20 6e  6f 77 2c 57 48 59 2c 57  |ye for now,WHY,W|
00001a60  68 79 20 6e 6f 74 3f 2c  57 48 59 20 4e 4f 54 2c  |hy not?,WHY NOT,|
00001a70  49 20 64 6f 6e 27 74 20  6b 6e 6f 77 21 0d 0b fe  |I don't know!...|
00001a80  19 dc 45 4e 44 2c 49 6e  76 61 6c 69 64 20 51 75  |..END,Invalid Qu|
00001a90  65 73 74 69 6f 6e 0d ff                           |estion..|
00001a98