� >$.!AMFTable.!RunImage
+� Main program code for RISCOS AMFTable
'� Version 1.10 Last Update 04/07/91
( � � AMF the Doomwatcher 1991
2�
<;� Thanks must go to Robert Seago of Essex for the idea.
F:
PB� These two variables determine the maximum size of the table.
Zmaxrows=48:maxcols=48
d:
nB� block &1000, menu% 1024,curbuf% &2000,icond &1000,file &A000
xK� rows(maxrows),rowstyle(maxrows),columns(maxcols),columnstyle(maxcols)
�>� content$(maxrows,maxcols),justification(maxrows,maxcols)
�content$()=""
�:
�Cxpos=0:ypos=0:rowpos=0:colpos=0:maxwidth=0:maxheight=0:scale=36
�2crows=0:ccolumn=0:automove=4:xoff=100:yoff=100
�:
�endbuf%=curbuf%+&1000
�Dș "Wimp_Initialise",200,&4B534154,"AMFTable" � version%,mytask%
�
�template
� $version%="1.10 (04-Jul-91)"
�Dinitic=�iconbar(%11010,-1,7,0,"!AMFTable"+�13,0,0,0,3,0,0,68,68)
�#end%=�:drag%=0:saving%=0:ack%=�
�
�check

*ȗ x,y,b:� b<>0 � �openwindow(thanks%)

:

�setupcolumn(colpos)

"�setuprow(rowpos)

,�setupcontent(xpos,ypos)

6:

@�

J&ș "Wimp_Poll",1,block � eventcode

TȎ eventcode �

^� 0:

h-� 1:ș "Wimp_RedrawWindow",,block � more%

r� !block=table% � �draww1

|#� 2:ș "Wimp_OpenWindow",,block

�$� 3:ș "Wimp_CloseWindow",,block

�� 6:�buttons(block)

�
� 7:�drag

�� 8:�processkey

�� 9:�decode

�� 17,18:�mess

��

�
� end%

��

�4��open(handle,vminx,vminy,vmaxx,vmaxy,xoff,yoff)

�<!block=handle:block!4=vminx:block!8=vminy:block!12=vmaxx

�:block!16=vmaxy:block!20=xoff:block!24=yoff:block!28=-1

�ș "Wimp_OpenWindow",,block
�
Kݤiconbar(flags,part,for,bac,data$,add,add2,length,mouse,xs1,ys1,xs,ys)
!icond=part
&icond!4=xs1
0'icond!8=ys1:icond!12=xs:icond!16=ys
:5icond!20=flags+((2^12)*mouse):icond?23=for+bac*16
DP� data$<>"" � $(icond+24)=data$ � icond!24=add:icond!28=add2:icond!32=length
N&ș "Wimp_CreateIcon",,icond � icon
X	=icon
bݤtemplate(a$)
lGș "Wimp_LoadTemplate",,block,indir,endbuf%,-1,a$,0 � ,,indir,,,,c%
v0� c%=0 � �4:� "Template ";a$;" not found.":�
�block!64=1
�*ș "Wimp_CreateWindow",,block � handle
�=handle
���moan(a$)
�!icond=0:$(icond+4)=a$+�0
�,ș "Wimp_ReportError",icond,1,"AMFTable"
��
�
ݤstr(a%)
�� b$
�ȕ ?a%>=32
�b$+=�(?a%)
�	a%+=1
��
=b$
ݤtad(handle,icon)
�gii(handle,icon)
 
=icond!28
*��gii(handle,icon)
4!icond=handle:icond!4=icon
>!ș "Wimp_GetIconState",,icond
H�
R��openwindow(handle%)
\!icond=handle%
f"ș "Wimp_GetWindowInfo",,icond
pș "Wimp_OpenWindow",,icond
z�
� ��alter(hand,icon,eor,clear)
�!icond=hand:icond!4=icon
�icond!8=eor:icond!12=clear
�!ș "Wimp_SetIconState",,icond
��
���state(wi,ic)
�!block=wi:block!4=ic
�!ș "Wimp_GetIconState",,block
��
�ݤselect(wi,ic)
��state(wi,ic)
�"� ((block!24) � 1<<21)>0 � =-1
�=0

ݤbit(a$)
ȕ �a$,":")>0
a$=�a$,�a$,":")+1)
$�
.ȕ �a$,".")>0
8a$=�a$,�a$,".")+1)
B�
L=a$
V��openmenu(x,y)
`&ș "Wimp_CreateMenu",,topmenu%,x,y
j�
tݤmenu(title$,width,menu$)
~menu$+=","
�oldmenu=menuptr
�$menuptr=title$
�menuptr?12=7
�menuptr?13=2
�menuptr?14=7
�menuptr?15=0
�menuptr!16=width
�menuptr!20=48
�menuptr!24=0
�menuptr+=28
��
��item(menu$)
menu$=�menu$,�menu$,",")+1)

menuptr+=24
� menu$=""
)menuptr!-24=(menuptr!-24) � %10000000
(=oldmenu
2��item(m$)
<m$=�m$,�m$,",")-1)
Fi$="":j$=""
P� �m$,"[")>0 �
Zi$=�m$,�m$,"]")-1)
dm$=�m$,�m$,"]")+1)
nj$=�i$,�i$,"/")-1)
xi$=�i$,�i$,"/")+1)
��
�iflags=&07000021
�mflags=0
�submenu=-1
� � �j$,"w")>0 � submenu=�(i$)
� � �j$,"s")>0 � submenu=�(i$)
�$� �j$,"t")>0 � mflags=mflags � 1
�$� �j$,"l")>0 � mflags=mflags � 2
�!menuptr=mflags
�menuptr!4=submenu
�menuptr!8=iflags
�$(menuptr+12)=m$
��
	��isd
!block=save%
#ș "Wimp_GetWindowState",,block
"ysize%=block!16-block!8
,#x%=block!4:y%=block!8:block!4=9
6!ș "Wimp_GetIconState",,block
@#block!8+=x%:block!12+=y%+ysize%
J$block!16+=x%:block!20+=y%+ysize%
T5block!24=0:block!28=0:block!32=1279:block!36=1023
^)!block=0:block!4=5:drag%=�:saving%=-1
hș "Wimp_DragBox",,block
r�
|
��isd2
�!block=save2%
�#ș "Wimp_GetWindowState",,block
�ysize%=block!16-block!8
�#x%=block!4:y%=block!8:block!4=9
�!ș "Wimp_GetIconState",,block
�#block!8+=x%:block!12+=y%+ysize%
�$block!16+=x%:block!20+=y%+ysize%
�5block!24=0:block!28=0:block!32=1279:block!36=1023
�)!block=0:block!4=5:drag%=�:saving%=-2
�ș "Wimp_DragBox",,block
��
�
��drag
�� saving%=-1 �
#ș "Wimp_GetPointerInfo",,block
$block!32=block!4:block!28=!block
'block!24=block!16:block!20=block!12
&/block!16=1:block!12=0:block!36=0:block!40=0
0)� I=0 � 255:� I?stext<32 � I?stext=13
:�
D)$(block+44)=�bit($stext)+�0:!block=60
N+ș "Wimp_SendMessage",17,block,block!20
Xdrag%=0
b�
l� saving%=-2 �
v#ș "Wimp_GetPointerInfo",,block
�$block!32=block!4:block!28=!block
�'block!24=block!16:block!20=block!12
�/block!16=1:block!12=0:block!36=0:block!40=0
�+� I=0 � 255:� I?stext2<32 � I?stext2=13
��
�*$(block+44)=�bit($stext2)+�0:!block=60
�+ș "Wimp_SendMessage",17,block,block!20
�drag%=0
��
��
���buttons(block)
�icon=block!16
�&� block!12=-2 � block!8=2 �menus:�
G� block!12=-2 � block!8<>2 �openwindow(table%):�openwindow(edit%):�
+� block!12=table% � block!8=2 �menus2:�
*� block!12=edit% � block!8=2 �menus2:�
 &� block!12=save% � block!16=9 �isd
*6� block!12=save% � block!16=8 � �save(�str(stext))
4(� block!12=save2% � block!16=9 �isd2
>9� block!12=save2% � block!16=8 � �save2(�str(stext2))
H"� block!12=rows% � �buttonrows
R(� block!12=columns% � �buttoncolumns
\"� block!12=edit% � �buttonedit
f�
p��processkey
zicon=block!4:key=block!24
�1� block!0=save% � block!24=13 � �save($stext)
�4� block!0=save2% � block!24=13 � �save2($stext2)
�� block!0=rows% � �rowskey
�$� block!0=columns% � �columnskey
�� block!0=edit% � �editkey
�!ș "Wimp_ProcessKey",block!24
��
���menus
�menuopen=-44
�menuptr=menu%
�ȗ x,y,b
�7topmenu%=�menu("AMFTable",150,"[w/info%]Info,Quit")
��openmenu(x-75,198)
	�
	��menus2
	menuopen=-45
	$menuptr=menu%
	.ȗ x,y,b
	8?savemenu%=�menu("Save",150,"[w/save%]Draw,[w/save2%]Table")
	BGdefinemenu%=�menu("Define",150,"[w/columns%]Columns,[w/rows%]Rows")
	L9clearmenu%=�menu("Clear",150,"Columns,Rows,Text,All")
	V"m$="":� automove=0 � m$+="[t]"
	`(m$+="None,":� automove=1 � m$+="[t]"
	j(m$+="Left,":� automove=2 � m$+="[t]"
	t)m$+="Right,":� automove=3 � m$+="[t]"
	~&m$+="Up,":� automove=4 � m$+="[t]"
	�m$+="Down"
	�"movemenu%=�menu("Move",150,m$)
	�rtopmenu%=�menu("AMFTable",150,"[s/savemenu%]Save,[s/definemenu%]Define,[s/clearmenu%]Clear,[s/movemenu%]Move")
	��openmenu(x-75,y)
	��
	���decode
	�.ș "Wimp_DecodeMenu",,topmenu%,block,icond
	�� $icond="Quit" � end%=�:�4
	�-� $icond="Save.Draw" � �openwindow(save%)
	�/� $icond="Save.Table" � �openwindow(save2%)
	�5� $icond="Define.Columns" � �openwindow(columns%)
	�/� $icond="Define.Rows" � �openwindow(rows%)
&� $icond="Move.None"  � automove=0

&� $icond="Move.Left"  � automove=1
&� $icond="Move.Right" � automove=2
&� $icond="Move.Up"    � automove=3
(&� $icond="Move.Down"  � automove=4
2,� $icond="Clear.Columns" � �clearcolumns
<&� $icond="Clear.Rows" � �clearrows
F&� $icond="Clear.Text" � �cleartext
P$� $icond="Clear.All" � �clearall
Z#ș "Wimp_GetPointerInfo",,block
d� block!8=1 �
n� menuopen=-44 � �menus
x� menuopen=-45 � �menus2
�"ș "Wimp_CreateMenu",,topmenu%
��
�ș "Wimp_CreateMenu",,-1
��
��
���template
�6ș "Wimp_OpenTemplate",,"<AMFTable$Dir>.Templates"
�indir=curbuf%
�info%=�template("ProgInfo")
�save%=�template("SaveDraw")
�!save2%=�template("SaveTable")
�edit%=�template("Edit")
�table%=�template("Table")
thanks%=�template("Thanks")
!columns%=�template("Columns")
rows%=�template("Rows")
"ș "Wimp_CloseTemplate"
,stext=�tad(save%,0)
6stext2=�tad(save2%,0)
@version%=�tad(info%,12)
J�
T
��mess
^task=block!4:ref=block!8
hȎ block!16 �
r� 0:end%=�
|� 2:
�� saving%=-1 �
��save(�str(block+44))
��
�� saving%=-2 �
��save2(�str(block+44))
��
�� 3:
�load$=�str(block+44)
�� block!40=&FFD �
�1� �:� � � �moan("Couldn't load : "+�$):� �THL
�ș "Hourglass_On"
�
�loadfile
�ș "Hourglass_Off"
� �
�
� 4:ack%=�
&�
0�
:��cmenu
D#ș "Wimp_GetPointerInfo",,icond
N� icond!8=1 �
X� menuopen=-44 � �menu
b"ș "Wimp_CreateMenu",,topmenu%
l�
vș "Wimp_CreateMenu",,-1
��
��
���save2(a$)
�\� �a$,".")<1 � �a$,":")<1 � �moan("To save, drag the save icon to a directory viewer"):�
�� �
�6� � � �moan("Couldn't save : "+�$+" "+�(�)):� �dTM
�save$=a$
�ofile=�(a$)
��#ofile,"eliF elbatFMA"
��#ofile,maxrows
��#ofile,maxcols
��#ofile,"yadsmooD"
�� I%=0 � maxrows

�#ofile,rows(I%)

�#ofile,rowstyle(I%)

�

 !�#ofile,"rehctawmooD eht FMA"

*� I%=0 � maxcols

4�#ofile,columns(I%)

>�#ofile,columnstyle(I%)

H�

R�#ofile,"noddegamrA"

\� I%=0 � maxrows

f� J%=0 � maxcols

p�#ofile,content$(I%,J%)

z �#ofile,justification(I%,J%)

��

��

��#ofile,"dehsiniF"

��#ofile

��("SETTYPE "+a$+" FFD")

�
�cmenu

�$stext2=save$

�modified=0

�� �

��

���loadfile

�� �

�-� � � �moan("Couldn't load : "+�$):� �ThO
ifile=�(load$)
�#ifile,check$
;� check$<>"eliF elbatFMA" � � 1,"Corrupt data file (1)"
$�#ifile,maxrows2
.�#ifile,maxcols2
83� maxrows2<>maxrows � 1,"Unsuitable table size"
B3� maxcols2<>maxcols � 1,"Unsuitable table size"
L�#ifile,check$
V6� check$<>"yadsmooD" � � 1,"Corrupt data file (2)"
`� I%=0 � maxrows
j�#ifile,rows(I%)
t�#ifile,rowstyle(I%)
~�
��#ifile,check$
�A� check$<>"rehctawmooD eht FMA" � � 1,"Corrupt data file (3)"
�� I%=0 � maxcols
��#ifile,columns(I%)
��#ifile,columnstyle(I%)
��
��#ifile,check$
�8� check$<>"noddegamrA" � � 1,"Corrupt data file (4)"
�� I%=0 � maxrows
�� J%=0 � maxcols
��#ifile,content$(I%,J%)
� �#ifile,justification(I%,J%)
�

�
�#ifile,check$
6� check$<>"dehsiniF" � � 1,"Corrupt data file (5)"
(�#ifile
2$stext2=load$
<�recalc
F3ș "Wimp_ForceRedraw",table%,0,-100000,100000,0
Pcolpos=0:rowpos=0
Z�setupcolumn(colpos)
d�setuprow(rowpos)
n�setupcontent(xpos,ypos)
x� �
��
���check
�(� $�tad(info%,9)<>"� AMFsoft 1991" �
��moan("Pax Vobiscum.")
��
��
��
���setuprow(position)
�$�tad(rows%,3)=�(position)
�%$�tad(rows%,12)=�(rows(position))
��alter(rows%,3,0,0)
��alter(rows%,12,0,0)
�k� rowstyle(position)=0 � �alter(rows%,15,1<<21,1<<21):�alter(rows%,14,0,1<<21):�alter(rows%,16,0,1<<21)
k� rowstyle(position)=1 � �alter(rows%,15,0,1<<21):�alter(rows%,14,1<<21,1<<21):�alter(rows%,16,0,1<<21)
k� rowstyle(position)=2 � �alter(rows%,15,0,1<<21):�alter(rows%,14,0,1<<21):�alter(rows%,16,1<<21,1<<21)
�recalc
"3ș "Wimp_ForceRedraw",table%,0,-100000,100000,0
,�
6��setupcolumn(position)
@!$�tad(columns%,3)=�(position)
J+$�tad(columns%,12)=�(columns(position))
T�alter(columns%,3,0,0)
^�alter(columns%,12,0,0)
hw� columnstyle(position)=0 � �alter(columns%,15,1<<21,1<<21):�alter(columns%,14,0,1<<21):�alter(columns%,16,0,1<<21)
rw� columnstyle(position)=1 � �alter(columns%,15,0,1<<21):�alter(columns%,14,1<<21,1<<21):�alter(columns%,16,0,1<<21)
|w� columnstyle(position)=2 � �alter(columns%,15,0,1<<21):�alter(columns%,14,0,1<<21):�alter(columns%,16,1<<21,1<<21)
��recalc
�3ș "Wimp_ForceRedraw",table%,0,-100000,100000,0
��
���setupcontent(x,y)
�$�tad(edit%,1)=�(x)
�$�tad(edit%,3)=�(y)
�!$�tad(edit%,18)=content$(x,y)
��alter(edit%,1,0,0)
��alter(edit%,3,0,0)
��alter(edit%,18,0,0)
�k� justification(x,y)=0 � �alter(edit%,19,1<<21,1<<21):�alter(edit%,20,0,1<<21):�alter(edit%,21,0,1<<21)
�k� justification(x,y)=1 � �alter(edit%,19,0,1<<21):�alter(edit%,20,1<<21,1<<21):�alter(edit%,21,0,1<<21)
�k� justification(x,y)=2 � �alter(edit%,19,0,1<<21):�alter(edit%,20,0,1<<21):�alter(edit%,21,1<<21,1<<21)
3ș "Wimp_ForceRedraw",table%,0,-100000,100000,0
�
��buttonrows
&� icon=7 �
0#rows(rowpos)=�($�tad(rows%,12))
:)rowpos+=1:� rowpos=maxrows � rowpos=0
D�setuprow(rowpos)
N0ș "Wimp_SetCaretPosition",rows%,12,0,0,-1,0
X�
b�
l� icon=8 �
v#rows(rowpos)=�($�tad(rows%,12))
�,rowpos-=1:� rowpos=-1 � rowpos=maxrows-1
��setuprow(rowpos)
�0ș "Wimp_SetCaretPosition",rows%,12,0,0,-1,0
��
��
�Z� icon=15 � rowstyle(rowpos)=0:ș "Wimp_ForceRedraw",table%,0,-100000,100000,0:�recalc
�Z� icon=14 � rowstyle(rowpos)=1:ș "Wimp_ForceRedraw",table%,0,-100000,100000,0:�recalc
�Z� icon=16 � rowstyle(rowpos)=2:ș "Wimp_ForceRedraw",table%,0,-100000,100000,0:�recalc
��
���buttoncolumns
�� icon=7 �
�)columns(colpos)=�($�tad(columns%,12))
�)colpos+=1:� colpos=maxcols � colpos=0
�setupcolumn(colpos)
3ș "Wimp_SetCaretPosition",columns%,12,0,0,-1,0
�
 �
*� icon=8 �
4)columns(colpos)=�($�tad(columns%,12))
>,colpos-=1:� colpos=-1 � colpos=maxcols-1
H�setupcolumn(colpos)
R3ș "Wimp_SetCaretPosition",columns%,12,0,0,-1,0
\�
f�
p]� icon=15 � columnstyle(colpos)=0:ș "Wimp_ForceRedraw",table%,0,-100000,100000,0:�recalc
z]� icon=14 � columnstyle(colpos)=1:ș "Wimp_ForceRedraw",table%,0,-100000,100000,0:�recalc
�]� icon=16 � columnstyle(colpos)=2:ș "Wimp_ForceRedraw",table%,0,-100000,100000,0:�recalc
��
���buttonedit
�� icon=12 �
�'content$(xpos,ypos)=$�tad(edit%,18)
�%ypos-=1:� ypos=-1 � ypos=ccolumns
��setupcontent(xpos,ypos)
�0ș "Wimp_SetCaretPosition",edit%,18,0,0,-1,0
��
��
�� icon=14 �
�'content$(xpos,ypos)=$�tad(edit%,18)
�&ypos+=1:� ypos=ccolumns+1 � ypos=0
�setupcontent(xpos,ypos)
0ș "Wimp_SetCaretPosition",edit%,18,0,0,-1,0
�
$�
.� icon=15 �
8'content$(xpos,ypos)=$�tad(edit%,18)
B"xpos-=1:� xpos=-1 � xpos=crows
L�setupcontent(xpos,ypos)
V0ș "Wimp_SetCaretPosition",edit%,18,0,0,-1,0
`�
j�
t� icon=13 �
~'content$(xpos,ypos)=$�tad(edit%,18)
�#xpos+=1:� xpos=crows+1 � xpos=0
��setupcontent(xpos,ypos)
�0ș "Wimp_SetCaretPosition",edit%,18,0,0,-1,0
��
��
�Z� icon=19 � justification(xpos,ypos)=0:ș "Wimp_ForceRedraw",table%,0,-100000,100000,0
�Z� icon=20 � justification(xpos,ypos)=1:ș "Wimp_ForceRedraw",table%,0,-100000,100000,0
�Z� icon=21 � justification(xpos,ypos)=2:ș "Wimp_ForceRedraw",table%,0,-100000,100000,0
��
�
��rowskey
�� icon=12 �
�#rows(rowpos)=�($�tad(rows%,12))
)rowpos+=1:� rowpos=maxrows � rowpos=0

�setuprow(rowpos)
0ș "Wimp_SetCaretPosition",rows%,12,0,0,-1,0
�
(�
2�
<��columnskey
F� icon=12 �
P)columns(colpos)=�($�tad(columns%,12))
Z)colpos+=1:� colpos=maxcols � colpos=0
d�setupcolumn(colpos)
n3ș "Wimp_SetCaretPosition",columns%,12,0,0,-1,0
x�
��
��
�
��editkey
�� icon=18 �
�'content$(xpos,ypos)=$�tad(edit%,18)
�� key=13 �
�1� automove=1 � xpos-=1:� xpos=-1 � xpos=crows
�2� automove=2 � xpos+=1:� xpos=crows+1 � xpos=0
�4� automove=3 � ypos-=1:� ypos=-1 � ypos=ccolumns
�5� automove=4 � ypos+=1:� ypos=ccolumns+1 � ypos=0
��
�:� key=&18C � key=&19C � xpos-=1:� xpos=-1 � xpos=crows
�;� key=&18D � key=&19D � xpos+=1:� xpos=crows+1 � xpos=0
>� key=&18E � key=&19E � ypos+=1:� ypos=ccolumns+1 � ypos=0
=� key=&18F � key=&19F � ypos-=1:� ypos=-1 � ypos=ccolumns
�setupcontent(xpos,ypos)
"0ș "Wimp_SetCaretPosition",edit%,18,0,0,-1,0
,�
6�
@��draww1
Jbx=block!4-block!20
Tby=block!16-block!24-1280
^ȕ more%
h�tabledraw
r)ș "Wimp_GetRectangle",,block � more%
|�
��
���recalc
�maxwidth=0:maxheight=0
�crows=0:ccolumns=0
�,� I%=0 � maxcols:maxwidth+=columns(I%):�
�*� I%=0 � maxrows:maxheight+=rows(I%):�
�7� I%=0 � maxcols:� columnstyle(I%)<>0 � ccolumns=I%
��
�1� I%=0 � maxrows:� rowstyle(I%)<>0 � crows=I%
��
��
���tabledraw
�9miny=block!32:maxy=block!40:miny=miny-32:maxy=maxy+32
ș "Wimp_SetColour",128+0:�
ș "Wimp_SetColour",7
"� maxheight=0 � maxwidth=0 � �
&ȑ bx+100,by+100
0addwidth=0
:� I%=0 � ccolumns
DI� columnstyle(I%)=1 � addwidth,1024:� addwidth,1024-(maxheight*scale)
N� columnstyle(I%)=2 � addwidth,1024:� addwidth,1024-(maxheight*scale):� addwidth+2,1024:� addwidth+2,1024-(maxheight*scale)
Xaddwidth+=columns(I%)*scale
b�
laddheight=1024
v� I%=0 � crows
�=� rowstyle(I%)=1 � 0,addheight:� maxwidth*scale,addheight
�j� rowstyle(I%)=2 � 0,addheight:� maxwidth*scale,addheight:� 0,addheight+4:� maxwidth*scale,addheight+4
�addheight-=rows(I%)*scale
��
��5
�addwidth=0
�� I%=0 � ccolumns-1
�addheight=1024
�� J%=0 � crows-1
�� I%=xpos � J%=ypos �
�x=columns(I%)*scale
�y=rows(J%)*scale
�6ș "Wimp_SetColour",11:ȓ addwidth,addheight-y,x,y
�
� content$(I%,J%)<>"" �
'y=addheight-rows(J%)*scale/2:y=y+16
 =� justification(I%,J%)=0 � addwidth+4,y:� content$(I%,J%)
*f� justification(I%,J%)=1 � addwidth+(columns(I%)/2)*scale-�(content$(I%,J%))*8,y:� content$(I%,J%)
4e� justification(I%,J%)=2 � addwidth+columns(I%)*scale-4-�(content$(I%,J%))*16,y:� content$(I%,J%)
>�
H/� I%=xpos � J%=ypos � ș "Wimp_SetColour",7
Raddheight-=rows(J%)*scale
\�
faddwidth+=columns(I%)*scale
p�
z
ȑ 0,0
��
���save(a$)
�\� �a$,".")<1 � �a$,":")<1 � �moan("To save, drag the save icon to a directory viewer"):�
�save$=a$
�� �
�6� � � �moan("Couldn't save : "+�$+" "+�(�)):� �drW
��createdrawfile
�)�("SAVE "+save$+" "+�~file+"+"+�~ptr)
��("SETTYPE "+save$+" AFF")
�
�cmenu
�$stext=save$
�� �
��
��createdrawfile
�recalc

sc=256
$	ptr=0
.file?0=�("D")
8file?1=�("r")
Bfile?2=�("a")
Lfile?3=�("w")
Vfile!4=201
`file!8=0
j$(file+12)="AmfTable"
t
file!24=0
~
file!28=0
�file!32=1280*sc
�file!36=1280*sc
�
ptr=40
�"� maxheight=0 � maxwidth=0 � �
�addwidth=0
�� I%=0 � ccolumns
�r� columnstyle(I%)=1 �addobject2(xoff+addwidth,yoff+1024,xoff+addwidth,yoff+1024-(maxheight*scale),0,&FFFFFFFF)
��� columnstyle(I%)=2 �addobject2(xoff+addwidth,yoff+1024,xoff+addwidth,yoff+1024-(maxheight*scale),0,&FFFFFFFF):�addobject2(xoff+addwidth+2,yoff+1024,xoff+addwidth+2,yoff+1024-(maxheight*scale),0,&FFFFFFFF)
�addwidth+=columns(I%)*scale
��
�addheight=1024
�� I%=0 � crows
d� rowstyle(I%)=1 �addobject2(xoff,yoff+addheight,xoff+maxwidth*scale,yoff+addheight,0,&FFFFFFFF)

�� rowstyle(I%)=2 �addobject2(xoff,yoff+addheight,xoff+maxwidth*scale,yoff+addheight,0,&FFFFFFFF):�addobject2(xoff,yoff+addheight+4,xoff+maxwidth*scale,yoff+addheight+4,0,&FFFFFFFF)
addheight-=rows(I%)*scale
�
(addwidth=0
2� I%=0 � ccolumns-1
<addheight=1024
F� J%=0 � crows-1
P� content$(I%,J%)<>"" �
Z'y=addheight-rows(J%)*scale/2:y=y+16
d)� justification(I%,J%)=0 x=addwidth+4
nR� justification(I%,J%)=1 x=addwidth+(columns(I%)/2)*scale-�(content$(I%,J%))*8
xQ� justification(I%,J%)=2 x=addwidth+columns(I%)*scale-4-�(content$(I%,J%))*16
�0�addtext(content$(I%,J%),xoff+x,yoff+y-32,0)
��
�addheight-=rows(J%)*scale
��
�addwidth+=columns(I%)*scale
��
��
��
�#� Create Draw objects routines.
�:� (have you ever tried programming draw files? Don't!)
�=� For a full set,contact AMF,or grab a copy of !AMFgraph.
��
���addtext(text$,x,y,col%)
%� (�(text$) � 4)=0 � text$+="   "
$� (�(text$) � 4)=1 � text$+="  "
#� (�(text$) � 4)=2 � text$+=" "
"
text$+=�0
,length=�(text$) � 4
6length=(length+1)*4
@
x=x*sc
J
y=y*sc
Tfile!ptr=1:ptr+=4
^file!ptr=48+length:ptr+=4
hfile!ptr=x:ptr+=4
rfile!ptr=y:ptr+=4
|$file!ptr=x+�(text$)*40*sc:ptr+=4
�file!ptr=y+40*sc:ptr+=4
�:
�file!ptr=col%:ptr+=4
�file!ptr=&FFFFFF00:ptr+=4
�file!ptr=0:ptr+=4
�file!ptr=16*sc:ptr+=4
�file!ptr=32*sc:ptr+=4
�file!ptr=x:ptr+=4
�file!ptr=y:ptr+=4
�#$(file+ptr)=text$:ptr+=�(text$)
�� (ptr � 4)=3 � ptr+=1
�� (ptr � 4)=2 � ptr+=2
�� (ptr � 4)=1 � ptr+=3
�
(��addobject2(x1,y1,x2,y2,col%,fill%)
'x1=x1*sc:x2=x2*sc:y1=y1*sc:y2=y2*sc
&file!ptr=2:ptr+=4
0file!ptr=68:ptr+=4
:� x2<x1 � minx=x2 � minx=x1
D� y2<y1 � miny=y2 � miny=y1
N� x1>x2 � maxx=x1 � maxx=x2
X� y1>y2 � maxy=y1 � maxy=y2
bfile!ptr=minx:ptr+=4
lfile!ptr=miny:ptr+=4
vfile!ptr=maxx:ptr+=4
�file!ptr=maxy:ptr+=4
�:
�file!ptr=fill%:ptr+=4
�file!ptr=col%:ptr+=4
�file!ptr=0:ptr+=4
�file!ptr=0:ptr+=4
�:
�file!ptr=2:ptr+=4
�file!ptr=x1:ptr+=4
�file!ptr=y1:ptr+=4
�file!ptr=8:ptr+=4
�file!ptr=x2:ptr+=4
�file!ptr=y2:ptr+=4
file!ptr=0:ptr+=4
�
��clearcolumns
 columns()=0:columnstyle()=0
*!colpos=0:�setupcolumn(colpos)
4;�recalc:ș "Wimp_ForceRedraw",table%,0,-100000,100000,0
>�
H��clearrows
Rrows()=0:rowstyle()=0
\rowpos=0:�setuprow(rowpos)
f;�recalc:ș "Wimp_ForceRedraw",table%,0,-100000,100000,0
p�
z��cleartext
�#content$()="":justification()=0
�;�recalc:ș "Wimp_ForceRedraw",table%,0,-100000,100000,0
��
���clearall
�columns()=0:columnstyle()=0
�rows()=0:rowstyle()=0
�#content$()="":justification()=0
�;�recalc:ș "Wimp_ForceRedraw",table%,0,-100000,100000,0
�!colpos=0:�setupcolumn(colpos)
�rowpos=0:�setuprow(rowpos)
�*xpos=0:ypos=0:�setupcontent(xpos,ypos)
�)$stext="DrawFile":$stext2="TableFile"
��
�

00000000  0d 00 0a 1c f4 20 3e 24  2e 21 41 4d 46 54 61 62  |..... >$.!AMFTab|
00000010  6c 65 2e 21 52 75 6e 49  6d 61 67 65 0d 00 14 2b  |le.!RunImage...+|
00000020  f4 20 4d 61 69 6e 20 70  72 6f 67 72 61 6d 20 63  |. Main program c|
00000030  6f 64 65 20 66 6f 72 20  52 49 53 43 4f 53 20 41  |ode for RISCOS A|
00000040  4d 46 54 61 62 6c 65 0d  00 1e 27 f4 20 56 65 72  |MFTable...'. Ver|
00000050  73 69 6f 6e 20 31 2e 31  30 20 4c 61 73 74 20 55  |sion 1.10 Last U|
00000060  70 64 61 74 65 20 30 34  2f 30 37 2f 39 31 0d 00  |pdate 04/07/91..|
00000070  28 20 f4 20 a9 20 41 4d  46 20 74 68 65 20 44 6f  |( . . AMF the Do|
00000080  6f 6d 77 61 74 63 68 65  72 20 31 39 39 31 0d 00  |omwatcher 1991..|
00000090  32 05 f4 0d 00 3c 3b f4  20 54 68 61 6e 6b 73 20  |2....<;. Thanks |
000000a0  6d 75 73 74 20 67 6f 20  74 6f 20 52 6f 62 65 72  |must go to Rober|
000000b0  74 20 53 65 61 67 6f 20  6f 66 20 45 73 73 65 78  |t Seago of Essex|
000000c0  20 66 6f 72 20 74 68 65  20 69 64 65 61 2e 0d 00  | for the idea...|
000000d0  46 05 3a 0d 00 50 42 f4  20 54 68 65 73 65 20 74  |F.:..PB. These t|
000000e0  77 6f 20 76 61 72 69 61  62 6c 65 73 20 64 65 74  |wo variables det|
000000f0  65 72 6d 69 6e 65 20 74  68 65 20 6d 61 78 69 6d  |ermine the maxim|
00000100  75 6d 20 73 69 7a 65 20  6f 66 20 74 68 65 20 74  |um size of the t|
00000110  61 62 6c 65 2e 0d 00 5a  19 6d 61 78 72 6f 77 73  |able...Z.maxrows|
00000120  3d 34 38 3a 6d 61 78 63  6f 6c 73 3d 34 38 0d 00  |=48:maxcols=48..|
00000130  64 05 3a 0d 00 6e 42 de  20 62 6c 6f 63 6b 20 26  |d.:..nB. block &|
00000140  31 30 30 30 2c 20 6d 65  6e 75 25 20 31 30 32 34  |1000, menu% 1024|
00000150  2c 63 75 72 62 75 66 25  20 26 32 30 30 30 2c 69  |,curbuf% &2000,i|
00000160  63 6f 6e 64 20 26 31 30  30 30 2c 66 69 6c 65 20  |cond &1000,file |
00000170  26 41 30 30 30 0d 00 78  4b de 20 72 6f 77 73 28  |&A000..xK. rows(|
00000180  6d 61 78 72 6f 77 73 29  2c 72 6f 77 73 74 79 6c  |maxrows),rowstyl|
00000190  65 28 6d 61 78 72 6f 77  73 29 2c 63 6f 6c 75 6d  |e(maxrows),colum|
000001a0  6e 73 28 6d 61 78 63 6f  6c 73 29 2c 63 6f 6c 75  |ns(maxcols),colu|
000001b0  6d 6e 73 74 79 6c 65 28  6d 61 78 63 6f 6c 73 29  |mnstyle(maxcols)|
000001c0  0d 00 82 3e de 20 63 6f  6e 74 65 6e 74 24 28 6d  |...>. content$(m|
000001d0  61 78 72 6f 77 73 2c 6d  61 78 63 6f 6c 73 29 2c  |axrows,maxcols),|
000001e0  6a 75 73 74 69 66 69 63  61 74 69 6f 6e 28 6d 61  |justification(ma|
000001f0  78 72 6f 77 73 2c 6d 61  78 63 6f 6c 73 29 0d 00  |xrows,maxcols)..|
00000200  8c 11 63 6f 6e 74 65 6e  74 24 28 29 3d 22 22 0d  |..content$()="".|
00000210  00 96 05 3a 0d 00 a0 43  78 70 6f 73 3d 30 3a 79  |...:...Cxpos=0:y|
00000220  70 6f 73 3d 30 3a 72 6f  77 70 6f 73 3d 30 3a 63  |pos=0:rowpos=0:c|
00000230  6f 6c 70 6f 73 3d 30 3a  6d 61 78 77 69 64 74 68  |olpos=0:maxwidth|
00000240  3d 30 3a 6d 61 78 68 65  69 67 68 74 3d 30 3a 73  |=0:maxheight=0:s|
00000250  63 61 6c 65 3d 33 36 0d  00 aa 32 63 72 6f 77 73  |cale=36...2crows|
00000260  3d 30 3a 63 63 6f 6c 75  6d 6e 3d 30 3a 61 75 74  |=0:ccolumn=0:aut|
00000270  6f 6d 6f 76 65 3d 34 3a  78 6f 66 66 3d 31 30 30  |omove=4:xoff=100|
00000280  3a 79 6f 66 66 3d 31 30  30 0d 00 b4 05 3a 0d 00  |:yoff=100....:..|
00000290  be 19 65 6e 64 62 75 66  25 3d 63 75 72 62 75 66  |..endbuf%=curbuf|
000002a0  25 2b 26 31 30 30 30 0d  00 c8 44 c8 99 20 22 57  |%+&1000...D.. "W|
000002b0  69 6d 70 5f 49 6e 69 74  69 61 6c 69 73 65 22 2c  |imp_Initialise",|
000002c0  32 30 30 2c 26 34 42 35  33 34 31 35 34 2c 22 41  |200,&4B534154,"A|
000002d0  4d 46 54 61 62 6c 65 22  20 b8 20 76 65 72 73 69  |MFTable" . versi|
000002e0  6f 6e 25 2c 6d 79 74 61  73 6b 25 0d 00 d2 0d f2  |on%,mytask%.....|
000002f0  74 65 6d 70 6c 61 74 65  0d 00 dc 20 24 76 65 72  |template... $ver|
00000300  73 69 6f 6e 25 3d 22 31  2e 31 30 20 28 30 34 2d  |sion%="1.10 (04-|
00000310  4a 75 6c 2d 39 31 29 22  0d 00 e6 44 69 6e 69 74  |Jul-91)"...Dinit|
00000320  69 63 3d a4 69 63 6f 6e  62 61 72 28 25 31 31 30  |ic=.iconbar(%110|
00000330  31 30 2c 2d 31 2c 37 2c  30 2c 22 21 41 4d 46 54  |10,-1,7,0,"!AMFT|
00000340  61 62 6c 65 22 2b bd 31  33 2c 30 2c 30 2c 30 2c  |able"+.13,0,0,0,|
00000350  33 2c 30 2c 30 2c 36 38  2c 36 38 29 0d 00 f0 23  |3,0,0,68,68)...#|
00000360  65 6e 64 25 3d a3 3a 64  72 61 67 25 3d 30 3a 73  |end%=.:drag%=0:s|
00000370  61 76 69 6e 67 25 3d 30  3a 61 63 6b 25 3d a3 0d  |aving%=0:ack%=..|
00000380  00 fa 0a f2 63 68 65 63  6b 0d 01 04 2a c8 97 20  |....check...*.. |
00000390  78 2c 79 2c 62 3a e7 20  62 3c 3e 30 20 8c 20 f2  |x,y,b:. b<>0 . .|
000003a0  6f 70 65 6e 77 69 6e 64  6f 77 28 74 68 61 6e 6b  |openwindow(thank|
000003b0  73 25 29 0d 01 0e 05 3a  0d 01 18 18 f2 73 65 74  |s%)....:.....set|
000003c0  75 70 63 6f 6c 75 6d 6e  28 63 6f 6c 70 6f 73 29  |upcolumn(colpos)|
000003d0  0d 01 22 15 f2 73 65 74  75 70 72 6f 77 28 72 6f  |.."..setuprow(ro|
000003e0  77 70 6f 73 29 0d 01 2c  1c f2 73 65 74 75 70 63  |wpos)..,..setupc|
000003f0  6f 6e 74 65 6e 74 28 78  70 6f 73 2c 79 70 6f 73  |ontent(xpos,ypos|
00000400  29 0d 01 36 05 3a 0d 01  40 05 f5 0d 01 4a 26 c8  |)..6.:..@....J&.|
00000410  99 20 22 57 69 6d 70 5f  50 6f 6c 6c 22 2c 31 2c  |. "Wimp_Poll",1,|
00000420  62 6c 6f 63 6b 20 b8 20  65 76 65 6e 74 63 6f 64  |block . eventcod|
00000430  65 0d 01 54 12 c8 8e 20  65 76 65 6e 74 63 6f 64  |e..T... eventcod|
00000440  65 20 ca 0d 01 5e 08 c9  20 30 3a 0d 01 68 2d c9  |e ...^.. 0:..h-.|
00000450  20 31 3a c8 99 20 22 57  69 6d 70 5f 52 65 64 72  | 1:.. "Wimp_Redr|
00000460  61 77 57 69 6e 64 6f 77  22 2c 2c 62 6c 6f 63 6b  |awWindow",,block|
00000470  20 b8 20 6d 6f 72 65 25  0d 01 72 1d e7 20 21 62  | . more%..r.. !b|
00000480  6c 6f 63 6b 3d 74 61 62  6c 65 25 20 8c 20 f2 64  |lock=table% . .d|
00000490  72 61 77 77 31 0d 01 7c  23 c9 20 32 3a c8 99 20  |raww1..|#. 2:.. |
000004a0  22 57 69 6d 70 5f 4f 70  65 6e 57 69 6e 64 6f 77  |"Wimp_OpenWindow|
000004b0  22 2c 2c 62 6c 6f 63 6b  0d 01 86 24 c9 20 33 3a  |",,block...$. 3:|
000004c0  c8 99 20 22 57 69 6d 70  5f 43 6c 6f 73 65 57 69  |.. "Wimp_CloseWi|
000004d0  6e 64 6f 77 22 2c 2c 62  6c 6f 63 6b 0d 01 90 17  |ndow",,block....|
000004e0  c9 20 36 3a f2 62 75 74  74 6f 6e 73 28 62 6c 6f  |. 6:.buttons(blo|
000004f0  63 6b 29 0d 01 9a 0d c9  20 37 3a f2 64 72 61 67  |ck)..... 7:.drag|
00000500  0d 01 a4 13 c9 20 38 3a  f2 70 72 6f 63 65 73 73  |..... 8:.process|
00000510  6b 65 79 0d 01 ae 0f c9  20 39 3a f2 64 65 63 6f  |key..... 9:.deco|
00000520  64 65 0d 01 b8 11 c9 20  31 37 2c 31 38 3a f2 6d  |de..... 17,18:.m|
00000530  65 73 73 0d 01 c2 05 cb  0d 01 cc 0a fd 20 65 6e  |ess.......... en|
00000540  64 25 0d 01 d6 05 e0 0d  01 e0 34 dd f2 6f 70 65  |d%........4..ope|
00000550  6e 28 68 61 6e 64 6c 65  2c 76 6d 69 6e 78 2c 76  |n(handle,vminx,v|
00000560  6d 69 6e 79 2c 76 6d 61  78 78 2c 76 6d 61 78 79  |miny,vmaxx,vmaxy|
00000570  2c 78 6f 66 66 2c 79 6f  66 66 29 0d 01 ea 3c 21  |,xoff,yoff)...<!|
00000580  62 6c 6f 63 6b 3d 68 61  6e 64 6c 65 3a 62 6c 6f  |block=handle:blo|
00000590  63 6b 21 34 3d 76 6d 69  6e 78 3a 62 6c 6f 63 6b  |ck!4=vminx:block|
000005a0  21 38 3d 76 6d 69 6e 79  3a 62 6c 6f 63 6b 21 31  |!8=vminy:block!1|
000005b0  32 3d 76 6d 61 78 78 0d  01 f4 3a 62 6c 6f 63 6b  |2=vmaxx...:block|
000005c0  21 31 36 3d 76 6d 61 78  79 3a 62 6c 6f 63 6b 21  |!16=vmaxy:block!|
000005d0  32 30 3d 78 6f 66 66 3a  62 6c 6f 63 6b 21 32 34  |20=xoff:block!24|
000005e0  3d 79 6f 66 66 3a 62 6c  6f 63 6b 21 32 38 3d 2d  |=yoff:block!28=-|
000005f0  31 0d 01 fe 1f c8 99 20  22 57 69 6d 70 5f 4f 70  |1...... "Wimp_Op|
00000600  65 6e 57 69 6e 64 6f 77  22 2c 2c 62 6c 6f 63 6b  |enWindow",,block|
00000610  0d 02 08 05 e1 0d 02 12  4b dd a4 69 63 6f 6e 62  |........K..iconb|
00000620  61 72 28 66 6c 61 67 73  2c 70 61 72 74 2c 66 6f  |ar(flags,part,fo|
00000630  72 2c 62 61 63 2c 64 61  74 61 24 2c 61 64 64 2c  |r,bac,data$,add,|
00000640  61 64 64 32 2c 6c 65 6e  67 74 68 2c 6d 6f 75 73  |add2,length,mous|
00000650  65 2c 78 73 31 2c 79 73  31 2c 78 73 2c 79 73 29  |e,xs1,ys1,xs,ys)|
00000660  0d 02 1c 0f 21 69 63 6f  6e 64 3d 70 61 72 74 0d  |....!icond=part.|
00000670  02 26 0f 69 63 6f 6e 64  21 34 3d 78 73 31 0d 02  |.&.icond!4=xs1..|
00000680  30 27 69 63 6f 6e 64 21  38 3d 79 73 31 3a 69 63  |0'icond!8=ys1:ic|
00000690  6f 6e 64 21 31 32 3d 78  73 3a 69 63 6f 6e 64 21  |ond!12=xs:icond!|
000006a0  31 36 3d 79 73 0d 02 3a  35 69 63 6f 6e 64 21 32  |16=ys..:5icond!2|
000006b0  30 3d 66 6c 61 67 73 2b  28 28 32 5e 31 32 29 2a  |0=flags+((2^12)*|
000006c0  6d 6f 75 73 65 29 3a 69  63 6f 6e 64 3f 32 33 3d  |mouse):icond?23=|
000006d0  66 6f 72 2b 62 61 63 2a  31 36 0d 02 44 50 e7 20  |for+bac*16..DP. |
000006e0  64 61 74 61 24 3c 3e 22  22 20 8c 20 24 28 69 63  |data$<>"" . $(ic|
000006f0  6f 6e 64 2b 32 34 29 3d  64 61 74 61 24 20 8b 20  |ond+24)=data$ . |
00000700  69 63 6f 6e 64 21 32 34  3d 61 64 64 3a 69 63 6f  |icond!24=add:ico|
00000710  6e 64 21 32 38 3d 61 64  64 32 3a 69 63 6f 6e 64  |nd!28=add2:icond|
00000720  21 33 32 3d 6c 65 6e 67  74 68 0d 02 4e 26 c8 99  |!32=length..N&..|
00000730  20 22 57 69 6d 70 5f 43  72 65 61 74 65 49 63 6f  | "Wimp_CreateIco|
00000740  6e 22 2c 2c 69 63 6f 6e  64 20 b8 20 69 63 6f 6e  |n",,icond . icon|
00000750  0d 02 58 09 3d 69 63 6f  6e 0d 02 62 12 dd a4 74  |..X.=icon..b...t|
00000760  65 6d 70 6c 61 74 65 28  61 24 29 0d 02 6c 47 c8  |emplate(a$)..lG.|
00000770  99 20 22 57 69 6d 70 5f  4c 6f 61 64 54 65 6d 70  |. "Wimp_LoadTemp|
00000780  6c 61 74 65 22 2c 2c 62  6c 6f 63 6b 2c 69 6e 64  |late",,block,ind|
00000790  69 72 2c 65 6e 64 62 75  66 25 2c 2d 31 2c 61 24  |ir,endbuf%,-1,a$|
000007a0  2c 30 20 b8 20 2c 2c 69  6e 64 69 72 2c 2c 2c 2c  |,0 . ,,indir,,,,|
000007b0  63 25 0d 02 76 30 e7 20  63 25 3d 30 20 8c 20 ef  |c%..v0. c%=0 . .|
000007c0  34 3a f1 20 22 54 65 6d  70 6c 61 74 65 20 22 3b  |4:. "Template ";|
000007d0  61 24 3b 22 20 6e 6f 74  20 66 6f 75 6e 64 2e 22  |a$;" not found."|
000007e0  3a e0 0d 02 80 0e 62 6c  6f 63 6b 21 36 34 3d 31  |:.....block!64=1|
000007f0  0d 02 8a 2a c8 99 20 22  57 69 6d 70 5f 43 72 65  |...*.. "Wimp_Cre|
00000800  61 74 65 57 69 6e 64 6f  77 22 2c 2c 62 6c 6f 63  |ateWindow",,bloc|
00000810  6b 20 b8 20 68 61 6e 64  6c 65 0d 02 94 0b 3d 68  |k . handle....=h|
00000820  61 6e 64 6c 65 0d 02 9e  0e dd f2 6d 6f 61 6e 28  |andle......moan(|
00000830  61 24 29 0d 02 a8 1d 21  69 63 6f 6e 64 3d 30 3a  |a$)....!icond=0:|
00000840  24 28 69 63 6f 6e 64 2b  34 29 3d 61 24 2b bd 30  |$(icond+4)=a$+.0|
00000850  0d 02 b2 2c c8 99 20 22  57 69 6d 70 5f 52 65 70  |...,.. "Wimp_Rep|
00000860  6f 72 74 45 72 72 6f 72  22 2c 69 63 6f 6e 64 2c  |ortError",icond,|
00000870  31 2c 22 41 4d 46 54 61  62 6c 65 22 0d 02 bc 05  |1,"AMFTable"....|
00000880  e1 0d 02 c6 0d dd a4 73  74 72 28 61 25 29 0d 02  |.......str(a%)..|
00000890  d0 08 ea 20 62 24 0d 02  da 0e c8 95 20 3f 61 25  |... b$...... ?a%|
000008a0  3e 3d 33 32 0d 02 e4 0e  62 24 2b 3d bd 28 3f 61  |>=32....b$+=.(?a|
000008b0  25 29 0d 02 ee 09 61 25  2b 3d 31 0d 02 f8 05 ce  |%)....a%+=1.....|
000008c0  0d 03 02 07 3d 62 24 0d  03 0c 16 dd a4 74 61 64  |....=b$......tad|
000008d0  28 68 61 6e 64 6c 65 2c  69 63 6f 6e 29 0d 03 16  |(handle,icon)...|
000008e0  15 f2 67 69 69 28 68 61  6e 64 6c 65 2c 69 63 6f  |..gii(handle,ico|
000008f0  6e 29 0d 03 20 0d 3d 69  63 6f 6e 64 21 32 38 0d  |n).. .=icond!28.|
00000900  03 2a 16 dd f2 67 69 69  28 68 61 6e 64 6c 65 2c  |.*...gii(handle,|
00000910  69 63 6f 6e 29 0d 03 34  1e 21 69 63 6f 6e 64 3d  |icon)..4.!icond=|
00000920  68 61 6e 64 6c 65 3a 69  63 6f 6e 64 21 34 3d 69  |handle:icond!4=i|
00000930  63 6f 6e 0d 03 3e 21 c8  99 20 22 57 69 6d 70 5f  |con..>!.. "Wimp_|
00000940  47 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 69  |GetIconState",,i|
00000950  63 6f 6e 64 0d 03 48 05  e1 0d 03 52 19 dd f2 6f  |cond..H....R...o|
00000960  70 65 6e 77 69 6e 64 6f  77 28 68 61 6e 64 6c 65  |penwindow(handle|
00000970  25 29 0d 03 5c 12 21 69  63 6f 6e 64 3d 68 61 6e  |%)..\.!icond=han|
00000980  64 6c 65 25 0d 03 66 22  c8 99 20 22 57 69 6d 70  |dle%..f".. "Wimp|
00000990  5f 47 65 74 57 69 6e 64  6f 77 49 6e 66 6f 22 2c  |_GetWindowInfo",|
000009a0  2c 69 63 6f 6e 64 0d 03  70 1f c8 99 20 22 57 69  |,icond..p... "Wi|
000009b0  6d 70 5f 4f 70 65 6e 57  69 6e 64 6f 77 22 2c 2c  |mp_OpenWindow",,|
000009c0  69 63 6f 6e 64 0d 03 7a  05 e1 0d 03 84 20 dd f2  |icond..z..... ..|
000009d0  61 6c 74 65 72 28 68 61  6e 64 2c 69 63 6f 6e 2c  |alter(hand,icon,|
000009e0  65 6f 72 2c 63 6c 65 61  72 29 0d 03 8e 1c 21 69  |eor,clear)....!i|
000009f0  63 6f 6e 64 3d 68 61 6e  64 3a 69 63 6f 6e 64 21  |cond=hand:icond!|
00000a00  34 3d 69 63 6f 6e 0d 03  98 1e 69 63 6f 6e 64 21  |4=icon....icond!|
00000a10  38 3d 65 6f 72 3a 69 63  6f 6e 64 21 31 32 3d 63  |8=eor:icond!12=c|
00000a20  6c 65 61 72 0d 03 a2 21  c8 99 20 22 57 69 6d 70  |lear...!.. "Wimp|
00000a30  5f 53 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_SetIconState",,|
00000a40  69 63 6f 6e 64 0d 03 ac  05 e1 0d 03 b6 12 dd f2  |icond...........|
00000a50  73 74 61 74 65 28 77 69  2c 69 63 29 0d 03 c0 18  |state(wi,ic)....|
00000a60  21 62 6c 6f 63 6b 3d 77  69 3a 62 6c 6f 63 6b 21  |!block=wi:block!|
00000a70  34 3d 69 63 0d 03 ca 21  c8 99 20 22 57 69 6d 70  |4=ic...!.. "Wimp|
00000a80  5f 47 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_GetIconState",,|
00000a90  62 6c 6f 63 6b 0d 03 d4  05 e1 0d 03 de 13 dd a4  |block...........|
00000aa0  73 65 6c 65 63 74 28 77  69 2c 69 63 29 0d 03 e8  |select(wi,ic)...|
00000ab0  11 f2 73 74 61 74 65 28  77 69 2c 69 63 29 0d 03  |..state(wi,ic)..|
00000ac0  f2 22 e7 20 28 28 62 6c  6f 63 6b 21 32 34 29 20  |.". ((block!24) |
00000ad0  80 20 31 3c 3c 32 31 29  3e 30 20 8c 20 3d 2d 31  |. 1<<21)>0 . =-1|
00000ae0  0d 03 fc 06 3d 30 0d 04  06 0d dd a4 62 69 74 28  |....=0......bit(|
00000af0  61 24 29 0d 04 10 11 c8  95 20 a7 61 24 2c 22 3a  |a$)...... .a$,":|
00000b00  22 29 3e 30 0d 04 1a 16  61 24 3d c1 61 24 2c a7  |")>0....a$=.a$,.|
00000b10  61 24 2c 22 3a 22 29 2b  31 29 0d 04 24 05 ce 0d  |a$,":")+1)..$...|
00000b20  04 2e 11 c8 95 20 a7 61  24 2c 22 2e 22 29 3e 30  |..... .a$,".")>0|
00000b30  0d 04 38 16 61 24 3d c1  61 24 2c a7 61 24 2c 22  |..8.a$=.a$,.a$,"|
00000b40  2e 22 29 2b 31 29 0d 04  42 05 ce 0d 04 4c 07 3d  |.")+1)..B....L.=|
00000b50  61 24 0d 04 56 13 dd f2  6f 70 65 6e 6d 65 6e 75  |a$..V...openmenu|
00000b60  28 78 2c 79 29 0d 04 60  26 c8 99 20 22 57 69 6d  |(x,y)..`&.. "Wim|
00000b70  70 5f 43 72 65 61 74 65  4d 65 6e 75 22 2c 2c 74  |p_CreateMenu",,t|
00000b80  6f 70 6d 65 6e 75 25 2c  78 2c 79 0d 04 6a 05 e1  |opmenu%,x,y..j..|
00000b90  0d 04 74 1e dd a4 6d 65  6e 75 28 74 69 74 6c 65  |..t...menu(title|
00000ba0  24 2c 77 69 64 74 68 2c  6d 65 6e 75 24 29 0d 04  |$,width,menu$)..|
00000bb0  7e 0e 6d 65 6e 75 24 2b  3d 22 2c 22 0d 04 88 13  |~.menu$+=","....|
00000bc0  6f 6c 64 6d 65 6e 75 3d  6d 65 6e 75 70 74 72 0d  |oldmenu=menuptr.|
00000bd0  04 92 13 24 6d 65 6e 75  70 74 72 3d 74 69 74 6c  |...$menuptr=titl|
00000be0  65 24 0d 04 9c 10 6d 65  6e 75 70 74 72 3f 31 32  |e$....menuptr?12|
00000bf0  3d 37 0d 04 a6 10 6d 65  6e 75 70 74 72 3f 31 33  |=7....menuptr?13|
00000c00  3d 32 0d 04 b0 10 6d 65  6e 75 70 74 72 3f 31 34  |=2....menuptr?14|
00000c10  3d 37 0d 04 ba 10 6d 65  6e 75 70 74 72 3f 31 35  |=7....menuptr?15|
00000c20  3d 30 0d 04 c4 14 6d 65  6e 75 70 74 72 21 31 36  |=0....menuptr!16|
00000c30  3d 77 69 64 74 68 0d 04  ce 11 6d 65 6e 75 70 74  |=width....menupt|
00000c40  72 21 32 30 3d 34 38 0d  04 d8 10 6d 65 6e 75 70  |r!20=48....menup|
00000c50  74 72 21 32 34 3d 30 0d  04 e2 0f 6d 65 6e 75 70  |tr!24=0....menup|
00000c60  74 72 2b 3d 32 38 0d 04  ec 05 f5 0d 04 f6 10 f2  |tr+=28..........|
00000c70  69 74 65 6d 28 6d 65 6e  75 24 29 0d 05 00 1f 6d  |item(menu$)....m|
00000c80  65 6e 75 24 3d c1 6d 65  6e 75 24 2c a7 6d 65 6e  |enu$=.menu$,.men|
00000c90  75 24 2c 22 2c 22 29 2b  31 29 0d 05 0a 0f 6d 65  |u$,",")+1)....me|
00000ca0  6e 75 70 74 72 2b 3d 32  34 0d 05 14 0e fd 20 6d  |nuptr+=24..... m|
00000cb0  65 6e 75 24 3d 22 22 0d  05 1e 29 6d 65 6e 75 70  |enu$=""...)menup|
00000cc0  74 72 21 2d 32 34 3d 28  6d 65 6e 75 70 74 72 21  |tr!-24=(menuptr!|
00000cd0  2d 32 34 29 20 84 20 25  31 30 30 30 30 30 30 30  |-24) . %10000000|
00000ce0  0d 05 28 0c 3d 6f 6c 64  6d 65 6e 75 0d 05 32 0e  |..(.=oldmenu..2.|
00000cf0  dd f2 69 74 65 6d 28 6d  24 29 0d 05 3c 16 6d 24  |..item(m$)..<.m$|
00000d00  3d c0 6d 24 2c a7 6d 24  2c 22 2c 22 29 2d 31 29  |=.m$,.m$,",")-1)|
00000d10  0d 05 46 0f 69 24 3d 22  22 3a 6a 24 3d 22 22 0d  |..F.i$="":j$="".|
00000d20  05 50 12 e7 20 a7 6d 24  2c 22 5b 22 29 3e 30 20  |.P.. .m$,"[")>0 |
00000d30  8c 0d 05 5a 16 69 24 3d  c0 6d 24 2c a7 6d 24 2c  |...Z.i$=.m$,.m$,|
00000d40  22 5d 22 29 2d 31 29 0d  05 64 16 6d 24 3d c1 6d  |"]")-1)..d.m$=.m|
00000d50  24 2c a7 6d 24 2c 22 5d  22 29 2b 31 29 0d 05 6e  |$,.m$,"]")+1)..n|
00000d60  16 6a 24 3d c0 69 24 2c  a7 69 24 2c 22 2f 22 29  |.j$=.i$,.i$,"/")|
00000d70  2d 31 29 0d 05 78 16 69  24 3d c1 69 24 2c a7 69  |-1)..x.i$=.i$,.i|
00000d80  24 2c 22 2f 22 29 2b 31  29 0d 05 82 05 cd 0d 05  |$,"/")+1).......|
00000d90  8c 14 69 66 6c 61 67 73  3d 26 30 37 30 30 30 30  |..iflags=&070000|
00000da0  32 31 0d 05 96 0c 6d 66  6c 61 67 73 3d 30 0d 05  |21....mflags=0..|
00000db0  a0 0e 73 75 62 6d 65 6e  75 3d 2d 31 0d 05 aa 20  |..submenu=-1... |
00000dc0  e7 20 a7 6a 24 2c 22 77  22 29 3e 30 20 8c 20 73  |. .j$,"w")>0 . s|
00000dd0  75 62 6d 65 6e 75 3d a0  28 69 24 29 0d 05 b4 20  |ubmenu=.(i$)... |
00000de0  e7 20 a7 6a 24 2c 22 73  22 29 3e 30 20 8c 20 73  |. .j$,"s")>0 . s|
00000df0  75 62 6d 65 6e 75 3d a0  28 69 24 29 0d 05 be 24  |ubmenu=.(i$)...$|
00000e00  e7 20 a7 6a 24 2c 22 74  22 29 3e 30 20 8c 20 6d  |. .j$,"t")>0 . m|
00000e10  66 6c 61 67 73 3d 6d 66  6c 61 67 73 20 84 20 31  |flags=mflags . 1|
00000e20  0d 05 c8 24 e7 20 a7 6a  24 2c 22 6c 22 29 3e 30  |...$. .j$,"l")>0|
00000e30  20 8c 20 6d 66 6c 61 67  73 3d 6d 66 6c 61 67 73  | . mflags=mflags|
00000e40  20 84 20 32 0d 05 d2 13  21 6d 65 6e 75 70 74 72  | . 2....!menuptr|
00000e50  3d 6d 66 6c 61 67 73 0d  05 dc 15 6d 65 6e 75 70  |=mflags....menup|
00000e60  74 72 21 34 3d 73 75 62  6d 65 6e 75 0d 05 e6 14  |tr!4=submenu....|
00000e70  6d 65 6e 75 70 74 72 21  38 3d 69 66 6c 61 67 73  |menuptr!8=iflags|
00000e80  0d 05 f0 14 24 28 6d 65  6e 75 70 74 72 2b 31 32  |....$(menuptr+12|
00000e90  29 3d 6d 24 0d 05 fa 05  e1 0d 06 04 09 dd f2 69  |)=m$...........i|
00000ea0  73 64 0d 06 0e 10 21 62  6c 6f 63 6b 3d 73 61 76  |sd....!block=sav|
00000eb0  65 25 0d 06 18 23 c8 99  20 22 57 69 6d 70 5f 47  |e%...#.. "Wimp_G|
00000ec0  65 74 57 69 6e 64 6f 77  53 74 61 74 65 22 2c 2c  |etWindowState",,|
00000ed0  62 6c 6f 63 6b 0d 06 22  1b 79 73 69 7a 65 25 3d  |block..".ysize%=|
00000ee0  62 6c 6f 63 6b 21 31 36  2d 62 6c 6f 63 6b 21 38  |block!16-block!8|
00000ef0  0d 06 2c 23 78 25 3d 62  6c 6f 63 6b 21 34 3a 79  |..,#x%=block!4:y|
00000f00  25 3d 62 6c 6f 63 6b 21  38 3a 62 6c 6f 63 6b 21  |%=block!8:block!|
00000f10  34 3d 39 0d 06 36 21 c8  99 20 22 57 69 6d 70 5f  |4=9..6!.. "Wimp_|
00000f20  47 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 62  |GetIconState",,b|
00000f30  6c 6f 63 6b 0d 06 40 23  62 6c 6f 63 6b 21 38 2b  |lock..@#block!8+|
00000f40  3d 78 25 3a 62 6c 6f 63  6b 21 31 32 2b 3d 79 25  |=x%:block!12+=y%|
00000f50  2b 79 73 69 7a 65 25 0d  06 4a 24 62 6c 6f 63 6b  |+ysize%..J$block|
00000f60  21 31 36 2b 3d 78 25 3a  62 6c 6f 63 6b 21 32 30  |!16+=x%:block!20|
00000f70  2b 3d 79 25 2b 79 73 69  7a 65 25 0d 06 54 35 62  |+=y%+ysize%..T5b|
00000f80  6c 6f 63 6b 21 32 34 3d  30 3a 62 6c 6f 63 6b 21  |lock!24=0:block!|
00000f90  32 38 3d 30 3a 62 6c 6f  63 6b 21 33 32 3d 31 32  |28=0:block!32=12|
00000fa0  37 39 3a 62 6c 6f 63 6b  21 33 36 3d 31 30 32 33  |79:block!36=1023|
00000fb0  0d 06 5e 29 21 62 6c 6f  63 6b 3d 30 3a 62 6c 6f  |..^)!block=0:blo|
00000fc0  63 6b 21 34 3d 35 3a 64  72 61 67 25 3d b9 3a 73  |ck!4=5:drag%=.:s|
00000fd0  61 76 69 6e 67 25 3d 2d  31 0d 06 68 1c c8 99 20  |aving%=-1..h... |
00000fe0  22 57 69 6d 70 5f 44 72  61 67 42 6f 78 22 2c 2c  |"Wimp_DragBox",,|
00000ff0  62 6c 6f 63 6b 0d 06 72  05 e1 0d 06 7c 0a dd f2  |block..r....|...|
00001000  69 73 64 32 0d 06 86 11  21 62 6c 6f 63 6b 3d 73  |isd2....!block=s|
00001010  61 76 65 32 25 0d 06 90  23 c8 99 20 22 57 69 6d  |ave2%...#.. "Wim|
00001020  70 5f 47 65 74 57 69 6e  64 6f 77 53 74 61 74 65  |p_GetWindowState|
00001030  22 2c 2c 62 6c 6f 63 6b  0d 06 9a 1b 79 73 69 7a  |",,block....ysiz|
00001040  65 25 3d 62 6c 6f 63 6b  21 31 36 2d 62 6c 6f 63  |e%=block!16-bloc|
00001050  6b 21 38 0d 06 a4 23 78  25 3d 62 6c 6f 63 6b 21  |k!8...#x%=block!|
00001060  34 3a 79 25 3d 62 6c 6f  63 6b 21 38 3a 62 6c 6f  |4:y%=block!8:blo|
00001070  63 6b 21 34 3d 39 0d 06  ae 21 c8 99 20 22 57 69  |ck!4=9...!.. "Wi|
00001080  6d 70 5f 47 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_GetIconState"|
00001090  2c 2c 62 6c 6f 63 6b 0d  06 b8 23 62 6c 6f 63 6b  |,,block...#block|
000010a0  21 38 2b 3d 78 25 3a 62  6c 6f 63 6b 21 31 32 2b  |!8+=x%:block!12+|
000010b0  3d 79 25 2b 79 73 69 7a  65 25 0d 06 c2 24 62 6c  |=y%+ysize%...$bl|
000010c0  6f 63 6b 21 31 36 2b 3d  78 25 3a 62 6c 6f 63 6b  |ock!16+=x%:block|
000010d0  21 32 30 2b 3d 79 25 2b  79 73 69 7a 65 25 0d 06  |!20+=y%+ysize%..|
000010e0  cc 35 62 6c 6f 63 6b 21  32 34 3d 30 3a 62 6c 6f  |.5block!24=0:blo|
000010f0  63 6b 21 32 38 3d 30 3a  62 6c 6f 63 6b 21 33 32  |ck!28=0:block!32|
00001100  3d 31 32 37 39 3a 62 6c  6f 63 6b 21 33 36 3d 31  |=1279:block!36=1|
00001110  30 32 33 0d 06 d6 29 21  62 6c 6f 63 6b 3d 30 3a  |023...)!block=0:|
00001120  62 6c 6f 63 6b 21 34 3d  35 3a 64 72 61 67 25 3d  |block!4=5:drag%=|
00001130  b9 3a 73 61 76 69 6e 67  25 3d 2d 32 0d 06 e0 1c  |.:saving%=-2....|
00001140  c8 99 20 22 57 69 6d 70  5f 44 72 61 67 42 6f 78  |.. "Wimp_DragBox|
00001150  22 2c 2c 62 6c 6f 63 6b  0d 06 ea 05 e1 0d 06 f4  |",,block........|
00001160  0a dd f2 64 72 61 67 0d  06 fe 12 e7 20 73 61 76  |...drag..... sav|
00001170  69 6e 67 25 3d 2d 31 20  8c 0d 07 08 23 c8 99 20  |ing%=-1 ....#.. |
00001180  22 57 69 6d 70 5f 47 65  74 50 6f 69 6e 74 65 72  |"Wimp_GetPointer|
00001190  49 6e 66 6f 22 2c 2c 62  6c 6f 63 6b 0d 07 12 24  |Info",,block...$|
000011a0  62 6c 6f 63 6b 21 33 32  3d 62 6c 6f 63 6b 21 34  |block!32=block!4|
000011b0  3a 62 6c 6f 63 6b 21 32  38 3d 21 62 6c 6f 63 6b  |:block!28=!block|
000011c0  0d 07 1c 27 62 6c 6f 63  6b 21 32 34 3d 62 6c 6f  |...'block!24=blo|
000011d0  63 6b 21 31 36 3a 62 6c  6f 63 6b 21 32 30 3d 62  |ck!16:block!20=b|
000011e0  6c 6f 63 6b 21 31 32 0d  07 26 2f 62 6c 6f 63 6b  |lock!12..&/block|
000011f0  21 31 36 3d 31 3a 62 6c  6f 63 6b 21 31 32 3d 30  |!16=1:block!12=0|
00001200  3a 62 6c 6f 63 6b 21 33  36 3d 30 3a 62 6c 6f 63  |:block!36=0:bloc|
00001210  6b 21 34 30 3d 30 0d 07  30 29 e3 20 49 3d 30 20  |k!40=0..0). I=0 |
00001220  b8 20 32 35 35 3a e7 20  49 3f 73 74 65 78 74 3c  |. 255:. I?stext<|
00001230  33 32 20 8c 20 49 3f 73  74 65 78 74 3d 31 33 0d  |32 . I?stext=13.|
00001240  07 3a 05 ed 0d 07 44 29  24 28 62 6c 6f 63 6b 2b  |.:....D)$(block+|
00001250  34 34 29 3d a4 62 69 74  28 24 73 74 65 78 74 29  |44)=.bit($stext)|
00001260  2b bd 30 3a 21 62 6c 6f  63 6b 3d 36 30 0d 07 4e  |+.0:!block=60..N|
00001270  2b c8 99 20 22 57 69 6d  70 5f 53 65 6e 64 4d 65  |+.. "Wimp_SendMe|
00001280  73 73 61 67 65 22 2c 31  37 2c 62 6c 6f 63 6b 2c  |ssage",17,block,|
00001290  62 6c 6f 63 6b 21 32 30  0d 07 58 0b 64 72 61 67  |block!20..X.drag|
000012a0  25 3d 30 0d 07 62 05 cd  0d 07 6c 12 e7 20 73 61  |%=0..b....l.. sa|
000012b0  76 69 6e 67 25 3d 2d 32  20 8c 0d 07 76 23 c8 99  |ving%=-2 ...v#..|
000012c0  20 22 57 69 6d 70 5f 47  65 74 50 6f 69 6e 74 65  | "Wimp_GetPointe|
000012d0  72 49 6e 66 6f 22 2c 2c  62 6c 6f 63 6b 0d 07 80  |rInfo",,block...|
000012e0  24 62 6c 6f 63 6b 21 33  32 3d 62 6c 6f 63 6b 21  |$block!32=block!|
000012f0  34 3a 62 6c 6f 63 6b 21  32 38 3d 21 62 6c 6f 63  |4:block!28=!bloc|
00001300  6b 0d 07 8a 27 62 6c 6f  63 6b 21 32 34 3d 62 6c  |k...'block!24=bl|
00001310  6f 63 6b 21 31 36 3a 62  6c 6f 63 6b 21 32 30 3d  |ock!16:block!20=|
00001320  62 6c 6f 63 6b 21 31 32  0d 07 94 2f 62 6c 6f 63  |block!12.../bloc|
00001330  6b 21 31 36 3d 31 3a 62  6c 6f 63 6b 21 31 32 3d  |k!16=1:block!12=|
00001340  30 3a 62 6c 6f 63 6b 21  33 36 3d 30 3a 62 6c 6f  |0:block!36=0:blo|
00001350  63 6b 21 34 30 3d 30 0d  07 9e 2b e3 20 49 3d 30  |ck!40=0...+. I=0|
00001360  20 b8 20 32 35 35 3a e7  20 49 3f 73 74 65 78 74  | . 255:. I?stext|
00001370  32 3c 33 32 20 8c 20 49  3f 73 74 65 78 74 32 3d  |2<32 . I?stext2=|
00001380  31 33 0d 07 a8 05 ed 0d  07 b2 2a 24 28 62 6c 6f  |13........*$(blo|
00001390  63 6b 2b 34 34 29 3d a4  62 69 74 28 24 73 74 65  |ck+44)=.bit($ste|
000013a0  78 74 32 29 2b bd 30 3a  21 62 6c 6f 63 6b 3d 36  |xt2)+.0:!block=6|
000013b0  30 0d 07 bc 2b c8 99 20  22 57 69 6d 70 5f 53 65  |0...+.. "Wimp_Se|
000013c0  6e 64 4d 65 73 73 61 67  65 22 2c 31 37 2c 62 6c  |ndMessage",17,bl|
000013d0  6f 63 6b 2c 62 6c 6f 63  6b 21 32 30 0d 07 c6 0b  |ock,block!20....|
000013e0  64 72 61 67 25 3d 30 0d  07 d0 05 cd 0d 07 da 05  |drag%=0.........|
000013f0  e1 0d 07 e4 14 dd f2 62  75 74 74 6f 6e 73 28 62  |.......buttons(b|
00001400  6c 6f 63 6b 29 0d 07 ee  11 69 63 6f 6e 3d 62 6c  |lock)....icon=bl|
00001410  6f 63 6b 21 31 36 0d 07  f8 26 e7 20 62 6c 6f 63  |ock!16...&. bloc|
00001420  6b 21 31 32 3d 2d 32 20  80 20 62 6c 6f 63 6b 21  |k!12=-2 . block!|
00001430  38 3d 32 20 f2 6d 65 6e  75 73 3a e1 0d 08 02 47  |8=2 .menus:....G|
00001440  e7 20 62 6c 6f 63 6b 21  31 32 3d 2d 32 20 80 20  |. block!12=-2 . |
00001450  62 6c 6f 63 6b 21 38 3c  3e 32 20 f2 6f 70 65 6e  |block!8<>2 .open|
00001460  77 69 6e 64 6f 77 28 74  61 62 6c 65 25 29 3a f2  |window(table%):.|
00001470  6f 70 65 6e 77 69 6e 64  6f 77 28 65 64 69 74 25  |openwindow(edit%|
00001480  29 3a e1 0d 08 0c 2b e7  20 62 6c 6f 63 6b 21 31  |):....+. block!1|
00001490  32 3d 74 61 62 6c 65 25  20 80 20 62 6c 6f 63 6b  |2=table% . block|
000014a0  21 38 3d 32 20 f2 6d 65  6e 75 73 32 3a e1 0d 08  |!8=2 .menus2:...|
000014b0  16 2a e7 20 62 6c 6f 63  6b 21 31 32 3d 65 64 69  |.*. block!12=edi|
000014c0  74 25 20 80 20 62 6c 6f  63 6b 21 38 3d 32 20 f2  |t% . block!8=2 .|
000014d0  6d 65 6e 75 73 32 3a e1  0d 08 20 26 e7 20 62 6c  |menus2:... &. bl|
000014e0  6f 63 6b 21 31 32 3d 73  61 76 65 25 20 80 20 62  |ock!12=save% . b|
000014f0  6c 6f 63 6b 21 31 36 3d  39 20 f2 69 73 64 0d 08  |lock!16=9 .isd..|
00001500  2a 36 e7 20 62 6c 6f 63  6b 21 31 32 3d 73 61 76  |*6. block!12=sav|
00001510  65 25 20 80 20 62 6c 6f  63 6b 21 31 36 3d 38 20  |e% . block!16=8 |
00001520  8c 20 f2 73 61 76 65 28  a4 73 74 72 28 73 74 65  |. .save(.str(ste|
00001530  78 74 29 29 0d 08 34 28  e7 20 62 6c 6f 63 6b 21  |xt))..4(. block!|
00001540  31 32 3d 73 61 76 65 32  25 20 80 20 62 6c 6f 63  |12=save2% . bloc|
00001550  6b 21 31 36 3d 39 20 f2  69 73 64 32 0d 08 3e 39  |k!16=9 .isd2..>9|
00001560  e7 20 62 6c 6f 63 6b 21  31 32 3d 73 61 76 65 32  |. block!12=save2|
00001570  25 20 80 20 62 6c 6f 63  6b 21 31 36 3d 38 20 8c  |% . block!16=8 .|
00001580  20 f2 73 61 76 65 32 28  a4 73 74 72 28 73 74 65  | .save2(.str(ste|
00001590  78 74 32 29 29 0d 08 48  22 e7 20 62 6c 6f 63 6b  |xt2))..H". block|
000015a0  21 31 32 3d 72 6f 77 73  25 20 8c 20 f2 62 75 74  |!12=rows% . .but|
000015b0  74 6f 6e 72 6f 77 73 0d  08 52 28 e7 20 62 6c 6f  |tonrows..R(. blo|
000015c0  63 6b 21 31 32 3d 63 6f  6c 75 6d 6e 73 25 20 8c  |ck!12=columns% .|
000015d0  20 f2 62 75 74 74 6f 6e  63 6f 6c 75 6d 6e 73 0d  | .buttoncolumns.|
000015e0  08 5c 22 e7 20 62 6c 6f  63 6b 21 31 32 3d 65 64  |.\". block!12=ed|
000015f0  69 74 25 20 8c 20 f2 62  75 74 74 6f 6e 65 64 69  |it% . .buttonedi|
00001600  74 0d 08 66 05 e1 0d 08  70 10 dd f2 70 72 6f 63  |t..f....p...proc|
00001610  65 73 73 6b 65 79 0d 08  7a 1d 69 63 6f 6e 3d 62  |esskey..z.icon=b|
00001620  6c 6f 63 6b 21 34 3a 6b  65 79 3d 62 6c 6f 63 6b  |lock!4:key=block|
00001630  21 32 34 0d 08 84 31 e7  20 62 6c 6f 63 6b 21 30  |!24...1. block!0|
00001640  3d 73 61 76 65 25 20 80  20 62 6c 6f 63 6b 21 32  |=save% . block!2|
00001650  34 3d 31 33 20 8c 20 f2  73 61 76 65 28 24 73 74  |4=13 . .save($st|
00001660  65 78 74 29 0d 08 8e 34  e7 20 62 6c 6f 63 6b 21  |ext)...4. block!|
00001670  30 3d 73 61 76 65 32 25  20 80 20 62 6c 6f 63 6b  |0=save2% . block|
00001680  21 32 34 3d 31 33 20 8c  20 f2 73 61 76 65 32 28  |!24=13 . .save2(|
00001690  24 73 74 65 78 74 32 29  0d 08 98 1e e7 20 62 6c  |$stext2)..... bl|
000016a0  6f 63 6b 21 30 3d 72 6f  77 73 25 20 8c 20 f2 72  |ock!0=rows% . .r|
000016b0  6f 77 73 6b 65 79 0d 08  a2 24 e7 20 62 6c 6f 63  |owskey...$. bloc|
000016c0  6b 21 30 3d 63 6f 6c 75  6d 6e 73 25 20 8c 20 f2  |k!0=columns% . .|
000016d0  63 6f 6c 75 6d 6e 73 6b  65 79 0d 08 ac 1e e7 20  |columnskey..... |
000016e0  62 6c 6f 63 6b 21 30 3d  65 64 69 74 25 20 8c 20  |block!0=edit% . |
000016f0  f2 65 64 69 74 6b 65 79  0d 08 b6 21 c8 99 20 22  |.editkey...!.. "|
00001700  57 69 6d 70 5f 50 72 6f  63 65 73 73 4b 65 79 22  |Wimp_ProcessKey"|
00001710  2c 62 6c 6f 63 6b 21 32  34 0d 08 c0 05 e1 0d 08  |,block!24.......|
00001720  ca 0b dd f2 6d 65 6e 75  73 0d 08 d4 10 6d 65 6e  |....menus....men|
00001730  75 6f 70 65 6e 3d 2d 34  34 0d 08 de 11 6d 65 6e  |uopen=-44....men|
00001740  75 70 74 72 3d 6d 65 6e  75 25 0d 08 e8 0c c8 97  |uptr=menu%......|
00001750  20 78 2c 79 2c 62 0d 08  f2 37 74 6f 70 6d 65 6e  | x,y,b...7topmen|
00001760  75 25 3d a4 6d 65 6e 75  28 22 41 4d 46 54 61 62  |u%=.menu("AMFTab|
00001770  6c 65 22 2c 31 35 30 2c  22 5b 77 2f 69 6e 66 6f  |le",150,"[w/info|
00001780  25 5d 49 6e 66 6f 2c 51  75 69 74 22 29 0d 08 fc  |%]Info,Quit")...|
00001790  17 f2 6f 70 65 6e 6d 65  6e 75 28 78 2d 37 35 2c  |..openmenu(x-75,|
000017a0  31 39 38 29 0d 09 06 05  e1 0d 09 10 0c dd f2 6d  |198)...........m|
000017b0  65 6e 75 73 32 0d 09 1a  10 6d 65 6e 75 6f 70 65  |enus2....menuope|
000017c0  6e 3d 2d 34 35 0d 09 24  11 6d 65 6e 75 70 74 72  |n=-45..$.menuptr|
000017d0  3d 6d 65 6e 75 25 0d 09  2e 0c c8 97 20 78 2c 79  |=menu%...... x,y|
000017e0  2c 62 0d 09 38 3f 73 61  76 65 6d 65 6e 75 25 3d  |,b..8?savemenu%=|
000017f0  a4 6d 65 6e 75 28 22 53  61 76 65 22 2c 31 35 30  |.menu("Save",150|
00001800  2c 22 5b 77 2f 73 61 76  65 25 5d 44 72 61 77 2c  |,"[w/save%]Draw,|
00001810  5b 77 2f 73 61 76 65 32  25 5d 54 61 62 6c 65 22  |[w/save2%]Table"|
00001820  29 0d 09 42 47 64 65 66  69 6e 65 6d 65 6e 75 25  |)..BGdefinemenu%|
00001830  3d a4 6d 65 6e 75 28 22  44 65 66 69 6e 65 22 2c  |=.menu("Define",|
00001840  31 35 30 2c 22 5b 77 2f  63 6f 6c 75 6d 6e 73 25  |150,"[w/columns%|
00001850  5d 43 6f 6c 75 6d 6e 73  2c 5b 77 2f 72 6f 77 73  |]Columns,[w/rows|
00001860  25 5d 52 6f 77 73 22 29  0d 09 4c 39 63 6c 65 61  |%]Rows")..L9clea|
00001870  72 6d 65 6e 75 25 3d a4  6d 65 6e 75 28 22 43 6c  |rmenu%=.menu("Cl|
00001880  65 61 72 22 2c 31 35 30  2c 22 43 6f 6c 75 6d 6e  |ear",150,"Column|
00001890  73 2c 52 6f 77 73 2c 54  65 78 74 2c 41 6c 6c 22  |s,Rows,Text,All"|
000018a0  29 0d 09 56 22 6d 24 3d  22 22 3a e7 20 61 75 74  |)..V"m$="":. aut|
000018b0  6f 6d 6f 76 65 3d 30 20  8c 20 6d 24 2b 3d 22 5b  |omove=0 . m$+="[|
000018c0  74 5d 22 0d 09 60 28 6d  24 2b 3d 22 4e 6f 6e 65  |t]"..`(m$+="None|
000018d0  2c 22 3a e7 20 61 75 74  6f 6d 6f 76 65 3d 31 20  |,":. automove=1 |
000018e0  8c 20 6d 24 2b 3d 22 5b  74 5d 22 0d 09 6a 28 6d  |. m$+="[t]"..j(m|
000018f0  24 2b 3d 22 4c 65 66 74  2c 22 3a e7 20 61 75 74  |$+="Left,":. aut|
00001900  6f 6d 6f 76 65 3d 32 20  8c 20 6d 24 2b 3d 22 5b  |omove=2 . m$+="[|
00001910  74 5d 22 0d 09 74 29 6d  24 2b 3d 22 52 69 67 68  |t]"..t)m$+="Righ|
00001920  74 2c 22 3a e7 20 61 75  74 6f 6d 6f 76 65 3d 33  |t,":. automove=3|
00001930  20 8c 20 6d 24 2b 3d 22  5b 74 5d 22 0d 09 7e 26  | . m$+="[t]"..~&|
00001940  6d 24 2b 3d 22 55 70 2c  22 3a e7 20 61 75 74 6f  |m$+="Up,":. auto|
00001950  6d 6f 76 65 3d 34 20 8c  20 6d 24 2b 3d 22 5b 74  |move=4 . m$+="[t|
00001960  5d 22 0d 09 88 0e 6d 24  2b 3d 22 44 6f 77 6e 22  |]"....m$+="Down"|
00001970  0d 09 92 22 6d 6f 76 65  6d 65 6e 75 25 3d a4 6d  |..."movemenu%=.m|
00001980  65 6e 75 28 22 4d 6f 76  65 22 2c 31 35 30 2c 6d  |enu("Move",150,m|
00001990  24 29 0d 09 9c 72 74 6f  70 6d 65 6e 75 25 3d a4  |$)...rtopmenu%=.|
000019a0  6d 65 6e 75 28 22 41 4d  46 54 61 62 6c 65 22 2c  |menu("AMFTable",|
000019b0  31 35 30 2c 22 5b 73 2f  73 61 76 65 6d 65 6e 75  |150,"[s/savemenu|
000019c0  25 5d 53 61 76 65 2c 5b  73 2f 64 65 66 69 6e 65  |%]Save,[s/define|
000019d0  6d 65 6e 75 25 5d 44 65  66 69 6e 65 2c 5b 73 2f  |menu%]Define,[s/|
000019e0  63 6c 65 61 72 6d 65 6e  75 25 5d 43 6c 65 61 72  |clearmenu%]Clear|
000019f0  2c 5b 73 2f 6d 6f 76 65  6d 65 6e 75 25 5d 4d 6f  |,[s/movemenu%]Mo|
00001a00  76 65 22 29 0d 09 a6 15  f2 6f 70 65 6e 6d 65 6e  |ve").....openmen|
00001a10  75 28 78 2d 37 35 2c 79  29 0d 09 b0 05 e1 0d 09  |u(x-75,y).......|
00001a20  ba 0c dd f2 64 65 63 6f  64 65 0d 09 c4 2e c8 99  |....decode......|
00001a30  20 22 57 69 6d 70 5f 44  65 63 6f 64 65 4d 65 6e  | "Wimp_DecodeMen|
00001a40  75 22 2c 2c 74 6f 70 6d  65 6e 75 25 2c 62 6c 6f  |u",,topmenu%,blo|
00001a50  63 6b 2c 69 63 6f 6e 64  0d 09 ce 1f e7 20 24 69  |ck,icond..... $i|
00001a60  63 6f 6e 64 3d 22 51 75  69 74 22 20 8c 20 65 6e  |cond="Quit" . en|
00001a70  64 25 3d b9 3a ef 34 0d  09 d8 2d e7 20 24 69 63  |d%=.:.4...-. $ic|
00001a80  6f 6e 64 3d 22 53 61 76  65 2e 44 72 61 77 22 20  |ond="Save.Draw" |
00001a90  8c 20 f2 6f 70 65 6e 77  69 6e 64 6f 77 28 73 61  |. .openwindow(sa|
00001aa0  76 65 25 29 0d 09 e2 2f  e7 20 24 69 63 6f 6e 64  |ve%).../. $icond|
00001ab0  3d 22 53 61 76 65 2e 54  61 62 6c 65 22 20 8c 20  |="Save.Table" . |
00001ac0  f2 6f 70 65 6e 77 69 6e  64 6f 77 28 73 61 76 65  |.openwindow(save|
00001ad0  32 25 29 0d 09 ec 35 e7  20 24 69 63 6f 6e 64 3d  |2%)...5. $icond=|
00001ae0  22 44 65 66 69 6e 65 2e  43 6f 6c 75 6d 6e 73 22  |"Define.Columns"|
00001af0  20 8c 20 f2 6f 70 65 6e  77 69 6e 64 6f 77 28 63  | . .openwindow(c|
00001b00  6f 6c 75 6d 6e 73 25 29  0d 09 f6 2f e7 20 24 69  |olumns%).../. $i|
00001b10  63 6f 6e 64 3d 22 44 65  66 69 6e 65 2e 52 6f 77  |cond="Define.Row|
00001b20  73 22 20 8c 20 f2 6f 70  65 6e 77 69 6e 64 6f 77  |s" . .openwindow|
00001b30  28 72 6f 77 73 25 29 0d  0a 00 26 e7 20 24 69 63  |(rows%)...&. $ic|
00001b40  6f 6e 64 3d 22 4d 6f 76  65 2e 4e 6f 6e 65 22 20  |ond="Move.None" |
00001b50  20 8c 20 61 75 74 6f 6d  6f 76 65 3d 30 0d 0a 0a  | . automove=0...|
00001b60  26 e7 20 24 69 63 6f 6e  64 3d 22 4d 6f 76 65 2e  |&. $icond="Move.|
00001b70  4c 65 66 74 22 20 20 8c  20 61 75 74 6f 6d 6f 76  |Left"  . automov|
00001b80  65 3d 31 0d 0a 14 26 e7  20 24 69 63 6f 6e 64 3d  |e=1...&. $icond=|
00001b90  22 4d 6f 76 65 2e 52 69  67 68 74 22 20 8c 20 61  |"Move.Right" . a|
00001ba0  75 74 6f 6d 6f 76 65 3d  32 0d 0a 1e 26 e7 20 24  |utomove=2...&. $|
00001bb0  69 63 6f 6e 64 3d 22 4d  6f 76 65 2e 55 70 22 20  |icond="Move.Up" |
00001bc0  20 20 20 8c 20 61 75 74  6f 6d 6f 76 65 3d 33 0d  |   . automove=3.|
00001bd0  0a 28 26 e7 20 24 69 63  6f 6e 64 3d 22 4d 6f 76  |.(&. $icond="Mov|
00001be0  65 2e 44 6f 77 6e 22 20  20 8c 20 61 75 74 6f 6d  |e.Down"  . autom|
00001bf0  6f 76 65 3d 34 0d 0a 32  2c e7 20 24 69 63 6f 6e  |ove=4..2,. $icon|
00001c00  64 3d 22 43 6c 65 61 72  2e 43 6f 6c 75 6d 6e 73  |d="Clear.Columns|
00001c10  22 20 8c 20 f2 63 6c 65  61 72 63 6f 6c 75 6d 6e  |" . .clearcolumn|
00001c20  73 0d 0a 3c 26 e7 20 24  69 63 6f 6e 64 3d 22 43  |s..<&. $icond="C|
00001c30  6c 65 61 72 2e 52 6f 77  73 22 20 8c 20 f2 63 6c  |lear.Rows" . .cl|
00001c40  65 61 72 72 6f 77 73 0d  0a 46 26 e7 20 24 69 63  |earrows..F&. $ic|
00001c50  6f 6e 64 3d 22 43 6c 65  61 72 2e 54 65 78 74 22  |ond="Clear.Text"|
00001c60  20 8c 20 f2 63 6c 65 61  72 74 65 78 74 0d 0a 50  | . .cleartext..P|
00001c70  24 e7 20 24 69 63 6f 6e  64 3d 22 43 6c 65 61 72  |$. $icond="Clear|
00001c80  2e 41 6c 6c 22 20 8c 20  f2 63 6c 65 61 72 61 6c  |.All" . .clearal|
00001c90  6c 0d 0a 5a 23 c8 99 20  22 57 69 6d 70 5f 47 65  |l..Z#.. "Wimp_Ge|
00001ca0  74 50 6f 69 6e 74 65 72  49 6e 66 6f 22 2c 2c 62  |tPointerInfo",,b|
00001cb0  6c 6f 63 6b 0d 0a 64 11  e7 20 62 6c 6f 63 6b 21  |lock..d.. block!|
00001cc0  38 3d 31 20 8c 0d 0a 6e  1b e7 20 6d 65 6e 75 6f  |8=1 ...n.. menuo|
00001cd0  70 65 6e 3d 2d 34 34 20  8c 20 f2 6d 65 6e 75 73  |pen=-44 . .menus|
00001ce0  0d 0a 78 1c e7 20 6d 65  6e 75 6f 70 65 6e 3d 2d  |..x.. menuopen=-|
00001cf0  34 35 20 8c 20 f2 6d 65  6e 75 73 32 0d 0a 82 22  |45 . .menus2..."|
00001d00  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 4d  |.. "Wimp_CreateM|
00001d10  65 6e 75 22 2c 2c 74 6f  70 6d 65 6e 75 25 0d 0a  |enu",,topmenu%..|
00001d20  8c 05 cc 0d 0a 96 1c c8  99 20 22 57 69 6d 70 5f  |......... "Wimp_|
00001d30  43 72 65 61 74 65 4d 65  6e 75 22 2c 2c 2d 31 0d  |CreateMenu",,-1.|
00001d40  0a a0 05 cd 0d 0a aa 05  e1 0d 0a b4 0e dd f2 74  |...............t|
00001d50  65 6d 70 6c 61 74 65 0d  0a be 36 c8 99 20 22 57  |emplate...6.. "W|
00001d60  69 6d 70 5f 4f 70 65 6e  54 65 6d 70 6c 61 74 65  |imp_OpenTemplate|
00001d70  22 2c 2c 22 3c 41 4d 46  54 61 62 6c 65 24 44 69  |",,"<AMFTable$Di|
00001d80  72 3e 2e 54 65 6d 70 6c  61 74 65 73 22 0d 0a c8  |r>.Templates"...|
00001d90  11 69 6e 64 69 72 3d 63  75 72 62 75 66 25 0d 0a  |.indir=curbuf%..|
00001da0  d2 1f 69 6e 66 6f 25 3d  a4 74 65 6d 70 6c 61 74  |..info%=.templat|
00001db0  65 28 22 50 72 6f 67 49  6e 66 6f 22 29 0d 0a dc  |e("ProgInfo")...|
00001dc0  1f 73 61 76 65 25 3d a4  74 65 6d 70 6c 61 74 65  |.save%=.template|
00001dd0  28 22 53 61 76 65 44 72  61 77 22 29 0d 0a e6 21  |("SaveDraw")...!|
00001de0  73 61 76 65 32 25 3d a4  74 65 6d 70 6c 61 74 65  |save2%=.template|
00001df0  28 22 53 61 76 65 54 61  62 6c 65 22 29 0d 0a f0  |("SaveTable")...|
00001e00  1b 65 64 69 74 25 3d a4  74 65 6d 70 6c 61 74 65  |.edit%=.template|
00001e10  28 22 45 64 69 74 22 29  0d 0a fa 1d 74 61 62 6c  |("Edit")....tabl|
00001e20  65 25 3d a4 74 65 6d 70  6c 61 74 65 28 22 54 61  |e%=.template("Ta|
00001e30  62 6c 65 22 29 0d 0b 04  1f 74 68 61 6e 6b 73 25  |ble")....thanks%|
00001e40  3d a4 74 65 6d 70 6c 61  74 65 28 22 54 68 61 6e  |=.template("Than|
00001e50  6b 73 22 29 0d 0b 0e 21  63 6f 6c 75 6d 6e 73 25  |ks")...!columns%|
00001e60  3d a4 74 65 6d 70 6c 61  74 65 28 22 43 6f 6c 75  |=.template("Colu|
00001e70  6d 6e 73 22 29 0d 0b 18  1b 72 6f 77 73 25 3d a4  |mns")....rows%=.|
00001e80  74 65 6d 70 6c 61 74 65  28 22 52 6f 77 73 22 29  |template("Rows")|
00001e90  0d 0b 22 1b c8 99 20 22  57 69 6d 70 5f 43 6c 6f  |.."... "Wimp_Clo|
00001ea0  73 65 54 65 6d 70 6c 61  74 65 22 0d 0b 2c 17 73  |seTemplate"..,.s|
00001eb0  74 65 78 74 3d a4 74 61  64 28 73 61 76 65 25 2c  |text=.tad(save%,|
00001ec0  30 29 0d 0b 36 19 73 74  65 78 74 32 3d a4 74 61  |0)..6.stext2=.ta|
00001ed0  64 28 73 61 76 65 32 25  2c 30 29 0d 0b 40 1b 76  |d(save2%,0)..@.v|
00001ee0  65 72 73 69 6f 6e 25 3d  a4 74 61 64 28 69 6e 66  |ersion%=.tad(inf|
00001ef0  6f 25 2c 31 32 29 0d 0b  4a 05 e1 0d 0b 54 0a dd  |o%,12)..J....T..|
00001f00  f2 6d 65 73 73 0d 0b 5e  1c 74 61 73 6b 3d 62 6c  |.mess..^.task=bl|
00001f10  6f 63 6b 21 34 3a 72 65  66 3d 62 6c 6f 63 6b 21  |ock!4:ref=block!|
00001f20  38 0d 0b 68 11 c8 8e 20  62 6c 6f 63 6b 21 31 36  |8..h... block!16|
00001f30  20 ca 0d 0b 72 0e c9 20  30 3a 65 6e 64 25 3d b9  | ...r.. 0:end%=.|
00001f40  0d 0b 7c 08 c9 20 32 3a  0d 0b 86 12 e7 20 73 61  |..|.. 2:..... sa|
00001f50  76 69 6e 67 25 3d 2d 31  20 8c 0d 0b 90 19 f2 73  |ving%=-1 ......s|
00001f60  61 76 65 28 a4 73 74 72  28 62 6c 6f 63 6b 2b 34  |ave(.str(block+4|
00001f70  34 29 29 0d 0b 9a 05 cd  0d 0b a4 12 e7 20 73 61  |4)).......... sa|
00001f80  76 69 6e 67 25 3d 2d 32  20 8c 0d 0b ae 1a f2 73  |ving%=-2 ......s|
00001f90  61 76 65 32 28 a4 73 74  72 28 62 6c 6f 63 6b 2b  |ave2(.str(block+|
00001fa0  34 34 29 29 0d 0b b8 05  cd 0d 0b c2 08 c9 20 33  |44)).......... 3|
00001fb0  3a 0d 0b cc 18 6c 6f 61  64 24 3d a4 73 74 72 28  |:....load$=.str(|
00001fc0  62 6c 6f 63 6b 2b 34 34  29 0d 0b d6 15 e7 20 62  |block+44)..... b|
00001fd0  6c 6f 63 6b 21 34 30 3d  26 46 46 44 20 8c 0d 0b  |lock!40=&FFD ...|
00001fe0  e0 31 ea 20 85 3a ee 20  85 20 ea 20 f2 6d 6f 61  |.1. .:. . . .moa|
00001ff0  6e 28 22 43 6f 75 6c 64  6e 27 74 20 6c 6f 61 64  |n("Couldn't load|
00002000  20 3a 20 22 2b f6 24 29  3a e5 20 8d 54 48 4c 0d  | : "+.$):. .THL.|
00002010  0b ea 15 c8 99 20 22 48  6f 75 72 67 6c 61 73 73  |..... "Hourglass|
00002020  5f 4f 6e 22 0d 0b f4 0d  f2 6c 6f 61 64 66 69 6c  |_On".....loadfil|
00002030  65 0d 0b fe 16 c8 99 20  22 48 6f 75 72 67 6c 61  |e...... "Hourgla|
00002040  73 73 5f 4f 66 66 22 0d  0c 08 07 f7 20 85 0d 0c  |ss_Off"..... ...|
00002050  12 05 cd 0d 0c 1c 0e c9  20 34 3a 61 63 6b 25 3d  |........ 4:ack%=|
00002060  a3 0d 0c 26 05 cb 0d 0c  30 05 e1 0d 0c 3a 0b dd  |...&....0....:..|
00002070  f2 63 6d 65 6e 75 0d 0c  44 23 c8 99 20 22 57 69  |.cmenu..D#.. "Wi|
00002080  6d 70 5f 47 65 74 50 6f  69 6e 74 65 72 49 6e 66  |mp_GetPointerInf|
00002090  6f 22 2c 2c 69 63 6f 6e  64 0d 0c 4e 11 e7 20 69  |o",,icond..N.. i|
000020a0  63 6f 6e 64 21 38 3d 31  20 8c 0d 0c 58 1a e7 20  |cond!8=1 ...X.. |
000020b0  6d 65 6e 75 6f 70 65 6e  3d 2d 34 34 20 8c 20 f2  |menuopen=-44 . .|
000020c0  6d 65 6e 75 0d 0c 62 22  c8 99 20 22 57 69 6d 70  |menu..b".. "Wimp|
000020d0  5f 43 72 65 61 74 65 4d  65 6e 75 22 2c 2c 74 6f  |_CreateMenu",,to|
000020e0  70 6d 65 6e 75 25 0d 0c  6c 05 cc 0d 0c 76 1c c8  |pmenu%..l....v..|
000020f0  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 4d 65  |. "Wimp_CreateMe|
00002100  6e 75 22 2c 2c 2d 31 0d  0c 80 05 cd 0d 0c 8a 05  |nu",,-1.........|
00002110  e1 0d 0c 94 0f dd f2 73  61 76 65 32 28 61 24 29  |.......save2(a$)|
00002120  0d 0c 9e 5c e7 20 a7 61  24 2c 22 2e 22 29 3c 31  |...\. .a$,".")<1|
00002130  20 80 20 a7 61 24 2c 22  3a 22 29 3c 31 20 8c 20  | . .a$,":")<1 . |
00002140  f2 6d 6f 61 6e 28 22 54  6f 20 73 61 76 65 2c 20  |.moan("To save, |
00002150  64 72 61 67 20 74 68 65  20 73 61 76 65 20 69 63  |drag the save ic|
00002160  6f 6e 20 74 6f 20 61 20  64 69 72 65 63 74 6f 72  |on to a director|
00002170  79 20 76 69 65 77 65 72  22 29 3a e1 0d 0c a8 07  |y viewer"):.....|
00002180  ea 20 85 0d 0c b2 36 ee  20 85 20 ea 20 f2 6d 6f  |. ....6. . . .mo|
00002190  61 6e 28 22 43 6f 75 6c  64 6e 27 74 20 73 61 76  |an("Couldn't sav|
000021a0  65 20 3a 20 22 2b f6 24  2b 22 20 22 2b c3 28 9e  |e : "+.$+" "+.(.|
000021b0  29 29 3a e5 20 8d 64 54  4d 0d 0c bc 0c 73 61 76  |)):. .dTM....sav|
000021c0  65 24 3d 61 24 0d 0c c6  0f 6f 66 69 6c 65 3d ae  |e$=a$....ofile=.|
000021d0  28 61 24 29 0d 0c d0 1b  f1 23 6f 66 69 6c 65 2c  |(a$).....#ofile,|
000021e0  22 65 6c 69 46 20 65 6c  62 61 74 46 4d 41 22 0d  |"eliF elbatFMA".|
000021f0  0c da 13 f1 23 6f 66 69  6c 65 2c 6d 61 78 72 6f  |....#ofile,maxro|
00002200  77 73 0d 0c e4 13 f1 23  6f 66 69 6c 65 2c 6d 61  |ws.....#ofile,ma|
00002210  78 63 6f 6c 73 0d 0c ee  16 f1 23 6f 66 69 6c 65  |xcols.....#ofile|
00002220  2c 22 79 61 64 73 6d 6f  6f 44 22 0d 0c f8 14 e3  |,"yadsmooD".....|
00002230  20 49 25 3d 30 20 b8 20  6d 61 78 72 6f 77 73 0d  | I%=0 . maxrows.|
00002240  0d 02 14 f1 23 6f 66 69  6c 65 2c 72 6f 77 73 28  |....#ofile,rows(|
00002250  49 25 29 0d 0d 0c 18 f1  23 6f 66 69 6c 65 2c 72  |I%).....#ofile,r|
00002260  6f 77 73 74 79 6c 65 28  49 25 29 0d 0d 16 05 ed  |owstyle(I%).....|
00002270  0d 0d 20 21 f1 23 6f 66  69 6c 65 2c 22 72 65 68  |.. !.#ofile,"reh|
00002280  63 74 61 77 6d 6f 6f 44  20 65 68 74 20 46 4d 41  |ctawmooD eht FMA|
00002290  22 0d 0d 2a 14 e3 20 49  25 3d 30 20 b8 20 6d 61  |"..*.. I%=0 . ma|
000022a0  78 63 6f 6c 73 0d 0d 34  17 f1 23 6f 66 69 6c 65  |xcols..4..#ofile|
000022b0  2c 63 6f 6c 75 6d 6e 73  28 49 25 29 0d 0d 3e 1b  |,columns(I%)..>.|
000022c0  f1 23 6f 66 69 6c 65 2c  63 6f 6c 75 6d 6e 73 74  |.#ofile,columnst|
000022d0  79 6c 65 28 49 25 29 0d  0d 48 05 ed 0d 0d 52 18  |yle(I%)..H....R.|
000022e0  f1 23 6f 66 69 6c 65 2c  22 6e 6f 64 64 65 67 61  |.#ofile,"noddega|
000022f0  6d 72 41 22 0d 0d 5c 14  e3 20 49 25 3d 30 20 b8  |mrA"..\.. I%=0 .|
00002300  20 6d 61 78 72 6f 77 73  0d 0d 66 14 e3 20 4a 25  | maxrows..f.. J%|
00002310  3d 30 20 b8 20 6d 61 78  63 6f 6c 73 0d 0d 70 1b  |=0 . maxcols..p.|
00002320  f1 23 6f 66 69 6c 65 2c  63 6f 6e 74 65 6e 74 24  |.#ofile,content$|
00002330  28 49 25 2c 4a 25 29 0d  0d 7a 20 f1 23 6f 66 69  |(I%,J%)..z .#ofi|
00002340  6c 65 2c 6a 75 73 74 69  66 69 63 61 74 69 6f 6e  |le,justification|
00002350  28 49 25 2c 4a 25 29 0d  0d 84 05 ed 0d 0d 8e 05  |(I%,J%).........|
00002360  ed 0d 0d 98 16 f1 23 6f  66 69 6c 65 2c 22 64 65  |......#ofile,"de|
00002370  68 73 69 6e 69 46 22 0d  0d a2 0b d9 23 6f 66 69  |hsiniF".....#ofi|
00002380  6c 65 0d 0d ac 1b ff 28  22 53 45 54 54 59 50 45  |le.....("SETTYPE|
00002390  20 22 2b 61 24 2b 22 20  46 46 44 22 29 0d 0d b6  | "+a$+" FFD")...|
000023a0  0a f2 63 6d 65 6e 75 0d  0d c0 11 24 73 74 65 78  |..cmenu....$stex|
000023b0  74 32 3d 73 61 76 65 24  0d 0d ca 0e 6d 6f 64 69  |t2=save$....modi|
000023c0  66 69 65 64 3d 30 0d 0d  d4 07 f7 20 85 0d 0d de  |fied=0..... ....|
000023d0  05 e1 0d 0d e8 0e dd f2  6c 6f 61 64 66 69 6c 65  |........loadfile|
000023e0  0d 0d f2 07 ea 20 85 0d  0d fc 2d ee 20 85 20 ea  |..... ....-. . .|
000023f0  20 f2 6d 6f 61 6e 28 22  43 6f 75 6c 64 6e 27 74  | .moan("Couldn't|
00002400  20 6c 6f 61 64 20 3a 20  22 2b f6 24 29 3a e5 20  | load : "+.$):. |
00002410  8d 54 68 4f 0d 0e 06 12  69 66 69 6c 65 3d 8e 28  |.ThO....ifile=.(|
00002420  6c 6f 61 64 24 29 0d 0e  10 12 e8 23 69 66 69 6c  |load$).....#ifil|
00002430  65 2c 63 68 65 63 6b 24  0d 0e 1a 3b e7 20 63 68  |e,check$...;. ch|
00002440  65 63 6b 24 3c 3e 22 65  6c 69 46 20 65 6c 62 61  |eck$<>"eliF elba|
00002450  74 46 4d 41 22 20 8c 20  85 20 31 2c 22 43 6f 72  |tFMA" . . 1,"Cor|
00002460  72 75 70 74 20 64 61 74  61 20 66 69 6c 65 20 28  |rupt data file (|
00002470  31 29 22 0d 0e 24 14 e8  23 69 66 69 6c 65 2c 6d  |1)"..$..#ifile,m|
00002480  61 78 72 6f 77 73 32 0d  0e 2e 14 e8 23 69 66 69  |axrows2.....#ifi|
00002490  6c 65 2c 6d 61 78 63 6f  6c 73 32 0d 0e 38 33 e7  |le,maxcols2..83.|
000024a0  20 6d 61 78 72 6f 77 73  32 3c 3e 6d 61 78 72 6f  | maxrows2<>maxro|
000024b0  77 73 20 85 20 31 2c 22  55 6e 73 75 69 74 61 62  |ws . 1,"Unsuitab|
000024c0  6c 65 20 74 61 62 6c 65  20 73 69 7a 65 22 0d 0e  |le table size"..|
000024d0  42 33 e7 20 6d 61 78 63  6f 6c 73 32 3c 3e 6d 61  |B3. maxcols2<>ma|
000024e0  78 63 6f 6c 73 20 85 20  31 2c 22 55 6e 73 75 69  |xcols . 1,"Unsui|
000024f0  74 61 62 6c 65 20 74 61  62 6c 65 20 73 69 7a 65  |table table size|
00002500  22 0d 0e 4c 12 e8 23 69  66 69 6c 65 2c 63 68 65  |"..L..#ifile,che|
00002510  63 6b 24 0d 0e 56 36 e7  20 63 68 65 63 6b 24 3c  |ck$..V6. check$<|
00002520  3e 22 79 61 64 73 6d 6f  6f 44 22 20 8c 20 85 20  |>"yadsmooD" . . |
00002530  31 2c 22 43 6f 72 72 75  70 74 20 64 61 74 61 20  |1,"Corrupt data |
00002540  66 69 6c 65 20 28 32 29  22 0d 0e 60 14 e3 20 49  |file (2)"..`.. I|
00002550  25 3d 30 20 b8 20 6d 61  78 72 6f 77 73 0d 0e 6a  |%=0 . maxrows..j|
00002560  14 e8 23 69 66 69 6c 65  2c 72 6f 77 73 28 49 25  |..#ifile,rows(I%|
00002570  29 0d 0e 74 18 e8 23 69  66 69 6c 65 2c 72 6f 77  |)..t..#ifile,row|
00002580  73 74 79 6c 65 28 49 25  29 0d 0e 7e 05 ed 0d 0e  |style(I%)..~....|
00002590  88 12 e8 23 69 66 69 6c  65 2c 63 68 65 63 6b 24  |...#ifile,check$|
000025a0  0d 0e 92 41 e7 20 63 68  65 63 6b 24 3c 3e 22 72  |...A. check$<>"r|
000025b0  65 68 63 74 61 77 6d 6f  6f 44 20 65 68 74 20 46  |ehctawmooD eht F|
000025c0  4d 41 22 20 8c 20 85 20  31 2c 22 43 6f 72 72 75  |MA" . . 1,"Corru|
000025d0  70 74 20 64 61 74 61 20  66 69 6c 65 20 28 33 29  |pt data file (3)|
000025e0  22 0d 0e 9c 14 e3 20 49  25 3d 30 20 b8 20 6d 61  |"..... I%=0 . ma|
000025f0  78 63 6f 6c 73 0d 0e a6  17 e8 23 69 66 69 6c 65  |xcols.....#ifile|
00002600  2c 63 6f 6c 75 6d 6e 73  28 49 25 29 0d 0e b0 1b  |,columns(I%)....|
00002610  e8 23 69 66 69 6c 65 2c  63 6f 6c 75 6d 6e 73 74  |.#ifile,columnst|
00002620  79 6c 65 28 49 25 29 0d  0e ba 05 ed 0d 0e c4 12  |yle(I%).........|
00002630  e8 23 69 66 69 6c 65 2c  63 68 65 63 6b 24 0d 0e  |.#ifile,check$..|
00002640  ce 38 e7 20 63 68 65 63  6b 24 3c 3e 22 6e 6f 64  |.8. check$<>"nod|
00002650  64 65 67 61 6d 72 41 22  20 8c 20 85 20 31 2c 22  |degamrA" . . 1,"|
00002660  43 6f 72 72 75 70 74 20  64 61 74 61 20 66 69 6c  |Corrupt data fil|
00002670  65 20 28 34 29 22 0d 0e  d8 14 e3 20 49 25 3d 30  |e (4)"..... I%=0|
00002680  20 b8 20 6d 61 78 72 6f  77 73 0d 0e e2 14 e3 20  | . maxrows..... |
00002690  4a 25 3d 30 20 b8 20 6d  61 78 63 6f 6c 73 0d 0e  |J%=0 . maxcols..|
000026a0  ec 1b e8 23 69 66 69 6c  65 2c 63 6f 6e 74 65 6e  |...#ifile,conten|
000026b0  74 24 28 49 25 2c 4a 25  29 0d 0e f6 20 e8 23 69  |t$(I%,J%)... .#i|
000026c0  66 69 6c 65 2c 6a 75 73  74 69 66 69 63 61 74 69  |file,justificati|
000026d0  6f 6e 28 49 25 2c 4a 25  29 0d 0f 00 05 ed 0d 0f  |on(I%,J%).......|
000026e0  0a 05 ed 0d 0f 14 12 e8  23 69 66 69 6c 65 2c 63  |........#ifile,c|
000026f0  68 65 63 6b 24 0d 0f 1e  36 e7 20 63 68 65 63 6b  |heck$...6. check|
00002700  24 3c 3e 22 64 65 68 73  69 6e 69 46 22 20 8c 20  |$<>"dehsiniF" . |
00002710  85 20 31 2c 22 43 6f 72  72 75 70 74 20 64 61 74  |. 1,"Corrupt dat|
00002720  61 20 66 69 6c 65 20 28  35 29 22 0d 0f 28 0b d9  |a file (5)"..(..|
00002730  23 69 66 69 6c 65 0d 0f  32 11 24 73 74 65 78 74  |#ifile..2.$stext|
00002740  32 3d 6c 6f 61 64 24 0d  0f 3c 0b f2 72 65 63 61  |2=load$..<..reca|
00002750  6c 63 0d 0f 46 33 c8 99  20 22 57 69 6d 70 5f 46  |lc..F3.. "Wimp_F|
00002760  6f 72 63 65 52 65 64 72  61 77 22 2c 74 61 62 6c  |orceRedraw",tabl|
00002770  65 25 2c 30 2c 2d 31 30  30 30 30 30 2c 31 30 30  |e%,0,-100000,100|
00002780  30 30 30 2c 30 0d 0f 50  15 63 6f 6c 70 6f 73 3d  |000,0..P.colpos=|
00002790  30 3a 72 6f 77 70 6f 73  3d 30 0d 0f 5a 18 f2 73  |0:rowpos=0..Z..s|
000027a0  65 74 75 70 63 6f 6c 75  6d 6e 28 63 6f 6c 70 6f  |etupcolumn(colpo|
000027b0  73 29 0d 0f 64 15 f2 73  65 74 75 70 72 6f 77 28  |s)..d..setuprow(|
000027c0  72 6f 77 70 6f 73 29 0d  0f 6e 1c f2 73 65 74 75  |rowpos)..n..setu|
000027d0  70 63 6f 6e 74 65 6e 74  28 78 70 6f 73 2c 79 70  |pcontent(xpos,yp|
000027e0  6f 73 29 0d 0f 78 07 f7  20 85 0d 0f 82 05 e1 0d  |os)..x.. .......|
000027f0  0f 8c 0b dd f2 63 68 65  63 6b 0d 0f 96 28 e7 20  |.....check...(. |
00002800  24 a4 74 61 64 28 69 6e  66 6f 25 2c 39 29 3c 3e  |$.tad(info%,9)<>|
00002810  22 a9 20 41 4d 46 73 6f  66 74 20 31 39 39 31 22  |". AMFsoft 1991"|
00002820  20 8c 0d 0f a0 1a f2 6d  6f 61 6e 28 22 50 61 78  | ......moan("Pax|
00002830  20 56 6f 62 69 73 63 75  6d 2e 22 29 0d 0f aa 05  | Vobiscum.")....|
00002840  e0 0d 0f b4 05 cd 0d 0f  be 05 e1 0d 0f c8 18 dd  |................|
00002850  f2 73 65 74 75 70 72 6f  77 28 70 6f 73 69 74 69  |.setuprow(positi|
00002860  6f 6e 29 0d 0f d2 1e 24  a4 74 61 64 28 72 6f 77  |on)....$.tad(row|
00002870  73 25 2c 33 29 3d c3 28  70 6f 73 69 74 69 6f 6e  |s%,3)=.(position|
00002880  29 0d 0f dc 25 24 a4 74  61 64 28 72 6f 77 73 25  |)...%$.tad(rows%|
00002890  2c 31 32 29 3d c3 28 72  6f 77 73 28 70 6f 73 69  |,12)=.(rows(posi|
000028a0  74 69 6f 6e 29 29 0d 0f  e6 17 f2 61 6c 74 65 72  |tion)).....alter|
000028b0  28 72 6f 77 73 25 2c 33  2c 30 2c 30 29 0d 0f f0  |(rows%,3,0,0)...|
000028c0  18 f2 61 6c 74 65 72 28  72 6f 77 73 25 2c 31 32  |..alter(rows%,12|
000028d0  2c 30 2c 30 29 0d 0f fa  6b e7 20 72 6f 77 73 74  |,0,0)...k. rowst|
000028e0  79 6c 65 28 70 6f 73 69  74 69 6f 6e 29 3d 30 20  |yle(position)=0 |
000028f0  8c 20 f2 61 6c 74 65 72  28 72 6f 77 73 25 2c 31  |. .alter(rows%,1|
00002900  35 2c 31 3c 3c 32 31 2c  31 3c 3c 32 31 29 3a f2  |5,1<<21,1<<21):.|
00002910  61 6c 74 65 72 28 72 6f  77 73 25 2c 31 34 2c 30  |alter(rows%,14,0|
00002920  2c 31 3c 3c 32 31 29 3a  f2 61 6c 74 65 72 28 72  |,1<<21):.alter(r|
00002930  6f 77 73 25 2c 31 36 2c  30 2c 31 3c 3c 32 31 29  |ows%,16,0,1<<21)|
00002940  0d 10 04 6b e7 20 72 6f  77 73 74 79 6c 65 28 70  |...k. rowstyle(p|
00002950  6f 73 69 74 69 6f 6e 29  3d 31 20 8c 20 f2 61 6c  |osition)=1 . .al|
00002960  74 65 72 28 72 6f 77 73  25 2c 31 35 2c 30 2c 31  |ter(rows%,15,0,1|
00002970  3c 3c 32 31 29 3a f2 61  6c 74 65 72 28 72 6f 77  |<<21):.alter(row|
00002980  73 25 2c 31 34 2c 31 3c  3c 32 31 2c 31 3c 3c 32  |s%,14,1<<21,1<<2|
00002990  31 29 3a f2 61 6c 74 65  72 28 72 6f 77 73 25 2c  |1):.alter(rows%,|
000029a0  31 36 2c 30 2c 31 3c 3c  32 31 29 0d 10 0e 6b e7  |16,0,1<<21)...k.|
000029b0  20 72 6f 77 73 74 79 6c  65 28 70 6f 73 69 74 69  | rowstyle(positi|
000029c0  6f 6e 29 3d 32 20 8c 20  f2 61 6c 74 65 72 28 72  |on)=2 . .alter(r|
000029d0  6f 77 73 25 2c 31 35 2c  30 2c 31 3c 3c 32 31 29  |ows%,15,0,1<<21)|
000029e0  3a f2 61 6c 74 65 72 28  72 6f 77 73 25 2c 31 34  |:.alter(rows%,14|
000029f0  2c 30 2c 31 3c 3c 32 31  29 3a f2 61 6c 74 65 72  |,0,1<<21):.alter|
00002a00  28 72 6f 77 73 25 2c 31  36 2c 31 3c 3c 32 31 2c  |(rows%,16,1<<21,|
00002a10  31 3c 3c 32 31 29 0d 10  18 0b f2 72 65 63 61 6c  |1<<21).....recal|
00002a20  63 0d 10 22 33 c8 99 20  22 57 69 6d 70 5f 46 6f  |c.."3.. "Wimp_Fo|
00002a30  72 63 65 52 65 64 72 61  77 22 2c 74 61 62 6c 65  |rceRedraw",table|
00002a40  25 2c 30 2c 2d 31 30 30  30 30 30 2c 31 30 30 30  |%,0,-100000,1000|
00002a50  30 30 2c 30 0d 10 2c 05  e1 0d 10 36 1b dd f2 73  |00,0..,....6...s|
00002a60  65 74 75 70 63 6f 6c 75  6d 6e 28 70 6f 73 69 74  |etupcolumn(posit|
00002a70  69 6f 6e 29 0d 10 40 21  24 a4 74 61 64 28 63 6f  |ion)..@!$.tad(co|
00002a80  6c 75 6d 6e 73 25 2c 33  29 3d c3 28 70 6f 73 69  |lumns%,3)=.(posi|
00002a90  74 69 6f 6e 29 0d 10 4a  2b 24 a4 74 61 64 28 63  |tion)..J+$.tad(c|
00002aa0  6f 6c 75 6d 6e 73 25 2c  31 32 29 3d c3 28 63 6f  |olumns%,12)=.(co|
00002ab0  6c 75 6d 6e 73 28 70 6f  73 69 74 69 6f 6e 29 29  |lumns(position))|
00002ac0  0d 10 54 1a f2 61 6c 74  65 72 28 63 6f 6c 75 6d  |..T..alter(colum|
00002ad0  6e 73 25 2c 33 2c 30 2c  30 29 0d 10 5e 1b f2 61  |ns%,3,0,0)..^..a|
00002ae0  6c 74 65 72 28 63 6f 6c  75 6d 6e 73 25 2c 31 32  |lter(columns%,12|
00002af0  2c 30 2c 30 29 0d 10 68  77 e7 20 63 6f 6c 75 6d  |,0,0)..hw. colum|
00002b00  6e 73 74 79 6c 65 28 70  6f 73 69 74 69 6f 6e 29  |nstyle(position)|
00002b10  3d 30 20 8c 20 f2 61 6c  74 65 72 28 63 6f 6c 75  |=0 . .alter(colu|
00002b20  6d 6e 73 25 2c 31 35 2c  31 3c 3c 32 31 2c 31 3c  |mns%,15,1<<21,1<|
00002b30  3c 32 31 29 3a f2 61 6c  74 65 72 28 63 6f 6c 75  |<21):.alter(colu|
00002b40  6d 6e 73 25 2c 31 34 2c  30 2c 31 3c 3c 32 31 29  |mns%,14,0,1<<21)|
00002b50  3a f2 61 6c 74 65 72 28  63 6f 6c 75 6d 6e 73 25  |:.alter(columns%|
00002b60  2c 31 36 2c 30 2c 31 3c  3c 32 31 29 0d 10 72 77  |,16,0,1<<21)..rw|
00002b70  e7 20 63 6f 6c 75 6d 6e  73 74 79 6c 65 28 70 6f  |. columnstyle(po|
00002b80  73 69 74 69 6f 6e 29 3d  31 20 8c 20 f2 61 6c 74  |sition)=1 . .alt|
00002b90  65 72 28 63 6f 6c 75 6d  6e 73 25 2c 31 35 2c 30  |er(columns%,15,0|
00002ba0  2c 31 3c 3c 32 31 29 3a  f2 61 6c 74 65 72 28 63  |,1<<21):.alter(c|
00002bb0  6f 6c 75 6d 6e 73 25 2c  31 34 2c 31 3c 3c 32 31  |olumns%,14,1<<21|
00002bc0  2c 31 3c 3c 32 31 29 3a  f2 61 6c 74 65 72 28 63  |,1<<21):.alter(c|
00002bd0  6f 6c 75 6d 6e 73 25 2c  31 36 2c 30 2c 31 3c 3c  |olumns%,16,0,1<<|
00002be0  32 31 29 0d 10 7c 77 e7  20 63 6f 6c 75 6d 6e 73  |21)..|w. columns|
00002bf0  74 79 6c 65 28 70 6f 73  69 74 69 6f 6e 29 3d 32  |tyle(position)=2|
00002c00  20 8c 20 f2 61 6c 74 65  72 28 63 6f 6c 75 6d 6e  | . .alter(column|
00002c10  73 25 2c 31 35 2c 30 2c  31 3c 3c 32 31 29 3a f2  |s%,15,0,1<<21):.|
00002c20  61 6c 74 65 72 28 63 6f  6c 75 6d 6e 73 25 2c 31  |alter(columns%,1|
00002c30  34 2c 30 2c 31 3c 3c 32  31 29 3a f2 61 6c 74 65  |4,0,1<<21):.alte|
00002c40  72 28 63 6f 6c 75 6d 6e  73 25 2c 31 36 2c 31 3c  |r(columns%,16,1<|
00002c50  3c 32 31 2c 31 3c 3c 32  31 29 0d 10 86 0b f2 72  |<21,1<<21).....r|
00002c60  65 63 61 6c 63 0d 10 90  33 c8 99 20 22 57 69 6d  |ecalc...3.. "Wim|
00002c70  70 5f 46 6f 72 63 65 52  65 64 72 61 77 22 2c 74  |p_ForceRedraw",t|
00002c80  61 62 6c 65 25 2c 30 2c  2d 31 30 30 30 30 30 2c  |able%,0,-100000,|
00002c90  31 30 30 30 30 30 2c 30  0d 10 9a 05 e1 0d 10 a4  |100000,0........|
00002ca0  17 dd f2 73 65 74 75 70  63 6f 6e 74 65 6e 74 28  |...setupcontent(|
00002cb0  78 2c 79 29 0d 10 ae 17  24 a4 74 61 64 28 65 64  |x,y)....$.tad(ed|
00002cc0  69 74 25 2c 31 29 3d c3  28 78 29 0d 10 b8 17 24  |it%,1)=.(x)....$|
00002cd0  a4 74 61 64 28 65 64 69  74 25 2c 33 29 3d c3 28  |.tad(edit%,3)=.(|
00002ce0  79 29 0d 10 c2 21 24 a4  74 61 64 28 65 64 69 74  |y)...!$.tad(edit|
00002cf0  25 2c 31 38 29 3d 63 6f  6e 74 65 6e 74 24 28 78  |%,18)=content$(x|
00002d00  2c 79 29 0d 10 cc 17 f2  61 6c 74 65 72 28 65 64  |,y).....alter(ed|
00002d10  69 74 25 2c 31 2c 30 2c  30 29 0d 10 d6 17 f2 61  |it%,1,0,0).....a|
00002d20  6c 74 65 72 28 65 64 69  74 25 2c 33 2c 30 2c 30  |lter(edit%,3,0,0|
00002d30  29 0d 10 e0 18 f2 61 6c  74 65 72 28 65 64 69 74  |).....alter(edit|
00002d40  25 2c 31 38 2c 30 2c 30  29 0d 10 ea 6b e7 20 6a  |%,18,0,0)...k. j|
00002d50  75 73 74 69 66 69 63 61  74 69 6f 6e 28 78 2c 79  |ustification(x,y|
00002d60  29 3d 30 20 8c 20 f2 61  6c 74 65 72 28 65 64 69  |)=0 . .alter(edi|
00002d70  74 25 2c 31 39 2c 31 3c  3c 32 31 2c 31 3c 3c 32  |t%,19,1<<21,1<<2|
00002d80  31 29 3a f2 61 6c 74 65  72 28 65 64 69 74 25 2c  |1):.alter(edit%,|
00002d90  32 30 2c 30 2c 31 3c 3c  32 31 29 3a f2 61 6c 74  |20,0,1<<21):.alt|
00002da0  65 72 28 65 64 69 74 25  2c 32 31 2c 30 2c 31 3c  |er(edit%,21,0,1<|
00002db0  3c 32 31 29 0d 10 f4 6b  e7 20 6a 75 73 74 69 66  |<21)...k. justif|
00002dc0  69 63 61 74 69 6f 6e 28  78 2c 79 29 3d 31 20 8c  |ication(x,y)=1 .|
00002dd0  20 f2 61 6c 74 65 72 28  65 64 69 74 25 2c 31 39  | .alter(edit%,19|
00002de0  2c 30 2c 31 3c 3c 32 31  29 3a f2 61 6c 74 65 72  |,0,1<<21):.alter|
00002df0  28 65 64 69 74 25 2c 32  30 2c 31 3c 3c 32 31 2c  |(edit%,20,1<<21,|
00002e00  31 3c 3c 32 31 29 3a f2  61 6c 74 65 72 28 65 64  |1<<21):.alter(ed|
00002e10  69 74 25 2c 32 31 2c 30  2c 31 3c 3c 32 31 29 0d  |it%,21,0,1<<21).|
00002e20  10 fe 6b e7 20 6a 75 73  74 69 66 69 63 61 74 69  |..k. justificati|
00002e30  6f 6e 28 78 2c 79 29 3d  32 20 8c 20 f2 61 6c 74  |on(x,y)=2 . .alt|
00002e40  65 72 28 65 64 69 74 25  2c 31 39 2c 30 2c 31 3c  |er(edit%,19,0,1<|
00002e50  3c 32 31 29 3a f2 61 6c  74 65 72 28 65 64 69 74  |<21):.alter(edit|
00002e60  25 2c 32 30 2c 30 2c 31  3c 3c 32 31 29 3a f2 61  |%,20,0,1<<21):.a|
00002e70  6c 74 65 72 28 65 64 69  74 25 2c 32 31 2c 31 3c  |lter(edit%,21,1<|
00002e80  3c 32 31 2c 31 3c 3c 32  31 29 0d 11 08 33 c8 99  |<21,1<<21)...3..|
00002e90  20 22 57 69 6d 70 5f 46  6f 72 63 65 52 65 64 72  | "Wimp_ForceRedr|
00002ea0  61 77 22 2c 74 61 62 6c  65 25 2c 30 2c 2d 31 30  |aw",table%,0,-10|
00002eb0  30 30 30 30 2c 31 30 30  30 30 30 2c 30 0d 11 12  |0000,100000,0...|
00002ec0  05 e1 0d 11 1c 10 dd f2  62 75 74 74 6f 6e 72 6f  |........buttonro|
00002ed0  77 73 0d 11 26 0e e7 20  69 63 6f 6e 3d 37 20 8c  |ws..&.. icon=7 .|
00002ee0  0d 11 30 23 72 6f 77 73  28 72 6f 77 70 6f 73 29  |..0#rows(rowpos)|
00002ef0  3d bb 28 24 a4 74 61 64  28 72 6f 77 73 25 2c 31  |=.($.tad(rows%,1|
00002f00  32 29 29 0d 11 3a 29 72  6f 77 70 6f 73 2b 3d 31  |2))..:)rowpos+=1|
00002f10  3a e7 20 72 6f 77 70 6f  73 3d 6d 61 78 72 6f 77  |:. rowpos=maxrow|
00002f20  73 20 8c 20 72 6f 77 70  6f 73 3d 30 0d 11 44 15  |s . rowpos=0..D.|
00002f30  f2 73 65 74 75 70 72 6f  77 28 72 6f 77 70 6f 73  |.setuprow(rowpos|
00002f40  29 0d 11 4e 30 c8 99 20  22 57 69 6d 70 5f 53 65  |)..N0.. "Wimp_Se|
00002f50  74 43 61 72 65 74 50 6f  73 69 74 69 6f 6e 22 2c  |tCaretPosition",|
00002f60  72 6f 77 73 25 2c 31 32  2c 30 2c 30 2c 2d 31 2c  |rows%,12,0,0,-1,|
00002f70  30 0d 11 58 05 e1 0d 11  62 05 cd 0d 11 6c 0e e7  |0..X....b....l..|
00002f80  20 69 63 6f 6e 3d 38 20  8c 0d 11 76 23 72 6f 77  | icon=8 ...v#row|
00002f90  73 28 72 6f 77 70 6f 73  29 3d bb 28 24 a4 74 61  |s(rowpos)=.($.ta|
00002fa0  64 28 72 6f 77 73 25 2c  31 32 29 29 0d 11 80 2c  |d(rows%,12))...,|
00002fb0  72 6f 77 70 6f 73 2d 3d  31 3a e7 20 72 6f 77 70  |rowpos-=1:. rowp|
00002fc0  6f 73 3d 2d 31 20 8c 20  72 6f 77 70 6f 73 3d 6d  |os=-1 . rowpos=m|
00002fd0  61 78 72 6f 77 73 2d 31  0d 11 8a 15 f2 73 65 74  |axrows-1.....set|
00002fe0  75 70 72 6f 77 28 72 6f  77 70 6f 73 29 0d 11 94  |uprow(rowpos)...|
00002ff0  30 c8 99 20 22 57 69 6d  70 5f 53 65 74 43 61 72  |0.. "Wimp_SetCar|
00003000  65 74 50 6f 73 69 74 69  6f 6e 22 2c 72 6f 77 73  |etPosition",rows|
00003010  25 2c 31 32 2c 30 2c 30  2c 2d 31 2c 30 0d 11 9e  |%,12,0,0,-1,0...|
00003020  05 e1 0d 11 a8 05 cd 0d  11 b2 5a e7 20 69 63 6f  |..........Z. ico|
00003030  6e 3d 31 35 20 8c 20 72  6f 77 73 74 79 6c 65 28  |n=15 . rowstyle(|
00003040  72 6f 77 70 6f 73 29 3d  30 3a c8 99 20 22 57 69  |rowpos)=0:.. "Wi|
00003050  6d 70 5f 46 6f 72 63 65  52 65 64 72 61 77 22 2c  |mp_ForceRedraw",|
00003060  74 61 62 6c 65 25 2c 30  2c 2d 31 30 30 30 30 30  |table%,0,-100000|
00003070  2c 31 30 30 30 30 30 2c  30 3a f2 72 65 63 61 6c  |,100000,0:.recal|
00003080  63 0d 11 bc 5a e7 20 69  63 6f 6e 3d 31 34 20 8c  |c...Z. icon=14 .|
00003090  20 72 6f 77 73 74 79 6c  65 28 72 6f 77 70 6f 73  | rowstyle(rowpos|
000030a0  29 3d 31 3a c8 99 20 22  57 69 6d 70 5f 46 6f 72  |)=1:.. "Wimp_For|
000030b0  63 65 52 65 64 72 61 77  22 2c 74 61 62 6c 65 25  |ceRedraw",table%|
000030c0  2c 30 2c 2d 31 30 30 30  30 30 2c 31 30 30 30 30  |,0,-100000,10000|
000030d0  30 2c 30 3a f2 72 65 63  61 6c 63 0d 11 c6 5a e7  |0,0:.recalc...Z.|
000030e0  20 69 63 6f 6e 3d 31 36  20 8c 20 72 6f 77 73 74  | icon=16 . rowst|
000030f0  79 6c 65 28 72 6f 77 70  6f 73 29 3d 32 3a c8 99  |yle(rowpos)=2:..|
00003100  20 22 57 69 6d 70 5f 46  6f 72 63 65 52 65 64 72  | "Wimp_ForceRedr|
00003110  61 77 22 2c 74 61 62 6c  65 25 2c 30 2c 2d 31 30  |aw",table%,0,-10|
00003120  30 30 30 30 2c 31 30 30  30 30 30 2c 30 3a f2 72  |0000,100000,0:.r|
00003130  65 63 61 6c 63 0d 11 d0  05 e1 0d 11 da 13 dd f2  |ecalc...........|
00003140  62 75 74 74 6f 6e 63 6f  6c 75 6d 6e 73 0d 11 e4  |buttoncolumns...|
00003150  0e e7 20 69 63 6f 6e 3d  37 20 8c 0d 11 ee 29 63  |.. icon=7 ....)c|
00003160  6f 6c 75 6d 6e 73 28 63  6f 6c 70 6f 73 29 3d bb  |olumns(colpos)=.|
00003170  28 24 a4 74 61 64 28 63  6f 6c 75 6d 6e 73 25 2c  |($.tad(columns%,|
00003180  31 32 29 29 0d 11 f8 29  63 6f 6c 70 6f 73 2b 3d  |12))...)colpos+=|
00003190  31 3a e7 20 63 6f 6c 70  6f 73 3d 6d 61 78 63 6f  |1:. colpos=maxco|
000031a0  6c 73 20 8c 20 63 6f 6c  70 6f 73 3d 30 0d 12 02  |ls . colpos=0...|
000031b0  18 f2 73 65 74 75 70 63  6f 6c 75 6d 6e 28 63 6f  |..setupcolumn(co|
000031c0  6c 70 6f 73 29 0d 12 0c  33 c8 99 20 22 57 69 6d  |lpos)...3.. "Wim|
000031d0  70 5f 53 65 74 43 61 72  65 74 50 6f 73 69 74 69  |p_SetCaretPositi|
000031e0  6f 6e 22 2c 63 6f 6c 75  6d 6e 73 25 2c 31 32 2c  |on",columns%,12,|
000031f0  30 2c 30 2c 2d 31 2c 30  0d 12 16 05 e1 0d 12 20  |0,0,-1,0....... |
00003200  05 cd 0d 12 2a 0e e7 20  69 63 6f 6e 3d 38 20 8c  |....*.. icon=8 .|
00003210  0d 12 34 29 63 6f 6c 75  6d 6e 73 28 63 6f 6c 70  |..4)columns(colp|
00003220  6f 73 29 3d bb 28 24 a4  74 61 64 28 63 6f 6c 75  |os)=.($.tad(colu|
00003230  6d 6e 73 25 2c 31 32 29  29 0d 12 3e 2c 63 6f 6c  |mns%,12))..>,col|
00003240  70 6f 73 2d 3d 31 3a e7  20 63 6f 6c 70 6f 73 3d  |pos-=1:. colpos=|
00003250  2d 31 20 8c 20 63 6f 6c  70 6f 73 3d 6d 61 78 63  |-1 . colpos=maxc|
00003260  6f 6c 73 2d 31 0d 12 48  18 f2 73 65 74 75 70 63  |ols-1..H..setupc|
00003270  6f 6c 75 6d 6e 28 63 6f  6c 70 6f 73 29 0d 12 52  |olumn(colpos)..R|
00003280  33 c8 99 20 22 57 69 6d  70 5f 53 65 74 43 61 72  |3.. "Wimp_SetCar|
00003290  65 74 50 6f 73 69 74 69  6f 6e 22 2c 63 6f 6c 75  |etPosition",colu|
000032a0  6d 6e 73 25 2c 31 32 2c  30 2c 30 2c 2d 31 2c 30  |mns%,12,0,0,-1,0|
000032b0  0d 12 5c 05 e1 0d 12 66  05 cd 0d 12 70 5d e7 20  |..\....f....p]. |
000032c0  69 63 6f 6e 3d 31 35 20  8c 20 63 6f 6c 75 6d 6e  |icon=15 . column|
000032d0  73 74 79 6c 65 28 63 6f  6c 70 6f 73 29 3d 30 3a  |style(colpos)=0:|
000032e0  c8 99 20 22 57 69 6d 70  5f 46 6f 72 63 65 52 65  |.. "Wimp_ForceRe|
000032f0  64 72 61 77 22 2c 74 61  62 6c 65 25 2c 30 2c 2d  |draw",table%,0,-|
00003300  31 30 30 30 30 30 2c 31  30 30 30 30 30 2c 30 3a  |100000,100000,0:|
00003310  f2 72 65 63 61 6c 63 0d  12 7a 5d e7 20 69 63 6f  |.recalc..z]. ico|
00003320  6e 3d 31 34 20 8c 20 63  6f 6c 75 6d 6e 73 74 79  |n=14 . columnsty|
00003330  6c 65 28 63 6f 6c 70 6f  73 29 3d 31 3a c8 99 20  |le(colpos)=1:.. |
00003340  22 57 69 6d 70 5f 46 6f  72 63 65 52 65 64 72 61  |"Wimp_ForceRedra|
00003350  77 22 2c 74 61 62 6c 65  25 2c 30 2c 2d 31 30 30  |w",table%,0,-100|
00003360  30 30 30 2c 31 30 30 30  30 30 2c 30 3a f2 72 65  |000,100000,0:.re|
00003370  63 61 6c 63 0d 12 84 5d  e7 20 69 63 6f 6e 3d 31  |calc...]. icon=1|
00003380  36 20 8c 20 63 6f 6c 75  6d 6e 73 74 79 6c 65 28  |6 . columnstyle(|
00003390  63 6f 6c 70 6f 73 29 3d  32 3a c8 99 20 22 57 69  |colpos)=2:.. "Wi|
000033a0  6d 70 5f 46 6f 72 63 65  52 65 64 72 61 77 22 2c  |mp_ForceRedraw",|
000033b0  74 61 62 6c 65 25 2c 30  2c 2d 31 30 30 30 30 30  |table%,0,-100000|
000033c0  2c 31 30 30 30 30 30 2c  30 3a f2 72 65 63 61 6c  |,100000,0:.recal|
000033d0  63 0d 12 8e 05 e1 0d 12  98 10 dd f2 62 75 74 74  |c...........butt|
000033e0  6f 6e 65 64 69 74 0d 12  a2 0f e7 20 69 63 6f 6e  |onedit..... icon|
000033f0  3d 31 32 20 8c 0d 12 ac  27 63 6f 6e 74 65 6e 74  |=12 ....'content|
00003400  24 28 78 70 6f 73 2c 79  70 6f 73 29 3d 24 a4 74  |$(xpos,ypos)=$.t|
00003410  61 64 28 65 64 69 74 25  2c 31 38 29 0d 12 b6 25  |ad(edit%,18)...%|
00003420  79 70 6f 73 2d 3d 31 3a  e7 20 79 70 6f 73 3d 2d  |ypos-=1:. ypos=-|
00003430  31 20 8c 20 79 70 6f 73  3d 63 63 6f 6c 75 6d 6e  |1 . ypos=ccolumn|
00003440  73 0d 12 c0 1c f2 73 65  74 75 70 63 6f 6e 74 65  |s.....setupconte|
00003450  6e 74 28 78 70 6f 73 2c  79 70 6f 73 29 0d 12 ca  |nt(xpos,ypos)...|
00003460  30 c8 99 20 22 57 69 6d  70 5f 53 65 74 43 61 72  |0.. "Wimp_SetCar|
00003470  65 74 50 6f 73 69 74 69  6f 6e 22 2c 65 64 69 74  |etPosition",edit|
00003480  25 2c 31 38 2c 30 2c 30  2c 2d 31 2c 30 0d 12 d4  |%,18,0,0,-1,0...|
00003490  05 e1 0d 12 de 05 cd 0d  12 e8 0f e7 20 69 63 6f  |............ ico|
000034a0  6e 3d 31 34 20 8c 0d 12  f2 27 63 6f 6e 74 65 6e  |n=14 ....'conten|
000034b0  74 24 28 78 70 6f 73 2c  79 70 6f 73 29 3d 24 a4  |t$(xpos,ypos)=$.|
000034c0  74 61 64 28 65 64 69 74  25 2c 31 38 29 0d 12 fc  |tad(edit%,18)...|
000034d0  26 79 70 6f 73 2b 3d 31  3a e7 20 79 70 6f 73 3d  |&ypos+=1:. ypos=|
000034e0  63 63 6f 6c 75 6d 6e 73  2b 31 20 8c 20 79 70 6f  |ccolumns+1 . ypo|
000034f0  73 3d 30 0d 13 06 1c f2  73 65 74 75 70 63 6f 6e  |s=0.....setupcon|
00003500  74 65 6e 74 28 78 70 6f  73 2c 79 70 6f 73 29 0d  |tent(xpos,ypos).|
00003510  13 10 30 c8 99 20 22 57  69 6d 70 5f 53 65 74 43  |..0.. "Wimp_SetC|
00003520  61 72 65 74 50 6f 73 69  74 69 6f 6e 22 2c 65 64  |aretPosition",ed|
00003530  69 74 25 2c 31 38 2c 30  2c 30 2c 2d 31 2c 30 0d  |it%,18,0,0,-1,0.|
00003540  13 1a 05 e1 0d 13 24 05  cd 0d 13 2e 0f e7 20 69  |......$....... i|
00003550  63 6f 6e 3d 31 35 20 8c  0d 13 38 27 63 6f 6e 74  |con=15 ...8'cont|
00003560  65 6e 74 24 28 78 70 6f  73 2c 79 70 6f 73 29 3d  |ent$(xpos,ypos)=|
00003570  24 a4 74 61 64 28 65 64  69 74 25 2c 31 38 29 0d  |$.tad(edit%,18).|
00003580  13 42 22 78 70 6f 73 2d  3d 31 3a e7 20 78 70 6f  |.B"xpos-=1:. xpo|
00003590  73 3d 2d 31 20 8c 20 78  70 6f 73 3d 63 72 6f 77  |s=-1 . xpos=crow|
000035a0  73 0d 13 4c 1c f2 73 65  74 75 70 63 6f 6e 74 65  |s..L..setupconte|
000035b0  6e 74 28 78 70 6f 73 2c  79 70 6f 73 29 0d 13 56  |nt(xpos,ypos)..V|
000035c0  30 c8 99 20 22 57 69 6d  70 5f 53 65 74 43 61 72  |0.. "Wimp_SetCar|
000035d0  65 74 50 6f 73 69 74 69  6f 6e 22 2c 65 64 69 74  |etPosition",edit|
000035e0  25 2c 31 38 2c 30 2c 30  2c 2d 31 2c 30 0d 13 60  |%,18,0,0,-1,0..`|
000035f0  05 e1 0d 13 6a 05 cd 0d  13 74 0f e7 20 69 63 6f  |....j....t.. ico|
00003600  6e 3d 31 33 20 8c 0d 13  7e 27 63 6f 6e 74 65 6e  |n=13 ...~'conten|
00003610  74 24 28 78 70 6f 73 2c  79 70 6f 73 29 3d 24 a4  |t$(xpos,ypos)=$.|
00003620  74 61 64 28 65 64 69 74  25 2c 31 38 29 0d 13 88  |tad(edit%,18)...|
00003630  23 78 70 6f 73 2b 3d 31  3a e7 20 78 70 6f 73 3d  |#xpos+=1:. xpos=|
00003640  63 72 6f 77 73 2b 31 20  8c 20 78 70 6f 73 3d 30  |crows+1 . xpos=0|
00003650  0d 13 92 1c f2 73 65 74  75 70 63 6f 6e 74 65 6e  |.....setupconten|
00003660  74 28 78 70 6f 73 2c 79  70 6f 73 29 0d 13 9c 30  |t(xpos,ypos)...0|
00003670  c8 99 20 22 57 69 6d 70  5f 53 65 74 43 61 72 65  |.. "Wimp_SetCare|
00003680  74 50 6f 73 69 74 69 6f  6e 22 2c 65 64 69 74 25  |tPosition",edit%|
00003690  2c 31 38 2c 30 2c 30 2c  2d 31 2c 30 0d 13 a6 05  |,18,0,0,-1,0....|
000036a0  e1 0d 13 b0 05 cd 0d 13  ba 5a e7 20 69 63 6f 6e  |.........Z. icon|
000036b0  3d 31 39 20 8c 20 6a 75  73 74 69 66 69 63 61 74  |=19 . justificat|
000036c0  69 6f 6e 28 78 70 6f 73  2c 79 70 6f 73 29 3d 30  |ion(xpos,ypos)=0|
000036d0  3a c8 99 20 22 57 69 6d  70 5f 46 6f 72 63 65 52  |:.. "Wimp_ForceR|
000036e0  65 64 72 61 77 22 2c 74  61 62 6c 65 25 2c 30 2c  |edraw",table%,0,|
000036f0  2d 31 30 30 30 30 30 2c  31 30 30 30 30 30 2c 30  |-100000,100000,0|
00003700  0d 13 c4 5a e7 20 69 63  6f 6e 3d 32 30 20 8c 20  |...Z. icon=20 . |
00003710  6a 75 73 74 69 66 69 63  61 74 69 6f 6e 28 78 70  |justification(xp|
00003720  6f 73 2c 79 70 6f 73 29  3d 31 3a c8 99 20 22 57  |os,ypos)=1:.. "W|
00003730  69 6d 70 5f 46 6f 72 63  65 52 65 64 72 61 77 22  |imp_ForceRedraw"|
00003740  2c 74 61 62 6c 65 25 2c  30 2c 2d 31 30 30 30 30  |,table%,0,-10000|
00003750  30 2c 31 30 30 30 30 30  2c 30 0d 13 ce 5a e7 20  |0,100000,0...Z. |
00003760  69 63 6f 6e 3d 32 31 20  8c 20 6a 75 73 74 69 66  |icon=21 . justif|
00003770  69 63 61 74 69 6f 6e 28  78 70 6f 73 2c 79 70 6f  |ication(xpos,ypo|
00003780  73 29 3d 32 3a c8 99 20  22 57 69 6d 70 5f 46 6f  |s)=2:.. "Wimp_Fo|
00003790  72 63 65 52 65 64 72 61  77 22 2c 74 61 62 6c 65  |rceRedraw",table|
000037a0  25 2c 30 2c 2d 31 30 30  30 30 30 2c 31 30 30 30  |%,0,-100000,1000|
000037b0  30 30 2c 30 0d 13 d8 05  e1 0d 13 e2 0d dd f2 72  |00,0...........r|
000037c0  6f 77 73 6b 65 79 0d 13  ec 0f e7 20 69 63 6f 6e  |owskey..... icon|
000037d0  3d 31 32 20 8c 0d 13 f6  23 72 6f 77 73 28 72 6f  |=12 ....#rows(ro|
000037e0  77 70 6f 73 29 3d bb 28  24 a4 74 61 64 28 72 6f  |wpos)=.($.tad(ro|
000037f0  77 73 25 2c 31 32 29 29  0d 14 00 29 72 6f 77 70  |ws%,12))...)rowp|
00003800  6f 73 2b 3d 31 3a e7 20  72 6f 77 70 6f 73 3d 6d  |os+=1:. rowpos=m|
00003810  61 78 72 6f 77 73 20 8c  20 72 6f 77 70 6f 73 3d  |axrows . rowpos=|
00003820  30 0d 14 0a 15 f2 73 65  74 75 70 72 6f 77 28 72  |0.....setuprow(r|
00003830  6f 77 70 6f 73 29 0d 14  14 30 c8 99 20 22 57 69  |owpos)...0.. "Wi|
00003840  6d 70 5f 53 65 74 43 61  72 65 74 50 6f 73 69 74  |mp_SetCaretPosit|
00003850  69 6f 6e 22 2c 72 6f 77  73 25 2c 31 32 2c 30 2c  |ion",rows%,12,0,|
00003860  30 2c 2d 31 2c 30 0d 14  1e 05 e1 0d 14 28 05 cd  |0,-1,0.......(..|
00003870  0d 14 32 05 e1 0d 14 3c  10 dd f2 63 6f 6c 75 6d  |..2....<...colum|
00003880  6e 73 6b 65 79 0d 14 46  0f e7 20 69 63 6f 6e 3d  |nskey..F.. icon=|
00003890  31 32 20 8c 0d 14 50 29  63 6f 6c 75 6d 6e 73 28  |12 ...P)columns(|
000038a0  63 6f 6c 70 6f 73 29 3d  bb 28 24 a4 74 61 64 28  |colpos)=.($.tad(|
000038b0  63 6f 6c 75 6d 6e 73 25  2c 31 32 29 29 0d 14 5a  |columns%,12))..Z|
000038c0  29 63 6f 6c 70 6f 73 2b  3d 31 3a e7 20 63 6f 6c  |)colpos+=1:. col|
000038d0  70 6f 73 3d 6d 61 78 63  6f 6c 73 20 8c 20 63 6f  |pos=maxcols . co|
000038e0  6c 70 6f 73 3d 30 0d 14  64 18 f2 73 65 74 75 70  |lpos=0..d..setup|
000038f0  63 6f 6c 75 6d 6e 28 63  6f 6c 70 6f 73 29 0d 14  |column(colpos)..|
00003900  6e 33 c8 99 20 22 57 69  6d 70 5f 53 65 74 43 61  |n3.. "Wimp_SetCa|
00003910  72 65 74 50 6f 73 69 74  69 6f 6e 22 2c 63 6f 6c  |retPosition",col|
00003920  75 6d 6e 73 25 2c 31 32  2c 30 2c 30 2c 2d 31 2c  |umns%,12,0,0,-1,|
00003930  30 0d 14 78 05 e1 0d 14  82 05 cd 0d 14 8c 05 e1  |0..x............|
00003940  0d 14 96 0d dd f2 65 64  69 74 6b 65 79 0d 14 a0  |......editkey...|
00003950  0f e7 20 69 63 6f 6e 3d  31 38 20 8c 0d 14 aa 27  |.. icon=18 ....'|
00003960  63 6f 6e 74 65 6e 74 24  28 78 70 6f 73 2c 79 70  |content$(xpos,yp|
00003970  6f 73 29 3d 24 a4 74 61  64 28 65 64 69 74 25 2c  |os)=$.tad(edit%,|
00003980  31 38 29 0d 14 b4 0e e7  20 6b 65 79 3d 31 33 20  |18)..... key=13 |
00003990  8c 0d 14 be 31 e7 20 61  75 74 6f 6d 6f 76 65 3d  |....1. automove=|
000039a0  31 20 8c 20 78 70 6f 73  2d 3d 31 3a e7 20 78 70  |1 . xpos-=1:. xp|
000039b0  6f 73 3d 2d 31 20 8c 20  78 70 6f 73 3d 63 72 6f  |os=-1 . xpos=cro|
000039c0  77 73 0d 14 c8 32 e7 20  61 75 74 6f 6d 6f 76 65  |ws...2. automove|
000039d0  3d 32 20 8c 20 78 70 6f  73 2b 3d 31 3a e7 20 78  |=2 . xpos+=1:. x|
000039e0  70 6f 73 3d 63 72 6f 77  73 2b 31 20 8c 20 78 70  |pos=crows+1 . xp|
000039f0  6f 73 3d 30 0d 14 d2 34  e7 20 61 75 74 6f 6d 6f  |os=0...4. automo|
00003a00  76 65 3d 33 20 8c 20 79  70 6f 73 2d 3d 31 3a e7  |ve=3 . ypos-=1:.|
00003a10  20 79 70 6f 73 3d 2d 31  20 8c 20 79 70 6f 73 3d  | ypos=-1 . ypos=|
00003a20  63 63 6f 6c 75 6d 6e 73  0d 14 dc 35 e7 20 61 75  |ccolumns...5. au|
00003a30  74 6f 6d 6f 76 65 3d 34  20 8c 20 79 70 6f 73 2b  |tomove=4 . ypos+|
00003a40  3d 31 3a e7 20 79 70 6f  73 3d 63 63 6f 6c 75 6d  |=1:. ypos=ccolum|
00003a50  6e 73 2b 31 20 8c 20 79  70 6f 73 3d 30 0d 14 e6  |ns+1 . ypos=0...|
00003a60  05 cd 0d 14 f0 3a e7 20  6b 65 79 3d 26 31 38 43  |.....:. key=&18C|
00003a70  20 84 20 6b 65 79 3d 26  31 39 43 20 8c 20 78 70  | . key=&19C . xp|
00003a80  6f 73 2d 3d 31 3a e7 20  78 70 6f 73 3d 2d 31 20  |os-=1:. xpos=-1 |
00003a90  8c 20 78 70 6f 73 3d 63  72 6f 77 73 0d 14 fa 3b  |. xpos=crows...;|
00003aa0  e7 20 6b 65 79 3d 26 31  38 44 20 84 20 6b 65 79  |. key=&18D . key|
00003ab0  3d 26 31 39 44 20 8c 20  78 70 6f 73 2b 3d 31 3a  |=&19D . xpos+=1:|
00003ac0  e7 20 78 70 6f 73 3d 63  72 6f 77 73 2b 31 20 8c  |. xpos=crows+1 .|
00003ad0  20 78 70 6f 73 3d 30 0d  15 04 3e e7 20 6b 65 79  | xpos=0...>. key|
00003ae0  3d 26 31 38 45 20 84 20  6b 65 79 3d 26 31 39 45  |=&18E . key=&19E|
00003af0  20 8c 20 79 70 6f 73 2b  3d 31 3a e7 20 79 70 6f  | . ypos+=1:. ypo|
00003b00  73 3d 63 63 6f 6c 75 6d  6e 73 2b 31 20 8c 20 79  |s=ccolumns+1 . y|
00003b10  70 6f 73 3d 30 0d 15 0e  3d e7 20 6b 65 79 3d 26  |pos=0...=. key=&|
00003b20  31 38 46 20 84 20 6b 65  79 3d 26 31 39 46 20 8c  |18F . key=&19F .|
00003b30  20 79 70 6f 73 2d 3d 31  3a e7 20 79 70 6f 73 3d  | ypos-=1:. ypos=|
00003b40  2d 31 20 8c 20 79 70 6f  73 3d 63 63 6f 6c 75 6d  |-1 . ypos=ccolum|
00003b50  6e 73 0d 15 18 1c f2 73  65 74 75 70 63 6f 6e 74  |ns.....setupcont|
00003b60  65 6e 74 28 78 70 6f 73  2c 79 70 6f 73 29 0d 15  |ent(xpos,ypos)..|
00003b70  22 30 c8 99 20 22 57 69  6d 70 5f 53 65 74 43 61  |"0.. "Wimp_SetCa|
00003b80  72 65 74 50 6f 73 69 74  69 6f 6e 22 2c 65 64 69  |retPosition",edi|
00003b90  74 25 2c 31 38 2c 30 2c  30 2c 2d 31 2c 30 0d 15  |t%,18,0,0,-1,0..|
00003ba0  2c 05 cd 0d 15 36 05 e1  0d 15 40 0c dd f2 64 72  |,....6....@...dr|
00003bb0  61 77 77 31 0d 15 4a 17  62 78 3d 62 6c 6f 63 6b  |aww1..J.bx=block|
00003bc0  21 34 2d 62 6c 6f 63 6b  21 32 30 0d 15 54 1d 62  |!4-block!20..T.b|
00003bd0  79 3d 62 6c 6f 63 6b 21  31 36 2d 62 6c 6f 63 6b  |y=block!16-block|
00003be0  21 32 34 2d 31 32 38 30  0d 15 5e 0c c8 95 20 6d  |!24-1280..^... m|
00003bf0  6f 72 65 25 0d 15 68 0e  f2 74 61 62 6c 65 64 72  |ore%..h..tabledr|
00003c00  61 77 0d 15 72 29 c8 99  20 22 57 69 6d 70 5f 47  |aw..r).. "Wimp_G|
00003c10  65 74 52 65 63 74 61 6e  67 6c 65 22 2c 2c 62 6c  |etRectangle",,bl|
00003c20  6f 63 6b 20 b8 20 6d 6f  72 65 25 0d 15 7c 05 ce  |ock . more%..|..|
00003c30  0d 15 86 05 e1 0d 15 90  0c dd f2 72 65 63 61 6c  |...........recal|
00003c40  63 0d 15 9a 1a 6d 61 78  77 69 64 74 68 3d 30 3a  |c....maxwidth=0:|
00003c50  6d 61 78 68 65 69 67 68  74 3d 30 0d 15 a4 16 63  |maxheight=0....c|
00003c60  72 6f 77 73 3d 30 3a 63  63 6f 6c 75 6d 6e 73 3d  |rows=0:ccolumns=|
00003c70  30 0d 15 ae 2c e3 20 49  25 3d 30 20 b8 20 6d 61  |0...,. I%=0 . ma|
00003c80  78 63 6f 6c 73 3a 6d 61  78 77 69 64 74 68 2b 3d  |xcols:maxwidth+=|
00003c90  63 6f 6c 75 6d 6e 73 28  49 25 29 3a ed 0d 15 b8  |columns(I%):....|
00003ca0  2a e3 20 49 25 3d 30 20  b8 20 6d 61 78 72 6f 77  |*. I%=0 . maxrow|
00003cb0  73 3a 6d 61 78 68 65 69  67 68 74 2b 3d 72 6f 77  |s:maxheight+=row|
00003cc0  73 28 49 25 29 3a ed 0d  15 c2 37 e3 20 49 25 3d  |s(I%):....7. I%=|
00003cd0  30 20 b8 20 6d 61 78 63  6f 6c 73 3a e7 20 63 6f  |0 . maxcols:. co|
00003ce0  6c 75 6d 6e 73 74 79 6c  65 28 49 25 29 3c 3e 30  |lumnstyle(I%)<>0|
00003cf0  20 8c 20 63 63 6f 6c 75  6d 6e 73 3d 49 25 0d 15  | . ccolumns=I%..|
00003d00  cc 05 ed 0d 15 d6 31 e3  20 49 25 3d 30 20 b8 20  |......1. I%=0 . |
00003d10  6d 61 78 72 6f 77 73 3a  e7 20 72 6f 77 73 74 79  |maxrows:. rowsty|
00003d20  6c 65 28 49 25 29 3c 3e  30 20 8c 20 63 72 6f 77  |le(I%)<>0 . crow|
00003d30  73 3d 49 25 0d 15 e0 05  ed 0d 15 ea 05 e1 0d 15  |s=I%............|
00003d40  f4 0f dd f2 74 61 62 6c  65 64 72 61 77 0d 15 fe  |....tabledraw...|
00003d50  39 6d 69 6e 79 3d 62 6c  6f 63 6b 21 33 32 3a 6d  |9miny=block!32:m|
00003d60  61 78 79 3d 62 6c 6f 63  6b 21 34 30 3a 6d 69 6e  |axy=block!40:min|
00003d70  79 3d 6d 69 6e 79 2d 33  32 3a 6d 61 78 79 3d 6d  |y=miny-32:maxy=m|
00003d80  61 78 79 2b 33 32 0d 16  08 1f c8 99 20 22 57 69  |axy+32...... "Wi|
00003d90  6d 70 5f 53 65 74 43 6f  6c 6f 75 72 22 2c 31 32  |mp_SetColour",12|
00003da0  38 2b 30 3a da 0d 16 12  19 c8 99 20 22 57 69 6d  |8+0:....... "Wim|
00003db0  70 5f 53 65 74 43 6f 6c  6f 75 72 22 2c 37 0d 16  |p_SetColour",7..|
00003dc0  1c 22 e7 20 6d 61 78 68  65 69 67 68 74 3d 30 20  |.". maxheight=0 |
00003dd0  84 20 6d 61 78 77 69 64  74 68 3d 30 20 8c 20 e1  |. maxwidth=0 . .|
00003de0  0d 16 26 14 c8 91 20 62  78 2b 31 30 30 2c 62 79  |..&... bx+100,by|
00003df0  2b 31 30 30 0d 16 30 0e  61 64 64 77 69 64 74 68  |+100..0.addwidth|
00003e00  3d 30 0d 16 3a 15 e3 20  49 25 3d 30 20 b8 20 63  |=0..:.. I%=0 . c|
00003e10  63 6f 6c 75 6d 6e 73 0d  16 44 49 e7 20 63 6f 6c  |columns..DI. col|
00003e20  75 6d 6e 73 74 79 6c 65  28 49 25 29 3d 31 20 ec  |umnstyle(I%)=1 .|
00003e30  20 61 64 64 77 69 64 74  68 2c 31 30 32 34 3a df  | addwidth,1024:.|
00003e40  20 61 64 64 77 69 64 74  68 2c 31 30 32 34 2d 28  | addwidth,1024-(|
00003e50  6d 61 78 68 65 69 67 68  74 2a 73 63 61 6c 65 29  |maxheight*scale)|
00003e60  0d 16 4e 7f e7 20 63 6f  6c 75 6d 6e 73 74 79 6c  |..N.. columnstyl|
00003e70  65 28 49 25 29 3d 32 20  ec 20 61 64 64 77 69 64  |e(I%)=2 . addwid|
00003e80  74 68 2c 31 30 32 34 3a  df 20 61 64 64 77 69 64  |th,1024:. addwid|
00003e90  74 68 2c 31 30 32 34 2d  28 6d 61 78 68 65 69 67  |th,1024-(maxheig|
00003ea0  68 74 2a 73 63 61 6c 65  29 3a ec 20 61 64 64 77  |ht*scale):. addw|
00003eb0  69 64 74 68 2b 32 2c 31  30 32 34 3a df 20 61 64  |idth+2,1024:. ad|
00003ec0  64 77 69 64 74 68 2b 32  2c 31 30 32 34 2d 28 6d  |dwidth+2,1024-(m|
00003ed0  61 78 68 65 69 67 68 74  2a 73 63 61 6c 65 29 0d  |axheight*scale).|
00003ee0  16 58 1f 61 64 64 77 69  64 74 68 2b 3d 63 6f 6c  |.X.addwidth+=col|
00003ef0  75 6d 6e 73 28 49 25 29  2a 73 63 61 6c 65 0d 16  |umns(I%)*scale..|
00003f00  62 05 ed 0d 16 6c 12 61  64 64 68 65 69 67 68 74  |b....l.addheight|
00003f10  3d 31 30 32 34 0d 16 76  12 e3 20 49 25 3d 30 20  |=1024..v.. I%=0 |
00003f20  b8 20 63 72 6f 77 73 0d  16 80 3d e7 20 72 6f 77  |. crows...=. row|
00003f30  73 74 79 6c 65 28 49 25  29 3d 31 20 ec 20 30 2c  |style(I%)=1 . 0,|
00003f40  61 64 64 68 65 69 67 68  74 3a df 20 6d 61 78 77  |addheight:. maxw|
00003f50  69 64 74 68 2a 73 63 61  6c 65 2c 61 64 64 68 65  |idth*scale,addhe|
00003f60  69 67 68 74 0d 16 8a 6a  e7 20 72 6f 77 73 74 79  |ight...j. rowsty|
00003f70  6c 65 28 49 25 29 3d 32  20 ec 20 30 2c 61 64 64  |le(I%)=2 . 0,add|
00003f80  68 65 69 67 68 74 3a df  20 6d 61 78 77 69 64 74  |height:. maxwidt|
00003f90  68 2a 73 63 61 6c 65 2c  61 64 64 68 65 69 67 68  |h*scale,addheigh|
00003fa0  74 3a ec 20 30 2c 61 64  64 68 65 69 67 68 74 2b  |t:. 0,addheight+|
00003fb0  34 3a df 20 6d 61 78 77  69 64 74 68 2a 73 63 61  |4:. maxwidth*sca|
00003fc0  6c 65 2c 61 64 64 68 65  69 67 68 74 2b 34 0d 16  |le,addheight+4..|
00003fd0  94 1d 61 64 64 68 65 69  67 68 74 2d 3d 72 6f 77  |..addheight-=row|
00003fe0  73 28 49 25 29 2a 73 63  61 6c 65 0d 16 9e 05 ed  |s(I%)*scale.....|
00003ff0  0d 16 a8 06 ef 35 0d 16  b2 0e 61 64 64 77 69 64  |.....5....addwid|
00004000  74 68 3d 30 0d 16 bc 17  e3 20 49 25 3d 30 20 b8  |th=0..... I%=0 .|
00004010  20 63 63 6f 6c 75 6d 6e  73 2d 31 0d 16 c6 12 61  | ccolumns-1....a|
00004020  64 64 68 65 69 67 68 74  3d 31 30 32 34 0d 16 d0  |ddheight=1024...|
00004030  14 e3 20 4a 25 3d 30 20  b8 20 63 72 6f 77 73 2d  |.. J%=0 . crows-|
00004040  31 0d 16 da 19 e7 20 49  25 3d 78 70 6f 73 20 80  |1..... I%=xpos .|
00004050  20 4a 25 3d 79 70 6f 73  20 8c 0d 16 e4 17 78 3d  | J%=ypos .....x=|
00004060  63 6f 6c 75 6d 6e 73 28  49 25 29 2a 73 63 61 6c  |columns(I%)*scal|
00004070  65 0d 16 ee 14 79 3d 72  6f 77 73 28 4a 25 29 2a  |e....y=rows(J%)*|
00004080  73 63 61 6c 65 0d 16 f8  36 c8 99 20 22 57 69 6d  |scale...6.. "Wim|
00004090  70 5f 53 65 74 43 6f 6c  6f 75 72 22 2c 31 31 3a  |p_SetColour",11:|
000040a0  c8 93 20 61 64 64 77 69  64 74 68 2c 61 64 64 68  |.. addwidth,addh|
000040b0  65 69 67 68 74 2d 79 2c  78 2c 79 0d 17 02 05 cd  |eight-y,x,y.....|
000040c0  0d 17 0c 1b e7 20 63 6f  6e 74 65 6e 74 24 28 49  |..... content$(I|
000040d0  25 2c 4a 25 29 3c 3e 22  22 20 8c 0d 17 16 27 79  |%,J%)<>"" ....'y|
000040e0  3d 61 64 64 68 65 69 67  68 74 2d 72 6f 77 73 28  |=addheight-rows(|
000040f0  4a 25 29 2a 73 63 61 6c  65 2f 32 3a 79 3d 79 2b  |J%)*scale/2:y=y+|
00004100  31 36 0d 17 20 3d e7 20  6a 75 73 74 69 66 69 63  |16.. =. justific|
00004110  61 74 69 6f 6e 28 49 25  2c 4a 25 29 3d 30 20 ec  |ation(I%,J%)=0 .|
00004120  20 61 64 64 77 69 64 74  68 2b 34 2c 79 3a f1 20  | addwidth+4,y:. |
00004130  63 6f 6e 74 65 6e 74 24  28 49 25 2c 4a 25 29 0d  |content$(I%,J%).|
00004140  17 2a 66 e7 20 6a 75 73  74 69 66 69 63 61 74 69  |.*f. justificati|
00004150  6f 6e 28 49 25 2c 4a 25  29 3d 31 20 ec 20 61 64  |on(I%,J%)=1 . ad|
00004160  64 77 69 64 74 68 2b 28  63 6f 6c 75 6d 6e 73 28  |dwidth+(columns(|
00004170  49 25 29 2f 32 29 2a 73  63 61 6c 65 2d a9 28 63  |I%)/2)*scale-.(c|
00004180  6f 6e 74 65 6e 74 24 28  49 25 2c 4a 25 29 29 2a  |ontent$(I%,J%))*|
00004190  38 2c 79 3a f1 20 63 6f  6e 74 65 6e 74 24 28 49  |8,y:. content$(I|
000041a0  25 2c 4a 25 29 0d 17 34  65 e7 20 6a 75 73 74 69  |%,J%)..4e. justi|
000041b0  66 69 63 61 74 69 6f 6e  28 49 25 2c 4a 25 29 3d  |fication(I%,J%)=|
000041c0  32 20 ec 20 61 64 64 77  69 64 74 68 2b 63 6f 6c  |2 . addwidth+col|
000041d0  75 6d 6e 73 28 49 25 29  2a 73 63 61 6c 65 2d 34  |umns(I%)*scale-4|
000041e0  2d a9 28 63 6f 6e 74 65  6e 74 24 28 49 25 2c 4a  |-.(content$(I%,J|
000041f0  25 29 29 2a 31 36 2c 79  3a f1 20 63 6f 6e 74 65  |%))*16,y:. conte|
00004200  6e 74 24 28 49 25 2c 4a  25 29 0d 17 3e 05 cd 0d  |nt$(I%,J%)..>...|
00004210  17 48 2f e7 20 49 25 3d  78 70 6f 73 20 80 20 4a  |.H/. I%=xpos . J|
00004220  25 3d 79 70 6f 73 20 8c  20 c8 99 20 22 57 69 6d  |%=ypos . .. "Wim|
00004230  70 5f 53 65 74 43 6f 6c  6f 75 72 22 2c 37 0d 17  |p_SetColour",7..|
00004240  52 1d 61 64 64 68 65 69  67 68 74 2d 3d 72 6f 77  |R.addheight-=row|
00004250  73 28 4a 25 29 2a 73 63  61 6c 65 0d 17 5c 05 ed  |s(J%)*scale..\..|
00004260  0d 17 66 1f 61 64 64 77  69 64 74 68 2b 3d 63 6f  |..f.addwidth+=co|
00004270  6c 75 6d 6e 73 28 49 25  29 2a 73 63 61 6c 65 0d  |lumns(I%)*scale.|
00004280  17 70 05 ed 0d 17 7a 0a  c8 91 20 30 2c 30 0d 17  |.p....z... 0,0..|
00004290  84 05 e1 0d 17 8e 0e dd  f2 73 61 76 65 28 61 24  |.........save(a$|
000042a0  29 0d 17 98 5c e7 20 a7  61 24 2c 22 2e 22 29 3c  |)...\. .a$,".")<|
000042b0  31 20 80 20 a7 61 24 2c  22 3a 22 29 3c 31 20 8c  |1 . .a$,":")<1 .|
000042c0  20 f2 6d 6f 61 6e 28 22  54 6f 20 73 61 76 65 2c  | .moan("To save,|
000042d0  20 64 72 61 67 20 74 68  65 20 73 61 76 65 20 69  | drag the save i|
000042e0  63 6f 6e 20 74 6f 20 61  20 64 69 72 65 63 74 6f  |con to a directo|
000042f0  72 79 20 76 69 65 77 65  72 22 29 3a e1 0d 17 a2  |ry viewer"):....|
00004300  0c 73 61 76 65 24 3d 61  24 0d 17 ac 07 ea 20 85  |.save$=a$..... .|
00004310  0d 17 b6 36 ee 20 85 20  ea 20 f2 6d 6f 61 6e 28  |...6. . . .moan(|
00004320  22 43 6f 75 6c 64 6e 27  74 20 73 61 76 65 20 3a  |"Couldn't save :|
00004330  20 22 2b f6 24 2b 22 20  22 2b c3 28 9e 29 29 3a  | "+.$+" "+.(.)):|
00004340  e5 20 8d 64 72 57 0d 17  c0 13 f2 63 72 65 61 74  |. .drW.....creat|
00004350  65 64 72 61 77 66 69 6c  65 0d 17 ca 29 ff 28 22  |edrawfile...).("|
00004360  53 41 56 45 20 22 2b 73  61 76 65 24 2b 22 20 22  |SAVE "+save$+" "|
00004370  2b c3 7e 66 69 6c 65 2b  22 2b 22 2b c3 7e 70 74  |+.~file+"+"+.~pt|
00004380  72 29 0d 17 d4 1e ff 28  22 53 45 54 54 59 50 45  |r).....("SETTYPE|
00004390  20 22 2b 73 61 76 65 24  2b 22 20 41 46 46 22 29  | "+save$+" AFF")|
000043a0  0d 17 de 0a f2 63 6d 65  6e 75 0d 17 e8 10 24 73  |.....cmenu....$s|
000043b0  74 65 78 74 3d 73 61 76  65 24 0d 17 f2 07 f7 20  |text=save$..... |
000043c0  85 0d 17 fc 05 e1 0d 18  06 14 dd f2 63 72 65 61  |............crea|
000043d0  74 65 64 72 61 77 66 69  6c 65 0d 18 10 0b f2 72  |tedrawfile.....r|
000043e0  65 63 61 6c 63 0d 18 1a  0a 73 63 3d 32 35 36 0d  |ecalc....sc=256.|
000043f0  18 24 09 70 74 72 3d 30  0d 18 2e 11 66 69 6c 65  |.$.ptr=0....file|
00004400  3f 30 3d 97 28 22 44 22  29 0d 18 38 11 66 69 6c  |?0=.("D")..8.fil|
00004410  65 3f 31 3d 97 28 22 72  22 29 0d 18 42 11 66 69  |e?1=.("r")..B.fi|
00004420  6c 65 3f 32 3d 97 28 22  61 22 29 0d 18 4c 11 66  |le?2=.("a")..L.f|
00004430  69 6c 65 3f 33 3d 97 28  22 77 22 29 0d 18 56 0e  |ile?3=.("w")..V.|
00004440  66 69 6c 65 21 34 3d 32  30 31 0d 18 60 0c 66 69  |file!4=201..`.fi|
00004450  6c 65 21 38 3d 30 0d 18  6a 19 24 28 66 69 6c 65  |le!8=0..j.$(file|
00004460  2b 31 32 29 3d 22 41 6d  66 54 61 62 6c 65 22 0d  |+12)="AmfTable".|
00004470  18 74 0d 66 69 6c 65 21  32 34 3d 30 0d 18 7e 0d  |.t.file!24=0..~.|
00004480  66 69 6c 65 21 32 38 3d  30 0d 18 88 13 66 69 6c  |file!28=0....fil|
00004490  65 21 33 32 3d 31 32 38  30 2a 73 63 0d 18 92 13  |e!32=1280*sc....|
000044a0  66 69 6c 65 21 33 36 3d  31 32 38 30 2a 73 63 0d  |file!36=1280*sc.|
000044b0  18 9c 0a 70 74 72 3d 34  30 0d 18 a6 22 e7 20 6d  |...ptr=40...". m|
000044c0  61 78 68 65 69 67 68 74  3d 30 20 84 20 6d 61 78  |axheight=0 . max|
000044d0  77 69 64 74 68 3d 30 20  8c 20 e1 0d 18 b0 0e 61  |width=0 . .....a|
000044e0  64 64 77 69 64 74 68 3d  30 0d 18 ba 15 e3 20 49  |ddwidth=0..... I|
000044f0  25 3d 30 20 b8 20 63 63  6f 6c 75 6d 6e 73 0d 18  |%=0 . ccolumns..|
00004500  c4 72 e7 20 63 6f 6c 75  6d 6e 73 74 79 6c 65 28  |.r. columnstyle(|
00004510  49 25 29 3d 31 20 f2 61  64 64 6f 62 6a 65 63 74  |I%)=1 .addobject|
00004520  32 28 78 6f 66 66 2b 61  64 64 77 69 64 74 68 2c  |2(xoff+addwidth,|
00004530  79 6f 66 66 2b 31 30 32  34 2c 78 6f 66 66 2b 61  |yoff+1024,xoff+a|
00004540  64 64 77 69 64 74 68 2c  79 6f 66 66 2b 31 30 32  |ddwidth,yoff+102|
00004550  34 2d 28 6d 61 78 68 65  69 67 68 74 2a 73 63 61  |4-(maxheight*sca|
00004560  6c 65 29 2c 30 2c 26 46  46 46 46 46 46 46 46 29  |le),0,&FFFFFFFF)|
00004570  0d 18 ce d1 e7 20 63 6f  6c 75 6d 6e 73 74 79 6c  |..... columnstyl|
00004580  65 28 49 25 29 3d 32 20  f2 61 64 64 6f 62 6a 65  |e(I%)=2 .addobje|
00004590  63 74 32 28 78 6f 66 66  2b 61 64 64 77 69 64 74  |ct2(xoff+addwidt|
000045a0  68 2c 79 6f 66 66 2b 31  30 32 34 2c 78 6f 66 66  |h,yoff+1024,xoff|
000045b0  2b 61 64 64 77 69 64 74  68 2c 79 6f 66 66 2b 31  |+addwidth,yoff+1|
000045c0  30 32 34 2d 28 6d 61 78  68 65 69 67 68 74 2a 73  |024-(maxheight*s|
000045d0  63 61 6c 65 29 2c 30 2c  26 46 46 46 46 46 46 46  |cale),0,&FFFFFFF|
000045e0  46 29 3a f2 61 64 64 6f  62 6a 65 63 74 32 28 78  |F):.addobject2(x|
000045f0  6f 66 66 2b 61 64 64 77  69 64 74 68 2b 32 2c 79  |off+addwidth+2,y|
00004600  6f 66 66 2b 31 30 32 34  2c 78 6f 66 66 2b 61 64  |off+1024,xoff+ad|
00004610  64 77 69 64 74 68 2b 32  2c 79 6f 66 66 2b 31 30  |dwidth+2,yoff+10|
00004620  32 34 2d 28 6d 61 78 68  65 69 67 68 74 2a 73 63  |24-(maxheight*sc|
00004630  61 6c 65 29 2c 30 2c 26  46 46 46 46 46 46 46 46  |ale),0,&FFFFFFFF|
00004640  29 0d 18 d8 1f 61 64 64  77 69 64 74 68 2b 3d 63  |)....addwidth+=c|
00004650  6f 6c 75 6d 6e 73 28 49  25 29 2a 73 63 61 6c 65  |olumns(I%)*scale|
00004660  0d 18 e2 05 ed 0d 18 ec  12 61 64 64 68 65 69 67  |.........addheig|
00004670  68 74 3d 31 30 32 34 0d  18 f6 12 e3 20 49 25 3d  |ht=1024..... I%=|
00004680  30 20 b8 20 63 72 6f 77  73 0d 19 00 64 e7 20 72  |0 . crows...d. r|
00004690  6f 77 73 74 79 6c 65 28  49 25 29 3d 31 20 f2 61  |owstyle(I%)=1 .a|
000046a0  64 64 6f 62 6a 65 63 74  32 28 78 6f 66 66 2c 79  |ddobject2(xoff,y|
000046b0  6f 66 66 2b 61 64 64 68  65 69 67 68 74 2c 78 6f  |off+addheight,xo|
000046c0  66 66 2b 6d 61 78 77 69  64 74 68 2a 73 63 61 6c  |ff+maxwidth*scal|
000046d0  65 2c 79 6f 66 66 2b 61  64 64 68 65 69 67 68 74  |e,yoff+addheight|
000046e0  2c 30 2c 26 46 46 46 46  46 46 46 46 29 0d 19 0a  |,0,&FFFFFFFF)...|
000046f0  b8 e7 20 72 6f 77 73 74  79 6c 65 28 49 25 29 3d  |.. rowstyle(I%)=|
00004700  32 20 f2 61 64 64 6f 62  6a 65 63 74 32 28 78 6f  |2 .addobject2(xo|
00004710  66 66 2c 79 6f 66 66 2b  61 64 64 68 65 69 67 68  |ff,yoff+addheigh|
00004720  74 2c 78 6f 66 66 2b 6d  61 78 77 69 64 74 68 2a  |t,xoff+maxwidth*|
00004730  73 63 61 6c 65 2c 79 6f  66 66 2b 61 64 64 68 65  |scale,yoff+addhe|
00004740  69 67 68 74 2c 30 2c 26  46 46 46 46 46 46 46 46  |ight,0,&FFFFFFFF|
00004750  29 3a f2 61 64 64 6f 62  6a 65 63 74 32 28 78 6f  |):.addobject2(xo|
00004760  66 66 2c 79 6f 66 66 2b  61 64 64 68 65 69 67 68  |ff,yoff+addheigh|
00004770  74 2b 34 2c 78 6f 66 66  2b 6d 61 78 77 69 64 74  |t+4,xoff+maxwidt|
00004780  68 2a 73 63 61 6c 65 2c  79 6f 66 66 2b 61 64 64  |h*scale,yoff+add|
00004790  68 65 69 67 68 74 2b 34  2c 30 2c 26 46 46 46 46  |height+4,0,&FFFF|
000047a0  46 46 46 46 29 0d 19 14  1d 61 64 64 68 65 69 67  |FFFF)....addheig|
000047b0  68 74 2d 3d 72 6f 77 73  28 49 25 29 2a 73 63 61  |ht-=rows(I%)*sca|
000047c0  6c 65 0d 19 1e 05 ed 0d  19 28 0e 61 64 64 77 69  |le.......(.addwi|
000047d0  64 74 68 3d 30 0d 19 32  17 e3 20 49 25 3d 30 20  |dth=0..2.. I%=0 |
000047e0  b8 20 63 63 6f 6c 75 6d  6e 73 2d 31 0d 19 3c 12  |. ccolumns-1..<.|
000047f0  61 64 64 68 65 69 67 68  74 3d 31 30 32 34 0d 19  |addheight=1024..|
00004800  46 14 e3 20 4a 25 3d 30  20 b8 20 63 72 6f 77 73  |F.. J%=0 . crows|
00004810  2d 31 0d 19 50 1b e7 20  63 6f 6e 74 65 6e 74 24  |-1..P.. content$|
00004820  28 49 25 2c 4a 25 29 3c  3e 22 22 20 8c 0d 19 5a  |(I%,J%)<>"" ...Z|
00004830  27 79 3d 61 64 64 68 65  69 67 68 74 2d 72 6f 77  |'y=addheight-row|
00004840  73 28 4a 25 29 2a 73 63  61 6c 65 2f 32 3a 79 3d  |s(J%)*scale/2:y=|
00004850  79 2b 31 36 0d 19 64 29  e7 20 6a 75 73 74 69 66  |y+16..d). justif|
00004860  69 63 61 74 69 6f 6e 28  49 25 2c 4a 25 29 3d 30  |ication(I%,J%)=0|
00004870  20 78 3d 61 64 64 77 69  64 74 68 2b 34 0d 19 6e  | x=addwidth+4..n|
00004880  52 e7 20 6a 75 73 74 69  66 69 63 61 74 69 6f 6e  |R. justification|
00004890  28 49 25 2c 4a 25 29 3d  31 20 78 3d 61 64 64 77  |(I%,J%)=1 x=addw|
000048a0  69 64 74 68 2b 28 63 6f  6c 75 6d 6e 73 28 49 25  |idth+(columns(I%|
000048b0  29 2f 32 29 2a 73 63 61  6c 65 2d a9 28 63 6f 6e  |)/2)*scale-.(con|
000048c0  74 65 6e 74 24 28 49 25  2c 4a 25 29 29 2a 38 0d  |tent$(I%,J%))*8.|
000048d0  19 78 51 e7 20 6a 75 73  74 69 66 69 63 61 74 69  |.xQ. justificati|
000048e0  6f 6e 28 49 25 2c 4a 25  29 3d 32 20 78 3d 61 64  |on(I%,J%)=2 x=ad|
000048f0  64 77 69 64 74 68 2b 63  6f 6c 75 6d 6e 73 28 49  |dwidth+columns(I|
00004900  25 29 2a 73 63 61 6c 65  2d 34 2d a9 28 63 6f 6e  |%)*scale-4-.(con|
00004910  74 65 6e 74 24 28 49 25  2c 4a 25 29 29 2a 31 36  |tent$(I%,J%))*16|
00004920  0d 19 82 30 f2 61 64 64  74 65 78 74 28 63 6f 6e  |...0.addtext(con|
00004930  74 65 6e 74 24 28 49 25  2c 4a 25 29 2c 78 6f 66  |tent$(I%,J%),xof|
00004940  66 2b 78 2c 79 6f 66 66  2b 79 2d 33 32 2c 30 29  |f+x,yoff+y-32,0)|
00004950  0d 19 8c 05 cd 0d 19 96  1d 61 64 64 68 65 69 67  |.........addheig|
00004960  68 74 2d 3d 72 6f 77 73  28 4a 25 29 2a 73 63 61  |ht-=rows(J%)*sca|
00004970  6c 65 0d 19 a0 05 ed 0d  19 aa 1f 61 64 64 77 69  |le.........addwi|
00004980  64 74 68 2b 3d 63 6f 6c  75 6d 6e 73 28 49 25 29  |dth+=columns(I%)|
00004990  2a 73 63 61 6c 65 0d 19  b4 05 ed 0d 19 be 05 e1  |*scale..........|
000049a0  0d 19 c8 05 f4 0d 19 d2  23 f4 20 43 72 65 61 74  |........#. Creat|
000049b0  65 20 44 72 61 77 20 6f  62 6a 65 63 74 73 20 72  |e Draw objects r|
000049c0  6f 75 74 69 6e 65 73 2e  0d 19 dc 3a f4 20 28 68  |outines....:. (h|
000049d0  61 76 65 20 79 6f 75 20  65 76 65 72 20 74 72 69  |ave you ever tri|
000049e0  65 64 20 70 72 6f 67 72  61 6d 6d 69 6e 67 20 64  |ed programming d|
000049f0  72 61 77 20 66 69 6c 65  73 3f 20 44 6f 6e 27 74  |raw files? Don't|
00004a00  21 29 0d 19 e6 3d f4 20  46 6f 72 20 61 20 66 75  |!)...=. For a fu|
00004a10  6c 6c 20 73 65 74 2c 63  6f 6e 74 61 63 74 20 41  |ll set,contact A|
00004a20  4d 46 2c 6f 72 20 67 72  61 62 20 61 20 63 6f 70  |MF,or grab a cop|
00004a30  79 20 6f 66 20 21 41 4d  46 67 72 61 70 68 2e 0d  |y of !AMFgraph..|
00004a40  19 f0 05 f4 0d 19 fa 1d  dd f2 61 64 64 74 65 78  |..........addtex|
00004a50  74 28 74 65 78 74 24 2c  78 2c 79 2c 63 6f 6c 25  |t(text$,x,y,col%|
00004a60  29 0d 1a 04 25 e7 20 28  a9 28 74 65 78 74 24 29  |)...%. (.(text$)|
00004a70  20 83 20 34 29 3d 30 20  8c 20 74 65 78 74 24 2b  | . 4)=0 . text$+|
00004a80  3d 22 20 20 20 22 0d 1a  0e 24 e7 20 28 a9 28 74  |="   "...$. (.(t|
00004a90  65 78 74 24 29 20 83 20  34 29 3d 31 20 8c 20 74  |ext$) . 4)=1 . t|
00004aa0  65 78 74 24 2b 3d 22 20  20 22 0d 1a 18 23 e7 20  |ext$+="  "...#. |
00004ab0  28 a9 28 74 65 78 74 24  29 20 83 20 34 29 3d 32  |(.(text$) . 4)=2|
00004ac0  20 8c 20 74 65 78 74 24  2b 3d 22 20 22 0d 1a 22  | . text$+=" ".."|
00004ad0  0d 74 65 78 74 24 2b 3d  bd 30 0d 1a 2c 17 6c 65  |.text$+=.0..,.le|
00004ae0  6e 67 74 68 3d a9 28 74  65 78 74 24 29 20 81 20  |ngth=.(text$) . |
00004af0  34 0d 1a 36 17 6c 65 6e  67 74 68 3d 28 6c 65 6e  |4..6.length=(len|
00004b00  67 74 68 2b 31 29 2a 34  0d 1a 40 0a 78 3d 78 2a  |gth+1)*4..@.x=x*|
00004b10  73 63 0d 1a 4a 0a 79 3d  79 2a 73 63 0d 1a 54 15  |sc..J.y=y*sc..T.|
00004b20  66 69 6c 65 21 70 74 72  3d 31 3a 70 74 72 2b 3d  |file!ptr=1:ptr+=|
00004b30  34 0d 1a 5e 1d 66 69 6c  65 21 70 74 72 3d 34 38  |4..^.file!ptr=48|
00004b40  2b 6c 65 6e 67 74 68 3a  70 74 72 2b 3d 34 0d 1a  |+length:ptr+=4..|
00004b50  68 15 66 69 6c 65 21 70  74 72 3d 78 3a 70 74 72  |h.file!ptr=x:ptr|
00004b60  2b 3d 34 0d 1a 72 15 66  69 6c 65 21 70 74 72 3d  |+=4..r.file!ptr=|
00004b70  79 3a 70 74 72 2b 3d 34  0d 1a 7c 24 66 69 6c 65  |y:ptr+=4..|$file|
00004b80  21 70 74 72 3d 78 2b a9  28 74 65 78 74 24 29 2a  |!ptr=x+.(text$)*|
00004b90  34 30 2a 73 63 3a 70 74  72 2b 3d 34 0d 1a 86 1b  |40*sc:ptr+=4....|
00004ba0  66 69 6c 65 21 70 74 72  3d 79 2b 34 30 2a 73 63  |file!ptr=y+40*sc|
00004bb0  3a 70 74 72 2b 3d 34 0d  1a 90 05 3a 0d 1a 9a 18  |:ptr+=4....:....|
00004bc0  66 69 6c 65 21 70 74 72  3d 63 6f 6c 25 3a 70 74  |file!ptr=col%:pt|
00004bd0  72 2b 3d 34 0d 1a a4 1d  66 69 6c 65 21 70 74 72  |r+=4....file!ptr|
00004be0  3d 26 46 46 46 46 46 46  30 30 3a 70 74 72 2b 3d  |=&FFFFFF00:ptr+=|
00004bf0  34 0d 1a ae 15 66 69 6c  65 21 70 74 72 3d 30 3a  |4....file!ptr=0:|
00004c00  70 74 72 2b 3d 34 0d 1a  b8 19 66 69 6c 65 21 70  |ptr+=4....file!p|
00004c10  74 72 3d 31 36 2a 73 63  3a 70 74 72 2b 3d 34 0d  |tr=16*sc:ptr+=4.|
00004c20  1a c2 19 66 69 6c 65 21  70 74 72 3d 33 32 2a 73  |...file!ptr=32*s|
00004c30  63 3a 70 74 72 2b 3d 34  0d 1a cc 15 66 69 6c 65  |c:ptr+=4....file|
00004c40  21 70 74 72 3d 78 3a 70  74 72 2b 3d 34 0d 1a d6  |!ptr=x:ptr+=4...|
00004c50  15 66 69 6c 65 21 70 74  72 3d 79 3a 70 74 72 2b  |.file!ptr=y:ptr+|
00004c60  3d 34 0d 1a e0 23 24 28  66 69 6c 65 2b 70 74 72  |=4...#$(file+ptr|
00004c70  29 3d 74 65 78 74 24 3a  70 74 72 2b 3d a9 28 74  |)=text$:ptr+=.(t|
00004c80  65 78 74 24 29 0d 1a ea  1a e7 20 28 70 74 72 20  |ext$)..... (ptr |
00004c90  80 20 34 29 3d 33 20 8c  20 70 74 72 2b 3d 31 0d  |. 4)=3 . ptr+=1.|
00004ca0  1a f4 1a e7 20 28 70 74  72 20 80 20 34 29 3d 32  |.... (ptr . 4)=2|
00004cb0  20 8c 20 70 74 72 2b 3d  32 0d 1a fe 1a e7 20 28  | . ptr+=2..... (|
00004cc0  70 74 72 20 80 20 34 29  3d 31 20 8c 20 70 74 72  |ptr . 4)=1 . ptr|
00004cd0  2b 3d 33 0d 1b 08 05 e1  0d 1b 12 28 dd f2 61 64  |+=3........(..ad|
00004ce0  64 6f 62 6a 65 63 74 32  28 78 31 2c 79 31 2c 78  |dobject2(x1,y1,x|
00004cf0  32 2c 79 32 2c 63 6f 6c  25 2c 66 69 6c 6c 25 29  |2,y2,col%,fill%)|
00004d00  0d 1b 1c 27 78 31 3d 78  31 2a 73 63 3a 78 32 3d  |...'x1=x1*sc:x2=|
00004d10  78 32 2a 73 63 3a 79 31  3d 79 31 2a 73 63 3a 79  |x2*sc:y1=y1*sc:y|
00004d20  32 3d 79 32 2a 73 63 0d  1b 26 15 66 69 6c 65 21  |2=y2*sc..&.file!|
00004d30  70 74 72 3d 32 3a 70 74  72 2b 3d 34 0d 1b 30 16  |ptr=2:ptr+=4..0.|
00004d40  66 69 6c 65 21 70 74 72  3d 36 38 3a 70 74 72 2b  |file!ptr=68:ptr+|
00004d50  3d 34 0d 1b 3a 1f e7 20  78 32 3c 78 31 20 8c 20  |=4..:.. x2<x1 . |
00004d60  6d 69 6e 78 3d 78 32 20  8b 20 6d 69 6e 78 3d 78  |minx=x2 . minx=x|
00004d70  31 0d 1b 44 1f e7 20 79  32 3c 79 31 20 8c 20 6d  |1..D.. y2<y1 . m|
00004d80  69 6e 79 3d 79 32 20 8b  20 6d 69 6e 79 3d 79 31  |iny=y2 . miny=y1|
00004d90  0d 1b 4e 1f e7 20 78 31  3e 78 32 20 8c 20 6d 61  |..N.. x1>x2 . ma|
00004da0  78 78 3d 78 31 20 8b 20  6d 61 78 78 3d 78 32 0d  |xx=x1 . maxx=x2.|
00004db0  1b 58 1f e7 20 79 31 3e  79 32 20 8c 20 6d 61 78  |.X.. y1>y2 . max|
00004dc0  79 3d 79 31 20 8b 20 6d  61 78 79 3d 79 32 0d 1b  |y=y1 . maxy=y2..|
00004dd0  62 18 66 69 6c 65 21 70  74 72 3d 6d 69 6e 78 3a  |b.file!ptr=minx:|
00004de0  70 74 72 2b 3d 34 0d 1b  6c 18 66 69 6c 65 21 70  |ptr+=4..l.file!p|
00004df0  74 72 3d 6d 69 6e 79 3a  70 74 72 2b 3d 34 0d 1b  |tr=miny:ptr+=4..|
00004e00  76 18 66 69 6c 65 21 70  74 72 3d 6d 61 78 78 3a  |v.file!ptr=maxx:|
00004e10  70 74 72 2b 3d 34 0d 1b  80 18 66 69 6c 65 21 70  |ptr+=4....file!p|
00004e20  74 72 3d 6d 61 78 79 3a  70 74 72 2b 3d 34 0d 1b  |tr=maxy:ptr+=4..|
00004e30  8a 05 3a 0d 1b 94 19 66  69 6c 65 21 70 74 72 3d  |..:....file!ptr=|
00004e40  66 69 6c 6c 25 3a 70 74  72 2b 3d 34 0d 1b 9e 18  |fill%:ptr+=4....|
00004e50  66 69 6c 65 21 70 74 72  3d 63 6f 6c 25 3a 70 74  |file!ptr=col%:pt|
00004e60  72 2b 3d 34 0d 1b a8 15  66 69 6c 65 21 70 74 72  |r+=4....file!ptr|
00004e70  3d 30 3a 70 74 72 2b 3d  34 0d 1b b2 15 66 69 6c  |=0:ptr+=4....fil|
00004e80  65 21 70 74 72 3d 30 3a  70 74 72 2b 3d 34 0d 1b  |e!ptr=0:ptr+=4..|
00004e90  bc 05 3a 0d 1b c6 15 66  69 6c 65 21 70 74 72 3d  |..:....file!ptr=|
00004ea0  32 3a 70 74 72 2b 3d 34  0d 1b d0 16 66 69 6c 65  |2:ptr+=4....file|
00004eb0  21 70 74 72 3d 78 31 3a  70 74 72 2b 3d 34 0d 1b  |!ptr=x1:ptr+=4..|
00004ec0  da 16 66 69 6c 65 21 70  74 72 3d 79 31 3a 70 74  |..file!ptr=y1:pt|
00004ed0  72 2b 3d 34 0d 1b e4 15  66 69 6c 65 21 70 74 72  |r+=4....file!ptr|
00004ee0  3d 38 3a 70 74 72 2b 3d  34 0d 1b ee 16 66 69 6c  |=8:ptr+=4....fil|
00004ef0  65 21 70 74 72 3d 78 32  3a 70 74 72 2b 3d 34 0d  |e!ptr=x2:ptr+=4.|
00004f00  1b f8 16 66 69 6c 65 21  70 74 72 3d 79 32 3a 70  |...file!ptr=y2:p|
00004f10  74 72 2b 3d 34 0d 1c 02  15 66 69 6c 65 21 70 74  |tr+=4....file!pt|
00004f20  72 3d 30 3a 70 74 72 2b  3d 34 0d 1c 0c 05 e1 0d  |r=0:ptr+=4......|
00004f30  1c 16 12 dd f2 63 6c 65  61 72 63 6f 6c 75 6d 6e  |.....clearcolumn|
00004f40  73 0d 1c 20 1f 63 6f 6c  75 6d 6e 73 28 29 3d 30  |s.. .columns()=0|
00004f50  3a 63 6f 6c 75 6d 6e 73  74 79 6c 65 28 29 3d 30  |:columnstyle()=0|
00004f60  0d 1c 2a 21 63 6f 6c 70  6f 73 3d 30 3a f2 73 65  |..*!colpos=0:.se|
00004f70  74 75 70 63 6f 6c 75 6d  6e 28 63 6f 6c 70 6f 73  |tupcolumn(colpos|
00004f80  29 0d 1c 34 3b f2 72 65  63 61 6c 63 3a c8 99 20  |)..4;.recalc:.. |
00004f90  22 57 69 6d 70 5f 46 6f  72 63 65 52 65 64 72 61  |"Wimp_ForceRedra|
00004fa0  77 22 2c 74 61 62 6c 65  25 2c 30 2c 2d 31 30 30  |w",table%,0,-100|
00004fb0  30 30 30 2c 31 30 30 30  30 30 2c 30 0d 1c 3e 05  |000,100000,0..>.|
00004fc0  e1 0d 1c 48 0f dd f2 63  6c 65 61 72 72 6f 77 73  |...H...clearrows|
00004fd0  0d 1c 52 19 72 6f 77 73  28 29 3d 30 3a 72 6f 77  |..R.rows()=0:row|
00004fe0  73 74 79 6c 65 28 29 3d  30 0d 1c 5c 1e 72 6f 77  |style()=0..\.row|
00004ff0  70 6f 73 3d 30 3a f2 73  65 74 75 70 72 6f 77 28  |pos=0:.setuprow(|
00005000  72 6f 77 70 6f 73 29 0d  1c 66 3b f2 72 65 63 61  |rowpos)..f;.reca|
00005010  6c 63 3a c8 99 20 22 57  69 6d 70 5f 46 6f 72 63  |lc:.. "Wimp_Forc|
00005020  65 52 65 64 72 61 77 22  2c 74 61 62 6c 65 25 2c  |eRedraw",table%,|
00005030  30 2c 2d 31 30 30 30 30  30 2c 31 30 30 30 30 30  |0,-100000,100000|
00005040  2c 30 0d 1c 70 05 e1 0d  1c 7a 0f dd f2 63 6c 65  |,0..p....z...cle|
00005050  61 72 74 65 78 74 0d 1c  84 23 63 6f 6e 74 65 6e  |artext...#conten|
00005060  74 24 28 29 3d 22 22 3a  6a 75 73 74 69 66 69 63  |t$()="":justific|
00005070  61 74 69 6f 6e 28 29 3d  30 0d 1c 8e 3b f2 72 65  |ation()=0...;.re|
00005080  63 61 6c 63 3a c8 99 20  22 57 69 6d 70 5f 46 6f  |calc:.. "Wimp_Fo|
00005090  72 63 65 52 65 64 72 61  77 22 2c 74 61 62 6c 65  |rceRedraw",table|
000050a0  25 2c 30 2c 2d 31 30 30  30 30 30 2c 31 30 30 30  |%,0,-100000,1000|
000050b0  30 30 2c 30 0d 1c 98 05  e1 0d 1c a2 0e dd f2 63  |00,0...........c|
000050c0  6c 65 61 72 61 6c 6c 0d  1c ac 1f 63 6f 6c 75 6d  |learall....colum|
000050d0  6e 73 28 29 3d 30 3a 63  6f 6c 75 6d 6e 73 74 79  |ns()=0:columnsty|
000050e0  6c 65 28 29 3d 30 0d 1c  b6 19 72 6f 77 73 28 29  |le()=0....rows()|
000050f0  3d 30 3a 72 6f 77 73 74  79 6c 65 28 29 3d 30 0d  |=0:rowstyle()=0.|
00005100  1c c0 23 63 6f 6e 74 65  6e 74 24 28 29 3d 22 22  |..#content$()=""|
00005110  3a 6a 75 73 74 69 66 69  63 61 74 69 6f 6e 28 29  |:justification()|
00005120  3d 30 0d 1c ca 3b f2 72  65 63 61 6c 63 3a c8 99  |=0...;.recalc:..|
00005130  20 22 57 69 6d 70 5f 46  6f 72 63 65 52 65 64 72  | "Wimp_ForceRedr|
00005140  61 77 22 2c 74 61 62 6c  65 25 2c 30 2c 2d 31 30  |aw",table%,0,-10|
00005150  30 30 30 30 2c 31 30 30  30 30 30 2c 30 0d 1c d4  |0000,100000,0...|
00005160  21 63 6f 6c 70 6f 73 3d  30 3a f2 73 65 74 75 70  |!colpos=0:.setup|
00005170  63 6f 6c 75 6d 6e 28 63  6f 6c 70 6f 73 29 0d 1c  |column(colpos)..|
00005180  de 1e 72 6f 77 70 6f 73  3d 30 3a f2 73 65 74 75  |..rowpos=0:.setu|
00005190  70 72 6f 77 28 72 6f 77  70 6f 73 29 0d 1c e8 2a  |prow(rowpos)...*|
000051a0  78 70 6f 73 3d 30 3a 79  70 6f 73 3d 30 3a f2 73  |xpos=0:ypos=0:.s|
000051b0  65 74 75 70 63 6f 6e 74  65 6e 74 28 78 70 6f 73  |etupcontent(xpos|
000051c0  2c 79 70 6f 73 29 0d 1c  f2 29 24 73 74 65 78 74  |,ypos)...)$stext|
000051d0  3d 22 44 72 61 77 46 69  6c 65 22 3a 24 73 74 65  |="DrawFile":$ste|
000051e0  78 74 32 3d 22 54 61 62  6c 65 46 69 6c 65 22 0d  |xt2="TableFile".|
000051f0  1c fc 05 e1 0d ff                                 |......|
000051f6