� Front end for David RPG 2
� (c) David Spence, 1998

(
back=7
2pos%=0:vpos%=0
<compile=-1
F
interp=-1
Pdir$=""
Znull=�running
d� � 0:� �$,�:�END
n	�init
x�END
�:
�ݤinput
�E� redraw%=� � ș "Wimp_ForceRedraw",main%,0,0,1280,1024:redraw%=�
�
IN$=""
�
end%=�
�	IN%=�
��
�ș"Wimp_Poll",,q% � reason%
�Ȏ reason% �
�
� 2:�open
�� 3:�close(!q%)
�)� 6:�click(!q%,q%!4,q%!8,q%!12,q%!16)
�� 8:�key

� 9:�selectmenu(!q%)

� 17,18:Ȏ q%!16 �

� 0:end%=�

"(� &A0071:� q%!4=interp � comp_end%=�

,,� &A0073:� q%!4=interp ��print($(q%+20))

6+� &A0077:� q%!4=interp ��SetB($(q%+20))

@+� &A0078:� q%!4=interp ��SetA($(q%+20))

J-� &A0079:� q%!4=interp ��print2($(q%+20))

T � &A007A:� q%!4=interp ��cls

^�

h�

r� end% � IN%=�

|@� end%=� � �stop_int:ș"Wimp_CloseDown",mytask%,!task% :�END

��PRINT(small$)

��set_icon(main%,1,"")

�-ș "Wimp_SetCaretPosition",main%,1,,,-1,0

�=IN$

�:

���interp_load

��SetP("Loading")

�@ș "Wimp_StartTask","<DavidRPG2$Dir>.Links.W_Interp #*"+dir$

��set_icon(main%,1,"")

�-ș "Wimp_SetCaretPosition",main%,1,,,-1,0

�E� redraw%=� � ș "Wimp_ForceRedraw",main%,0,0,1280,1024:redraw%=�

��

�
end%=�
comp_end%=�
ș"Wimp_Poll",,q% � reason%
Ȏ reason% �
&
� 2:�open
0� 3:�close(!q%)
:)� 6:�click(!q%,q%!4,q%!8,q%!12,q%!16)
D"� 8:ș "Wimp_ProcessKey",q%!24
N� 9:�selectmenu(!q%)
X� 17,18:Ȏ q%!16 �
b� 0:end%=�
l'� &A0071:� q%!4=interp �comp_end%=�
v,� &A0073:� q%!4=interp ��print($(q%+20))
�-� &A0079:� q%!4=interp ��print2($(q%+20))
�/� &A0070:� interp=-1 � interp=q%!4:�restart
� � &A007A:� q%!4=interp ��cls
�� &A0075:� q%!4=interp �
�
i$=�input
�q%!0=256
�q%!16=&A0076
�$(q%+20)=i$
�&ș "Wimp_SendMessage",17,q%,interp
��
�+� &A0077:� q%!4=interp ��SetB($(q%+20))
�+� &A0078:� q%!4=interp ��SetA($(q%+20))
��
�
� end% � comp_end%
5�stop_int:ș"Wimp_CloseDown",mytask%,!task% :�END
 �
*:
4
��restart
>�cls
Hq%!0=20
Rq%!16=&A0074
\&ș "Wimp_SendMessage",17,q%,interp
f�
p:
z� �error
�� �=(1<<31) � �jump:�END
�ș"Hourglass_Smash"
�C� �check(�$+", "+�(�)) � ș"Wimp_CloseDown",mytask%,!task%:�END
��
�:
�� �open
�ș"Wimp_OpenWindow",,q%
��
�:
�� �init
�program$="David RPG2"
�� task% 8:$task%="TASK"
�6ș"Wimp_Initialise",200,!task%,program$ � ,mytask%

end%=�
ssize%=620*220
'� q% 1000,iconmenu% &100,menu% &100
$� sprite% ssize%
.� � �error
8file$=�P
B1dir$="<davidRPG2$Dir>.Compile."+�first(file$)
Lfile$=�notfirst(file$)
V@� file$="" � �warn("Run a Game File not this program."):�END
`!sprite%=ssize%
jsprite%!4=0
tsprite%!8=16
~sprite%!12=16
�8ș "OS_SpriteOp",15+256,sprite%,"davad",0,630,216,12
�8�SYS"OS_SpriteOp",15+256,sprite%,"da",0,616,208/2,12
�7ș "Wimp_OpenTemplate",,"<DavidRPG2$Dir>.Templates"
� info%=�load_template("info")
� main%=�load_template("main")
� prog%=�load_template("prog")
�ș"Wimp_CloseTemplate"
�
redraw%=�
�
lp$=""
�Idavad%=�create_icon2("davad",main%,0,-864,1238,0,&77002102,sprite%,0)
�>myicon%=�create_icon2("!davidrpg2",-1,0,0,68,68,&2102,1,0)
�3�crmenu(iconmenu%,"DavidRPG2,Info>,info%,Quit")
iconitems%=items%

2�crmenu(menu%,"DavidRPG2,Info>,prog%,Restart")
� � �error
�compile
(�LOADINI
2�interp_load
<�
F:
P
��compile
Z�SetP("Compiling")
dHș "Wimp_StartTask","<DavidRPG2$Dir>.Links.W_Comp #*"+dir$+" "+file$
n�crwindow(main%)
x�set_icon(main%,1,"")
�-ș "Wimp_SetCaretPosition",main%,1,,,-1,0
�E� redraw%=� � ș "Wimp_ForceRedraw",main%,0,0,1280,1024:redraw%=�
��
�
end%=�
�comp_end%=�
�ș"Wimp_Poll",,q% � reason%
�Ȏ reason% �
�
� 2:�open
�� 3:�close(!q%)
�1� 6:�click_compile(!q%,q%!4,q%!8,q%!12,q%!16)
�"� 8:ș "Wimp_ProcessKey",q%!24
� � 9:�selectmenu_compile(!q%)
�� 17,18:Ȏ q%!16 �
� 0:end%=�
(� &A0070:� compile=-1 � compile=q%!4
(� &A0071:� q%!4=compile �comp_end%=�
"-� &A0073:� q%!4=compile ��print($(q%+20))
,.� &A0079:� q%!4=compile ��print2($(q%+20))
6!� &A007A:� q%!4=compile ��cls
@�
J�
T� end% � comp_end%
^A� end%=� � �stop_comp:ș"Wimp_CloseDown",mytask%,!task% :�END
h
end%=�
r�
|:
���stop_comp
�q%!0=20
�q%!16=&A0072
�'ș "Wimp_SendMessage",17,q%,compile
��
�
���stop_int
�q%!0=20
�q%!16=&A0072
�&ș "Wimp_SendMessage",17,q%,interp
��
�
�:
ݤstrip(ttteee$)
� o$
o$=ttteee$
&ȕ �o$,1,1)=" " � �(o$)<>0
0
o$=�o$,2)
:�
D=o$
N
Xݤfirst(ttteee$)
b� h$,y$
lh$=ttteee$
vh$=�strip(h$)
�	y$=""
�ȕ �(h$)<>0 � �h$,1,1)<>" "
�y$+=�h$,1,1)
�
h$=�h$,2)
��
�=y$
�
�ݤnotfirst(ttteee$)
�� i$,y$
�i$=ttteee$
�i$=�strip(i$)
�y$=�first(i$)
�� �(y$)=�(i$) � =""
=�strip(�i$,�(y$)+1))


 
��LOADINI
*O=�(dir$+".Setup")
4� O=0 � �:� "QUIT"=�input
>
namey$=""
Hadvent$=""
Rauthor$=""
\vers$=""
f�
p
I$=�#O
z5� ��first(I$),"name")=1 � namey$= �I$,�I$,"=")+1)
�;� ��first(I$),"adventure")=1 � advent$= �I$,�I$,"=")+1)
�8� ��first(I$),"author")=1 � author$= �I$,�I$,"=")+1)
�7� ��first(I$),"version")=1 � vers$= �I$,�I$,"=")+1)
�	� �#O
��#O
��set_icon(prog%,1,namey$)
��set_icon(prog%,2,advent$)
��set_icon(prog%,3,author$)
��set_icon(prog%,0,vers$)
��
�:
�� �selectmenu(item%)
�ș"Wimp_CreateMenu",,-1
	!� open%=-2 � item%=1 � end%=�
	&� open%=main% � item%=1 � �restart
	�
	$:
	. � �selectmenu_compile(item%)
	8ș"Wimp_CreateMenu",,-1
	B!� open%=-2 � item%=1 � end%=�
	L�
	V:
	`
	j+� �click(mx%,my%,button%,window%,icon%)
	tȎ window% �
	~	� -2:
	� Ȏ button% �
	� � 4:�crwindow(main%)
	�3 � 2:�openmenu(iconmenu%,mx%,100+44*iconitems%)
	� �
	�� main%:
	� Ȏ button% �
	�! � 2:�openmenu(menu%,mx%,my%)
	� � 1,4:
	�  Ȏ icon% �
	�   � 5:IN$=�get_icon(main%,1)
	�  IN%=�
	�  �TOUPPer
.  � IN$="RESTART" � IN$="RESET" � �restart

4  � IN$="QUIT" � IN$="END" � IN$="STOP" � end%=�
  � 4:�restart
  �
( �
2�
<�
F:
P
Z3� �click_compile(mx%,my%,button%,window%,icon%)
dȎ window% �
n	� -2:
x Ȏ button% �
� � 4:�crwindow(main%)
�3 � 2:�openmenu(iconmenu%,mx%,100+44*iconitems%)
� �
�� main%:
� Ȏ button% �
�! � 2:�openmenu(menu%,mx%,my%)
� �
��
��
�:
�
�
�	��key
� (q%!24)=13 �

Ȏ q%!0 �
� main%:
"IN$=�get_icon(main%,1)
,	IN%=�
6�TOUPPer
@,� IN$="RESTART" � IN$="RESET" � �restart
J2� IN$="QUIT" � IN$="END" � IN$="STOP" � end%=�
T�
^�
hș "Wimp_ProcessKey",q%!24
r�
|�
�
�
�
�
�� �crmenu(menu%,data$)
�data$+=","
�title$=�next(data$)
�max%=�title$-2
�$menu%=title$
�menu%!12=&70207
�menu%!20=44
�menu%!24=0
�m%=menu%+4
items%=0
�
item$=�next(data$)
&� item$<>"" �
0
m%+=24
:
items%+=1
D� �op(">") �
Nwin$=�next(data$)
X� win$="" � �
bwin%=�(win$)
l�
v
win%=0
��
�	!m%=0
�
m%!4=win%
��m%!8=7<<24 OR %11001
�m%!8=7<<24 � &21
�%� �op("/") � !m%=!m% � 1:tick%=m%
�� �op("#") � !m%=!m% � 2
�� �op("!") �
�m%!12=�(item$)
�m%!16=-1
�c%=�(�next(data$))
�� c%-1>max% � max%=c%-1
�m%!20=c%

!m%=!m% � 4

m%!8=m%!8 � 2^8

�

 $(m%+12)=item$

*�

4�

>!m%=!m% � &80

H�

R#� �(item$)>max% � max%=�(item$)

\� item$=""

fmenu%!16=max%*16+16

p�

z

�
� �op(c$)

�f%=�

�� �item$,1)=c$ �

�f%=�

�item$=�item$,�item$-1)

��

�=f%

�

�� �next(� data$)

�� data$>"" �

�st$=�data$,�data$,",")-1)

�data$=�data$,�st$+2)

��

st$=""
�
=st$
$
.��GOR(WHH%,� X%,� Y%)
8� C%
B
C%=q%+800
L!C%=WHH%
V ș "Wimp_GetWindowState",,C%
` X%=C%!4-C%!20:Y%=C%!16-C%!24
j�
t
~	��cls
�8ș"OS_SpriteOp",60+256,sprite%,"davad" � r0,r1,r2,r3
�� 128+back
�� �pos%,vpos%);" "
�� I%=0� 34
��
��
�vpos%=�
�
pos%=�
�ș"OS_SpriteOp",r0,r1,r2,r3
�3�set_icon(main%,davad%,�get_icon(main%,davad%))
��
�

��cls1


� I%=0�34
�print("")
�
(�
2
<��print(string$)
F8ș"OS_SpriteOp",60+256,sprite%,"davad" � r0,r1,r2,r3
P� 128+back
Z� vpos%=0 � pos%=0 � �
d� 13
n� �pos%,vpos%);string$
xvpos%=�
�
pos%=�
�ș"OS_SpriteOp",r0,r1,r2,r3
�3�set_icon(main%,davad%,�get_icon(main%,davad%))
��
�:
���print2(string$)
�8ș"OS_SpriteOp",60+256,sprite%,"davad" � r0,r1,r2,r3
�� 128+back
�� vpos%=0 � pos%=0 � �
�� 15
�� �pos%,vpos%);string$
�vpos%=�
�
pos%=�
ș"OS_SpriteOp",r0,r1,r2,r3
3�set_icon(main%,davad%,�get_icon(main%,davad%))
�
":
,��GOR(WHH%,� X%,� Y%)
6� C%
@
C%=q%+800
J!C%=WHH%
T ș "Wimp_GetWindowState",,C%
^ X%=C%!4-C%!20:Y%=C%!16-C%!24
h�
r:
|��SetA(A$)
��set_icon(main%,3,A$)
��
�:
���SetB(B$)
�q%!0=main%
�ș "Wimp_GetWindowInfo",,q%
�3� ((q%!60)�&100)=0 � 1,"Title isn't indirected"
�;$(q%!76)="David Role Playing Game 2 - "+namey$+" - "+B$
��redraw_title
��
�:
���SetP(B$)
�
�SetA(B$)
q%!0=main%
ș "Wimp_GetWindowInfo",,q%
3� ((q%!60)�&100)=0 � 1,"Title isn't indirected"
&.$(q%!76)="David Role Playing Game 2 - "+B$
0�redraw_title
:�
D:
N��PRINT(string$)
X8ș"OS_SpriteOp",60+256,sprite%,"davad" � r0,r1,r2,r3
b� 128+back
l� vpos%=0 � pos%=0 � �
v� 11
�� �pos%,vpos%);string$
�vpos%=�
�
pos%=�
�ș"OS_SpriteOp",r0,r1,r2,r3
�3�set_icon(main%,davad%,�get_icon(main%,davad%))
��
�:
���redraw_title
�
!q%=main%
�"ș "Wimp_GetWindowOutline",,q%
�xmax%=q%!12
�ymax%=q%!16
� ș "Wimp_GetWindowState",,q%
� (q%!32 � (1<<16)) �
5  ș "Wimp_ForceRedraw",-1,q%!4,q%!16,xmax%,ymax%
�
 �
*:
4��term(p%)
>	� AP%
Hȕ ?(p%+AP%) > 31
R
AP%+=1
\�
f
p%?AP%=13
p�
z:
�
��TOUPPer
�
G$=IN$
�small$=IN$
�	K$=""
�� I%=1��(G$)
�E$=�G$,I%,1)
�+� �(E$)<123 � �(E$)>96 � E$=�(�(E$)-32)
�
K$+=E$
��
�
IN$=K$
��
�:
�� �openmenu(data%,mx%,my%)
open%=window%
3ș"Wimp_CreateMenu",,data%,mx%-(menu%!16)/2,my%
�
$:
.� �crwindow(window%)
8!q%=window%
Bș"Wimp_GetWindowState",,q%
Lq%!28=-1
Vș"Wimp_OpenWindow",,q%
`�
j:
t� �load_template(window$)
~maxws%=&200
�� ws% maxws%
�wsend%=ws%+maxws%
�;ș"Wimp_LoadTemplate",,q%,ws%,wsend%,-1,window$,0 � ws%
�'ș"Wimp_CreateWindow",,q% � window%
�=window%
�:
�
� �st(p%)
�inc%=p%
�� s$
�	s$=""
�
ȕ ?p%>31
�s$+=�(?p%)
	p%+=1

�
inc%=(p%-inc%)+1
=s$
(:
2� �close(window%)
<!q%=window%
Fș"Wimp_CloseWindow",,q%
P�
Z:
d��deleteicon(window%,icon%)
n!q%=window%
xq%!4=icon%
�ș "Wimp_DeleteIcon",,q%
��
�:
�G� �create_icon(old%,name$,window%,x%,y%,w%,h%,flags%,handle%,name%)
�!q%=window%
�
q%!4=old%
�ș "Wimp_DeleteIcon",,q%
�len%=�name$
�!q%=window%
�q%!4=x%
�q%!8=y%
�q%!12=w%
�q%!16=h%
q%!20=flags%
*� name%=� � � q%!24 len% � q%!24=name%
$(q%!24)=name$
"q%!28=handle%
,q%!32=len%
6#ș"Wimp_CreateIcon",,q% � icon%
@7o$=�(icon%)+" "+�(x%)+" "+�(y%)+" "+�(w%)+" "+�(h%)
J�ERROR 0,o$
T
=icon%
^:
hC� �create_icon2(name$,window%,x%,y%,w%,h%,flags%,handle%,name%)
rlen%=�name$
|!q%=window%
�q%!4=x%
�q%!8=y%
�q%!12=w%
�q%!16=h%
�q%!20=flags%
�*� name%=� � � q%!24 len% � q%!24=name%
�$(q%!24)=name$
�q%!28=handle%
�q%!32=len%
�#ș"Wimp_CreateIcon",,q% � icon%
�
=icon%
�:
�� �info(window%)
!q%=window%
ș"Wimp_GetWindowInfo",,q%
height%=q%!16-q%!8
&width%=q%!12-q%!4
0�
::
D
N� �get_icon(window%,icon%)
X!q%=window%
bq%!4=icon%
lș"Wimp_GetIconState",,q%
vi$=$(q%!28)
�=i$
�:
�$� �set_icon(window%,icon%,name$)
�� p%
�
p%=q%+900
�!p%=window%
�p%!4=icon%
�ș"Wimp_GetIconState",,p%
�$p%!28=name$
�
p%!8=0
�p%!12=0
�ș"Wimp_SetIconState",,p%
��
:
� �warn(text$)
ș"Wimp_DragBox",,0
 	!q%=0
*$(q%+4)=text$+�0
4&ș"Wimp_ReportError",q%,1,program$
>�
H:
R� �check(text$)
\ș"Wimp_DragBox",,0
f	!q%=0
p$(q%+4)=text$+�0
zBș"Wimp_ReportError",q%,19,"Message from "+program$ � ,answer%
�� answer%=1 � =� � =�
�:
�� �open(window%)
�!q%=window%
�ș"Wimp_GetWindowState",,q%
�q%!28=-1
�ș"Wimp_OpenWindow",,q%
��
�:
�� �P
�� COMANDS$,PRAMS$,I%
�ș "OS_GetEnv" � COMANDS$
�
PRAMS$=""
I%=�COMANDS$," -quit ")
;� I% � PRAMS$=�COMANDS$,�COMANDS$," ",I%+�" -quit ")+1)
(�IF INSTR(PRAMS$,"<")>0 THEN PROCyyy
$=PRAMS$
.:
8	��yyy
BP$=�PRAMS$,�PRAMS$,">"))
Lll$=�PRAMS$,�PRAMS$,">")-1)
VP$= �P$,�(P$)-1)
`P$= �P$,�(P$)-1)
j PRAMS$=�ReadVariable(P$)+ll$
t�
~:
�ݤReadVariable(Variable$)
��len%,result%,variable%
�$q%=Variable$
�-ș"OS_ReadVarVal",q%,q%+255,255,,3�,,len%
�q%?(len%+255)=13
�=$(q%+255)
�:
�
ݤrunning
�=�
�
� b 30
�	num=0
��
2ș "TaskManager_EnumerateTasks",num,b,30 � num

� num<0 � =�
char=b!4-1
	t$=""
(
� char+=1
2!� (?char)>31 � t$=t$+�(?char)
<� (?char)<32
FF� t$="David RPG2" � � 1,"David RPG is Already Running. Sorry":�END
P� num<0
Z=�
d
n	��END
x,ș "XOS_CLI","Wipe "+dir$+".*  ~C~F~R~V"
�ș "XOS_CLI","Delete "+dir$
��
�

00000000  0d 00 0a 1f f4 20 46 72  6f 6e 74 20 65 6e 64 20  |..... Front end |
00000010  66 6f 72 20 44 61 76 69  64 20 52 50 47 20 32 0d  |for David RPG 2.|
00000020  00 14 1c f4 20 28 63 29  20 44 61 76 69 64 20 53  |.... (c) David S|
00000030  70 65 6e 63 65 2c 20 31  39 39 38 0d 00 1e 04 0d  |pence, 1998.....|
00000040  00 28 0a 62 61 63 6b 3d  37 0d 00 32 12 70 6f 73  |.(.back=7..2.pos|
00000050  25 3d 30 3a 76 70 6f 73  25 3d 30 0d 00 3c 0e 63  |%=0:vpos%=0..<.c|
00000060  6f 6d 70 69 6c 65 3d 2d  31 0d 00 46 0d 69 6e 74  |ompile=-1..F.int|
00000070  65 72 70 3d 2d 31 0d 00  50 0b 64 69 72 24 3d 22  |erp=-1..P.dir$="|
00000080  22 0d 00 5a 11 6e 75 6c  6c 3d a4 72 75 6e 6e 69  |"..Z.null=.runni|
00000090  6e 67 0d 00 64 16 ee 85  20 eb 20 30 3a f1 20 f6  |ng..d... . 0:. .|
000000a0  24 2c 9e 3a f2 45 4e 44  0d 00 6e 09 f2 69 6e 69  |$,.:.END..n..ini|
000000b0  74 0d 00 78 08 f2 45 4e  44 0d 00 82 05 3a 0d 00  |t..x..END....:..|
000000c0  8c 0b dd a4 69 6e 70 75  74 0d 00 96 45 e7 20 72  |....input...E. r|
000000d0  65 64 72 61 77 25 3d b9  20 8c 20 c8 99 20 22 57  |edraw%=. . .. "W|
000000e0  69 6d 70 5f 46 6f 72 63  65 52 65 64 72 61 77 22  |imp_ForceRedraw"|
000000f0  2c 6d 61 69 6e 25 2c 30  2c 30 2c 31 32 38 30 2c  |,main%,0,0,1280,|
00000100  31 30 32 34 3a 72 65 64  72 61 77 25 3d a3 0d 00  |1024:redraw%=...|
00000110  a0 0a 49 4e 24 3d 22 22  0d 00 aa 0a 65 6e 64 25  |..IN$=""....end%|
00000120  3d a3 0d 00 b4 09 49 4e  25 3d a3 0d 00 be 05 f5  |=.....IN%=......|
00000130  0d 00 c8 1f c8 99 22 57  69 6d 70 5f 50 6f 6c 6c  |......"Wimp_Poll|
00000140  22 2c 2c 71 25 20 b8 20  72 65 61 73 6f 6e 25 0d  |",,q% . reason%.|
00000150  00 d2 10 c8 8e 20 72 65  61 73 6f 6e 25 20 ca 0d  |..... reason% ..|
00000160  00 dc 0d c9 20 32 3a f2  6f 70 65 6e 0d 00 e6 13  |.... 2:.open....|
00000170  c9 20 33 3a f2 63 6c 6f  73 65 28 21 71 25 29 0d  |. 3:.close(!q%).|
00000180  00 f0 29 c9 20 36 3a f2  63 6c 69 63 6b 28 21 71  |..). 6:.click(!q|
00000190  25 2c 71 25 21 34 2c 71  25 21 38 2c 71 25 21 31  |%,q%!4,q%!8,q%!1|
000001a0  32 2c 71 25 21 31 36 29  0d 00 fa 0c c9 20 38 3a  |2,q%!16)..... 8:|
000001b0  f2 6b 65 79 0d 01 04 18  c9 20 39 3a f2 73 65 6c  |.key..... 9:.sel|
000001c0  65 63 74 6d 65 6e 75 28  21 71 25 29 0d 01 0e 16  |ectmenu(!q%)....|
000001d0  c9 20 31 37 2c 31 38 3a  c8 8e 20 71 25 21 31 36  |. 17,18:.. q%!16|
000001e0  20 ca 0d 01 18 0e c9 20  30 3a 65 6e 64 25 3d b9  | ...... 0:end%=.|
000001f0  0d 01 22 28 c9 20 26 41  30 30 37 31 3a e7 20 71  |.."(. &A0071:. q|
00000200  25 21 34 3d 69 6e 74 65  72 70 20 8c 20 63 6f 6d  |%!4=interp . com|
00000210  70 5f 65 6e 64 25 3d b9  0d 01 2c 2c c9 20 26 41  |p_end%=...,,. &A|
00000220  30 30 37 33 3a e7 20 71  25 21 34 3d 69 6e 74 65  |0073:. q%!4=inte|
00000230  72 70 20 8c f2 70 72 69  6e 74 28 24 28 71 25 2b  |rp ..print($(q%+|
00000240  32 30 29 29 0d 01 36 2b  c9 20 26 41 30 30 37 37  |20))..6+. &A0077|
00000250  3a e7 20 71 25 21 34 3d  69 6e 74 65 72 70 20 8c  |:. q%!4=interp .|
00000260  f2 53 65 74 42 28 24 28  71 25 2b 32 30 29 29 0d  |.SetB($(q%+20)).|
00000270  01 40 2b c9 20 26 41 30  30 37 38 3a e7 20 71 25  |.@+. &A0078:. q%|
00000280  21 34 3d 69 6e 74 65 72  70 20 8c f2 53 65 74 41  |!4=interp ..SetA|
00000290  28 24 28 71 25 2b 32 30  29 29 0d 01 4a 2d c9 20  |($(q%+20))..J-. |
000002a0  26 41 30 30 37 39 3a e7  20 71 25 21 34 3d 69 6e  |&A0079:. q%!4=in|
000002b0  74 65 72 70 20 8c f2 70  72 69 6e 74 32 28 24 28  |terp ..print2($(|
000002c0  71 25 2b 32 30 29 29 0d  01 54 20 c9 20 26 41 30  |q%+20))..T . &A0|
000002d0  30 37 41 3a e7 20 71 25  21 34 3d 69 6e 74 65 72  |07A:. q%!4=inter|
000002e0  70 20 8c f2 63 6c 73 0d  01 5e 05 cb 0d 01 68 05  |p ..cls..^....h.|
000002f0  cb 0d 01 72 12 fd 20 65  6e 64 25 20 84 20 49 4e  |...r.. end% . IN|
00000300  25 3d b9 0d 01 7c 40 e7  20 65 6e 64 25 3d b9 20  |%=...|@. end%=. |
00000310  8c 20 f2 73 74 6f 70 5f  69 6e 74 3a c8 99 22 57  |. .stop_int:.."W|
00000320  69 6d 70 5f 43 6c 6f 73  65 44 6f 77 6e 22 2c 6d  |imp_CloseDown",m|
00000330  79 74 61 73 6b 25 2c 21  74 61 73 6b 25 20 3a f2  |ytask%,!task% :.|
00000340  45 4e 44 0d 01 86 12 f2  50 52 49 4e 54 28 73 6d  |END.....PRINT(sm|
00000350  61 6c 6c 24 29 0d 01 90  19 f2 73 65 74 5f 69 63  |all$).....set_ic|
00000360  6f 6e 28 6d 61 69 6e 25  2c 31 2c 22 22 29 0d 01  |on(main%,1,"")..|
00000370  9a 2d c8 99 20 22 57 69  6d 70 5f 53 65 74 43 61  |.-.. "Wimp_SetCa|
00000380  72 65 74 50 6f 73 69 74  69 6f 6e 22 2c 6d 61 69  |retPosition",mai|
00000390  6e 25 2c 31 2c 2c 2c 2d  31 2c 30 0d 01 a4 08 3d  |n%,1,,,-1,0....=|
000003a0  49 4e 24 0d 01 ae 05 3a  0d 01 b8 11 dd f2 69 6e  |IN$....:......in|
000003b0  74 65 72 70 5f 6c 6f 61  64 0d 01 c2 14 f2 53 65  |terp_load.....Se|
000003c0  74 50 28 22 4c 6f 61 64  69 6e 67 22 29 0d 01 cc  |tP("Loading")...|
000003d0  40 c8 99 20 22 57 69 6d  70 5f 53 74 61 72 74 54  |@.. "Wimp_StartT|
000003e0  61 73 6b 22 2c 22 3c 44  61 76 69 64 52 50 47 32  |ask","<DavidRPG2|
000003f0  24 44 69 72 3e 2e 4c 69  6e 6b 73 2e 57 5f 49 6e  |$Dir>.Links.W_In|
00000400  74 65 72 70 20 23 2a 22  2b 64 69 72 24 0d 01 d6  |terp #*"+dir$...|
00000410  19 f2 73 65 74 5f 69 63  6f 6e 28 6d 61 69 6e 25  |..set_icon(main%|
00000420  2c 31 2c 22 22 29 0d 01  e0 2d c8 99 20 22 57 69  |,1,"")...-.. "Wi|
00000430  6d 70 5f 53 65 74 43 61  72 65 74 50 6f 73 69 74  |mp_SetCaretPosit|
00000440  69 6f 6e 22 2c 6d 61 69  6e 25 2c 31 2c 2c 2c 2d  |ion",main%,1,,,-|
00000450  31 2c 30 0d 01 ea 45 e7  20 72 65 64 72 61 77 25  |1,0...E. redraw%|
00000460  3d b9 20 8c 20 c8 99 20  22 57 69 6d 70 5f 46 6f  |=. . .. "Wimp_Fo|
00000470  72 63 65 52 65 64 72 61  77 22 2c 6d 61 69 6e 25  |rceRedraw",main%|
00000480  2c 30 2c 30 2c 31 32 38  30 2c 31 30 32 34 3a 72  |,0,0,1280,1024:r|
00000490  65 64 72 61 77 25 3d a3  0d 01 f4 05 f5 0d 01 fe  |edraw%=.........|
000004a0  0a 65 6e 64 25 3d a3 0d  02 08 0f 63 6f 6d 70 5f  |.end%=.....comp_|
000004b0  65 6e 64 25 3d a3 0d 02  12 1f c8 99 22 57 69 6d  |end%=......."Wim|
000004c0  70 5f 50 6f 6c 6c 22 2c  2c 71 25 20 b8 20 72 65  |p_Poll",,q% . re|
000004d0  61 73 6f 6e 25 0d 02 1c  10 c8 8e 20 72 65 61 73  |ason%...... reas|
000004e0  6f 6e 25 20 ca 0d 02 26  0d c9 20 32 3a f2 6f 70  |on% ...&.. 2:.op|
000004f0  65 6e 0d 02 30 13 c9 20  33 3a f2 63 6c 6f 73 65  |en..0.. 3:.close|
00000500  28 21 71 25 29 0d 02 3a  29 c9 20 36 3a f2 63 6c  |(!q%)..:). 6:.cl|
00000510  69 63 6b 28 21 71 25 2c  71 25 21 34 2c 71 25 21  |ick(!q%,q%!4,q%!|
00000520  38 2c 71 25 21 31 32 2c  71 25 21 31 36 29 0d 02  |8,q%!12,q%!16)..|
00000530  44 22 c9 20 38 3a c8 99  20 22 57 69 6d 70 5f 50  |D". 8:.. "Wimp_P|
00000540  72 6f 63 65 73 73 4b 65  79 22 2c 71 25 21 32 34  |rocessKey",q%!24|
00000550  0d 02 4e 18 c9 20 39 3a  f2 73 65 6c 65 63 74 6d  |..N.. 9:.selectm|
00000560  65 6e 75 28 21 71 25 29  0d 02 58 16 c9 20 31 37  |enu(!q%)..X.. 17|
00000570  2c 31 38 3a c8 8e 20 71  25 21 31 36 20 ca 0d 02  |,18:.. q%!16 ...|
00000580  62 0e c9 20 30 3a 65 6e  64 25 3d b9 0d 02 6c 27  |b.. 0:end%=...l'|
00000590  c9 20 26 41 30 30 37 31  3a e7 20 71 25 21 34 3d  |. &A0071:. q%!4=|
000005a0  69 6e 74 65 72 70 20 8c  63 6f 6d 70 5f 65 6e 64  |interp .comp_end|
000005b0  25 3d b9 0d 02 76 2c c9  20 26 41 30 30 37 33 3a  |%=...v,. &A0073:|
000005c0  e7 20 71 25 21 34 3d 69  6e 74 65 72 70 20 8c f2  |. q%!4=interp ..|
000005d0  70 72 69 6e 74 28 24 28  71 25 2b 32 30 29 29 0d  |print($(q%+20)).|
000005e0  02 80 2d c9 20 26 41 30  30 37 39 3a e7 20 71 25  |..-. &A0079:. q%|
000005f0  21 34 3d 69 6e 74 65 72  70 20 8c f2 70 72 69 6e  |!4=interp ..prin|
00000600  74 32 28 24 28 71 25 2b  32 30 29 29 0d 02 8a 2f  |t2($(q%+20)).../|
00000610  c9 20 26 41 30 30 37 30  3a e7 20 69 6e 74 65 72  |. &A0070:. inter|
00000620  70 3d 2d 31 20 8c 20 69  6e 74 65 72 70 3d 71 25  |p=-1 . interp=q%|
00000630  21 34 3a f2 72 65 73 74  61 72 74 0d 02 94 20 c9  |!4:.restart... .|
00000640  20 26 41 30 30 37 41 3a  e7 20 71 25 21 34 3d 69  | &A007A:. q%!4=i|
00000650  6e 74 65 72 70 20 8c f2  63 6c 73 0d 02 9e 1c c9  |nterp ..cls.....|
00000660  20 26 41 30 30 37 35 3a  e7 20 71 25 21 34 3d 69  | &A0075:. q%!4=i|
00000670  6e 74 65 72 70 20 8c 0d  02 a8 0d 69 24 3d a4 69  |nterp .....i$=.i|
00000680  6e 70 75 74 0d 02 b2 0c  71 25 21 30 3d 32 35 36  |nput....q%!0=256|
00000690  0d 02 bc 10 71 25 21 31  36 3d 26 41 30 30 37 36  |....q%!16=&A0076|
000006a0  0d 02 c6 0f 24 28 71 25  2b 32 30 29 3d 69 24 0d  |....$(q%+20)=i$.|
000006b0  02 d0 26 c8 99 20 22 57  69 6d 70 5f 53 65 6e 64  |..&.. "Wimp_Send|
000006c0  4d 65 73 73 61 67 65 22  2c 31 37 2c 71 25 2c 69  |Message",17,q%,i|
000006d0  6e 74 65 72 70 0d 02 da  05 cd 0d 02 e4 2b c9 20  |nterp........+. |
000006e0  26 41 30 30 37 37 3a e7  20 71 25 21 34 3d 69 6e  |&A0077:. q%!4=in|
000006f0  74 65 72 70 20 8c f2 53  65 74 42 28 24 28 71 25  |terp ..SetB($(q%|
00000700  2b 32 30 29 29 0d 02 ee  2b c9 20 26 41 30 30 37  |+20))...+. &A007|
00000710  38 3a e7 20 71 25 21 34  3d 69 6e 74 65 72 70 20  |8:. q%!4=interp |
00000720  8c f2 53 65 74 41 28 24  28 71 25 2b 32 30 29 29  |..SetA($(q%+20))|
00000730  0d 02 f8 05 cb 0d 03 02  05 cb 0d 03 0c 16 fd 20  |............... |
00000740  65 6e 64 25 20 84 20 63  6f 6d 70 5f 65 6e 64 25  |end% . comp_end%|
00000750  0d 03 16 35 f2 73 74 6f  70 5f 69 6e 74 3a c8 99  |...5.stop_int:..|
00000760  22 57 69 6d 70 5f 43 6c  6f 73 65 44 6f 77 6e 22  |"Wimp_CloseDown"|
00000770  2c 6d 79 74 61 73 6b 25  2c 21 74 61 73 6b 25 20  |,mytask%,!task% |
00000780  3a f2 45 4e 44 0d 03 20  05 e1 0d 03 2a 05 3a 0d  |:.END.. ....*.:.|
00000790  03 34 0d dd f2 72 65 73  74 61 72 74 0d 03 3e 08  |.4...restart..>.|
000007a0  f2 63 6c 73 0d 03 48 0b  71 25 21 30 3d 32 30 0d  |.cls..H.q%!0=20.|
000007b0  03 52 10 71 25 21 31 36  3d 26 41 30 30 37 34 0d  |.R.q%!16=&A0074.|
000007c0  03 5c 26 c8 99 20 22 57  69 6d 70 5f 53 65 6e 64  |.\&.. "Wimp_Send|
000007d0  4d 65 73 73 61 67 65 22  2c 31 37 2c 71 25 2c 69  |Message",17,q%,i|
000007e0  6e 74 65 72 70 0d 03 66  05 e1 0d 03 70 05 3a 0d  |nterp..f....p.:.|
000007f0  03 7a 0c dd 20 f2 65 72  72 6f 72 0d 03 84 1c e7  |.z.. .error.....|
00000800  20 9f 3d 28 31 3c 3c 33  31 29 20 8c 20 f2 6a 75  | .=(1<<31) . .ju|
00000810  6d 70 3a f2 45 4e 44 0d  03 8e 17 c8 99 22 48 6f  |mp:.END......"Ho|
00000820  75 72 67 6c 61 73 73 5f  53 6d 61 73 68 22 0d 03  |urglass_Smash"..|
00000830  98 43 e7 20 a4 63 68 65  63 6b 28 f6 24 2b 22 2c  |.C. .check(.$+",|
00000840  20 22 2b c3 28 9e 29 29  20 8c 20 c8 99 22 57 69  | "+.(.)) . .."Wi|
00000850  6d 70 5f 43 6c 6f 73 65  44 6f 77 6e 22 2c 6d 79  |mp_CloseDown",my|
00000860  74 61 73 6b 25 2c 21 74  61 73 6b 25 3a f2 45 4e  |task%,!task%:.EN|
00000870  44 0d 03 a2 05 e1 0d 03  ac 05 3a 0d 03 b6 0b dd  |D.........:.....|
00000880  20 f2 6f 70 65 6e 0d 03  c0 1b c8 99 22 57 69 6d  | .open......"Wim|
00000890  70 5f 4f 70 65 6e 57 69  6e 64 6f 77 22 2c 2c 71  |p_OpenWindow",,q|
000008a0  25 0d 03 ca 05 e1 0d 03  d4 05 3a 0d 03 de 0b dd  |%.........:.....|
000008b0  20 f2 69 6e 69 74 0d 03  e8 19 70 72 6f 67 72 61  | .init....progra|
000008c0  6d 24 3d 22 44 61 76 69  64 20 52 50 47 32 22 0d  |m$="David RPG2".|
000008d0  03 f2 1b de 20 74 61 73  6b 25 20 38 3a 24 74 61  |.... task% 8:$ta|
000008e0  73 6b 25 3d 22 54 41 53  4b 22 0d 03 fc 36 c8 99  |sk%="TASK"...6..|
000008f0  22 57 69 6d 70 5f 49 6e  69 74 69 61 6c 69 73 65  |"Wimp_Initialise|
00000900  22 2c 32 30 30 2c 21 74  61 73 6b 25 2c 70 72 6f  |",200,!task%,pro|
00000910  67 72 61 6d 24 20 b8 20  2c 6d 79 74 61 73 6b 25  |gram$ . ,mytask%|
00000920  0d 04 06 0a 65 6e 64 25  3d a3 0d 04 10 12 73 73  |....end%=.....ss|
00000930  69 7a 65 25 3d 36 32 30  2a 32 32 30 0d 04 1a 27  |ize%=620*220...'|
00000940  de 20 71 25 20 31 30 30  30 2c 69 63 6f 6e 6d 65  |. q% 1000,iconme|
00000950  6e 75 25 20 26 31 30 30  2c 6d 65 6e 75 25 20 26  |nu% &100,menu% &|
00000960  31 30 30 0d 04 24 14 de  20 73 70 72 69 74 65 25  |100..$.. sprite%|
00000970  20 73 73 69 7a 65 25 0d  04 2e 0e ee 20 85 20 f2  | ssize%..... . .|
00000980  65 72 72 6f 72 0d 04 38  0c 66 69 6c 65 24 3d a4  |error..8.file$=.|
00000990  50 0d 04 42 31 64 69 72  24 3d 22 3c 64 61 76 69  |P..B1dir$="<davi|
000009a0  64 52 50 47 32 24 44 69  72 3e 2e 43 6f 6d 70 69  |dRPG2$Dir>.Compi|
000009b0  6c 65 2e 22 2b a4 66 69  72 73 74 28 66 69 6c 65  |le."+.first(file|
000009c0  24 29 0d 04 4c 1a 66 69  6c 65 24 3d a4 6e 6f 74  |$)..L.file$=.not|
000009d0  66 69 72 73 74 28 66 69  6c 65 24 29 0d 04 56 40  |first(file$)..V@|
000009e0  e7 20 66 69 6c 65 24 3d  22 22 20 8c 20 f2 77 61  |. file$="" . .wa|
000009f0  72 6e 28 22 52 75 6e 20  61 20 47 61 6d 65 20 46  |rn("Run a Game F|
00000a00  69 6c 65 20 6e 6f 74 20  74 68 69 73 20 70 72 6f  |ile not this pro|
00000a10  67 72 61 6d 2e 22 29 3a  f2 45 4e 44 0d 04 60 13  |gram."):.END..`.|
00000a20  21 73 70 72 69 74 65 25  3d 73 73 69 7a 65 25 0d  |!sprite%=ssize%.|
00000a30  04 6a 0f 73 70 72 69 74  65 25 21 34 3d 30 0d 04  |.j.sprite%!4=0..|
00000a40  74 10 73 70 72 69 74 65  25 21 38 3d 31 36 0d 04  |t.sprite%!8=16..|
00000a50  7e 11 73 70 72 69 74 65  25 21 31 32 3d 31 36 0d  |~.sprite%!12=16.|
00000a60  04 88 38 c8 99 20 22 4f  53 5f 53 70 72 69 74 65  |..8.. "OS_Sprite|
00000a70  4f 70 22 2c 31 35 2b 32  35 36 2c 73 70 72 69 74  |Op",15+256,sprit|
00000a80  65 25 2c 22 64 61 76 61  64 22 2c 30 2c 36 33 30  |e%,"davad",0,630|
00000a90  2c 32 31 36 2c 31 32 0d  04 92 38 f4 53 59 53 22  |,216,12...8.SYS"|
00000aa0  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 31 35 2b  |OS_SpriteOp",15+|
00000ab0  32 35 36 2c 73 70 72 69  74 65 25 2c 22 64 61 22  |256,sprite%,"da"|
00000ac0  2c 30 2c 36 31 36 2c 32  30 38 2f 32 2c 31 32 0d  |,0,616,208/2,12.|
00000ad0  04 9c 37 c8 99 20 22 57  69 6d 70 5f 4f 70 65 6e  |..7.. "Wimp_Open|
00000ae0  54 65 6d 70 6c 61 74 65  22 2c 2c 22 3c 44 61 76  |Template",,"<Dav|
00000af0  69 64 52 50 47 32 24 44  69 72 3e 2e 54 65 6d 70  |idRPG2$Dir>.Temp|
00000b00  6c 61 74 65 73 22 0d 04  a6 20 69 6e 66 6f 25 3d  |lates"... info%=|
00000b10  a4 6c 6f 61 64 5f 74 65  6d 70 6c 61 74 65 28 22  |.load_template("|
00000b20  69 6e 66 6f 22 29 0d 04  b0 20 6d 61 69 6e 25 3d  |info")... main%=|
00000b30  a4 6c 6f 61 64 5f 74 65  6d 70 6c 61 74 65 28 22  |.load_template("|
00000b40  6d 61 69 6e 22 29 0d 04  ba 20 70 72 6f 67 25 3d  |main")... prog%=|
00000b50  a4 6c 6f 61 64 5f 74 65  6d 70 6c 61 74 65 28 22  |.load_template("|
00000b60  70 72 6f 67 22 29 0d 04  c4 1a c8 99 22 57 69 6d  |prog")......"Wim|
00000b70  70 5f 43 6c 6f 73 65 54  65 6d 70 6c 61 74 65 22  |p_CloseTemplate"|
00000b80  0d 04 ce 0d 72 65 64 72  61 77 25 3d a3 0d 04 d8  |....redraw%=....|
00000b90  0a 6c 70 24 3d 22 22 0d  04 e2 49 64 61 76 61 64  |.lp$=""...Idavad|
00000ba0  25 3d a4 63 72 65 61 74  65 5f 69 63 6f 6e 32 28  |%=.create_icon2(|
00000bb0  22 64 61 76 61 64 22 2c  6d 61 69 6e 25 2c 30 2c  |"davad",main%,0,|
00000bc0  2d 38 36 34 2c 31 32 33  38 2c 30 2c 26 37 37 30  |-864,1238,0,&770|
00000bd0  30 32 31 30 32 2c 73 70  72 69 74 65 25 2c 30 29  |02102,sprite%,0)|
00000be0  0d 04 ec 3e 6d 79 69 63  6f 6e 25 3d a4 63 72 65  |...>myicon%=.cre|
00000bf0  61 74 65 5f 69 63 6f 6e  32 28 22 21 64 61 76 69  |ate_icon2("!davi|
00000c00  64 72 70 67 32 22 2c 2d  31 2c 30 2c 30 2c 36 38  |drpg2",-1,0,0,68|
00000c10  2c 36 38 2c 26 32 31 30  32 2c 31 2c 30 29 0d 04  |,68,&2102,1,0)..|
00000c20  f6 33 f2 63 72 6d 65 6e  75 28 69 63 6f 6e 6d 65  |.3.crmenu(iconme|
00000c30  6e 75 25 2c 22 44 61 76  69 64 52 50 47 32 2c 49  |nu%,"DavidRPG2,I|
00000c40  6e 66 6f 3e 2c 69 6e 66  6f 25 2c 51 75 69 74 22  |nfo>,info%,Quit"|
00000c50  29 0d 05 00 15 69 63 6f  6e 69 74 65 6d 73 25 3d  |)....iconitems%=|
00000c60  69 74 65 6d 73 25 0d 05  0a 32 f2 63 72 6d 65 6e  |items%...2.crmen|
00000c70  75 28 6d 65 6e 75 25 2c  22 44 61 76 69 64 52 50  |u(menu%,"DavidRP|
00000c80  47 32 2c 49 6e 66 6f 3e  2c 70 72 6f 67 25 2c 52  |G2,Info>,prog%,R|
00000c90  65 73 74 61 72 74 22 29  0d 05 14 0e ee 20 85 20  |estart")..... . |
00000ca0  f2 65 72 72 6f 72 0d 05  1e 0c f2 63 6f 6d 70 69  |.error.....compi|
00000cb0  6c 65 0d 05 28 0c f2 4c  4f 41 44 49 4e 49 0d 05  |le..(..LOADINI..|
00000cc0  32 10 f2 69 6e 74 65 72  70 5f 6c 6f 61 64 0d 05  |2..interp_load..|
00000cd0  3c 05 e1 0d 05 46 05 3a  0d 05 50 0d dd f2 63 6f  |<....F.:..P...co|
00000ce0  6d 70 69 6c 65 0d 05 5a  16 f2 53 65 74 50 28 22  |mpile..Z..SetP("|
00000cf0  43 6f 6d 70 69 6c 69 6e  67 22 29 0d 05 64 48 c8  |Compiling")..dH.|
00000d00  99 20 22 57 69 6d 70 5f  53 74 61 72 74 54 61 73  |. "Wimp_StartTas|
00000d10  6b 22 2c 22 3c 44 61 76  69 64 52 50 47 32 24 44  |k","<DavidRPG2$D|
00000d20  69 72 3e 2e 4c 69 6e 6b  73 2e 57 5f 43 6f 6d 70  |ir>.Links.W_Comp|
00000d30  20 23 2a 22 2b 64 69 72  24 2b 22 20 22 2b 66 69  | #*"+dir$+" "+fi|
00000d40  6c 65 24 0d 05 6e 14 f2  63 72 77 69 6e 64 6f 77  |le$..n..crwindow|
00000d50  28 6d 61 69 6e 25 29 0d  05 78 19 f2 73 65 74 5f  |(main%)..x..set_|
00000d60  69 63 6f 6e 28 6d 61 69  6e 25 2c 31 2c 22 22 29  |icon(main%,1,"")|
00000d70  0d 05 82 2d c8 99 20 22  57 69 6d 70 5f 53 65 74  |...-.. "Wimp_Set|
00000d80  43 61 72 65 74 50 6f 73  69 74 69 6f 6e 22 2c 6d  |CaretPosition",m|
00000d90  61 69 6e 25 2c 31 2c 2c  2c 2d 31 2c 30 0d 05 8c  |ain%,1,,,-1,0...|
00000da0  45 e7 20 72 65 64 72 61  77 25 3d b9 20 8c 20 c8  |E. redraw%=. . .|
00000db0  99 20 22 57 69 6d 70 5f  46 6f 72 63 65 52 65 64  |. "Wimp_ForceRed|
00000dc0  72 61 77 22 2c 6d 61 69  6e 25 2c 30 2c 30 2c 31  |raw",main%,0,0,1|
00000dd0  32 38 30 2c 31 30 32 34  3a 72 65 64 72 61 77 25  |280,1024:redraw%|
00000de0  3d a3 0d 05 96 05 f5 0d  05 a0 0a 65 6e 64 25 3d  |=..........end%=|
00000df0  a3 0d 05 aa 0f 63 6f 6d  70 5f 65 6e 64 25 3d a3  |.....comp_end%=.|
00000e00  0d 05 b4 1f c8 99 22 57  69 6d 70 5f 50 6f 6c 6c  |......"Wimp_Poll|
00000e10  22 2c 2c 71 25 20 b8 20  72 65 61 73 6f 6e 25 0d  |",,q% . reason%.|
00000e20  05 be 10 c8 8e 20 72 65  61 73 6f 6e 25 20 ca 0d  |..... reason% ..|
00000e30  05 c8 0d c9 20 32 3a f2  6f 70 65 6e 0d 05 d2 13  |.... 2:.open....|
00000e40  c9 20 33 3a f2 63 6c 6f  73 65 28 21 71 25 29 0d  |. 3:.close(!q%).|
00000e50  05 dc 31 c9 20 36 3a f2  63 6c 69 63 6b 5f 63 6f  |..1. 6:.click_co|
00000e60  6d 70 69 6c 65 28 21 71  25 2c 71 25 21 34 2c 71  |mpile(!q%,q%!4,q|
00000e70  25 21 38 2c 71 25 21 31  32 2c 71 25 21 31 36 29  |%!8,q%!12,q%!16)|
00000e80  0d 05 e6 22 c9 20 38 3a  c8 99 20 22 57 69 6d 70  |...". 8:.. "Wimp|
00000e90  5f 50 72 6f 63 65 73 73  4b 65 79 22 2c 71 25 21  |_ProcessKey",q%!|
00000ea0  32 34 0d 05 f0 20 c9 20  39 3a f2 73 65 6c 65 63  |24... . 9:.selec|
00000eb0  74 6d 65 6e 75 5f 63 6f  6d 70 69 6c 65 28 21 71  |tmenu_compile(!q|
00000ec0  25 29 0d 05 fa 16 c9 20  31 37 2c 31 38 3a c8 8e  |%)..... 17,18:..|
00000ed0  20 71 25 21 31 36 20 ca  0d 06 04 0e c9 20 30 3a  | q%!16 ...... 0:|
00000ee0  65 6e 64 25 3d b9 0d 06  0e 28 c9 20 26 41 30 30  |end%=....(. &A00|
00000ef0  37 30 3a e7 20 63 6f 6d  70 69 6c 65 3d 2d 31 20  |70:. compile=-1 |
00000f00  8c 20 63 6f 6d 70 69 6c  65 3d 71 25 21 34 0d 06  |. compile=q%!4..|
00000f10  18 28 c9 20 26 41 30 30  37 31 3a e7 20 71 25 21  |.(. &A0071:. q%!|
00000f20  34 3d 63 6f 6d 70 69 6c  65 20 8c 63 6f 6d 70 5f  |4=compile .comp_|
00000f30  65 6e 64 25 3d b9 0d 06  22 2d c9 20 26 41 30 30  |end%=..."-. &A00|
00000f40  37 33 3a e7 20 71 25 21  34 3d 63 6f 6d 70 69 6c  |73:. q%!4=compil|
00000f50  65 20 8c f2 70 72 69 6e  74 28 24 28 71 25 2b 32  |e ..print($(q%+2|
00000f60  30 29 29 0d 06 2c 2e c9  20 26 41 30 30 37 39 3a  |0))..,.. &A0079:|
00000f70  e7 20 71 25 21 34 3d 63  6f 6d 70 69 6c 65 20 8c  |. q%!4=compile .|
00000f80  f2 70 72 69 6e 74 32 28  24 28 71 25 2b 32 30 29  |.print2($(q%+20)|
00000f90  29 0d 06 36 21 c9 20 26  41 30 30 37 41 3a e7 20  |)..6!. &A007A:. |
00000fa0  71 25 21 34 3d 63 6f 6d  70 69 6c 65 20 8c f2 63  |q%!4=compile ..c|
00000fb0  6c 73 0d 06 40 05 cb 0d  06 4a 05 cb 0d 06 54 16  |ls..@....J....T.|
00000fc0  fd 20 65 6e 64 25 20 84  20 63 6f 6d 70 5f 65 6e  |. end% . comp_en|
00000fd0  64 25 0d 06 5e 41 e7 20  65 6e 64 25 3d b9 20 8c  |d%..^A. end%=. .|
00000fe0  20 f2 73 74 6f 70 5f 63  6f 6d 70 3a c8 99 22 57  | .stop_comp:.."W|
00000ff0  69 6d 70 5f 43 6c 6f 73  65 44 6f 77 6e 22 2c 6d  |imp_CloseDown",m|
00001000  79 74 61 73 6b 25 2c 21  74 61 73 6b 25 20 3a f2  |ytask%,!task% :.|
00001010  45 4e 44 0d 06 68 0a 65  6e 64 25 3d a3 0d 06 72  |END..h.end%=...r|
00001020  05 e1 0d 06 7c 05 3a 0d  06 86 0f dd f2 73 74 6f  |....|.:......sto|
00001030  70 5f 63 6f 6d 70 0d 06  90 0b 71 25 21 30 3d 32  |p_comp....q%!0=2|
00001040  30 0d 06 9a 10 71 25 21  31 36 3d 26 41 30 30 37  |0....q%!16=&A007|
00001050  32 0d 06 a4 27 c8 99 20  22 57 69 6d 70 5f 53 65  |2...'.. "Wimp_Se|
00001060  6e 64 4d 65 73 73 61 67  65 22 2c 31 37 2c 71 25  |ndMessage",17,q%|
00001070  2c 63 6f 6d 70 69 6c 65  0d 06 ae 05 e1 0d 06 b8  |,compile........|
00001080  04 0d 06 c2 0e dd f2 73  74 6f 70 5f 69 6e 74 0d  |.......stop_int.|
00001090  06 cc 0b 71 25 21 30 3d  32 30 0d 06 d6 10 71 25  |...q%!0=20....q%|
000010a0  21 31 36 3d 26 41 30 30  37 32 0d 06 e0 26 c8 99  |!16=&A0072...&..|
000010b0  20 22 57 69 6d 70 5f 53  65 6e 64 4d 65 73 73 61  | "Wimp_SendMessa|
000010c0  67 65 22 2c 31 37 2c 71  25 2c 69 6e 74 65 72 70  |ge",17,q%,interp|
000010d0  0d 06 ea 05 e1 0d 06 f4  04 0d 06 fe 05 3a 0d 07  |.............:..|
000010e0  08 14 dd a4 73 74 72 69  70 28 74 74 74 65 65 65  |....strip(ttteee|
000010f0  24 29 0d 07 12 08 ea 20  6f 24 0d 07 1c 0e 6f 24  |$)..... o$....o$|
00001100  3d 74 74 74 65 65 65 24  0d 07 26 1e c8 95 20 c1  |=ttteee$..&... .|
00001110  6f 24 2c 31 2c 31 29 3d  22 20 22 20 80 20 a9 28  |o$,1,1)=" " . .(|
00001120  6f 24 29 3c 3e 30 0d 07  30 0d 6f 24 3d c1 6f 24  |o$)<>0..0.o$=.o$|
00001130  2c 32 29 0d 07 3a 05 ce  0d 07 44 07 3d 6f 24 0d  |,2)..:....D.=o$.|
00001140  07 4e 04 0d 07 58 14 dd  a4 66 69 72 73 74 28 74  |.N...X...first(t|
00001150  74 74 65 65 65 24 29 0d  07 62 0b ea 20 68 24 2c  |tteee$)..b.. h$,|
00001160  79 24 0d 07 6c 0e 68 24  3d 74 74 74 65 65 65 24  |y$..l.h$=ttteee$|
00001170  0d 07 76 11 68 24 3d a4  73 74 72 69 70 28 68 24  |..v.h$=.strip(h$|
00001180  29 0d 07 80 09 79 24 3d  22 22 0d 07 8a 1f c8 95  |)....y$=""......|
00001190  20 a9 28 68 24 29 3c 3e  30 20 80 20 c1 68 24 2c  | .(h$)<>0 . .h$,|
000011a0  31 2c 31 29 3c 3e 22 20  22 0d 07 94 10 79 24 2b  |1,1)<>" "....y$+|
000011b0  3d c1 68 24 2c 31 2c 31  29 0d 07 9e 0d 68 24 3d  |=.h$,1,1)....h$=|
000011c0  c1 68 24 2c 32 29 0d 07  a8 05 ce 0d 07 b2 07 3d  |.h$,2).........=|
000011d0  79 24 0d 07 bc 04 0d 07  c6 17 dd a4 6e 6f 74 66  |y$..........notf|
000011e0  69 72 73 74 28 74 74 74  65 65 65 24 29 0d 07 d0  |irst(ttteee$)...|
000011f0  0b ea 20 69 24 2c 79 24  0d 07 da 0e 69 24 3d 74  |.. i$,y$....i$=t|
00001200  74 74 65 65 65 24 0d 07  e4 11 69 24 3d a4 73 74  |tteee$....i$=.st|
00001210  72 69 70 28 69 24 29 0d  07 ee 11 79 24 3d a4 66  |rip(i$)....y$=.f|
00001220  69 72 73 74 28 69 24 29  0d 07 f8 17 e7 20 a9 28  |irst(i$)..... .(|
00001230  79 24 29 3d a9 28 69 24  29 20 8c 20 3d 22 22 0d  |y$)=.(i$) . ="".|
00001240  08 02 19 3d a4 73 74 72  69 70 28 c1 69 24 2c a9  |...=.strip(.i$,.|
00001250  28 79 24 29 2b 31 29 29  0d 08 0c 04 0d 08 16 04  |(y$)+1))........|
00001260  0d 08 20 0d dd f2 4c 4f  41 44 49 4e 49 0d 08 2a  |.. ...LOADINI..*|
00001270  16 4f 3d 8e 28 64 69 72  24 2b 22 2e 53 65 74 75  |.O=.(dir$+".Setu|
00001280  70 22 29 0d 08 34 1d e7  20 4f 3d 30 20 8c 20 f5  |p")..4.. O=0 . .|
00001290  3a fd 20 22 51 55 49 54  22 3d a4 69 6e 70 75 74  |:. "QUIT"=.input|
000012a0  0d 08 3e 0d 6e 61 6d 65  79 24 3d 22 22 0d 08 48  |..>.namey$=""..H|
000012b0  0e 61 64 76 65 6e 74 24  3d 22 22 0d 08 52 0e 61  |.advent$=""..R.a|
000012c0  75 74 68 6f 72 24 3d 22  22 0d 08 5c 0c 76 65 72  |uthor$=""..\.ver|
000012d0  73 24 3d 22 22 0d 08 66  05 f5 0d 08 70 0a 49 24  |s$=""..f....p.I$|
000012e0  3d be 23 4f 0d 08 7a 35  e7 20 a7 a4 66 69 72 73  |=.#O..z5. ..firs|
000012f0  74 28 49 24 29 2c 22 6e  61 6d 65 22 29 3d 31 20  |t(I$),"name")=1 |
00001300  8c 20 6e 61 6d 65 79 24  3d 20 c1 49 24 2c a7 49  |. namey$= .I$,.I|
00001310  24 2c 22 3d 22 29 2b 31  29 0d 08 84 3b e7 20 a7  |$,"=")+1)...;. .|
00001320  a4 66 69 72 73 74 28 49  24 29 2c 22 61 64 76 65  |.first(I$),"adve|
00001330  6e 74 75 72 65 22 29 3d  31 20 8c 20 61 64 76 65  |nture")=1 . adve|
00001340  6e 74 24 3d 20 c1 49 24  2c a7 49 24 2c 22 3d 22  |nt$= .I$,.I$,"="|
00001350  29 2b 31 29 0d 08 8e 38  e7 20 a7 a4 66 69 72 73  |)+1)...8. ..firs|
00001360  74 28 49 24 29 2c 22 61  75 74 68 6f 72 22 29 3d  |t(I$),"author")=|
00001370  31 20 8c 20 61 75 74 68  6f 72 24 3d 20 c1 49 24  |1 . author$= .I$|
00001380  2c a7 49 24 2c 22 3d 22  29 2b 31 29 0d 08 98 37  |,.I$,"=")+1)...7|
00001390  e7 20 a7 a4 66 69 72 73  74 28 49 24 29 2c 22 76  |. ..first(I$),"v|
000013a0  65 72 73 69 6f 6e 22 29  3d 31 20 8c 20 76 65 72  |ersion")=1 . ver|
000013b0  73 24 3d 20 c1 49 24 2c  a7 49 24 2c 22 3d 22 29  |s$= .I$,.I$,"=")|
000013c0  2b 31 29 0d 08 a2 09 fd  20 c5 23 4f 0d 08 ac 07  |+1)..... .#O....|
000013d0  d9 23 4f 0d 08 b6 1d f2  73 65 74 5f 69 63 6f 6e  |.#O.....set_icon|
000013e0  28 70 72 6f 67 25 2c 31  2c 6e 61 6d 65 79 24 29  |(prog%,1,namey$)|
000013f0  0d 08 c0 1e f2 73 65 74  5f 69 63 6f 6e 28 70 72  |.....set_icon(pr|
00001400  6f 67 25 2c 32 2c 61 64  76 65 6e 74 24 29 0d 08  |og%,2,advent$)..|
00001410  ca 1e f2 73 65 74 5f 69  63 6f 6e 28 70 72 6f 67  |...set_icon(prog|
00001420  25 2c 33 2c 61 75 74 68  6f 72 24 29 0d 08 d4 1c  |%,3,author$)....|
00001430  f2 73 65 74 5f 69 63 6f  6e 28 70 72 6f 67 25 2c  |.set_icon(prog%,|
00001440  30 2c 76 65 72 73 24 29  0d 08 de 05 e1 0d 08 e8  |0,vers$)........|
00001450  05 3a 0d 08 f2 18 dd 20  f2 73 65 6c 65 63 74 6d  |.:..... .selectm|
00001460  65 6e 75 28 69 74 65 6d  25 29 0d 08 fc 1b c8 99  |enu(item%)......|
00001470  22 57 69 6d 70 5f 43 72  65 61 74 65 4d 65 6e 75  |"Wimp_CreateMenu|
00001480  22 2c 2c 2d 31 0d 09 06  21 e7 20 6f 70 65 6e 25  |",,-1...!. open%|
00001490  3d 2d 32 20 80 20 69 74  65 6d 25 3d 31 20 8c 20  |=-2 . item%=1 . |
000014a0  65 6e 64 25 3d b9 0d 09  10 26 e7 20 6f 70 65 6e  |end%=....&. open|
000014b0  25 3d 6d 61 69 6e 25 20  80 20 69 74 65 6d 25 3d  |%=main% . item%=|
000014c0  31 20 8c 20 f2 72 65 73  74 61 72 74 0d 09 1a 05  |1 . .restart....|
000014d0  e1 0d 09 24 05 3a 0d 09  2e 20 dd 20 f2 73 65 6c  |...$.:... . .sel|
000014e0  65 63 74 6d 65 6e 75 5f  63 6f 6d 70 69 6c 65 28  |ectmenu_compile(|
000014f0  69 74 65 6d 25 29 0d 09  38 1b c8 99 22 57 69 6d  |item%)..8..."Wim|
00001500  70 5f 43 72 65 61 74 65  4d 65 6e 75 22 2c 2c 2d  |p_CreateMenu",,-|
00001510  31 0d 09 42 21 e7 20 6f  70 65 6e 25 3d 2d 32 20  |1..B!. open%=-2 |
00001520  80 20 69 74 65 6d 25 3d  31 20 8c 20 65 6e 64 25  |. item%=1 . end%|
00001530  3d b9 0d 09 4c 05 e1 0d  09 56 05 3a 0d 09 60 04  |=...L....V.:..`.|
00001540  0d 09 6a 2b dd 20 f2 63  6c 69 63 6b 28 6d 78 25  |..j+. .click(mx%|
00001550  2c 6d 79 25 2c 62 75 74  74 6f 6e 25 2c 77 69 6e  |,my%,button%,win|
00001560  64 6f 77 25 2c 69 63 6f  6e 25 29 0d 09 74 10 c8  |dow%,icon%)..t..|
00001570  8e 20 77 69 6e 64 6f 77  25 20 ca 0d 09 7e 09 c9  |. window% ...~..|
00001580  20 2d 32 3a 0d 09 88 11  20 c8 8e 20 62 75 74 74  | -2:.... .. butt|
00001590  6f 6e 25 20 ca 0d 09 92  19 20 c9 20 34 3a f2 63  |on% ..... . 4:.c|
000015a0  72 77 69 6e 64 6f 77 28  6d 61 69 6e 25 29 0d 09  |rwindow(main%)..|
000015b0  9c 33 20 c9 20 32 3a f2  6f 70 65 6e 6d 65 6e 75  |.3 . 2:.openmenu|
000015c0  28 69 63 6f 6e 6d 65 6e  75 25 2c 6d 78 25 2c 31  |(iconmenu%,mx%,1|
000015d0  30 30 2b 34 34 2a 69 63  6f 6e 69 74 65 6d 73 25  |00+44*iconitems%|
000015e0  29 0d 09 a6 06 20 cb 0d  09 b0 0c c9 20 6d 61 69  |).... ...... mai|
000015f0  6e 25 3a 0d 09 ba 11 20  c8 8e 20 62 75 74 74 6f  |n%:.... .. butto|
00001600  6e 25 20 ca 0d 09 c4 21  20 c9 20 32 3a f2 6f 70  |n% ....! . 2:.op|
00001610  65 6e 6d 65 6e 75 28 6d  65 6e 75 25 2c 6d 78 25  |enmenu(menu%,mx%|
00001620  2c 6d 79 25 29 0d 09 ce  0b 20 c9 20 31 2c 34 3a  |,my%).... . 1,4:|
00001630  0d 09 d8 10 20 20 c8 8e  20 69 63 6f 6e 25 20 ca  |....  .. icon% .|
00001640  0d 09 e2 20 20 20 c9 20  35 3a 49 4e 24 3d a4 67  |...   . 5:IN$=.g|
00001650  65 74 5f 69 63 6f 6e 28  6d 61 69 6e 25 2c 31 29  |et_icon(main%,1)|
00001660  0d 09 ec 0b 20 20 49 4e  25 3d b9 0d 09 f6 0e 20  |....  IN%=..... |
00001670  20 f2 54 4f 55 50 50 65  72 0d 0a 00 2e 20 20 e7  | .TOUPPer....  .|
00001680  20 49 4e 24 3d 22 52 45  53 54 41 52 54 22 20 84  | IN$="RESTART" .|
00001690  20 49 4e 24 3d 22 52 45  53 45 54 22 20 8c 20 f2  | IN$="RESET" . .|
000016a0  72 65 73 74 61 72 74 0d  0a 0a 34 20 20 e7 20 49  |restart...4  . I|
000016b0  4e 24 3d 22 51 55 49 54  22 20 84 20 49 4e 24 3d  |N$="QUIT" . IN$=|
000016c0  22 45 4e 44 22 20 84 20  49 4e 24 3d 22 53 54 4f  |"END" . IN$="STO|
000016d0  50 22 20 8c 20 65 6e 64  25 3d b9 0d 0a 14 12 20  |P" . end%=..... |
000016e0  20 c9 20 34 3a f2 72 65  73 74 61 72 74 0d 0a 1e  | . 4:.restart...|
000016f0  07 20 20 cb 0d 0a 28 06  20 cb 0d 0a 32 05 cb 0d  |.  ...(. ...2...|
00001700  0a 3c 05 e1 0d 0a 46 05  3a 0d 0a 50 04 0d 0a 5a  |.<....F.:..P...Z|
00001710  33 dd 20 f2 63 6c 69 63  6b 5f 63 6f 6d 70 69 6c  |3. .click_compil|
00001720  65 28 6d 78 25 2c 6d 79  25 2c 62 75 74 74 6f 6e  |e(mx%,my%,button|
00001730  25 2c 77 69 6e 64 6f 77  25 2c 69 63 6f 6e 25 29  |%,window%,icon%)|
00001740  0d 0a 64 10 c8 8e 20 77  69 6e 64 6f 77 25 20 ca  |..d... window% .|
00001750  0d 0a 6e 09 c9 20 2d 32  3a 0d 0a 78 11 20 c8 8e  |..n.. -2:..x. ..|
00001760  20 62 75 74 74 6f 6e 25  20 ca 0d 0a 82 19 20 c9  | button% ..... .|
00001770  20 34 3a f2 63 72 77 69  6e 64 6f 77 28 6d 61 69  | 4:.crwindow(mai|
00001780  6e 25 29 0d 0a 8c 33 20  c9 20 32 3a f2 6f 70 65  |n%)...3 . 2:.ope|
00001790  6e 6d 65 6e 75 28 69 63  6f 6e 6d 65 6e 75 25 2c  |nmenu(iconmenu%,|
000017a0  6d 78 25 2c 31 30 30 2b  34 34 2a 69 63 6f 6e 69  |mx%,100+44*iconi|
000017b0  74 65 6d 73 25 29 0d 0a  96 06 20 cb 0d 0a a0 0c  |tems%).... .....|
000017c0  c9 20 6d 61 69 6e 25 3a  0d 0a aa 11 20 c8 8e 20  |. main%:.... .. |
000017d0  62 75 74 74 6f 6e 25 20  ca 0d 0a b4 21 20 c9 20  |button% ....! . |
000017e0  32 3a f2 6f 70 65 6e 6d  65 6e 75 28 6d 65 6e 75  |2:.openmenu(menu|
000017f0  25 2c 6d 78 25 2c 6d 79  25 29 0d 0a be 06 20 cb  |%,mx%,my%).... .|
00001800  0d 0a c8 05 cb 0d 0a d2  05 e1 0d 0a dc 05 3a 0d  |..............:.|
00001810  0a e6 04 0d 0a f0 04 0d  0a fa 09 dd f2 6b 65 79  |.............key|
00001820  0d 0b 04 12 e7 20 28 71  25 21 32 34 29 3d 31 33  |..... (q%!24)=13|
00001830  20 8c 0d 0b 0e 0d c8 8e  20 71 25 21 30 20 ca 0d  | ....... q%!0 ..|
00001840  0b 18 0c c9 20 6d 61 69  6e 25 3a 0d 0b 22 1a 49  |.... main%:..".I|
00001850  4e 24 3d a4 67 65 74 5f  69 63 6f 6e 28 6d 61 69  |N$=.get_icon(mai|
00001860  6e 25 2c 31 29 0d 0b 2c  09 49 4e 25 3d b9 0d 0b  |n%,1)..,.IN%=...|
00001870  36 0c f2 54 4f 55 50 50  65 72 0d 0b 40 2c e7 20  |6..TOUPPer..@,. |
00001880  49 4e 24 3d 22 52 45 53  54 41 52 54 22 20 84 20  |IN$="RESTART" . |
00001890  49 4e 24 3d 22 52 45 53  45 54 22 20 8c 20 f2 72  |IN$="RESET" . .r|
000018a0  65 73 74 61 72 74 0d 0b  4a 32 e7 20 49 4e 24 3d  |estart..J2. IN$=|
000018b0  22 51 55 49 54 22 20 84  20 49 4e 24 3d 22 45 4e  |"QUIT" . IN$="EN|
000018c0  44 22 20 84 20 49 4e 24  3d 22 53 54 4f 50 22 20  |D" . IN$="STOP" |
000018d0  8c 20 65 6e 64 25 3d b9  0d 0b 54 05 cb 0d 0b 5e  |. end%=...T....^|
000018e0  05 cc 0d 0b 68 1e c8 99  20 22 57 69 6d 70 5f 50  |....h... "Wimp_P|
000018f0  72 6f 63 65 73 73 4b 65  79 22 2c 71 25 21 32 34  |rocessKey",q%!24|
00001900  0d 0b 72 05 cd 0d 0b 7c  05 e1 0d 0b 86 04 0d 0b  |..r....|........|
00001910  90 04 0d 0b 9a 04 0d 0b  a4 04 0d 0b ae 1a dd 20  |............... |
00001920  f2 63 72 6d 65 6e 75 28  6d 65 6e 75 25 2c 64 61  |.crmenu(menu%,da|
00001930  74 61 24 29 0d 0b b8 0e  64 61 74 61 24 2b 3d 22  |ta$)....data$+="|
00001940  2c 22 0d 0b c2 17 74 69  74 6c 65 24 3d a4 6e 65  |,"....title$=.ne|
00001950  78 74 28 64 61 74 61 24  29 0d 0b cc 12 6d 61 78  |xt(data$)....max|
00001960  25 3d a9 74 69 74 6c 65  24 2d 32 0d 0b d6 11 24  |%=.title$-2....$|
00001970  6d 65 6e 75 25 3d 74 69  74 6c 65 24 0d 0b e0 13  |menu%=title$....|
00001980  6d 65 6e 75 25 21 31 32  3d 26 37 30 32 30 37 0d  |menu%!12=&70207.|
00001990  0b ea 0f 6d 65 6e 75 25  21 32 30 3d 34 34 0d 0b  |...menu%!20=44..|
000019a0  f4 0e 6d 65 6e 75 25 21  32 34 3d 30 0d 0b fe 0e  |..menu%!24=0....|
000019b0  6d 25 3d 6d 65 6e 75 25  2b 34 0d 0c 08 0c 69 74  |m%=menu%+4....it|
000019c0  65 6d 73 25 3d 30 0d 0c  12 05 f5 0d 0c 1c 16 69  |ems%=0.........i|
000019d0  74 65 6d 24 3d a4 6e 65  78 74 28 64 61 74 61 24  |tem$=.next(data$|
000019e0  29 0d 0c 26 11 e7 20 69  74 65 6d 24 3c 3e 22 22  |)..&.. item$<>""|
000019f0  20 8c 0d 0c 30 0a 6d 25  2b 3d 32 34 0d 0c 3a 0d  | ...0.m%+=24..:.|
00001a00  69 74 65 6d 73 25 2b 3d  31 0d 0c 44 10 e7 20 a4  |items%+=1..D.. .|
00001a10  6f 70 28 22 3e 22 29 20  8c 0d 0c 4e 15 77 69 6e  |op(">") ...N.win|
00001a20  24 3d a4 6e 65 78 74 28  64 61 74 61 24 29 0d 0c  |$=.next(data$)..|
00001a30  58 11 e7 20 77 69 6e 24  3d 22 22 20 8c 20 e0 0d  |X.. win$="" . ..|
00001a40  0c 62 10 77 69 6e 25 3d  a0 28 77 69 6e 24 29 0d  |.b.win%=.(win$).|
00001a50  0c 6c 05 cc 0d 0c 76 0a  77 69 6e 25 3d 30 0d 0c  |.l....v.win%=0..|
00001a60  80 05 cd 0d 0c 8a 09 21  6d 25 3d 30 0d 0c 94 0d  |.......!m%=0....|
00001a70  6d 25 21 34 3d 77 69 6e  25 0d 0c 9e 19 f4 6d 25  |m%!4=win%.....m%|
00001a80  21 38 3d 37 3c 3c 32 34  20 4f 52 20 25 31 31 30  |!8=7<<24 OR %110|
00001a90  30 31 0d 0c a8 14 6d 25  21 38 3d 37 3c 3c 32 34  |01....m%!8=7<<24|
00001aa0  20 84 20 26 32 31 0d 0c  b2 25 e7 20 a4 6f 70 28  | . &21...%. .op(|
00001ab0  22 2f 22 29 20 8c 20 21  6d 25 3d 21 6d 25 20 84  |"/") . !m%=!m% .|
00001ac0  20 31 3a 74 69 63 6b 25  3d 6d 25 0d 0c bc 1c e7  | 1:tick%=m%.....|
00001ad0  20 a4 6f 70 28 22 23 22  29 20 8c 20 21 6d 25 3d  | .op("#") . !m%=|
00001ae0  21 6d 25 20 84 20 32 0d  0c c6 10 e7 20 a4 6f 70  |!m% . 2..... .op|
00001af0  28 22 21 22 29 20 8c 0d  0c d0 12 6d 25 21 31 32  |("!") .....m%!12|
00001b00  3d a0 28 69 74 65 6d 24  29 0d 0c da 0c 6d 25 21  |=.(item$)....m%!|
00001b10  31 36 3d 2d 31 0d 0c e4  16 63 25 3d bb 28 a4 6e  |16=-1....c%=.(.n|
00001b20  65 78 74 28 64 61 74 61  24 29 29 0d 0c ee 1b e7  |ext(data$)).....|
00001b30  20 63 25 2d 31 3e 6d 61  78 25 20 8c 20 6d 61 78  | c%-1>max% . max|
00001b40  25 3d 63 25 2d 31 0d 0c  f8 0c 6d 25 21 32 30 3d  |%=c%-1....m%!20=|
00001b50  63 25 0d 0d 02 0f 21 6d  25 3d 21 6d 25 20 84 20  |c%....!m%=!m% . |
00001b60  34 0d 0d 0c 13 6d 25 21  38 3d 6d 25 21 38 20 84  |4....m%!8=m%!8 .|
00001b70  20 32 5e 38 0d 0d 16 05  cc 0d 0d 20 12 24 28 6d  | 2^8....... .$(m|
00001b80  25 2b 31 32 29 3d 69 74  65 6d 24 0d 0d 2a 05 cd  |%+12)=item$..*..|
00001b90  0d 0d 34 05 cc 0d 0d 3e  11 21 6d 25 3d 21 6d 25  |..4....>.!m%=!m%|
00001ba0  20 84 20 26 38 30 0d 0d  48 05 cd 0d 0d 52 23 e7  | . &80..H....R#.|
00001bb0  20 a9 28 69 74 65 6d 24  29 3e 6d 61 78 25 20 8c  | .(item$)>max% .|
00001bc0  20 6d 61 78 25 3d a9 28  69 74 65 6d 24 29 0d 0d  | max%=.(item$)..|
00001bd0  5c 0e fd 20 69 74 65 6d  24 3d 22 22 0d 0d 66 17  |\.. item$=""..f.|
00001be0  6d 65 6e 75 25 21 31 36  3d 6d 61 78 25 2a 31 36  |menu%!16=max%*16|
00001bf0  2b 31 36 0d 0d 70 05 e1  0d 0d 7a 04 0d 0d 84 0d  |+16..p....z.....|
00001c00  dd 20 a4 6f 70 28 63 24  29 0d 0d 8e 08 66 25 3d  |. .op(c$)....f%=|
00001c10  a3 0d 0d 98 14 e7 20 c2  69 74 65 6d 24 2c 31 29  |...... .item$,1)|
00001c20  3d 63 24 20 8c 0d 0d a2  08 66 25 3d b9 0d 0d ac  |=c$ .....f%=....|
00001c30  1a 69 74 65 6d 24 3d c0  69 74 65 6d 24 2c a9 69  |.item$=.item$,.i|
00001c40  74 65 6d 24 2d 31 29 0d  0d b6 05 cd 0d 0d c0 07  |tem$-1).........|
00001c50  3d 66 25 0d 0d ca 04 0d  0d d4 14 dd 20 a4 6e 65  |=f%......... .ne|
00001c60  78 74 28 f8 20 64 61 74  61 24 29 0d 0d de 10 e7  |xt(. data$).....|
00001c70  20 64 61 74 61 24 3e 22  22 20 8c 0d 0d e8 1d 73  | data$>"" .....s|
00001c80  74 24 3d c0 64 61 74 61  24 2c a7 64 61 74 61 24  |t$=.data$,.data$|
00001c90  2c 22 2c 22 29 2d 31 29  0d 0d f2 18 64 61 74 61  |,",")-1)....data|
00001ca0  24 3d c1 64 61 74 61 24  2c a9 73 74 24 2b 32 29  |$=.data$,.st$+2)|
00001cb0  0d 0d fc 05 cc 0d 0e 06  0a 73 74 24 3d 22 22 0d  |.........st$="".|
00001cc0  0e 10 05 cd 0d 0e 1a 08  3d 73 74 24 0d 0e 24 04  |........=st$..$.|
00001cd0  0d 0e 2e 19 dd f2 47 4f  52 28 57 48 48 25 2c f8  |......GOR(WHH%,.|
00001ce0  20 58 25 2c f8 20 59 25  29 0d 0e 38 08 ea 20 43  | X%,. Y%)..8.. C|
00001cf0  25 0d 0e 42 0d 43 25 3d  71 25 2b 38 30 30 0d 0e  |%..B.C%=q%+800..|
00001d00  4c 0c 21 43 25 3d 57 48  48 25 0d 0e 56 20 c8 99  |L.!C%=WHH%..V ..|
00001d10  20 22 57 69 6d 70 5f 47  65 74 57 69 6e 64 6f 77  | "Wimp_GetWindow|
00001d20  53 74 61 74 65 22 2c 2c  43 25 0d 0e 60 20 58 25  |State",,C%..` X%|
00001d30  3d 43 25 21 34 2d 43 25  21 32 30 3a 59 25 3d 43  |=C%!4-C%!20:Y%=C|
00001d40  25 21 31 36 2d 43 25 21  32 34 0d 0e 6a 05 e1 0d  |%!16-C%!24..j...|
00001d50  0e 74 04 0d 0e 7e 09 dd  f2 63 6c 73 0d 0e 88 38  |.t...~...cls...8|
00001d60  c8 99 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |.."OS_SpriteOp",|
00001d70  36 30 2b 32 35 36 2c 73  70 72 69 74 65 25 2c 22  |60+256,sprite%,"|
00001d80  64 61 76 61 64 22 20 b8  20 72 30 2c 72 31 2c 72  |davad" . r0,r1,r|
00001d90  32 2c 72 33 0d 0e 92 0e  fb 20 31 32 38 2b 62 61  |2,r3..... 128+ba|
00001da0  63 6b 0d 0e 9c 16 f1 20  8a 70 6f 73 25 2c 76 70  |ck..... .pos%,vp|
00001db0  6f 73 25 29 3b 22 20 22  0d 0e a6 0e e3 20 49 25  |os%);" "..... I%|
00001dc0  3d 30 b8 20 33 34 0d 0e  b0 05 f1 0d 0e ba 05 ed  |=0. 34..........|
00001dd0  0d 0e c4 0b 76 70 6f 73  25 3d bc 0d 0e ce 0a 70  |....vpos%=.....p|
00001de0  6f 73 25 3d b1 0d 0e d8  1f c8 99 22 4f 53 5f 53  |os%=......."OS_S|
00001df0  70 72 69 74 65 4f 70 22  2c 72 30 2c 72 31 2c 72  |priteOp",r0,r1,r|
00001e00  32 2c 72 33 0d 0e e2 33  f2 73 65 74 5f 69 63 6f  |2,r3...3.set_ico|
00001e10  6e 28 6d 61 69 6e 25 2c  64 61 76 61 64 25 2c a4  |n(main%,davad%,.|
00001e20  67 65 74 5f 69 63 6f 6e  28 6d 61 69 6e 25 2c 64  |get_icon(main%,d|
00001e30  61 76 61 64 25 29 29 0d  0e ec 05 e1 0d 0e f6 04  |avad%)).........|
00001e40  0d 0f 00 0a dd f2 63 6c  73 31 0d 0f 0a 0d e3 20  |......cls1..... |
00001e50  49 25 3d 30 b8 33 34 0d  0f 14 0e f2 70 72 69 6e  |I%=0.34.....prin|
00001e60  74 28 22 22 29 0d 0f 1e  05 ed 0d 0f 28 05 e1 0d  |t("").......(...|
00001e70  0f 32 04 0d 0f 3c 14 dd  f2 70 72 69 6e 74 28 73  |.2...<...print(s|
00001e80  74 72 69 6e 67 24 29 0d  0f 46 38 c8 99 22 4f 53  |tring$)..F8.."OS|
00001e90  5f 53 70 72 69 74 65 4f  70 22 2c 36 30 2b 32 35  |_SpriteOp",60+25|
00001ea0  36 2c 73 70 72 69 74 65  25 2c 22 64 61 76 61 64  |6,sprite%,"davad|
00001eb0  22 20 b8 20 72 30 2c 72  31 2c 72 32 2c 72 33 0d  |" . r0,r1,r2,r3.|
00001ec0  0f 50 0e fb 20 31 32 38  2b 62 61 63 6b 0d 0f 5a  |.P.. 128+back..Z|
00001ed0  1a e7 20 76 70 6f 73 25  3d 30 20 80 20 70 6f 73  |.. vpos%=0 . pos|
00001ee0  25 3d 30 20 8c 20 db 0d  0f 64 08 fb 20 31 33 0d  |%=0 . ...d.. 13.|
00001ef0  0f 6e 1a f1 20 8a 70 6f  73 25 2c 76 70 6f 73 25  |.n.. .pos%,vpos%|
00001f00  29 3b 73 74 72 69 6e 67  24 0d 0f 78 0b 76 70 6f  |);string$..x.vpo|
00001f10  73 25 3d bc 0d 0f 82 0a  70 6f 73 25 3d b1 0d 0f  |s%=.....pos%=...|
00001f20  8c 1f c8 99 22 4f 53 5f  53 70 72 69 74 65 4f 70  |...."OS_SpriteOp|
00001f30  22 2c 72 30 2c 72 31 2c  72 32 2c 72 33 0d 0f 96  |",r0,r1,r2,r3...|
00001f40  33 f2 73 65 74 5f 69 63  6f 6e 28 6d 61 69 6e 25  |3.set_icon(main%|
00001f50  2c 64 61 76 61 64 25 2c  a4 67 65 74 5f 69 63 6f  |,davad%,.get_ico|
00001f60  6e 28 6d 61 69 6e 25 2c  64 61 76 61 64 25 29 29  |n(main%,davad%))|
00001f70  0d 0f a0 05 e1 0d 0f aa  05 3a 0d 0f b4 15 dd f2  |.........:......|
00001f80  70 72 69 6e 74 32 28 73  74 72 69 6e 67 24 29 0d  |print2(string$).|
00001f90  0f be 38 c8 99 22 4f 53  5f 53 70 72 69 74 65 4f  |..8.."OS_SpriteO|
00001fa0  70 22 2c 36 30 2b 32 35  36 2c 73 70 72 69 74 65  |p",60+256,sprite|
00001fb0  25 2c 22 64 61 76 61 64  22 20 b8 20 72 30 2c 72  |%,"davad" . r0,r|
00001fc0  31 2c 72 32 2c 72 33 0d  0f c8 0e fb 20 31 32 38  |1,r2,r3..... 128|
00001fd0  2b 62 61 63 6b 0d 0f d2  1a e7 20 76 70 6f 73 25  |+back..... vpos%|
00001fe0  3d 30 20 80 20 70 6f 73  25 3d 30 20 8c 20 db 0d  |=0 . pos%=0 . ..|
00001ff0  0f dc 08 fb 20 31 35 0d  0f e6 1a f1 20 8a 70 6f  |.... 15..... .po|
00002000  73 25 2c 76 70 6f 73 25  29 3b 73 74 72 69 6e 67  |s%,vpos%);string|
00002010  24 0d 0f f0 0b 76 70 6f  73 25 3d bc 0d 0f fa 0a  |$....vpos%=.....|
00002020  70 6f 73 25 3d b1 0d 10  04 1f c8 99 22 4f 53 5f  |pos%=......."OS_|
00002030  53 70 72 69 74 65 4f 70  22 2c 72 30 2c 72 31 2c  |SpriteOp",r0,r1,|
00002040  72 32 2c 72 33 0d 10 0e  33 f2 73 65 74 5f 69 63  |r2,r3...3.set_ic|
00002050  6f 6e 28 6d 61 69 6e 25  2c 64 61 76 61 64 25 2c  |on(main%,davad%,|
00002060  a4 67 65 74 5f 69 63 6f  6e 28 6d 61 69 6e 25 2c  |.get_icon(main%,|
00002070  64 61 76 61 64 25 29 29  0d 10 18 05 e1 0d 10 22  |davad%))......."|
00002080  05 3a 0d 10 2c 19 dd f2  47 4f 52 28 57 48 48 25  |.:..,...GOR(WHH%|
00002090  2c f8 20 58 25 2c f8 20  59 25 29 0d 10 36 08 ea  |,. X%,. Y%)..6..|
000020a0  20 43 25 0d 10 40 0d 43  25 3d 71 25 2b 38 30 30  | C%..@.C%=q%+800|
000020b0  0d 10 4a 0c 21 43 25 3d  57 48 48 25 0d 10 54 20  |..J.!C%=WHH%..T |
000020c0  c8 99 20 22 57 69 6d 70  5f 47 65 74 57 69 6e 64  |.. "Wimp_GetWind|
000020d0  6f 77 53 74 61 74 65 22  2c 2c 43 25 0d 10 5e 20  |owState",,C%..^ |
000020e0  58 25 3d 43 25 21 34 2d  43 25 21 32 30 3a 59 25  |X%=C%!4-C%!20:Y%|
000020f0  3d 43 25 21 31 36 2d 43  25 21 32 34 0d 10 68 05  |=C%!16-C%!24..h.|
00002100  e1 0d 10 72 05 3a 0d 10  7c 0e dd f2 53 65 74 41  |...r.:..|...SetA|
00002110  28 41 24 29 0d 10 86 19  f2 73 65 74 5f 69 63 6f  |(A$).....set_ico|
00002120  6e 28 6d 61 69 6e 25 2c  33 2c 41 24 29 0d 10 90  |n(main%,3,A$)...|
00002130  05 e1 0d 10 9a 05 3a 0d  10 a4 0e dd f2 53 65 74  |......:......Set|
00002140  42 28 42 24 29 0d 10 ae  0e 71 25 21 30 3d 6d 61  |B(B$)....q%!0=ma|
00002150  69 6e 25 0d 10 b8 1f c8  99 20 22 57 69 6d 70 5f  |in%...... "Wimp_|
00002160  47 65 74 57 69 6e 64 6f  77 49 6e 66 6f 22 2c 2c  |GetWindowInfo",,|
00002170  71 25 0d 10 c2 33 e7 20  28 28 71 25 21 36 30 29  |q%...3. ((q%!60)|
00002180  80 26 31 30 30 29 3d 30  20 85 20 31 2c 22 54 69  |.&100)=0 . 1,"Ti|
00002190  74 6c 65 20 69 73 6e 27  74 20 69 6e 64 69 72 65  |tle isn't indire|
000021a0  63 74 65 64 22 0d 10 cc  3b 24 28 71 25 21 37 36  |cted"...;$(q%!76|
000021b0  29 3d 22 44 61 76 69 64  20 52 6f 6c 65 20 50 6c  |)="David Role Pl|
000021c0  61 79 69 6e 67 20 47 61  6d 65 20 32 20 2d 20 22  |aying Game 2 - "|
000021d0  2b 6e 61 6d 65 79 24 2b  22 20 2d 20 22 2b 42 24  |+namey$+" - "+B$|
000021e0  0d 10 d6 11 f2 72 65 64  72 61 77 5f 74 69 74 6c  |.....redraw_titl|
000021f0  65 0d 10 e0 05 e1 0d 10  ea 05 3a 0d 10 f4 0e dd  |e.........:.....|
00002200  f2 53 65 74 50 28 42 24  29 0d 10 fe 0d f2 53 65  |.SetP(B$).....Se|
00002210  74 41 28 42 24 29 0d 11  08 0e 71 25 21 30 3d 6d  |tA(B$)....q%!0=m|
00002220  61 69 6e 25 0d 11 12 1f  c8 99 20 22 57 69 6d 70  |ain%...... "Wimp|
00002230  5f 47 65 74 57 69 6e 64  6f 77 49 6e 66 6f 22 2c  |_GetWindowInfo",|
00002240  2c 71 25 0d 11 1c 33 e7  20 28 28 71 25 21 36 30  |,q%...3. ((q%!60|
00002250  29 80 26 31 30 30 29 3d  30 20 85 20 31 2c 22 54  |).&100)=0 . 1,"T|
00002260  69 74 6c 65 20 69 73 6e  27 74 20 69 6e 64 69 72  |itle isn't indir|
00002270  65 63 74 65 64 22 0d 11  26 2e 24 28 71 25 21 37  |ected"..&.$(q%!7|
00002280  36 29 3d 22 44 61 76 69  64 20 52 6f 6c 65 20 50  |6)="David Role P|
00002290  6c 61 79 69 6e 67 20 47  61 6d 65 20 32 20 2d 20  |laying Game 2 - |
000022a0  22 2b 42 24 0d 11 30 11  f2 72 65 64 72 61 77 5f  |"+B$..0..redraw_|
000022b0  74 69 74 6c 65 0d 11 3a  05 e1 0d 11 44 05 3a 0d  |title..:....D.:.|
000022c0  11 4e 14 dd f2 50 52 49  4e 54 28 73 74 72 69 6e  |.N...PRINT(strin|
000022d0  67 24 29 0d 11 58 38 c8  99 22 4f 53 5f 53 70 72  |g$)..X8.."OS_Spr|
000022e0  69 74 65 4f 70 22 2c 36  30 2b 32 35 36 2c 73 70  |iteOp",60+256,sp|
000022f0  72 69 74 65 25 2c 22 64  61 76 61 64 22 20 b8 20  |rite%,"davad" . |
00002300  72 30 2c 72 31 2c 72 32  2c 72 33 0d 11 62 0e fb  |r0,r1,r2,r3..b..|
00002310  20 31 32 38 2b 62 61 63  6b 0d 11 6c 1a e7 20 76  | 128+back..l.. v|
00002320  70 6f 73 25 3d 30 20 80  20 70 6f 73 25 3d 30 20  |pos%=0 . pos%=0 |
00002330  8c 20 db 0d 11 76 08 fb  20 31 31 0d 11 80 1a f1  |. ...v.. 11.....|
00002340  20 8a 70 6f 73 25 2c 76  70 6f 73 25 29 3b 73 74  | .pos%,vpos%);st|
00002350  72 69 6e 67 24 0d 11 8a  0b 76 70 6f 73 25 3d bc  |ring$....vpos%=.|
00002360  0d 11 94 0a 70 6f 73 25  3d b1 0d 11 9e 1f c8 99  |....pos%=.......|
00002370  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 2c 72 30  |"OS_SpriteOp",r0|
00002380  2c 72 31 2c 72 32 2c 72  33 0d 11 a8 33 f2 73 65  |,r1,r2,r3...3.se|
00002390  74 5f 69 63 6f 6e 28 6d  61 69 6e 25 2c 64 61 76  |t_icon(main%,dav|
000023a0  61 64 25 2c a4 67 65 74  5f 69 63 6f 6e 28 6d 61  |ad%,.get_icon(ma|
000023b0  69 6e 25 2c 64 61 76 61  64 25 29 29 0d 11 b2 05  |in%,davad%))....|
000023c0  e1 0d 11 bc 05 3a 0d 11  c6 12 dd f2 72 65 64 72  |.....:......redr|
000023d0  61 77 5f 74 69 74 6c 65  0d 11 d0 0d 21 71 25 3d  |aw_title....!q%=|
000023e0  6d 61 69 6e 25 0d 11 da  22 c8 99 20 22 57 69 6d  |main%...".. "Wim|
000023f0  70 5f 47 65 74 57 69 6e  64 6f 77 4f 75 74 6c 69  |p_GetWindowOutli|
00002400  6e 65 22 2c 2c 71 25 0d  11 e4 0f 78 6d 61 78 25  |ne",,q%....xmax%|
00002410  3d 71 25 21 31 32 0d 11  ee 0f 79 6d 61 78 25 3d  |=q%!12....ymax%=|
00002420  71 25 21 31 36 0d 11 f8  20 c8 99 20 22 57 69 6d  |q%!16... .. "Wim|
00002430  70 5f 47 65 74 57 69 6e  64 6f 77 53 74 61 74 65  |p_GetWindowState|
00002440  22 2c 2c 71 25 0d 12 02  19 e7 20 28 71 25 21 33  |",,q%..... (q%!3|
00002450  32 20 80 20 28 31 3c 3c  31 36 29 29 20 8c 0d 12  |2 . (1<<16)) ...|
00002460  0c 35 20 20 c8 99 20 22  57 69 6d 70 5f 46 6f 72  |.5  .. "Wimp_For|
00002470  63 65 52 65 64 72 61 77  22 2c 2d 31 2c 71 25 21  |ceRedraw",-1,q%!|
00002480  34 2c 71 25 21 31 36 2c  78 6d 61 78 25 2c 79 6d  |4,q%!16,xmax%,ym|
00002490  61 78 25 0d 12 16 05 cd  0d 12 20 05 e1 0d 12 2a  |ax%....... ....*|
000024a0  05 3a 0d 12 34 0e dd f2  74 65 72 6d 28 70 25 29  |.:..4...term(p%)|
000024b0  0d 12 3e 09 ea 20 41 50  25 0d 12 48 15 c8 95 20  |..>.. AP%..H... |
000024c0  3f 28 70 25 2b 41 50 25  29 20 3e 20 33 31 0d 12  |?(p%+AP%) > 31..|
000024d0  52 0a 41 50 25 2b 3d 31  0d 12 5c 05 ce 0d 12 66  |R.AP%+=1..\....f|
000024e0  0d 70 25 3f 41 50 25 3d  31 33 0d 12 70 05 e1 0d  |.p%?AP%=13..p...|
000024f0  12 7a 05 3a 0d 12 84 0d  dd f2 54 4f 55 50 50 65  |.z.:......TOUPPe|
00002500  72 0d 12 8e 0a 47 24 3d  49 4e 24 0d 12 98 0e 73  |r....G$=IN$....s|
00002510  6d 61 6c 6c 24 3d 49 4e  24 0d 12 a2 09 4b 24 3d  |mall$=IN$....K$=|
00002520  22 22 0d 12 ac 10 e3 20  49 25 3d 31 b8 a9 28 47  |""..... I%=1..(G|
00002530  24 29 0d 12 b6 10 45 24  3d c1 47 24 2c 49 25 2c  |$)....E$=.G$,I%,|
00002540  31 29 0d 12 c0 2b e7 20  97 28 45 24 29 3c 31 32  |1)...+. .(E$)<12|
00002550  33 20 80 20 97 28 45 24  29 3e 39 36 20 8c 20 45  |3 . .(E$)>96 . E|
00002560  24 3d bd 28 97 28 45 24  29 2d 33 32 29 0d 12 ca  |$=.(.(E$)-32)...|
00002570  0a 4b 24 2b 3d 45 24 0d  12 d4 05 ed 0d 12 de 0a  |.K$+=E$.........|
00002580  49 4e 24 3d 4b 24 0d 12  e8 05 e1 0d 12 f2 05 3a  |IN$=K$.........:|
00002590  0d 12 fc 1e dd 20 f2 6f  70 65 6e 6d 65 6e 75 28  |..... .openmenu(|
000025a0  64 61 74 61 25 2c 6d 78  25 2c 6d 79 25 29 0d 13  |data%,mx%,my%)..|
000025b0  06 11 6f 70 65 6e 25 3d  77 69 6e 64 6f 77 25 0d  |..open%=window%.|
000025c0  13 10 33 c8 99 22 57 69  6d 70 5f 43 72 65 61 74  |..3.."Wimp_Creat|
000025d0  65 4d 65 6e 75 22 2c 2c  64 61 74 61 25 2c 6d 78  |eMenu",,data%,mx|
000025e0  25 2d 28 6d 65 6e 75 25  21 31 36 29 2f 32 2c 6d  |%-(menu%!16)/2,m|
000025f0  79 25 0d 13 1a 05 e1 0d  13 24 05 3a 0d 13 2e 18  |y%.......$.:....|
00002600  dd 20 f2 63 72 77 69 6e  64 6f 77 28 77 69 6e 64  |. .crwindow(wind|
00002610  6f 77 25 29 0d 13 38 0f  21 71 25 3d 77 69 6e 64  |ow%)..8.!q%=wind|
00002620  6f 77 25 0d 13 42 1f c8  99 22 57 69 6d 70 5f 47  |ow%..B..."Wimp_G|
00002630  65 74 57 69 6e 64 6f 77  53 74 61 74 65 22 2c 2c  |etWindowState",,|
00002640  71 25 0d 13 4c 0c 71 25  21 32 38 3d 2d 31 0d 13  |q%..L.q%!28=-1..|
00002650  56 1b c8 99 22 57 69 6d  70 5f 4f 70 65 6e 57 69  |V..."Wimp_OpenWi|
00002660  6e 64 6f 77 22 2c 2c 71  25 0d 13 60 05 e1 0d 13  |ndow",,q%..`....|
00002670  6a 05 3a 0d 13 74 1d dd  20 a4 6c 6f 61 64 5f 74  |j.:..t.. .load_t|
00002680  65 6d 70 6c 61 74 65 28  77 69 6e 64 6f 77 24 29  |emplate(window$)|
00002690  0d 13 7e 0f 6d 61 78 77  73 25 3d 26 32 30 30 0d  |..~.maxws%=&200.|
000026a0  13 88 10 de 20 77 73 25  20 6d 61 78 77 73 25 0d  |.... ws% maxws%.|
000026b0  13 92 15 77 73 65 6e 64  25 3d 77 73 25 2b 6d 61  |...wsend%=ws%+ma|
000026c0  78 77 73 25 0d 13 9c 3b  c8 99 22 57 69 6d 70 5f  |xws%...;.."Wimp_|
000026d0  4c 6f 61 64 54 65 6d 70  6c 61 74 65 22 2c 2c 71  |LoadTemplate",,q|
000026e0  25 2c 77 73 25 2c 77 73  65 6e 64 25 2c 2d 31 2c  |%,ws%,wsend%,-1,|
000026f0  77 69 6e 64 6f 77 24 2c  30 20 b8 20 77 73 25 0d  |window$,0 . ws%.|
00002700  13 a6 27 c8 99 22 57 69  6d 70 5f 43 72 65 61 74  |..'.."Wimp_Creat|
00002710  65 57 69 6e 64 6f 77 22  2c 2c 71 25 20 b8 20 77  |eWindow",,q% . w|
00002720  69 6e 64 6f 77 25 0d 13  b0 0c 3d 77 69 6e 64 6f  |indow%....=windo|
00002730  77 25 0d 13 ba 05 3a 0d  13 c4 0d dd 20 a4 73 74  |w%....:..... .st|
00002740  28 70 25 29 0d 13 ce 0b  69 6e 63 25 3d 70 25 0d  |(p%)....inc%=p%.|
00002750  13 d8 08 ea 20 73 24 0d  13 e2 09 73 24 3d 22 22  |.... s$....s$=""|
00002760  0d 13 ec 0d c8 95 20 3f  70 25 3e 33 31 0d 13 f6  |...... ?p%>31...|
00002770  0e 73 24 2b 3d bd 28 3f  70 25 29 0d 14 00 09 70  |.s$+=.(?p%)....p|
00002780  25 2b 3d 31 0d 14 0a 05  ce 0d 14 14 14 69 6e 63  |%+=1.........inc|
00002790  25 3d 28 70 25 2d 69 6e  63 25 29 2b 31 0d 14 1e  |%=(p%-inc%)+1...|
000027a0  07 3d 73 24 0d 14 28 05  3a 0d 14 32 15 dd 20 f2  |.=s$..(.:..2.. .|
000027b0  63 6c 6f 73 65 28 77 69  6e 64 6f 77 25 29 0d 14  |close(window%)..|
000027c0  3c 0f 21 71 25 3d 77 69  6e 64 6f 77 25 0d 14 46  |<.!q%=window%..F|
000027d0  1c c8 99 22 57 69 6d 70  5f 43 6c 6f 73 65 57 69  |..."Wimp_CloseWi|
000027e0  6e 64 6f 77 22 2c 2c 71  25 0d 14 50 05 e1 0d 14  |ndow",,q%..P....|
000027f0  5a 05 3a 0d 14 64 1f dd  f2 64 65 6c 65 74 65 69  |Z.:..d...deletei|
00002800  63 6f 6e 28 77 69 6e 64  6f 77 25 2c 69 63 6f 6e  |con(window%,icon|
00002810  25 29 0d 14 6e 0f 21 71  25 3d 77 69 6e 64 6f 77  |%)..n.!q%=window|
00002820  25 0d 14 78 0e 71 25 21  34 3d 69 63 6f 6e 25 0d  |%..x.q%!4=icon%.|
00002830  14 82 1c c8 99 20 22 57  69 6d 70 5f 44 65 6c 65  |..... "Wimp_Dele|
00002840  74 65 49 63 6f 6e 22 2c  2c 71 25 0d 14 8c 05 e1  |teIcon",,q%.....|
00002850  0d 14 96 05 3a 0d 14 a0  47 dd 20 a4 63 72 65 61  |....:...G. .crea|
00002860  74 65 5f 69 63 6f 6e 28  6f 6c 64 25 2c 6e 61 6d  |te_icon(old%,nam|
00002870  65 24 2c 77 69 6e 64 6f  77 25 2c 78 25 2c 79 25  |e$,window%,x%,y%|
00002880  2c 77 25 2c 68 25 2c 66  6c 61 67 73 25 2c 68 61  |,w%,h%,flags%,ha|
00002890  6e 64 6c 65 25 2c 6e 61  6d 65 25 29 0d 14 aa 0f  |ndle%,name%)....|
000028a0  21 71 25 3d 77 69 6e 64  6f 77 25 0d 14 b4 0d 71  |!q%=window%....q|
000028b0  25 21 34 3d 6f 6c 64 25  0d 14 be 1c c8 99 20 22  |%!4=old%...... "|
000028c0  57 69 6d 70 5f 44 65 6c  65 74 65 49 63 6f 6e 22  |Wimp_DeleteIcon"|
000028d0  2c 2c 71 25 0d 14 c8 0f  6c 65 6e 25 3d a9 6e 61  |,,q%....len%=.na|
000028e0  6d 65 24 0d 14 d2 0f 21  71 25 3d 77 69 6e 64 6f  |me$....!q%=windo|
000028f0  77 25 0d 14 dc 0b 71 25  21 34 3d 78 25 0d 14 e6  |w%....q%!4=x%...|
00002900  0b 71 25 21 38 3d 79 25  0d 14 f0 0c 71 25 21 31  |.q%!8=y%....q%!1|
00002910  32 3d 77 25 0d 14 fa 0c  71 25 21 31 36 3d 68 25  |2=w%....q%!16=h%|
00002920  0d 15 04 10 71 25 21 32  30 3d 66 6c 61 67 73 25  |....q%!20=flags%|
00002930  0d 15 0e 2a e7 20 6e 61  6d 65 25 3d a3 20 8c 20  |...*. name%=. . |
00002940  de 20 71 25 21 32 34 20  6c 65 6e 25 20 8b 20 71  |. q%!24 len% . q|
00002950  25 21 32 34 3d 6e 61 6d  65 25 0d 15 18 12 24 28  |%!24=name%....$(|
00002960  71 25 21 32 34 29 3d 6e  61 6d 65 24 0d 15 22 11  |q%!24)=name$..".|
00002970  71 25 21 32 38 3d 68 61  6e 64 6c 65 25 0d 15 2c  |q%!28=handle%..,|
00002980  0e 71 25 21 33 32 3d 6c  65 6e 25 0d 15 36 23 c8  |.q%!32=len%..6#.|
00002990  99 22 57 69 6d 70 5f 43  72 65 61 74 65 49 63 6f  |."Wimp_CreateIco|
000029a0  6e 22 2c 2c 71 25 20 b8  20 69 63 6f 6e 25 0d 15  |n",,q% . icon%..|
000029b0  40 37 6f 24 3d c3 28 69  63 6f 6e 25 29 2b 22 20  |@7o$=.(icon%)+" |
000029c0  22 2b c3 28 78 25 29 2b  22 20 22 2b c3 28 79 25  |"+.(x%)+" "+.(y%|
000029d0  29 2b 22 20 22 2b c3 28  77 25 29 2b 22 20 22 2b  |)+" "+.(w%)+" "+|
000029e0  c3 28 68 25 29 0d 15 4a  0f f4 45 52 52 4f 52 20  |.(h%)..J..ERROR |
000029f0  30 2c 6f 24 0d 15 54 0a  3d 69 63 6f 6e 25 0d 15  |0,o$..T.=icon%..|
00002a00  5e 05 3a 0d 15 68 43 dd  20 a4 63 72 65 61 74 65  |^.:..hC. .create|
00002a10  5f 69 63 6f 6e 32 28 6e  61 6d 65 24 2c 77 69 6e  |_icon2(name$,win|
00002a20  64 6f 77 25 2c 78 25 2c  79 25 2c 77 25 2c 68 25  |dow%,x%,y%,w%,h%|
00002a30  2c 66 6c 61 67 73 25 2c  68 61 6e 64 6c 65 25 2c  |,flags%,handle%,|
00002a40  6e 61 6d 65 25 29 0d 15  72 0f 6c 65 6e 25 3d a9  |name%)..r.len%=.|
00002a50  6e 61 6d 65 24 0d 15 7c  0f 21 71 25 3d 77 69 6e  |name$..|.!q%=win|
00002a60  64 6f 77 25 0d 15 86 0b  71 25 21 34 3d 78 25 0d  |dow%....q%!4=x%.|
00002a70  15 90 0b 71 25 21 38 3d  79 25 0d 15 9a 0c 71 25  |...q%!8=y%....q%|
00002a80  21 31 32 3d 77 25 0d 15  a4 0c 71 25 21 31 36 3d  |!12=w%....q%!16=|
00002a90  68 25 0d 15 ae 10 71 25  21 32 30 3d 66 6c 61 67  |h%....q%!20=flag|
00002aa0  73 25 0d 15 b8 2a e7 20  6e 61 6d 65 25 3d a3 20  |s%...*. name%=. |
00002ab0  8c 20 de 20 71 25 21 32  34 20 6c 65 6e 25 20 8b  |. . q%!24 len% .|
00002ac0  20 71 25 21 32 34 3d 6e  61 6d 65 25 0d 15 c2 12  | q%!24=name%....|
00002ad0  24 28 71 25 21 32 34 29  3d 6e 61 6d 65 24 0d 15  |$(q%!24)=name$..|
00002ae0  cc 11 71 25 21 32 38 3d  68 61 6e 64 6c 65 25 0d  |..q%!28=handle%.|
00002af0  15 d6 0e 71 25 21 33 32  3d 6c 65 6e 25 0d 15 e0  |...q%!32=len%...|
00002b00  23 c8 99 22 57 69 6d 70  5f 43 72 65 61 74 65 49  |#.."Wimp_CreateI|
00002b10  63 6f 6e 22 2c 2c 71 25  20 b8 20 69 63 6f 6e 25  |con",,q% . icon%|
00002b20  0d 15 ea 0a 3d 69 63 6f  6e 25 0d 15 f4 05 3a 0d  |....=icon%....:.|
00002b30  15 fe 14 dd 20 f2 69 6e  66 6f 28 77 69 6e 64 6f  |.... .info(windo|
00002b40  77 25 29 0d 16 08 0f 21  71 25 3d 77 69 6e 64 6f  |w%)....!q%=windo|
00002b50  77 25 0d 16 12 1e c8 99  22 57 69 6d 70 5f 47 65  |w%......"Wimp_Ge|
00002b60  74 57 69 6e 64 6f 77 49  6e 66 6f 22 2c 2c 71 25  |tWindowInfo",,q%|
00002b70  0d 16 1c 16 68 65 69 67  68 74 25 3d 71 25 21 31  |....height%=q%!1|
00002b80  36 2d 71 25 21 38 0d 16  26 15 77 69 64 74 68 25  |6-q%!8..&.width%|
00002b90  3d 71 25 21 31 32 2d 71  25 21 34 0d 16 30 05 e1  |=q%!12-q%!4..0..|
00002ba0  0d 16 3a 05 3a 0d 16 44  04 0d 16 4e 1e dd 20 a4  |..:.:..D...N.. .|
00002bb0  67 65 74 5f 69 63 6f 6e  28 77 69 6e 64 6f 77 25  |get_icon(window%|
00002bc0  2c 69 63 6f 6e 25 29 0d  16 58 0f 21 71 25 3d 77  |,icon%)..X.!q%=w|
00002bd0  69 6e 64 6f 77 25 0d 16  62 0e 71 25 21 34 3d 69  |indow%..b.q%!4=i|
00002be0  63 6f 6e 25 0d 16 6c 1d  c8 99 22 57 69 6d 70 5f  |con%..l..."Wimp_|
00002bf0  47 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 71  |GetIconState",,q|
00002c00  25 0d 16 76 0f 69 24 3d  24 28 71 25 21 32 38 29  |%..v.i$=$(q%!28)|
00002c10  0d 16 80 07 3d 69 24 0d  16 8a 05 3a 0d 16 94 24  |....=i$....:...$|
00002c20  dd 20 f2 73 65 74 5f 69  63 6f 6e 28 77 69 6e 64  |. .set_icon(wind|
00002c30  6f 77 25 2c 69 63 6f 6e  25 2c 6e 61 6d 65 24 29  |ow%,icon%,name$)|
00002c40  0d 16 9e 08 ea 20 70 25  0d 16 a8 0d 70 25 3d 71  |..... p%....p%=q|
00002c50  25 2b 39 30 30 0d 16 b2  0f 21 70 25 3d 77 69 6e  |%+900....!p%=win|
00002c60  64 6f 77 25 0d 16 bc 0e  70 25 21 34 3d 69 63 6f  |dow%....p%!4=ico|
00002c70  6e 25 0d 16 c6 1d c8 99  22 57 69 6d 70 5f 47 65  |n%......"Wimp_Ge|
00002c80  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 70 25 0d  |tIconState",,p%.|
00002c90  16 d0 10 24 70 25 21 32  38 3d 6e 61 6d 65 24 0d  |...$p%!28=name$.|
00002ca0  16 da 0a 70 25 21 38 3d  30 0d 16 e4 0b 70 25 21  |...p%!8=0....p%!|
00002cb0  31 32 3d 30 0d 16 ee 1d  c8 99 22 57 69 6d 70 5f  |12=0......"Wimp_|
00002cc0  53 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 70  |SetIconState",,p|
00002cd0  25 0d 16 f8 05 e1 0d 17  02 05 3a 0d 17 0c 12 dd  |%.........:.....|
00002ce0  20 f2 77 61 72 6e 28 74  65 78 74 24 29 0d 17 16  | .warn(text$)...|
00002cf0  17 c8 99 22 57 69 6d 70  5f 44 72 61 67 42 6f 78  |..."Wimp_DragBox|
00002d00  22 2c 2c 30 0d 17 20 09  21 71 25 3d 30 0d 17 2a  |",,0.. .!q%=0..*|
00002d10  14 24 28 71 25 2b 34 29  3d 74 65 78 74 24 2b bd  |.$(q%+4)=text$+.|
00002d20  30 0d 17 34 26 c8 99 22  57 69 6d 70 5f 52 65 70  |0..4&.."Wimp_Rep|
00002d30  6f 72 74 45 72 72 6f 72  22 2c 71 25 2c 31 2c 70  |ortError",q%,1,p|
00002d40  72 6f 67 72 61 6d 24 0d  17 3e 05 e1 0d 17 48 05  |rogram$..>....H.|
00002d50  3a 0d 17 52 13 dd 20 a4  63 68 65 63 6b 28 74 65  |:..R.. .check(te|
00002d60  78 74 24 29 0d 17 5c 17  c8 99 22 57 69 6d 70 5f  |xt$)..\..."Wimp_|
00002d70  44 72 61 67 42 6f 78 22  2c 2c 30 0d 17 66 09 21  |DragBox",,0..f.!|
00002d80  71 25 3d 30 0d 17 70 14  24 28 71 25 2b 34 29 3d  |q%=0..p.$(q%+4)=|
00002d90  74 65 78 74 24 2b bd 30  0d 17 7a 42 c8 99 22 57  |text$+.0..zB.."W|
00002da0  69 6d 70 5f 52 65 70 6f  72 74 45 72 72 6f 72 22  |imp_ReportError"|
00002db0  2c 71 25 2c 31 39 2c 22  4d 65 73 73 61 67 65 20  |,q%,19,"Message |
00002dc0  66 72 6f 6d 20 22 2b 70  72 6f 67 72 61 6d 24 20  |from "+program$ |
00002dd0  b8 20 2c 61 6e 73 77 65  72 25 0d 17 84 19 e7 20  |. ,answer%..... |
00002de0  61 6e 73 77 65 72 25 3d  31 20 8c 20 3d b9 20 8b  |answer%=1 . =. .|
00002df0  20 3d a3 0d 17 8e 05 3a  0d 17 98 14 dd 20 f2 6f  | =.....:..... .o|
00002e00  70 65 6e 28 77 69 6e 64  6f 77 25 29 0d 17 a2 0f  |pen(window%)....|
00002e10  21 71 25 3d 77 69 6e 64  6f 77 25 0d 17 ac 1f c8  |!q%=window%.....|
00002e20  99 22 57 69 6d 70 5f 47  65 74 57 69 6e 64 6f 77  |."Wimp_GetWindow|
00002e30  53 74 61 74 65 22 2c 2c  71 25 0d 17 b6 0c 71 25  |State",,q%....q%|
00002e40  21 32 38 3d 2d 31 0d 17  c0 1b c8 99 22 57 69 6d  |!28=-1......"Wim|
00002e50  70 5f 4f 70 65 6e 57 69  6e 64 6f 77 22 2c 2c 71  |p_OpenWindow",,q|
00002e60  25 0d 17 ca 05 e1 0d 17  d4 05 3a 0d 17 de 08 dd  |%.........:.....|
00002e70  20 a4 50 0d 17 e8 18 ea  20 43 4f 4d 41 4e 44 53  | .P..... COMANDS|
00002e80  24 2c 50 52 41 4d 53 24  2c 49 25 0d 17 f2 1d c8  |$,PRAMS$,I%.....|
00002e90  99 20 22 4f 53 5f 47 65  74 45 6e 76 22 20 b8 20  |. "OS_GetEnv" . |
00002ea0  43 4f 4d 41 4e 44 53 24  0d 17 fc 0d 50 52 41 4d  |COMANDS$....PRAM|
00002eb0  53 24 3d 22 22 0d 18 06  1b 49 25 3d a7 43 4f 4d  |S$=""....I%=.COM|
00002ec0  41 4e 44 53 24 2c 22 20  2d 71 75 69 74 20 22 29  |ANDS$," -quit ")|
00002ed0  0d 18 10 3b e7 20 49 25  20 8c 20 50 52 41 4d 53  |...;. I% . PRAMS|
00002ee0  24 3d c1 43 4f 4d 41 4e  44 53 24 2c a7 43 4f 4d  |$=.COMANDS$,.COM|
00002ef0  41 4e 44 53 24 2c 22 20  22 2c 49 25 2b a9 22 20  |ANDS$," ",I%+." |
00002f00  2d 71 75 69 74 20 22 29  2b 31 29 0d 18 1a 28 f4  |-quit ")+1)...(.|
00002f10  49 46 20 49 4e 53 54 52  28 50 52 41 4d 53 24 2c  |IF INSTR(PRAMS$,|
00002f20  22 3c 22 29 3e 30 20 54  48 45 4e 20 50 52 4f 43  |"<")>0 THEN PROC|
00002f30  79 79 79 0d 18 24 0b 3d  50 52 41 4d 53 24 0d 18  |yyy..$.=PRAMS$..|
00002f40  2e 05 3a 0d 18 38 09 dd  f2 79 79 79 0d 18 42 1c  |..:..8...yyy..B.|
00002f50  50 24 3d c0 50 52 41 4d  53 24 2c a7 50 52 41 4d  |P$=.PRAMS$,.PRAM|
00002f60  53 24 2c 22 3e 22 29 29  0d 18 4c 1f 6c 6c 24 3d  |S$,">"))..L.ll$=|
00002f70  c2 50 52 41 4d 53 24 2c  a7 50 52 41 4d 53 24 2c  |.PRAMS$,.PRAMS$,|
00002f80  22 3e 22 29 2d 31 29 0d  18 56 14 50 24 3d 20 c0  |">")-1)..V.P$= .|
00002f90  50 24 2c a9 28 50 24 29  2d 31 29 0d 18 60 14 50  |P$,.(P$)-1)..`.P|
00002fa0  24 3d 20 c2 50 24 2c a9  28 50 24 29 2d 31 29 0d  |$= .P$,.(P$)-1).|
00002fb0  18 6a 20 50 52 41 4d 53  24 3d a4 52 65 61 64 56  |.j PRAMS$=.ReadV|
00002fc0  61 72 69 61 62 6c 65 28  50 24 29 2b 6c 6c 24 0d  |ariable(P$)+ll$.|
00002fd0  18 74 05 e1 0d 18 7e 05  3a 0d 18 88 1d dd a4 52  |.t....~.:......R|
00002fe0  65 61 64 56 61 72 69 61  62 6c 65 28 56 61 72 69  |eadVariable(Vari|
00002ff0  61 62 6c 65 24 29 0d 18  92 1b ea 6c 65 6e 25 2c  |able$).....len%,|
00003000  72 65 73 75 6c 74 25 2c  76 61 72 69 61 62 6c 65  |result%,variable|
00003010  25 0d 18 9c 11 24 71 25  3d 56 61 72 69 61 62 6c  |%....$q%=Variabl|
00003020  65 24 0d 18 a6 2d c8 99  22 4f 53 5f 52 65 61 64  |e$...-.."OS_Read|
00003030  56 61 72 56 61 6c 22 2c  71 25 2c 71 25 2b 32 35  |VarVal",q%,q%+25|
00003040  35 2c 32 35 35 2c 2c 33  b8 2c 2c 6c 65 6e 25 0d  |5,255,,3.,,len%.|
00003050  18 b0 14 71 25 3f 28 6c  65 6e 25 2b 32 35 35 29  |...q%?(len%+255)|
00003060  3d 31 33 0d 18 ba 0e 3d  24 28 71 25 2b 32 35 35  |=13....=$(q%+255|
00003070  29 0d 18 c4 05 3a 0d 18  ce 0d dd a4 72 75 6e 6e  |)....:......runn|
00003080  69 6e 67 0d 18 d8 06 3d  b9 0d 18 e2 0a de 20 62  |ing....=...... b|
00003090  20 33 30 0d 18 ec 09 6e  75 6d 3d 30 0d 18 f6 05  | 30....num=0....|
000030a0  f5 0d 19 00 32 c8 99 20  22 54 61 73 6b 4d 61 6e  |....2.. "TaskMan|
000030b0  61 67 65 72 5f 45 6e 75  6d 65 72 61 74 65 54 61  |ager_EnumerateTa|
000030c0  73 6b 73 22 2c 6e 75 6d  2c 62 2c 33 30 20 b8 20  |sks",num,b,30 . |
000030d0  6e 75 6d 0d 19 0a 10 e7  20 6e 75 6d 3c 30 20 8c  |num..... num<0 .|
000030e0  20 3d b9 0d 19 14 0e 63  68 61 72 3d 62 21 34 2d  | =.....char=b!4-|
000030f0  31 0d 19 1e 09 74 24 3d  22 22 0d 19 28 0d f5 20  |1....t$=""..(.. |
00003100  63 68 61 72 2b 3d 31 0d  19 32 21 e7 20 28 3f 63  |char+=1..2!. (?c|
00003110  68 61 72 29 3e 33 31 20  8c 20 74 24 3d 74 24 2b  |har)>31 . t$=t$+|
00003120  bd 28 3f 63 68 61 72 29  0d 19 3c 10 fd 20 28 3f  |.(?char)..<.. (?|
00003130  63 68 61 72 29 3c 33 32  0d 19 46 46 e7 20 74 24  |char)<32..FF. t$|
00003140  3d 22 44 61 76 69 64 20  52 50 47 32 22 20 8c 20  |="David RPG2" . |
00003150  85 20 31 2c 22 44 61 76  69 64 20 52 50 47 20 69  |. 1,"David RPG i|
00003160  73 20 41 6c 72 65 61 64  79 20 52 75 6e 6e 69 6e  |s Already Runnin|
00003170  67 2e 20 53 6f 72 72 79  22 3a f2 45 4e 44 0d 19  |g. Sorry":.END..|
00003180  50 0b fd 20 6e 75 6d 3c  30 0d 19 5a 06 3d b9 0d  |P.. num<0..Z.=..|
00003190  19 64 04 0d 19 6e 09 dd  f2 45 4e 44 0d 19 78 2c  |.d...n...END..x,|
000031a0  c8 99 20 22 58 4f 53 5f  43 4c 49 22 2c 22 57 69  |.. "XOS_CLI","Wi|
000031b0  70 65 20 22 2b 64 69 72  24 2b 22 2e 2a 20 20 7e  |pe "+dir$+".*  ~|
000031c0  43 7e 46 7e 52 7e 56 22  0d 19 82 1f c8 99 20 22  |C~F~R~V"...... "|
000031d0  58 4f 53 5f 43 4c 49 22  2c 22 44 65 6c 65 74 65  |XOS_CLI","Delete|
000031e0  20 22 2b 64 69 72 24 0d  19 8c 05 e0 0d ff        | "+dir$.......|
000031ee