�"ERROR "+�$:�
ie%=582
�b%1268,i%ie%,name%12,m%76
(q%=�
24FI%=�"<WeightChk$Dir>.Sprites":sz%=�#FI%+4:�#FI%
<�sp%sz%
F!sp%=sz%:sp%!8=16
P+ș46,&10A,sp%,"<WeightChk$Dir>.Sprites"
Z)ș262336,200,&4B534154,"Weight Check"
d)ș262361,,"<WeightChk$Dir>.Templates"
nS$name%="info":ș262363,,b%,i%,i%+ie%,-1,name%,0�,,ni%,,,,ne%:ș262337,,b%�info%
xw%=�ltmp("Window")
�ș262362
�5!b%=w%:ș262347,,b%:ș262341,,b%:�caret(w%,4):�cm
�	��er
�	ȕ�q%
�ș262343,&1831,b%�r%
�	Ȏr%�
��2:ș262341,,b%
��3:ș262342,,b%:q%=�
��6:�cl(b%!12,b%!16,b%!8)
��8:�key(!b%,b%!4,b%!24)
��9:�ms(!b%)
��17,18:�rm
��

�

ș262365

�

"��rm

,Ȏb%!16�

6�0:q%=�

@�

J�

T;��er:!b%=�:$(b%+4)=�$+�0:ș262367,b%,1,"Weight Check":�

^ݤltmp(tname$)

ha$name%=tname$:ș262363,,b%,ni%,i%+ie%,-1,name%,ne%�,,ni%,,,,ne%:b%!64=sp%:ș262337,,b%�thand%

r=thand%

|x��tj(win%,icon%,TX$):!b%=win%:b%!4=icon%:ș262350,,b%:$(b%!28)=TX$:!b%=win%:b%!4=icon%:b%!8=0:b%!12=0:ș262349,,b%:�

�Aݤread(win%,icon%):!b%=win%:b%!4=icon%:ș262350,,b%:=$(b%!28)

�Eݤreadv(win%,icon%):!b%=win%:b%!4=icon%:ș262350,,b%:=�($(b%!28))

�O��sel(win%,icon%):!b%=win%:b%!4=icon%:b%!8=1<<21:b%!12=1<<21:ș262349,,b%:�

�M��desel(win%,icon%):!b%=win%:b%!4=icon%:b%!8=0:b%!12=1<<21:ș262349,,b%:�

�7ݤseld(win%,icon%):!b%=win%:b%!4=icon%:ș262350,,b%

��(b%!24)�(1<<21):=1�=0

���caret(win%,icon%):�LA%

�;LA%=�(�read(win%,icon%)):ș262354,win%,icon%,,,-1,LA%:�

�-ݤcaretc(w%):ș262355,,b%:�!b%=w%:=(b%!4)

�=-1

�i��grey(win%,icon%):!b%=win%:b%!4=icon%:ș262350,,b%:�b%!24�1<<22:b%!8=1<<22:b%!12=1<<22:ș262349,,b%

��

�e��xgrey(win%,icon%):!b%=win%:b%!4=icon%:ș262350,,b%:�b%!24�1<<22:b%!8=0:b%!12=1<<22:ș262349,,b%
�
g��setfg(win%,icon%,fg%):!b%=win%:b%!4=icon%:b%!8=0:b%!12=0:b%!8=fg%<<24:b%!12=15<<24:ș262349,,b%:�
��key(win%,i%,key%)
&O�win%=w%�(i%=12�i%=14)�key%=13:�sel(w%,21):�do:�desel(w%,21):�ș262364,key%
0�
:��cl(win%,i%,but%):�no%
D�win%<>w%:�
N&�but%=2:ș262356,,m%,!b%-64,b%!4:�
X=�but%=1�(i%=2�i%=3�i%=10�i%=11)���seld(w%,i%):�sel(w%,i%)
b	Ȏi%�
l�2:�seld(w%,2) �
v�caretc(w%)=6:�caret(w%,4)
�>�tj(w%,5,"metres"):�tj(w%,6,""):�grey(w%,6):�setfg(w%,7,2)
��
�@�3:�seld(w%,3):�tj(w%,5,"feet"):�xgrey(w%,6):�setfg(w%,7,7)
��10:�seld(w%,10) �
�!�caretc(w%)=14:�caret(w%,12)
�E�tj(w%,13,"kilograms"):�tj(w%,14,""):�grey(w%,14):�setfg(w%,15,2)
��
�G�11:�seld(w%,11):�tj(w%,13,"stones"):�xgrey(w%,14):�setfg(w%,15,7)
Ѐ�20:�tj(w%,4,""):�tj(w%,6,""):�tj(w%,12,""):�tj(w%,14,""):�tj(w%,18,""):�tj(w%,19,""):no%=�caretc(w%):�no%>-1:�caret(w%,no%)
��21:�do
��
��
�)��do:�ht%,wt%,w1%,w2%,dif%,ou%,S$,dif
N�seld(w%,3):ht%=�readv(w%,4)*30.5+�readv(w%,6)*2.54:�ht%=�readv(w%,4)*100
U�seld(w%,11):wt%=�readv(w%,12)*63500+�readv(w%,14)*4540:�wt%=�readv(w%,12)*10000
�ht%=0:�7:�
 w1%=20*ht%^2
*w2%=25*ht%^2
4	ou%=0
> �wt%<w1%:dif%=w1%-wt%:ou%=-1
H�wt%>w2%:dif%=wt%-w2%:ou%=1
Ry�seld(w%,11):�tj(w%,18,�roundi(w1%)+"  to  "+�roundi(w2%)):��tj(w%,18,�round2(w1%)+" to "+�round2(w2%)+" kilograms")
\!�ou%<>0:S$="You are "+�weight
f�ou%<0:S$+=" underweight"
p�ou%>0:S$+=" overweight"
z:�ou%=0:S$="You are the correct weight for your height"
�'�wt%>0:�tj(w%,19,S$):��tj(w%,19,"")
��
�>ݤround2(no%):�R$,po%:R$=�((no%�100+0.1)/100):po%=�R$,".")
��po%>0:R$=�R$,po%+2)
��R$="1E-3":=""
�=R$
�ݤweight:�imp%,R$
� �seld(w%,11):imp%=�:�imp%=�
��imp% �
�R$=�round2(dif%)
��R$="":ou%=0
�R$+=" kilograms"
��
R$=�roundi(dif%)
�R$="":ou%=0
�
$=R$
..ݤroundi(no%):�S$,P$:P$=�round2(no%*2.205)
8'S$=�(�(P$)�14):P$=�((�(P$)+0.5)�14)
B*�S$<>"0" � P$<>"0":=S$+" st "+P$+" lb"
L�S$<>"0" � P$="0":=S$+" st"
V�S$="0" � P$<>"0":=P$+" lb"
`=""
j���cm:$m%="Weight Check":m%!12=&70207:m%!16=160:m%!20=44:m%!24=0:m%!28=0:m%!32=info%:m%!36=&7000021:$(m%+40)="Info":m%!52=&80:m%!56=-1:m%!60=&7000021:$(m%+64)="Quit":�
t��ms(ms0%):�but%
~ș262351,,b%:but%=b%!8
��ms0%=1:q%=�
��but%=1:ș262356,,m%,0,0
��
�

00000000  0d 00 0a 14 ee 85 ff 22  45 52 52 4f 52 20 22 2b  |......."ERROR "+|
00000010  f6 24 3a e0 0d 00 14 0b  69 65 25 3d 35 38 32 0d  |.$:.....ie%=582.|
00000020  00 1e 1e de 62 25 31 32  36 38 2c 69 25 69 65 25  |....b%1268,i%ie%|
00000030  2c 6e 61 6d 65 25 31 32  2c 6d 25 37 36 0d 00 28  |,name%12,m%76..(|
00000040  08 71 25 3d a3 0d 00 32  34 46 49 25 3d 8e 22 3c  |.q%=...24FI%=."<|
00000050  57 65 69 67 68 74 43 68  6b 24 44 69 72 3e 2e 53  |WeightChk$Dir>.S|
00000060  70 72 69 74 65 73 22 3a  73 7a 25 3d a2 23 46 49  |prites":sz%=.#FI|
00000070  25 2b 34 3a d9 23 46 49  25 0d 00 3c 0b de 73 70  |%+4:.#FI%..<..sp|
00000080  25 73 7a 25 0d 00 46 15  21 73 70 25 3d 73 7a 25  |%sz%..F.!sp%=sz%|
00000090  3a 73 70 25 21 38 3d 31  36 0d 00 50 2b c8 99 34  |:sp%!8=16..P+..4|
000000a0  36 2c 26 31 30 41 2c 73  70 25 2c 22 3c 57 65 69  |6,&10A,sp%,"<Wei|
000000b0  67 68 74 43 68 6b 24 44  69 72 3e 2e 53 70 72 69  |ghtChk$Dir>.Spri|
000000c0  74 65 73 22 0d 00 5a 29  c8 99 32 36 32 33 33 36  |tes"..Z)..262336|
000000d0  2c 32 30 30 2c 26 34 42  35 33 34 31 35 34 2c 22  |,200,&4B534154,"|
000000e0  57 65 69 67 68 74 20 43  68 65 63 6b 22 0d 00 64  |Weight Check"..d|
000000f0  29 c8 99 32 36 32 33 36  31 2c 2c 22 3c 57 65 69  |)..262361,,"<Wei|
00000100  67 68 74 43 68 6b 24 44  69 72 3e 2e 54 65 6d 70  |ghtChk$Dir>.Temp|
00000110  6c 61 74 65 73 22 0d 00  6e 53 24 6e 61 6d 65 25  |lates"..nS$name%|
00000120  3d 22 69 6e 66 6f 22 3a  c8 99 32 36 32 33 36 33  |="info":..262363|
00000130  2c 2c 62 25 2c 69 25 2c  69 25 2b 69 65 25 2c 2d  |,,b%,i%,i%+ie%,-|
00000140  31 2c 6e 61 6d 65 25 2c  30 b8 2c 2c 6e 69 25 2c  |1,name%,0.,,ni%,|
00000150  2c 2c 2c 6e 65 25 3a c8  99 32 36 32 33 33 37 2c  |,,,ne%:..262337,|
00000160  2c 62 25 b8 69 6e 66 6f  25 0d 00 78 16 77 25 3d  |,b%.info%..x.w%=|
00000170  a4 6c 74 6d 70 28 22 57  69 6e 64 6f 77 22 29 0d  |.ltmp("Window").|
00000180  00 82 0c c8 99 32 36 32  33 36 32 0d 00 8c 35 21  |.....262362...5!|
00000190  62 25 3d 77 25 3a c8 99  32 36 32 33 34 37 2c 2c  |b%=w%:..262347,,|
000001a0  62 25 3a c8 99 32 36 32  33 34 31 2c 2c 62 25 3a  |b%:..262341,,b%:|
000001b0  f2 63 61 72 65 74 28 77  25 2c 34 29 3a f2 63 6d  |.caret(w%,4):.cm|
000001c0  0d 00 96 09 ee 85 f2 65  72 0d 00 a0 09 c8 95 ac  |.......er.......|
000001d0  71 25 0d 00 aa 18 c8 99  32 36 32 33 34 33 2c 26  |q%......262343,&|
000001e0  31 38 33 31 2c 62 25 b8  72 25 0d 00 b4 09 c8 8e  |1831,b%.r%......|
000001f0  72 25 ca 0d 00 be 13 c9  32 3a c8 99 32 36 32 33  |r%......2:..2623|
00000200  34 31 2c 2c 62 25 0d 00  c8 18 c9 33 3a c8 99 32  |41,,b%.....3:..2|
00000210  36 32 33 34 32 2c 2c 62  25 3a 71 25 3d b9 0d 00  |62342,,b%:q%=...|
00000220  d2 1c c9 36 3a f2 63 6c  28 62 25 21 31 32 2c 62  |...6:.cl(b%!12,b|
00000230  25 21 31 36 2c 62 25 21  38 29 0d 00 dc 1b c9 38  |%!16,b%!8).....8|
00000240  3a f2 6b 65 79 28 21 62  25 2c 62 25 21 34 2c 62  |:.key(!b%,b%!4,b|
00000250  25 21 32 34 29 0d 00 e6  0f c9 39 3a f2 6d 73 28  |%!24).....9:.ms(|
00000260  21 62 25 29 0d 00 f0 0e  c9 31 37 2c 31 38 3a f2  |!b%).....17,18:.|
00000270  72 6d 0d 00 fa 05 cb 0d  01 04 05 ce 0d 01 0e 0c  |rm..............|
00000280  c8 99 32 36 32 33 36 35  0d 01 18 05 e0 0d 01 22  |..262365......."|
00000290  08 dd f2 72 6d 0d 01 2c  0c c8 8e 62 25 21 31 36  |...rm..,...b%!16|
000002a0  ca 0d 01 36 0b c9 30 3a  71 25 3d b9 0d 01 40 05  |...6..0:q%=...@.|
000002b0  cb 0d 01 4a 05 e1 0d 01  54 3b dd f2 65 72 3a 21  |...J....T;..er:!|
000002c0  62 25 3d 9f 3a 24 28 62  25 2b 34 29 3d f6 24 2b  |b%=.:$(b%+4)=.$+|
000002d0  bd 30 3a c8 99 32 36 32  33 36 37 2c 62 25 2c 31  |.0:..262367,b%,1|
000002e0  2c 22 57 65 69 67 68 74  20 43 68 65 63 6b 22 3a  |,"Weight Check":|
000002f0  e1 0d 01 5e 12 dd a4 6c  74 6d 70 28 74 6e 61 6d  |...^...ltmp(tnam|
00000300  65 24 29 0d 01 68 61 24  6e 61 6d 65 25 3d 74 6e  |e$)..ha$name%=tn|
00000310  61 6d 65 24 3a c8 99 32  36 32 33 36 33 2c 2c 62  |ame$:..262363,,b|
00000320  25 2c 6e 69 25 2c 69 25  2b 69 65 25 2c 2d 31 2c  |%,ni%,i%+ie%,-1,|
00000330  6e 61 6d 65 25 2c 6e 65  25 b8 2c 2c 6e 69 25 2c  |name%,ne%.,,ni%,|
00000340  2c 2c 2c 6e 65 25 3a 62  25 21 36 34 3d 73 70 25  |,,,ne%:b%!64=sp%|
00000350  3a c8 99 32 36 32 33 33  37 2c 2c 62 25 b8 74 68  |:..262337,,b%.th|
00000360  61 6e 64 25 0d 01 72 0b  3d 74 68 61 6e 64 25 0d  |and%..r.=thand%.|
00000370  01 7c 78 dd f2 74 6a 28  77 69 6e 25 2c 69 63 6f  |.|x..tj(win%,ico|
00000380  6e 25 2c 54 58 24 29 3a  21 62 25 3d 77 69 6e 25  |n%,TX$):!b%=win%|
00000390  3a 62 25 21 34 3d 69 63  6f 6e 25 3a c8 99 32 36  |:b%!4=icon%:..26|
000003a0  32 33 35 30 2c 2c 62 25  3a 24 28 62 25 21 32 38  |2350,,b%:$(b%!28|
000003b0  29 3d 54 58 24 3a 21 62  25 3d 77 69 6e 25 3a 62  |)=TX$:!b%=win%:b|
000003c0  25 21 34 3d 69 63 6f 6e  25 3a 62 25 21 38 3d 30  |%!4=icon%:b%!8=0|
000003d0  3a 62 25 21 31 32 3d 30  3a c8 99 32 36 32 33 34  |:b%!12=0:..26234|
000003e0  39 2c 2c 62 25 3a e1 0d  01 86 41 dd a4 72 65 61  |9,,b%:....A..rea|
000003f0  64 28 77 69 6e 25 2c 69  63 6f 6e 25 29 3a 21 62  |d(win%,icon%):!b|
00000400  25 3d 77 69 6e 25 3a 62  25 21 34 3d 69 63 6f 6e  |%=win%:b%!4=icon|
00000410  25 3a c8 99 32 36 32 33  35 30 2c 2c 62 25 3a 3d  |%:..262350,,b%:=|
00000420  24 28 62 25 21 32 38 29  0d 01 90 45 dd a4 72 65  |$(b%!28)...E..re|
00000430  61 64 76 28 77 69 6e 25  2c 69 63 6f 6e 25 29 3a  |adv(win%,icon%):|
00000440  21 62 25 3d 77 69 6e 25  3a 62 25 21 34 3d 69 63  |!b%=win%:b%!4=ic|
00000450  6f 6e 25 3a c8 99 32 36  32 33 35 30 2c 2c 62 25  |on%:..262350,,b%|
00000460  3a 3d bb 28 24 28 62 25  21 32 38 29 29 0d 01 9a  |:=.($(b%!28))...|
00000470  4f dd f2 73 65 6c 28 77  69 6e 25 2c 69 63 6f 6e  |O..sel(win%,icon|
00000480  25 29 3a 21 62 25 3d 77  69 6e 25 3a 62 25 21 34  |%):!b%=win%:b%!4|
00000490  3d 69 63 6f 6e 25 3a 62  25 21 38 3d 31 3c 3c 32  |=icon%:b%!8=1<<2|
000004a0  31 3a 62 25 21 31 32 3d  31 3c 3c 32 31 3a c8 99  |1:b%!12=1<<21:..|
000004b0  32 36 32 33 34 39 2c 2c  62 25 3a e1 0d 01 a4 4d  |262349,,b%:....M|
000004c0  dd f2 64 65 73 65 6c 28  77 69 6e 25 2c 69 63 6f  |..desel(win%,ico|
000004d0  6e 25 29 3a 21 62 25 3d  77 69 6e 25 3a 62 25 21  |n%):!b%=win%:b%!|
000004e0  34 3d 69 63 6f 6e 25 3a  62 25 21 38 3d 30 3a 62  |4=icon%:b%!8=0:b|
000004f0  25 21 31 32 3d 31 3c 3c  32 31 3a c8 99 32 36 32  |%!12=1<<21:..262|
00000500  33 34 39 2c 2c 62 25 3a  e1 0d 01 ae 37 dd a4 73  |349,,b%:....7..s|
00000510  65 6c 64 28 77 69 6e 25  2c 69 63 6f 6e 25 29 3a  |eld(win%,icon%):|
00000520  21 62 25 3d 77 69 6e 25  3a 62 25 21 34 3d 69 63  |!b%=win%:b%!4=ic|
00000530  6f 6e 25 3a c8 99 32 36  32 33 35 30 2c 2c 62 25  |on%:..262350,,b%|
00000540  0d 01 b8 1a e7 28 62 25  21 32 34 29 80 28 31 3c  |.....(b%!24).(1<|
00000550  3c 32 31 29 3a 3d 31 8b  3d 30 0d 01 c2 1c dd f2  |<21):=1.=0......|
00000560  63 61 72 65 74 28 77 69  6e 25 2c 69 63 6f 6e 25  |caret(win%,icon%|
00000570  29 3a ea 4c 41 25 0d 01  cc 3b 4c 41 25 3d a9 28  |):.LA%...;LA%=.(|
00000580  a4 72 65 61 64 28 77 69  6e 25 2c 69 63 6f 6e 25  |.read(win%,icon%|
00000590  29 29 3a c8 99 32 36 32  33 35 34 2c 77 69 6e 25  |)):..262354,win%|
000005a0  2c 69 63 6f 6e 25 2c 2c  2c 2d 31 2c 4c 41 25 3a  |,icon%,,,-1,LA%:|
000005b0  e1 0d 01 d6 2d dd a4 63  61 72 65 74 63 28 77 25  |....-..caretc(w%|
000005c0  29 3a c8 99 32 36 32 33  35 35 2c 2c 62 25 3a e7  |):..262355,,b%:.|
000005d0  21 62 25 3d 77 25 3a 3d  28 62 25 21 34 29 0d 01  |!b%=w%:=(b%!4)..|
000005e0  e0 07 3d 2d 31 0d 01 ea  69 dd f2 67 72 65 79 28  |..=-1...i..grey(|
000005f0  77 69 6e 25 2c 69 63 6f  6e 25 29 3a 21 62 25 3d  |win%,icon%):!b%=|
00000600  77 69 6e 25 3a 62 25 21  34 3d 69 63 6f 6e 25 3a  |win%:b%!4=icon%:|
00000610  c8 99 32 36 32 33 35 30  2c 2c 62 25 3a e7 ac 62  |..262350,,b%:..b|
00000620  25 21 32 34 80 31 3c 3c  32 32 3a 62 25 21 38 3d  |%!24.1<<22:b%!8=|
00000630  31 3c 3c 32 32 3a 62 25  21 31 32 3d 31 3c 3c 32  |1<<22:b%!12=1<<2|
00000640  32 3a c8 99 32 36 32 33  34 39 2c 2c 62 25 0d 01  |2:..262349,,b%..|
00000650  f4 05 e1 0d 01 fe 65 dd  f2 78 67 72 65 79 28 77  |......e..xgrey(w|
00000660  69 6e 25 2c 69 63 6f 6e  25 29 3a 21 62 25 3d 77  |in%,icon%):!b%=w|
00000670  69 6e 25 3a 62 25 21 34  3d 69 63 6f 6e 25 3a c8  |in%:b%!4=icon%:.|
00000680  99 32 36 32 33 35 30 2c  2c 62 25 3a e7 62 25 21  |.262350,,b%:.b%!|
00000690  32 34 80 31 3c 3c 32 32  3a 62 25 21 38 3d 30 3a  |24.1<<22:b%!8=0:|
000006a0  62 25 21 31 32 3d 31 3c  3c 32 32 3a c8 99 32 36  |b%!12=1<<22:..26|
000006b0  32 33 34 39 2c 2c 62 25  0d 02 08 05 e1 0d 02 12  |2349,,b%........|
000006c0  67 dd f2 73 65 74 66 67  28 77 69 6e 25 2c 69 63  |g..setfg(win%,ic|
000006d0  6f 6e 25 2c 66 67 25 29  3a 21 62 25 3d 77 69 6e  |on%,fg%):!b%=win|
000006e0  25 3a 62 25 21 34 3d 69  63 6f 6e 25 3a 62 25 21  |%:b%!4=icon%:b%!|
000006f0  38 3d 30 3a 62 25 21 31  32 3d 30 3a 62 25 21 38  |8=0:b%!12=0:b%!8|
00000700  3d 66 67 25 3c 3c 32 34  3a 62 25 21 31 32 3d 31  |=fg%<<24:b%!12=1|
00000710  35 3c 3c 32 34 3a c8 99  32 36 32 33 34 39 2c 2c  |5<<24:..262349,,|
00000720  62 25 3a e1 0d 02 1c 17  dd f2 6b 65 79 28 77 69  |b%:.......key(wi|
00000730  6e 25 2c 69 25 2c 6b 65  79 25 29 0d 02 26 4f e7  |n%,i%,key%)..&O.|
00000740  77 69 6e 25 3d 77 25 80  28 69 25 3d 31 32 84 69  |win%=w%.(i%=12.i|
00000750  25 3d 31 34 29 80 6b 65  79 25 3d 31 33 3a f2 73  |%=14).key%=13:.s|
00000760  65 6c 28 77 25 2c 32 31  29 3a f2 64 6f 3a f2 64  |el(w%,21):.do:.d|
00000770  65 73 65 6c 28 77 25 2c  32 31 29 3a 8b c8 99 32  |esel(w%,21):...2|
00000780  36 32 33 36 34 2c 6b 65  79 25 0d 02 30 05 e1 0d  |62364,key%..0...|
00000790  02 3a 1b dd f2 63 6c 28  77 69 6e 25 2c 69 25 2c  |.:...cl(win%,i%,|
000007a0  62 75 74 25 29 3a ea 6e  6f 25 0d 02 44 0f e7 77  |but%):.no%..D..w|
000007b0  69 6e 25 3c 3e 77 25 3a  e1 0d 02 4e 26 e7 62 75  |in%<>w%:...N&.bu|
000007c0  74 25 3d 32 3a c8 99 32  36 32 33 35 36 2c 2c 6d  |t%=2:..262356,,m|
000007d0  25 2c 21 62 25 2d 36 34  2c 62 25 21 34 3a e1 0d  |%,!b%-64,b%!4:..|
000007e0  02 58 3d e7 62 75 74 25  3d 31 80 28 69 25 3d 32  |.X=.but%=1.(i%=2|
000007f0  84 69 25 3d 33 84 69 25  3d 31 30 84 69 25 3d 31  |.i%=3.i%=10.i%=1|
00000800  31 29 80 ac a4 73 65 6c  64 28 77 25 2c 69 25 29  |1)...seld(w%,i%)|
00000810  3a f2 73 65 6c 28 77 25  2c 69 25 29 0d 02 62 09  |:.sel(w%,i%)..b.|
00000820  c8 8e 69 25 ca 0d 02 6c  15 c9 32 3a e7 a4 73 65  |..i%...l..2:..se|
00000830  6c 64 28 77 25 2c 32 29  20 8c 0d 02 76 1f e7 a4  |ld(w%,2) ...v...|
00000840  63 61 72 65 74 63 28 77  25 29 3d 36 3a f2 63 61  |caretc(w%)=6:.ca|
00000850  72 65 74 28 77 25 2c 34  29 0d 02 80 3e f2 74 6a  |ret(w%,4)...>.tj|
00000860  28 77 25 2c 35 2c 22 6d  65 74 72 65 73 22 29 3a  |(w%,5,"metres"):|
00000870  f2 74 6a 28 77 25 2c 36  2c 22 22 29 3a f2 67 72  |.tj(w%,6,""):.gr|
00000880  65 79 28 77 25 2c 36 29  3a f2 73 65 74 66 67 28  |ey(w%,6):.setfg(|
00000890  77 25 2c 37 2c 32 29 0d  02 8a 05 cd 0d 02 94 40  |w%,7,2)........@|
000008a0  c9 33 3a e7 a4 73 65 6c  64 28 77 25 2c 33 29 3a  |.3:..seld(w%,3):|
000008b0  f2 74 6a 28 77 25 2c 35  2c 22 66 65 65 74 22 29  |.tj(w%,5,"feet")|
000008c0  3a f2 78 67 72 65 79 28  77 25 2c 36 29 3a f2 73  |:.xgrey(w%,6):.s|
000008d0  65 74 66 67 28 77 25 2c  37 2c 37 29 0d 02 9e 17  |etfg(w%,7,7)....|
000008e0  c9 31 30 3a e7 a4 73 65  6c 64 28 77 25 2c 31 30  |.10:..seld(w%,10|
000008f0  29 20 8c 0d 02 a8 21 e7  a4 63 61 72 65 74 63 28  |) ....!..caretc(|
00000900  77 25 29 3d 31 34 3a f2  63 61 72 65 74 28 77 25  |w%)=14:.caret(w%|
00000910  2c 31 32 29 0d 02 b2 45  f2 74 6a 28 77 25 2c 31  |,12)...E.tj(w%,1|
00000920  33 2c 22 6b 69 6c 6f 67  72 61 6d 73 22 29 3a f2  |3,"kilograms"):.|
00000930  74 6a 28 77 25 2c 31 34  2c 22 22 29 3a f2 67 72  |tj(w%,14,""):.gr|
00000940  65 79 28 77 25 2c 31 34  29 3a f2 73 65 74 66 67  |ey(w%,14):.setfg|
00000950  28 77 25 2c 31 35 2c 32  29 0d 02 bc 05 cd 0d 02  |(w%,15,2).......|
00000960  c6 47 c9 31 31 3a e7 a4  73 65 6c 64 28 77 25 2c  |.G.11:..seld(w%,|
00000970  31 31 29 3a f2 74 6a 28  77 25 2c 31 33 2c 22 73  |11):.tj(w%,13,"s|
00000980  74 6f 6e 65 73 22 29 3a  f2 78 67 72 65 79 28 77  |tones"):.xgrey(w|
00000990  25 2c 31 34 29 3a f2 73  65 74 66 67 28 77 25 2c  |%,14):.setfg(w%,|
000009a0  31 35 2c 37 29 0d 02 d0  80 c9 32 30 3a f2 74 6a  |15,7).....20:.tj|
000009b0  28 77 25 2c 34 2c 22 22  29 3a f2 74 6a 28 77 25  |(w%,4,""):.tj(w%|
000009c0  2c 36 2c 22 22 29 3a f2  74 6a 28 77 25 2c 31 32  |,6,""):.tj(w%,12|
000009d0  2c 22 22 29 3a f2 74 6a  28 77 25 2c 31 34 2c 22  |,""):.tj(w%,14,"|
000009e0  22 29 3a f2 74 6a 28 77  25 2c 31 38 2c 22 22 29  |"):.tj(w%,18,"")|
000009f0  3a f2 74 6a 28 77 25 2c  31 39 2c 22 22 29 3a 6e  |:.tj(w%,19,""):n|
00000a00  6f 25 3d a4 63 61 72 65  74 63 28 77 25 29 3a e7  |o%=.caretc(w%):.|
00000a10  6e 6f 25 3e 2d 31 3a f2  63 61 72 65 74 28 77 25  |no%>-1:.caret(w%|
00000a20  2c 6e 6f 25 29 0d 02 da  0b c9 32 31 3a f2 64 6f  |,no%).....21:.do|
00000a30  0d 02 e4 05 cb 0d 02 ee  05 e1 0d 02 f8 29 dd f2  |.............)..|
00000a40  64 6f 3a ea 68 74 25 2c  77 74 25 2c 77 31 25 2c  |do:.ht%,wt%,w1%,|
00000a50  77 32 25 2c 64 69 66 25  2c 6f 75 25 2c 53 24 2c  |w2%,dif%,ou%,S$,|
00000a60  64 69 66 0d 03 02 4e e7  a4 73 65 6c 64 28 77 25  |dif...N..seld(w%|
00000a70  2c 33 29 3a 68 74 25 3d  a4 72 65 61 64 76 28 77  |,3):ht%=.readv(w|
00000a80  25 2c 34 29 2a 33 30 2e  35 2b a4 72 65 61 64 76  |%,4)*30.5+.readv|
00000a90  28 77 25 2c 36 29 2a 32  2e 35 34 3a 8b 68 74 25  |(w%,6)*2.54:.ht%|
00000aa0  3d a4 72 65 61 64 76 28  77 25 2c 34 29 2a 31 30  |=.readv(w%,4)*10|
00000ab0  30 0d 03 0c 55 e7 a4 73  65 6c 64 28 77 25 2c 31  |0...U..seld(w%,1|
00000ac0  31 29 3a 77 74 25 3d a4  72 65 61 64 76 28 77 25  |1):wt%=.readv(w%|
00000ad0  2c 31 32 29 2a 36 33 35  30 30 2b a4 72 65 61 64  |,12)*63500+.read|
00000ae0  76 28 77 25 2c 31 34 29  2a 34 35 34 30 3a 8b 77  |v(w%,14)*4540:.w|
00000af0  74 25 3d a4 72 65 61 64  76 28 77 25 2c 31 32 29  |t%=.readv(w%,12)|
00000b00  2a 31 30 30 30 30 0d 03  16 0f e7 68 74 25 3d 30  |*10000.....ht%=0|
00000b10  3a ef 37 3a e1 0d 03 20  10 77 31 25 3d 32 30 2a  |:.7:... .w1%=20*|
00000b20  68 74 25 5e 32 0d 03 2a  10 77 32 25 3d 32 35 2a  |ht%^2..*.w2%=25*|
00000b30  68 74 25 5e 32 0d 03 34  09 6f 75 25 3d 30 0d 03  |ht%^2..4.ou%=0..|
00000b40  3e 20 e7 77 74 25 3c 77  31 25 3a 64 69 66 25 3d  |> .wt%<w1%:dif%=|
00000b50  77 31 25 2d 77 74 25 3a  6f 75 25 3d 2d 31 0d 03  |w1%-wt%:ou%=-1..|
00000b60  48 1f e7 77 74 25 3e 77  32 25 3a 64 69 66 25 3d  |H..wt%>w2%:dif%=|
00000b70  77 74 25 2d 77 32 25 3a  6f 75 25 3d 31 0d 03 52  |wt%-w2%:ou%=1..R|
00000b80  79 e7 a4 73 65 6c 64 28  77 25 2c 31 31 29 3a f2  |y..seld(w%,11):.|
00000b90  74 6a 28 77 25 2c 31 38  2c a4 72 6f 75 6e 64 69  |tj(w%,18,.roundi|
00000ba0  28 77 31 25 29 2b 22 20  20 74 6f 20 20 22 2b a4  |(w1%)+"  to  "+.|
00000bb0  72 6f 75 6e 64 69 28 77  32 25 29 29 3a 8b f2 74  |roundi(w2%)):..t|
00000bc0  6a 28 77 25 2c 31 38 2c  a4 72 6f 75 6e 64 32 28  |j(w%,18,.round2(|
00000bd0  77 31 25 29 2b 22 20 74  6f 20 22 2b a4 72 6f 75  |w1%)+" to "+.rou|
00000be0  6e 64 32 28 77 32 25 29  2b 22 20 6b 69 6c 6f 67  |nd2(w2%)+" kilog|
00000bf0  72 61 6d 73 22 29 0d 03  5c 21 e7 6f 75 25 3c 3e  |rams")..\!.ou%<>|
00000c00  30 3a 53 24 3d 22 59 6f  75 20 61 72 65 20 22 2b  |0:S$="You are "+|
00000c10  a4 77 65 69 67 68 74 0d  03 66 1d e7 6f 75 25 3c  |.weight..f..ou%<|
00000c20  30 3a 53 24 2b 3d 22 20  75 6e 64 65 72 77 65 69  |0:S$+=" underwei|
00000c30  67 68 74 22 0d 03 70 1c  e7 6f 75 25 3e 30 3a 53  |ght"..p..ou%>0:S|
00000c40  24 2b 3d 22 20 6f 76 65  72 77 65 69 67 68 74 22  |$+=" overweight"|
00000c50  0d 03 7a 3a e7 6f 75 25  3d 30 3a 53 24 3d 22 59  |..z:.ou%=0:S$="Y|
00000c60  6f 75 20 61 72 65 20 74  68 65 20 63 6f 72 72 65  |ou are the corre|
00000c70  63 74 20 77 65 69 67 68  74 20 66 6f 72 20 79 6f  |ct weight for yo|
00000c80  75 72 20 68 65 69 67 68  74 22 0d 03 84 27 e7 77  |ur height"...'.w|
00000c90  74 25 3e 30 3a f2 74 6a  28 77 25 2c 31 39 2c 53  |t%>0:.tj(w%,19,S|
00000ca0  24 29 3a 8b f2 74 6a 28  77 25 2c 31 39 2c 22 22  |$):..tj(w%,19,""|
00000cb0  29 0d 03 8e 05 e1 0d 03  98 3e dd a4 72 6f 75 6e  |)........>..roun|
00000cc0  64 32 28 6e 6f 25 29 3a  ea 52 24 2c 70 6f 25 3a  |d2(no%):.R$,po%:|
00000cd0  52 24 3d c3 28 28 6e 6f  25 81 31 30 30 2b 30 2e  |R$=.((no%.100+0.|
00000ce0  31 29 2f 31 30 30 29 3a  70 6f 25 3d a7 52 24 2c  |1)/100):po%=.R$,|
00000cf0  22 2e 22 29 0d 03 a2 18  e7 70 6f 25 3e 30 3a 52  |".").....po%>0:R|
00000d00  24 3d c0 52 24 2c 70 6f  25 2b 32 29 0d 03 ac 12  |$=.R$,po%+2)....|
00000d10  e7 52 24 3d 22 31 45 2d  33 22 3a 3d 22 22 0d 03  |.R$="1E-3":=""..|
00000d20  b6 07 3d 52 24 0d 03 c0  15 dd a4 77 65 69 67 68  |..=R$......weigh|
00000d30  74 3a ea 69 6d 70 25 2c  52 24 0d 03 ca 20 e7 a4  |t:.imp%,R$... ..|
00000d40  73 65 6c 64 28 77 25 2c  31 31 29 3a 69 6d 70 25  |seld(w%,11):imp%|
00000d50  3d b9 3a 8b 69 6d 70 25  3d a3 0d 03 d4 0c e7 ac  |=.:.imp%=.......|
00000d60  69 6d 70 25 20 8c 0d 03  de 14 52 24 3d a4 72 6f  |imp% .....R$=.ro|
00000d70  75 6e 64 32 28 64 69 66  25 29 0d 03 e8 10 e7 52  |und2(dif%).....R|
00000d80  24 3d 22 22 3a 6f 75 25  3d 30 0d 03 f2 14 52 24  |$="":ou%=0....R$|
00000d90  2b 3d 22 20 6b 69 6c 6f  67 72 61 6d 73 22 0d 03  |+=" kilograms"..|
00000da0  fc 05 cc 0d 04 06 14 52  24 3d a4 72 6f 75 6e 64  |.......R$=.round|
00000db0  69 28 64 69 66 25 29 0d  04 10 10 e7 52 24 3d 22  |i(dif%).....R$="|
00000dc0  22 3a 6f 75 25 3d 30 0d  04 1a 05 cd 0d 04 24 07  |":ou%=0.......$.|
00000dd0  3d 52 24 0d 04 2e 2e dd  a4 72 6f 75 6e 64 69 28  |=R$......roundi(|
00000de0  6e 6f 25 29 3a ea 53 24  2c 50 24 3a 50 24 3d a4  |no%):.S$,P$:P$=.|
00000df0  72 6f 75 6e 64 32 28 6e  6f 25 2a 32 2e 32 30 35  |round2(no%*2.205|
00000e00  29 0d 04 38 27 53 24 3d  c3 28 bb 28 50 24 29 81  |)..8'S$=.(.(P$).|
00000e10  31 34 29 3a 50 24 3d c3  28 28 bb 28 50 24 29 2b  |14):P$=.((.(P$)+|
00000e20  30 2e 35 29 83 31 34 29  0d 04 42 2a e7 53 24 3c  |0.5).14)..B*.S$<|
00000e30  3e 22 30 22 20 80 20 50  24 3c 3e 22 30 22 3a 3d  |>"0" . P$<>"0":=|
00000e40  53 24 2b 22 20 73 74 20  22 2b 50 24 2b 22 20 6c  |S$+" st "+P$+" l|
00000e50  62 22 0d 04 4c 1f e7 53  24 3c 3e 22 30 22 20 80  |b"..L..S$<>"0" .|
00000e60  20 50 24 3d 22 30 22 3a  3d 53 24 2b 22 20 73 74  | P$="0":=S$+" st|
00000e70  22 0d 04 56 1f e7 53 24  3d 22 30 22 20 80 20 50  |"..V..S$="0" . P|
00000e80  24 3c 3e 22 30 22 3a 3d  50 24 2b 22 20 6c 62 22  |$<>"0":=P$+" lb"|
00000e90  0d 04 60 07 3d 22 22 0d  04 6a aa dd f2 63 6d 3a  |..`.=""..j...cm:|
00000ea0  24 6d 25 3d 22 57 65 69  67 68 74 20 43 68 65 63  |$m%="Weight Chec|
00000eb0  6b 22 3a 6d 25 21 31 32  3d 26 37 30 32 30 37 3a  |k":m%!12=&70207:|
00000ec0  6d 25 21 31 36 3d 31 36  30 3a 6d 25 21 32 30 3d  |m%!16=160:m%!20=|
00000ed0  34 34 3a 6d 25 21 32 34  3d 30 3a 6d 25 21 32 38  |44:m%!24=0:m%!28|
00000ee0  3d 30 3a 6d 25 21 33 32  3d 69 6e 66 6f 25 3a 6d  |=0:m%!32=info%:m|
00000ef0  25 21 33 36 3d 26 37 30  30 30 30 32 31 3a 24 28  |%!36=&7000021:$(|
00000f00  6d 25 2b 34 30 29 3d 22  49 6e 66 6f 22 3a 6d 25  |m%+40)="Info":m%|
00000f10  21 35 32 3d 26 38 30 3a  6d 25 21 35 36 3d 2d 31  |!52=&80:m%!56=-1|
00000f20  3a 6d 25 21 36 30 3d 26  37 30 30 30 30 32 31 3a  |:m%!60=&7000021:|
00000f30  24 28 6d 25 2b 36 34 29  3d 22 51 75 69 74 22 3a  |$(m%+64)="Quit":|
00000f40  e1 0d 04 74 14 dd f2 6d  73 28 6d 73 30 25 29 3a  |...t...ms(ms0%):|
00000f50  ea 62 75 74 25 0d 04 7e  1a c8 99 32 36 32 33 35  |.but%..~...26235|
00000f60  31 2c 2c 62 25 3a 62 75  74 25 3d 62 25 21 38 0d  |1,,b%:but%=b%!8.|
00000f70  04 88 10 e7 6d 73 30 25  3d 31 3a 71 25 3d b9 0d  |....ms0%=1:q%=..|
00000f80  04 92 1c e7 62 75 74 25  3d 31 3a c8 99 32 36 32  |....but%=1:..262|
00000f90  33 35 36 2c 2c 6d 25 2c  30 2c 30 0d 04 9c 05 e1  |356,,m%,0,0.....|
00000fa0  0d ff                                             |..|
00000fa2