� >Thomasina Animator
� � 1994 Mark Ainsworth
:
(� � �:� " at line ";�:�
27� " Do you want to see the images being drawn? "yn$
<�
F&  � " Mode? (4,1,9; 0,8,12) "mode$
P+  � mode$="" � mode%=9 � mode%=�(mode$)
Z  accept%=�
d  Ȏ mode% �
n"    � 4,1,9,0,8,12 : accept%=�
x     accept%=�
�  �
�
� accept%
�width%=1280
�height%=1024
�Ȏ mode% �
�  � 0,4 : colours%=1
�  � 1,8 : colours%=3
�  � 9,12 : colours%=15
��
�Ȏ mode% �
�  � 4 : screensize%=&2840
�  � 0,1 : screensize%=&5040
�  � 8,9 : screensize%=&A040

  � 12 : screensize%=&14040

�

.� " Sinusoidal variable progression? "sin$

"sin%=�yes(sin$)

,4� " How much time in total? (minutes) (10) "time

6� time=0 � time=10

@� " Start a? "a1

J� " End a?   "a2

T� " Start b? "b1

^� " End b?   "b2

h� (mode%+128)

r� mode%

|�

�� col%=0 � colours%

�M  grade%=255-col%*(255/colours%)-(colours%=3 � (col%=1 � col%=2))*col%*30

�!  � col%,grade%,grade%,grade%

�
� col%

�	s1%=1

�� �yes(yn$) � s2%=1 � s2%=2

�#frames%=((�-�) � screensize%)-1

�� spr (screensize%*frames%)

�!spr!0=(screensize%*frames%)-1

�spr!4=0

�spr!8=16

�
spr!12=16

�>� � ș 6,112,s1%:ș "Hourglass_Smash":�$" at line "Þ:�:�
ș "Hourglass_On"
� i%=1 � frames%
3 ș "Hourglass_Percentage",(i%-1)*(100/frames%)
& s$=�i%
0
 �flip
:
 � sin% �
D+  prop=-0.5*�(�*(i%-1)/(frames%-1))+0.5
N �
X  prop=(i%-1)/(frames%-1)
b �
l. �plot(-5,7.5,9,-3,6000*time/frames%,prop)
v) ș 46,256+16,spr,s$,0,0,-0,1279,1023
��
�ș "Hourglass_Off"
�a%=2*(frames%-1)-1
��
�  a%=(a%+1) � (2*(frames%-1))
� b%=�((frames%-1)-a%)+1
� s$=�b%
�
 �flip
� ș 46,256+34,spr,s$,0,0,0
� Ȗ
�� �
�:
�� �flip
ș 6,112,s1%
ș 6,113,s2%
Ȗ
 �
*Ȕ s1%,s2%
4�
>:
H-� �plot(left,right,top,bottom,time%,prop)
Ra=a1+prop*(a2-a1)
\b=b1+prop*(b2-b1)
f� 15
p� �1,1)"a=";a
z� �1,2)"b=";b
��resize
� � colours%=1 � �mono � �grey
�
� 29,0;0;
��
�:
�
� �resize
�xfactor=width%/(right-left)
� yfactor=height%/(top-bottom)
�#midx%=-left*width%/(right-left)
�&midy%=-bottom*height%/(top-bottom)
��29,midx%;midy%;
��
�:
� �mono
x=0
y=0
$�=0
.�
8  x=�(�(x*x-2*x+a))-y
B  y=�(�(y*y-2*y-b))+x
L  � 0,1
V  Ȓ xfactor*x, yfactor*y
`� �>=time%
j�
t:
~� �grey
�x=0
�y=0
��=0
��
�  x=�(�(x*x-2*x+a))-y
�  y=�(�(y*y-2*y-b))+x
�!  col%=�xfactor*x, yfactor*y)
�  � col%<colours% � col%+=1
�  � 0,col%
�  Ȓ xfactor*x, yfactor*y
�� �>=time%
��
:

� �yes(yesno$)
&� �"Yy",yesno$)>0 � yesno$="" � =�
=�
�

00000000  0d 00 0a 19 f4 20 3e 54  68 6f 6d 61 73 69 6e 61  |..... >Thomasina|
00000010  20 41 6e 69 6d 61 74 6f  72 0d 00 14 1b f4 20 a9  | Animator..... .|
00000020  20 31 39 39 34 20 4d 61  72 6b 20 41 69 6e 73 77  | 1994 Mark Ainsw|
00000030  6f 72 74 68 0d 00 1e 05  3a 0d 00 28 1b ee 20 85  |orth....:..(.. .|
00000040  20 f6 3a f1 20 22 20 61  74 20 6c 69 6e 65 20 22  | .:. " at line "|
00000050  3b 9e 3a e0 0d 00 32 37  e8 20 22 20 44 6f 20 79  |;.:...27. " Do y|
00000060  6f 75 20 77 61 6e 74 20  74 6f 20 73 65 65 20 74  |ou want to see t|
00000070  68 65 20 69 6d 61 67 65  73 20 62 65 69 6e 67 20  |he images being |
00000080  64 72 61 77 6e 3f 20 22  79 6e 24 0d 00 3c 05 f5  |drawn? "yn$..<..|
00000090  0d 00 46 26 20 20 e8 20  22 20 4d 6f 64 65 3f 20  |..F&  . " Mode? |
000000a0  28 34 2c 31 2c 39 3b 20  30 2c 38 2c 31 32 29 20  |(4,1,9; 0,8,12) |
000000b0  22 6d 6f 64 65 24 0d 00  50 2b 20 20 e7 20 6d 6f  |"mode$..P+  . mo|
000000c0  64 65 24 3d 22 22 20 8c  20 6d 6f 64 65 25 3d 39  |de$="" . mode%=9|
000000d0  20 8b 20 6d 6f 64 65 25  3d bb 28 6d 6f 64 65 24  | . mode%=.(mode$|
000000e0  29 0d 00 5a 0f 20 20 61  63 63 65 70 74 25 3d b9  |)..Z.  accept%=.|
000000f0  0d 00 64 10 20 20 c8 8e  20 6d 6f 64 65 25 20 ca  |..d.  .. mode% .|
00000100  0d 00 6e 22 20 20 20 20  c9 20 34 2c 31 2c 39 2c  |..n"    . 4,1,9,|
00000110  30 2c 38 2c 31 32 20 3a  20 61 63 63 65 70 74 25  |0,8,12 : accept%|
00000120  3d b9 0d 00 78 13 20 20  20 20 7f 20 61 63 63 65  |=...x.    . acce|
00000130  70 74 25 3d a3 0d 00 82  07 20 20 cb 0d 00 8c 0d  |pt%=.....  .....|
00000140  fd 20 61 63 63 65 70 74  25 0d 00 96 0f 77 69 64  |. accept%....wid|
00000150  74 68 25 3d 31 32 38 30  0d 00 a0 10 68 65 69 67  |th%=1280....heig|
00000160  68 74 25 3d 31 30 32 34  0d 00 aa 0e c8 8e 20 6d  |ht%=1024...... m|
00000170  6f 64 65 25 20 ca 0d 00  b4 18 20 20 c9 20 30 2c  |ode% .....  . 0,|
00000180  34 20 3a 20 63 6f 6c 6f  75 72 73 25 3d 31 0d 00  |4 : colours%=1..|
00000190  be 18 20 20 c9 20 31 2c  38 20 3a 20 63 6f 6c 6f  |..  . 1,8 : colo|
000001a0  75 72 73 25 3d 33 0d 00  c8 1a 20 20 c9 20 39 2c  |urs%=3....  . 9,|
000001b0  31 32 20 3a 20 63 6f 6c  6f 75 72 73 25 3d 31 35  |12 : colours%=15|
000001c0  0d 00 d2 05 cb 0d 00 dc  0e c8 8e 20 6d 6f 64 65  |........... mode|
000001d0  25 20 ca 0d 00 e6 1d 20  20 c9 20 34 20 3a 20 73  |% .....  . 4 : s|
000001e0  63 72 65 65 6e 73 69 7a  65 25 3d 26 32 38 34 30  |creensize%=&2840|
000001f0  0d 00 f0 1f 20 20 c9 20  30 2c 31 20 3a 20 73 63  |....  . 0,1 : sc|
00000200  72 65 65 6e 73 69 7a 65  25 3d 26 35 30 34 30 0d  |reensize%=&5040.|
00000210  00 fa 1f 20 20 c9 20 38  2c 39 20 3a 20 73 63 72  |...  . 8,9 : scr|
00000220  65 65 6e 73 69 7a 65 25  3d 26 41 30 34 30 0d 01  |eensize%=&A040..|
00000230  04 1f 20 20 c9 20 31 32  20 3a 20 73 63 72 65 65  |..  . 12 : scree|
00000240  6e 73 69 7a 65 25 3d 26  31 34 30 34 30 0d 01 0e  |nsize%=&14040...|
00000250  05 cb 0d 01 18 2e e8 20  22 20 53 69 6e 75 73 6f  |....... " Sinuso|
00000260  69 64 61 6c 20 76 61 72  69 61 62 6c 65 20 70 72  |idal variable pr|
00000270  6f 67 72 65 73 73 69 6f  6e 3f 20 22 73 69 6e 24  |ogression? "sin$|
00000280  0d 01 22 13 73 69 6e 25  3d a4 79 65 73 28 73 69  |..".sin%=.yes(si|
00000290  6e 24 29 0d 01 2c 34 e8  20 22 20 48 6f 77 20 6d  |n$)..,4. " How m|
000002a0  75 63 68 20 74 69 6d 65  20 69 6e 20 74 6f 74 61  |uch time in tota|
000002b0  6c 3f 20 28 6d 69 6e 75  74 65 73 29 20 28 31 30  |l? (minutes) (10|
000002c0  29 20 22 74 69 6d 65 0d  01 36 16 e7 20 74 69 6d  |) "time..6.. tim|
000002d0  65 3d 30 20 8c 20 74 69  6d 65 3d 31 30 0d 01 40  |e=0 . time=10..@|
000002e0  14 e8 20 22 20 53 74 61  72 74 20 61 3f 20 22 61  |.. " Start a? "a|
000002f0  31 0d 01 4a 14 e8 20 22  20 45 6e 64 20 61 3f 20  |1..J.. " End a? |
00000300  20 20 22 61 32 0d 01 54  14 e8 20 22 20 53 74 61  |  "a2..T.. " Sta|
00000310  72 74 20 62 3f 20 22 62  31 0d 01 5e 14 e8 20 22  |rt b? "b1..^.. "|
00000320  20 45 6e 64 20 62 3f 20  20 20 22 62 32 0d 01 68  | End b?   "b2..h|
00000330  11 eb 20 28 6d 6f 64 65  25 2b 31 32 38 29 0d 01  |.. (mode%+128)..|
00000340  72 0b eb 20 6d 6f 64 65  25 0d 01 7c 05 87 0d 01  |r.. mode%..|....|
00000350  86 17 e3 20 63 6f 6c 25  3d 30 20 b8 20 63 6f 6c  |... col%=0 . col|
00000360  6f 75 72 73 25 0d 01 90  4d 20 20 67 72 61 64 65  |ours%...M  grade|
00000370  25 3d 32 35 35 2d 63 6f  6c 25 2a 28 32 35 35 2f  |%=255-col%*(255/|
00000380  63 6f 6c 6f 75 72 73 25  29 2d 28 63 6f 6c 6f 75  |colours%)-(colou|
00000390  72 73 25 3d 33 20 80 20  28 63 6f 6c 25 3d 31 20  |rs%=3 . (col%=1 |
000003a0  84 20 63 6f 6c 25 3d 32  29 29 2a 63 6f 6c 25 2a  |. col%=2))*col%*|
000003b0  33 30 0d 01 9a 21 20 20  fb 20 63 6f 6c 25 2c 67  |30...!  . col%,g|
000003c0  72 61 64 65 25 2c 67 72  61 64 65 25 2c 67 72 61  |rade%,grade%,gra|
000003d0  64 65 25 0d 01 a4 0a ed  20 63 6f 6c 25 0d 01 ae  |de%..... col%...|
000003e0  09 73 31 25 3d 31 0d 01  b8 1f e7 20 a4 79 65 73  |.s1%=1..... .yes|
000003f0  28 79 6e 24 29 20 8c 20  73 32 25 3d 31 20 8b 20  |(yn$) . s2%=1 . |
00000400  73 32 25 3d 32 0d 01 c2  23 66 72 61 6d 65 73 25  |s2%=2...#frames%|
00000410  3d 28 28 93 2d e0 29 20  81 20 73 63 72 65 65 6e  |=((.-.) . screen|
00000420  73 69 7a 65 25 29 2d 31  0d 01 cc 1f de 20 73 70  |size%)-1..... sp|
00000430  72 20 28 73 63 72 65 65  6e 73 69 7a 65 25 2a 66  |r (screensize%*f|
00000440  72 61 6d 65 73 25 29 0d  01 d6 21 73 70 72 21 30  |rames%)...!spr!0|
00000450  3d 28 73 63 72 65 65 6e  73 69 7a 65 25 2a 66 72  |=(screensize%*fr|
00000460  61 6d 65 73 25 29 2d 31  0d 01 e0 0b 73 70 72 21  |ames%)-1....spr!|
00000470  34 3d 30 0d 01 ea 0c 73  70 72 21 38 3d 31 36 0d  |4=0....spr!8=16.|
00000480  01 f4 0d 73 70 72 21 31  32 3d 31 36 0d 01 fe 3e  |...spr!12=16...>|
00000490  ee 20 85 20 c8 99 20 36  2c 31 31 32 2c 73 31 25  |. . .. 6,112,s1%|
000004a0  3a c8 99 20 22 48 6f 75  72 67 6c 61 73 73 5f 53  |:.. "Hourglass_S|
000004b0  6d 61 73 68 22 3a f1 f6  24 22 20 61 74 20 6c 69  |mash":..$" at li|
000004c0  6e 65 20 22 c3 9e 3a ee  3a e0 0d 02 08 15 c8 99  |ne "..:.:.......|
000004d0  20 22 48 6f 75 72 67 6c  61 73 73 5f 4f 6e 22 0d  | "Hourglass_On".|
000004e0  02 12 14 e3 20 69 25 3d  31 20 b8 20 66 72 61 6d  |.... i%=1 . fram|
000004f0  65 73 25 0d 02 1c 33 20  c8 99 20 22 48 6f 75 72  |es%...3 .. "Hour|
00000500  67 6c 61 73 73 5f 50 65  72 63 65 6e 74 61 67 65  |glass_Percentage|
00000510  22 2c 28 69 25 2d 31 29  2a 28 31 30 30 2f 66 72  |",(i%-1)*(100/fr|
00000520  61 6d 65 73 25 29 0d 02  26 0b 20 73 24 3d c3 69  |ames%)..&. s$=.i|
00000530  25 0d 02 30 0a 20 f2 66  6c 69 70 0d 02 3a 0d 20  |%..0. .flip..:. |
00000540  e7 20 73 69 6e 25 20 8c  0d 02 44 2b 20 20 70 72  |. sin% ...D+  pr|
00000550  6f 70 3d 2d 30 2e 35 2a  9b 28 af 2a 28 69 25 2d  |op=-0.5*.(.*(i%-|
00000560  31 29 2f 28 66 72 61 6d  65 73 25 2d 31 29 29 2b  |1)/(frames%-1))+|
00000570  30 2e 35 0d 02 4e 06 20  cc 0d 02 58 1d 20 20 70  |0.5..N. ...X.  p|
00000580  72 6f 70 3d 28 69 25 2d  31 29 2f 28 66 72 61 6d  |rop=(i%-1)/(fram|
00000590  65 73 25 2d 31 29 0d 02  62 06 20 cd 0d 02 6c 2e  |es%-1)..b. ...l.|
000005a0  20 f2 70 6c 6f 74 28 2d  35 2c 37 2e 35 2c 39 2c  | .plot(-5,7.5,9,|
000005b0  2d 33 2c 36 30 30 30 2a  74 69 6d 65 2f 66 72 61  |-3,6000*time/fra|
000005c0  6d 65 73 25 2c 70 72 6f  70 29 0d 02 76 29 20 c8  |mes%,prop)..v) .|
000005d0  99 20 34 36 2c 32 35 36  2b 31 36 2c 73 70 72 2c  |. 46,256+16,spr,|
000005e0  73 24 2c 30 2c 30 2c 2d  30 2c 31 32 37 39 2c 31  |s$,0,0,-0,1279,1|
000005f0  30 32 33 0d 02 80 05 ed  0d 02 8a 16 c8 99 20 22  |023........... "|
00000600  48 6f 75 72 67 6c 61 73  73 5f 4f 66 66 22 0d 02  |Hourglass_Off"..|
00000610  94 16 61 25 3d 32 2a 28  66 72 61 6d 65 73 25 2d  |..a%=2*(frames%-|
00000620  31 29 2d 31 0d 02 9e 05  f5 0d 02 a8 20 20 61 25  |1)-1........  a%|
00000630  3d 28 61 25 2b 31 29 20  83 20 28 32 2a 28 66 72  |=(a%+1) . (2*(fr|
00000640  61 6d 65 73 25 2d 31 29  29 0d 02 b2 1b 20 62 25  |ames%-1)).... b%|
00000650  3d 94 28 28 66 72 61 6d  65 73 25 2d 31 29 2d 61  |=.((frames%-1)-a|
00000660  25 29 2b 31 0d 02 bc 0b  20 73 24 3d c3 62 25 0d  |%)+1.... s$=.b%.|
00000670  02 c6 0a 20 f2 66 6c 69  70 0d 02 d0 1e 20 c8 99  |... .flip.... ..|
00000680  20 34 36 2c 32 35 36 2b  33 34 2c 73 70 72 2c 73  | 46,256+34,spr,s|
00000690  24 2c 30 2c 30 2c 30 0d  02 da 07 20 c8 96 0d 02  |$,0,0,0.... ....|
000006a0  e4 07 fd 20 a3 0d 02 ee  05 3a 0d 02 f8 0b dd 20  |... .....:..... |
000006b0  f2 66 6c 69 70 0d 03 02  10 c8 99 20 36 2c 31 31  |.flip...... 6,11|
000006c0  32 2c 73 31 25 0d 03 0c  10 c8 99 20 36 2c 31 31  |2,s1%...... 6,11|
000006d0  33 2c 73 32 25 0d 03 16  06 c8 96 0d 03 20 05 db  |3,s2%........ ..|
000006e0  0d 03 2a 0e c8 94 20 73  31 25 2c 73 32 25 0d 03  |..*... s1%,s2%..|
000006f0  34 05 e1 0d 03 3e 05 3a  0d 03 48 2d dd 20 f2 70  |4....>.:..H-. .p|
00000700  6c 6f 74 28 6c 65 66 74  2c 72 69 67 68 74 2c 74  |lot(left,right,t|
00000710  6f 70 2c 62 6f 74 74 6f  6d 2c 74 69 6d 65 25 2c  |op,bottom,time%,|
00000720  70 72 6f 70 29 0d 03 52  15 61 3d 61 31 2b 70 72  |prop)..R.a=a1+pr|
00000730  6f 70 2a 28 61 32 2d 61  31 29 0d 03 5c 15 62 3d  |op*(a2-a1)..\.b=|
00000740  62 31 2b 70 72 6f 70 2a  28 62 32 2d 62 31 29 0d  |b1+prop*(b2-b1).|
00000750  03 66 08 fb 20 31 35 0d  03 70 11 f1 20 8a 31 2c  |.f.. 15..p.. .1,|
00000760  31 29 22 61 3d 22 3b 61  0d 03 7a 11 f1 20 8a 31  |1)"a=";a..z.. .1|
00000770  2c 32 29 22 62 3d 22 3b  62 0d 03 84 0b f2 72 65  |,2)"b=";b.....re|
00000780  73 69 7a 65 0d 03 8e 20  e7 20 63 6f 6c 6f 75 72  |size... . colour|
00000790  73 25 3d 31 20 8c 20 f2  6d 6f 6e 6f 20 8b 20 f2  |s%=1 . .mono . .|
000007a0  67 72 65 79 0d 03 98 0d  ef 20 32 39 2c 30 3b 30  |grey..... 29,0;0|
000007b0  3b 0d 03 a2 05 e1 0d 03  ac 05 3a 0d 03 b6 0d dd  |;.........:.....|
000007c0  20 f2 72 65 73 69 7a 65  0d 03 c0 1f 78 66 61 63  | .resize....xfac|
000007d0  74 6f 72 3d 77 69 64 74  68 25 2f 28 72 69 67 68  |tor=width%/(righ|
000007e0  74 2d 6c 65 66 74 29 0d  03 ca 20 79 66 61 63 74  |t-left)... yfact|
000007f0  6f 72 3d 68 65 69 67 68  74 25 2f 28 74 6f 70 2d  |or=height%/(top-|
00000800  62 6f 74 74 6f 6d 29 0d  03 d4 23 6d 69 64 78 25  |bottom)...#midx%|
00000810  3d 2d 6c 65 66 74 2a 77  69 64 74 68 25 2f 28 72  |=-left*width%/(r|
00000820  69 67 68 74 2d 6c 65 66  74 29 0d 03 de 26 6d 69  |ight-left)...&mi|
00000830  64 79 25 3d 2d 62 6f 74  74 6f 6d 2a 68 65 69 67  |dy%=-bottom*heig|
00000840  68 74 25 2f 28 74 6f 70  2d 62 6f 74 74 6f 6d 29  |ht%/(top-bottom)|
00000850  0d 03 e8 14 ef 32 39 2c  6d 69 64 78 25 3b 6d 69  |.....29,midx%;mi|
00000860  64 79 25 3b 0d 03 f2 05  e1 0d 03 fc 05 3a 0d 04  |dy%;.........:..|
00000870  06 0b dd 20 f2 6d 6f 6e  6f 0d 04 10 07 78 3d 30  |... .mono....x=0|
00000880  0d 04 1a 07 79 3d 30 0d  04 24 07 d1 3d 30 0d 04  |....y=0..$..=0..|
00000890  2e 05 f5 0d 04 38 19 20  20 78 3d b6 28 94 28 78  |.....8.  x=.(.(x|
000008a0  2a 78 2d 32 2a 78 2b 61  29 29 2d 79 0d 04 42 19  |*x-2*x+a))-y..B.|
000008b0  20 20 79 3d b6 28 94 28  79 2a 79 2d 32 2a 79 2d  |  y=.(.(y*y-2*y-|
000008c0  62 29 29 2b 78 0d 04 4c  0b 20 20 e6 20 30 2c 31  |b))+x..L.  . 0,1|
000008d0  0d 04 56 1d 20 20 c8 92  20 78 66 61 63 74 6f 72  |..V.  .. xfactor|
000008e0  2a 78 2c 20 79 66 61 63  74 6f 72 2a 79 0d 04 60  |*x, yfactor*y..`|
000008f0  0e fd 20 91 3e 3d 74 69  6d 65 25 0d 04 6a 05 e1  |.. .>=time%..j..|
00000900  0d 04 74 05 3a 0d 04 7e  0b dd 20 f2 67 72 65 79  |..t.:..~.. .grey|
00000910  0d 04 88 07 78 3d 30 0d  04 92 07 79 3d 30 0d 04  |....x=0....y=0..|
00000920  9c 07 d1 3d 30 0d 04 a6  05 f5 0d 04 b0 19 20 20  |...=0.........  |
00000930  78 3d b6 28 94 28 78 2a  78 2d 32 2a 78 2b 61 29  |x=.(.(x*x-2*x+a)|
00000940  29 2d 79 0d 04 ba 19 20  20 79 3d b6 28 94 28 79  |)-y....  y=.(.(y|
00000950  2a 79 2d 32 2a 79 2d 62  29 29 2b 78 0d 04 c4 21  |*y-2*y-b))+x...!|
00000960  20 20 63 6f 6c 25 3d b0  78 66 61 63 74 6f 72 2a  |  col%=.xfactor*|
00000970  78 2c 20 79 66 61 63 74  6f 72 2a 79 29 0d 04 ce  |x, yfactor*y)...|
00000980  1f 20 20 e7 20 63 6f 6c  25 3c 63 6f 6c 6f 75 72  |.  . col%<colour|
00000990  73 25 20 8c 20 63 6f 6c  25 2b 3d 31 0d 04 d8 0e  |s% . col%+=1....|
000009a0  20 20 e6 20 30 2c 63 6f  6c 25 0d 04 e2 1d 20 20  |  . 0,col%....  |
000009b0  c8 92 20 78 66 61 63 74  6f 72 2a 78 2c 20 79 66  |.. xfactor*x, yf|
000009c0  61 63 74 6f 72 2a 79 0d  04 ec 0e fd 20 91 3e 3d  |actor*y..... .>=|
000009d0  74 69 6d 65 25 0d 04 f6  05 e1 0d 05 00 05 3a 0d  |time%.........:.|
000009e0  05 0a 12 dd 20 a4 79 65  73 28 79 65 73 6e 6f 24  |.... .yes(yesno$|
000009f0  29 0d 05 14 26 e7 20 a7  22 59 79 22 2c 79 65 73  |)...&. ."Yy",yes|
00000a00  6e 6f 24 29 3e 30 20 84  20 79 65 73 6e 6f 24 3d  |no$)>0 . yesno$=|
00000a10  22 22 20 8c 20 3d b9 0d  05 1e 06 3d a3 0d ff     |"" . =.....=...|
00000a1f