� library for DavidRPG2
� (c) David Spence, 1998.

( � 1,"Don't run this library"
2�
<
F
ݤpram
P__d$=""
Z� I%,commands$
dș "OS_GetEnv" � commands$
npram$=""
xI%=�commands$," -quit ")
�<� I% � pram$=�commands$,�commands$," ",I%+�" -quit ")+1)
�E� ��first(pram$),1,2)="#*" � __d$=�first(pram$):=�notfirst(pram$)
�
=pram$
�
�ݤstrip(ttteee$)
�� o$
�o$=ttteee$
�ȕ �o$,1,1)=" " � �(o$)<>0
�
o$=�o$,2)
��
�=o$
�
�ݤstrip_end(ttteee$)

� o$

o$=ttteee$

"ȕ �o$,�(o$),1)=" " � �(o$)<>0

"o$=�o$,1,�(o$)-1)

,�

6=o$

@

Jݤfirst(ttteee$)

T� h$,y$

^h$=ttteee$

hh$=�strip(h$)

r	y$=""

|ȕ �(h$)<>0 � �h$,1,1)<>" "

�y$+=�h$,1,1)

�
h$=�h$,2)

��

�=y$

�

�ݤfirst_eq(ttteee$)

�� h$,y$

�h$=ttteee$

�h$=�strip(h$)

�	y$=""

�/ȕ �(h$)<>0 � �h$,1,1)<>" " � �h$,1,1)<>"="

�y$+=�h$,1,1)

�
h$=�h$,2)
�
=y$

&ݤspecial_if_get(ttteee$)
0� h$,y$
:h$=ttteee$
Dh$=�strip(h$)
N	y$=""
XQȕ �(h$)<>0 � �h$,1,1)<>" " � �h$,1,1)<>"=" �  �h$,1,1)<>"<" �  �h$,1,1)<>">"
by$+=�h$,1,1)
l
h$=�h$,2)
v�
�=y$
�
�ݤspecial_if_rest(ttteee$)
�� i$,y$
�i$=ttteee$
�i$=�strip(i$)
�y$=�special_if_get(i$)
�� �(y$)=�(i$) � =""
�=�strip(�i$,�(y$)+1))
�
�ݤfirsteq(ttteee$)
�� h$,y$
�h$=ttteee$
h$=�strip(h$)
	y$=""
ȕ �(h$)<>0 � �h$,1,1)<>"="
 y$+=�h$,1,1)
*
h$=�h$,2)
4�
>=y$
H
Rݤnotfirst(ttteee$)
\� i$,y$
fi$=ttteee$
pi$=�strip(i$)
zy$=�first(i$)
�� �(y$)=�(i$) � =""
�=�strip(�i$,�(y$)+1))
�
�ݤnotfirsteq(ttteee$)
�� i$,y$
�i$=ttteee$
�i$=�strip(i$)
�y$=�firsteq(i$)
�� �(y$)=�(i$) � =""
�=�strip(�i$,�(y$)+2))
�
�ݤcomma_get(ttteee$)
�� k$,c$
c$=ttteee$
,k$=�strip_end(�strip(�c$,1,�c$,",")-1)))
� k$="" � =c$
$=k$
.
8ݤcomma_rest(ttteee$)
B� o$,u$
Lu$=ttteee$
V	u$=u$
`o$=�strip(�u$,�u$,",")+1))
j� o$=u$ � =""
t=o$
~
�ݤbracketleft_get(ttteee$)
�� c$,k$
�c$=ttteee$
�,k$=�strip_end(�strip(�c$,1,�c$,"(")-1)))
�� k$="" � =c$
�=k$
�
�ݤbracketleft_rest(uo$)
�uo$=uo$
�i%=�uo$,�(40))
�i$=�uo$,i%+1)
�o$=�strip(i$)
� o$=uo$ � =""

=o$


(ݤbracketright_get(c$)
2,k$=�strip_end(�strip(�c$,1,�c$,")")-1)))
<� k$="" � =c$
F=k$
P
Zݤbracketright_rest(u$)
d	u$=u$
no$=�strip(�u$,�u$,")")+1))
x� o$=u$ � =""
�=o$
�
�
�	ݤget
�
� �#O=� �
�&�report("Unexpected end of file.")
�="}"
��
�=�#O
�
�ݤtoupper(G$)
�� I%
�	K$=""
� I%=1��(G$)
E$=�G$,I%,1)
+� �(E$)<123 � �(E$)>96 � E$=�(�(E$)-32)
"
K$+=E$
,�
6=K$
@
Jݤkeyword_look(__i$,___i$)
T� iu$,ju$,ip$,ip$
^iu$=__i$:ju$=___i$
hȕ �(iu$)>0
r ip$=�first(iu$)
| iu$=�notfirst(iu$)
� ju$=___i$
� ȕ �(ju$)>0
�  jp$=�first(ju$)
�  ju$=�notfirst(ju$)
�(  � �toupper(jp$)=�toupper(ip$) � =�
� �
��
�=�
�

00000000  0d 00 0a 1b f4 20 6c 69  62 72 61 72 79 20 66 6f  |..... library fo|
00000010  72 20 44 61 76 69 64 52  50 47 32 0d 00 14 1d f4  |r DavidRPG2.....|
00000020  20 28 63 29 20 44 61 76  69 64 20 53 70 65 6e 63  | (c) David Spenc|
00000030  65 2c 20 31 39 39 38 2e  0d 00 1e 04 0d 00 28 20  |e, 1998.......( |
00000040  85 20 31 2c 22 44 6f 6e  27 74 20 72 75 6e 20 74  |. 1,"Don't run t|
00000050  68 69 73 20 6c 69 62 72  61 72 79 22 0d 00 32 05  |his library"..2.|
00000060  e0 0d 00 3c 04 0d 00 46  0a dd a4 70 72 61 6d 0d  |...<...F...pram.|
00000070  00 50 0b 5f 5f 64 24 3d  22 22 0d 00 5a 12 ea 20  |.P.__d$=""..Z.. |
00000080  49 25 2c 63 6f 6d 6d 61  6e 64 73 24 0d 00 64 1e  |I%,commands$..d.|
00000090  c8 99 20 22 4f 53 5f 47  65 74 45 6e 76 22 20 b8  |.. "OS_GetEnv" .|
000000a0  20 63 6f 6d 6d 61 6e 64  73 24 0d 00 6e 0c 70 72  | commands$..n.pr|
000000b0  61 6d 24 3d 22 22 0d 00  78 1c 49 25 3d a7 63 6f  |am$=""..x.I%=.co|
000000c0  6d 6d 61 6e 64 73 24 2c  22 20 2d 71 75 69 74 20  |mmands$," -quit |
000000d0  22 29 0d 00 82 3c e7 20  49 25 20 8c 20 70 72 61  |")...<. I% . pra|
000000e0  6d 24 3d c1 63 6f 6d 6d  61 6e 64 73 24 2c a7 63  |m$=.commands$,.c|
000000f0  6f 6d 6d 61 6e 64 73 24  2c 22 20 22 2c 49 25 2b  |ommands$," ",I%+|
00000100  a9 22 20 2d 71 75 69 74  20 22 29 2b 31 29 0d 00  |." -quit ")+1)..|
00000110  8c 45 e7 20 c1 a4 66 69  72 73 74 28 70 72 61 6d  |.E. ..first(pram|
00000120  24 29 2c 31 2c 32 29 3d  22 23 2a 22 20 8c 20 5f  |$),1,2)="#*" . _|
00000130  5f 64 24 3d a4 66 69 72  73 74 28 70 72 61 6d 24  |_d$=.first(pram$|
00000140  29 3a 3d a4 6e 6f 74 66  69 72 73 74 28 70 72 61  |):=.notfirst(pra|
00000150  6d 24 29 0d 00 96 0a 3d  70 72 61 6d 24 0d 00 a0  |m$)....=pram$...|
00000160  04 0d 00 aa 14 dd a4 73  74 72 69 70 28 74 74 74  |.......strip(ttt|
00000170  65 65 65 24 29 0d 00 b4  08 ea 20 6f 24 0d 00 be  |eee$)..... o$...|
00000180  0e 6f 24 3d 74 74 74 65  65 65 24 0d 00 c8 1e c8  |.o$=ttteee$.....|
00000190  95 20 c1 6f 24 2c 31 2c  31 29 3d 22 20 22 20 80  |. .o$,1,1)=" " .|
000001a0  20 a9 28 6f 24 29 3c 3e  30 0d 00 d2 0d 6f 24 3d  | .(o$)<>0....o$=|
000001b0  c1 6f 24 2c 32 29 0d 00  dc 05 ce 0d 00 e6 07 3d  |.o$,2).........=|
000001c0  6f 24 0d 00 f0 04 0d 00  fa 18 dd a4 73 74 72 69  |o$..........stri|
000001d0  70 5f 65 6e 64 28 74 74  74 65 65 65 24 29 0d 01  |p_end(ttteee$)..|
000001e0  04 08 ea 20 6f 24 0d 01  0e 0e 6f 24 3d 74 74 74  |... o$....o$=ttt|
000001f0  65 65 65 24 0d 01 18 22  c8 95 20 c1 6f 24 2c a9  |eee$...".. .o$,.|
00000200  28 6f 24 29 2c 31 29 3d  22 20 22 20 80 20 a9 28  |(o$),1)=" " . .(|
00000210  6f 24 29 3c 3e 30 0d 01  22 15 6f 24 3d c1 6f 24  |o$)<>0..".o$=.o$|
00000220  2c 31 2c a9 28 6f 24 29  2d 31 29 0d 01 2c 05 ce  |,1,.(o$)-1)..,..|
00000230  0d 01 36 07 3d 6f 24 0d  01 40 04 0d 01 4a 14 dd  |..6.=o$..@...J..|
00000240  a4 66 69 72 73 74 28 74  74 74 65 65 65 24 29 0d  |.first(ttteee$).|
00000250  01 54 0b ea 20 68 24 2c  79 24 0d 01 5e 0e 68 24  |.T.. h$,y$..^.h$|
00000260  3d 74 74 74 65 65 65 24  0d 01 68 11 68 24 3d a4  |=ttteee$..h.h$=.|
00000270  73 74 72 69 70 28 68 24  29 0d 01 72 09 79 24 3d  |strip(h$)..r.y$=|
00000280  22 22 0d 01 7c 1f c8 95  20 a9 28 68 24 29 3c 3e  |""..|... .(h$)<>|
00000290  30 20 80 20 c1 68 24 2c  31 2c 31 29 3c 3e 22 20  |0 . .h$,1,1)<>" |
000002a0  22 0d 01 86 10 79 24 2b  3d c1 68 24 2c 31 2c 31  |"....y$+=.h$,1,1|
000002b0  29 0d 01 90 0d 68 24 3d  c1 68 24 2c 32 29 0d 01  |)....h$=.h$,2)..|
000002c0  9a 05 ce 0d 01 a4 07 3d  79 24 0d 01 ae 04 0d 01  |.......=y$......|
000002d0  b8 17 dd a4 66 69 72 73  74 5f 65 71 28 74 74 74  |....first_eq(ttt|
000002e0  65 65 65 24 29 0d 01 c2  0b ea 20 68 24 2c 79 24  |eee$)..... h$,y$|
000002f0  0d 01 cc 0e 68 24 3d 74  74 74 65 65 65 24 0d 01  |....h$=ttteee$..|
00000300  d6 11 68 24 3d a4 73 74  72 69 70 28 68 24 29 0d  |..h$=.strip(h$).|
00000310  01 e0 09 79 24 3d 22 22  0d 01 ea 2f c8 95 20 a9  |...y$="".../.. .|
00000320  28 68 24 29 3c 3e 30 20  80 20 c1 68 24 2c 31 2c  |(h$)<>0 . .h$,1,|
00000330  31 29 3c 3e 22 20 22 20  80 20 c1 68 24 2c 31 2c  |1)<>" " . .h$,1,|
00000340  31 29 3c 3e 22 3d 22 0d  01 f4 10 79 24 2b 3d c1  |1)<>"="....y$+=.|
00000350  68 24 2c 31 2c 31 29 0d  01 fe 0d 68 24 3d c1 68  |h$,1,1)....h$=.h|
00000360  24 2c 32 29 0d 02 08 05  ce 0d 02 12 07 3d 79 24  |$,2).........=y$|
00000370  0d 02 1c 04 0d 02 26 1d  dd a4 73 70 65 63 69 61  |......&...specia|
00000380  6c 5f 69 66 5f 67 65 74  28 74 74 74 65 65 65 24  |l_if_get(ttteee$|
00000390  29 0d 02 30 0b ea 20 68  24 2c 79 24 0d 02 3a 0e  |)..0.. h$,y$..:.|
000003a0  68 24 3d 74 74 74 65 65  65 24 0d 02 44 11 68 24  |h$=ttteee$..D.h$|
000003b0  3d a4 73 74 72 69 70 28  68 24 29 0d 02 4e 09 79  |=.strip(h$)..N.y|
000003c0  24 3d 22 22 0d 02 58 51  c8 95 20 a9 28 68 24 29  |$=""..XQ.. .(h$)|
000003d0  3c 3e 30 20 80 20 c1 68  24 2c 31 2c 31 29 3c 3e  |<>0 . .h$,1,1)<>|
000003e0  22 20 22 20 80 20 c1 68  24 2c 31 2c 31 29 3c 3e  |" " . .h$,1,1)<>|
000003f0  22 3d 22 20 80 20 20 c1  68 24 2c 31 2c 31 29 3c  |"=" .  .h$,1,1)<|
00000400  3e 22 3c 22 20 80 20 20  c1 68 24 2c 31 2c 31 29  |>"<" .  .h$,1,1)|
00000410  3c 3e 22 3e 22 0d 02 62  10 79 24 2b 3d c1 68 24  |<>">"..b.y$+=.h$|
00000420  2c 31 2c 31 29 0d 02 6c  0d 68 24 3d c1 68 24 2c  |,1,1)..l.h$=.h$,|
00000430  32 29 0d 02 76 05 ce 0d  02 80 07 3d 79 24 0d 02  |2)..v......=y$..|
00000440  8a 04 0d 02 94 1e dd a4  73 70 65 63 69 61 6c 5f  |........special_|
00000450  69 66 5f 72 65 73 74 28  74 74 74 65 65 65 24 29  |if_rest(ttteee$)|
00000460  0d 02 9e 0b ea 20 69 24  2c 79 24 0d 02 a8 0e 69  |..... i$,y$....i|
00000470  24 3d 74 74 74 65 65 65  24 0d 02 b2 11 69 24 3d  |$=ttteee$....i$=|
00000480  a4 73 74 72 69 70 28 69  24 29 0d 02 bc 1a 79 24  |.strip(i$)....y$|
00000490  3d a4 73 70 65 63 69 61  6c 5f 69 66 5f 67 65 74  |=.special_if_get|
000004a0  28 69 24 29 0d 02 c6 17  e7 20 a9 28 79 24 29 3d  |(i$)..... .(y$)=|
000004b0  a9 28 69 24 29 20 8c 20  3d 22 22 0d 02 d0 19 3d  |.(i$) . =""....=|
000004c0  a4 73 74 72 69 70 28 c1  69 24 2c a9 28 79 24 29  |.strip(.i$,.(y$)|
000004d0  2b 31 29 29 0d 02 da 04  0d 02 e4 16 dd a4 66 69  |+1))..........fi|
000004e0  72 73 74 65 71 28 74 74  74 65 65 65 24 29 0d 02  |rsteq(ttteee$)..|
000004f0  ee 0b ea 20 68 24 2c 79  24 0d 02 f8 0e 68 24 3d  |... h$,y$....h$=|
00000500  74 74 74 65 65 65 24 0d  03 02 11 68 24 3d a4 73  |ttteee$....h$=.s|
00000510  74 72 69 70 28 68 24 29  0d 03 0c 09 79 24 3d 22  |trip(h$)....y$="|
00000520  22 0d 03 16 1f c8 95 20  a9 28 68 24 29 3c 3e 30  |"...... .(h$)<>0|
00000530  20 80 20 c1 68 24 2c 31  2c 31 29 3c 3e 22 3d 22  | . .h$,1,1)<>"="|
00000540  0d 03 20 10 79 24 2b 3d  c1 68 24 2c 31 2c 31 29  |.. .y$+=.h$,1,1)|
00000550  0d 03 2a 0d 68 24 3d c1  68 24 2c 32 29 0d 03 34  |..*.h$=.h$,2)..4|
00000560  05 ce 0d 03 3e 07 3d 79  24 0d 03 48 04 0d 03 52  |....>.=y$..H...R|
00000570  17 dd a4 6e 6f 74 66 69  72 73 74 28 74 74 74 65  |...notfirst(ttte|
00000580  65 65 24 29 0d 03 5c 0b  ea 20 69 24 2c 79 24 0d  |ee$)..\.. i$,y$.|
00000590  03 66 0e 69 24 3d 74 74  74 65 65 65 24 0d 03 70  |.f.i$=ttteee$..p|
000005a0  11 69 24 3d a4 73 74 72  69 70 28 69 24 29 0d 03  |.i$=.strip(i$)..|
000005b0  7a 11 79 24 3d a4 66 69  72 73 74 28 69 24 29 0d  |z.y$=.first(i$).|
000005c0  03 84 17 e7 20 a9 28 79  24 29 3d a9 28 69 24 29  |.... .(y$)=.(i$)|
000005d0  20 8c 20 3d 22 22 0d 03  8e 19 3d a4 73 74 72 69  | . =""....=.stri|
000005e0  70 28 c1 69 24 2c a9 28  79 24 29 2b 31 29 29 0d  |p(.i$,.(y$)+1)).|
000005f0  03 98 04 0d 03 a2 19 dd  a4 6e 6f 74 66 69 72 73  |.........notfirs|
00000600  74 65 71 28 74 74 74 65  65 65 24 29 0d 03 ac 0b  |teq(ttteee$)....|
00000610  ea 20 69 24 2c 79 24 0d  03 b6 0e 69 24 3d 74 74  |. i$,y$....i$=tt|
00000620  74 65 65 65 24 0d 03 c0  11 69 24 3d a4 73 74 72  |teee$....i$=.str|
00000630  69 70 28 69 24 29 0d 03  ca 13 79 24 3d a4 66 69  |ip(i$)....y$=.fi|
00000640  72 73 74 65 71 28 69 24  29 0d 03 d4 17 e7 20 a9  |rsteq(i$)..... .|
00000650  28 79 24 29 3d a9 28 69  24 29 20 8c 20 3d 22 22  |(y$)=.(i$) . =""|
00000660  0d 03 de 19 3d a4 73 74  72 69 70 28 c1 69 24 2c  |....=.strip(.i$,|
00000670  a9 28 79 24 29 2b 32 29  29 0d 03 e8 04 0d 03 f2  |.(y$)+2)).......|
00000680  18 dd a4 63 6f 6d 6d 61  5f 67 65 74 28 74 74 74  |...comma_get(ttt|
00000690  65 65 65 24 29 0d 03 fc  0b ea 20 6b 24 2c 63 24  |eee$)..... k$,c$|
000006a0  0d 04 06 0e 63 24 3d 74  74 74 65 65 65 24 0d 04  |....c$=ttteee$..|
000006b0  10 2c 6b 24 3d a4 73 74  72 69 70 5f 65 6e 64 28  |.,k$=.strip_end(|
000006c0  a4 73 74 72 69 70 28 c1  63 24 2c 31 2c a7 63 24  |.strip(.c$,1,.c$|
000006d0  2c 22 2c 22 29 2d 31 29  29 29 0d 04 1a 11 e7 20  |,",")-1)))..... |
000006e0  6b 24 3d 22 22 20 8c 20  3d 63 24 0d 04 24 07 3d  |k$="" . =c$..$.=|
000006f0  6b 24 0d 04 2e 04 0d 04  38 19 dd a4 63 6f 6d 6d  |k$......8...comm|
00000700  61 5f 72 65 73 74 28 74  74 74 65 65 65 24 29 0d  |a_rest(ttteee$).|
00000710  04 42 0b ea 20 6f 24 2c  75 24 0d 04 4c 0e 75 24  |.B.. o$,u$..L.u$|
00000720  3d 74 74 74 65 65 65 24  0d 04 56 09 75 24 3d 75  |=ttteee$..V.u$=u|
00000730  24 0d 04 60 1e 6f 24 3d  a4 73 74 72 69 70 28 c1  |$..`.o$=.strip(.|
00000740  75 24 2c a7 75 24 2c 22  2c 22 29 2b 31 29 29 0d  |u$,.u$,",")+1)).|
00000750  04 6a 11 e7 20 6f 24 3d  75 24 20 8c 20 3d 22 22  |.j.. o$=u$ . =""|
00000760  0d 04 74 07 3d 6f 24 0d  04 7e 04 0d 04 88 1e dd  |..t.=o$..~......|
00000770  a4 62 72 61 63 6b 65 74  6c 65 66 74 5f 67 65 74  |.bracketleft_get|
00000780  28 74 74 74 65 65 65 24  29 0d 04 92 0b ea 20 63  |(ttteee$)..... c|
00000790  24 2c 6b 24 0d 04 9c 0e  63 24 3d 74 74 74 65 65  |$,k$....c$=tttee|
000007a0  65 24 0d 04 a6 2c 6b 24  3d a4 73 74 72 69 70 5f  |e$...,k$=.strip_|
000007b0  65 6e 64 28 a4 73 74 72  69 70 28 c1 63 24 2c 31  |end(.strip(.c$,1|
000007c0  2c a7 63 24 2c 22 28 22  29 2d 31 29 29 29 0d 04  |,.c$,"(")-1)))..|
000007d0  b0 11 e7 20 6b 24 3d 22  22 20 8c 20 3d 63 24 0d  |... k$="" . =c$.|
000007e0  04 ba 07 3d 6b 24 0d 04  c4 04 0d 04 ce 1b dd a4  |...=k$..........|
000007f0  62 72 61 63 6b 65 74 6c  65 66 74 5f 72 65 73 74  |bracketleft_rest|
00000800  28 75 6f 24 29 0d 04 d8  0b 75 6f 24 3d 75 6f 24  |(uo$)....uo$=uo$|
00000810  0d 04 e2 12 69 25 3d a7  75 6f 24 2c bd 28 34 30  |....i%=.uo$,.(40|
00000820  29 29 0d 04 ec 11 69 24  3d c1 75 6f 24 2c 69 25  |))....i$=.uo$,i%|
00000830  2b 31 29 0d 04 f6 11 6f  24 3d a4 73 74 72 69 70  |+1)....o$=.strip|
00000840  28 69 24 29 0d 05 00 12  e7 20 6f 24 3d 75 6f 24  |(i$)..... o$=uo$|
00000850  20 8c 20 3d 22 22 0d 05  0a 07 3d 6f 24 0d 05 14  | . =""....=o$...|
00000860  04 0d 05 1e 04 0d 05 28  1a dd a4 62 72 61 63 6b  |.......(...brack|
00000870  65 74 72 69 67 68 74 5f  67 65 74 28 63 24 29 0d  |etright_get(c$).|
00000880  05 32 2c 6b 24 3d a4 73  74 72 69 70 5f 65 6e 64  |.2,k$=.strip_end|
00000890  28 a4 73 74 72 69 70 28  c1 63 24 2c 31 2c a7 63  |(.strip(.c$,1,.c|
000008a0  24 2c 22 29 22 29 2d 31  29 29 29 0d 05 3c 11 e7  |$,")")-1)))..<..|
000008b0  20 6b 24 3d 22 22 20 8c  20 3d 63 24 0d 05 46 07  | k$="" . =c$..F.|
000008c0  3d 6b 24 0d 05 50 04 0d  05 5a 1b dd a4 62 72 61  |=k$..P...Z...bra|
000008d0  63 6b 65 74 72 69 67 68  74 5f 72 65 73 74 28 75  |cketright_rest(u|
000008e0  24 29 0d 05 64 09 75 24  3d 75 24 0d 05 6e 1e 6f  |$)..d.u$=u$..n.o|
000008f0  24 3d a4 73 74 72 69 70  28 c1 75 24 2c a7 75 24  |$=.strip(.u$,.u$|
00000900  2c 22 29 22 29 2b 31 29  29 0d 05 78 11 e7 20 6f  |,")")+1))..x.. o|
00000910  24 3d 75 24 20 8c 20 3d  22 22 0d 05 82 07 3d 6f  |$=u$ . =""....=o|
00000920  24 0d 05 8c 04 0d 05 96  04 0d 05 a0 09 dd a4 67  |$..............g|
00000930  65 74 0d 05 aa 0d e7 20  c5 23 4f 3d b9 20 8c 0d  |et..... .#O=. ..|
00000940  05 b4 26 f2 72 65 70 6f  72 74 28 22 55 6e 65 78  |..&.report("Unex|
00000950  70 65 63 74 65 64 20 65  6e 64 20 6f 66 20 66 69  |pected end of fi|
00000960  6c 65 2e 22 29 0d 05 be  08 3d 22 7d 22 0d 05 c8  |le.")....="}"...|
00000970  05 cc 0d 05 d2 08 3d be  23 4f 0d 05 dc 04 0d 05  |......=.#O......|
00000980  e6 11 dd a4 74 6f 75 70  70 65 72 28 47 24 29 0d  |....toupper(G$).|
00000990  05 f0 08 ea 20 49 25 0d  05 fa 09 4b 24 3d 22 22  |.... I%....K$=""|
000009a0  0d 06 04 10 e3 20 49 25  3d 31 b8 a9 28 47 24 29  |..... I%=1..(G$)|
000009b0  0d 06 0e 10 45 24 3d c1  47 24 2c 49 25 2c 31 29  |....E$=.G$,I%,1)|
000009c0  0d 06 18 2b e7 20 97 28  45 24 29 3c 31 32 33 20  |...+. .(E$)<123 |
000009d0  80 20 97 28 45 24 29 3e  39 36 20 8c 20 45 24 3d  |. .(E$)>96 . E$=|
000009e0  bd 28 97 28 45 24 29 2d  33 32 29 0d 06 22 0a 4b  |.(.(E$)-32)..".K|
000009f0  24 2b 3d 45 24 0d 06 2c  05 ed 0d 06 36 07 3d 4b  |$+=E$..,....6.=K|
00000a00  24 0d 06 40 04 0d 06 4a  1e dd a4 6b 65 79 77 6f  |$..@...J...keywo|
00000a10  72 64 5f 6c 6f 6f 6b 28  5f 5f 69 24 2c 5f 5f 5f  |rd_look(__i$,___|
00000a20  69 24 29 0d 06 54 15 ea  20 69 75 24 2c 6a 75 24  |i$)..T.. iu$,ju$|
00000a30  2c 69 70 24 2c 69 70 24  0d 06 5e 16 69 75 24 3d  |,ip$,ip$..^.iu$=|
00000a40  5f 5f 69 24 3a 6a 75 24  3d 5f 5f 5f 69 24 0d 06  |__i$:ju$=___i$..|
00000a50  68 0f c8 95 20 a9 28 69  75 24 29 3e 30 0d 06 72  |h... .(iu$)>0..r|
00000a60  14 20 69 70 24 3d a4 66  69 72 73 74 28 69 75 24  |. ip$=.first(iu$|
00000a70  29 0d 06 7c 17 20 69 75  24 3d a4 6e 6f 74 66 69  |)..|. iu$=.notfi|
00000a80  72 73 74 28 69 75 24 29  0d 06 86 0e 20 6a 75 24  |rst(iu$).... ju$|
00000a90  3d 5f 5f 5f 69 24 0d 06  90 10 20 c8 95 20 a9 28  |=___i$.... .. .(|
00000aa0  6a 75 24 29 3e 30 0d 06  9a 15 20 20 6a 70 24 3d  |ju$)>0....  jp$=|
00000ab0  a4 66 69 72 73 74 28 6a  75 24 29 0d 06 a4 18 20  |.first(ju$).... |
00000ac0  20 6a 75 24 3d a4 6e 6f  74 66 69 72 73 74 28 6a  | ju$=.notfirst(j|
00000ad0  75 24 29 0d 06 ae 28 20  20 e7 20 a4 74 6f 75 70  |u$)...(  . .toup|
00000ae0  70 65 72 28 6a 70 24 29  3d a4 74 6f 75 70 70 65  |per(jp$)=.touppe|
00000af0  72 28 69 70 24 29 20 8c  20 3d b9 0d 06 b8 06 20  |r(ip$) . =..... |
00000b00  ce 0d 06 c2 05 ce 0d 06  cc 06 3d a3 0d ff        |..........=...|
00000b0e