%� � �error(�$+" : at line "+Þ):�
� ***>$.!Card2.!RunImage
8� ***Main Program for !Card2 - Business Card creator
(4� Version 2.05 (17 April '94) - Debugged Version
2� � J. Robbins
<c� block 10*1024, mblock 1024, menu% 6*1024, curbuf%  5*1024, icond 5*1024, q% 1024, text% &1000
Fmaxlev%=32
P#� start%(maxlev%),box%(maxlev%)
Z5� l%(maxlev%),b%(maxlev%),r%(maxlev%),t%(maxlev%)
d� hexc(4),defpal% 255
nJ� scal% 20,scalblok% 255,temp% 100,palette% 255,winpal(15),cardpos(16)
x/� matrix 100, origin 100, box 100, box2 100
�� c=1 � 16
�� a
�cardpos(c)=a
��
� hexc(0)=&FFFFFF00
�� I=0 � 15
�
� hexa
�winpal(I)=hexa
�defpal%!(I*4)=hexa
��
�?� 25,625,290,625,25,445,290,445,25,265,290,265,25,85,290,85
�P� &FFFFFF10,&DDDDDD10,&BBBBBB10,&99999910,&77777710,&55555510,&33333310,&010
�I� &99440010,&EEEE10,&CC0010,&DD10,&BBEEEE10,&885510,&BBFF10,&FFBB0010

F end%=-1:textc=�:cardb=�:hex=0:RED=(hex>>8)�&FF:BLUE=RED:GREEN=RED

endbuf%=curbuf%+&6000

6picmenu3$="":picmenu2$="":picmenu$="":picmenu4$=""

"Vj=0:gee=0:geecus=0:family$="Trinity.Medium":fsize=12:in=�:close=0:nono=0:ns=0:ni=0

,Isavef=�:noprint=�:printing=�:quiting=�:full=�:prequit=�:prequitwait=�

6fmcreated%=�:fcount%=0

@reinter=&81683

JBș "Wimp_Initialise",200,&4B534154,"!Card2" � version%,mytask%

T$ș "Wimp_ClaimInterface",mytask%

^Jend%=�:drag%=0:drive%=0:sfile$="":Shear=�:curspr$="":progneed=112*1024

h`size%=48:font%=-1:family%=0:style%=-1:n_font%=1:noofcards=8:force=�:centred=�:boxit=�:tile=�

r
�template

|ș "OS_GetEnv" � env$

�� �env$,"-quit") �

�I%=�env$,"""")

�I%=�env$,"""",I%+1)

��

�	I%+=1

�� �env$,I%,1)<>" "

�env$=�env$,I%)

�print$=�env$,7)

�
noic=0

�"ș"Wimp_SlotSize",-1,-1 � orig

� max=�-�:max=�(max/1024)*1024

�max-=&4000

�� PRINT TAB(0,0)max
%ș"Wimp_SlotSize",-1,-1 � current
�=�-max:hsizeb=max:heap%=�
� hsizeb<0 � �
&ș"OS_Heap",0,heap%,,hsizeb
0)ș"OS_Heap",2,heap%,,1024 � ,,sppool%
:origheap=hsizeb
D3� print$=" -print" � env$=�env$,�env$-7):noic=1
N>� print$=" -print" � �present:�load(env$):�openwin(print%)
X.� print$<>" -print" � env$<>"" �load(env$)
b� noic=0 � initic=�icon
lș"Hourglass_On"
v�fmenucr
�ș"Hourglass_Off"
��pollit
���pollit
��
�& ș"Wimp_Poll",0,block � eventcode
�. ș "Wimp_PollPointer",eventcode,,version%
�Ȏ eventcode �
�2� 0:� savef � prequit ș"Wimp_ProcessKey",&1FC
�� 1:�redraw(block!0)
�#� 2:ș "Wimp_OpenWindow",,block
�$� 3:ș "Wimp_CloseWindow",,block
�3� noic=1 � șreinter,mytask%:ș"Wimp_CloseDown"
�*� block!0=saved% � prequit � prequit=�
� 6:�click(block)
� 7:�out
� 8:�process
 � 9:�select
*� 17,18:�messagein
4�
>� �
H�
R�
\
ݤicon
f
!icond=-1
p
icond!4=0
z%icond!8=0:icond!12=68:icond!16=68
�+icond!20=%11010+((2^12)*3):icond?23=112
�$(icond+24)="!Card2"+�13
�&ș "Wimp_CreateIcon",,icond � icon
�	=icon
�ݤinf(handle,icon)
��gee(handle,icon)
�
=icond!28
� ݤbit(a$)
�ȕ �a$,":")>0
�a$=�a$,�a$,":")+1)
��
�ȕ �a$,".")>0
�a$=�a$,�a$,".")+1)
�
=a$
ݤwool(wool%)
$
� cot$
. ȕ ?wool%>=32
8cot$+=�(?wool%)
Bwool%+=1
L�
V	=cot$
`��template
j1ș"Wimp_OpenTemplate",,"<Card$Dir>.Templates"
tindir=curbuf%
~info%=�template("ProgInfo")
�save%=�template("save")
�card%=�template("Card")
�!details%=�template("details")
� saved%=�template("savetext")
�print%=�template("print")
� colour%=�template("colours")
�!savepic%=�template("SavePIC")
�query%=�template("query")
�quit%=�template("quitbox")
�ș "Wimp_CloseTemplate"
�stex=�info(save%,1)
�stexd=�info(saved%,1)
stextpic=�info(savepic%,1)

�
ݤtemplate(a$)
Fș"Wimp_LoadTemplate",,block,indir,endbuf%,-1,a$,0 � ,,indir,,,,c%
(2� c%=0 � �mess("Template "+a$+" not found."):�
2block!64=1
<)ș"Wimp_CreateWindow",,block � handle
F=handle
Pݤinfo(handle,icon)
Z�gee(handle,icon)
d
=icond!28
n��info(handle,icon,text$)
x;!block=handle:block!4=icon:ș"Wimp_GetIconState",,block
�)$(block!28)=text$:block!36=�(text$)+1
�block!8=0:block!12=0
� ș"Wimp_SetIconState",,block
��
���gee(handle,icon)
�!icond=handle:icond!4=icon
� ș"Wimp_GetIconState",,icond
��
�
��present
�	a$=""
�� �
� � � � a$="Not Present":� �:�
� ș"PDriver_Info" � a,,,,name
ȕ ?name
a$=a$+�(?name)
name+=1
"�
,$�info(print%,0)=a$
6� �
@�
J��cmenus
T�present
^
nogo=�
h	gee=0
rmenuopen=-44
|menuptr=menu%
�ȗ x,y,b
�.� block!16=27 � sfile$<>"" � HJK=� � HJK=�
�A� HJK sprmen%=�menu("Sprite List",(largest*14)+40,men$):gee=2
�"picmenu$="Force Scale,Centred"
�0� centred � picmenu$<>"{�}Centred" centred=�
�'� force picmenu4$="{�}Force Scale,"
�&� � force picmenu4$="Force Scale,"
�#� centred picmenu$="{�}Centred"
�"� � centred picmenu$="Centred"
�S� curspr$<>"" iconmenu$="{b|picmenu%}Picture" � iconmenu$="{-|picmenu%}Picture"
�Wpicmenu%=�menu("Picture",190,"{_}Del Pic,{u|savepic%}Save Pic,"+picmenu4$+picmenu$)
�>savemenu%=�menu("Save",174,"{b|save%}Draw,{b|saved%}Data")
�riconmenu%=�menu("!Card",174,"{b|info%}Info,{b|savemenu%}Save,{b|print%}Print,Details,View,"+iconmenu$+",Quit")
idetmenu%=�menu("!Card",174,"{b|info%}Info,{b|savemenu%}Save,{b|print%}Print,View,"+iconmenu$+",Quit")
vviewmenu%=�menu("!Card",174,"{b|info%}Info,{b|savemenu%}Save,{b|print%}Print,Details,Back Col,"+iconmenu$+",Quit")
Ȏ block!12 �
&<� -2:� block!8=2 � openmenu%=iconmenu%:a=x-75:b=(7+2)*48
0M� details%:� HJK � openmenu%=sprmen%:a=x:b=y:� openmenu%=detmenu%:a=x:b=y
:5� card%:� block!8=2 � openmenu%=viewmenu%:a=x:b=y
D:�
N�
X�openmenu(a,b)
b�
l��openmenu(x,y)
v&ș"Wimp_CreateMenu",,openmenu%,x,y
��
�ݤmenu(tit$,wid,menu$)
�menu$+=","
�oldmenu=menuptr
�$menuptr=tit$
�menuptr?12=7
�menuptr?13=2
�menuptr?14=7
�menuptr?15=0
�menuptr!16=wid
�menuptr!20=48
�menuptr!24=0
�menuptr+=28
�
�thing(menu$)
menu$=�menu$,�menu$,",")+1)
 menuptr+=24
*� menu$=""
4)menuptr!-24=(menuptr!-24) � %10000000
>=oldmenu
H��thing(m$)
Rm$=�m$,�m$,",")-1)
\i$="":j$=""
f� �m$,"{")>0 �
pi$=�m$,�m$,"}")-1)
zm$=�m$,�m$,"}")+1)
�j$=�i$,�i$,"|")-1)
�i$=�i$,�i$,"|")+1)
��
�ijack=&07000021
�mjack=0
�submenu=-1
� � �j$,"b")>0 � submenu=�(i$)
�"� �j$,"_")>0 � mjack=mjack � 2
�"� �j$,"�")>0 � mjack=mjack � 1
�0� �j$,"u")>0 � mjack=mjack � 2:submenu=�(i$)
�6� �j$,"-")>0 � ijack=ijack � &400000:submenu=�(i$)
�(� �j$,"s")>0 � ijack=ijack � &400000
�!menuptr=mjack
	menuptr!4=submenu
	menuptr!8=ijack
	$(menuptr+12)=m$
	$�
	.�
	8��click(block)
	Bkeepb%=block!12
	L*� �checkit(block!12,block!16)=983040 �
	V$�slabin(keepb%):�slabout(keepb%)
	`�
	j'� quiting � quiting=�:�close(quit%)
	t9� block!12=card% � block!8=4 io=0:hex=hexc(0):�setper
	~0� block!12=-2 � block!8=4 �openwin(details%)
	�-� block!12=-2 � block!8=1 �openwin(card%)
	�%� block!12=details% � block!8=2 �
	�{� block!16=3 � block!16=2 � block!16=4 � block!16=19 � ȗ x,y,b:gee=1:icy=block!16:ș"Wimp_CreateMenu",,fmenu%,x-75,y:�
	��
	�� block!8=2 � �cmenus:�
	�5� block!12=details% � savef=�:�title(details%,"")
	�<� block!12=save% � block!16=2 winsave%=block!12:�defsave
	�=� block!12=saved% � block!16=2 winsave%=block!12:�defsave
	�?� block!12=savepic% � block!16=2 winsave%=block!12:�defsave
	�M� block!12=save% � block!16=0 winsave%=block!12:�save($�info(winsave%,1))
	�N� block!12=saved% � block!16=0 winsave%=block!12:�save($�info(winsave%,1))
	�P� block!12=savepic% � block!16=0 winsave%=block!12:�save($�info(winsave%,1))
O� block!12=details% � block!16=22 io=1:hex=hexc(io):textc=�:cardb=�:�setper

O� block!12=details% � block!16=23 io=2:hex=hexc(io):textc=�:cardb=�:�setper
O� block!12=details% � block!16=24 io=3:hex=hexc(io):textc=�:cardb=�:�setper
O� block!12=details% � block!16=25 io=4:hex=hexc(io):textc=�:cardb=�:�setper
(?� block!12=details% � block!16>28 � block!16<31 �drawsprite
2I� block!12=colour% � block!16>=14 � block!16<=29 �selectcol(block!16)
<.� block!12=colour% � block!16=13 � �addcol
F6� block!12=colour% � block!16=12 � �close(colour%)
P/� block!12=colour% � block!16=-1 � �dragcol
ZH� block!12=colour% � block!16>0 � block!16<11 � �upanddown(block!16)
d� prequit �
na� block!12=quit% � block!16=0 � ș"Wimp_ProcessKey",&1FC:șreinter,mytask%:ș"Wimp_CloseDown"
x;� block!12=quit% � block!16=2 � �close(quit%):prequit=�
�P� block!12=quit% � block!16=3 � �close(quit%):�openwin(saved%):prequitwait=�
�'� prequit � � prequitwait prequit=�
��
�J� block!12=quit% � block!16=0 � șreinter,mytask%:ș"Wimp_CloseDown":�
�1� block!12=quit% � block!16=2 � �close(quit%)
�B� block!12=quit% � block!16=3 � �close(quit%):�openwin(saved%)
��
�9� block!12=query% � block!16=0 � �close(query%):�endq
�$� block!12=print% � block!16=1 �
�
�print
�5� noic=1 � șreinter,mytask%:ș"Wimp_CloseDown":�
��
�0� block!12=print% � block!16=5 � �morecopies
0� block!12=print% � block!16=3 � �lesscopies
�
!ݤcheckflag(handle,icon,flag)
"	bit=�
,!icond=handle:icond!4=icon
6 ș"Wimp_GetIconState",,icond
@"� (icond!24�(1<<flag))>0 bit=�
J=bit
T��setshear(on)
^;!icond=details%:icond!4=29:ș"Wimp_GetIconState",,icond
h� on=1 �
rC=(1<<21):E=(1<<21)
|�
�C=(0<<21):E=(1<<21)
��
�icond!8=C:icond!12=E
� ș"Wimp_SetIconState",,icond
�:
�;!icond=details%:icond!4=30:ș"Wimp_GetIconState",,icond
�� on=0 �
�C=(1<<21):E=(1<<21)
��
�C=(0<<21):E=(1<<21)
��
�icond!8=C:icond!12=E
� ș"Wimp_SetIconState",,icond
�

��process
.� !block=details% � block!24=13 � �caret:�
&J� !block=save% � block!24=13 � winsave%=!block:�save($�info(!block,1))
0K� !block=saved% � block!24=13 � winsave%=!block:�save($�info(!block,1))
:M� !block=savepic% � block!24=13 � winsave%=!block:�save($�info(!block,1))
D ș"Wimp_ProcessKey",block!24
N�
X��caret
b$ș"Wimp_GetCaretPosition",,block
l� block!0=details% �
vȎ block!4 �
�
 � 0:np=5
�
 � 5:np=6
�
 � 6:np=7
� � 7:np=18
� � 18:np=10
� � 10:np=21
� � 21:np=0
� � 13:np=14
� � 14:np=17
� � 17:np=15
� � 15:np=0
�; � 31:np=32:�info(details%,13,$�info(details%,block!4))
�; � 32:np=33:�info(details%,14,$�info(details%,block!4))

; � 33:np=34:�info(details%,17,$�info(details%,block!4))

; � 34:np=13:�info(details%,15,$�info(details%,block!4))

 �

 I ș "Wimp_SetCaretPosition",details%,np,0,0,-1,�($�info(details%,np))

* �

4 �

>��select

H
� gee=1 �

R�� version%>300 � ș"Font_DecodeMenu",0,fmenu%,block,icond,255�,,,,size:$icond=�$icond,size-1):$icond=�$icond,�($icond)-2):$icond=�$icond,�$icond-(�$icond-�$icond,"\"))-1):� ș"Wimp_DecodeMenu",,fmenu%,block,icond

\family$=$icond

f�info(details%,icy,family$)

p�redraw(card%)

z	gee=0

��

��

�
� gee=2 �

�,ș"Wimp_DecodeMenu",,sprmen%,block,icond

�curspr$=$icond

��drawsprite

�	gee=0

��

��

�.ș"Wimp_DecodeMenu",,openmenu%,block,icond

�
iffy=�

�,� $icond="Quit" � �areyousure:quiting%=�

�+� $icond="Details" � �openwin(details%)
4� $icond="View" � �openwin(card%):�redraw(card%)
)� $icond="Picture.Del Pic" � �killspr
3� $icond="Back Col" � io=0:hex=hexc(io):�setper
$L� $icond="Picture.Force Scale" � iffy � force force=�:iffy=�:�drawsprite
.N� $icond="Picture.Force Scale" � iffy � � force force=�:iffy=�:�drawsprite
8L� $icond="Picture.Centred" � iffy � centred centred=�:iffy=�:�drawsprite
BN� $icond="Picture.Centred" � iffy � � centred centred=�:iffy=�:�drawsprite
L(� $icond="Save.Draw" �openwin(save%)
V)� $icond="Save.Data" �openwin(saved%)
`"ș"Wimp_GetPointerInfo",,block
j� block!8=1 �
t� menuopen=-44 � �cmenus
~"ș"Wimp_CreateMenu",,openmenu%
��
�ș"Wimp_CreateMenu",,-1
��
��
�
��killspr
�(ș"OS_Heap",6,heap%,sppool% � ,,,ohs
�4ș"OS_Heap",4,heap%,sppool%,1024-ohs � ,,sppool%
�V� origheap-hsizeb<0 � ș"OS_Heap",5,heap%,,origheap-hsizeb:hsizeb+=origheap-hsizeb
�%ș"Wimp_SlotSize",-1,-1 � current
�ș"Wimp_SlotSize",orig,-1
��
�sfile$="":curspr$="":spr%=0
!block=details%

!ș"Wimp_GetWindowInfo",,block
workx%=block!4-block!20
worky%=block!16-block!24
(Gș"Wimp_ForceRedraw",-1,workx%+400,worky%-352,workx%+564,worky%-208
2!block=card%
<!ș"Wimp_GetWindowInfo",,block
Fworkx%=block!4-block!20
Pworky%=block!16-block!24
ZGș"Wimp_ForceRedraw",-1,workx%+390,worky%-300,workx%+564,worky%-156
d�
n��mess(mess$)
x !icond=0:$(icond+4)=mess$+�0
�(ș"Wimp_ReportError",icond,1,"!Card"
��
���error(err$)
�
� �=523 �
�%�mess("Font "+font$+" not found")
�Ȏ font$ �
�2� fontname$:�info(details%,3,"Trinity.Medium")
�3� fontextra$:�info(details%,2,"Trinity.Medium")
�2� fontad1$:�info(details%,19,"Trinity.Medium")
�1� fonttel$:�info(details%,4,"Trinity.Medium")
��
��redraw(card%):�pollit
��
M!icond=0:$(icond+4)=err$+"."+" Press OK to continue or Cancel to quit"+�0
/ș"Wimp_ReportError",icond,3,"!Card" � ,but
4� but=2 � șreinter,mytask%:ș"Wimp_CloseDown":�
"�
,	��out
6)� winsave%=save% � stext=stex:ft=&AFF
@+� winsave%=saved% � stext=stexd:ft=&00C
J0� winsave%=savepic% � stext=stextpic:ft=&FF9
T� drive%=1 �
^$ș "Wimp_GetPointerInfo",,mblock
h<win=mblock!12:icon=mblock!16:xout=!mblock:yout=mblock!4:
rPmblock!20=mblock!12:mblock!24=mblock!16:mblock!28=!mblock:mblock!32=mblock!4
|7mblock!12=0:mblock!16=1:mblock!36=1024:mblock!40=ft
�$stext=$�info(winsave%,1)
�$stext=�getleaf($stext)
�)� I=0 � 255:� I?stext<32 � I?stext=13
��
� !mblock=44+4*(1+(�$stext)�4)
�+$(mblock+44)=�bit($stext)+�0:!mblock=60
�Bș "Wimp_SendMessage",17,mblock,mblock!20,mblock!24:� DataSave
�drag%=0
��
��
�
��defsave
�	�Mode
�!block=winsave%
#ș "Wimp_GetWindowState",,block
ysize%=block!16-block!8
#x%=block!4:y%=block!8:block!4=2
& ș"Wimp_GetIconState",,block
0#block!8+=x%:block!12+=y%+ysize%
:$block!16+=x%:block!20+=y%+ysize%
D5block!24=0:block!28=0:block!32=xmax:block!36=ymax
N'!block=0:block!4=5:drag%=�:drive%=1
Xș"Wimp_DragBox",,block
b�
l
��Mode
vM!block=130:block!4=131:block!8=-1:ș"OS_ReadVduVariables",block,block+128
�)ș"OS_ReadModeVariable",�,4 � ,,Xeig%
�)ș"OS_ReadModeVariable",�,5 � ,,Yeig%
�=xmax=((block!128)+1)*2^Xeig%:ymax=((block!132)+1)*2^Yeig%
��
�ݤgetleaf(leaf$)
�ȕ �leaf$,".")
�leaf$=�leaf$,�leaf$,".")+1)
��:=leaf$
���save(save$)
ڄ� �save$,".")<1 � �save$,":")<1 � save$<>"<Wimp$Scrap>" � �query("To save, drag the save icon to a directory viewer"):nosave=�:�
�� winsave%=saved%
�� �
�X� � � � �=71622:�query("Disc Full"):full=�:� �:�:� � �:�error(�$+" : at line "+Þ):�
 endtext%=text%
#$endtext%="Card2 Data File"+�10
 endtext%+=16
 � curspr$<>"" �
*$endtext%="Sprites"+�10
4endtext%+=8
>c$endtext%=curspr$+�10:endtext%+=�(curspr$)+1:$endtext%=�spr_len%+�(10):endtext%+=�(�spr_len%)+1
H(� centred c$="centred" � c$="origin"
R"� force f$="forced" � f$="s/s"
\� Shear g$="1" � g$="0"
f$endtext%=g$+�10
pendtext%+=2
z$endtext%=c$+�10
�endtext%+=�c$+1
�$endtext%=f$+�10
�endtext%+=�f$+1
��
�*$endtext%="NoSprites"+�10:endtext%+=10
��
�% $endtext%=$�info(details%,3)+�10
�& endtext%+=�($�info(details%,3))+1
�' $endtext%=$�info(details%,0)+�(10)
�& endtext%+=�($�info(details%,0))+1
�( $endtext%=$�info(details%,13)+�(10)
�&endtext%+=�($�info(details%,13))+1
�'$endtext%=$�info(details%,31)+�(10)
&endtext%+=�($�info(details%,31))+1
% $endtext%=$�info(details%,2)+�10
& endtext%+=�($�info(details%,2))+1
$' $endtext%=$�info(details%,5)+�(10)
.& endtext%+=�($�info(details%,5))+1
8( $endtext%=$�info(details%,14)+�(10)
B&endtext%+=�($�info(details%,14))+1
L( $endtext%=$�info(details%,32)+�(10)
V&endtext%+=�($�info(details%,32))+1
`%$endtext%=$�info(details%,19)+�10
j' endtext%+=�($�info(details%,19))+1
t' $endtext%=$�info(details%,6)+�(10)
~& endtext%+=�($�info(details%,6))+1
�( $endtext%=$�info(details%,17)+�(10)
�&endtext%+=�($�info(details%,17))+1
�( $endtext%=$�info(details%,33)+�(10)
�&endtext%+=�($�info(details%,33))+1
�&$endtext%=$�info(details%,7)+�(10)
�%endtext%+=�($�info(details%,7))+1
�'$endtext%=$�info(details%,18)+�(10)
�&endtext%+=�($�info(details%,18))+1
�'$endtext%=$�info(details%,10)+�(10)
�&endtext%+=�($�info(details%,10))+1
�&$endtext%=$�info(details%,4)+�(10)
�%endtext%+=�($�info(details%,4))+1
'$endtext%=$�info(details%,21)+�(10)

&endtext%+=�($�info(details%,21))+1
'$endtext%=$�info(details%,15)+�(10)
&endtext%+=�($�info(details%,15))+1
('$endtext%=$�info(details%,34)+�(10)
2&endtext%+=�($�info(details%,34))+1
<$endtext%=�hexc(0)+�(10)
F endtext%+=�(�hexc(0))+1
P $endtext%=�hexc(1)+�(10)
Z endtext%+=�(�hexc(1))+1
d$endtext%=�hexc(2)+�(10)
n endtext%+=�(�hexc(2))+1
x$endtext%=�hexc(3)+�(10)
� endtext%+=�(�hexc(3))+1
�$endtext%=�hexc(4)+�(10)
� endtext%+=�(�hexc(4))+1
�+ ș"OS_File",0,save$,0,0,text%,endtext%
�  �("Settype "+save$+" &0cc")
�� curspr$<>""�
�#ș"OS_File",5,save$ �,,,,length
�ș"OS_Find",&C0,save$ � fs
�+ș"OS_GBPB",1,fs,spr%+4,spr_len%,length
��#fs
��
�� �
�<� save$<>"<Wimp$Scrap>" � savef=�:�title(details%,save$)
�
 � winsave%=save% � �makefile
� winsave%=savepic% �
"� �
,^� � � � �=71622:�query("Disc Full"):full=�:� �:�:� � �:�error(�$+" : at line "+Þ):�#ile:�
6%Current=�checkflag(savepic%,3,21)
@Ȏ Current �
J� �:
T%ș 46,&118,spr%,curspr$ � ,,sptr%
^ ș"OS_Find",&80,save$ � ile%
h�#ile%,&01
r�#ile%,0
|�#ile%,0
��#ile%,0
��#ile%,&10
��#ile%,0
��#ile%,0
��#ile%,0
��#ile%,!sptr%+16 � &FF
� �#ile%,(!sptr%+16>>>8) � &FF
�!�#ile%,(!sptr%+16>>>16) � &FF
�!�#ile%,(!sptr%+16>>>24) � &FF
�%ș"OS_GBPB",&02,ile%,sptr%,!sptr%
�ș"OS_Find",0,ile%
�ș"OS_File",&12,save$,&ff9
�� �:
4ș"OS_File",0,save$,0,0,spr%+4,spr%+(spr_len%+4)
ș"OS_File",&12,save$,&ff9
�
&�
03� save$<>"<Wimp$Scrap>" �info(winsave%,1,save$)
:�
D��messagein
Nmblock=block
Xref=mblock!8:task=mblock!4
bȎ mblock!16 �
l[� 8:� � prequit mblock!12=mblock!8:ș"Wimp_SendMessage",19,mblock:prequit=�:�areyousure
v.� 0:șreinter,mytask%:ș"Wimp_CloseDown":�
�� 2:
�� drive%=1 �
��save(�wool(mblock+44))
�mblock!12=ref
�mblock!16=3
�mblock!36=-1
�!mblock=256
�sendm=&400E7
�&ș sendm,18,mblock,task:� DataLoad
��
�� 3:
�l� mblock!40<>&0CC � mblock!40<>&FF9 � �mess("Only CardData files or Sprites can be dropped into here"):�
�in=�
#� mblock!40=&FF9 � �insprites:�
�load(�wool(block+44))
� 5:
 � block!40=&0CC �
*block!12=block!8:block!16=4
4sendm=&400E7
>+ș sendm,18,block,block!4:� DataLoadAck
H�load(�wool(block+44))
R�
\�
f�
p��load(load$)
z!ș"OS_Find",&40,load$ � file%
�	t$=""
�t$=�readfile
� first$=t$
�q � t$<>"Card Data File" � t$<>"Card2 Data File" � �mess("This is not a Card data file"):ș"OS_Find",0,file%:�
�9� first$="Card Data File" new=FLASE:�loadold:�killspr
�-� first$="Card2 Data File" new=�:�loadnew
�ș"OS_Find",0,file%
�$�info(saved%,1)=load$
�� noic=0 �openwin(details%)
�+� noic=0 savef=�:�title(details%,load$)
�(� noic=0 � curspr$<>"" � �drawsprite
��
�
��loadnew
&� �readfile="Sprites" � �loadspr:�
�killspr
�loadindet
$
� I=0 � 4
.hexc(I)=�(�readfile)
8� I
B�
L
��loadspr
V� curspr$<>"" � �killspr
`curspr$=�readfile
jsfile$="Internal"
tspr_len%=�(�readfile)
~2� �(�readfile)=1 � �setshear(1) � �setshear(0)
�%� �readfile="centred" � centred=�
�"� �readfile="forced" � force=�
��loadindet
�
� I=0 � 4
�hexc(I)=�(�readfile)
�� I
�men$="":largest=0
�spr%=�claim(spr_len%+64)
�$ș"OS_File",5,load$ � ,,,,length
�7ș"OS_GBPB",3,file%,spr%+4,spr_len%,length-spr_len%
�,ș "OS_SpriteOp",&108,spr% � ,,,sprites%
�� i%=0 � sprites%-1
7 ș "OS_SpriteOp",&10D,spr%,temp%,&100,i%+1 � ,,,j%

 temp%?j%=13
) � �(men$)<243 � men$=men$+$temp%+","
* � �($temp%)>largest largest=�($temp%)
(�
2men$=�men$,�(men$)-1)
<�
F
��loadold
P�loadindet
Z
� I=1 � 4
d
hexc(I)=0
n�
xhexc(0)=&FFFFFF00
��
���loadindet
��info(details%,3,�readfile)
��info(details%,0,�readfile)
� �info(details%,13,�readfile)
�&� new �info(details%,31,�readfile)
��info(details%,2,�readfile)
��info(details%,5,�readfile)
� �info(details%,14,�readfile)
�&� new �info(details%,32,�readfile)
� �info(details%,19,�readfile)
��info(details%,6,�readfile)
� �info(details%,17,�readfile)
&� new �info(details%,33,�readfile)
�info(details%,7,�readfile)
 �info(details%,18,�readfile)
" �info(details%,10,�readfile)
,�info(details%,4,�readfile)
6 �info(details%,21,�readfile)
@ �info(details%,15,�readfile)
J&� new �info(details%,34,�readfile)
T�
^ݤreadfile
h
 t$=""
r �
| ș"OS_BGet",,file% � byte%
�8 � byte%=254 ș"OS_Find",0,file%:�openwin(details%):
� t$=t$+�(byte%)
� � byte%=13 � byte%=10
� =�t$,�(t$)-1)
���insprites
� men$="":largest=0
� load$=�wool(block+44)
� sfile$=load$
�'ș "OS_File",5,load$ � ,,,,spr_len%
�spr%=�claim(spr_len%+256)
�!ș "OS_File",&FF,load$,spr%+4
�,ș "OS_SpriteOp",&108,spr% � ,,,sprites%
�� i%=0 � sprites%-1
7 ș "OS_SpriteOp",&10D,spr%,temp%,&100,i%+1 � ,,,j%
 temp%?j%=13
) � �(men$)<243 � men$=men$+$temp%+","
&* � �($temp%)>largest largest=�($temp%)
0�
:men$=�men$,�(men$)-1)
Dcurspr$=�men$,�men$,",")-1)
N"�openwin(details%):�drawsprite
X �
b��openwin(handle%)
l!block=handle%
v"ș"Wimp_GetWindowState",,block
�open=block!32 � (1<<16)
�-� block!28<>-1 � open=0 � handle%=card% �
�block!28=-1
�ș"Wimp_OpenWindow",,block
��
��
�
��fmenucr
�� version%>300 �
�fflag%=0
�fflag%+=1<<19
�fflag%+=1<<20
�1ș"Font_ListFonts",,0,fflag%,,0 � r,s,t,A,u,B
�� fmenu% A,fbuf% B
1ș"Font_ListFonts",,fmenu%,fflag%,A,fbuf%,B,1
�
�fmenucrRO2
 �
*�
4��fmenucrRO2
>
NULL=0
H� f_p% 900
R!f_p%=NULL
\c%=0
f�
p) ș "Font_ListFonts",,q%,c%,-1 � ,,c%
z" � c%<>-1 � �Family(�Info(q%))
�� c%=-1
�
�� fmenu% 28+24*n_font%
�A$fmenu%="Fonts list":fmenu%!12=&0207:fmenu%!20=40:fmenu%!24=0
�Ffmenu%!28=1:fmenu%!32=-1:fmenu%!36=&07000021:$(fmenu%+40)="System"
�
�&width%=8:p%=fmenu%+28:r%=f_p%:n%=2
�ȕ n%<=n_font%
� p%+=24
� f$=�Info(!r%+12)
�  width%=�Max(width%,�(f$)+1)
� !p%=0:p%!8=&07000121
� p%!12=!r%+12
 p%!16=-1:p%!20=�(f$)

 v%=!r%+4
+ � (!(!r%+8) = 1) � �Info(!v%+4) = "" �
$  p%!4 = -1
. �
8  � p%!4 28+24*!(!r%+8)
B
  t%=p%!4
L)  $t%=f$:t%!12=&0207:t%!20=40:t%!24=0
V
  u%=t%+4
`  width2%=�(f$)-2
j  � s%=1 � !(!r%+8)
t
   u%+=24
~   f$=�Info(!v%+4)
�$   width2%=�Max(width2%,�(f$)+1)
�#   !u%=0:u%!4=-1:u%!8=&07000121
�   u%!12=!v%+4
�   u%!16=-1:u%!20=�(f$)
�
   v%=!v%
�  �
�%  !u%= !u% � &80:t%!16=16*width2%
� �
� r%=!r%
�
 n%+=1
��
�&!p%= !p% � &80:fmenu%!16=16*width%
�

� �Family(font$)
"� family$,style$,p%,flag%,pos%

(pos%=�font$,".")
2family$=�font$,pos%-1)
<� pos% = 0 �
F style$=""
P�
Z style$=�font$,pos%+1)
d�
np%=f_p%:flag%=�
xȕ (!p% <> NULL � flag%=�)
�) � family$ = �Info(!p%+12) � flag%= �
� p% =!p%
��
�� flag%=� �
� � p%!0 �(family$)+13
� p%=!p%
�
 !p%=NULL
� p%!8=1
� $(p%+12)=family$
� � p%!4 �(style$)+5
� p%=p%!4
�
 !p%=NULL
� $(p%+4)=style$
 n_font%+=1
�
 p%!8=p%!8+1
" p%=p%+4
, ȕ (!p% <> NULL)
6  p%=!p%
@ �
J � p%!0 �(style$)+5
T p%=!p%
^
 !p%=NULL
h $(p%+4)=style$
r�
|�
�ݤMax(a%,b%)
�� a%>b% � =a% � =b%
�ݤInfo(p%)
�� a$
�	a$=""
�ȕ (?p%<>0 � ?p%<>13)
� a$+=�(?p%)
�
 p%+=1
��
�=a$
���redraw(handle)
� block!0=handle
�
�more%
 )ș "Wimp_RedrawWindow",,block � more%
 ȕ more%
  Ȏ handle �
 & � card%
 0 �application_redraw
 : � colour%
 D �application_redraw2
 N" ș "Wimp_BorderWindow",,block
 X � details%
 b
 �app_re3
 l" ș "Wimp_BorderWindow",,block
 v 
 �" ș "Wimp_BorderWindow",,block
 � �
 �+  ș "Wimp_GetRectangle",,block � more%
 ��
 �%� close=1 � �close(card%):close=0
 �%� nono=1 � �info(details%,ni,�ns)
 ��
 ���application_redraw
 �!block=card%
 �!ș"Wimp_GetWindowInfo",,block
 �workx%=block!4-block!20
 �worky%=block!16-block!24
 ��drawcard(workx%,worky%)
!�cardsprite(workx%,worky%)
!�
!��cardsprite(cxco,cyco)
! � curspr$<>"" �
!*curss$=curspr$
!4� �curss$<12 �
!>�
!Hcurss$+=�0
!R� �curss$=12
!\�
!f-ș "ColourTrans_SetGCOL",hexc(0),,,&100,0
!p)ȓ Ȑ workx%+390,worky%-300,82*2,72*2
!z4ș &2E,256+40,spr%,curspr$ � A,B,C,w%,h%,D,mode%
!�.ș"OS_ReadModeVariable",mode%,3 �c,cl,cols
!�,ș"OS_ReadModeVariable",mode%,4 �,,xeig%
!�,ș"OS_ReadModeVariable",mode%,5 �,,yeig%
!�wi%=w%<<xeig%
!�he%=h%<<yeig%
!�� spr%!4>0 �
!�next=spr%!8
!��
!�add=next+4
!�offset=spr%!add
!�name$=""
!��
!�name$+=�spr%!add
"
add+=1
"� add=next+16
"old=next
"$next+=spr%!next
".� curss$=name$
"8� spr%!(32+old)>44 �
"B� col%=0 � 15
"L+palette%!(col%*4)=!(old+44+col%*8+spr%)
"V
� col%
"`Hș "ColourTrans_SelectTable",!(40+old+spr%),palette%,-1,-1,scalblok%
"j�
"tGș "ColourTrans_SelectTable",!(40+old+spr%),defpal%,-1,-1,scalblok%
"~�
"��
"�xoff=0:yoff=0
"�� h%>w% shear=72 � shear=82
"�%ș"OS_ReadModeVariable",�,11 �,,C
"�%ș"OS_ReadModeVariable",�,12 �,,B
"�
C+=1:B+=1
"�&� B/C=.75 � �vga(mode%) � hscale=1
"�/� B/C<>.8 � B/C<>.75 � �vga(mode%) hscale=2
"�*� B/C=.8 � B/C=.75 � modsc=1 � modsc=2
"�$Shear=�checkflag(details%,29,21)
"�Ȏ Shear �
"�� �
#'� B/C=.8 � � �vga(mode%) � hscale=1
#
(� B/C=.75 � � �vga(mode%) � hscale=1
#1� B/C<>.8 � B/C<>.75 � � �vga(mode%) hscale=2
#=� �vga(mode%) � w%>82 � h%>72 � h%<w% � SCw=w%/82:SCh=SCw
#(=� �vga(mode%) � w%>82 � h%>72 � h%>w% � SCh=h%/72:SCw=SCh
#2J� � �vga(mode%) � w%>82 � h%*2>72 � h%*2<w% � SCw=w%/82:SCh=SCw*hscale
#<V� � �vga(mode%) � w%>82 � h%*2>72 � h%*2>w% � SCh=(h%/(72/hscale))*2:SCw=(h%/72)*2
#F(� w%>82 � h%<72 � SCw=w%/shear:SCh=1
#P1� w%<82 � h%>72 � SCw=1:SCh=h%/(shear/hscale)
#Z
� force �
#dH� w%<82 � h%<72 � h%=w% � �vga(mode%) � SCh=h%/(72/hscale):SCw=w%/72
#nN� w%<82 � h%<72 � h%<w% � �vga(mode%) � SCw=w%/shear:SCh=w%/(shear/hscale)
#xN� w%<82 � h%<72 � h%>w% � �vga(mode%) � SCw=h%/shear:SCh=h%/(shear/hscale)
#�L� w%<82 � h%<72 � h%*2=w% � � �vga(mode%) � SCh=h%/(36/hscale):SCw=w%/72
#�T� w%<82 � h%<36 � (h%*2)<w% � � �vga(mode%) � SCw=w%/shear:SCh=w%/(shear/hscale)
#�T� w%<82 � h%<36 � (h%*2)>w% � � �vga(mode%) � SCw=h%/shear:SCh=h%/(shear/hscale)
#��
#�%� w%<82 � h%<72 � SCw=1:SCh=modsc
#��
#�Ȏ centred �
#�	  � �
#�1 � �vga(mode%) � � force � h%*SCh=72 � yoff=0
#�; � �vga(mode%) � � force � h%*SCh<70 � yoff=72-(h%*SCh)
#�3 � �vga(mode%) � force � yoff=(72-((1/SCh)*h%))
#�5 � � �vga(mode%) � force yoff=(72-((1/SCh)*h%))/2
#�8 � � �vga(mode%) � h%/SCh<36 � yoff=�(36-(h%/SCh))*2
$* � � �vga(mode%) � h%/SCh>=35 � yoff=0
$ xoff=(82-((1/SCw)*w%))
$; � force � h%>72 � w%>82 � h%<w% � �vga(mode%) � xoff=0
$"; � force � h%>72 � w%>82 � h%>w% � �vga(mode%) � yoff=0
$,3 � force � h%=w% � �vga(mode%) � xoff=10:yoff=0
$67 � force � h%*2=w% � � �vga(mode%) � xoff=10:yoff=0
$@C � force � h%*2>72 � w%>82 � (h%*2)<w% � � �vga(mode%) � xoff=0
$JC � force � h%*2>72 � w%>82 � (h%*2)>w% � � �vga(mode%) � yoff=0
$T  �
$^� �
$h'� B/C=.8 � � �vga(mode%) � hscale=2
$r(� B/C=.75 � � �vga(mode%) � hscale=2
$|1� B/C<>.8 � B/C<>.75 � � �vga(mode%) hscale=4
$� SCw=w%/82:SCh=h%/(72/hscale)
$��
$�[!scal%=wi%:scal%!4=he%:scal%!8=�((w%/((1/SCw)/2))+0.5):scal%!12=�((h%/((1/SCh)/2))+0.5)
$�Iș 46,&134,spr%,curspr$,cxco+390+xoff,cyco-300+yoff,8,scal%,scalblok%
$��
$��
$�ݤwidth(text$,font$,xs,ys)
$�1ș "Font_FindFont",,font$,xs*16,ys*16 � font%
$�ș "Font_SetFont",font%
$�Dș "Font_StringWidth",,text$,228000,228000,31,�(text$) � ,,x%,y%
$�'ș "Font_ConverttoOS",,x%,y% � ,x,y
$�=x
$���makefile
%ș"Hourglass_On"
%� �
%u� � � � �=71622:�query("Disc Full"):full=�:�#c%:�("Delete "+save$):� �:�:� � �:�error(�$+" : at line "+Þ):�#c%:�
%&6� �checkflag(save%,3,21) noofcards=1 � noofcards=8
%0big%=&7FFFFFFF
%:EF=0.552256944
%D
i%=0:c%=0
%Ninch=&B400
%X
point=640
%bcm=18140
%lblack%=0
%vwhite%=&FFFFFF00
%�none%=-1
%�9name$=$�info(details%,0):fontname$=$�info(details%,3)
%�@sizename=�($�info(details%,31)):hname=�($�info(details%,13))
%�;extra$=$�info(details%,5):fontextra$=$�info(details%,2)
%�Bsizeextra=�($�info(details%,32)):hextra=�($�info(details%,14))
%�8ad1$=$�info(details%,6):fontad1$=$�info(details%,19)
%�>sizead1=�($�info(details%,33)):had1=�($�info(details%,17))
%�ad2$=$�info(details%,7)
%�ad3$=$�info(details%,18)
%�ad4$=$�info(details%,10)
%�8tel$=$�info(details%,21):fonttel$=$�info(details%,4)
%�>sizetel=�($�info(details%,34)):htel=�($�info(details%,15))
%��drawfile_start(save$)
&�putw(0)
&�head_here(�)
&�puts(�(1)+fontname$)
& �puts(�(2)+fontextra$)
&*�puts(�(3)+fontad1$)
&4�puts(�(4)+fonttel$)
&>
�align
&H
�head_now
&R�
&\ � noofcards=8 � �group_start
&f"� carddraw=1 � noofcards*2 � 2
&p/ax=cardpos(carddraw):by=cardpos(carddraw+1)
&zxpos=ax:ypos=by
&��group_start
&�'�path_start(0,0,1*point,&0,hexc(0))
&��path_draw(0,152)
&��path_draw(228,152)
&��path_draw(228,0)
&��path_draw(0,0)
&��path_close
&�
�path_end
&�4xco=(2/5)*�width(name$,fontname$,sizename,hname)
&�z� x/(2/5)=0 � name$<>"" � �mess("The name text is too long or the font is too large"):�drawfile_end:�"Delete "+save$:�
&�xco=228-xco
&�
xco=xco/2
&��group_start
'C�text(xco,126,name$,sizename*&280,hname*&280,1,hexc(1),hexc(1))
'&start=xco-2:finish=xco+((2/5)*x)+2
'5�path_start(start,123,1.5*&280,hexc(1),&FFFFFFFF)
'$�path_draw(finish,123)
'.�path_close
'8
�path_end
'B�group_end
'L�group_start
'V(x=�width(ad1$,fontad1$,sizead1,had1)
'`�� ad1$>"" � x=0 � x>560 � �mess("The 1st address text is too long or the font is too large"):�drawfile_end:�"Delete "+save$:�
'j>�text(13,81,ad1$,sizead1*&280,had1*&280,3,hexc(3),hexc(3))
't(x=�width(ad2$,fontad1$,sizead1,had1)
'~�� ad2$>"" � x=0 � x>560 � �mess("The 2nd address text is too long or the font is too large"):�drawfile_end:�"Delete "+save$:�
'�>�text(13,65,ad2$,sizead1*&280,had1*&280,3,hexc(3),hexc(3))
'�(x=�width(ad3$,fontad1$,sizead1,had1)
'��� ad3$>"" � x=0 � x>560 � �mess("The 3rd address text is too long or the font is too large"):�drawfile_end:�"Delete "+save$:�
'�>�text(13,49,ad3$,sizead1*&280,had1*&280,3,hexc(3),hexc(3))
'�(x=�width(ad4$,fontad1$,sizead1,had1)
'��� ad4$>"" � x=0 � x>560 � �mess("The 4th address text is too long or the font is too large"):�drawfile_end:�"Delete "+save$:�
'�>�text(13,33,ad4$,sizead1*&280,had1*&280,3,hexc(3),hexc(3))
'��group_end
'�8xco=(2/5)*�width(extra$,fontextra$,sizeextra,hextra)
'�|� x/(2/5)=0 � extra$<>"" � �mess("The trade text is too long or the font is too large"):�drawfile_end:�"Delete "+save$:�
'�xco=228-xco:xco=xco/2:
'�F�text(xco,102,extra$,sizeextra*&280,hextra*&280,2,hexc(2),hexc(2))
(:xco=(2/5)*�width("Tel :- "+tel$,fonttel$,sizetel,htel)
(
~� x/(2/5)=0 � tel$<>"" � �mess("The telephone text is too long or the font is too large"):�drawfile_end:�"Delete "+save$:�
(xco=218-xco
(I�text(xco,10,"Tel :- "+tel$,sizetel*&280,htel*&280,4,hexc(4),hexc(4))
((� curspr$<>"" � �sprite
(2�group_end
(<G� noofcards=8 ș"Hourglass_Percentage",(carddraw/(noofcards*2))*100
(F�
(P�drawfile_end
(Zș"Hourglass_Smash"
(d� �
(n�
(x� �drawfile_start(D$)
(�c%=�(D$)
(�,� c%=0 � � 1234,"Can't open output file"
(�drawfile$=D$
(�(�putw(&77617244):�putw(201):�putw(0)
(��puts12("!Card")
(�lev%=-1
(��head_here(�)
(��
(�� �putw(A%)
(��#c%,A% � &FF
(��#c%,(A%>>>8) � &FF
(��#c%,(A%>>>16) � &FF
(��#c%,(A%>>>24) � &FF
)�
)� �puts12(A$)
)� A%
)"A$=A$+�12," ")
),#� A%=1 � 12:�#c%,�(�A$,A%,1)):�
)6�
)@:
)J� �puts(A$)
)T� A%
)^&� A%=1 � �(A$):�#c%,�(�A$,A%,1)):�
)h
�#c%,0
)r�
)|:
)�� �head_here(box%)
)�V� lev%=maxlev% � � 1234,"Too many nested groups.  Edit program to increase limit."
)�lev%+=1
)�box%(lev%)=box%
)�start%(lev%)=�#c%
)�� lev%>0 � �putw(0)
)�� box% �
)� �putw(0):�putw(0)
)� �putw(0):�putw(0)
)��
)�l%(lev%)=big%:b%(lev%)=big%
)�!r%(lev%)=-big%:t%(lev%)=-big%
)��
*:
*� �head_now
*
� end%
*&
end%=�#c%
*0�#c%=start%(lev%)
*:)� lev%>0 � �putw(end%-start%(lev%)+4)
*D� box%(lev%) �
*N$ �putw(l%(lev%)):�putw(b%(lev%))
*X( �putw(r%(lev%)+1):�putw(t%(lev%)+1)
*b�
*l� lev%>0 �
*v lev%-=1
*�0 � l%(lev%+1)<l%(lev%) � l%(lev%)=l%(lev%+1)
*�0 � b%(lev%+1)<b%(lev%) � b%(lev%)=b%(lev%+1)
*�0 � r%(lev%+1)>r%(lev%) � r%(lev%)=r%(lev%+1)
*�0 � t%(lev%+1)>t%(lev%) � t%(lev%)=t%(lev%+1)
*��
*�
�#c%=end%
*��
*�� �align
*�ȕ �#c% � 3:�#c%,0:�
*��
*�� �group_start
*�-� groups cannot be nested in this version
*��putw(6)
+�head_here(�)
+�puts12("group")
+�
+ :
+*� �group_end
+4
�head_now
+>�
+H7� �text(x%,y%,text$,xsize%,ysize%,font%,col%,bcol%)
+R)x%=(x%+xpos)*point:y%=(y%+ypos)*point
+\�putw(1)
+f�head_here(�)
+p�putxy(x%,y%-ysize%*.5)
+z(�putxy(x%+�(text$)*xsize%,y%+ysize%)
+��putw(col%)
+��putw(bcol%)
+��putw(font%)
+��putw(xsize%):�putw(ysize%)
+��putxy(x%,y%)
+��puts(text$):�align
+�
�head_now
+��
+�� �putxy(x%,y%)
+��putw(x%):�putw(y%)
+�� x%<l%(lev%) � l%(lev%)=x%
+�� y%<b%(lev%) � b%(lev%)=y%
+�� x%>r%(lev%) � r%(lev%)=x%
,� y%>t%(lev%) � t%(lev%)=y%
,�
,+� �path_start(x%,y%,width%,lcol%,fcol%)
,$�putw(2)
,.�head_here(�)
,8�putw(fcol%):� fill
,B�putw(lcol%):� colour
,L�putw(width%):� width
,V�putw(0):� path style
,`�path_move(x%,y%)
,j�
,t:
,~� �path_move(x%,y%)
,�)x%=(x%+xpos)*point:y%=(y%+ypos)*point
,��putw(2)
,��putxy(x%,y%)
,��
,�:
,�� �path_draw(xx%,yy%)
,�-xx%=(xx%+xpos)*point:yy%=(yy%+ypos)*point
,��putw(8)
,��putxy(xx%,yy%)
,��
,�� �path_close
,��putw(5)
-�
-
:
-� �path_end
-�putw(0)
-(
�head_now
-2�
-<� �drawfile_end
-F$� draw unfinished IF lev%>0 THEN
-P
�head_now
-Z
�#c%:c%=0
-d"�("SetType "+drawfile$+" AFF")
-n�
-x��sprite
-�%ș 46,&118,spr%,curspr$ � ,,sptr%
-�4ș &2E,256+40,spr%,curspr$ � A,B,C,w%,h%,D,mode%
-�� h%>w% shear=72 � shear=82
-�'� �vga(mode%) � hscale=1:� hscale=2
-�$Shear=�checkflag(details%,29,21)
-�xoff=0:yoff=0
-�Ȏ Shear �
-�� �
-�=� �vga(mode%) � w%>82 � h%>72 � h%<w% � SCw=82/w%:SCh=SCw
-�=� �vga(mode%) � w%>82 � h%>72 � h%>w% � SCh=72/h%:SCw=SCh
-�A� � �vga(mode%) � w%>82 � h%>72 � h%*2<w% � SCw=82/w%:SCh=SCw
-�A� � �vga(mode%) � w%>82 � h%>72 � h%*2>w% � SCh=72/h%:SCw=SCh
-�'� w%>82 � h%<72 � SCw=82/w%:SCh=SCw
.'� w%<82 � h%>72 � SCh=82/h%:SCw=SCh
.
� force �
.?� w%<82 � h%<72 � h%=w% � �vga(mode%) � SCh=72/h%:SCw=72/w%
."?� w%<82 � h%<72 � h%<w% � �vga(mode%) � SCw=82/w%:SCh=82/h%
.,?� w%<82 � h%<72 � h%>w% � �vga(mode%) � SCw=72/h%:SCh=72/h%
.6C� w%<82 � h%<72 � h%*2=w% � � �vga(mode%) � SCh=72/h%:SCw=72/h%
.@E� w%<82 � h%<36 � (h%*2)<w% � � �vga(mode%) � SCw=82/w%:SCh=82/w%
.JE� w%<82 � h%<36 � (h%*2)>w% � � �vga(mode%) � SCw=72/h%:SCh=72/h%
.T�
.^!� w%<82 � h%<72 � SCw=1:SCh=1
.h�
.rȎ centred �
.|	  � �
.�,� �vga(mode%) � � force � h%>72 � yoff=0
.�4� �vga(mode%) � � force � h%<72 � yoff=(72-h%)/2
.�2� �vga(mode%) � force � yoff=(72-((1/SCh)*h%))
.�4� � �vga(mode%) � force yoff=(72-((1/SCh)*h%))/2
.�8� � �vga(mode%) � h%/SCh<36 � h%<72 � yoff=(72-h%)/2
.�1� � �vga(mode%) � h%/SCh>=35 � h%>72 � yoff=0
.�xoff=82-(SCw*w%)
.�*� force � h%<w% � �vga(mode%) � xoff=0
.�*� force � h%>w% � �vga(mode%) � yoff=0
.�2� force � h%=w% � �vga(mode%) � xoff=10:yoff=0
.�6� force � h%*2=w% � � �vga(mode%) � xoff=10:yoff=0
.�0� force � (h%*2)<w% � � �vga(mode%) � xoff=0
.�0� force � (h%*2)>w% � � �vga(mode%) � yoff=0
/  �
/� �
/ SCw=82/w%:SCh=72/h%:hscale=1
/&�
/0x%=155:y%=33
/:;x%=(x%+xpos+(xoff/5))*point:y%=(y%+ypos+(yoff/5))*point
/DEwidth%=((w%*SCw)/1.25)*point:height%=((h%*SCh)*hscale/1.25)*point
/N�putw(5)
/X�head_here(�)
/b�putxy(x%,y%)
/l$�putxy(x%+width%+1,y%+height%+1)
/v#ș"OS_GBPB",&02,c%,sptr%,!sptr%
/�
�align
/�
�head_now
/��
/���close(!block)
/�ș"Wimp_CloseWindow",,block
/��
/�ݤcheckit(hnd%,ic%)
/�!icond=hnd%:icond!4=ic%
/� ș"Wimp_GetIconState",,icond
/�flags%=icond!24
/�=flags%�&F0000
/���slabicn(handle,icn)
/�icond!12=handle
0icond!16=2
0ș "Wimp_BorderIcon",,icond
0
icond!8=0
0 ș "Wimp_BorderIcon",,icond
0*�
04� �slabin(handle)
0>!icond=handle
0H#ș "Wimp_GetPointerInfo",,icond
0Rș "Wimp_BorderIcon",,icond
0\�
0f� �slabout(handle)
0p!icond=handle
0z#ș "Wimp_GetPointerInfo",,icond
0�icond!8 = 0
0�ș "Wimp_BorderIcon",,icond
0��
0���selectcol(colno)
0�hex=winpal(colno-14)
0�RED=(hex>>8)�&FF
0�GREEN=(hex>>16)�&FF
0�BLUE=(hex>>24)�&FF
0�!block=colour%
0�!ș"Wimp_GetWindowInfo",,block
0�workx%=block!4-block!20
0�worky%=block!16-block!24
0�)ș "ColourTrans_SetGCOL",hex,,,&100,0
1&ȓ Ȑ workx%+234,worky%-247,175,48
1 ș "Wimp_SetColour",1,1
1( ȓ Ȑ workx%+270,worky%-170,344,147
1$0 ș "ColourTrans_SetGCOL",&0000FF00,,,&100,0
1.0 ȓ Ȑ workx%+271,worky%-55,(RED/255)*344,32
180 ș "ColourTrans_SetGCOL",&00FF0000,,,&100,0
1B3 ȓ Ȑ workx%+271,worky%-111,(GREEN/255)*344,32
1L0 ș "ColourTrans_SetGCOL",&FF000000,,,&100,0
1V2 ȓ Ȑ workx%+271,worky%-167,(BLUE/255)*344,32
1`H ș "ColourTrans_SetGCOL",0,,,&100,0:ȓ workx%+233,worky%-248,176,49
1j# ȓ workx%+270,worky%-58,344,34
1t$ ȓ workx%+270,worky%-114,344,34
1~$ ȓ workx%+270,worky%-170,344,34
1�geecol=hex
1� �info(colour%,3,�RED)
1� �info(colour%,7,�GREEN)
1� �info(colour%,11,�BLUE)
1��
1���application_redraw2
1�RED=(hex>>8)�&FF
1�GREEN=(hex>>16)�&FF
1�BLUE=(hex>>24)�&FF
1�workx%=block!4-block!20
1�worky%=block!16-block!24
1�)ș "ColourTrans_SetGCOL",hex,,,&100,0
2&ȓ Ȑ workx%+234,worky%-247,175,48
2
ș "Wimp_SetColour",1,1
2( ȓ Ȑ workx%+270,worky%-170,344,147
20 ș "ColourTrans_SetGCOL",&0000FF00,,,&100,0
2(0 ȓ Ȑ workx%+271,worky%-55,(RED/255)*344,32
220 ș "ColourTrans_SetGCOL",&00FF0000,,,&100,0
2<3 ȓ Ȑ workx%+271,worky%-111,(GREEN/255)*344,32
2F0 ș "ColourTrans_SetGCOL",&FF000000,,,&100,0
2P2 ȓ Ȑ workx%+271,worky%-167,(BLUE/255)*344,32
2ZGș "ColourTrans_SetGCOL",0,,,&100,0:ȓ workx%+233,worky%-248,176,49
2d"ȓ workx%+270,worky%-58,344,34
2n#ȓ workx%+270,worky%-114,344,34
2x#ȓ workx%+270,worky%-170,344,34
2�geecol=hex
2��
2� ��dragcol
2� !block=colour%
2�!ș"Wimp_GetWindowInfo",,block
2�workx%=block!4-block!20
2�worky%=block!16-block!24
2�
 ȗ r,s,t
2�I � r>workx%+268 � r<workx%+268+348 � s>worky%-58 � s<worky%-(58-35) �
2�& ȗ ȓ workx%+270,worky%-57,344,30
2�&nred=�(((r-(workx%+270))/344)*255)
2�� nred=-1 nred=0
2��info(colour%,3,�nred)
3RED=nred
3ș "Wimp_SetColour",1,1
3Aȓ Ȑ workx%+272+(RED/255)*344,worky%-55,342-(RED/255)*344,30
3"/ș "ColourTrans_SetGCOL",&0000FF00,,,&100,0
3,/ȓ Ȑ workx%+270,worky%-55,(RED/255)*344,30
36'ș "ColourTrans_SetGCOL",0,,,&100,0
3@"ȓ workx%+270,worky%-58,344,34
3J'hex=(BLUE<<24)+(GREEN<<16)+(RED<<8)
3T)ș "ColourTrans_SetGCOL",hex,,,&100,0
3^&ȓ Ȑ workx%+234,worky%-247,175,48
3hGș "ColourTrans_SetGCOL",0,,,&100,0:ȓ workx%+233,worky%-248,176,49
3r!ȗ r,s,t:� t=1 � t=4 �dragcol
3|	�Mode
3�ȗ ȓ 0,0,xmax-1,ymax-1
3� �
3��
3�J� r>workx%+268 � r<workx%+268+348 � s>worky%-114 � s<worky%-(114-35) �
3�&ȗ ȓ workx%+270,worky%-112,344,30
3�(ngreen=�(((r-(workx%+270))/344)*255)
3�� ngreen=-1 ngreen=0
3��info(colour%,7,�ngreen)
3�GREEN=ngreen
3�ș "Wimp_SetColour",1,1
3�Fȓ Ȑ workx%+272+(GREEN/255)*344,worky%-111,342-(GREEN/255)*344,30
3�/ș "ColourTrans_SetGCOL",&00FF0000,,,&100,0
3�2ȓ Ȑ workx%+271,worky%-111,(GREEN/255)*344,30
4'ș "ColourTrans_SetGCOL",0,,,&100,0
4#ȓ workx%+270,worky%-114,344,34
4'hex=(BLUE<<24)+(GREEN<<16)+(RED<<8)
4&)ș "ColourTrans_SetGCOL",hex,,,&100,0
40&ȓ Ȑ workx%+234,worky%-247,175,48
4:Gș "ColourTrans_SetGCOL",0,,,&100,0:ȓ workx%+233,worky%-248,176,49
4D!ȗ r,s,t:� t=1 � t=4 �dragcol
4N	�Mode
4Xȗ ȓ 0,0,xmax-1,ymax-1
4b�
4l�
4vJ� r>workx%+268 � r<workx%+268+348 � s>worky%-170 � s<worky%-(170-35) �
4�&ȗ ȓ workx%+270,worky%-168,344,30
4�'nblue=�(((r-(workx%+270))/344)*255)
4�� nblue=-1 nblue=0
4�BLUE=nblue
4��info(colour%,11,�nblue)
4�ș "Wimp_SetColour",1,1
4�Fȓ Ȑ workx%+272+(BLUE/255)*344,worky%-167,342-((BLUE/255)*344),30
4�/ș "ColourTrans_SetGCOL",&FF000000,,,&100,0
4�1ȓ Ȑ workx%+270,worky%-167,(BLUE/255)*344,30
4�'ș "ColourTrans_SetGCOL",0,,,&100,0
4�#ȓ workx%+270,worky%-170,344,34
4�'hex=(BLUE<<24)+(GREEN<<16)+(RED<<8)
4�)ș "ColourTrans_SetGCOL",hex,,,&100,0
5&ȓ Ȑ workx%+234,worky%-247,175,48
5Gș "ColourTrans_SetGCOL",0,,,&100,0:ȓ workx%+233,worky%-248,176,49
5
� Blue
5 !ȗ r,s,t:� t=1 � t=4 �dragcol
5*	�Mode
54ȗ ȓ 0,0,xmax-1,ymax-1
5>�
5H�
5R�
5\
��app_re3
5f workx%=block!4-block!20
5p worky%=block!16-block!24
5z-ș "ColourTrans_SetGCOL",hexc(1),,,&100,0
5�%ȓ Ȑ workx%+1122,worky%-58,50,42
5�-ș "ColourTrans_SetGCOL",hexc(2),,,&100,0
5�&ȓ Ȑ workx%+1122,worky%-116,50,42
5�-ș "ColourTrans_SetGCOL",hexc(3),,,&100,0
5�&ȓ Ȑ workx%+1122,worky%-180,50,42
5�-ș "ColourTrans_SetGCOL",hexc(4),,,&100,0
5�&ȓ Ȑ workx%+1122,worky%-430,50,42
5�� curspr$<>"" �
5�curss$=curspr$
5�� �curss$<12 �
5��
5�curss$+=�0
5�� �curss$=12
6-ș "ColourTrans_SetGCOL",hexc(0),,,&100,0
6'ȓ Ȑ workx%+400,worky%-352,163,144
64ș &2E,256+40,spr%,curspr$ � A,B,C,w%,h%,D,mode%
6$.ș"OS_ReadModeVariable",mode%,3 �c,cl,cols
6.,ș"OS_ReadModeVariable",mode%,4 �,,xeig%
68,ș"OS_ReadModeVariable",mode%,5 �,,yeig%
6Bwi%=w%<<xeig%
6Lhe%=h%<<yeig%
6V� spr%!4>0 �
6`next=spr%!8
6j�
6tadd=next+4
6~offset=spr%!add
6�name$=""
6��
6�name$+=�spr%!add
6�
add+=1
6�� add=next+16
6�old=next
6�next+=spr%!next
6�� curss$=name$
6�� spr%!(32+old)>44 �
6�� col%=0 � 15
6�+palette%!(col%*4)=!(old+44+col%*8+spr%)
6�
� col%
7Hș "ColourTrans_SelectTable",!(40+old+spr%),palette%,-1,-1,scalblok%
7
�
7Gș "ColourTrans_SelectTable",!(40+old+spr%),defpal%,-1,-1,scalblok%
7�
7(�
72xoff=0:yoff=0
7<� �vga(mode%) �
7F� h%>w% shear=72 � shear=82
7P�
7Z#� (h%*2)>w% shear=36 � shear=82
7d�
7n%ș"OS_ReadModeVariable",�,11 �,,C
7x%ș"OS_ReadModeVariable",�,12 �,,B
7�
C+=1:B+=1
7�C� B/C=.8 � �vga(mode%) � hscale=1: � 1 means VGA, square pixels
7�&� B/C=.75 � �vga(mode%) � hscale=1
7�/� B/C<>.8 � B/C<>.75 � �vga(mode%) hscale=2
7�*� B/C=.8 � B/C=.75 � modsc=1 � modsc=2
7�$Shear=�checkflag(details%,29,21)
7�Ȏ Shear �
7�� �
7�'� B/C=.8 � � �vga(mode%) � hscale=1
7�(� B/C=.75 � � �vga(mode%) � hscale=1
7�1� B/C<>.8 � B/C<>.75 � � �vga(mode%) hscale=2
7�?� �vga(mode%) � w%>82 � h%>72 � h%<w% � SCw=w%/82:SCh=w%/82
7�=� �vga(mode%) � w%>82 � h%>72 � h%>w% � SCh=h%/72:SCw=SCh
8L� � �vga(mode%) � w%>82 � h%*2>72 � h%*2<w% � SCw=(w%/82):SCh=SCw*hscale
8V� � �vga(mode%) � w%>82 � h%*2>72 � h%*2>w% � SCh=(h%/(72/hscale))*2:SCw=(h%/72)*2
8(� w%>82 � h%<72 � SCw=w%/shear:SCh=1
8"1� w%<82 � h%>72 � SCw=1:SCh=h%/(shear/hscale)
8,
� force �
86H� w%<82 � h%<72 � h%=w% � �vga(mode%) � SCh=h%/(72/hscale):SCw=w%/72
8@N� w%<82 � h%<72 � h%<w% � �vga(mode%) � SCw=w%/shear:SCh=w%/(shear/hscale)
8JN� w%<82 � h%<72 � h%>w% � �vga(mode%) � SCw=h%/shear:SCh=h%/(shear/hscale)
8TL� w%<82 � h%<72 � h%*2=w% � � �vga(mode%) � SCh=h%/(36/hscale):SCw=w%/72
8^T� w%<82 � h%<36 � (h%*2)<w% � � �vga(mode%) � SCw=w%/shear:SCh=w%/(shear/hscale)
8hT� w%<82 � h%<36 � (h%*2)>w% � � �vga(mode%) � SCw=h%/shear:SCh=h%/(shear/hscale)
8r�
8|%� w%<82 � h%<72 � SCw=1:SCh=modsc
8��
8� Ȏ centred �
8�	  � �
8�1 � �vga(mode%) � � force � h%*SCh=72 � yoff=0
8�; � �vga(mode%) � � force � h%*SCh<70 � yoff=72-(h%*SCh)
8�3 � �vga(mode%) � force � yoff=(72-((1/SCh)*h%))
8�5 � � �vga(mode%) � force yoff=(72-((1/SCh)*h%))/2
8�8 � � �vga(mode%) � h%/SCh<36 � yoff=�(36-(h%/SCh))*2
8�* � � �vga(mode%) � h%/SCh>=35 � yoff=0
8� xoff=(82-((1/SCw)*w%))
8�; � force � h%>72 � w%>82 � h%<w% � �vga(mode%) � xoff=0
8�; � force � h%>72 � w%>82 � h%>w% � �vga(mode%) � yoff=0
8�3 � force � h%=w% � �vga(mode%) � xoff=10:yoff=0
97 � force � h%*2=w% � � �vga(mode%) � xoff=10:yoff=0
9C � force � h%*2>72 � w%>82 � (h%*2)<w% � � �vga(mode%) � xoff=0
9C � force � h%*2>72 � w%>82 � (h%*2)>w% � � �vga(mode%) � yoff=0
9& �
90� �
9:'� B/C=.8 � � �vga(mode%) � hscale=2
9D(� B/C=.75 � � �vga(mode%) � hscale=2
9N1� B/C<>.8 � B/C<>.75 � � �vga(mode%) hscale=4
9X SCw=w%/82:SCh=h%/(72/hscale)
9b�
9l[!scal%=wi%:scal%!4=he%:scal%!8=�((w%/((1/SCw)/2))+0.5):scal%!12=�((h%/((1/SCh)/2))+0.5)
9vMș 46,&134,spr%,curspr$,workx%+400+xoff,worky%-352+yoff,8,scal%,scalblok%
9��
9��
9���addcol
9�hexc(io)=hex
9��close(colour%)
9� !block=details%
9�" ș"Wimp_GetWindowInfo",,block
9� workx%=block!4-block!20
9� worky%=block!16-block!24
9� Ȏ io �
9�	 � 1:
9�H ș"Wimp_ForceRedraw",-1,workx%+1120,worky%-58,workx%+1180,worky%-10
9� �redraw(card%)
:	 � 2:
:I ș"Wimp_ForceRedraw",-1,workx%+1120,worky%-120,workx%+1180,worky%-72
: �redraw(card%)
: 	 � 3:
:*J ș"Wimp_ForceRedraw",-1,workx%+1120,worky%-182,workx%+1180,worky%-134
:4 �redraw(card%)
:>	 � 4:
:HJ ș"Wimp_ForceRedraw",-1,workx%+1120,worky%-430,workx%+1180,worky%-382
:R �redraw(card%)
:\	 � 0:
:fH ș"Wimp_ForceRedraw",-1,workx%+400,worky%-352,workx%+564,worky%-210
:p �redraw(card%)
:z �
:��
:���drawsprite
:�� curspr$="" �
:�!block=details%
:�!ș"Wimp_GetWindowInfo",,block
:�workx%=block!4-block!20
:�worky%=block!16-block!24
:�Gș"Wimp_ForceRedraw",-1,workx%+400,worky%-352,workx%+564,worky%-208
:�!block=card%
:�"ș"Wimp_GetWindowState",,block
:�open=block!32 � (1<<16)
:�� open<>0 �
:�!block=card%
;!ș"Wimp_GetWindowInfo",,block
;workx%=block!4-block!20
;worky%=block!16-block!24
;$Gș"Wimp_ForceRedraw",-1,workx%+390,worky%-300,workx%+564,worky%-156
;.�
;8�
;B�
;Lݤclaim(amount%)
;V(ș"OS_Heap",6,heap%,sppool% � ,,,ohs
;`4ș"OS_Heap",4,heap%,sppool%,1024-ohs � ,,sppool%
;jV� origheap-hsizeb<0 � ș"OS_Heap",5,heap%,,origheap-hsizeb:hsizeb+=origheap-hsizeb
;t%ș"Wimp_SlotSize",-1,-1 � current
;~ș"Wimp_SlotSize",orig,-1
;��
;�!� amount%>512 � amount%<max �
;�8ș"OS_Heap",4,heap%,sppool%,amount%-1024 � ,,sppool%
;��
;�!� amount%>512 � amount%>max �
;�0ș"Wimp_SlotSize",orig+(amount%-max)+1024,-1
;�&increase=(amount%-hsizeb)�4*4+1024
;�!ș"OS_Heap",5,heap%,,increase
;�hsizeb+=increase
;�8ș"OS_Heap",4,heap%,sppool%,amount%-1024 � ,,sppool%
;��
;�=sppool%
<ݤvga(mod)
<
'ș"OS_ReadModeVariable",mod,11 �,,c
<'ș"OS_ReadModeVariable",mod,12 �,,b
<
c+=1:b+=1
<(Ȏ b/c �
<2
� 0.8:g=�
<<
� .75:g=�
<F
: g=�
<P�
<Z=g
<d��areyousure
<n� � savef �
<x�openwin(quit%)
<�� 7
<�1�info(quit%,1,"Your file has been modified.")
<�M!block=130:block!4=131:block!8=-1:ș"OS_ReadVduVariables",block,block+128
<�%ș"OS_ReadModeVariable",�,4 � ,,x
<�%ș"OS_ReadModeVariable",�,5 � ,,y
<�9ȗ ȓ 0,0,(((block!128)+1)*2^x)-1,((block!132)+1)*2^y
<��
<�2� savef șreinter,mytask%:ș"Wimp_CloseDown":�
<��
<���query(qu$)
<��openwin(query%)
<�� 7
<�!block=query%
=!ș"Wimp_GetWindowInfo",,block
=workx%=block!12-block!4
=worky%=block!16-block!8
="'ȗ ȓ block!4,block!8,workx%,worky%
=,�info(query%,1,qu$)
=6�
=@
��endq
=J�close(query%)
=TM!block=130:block!4=131:block!8=-1:ș"OS_ReadVduVariables",block,block+128
=^%ș"OS_ReadModeVariable",�,4 � ,,x
=h%ș"OS_ReadModeVariable",�,5 � ,,y
=r9ȗ ȓ 0,0,(((block!128)+1)*2^x)-1,((block!132)+1)*2^y
=|�
=���title(handle,new$)
=�!icond=handle
=�!ș"Wimp_GetWindowInfo",,icond
=�title$=$(icond!76)
=�� new$="" �
=�@� �title$,�(title$)-�(title$)+1)<>"*" � new$=title$+" *":� �
=��
=�a_p% = !(icond+76):$_p%=new$:ș"Wimp_ForceRedraw",-1,icond!4,(icond!16),icond!12,(icond!16)+36
=��
=���print
=�!noofpages=�($�info(print%,4))
=�f� $�info(print%,0)="Not Present" � �query("Can not print, no printer driver present."):noprint=�:�
=�f� �checkflag(print%,6,21) � copies$="single card.":fullsheet=0:� copies$="full sheet.":fullsheet=1
>/ș "ColourTrans_SetGCOL",&DDDDDD00,,,&100,0
>ȓ Ȑ 288,466,738,194
>'ș "ColourTrans_SetGCOL",0,,,&100,0
>&ȓ 286,464,740,196
>0ș"Wimp_CreateMenu",,-1
>:� 5
>D
� 410,630
>N� "Printing in progress..."
>X
� 380,580
>b.� "Prining ";noofpages;" copies, ";copies$
>l
� 400,530
>v� "Press Escape to cancel"
>�� 4
>�printing=�
>�
fh%=-1
>�� �
>�� � �:� �:�printerr:�
>�ș"Hourglass_On"
>�fh%=�("printer:")
>�#ș"PDriver_SelectJob",fh% � job
>�(ș"PDriver_PageSize" �,,,l%,b%,r%,t%
>�
box!0=-10
>�Jmatrix!0=66000:matrix!4=0:matrix!8=0:matrix!12=66000:� 66000,0,0,66000
>�`� fullsheet=1 origin!0=l%:origin!4=75000:box!8=(290*2.5)+580:box!12=(625*2.5)+400:box!4=-200
>�L� fullsheet=0 origin!0=l%:origin!4=623000:box!8=590:box!12=390:box!4=-10
?;ș"PDriver_GiveRectangle",0,box,matrix,origin,&FFFFFF00
?2ș"PDriver_DrawPage",noofpages,box2,0,0 � more
?ȕ more<>0
? 	�draw
?**ș"PDriver_GetRectangle",0,box2 � more
?4�
?>ș"PDriver_EndJob",fh%
?H	�#fh%
?Rș"PDriver_SelectJob",job
?\ș"Hourglass_Smash"
?f3ș"Wimp_ForceRedraw",-1,286,464,740+288,196+466
?p�
?z
��draw
?�� fullsheet=1 �
?�� cardco=1 � 16 � 2
?�8�drawcard(cardpos(cardco)*2.5,cardpos(cardco+1)*2.5)
?�:�cardsprite(cardpos(cardco)*2.5,cardpos(cardco+1)*2.5)
?�� cardco
?��
?��drawcard(10,380)
?��cardsprite(10,380)
?��
?��
?���drawcard(pxco,pyco)
?�-ș "ColourTrans_SetGCOL",hexc(0),,,&100,0
?�!ȓ Ȑ pxco+8,pyco-386,566,378
@'ș "ColourTrans_SetGCOL",0,,,&100,0
@ȓ pxco+6,pyco-386,568,380
@ȓ pxco+4,pyco-388,568,380
@$9name$=$�info(details%,0):fontname$=$�info(details%,3)
@.@sizename=�($�info(details%,31)):hname=�($�info(details%,13))
@8;extra$=$�info(details%,5):fontextra$=$�info(details%,2)
@BBsizeextra=�($�info(details%,32)):hextra=�($�info(details%,14))
@L8ad1$=$�info(details%,6):fontad1$=$�info(details%,19)
@V>sizead1=�($�info(details%,33)):had1=�($�info(details%,17))
@`ad2$=$�info(details%,7)
@jad3$=$�info(details%,18)
@tad4$=$�info(details%,10)
@~8tel$=$�info(details%,21):fonttel$=$�info(details%,4)
@�>sizetel=�($�info(details%,34)):htel=�($�info(details%,15))
@�R� sizename=0 � sizename=20:�mess("Font sizes can not be 0"):nono=1:ns=20:ni=13
@�T� sizeextra=0 � sizeextra=16:�mess("Font sizes can not be 0"):nono=1:ns=16:ni=14
@�P� sizead1=0 � sizead1=14:�mess("Font sizes can not be 0"):nono=1:ns=14:ni=17
@�P� sizetel=0 � sizetel=16:�mess("Font sizes can not be 0"):nono=1:ns=16:ni=15
@�font$=fontname$
@�,x=�width(name$,fontname$,sizename,hname)
@�]� x=0 � name$<>"" � �mess("The name text is too long or the font is too large"):close=1:�
@� xco=566-x:xco=xco/2:
@�: ș "ColourTrans_SetFontColours",font%,hexc(1),hexc(1)
@�4 ș"Font_Paint",,name$,%10010,pxco+xco+8,pyco-70
@�-ș "ColourTrans_SetGCOL",hexc(1),,,&100,0
A,ȓ Ȑpxco+xco+5,pyco-74,566-xco-xco+3,-4
A
font$=fontextra$
A0x=�width(extra$,fontextra$,sizeextra,hextra)
A_� x=0 � extra$<>"" � �mess("The trade text is too long or the font is too large"):close=1:�
A(xco=566-x:xco=xco/2
A2: ș "ColourTrans_SetFontColours",font%,hexc(2),hexc(2)
A<5ș"Font_Paint",,extra$,%10010,pxco+xco+8,pyco-130
AFfont$=fontad1$
AP(x=�width(ad1$,fontad1$,sizead1,had1)
AZk� ad1$>"" � x=0 � x>530  � �mess("The 1st address text is too long or the font is too large"):close=1:�
Ad: ș "ColourTrans_SetFontColours",font%,hexc(3),hexc(3)
An0ș"Font_Paint",,ad1$,%10010,pxco+38,pyco-185
Ax(x=�width(ad2$,fontad1$,sizead1,had1)
A�j� ad2$>"" � x=0 � x>560 � �mess("The 2nd address text is too long or the font is too large"):close=1:�
A�0ș"Font_Paint",,ad2$,%10010,pxco+38,pyco-225
A�(x=�width(ad3$,fontad1$,sizead1,had1)
A�j� ad3$>"" � x=0 � x>560 � �mess("The 3rd address text is too long or the font is too large"):close=1:�
A�0ș"Font_Paint",,ad3$,%10010,pxco+38,pyco-265
A�(x=�width(ad4$,fontad1$,sizead1,had1)
A�j� ad4$>"" � x=0 � x>560 � �mess("The 4th address text is too long or the font is too large"):close=1:�
A�0ș"Font_Paint",,ad4$,%10010,pxco+38,pyco-305
A�font$=fonttel$
A�2x=�width("Tel :- "+tel$,fonttel$,sizetel,htel)
A�a� x=0 � tel$<>"" � �mess("The telephone text is too long or the font is too large"):close=1:�
A�xco=566-x:xco-=16
A�: ș "ColourTrans_SetFontColours",font%,hexc(4),hexc(4)
B;ș"Font_Paint",,"Tel :- "+tel$,%10010,pxco+xco,pyco-360
B�
B��printerr
B"� �=17 �
B,ș"PDriver_AbortJob",fh%:
B6!� SYS"PDriver_SelectJob",job:
B@	�#fh%
BJ#�mess("Escape: Print Canceled")
BT%ș"OS_ReadModeVariable",�,4 � ,,x
B^%ș"OS_ReadModeVariable",�,5 � ,,y
Bh9ȗ ȓ 0,0,(((block!128)+1)*2^x)-1,((block!132)+1)*2^y
Brș"Hourglass_Smash"
B|3ș"Wimp_ForceRedraw",-1,286,464,740+288,196+466
B��
B��
B�H� fh%<>-1 � ș"PDriver_AbortJob",fh%:ș"PDriver_SelectJob",job:�#fh%
B�ș"Hourglass_Smash"
B�%ș"OS_ReadModeVariable",�,4 � ,,x
B�%ș"OS_ReadModeVariable",�,5 � ,,y
B�9ȗ ȓ 0,0,(((block!128)+1)*2^x)-1,((block!132)+1)*2^y
B�3ș"Wimp_ForceRedraw",-1,286,464,740+288,196+466
B�3�error(�$+": at line "+Þ+" whilst printing"):�
B��
B���morecopies
B� � �($�info(print%,4))=99 � �
B�*�info(print%,4,�(�$�info(print%,4)+1))
C�
C��lesscopies
C� �($�info(print%,4))=1 � �
C&*�info(print%,4,�(�$�info(print%,4)-1))
C0�
C:��upanddown(icn)
CD0!block=colour%:ș"Wimp_GetWindowInfo",,block
CNworkx%=block!4-block!20
CXworky%=block!16-block!24
Cbvaluer=�$�info(colour%,3)
Clvalueg=�$�info(colour%,7)
Cvvalueb=�$�info(colour%,11)
C�Ȏ icn �
C�� 1:
C��� valuer>0 �info(colour%,3,�(valuer-1)):hex=(valueb<<24)+(valueg<<16)+(valuer<<8):ș"Wimp_ForceRedraw",-1,workx%+270,worky%-58,workx%+614,worky%-24:ș"Wimp_ForceRedraw",-1,workx%+234,worky%-247,workx%+410,worky%-199:� �
C�� 2:
C��� valuer<255 �info(colour%,3,�(valuer+1)):hex=(valueb<<24)+(valueg<<16)+(valuer<<8):ș"Wimp_ForceRedraw",-1,workx%+270,worky%-58,workx%+614,worky%-24:ș"Wimp_ForceRedraw",-1,workx%+234,worky%-247,workx%+410,worky%-199:� �
C�� 5:
C��� valueg>0 �info(colour%,7,�(valueg-1)):hex=(valueb<<24)+(valueg<<16)+(valuer<<8):ș"Wimp_ForceRedraw",-1,workx%+270,worky%-114,workx%+614,worky%-80:ș"Wimp_ForceRedraw",-1,workx%+234,worky%-247,workx%+410,worky%-199:� �
C�� 6:
C��� valueg<255 �info(colour%,7,�(valueg+1)):hex=(valueb<<24)+(valueg<<16)+(valuer<<8):ș"Wimp_ForceRedraw",-1,workx%+270,worky%-114,workx%+614,worky%-80:ș"Wimp_ForceRedraw",-1,workx%+234,worky%-247,workx%+410,worky%-199:� �
C�� 9:
C��� valueb>0 �info(colour%,11,�(valueb-1)):hex=(valueb<<24)+(valueg<<16)+(valuer<<8):ș"Wimp_ForceRedraw",-1,workx%+270,worky%-170,workx%+614,worky%-136:ș"Wimp_ForceRedraw",-1,workx%+234,worky%-247,workx%+410,worky%-199:� �
C�	� 10:
C��� valueb<255 �info(colour%,11,�(valueb+1)):hex=(valueb<<24)+(valueg<<16)+(valuer<<8):ș"Wimp_ForceRedraw",-1,workx%+270,worky%-170,workx%+614,worky%-136:ș"Wimp_ForceRedraw",-1,workx%+234,worky%-247,workx%+410,worky%-199:� �
D�
D�
D��setper
D RED=(hex>>8)�&FF
D*GREEN=(hex>>16)�&FF
D4BLUE=(hex>>24)�&FF
D>�info(colour%,3,�RED)
DH�info(colour%,7,�GREEN)
DR�info(colour%,11,�BLUE)
D\�openwin(colour%)
Df0!block=colour%:ș"Wimp_GetWindowInfo",,block
Dpworkx%=block!4-block!20
Dzworky%=block!16-block!24
D�Fș"Wimp_ForceRedraw",-1,workx%+270,worky%-170,workx%+614,worky%-24
D�Gș"Wimp_ForceRedraw",-1,workx%+234,worky%-247,workx%+410,worky%-199
D��
D�
D�
�

00000000  0d 00 0a 25 ee 20 85 20  f2 65 72 72 6f 72 28 f6  |...%. . .error(.|
00000010  24 2b 22 20 3a 20 61 74  20 6c 69 6e 65 20 22 2b  |$+" : at line "+|
00000020  c3 9e 29 3a e0 0d 00 14  1c f4 20 2a 2a 2a 3e 24  |..):...... ***>$|
00000030  2e 21 43 61 72 64 32 2e  21 52 75 6e 49 6d 61 67  |.!Card2.!RunImag|
00000040  65 0d 00 1e 38 f4 20 2a  2a 2a 4d 61 69 6e 20 50  |e...8. ***Main P|
00000050  72 6f 67 72 61 6d 20 66  6f 72 20 21 43 61 72 64  |rogram for !Card|
00000060  32 20 2d 20 42 75 73 69  6e 65 73 73 20 43 61 72  |2 - Business Car|
00000070  64 20 63 72 65 61 74 6f  72 0d 00 28 34 f4 20 56  |d creator..(4. V|
00000080  65 72 73 69 6f 6e 20 32  2e 30 35 20 28 31 37 20  |ersion 2.05 (17 |
00000090  41 70 72 69 6c 20 27 39  34 29 20 2d 20 44 65 62  |April '94) - Deb|
000000a0  75 67 67 65 64 20 56 65  72 73 69 6f 6e 0d 00 32  |ugged Version..2|
000000b0  12 f4 20 a9 20 4a 2e 20  52 6f 62 62 69 6e 73 0d  |.. . J. Robbins.|
000000c0  00 3c 63 de 20 62 6c 6f  63 6b 20 31 30 2a 31 30  |.<c. block 10*10|
000000d0  32 34 2c 20 6d 62 6c 6f  63 6b 20 31 30 32 34 2c  |24, mblock 1024,|
000000e0  20 6d 65 6e 75 25 20 36  2a 31 30 32 34 2c 20 63  | menu% 6*1024, c|
000000f0  75 72 62 75 66 25 20 20  35 2a 31 30 32 34 2c 20  |urbuf%  5*1024, |
00000100  69 63 6f 6e 64 20 35 2a  31 30 32 34 2c 20 71 25  |icond 5*1024, q%|
00000110  20 31 30 32 34 2c 20 74  65 78 74 25 20 26 31 30  | 1024, text% &10|
00000120  30 30 0d 00 46 0e 6d 61  78 6c 65 76 25 3d 33 32  |00..F.maxlev%=32|
00000130  0d 00 50 23 de 20 73 74  61 72 74 25 28 6d 61 78  |..P#. start%(max|
00000140  6c 65 76 25 29 2c 62 6f  78 25 28 6d 61 78 6c 65  |lev%),box%(maxle|
00000150  76 25 29 0d 00 5a 35 de  20 6c 25 28 6d 61 78 6c  |v%)..Z5. l%(maxl|
00000160  65 76 25 29 2c 62 25 28  6d 61 78 6c 65 76 25 29  |ev%),b%(maxlev%)|
00000170  2c 72 25 28 6d 61 78 6c  65 76 25 29 2c 74 25 28  |,r%(maxlev%),t%(|
00000180  6d 61 78 6c 65 76 25 29  0d 00 64 19 de 20 68 65  |maxlev%)..d.. he|
00000190  78 63 28 34 29 2c 64 65  66 70 61 6c 25 20 32 35  |xc(4),defpal% 25|
000001a0  35 0d 00 6e 4a de 20 73  63 61 6c 25 20 32 30 2c  |5..nJ. scal% 20,|
000001b0  73 63 61 6c 62 6c 6f 6b  25 20 32 35 35 2c 74 65  |scalblok% 255,te|
000001c0  6d 70 25 20 31 30 30 2c  70 61 6c 65 74 74 65 25  |mp% 100,palette%|
000001d0  20 32 35 35 2c 77 69 6e  70 61 6c 28 31 35 29 2c  | 255,winpal(15),|
000001e0  63 61 72 64 70 6f 73 28  31 36 29 0d 00 78 2f de  |cardpos(16)..x/.|
000001f0  20 6d 61 74 72 69 78 20  31 30 30 2c 20 6f 72 69  | matrix 100, ori|
00000200  67 69 6e 20 31 30 30 2c  20 62 6f 78 20 31 30 30  |gin 100, box 100|
00000210  2c 20 62 6f 78 32 20 31  30 30 0d 00 82 0e e3 20  |, box2 100..... |
00000220  63 3d 31 20 b8 20 31 36  0d 00 8c 07 f3 20 61 0d  |c=1 . 16..... a.|
00000230  00 96 10 63 61 72 64 70  6f 73 28 63 29 3d 61 0d  |...cardpos(c)=a.|
00000240  00 a0 05 ed 0d 00 aa 16  20 68 65 78 63 28 30 29  |........ hexc(0)|
00000250  3d 26 46 46 46 46 46 46  30 30 0d 00 b4 0e e3 20  |=&FFFFFF00..... |
00000260  49 3d 30 20 b8 20 31 35  0d 00 be 0a f3 20 68 65  |I=0 . 15..... he|
00000270  78 61 0d 00 c8 12 77 69  6e 70 61 6c 28 49 29 3d  |xa....winpal(I)=|
00000280  68 65 78 61 0d 00 d2 16  64 65 66 70 61 6c 25 21  |hexa....defpal%!|
00000290  28 49 2a 34 29 3d 68 65  78 61 0d 00 dc 05 ed 0d  |(I*4)=hexa......|
000002a0  00 e6 3f dc 20 32 35 2c  36 32 35 2c 32 39 30 2c  |..?. 25,625,290,|
000002b0  36 32 35 2c 32 35 2c 34  34 35 2c 32 39 30 2c 34  |625,25,445,290,4|
000002c0  34 35 2c 32 35 2c 32 36  35 2c 32 39 30 2c 32 36  |45,25,265,290,26|
000002d0  35 2c 32 35 2c 38 35 2c  32 39 30 2c 38 35 0d 00  |5,25,85,290,85..|
000002e0  f0 50 dc 20 26 46 46 46  46 46 46 31 30 2c 26 44  |.P. &FFFFFF10,&D|
000002f0  44 44 44 44 44 31 30 2c  26 42 42 42 42 42 42 31  |DDDDD10,&BBBBBB1|
00000300  30 2c 26 39 39 39 39 39  39 31 30 2c 26 37 37 37  |0,&99999910,&777|
00000310  37 37 37 31 30 2c 26 35  35 35 35 35 35 31 30 2c  |77710,&55555510,|
00000320  26 33 33 33 33 33 33 31  30 2c 26 30 31 30 0d 00  |&33333310,&010..|
00000330  fa 49 dc 20 26 39 39 34  34 30 30 31 30 2c 26 45  |.I. &99440010,&E|
00000340  45 45 45 31 30 2c 26 43  43 30 30 31 30 2c 26 44  |EEE10,&CC0010,&D|
00000350  44 31 30 2c 26 42 42 45  45 45 45 31 30 2c 26 38  |D10,&BBEEEE10,&8|
00000360  38 35 35 31 30 2c 26 42  42 46 46 31 30 2c 26 46  |85510,&BBFF10,&F|
00000370  46 42 42 30 30 31 30 0d  01 04 46 20 65 6e 64 25  |FBB0010...F end%|
00000380  3d 2d 31 3a 74 65 78 74  63 3d a3 3a 63 61 72 64  |=-1:textc=.:card|
00000390  62 3d a3 3a 68 65 78 3d  30 3a 52 45 44 3d 28 68  |b=.:hex=0:RED=(h|
000003a0  65 78 3e 3e 38 29 80 26  46 46 3a 42 4c 55 45 3d  |ex>>8).&FF:BLUE=|
000003b0  52 45 44 3a 47 52 45 45  4e 3d 52 45 44 0d 01 0e  |RED:GREEN=RED...|
000003c0  19 65 6e 64 62 75 66 25  3d 63 75 72 62 75 66 25  |.endbuf%=curbuf%|
000003d0  2b 26 36 30 30 30 0d 01  18 36 70 69 63 6d 65 6e  |+&6000...6picmen|
000003e0  75 33 24 3d 22 22 3a 70  69 63 6d 65 6e 75 32 24  |u3$="":picmenu2$|
000003f0  3d 22 22 3a 70 69 63 6d  65 6e 75 24 3d 22 22 3a  |="":picmenu$="":|
00000400  70 69 63 6d 65 6e 75 34  24 3d 22 22 0d 01 22 56  |picmenu4$="".."V|
00000410  6a 3d 30 3a 67 65 65 3d  30 3a 67 65 65 63 75 73  |j=0:gee=0:geecus|
00000420  3d 30 3a 66 61 6d 69 6c  79 24 3d 22 54 72 69 6e  |=0:family$="Trin|
00000430  69 74 79 2e 4d 65 64 69  75 6d 22 3a 66 73 69 7a  |ity.Medium":fsiz|
00000440  65 3d 31 32 3a 69 6e 3d  a3 3a 63 6c 6f 73 65 3d  |e=12:in=.:close=|
00000450  30 3a 6e 6f 6e 6f 3d 30  3a 6e 73 3d 30 3a 6e 69  |0:nono=0:ns=0:ni|
00000460  3d 30 0d 01 2c 49 73 61  76 65 66 3d b9 3a 6e 6f  |=0..,Isavef=.:no|
00000470  70 72 69 6e 74 3d a3 3a  70 72 69 6e 74 69 6e 67  |print=.:printing|
00000480  3d a3 3a 71 75 69 74 69  6e 67 3d a3 3a 66 75 6c  |=.:quiting=.:ful|
00000490  6c 3d a3 3a 70 72 65 71  75 69 74 3d a3 3a 70 72  |l=.:prequit=.:pr|
000004a0  65 71 75 69 74 77 61 69  74 3d a3 0d 01 36 1a 66  |equitwait=...6.f|
000004b0  6d 63 72 65 61 74 65 64  25 3d a3 3a 66 63 6f 75  |mcreated%=.:fcou|
000004c0  6e 74 25 3d 30 0d 01 40  12 72 65 69 6e 74 65 72  |nt%=0..@.reinter|
000004d0  3d 26 38 31 36 38 33 0d  01 4a 42 c8 99 20 22 57  |=&81683..JB.. "W|
000004e0  69 6d 70 5f 49 6e 69 74  69 61 6c 69 73 65 22 2c  |imp_Initialise",|
000004f0  32 30 30 2c 26 34 42 35  33 34 31 35 34 2c 22 21  |200,&4B534154,"!|
00000500  43 61 72 64 32 22 20 b8  20 76 65 72 73 69 6f 6e  |Card2" . version|
00000510  25 2c 6d 79 74 61 73 6b  25 0d 01 54 24 c8 99 20  |%,mytask%..T$.. |
00000520  22 57 69 6d 70 5f 43 6c  61 69 6d 49 6e 74 65 72  |"Wimp_ClaimInter|
00000530  66 61 63 65 22 2c 6d 79  74 61 73 6b 25 0d 01 5e  |face",mytask%..^|
00000540  4a 65 6e 64 25 3d a3 3a  64 72 61 67 25 3d 30 3a  |Jend%=.:drag%=0:|
00000550  64 72 69 76 65 25 3d 30  3a 73 66 69 6c 65 24 3d  |drive%=0:sfile$=|
00000560  22 22 3a 53 68 65 61 72  3d b9 3a 63 75 72 73 70  |"":Shear=.:cursp|
00000570  72 24 3d 22 22 3a 70 72  6f 67 6e 65 65 64 3d 31  |r$="":progneed=1|
00000580  31 32 2a 31 30 32 34 0d  01 68 60 73 69 7a 65 25  |12*1024..h`size%|
00000590  3d 34 38 3a 66 6f 6e 74  25 3d 2d 31 3a 66 61 6d  |=48:font%=-1:fam|
000005a0  69 6c 79 25 3d 30 3a 73  74 79 6c 65 25 3d 2d 31  |ily%=0:style%=-1|
000005b0  3a 6e 5f 66 6f 6e 74 25  3d 31 3a 6e 6f 6f 66 63  |:n_font%=1:noofc|
000005c0  61 72 64 73 3d 38 3a 66  6f 72 63 65 3d a3 3a 63  |ards=8:force=.:c|
000005d0  65 6e 74 72 65 64 3d a3  3a 62 6f 78 69 74 3d b9  |entred=.:boxit=.|
000005e0  3a 74 69 6c 65 3d a3 0d  01 72 0d f2 74 65 6d 70  |:tile=...r..temp|
000005f0  6c 61 74 65 0d 01 7c 19  c8 99 20 22 4f 53 5f 47  |late..|... "OS_G|
00000600  65 74 45 6e 76 22 20 b8  20 65 6e 76 24 0d 01 86  |etEnv" . env$...|
00000610  16 e7 20 a7 65 6e 76 24  2c 22 2d 71 75 69 74 22  |.. .env$,"-quit"|
00000620  29 20 8c 0d 01 90 12 49  25 3d a7 65 6e 76 24 2c  |) .....I%=.env$,|
00000630  22 22 22 22 29 0d 01 9a  17 49 25 3d a7 65 6e 76  |"""")....I%=.env|
00000640  24 2c 22 22 22 22 2c 49  25 2b 31 29 0d 01 a4 05  |$,"""",I%+1)....|
00000650  f5 0d 01 ae 09 49 25 2b  3d 31 0d 01 b8 16 fd 20  |.....I%+=1..... |
00000660  c1 65 6e 76 24 2c 49 25  2c 31 29 3c 3e 22 20 22  |.env$,I%,1)<>" "|
00000670  0d 01 c2 12 65 6e 76 24  3d c1 65 6e 76 24 2c 49  |....env$=.env$,I|
00000680  25 29 0d 01 cc 13 70 72  69 6e 74 24 3d c2 65 6e  |%)....print$=.en|
00000690  76 24 2c 37 29 0d 01 d6  0a 6e 6f 69 63 3d 30 0d  |v$,7)....noic=0.|
000006a0  01 e0 22 c8 99 22 57 69  6d 70 5f 53 6c 6f 74 53  |..".."Wimp_SlotS|
000006b0  69 7a 65 22 2c 2d 31 2c  2d 31 20 b8 20 6f 72 69  |ize",-1,-1 . ori|
000006c0  67 0d 01 ea 20 6d 61 78  3d 93 2d e0 3a 6d 61 78  |g... max=.-.:max|
000006d0  3d a8 28 6d 61 78 2f 31  30 32 34 29 2a 31 30 32  |=.(max/1024)*102|
000006e0  34 0d 01 f4 0e 6d 61 78  2d 3d 26 34 30 30 30 0d  |4....max-=&4000.|
000006f0  01 fe 17 f4 20 50 52 49  4e 54 20 54 41 42 28 30  |.... PRINT TAB(0|
00000700  2c 30 29 6d 61 78 0d 02  08 25 c8 99 22 57 69 6d  |,0)max...%.."Wim|
00000710  70 5f 53 6c 6f 74 53 69  7a 65 22 2c 2d 31 2c 2d  |p_SlotSize",-1,-|
00000720  31 20 b8 20 63 75 72 72  65 6e 74 0d 02 12 1e d3  |1 . current.....|
00000730  3d 93 2d 6d 61 78 3a 68  73 69 7a 65 62 3d 6d 61  |=.-max:hsizeb=ma|
00000740  78 3a 68 65 61 70 25 3d  93 0d 02 1c 12 e7 20 68  |x:heap%=...... h|
00000750  73 69 7a 65 62 3c 30 20  8c 20 e0 0d 02 26 1f c8  |sizeb<0 . ...&..|
00000760  99 22 4f 53 5f 48 65 61  70 22 2c 30 2c 68 65 61  |."OS_Heap",0,hea|
00000770  70 25 2c 2c 68 73 69 7a  65 62 0d 02 30 29 c8 99  |p%,,hsizeb..0)..|
00000780  22 4f 53 5f 48 65 61 70  22 2c 32 2c 68 65 61 70  |"OS_Heap",2,heap|
00000790  25 2c 2c 31 30 32 34 20  b8 20 2c 2c 73 70 70 6f  |%,,1024 . ,,sppo|
000007a0  6f 6c 25 0d 02 3a 13 6f  72 69 67 68 65 61 70 3d  |ol%..:.origheap=|
000007b0  68 73 69 7a 65 62 0d 02  44 33 e7 20 70 72 69 6e  |hsizeb..D3. prin|
000007c0  74 24 3d 22 20 2d 70 72  69 6e 74 22 20 8c 20 65  |t$=" -print" . e|
000007d0  6e 76 24 3d c0 65 6e 76  24 2c a9 65 6e 76 24 2d  |nv$=.env$,.env$-|
000007e0  37 29 3a 6e 6f 69 63 3d  31 0d 02 4e 3e e7 20 70  |7):noic=1..N>. p|
000007f0  72 69 6e 74 24 3d 22 20  2d 70 72 69 6e 74 22 20  |rint$=" -print" |
00000800  8c 20 f2 70 72 65 73 65  6e 74 3a f2 6c 6f 61 64  |. .present:.load|
00000810  28 65 6e 76 24 29 3a f2  6f 70 65 6e 77 69 6e 28  |(env$):.openwin(|
00000820  70 72 69 6e 74 25 29 0d  02 58 2e e7 20 70 72 69  |print%)..X.. pri|
00000830  6e 74 24 3c 3e 22 20 2d  70 72 69 6e 74 22 20 80  |nt$<>" -print" .|
00000840  20 65 6e 76 24 3c 3e 22  22 20 f2 6c 6f 61 64 28  | env$<>"" .load(|
00000850  65 6e 76 24 29 0d 02 62  1b e7 20 6e 6f 69 63 3d  |env$)..b.. noic=|
00000860  30 20 8c 20 69 6e 69 74  69 63 3d a4 69 63 6f 6e  |0 . initic=.icon|
00000870  0d 02 6c 14 c8 99 22 48  6f 75 72 67 6c 61 73 73  |..l..."Hourglass|
00000880  5f 4f 6e 22 0d 02 76 0c  f2 66 6d 65 6e 75 63 72  |_On"..v..fmenucr|
00000890  0d 02 80 15 c8 99 22 48  6f 75 72 67 6c 61 73 73  |......"Hourglass|
000008a0  5f 4f 66 66 22 0d 02 8a  0b f2 70 6f 6c 6c 69 74  |_Off".....pollit|
000008b0  0d 02 94 0c dd f2 70 6f  6c 6c 69 74 0d 02 9e 05  |......pollit....|
000008c0  f5 0d 02 a8 26 20 c8 99  22 57 69 6d 70 5f 50 6f  |....& .."Wimp_Po|
000008d0  6c 6c 22 2c 30 2c 62 6c  6f 63 6b 20 b8 20 65 76  |ll",0,block . ev|
000008e0  65 6e 74 63 6f 64 65 0d  02 b2 2e 20 c8 99 20 22  |entcode.... .. "|
000008f0  57 69 6d 70 5f 50 6f 6c  6c 50 6f 69 6e 74 65 72  |Wimp_PollPointer|
00000900  22 2c 65 76 65 6e 74 63  6f 64 65 2c 2c 76 65 72  |",eventcode,,ver|
00000910  73 69 6f 6e 25 0d 02 bc  12 c8 8e 20 65 76 65 6e  |sion%...... even|
00000920  74 63 6f 64 65 20 ca 0d  02 c6 32 c9 20 30 3a e7  |tcode ....2. 0:.|
00000930  20 73 61 76 65 66 20 80  20 70 72 65 71 75 69 74  | savef . prequit|
00000940  20 c8 99 22 57 69 6d 70  5f 50 72 6f 63 65 73 73  | .."Wimp_Process|
00000950  4b 65 79 22 2c 26 31 46  43 0d 02 d0 18 c9 20 31  |Key",&1FC..... 1|
00000960  3a f2 72 65 64 72 61 77  28 62 6c 6f 63 6b 21 30  |:.redraw(block!0|
00000970  29 0d 02 da 23 c9 20 32  3a c8 99 20 22 57 69 6d  |)...#. 2:.. "Wim|
00000980  70 5f 4f 70 65 6e 57 69  6e 64 6f 77 22 2c 2c 62  |p_OpenWindow",,b|
00000990  6c 6f 63 6b 0d 02 e4 24  c9 20 33 3a c8 99 20 22  |lock...$. 3:.. "|
000009a0  57 69 6d 70 5f 43 6c 6f  73 65 57 69 6e 64 6f 77  |Wimp_CloseWindow|
000009b0  22 2c 2c 62 6c 6f 63 6b  0d 02 ee 33 e7 20 6e 6f  |",,block...3. no|
000009c0  69 63 3d 31 20 8c 20 c8  99 72 65 69 6e 74 65 72  |ic=1 . ..reinter|
000009d0  2c 6d 79 74 61 73 6b 25  3a c8 99 22 57 69 6d 70  |,mytask%:.."Wimp|
000009e0  5f 43 6c 6f 73 65 44 6f  77 6e 22 0d 02 f8 2a e7  |_CloseDown"...*.|
000009f0  20 62 6c 6f 63 6b 21 30  3d 73 61 76 65 64 25 20  | block!0=saved% |
00000a00  80 20 70 72 65 71 75 69  74 20 8c 20 70 72 65 71  |. prequit . preq|
00000a10  75 69 74 3d a3 0d 03 02  15 c9 20 36 3a f2 63 6c  |uit=...... 6:.cl|
00000a20  69 63 6b 28 62 6c 6f 63  6b 29 0d 03 0c 0c c9 20  |ick(block)..... |
00000a30  37 3a f2 6f 75 74 0d 03  16 10 c9 20 38 3a f2 70  |7:.out..... 8:.p|
00000a40  72 6f 63 65 73 73 0d 03  20 0f c9 20 39 3a f2 73  |rocess.. .. 9:.s|
00000a50  65 6c 65 63 74 0d 03 2a  16 c9 20 31 37 2c 31 38  |elect..*.. 17,18|
00000a60  3a f2 6d 65 73 73 61 67  65 69 6e 0d 03 34 05 cb  |:.messagein..4..|
00000a70  0d 03 3e 07 fd 20 a3 0d  03 48 05 e1 0d 03 52 05  |..>.. ...H....R.|
00000a80  e0 0d 03 5c 0a dd a4 69  63 6f 6e 0d 03 66 0d 21  |...\...icon..f.!|
00000a90  69 63 6f 6e 64 3d 2d 31  0d 03 70 0d 69 63 6f 6e  |icond=-1..p.icon|
00000aa0  64 21 34 3d 30 0d 03 7a  25 69 63 6f 6e 64 21 38  |d!4=0..z%icond!8|
00000ab0  3d 30 3a 69 63 6f 6e 64  21 31 32 3d 36 38 3a 69  |=0:icond!12=68:i|
00000ac0  63 6f 6e 64 21 31 36 3d  36 38 0d 03 84 2b 69 63  |cond!16=68...+ic|
00000ad0  6f 6e 64 21 32 30 3d 25  31 31 30 31 30 2b 28 28  |ond!20=%11010+((|
00000ae0  32 5e 31 32 29 2a 33 29  3a 69 63 6f 6e 64 3f 32  |2^12)*3):icond?2|
00000af0  33 3d 31 31 32 0d 03 8e  1c 24 28 69 63 6f 6e 64  |3=112....$(icond|
00000b00  2b 32 34 29 3d 22 21 43  61 72 64 32 22 2b bd 31  |+24)="!Card2"+.1|
00000b10  33 0d 03 98 26 c8 99 20  22 57 69 6d 70 5f 43 72  |3...&.. "Wimp_Cr|
00000b20  65 61 74 65 49 63 6f 6e  22 2c 2c 69 63 6f 6e 64  |eateIcon",,icond|
00000b30  20 b8 20 69 63 6f 6e 0d  03 a2 09 3d 69 63 6f 6e  | . icon....=icon|
00000b40  0d 03 ac 16 dd a4 69 6e  66 28 68 61 6e 64 6c 65  |......inf(handle|
00000b50  2c 69 63 6f 6e 29 0d 03  b6 15 f2 67 65 65 28 68  |,icon).....gee(h|
00000b60  61 6e 64 6c 65 2c 69 63  6f 6e 29 0d 03 c0 0d 3d  |andle,icon)....=|
00000b70  69 63 6f 6e 64 21 32 38  0d 03 ca 0e 20 dd a4 62  |icond!28.... ..b|
00000b80  69 74 28 61 24 29 0d 03  d4 11 c8 95 20 a7 61 24  |it(a$)...... .a$|
00000b90  2c 22 3a 22 29 3e 30 0d  03 de 16 61 24 3d c1 61  |,":")>0....a$=.a|
00000ba0  24 2c a7 61 24 2c 22 3a  22 29 2b 31 29 0d 03 e8  |$,.a$,":")+1)...|
00000bb0  05 ce 0d 03 f2 11 c8 95  20 a7 61 24 2c 22 2e 22  |........ .a$,"."|
00000bc0  29 3e 30 0d 03 fc 16 61  24 3d c1 61 24 2c a7 61  |)>0....a$=.a$,.a|
00000bd0  24 2c 22 2e 22 29 2b 31  29 0d 04 06 05 ce 0d 04  |$,".")+1).......|
00000be0  10 07 3d 61 24 0d 04 1a  11 dd a4 77 6f 6f 6c 28  |..=a$......wool(|
00000bf0  77 6f 6f 6c 25 29 0d 04  24 0a ea 20 63 6f 74 24  |wool%)..$.. cot$|
00000c00  0d 04 2e 12 20 c8 95 20  3f 77 6f 6f 6c 25 3e 3d  |.... .. ?wool%>=|
00000c10  33 32 0d 04 38 13 63 6f  74 24 2b 3d bd 28 3f 77  |32..8.cot$+=.(?w|
00000c20  6f 6f 6c 25 29 0d 04 42  0c 77 6f 6f 6c 25 2b 3d  |ool%)..B.wool%+=|
00000c30  31 0d 04 4c 05 ce 0d 04  56 09 3d 63 6f 74 24 0d  |1..L....V.=cot$.|
00000c40  04 60 0e dd f2 74 65 6d  70 6c 61 74 65 0d 04 6a  |.`...template..j|
00000c50  31 c8 99 22 57 69 6d 70  5f 4f 70 65 6e 54 65 6d  |1.."Wimp_OpenTem|
00000c60  70 6c 61 74 65 22 2c 2c  22 3c 43 61 72 64 24 44  |plate",,"<Card$D|
00000c70  69 72 3e 2e 54 65 6d 70  6c 61 74 65 73 22 0d 04  |ir>.Templates"..|
00000c80  74 11 69 6e 64 69 72 3d  63 75 72 62 75 66 25 0d  |t.indir=curbuf%.|
00000c90  04 7e 1f 69 6e 66 6f 25  3d a4 74 65 6d 70 6c 61  |.~.info%=.templa|
00000ca0  74 65 28 22 50 72 6f 67  49 6e 66 6f 22 29 0d 04  |te("ProgInfo")..|
00000cb0  88 1b 73 61 76 65 25 3d  a4 74 65 6d 70 6c 61 74  |..save%=.templat|
00000cc0  65 28 22 73 61 76 65 22  29 0d 04 92 1b 63 61 72  |e("save")....car|
00000cd0  64 25 3d a4 74 65 6d 70  6c 61 74 65 28 22 43 61  |d%=.template("Ca|
00000ce0  72 64 22 29 0d 04 9c 21  64 65 74 61 69 6c 73 25  |rd")...!details%|
00000cf0  3d a4 74 65 6d 70 6c 61  74 65 28 22 64 65 74 61  |=.template("deta|
00000d00  69 6c 73 22 29 0d 04 a6  20 73 61 76 65 64 25 3d  |ils")... saved%=|
00000d10  a4 74 65 6d 70 6c 61 74  65 28 22 73 61 76 65 74  |.template("savet|
00000d20  65 78 74 22 29 0d 04 b0  1d 70 72 69 6e 74 25 3d  |ext")....print%=|
00000d30  a4 74 65 6d 70 6c 61 74  65 28 22 70 72 69 6e 74  |.template("print|
00000d40  22 29 0d 04 ba 20 63 6f  6c 6f 75 72 25 3d a4 74  |")... colour%=.t|
00000d50  65 6d 70 6c 61 74 65 28  22 63 6f 6c 6f 75 72 73  |emplate("colours|
00000d60  22 29 0d 04 c4 21 73 61  76 65 70 69 63 25 3d a4  |")...!savepic%=.|
00000d70  74 65 6d 70 6c 61 74 65  28 22 53 61 76 65 50 49  |template("SavePI|
00000d80  43 22 29 0d 04 ce 1d 71  75 65 72 79 25 3d a4 74  |C")....query%=.t|
00000d90  65 6d 70 6c 61 74 65 28  22 71 75 65 72 79 22 29  |emplate("query")|
00000da0  0d 04 d8 1e 71 75 69 74  25 3d a4 74 65 6d 70 6c  |....quit%=.templ|
00000db0  61 74 65 28 22 71 75 69  74 62 6f 78 22 29 0d 04  |ate("quitbox")..|
00000dc0  e2 1b c8 99 20 22 57 69  6d 70 5f 43 6c 6f 73 65  |.... "Wimp_Close|
00000dd0  54 65 6d 70 6c 61 74 65  22 0d 04 ec 17 73 74 65  |Template"....ste|
00000de0  78 3d a4 69 6e 66 6f 28  73 61 76 65 25 2c 31 29  |x=.info(save%,1)|
00000df0  0d 04 f6 19 73 74 65 78  64 3d a4 69 6e 66 6f 28  |....stexd=.info(|
00000e00  73 61 76 65 64 25 2c 31  29 0d 05 00 1e 73 74 65  |saved%,1)....ste|
00000e10  78 74 70 69 63 3d a4 69  6e 66 6f 28 73 61 76 65  |xtpic=.info(save|
00000e20  70 69 63 25 2c 31 29 0d  05 0a 05 e1 0d 05 14 12  |pic%,1).........|
00000e30  dd a4 74 65 6d 70 6c 61  74 65 28 61 24 29 0d 05  |..template(a$)..|
00000e40  1e 46 c8 99 22 57 69 6d  70 5f 4c 6f 61 64 54 65  |.F.."Wimp_LoadTe|
00000e50  6d 70 6c 61 74 65 22 2c  2c 62 6c 6f 63 6b 2c 69  |mplate",,block,i|
00000e60  6e 64 69 72 2c 65 6e 64  62 75 66 25 2c 2d 31 2c  |ndir,endbuf%,-1,|
00000e70  61 24 2c 30 20 b8 20 2c  2c 69 6e 64 69 72 2c 2c  |a$,0 . ,,indir,,|
00000e80  2c 2c 63 25 0d 05 28 32  e7 20 63 25 3d 30 20 8c  |,,c%..(2. c%=0 .|
00000e90  20 f2 6d 65 73 73 28 22  54 65 6d 70 6c 61 74 65  | .mess("Template|
00000ea0  20 22 2b 61 24 2b 22 20  6e 6f 74 20 66 6f 75 6e  | "+a$+" not foun|
00000eb0  64 2e 22 29 3a e0 0d 05  32 0e 62 6c 6f 63 6b 21  |d."):...2.block!|
00000ec0  36 34 3d 31 0d 05 3c 29  c8 99 22 57 69 6d 70 5f  |64=1..<).."Wimp_|
00000ed0  43 72 65 61 74 65 57 69  6e 64 6f 77 22 2c 2c 62  |CreateWindow",,b|
00000ee0  6c 6f 63 6b 20 b8 20 68  61 6e 64 6c 65 0d 05 46  |lock . handle..F|
00000ef0  0b 3d 68 61 6e 64 6c 65  0d 05 50 17 dd a4 69 6e  |.=handle..P...in|
00000f00  66 6f 28 68 61 6e 64 6c  65 2c 69 63 6f 6e 29 0d  |fo(handle,icon).|
00000f10  05 5a 15 f2 67 65 65 28  68 61 6e 64 6c 65 2c 69  |.Z..gee(handle,i|
00000f20  63 6f 6e 29 0d 05 64 0d  3d 69 63 6f 6e 64 21 32  |con)..d.=icond!2|
00000f30  38 0d 05 6e 1d dd f2 69  6e 66 6f 28 68 61 6e 64  |8..n...info(hand|
00000f40  6c 65 2c 69 63 6f 6e 2c  74 65 78 74 24 29 0d 05  |le,icon,text$)..|
00000f50  78 3b 21 62 6c 6f 63 6b  3d 68 61 6e 64 6c 65 3a  |x;!block=handle:|
00000f60  62 6c 6f 63 6b 21 34 3d  69 63 6f 6e 3a c8 99 22  |block!4=icon:.."|
00000f70  57 69 6d 70 5f 47 65 74  49 63 6f 6e 53 74 61 74  |Wimp_GetIconStat|
00000f80  65 22 2c 2c 62 6c 6f 63  6b 0d 05 82 29 24 28 62  |e",,block...)$(b|
00000f90  6c 6f 63 6b 21 32 38 29  3d 74 65 78 74 24 3a 62  |lock!28)=text$:b|
00000fa0  6c 6f 63 6b 21 33 36 3d  a9 28 74 65 78 74 24 29  |lock!36=.(text$)|
00000fb0  2b 31 0d 05 8c 18 62 6c  6f 63 6b 21 38 3d 30 3a  |+1....block!8=0:|
00000fc0  62 6c 6f 63 6b 21 31 32  3d 30 0d 05 96 20 c8 99  |block!12=0... ..|
00000fd0  22 57 69 6d 70 5f 53 65  74 49 63 6f 6e 53 74 61  |"Wimp_SetIconSta|
00000fe0  74 65 22 2c 2c 62 6c 6f  63 6b 0d 05 a0 05 e1 0d  |te",,block......|
00000ff0  05 aa 16 dd f2 67 65 65  28 68 61 6e 64 6c 65 2c  |.....gee(handle,|
00001000  69 63 6f 6e 29 0d 05 b4  1e 21 69 63 6f 6e 64 3d  |icon)....!icond=|
00001010  68 61 6e 64 6c 65 3a 69  63 6f 6e 64 21 34 3d 69  |handle:icond!4=i|
00001020  63 6f 6e 0d 05 be 20 c8  99 22 57 69 6d 70 5f 47  |con... .."Wimp_G|
00001030  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 69 63  |etIconState",,ic|
00001040  6f 6e 64 0d 05 c8 05 e1  0d 05 d2 0d dd f2 70 72  |ond...........pr|
00001050  65 73 65 6e 74 0d 05 dc  09 61 24 3d 22 22 0d 05  |esent....a$=""..|
00001060  e6 07 ea 20 85 0d 05 f0  20 ee 20 85 20 ea 20 61  |... .... . . . a|
00001070  24 3d 22 4e 6f 74 20 50  72 65 73 65 6e 74 22 3a  |$="Not Present":|
00001080  f7 20 85 3a e1 0d 05 fa  20 c8 99 22 50 44 72 69  |. .:.... .."PDri|
00001090  76 65 72 5f 49 6e 66 6f  22 20 b8 20 61 2c 2c 2c  |ver_Info" . a,,,|
000010a0  2c 6e 61 6d 65 0d 06 04  0c c8 95 20 3f 6e 61 6d  |,name...... ?nam|
000010b0  65 0d 06 0e 12 61 24 3d  61 24 2b bd 28 3f 6e 61  |e....a$=a$+.(?na|
000010c0  6d 65 29 0d 06 18 0b 6e  61 6d 65 2b 3d 31 0d 06  |me)....name+=1..|
000010d0  22 05 ce 0d 06 2c 17 24  a4 69 6e 66 6f 28 70 72  |"....,.$.info(pr|
000010e0  69 6e 74 25 2c 30 29 3d  61 24 0d 06 36 07 f7 20  |int%,0)=a$..6.. |
000010f0  85 0d 06 40 05 e1 0d 06  4a 0c dd f2 63 6d 65 6e  |...@....J...cmen|
00001100  75 73 0d 06 54 0c f2 70  72 65 73 65 6e 74 0d 06  |us..T..present..|
00001110  5e 0a 6e 6f 67 6f 3d a3  0d 06 68 09 67 65 65 3d  |^.nogo=...h.gee=|
00001120  30 0d 06 72 10 6d 65 6e  75 6f 70 65 6e 3d 2d 34  |0..r.menuopen=-4|
00001130  34 0d 06 7c 11 6d 65 6e  75 70 74 72 3d 6d 65 6e  |4..|.menuptr=men|
00001140  75 25 0d 06 86 0c c8 97  20 78 2c 79 2c 62 0d 06  |u%...... x,y,b..|
00001150  90 2e e7 20 62 6c 6f 63  6b 21 31 36 3d 32 37 20  |... block!16=27 |
00001160  80 20 73 66 69 6c 65 24  3c 3e 22 22 20 8c 20 48  |. sfile$<>"" . H|
00001170  4a 4b 3d b9 20 8b 20 48  4a 4b 3d a3 0d 06 9a 41  |JK=. . HJK=....A|
00001180  e7 20 48 4a 4b 20 73 70  72 6d 65 6e 25 3d a4 6d  |. HJK sprmen%=.m|
00001190  65 6e 75 28 22 53 70 72  69 74 65 20 4c 69 73 74  |enu("Sprite List|
000011a0  22 2c 28 6c 61 72 67 65  73 74 2a 31 34 29 2b 34  |",(largest*14)+4|
000011b0  30 2c 6d 65 6e 24 29 3a  67 65 65 3d 32 0d 06 a4  |0,men$):gee=2...|
000011c0  22 70 69 63 6d 65 6e 75  24 3d 22 46 6f 72 63 65  |"picmenu$="Force|
000011d0  20 53 63 61 6c 65 2c 43  65 6e 74 72 65 64 22 0d  | Scale,Centred".|
000011e0  06 ae 30 e7 20 63 65 6e  74 72 65 64 20 80 20 70  |..0. centred . p|
000011f0  69 63 6d 65 6e 75 24 3c  3e 22 7b 80 7d 43 65 6e  |icmenu$<>"{.}Cen|
00001200  74 72 65 64 22 20 63 65  6e 74 72 65 64 3d b9 0d  |tred" centred=..|
00001210  06 b8 27 e7 20 66 6f 72  63 65 20 70 69 63 6d 65  |..'. force picme|
00001220  6e 75 34 24 3d 22 7b 80  7d 46 6f 72 63 65 20 53  |nu4$="{.}Force S|
00001230  63 61 6c 65 2c 22 0d 06  c2 26 e7 20 ac 20 66 6f  |cale,"...&. . fo|
00001240  72 63 65 20 70 69 63 6d  65 6e 75 34 24 3d 22 46  |rce picmenu4$="F|
00001250  6f 72 63 65 20 53 63 61  6c 65 2c 22 0d 06 cc 23  |orce Scale,"...#|
00001260  e7 20 63 65 6e 74 72 65  64 20 70 69 63 6d 65 6e  |. centred picmen|
00001270  75 24 3d 22 7b 80 7d 43  65 6e 74 72 65 64 22 0d  |u$="{.}Centred".|
00001280  06 d6 22 e7 20 ac 20 63  65 6e 74 72 65 64 20 70  |..". . centred p|
00001290  69 63 6d 65 6e 75 24 3d  22 43 65 6e 74 72 65 64  |icmenu$="Centred|
000012a0  22 0d 06 e0 53 e7 20 63  75 72 73 70 72 24 3c 3e  |"...S. curspr$<>|
000012b0  22 22 20 69 63 6f 6e 6d  65 6e 75 24 3d 22 7b 62  |"" iconmenu$="{b|
000012c0  7c 70 69 63 6d 65 6e 75  25 7d 50 69 63 74 75 72  ||picmenu%}Pictur|
000012d0  65 22 20 8b 20 69 63 6f  6e 6d 65 6e 75 24 3d 22  |e" . iconmenu$="|
000012e0  7b 2d 7c 70 69 63 6d 65  6e 75 25 7d 50 69 63 74  |{-|picmenu%}Pict|
000012f0  75 72 65 22 0d 06 ea 57  70 69 63 6d 65 6e 75 25  |ure"...Wpicmenu%|
00001300  3d a4 6d 65 6e 75 28 22  50 69 63 74 75 72 65 22  |=.menu("Picture"|
00001310  2c 31 39 30 2c 22 7b 5f  7d 44 65 6c 20 50 69 63  |,190,"{_}Del Pic|
00001320  2c 7b 75 7c 73 61 76 65  70 69 63 25 7d 53 61 76  |,{u|savepic%}Sav|
00001330  65 20 50 69 63 2c 22 2b  70 69 63 6d 65 6e 75 34  |e Pic,"+picmenu4|
00001340  24 2b 70 69 63 6d 65 6e  75 24 29 0d 06 f4 3e 73  |$+picmenu$)...>s|
00001350  61 76 65 6d 65 6e 75 25  3d a4 6d 65 6e 75 28 22  |avemenu%=.menu("|
00001360  53 61 76 65 22 2c 31 37  34 2c 22 7b 62 7c 73 61  |Save",174,"{b|sa|
00001370  76 65 25 7d 44 72 61 77  2c 7b 62 7c 73 61 76 65  |ve%}Draw,{b|save|
00001380  64 25 7d 44 61 74 61 22  29 0d 06 fe 72 69 63 6f  |d%}Data")...rico|
00001390  6e 6d 65 6e 75 25 3d a4  6d 65 6e 75 28 22 21 43  |nmenu%=.menu("!C|
000013a0  61 72 64 22 2c 31 37 34  2c 22 7b 62 7c 69 6e 66  |ard",174,"{b|inf|
000013b0  6f 25 7d 49 6e 66 6f 2c  7b 62 7c 73 61 76 65 6d  |o%}Info,{b|savem|
000013c0  65 6e 75 25 7d 53 61 76  65 2c 7b 62 7c 70 72 69  |enu%}Save,{b|pri|
000013d0  6e 74 25 7d 50 72 69 6e  74 2c 44 65 74 61 69 6c  |nt%}Print,Detail|
000013e0  73 2c 56 69 65 77 2c 22  2b 69 63 6f 6e 6d 65 6e  |s,View,"+iconmen|
000013f0  75 24 2b 22 2c 51 75 69  74 22 29 0d 07 08 69 64  |u$+",Quit")...id|
00001400  65 74 6d 65 6e 75 25 3d  a4 6d 65 6e 75 28 22 21  |etmenu%=.menu("!|
00001410  43 61 72 64 22 2c 31 37  34 2c 22 7b 62 7c 69 6e  |Card",174,"{b|in|
00001420  66 6f 25 7d 49 6e 66 6f  2c 7b 62 7c 73 61 76 65  |fo%}Info,{b|save|
00001430  6d 65 6e 75 25 7d 53 61  76 65 2c 7b 62 7c 70 72  |menu%}Save,{b|pr|
00001440  69 6e 74 25 7d 50 72 69  6e 74 2c 56 69 65 77 2c  |int%}Print,View,|
00001450  22 2b 69 63 6f 6e 6d 65  6e 75 24 2b 22 2c 51 75  |"+iconmenu$+",Qu|
00001460  69 74 22 29 0d 07 12 76  76 69 65 77 6d 65 6e 75  |it")...vviewmenu|
00001470  25 3d a4 6d 65 6e 75 28  22 21 43 61 72 64 22 2c  |%=.menu("!Card",|
00001480  31 37 34 2c 22 7b 62 7c  69 6e 66 6f 25 7d 49 6e  |174,"{b|info%}In|
00001490  66 6f 2c 7b 62 7c 73 61  76 65 6d 65 6e 75 25 7d  |fo,{b|savemenu%}|
000014a0  53 61 76 65 2c 7b 62 7c  70 72 69 6e 74 25 7d 50  |Save,{b|print%}P|
000014b0  72 69 6e 74 2c 44 65 74  61 69 6c 73 2c 42 61 63  |rint,Details,Bac|
000014c0  6b 20 43 6f 6c 2c 22 2b  69 63 6f 6e 6d 65 6e 75  |k Col,"+iconmenu|
000014d0  24 2b 22 2c 51 75 69 74  22 29 0d 07 1c 11 c8 8e  |$+",Quit")......|
000014e0  20 62 6c 6f 63 6b 21 31  32 20 ca 0d 07 26 3c c9  | block!12 ...&<.|
000014f0  20 2d 32 3a e7 20 62 6c  6f 63 6b 21 38 3d 32 20  | -2:. block!8=2 |
00001500  8c 20 6f 70 65 6e 6d 65  6e 75 25 3d 69 63 6f 6e  |. openmenu%=icon|
00001510  6d 65 6e 75 25 3a 61 3d  78 2d 37 35 3a 62 3d 28  |menu%:a=x-75:b=(|
00001520  37 2b 32 29 2a 34 38 0d  07 30 4d c9 20 64 65 74  |7+2)*48..0M. det|
00001530  61 69 6c 73 25 3a e7 20  48 4a 4b 20 8c 20 6f 70  |ails%:. HJK . op|
00001540  65 6e 6d 65 6e 75 25 3d  73 70 72 6d 65 6e 25 3a  |enmenu%=sprmen%:|
00001550  61 3d 78 3a 62 3d 79 3a  8b 20 6f 70 65 6e 6d 65  |a=x:b=y:. openme|
00001560  6e 75 25 3d 64 65 74 6d  65 6e 75 25 3a 61 3d 78  |nu%=detmenu%:a=x|
00001570  3a 62 3d 79 0d 07 3a 35  c9 20 63 61 72 64 25 3a  |:b=y..:5. card%:|
00001580  e7 20 62 6c 6f 63 6b 21  38 3d 32 20 8c 20 6f 70  |. block!8=2 . op|
00001590  65 6e 6d 65 6e 75 25 3d  76 69 65 77 6d 65 6e 75  |enmenu%=viewmenu|
000015a0  25 3a 61 3d 78 3a 62 3d  79 0d 07 44 07 7f 3a e1  |%:a=x:b=y..D..:.|
000015b0  0d 07 4e 05 cb 0d 07 58  12 f2 6f 70 65 6e 6d 65  |..N....X..openme|
000015c0  6e 75 28 61 2c 62 29 0d  07 62 05 e1 0d 07 6c 13  |nu(a,b)..b....l.|
000015d0  dd f2 6f 70 65 6e 6d 65  6e 75 28 78 2c 79 29 0d  |..openmenu(x,y).|
000015e0  07 76 26 c8 99 22 57 69  6d 70 5f 43 72 65 61 74  |.v&.."Wimp_Creat|
000015f0  65 4d 65 6e 75 22 2c 2c  6f 70 65 6e 6d 65 6e 75  |eMenu",,openmenu|
00001600  25 2c 78 2c 79 0d 07 80  05 e1 0d 07 8a 1a dd a4  |%,x,y...........|
00001610  6d 65 6e 75 28 74 69 74  24 2c 77 69 64 2c 6d 65  |menu(tit$,wid,me|
00001620  6e 75 24 29 0d 07 94 0e  6d 65 6e 75 24 2b 3d 22  |nu$)....menu$+="|
00001630  2c 22 0d 07 9e 13 6f 6c  64 6d 65 6e 75 3d 6d 65  |,"....oldmenu=me|
00001640  6e 75 70 74 72 0d 07 a8  11 24 6d 65 6e 75 70 74  |nuptr....$menupt|
00001650  72 3d 74 69 74 24 0d 07  b2 10 6d 65 6e 75 70 74  |r=tit$....menupt|
00001660  72 3f 31 32 3d 37 0d 07  bc 10 6d 65 6e 75 70 74  |r?12=7....menupt|
00001670  72 3f 31 33 3d 32 0d 07  c6 10 6d 65 6e 75 70 74  |r?13=2....menupt|
00001680  72 3f 31 34 3d 37 0d 07  d0 10 6d 65 6e 75 70 74  |r?14=7....menupt|
00001690  72 3f 31 35 3d 30 0d 07  da 12 6d 65 6e 75 70 74  |r?15=0....menupt|
000016a0  72 21 31 36 3d 77 69 64  0d 07 e4 11 6d 65 6e 75  |r!16=wid....menu|
000016b0  70 74 72 21 32 30 3d 34  38 0d 07 ee 10 6d 65 6e  |ptr!20=48....men|
000016c0  75 70 74 72 21 32 34 3d  30 0d 07 f8 0f 6d 65 6e  |uptr!24=0....men|
000016d0  75 70 74 72 2b 3d 32 38  0d 08 02 05 f5 0d 08 0c  |uptr+=28........|
000016e0  11 f2 74 68 69 6e 67 28  6d 65 6e 75 24 29 0d 08  |..thing(menu$)..|
000016f0  16 1f 6d 65 6e 75 24 3d  c1 6d 65 6e 75 24 2c a7  |..menu$=.menu$,.|
00001700  6d 65 6e 75 24 2c 22 2c  22 29 2b 31 29 0d 08 20  |menu$,",")+1).. |
00001710  0f 6d 65 6e 75 70 74 72  2b 3d 32 34 0d 08 2a 0e  |.menuptr+=24..*.|
00001720  fd 20 6d 65 6e 75 24 3d  22 22 0d 08 34 29 6d 65  |. menu$=""..4)me|
00001730  6e 75 70 74 72 21 2d 32  34 3d 28 6d 65 6e 75 70  |nuptr!-24=(menup|
00001740  74 72 21 2d 32 34 29 20  84 20 25 31 30 30 30 30  |tr!-24) . %10000|
00001750  30 30 30 0d 08 3e 0c 3d  6f 6c 64 6d 65 6e 75 0d  |000..>.=oldmenu.|
00001760  08 48 0f dd f2 74 68 69  6e 67 28 6d 24 29 0d 08  |.H...thing(m$)..|
00001770  52 16 6d 24 3d c0 6d 24  2c a7 6d 24 2c 22 2c 22  |R.m$=.m$,.m$,","|
00001780  29 2d 31 29 0d 08 5c 0f  69 24 3d 22 22 3a 6a 24  |)-1)..\.i$="":j$|
00001790  3d 22 22 0d 08 66 12 e7  20 a7 6d 24 2c 22 7b 22  |=""..f.. .m$,"{"|
000017a0  29 3e 30 20 8c 0d 08 70  16 69 24 3d c0 6d 24 2c  |)>0 ...p.i$=.m$,|
000017b0  a7 6d 24 2c 22 7d 22 29  2d 31 29 0d 08 7a 16 6d  |.m$,"}")-1)..z.m|
000017c0  24 3d c1 6d 24 2c a7 6d  24 2c 22 7d 22 29 2b 31  |$=.m$,.m$,"}")+1|
000017d0  29 0d 08 84 16 6a 24 3d  c0 69 24 2c a7 69 24 2c  |)....j$=.i$,.i$,|
000017e0  22 7c 22 29 2d 31 29 0d  08 8e 16 69 24 3d c1 69  |"|")-1)....i$=.i|
000017f0  24 2c a7 69 24 2c 22 7c  22 29 2b 31 29 0d 08 98  |$,.i$,"|")+1)...|
00001800  05 cd 0d 08 a2 13 69 6a  61 63 6b 3d 26 30 37 30  |......ijack=&070|
00001810  30 30 30 32 31 0d 08 ac  0b 6d 6a 61 63 6b 3d 30  |00021....mjack=0|
00001820  0d 08 b6 0e 73 75 62 6d  65 6e 75 3d 2d 31 0d 08  |....submenu=-1..|
00001830  c0 20 e7 20 a7 6a 24 2c  22 62 22 29 3e 30 20 8c  |. . .j$,"b")>0 .|
00001840  20 73 75 62 6d 65 6e 75  3d a0 28 69 24 29 0d 08  | submenu=.(i$)..|
00001850  ca 22 e7 20 a7 6a 24 2c  22 5f 22 29 3e 30 20 8c  |.". .j$,"_")>0 .|
00001860  20 6d 6a 61 63 6b 3d 6d  6a 61 63 6b 20 84 20 32  | mjack=mjack . 2|
00001870  0d 08 d4 22 e7 20 a7 6a  24 2c 22 80 22 29 3e 30  |...". .j$,".")>0|
00001880  20 8c 20 6d 6a 61 63 6b  3d 6d 6a 61 63 6b 20 84  | . mjack=mjack .|
00001890  20 31 0d 08 de 30 e7 20  a7 6a 24 2c 22 75 22 29  | 1...0. .j$,"u")|
000018a0  3e 30 20 8c 20 6d 6a 61  63 6b 3d 6d 6a 61 63 6b  |>0 . mjack=mjack|
000018b0  20 84 20 32 3a 73 75 62  6d 65 6e 75 3d a0 28 69  | . 2:submenu=.(i|
000018c0  24 29 0d 08 e8 36 e7 20  a7 6a 24 2c 22 2d 22 29  |$)...6. .j$,"-")|
000018d0  3e 30 20 8c 20 69 6a 61  63 6b 3d 69 6a 61 63 6b  |>0 . ijack=ijack|
000018e0  20 84 20 26 34 30 30 30  30 30 3a 73 75 62 6d 65  | . &400000:subme|
000018f0  6e 75 3d a0 28 69 24 29  0d 08 f2 28 e7 20 a7 6a  |nu=.(i$)...(. .j|
00001900  24 2c 22 73 22 29 3e 30  20 8c 20 69 6a 61 63 6b  |$,"s")>0 . ijack|
00001910  3d 69 6a 61 63 6b 20 84  20 26 34 30 30 30 30 30  |=ijack . &400000|
00001920  0d 08 fc 12 21 6d 65 6e  75 70 74 72 3d 6d 6a 61  |....!menuptr=mja|
00001930  63 6b 0d 09 06 15 6d 65  6e 75 70 74 72 21 34 3d  |ck....menuptr!4=|
00001940  73 75 62 6d 65 6e 75 0d  09 10 13 6d 65 6e 75 70  |submenu....menup|
00001950  74 72 21 38 3d 69 6a 61  63 6b 0d 09 1a 14 24 28  |tr!8=ijack....$(|
00001960  6d 65 6e 75 70 74 72 2b  31 32 29 3d 6d 24 0d 09  |menuptr+12)=m$..|
00001970  24 05 cd 0d 09 2e 05 e1  0d 09 38 12 dd f2 63 6c  |$.........8...cl|
00001980  69 63 6b 28 62 6c 6f 63  6b 29 0d 09 42 13 6b 65  |ick(block)..B.ke|
00001990  65 70 62 25 3d 62 6c 6f  63 6b 21 31 32 0d 09 4c  |epb%=block!12..L|
000019a0  2a e7 20 a4 63 68 65 63  6b 69 74 28 62 6c 6f 63  |*. .checkit(bloc|
000019b0  6b 21 31 32 2c 62 6c 6f  63 6b 21 31 36 29 3d 39  |k!12,block!16)=9|
000019c0  38 33 30 34 30 20 8c 0d  09 56 24 f2 73 6c 61 62  |83040 ...V$.slab|
000019d0  69 6e 28 6b 65 65 70 62  25 29 3a f2 73 6c 61 62  |in(keepb%):.slab|
000019e0  6f 75 74 28 6b 65 65 70  62 25 29 0d 09 60 05 cd  |out(keepb%)..`..|
000019f0  0d 09 6a 27 e7 20 71 75  69 74 69 6e 67 20 8c 20  |..j'. quiting . |
00001a00  71 75 69 74 69 6e 67 3d  a3 3a f2 63 6c 6f 73 65  |quiting=.:.close|
00001a10  28 71 75 69 74 25 29 0d  09 74 39 e7 20 62 6c 6f  |(quit%)..t9. blo|
00001a20  63 6b 21 31 32 3d 63 61  72 64 25 20 80 20 62 6c  |ck!12=card% . bl|
00001a30  6f 63 6b 21 38 3d 34 20  69 6f 3d 30 3a 68 65 78  |ock!8=4 io=0:hex|
00001a40  3d 68 65 78 63 28 30 29  3a f2 73 65 74 70 65 72  |=hexc(0):.setper|
00001a50  0d 09 7e 30 e7 20 62 6c  6f 63 6b 21 31 32 3d 2d  |..~0. block!12=-|
00001a60  32 20 80 20 62 6c 6f 63  6b 21 38 3d 34 20 f2 6f  |2 . block!8=4 .o|
00001a70  70 65 6e 77 69 6e 28 64  65 74 61 69 6c 73 25 29  |penwin(details%)|
00001a80  0d 09 88 2d e7 20 62 6c  6f 63 6b 21 31 32 3d 2d  |...-. block!12=-|
00001a90  32 20 80 20 62 6c 6f 63  6b 21 38 3d 31 20 f2 6f  |2 . block!8=1 .o|
00001aa0  70 65 6e 77 69 6e 28 63  61 72 64 25 29 0d 09 92  |penwin(card%)...|
00001ab0  25 e7 20 62 6c 6f 63 6b  21 31 32 3d 64 65 74 61  |%. block!12=deta|
00001ac0  69 6c 73 25 20 80 20 62  6c 6f 63 6b 21 38 3d 32  |ils% . block!8=2|
00001ad0  20 8c 0d 09 9c 7b e7 20  62 6c 6f 63 6b 21 31 36  | ....{. block!16|
00001ae0  3d 33 20 84 20 62 6c 6f  63 6b 21 31 36 3d 32 20  |=3 . block!16=2 |
00001af0  84 20 62 6c 6f 63 6b 21  31 36 3d 34 20 84 20 62  |. block!16=4 . b|
00001b00  6c 6f 63 6b 21 31 36 3d  31 39 20 8c 20 c8 97 20  |lock!16=19 . .. |
00001b10  78 2c 79 2c 62 3a 67 65  65 3d 31 3a 69 63 79 3d  |x,y,b:gee=1:icy=|
00001b20  62 6c 6f 63 6b 21 31 36  3a c8 99 22 57 69 6d 70  |block!16:.."Wimp|
00001b30  5f 43 72 65 61 74 65 4d  65 6e 75 22 2c 2c 66 6d  |_CreateMenu",,fm|
00001b40  65 6e 75 25 2c 78 2d 37  35 2c 79 3a e1 0d 09 a6  |enu%,x-75,y:....|
00001b50  05 cd 0d 09 b0 1b e7 20  62 6c 6f 63 6b 21 38 3d  |....... block!8=|
00001b60  32 20 8c 20 f2 63 6d 65  6e 75 73 3a e1 0d 09 ba  |2 . .cmenus:....|
00001b70  35 e7 20 62 6c 6f 63 6b  21 31 32 3d 64 65 74 61  |5. block!12=deta|
00001b80  69 6c 73 25 20 8c 20 73  61 76 65 66 3d a3 3a f2  |ils% . savef=.:.|
00001b90  74 69 74 6c 65 28 64 65  74 61 69 6c 73 25 2c 22  |title(details%,"|
00001ba0  22 29 0d 09 c4 3c e7 20  62 6c 6f 63 6b 21 31 32  |")...<. block!12|
00001bb0  3d 73 61 76 65 25 20 80  20 62 6c 6f 63 6b 21 31  |=save% . block!1|
00001bc0  36 3d 32 20 77 69 6e 73  61 76 65 25 3d 62 6c 6f  |6=2 winsave%=blo|
00001bd0  63 6b 21 31 32 3a f2 64  65 66 73 61 76 65 0d 09  |ck!12:.defsave..|
00001be0  ce 3d e7 20 62 6c 6f 63  6b 21 31 32 3d 73 61 76  |.=. block!12=sav|
00001bf0  65 64 25 20 80 20 62 6c  6f 63 6b 21 31 36 3d 32  |ed% . block!16=2|
00001c00  20 77 69 6e 73 61 76 65  25 3d 62 6c 6f 63 6b 21  | winsave%=block!|
00001c10  31 32 3a f2 64 65 66 73  61 76 65 0d 09 d8 3f e7  |12:.defsave...?.|
00001c20  20 62 6c 6f 63 6b 21 31  32 3d 73 61 76 65 70 69  | block!12=savepi|
00001c30  63 25 20 80 20 62 6c 6f  63 6b 21 31 36 3d 32 20  |c% . block!16=2 |
00001c40  77 69 6e 73 61 76 65 25  3d 62 6c 6f 63 6b 21 31  |winsave%=block!1|
00001c50  32 3a f2 64 65 66 73 61  76 65 0d 09 e2 4d e7 20  |2:.defsave...M. |
00001c60  62 6c 6f 63 6b 21 31 32  3d 73 61 76 65 25 20 80  |block!12=save% .|
00001c70  20 62 6c 6f 63 6b 21 31  36 3d 30 20 77 69 6e 73  | block!16=0 wins|
00001c80  61 76 65 25 3d 62 6c 6f  63 6b 21 31 32 3a f2 73  |ave%=block!12:.s|
00001c90  61 76 65 28 24 a4 69 6e  66 6f 28 77 69 6e 73 61  |ave($.info(winsa|
00001ca0  76 65 25 2c 31 29 29 0d  09 ec 4e e7 20 62 6c 6f  |ve%,1))...N. blo|
00001cb0  63 6b 21 31 32 3d 73 61  76 65 64 25 20 80 20 62  |ck!12=saved% . b|
00001cc0  6c 6f 63 6b 21 31 36 3d  30 20 77 69 6e 73 61 76  |lock!16=0 winsav|
00001cd0  65 25 3d 62 6c 6f 63 6b  21 31 32 3a f2 73 61 76  |e%=block!12:.sav|
00001ce0  65 28 24 a4 69 6e 66 6f  28 77 69 6e 73 61 76 65  |e($.info(winsave|
00001cf0  25 2c 31 29 29 0d 09 f6  50 e7 20 62 6c 6f 63 6b  |%,1))...P. block|
00001d00  21 31 32 3d 73 61 76 65  70 69 63 25 20 80 20 62  |!12=savepic% . b|
00001d10  6c 6f 63 6b 21 31 36 3d  30 20 77 69 6e 73 61 76  |lock!16=0 winsav|
00001d20  65 25 3d 62 6c 6f 63 6b  21 31 32 3a f2 73 61 76  |e%=block!12:.sav|
00001d30  65 28 24 a4 69 6e 66 6f  28 77 69 6e 73 61 76 65  |e($.info(winsave|
00001d40  25 2c 31 29 29 0d 0a 00  4f e7 20 62 6c 6f 63 6b  |%,1))...O. block|
00001d50  21 31 32 3d 64 65 74 61  69 6c 73 25 20 80 20 62  |!12=details% . b|
00001d60  6c 6f 63 6b 21 31 36 3d  32 32 20 69 6f 3d 31 3a  |lock!16=22 io=1:|
00001d70  68 65 78 3d 68 65 78 63  28 69 6f 29 3a 74 65 78  |hex=hexc(io):tex|
00001d80  74 63 3d b9 3a 63 61 72  64 62 3d a3 3a f2 73 65  |tc=.:cardb=.:.se|
00001d90  74 70 65 72 0d 0a 0a 4f  e7 20 62 6c 6f 63 6b 21  |tper...O. block!|
00001da0  31 32 3d 64 65 74 61 69  6c 73 25 20 80 20 62 6c  |12=details% . bl|
00001db0  6f 63 6b 21 31 36 3d 32  33 20 69 6f 3d 32 3a 68  |ock!16=23 io=2:h|
00001dc0  65 78 3d 68 65 78 63 28  69 6f 29 3a 74 65 78 74  |ex=hexc(io):text|
00001dd0  63 3d b9 3a 63 61 72 64  62 3d a3 3a f2 73 65 74  |c=.:cardb=.:.set|
00001de0  70 65 72 0d 0a 14 4f e7  20 62 6c 6f 63 6b 21 31  |per...O. block!1|
00001df0  32 3d 64 65 74 61 69 6c  73 25 20 80 20 62 6c 6f  |2=details% . blo|
00001e00  63 6b 21 31 36 3d 32 34  20 69 6f 3d 33 3a 68 65  |ck!16=24 io=3:he|
00001e10  78 3d 68 65 78 63 28 69  6f 29 3a 74 65 78 74 63  |x=hexc(io):textc|
00001e20  3d b9 3a 63 61 72 64 62  3d a3 3a f2 73 65 74 70  |=.:cardb=.:.setp|
00001e30  65 72 0d 0a 1e 4f e7 20  62 6c 6f 63 6b 21 31 32  |er...O. block!12|
00001e40  3d 64 65 74 61 69 6c 73  25 20 80 20 62 6c 6f 63  |=details% . bloc|
00001e50  6b 21 31 36 3d 32 35 20  69 6f 3d 34 3a 68 65 78  |k!16=25 io=4:hex|
00001e60  3d 68 65 78 63 28 69 6f  29 3a 74 65 78 74 63 3d  |=hexc(io):textc=|
00001e70  b9 3a 63 61 72 64 62 3d  a3 3a f2 73 65 74 70 65  |.:cardb=.:.setpe|
00001e80  72 0d 0a 28 3f e7 20 62  6c 6f 63 6b 21 31 32 3d  |r..(?. block!12=|
00001e90  64 65 74 61 69 6c 73 25  20 80 20 62 6c 6f 63 6b  |details% . block|
00001ea0  21 31 36 3e 32 38 20 80  20 62 6c 6f 63 6b 21 31  |!16>28 . block!1|
00001eb0  36 3c 33 31 20 f2 64 72  61 77 73 70 72 69 74 65  |6<31 .drawsprite|
00001ec0  0d 0a 32 49 e7 20 62 6c  6f 63 6b 21 31 32 3d 63  |..2I. block!12=c|
00001ed0  6f 6c 6f 75 72 25 20 80  20 62 6c 6f 63 6b 21 31  |olour% . block!1|
00001ee0  36 3e 3d 31 34 20 80 20  62 6c 6f 63 6b 21 31 36  |6>=14 . block!16|
00001ef0  3c 3d 32 39 20 f2 73 65  6c 65 63 74 63 6f 6c 28  |<=29 .selectcol(|
00001f00  62 6c 6f 63 6b 21 31 36  29 0d 0a 3c 2e e7 20 62  |block!16)..<.. b|
00001f10  6c 6f 63 6b 21 31 32 3d  63 6f 6c 6f 75 72 25 20  |lock!12=colour% |
00001f20  80 20 62 6c 6f 63 6b 21  31 36 3d 31 33 20 8c 20  |. block!16=13 . |
00001f30  f2 61 64 64 63 6f 6c 0d  0a 46 36 e7 20 62 6c 6f  |.addcol..F6. blo|
00001f40  63 6b 21 31 32 3d 63 6f  6c 6f 75 72 25 20 80 20  |ck!12=colour% . |
00001f50  62 6c 6f 63 6b 21 31 36  3d 31 32 20 8c 20 f2 63  |block!16=12 . .c|
00001f60  6c 6f 73 65 28 63 6f 6c  6f 75 72 25 29 0d 0a 50  |lose(colour%)..P|
00001f70  2f e7 20 62 6c 6f 63 6b  21 31 32 3d 63 6f 6c 6f  |/. block!12=colo|
00001f80  75 72 25 20 80 20 62 6c  6f 63 6b 21 31 36 3d 2d  |ur% . block!16=-|
00001f90  31 20 8c 20 f2 64 72 61  67 63 6f 6c 0d 0a 5a 48  |1 . .dragcol..ZH|
00001fa0  e7 20 62 6c 6f 63 6b 21  31 32 3d 63 6f 6c 6f 75  |. block!12=colou|
00001fb0  72 25 20 80 20 62 6c 6f  63 6b 21 31 36 3e 30 20  |r% . block!16>0 |
00001fc0  80 20 62 6c 6f 63 6b 21  31 36 3c 31 31 20 8c 20  |. block!16<11 . |
00001fd0  f2 75 70 61 6e 64 64 6f  77 6e 28 62 6c 6f 63 6b  |.upanddown(block|
00001fe0  21 31 36 29 0d 0a 64 0f  e7 20 70 72 65 71 75 69  |!16)..d.. prequi|
00001ff0  74 20 8c 0d 0a 6e 61 e7  20 62 6c 6f 63 6b 21 31  |t ...na. block!1|
00002000  32 3d 71 75 69 74 25 20  80 20 62 6c 6f 63 6b 21  |2=quit% . block!|
00002010  31 36 3d 30 20 8c 20 c8  99 22 57 69 6d 70 5f 50  |16=0 . .."Wimp_P|
00002020  72 6f 63 65 73 73 4b 65  79 22 2c 26 31 46 43 3a  |rocessKey",&1FC:|
00002030  c8 99 72 65 69 6e 74 65  72 2c 6d 79 74 61 73 6b  |..reinter,mytask|
00002040  25 3a c8 99 22 57 69 6d  70 5f 43 6c 6f 73 65 44  |%:.."Wimp_CloseD|
00002050  6f 77 6e 22 0d 0a 78 3b  e7 20 62 6c 6f 63 6b 21  |own"..x;. block!|
00002060  31 32 3d 71 75 69 74 25  20 80 20 62 6c 6f 63 6b  |12=quit% . block|
00002070  21 31 36 3d 32 20 8c 20  f2 63 6c 6f 73 65 28 71  |!16=2 . .close(q|
00002080  75 69 74 25 29 3a 70 72  65 71 75 69 74 3d a3 0d  |uit%):prequit=..|
00002090  0a 82 50 e7 20 62 6c 6f  63 6b 21 31 32 3d 71 75  |..P. block!12=qu|
000020a0  69 74 25 20 80 20 62 6c  6f 63 6b 21 31 36 3d 33  |it% . block!16=3|
000020b0  20 8c 20 f2 63 6c 6f 73  65 28 71 75 69 74 25 29  | . .close(quit%)|
000020c0  3a f2 6f 70 65 6e 77 69  6e 28 73 61 76 65 64 25  |:.openwin(saved%|
000020d0  29 3a 70 72 65 71 75 69  74 77 61 69 74 3d b9 0d  |):prequitwait=..|
000020e0  0a 8c 27 e7 20 70 72 65  71 75 69 74 20 80 20 ac  |..'. prequit . .|
000020f0  20 70 72 65 71 75 69 74  77 61 69 74 20 70 72 65  | prequitwait pre|
00002100  71 75 69 74 3d a3 0d 0a  96 05 cc 0d 0a a0 4a e7  |quit=.........J.|
00002110  20 62 6c 6f 63 6b 21 31  32 3d 71 75 69 74 25 20  | block!12=quit% |
00002120  80 20 62 6c 6f 63 6b 21  31 36 3d 30 20 8c 20 c8  |. block!16=0 . .|
00002130  99 72 65 69 6e 74 65 72  2c 6d 79 74 61 73 6b 25  |.reinter,mytask%|
00002140  3a c8 99 22 57 69 6d 70  5f 43 6c 6f 73 65 44 6f  |:.."Wimp_CloseDo|
00002150  77 6e 22 3a e0 0d 0a aa  31 e7 20 62 6c 6f 63 6b  |wn":....1. block|
00002160  21 31 32 3d 71 75 69 74  25 20 80 20 62 6c 6f 63  |!12=quit% . bloc|
00002170  6b 21 31 36 3d 32 20 8c  20 f2 63 6c 6f 73 65 28  |k!16=2 . .close(|
00002180  71 75 69 74 25 29 0d 0a  b4 42 e7 20 62 6c 6f 63  |quit%)...B. bloc|
00002190  6b 21 31 32 3d 71 75 69  74 25 20 80 20 62 6c 6f  |k!12=quit% . blo|
000021a0  63 6b 21 31 36 3d 33 20  8c 20 f2 63 6c 6f 73 65  |ck!16=3 . .close|
000021b0  28 71 75 69 74 25 29 3a  f2 6f 70 65 6e 77 69 6e  |(quit%):.openwin|
000021c0  28 73 61 76 65 64 25 29  0d 0a be 05 cd 0d 0a c8  |(saved%)........|
000021d0  39 e7 20 62 6c 6f 63 6b  21 31 32 3d 71 75 65 72  |9. block!12=quer|
000021e0  79 25 20 80 20 62 6c 6f  63 6b 21 31 36 3d 30 20  |y% . block!16=0 |
000021f0  8c 20 f2 63 6c 6f 73 65  28 71 75 65 72 79 25 29  |. .close(query%)|
00002200  3a f2 65 6e 64 71 0d 0a  d2 24 e7 20 62 6c 6f 63  |:.endq...$. bloc|
00002210  6b 21 31 32 3d 70 72 69  6e 74 25 20 80 20 62 6c  |k!12=print% . bl|
00002220  6f 63 6b 21 31 36 3d 31  20 8c 0d 0a dc 0a f2 70  |ock!16=1 ......p|
00002230  72 69 6e 74 0d 0a e6 35  e7 20 6e 6f 69 63 3d 31  |rint...5. noic=1|
00002240  20 8c 20 c8 99 72 65 69  6e 74 65 72 2c 6d 79 74  | . ..reinter,myt|
00002250  61 73 6b 25 3a c8 99 22  57 69 6d 70 5f 43 6c 6f  |ask%:.."Wimp_Clo|
00002260  73 65 44 6f 77 6e 22 3a  e0 0d 0a f0 05 cd 0d 0a  |seDown":........|
00002270  fa 30 e7 20 62 6c 6f 63  6b 21 31 32 3d 70 72 69  |.0. block!12=pri|
00002280  6e 74 25 20 80 20 62 6c  6f 63 6b 21 31 36 3d 35  |nt% . block!16=5|
00002290  20 8c 20 f2 6d 6f 72 65  63 6f 70 69 65 73 0d 0b  | . .morecopies..|
000022a0  04 30 e7 20 62 6c 6f 63  6b 21 31 32 3d 70 72 69  |.0. block!12=pri|
000022b0  6e 74 25 20 80 20 62 6c  6f 63 6b 21 31 36 3d 33  |nt% . block!16=3|
000022c0  20 8c 20 f2 6c 65 73 73  63 6f 70 69 65 73 0d 0b  | . .lesscopies..|
000022d0  0e 05 e1 0d 0b 18 21 dd  a4 63 68 65 63 6b 66 6c  |......!..checkfl|
000022e0  61 67 28 68 61 6e 64 6c  65 2c 69 63 6f 6e 2c 66  |ag(handle,icon,f|
000022f0  6c 61 67 29 0d 0b 22 09  62 69 74 3d a3 0d 0b 2c  |lag)..".bit=...,|
00002300  1e 21 69 63 6f 6e 64 3d  68 61 6e 64 6c 65 3a 69  |.!icond=handle:i|
00002310  63 6f 6e 64 21 34 3d 69  63 6f 6e 0d 0b 36 20 c8  |cond!4=icon..6 .|
00002320  99 22 57 69 6d 70 5f 47  65 74 49 63 6f 6e 53 74  |."Wimp_GetIconSt|
00002330  61 74 65 22 2c 2c 69 63  6f 6e 64 0d 0b 40 22 e7  |ate",,icond..@".|
00002340  20 28 69 63 6f 6e 64 21  32 34 80 28 31 3c 3c 66  | (icond!24.(1<<f|
00002350  6c 61 67 29 29 3e 30 20  62 69 74 3d b9 0d 0b 4a  |lag))>0 bit=...J|
00002360  08 3d 62 69 74 0d 0b 54  12 dd f2 73 65 74 73 68  |.=bit..T...setsh|
00002370  65 61 72 28 6f 6e 29 0d  0b 5e 3b 21 69 63 6f 6e  |ear(on)..^;!icon|
00002380  64 3d 64 65 74 61 69 6c  73 25 3a 69 63 6f 6e 64  |d=details%:icond|
00002390  21 34 3d 32 39 3a c8 99  22 57 69 6d 70 5f 47 65  |!4=29:.."Wimp_Ge|
000023a0  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 69 63 6f  |tIconState",,ico|
000023b0  6e 64 0d 0b 68 0c e7 20  6f 6e 3d 31 20 8c 0d 0b  |nd..h.. on=1 ...|
000023c0  72 17 43 3d 28 31 3c 3c  32 31 29 3a 45 3d 28 31  |r.C=(1<<21):E=(1|
000023d0  3c 3c 32 31 29 0d 0b 7c  05 cc 0d 0b 86 17 43 3d  |<<21)..|......C=|
000023e0  28 30 3c 3c 32 31 29 3a  45 3d 28 31 3c 3c 32 31  |(0<<21):E=(1<<21|
000023f0  29 0d 0b 90 05 cd 0d 0b  9a 18 69 63 6f 6e 64 21  |).........icond!|
00002400  38 3d 43 3a 69 63 6f 6e  64 21 31 32 3d 45 0d 0b  |8=C:icond!12=E..|
00002410  a4 20 c8 99 22 57 69 6d  70 5f 53 65 74 49 63 6f  |. .."Wimp_SetIco|
00002420  6e 53 74 61 74 65 22 2c  2c 69 63 6f 6e 64 0d 0b  |nState",,icond..|
00002430  ae 05 3a 0d 0b b8 3b 21  69 63 6f 6e 64 3d 64 65  |..:...;!icond=de|
00002440  74 61 69 6c 73 25 3a 69  63 6f 6e 64 21 34 3d 33  |tails%:icond!4=3|
00002450  30 3a c8 99 22 57 69 6d  70 5f 47 65 74 49 63 6f  |0:.."Wimp_GetIco|
00002460  6e 53 74 61 74 65 22 2c  2c 69 63 6f 6e 64 0d 0b  |nState",,icond..|
00002470  c2 0c e7 20 6f 6e 3d 30  20 8c 0d 0b cc 17 43 3d  |... on=0 .....C=|
00002480  28 31 3c 3c 32 31 29 3a  45 3d 28 31 3c 3c 32 31  |(1<<21):E=(1<<21|
00002490  29 0d 0b d6 05 cc 0d 0b  e0 17 43 3d 28 30 3c 3c  |).........C=(0<<|
000024a0  32 31 29 3a 45 3d 28 31  3c 3c 32 31 29 0d 0b ea  |21):E=(1<<21)...|
000024b0  05 cd 0d 0b f4 18 69 63  6f 6e 64 21 38 3d 43 3a  |......icond!8=C:|
000024c0  69 63 6f 6e 64 21 31 32  3d 45 0d 0b fe 20 c8 99  |icond!12=E... ..|
000024d0  22 57 69 6d 70 5f 53 65  74 49 63 6f 6e 53 74 61  |"Wimp_SetIconSta|
000024e0  74 65 22 2c 2c 69 63 6f  6e 64 0d 0c 08 05 e1 0d  |te",,icond......|
000024f0  0c 12 0d dd f2 70 72 6f  63 65 73 73 0d 0c 1c 2e  |.....process....|
00002500  e7 20 21 62 6c 6f 63 6b  3d 64 65 74 61 69 6c 73  |. !block=details|
00002510  25 20 80 20 62 6c 6f 63  6b 21 32 34 3d 31 33 20  |% . block!24=13 |
00002520  8c 20 f2 63 61 72 65 74  3a e1 0d 0c 26 4a e7 20  |. .caret:...&J. |
00002530  21 62 6c 6f 63 6b 3d 73  61 76 65 25 20 80 20 62  |!block=save% . b|
00002540  6c 6f 63 6b 21 32 34 3d  31 33 20 8c 20 77 69 6e  |lock!24=13 . win|
00002550  73 61 76 65 25 3d 21 62  6c 6f 63 6b 3a f2 73 61  |save%=!block:.sa|
00002560  76 65 28 24 a4 69 6e 66  6f 28 21 62 6c 6f 63 6b  |ve($.info(!block|
00002570  2c 31 29 29 0d 0c 30 4b  e7 20 21 62 6c 6f 63 6b  |,1))..0K. !block|
00002580  3d 73 61 76 65 64 25 20  80 20 62 6c 6f 63 6b 21  |=saved% . block!|
00002590  32 34 3d 31 33 20 8c 20  77 69 6e 73 61 76 65 25  |24=13 . winsave%|
000025a0  3d 21 62 6c 6f 63 6b 3a  f2 73 61 76 65 28 24 a4  |=!block:.save($.|
000025b0  69 6e 66 6f 28 21 62 6c  6f 63 6b 2c 31 29 29 0d  |info(!block,1)).|
000025c0  0c 3a 4d e7 20 21 62 6c  6f 63 6b 3d 73 61 76 65  |.:M. !block=save|
000025d0  70 69 63 25 20 80 20 62  6c 6f 63 6b 21 32 34 3d  |pic% . block!24=|
000025e0  31 33 20 8c 20 77 69 6e  73 61 76 65 25 3d 21 62  |13 . winsave%=!b|
000025f0  6c 6f 63 6b 3a f2 73 61  76 65 28 24 a4 69 6e 66  |lock:.save($.inf|
00002600  6f 28 21 62 6c 6f 63 6b  2c 31 29 29 0d 0c 44 20  |o(!block,1))..D |
00002610  c8 99 22 57 69 6d 70 5f  50 72 6f 63 65 73 73 4b  |.."Wimp_ProcessK|
00002620  65 79 22 2c 62 6c 6f 63  6b 21 32 34 0d 0c 4e 05  |ey",block!24..N.|
00002630  e1 0d 0c 58 0b dd f2 63  61 72 65 74 0d 0c 62 24  |...X...caret..b$|
00002640  c8 99 22 57 69 6d 70 5f  47 65 74 43 61 72 65 74  |.."Wimp_GetCaret|
00002650  50 6f 73 69 74 69 6f 6e  22 2c 2c 62 6c 6f 63 6b  |Position",,block|
00002660  0d 0c 6c 18 e7 20 62 6c  6f 63 6b 21 30 3d 64 65  |..l.. block!0=de|
00002670  74 61 69 6c 73 25 20 8c  0d 0c 76 10 c8 8e 20 62  |tails% ...v... b|
00002680  6c 6f 63 6b 21 34 20 ca  0d 0c 80 0d 20 c9 20 30  |lock!4 ..... . 0|
00002690  3a 6e 70 3d 35 0d 0c 8a  0d 20 c9 20 35 3a 6e 70  |:np=5.... . 5:np|
000026a0  3d 36 0d 0c 94 0d 20 c9  20 36 3a 6e 70 3d 37 0d  |=6.... . 6:np=7.|
000026b0  0c 9e 0e 20 c9 20 37 3a  6e 70 3d 31 38 0d 0c a8  |... . 7:np=18...|
000026c0  0f 20 c9 20 31 38 3a 6e  70 3d 31 30 0d 0c b2 0f  |. . 18:np=10....|
000026d0  20 c9 20 31 30 3a 6e 70  3d 32 31 0d 0c bc 0e 20  | . 10:np=21.... |
000026e0  c9 20 32 31 3a 6e 70 3d  30 0d 0c c6 0f 20 c9 20  |. 21:np=0.... . |
000026f0  31 33 3a 6e 70 3d 31 34  0d 0c d0 0f 20 c9 20 31  |13:np=14.... . 1|
00002700  34 3a 6e 70 3d 31 37 0d  0c da 0f 20 c9 20 31 37  |4:np=17.... . 17|
00002710  3a 6e 70 3d 31 35 0d 0c  e4 0e 20 c9 20 31 35 3a  |:np=15.... . 15:|
00002720  6e 70 3d 30 0d 0c ee 3b  20 c9 20 33 31 3a 6e 70  |np=0...; . 31:np|
00002730  3d 33 32 3a f2 69 6e 66  6f 28 64 65 74 61 69 6c  |=32:.info(detail|
00002740  73 25 2c 31 33 2c 24 a4  69 6e 66 6f 28 64 65 74  |s%,13,$.info(det|
00002750  61 69 6c 73 25 2c 62 6c  6f 63 6b 21 34 29 29 0d  |ails%,block!4)).|
00002760  0c f8 3b 20 c9 20 33 32  3a 6e 70 3d 33 33 3a f2  |..; . 32:np=33:.|
00002770  69 6e 66 6f 28 64 65 74  61 69 6c 73 25 2c 31 34  |info(details%,14|
00002780  2c 24 a4 69 6e 66 6f 28  64 65 74 61 69 6c 73 25  |,$.info(details%|
00002790  2c 62 6c 6f 63 6b 21 34  29 29 0d 0d 02 3b 20 c9  |,block!4))...; .|
000027a0  20 33 33 3a 6e 70 3d 33  34 3a f2 69 6e 66 6f 28  | 33:np=34:.info(|
000027b0  64 65 74 61 69 6c 73 25  2c 31 37 2c 24 a4 69 6e  |details%,17,$.in|
000027c0  66 6f 28 64 65 74 61 69  6c 73 25 2c 62 6c 6f 63  |fo(details%,bloc|
000027d0  6b 21 34 29 29 0d 0d 0c  3b 20 c9 20 33 34 3a 6e  |k!4))...; . 34:n|
000027e0  70 3d 31 33 3a f2 69 6e  66 6f 28 64 65 74 61 69  |p=13:.info(detai|
000027f0  6c 73 25 2c 31 35 2c 24  a4 69 6e 66 6f 28 64 65  |ls%,15,$.info(de|
00002800  74 61 69 6c 73 25 2c 62  6c 6f 63 6b 21 34 29 29  |tails%,block!4))|
00002810  0d 0d 16 06 20 cb 0d 0d  20 49 20 c8 99 20 22 57  |.... ... I .. "W|
00002820  69 6d 70 5f 53 65 74 43  61 72 65 74 50 6f 73 69  |imp_SetCaretPosi|
00002830  74 69 6f 6e 22 2c 64 65  74 61 69 6c 73 25 2c 6e  |tion",details%,n|
00002840  70 2c 30 2c 30 2c 2d 31  2c a9 28 24 a4 69 6e 66  |p,0,0,-1,.($.inf|
00002850  6f 28 64 65 74 61 69 6c  73 25 2c 6e 70 29 29 0d  |o(details%,np)).|
00002860  0d 2a 06 20 cd 0d 0d 34  06 20 e1 0d 0d 3e 0c dd  |.*. ...4. ...>..|
00002870  f2 73 65 6c 65 63 74 0d  0d 48 0d e7 20 67 65 65  |.select..H.. gee|
00002880  3d 31 20 8c 0d 0d 52 d8  e7 20 76 65 72 73 69 6f  |=1 ...R.. versio|
00002890  6e 25 3e 33 30 30 20 8c  20 c8 99 22 46 6f 6e 74  |n%>300 . .."Font|
000028a0  5f 44 65 63 6f 64 65 4d  65 6e 75 22 2c 30 2c 66  |_DecodeMenu",0,f|
000028b0  6d 65 6e 75 25 2c 62 6c  6f 63 6b 2c 69 63 6f 6e  |menu%,block,icon|
000028c0  64 2c 32 35 35 b8 2c 2c  2c 2c 73 69 7a 65 3a 24  |d,255.,,,,size:$|
000028d0  69 63 6f 6e 64 3d c0 24  69 63 6f 6e 64 2c 73 69  |icond=.$icond,si|
000028e0  7a 65 2d 31 29 3a 24 69  63 6f 6e 64 3d c2 24 69  |ze-1):$icond=.$i|
000028f0  63 6f 6e 64 2c a9 28 24  69 63 6f 6e 64 29 2d 32  |cond,.($icond)-2|
00002900  29 3a 24 69 63 6f 6e 64  3d c0 24 69 63 6f 6e 64  |):$icond=.$icond|
00002910  2c a9 24 69 63 6f 6e 64  2d 28 a9 24 69 63 6f 6e  |,.$icond-(.$icon|
00002920  64 2d a7 24 69 63 6f 6e  64 2c 22 5c 22 29 29 2d  |d-.$icond,"\"))-|
00002930  31 29 3a 8b 20 c8 99 22  57 69 6d 70 5f 44 65 63  |1):. .."Wimp_Dec|
00002940  6f 64 65 4d 65 6e 75 22  2c 2c 66 6d 65 6e 75 25  |odeMenu",,fmenu%|
00002950  2c 62 6c 6f 63 6b 2c 69  63 6f 6e 64 0d 0d 5c 12  |,block,icond..\.|
00002960  66 61 6d 69 6c 79 24 3d  24 69 63 6f 6e 64 0d 0d  |family$=$icond..|
00002970  66 1f f2 69 6e 66 6f 28  64 65 74 61 69 6c 73 25  |f..info(details%|
00002980  2c 69 63 79 2c 66 61 6d  69 6c 79 24 29 0d 0d 70  |,icy,family$)..p|
00002990  12 f2 72 65 64 72 61 77  28 63 61 72 64 25 29 0d  |..redraw(card%).|
000029a0  0d 7a 09 67 65 65 3d 30  0d 0d 84 05 e1 0d 0d 8e  |.z.gee=0........|
000029b0  05 cd 0d 0d 98 0d e7 20  67 65 65 3d 32 20 8c 0d  |....... gee=2 ..|
000029c0  0d a2 2c c8 99 22 57 69  6d 70 5f 44 65 63 6f 64  |..,.."Wimp_Decod|
000029d0  65 4d 65 6e 75 22 2c 2c  73 70 72 6d 65 6e 25 2c  |eMenu",,sprmen%,|
000029e0  62 6c 6f 63 6b 2c 69 63  6f 6e 64 0d 0d ac 12 63  |block,icond....c|
000029f0  75 72 73 70 72 24 3d 24  69 63 6f 6e 64 0d 0d b6  |urspr$=$icond...|
00002a00  0f f2 64 72 61 77 73 70  72 69 74 65 0d 0d c0 09  |..drawsprite....|
00002a10  67 65 65 3d 30 0d 0d ca  05 e1 0d 0d d4 05 cd 0d  |gee=0...........|
00002a20  0d de 2e c8 99 22 57 69  6d 70 5f 44 65 63 6f 64  |....."Wimp_Decod|
00002a30  65 4d 65 6e 75 22 2c 2c  6f 70 65 6e 6d 65 6e 75  |eMenu",,openmenu|
00002a40  25 2c 62 6c 6f 63 6b 2c  69 63 6f 6e 64 0d 0d e8  |%,block,icond...|
00002a50  0a 69 66 66 79 3d b9 0d  0d f2 2c e7 20 24 69 63  |.iffy=....,. $ic|
00002a60  6f 6e 64 3d 22 51 75 69  74 22 20 8c 20 f2 61 72  |ond="Quit" . .ar|
00002a70  65 79 6f 75 73 75 72 65  3a 71 75 69 74 69 6e 67  |eyousure:quiting|
00002a80  25 3d b9 0d 0d fc 2b e7  20 24 69 63 6f 6e 64 3d  |%=....+. $icond=|
00002a90  22 44 65 74 61 69 6c 73  22 20 8c 20 f2 6f 70 65  |"Details" . .ope|
00002aa0  6e 77 69 6e 28 64 65 74  61 69 6c 73 25 29 0d 0e  |nwin(details%)..|
00002ab0  06 34 e7 20 24 69 63 6f  6e 64 3d 22 56 69 65 77  |.4. $icond="View|
00002ac0  22 20 8c 20 f2 6f 70 65  6e 77 69 6e 28 63 61 72  |" . .openwin(car|
00002ad0  64 25 29 3a f2 72 65 64  72 61 77 28 63 61 72 64  |d%):.redraw(card|
00002ae0  25 29 0d 0e 10 29 e7 20  24 69 63 6f 6e 64 3d 22  |%)...). $icond="|
00002af0  50 69 63 74 75 72 65 2e  44 65 6c 20 50 69 63 22  |Picture.Del Pic"|
00002b00  20 8c 20 f2 6b 69 6c 6c  73 70 72 0d 0e 1a 33 e7  | . .killspr...3.|
00002b10  20 24 69 63 6f 6e 64 3d  22 42 61 63 6b 20 43 6f  | $icond="Back Co|
00002b20  6c 22 20 8c 20 69 6f 3d  30 3a 68 65 78 3d 68 65  |l" . io=0:hex=he|
00002b30  78 63 28 69 6f 29 3a f2  73 65 74 70 65 72 0d 0e  |xc(io):.setper..|
00002b40  24 4c e7 20 24 69 63 6f  6e 64 3d 22 50 69 63 74  |$L. $icond="Pict|
00002b50  75 72 65 2e 46 6f 72 63  65 20 53 63 61 6c 65 22  |ure.Force Scale"|
00002b60  20 80 20 69 66 66 79 20  80 20 66 6f 72 63 65 20  | . iffy . force |
00002b70  66 6f 72 63 65 3d a3 3a  69 66 66 79 3d a3 3a f2  |force=.:iffy=.:.|
00002b80  64 72 61 77 73 70 72 69  74 65 0d 0e 2e 4e e7 20  |drawsprite...N. |
00002b90  24 69 63 6f 6e 64 3d 22  50 69 63 74 75 72 65 2e  |$icond="Picture.|
00002ba0  46 6f 72 63 65 20 53 63  61 6c 65 22 20 80 20 69  |Force Scale" . i|
00002bb0  66 66 79 20 80 20 ac 20  66 6f 72 63 65 20 66 6f  |ffy . . force fo|
00002bc0  72 63 65 3d b9 3a 69 66  66 79 3d a3 3a f2 64 72  |rce=.:iffy=.:.dr|
00002bd0  61 77 73 70 72 69 74 65  0d 0e 38 4c e7 20 24 69  |awsprite..8L. $i|
00002be0  63 6f 6e 64 3d 22 50 69  63 74 75 72 65 2e 43 65  |cond="Picture.Ce|
00002bf0  6e 74 72 65 64 22 20 80  20 69 66 66 79 20 80 20  |ntred" . iffy . |
00002c00  63 65 6e 74 72 65 64 20  63 65 6e 74 72 65 64 3d  |centred centred=|
00002c10  a3 3a 69 66 66 79 3d a3  3a f2 64 72 61 77 73 70  |.:iffy=.:.drawsp|
00002c20  72 69 74 65 0d 0e 42 4e  e7 20 24 69 63 6f 6e 64  |rite..BN. $icond|
00002c30  3d 22 50 69 63 74 75 72  65 2e 43 65 6e 74 72 65  |="Picture.Centre|
00002c40  64 22 20 80 20 69 66 66  79 20 80 20 ac 20 63 65  |d" . iffy . . ce|
00002c50  6e 74 72 65 64 20 63 65  6e 74 72 65 64 3d b9 3a  |ntred centred=.:|
00002c60  69 66 66 79 3d a3 3a f2  64 72 61 77 73 70 72 69  |iffy=.:.drawspri|
00002c70  74 65 0d 0e 4c 28 e7 20  24 69 63 6f 6e 64 3d 22  |te..L(. $icond="|
00002c80  53 61 76 65 2e 44 72 61  77 22 20 f2 6f 70 65 6e  |Save.Draw" .open|
00002c90  77 69 6e 28 73 61 76 65  25 29 0d 0e 56 29 e7 20  |win(save%)..V). |
00002ca0  24 69 63 6f 6e 64 3d 22  53 61 76 65 2e 44 61 74  |$icond="Save.Dat|
00002cb0  61 22 20 f2 6f 70 65 6e  77 69 6e 28 73 61 76 65  |a" .openwin(save|
00002cc0  64 25 29 0d 0e 60 22 c8  99 22 57 69 6d 70 5f 47  |d%)..`".."Wimp_G|
00002cd0  65 74 50 6f 69 6e 74 65  72 49 6e 66 6f 22 2c 2c  |etPointerInfo",,|
00002ce0  62 6c 6f 63 6b 0d 0e 6a  11 e7 20 62 6c 6f 63 6b  |block..j.. block|
00002cf0  21 38 3d 31 20 8c 0d 0e  74 1c e7 20 6d 65 6e 75  |!8=1 ...t.. menu|
00002d00  6f 70 65 6e 3d 2d 34 34  20 8c 20 f2 63 6d 65 6e  |open=-44 . .cmen|
00002d10  75 73 0d 0e 7e 22 c8 99  22 57 69 6d 70 5f 43 72  |us..~".."Wimp_Cr|
00002d20  65 61 74 65 4d 65 6e 75  22 2c 2c 6f 70 65 6e 6d  |eateMenu",,openm|
00002d30  65 6e 75 25 0d 0e 88 05  cc 0d 0e 92 1b c8 99 22  |enu%..........."|
00002d40  57 69 6d 70 5f 43 72 65  61 74 65 4d 65 6e 75 22  |Wimp_CreateMenu"|
00002d50  2c 2c 2d 31 0d 0e 9c 05  cd 0d 0e a6 05 e1 0d 0e  |,,-1............|
00002d60  b0 0d dd f2 6b 69 6c 6c  73 70 72 0d 0e ba 28 c8  |....killspr...(.|
00002d70  99 22 4f 53 5f 48 65 61  70 22 2c 36 2c 68 65 61  |."OS_Heap",6,hea|
00002d80  70 25 2c 73 70 70 6f 6f  6c 25 20 b8 20 2c 2c 2c  |p%,sppool% . ,,,|
00002d90  6f 68 73 0d 0e c4 34 c8  99 22 4f 53 5f 48 65 61  |ohs...4.."OS_Hea|
00002da0  70 22 2c 34 2c 68 65 61  70 25 2c 73 70 70 6f 6f  |p",4,heap%,sppoo|
00002db0  6c 25 2c 31 30 32 34 2d  6f 68 73 20 b8 20 2c 2c  |l%,1024-ohs . ,,|
00002dc0  73 70 70 6f 6f 6c 25 0d  0e ce 56 e7 20 6f 72 69  |sppool%...V. ori|
00002dd0  67 68 65 61 70 2d 68 73  69 7a 65 62 3c 30 20 8c  |gheap-hsizeb<0 .|
00002de0  20 c8 99 22 4f 53 5f 48  65 61 70 22 2c 35 2c 68  | .."OS_Heap",5,h|
00002df0  65 61 70 25 2c 2c 6f 72  69 67 68 65 61 70 2d 68  |eap%,,origheap-h|
00002e00  73 69 7a 65 62 3a 68 73  69 7a 65 62 2b 3d 6f 72  |sizeb:hsizeb+=or|
00002e10  69 67 68 65 61 70 2d 68  73 69 7a 65 62 0d 0e d8  |igheap-hsizeb...|
00002e20  25 c8 99 22 57 69 6d 70  5f 53 6c 6f 74 53 69 7a  |%.."Wimp_SlotSiz|
00002e30  65 22 2c 2d 31 2c 2d 31  20 b8 20 63 75 72 72 65  |e",-1,-1 . curre|
00002e40  6e 74 0d 0e e2 1d c8 99  22 57 69 6d 70 5f 53 6c  |nt......"Wimp_Sl|
00002e50  6f 74 53 69 7a 65 22 2c  6f 72 69 67 2c 2d 31 0d  |otSize",orig,-1.|
00002e60  0e ec 05 cd 0d 0e f6 1f  73 66 69 6c 65 24 3d 22  |........sfile$="|
00002e70  22 3a 63 75 72 73 70 72  24 3d 22 22 3a 73 70 72  |":curspr$="":spr|
00002e80  25 3d 30 0d 0f 00 13 21  62 6c 6f 63 6b 3d 64 65  |%=0....!block=de|
00002e90  74 61 69 6c 73 25 0d 0f  0a 21 c8 99 22 57 69 6d  |tails%...!.."Wim|
00002ea0  70 5f 47 65 74 57 69 6e  64 6f 77 49 6e 66 6f 22  |p_GetWindowInfo"|
00002eb0  2c 2c 62 6c 6f 63 6b 0d  0f 14 1b 77 6f 72 6b 78  |,,block....workx|
00002ec0  25 3d 62 6c 6f 63 6b 21  34 2d 62 6c 6f 63 6b 21  |%=block!4-block!|
00002ed0  32 30 0d 0f 1e 1c 77 6f  72 6b 79 25 3d 62 6c 6f  |20....worky%=blo|
00002ee0  63 6b 21 31 36 2d 62 6c  6f 63 6b 21 32 34 0d 0f  |ck!16-block!24..|
00002ef0  28 47 c8 99 22 57 69 6d  70 5f 46 6f 72 63 65 52  |(G.."Wimp_ForceR|
00002f00  65 64 72 61 77 22 2c 2d  31 2c 77 6f 72 6b 78 25  |edraw",-1,workx%|
00002f10  2b 34 30 30 2c 77 6f 72  6b 79 25 2d 33 35 32 2c  |+400,worky%-352,|
00002f20  77 6f 72 6b 78 25 2b 35  36 34 2c 77 6f 72 6b 79  |workx%+564,worky|
00002f30  25 2d 32 30 38 0d 0f 32  10 21 62 6c 6f 63 6b 3d  |%-208..2.!block=|
00002f40  63 61 72 64 25 0d 0f 3c  21 c8 99 22 57 69 6d 70  |card%..<!.."Wimp|
00002f50  5f 47 65 74 57 69 6e 64  6f 77 49 6e 66 6f 22 2c  |_GetWindowInfo",|
00002f60  2c 62 6c 6f 63 6b 0d 0f  46 1b 77 6f 72 6b 78 25  |,block..F.workx%|
00002f70  3d 62 6c 6f 63 6b 21 34  2d 62 6c 6f 63 6b 21 32  |=block!4-block!2|
00002f80  30 0d 0f 50 1c 77 6f 72  6b 79 25 3d 62 6c 6f 63  |0..P.worky%=bloc|
00002f90  6b 21 31 36 2d 62 6c 6f  63 6b 21 32 34 0d 0f 5a  |k!16-block!24..Z|
00002fa0  47 c8 99 22 57 69 6d 70  5f 46 6f 72 63 65 52 65  |G.."Wimp_ForceRe|
00002fb0  64 72 61 77 22 2c 2d 31  2c 77 6f 72 6b 78 25 2b  |draw",-1,workx%+|
00002fc0  33 39 30 2c 77 6f 72 6b  79 25 2d 33 30 30 2c 77  |390,worky%-300,w|
00002fd0  6f 72 6b 78 25 2b 35 36  34 2c 77 6f 72 6b 79 25  |orkx%+564,worky%|
00002fe0  2d 31 35 36 0d 0f 64 05  e1 0d 0f 6e 11 dd f2 6d  |-156..d....n...m|
00002ff0  65 73 73 28 6d 65 73 73  24 29 0d 0f 78 20 21 69  |ess(mess$)..x !i|
00003000  63 6f 6e 64 3d 30 3a 24  28 69 63 6f 6e 64 2b 34  |cond=0:$(icond+4|
00003010  29 3d 6d 65 73 73 24 2b  bd 30 0d 0f 82 28 c8 99  |)=mess$+.0...(..|
00003020  22 57 69 6d 70 5f 52 65  70 6f 72 74 45 72 72 6f  |"Wimp_ReportErro|
00003030  72 22 2c 69 63 6f 6e 64  2c 31 2c 22 21 43 61 72  |r",icond,1,"!Car|
00003040  64 22 0d 0f 8c 05 e1 0d  0f 96 11 dd f2 65 72 72  |d"...........err|
00003050  6f 72 28 65 72 72 24 29  0d 0f a0 0d e7 20 9f 3d  |or(err$)..... .=|
00003060  35 32 33 20 8c 0d 0f aa  25 f2 6d 65 73 73 28 22  |523 ....%.mess("|
00003070  46 6f 6e 74 20 22 2b 66  6f 6e 74 24 2b 22 20 6e  |Font "+font$+" n|
00003080  6f 74 20 66 6f 75 6e 64  22 29 0d 0f b4 0e c8 8e  |ot found")......|
00003090  20 66 6f 6e 74 24 20 ca  0d 0f be 32 c9 20 66 6f  | font$ ....2. fo|
000030a0  6e 74 6e 61 6d 65 24 3a  f2 69 6e 66 6f 28 64 65  |ntname$:.info(de|
000030b0  74 61 69 6c 73 25 2c 33  2c 22 54 72 69 6e 69 74  |tails%,3,"Trinit|
000030c0  79 2e 4d 65 64 69 75 6d  22 29 0d 0f c8 33 c9 20  |y.Medium")...3. |
000030d0  66 6f 6e 74 65 78 74 72  61 24 3a f2 69 6e 66 6f  |fontextra$:.info|
000030e0  28 64 65 74 61 69 6c 73  25 2c 32 2c 22 54 72 69  |(details%,2,"Tri|
000030f0  6e 69 74 79 2e 4d 65 64  69 75 6d 22 29 0d 0f d2  |nity.Medium")...|
00003100  32 c9 20 66 6f 6e 74 61  64 31 24 3a f2 69 6e 66  |2. fontad1$:.inf|
00003110  6f 28 64 65 74 61 69 6c  73 25 2c 31 39 2c 22 54  |o(details%,19,"T|
00003120  72 69 6e 69 74 79 2e 4d  65 64 69 75 6d 22 29 0d  |rinity.Medium").|
00003130  0f dc 31 c9 20 66 6f 6e  74 74 65 6c 24 3a f2 69  |..1. fonttel$:.i|
00003140  6e 66 6f 28 64 65 74 61  69 6c 73 25 2c 34 2c 22  |nfo(details%,4,"|
00003150  54 72 69 6e 69 74 79 2e  4d 65 64 69 75 6d 22 29  |Trinity.Medium")|
00003160  0d 0f e6 05 cb 0d 0f f0  1a f2 72 65 64 72 61 77  |..........redraw|
00003170  28 63 61 72 64 25 29 3a  f2 70 6f 6c 6c 69 74 0d  |(card%):.pollit.|
00003180  0f fa 05 cd 0d 10 04 4d  21 69 63 6f 6e 64 3d 30  |.......M!icond=0|
00003190  3a 24 28 69 63 6f 6e 64  2b 34 29 3d 65 72 72 24  |:$(icond+4)=err$|
000031a0  2b 22 2e 22 2b 22 20 50  72 65 73 73 20 4f 4b 20  |+"."+" Press OK |
000031b0  74 6f 20 63 6f 6e 74 69  6e 75 65 20 6f 72 20 43  |to continue or C|
000031c0  61 6e 63 65 6c 20 74 6f  20 71 75 69 74 22 2b bd  |ancel to quit"+.|
000031d0  30 0d 10 0e 2f c8 99 22  57 69 6d 70 5f 52 65 70  |0.../.."Wimp_Rep|
000031e0  6f 72 74 45 72 72 6f 72  22 2c 69 63 6f 6e 64 2c  |ortError",icond,|
000031f0  33 2c 22 21 43 61 72 64  22 20 b8 20 2c 62 75 74  |3,"!Card" . ,but|
00003200  0d 10 18 34 e7 20 62 75  74 3d 32 20 8c 20 c8 99  |...4. but=2 . ..|
00003210  72 65 69 6e 74 65 72 2c  6d 79 74 61 73 6b 25 3a  |reinter,mytask%:|
00003220  c8 99 22 57 69 6d 70 5f  43 6c 6f 73 65 44 6f 77  |.."Wimp_CloseDow|
00003230  6e 22 3a e0 0d 10 22 05  e1 0d 10 2c 09 dd f2 6f  |n":..."....,...o|
00003240  75 74 0d 10 36 29 e7 20  77 69 6e 73 61 76 65 25  |ut..6). winsave%|
00003250  3d 73 61 76 65 25 20 8c  20 73 74 65 78 74 3d 73  |=save% . stext=s|
00003260  74 65 78 3a 66 74 3d 26  41 46 46 0d 10 40 2b e7  |tex:ft=&AFF..@+.|
00003270  20 77 69 6e 73 61 76 65  25 3d 73 61 76 65 64 25  | winsave%=saved%|
00003280  20 8c 20 73 74 65 78 74  3d 73 74 65 78 64 3a 66  | . stext=stexd:f|
00003290  74 3d 26 30 30 43 0d 10  4a 30 e7 20 77 69 6e 73  |t=&00C..J0. wins|
000032a0  61 76 65 25 3d 73 61 76  65 70 69 63 25 20 8c 20  |ave%=savepic% . |
000032b0  73 74 65 78 74 3d 73 74  65 78 74 70 69 63 3a 66  |stext=stextpic:f|
000032c0  74 3d 26 46 46 39 0d 10  54 10 e7 20 64 72 69 76  |t=&FF9..T.. driv|
000032d0  65 25 3d 31 20 8c 0d 10  5e 24 c8 99 20 22 57 69  |e%=1 ...^$.. "Wi|
000032e0  6d 70 5f 47 65 74 50 6f  69 6e 74 65 72 49 6e 66  |mp_GetPointerInf|
000032f0  6f 22 2c 2c 6d 62 6c 6f  63 6b 0d 10 68 3c 77 69  |o",,mblock..h<wi|
00003300  6e 3d 6d 62 6c 6f 63 6b  21 31 32 3a 69 63 6f 6e  |n=mblock!12:icon|
00003310  3d 6d 62 6c 6f 63 6b 21  31 36 3a 78 6f 75 74 3d  |=mblock!16:xout=|
00003320  21 6d 62 6c 6f 63 6b 3a  79 6f 75 74 3d 6d 62 6c  |!mblock:yout=mbl|
00003330  6f 63 6b 21 34 3a 0d 10  72 50 6d 62 6c 6f 63 6b  |ock!4:..rPmblock|
00003340  21 32 30 3d 6d 62 6c 6f  63 6b 21 31 32 3a 6d 62  |!20=mblock!12:mb|
00003350  6c 6f 63 6b 21 32 34 3d  6d 62 6c 6f 63 6b 21 31  |lock!24=mblock!1|
00003360  36 3a 6d 62 6c 6f 63 6b  21 32 38 3d 21 6d 62 6c  |6:mblock!28=!mbl|
00003370  6f 63 6b 3a 6d 62 6c 6f  63 6b 21 33 32 3d 6d 62  |ock:mblock!32=mb|
00003380  6c 6f 63 6b 21 34 0d 10  7c 37 6d 62 6c 6f 63 6b  |lock!4..|7mblock|
00003390  21 31 32 3d 30 3a 6d 62  6c 6f 63 6b 21 31 36 3d  |!12=0:mblock!16=|
000033a0  31 3a 6d 62 6c 6f 63 6b  21 33 36 3d 31 30 32 34  |1:mblock!36=1024|
000033b0  3a 6d 62 6c 6f 63 6b 21  34 30 3d 66 74 0d 10 86  |:mblock!40=ft...|
000033c0  1d 24 73 74 65 78 74 3d  24 a4 69 6e 66 6f 28 77  |.$stext=$.info(w|
000033d0  69 6e 73 61 76 65 25 2c  31 29 0d 10 90 1b 24 73  |insave%,1)....$s|
000033e0  74 65 78 74 3d a4 67 65  74 6c 65 61 66 28 24 73  |text=.getleaf($s|
000033f0  74 65 78 74 29 0d 10 9a  29 e3 20 49 3d 30 20 b8  |text)...). I=0 .|
00003400  20 32 35 35 3a e7 20 49  3f 73 74 65 78 74 3c 33  | 255:. I?stext<3|
00003410  32 20 8c 20 49 3f 73 74  65 78 74 3d 31 33 0d 10  |2 . I?stext=13..|
00003420  a4 05 ed 0d 10 ae 20 21  6d 62 6c 6f 63 6b 3d 34  |...... !mblock=4|
00003430  34 2b 34 2a 28 31 2b 28  a9 24 73 74 65 78 74 29  |4+4*(1+(.$stext)|
00003440  81 34 29 0d 10 b8 2b 24  28 6d 62 6c 6f 63 6b 2b  |.4)...+$(mblock+|
00003450  34 34 29 3d a4 62 69 74  28 24 73 74 65 78 74 29  |44)=.bit($stext)|
00003460  2b bd 30 3a 21 6d 62 6c  6f 63 6b 3d 36 30 0d 10  |+.0:!mblock=60..|
00003470  c2 42 c8 99 20 22 57 69  6d 70 5f 53 65 6e 64 4d  |.B.. "Wimp_SendM|
00003480  65 73 73 61 67 65 22 2c  31 37 2c 6d 62 6c 6f 63  |essage",17,mbloc|
00003490  6b 2c 6d 62 6c 6f 63 6b  21 32 30 2c 6d 62 6c 6f  |k,mblock!20,mblo|
000034a0  63 6b 21 32 34 3a f4 20  44 61 74 61 53 61 76 65  |ck!24:. DataSave|
000034b0  0d 10 cc 0b 64 72 61 67  25 3d 30 0d 10 d6 05 cd  |....drag%=0.....|
000034c0  0d 10 e0 05 e1 0d 10 ea  0d dd f2 64 65 66 73 61  |...........defsa|
000034d0  76 65 0d 10 f4 09 f2 4d  6f 64 65 0d 10 fe 13 21  |ve.....Mode....!|
000034e0  62 6c 6f 63 6b 3d 77 69  6e 73 61 76 65 25 0d 11  |block=winsave%..|
000034f0  08 23 c8 99 20 22 57 69  6d 70 5f 47 65 74 57 69  |.#.. "Wimp_GetWi|
00003500  6e 64 6f 77 53 74 61 74  65 22 2c 2c 62 6c 6f 63  |ndowState",,bloc|
00003510  6b 0d 11 12 1b 79 73 69  7a 65 25 3d 62 6c 6f 63  |k....ysize%=bloc|
00003520  6b 21 31 36 2d 62 6c 6f  63 6b 21 38 0d 11 1c 23  |k!16-block!8...#|
00003530  78 25 3d 62 6c 6f 63 6b  21 34 3a 79 25 3d 62 6c  |x%=block!4:y%=bl|
00003540  6f 63 6b 21 38 3a 62 6c  6f 63 6b 21 34 3d 32 0d  |ock!8:block!4=2.|
00003550  11 26 20 c8 99 22 57 69  6d 70 5f 47 65 74 49 63  |.& .."Wimp_GetIc|
00003560  6f 6e 53 74 61 74 65 22  2c 2c 62 6c 6f 63 6b 0d  |onState",,block.|
00003570  11 30 23 62 6c 6f 63 6b  21 38 2b 3d 78 25 3a 62  |.0#block!8+=x%:b|
00003580  6c 6f 63 6b 21 31 32 2b  3d 79 25 2b 79 73 69 7a  |lock!12+=y%+ysiz|
00003590  65 25 0d 11 3a 24 62 6c  6f 63 6b 21 31 36 2b 3d  |e%..:$block!16+=|
000035a0  78 25 3a 62 6c 6f 63 6b  21 32 30 2b 3d 79 25 2b  |x%:block!20+=y%+|
000035b0  79 73 69 7a 65 25 0d 11  44 35 62 6c 6f 63 6b 21  |ysize%..D5block!|
000035c0  32 34 3d 30 3a 62 6c 6f  63 6b 21 32 38 3d 30 3a  |24=0:block!28=0:|
000035d0  62 6c 6f 63 6b 21 33 32  3d 78 6d 61 78 3a 62 6c  |block!32=xmax:bl|
000035e0  6f 63 6b 21 33 36 3d 79  6d 61 78 0d 11 4e 27 21  |ock!36=ymax..N'!|
000035f0  62 6c 6f 63 6b 3d 30 3a  62 6c 6f 63 6b 21 34 3d  |block=0:block!4=|
00003600  35 3a 64 72 61 67 25 3d  b9 3a 64 72 69 76 65 25  |5:drag%=.:drive%|
00003610  3d 31 0d 11 58 1b c8 99  22 57 69 6d 70 5f 44 72  |=1..X..."Wimp_Dr|
00003620  61 67 42 6f 78 22 2c 2c  62 6c 6f 63 6b 0d 11 62  |agBox",,block..b|
00003630  05 e1 0d 11 6c 0a dd f2  4d 6f 64 65 0d 11 76 4d  |....l...Mode..vM|
00003640  21 62 6c 6f 63 6b 3d 31  33 30 3a 62 6c 6f 63 6b  |!block=130:block|
00003650  21 34 3d 31 33 31 3a 62  6c 6f 63 6b 21 38 3d 2d  |!4=131:block!8=-|
00003660  31 3a c8 99 22 4f 53 5f  52 65 61 64 56 64 75 56  |1:.."OS_ReadVduV|
00003670  61 72 69 61 62 6c 65 73  22 2c 62 6c 6f 63 6b 2c  |ariables",block,|
00003680  62 6c 6f 63 6b 2b 31 32  38 0d 11 80 29 c8 99 22  |block+128...).."|
00003690  4f 53 5f 52 65 61 64 4d  6f 64 65 56 61 72 69 61  |OS_ReadModeVaria|
000036a0  62 6c 65 22 2c eb 2c 34  20 b8 20 2c 2c 58 65 69  |ble",.,4 . ,,Xei|
000036b0  67 25 0d 11 8a 29 c8 99  22 4f 53 5f 52 65 61 64  |g%...).."OS_Read|
000036c0  4d 6f 64 65 56 61 72 69  61 62 6c 65 22 2c eb 2c  |ModeVariable",.,|
000036d0  35 20 b8 20 2c 2c 59 65  69 67 25 0d 11 94 3d 78  |5 . ,,Yeig%...=x|
000036e0  6d 61 78 3d 28 28 62 6c  6f 63 6b 21 31 32 38 29  |max=((block!128)|
000036f0  2b 31 29 2a 32 5e 58 65  69 67 25 3a 79 6d 61 78  |+1)*2^Xeig%:ymax|
00003700  3d 28 28 62 6c 6f 63 6b  21 31 33 32 29 2b 31 29  |=((block!132)+1)|
00003710  2a 32 5e 59 65 69 67 25  0d 11 9e 05 e1 0d 11 a8  |*2^Yeig%........|
00003720  14 dd a4 67 65 74 6c 65  61 66 28 6c 65 61 66 24  |...getleaf(leaf$|
00003730  29 0d 11 b2 12 c8 95 20  a7 6c 65 61 66 24 2c 22  |)...... .leaf$,"|
00003740  2e 22 29 0d 11 bc 1f 6c  65 61 66 24 3d c1 6c 65  |.")....leaf$=.le|
00003750  61 66 24 2c a7 6c 65 61  66 24 2c 22 2e 22 29 2b  |af$,.leaf$,".")+|
00003760  31 29 0d 11 c6 0c ce 3a  3d 6c 65 61 66 24 0d 11  |1).....:=leaf$..|
00003770  d0 11 dd f2 73 61 76 65  28 73 61 76 65 24 29 0d  |....save(save$).|
00003780  11 da 84 e7 20 a7 73 61  76 65 24 2c 22 2e 22 29  |.... .save$,".")|
00003790  3c 31 20 80 20 a7 73 61  76 65 24 2c 22 3a 22 29  |<1 . .save$,":")|
000037a0  3c 31 20 80 20 73 61 76  65 24 3c 3e 22 3c 57 69  |<1 . save$<>"<Wi|
000037b0  6d 70 24 53 63 72 61 70  3e 22 20 8c 20 f2 71 75  |mp$Scrap>" . .qu|
000037c0  65 72 79 28 22 54 6f 20  73 61 76 65 2c 20 64 72  |ery("To save, dr|
000037d0  61 67 20 74 68 65 20 73  61 76 65 20 69 63 6f 6e  |ag the save icon|
000037e0  20 74 6f 20 61 20 64 69  72 65 63 74 6f 72 79 20  | to a directory |
000037f0  76 69 65 77 65 72 22 29  3a 6e 6f 73 61 76 65 3d  |viewer"):nosave=|
00003800  b9 3a e1 0d 11 e4 15 e7  20 77 69 6e 73 61 76 65  |.:...... winsave|
00003810  25 3d 73 61 76 65 64 25  0d 11 ee 07 ea 20 85 0d  |%=saved%..... ..|
00003820  11 f8 58 ee 20 85 20 ea  20 e7 20 9f 3d 37 31 36  |..X. . . . .=716|
00003830  32 32 3a f2 71 75 65 72  79 28 22 44 69 73 63 20  |22:.query("Disc |
00003840  46 75 6c 6c 22 29 3a 66  75 6c 6c 3d b9 3a f7 20  |Full"):full=.:. |
00003850  85 3a e1 3a 8b 20 f7 20  85 3a f2 65 72 72 6f 72  |.:.:. . .:.error|
00003860  28 f6 24 2b 22 20 3a 20  61 74 20 6c 69 6e 65 20  |(.$+" : at line |
00003870  22 2b c3 9e 29 3a e0 0d  12 02 13 20 65 6e 64 74  |"+..):..... endt|
00003880  65 78 74 25 3d 74 65 78  74 25 0d 12 0c 23 24 65  |ext%=text%...#$e|
00003890  6e 64 74 65 78 74 25 3d  22 43 61 72 64 32 20 44  |ndtext%="Card2 D|
000038a0  61 74 61 20 46 69 6c 65  22 2b bd 31 30 0d 12 16  |ata File"+.10...|
000038b0  11 20 65 6e 64 74 65 78  74 25 2b 3d 31 36 0d 12  |. endtext%+=16..|
000038c0  20 13 e7 20 63 75 72 73  70 72 24 3c 3e 22 22 20  | .. curspr$<>"" |
000038d0  8c 0d 12 2a 1b 24 65 6e  64 74 65 78 74 25 3d 22  |...*.$endtext%="|
000038e0  53 70 72 69 74 65 73 22  2b bd 31 30 0d 12 34 0f  |Sprites"+.10..4.|
000038f0  65 6e 64 74 65 78 74 25  2b 3d 38 0d 12 3e 63 24  |endtext%+=8..>c$|
00003900  65 6e 64 74 65 78 74 25  3d 63 75 72 73 70 72 24  |endtext%=curspr$|
00003910  2b bd 31 30 3a 65 6e 64  74 65 78 74 25 2b 3d a9  |+.10:endtext%+=.|
00003920  28 63 75 72 73 70 72 24  29 2b 31 3a 24 65 6e 64  |(curspr$)+1:$end|
00003930  74 65 78 74 25 3d c3 73  70 72 5f 6c 65 6e 25 2b  |text%=.spr_len%+|
00003940  bd 28 31 30 29 3a 65 6e  64 74 65 78 74 25 2b 3d  |.(10):endtext%+=|
00003950  a9 28 c3 73 70 72 5f 6c  65 6e 25 29 2b 31 0d 12  |.(.spr_len%)+1..|
00003960  48 28 e7 20 63 65 6e 74  72 65 64 20 63 24 3d 22  |H(. centred c$="|
00003970  63 65 6e 74 72 65 64 22  20 8b 20 63 24 3d 22 6f  |centred" . c$="o|
00003980  72 69 67 69 6e 22 0d 12  52 22 e7 20 66 6f 72 63  |rigin"..R". forc|
00003990  65 20 66 24 3d 22 66 6f  72 63 65 64 22 20 8b 20  |e f$="forced" . |
000039a0  66 24 3d 22 73 2f 73 22  0d 12 5c 1b e7 20 53 68  |f$="s/s"..\.. Sh|
000039b0  65 61 72 20 67 24 3d 22  31 22 20 8b 20 67 24 3d  |ear g$="1" . g$=|
000039c0  22 30 22 0d 12 66 14 24  65 6e 64 74 65 78 74 25  |"0"..f.$endtext%|
000039d0  3d 67 24 2b bd 31 30 0d  12 70 0f 65 6e 64 74 65  |=g$+.10..p.endte|
000039e0  78 74 25 2b 3d 32 0d 12  7a 14 24 65 6e 64 74 65  |xt%+=2..z.$endte|
000039f0  78 74 25 3d 63 24 2b bd  31 30 0d 12 84 13 65 6e  |xt%=c$+.10....en|
00003a00  64 74 65 78 74 25 2b 3d  a9 63 24 2b 31 0d 12 8e  |dtext%+=.c$+1...|
00003a10  14 24 65 6e 64 74 65 78  74 25 3d 66 24 2b bd 31  |.$endtext%=f$+.1|
00003a20  30 0d 12 98 13 65 6e 64  74 65 78 74 25 2b 3d a9  |0....endtext%+=.|
00003a30  66 24 2b 31 0d 12 a2 05  cc 0d 12 ac 2a 24 65 6e  |f$+1........*$en|
00003a40  64 74 65 78 74 25 3d 22  4e 6f 53 70 72 69 74 65  |dtext%="NoSprite|
00003a50  73 22 2b bd 31 30 3a 65  6e 64 74 65 78 74 25 2b  |s"+.10:endtext%+|
00003a60  3d 31 30 0d 12 b6 05 cd  0d 12 c0 25 20 24 65 6e  |=10........% $en|
00003a70  64 74 65 78 74 25 3d 24  a4 69 6e 66 6f 28 64 65  |dtext%=$.info(de|
00003a80  74 61 69 6c 73 25 2c 33  29 2b bd 31 30 0d 12 ca  |tails%,3)+.10...|
00003a90  26 20 65 6e 64 74 65 78  74 25 2b 3d a9 28 24 a4  |& endtext%+=.($.|
00003aa0  69 6e 66 6f 28 64 65 74  61 69 6c 73 25 2c 33 29  |info(details%,3)|
00003ab0  29 2b 31 0d 12 d4 27 20  24 65 6e 64 74 65 78 74  |)+1...' $endtext|
00003ac0  25 3d 24 a4 69 6e 66 6f  28 64 65 74 61 69 6c 73  |%=$.info(details|
00003ad0  25 2c 30 29 2b bd 28 31  30 29 0d 12 de 26 20 65  |%,0)+.(10)...& e|
00003ae0  6e 64 74 65 78 74 25 2b  3d a9 28 24 a4 69 6e 66  |ndtext%+=.($.inf|
00003af0  6f 28 64 65 74 61 69 6c  73 25 2c 30 29 29 2b 31  |o(details%,0))+1|
00003b00  0d 12 e8 28 20 24 65 6e  64 74 65 78 74 25 3d 24  |...( $endtext%=$|
00003b10  a4 69 6e 66 6f 28 64 65  74 61 69 6c 73 25 2c 31  |.info(details%,1|
00003b20  33 29 2b bd 28 31 30 29  0d 12 f2 26 65 6e 64 74  |3)+.(10)...&endt|
00003b30  65 78 74 25 2b 3d a9 28  24 a4 69 6e 66 6f 28 64  |ext%+=.($.info(d|
00003b40  65 74 61 69 6c 73 25 2c  31 33 29 29 2b 31 0d 12  |etails%,13))+1..|
00003b50  fc 27 24 65 6e 64 74 65  78 74 25 3d 24 a4 69 6e  |.'$endtext%=$.in|
00003b60  66 6f 28 64 65 74 61 69  6c 73 25 2c 33 31 29 2b  |fo(details%,31)+|
00003b70  bd 28 31 30 29 0d 13 06  26 65 6e 64 74 65 78 74  |.(10)...&endtext|
00003b80  25 2b 3d a9 28 24 a4 69  6e 66 6f 28 64 65 74 61  |%+=.($.info(deta|
00003b90  69 6c 73 25 2c 33 31 29  29 2b 31 0d 13 10 25 20  |ils%,31))+1...% |
00003ba0  24 65 6e 64 74 65 78 74  25 3d 24 a4 69 6e 66 6f  |$endtext%=$.info|
00003bb0  28 64 65 74 61 69 6c 73  25 2c 32 29 2b bd 31 30  |(details%,2)+.10|
00003bc0  0d 13 1a 26 20 65 6e 64  74 65 78 74 25 2b 3d a9  |...& endtext%+=.|
00003bd0  28 24 a4 69 6e 66 6f 28  64 65 74 61 69 6c 73 25  |($.info(details%|
00003be0  2c 32 29 29 2b 31 0d 13  24 27 20 24 65 6e 64 74  |,2))+1..$' $endt|
00003bf0  65 78 74 25 3d 24 a4 69  6e 66 6f 28 64 65 74 61  |ext%=$.info(deta|
00003c00  69 6c 73 25 2c 35 29 2b  bd 28 31 30 29 0d 13 2e  |ils%,5)+.(10)...|
00003c10  26 20 65 6e 64 74 65 78  74 25 2b 3d a9 28 24 a4  |& endtext%+=.($.|
00003c20  69 6e 66 6f 28 64 65 74  61 69 6c 73 25 2c 35 29  |info(details%,5)|
00003c30  29 2b 31 0d 13 38 28 20  24 65 6e 64 74 65 78 74  |)+1..8( $endtext|
00003c40  25 3d 24 a4 69 6e 66 6f  28 64 65 74 61 69 6c 73  |%=$.info(details|
00003c50  25 2c 31 34 29 2b bd 28  31 30 29 0d 13 42 26 65  |%,14)+.(10)..B&e|
00003c60  6e 64 74 65 78 74 25 2b  3d a9 28 24 a4 69 6e 66  |ndtext%+=.($.inf|
00003c70  6f 28 64 65 74 61 69 6c  73 25 2c 31 34 29 29 2b  |o(details%,14))+|
00003c80  31 0d 13 4c 28 20 24 65  6e 64 74 65 78 74 25 3d  |1..L( $endtext%=|
00003c90  24 a4 69 6e 66 6f 28 64  65 74 61 69 6c 73 25 2c  |$.info(details%,|
00003ca0  33 32 29 2b bd 28 31 30  29 0d 13 56 26 65 6e 64  |32)+.(10)..V&end|
00003cb0  74 65 78 74 25 2b 3d a9  28 24 a4 69 6e 66 6f 28  |text%+=.($.info(|
00003cc0  64 65 74 61 69 6c 73 25  2c 33 32 29 29 2b 31 0d  |details%,32))+1.|
00003cd0  13 60 25 24 65 6e 64 74  65 78 74 25 3d 24 a4 69  |.`%$endtext%=$.i|
00003ce0  6e 66 6f 28 64 65 74 61  69 6c 73 25 2c 31 39 29  |nfo(details%,19)|
00003cf0  2b bd 31 30 0d 13 6a 27  20 65 6e 64 74 65 78 74  |+.10..j' endtext|
00003d00  25 2b 3d a9 28 24 a4 69  6e 66 6f 28 64 65 74 61  |%+=.($.info(deta|
00003d10  69 6c 73 25 2c 31 39 29  29 2b 31 0d 13 74 27 20  |ils%,19))+1..t' |
00003d20  24 65 6e 64 74 65 78 74  25 3d 24 a4 69 6e 66 6f  |$endtext%=$.info|
00003d30  28 64 65 74 61 69 6c 73  25 2c 36 29 2b bd 28 31  |(details%,6)+.(1|
00003d40  30 29 0d 13 7e 26 20 65  6e 64 74 65 78 74 25 2b  |0)..~& endtext%+|
00003d50  3d a9 28 24 a4 69 6e 66  6f 28 64 65 74 61 69 6c  |=.($.info(detail|
00003d60  73 25 2c 36 29 29 2b 31  0d 13 88 28 20 24 65 6e  |s%,6))+1...( $en|
00003d70  64 74 65 78 74 25 3d 24  a4 69 6e 66 6f 28 64 65  |dtext%=$.info(de|
00003d80  74 61 69 6c 73 25 2c 31  37 29 2b bd 28 31 30 29  |tails%,17)+.(10)|
00003d90  0d 13 92 26 65 6e 64 74  65 78 74 25 2b 3d a9 28  |...&endtext%+=.(|
00003da0  24 a4 69 6e 66 6f 28 64  65 74 61 69 6c 73 25 2c  |$.info(details%,|
00003db0  31 37 29 29 2b 31 0d 13  9c 28 20 24 65 6e 64 74  |17))+1...( $endt|
00003dc0  65 78 74 25 3d 24 a4 69  6e 66 6f 28 64 65 74 61  |ext%=$.info(deta|
00003dd0  69 6c 73 25 2c 33 33 29  2b bd 28 31 30 29 0d 13  |ils%,33)+.(10)..|
00003de0  a6 26 65 6e 64 74 65 78  74 25 2b 3d a9 28 24 a4  |.&endtext%+=.($.|
00003df0  69 6e 66 6f 28 64 65 74  61 69 6c 73 25 2c 33 33  |info(details%,33|
00003e00  29 29 2b 31 0d 13 b0 26  24 65 6e 64 74 65 78 74  |))+1...&$endtext|
00003e10  25 3d 24 a4 69 6e 66 6f  28 64 65 74 61 69 6c 73  |%=$.info(details|
00003e20  25 2c 37 29 2b bd 28 31  30 29 0d 13 ba 25 65 6e  |%,7)+.(10)...%en|
00003e30  64 74 65 78 74 25 2b 3d  a9 28 24 a4 69 6e 66 6f  |dtext%+=.($.info|
00003e40  28 64 65 74 61 69 6c 73  25 2c 37 29 29 2b 31 0d  |(details%,7))+1.|
00003e50  13 c4 27 24 65 6e 64 74  65 78 74 25 3d 24 a4 69  |..'$endtext%=$.i|
00003e60  6e 66 6f 28 64 65 74 61  69 6c 73 25 2c 31 38 29  |nfo(details%,18)|
00003e70  2b bd 28 31 30 29 0d 13  ce 26 65 6e 64 74 65 78  |+.(10)...&endtex|
00003e80  74 25 2b 3d a9 28 24 a4  69 6e 66 6f 28 64 65 74  |t%+=.($.info(det|
00003e90  61 69 6c 73 25 2c 31 38  29 29 2b 31 0d 13 d8 27  |ails%,18))+1...'|
00003ea0  24 65 6e 64 74 65 78 74  25 3d 24 a4 69 6e 66 6f  |$endtext%=$.info|
00003eb0  28 64 65 74 61 69 6c 73  25 2c 31 30 29 2b bd 28  |(details%,10)+.(|
00003ec0  31 30 29 0d 13 e2 26 65  6e 64 74 65 78 74 25 2b  |10)...&endtext%+|
00003ed0  3d a9 28 24 a4 69 6e 66  6f 28 64 65 74 61 69 6c  |=.($.info(detail|
00003ee0  73 25 2c 31 30 29 29 2b  31 0d 13 ec 26 24 65 6e  |s%,10))+1...&$en|
00003ef0  64 74 65 78 74 25 3d 24  a4 69 6e 66 6f 28 64 65  |dtext%=$.info(de|
00003f00  74 61 69 6c 73 25 2c 34  29 2b bd 28 31 30 29 0d  |tails%,4)+.(10).|
00003f10  13 f6 25 65 6e 64 74 65  78 74 25 2b 3d a9 28 24  |..%endtext%+=.($|
00003f20  a4 69 6e 66 6f 28 64 65  74 61 69 6c 73 25 2c 34  |.info(details%,4|
00003f30  29 29 2b 31 0d 14 00 27  24 65 6e 64 74 65 78 74  |))+1...'$endtext|
00003f40  25 3d 24 a4 69 6e 66 6f  28 64 65 74 61 69 6c 73  |%=$.info(details|
00003f50  25 2c 32 31 29 2b bd 28  31 30 29 0d 14 0a 26 65  |%,21)+.(10)...&e|
00003f60  6e 64 74 65 78 74 25 2b  3d a9 28 24 a4 69 6e 66  |ndtext%+=.($.inf|
00003f70  6f 28 64 65 74 61 69 6c  73 25 2c 32 31 29 29 2b  |o(details%,21))+|
00003f80  31 0d 14 14 27 24 65 6e  64 74 65 78 74 25 3d 24  |1...'$endtext%=$|
00003f90  a4 69 6e 66 6f 28 64 65  74 61 69 6c 73 25 2c 31  |.info(details%,1|
00003fa0  35 29 2b bd 28 31 30 29  0d 14 1e 26 65 6e 64 74  |5)+.(10)...&endt|
00003fb0  65 78 74 25 2b 3d a9 28  24 a4 69 6e 66 6f 28 64  |ext%+=.($.info(d|
00003fc0  65 74 61 69 6c 73 25 2c  31 35 29 29 2b 31 0d 14  |etails%,15))+1..|
00003fd0  28 27 24 65 6e 64 74 65  78 74 25 3d 24 a4 69 6e  |('$endtext%=$.in|
00003fe0  66 6f 28 64 65 74 61 69  6c 73 25 2c 33 34 29 2b  |fo(details%,34)+|
00003ff0  bd 28 31 30 29 0d 14 32  26 65 6e 64 74 65 78 74  |.(10)..2&endtext|
00004000  25 2b 3d a9 28 24 a4 69  6e 66 6f 28 64 65 74 61  |%+=.($.info(deta|
00004010  69 6c 73 25 2c 33 34 29  29 2b 31 0d 14 3c 1c 24  |ils%,34))+1..<.$|
00004020  65 6e 64 74 65 78 74 25  3d c3 68 65 78 63 28 30  |endtext%=.hexc(0|
00004030  29 2b bd 28 31 30 29 0d  14 46 1c 20 65 6e 64 74  |)+.(10)..F. endt|
00004040  65 78 74 25 2b 3d a9 28  c3 68 65 78 63 28 30 29  |ext%+=.(.hexc(0)|
00004050  29 2b 31 0d 14 50 1d 20  24 65 6e 64 74 65 78 74  |)+1..P. $endtext|
00004060  25 3d c3 68 65 78 63 28  31 29 2b bd 28 31 30 29  |%=.hexc(1)+.(10)|
00004070  0d 14 5a 1c 20 65 6e 64  74 65 78 74 25 2b 3d a9  |..Z. endtext%+=.|
00004080  28 c3 68 65 78 63 28 31  29 29 2b 31 0d 14 64 1c  |(.hexc(1))+1..d.|
00004090  24 65 6e 64 74 65 78 74  25 3d c3 68 65 78 63 28  |$endtext%=.hexc(|
000040a0  32 29 2b bd 28 31 30 29  0d 14 6e 1c 20 65 6e 64  |2)+.(10)..n. end|
000040b0  74 65 78 74 25 2b 3d a9  28 c3 68 65 78 63 28 32  |text%+=.(.hexc(2|
000040c0  29 29 2b 31 0d 14 78 1c  24 65 6e 64 74 65 78 74  |))+1..x.$endtext|
000040d0  25 3d c3 68 65 78 63 28  33 29 2b bd 28 31 30 29  |%=.hexc(3)+.(10)|
000040e0  0d 14 82 1c 20 65 6e 64  74 65 78 74 25 2b 3d a9  |.... endtext%+=.|
000040f0  28 c3 68 65 78 63 28 33  29 29 2b 31 0d 14 8c 1c  |(.hexc(3))+1....|
00004100  24 65 6e 64 74 65 78 74  25 3d c3 68 65 78 63 28  |$endtext%=.hexc(|
00004110  34 29 2b bd 28 31 30 29  0d 14 96 1c 20 65 6e 64  |4)+.(10).... end|
00004120  74 65 78 74 25 2b 3d a9  28 c3 68 65 78 63 28 34  |text%+=.(.hexc(4|
00004130  29 29 2b 31 0d 14 a0 2b  20 c8 99 22 4f 53 5f 46  |))+1...+ .."OS_F|
00004140  69 6c 65 22 2c 30 2c 73  61 76 65 24 2c 30 2c 30  |ile",0,save$,0,0|
00004150  2c 74 65 78 74 25 2c 65  6e 64 74 65 78 74 25 0d  |,text%,endtext%.|
00004160  14 aa 20 20 ff 28 22 53  65 74 74 79 70 65 20 22  |..  .("Settype "|
00004170  2b 73 61 76 65 24 2b 22  20 26 30 63 63 22 29 0d  |+save$+" &0cc").|
00004180  14 b4 12 e7 20 63 75 72  73 70 72 24 3c 3e 22 22  |.... curspr$<>""|
00004190  8c 0d 14 be 23 c8 99 22  4f 53 5f 46 69 6c 65 22  |....#.."OS_File"|
000041a0  2c 35 2c 73 61 76 65 24  20 b8 2c 2c 2c 2c 6c 65  |,5,save$ .,,,,le|
000041b0  6e 67 74 68 0d 14 c8 1e  c8 99 22 4f 53 5f 46 69  |ngth......"OS_Fi|
000041c0  6e 64 22 2c 26 43 30 2c  73 61 76 65 24 20 b8 20  |nd",&C0,save$ . |
000041d0  66 73 0d 14 d2 2b c8 99  22 4f 53 5f 47 42 50 42  |fs...+.."OS_GBPB|
000041e0  22 2c 31 2c 66 73 2c 73  70 72 25 2b 34 2c 73 70  |",1,fs,spr%+4,sp|
000041f0  72 5f 6c 65 6e 25 2c 6c  65 6e 67 74 68 0d 14 dc  |r_len%,length...|
00004200  08 d9 23 66 73 0d 14 e6  05 cd 0d 14 f0 07 f7 20  |..#fs.......... |
00004210  85 0d 14 fa 3c e7 20 73  61 76 65 24 3c 3e 22 3c  |....<. save$<>"<|
00004220  57 69 6d 70 24 53 63 72  61 70 3e 22 20 8c 20 73  |Wimp$Scrap>" . s|
00004230  61 76 65 66 3d b9 3a f2  74 69 74 6c 65 28 64 65  |avef=.:.title(de|
00004240  74 61 69 6c 73 25 2c 73  61 76 65 24 29 0d 15 04  |tails%,save$)...|
00004250  05 cd 0d 15 0e 20 e7 20  77 69 6e 73 61 76 65 25  |..... . winsave%|
00004260  3d 73 61 76 65 25 20 8c  20 f2 6d 61 6b 65 66 69  |=save% . .makefi|
00004270  6c 65 0d 15 18 19 e7 20  77 69 6e 73 61 76 65 25  |le..... winsave%|
00004280  3d 73 61 76 65 70 69 63  25 20 8c 0d 15 22 07 ea  |=savepic% ..."..|
00004290  20 85 0d 15 2c 5e ee 20  85 20 ea 20 e7 20 9f 3d  | ...,^. . . . .=|
000042a0  37 31 36 32 32 3a f2 71  75 65 72 79 28 22 44 69  |71622:.query("Di|
000042b0  73 63 20 46 75 6c 6c 22  29 3a 66 75 6c 6c 3d b9  |sc Full"):full=.|
000042c0  3a f7 20 85 3a e1 3a 8b  20 f7 20 85 3a f2 65 72  |:. .:.:. . .:.er|
000042d0  72 6f 72 28 f6 24 2b 22  20 3a 20 61 74 20 6c 69  |ror(.$+" : at li|
000042e0  6e 65 20 22 2b c3 9e 29  3a d9 23 69 6c 65 3a e0  |ne "+..):.#ile:.|
000042f0  0d 15 36 25 43 75 72 72  65 6e 74 3d a4 63 68 65  |..6%Current=.che|
00004300  63 6b 66 6c 61 67 28 73  61 76 65 70 69 63 25 2c  |ckflag(savepic%,|
00004310  33 2c 32 31 29 0d 15 40  10 c8 8e 20 43 75 72 72  |3,21)..@... Curr|
00004320  65 6e 74 20 ca 0d 15 4a  08 c9 20 b9 3a 0d 15 54  |ent ...J.. .:..T|
00004330  25 c8 99 20 34 36 2c 26  31 31 38 2c 73 70 72 25  |%.. 46,&118,spr%|
00004340  2c 63 75 72 73 70 72 24  20 b8 20 2c 2c 73 70 74  |,curspr$ . ,,spt|
00004350  72 25 0d 15 5e 20 c8 99  22 4f 53 5f 46 69 6e 64  |r%..^ .."OS_Find|
00004360  22 2c 26 38 30 2c 73 61  76 65 24 20 b8 20 69 6c  |",&80,save$ . il|
00004370  65 25 0d 15 68 0e d5 23  69 6c 65 25 2c 26 30 31  |e%..h..#ile%,&01|
00004380  0d 15 72 0c d5 23 69 6c  65 25 2c 30 0d 15 7c 0c  |..r..#ile%,0..|.|
00004390  d5 23 69 6c 65 25 2c 30  0d 15 86 0c d5 23 69 6c  |.#ile%,0.....#il|
000043a0  65 25 2c 30 0d 15 90 0e  d5 23 69 6c 65 25 2c 26  |e%,0.....#ile%,&|
000043b0  31 30 0d 15 9a 0c d5 23  69 6c 65 25 2c 30 0d 15  |10.....#ile%,0..|
000043c0  a4 0c d5 23 69 6c 65 25  2c 30 0d 15 ae 0c d5 23  |...#ile%,0.....#|
000043d0  69 6c 65 25 2c 30 0d 15  b8 1a d5 23 69 6c 65 25  |ile%,0.....#ile%|
000043e0  2c 21 73 70 74 72 25 2b  31 36 20 80 20 26 46 46  |,!sptr%+16 . &FF|
000043f0  0d 15 c2 20 d5 23 69 6c  65 25 2c 28 21 73 70 74  |... .#ile%,(!spt|
00004400  72 25 2b 31 36 3e 3e 3e  38 29 20 80 20 26 46 46  |r%+16>>>8) . &FF|
00004410  0d 15 cc 21 d5 23 69 6c  65 25 2c 28 21 73 70 74  |...!.#ile%,(!spt|
00004420  72 25 2b 31 36 3e 3e 3e  31 36 29 20 80 20 26 46  |r%+16>>>16) . &F|
00004430  46 0d 15 d6 21 d5 23 69  6c 65 25 2c 28 21 73 70  |F...!.#ile%,(!sp|
00004440  74 72 25 2b 31 36 3e 3e  3e 32 34 29 20 80 20 26  |tr%+16>>>24) . &|
00004450  46 46 0d 15 e0 25 c8 99  22 4f 53 5f 47 42 50 42  |FF...%.."OS_GBPB|
00004460  22 2c 26 30 32 2c 69 6c  65 25 2c 73 70 74 72 25  |",&02,ile%,sptr%|
00004470  2c 21 73 70 74 72 25 0d  15 ea 16 c8 99 22 4f 53  |,!sptr%......"OS|
00004480  5f 46 69 6e 64 22 2c 30  2c 69 6c 65 25 0d 15 f4  |_Find",0,ile%...|
00004490  1e c8 99 22 4f 53 5f 46  69 6c 65 22 2c 26 31 32  |..."OS_File",&12|
000044a0  2c 73 61 76 65 24 2c 26  66 66 39 0d 15 fe 08 c9  |,save$,&ff9.....|
000044b0  20 a3 3a 0d 16 08 34 c8  99 22 4f 53 5f 46 69 6c  | .:...4.."OS_Fil|
000044c0  65 22 2c 30 2c 73 61 76  65 24 2c 30 2c 30 2c 73  |e",0,save$,0,0,s|
000044d0  70 72 25 2b 34 2c 73 70  72 25 2b 28 73 70 72 5f  |pr%+4,spr%+(spr_|
000044e0  6c 65 6e 25 2b 34 29 0d  16 12 1e c8 99 22 4f 53  |len%+4)......"OS|
000044f0  5f 46 69 6c 65 22 2c 26  31 32 2c 73 61 76 65 24  |_File",&12,save$|
00004500  2c 26 66 66 39 0d 16 1c  05 cb 0d 16 26 05 cd 0d  |,&ff9.......&...|
00004510  16 30 33 e7 20 73 61 76  65 24 3c 3e 22 3c 57 69  |.03. save$<>"<Wi|
00004520  6d 70 24 53 63 72 61 70  3e 22 20 f2 69 6e 66 6f  |mp$Scrap>" .info|
00004530  28 77 69 6e 73 61 76 65  25 2c 31 2c 73 61 76 65  |(winsave%,1,save|
00004540  24 29 0d 16 3a 05 e1 0d  16 44 0f dd f2 6d 65 73  |$)..:....D...mes|
00004550  73 61 67 65 69 6e 0d 16  4e 10 6d 62 6c 6f 63 6b  |sagein..N.mblock|
00004560  3d 62 6c 6f 63 6b 0d 16  58 1e 72 65 66 3d 6d 62  |=block..X.ref=mb|
00004570  6c 6f 63 6b 21 38 3a 74  61 73 6b 3d 6d 62 6c 6f  |lock!8:task=mblo|
00004580  63 6b 21 34 0d 16 62 12  c8 8e 20 6d 62 6c 6f 63  |ck!4..b... mbloc|
00004590  6b 21 31 36 20 ca 0d 16  6c 5b c9 20 38 3a e7 20  |k!16 ...l[. 8:. |
000045a0  ac 20 70 72 65 71 75 69  74 20 6d 62 6c 6f 63 6b  |. prequit mblock|
000045b0  21 31 32 3d 6d 62 6c 6f  63 6b 21 38 3a c8 99 22  |!12=mblock!8:.."|
000045c0  57 69 6d 70 5f 53 65 6e  64 4d 65 73 73 61 67 65  |Wimp_SendMessage|
000045d0  22 2c 31 39 2c 6d 62 6c  6f 63 6b 3a 70 72 65 71  |",19,mblock:preq|
000045e0  75 69 74 3d b9 3a f2 61  72 65 79 6f 75 73 75 72  |uit=.:.areyousur|
000045f0  65 0d 16 76 2e c9 20 30  3a c8 99 72 65 69 6e 74  |e..v.. 0:..reint|
00004600  65 72 2c 6d 79 74 61 73  6b 25 3a c8 99 22 57 69  |er,mytask%:.."Wi|
00004610  6d 70 5f 43 6c 6f 73 65  44 6f 77 6e 22 3a e0 0d  |mp_CloseDown":..|
00004620  16 80 08 c9 20 32 3a 0d  16 8a 10 e7 20 64 72 69  |.... 2:..... dri|
00004630  76 65 25 3d 31 20 8c 0d  16 94 1b f2 73 61 76 65  |ve%=1 ......save|
00004640  28 a4 77 6f 6f 6c 28 6d  62 6c 6f 63 6b 2b 34 34  |(.wool(mblock+44|
00004650  29 29 0d 16 9e 11 6d 62  6c 6f 63 6b 21 31 32 3d  |))....mblock!12=|
00004660  72 65 66 0d 16 a8 0f 6d  62 6c 6f 63 6b 21 31 36  |ref....mblock!16|
00004670  3d 33 0d 16 b2 10 6d 62  6c 6f 63 6b 21 33 36 3d  |=3....mblock!36=|
00004680  2d 31 0d 16 bc 0f 21 6d  62 6c 6f 63 6b 3d 32 35  |-1....!mblock=25|
00004690  36 0d 16 c6 10 73 65 6e  64 6d 3d 26 34 30 30 45  |6....sendm=&400E|
000046a0  37 0d 16 d0 26 c8 99 20  73 65 6e 64 6d 2c 31 38  |7...&.. sendm,18|
000046b0  2c 6d 62 6c 6f 63 6b 2c  74 61 73 6b 3a f4 20 44  |,mblock,task:. D|
000046c0  61 74 61 4c 6f 61 64 0d  16 da 05 cd 0d 16 e4 08  |ataLoad.........|
000046d0  c9 20 33 3a 0d 16 ee 6c  e7 20 6d 62 6c 6f 63 6b  |. 3:...l. mblock|
000046e0  21 34 30 3c 3e 26 30 43  43 20 80 20 6d 62 6c 6f  |!40<>&0CC . mblo|
000046f0  63 6b 21 34 30 3c 3e 26  46 46 39 20 8c 20 f2 6d  |ck!40<>&FF9 . .m|
00004700  65 73 73 28 22 4f 6e 6c  79 20 43 61 72 64 44 61  |ess("Only CardDa|
00004710  74 61 20 66 69 6c 65 73  20 6f 72 20 53 70 72 69  |ta files or Spri|
00004720  74 65 73 20 63 61 6e 20  62 65 20 64 72 6f 70 70  |tes can be dropp|
00004730  65 64 20 69 6e 74 6f 20  68 65 72 65 22 29 3a e1  |ed into here"):.|
00004740  0d 16 f8 08 69 6e 3d b9  0d 17 02 23 e7 20 6d 62  |....in=....#. mb|
00004750  6c 6f 63 6b 21 34 30 3d  26 46 46 39 20 8c 20 f2  |lock!40=&FF9 . .|
00004760  69 6e 73 70 72 69 74 65  73 3a e1 0d 17 0c 1a f2  |insprites:......|
00004770  6c 6f 61 64 28 a4 77 6f  6f 6c 28 62 6c 6f 63 6b  |load(.wool(block|
00004780  2b 34 34 29 29 0d 17 16  08 c9 20 35 3a 0d 17 20  |+44))..... 5:.. |
00004790  15 e7 20 62 6c 6f 63 6b  21 34 30 3d 26 30 43 43  |.. block!40=&0CC|
000047a0  20 8c 0d 17 2a 1f 62 6c  6f 63 6b 21 31 32 3d 62  | ...*.block!12=b|
000047b0  6c 6f 63 6b 21 38 3a 62  6c 6f 63 6b 21 31 36 3d  |lock!8:block!16=|
000047c0  34 0d 17 34 10 73 65 6e  64 6d 3d 26 34 30 30 45  |4..4.sendm=&400E|
000047d0  37 0d 17 3e 2b c8 99 20  73 65 6e 64 6d 2c 31 38  |7..>+.. sendm,18|
000047e0  2c 62 6c 6f 63 6b 2c 62  6c 6f 63 6b 21 34 3a f4  |,block,block!4:.|
000047f0  20 44 61 74 61 4c 6f 61  64 41 63 6b 0d 17 48 1a  | DataLoadAck..H.|
00004800  f2 6c 6f 61 64 28 a4 77  6f 6f 6c 28 62 6c 6f 63  |.load(.wool(bloc|
00004810  6b 2b 34 34 29 29 0d 17  52 05 cd 0d 17 5c 05 cb  |k+44))..R....\..|
00004820  0d 17 66 05 e1 0d 17 70  11 dd f2 6c 6f 61 64 28  |..f....p...load(|
00004830  6c 6f 61 64 24 29 0d 17  7a 21 c8 99 22 4f 53 5f  |load$)..z!.."OS_|
00004840  46 69 6e 64 22 2c 26 34  30 2c 6c 6f 61 64 24 20  |Find",&40,load$ |
00004850  b8 20 66 69 6c 65 25 0d  17 84 09 74 24 3d 22 22  |. file%....t$=""|
00004860  0d 17 8e 10 74 24 3d a4  72 65 61 64 66 69 6c 65  |....t$=.readfile|
00004870  0d 17 98 0e 20 66 69 72  73 74 24 3d 74 24 0d 17  |.... first$=t$..|
00004880  a2 71 20 e7 20 74 24 3c  3e 22 43 61 72 64 20 44  |.q . t$<>"Card D|
00004890  61 74 61 20 46 69 6c 65  22 20 80 20 74 24 3c 3e  |ata File" . t$<>|
000048a0  22 43 61 72 64 32 20 44  61 74 61 20 46 69 6c 65  |"Card2 Data File|
000048b0  22 20 8c 20 f2 6d 65 73  73 28 22 54 68 69 73 20  |" . .mess("This |
000048c0  69 73 20 6e 6f 74 20 61  20 43 61 72 64 20 64 61  |is not a Card da|
000048d0  74 61 20 66 69 6c 65 22  29 3a c8 99 22 4f 53 5f  |ta file"):.."OS_|
000048e0  46 69 6e 64 22 2c 30 2c  66 69 6c 65 25 3a e1 0d  |Find",0,file%:..|
000048f0  17 ac 39 e7 20 66 69 72  73 74 24 3d 22 43 61 72  |..9. first$="Car|
00004900  64 20 44 61 74 61 20 46  69 6c 65 22 20 6e 65 77  |d Data File" new|
00004910  3d 46 4c 41 53 45 3a f2  6c 6f 61 64 6f 6c 64 3a  |=FLASE:.loadold:|
00004920  f2 6b 69 6c 6c 73 70 72  0d 17 b6 2d e7 20 66 69  |.killspr...-. fi|
00004930  72 73 74 24 3d 22 43 61  72 64 32 20 44 61 74 61  |rst$="Card2 Data|
00004940  20 46 69 6c 65 22 20 6e  65 77 3d b9 3a f2 6c 6f  | File" new=.:.lo|
00004950  61 64 6e 65 77 0d 17 c0  17 c8 99 22 4f 53 5f 46  |adnew......"OS_F|
00004960  69 6e 64 22 2c 30 2c 66  69 6c 65 25 0d 17 ca 1a  |ind",0,file%....|
00004970  24 a4 69 6e 66 6f 28 73  61 76 65 64 25 2c 31 29  |$.info(saved%,1)|
00004980  3d 6c 6f 61 64 24 0d 17  d4 1f e7 20 6e 6f 69 63  |=load$..... noic|
00004990  3d 30 20 f2 6f 70 65 6e  77 69 6e 28 64 65 74 61  |=0 .openwin(deta|
000049a0  69 6c 73 25 29 0d 17 de  2b e7 20 6e 6f 69 63 3d  |ils%)...+. noic=|
000049b0  30 20 73 61 76 65 66 3d  b9 3a f2 74 69 74 6c 65  |0 savef=.:.title|
000049c0  28 64 65 74 61 69 6c 73  25 2c 6c 6f 61 64 24 29  |(details%,load$)|
000049d0  0d 17 e8 28 e7 20 6e 6f  69 63 3d 30 20 80 20 63  |...(. noic=0 . c|
000049e0  75 72 73 70 72 24 3c 3e  22 22 20 8c 20 f2 64 72  |urspr$<>"" . .dr|
000049f0  61 77 73 70 72 69 74 65  0d 17 f2 05 e1 0d 17 fc  |awsprite........|
00004a00  0d dd f2 6c 6f 61 64 6e  65 77 0d 18 06 26 e7 20  |...loadnew...&. |
00004a10  a4 72 65 61 64 66 69 6c  65 3d 22 53 70 72 69 74  |.readfile="Sprit|
00004a20  65 73 22 20 8c 20 f2 6c  6f 61 64 73 70 72 3a e1  |es" . .loadspr:.|
00004a30  0d 18 10 0c f2 6b 69 6c  6c 73 70 72 0d 18 1a 0e  |.....killspr....|
00004a40  f2 6c 6f 61 64 69 6e 64  65 74 0d 18 24 0d e3 20  |.loadindet..$.. |
00004a50  49 3d 30 20 b8 20 34 0d  18 2e 18 68 65 78 63 28  |I=0 . 4....hexc(|
00004a60  49 29 3d bb 28 a4 72 65  61 64 66 69 6c 65 29 0d  |I)=.(.readfile).|
00004a70  18 38 07 ed 20 49 0d 18  42 05 e1 0d 18 4c 0d dd  |.8.. I..B....L..|
00004a80  f2 6c 6f 61 64 73 70 72  0d 18 56 1c e7 20 63 75  |.loadspr..V.. cu|
00004a90  72 73 70 72 24 3c 3e 22  22 20 8c 20 f2 6b 69 6c  |rspr$<>"" . .kil|
00004aa0  6c 73 70 72 0d 18 60 15  63 75 72 73 70 72 24 3d  |lspr..`.curspr$=|
00004ab0  a4 72 65 61 64 66 69 6c  65 0d 18 6a 15 73 66 69  |.readfile..j.sfi|
00004ac0  6c 65 24 3d 22 49 6e 74  65 72 6e 61 6c 22 0d 18  |le$="Internal"..|
00004ad0  74 19 73 70 72 5f 6c 65  6e 25 3d bb 28 a4 72 65  |t.spr_len%=.(.re|
00004ae0  61 64 66 69 6c 65 29 0d  18 7e 32 e7 20 bb 28 a4  |adfile)..~2. .(.|
00004af0  72 65 61 64 66 69 6c 65  29 3d 31 20 8c 20 f2 73  |readfile)=1 . .s|
00004b00  65 74 73 68 65 61 72 28  31 29 20 8b 20 f2 73 65  |etshear(1) . .se|
00004b10  74 73 68 65 61 72 28 30  29 0d 18 88 25 e7 20 a4  |tshear(0)...%. .|
00004b20  72 65 61 64 66 69 6c 65  3d 22 63 65 6e 74 72 65  |readfile="centre|
00004b30  64 22 20 8c 20 63 65 6e  74 72 65 64 3d b9 0d 18  |d" . centred=...|
00004b40  92 22 e7 20 a4 72 65 61  64 66 69 6c 65 3d 22 66  |.". .readfile="f|
00004b50  6f 72 63 65 64 22 20 8c  20 66 6f 72 63 65 3d b9  |orced" . force=.|
00004b60  0d 18 9c 0e f2 6c 6f 61  64 69 6e 64 65 74 0d 18  |.....loadindet..|
00004b70  a6 0d e3 20 49 3d 30 20  b8 20 34 0d 18 b0 18 68  |... I=0 . 4....h|
00004b80  65 78 63 28 49 29 3d bb  28 a4 72 65 61 64 66 69  |exc(I)=.(.readfi|
00004b90  6c 65 29 0d 18 ba 07 ed  20 49 0d 18 c4 15 6d 65  |le)..... I....me|
00004ba0  6e 24 3d 22 22 3a 6c 61  72 67 65 73 74 3d 30 0d  |n$="":largest=0.|
00004bb0  18 ce 1c 73 70 72 25 3d  a4 63 6c 61 69 6d 28 73  |...spr%=.claim(s|
00004bc0  70 72 5f 6c 65 6e 25 2b  36 34 29 0d 18 d8 24 c8  |pr_len%+64)...$.|
00004bd0  99 22 4f 53 5f 46 69 6c  65 22 2c 35 2c 6c 6f 61  |."OS_File",5,loa|
00004be0  64 24 20 b8 20 2c 2c 2c  2c 6c 65 6e 67 74 68 0d  |d$ . ,,,,length.|
00004bf0  18 e2 37 c8 99 22 4f 53  5f 47 42 50 42 22 2c 33  |..7.."OS_GBPB",3|
00004c00  2c 66 69 6c 65 25 2c 73  70 72 25 2b 34 2c 73 70  |,file%,spr%+4,sp|
00004c10  72 5f 6c 65 6e 25 2c 6c  65 6e 67 74 68 2d 73 70  |r_len%,length-sp|
00004c20  72 5f 6c 65 6e 25 0d 18  ec 2c c8 99 20 22 4f 53  |r_len%...,.. "OS|
00004c30  5f 53 70 72 69 74 65 4f  70 22 2c 26 31 30 38 2c  |_SpriteOp",&108,|
00004c40  73 70 72 25 20 b8 20 2c  2c 2c 73 70 72 69 74 65  |spr% . ,,,sprite|
00004c50  73 25 0d 18 f6 17 e3 20  69 25 3d 30 20 b8 20 73  |s%..... i%=0 . s|
00004c60  70 72 69 74 65 73 25 2d  31 0d 19 00 37 20 c8 99  |prites%-1...7 ..|
00004c70  20 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 26  | "OS_SpriteOp",&|
00004c80  31 30 44 2c 73 70 72 25  2c 74 65 6d 70 25 2c 26  |10D,spr%,temp%,&|
00004c90  31 30 30 2c 69 25 2b 31  20 b8 20 2c 2c 2c 6a 25  |100,i%+1 . ,,,j%|
00004ca0  0d 19 0a 10 20 74 65 6d  70 25 3f 6a 25 3d 31 33  |.... temp%?j%=13|
00004cb0  0d 19 14 29 20 e7 20 a9  28 6d 65 6e 24 29 3c 32  |...) . .(men$)<2|
00004cc0  34 33 20 8c 20 6d 65 6e  24 3d 6d 65 6e 24 2b 24  |43 . men$=men$+$|
00004cd0  74 65 6d 70 25 2b 22 2c  22 0d 19 1e 2a 20 e7 20  |temp%+","...* . |
00004ce0  a9 28 24 74 65 6d 70 25  29 3e 6c 61 72 67 65 73  |.($temp%)>larges|
00004cf0  74 20 6c 61 72 67 65 73  74 3d a9 28 24 74 65 6d  |t largest=.($tem|
00004d00  70 25 29 0d 19 28 05 ed  0d 19 32 19 6d 65 6e 24  |p%)..(....2.men$|
00004d10  3d c0 6d 65 6e 24 2c a9  28 6d 65 6e 24 29 2d 31  |=.men$,.(men$)-1|
00004d20  29 0d 19 3c 05 e1 0d 19  46 0d dd f2 6c 6f 61 64  |)..<....F...load|
00004d30  6f 6c 64 0d 19 50 0e f2  6c 6f 61 64 69 6e 64 65  |old..P..loadinde|
00004d40  74 0d 19 5a 0d e3 20 49  3d 31 20 b8 20 34 0d 19  |t..Z.. I=1 . 4..|
00004d50  64 0d 68 65 78 63 28 49  29 3d 30 0d 19 6e 05 ed  |d.hexc(I)=0..n..|
00004d60  0d 19 78 15 68 65 78 63  28 30 29 3d 26 46 46 46  |..x.hexc(0)=&FFF|
00004d70  46 46 46 30 30 0d 19 82  05 e1 0d 19 8c 0f dd f2  |FFF00...........|
00004d80  6c 6f 61 64 69 6e 64 65  74 0d 19 96 1f f2 69 6e  |loadindet.....in|
00004d90  66 6f 28 64 65 74 61 69  6c 73 25 2c 33 2c a4 72  |fo(details%,3,.r|
00004da0  65 61 64 66 69 6c 65 29  0d 19 a0 1f f2 69 6e 66  |eadfile).....inf|
00004db0  6f 28 64 65 74 61 69 6c  73 25 2c 30 2c a4 72 65  |o(details%,0,.re|
00004dc0  61 64 66 69 6c 65 29 0d  19 aa 20 f2 69 6e 66 6f  |adfile)... .info|
00004dd0  28 64 65 74 61 69 6c 73  25 2c 31 33 2c a4 72 65  |(details%,13,.re|
00004de0  61 64 66 69 6c 65 29 0d  19 b4 26 e7 20 6e 65 77  |adfile)...&. new|
00004df0  20 f2 69 6e 66 6f 28 64  65 74 61 69 6c 73 25 2c  | .info(details%,|
00004e00  33 31 2c a4 72 65 61 64  66 69 6c 65 29 0d 19 be  |31,.readfile)...|
00004e10  1f f2 69 6e 66 6f 28 64  65 74 61 69 6c 73 25 2c  |..info(details%,|
00004e20  32 2c a4 72 65 61 64 66  69 6c 65 29 0d 19 c8 1f  |2,.readfile)....|
00004e30  f2 69 6e 66 6f 28 64 65  74 61 69 6c 73 25 2c 35  |.info(details%,5|
00004e40  2c a4 72 65 61 64 66 69  6c 65 29 0d 19 d2 20 f2  |,.readfile)... .|
00004e50  69 6e 66 6f 28 64 65 74  61 69 6c 73 25 2c 31 34  |info(details%,14|
00004e60  2c a4 72 65 61 64 66 69  6c 65 29 0d 19 dc 26 e7  |,.readfile)...&.|
00004e70  20 6e 65 77 20 f2 69 6e  66 6f 28 64 65 74 61 69  | new .info(detai|
00004e80  6c 73 25 2c 33 32 2c a4  72 65 61 64 66 69 6c 65  |ls%,32,.readfile|
00004e90  29 0d 19 e6 20 f2 69 6e  66 6f 28 64 65 74 61 69  |)... .info(detai|
00004ea0  6c 73 25 2c 31 39 2c a4  72 65 61 64 66 69 6c 65  |ls%,19,.readfile|
00004eb0  29 0d 19 f0 1f f2 69 6e  66 6f 28 64 65 74 61 69  |).....info(detai|
00004ec0  6c 73 25 2c 36 2c a4 72  65 61 64 66 69 6c 65 29  |ls%,6,.readfile)|
00004ed0  0d 19 fa 20 f2 69 6e 66  6f 28 64 65 74 61 69 6c  |... .info(detail|
00004ee0  73 25 2c 31 37 2c a4 72  65 61 64 66 69 6c 65 29  |s%,17,.readfile)|
00004ef0  0d 1a 04 26 e7 20 6e 65  77 20 f2 69 6e 66 6f 28  |...&. new .info(|
00004f00  64 65 74 61 69 6c 73 25  2c 33 33 2c a4 72 65 61  |details%,33,.rea|
00004f10  64 66 69 6c 65 29 0d 1a  0e 1f f2 69 6e 66 6f 28  |dfile).....info(|
00004f20  64 65 74 61 69 6c 73 25  2c 37 2c a4 72 65 61 64  |details%,7,.read|
00004f30  66 69 6c 65 29 0d 1a 18  20 f2 69 6e 66 6f 28 64  |file)... .info(d|
00004f40  65 74 61 69 6c 73 25 2c  31 38 2c a4 72 65 61 64  |etails%,18,.read|
00004f50  66 69 6c 65 29 0d 1a 22  20 f2 69 6e 66 6f 28 64  |file).." .info(d|
00004f60  65 74 61 69 6c 73 25 2c  31 30 2c a4 72 65 61 64  |etails%,10,.read|
00004f70  66 69 6c 65 29 0d 1a 2c  1f f2 69 6e 66 6f 28 64  |file)..,..info(d|
00004f80  65 74 61 69 6c 73 25 2c  34 2c a4 72 65 61 64 66  |etails%,4,.readf|
00004f90  69 6c 65 29 0d 1a 36 20  f2 69 6e 66 6f 28 64 65  |ile)..6 .info(de|
00004fa0  74 61 69 6c 73 25 2c 32  31 2c a4 72 65 61 64 66  |tails%,21,.readf|
00004fb0  69 6c 65 29 0d 1a 40 20  f2 69 6e 66 6f 28 64 65  |ile)..@ .info(de|
00004fc0  74 61 69 6c 73 25 2c 31  35 2c a4 72 65 61 64 66  |tails%,15,.readf|
00004fd0  69 6c 65 29 0d 1a 4a 26  e7 20 6e 65 77 20 f2 69  |ile)..J&. new .i|
00004fe0  6e 66 6f 28 64 65 74 61  69 6c 73 25 2c 33 34 2c  |nfo(details%,34,|
00004ff0  a4 72 65 61 64 66 69 6c  65 29 0d 1a 54 05 e1 0d  |.readfile)..T...|
00005000  1a 5e 0e dd a4 72 65 61  64 66 69 6c 65 0d 1a 68  |.^...readfile..h|
00005010  0a 20 74 24 3d 22 22 0d  1a 72 06 20 f5 0d 1a 7c  |. t$=""..r. ...||
00005020  1f 20 c8 99 22 4f 53 5f  42 47 65 74 22 2c 2c 66  |. .."OS_BGet",,f|
00005030  69 6c 65 25 20 b8 20 62  79 74 65 25 0d 1a 86 38  |ile% . byte%...8|
00005040  20 e7 20 62 79 74 65 25  3d 32 35 34 20 c8 99 22  | . byte%=254 .."|
00005050  4f 53 5f 46 69 6e 64 22  2c 30 2c 66 69 6c 65 25  |OS_Find",0,file%|
00005060  3a f2 6f 70 65 6e 77 69  6e 28 64 65 74 61 69 6c  |:.openwin(detail|
00005070  73 25 29 3a 0d 1a 90 13  20 74 24 3d 74 24 2b bd  |s%):.... t$=t$+.|
00005080  28 62 79 74 65 25 29 0d  1a 9a 1a 20 fd 20 62 79  |(byte%).... . by|
00005090  74 65 25 3d 31 33 20 84  20 62 79 74 65 25 3d 31  |te%=13 . byte%=1|
000050a0  30 0d 1a a4 12 20 3d c0  74 24 2c a9 28 74 24 29  |0.... =.t$,.(t$)|
000050b0  2d 31 29 0d 1a ae 0f dd  f2 69 6e 73 70 72 69 74  |-1)......insprit|
000050c0  65 73 0d 1a b8 16 20 6d  65 6e 24 3d 22 22 3a 6c  |es.... men$="":l|
000050d0  61 72 67 65 73 74 3d 30  0d 1a c2 1a 20 6c 6f 61  |argest=0.... loa|
000050e0  64 24 3d a4 77 6f 6f 6c  28 62 6c 6f 63 6b 2b 34  |d$=.wool(block+4|
000050f0  34 29 0d 1a cc 11 20 73  66 69 6c 65 24 3d 6c 6f  |4).... sfile$=lo|
00005100  61 64 24 0d 1a d6 27 c8  99 20 22 4f 53 5f 46 69  |ad$...'.. "OS_Fi|
00005110  6c 65 22 2c 35 2c 6c 6f  61 64 24 20 b8 20 2c 2c  |le",5,load$ . ,,|
00005120  2c 2c 73 70 72 5f 6c 65  6e 25 0d 1a e0 1d 73 70  |,,spr_len%....sp|
00005130  72 25 3d a4 63 6c 61 69  6d 28 73 70 72 5f 6c 65  |r%=.claim(spr_le|
00005140  6e 25 2b 32 35 36 29 0d  1a ea 21 c8 99 20 22 4f  |n%+256)...!.. "O|
00005150  53 5f 46 69 6c 65 22 2c  26 46 46 2c 6c 6f 61 64  |S_File",&FF,load|
00005160  24 2c 73 70 72 25 2b 34  0d 1a f4 2c c8 99 20 22  |$,spr%+4...,.. "|
00005170  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 26 31 30  |OS_SpriteOp",&10|
00005180  38 2c 73 70 72 25 20 b8  20 2c 2c 2c 73 70 72 69  |8,spr% . ,,,spri|
00005190  74 65 73 25 0d 1a fe 17  e3 20 69 25 3d 30 20 b8  |tes%..... i%=0 .|
000051a0  20 73 70 72 69 74 65 73  25 2d 31 0d 1b 08 37 20  | sprites%-1...7 |
000051b0  c8 99 20 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |.. "OS_SpriteOp"|
000051c0  2c 26 31 30 44 2c 73 70  72 25 2c 74 65 6d 70 25  |,&10D,spr%,temp%|
000051d0  2c 26 31 30 30 2c 69 25  2b 31 20 b8 20 2c 2c 2c  |,&100,i%+1 . ,,,|
000051e0  6a 25 0d 1b 12 10 20 74  65 6d 70 25 3f 6a 25 3d  |j%.... temp%?j%=|
000051f0  31 33 0d 1b 1c 29 20 e7  20 a9 28 6d 65 6e 24 29  |13...) . .(men$)|
00005200  3c 32 34 33 20 8c 20 6d  65 6e 24 3d 6d 65 6e 24  |<243 . men$=men$|
00005210  2b 24 74 65 6d 70 25 2b  22 2c 22 0d 1b 26 2a 20  |+$temp%+","..&* |
00005220  e7 20 a9 28 24 74 65 6d  70 25 29 3e 6c 61 72 67  |. .($temp%)>larg|
00005230  65 73 74 20 6c 61 72 67  65 73 74 3d a9 28 24 74  |est largest=.($t|
00005240  65 6d 70 25 29 0d 1b 30  05 ed 0d 1b 3a 19 6d 65  |emp%)..0....:.me|
00005250  6e 24 3d c0 6d 65 6e 24  2c a9 28 6d 65 6e 24 29  |n$=.men$,.(men$)|
00005260  2d 31 29 0d 1b 44 1f 63  75 72 73 70 72 24 3d c0  |-1)..D.curspr$=.|
00005270  6d 65 6e 24 2c a7 6d 65  6e 24 2c 22 2c 22 29 2d  |men$,.men$,",")-|
00005280  31 29 0d 1b 4e 22 f2 6f  70 65 6e 77 69 6e 28 64  |1)..N".openwin(d|
00005290  65 74 61 69 6c 73 25 29  3a f2 64 72 61 77 73 70  |etails%):.drawsp|
000052a0  72 69 74 65 0d 1b 58 06  20 e1 0d 1b 62 16 dd f2  |rite..X. ...b...|
000052b0  6f 70 65 6e 77 69 6e 28  68 61 6e 64 6c 65 25 29  |openwin(handle%)|
000052c0  0d 1b 6c 12 21 62 6c 6f  63 6b 3d 68 61 6e 64 6c  |..l.!block=handl|
000052d0  65 25 0d 1b 76 22 c8 99  22 57 69 6d 70 5f 47 65  |e%..v".."Wimp_Ge|
000052e0  74 57 69 6e 64 6f 77 53  74 61 74 65 22 2c 2c 62  |tWindowState",,b|
000052f0  6c 6f 63 6b 0d 1b 80 1b  6f 70 65 6e 3d 62 6c 6f  |lock....open=blo|
00005300  63 6b 21 33 32 20 80 20  28 31 3c 3c 31 36 29 0d  |ck!32 . (1<<16).|
00005310  1b 8a 2d e7 20 62 6c 6f  63 6b 21 32 38 3c 3e 2d  |..-. block!28<>-|
00005320  31 20 84 20 6f 70 65 6e  3d 30 20 84 20 68 61 6e  |1 . open=0 . han|
00005330  64 6c 65 25 3d 63 61 72  64 25 20 8c 0d 1b 94 0f  |dle%=card% .....|
00005340  62 6c 6f 63 6b 21 32 38  3d 2d 31 0d 1b 9e 1e c8  |block!28=-1.....|
00005350  99 22 57 69 6d 70 5f 4f  70 65 6e 57 69 6e 64 6f  |."Wimp_OpenWindo|
00005360  77 22 2c 2c 62 6c 6f 63  6b 0d 1b a8 05 cd 0d 1b  |w",,block.......|
00005370  b2 05 e1 0d 1b bc 0d dd  f2 66 6d 65 6e 75 63 72  |.........fmenucr|
00005380  0d 1b c6 14 e7 20 76 65  72 73 69 6f 6e 25 3e 33  |..... version%>3|
00005390  30 30 20 8c 0d 1b d0 0c  66 66 6c 61 67 25 3d 30  |00 .....fflag%=0|
000053a0  0d 1b da 11 66 66 6c 61  67 25 2b 3d 31 3c 3c 31  |....fflag%+=1<<1|
000053b0  39 0d 1b e4 11 66 66 6c  61 67 25 2b 3d 31 3c 3c  |9....fflag%+=1<<|
000053c0  32 30 0d 1b ee 31 c8 99  22 46 6f 6e 74 5f 4c 69  |20...1.."Font_Li|
000053d0  73 74 46 6f 6e 74 73 22  2c 2c 30 2c 66 66 6c 61  |stFonts",,0,ffla|
000053e0  67 25 2c 2c 30 20 b8 20  72 2c 73 2c 74 2c 41 2c  |g%,,0 . r,s,t,A,|
000053f0  75 2c 42 0d 1b f8 16 de  20 66 6d 65 6e 75 25 20  |u,B..... fmenu% |
00005400  41 2c 66 62 75 66 25 20  42 0d 1c 02 31 c8 99 22  |A,fbuf% B...1.."|
00005410  46 6f 6e 74 5f 4c 69 73  74 46 6f 6e 74 73 22 2c  |Font_ListFonts",|
00005420  2c 66 6d 65 6e 75 25 2c  66 66 6c 61 67 25 2c 41  |,fmenu%,fflag%,A|
00005430  2c 66 62 75 66 25 2c 42  2c 31 0d 1c 0c 05 cc 0d  |,fbuf%,B,1......|
00005440  1c 16 0f f2 66 6d 65 6e  75 63 72 52 4f 32 0d 1c  |....fmenucrRO2..|
00005450  20 05 cd 0d 1c 2a 05 e1  0d 1c 34 10 dd f2 66 6d  | ....*....4...fm|
00005460  65 6e 75 63 72 52 4f 32  0d 1c 3e 0a 4e 55 4c 4c  |enucrRO2..>.NULL|
00005470  3d 30 0d 1c 48 0e de 20  66 5f 70 25 20 39 30 30  |=0..H.. f_p% 900|
00005480  0d 1c 52 0e 21 66 5f 70  25 3d 4e 55 4c 4c 0d 1c  |..R.!f_p%=NULL..|
00005490  5c 08 63 25 3d 30 0d 1c  66 05 f5 0d 1c 70 29 20  |\.c%=0..f....p) |
000054a0  c8 99 20 22 46 6f 6e 74  5f 4c 69 73 74 46 6f 6e  |.. "Font_ListFon|
000054b0  74 73 22 2c 2c 71 25 2c  63 25 2c 2d 31 20 b8 20  |ts",,q%,c%,-1 . |
000054c0  2c 2c 63 25 0d 1c 7a 22  20 e7 20 63 25 3c 3e 2d  |,,c%..z" . c%<>-|
000054d0  31 20 8c 20 f2 46 61 6d  69 6c 79 28 a4 49 6e 66  |1 . .Family(.Inf|
000054e0  6f 28 71 25 29 29 0d 1c  84 0b fd 20 63 25 3d 2d  |o(q%))..... c%=-|
000054f0  31 0d 1c 8e 04 0d 1c 98  1a de 20 66 6d 65 6e 75  |1......... fmenu|
00005500  25 20 32 38 2b 32 34 2a  6e 5f 66 6f 6e 74 25 0d  |% 28+24*n_font%.|
00005510  1c a2 41 24 66 6d 65 6e  75 25 3d 22 46 6f 6e 74  |..A$fmenu%="Font|
00005520  73 20 6c 69 73 74 22 3a  66 6d 65 6e 75 25 21 31  |s list":fmenu%!1|
00005530  32 3d 26 30 32 30 37 3a  66 6d 65 6e 75 25 21 32  |2=&0207:fmenu%!2|
00005540  30 3d 34 30 3a 66 6d 65  6e 75 25 21 32 34 3d 30  |0=40:fmenu%!24=0|
00005550  0d 1c ac 46 66 6d 65 6e  75 25 21 32 38 3d 31 3a  |...Ffmenu%!28=1:|
00005560  66 6d 65 6e 75 25 21 33  32 3d 2d 31 3a 66 6d 65  |fmenu%!32=-1:fme|
00005570  6e 75 25 21 33 36 3d 26  30 37 30 30 30 30 32 31  |nu%!36=&07000021|
00005580  3a 24 28 66 6d 65 6e 75  25 2b 34 30 29 3d 22 53  |:$(fmenu%+40)="S|
00005590  79 73 74 65 6d 22 0d 1c  b6 04 0d 1c c0 26 77 69  |ystem".......&wi|
000055a0  64 74 68 25 3d 38 3a 70  25 3d 66 6d 65 6e 75 25  |dth%=8:p%=fmenu%|
000055b0  2b 32 38 3a 72 25 3d 66  5f 70 25 3a 6e 25 3d 32  |+28:r%=f_p%:n%=2|
000055c0  0d 1c ca 12 c8 95 20 6e  25 3c 3d 6e 5f 66 6f 6e  |...... n%<=n_fon|
000055d0  74 25 0d 1c d4 0b 20 70  25 2b 3d 32 34 0d 1c de  |t%.... p%+=24...|
000055e0  15 20 66 24 3d a4 49 6e  66 6f 28 21 72 25 2b 31  |. f$=.Info(!r%+1|
000055f0  32 29 0d 1c e8 20 20 77  69 64 74 68 25 3d a4 4d  |2)...  width%=.M|
00005600  61 78 28 77 69 64 74 68  25 2c a9 28 66 24 29 2b  |ax(width%,.(f$)+|
00005610  31 29 0d 1c f2 19 20 21  70 25 3d 30 3a 70 25 21  |1).... !p%=0:p%!|
00005620  38 3d 26 30 37 30 30 30  31 32 31 0d 1c fc 11 20  |8=&07000121.... |
00005630  70 25 21 31 32 3d 21 72  25 2b 31 32 0d 1d 06 19  |p%!12=!r%+12....|
00005640  20 70 25 21 31 36 3d 2d  31 3a 70 25 21 32 30 3d  | p%!16=-1:p%!20=|
00005650  a9 28 66 24 29 0d 1d 10  0d 20 76 25 3d 21 72 25  |.(f$).... v%=!r%|
00005660  2b 34 0d 1d 1a 2b 20 e7  20 28 21 28 21 72 25 2b  |+4...+ . (!(!r%+|
00005670  38 29 20 3d 20 31 29 20  80 20 a4 49 6e 66 6f 28  |8) = 1) . .Info(|
00005680  21 76 25 2b 34 29 20 3d  20 22 22 20 8c 0d 1d 24  |!v%+4) = "" ...$|
00005690  0f 20 20 70 25 21 34 20  3d 20 2d 31 0d 1d 2e 06  |.  p%!4 = -1....|
000056a0  20 cc 0d 1d 38 1b 20 20  de 20 70 25 21 34 20 32  | ...8.  . p%!4 2|
000056b0  38 2b 32 34 2a 21 28 21  72 25 2b 38 29 0d 1d 42  |8+24*!(!r%+8)..B|
000056c0  0d 20 20 74 25 3d 70 25  21 34 0d 1d 4c 29 20 20  |.  t%=p%!4..L)  |
000056d0  24 74 25 3d 66 24 3a 74  25 21 31 32 3d 26 30 32  |$t%=f$:t%!12=&02|
000056e0  30 37 3a 74 25 21 32 30  3d 34 30 3a 74 25 21 32  |07:t%!20=40:t%!2|
000056f0  34 3d 30 0d 1d 56 0d 20  20 75 25 3d 74 25 2b 34  |4=0..V.  u%=t%+4|
00005700  0d 1d 60 15 20 20 77 69  64 74 68 32 25 3d a9 28  |..`.  width2%=.(|
00005710  66 24 29 2d 32 0d 1d 6a  17 20 20 e3 20 73 25 3d  |f$)-2..j.  . s%=|
00005720  31 20 b8 20 21 28 21 72  25 2b 38 29 0d 1d 74 0d  |1 . !(!r%+8)..t.|
00005730  20 20 20 75 25 2b 3d 32  34 0d 1d 7e 16 20 20 20  |   u%+=24..~.   |
00005740  66 24 3d a4 49 6e 66 6f  28 21 76 25 2b 34 29 0d  |f$=.Info(!v%+4).|
00005750  1d 88 24 20 20 20 77 69  64 74 68 32 25 3d a4 4d  |..$   width2%=.M|
00005760  61 78 28 77 69 64 74 68  32 25 2c a9 28 66 24 29  |ax(width2%,.(f$)|
00005770  2b 31 29 0d 1d 92 23 20  20 20 21 75 25 3d 30 3a  |+1)...#   !u%=0:|
00005780  75 25 21 34 3d 2d 31 3a  75 25 21 38 3d 26 30 37  |u%!4=-1:u%!8=&07|
00005790  30 30 30 31 32 31 0d 1d  9c 12 20 20 20 75 25 21  |000121....   u%!|
000057a0  31 32 3d 21 76 25 2b 34  0d 1d a6 1b 20 20 20 75  |12=!v%+4....   u|
000057b0  25 21 31 36 3d 2d 31 3a  75 25 21 32 30 3d a9 28  |%!16=-1:u%!20=.(|
000057c0  66 24 29 0d 1d b0 0d 20  20 20 76 25 3d 21 76 25  |f$)....   v%=!v%|
000057d0  0d 1d ba 07 20 20 ed 0d  1d c4 25 20 20 21 75 25  |....  ....%  !u%|
000057e0  3d 20 21 75 25 20 84 20  26 38 30 3a 74 25 21 31  |= !u% . &80:t%!1|
000057f0  36 3d 31 36 2a 77 69 64  74 68 32 25 0d 1d ce 06  |6=16*width2%....|
00005800  20 cd 0d 1d d8 0b 20 72  25 3d 21 72 25 0d 1d e2  | ..... r%=!r%...|
00005810  0a 20 6e 25 2b 3d 31 0d  1d ec 05 ce 0d 1d f6 26  |. n%+=1........&|
00005820  21 70 25 3d 20 21 70 25  20 84 20 26 38 30 3a 66  |!p%= !p% . &80:f|
00005830  6d 65 6e 75 25 21 31 36  3d 31 36 2a 77 69 64 74  |menu%!16=16*widt|
00005840  68 25 0d 1e 00 05 e1 0d  1e 0a 14 dd 20 f2 46 61  |h%.......... .Fa|
00005850  6d 69 6c 79 28 66 6f 6e  74 24 29 0d 1e 14 22 ea  |mily(font$)...".|
00005860  20 66 61 6d 69 6c 79 24  2c 73 74 79 6c 65 24 2c  | family$,style$,|
00005870  70 25 2c 66 6c 61 67 25  2c 70 6f 73 25 0d 1e 1e  |p%,flag%,pos%...|
00005880  04 0d 1e 28 14 70 6f 73  25 3d a7 66 6f 6e 74 24  |...(.pos%=.font$|
00005890  2c 22 2e 22 29 0d 1e 32  1a 66 61 6d 69 6c 79 24  |,".")..2.family$|
000058a0  3d c0 66 6f 6e 74 24 2c  70 6f 73 25 2d 31 29 0d  |=.font$,pos%-1).|
000058b0  1e 3c 10 e7 20 70 6f 73  25 20 3d 20 30 20 8c 0d  |.<.. pos% = 0 ..|
000058c0  1e 46 0e 20 73 74 79 6c  65 24 3d 22 22 0d 1e 50  |.F. style$=""..P|
000058d0  05 cc 0d 1e 5a 1a 20 73  74 79 6c 65 24 3d c1 66  |....Z. style$=.f|
000058e0  6f 6e 74 24 2c 70 6f 73  25 2b 31 29 0d 1e 64 05  |ont$,pos%+1)..d.|
000058f0  cd 0d 1e 6e 13 70 25 3d  66 5f 70 25 3a 66 6c 61  |...n.p%=f_p%:fla|
00005900  67 25 3d a3 0d 1e 78 1e  c8 95 20 28 21 70 25 20  |g%=...x... (!p% |
00005910  3c 3e 20 4e 55 4c 4c 20  80 20 66 6c 61 67 25 3d  |<> NULL . flag%=|
00005920  a3 29 0d 1e 82 29 20 e7  20 66 61 6d 69 6c 79 24  |.)...) . family$|
00005930  20 3d 20 a4 49 6e 66 6f  28 21 70 25 2b 31 32 29  | = .Info(!p%+12)|
00005940  20 8c 20 66 6c 61 67 25  3d 20 b9 0d 1e 8c 0c 20  | . flag%= ..... |
00005950  70 25 20 3d 21 70 25 0d  1e 96 05 ce 0d 1e a0 0f  |p% =!p%.........|
00005960  e7 20 66 6c 61 67 25 3d  a3 20 8c 0d 1e aa 19 20  |. flag%=. ..... |
00005970  de 20 70 25 21 30 20 a9  28 66 61 6d 69 6c 79 24  |. p%!0 .(family$|
00005980  29 2b 31 33 0d 1e b4 0b  20 70 25 3d 21 70 25 0d  |)+13.... p%=!p%.|
00005990  1e be 0d 20 21 70 25 3d  4e 55 4c 4c 0d 1e c8 0b  |... !p%=NULL....|
000059a0  20 70 25 21 38 3d 31 0d  1e d2 15 20 24 28 70 25  | p%!8=1.... $(p%|
000059b0  2b 31 32 29 3d 66 61 6d  69 6c 79 24 0d 1e dc 17  |+12)=family$....|
000059c0  20 de 20 70 25 21 34 20  a9 28 73 74 79 6c 65 24  | . p%!4 .(style$|
000059d0  29 2b 35 0d 1e e6 0c 20  70 25 3d 70 25 21 34 0d  |)+5.... p%=p%!4.|
000059e0  1e f0 0d 20 21 70 25 3d  4e 55 4c 4c 0d 1e fa 13  |... !p%=NULL....|
000059f0  20 24 28 70 25 2b 34 29  3d 73 74 79 6c 65 24 0d  | $(p%+4)=style$.|
00005a00  1f 04 0f 20 6e 5f 66 6f  6e 74 25 2b 3d 31 0d 1f  |... n_font%+=1..|
00005a10  0e 05 cc 0d 1f 18 10 20  70 25 21 38 3d 70 25 21  |....... p%!8=p%!|
00005a20  38 2b 31 0d 1f 22 0c 20  70 25 3d 70 25 2b 34 0d  |8+1..". p%=p%+4.|
00005a30  1f 2c 15 20 c8 95 20 28  21 70 25 20 3c 3e 20 4e  |.,. .. (!p% <> N|
00005a40  55 4c 4c 29 0d 1f 36 0c  20 20 70 25 3d 21 70 25  |ULL)..6.  p%=!p%|
00005a50  0d 1f 40 06 20 ce 0d 1f  4a 17 20 de 20 70 25 21  |..@. ...J. . p%!|
00005a60  30 20 a9 28 73 74 79 6c  65 24 29 2b 35 0d 1f 54  |0 .(style$)+5..T|
00005a70  0b 20 70 25 3d 21 70 25  0d 1f 5e 0d 20 21 70 25  |. p%=!p%..^. !p%|
00005a80  3d 4e 55 4c 4c 0d 1f 68  13 20 24 28 70 25 2b 34  |=NULL..h. $(p%+4|
00005a90  29 3d 73 74 79 6c 65 24  0d 1f 72 05 cd 0d 1f 7c  |)=style$..r....||
00005aa0  05 e1 0d 1f 86 10 dd a4  4d 61 78 28 61 25 2c 62  |........Max(a%,b|
00005ab0  25 29 0d 1f 90 17 e7 20  61 25 3e 62 25 20 8c 20  |%)..... a%>b% . |
00005ac0  3d 61 25 20 8b 20 3d 62  25 0d 1f 9a 0e dd a4 49  |=a% . =b%......I|
00005ad0  6e 66 6f 28 70 25 29 0d  1f a4 08 ea 20 61 24 0d  |nfo(p%)..... a$.|
00005ae0  1f ae 09 61 24 3d 22 22  0d 1f b8 19 c8 95 20 28  |...a$=""...... (|
00005af0  3f 70 25 3c 3e 30 20 80  20 3f 70 25 3c 3e 31 33  |?p%<>0 . ?p%<>13|
00005b00  29 0d 1f c2 0f 20 61 24  2b 3d bd 28 3f 70 25 29  |).... a$+=.(?p%)|
00005b10  0d 1f cc 0a 20 70 25 2b  3d 31 0d 1f d6 05 ce 0d  |.... p%+=1......|
00005b20  1f e0 07 3d 61 24 0d 1f  ea 14 dd f2 72 65 64 72  |...=a$......redr|
00005b30  61 77 28 68 61 6e 64 6c  65 29 0d 1f f4 13 20 62  |aw(handle).... b|
00005b40  6c 6f 63 6b 21 30 3d 68  61 6e 64 6c 65 0d 1f fe  |lock!0=handle...|
00005b50  0a ea 6d 6f 72 65 25 0d  20 08 29 c8 99 20 22 57  |..more%. .).. "W|
00005b60  69 6d 70 5f 52 65 64 72  61 77 57 69 6e 64 6f 77  |imp_RedrawWindow|
00005b70  22 2c 2c 62 6c 6f 63 6b  20 b8 20 6d 6f 72 65 25  |",,block . more%|
00005b80  0d 20 12 0c c8 95 20 6d  6f 72 65 25 0d 20 1c 10  |. .... more%. ..|
00005b90  20 c8 8e 20 68 61 6e 64  6c 65 20 ca 0d 20 26 0c  | .. handle .. &.|
00005ba0  20 c9 20 63 61 72 64 25  0d 20 30 18 20 f2 61 70  | . card%. 0. .ap|
00005bb0  70 6c 69 63 61 74 69 6f  6e 5f 72 65 64 72 61 77  |plication_redraw|
00005bc0  0d 20 3a 0e 20 c9 20 63  6f 6c 6f 75 72 25 0d 20  |. :. . colour%. |
00005bd0  44 19 20 f2 61 70 70 6c  69 63 61 74 69 6f 6e 5f  |D. .application_|
00005be0  72 65 64 72 61 77 32 0d  20 4e 22 20 c8 99 20 22  |redraw2. N" .. "|
00005bf0  57 69 6d 70 5f 42 6f 72  64 65 72 57 69 6e 64 6f  |Wimp_BorderWindo|
00005c00  77 22 2c 2c 62 6c 6f 63  6b 0d 20 58 0f 20 c9 20  |w",,block. X. . |
00005c10  64 65 74 61 69 6c 73 25  0d 20 62 0d 20 f2 61 70  |details%. b. .ap|
00005c20  70 5f 72 65 33 0d 20 6c  22 20 c8 99 20 22 57 69  |p_re3. l" .. "Wi|
00005c30  6d 70 5f 42 6f 72 64 65  72 57 69 6e 64 6f 77 22  |mp_BorderWindow"|
00005c40  2c 2c 62 6c 6f 63 6b 0d  20 76 06 20 7f 0d 20 80  |,,block. v. .. .|
00005c50  22 20 c8 99 20 22 57 69  6d 70 5f 42 6f 72 64 65  |" .. "Wimp_Borde|
00005c60  72 57 69 6e 64 6f 77 22  2c 2c 62 6c 6f 63 6b 0d  |rWindow",,block.|
00005c70  20 8a 06 20 cb 0d 20 94  2b 20 20 c8 99 20 22 57  | .. .. .+  .. "W|
00005c80  69 6d 70 5f 47 65 74 52  65 63 74 61 6e 67 6c 65  |imp_GetRectangle|
00005c90  22 2c 2c 62 6c 6f 63 6b  20 b8 20 6d 6f 72 65 25  |",,block . more%|
00005ca0  0d 20 9e 05 ce 0d 20 a8  25 e7 20 63 6c 6f 73 65  |. .... .%. close|
00005cb0  3d 31 20 8c 20 f2 63 6c  6f 73 65 28 63 61 72 64  |=1 . .close(card|
00005cc0  25 29 3a 63 6c 6f 73 65  3d 30 0d 20 b2 25 e7 20  |%):close=0. .%. |
00005cd0  6e 6f 6e 6f 3d 31 20 8c  20 f2 69 6e 66 6f 28 64  |nono=1 . .info(d|
00005ce0  65 74 61 69 6c 73 25 2c  6e 69 2c c3 6e 73 29 0d  |etails%,ni,.ns).|
00005cf0  20 bc 05 e1 0d 20 c6 18  dd f2 61 70 70 6c 69 63  | .... ....applic|
00005d00  61 74 69 6f 6e 5f 72 65  64 72 61 77 0d 20 d0 10  |ation_redraw. ..|
00005d10  21 62 6c 6f 63 6b 3d 63  61 72 64 25 0d 20 da 21  |!block=card%. .!|
00005d20  c8 99 22 57 69 6d 70 5f  47 65 74 57 69 6e 64 6f  |.."Wimp_GetWindo|
00005d30  77 49 6e 66 6f 22 2c 2c  62 6c 6f 63 6b 0d 20 e4  |wInfo",,block. .|
00005d40  1b 77 6f 72 6b 78 25 3d  62 6c 6f 63 6b 21 34 2d  |.workx%=block!4-|
00005d50  62 6c 6f 63 6b 21 32 30  0d 20 ee 1c 77 6f 72 6b  |block!20. ..work|
00005d60  79 25 3d 62 6c 6f 63 6b  21 31 36 2d 62 6c 6f 63  |y%=block!16-bloc|
00005d70  6b 21 32 34 0d 20 f8 1c  f2 64 72 61 77 63 61 72  |k!24. ...drawcar|
00005d80  64 28 77 6f 72 6b 78 25  2c 77 6f 72 6b 79 25 29  |d(workx%,worky%)|
00005d90  0d 21 02 1e f2 63 61 72  64 73 70 72 69 74 65 28  |.!...cardsprite(|
00005da0  77 6f 72 6b 78 25 2c 77  6f 72 6b 79 25 29 0d 21  |workx%,worky%).!|
00005db0  0c 05 e1 0d 21 16 1b dd  f2 63 61 72 64 73 70 72  |....!....cardspr|
00005dc0  69 74 65 28 63 78 63 6f  2c 63 79 63 6f 29 0d 21  |ite(cxco,cyco).!|
00005dd0  20 13 e7 20 63 75 72 73  70 72 24 3c 3e 22 22 20  | .. curspr$<>"" |
00005de0  8c 0d 21 2a 12 63 75 72  73 73 24 3d 63 75 72 73  |..!*.curss$=curs|
00005df0  70 72 24 0d 21 34 12 e7  20 a9 63 75 72 73 73 24  |pr$.!4.. .curss$|
00005e00  3c 31 32 20 8c 0d 21 3e  05 f5 0d 21 48 0e 63 75  |<12 ..!>...!H.cu|
00005e10  72 73 73 24 2b 3d bd 30  0d 21 52 10 fd 20 a9 63  |rss$+=.0.!R.. .c|
00005e20  75 72 73 73 24 3d 31 32  0d 21 5c 05 cd 0d 21 66  |urss$=12.!\...!f|
00005e30  2d c8 99 20 22 43 6f 6c  6f 75 72 54 72 61 6e 73  |-.. "ColourTrans|
00005e40  5f 53 65 74 47 43 4f 4c  22 2c 68 65 78 63 28 30  |_SetGCOL",hexc(0|
00005e50  29 2c 2c 2c 26 31 30 30  2c 30 0d 21 70 29 c8 93  |),,,&100,0.!p)..|
00005e60  20 c8 90 20 77 6f 72 6b  78 25 2b 33 39 30 2c 77  | .. workx%+390,w|
00005e70  6f 72 6b 79 25 2d 33 30  30 2c 38 32 2a 32 2c 37  |orky%-300,82*2,7|
00005e80  32 2a 32 0d 21 7a 34 c8  99 20 26 32 45 2c 32 35  |2*2.!z4.. &2E,25|
00005e90  36 2b 34 30 2c 73 70 72  25 2c 63 75 72 73 70 72  |6+40,spr%,curspr|
00005ea0  24 20 b8 20 41 2c 42 2c  43 2c 77 25 2c 68 25 2c  |$ . A,B,C,w%,h%,|
00005eb0  44 2c 6d 6f 64 65 25 0d  21 84 2e c8 99 22 4f 53  |D,mode%.!...."OS|
00005ec0  5f 52 65 61 64 4d 6f 64  65 56 61 72 69 61 62 6c  |_ReadModeVariabl|
00005ed0  65 22 2c 6d 6f 64 65 25  2c 33 20 b8 63 2c 63 6c  |e",mode%,3 .c,cl|
00005ee0  2c 63 6f 6c 73 0d 21 8e  2c c8 99 22 4f 53 5f 52  |,cols.!.,.."OS_R|
00005ef0  65 61 64 4d 6f 64 65 56  61 72 69 61 62 6c 65 22  |eadModeVariable"|
00005f00  2c 6d 6f 64 65 25 2c 34  20 b8 2c 2c 78 65 69 67  |,mode%,4 .,,xeig|
00005f10  25 0d 21 98 2c c8 99 22  4f 53 5f 52 65 61 64 4d  |%.!.,.."OS_ReadM|
00005f20  6f 64 65 56 61 72 69 61  62 6c 65 22 2c 6d 6f 64  |odeVariable",mod|
00005f30  65 25 2c 35 20 b8 2c 2c  79 65 69 67 25 0d 21 a2  |e%,5 .,,yeig%.!.|
00005f40  11 77 69 25 3d 77 25 3c  3c 78 65 69 67 25 0d 21  |.wi%=w%<<xeig%.!|
00005f50  ac 11 68 65 25 3d 68 25  3c 3c 79 65 69 67 25 0d  |..he%=h%<<yeig%.|
00005f60  21 b6 10 e7 20 73 70 72  25 21 34 3e 30 20 8c 0d  |!... spr%!4>0 ..|
00005f70  21 c0 0f 6e 65 78 74 3d  73 70 72 25 21 38 0d 21  |!..next=spr%!8.!|
00005f80  ca 05 f5 0d 21 d4 0e 61  64 64 3d 6e 65 78 74 2b  |....!..add=next+|
00005f90  34 0d 21 de 13 6f 66 66  73 65 74 3d 73 70 72 25  |4.!..offset=spr%|
00005fa0  21 61 64 64 0d 21 e8 0c  6e 61 6d 65 24 3d 22 22  |!add.!..name$=""|
00005fb0  0d 21 f2 05 f5 0d 21 fc  14 6e 61 6d 65 24 2b 3d  |.!....!..name$+=|
00005fc0  bd 73 70 72 25 21 61 64  64 0d 22 06 0a 61 64 64  |.spr%!add."..add|
00005fd0  2b 3d 31 0d 22 10 11 fd  20 61 64 64 3d 6e 65 78  |+=1."... add=nex|
00005fe0  74 2b 31 36 0d 22 1a 0c  6f 6c 64 3d 6e 65 78 74  |t+16."..old=next|
00005ff0  0d 22 24 13 6e 65 78 74  2b 3d 73 70 72 25 21 6e  |."$.next+=spr%!n|
00006000  65 78 74 0d 22 2e 12 fd  20 63 75 72 73 73 24 3d  |ext."... curss$=|
00006010  6e 61 6d 65 24 0d 22 38  18 e7 20 73 70 72 25 21  |name$."8.. spr%!|
00006020  28 33 32 2b 6f 6c 64 29  3e 34 34 20 8c 0d 22 42  |(32+old)>44 .."B|
00006030  11 e3 20 63 6f 6c 25 3d  30 20 b8 20 31 35 0d 22  |.. col%=0 . 15."|
00006040  4c 2b 70 61 6c 65 74 74  65 25 21 28 63 6f 6c 25  |L+palette%!(col%|
00006050  2a 34 29 3d 21 28 6f 6c  64 2b 34 34 2b 63 6f 6c  |*4)=!(old+44+col|
00006060  25 2a 38 2b 73 70 72 25  29 0d 22 56 0a ed 20 63  |%*8+spr%)."V.. c|
00006070  6f 6c 25 0d 22 60 48 c8  99 20 22 43 6f 6c 6f 75  |ol%."`H.. "Colou|
00006080  72 54 72 61 6e 73 5f 53  65 6c 65 63 74 54 61 62  |rTrans_SelectTab|
00006090  6c 65 22 2c 21 28 34 30  2b 6f 6c 64 2b 73 70 72  |le",!(40+old+spr|
000060a0  25 29 2c 70 61 6c 65 74  74 65 25 2c 2d 31 2c 2d  |%),palette%,-1,-|
000060b0  31 2c 73 63 61 6c 62 6c  6f 6b 25 0d 22 6a 05 cc  |1,scalblok%."j..|
000060c0  0d 22 74 47 c8 99 20 22  43 6f 6c 6f 75 72 54 72  |."tG.. "ColourTr|
000060d0  61 6e 73 5f 53 65 6c 65  63 74 54 61 62 6c 65 22  |ans_SelectTable"|
000060e0  2c 21 28 34 30 2b 6f 6c  64 2b 73 70 72 25 29 2c  |,!(40+old+spr%),|
000060f0  64 65 66 70 61 6c 25 2c  2d 31 2c 2d 31 2c 73 63  |defpal%,-1,-1,sc|
00006100  61 6c 62 6c 6f 6b 25 0d  22 7e 05 cd 0d 22 88 05  |alblok%."~..."..|
00006110  cd 0d 22 92 11 78 6f 66  66 3d 30 3a 79 6f 66 66  |.."..xoff=0:yoff|
00006120  3d 30 0d 22 9c 1f e7 20  68 25 3e 77 25 20 73 68  |=0."... h%>w% sh|
00006130  65 61 72 3d 37 32 20 8b  20 73 68 65 61 72 3d 38  |ear=72 . shear=8|
00006140  32 0d 22 a6 25 c8 99 22  4f 53 5f 52 65 61 64 4d  |2.".%.."OS_ReadM|
00006150  6f 64 65 56 61 72 69 61  62 6c 65 22 2c eb 2c 31  |odeVariable",.,1|
00006160  31 20 b8 2c 2c 43 0d 22  b0 25 c8 99 22 4f 53 5f  |1 .,,C.".%.."OS_|
00006170  52 65 61 64 4d 6f 64 65  56 61 72 69 61 62 6c 65  |ReadModeVariable|
00006180  22 2c eb 2c 31 32 20 b8  2c 2c 42 0d 22 ba 0d 43  |",.,12 .,,B."..C|
00006190  2b 3d 31 3a 42 2b 3d 31  0d 22 c4 26 e7 20 42 2f  |+=1:B+=1.".&. B/|
000061a0  43 3d 2e 37 35 20 80 20  a4 76 67 61 28 6d 6f 64  |C=.75 . .vga(mod|
000061b0  65 25 29 20 8c 20 68 73  63 61 6c 65 3d 31 0d 22  |e%) . hscale=1."|
000061c0  ce 2f e7 20 42 2f 43 3c  3e 2e 38 20 80 20 42 2f  |./. B/C<>.8 . B/|
000061d0  43 3c 3e 2e 37 35 20 80  20 a4 76 67 61 28 6d 6f  |C<>.75 . .vga(mo|
000061e0  64 65 25 29 20 68 73 63  61 6c 65 3d 32 0d 22 d8  |de%) hscale=2.".|
000061f0  2a e7 20 42 2f 43 3d 2e  38 20 84 20 42 2f 43 3d  |*. B/C=.8 . B/C=|
00006200  2e 37 35 20 8c 20 6d 6f  64 73 63 3d 31 20 8b 20  |.75 . modsc=1 . |
00006210  6d 6f 64 73 63 3d 32 0d  22 e2 24 53 68 65 61 72  |modsc=2.".$Shear|
00006220  3d a4 63 68 65 63 6b 66  6c 61 67 28 64 65 74 61  |=.checkflag(deta|
00006230  69 6c 73 25 2c 32 39 2c  32 31 29 0d 22 ec 0e c8  |ils%,29,21)."...|
00006240  8e 20 53 68 65 61 72 20  ca 0d 22 f6 07 c9 20 a3  |. Shear .."... .|
00006250  0d 23 00 27 e7 20 42 2f  43 3d 2e 38 20 80 20 ac  |.#.'. B/C=.8 . .|
00006260  20 a4 76 67 61 28 6d 6f  64 65 25 29 20 8c 20 68  | .vga(mode%) . h|
00006270  73 63 61 6c 65 3d 31 0d  23 0a 28 e7 20 42 2f 43  |scale=1.#.(. B/C|
00006280  3d 2e 37 35 20 80 20 ac  20 a4 76 67 61 28 6d 6f  |=.75 . . .vga(mo|
00006290  64 65 25 29 20 8c 20 68  73 63 61 6c 65 3d 31 0d  |de%) . hscale=1.|
000062a0  23 14 31 e7 20 42 2f 43  3c 3e 2e 38 20 80 20 42  |#.1. B/C<>.8 . B|
000062b0  2f 43 3c 3e 2e 37 35 20  80 20 ac 20 a4 76 67 61  |/C<>.75 . . .vga|
000062c0  28 6d 6f 64 65 25 29 20  68 73 63 61 6c 65 3d 32  |(mode%) hscale=2|
000062d0  0d 23 1e 3d e7 20 a4 76  67 61 28 6d 6f 64 65 25  |.#.=. .vga(mode%|
000062e0  29 20 80 20 77 25 3e 38  32 20 80 20 68 25 3e 37  |) . w%>82 . h%>7|
000062f0  32 20 80 20 68 25 3c 77  25 20 8c 20 53 43 77 3d  |2 . h%<w% . SCw=|
00006300  77 25 2f 38 32 3a 53 43  68 3d 53 43 77 0d 23 28  |w%/82:SCh=SCw.#(|
00006310  3d e7 20 a4 76 67 61 28  6d 6f 64 65 25 29 20 80  |=. .vga(mode%) .|
00006320  20 77 25 3e 38 32 20 80  20 68 25 3e 37 32 20 80  | w%>82 . h%>72 .|
00006330  20 68 25 3e 77 25 20 8c  20 53 43 68 3d 68 25 2f  | h%>w% . SCh=h%/|
00006340  37 32 3a 53 43 77 3d 53  43 68 0d 23 32 4a e7 20  |72:SCw=SCh.#2J. |
00006350  ac 20 a4 76 67 61 28 6d  6f 64 65 25 29 20 80 20  |. .vga(mode%) . |
00006360  77 25 3e 38 32 20 80 20  68 25 2a 32 3e 37 32 20  |w%>82 . h%*2>72 |
00006370  80 20 68 25 2a 32 3c 77  25 20 8c 20 53 43 77 3d  |. h%*2<w% . SCw=|
00006380  77 25 2f 38 32 3a 53 43  68 3d 53 43 77 2a 68 73  |w%/82:SCh=SCw*hs|
00006390  63 61 6c 65 0d 23 3c 56  e7 20 ac 20 a4 76 67 61  |cale.#<V. . .vga|
000063a0  28 6d 6f 64 65 25 29 20  80 20 77 25 3e 38 32 20  |(mode%) . w%>82 |
000063b0  80 20 68 25 2a 32 3e 37  32 20 80 20 68 25 2a 32  |. h%*2>72 . h%*2|
000063c0  3e 77 25 20 8c 20 53 43  68 3d 28 68 25 2f 28 37  |>w% . SCh=(h%/(7|
000063d0  32 2f 68 73 63 61 6c 65  29 29 2a 32 3a 53 43 77  |2/hscale))*2:SCw|
000063e0  3d 28 68 25 2f 37 32 29  2a 32 0d 23 46 28 e7 20  |=(h%/72)*2.#F(. |
000063f0  77 25 3e 38 32 20 80 20  68 25 3c 37 32 20 8c 20  |w%>82 . h%<72 . |
00006400  53 43 77 3d 77 25 2f 73  68 65 61 72 3a 53 43 68  |SCw=w%/shear:SCh|
00006410  3d 31 0d 23 50 31 e7 20  77 25 3c 38 32 20 80 20  |=1.#P1. w%<82 . |
00006420  68 25 3e 37 32 20 8c 20  53 43 77 3d 31 3a 53 43  |h%>72 . SCw=1:SC|
00006430  68 3d 68 25 2f 28 73 68  65 61 72 2f 68 73 63 61  |h=h%/(shear/hsca|
00006440  6c 65 29 0d 23 5a 0d e7  20 66 6f 72 63 65 20 8c  |le).#Z.. force .|
00006450  0d 23 64 48 e7 20 77 25  3c 38 32 20 80 20 68 25  |.#dH. w%<82 . h%|
00006460  3c 37 32 20 80 20 68 25  3d 77 25 20 80 20 a4 76  |<72 . h%=w% . .v|
00006470  67 61 28 6d 6f 64 65 25  29 20 8c 20 53 43 68 3d  |ga(mode%) . SCh=|
00006480  68 25 2f 28 37 32 2f 68  73 63 61 6c 65 29 3a 53  |h%/(72/hscale):S|
00006490  43 77 3d 77 25 2f 37 32  0d 23 6e 4e e7 20 77 25  |Cw=w%/72.#nN. w%|
000064a0  3c 38 32 20 80 20 68 25  3c 37 32 20 80 20 68 25  |<82 . h%<72 . h%|
000064b0  3c 77 25 20 80 20 a4 76  67 61 28 6d 6f 64 65 25  |<w% . .vga(mode%|
000064c0  29 20 8c 20 53 43 77 3d  77 25 2f 73 68 65 61 72  |) . SCw=w%/shear|
000064d0  3a 53 43 68 3d 77 25 2f  28 73 68 65 61 72 2f 68  |:SCh=w%/(shear/h|
000064e0  73 63 61 6c 65 29 0d 23  78 4e e7 20 77 25 3c 38  |scale).#xN. w%<8|
000064f0  32 20 80 20 68 25 3c 37  32 20 80 20 68 25 3e 77  |2 . h%<72 . h%>w|
00006500  25 20 80 20 a4 76 67 61  28 6d 6f 64 65 25 29 20  |% . .vga(mode%) |
00006510  8c 20 53 43 77 3d 68 25  2f 73 68 65 61 72 3a 53  |. SCw=h%/shear:S|
00006520  43 68 3d 68 25 2f 28 73  68 65 61 72 2f 68 73 63  |Ch=h%/(shear/hsc|
00006530  61 6c 65 29 0d 23 82 4c  e7 20 77 25 3c 38 32 20  |ale).#.L. w%<82 |
00006540  80 20 68 25 3c 37 32 20  80 20 68 25 2a 32 3d 77  |. h%<72 . h%*2=w|
00006550  25 20 80 20 ac 20 a4 76  67 61 28 6d 6f 64 65 25  |% . . .vga(mode%|
00006560  29 20 8c 20 53 43 68 3d  68 25 2f 28 33 36 2f 68  |) . SCh=h%/(36/h|
00006570  73 63 61 6c 65 29 3a 53  43 77 3d 77 25 2f 37 32  |scale):SCw=w%/72|
00006580  0d 23 8c 54 e7 20 77 25  3c 38 32 20 80 20 68 25  |.#.T. w%<82 . h%|
00006590  3c 33 36 20 80 20 28 68  25 2a 32 29 3c 77 25 20  |<36 . (h%*2)<w% |
000065a0  80 20 ac 20 a4 76 67 61  28 6d 6f 64 65 25 29 20  |. . .vga(mode%) |
000065b0  8c 20 53 43 77 3d 77 25  2f 73 68 65 61 72 3a 53  |. SCw=w%/shear:S|
000065c0  43 68 3d 77 25 2f 28 73  68 65 61 72 2f 68 73 63  |Ch=w%/(shear/hsc|
000065d0  61 6c 65 29 0d 23 96 54  e7 20 77 25 3c 38 32 20  |ale).#.T. w%<82 |
000065e0  80 20 68 25 3c 33 36 20  80 20 28 68 25 2a 32 29  |. h%<36 . (h%*2)|
000065f0  3e 77 25 20 80 20 ac 20  a4 76 67 61 28 6d 6f 64  |>w% . . .vga(mod|
00006600  65 25 29 20 8c 20 53 43  77 3d 68 25 2f 73 68 65  |e%) . SCw=h%/she|
00006610  61 72 3a 53 43 68 3d 68  25 2f 28 73 68 65 61 72  |ar:SCh=h%/(shear|
00006620  2f 68 73 63 61 6c 65 29  0d 23 a0 05 cc 0d 23 aa  |/hscale).#....#.|
00006630  25 e7 20 77 25 3c 38 32  20 80 20 68 25 3c 37 32  |%. w%<82 . h%<72|
00006640  20 8c 20 53 43 77 3d 31  3a 53 43 68 3d 6d 6f 64  | . SCw=1:SCh=mod|
00006650  73 63 0d 23 b4 05 cd 0d  23 be 10 c8 8e 20 63 65  |sc.#....#.... ce|
00006660  6e 74 72 65 64 20 ca 0d  23 c8 09 20 20 c9 20 b9  |ntred ..#..  . .|
00006670  0d 23 d2 31 20 e7 20 a4  76 67 61 28 6d 6f 64 65  |.#.1 . .vga(mode|
00006680  25 29 20 80 20 ac 20 66  6f 72 63 65 20 80 20 68  |%) . . force . h|
00006690  25 2a 53 43 68 3d 37 32  20 8c 20 79 6f 66 66 3d  |%*SCh=72 . yoff=|
000066a0  30 0d 23 dc 3b 20 e7 20  a4 76 67 61 28 6d 6f 64  |0.#.; . .vga(mod|
000066b0  65 25 29 20 80 20 ac 20  66 6f 72 63 65 20 80 20  |e%) . . force . |
000066c0  68 25 2a 53 43 68 3c 37  30 20 8c 20 79 6f 66 66  |h%*SCh<70 . yoff|
000066d0  3d 37 32 2d 28 68 25 2a  53 43 68 29 0d 23 e6 33  |=72-(h%*SCh).#.3|
000066e0  20 e7 20 a4 76 67 61 28  6d 6f 64 65 25 29 20 80  | . .vga(mode%) .|
000066f0  20 66 6f 72 63 65 20 8c  20 79 6f 66 66 3d 28 37  | force . yoff=(7|
00006700  32 2d 28 28 31 2f 53 43  68 29 2a 68 25 29 29 0d  |2-((1/SCh)*h%)).|
00006710  23 f0 35 20 e7 20 ac 20  a4 76 67 61 28 6d 6f 64  |#.5 . . .vga(mod|
00006720  65 25 29 20 80 20 66 6f  72 63 65 20 79 6f 66 66  |e%) . force yoff|
00006730  3d 28 37 32 2d 28 28 31  2f 53 43 68 29 2a 68 25  |=(72-((1/SCh)*h%|
00006740  29 29 2f 32 0d 23 fa 38  20 e7 20 ac 20 a4 76 67  |))/2.#.8 . . .vg|
00006750  61 28 6d 6f 64 65 25 29  20 80 20 68 25 2f 53 43  |a(mode%) . h%/SC|
00006760  68 3c 33 36 20 8c 20 79  6f 66 66 3d a8 28 33 36  |h<36 . yoff=.(36|
00006770  2d 28 68 25 2f 53 43 68  29 29 2a 32 0d 24 04 2a  |-(h%/SCh))*2.$.*|
00006780  20 e7 20 ac 20 a4 76 67  61 28 6d 6f 64 65 25 29  | . . .vga(mode%)|
00006790  20 80 20 68 25 2f 53 43  68 3e 3d 33 35 20 8c 20  | . h%/SCh>=35 . |
000067a0  79 6f 66 66 3d 30 0d 24  0e 1b 20 78 6f 66 66 3d  |yoff=0.$.. xoff=|
000067b0  28 38 32 2d 28 28 31 2f  53 43 77 29 2a 77 25 29  |(82-((1/SCw)*w%)|
000067c0  29 0d 24 18 3b 20 e7 20  66 6f 72 63 65 20 80 20  |).$.; . force . |
000067d0  68 25 3e 37 32 20 80 20  77 25 3e 38 32 20 80 20  |h%>72 . w%>82 . |
000067e0  68 25 3c 77 25 20 80 20  a4 76 67 61 28 6d 6f 64  |h%<w% . .vga(mod|
000067f0  65 25 29 20 8c 20 78 6f  66 66 3d 30 0d 24 22 3b  |e%) . xoff=0.$";|
00006800  20 e7 20 66 6f 72 63 65  20 80 20 68 25 3e 37 32  | . force . h%>72|
00006810  20 80 20 77 25 3e 38 32  20 80 20 68 25 3e 77 25  | . w%>82 . h%>w%|
00006820  20 80 20 a4 76 67 61 28  6d 6f 64 65 25 29 20 8c  | . .vga(mode%) .|
00006830  20 79 6f 66 66 3d 30 0d  24 2c 33 20 e7 20 66 6f  | yoff=0.$,3 . fo|
00006840  72 63 65 20 80 20 68 25  3d 77 25 20 80 20 a4 76  |rce . h%=w% . .v|
00006850  67 61 28 6d 6f 64 65 25  29 20 8c 20 78 6f 66 66  |ga(mode%) . xoff|
00006860  3d 31 30 3a 79 6f 66 66  3d 30 0d 24 36 37 20 e7  |=10:yoff=0.$67 .|
00006870  20 66 6f 72 63 65 20 80  20 68 25 2a 32 3d 77 25  | force . h%*2=w%|
00006880  20 80 20 ac 20 a4 76 67  61 28 6d 6f 64 65 25 29  | . . .vga(mode%)|
00006890  20 8c 20 78 6f 66 66 3d  31 30 3a 79 6f 66 66 3d  | . xoff=10:yoff=|
000068a0  30 0d 24 40 43 20 e7 20  66 6f 72 63 65 20 80 20  |0.$@C . force . |
000068b0  68 25 2a 32 3e 37 32 20  80 20 77 25 3e 38 32 20  |h%*2>72 . w%>82 |
000068c0  80 20 28 68 25 2a 32 29  3c 77 25 20 80 20 ac 20  |. (h%*2)<w% . . |
000068d0  a4 76 67 61 28 6d 6f 64  65 25 29 20 8c 20 78 6f  |.vga(mode%) . xo|
000068e0  66 66 3d 30 0d 24 4a 43  20 e7 20 66 6f 72 63 65  |ff=0.$JC . force|
000068f0  20 80 20 68 25 2a 32 3e  37 32 20 80 20 77 25 3e  | . h%*2>72 . w%>|
00006900  38 32 20 80 20 28 68 25  2a 32 29 3e 77 25 20 80  |82 . (h%*2)>w% .|
00006910  20 ac 20 a4 76 67 61 28  6d 6f 64 65 25 29 20 8c  | . .vga(mode%) .|
00006920  20 79 6f 66 66 3d 30 0d  24 54 07 20 20 cb 0d 24  | yoff=0.$T.  ..$|
00006930  5e 07 c9 20 b9 0d 24 68  27 e7 20 42 2f 43 3d 2e  |^.. ..$h'. B/C=.|
00006940  38 20 80 20 ac 20 a4 76  67 61 28 6d 6f 64 65 25  |8 . . .vga(mode%|
00006950  29 20 8c 20 68 73 63 61  6c 65 3d 32 0d 24 72 28  |) . hscale=2.$r(|
00006960  e7 20 42 2f 43 3d 2e 37  35 20 80 20 ac 20 a4 76  |. B/C=.75 . . .v|
00006970  67 61 28 6d 6f 64 65 25  29 20 8c 20 68 73 63 61  |ga(mode%) . hsca|
00006980  6c 65 3d 32 0d 24 7c 31  e7 20 42 2f 43 3c 3e 2e  |le=2.$|1. B/C<>.|
00006990  38 20 80 20 42 2f 43 3c  3e 2e 37 35 20 80 20 ac  |8 . B/C<>.75 . .|
000069a0  20 a4 76 67 61 28 6d 6f  64 65 25 29 20 68 73 63  | .vga(mode%) hsc|
000069b0  61 6c 65 3d 34 0d 24 86  20 53 43 77 3d 77 25 2f  |ale=4.$. SCw=w%/|
000069c0  38 32 3a 53 43 68 3d 68  25 2f 28 37 32 2f 68 73  |82:SCh=h%/(72/hs|
000069d0  63 61 6c 65 29 0d 24 90  05 cb 0d 24 9a 5b 21 73  |cale).$....$.[!s|
000069e0  63 61 6c 25 3d 77 69 25  3a 73 63 61 6c 25 21 34  |cal%=wi%:scal%!4|
000069f0  3d 68 65 25 3a 73 63 61  6c 25 21 38 3d a8 28 28  |=he%:scal%!8=.((|
00006a00  77 25 2f 28 28 31 2f 53  43 77 29 2f 32 29 29 2b  |w%/((1/SCw)/2))+|
00006a10  30 2e 35 29 3a 73 63 61  6c 25 21 31 32 3d a8 28  |0.5):scal%!12=.(|
00006a20  28 68 25 2f 28 28 31 2f  53 43 68 29 2f 32 29 29  |(h%/((1/SCh)/2))|
00006a30  2b 30 2e 35 29 0d 24 a4  49 c8 99 20 34 36 2c 26  |+0.5).$.I.. 46,&|
00006a40  31 33 34 2c 73 70 72 25  2c 63 75 72 73 70 72 24  |134,spr%,curspr$|
00006a50  2c 63 78 63 6f 2b 33 39  30 2b 78 6f 66 66 2c 63  |,cxco+390+xoff,c|
00006a60  79 63 6f 2d 33 30 30 2b  79 6f 66 66 2c 38 2c 73  |yco-300+yoff,8,s|
00006a70  63 61 6c 25 2c 73 63 61  6c 62 6c 6f 6b 25 0d 24  |cal%,scalblok%.$|
00006a80  ae 05 cd 0d 24 b8 05 e1  0d 24 c2 1e dd a4 77 69  |....$....$....wi|
00006a90  64 74 68 28 74 65 78 74  24 2c 66 6f 6e 74 24 2c  |dth(text$,font$,|
00006aa0  78 73 2c 79 73 29 0d 24  cc 31 c8 99 20 22 46 6f  |xs,ys).$.1.. "Fo|
00006ab0  6e 74 5f 46 69 6e 64 46  6f 6e 74 22 2c 2c 66 6f  |nt_FindFont",,fo|
00006ac0  6e 74 24 2c 78 73 2a 31  36 2c 79 73 2a 31 36 20  |nt$,xs*16,ys*16 |
00006ad0  b8 20 66 6f 6e 74 25 0d  24 d6 1b c8 99 20 22 46  |. font%.$.... "F|
00006ae0  6f 6e 74 5f 53 65 74 46  6f 6e 74 22 2c 66 6f 6e  |ont_SetFont",fon|
00006af0  74 25 0d 24 e0 44 c8 99  20 22 46 6f 6e 74 5f 53  |t%.$.D.. "Font_S|
00006b00  74 72 69 6e 67 57 69 64  74 68 22 2c 2c 74 65 78  |tringWidth",,tex|
00006b10  74 24 2c 32 32 38 30 30  30 2c 32 32 38 30 30 30  |t$,228000,228000|
00006b20  2c 33 31 2c a9 28 74 65  78 74 24 29 20 b8 20 2c  |,31,.(text$) . ,|
00006b30  2c 78 25 2c 79 25 0d 24  ea 27 c8 99 20 22 46 6f  |,x%,y%.$.'.. "Fo|
00006b40  6e 74 5f 43 6f 6e 76 65  72 74 74 6f 4f 53 22 2c  |nt_ConverttoOS",|
00006b50  2c 78 25 2c 79 25 20 b8  20 2c 78 2c 79 0d 24 f4  |,x%,y% . ,x,y.$.|
00006b60  06 3d 78 0d 24 fe 0e dd  f2 6d 61 6b 65 66 69 6c  |.=x.$....makefil|
00006b70  65 0d 25 08 14 c8 99 22  48 6f 75 72 67 6c 61 73  |e.%...."Hourglas|
00006b80  73 5f 4f 6e 22 0d 25 12  07 ea 20 85 0d 25 1c 75  |s_On".%... ..%.u|
00006b90  ee 20 85 20 ea 20 e7 20  9f 3d 37 31 36 32 32 3a  |. . . . .=71622:|
00006ba0  f2 71 75 65 72 79 28 22  44 69 73 63 20 46 75 6c  |.query("Disc Ful|
00006bb0  6c 22 29 3a 66 75 6c 6c  3d b9 3a d9 23 63 25 3a  |l"):full=.:.#c%:|
00006bc0  ff 28 22 44 65 6c 65 74  65 20 22 2b 73 61 76 65  |.("Delete "+save|
00006bd0  24 29 3a f7 20 85 3a e1  3a 8b 20 f7 20 85 3a f2  |$):. .:.:. . .:.|
00006be0  65 72 72 6f 72 28 f6 24  2b 22 20 3a 20 61 74 20  |error(.$+" : at |
00006bf0  6c 69 6e 65 20 22 2b c3  9e 29 3a d9 23 63 25 3a  |line "+..):.#c%:|
00006c00  e1 0d 25 26 36 e7 20 a4  63 68 65 63 6b 66 6c 61  |..%&6. .checkfla|
00006c10  67 28 73 61 76 65 25 2c  33 2c 32 31 29 20 6e 6f  |g(save%,3,21) no|
00006c20  6f 66 63 61 72 64 73 3d  31 20 8b 20 6e 6f 6f 66  |ofcards=1 . noof|
00006c30  63 61 72 64 73 3d 38 0d  25 30 12 62 69 67 25 3d  |cards=8.%0.big%=|
00006c40  26 37 46 46 46 46 46 46  46 0d 25 3a 12 45 46 3d  |&7FFFFFFF.%:.EF=|
00006c50  30 2e 35 35 32 32 35 36  39 34 34 0d 25 44 0d 69  |0.552256944.%D.i|
00006c60  25 3d 30 3a 63 25 3d 30  0d 25 4e 0e 69 6e 63 68  |%=0:c%=0.%N.inch|
00006c70  3d 26 42 34 30 30 0d 25  58 0d 70 6f 69 6e 74 3d  |=&B400.%X.point=|
00006c80  36 34 30 0d 25 62 0c 63  6d 3d 31 38 31 34 30 0d  |640.%b.cm=18140.|
00006c90  25 6c 0c 62 6c 61 63 6b  25 3d 30 0d 25 76 14 77  |%l.black%=0.%v.w|
00006ca0  68 69 74 65 25 3d 26 46  46 46 46 46 46 30 30 0d  |hite%=&FFFFFF00.|
00006cb0  25 80 0c 6e 6f 6e 65 25  3d 2d 31 0d 25 8a 39 6e  |%..none%=-1.%.9n|
00006cc0  61 6d 65 24 3d 24 a4 69  6e 66 6f 28 64 65 74 61  |ame$=$.info(deta|
00006cd0  69 6c 73 25 2c 30 29 3a  66 6f 6e 74 6e 61 6d 65  |ils%,0):fontname|
00006ce0  24 3d 24 a4 69 6e 66 6f  28 64 65 74 61 69 6c 73  |$=$.info(details|
00006cf0  25 2c 33 29 0d 25 94 40  73 69 7a 65 6e 61 6d 65  |%,3).%.@sizename|
00006d00  3d bb 28 24 a4 69 6e 66  6f 28 64 65 74 61 69 6c  |=.($.info(detail|
00006d10  73 25 2c 33 31 29 29 3a  68 6e 61 6d 65 3d bb 28  |s%,31)):hname=.(|
00006d20  24 a4 69 6e 66 6f 28 64  65 74 61 69 6c 73 25 2c  |$.info(details%,|
00006d30  31 33 29 29 0d 25 9e 3b  65 78 74 72 61 24 3d 24  |13)).%.;extra$=$|
00006d40  a4 69 6e 66 6f 28 64 65  74 61 69 6c 73 25 2c 35  |.info(details%,5|
00006d50  29 3a 66 6f 6e 74 65 78  74 72 61 24 3d 24 a4 69  |):fontextra$=$.i|
00006d60  6e 66 6f 28 64 65 74 61  69 6c 73 25 2c 32 29 0d  |nfo(details%,2).|
00006d70  25 a8 42 73 69 7a 65 65  78 74 72 61 3d bb 28 24  |%.Bsizeextra=.($|
00006d80  a4 69 6e 66 6f 28 64 65  74 61 69 6c 73 25 2c 33  |.info(details%,3|
00006d90  32 29 29 3a 68 65 78 74  72 61 3d bb 28 24 a4 69  |2)):hextra=.($.i|
00006da0  6e 66 6f 28 64 65 74 61  69 6c 73 25 2c 31 34 29  |nfo(details%,14)|
00006db0  29 0d 25 b2 38 61 64 31  24 3d 24 a4 69 6e 66 6f  |).%.8ad1$=$.info|
00006dc0  28 64 65 74 61 69 6c 73  25 2c 36 29 3a 66 6f 6e  |(details%,6):fon|
00006dd0  74 61 64 31 24 3d 24 a4  69 6e 66 6f 28 64 65 74  |tad1$=$.info(det|
00006de0  61 69 6c 73 25 2c 31 39  29 0d 25 bc 3e 73 69 7a  |ails%,19).%.>siz|
00006df0  65 61 64 31 3d bb 28 24  a4 69 6e 66 6f 28 64 65  |ead1=.($.info(de|
00006e00  74 61 69 6c 73 25 2c 33  33 29 29 3a 68 61 64 31  |tails%,33)):had1|
00006e10  3d bb 28 24 a4 69 6e 66  6f 28 64 65 74 61 69 6c  |=.($.info(detail|
00006e20  73 25 2c 31 37 29 29 0d  25 c6 1b 61 64 32 24 3d  |s%,17)).%..ad2$=|
00006e30  24 a4 69 6e 66 6f 28 64  65 74 61 69 6c 73 25 2c  |$.info(details%,|
00006e40  37 29 0d 25 d0 1c 61 64  33 24 3d 24 a4 69 6e 66  |7).%..ad3$=$.inf|
00006e50  6f 28 64 65 74 61 69 6c  73 25 2c 31 38 29 0d 25  |o(details%,18).%|
00006e60  da 1c 61 64 34 24 3d 24  a4 69 6e 66 6f 28 64 65  |..ad4$=$.info(de|
00006e70  74 61 69 6c 73 25 2c 31  30 29 0d 25 e4 38 74 65  |tails%,10).%.8te|
00006e80  6c 24 3d 24 a4 69 6e 66  6f 28 64 65 74 61 69 6c  |l$=$.info(detail|
00006e90  73 25 2c 32 31 29 3a 66  6f 6e 74 74 65 6c 24 3d  |s%,21):fonttel$=|
00006ea0  24 a4 69 6e 66 6f 28 64  65 74 61 69 6c 73 25 2c  |$.info(details%,|
00006eb0  34 29 0d 25 ee 3e 73 69  7a 65 74 65 6c 3d bb 28  |4).%.>sizetel=.(|
00006ec0  24 a4 69 6e 66 6f 28 64  65 74 61 69 6c 73 25 2c  |$.info(details%,|
00006ed0  33 34 29 29 3a 68 74 65  6c 3d bb 28 24 a4 69 6e  |34)):htel=.($.in|
00006ee0  66 6f 28 64 65 74 61 69  6c 73 25 2c 31 35 29 29  |fo(details%,15))|
00006ef0  0d 25 f8 1a f2 64 72 61  77 66 69 6c 65 5f 73 74  |.%...drawfile_st|
00006f00  61 72 74 28 73 61 76 65  24 29 0d 26 02 0c f2 70  |art(save$).&...p|
00006f10  75 74 77 28 30 29 0d 26  0c 11 f2 68 65 61 64 5f  |utw(0).&...head_|
00006f20  68 65 72 65 28 a3 29 0d  26 16 19 f2 70 75 74 73  |here(.).&...puts|
00006f30  28 bd 28 31 29 2b 66 6f  6e 74 6e 61 6d 65 24 29  |(.(1)+fontname$)|
00006f40  0d 26 20 1a f2 70 75 74  73 28 bd 28 32 29 2b 66  |.& ..puts(.(2)+f|
00006f50  6f 6e 74 65 78 74 72 61  24 29 0d 26 2a 18 f2 70  |ontextra$).&*..p|
00006f60  75 74 73 28 bd 28 33 29  2b 66 6f 6e 74 61 64 31  |uts(.(3)+fontad1|
00006f70  24 29 0d 26 34 18 f2 70  75 74 73 28 bd 28 34 29  |$).&4..puts(.(4)|
00006f80  2b 66 6f 6e 74 74 65 6c  24 29 0d 26 3e 0a f2 61  |+fonttel$).&>..a|
00006f90  6c 69 67 6e 0d 26 48 0d  f2 68 65 61 64 5f 6e 6f  |lign.&H..head_no|
00006fa0  77 0d 26 52 05 f7 0d 26  5c 20 e7 20 6e 6f 6f 66  |w.&R...&\ . noof|
00006fb0  63 61 72 64 73 3d 38 20  8c 20 f2 67 72 6f 75 70  |cards=8 . .group|
00006fc0  5f 73 74 61 72 74 0d 26  66 22 e3 20 63 61 72 64  |_start.&f". card|
00006fd0  64 72 61 77 3d 31 20 b8  20 6e 6f 6f 66 63 61 72  |draw=1 . noofcar|
00006fe0  64 73 2a 32 20 88 20 32  0d 26 70 2f 61 78 3d 63  |ds*2 . 2.&p/ax=c|
00006ff0  61 72 64 70 6f 73 28 63  61 72 64 64 72 61 77 29  |ardpos(carddraw)|
00007000  3a 62 79 3d 63 61 72 64  70 6f 73 28 63 61 72 64  |:by=cardpos(card|
00007010  64 72 61 77 2b 31 29 0d  26 7a 13 78 70 6f 73 3d  |draw+1).&z.xpos=|
00007020  61 78 3a 79 70 6f 73 3d  62 79 0d 26 84 10 f2 67  |ax:ypos=by.&...g|
00007030  72 6f 75 70 5f 73 74 61  72 74 0d 26 8e 27 f2 70  |roup_start.&.'.p|
00007040  61 74 68 5f 73 74 61 72  74 28 30 2c 30 2c 31 2a  |ath_start(0,0,1*|
00007050  70 6f 69 6e 74 2c 26 30  2c 68 65 78 63 28 30 29  |point,&0,hexc(0)|
00007060  29 0d 26 98 15 f2 70 61  74 68 5f 64 72 61 77 28  |).&...path_draw(|
00007070  30 2c 31 35 32 29 0d 26  a2 17 f2 70 61 74 68 5f  |0,152).&...path_|
00007080  64 72 61 77 28 32 32 38  2c 31 35 32 29 0d 26 ac  |draw(228,152).&.|
00007090  15 f2 70 61 74 68 5f 64  72 61 77 28 32 32 38 2c  |..path_draw(228,|
000070a0  30 29 0d 26 b6 13 f2 70  61 74 68 5f 64 72 61 77  |0).&...path_draw|
000070b0  28 30 2c 30 29 0d 26 c0  0f f2 70 61 74 68 5f 63  |(0,0).&...path_c|
000070c0  6c 6f 73 65 0d 26 ca 0d  f2 70 61 74 68 5f 65 6e  |lose.&...path_en|
000070d0  64 0d 26 d4 34 78 63 6f  3d 28 32 2f 35 29 2a a4  |d.&.4xco=(2/5)*.|
000070e0  77 69 64 74 68 28 6e 61  6d 65 24 2c 66 6f 6e 74  |width(name$,font|
000070f0  6e 61 6d 65 24 2c 73 69  7a 65 6e 61 6d 65 2c 68  |name$,sizename,h|
00007100  6e 61 6d 65 29 0d 26 de  7a e7 20 78 2f 28 32 2f  |name).&.z. x/(2/|
00007110  35 29 3d 30 20 80 20 6e  61 6d 65 24 3c 3e 22 22  |5)=0 . name$<>""|
00007120  20 8c 20 f2 6d 65 73 73  28 22 54 68 65 20 6e 61  | . .mess("The na|
00007130  6d 65 20 74 65 78 74 20  69 73 20 74 6f 6f 20 6c  |me text is too l|
00007140  6f 6e 67 20 6f 72 20 74  68 65 20 66 6f 6e 74 20  |ong or the font |
00007150  69 73 20 74 6f 6f 20 6c  61 72 67 65 22 29 3a f2  |is too large"):.|
00007160  64 72 61 77 66 69 6c 65  5f 65 6e 64 3a ff 22 44  |drawfile_end:."D|
00007170  65 6c 65 74 65 20 22 2b  73 61 76 65 24 3a e1 0d  |elete "+save$:..|
00007180  26 e8 0f 78 63 6f 3d 32  32 38 2d 78 63 6f 0d 26  |&..xco=228-xco.&|
00007190  f2 0d 78 63 6f 3d 78 63  6f 2f 32 0d 26 fc 10 f2  |..xco=xco/2.&...|
000071a0  67 72 6f 75 70 5f 73 74  61 72 74 0d 27 06 43 f2  |group_start.'.C.|
000071b0  74 65 78 74 28 78 63 6f  2c 31 32 36 2c 6e 61 6d  |text(xco,126,nam|
000071c0  65 24 2c 73 69 7a 65 6e  61 6d 65 2a 26 32 38 30  |e$,sizename*&280|
000071d0  2c 68 6e 61 6d 65 2a 26  32 38 30 2c 31 2c 68 65  |,hname*&280,1,he|
000071e0  78 63 28 31 29 2c 68 65  78 63 28 31 29 29 0d 27  |xc(1),hexc(1)).'|
000071f0  10 26 73 74 61 72 74 3d  78 63 6f 2d 32 3a 66 69  |.&start=xco-2:fi|
00007200  6e 69 73 68 3d 78 63 6f  2b 28 28 32 2f 35 29 2a  |nish=xco+((2/5)*|
00007210  78 29 2b 32 0d 27 1a 35  f2 70 61 74 68 5f 73 74  |x)+2.'.5.path_st|
00007220  61 72 74 28 73 74 61 72  74 2c 31 32 33 2c 31 2e  |art(start,123,1.|
00007230  35 2a 26 32 38 30 2c 68  65 78 63 28 31 29 2c 26  |5*&280,hexc(1),&|
00007240  46 46 46 46 46 46 46 46  29 0d 27 24 1a f2 70 61  |FFFFFFFF).'$..pa|
00007250  74 68 5f 64 72 61 77 28  66 69 6e 69 73 68 2c 31  |th_draw(finish,1|
00007260  32 33 29 0d 27 2e 0f f2  70 61 74 68 5f 63 6c 6f  |23).'...path_clo|
00007270  73 65 0d 27 38 0d f2 70  61 74 68 5f 65 6e 64 0d  |se.'8..path_end.|
00007280  27 42 0e f2 67 72 6f 75  70 5f 65 6e 64 0d 27 4c  |'B..group_end.'L|
00007290  10 f2 67 72 6f 75 70 5f  73 74 61 72 74 0d 27 56  |..group_start.'V|
000072a0  28 78 3d a4 77 69 64 74  68 28 61 64 31 24 2c 66  |(x=.width(ad1$,f|
000072b0  6f 6e 74 61 64 31 24 2c  73 69 7a 65 61 64 31 2c  |ontad1$,sizead1,|
000072c0  68 61 64 31 29 0d 27 60  81 e7 20 61 64 31 24 3e  |had1).'`.. ad1$>|
000072d0  22 22 20 80 20 78 3d 30  20 84 20 78 3e 35 36 30  |"" . x=0 . x>560|
000072e0  20 8c 20 f2 6d 65 73 73  28 22 54 68 65 20 31 73  | . .mess("The 1s|
000072f0  74 20 61 64 64 72 65 73  73 20 74 65 78 74 20 69  |t address text i|
00007300  73 20 74 6f 6f 20 6c 6f  6e 67 20 6f 72 20 74 68  |s too long or th|
00007310  65 20 66 6f 6e 74 20 69  73 20 74 6f 6f 20 6c 61  |e font is too la|
00007320  72 67 65 22 29 3a f2 64  72 61 77 66 69 6c 65 5f  |rge"):.drawfile_|
00007330  65 6e 64 3a ff 22 44 65  6c 65 74 65 20 22 2b 73  |end:."Delete "+s|
00007340  61 76 65 24 3a e1 0d 27  6a 3e f2 74 65 78 74 28  |ave$:..'j>.text(|
00007350  31 33 2c 38 31 2c 61 64  31 24 2c 73 69 7a 65 61  |13,81,ad1$,sizea|
00007360  64 31 2a 26 32 38 30 2c  68 61 64 31 2a 26 32 38  |d1*&280,had1*&28|
00007370  30 2c 33 2c 68 65 78 63  28 33 29 2c 68 65 78 63  |0,3,hexc(3),hexc|
00007380  28 33 29 29 0d 27 74 28  78 3d a4 77 69 64 74 68  |(3)).'t(x=.width|
00007390  28 61 64 32 24 2c 66 6f  6e 74 61 64 31 24 2c 73  |(ad2$,fontad1$,s|
000073a0  69 7a 65 61 64 31 2c 68  61 64 31 29 0d 27 7e 81  |izead1,had1).'~.|
000073b0  e7 20 61 64 32 24 3e 22  22 20 80 20 78 3d 30 20  |. ad2$>"" . x=0 |
000073c0  84 20 78 3e 35 36 30 20  8c 20 f2 6d 65 73 73 28  |. x>560 . .mess(|
000073d0  22 54 68 65 20 32 6e 64  20 61 64 64 72 65 73 73  |"The 2nd address|
000073e0  20 74 65 78 74 20 69 73  20 74 6f 6f 20 6c 6f 6e  | text is too lon|
000073f0  67 20 6f 72 20 74 68 65  20 66 6f 6e 74 20 69 73  |g or the font is|
00007400  20 74 6f 6f 20 6c 61 72  67 65 22 29 3a f2 64 72  | too large"):.dr|
00007410  61 77 66 69 6c 65 5f 65  6e 64 3a ff 22 44 65 6c  |awfile_end:."Del|
00007420  65 74 65 20 22 2b 73 61  76 65 24 3a e1 0d 27 88  |ete "+save$:..'.|
00007430  3e f2 74 65 78 74 28 31  33 2c 36 35 2c 61 64 32  |>.text(13,65,ad2|
00007440  24 2c 73 69 7a 65 61 64  31 2a 26 32 38 30 2c 68  |$,sizead1*&280,h|
00007450  61 64 31 2a 26 32 38 30  2c 33 2c 68 65 78 63 28  |ad1*&280,3,hexc(|
00007460  33 29 2c 68 65 78 63 28  33 29 29 0d 27 92 28 78  |3),hexc(3)).'.(x|
00007470  3d a4 77 69 64 74 68 28  61 64 33 24 2c 66 6f 6e  |=.width(ad3$,fon|
00007480  74 61 64 31 24 2c 73 69  7a 65 61 64 31 2c 68 61  |tad1$,sizead1,ha|
00007490  64 31 29 0d 27 9c 81 e7  20 61 64 33 24 3e 22 22  |d1).'... ad3$>""|
000074a0  20 80 20 78 3d 30 20 84  20 78 3e 35 36 30 20 8c  | . x=0 . x>560 .|
000074b0  20 f2 6d 65 73 73 28 22  54 68 65 20 33 72 64 20  | .mess("The 3rd |
000074c0  61 64 64 72 65 73 73 20  74 65 78 74 20 69 73 20  |address text is |
000074d0  74 6f 6f 20 6c 6f 6e 67  20 6f 72 20 74 68 65 20  |too long or the |
000074e0  66 6f 6e 74 20 69 73 20  74 6f 6f 20 6c 61 72 67  |font is too larg|
000074f0  65 22 29 3a f2 64 72 61  77 66 69 6c 65 5f 65 6e  |e"):.drawfile_en|
00007500  64 3a ff 22 44 65 6c 65  74 65 20 22 2b 73 61 76  |d:."Delete "+sav|
00007510  65 24 3a e1 0d 27 a6 3e  f2 74 65 78 74 28 31 33  |e$:..'.>.text(13|
00007520  2c 34 39 2c 61 64 33 24  2c 73 69 7a 65 61 64 31  |,49,ad3$,sizead1|
00007530  2a 26 32 38 30 2c 68 61  64 31 2a 26 32 38 30 2c  |*&280,had1*&280,|
00007540  33 2c 68 65 78 63 28 33  29 2c 68 65 78 63 28 33  |3,hexc(3),hexc(3|
00007550  29 29 0d 27 b0 28 78 3d  a4 77 69 64 74 68 28 61  |)).'.(x=.width(a|
00007560  64 34 24 2c 66 6f 6e 74  61 64 31 24 2c 73 69 7a  |d4$,fontad1$,siz|
00007570  65 61 64 31 2c 68 61 64  31 29 0d 27 ba 81 e7 20  |ead1,had1).'... |
00007580  61 64 34 24 3e 22 22 20  80 20 78 3d 30 20 84 20  |ad4$>"" . x=0 . |
00007590  78 3e 35 36 30 20 8c 20  f2 6d 65 73 73 28 22 54  |x>560 . .mess("T|
000075a0  68 65 20 34 74 68 20 61  64 64 72 65 73 73 20 74  |he 4th address t|
000075b0  65 78 74 20 69 73 20 74  6f 6f 20 6c 6f 6e 67 20  |ext is too long |
000075c0  6f 72 20 74 68 65 20 66  6f 6e 74 20 69 73 20 74  |or the font is t|
000075d0  6f 6f 20 6c 61 72 67 65  22 29 3a f2 64 72 61 77  |oo large"):.draw|
000075e0  66 69 6c 65 5f 65 6e 64  3a ff 22 44 65 6c 65 74  |file_end:."Delet|
000075f0  65 20 22 2b 73 61 76 65  24 3a e1 0d 27 c4 3e f2  |e "+save$:..'.>.|
00007600  74 65 78 74 28 31 33 2c  33 33 2c 61 64 34 24 2c  |text(13,33,ad4$,|
00007610  73 69 7a 65 61 64 31 2a  26 32 38 30 2c 68 61 64  |sizead1*&280,had|
00007620  31 2a 26 32 38 30 2c 33  2c 68 65 78 63 28 33 29  |1*&280,3,hexc(3)|
00007630  2c 68 65 78 63 28 33 29  29 0d 27 ce 0e f2 67 72  |,hexc(3)).'...gr|
00007640  6f 75 70 5f 65 6e 64 0d  27 d8 38 78 63 6f 3d 28  |oup_end.'.8xco=(|
00007650  32 2f 35 29 2a a4 77 69  64 74 68 28 65 78 74 72  |2/5)*.width(extr|
00007660  61 24 2c 66 6f 6e 74 65  78 74 72 61 24 2c 73 69  |a$,fontextra$,si|
00007670  7a 65 65 78 74 72 61 2c  68 65 78 74 72 61 29 0d  |zeextra,hextra).|
00007680  27 e2 7c e7 20 78 2f 28  32 2f 35 29 3d 30 20 80  |'.|. x/(2/5)=0 .|
00007690  20 65 78 74 72 61 24 3c  3e 22 22 20 8c 20 f2 6d  | extra$<>"" . .m|
000076a0  65 73 73 28 22 54 68 65  20 74 72 61 64 65 20 74  |ess("The trade t|
000076b0  65 78 74 20 69 73 20 74  6f 6f 20 6c 6f 6e 67 20  |ext is too long |
000076c0  6f 72 20 74 68 65 20 66  6f 6e 74 20 69 73 20 74  |or the font is t|
000076d0  6f 6f 20 6c 61 72 67 65  22 29 3a f2 64 72 61 77  |oo large"):.draw|
000076e0  66 69 6c 65 5f 65 6e 64  3a ff 22 44 65 6c 65 74  |file_end:."Delet|
000076f0  65 20 22 2b 73 61 76 65  24 3a e1 0d 27 ec 1a 78  |e "+save$:..'..x|
00007700  63 6f 3d 32 32 38 2d 78  63 6f 3a 78 63 6f 3d 78  |co=228-xco:xco=x|
00007710  63 6f 2f 32 3a 0d 27 f6  46 f2 74 65 78 74 28 78  |co/2:.'.F.text(x|
00007720  63 6f 2c 31 30 32 2c 65  78 74 72 61 24 2c 73 69  |co,102,extra$,si|
00007730  7a 65 65 78 74 72 61 2a  26 32 38 30 2c 68 65 78  |zeextra*&280,hex|
00007740  74 72 61 2a 26 32 38 30  2c 32 2c 68 65 78 63 28  |tra*&280,2,hexc(|
00007750  32 29 2c 68 65 78 63 28  32 29 29 0d 28 00 3a 78  |2),hexc(2)).(.:x|
00007760  63 6f 3d 28 32 2f 35 29  2a a4 77 69 64 74 68 28  |co=(2/5)*.width(|
00007770  22 54 65 6c 20 3a 2d 20  22 2b 74 65 6c 24 2c 66  |"Tel :- "+tel$,f|
00007780  6f 6e 74 74 65 6c 24 2c  73 69 7a 65 74 65 6c 2c  |onttel$,sizetel,|
00007790  68 74 65 6c 29 0d 28 0a  7e e7 20 78 2f 28 32 2f  |htel).(.~. x/(2/|
000077a0  35 29 3d 30 20 80 20 74  65 6c 24 3c 3e 22 22 20  |5)=0 . tel$<>"" |
000077b0  8c 20 f2 6d 65 73 73 28  22 54 68 65 20 74 65 6c  |. .mess("The tel|
000077c0  65 70 68 6f 6e 65 20 74  65 78 74 20 69 73 20 74  |ephone text is t|
000077d0  6f 6f 20 6c 6f 6e 67 20  6f 72 20 74 68 65 20 66  |oo long or the f|
000077e0  6f 6e 74 20 69 73 20 74  6f 6f 20 6c 61 72 67 65  |ont is too large|
000077f0  22 29 3a f2 64 72 61 77  66 69 6c 65 5f 65 6e 64  |"):.drawfile_end|
00007800  3a ff 22 44 65 6c 65 74  65 20 22 2b 73 61 76 65  |:."Delete "+save|
00007810  24 3a e1 0d 28 14 0f 78  63 6f 3d 32 31 38 2d 78  |$:..(..xco=218-x|
00007820  63 6f 0d 28 1e 49 f2 74  65 78 74 28 78 63 6f 2c  |co.(.I.text(xco,|
00007830  31 30 2c 22 54 65 6c 20  3a 2d 20 22 2b 74 65 6c  |10,"Tel :- "+tel|
00007840  24 2c 73 69 7a 65 74 65  6c 2a 26 32 38 30 2c 68  |$,sizetel*&280,h|
00007850  74 65 6c 2a 26 32 38 30  2c 34 2c 68 65 78 63 28  |tel*&280,4,hexc(|
00007860  34 29 2c 68 65 78 63 28  34 29 29 0d 28 28 1b e7  |4),hexc(4)).((..|
00007870  20 63 75 72 73 70 72 24  3c 3e 22 22 20 8c 20 f2  | curspr$<>"" . .|
00007880  73 70 72 69 74 65 0d 28  32 0e f2 67 72 6f 75 70  |sprite.(2..group|
00007890  5f 65 6e 64 0d 28 3c 47  e7 20 6e 6f 6f 66 63 61  |_end.(<G. noofca|
000078a0  72 64 73 3d 38 20 c8 99  22 48 6f 75 72 67 6c 61  |rds=8 .."Hourgla|
000078b0  73 73 5f 50 65 72 63 65  6e 74 61 67 65 22 2c 28  |ss_Percentage",(|
000078c0  63 61 72 64 64 72 61 77  2f 28 6e 6f 6f 66 63 61  |carddraw/(noofca|
000078d0  72 64 73 2a 32 29 29 2a  31 30 30 0d 28 46 05 ed  |rds*2))*100.(F..|
000078e0  0d 28 50 11 f2 64 72 61  77 66 69 6c 65 5f 65 6e  |.(P..drawfile_en|
000078f0  64 0d 28 5a 17 c8 99 22  48 6f 75 72 67 6c 61 73  |d.(Z..."Hourglas|
00007900  73 5f 53 6d 61 73 68 22  0d 28 64 07 f7 20 85 0d  |s_Smash".(d.. ..|
00007910  28 6e 05 e1 0d 28 78 19  dd 20 f2 64 72 61 77 66  |(n...(x.. .drawf|
00007920  69 6c 65 5f 73 74 61 72  74 28 44 24 29 0d 28 82  |ile_start(D$).(.|
00007930  0c 63 25 3d ae 28 44 24  29 0d 28 8c 2c e7 20 63  |.c%=.(D$).(.,. c|
00007940  25 3d 30 20 8c 20 85 20  31 32 33 34 2c 22 43 61  |%=0 . . 1234,"Ca|
00007950  6e 27 74 20 6f 70 65 6e  20 6f 75 74 70 75 74 20  |n't open output |
00007960  66 69 6c 65 22 0d 28 96  10 64 72 61 77 66 69 6c  |file".(..drawfil|
00007970  65 24 3d 44 24 0d 28 a0  28 f2 70 75 74 77 28 26  |e$=D$.(.(.putw(&|
00007980  37 37 36 31 37 32 34 34  29 3a f2 70 75 74 77 28  |77617244):.putw(|
00007990  32 30 31 29 3a f2 70 75  74 77 28 30 29 0d 28 aa  |201):.putw(0).(.|
000079a0  14 f2 70 75 74 73 31 32  28 22 21 43 61 72 64 22  |..puts12("!Card"|
000079b0  29 0d 28 b4 0b 6c 65 76  25 3d 2d 31 0d 28 be 11  |).(..lev%=-1.(..|
000079c0  f2 68 65 61 64 5f 68 65  72 65 28 b9 29 0d 28 c8  |.head_here(.).(.|
000079d0  05 e1 0d 28 d2 0f dd 20  f2 70 75 74 77 28 41 25  |...(... .putw(A%|
000079e0  29 0d 28 dc 11 d5 23 63  25 2c 41 25 20 80 20 26  |).(...#c%,A% . &|
000079f0  46 46 0d 28 e6 17 d5 23  63 25 2c 28 41 25 3e 3e  |FF.(...#c%,(A%>>|
00007a00  3e 38 29 20 80 20 26 46  46 0d 28 f0 18 d5 23 63  |>8) . &FF.(...#c|
00007a10  25 2c 28 41 25 3e 3e 3e  31 36 29 20 80 20 26 46  |%,(A%>>>16) . &F|
00007a20  46 0d 28 fa 18 d5 23 63  25 2c 28 41 25 3e 3e 3e  |F.(...#c%,(A%>>>|
00007a30  32 34 29 20 80 20 26 46  46 0d 29 04 05 e1 0d 29  |24) . &FF.)....)|
00007a40  0e 11 dd 20 f2 70 75 74  73 31 32 28 41 24 29 0d  |... .puts12(A$).|
00007a50  29 18 08 ea 20 41 25 0d  29 22 12 41 24 3d 41 24  |)... A%.)".A$=A$|
00007a60  2b c4 31 32 2c 22 20 22  29 0d 29 2c 23 e3 20 41  |+.12," ").),#. A|
00007a70  25 3d 31 20 b8 20 31 32  3a d5 23 63 25 2c 97 28  |%=1 . 12:.#c%,.(|
00007a80  c1 41 24 2c 41 25 2c 31  29 29 3a ed 0d 29 36 05  |.A$,A%,1)):..)6.|
00007a90  e1 0d 29 40 05 3a 0d 29  4a 0f dd 20 f2 70 75 74  |..)@.:.)J.. .put|
00007aa0  73 28 41 24 29 0d 29 54  08 ea 20 41 25 0d 29 5e  |s(A$).)T.. A%.)^|
00007ab0  26 e3 20 41 25 3d 31 20  b8 20 a9 28 41 24 29 3a  |&. A%=1 . .(A$):|
00007ac0  d5 23 63 25 2c 97 28 c1  41 24 2c 41 25 2c 31 29  |.#c%,.(.A$,A%,1)|
00007ad0  29 3a ed 0d 29 68 0a d5  23 63 25 2c 30 0d 29 72  |):..)h..#c%,0.)r|
00007ae0  05 e1 0d 29 7c 05 3a 0d  29 86 16 dd 20 f2 68 65  |...)|.:.)... .he|
00007af0  61 64 5f 68 65 72 65 28  62 6f 78 25 29 0d 29 90  |ad_here(box%).).|
00007b00  56 e7 20 6c 65 76 25 3d  6d 61 78 6c 65 76 25 20  |V. lev%=maxlev% |
00007b10  8c 20 85 20 31 32 33 34  2c 22 54 6f 6f 20 6d 61  |. . 1234,"Too ma|
00007b20  6e 79 20 6e 65 73 74 65  64 20 67 72 6f 75 70 73  |ny nested groups|
00007b30  2e 20 20 45 64 69 74 20  70 72 6f 67 72 61 6d 20  |.  Edit program |
00007b40  74 6f 20 69 6e 63 72 65  61 73 65 20 6c 69 6d 69  |to increase limi|
00007b50  74 2e 22 0d 29 9a 0b 6c  65 76 25 2b 3d 31 0d 29  |t.".)..lev%+=1.)|
00007b60  a4 13 62 6f 78 25 28 6c  65 76 25 29 3d 62 6f 78  |..box%(lev%)=box|
00007b70  25 0d 29 ae 15 73 74 61  72 74 25 28 6c 65 76 25  |%.)..start%(lev%|
00007b80  29 3d 8f 23 63 25 0d 29  b8 17 e7 20 6c 65 76 25  |)=.#c%.)... lev%|
00007b90  3e 30 20 8c 20 f2 70 75  74 77 28 30 29 0d 29 c2  |>0 . .putw(0).).|
00007ba0  0c e7 20 62 6f 78 25 20  8c 0d 29 cc 16 20 f2 70  |.. box% ..).. .p|
00007bb0  75 74 77 28 30 29 3a f2  70 75 74 77 28 30 29 0d  |utw(0):.putw(0).|
00007bc0  29 d6 16 20 f2 70 75 74  77 28 30 29 3a f2 70 75  |).. .putw(0):.pu|
00007bd0  74 77 28 30 29 0d 29 e0  05 cd 0d 29 ea 1f 6c 25  |tw(0).)....)..l%|
00007be0  28 6c 65 76 25 29 3d 62  69 67 25 3a 62 25 28 6c  |(lev%)=big%:b%(l|
00007bf0  65 76 25 29 3d 62 69 67  25 0d 29 f4 21 72 25 28  |ev%)=big%.).!r%(|
00007c00  6c 65 76 25 29 3d 2d 62  69 67 25 3a 74 25 28 6c  |lev%)=-big%:t%(l|
00007c10  65 76 25 29 3d 2d 62 69  67 25 0d 29 fe 05 e1 0d  |ev%)=-big%.)....|
00007c20  2a 08 05 3a 0d 2a 12 0f  dd 20 f2 68 65 61 64 5f  |*..:.*... .head_|
00007c30  6e 6f 77 0d 2a 1c 0a ea  20 65 6e 64 25 0d 2a 26  |now.*... end%.*&|
00007c40  0d 65 6e 64 25 3d 8f 23  63 25 0d 2a 30 15 cf 23  |.end%=.#c%.*0..#|
00007c50  63 25 3d 73 74 61 72 74  25 28 6c 65 76 25 29 0d  |c%=start%(lev%).|
00007c60  2a 3a 29 e7 20 6c 65 76  25 3e 30 20 8c 20 f2 70  |*:). lev%>0 . .p|
00007c70  75 74 77 28 65 6e 64 25  2d 73 74 61 72 74 25 28  |utw(end%-start%(|
00007c80  6c 65 76 25 29 2b 34 29  0d 2a 44 12 e7 20 62 6f  |lev%)+4).*D.. bo|
00007c90  78 25 28 6c 65 76 25 29  20 8c 0d 2a 4e 24 20 f2  |x%(lev%) ..*N$ .|
00007ca0  70 75 74 77 28 6c 25 28  6c 65 76 25 29 29 3a f2  |putw(l%(lev%)):.|
00007cb0  70 75 74 77 28 62 25 28  6c 65 76 25 29 29 0d 2a  |putw(b%(lev%)).*|
00007cc0  58 28 20 f2 70 75 74 77  28 72 25 28 6c 65 76 25  |X( .putw(r%(lev%|
00007cd0  29 2b 31 29 3a f2 70 75  74 77 28 74 25 28 6c 65  |)+1):.putw(t%(le|
00007ce0  76 25 29 2b 31 29 0d 2a  62 05 cd 0d 2a 6c 0e e7  |v%)+1).*b...*l..|
00007cf0  20 6c 65 76 25 3e 30 20  8c 0d 2a 76 0c 20 6c 65  | lev%>0 ..*v. le|
00007d00  76 25 2d 3d 31 0d 2a 80  30 20 e7 20 6c 25 28 6c  |v%-=1.*.0 . l%(l|
00007d10  65 76 25 2b 31 29 3c 6c  25 28 6c 65 76 25 29 20  |ev%+1)<l%(lev%) |
00007d20  8c 20 6c 25 28 6c 65 76  25 29 3d 6c 25 28 6c 65  |. l%(lev%)=l%(le|
00007d30  76 25 2b 31 29 0d 2a 8a  30 20 e7 20 62 25 28 6c  |v%+1).*.0 . b%(l|
00007d40  65 76 25 2b 31 29 3c 62  25 28 6c 65 76 25 29 20  |ev%+1)<b%(lev%) |
00007d50  8c 20 62 25 28 6c 65 76  25 29 3d 62 25 28 6c 65  |. b%(lev%)=b%(le|
00007d60  76 25 2b 31 29 0d 2a 94  30 20 e7 20 72 25 28 6c  |v%+1).*.0 . r%(l|
00007d70  65 76 25 2b 31 29 3e 72  25 28 6c 65 76 25 29 20  |ev%+1)>r%(lev%) |
00007d80  8c 20 72 25 28 6c 65 76  25 29 3d 72 25 28 6c 65  |. r%(lev%)=r%(le|
00007d90  76 25 2b 31 29 0d 2a 9e  30 20 e7 20 74 25 28 6c  |v%+1).*.0 . t%(l|
00007da0  65 76 25 2b 31 29 3e 74  25 28 6c 65 76 25 29 20  |ev%+1)>t%(lev%) |
00007db0  8c 20 74 25 28 6c 65 76  25 29 3d 74 25 28 6c 65  |. t%(lev%)=t%(le|
00007dc0  76 25 2b 31 29 0d 2a a8  05 cd 0d 2a b2 0d cf 23  |v%+1).*....*...#|
00007dd0  63 25 3d 65 6e 64 25 0d  2a bc 05 e1 0d 2a c6 0c  |c%=end%.*....*..|
00007de0  dd 20 f2 61 6c 69 67 6e  0d 2a d0 18 c8 95 20 8f  |. .align.*.... .|
00007df0  23 63 25 20 80 20 33 3a  d5 23 63 25 2c 30 3a ce  |#c% . 3:.#c%,0:.|
00007e00  0d 2a da 05 e1 0d 2a e4  12 dd 20 f2 67 72 6f 75  |.*....*... .grou|
00007e10  70 5f 73 74 61 72 74 0d  2a ee 2d f4 20 67 72 6f  |p_start.*.-. gro|
00007e20  75 70 73 20 63 61 6e 6e  6f 74 20 62 65 20 6e 65  |ups cannot be ne|
00007e30  73 74 65 64 20 69 6e 20  74 68 69 73 20 76 65 72  |sted in this ver|
00007e40  73 69 6f 6e 0d 2a f8 0c  f2 70 75 74 77 28 36 29  |sion.*...putw(6)|
00007e50  0d 2b 02 11 f2 68 65 61  64 5f 68 65 72 65 28 b9  |.+...head_here(.|
00007e60  29 0d 2b 0c 14 f2 70 75  74 73 31 32 28 22 67 72  |).+...puts12("gr|
00007e70  6f 75 70 22 29 0d 2b 16  05 e1 0d 2b 20 05 3a 0d  |oup").+....+ .:.|
00007e80  2b 2a 10 dd 20 f2 67 72  6f 75 70 5f 65 6e 64 0d  |+*.. .group_end.|
00007e90  2b 34 0d f2 68 65 61 64  5f 6e 6f 77 0d 2b 3e 05  |+4..head_now.+>.|
00007ea0  e1 0d 2b 48 37 dd 20 f2  74 65 78 74 28 78 25 2c  |..+H7. .text(x%,|
00007eb0  79 25 2c 74 65 78 74 24  2c 78 73 69 7a 65 25 2c  |y%,text$,xsize%,|
00007ec0  79 73 69 7a 65 25 2c 66  6f 6e 74 25 2c 63 6f 6c  |ysize%,font%,col|
00007ed0  25 2c 62 63 6f 6c 25 29  0d 2b 52 29 78 25 3d 28  |%,bcol%).+R)x%=(|
00007ee0  78 25 2b 78 70 6f 73 29  2a 70 6f 69 6e 74 3a 79  |x%+xpos)*point:y|
00007ef0  25 3d 28 79 25 2b 79 70  6f 73 29 2a 70 6f 69 6e  |%=(y%+ypos)*poin|
00007f00  74 0d 2b 5c 0c f2 70 75  74 77 28 31 29 0d 2b 66  |t.+\..putw(1).+f|
00007f10  11 f2 68 65 61 64 5f 68  65 72 65 28 a3 29 0d 2b  |..head_here(.).+|
00007f20  70 1b f2 70 75 74 78 79  28 78 25 2c 79 25 2d 79  |p..putxy(x%,y%-y|
00007f30  73 69 7a 65 25 2a 2e 35  29 0d 2b 7a 28 f2 70 75  |size%*.5).+z(.pu|
00007f40  74 78 79 28 78 25 2b a9  28 74 65 78 74 24 29 2a  |txy(x%+.(text$)*|
00007f50  78 73 69 7a 65 25 2c 79  25 2b 79 73 69 7a 65 25  |xsize%,y%+ysize%|
00007f60  29 0d 2b 84 0f f2 70 75  74 77 28 63 6f 6c 25 29  |).+...putw(col%)|
00007f70  0d 2b 8e 10 f2 70 75 74  77 28 62 63 6f 6c 25 29  |.+...putw(bcol%)|
00007f80  0d 2b 98 10 f2 70 75 74  77 28 66 6f 6e 74 25 29  |.+...putw(font%)|
00007f90  0d 2b a2 1f f2 70 75 74  77 28 78 73 69 7a 65 25  |.+...putw(xsize%|
00007fa0  29 3a f2 70 75 74 77 28  79 73 69 7a 65 25 29 0d  |):.putw(ysize%).|
00007fb0  2b ac 11 f2 70 75 74 78  79 28 78 25 2c 79 25 29  |+...putxy(x%,y%)|
00007fc0  0d 2b b6 17 f2 70 75 74  73 28 74 65 78 74 24 29  |.+...puts(text$)|
00007fd0  3a f2 61 6c 69 67 6e 0d  2b c0 0d f2 68 65 61 64  |:.align.+...head|
00007fe0  5f 6e 6f 77 0d 2b ca 05  e1 0d 2b d4 13 dd 20 f2  |_now.+....+... .|
00007ff0  70 75 74 78 79 28 78 25  2c 79 25 29 0d 2b de 17  |putxy(x%,y%).+..|
00008000  f2 70 75 74 77 28 78 25  29 3a f2 70 75 74 77 28  |.putw(x%):.putw(|
00008010  79 25 29 0d 2b e8 1f e7  20 78 25 3c 6c 25 28 6c  |y%).+... x%<l%(l|
00008020  65 76 25 29 20 8c 20 6c  25 28 6c 65 76 25 29 3d  |ev%) . l%(lev%)=|
00008030  78 25 0d 2b f2 1f e7 20  79 25 3c 62 25 28 6c 65  |x%.+... y%<b%(le|
00008040  76 25 29 20 8c 20 62 25  28 6c 65 76 25 29 3d 79  |v%) . b%(lev%)=y|
00008050  25 0d 2b fc 1f e7 20 78  25 3e 72 25 28 6c 65 76  |%.+... x%>r%(lev|
00008060  25 29 20 8c 20 72 25 28  6c 65 76 25 29 3d 78 25  |%) . r%(lev%)=x%|
00008070  0d 2c 06 1f e7 20 79 25  3e 74 25 28 6c 65 76 25  |.,... y%>t%(lev%|
00008080  29 20 8c 20 74 25 28 6c  65 76 25 29 3d 79 25 0d  |) . t%(lev%)=y%.|
00008090  2c 10 05 e1 0d 2c 1a 2b  dd 20 f2 70 61 74 68 5f  |,....,.+. .path_|
000080a0  73 74 61 72 74 28 78 25  2c 79 25 2c 77 69 64 74  |start(x%,y%,widt|
000080b0  68 25 2c 6c 63 6f 6c 25  2c 66 63 6f 6c 25 29 0d  |h%,lcol%,fcol%).|
000080c0  2c 24 0c f2 70 75 74 77  28 32 29 0d 2c 2e 11 f2  |,$..putw(2).,...|
000080d0  68 65 61 64 5f 68 65 72  65 28 b9 29 0d 2c 38 17  |head_here(.).,8.|
000080e0  f2 70 75 74 77 28 66 63  6f 6c 25 29 3a f4 20 66  |.putw(fcol%):. f|
000080f0  69 6c 6c 0d 2c 42 19 f2  70 75 74 77 28 6c 63 6f  |ill.,B..putw(lco|
00008100  6c 25 29 3a f4 20 63 6f  6c 6f 75 72 0d 2c 4c 19  |l%):. colour.,L.|
00008110  f2 70 75 74 77 28 77 69  64 74 68 25 29 3a f4 20  |.putw(width%):. |
00008120  77 69 64 74 68 0d 2c 56  19 f2 70 75 74 77 28 30  |width.,V..putw(0|
00008130  29 3a f4 20 70 61 74 68  20 73 74 79 6c 65 0d 2c  |):. path style.,|
00008140  60 15 f2 70 61 74 68 5f  6d 6f 76 65 28 78 25 2c  |`..path_move(x%,|
00008150  79 25 29 0d 2c 6a 05 e1  0d 2c 74 05 3a 0d 2c 7e  |y%).,j...,t.:.,~|
00008160  17 dd 20 f2 70 61 74 68  5f 6d 6f 76 65 28 78 25  |.. .path_move(x%|
00008170  2c 79 25 29 0d 2c 88 29  78 25 3d 28 78 25 2b 78  |,y%).,.)x%=(x%+x|
00008180  70 6f 73 29 2a 70 6f 69  6e 74 3a 79 25 3d 28 79  |pos)*point:y%=(y|
00008190  25 2b 79 70 6f 73 29 2a  70 6f 69 6e 74 0d 2c 92  |%+ypos)*point.,.|
000081a0  0c f2 70 75 74 77 28 32  29 0d 2c 9c 11 f2 70 75  |..putw(2).,...pu|
000081b0  74 78 79 28 78 25 2c 79  25 29 0d 2c a6 05 e1 0d  |txy(x%,y%).,....|
000081c0  2c b0 05 3a 0d 2c ba 19  dd 20 f2 70 61 74 68 5f  |,..:.,... .path_|
000081d0  64 72 61 77 28 78 78 25  2c 79 79 25 29 0d 2c c4  |draw(xx%,yy%).,.|
000081e0  2d 78 78 25 3d 28 78 78  25 2b 78 70 6f 73 29 2a  |-xx%=(xx%+xpos)*|
000081f0  70 6f 69 6e 74 3a 79 79  25 3d 28 79 79 25 2b 79  |point:yy%=(yy%+y|
00008200  70 6f 73 29 2a 70 6f 69  6e 74 0d 2c ce 0c f2 70  |pos)*point.,...p|
00008210  75 74 77 28 38 29 0d 2c  d8 13 f2 70 75 74 78 79  |utw(8).,...putxy|
00008220  28 78 78 25 2c 79 79 25  29 0d 2c e2 05 e1 0d 2c  |(xx%,yy%).,....,|
00008230  ec 11 dd 20 f2 70 61 74  68 5f 63 6c 6f 73 65 0d  |... .path_close.|
00008240  2c f6 0c f2 70 75 74 77  28 35 29 0d 2d 00 05 e1  |,...putw(5).-...|
00008250  0d 2d 0a 05 3a 0d 2d 14  0f dd 20 f2 70 61 74 68  |.-..:.-... .path|
00008260  5f 65 6e 64 0d 2d 1e 0c  f2 70 75 74 77 28 30 29  |_end.-...putw(0)|
00008270  0d 2d 28 0d f2 68 65 61  64 5f 6e 6f 77 0d 2d 32  |.-(..head_now.-2|
00008280  05 e1 0d 2d 3c 13 dd 20  f2 64 72 61 77 66 69 6c  |...-<.. .drawfil|
00008290  65 5f 65 6e 64 0d 2d 46  24 f4 20 64 72 61 77 20  |e_end.-F$. draw |
000082a0  75 6e 66 69 6e 69 73 68  65 64 20 49 46 20 6c 65  |unfinished IF le|
000082b0  76 25 3e 30 20 54 48 45  4e 0d 2d 50 0d f2 68 65  |v%>0 THEN.-P..he|
000082c0  61 64 5f 6e 6f 77 0d 2d  5a 0d d9 23 63 25 3a 63  |ad_now.-Z..#c%:c|
000082d0  25 3d 30 0d 2d 64 22 ff  28 22 53 65 74 54 79 70  |%=0.-d".("SetTyp|
000082e0  65 20 22 2b 64 72 61 77  66 69 6c 65 24 2b 22 20  |e "+drawfile$+" |
000082f0  41 46 46 22 29 0d 2d 6e  05 e1 0d 2d 78 0c dd f2  |AFF").-n...-x...|
00008300  73 70 72 69 74 65 0d 2d  82 25 c8 99 20 34 36 2c  |sprite.-.%.. 46,|
00008310  26 31 31 38 2c 73 70 72  25 2c 63 75 72 73 70 72  |&118,spr%,curspr|
00008320  24 20 b8 20 2c 2c 73 70  74 72 25 0d 2d 8c 34 c8  |$ . ,,sptr%.-.4.|
00008330  99 20 26 32 45 2c 32 35  36 2b 34 30 2c 73 70 72  |. &2E,256+40,spr|
00008340  25 2c 63 75 72 73 70 72  24 20 b8 20 41 2c 42 2c  |%,curspr$ . A,B,|
00008350  43 2c 77 25 2c 68 25 2c  44 2c 6d 6f 64 65 25 0d  |C,w%,h%,D,mode%.|
00008360  2d 96 1f e7 20 68 25 3e  77 25 20 73 68 65 61 72  |-... h%>w% shear|
00008370  3d 37 32 20 8b 20 73 68  65 61 72 3d 38 32 0d 2d  |=72 . shear=82.-|
00008380  a0 27 e7 20 a4 76 67 61  28 6d 6f 64 65 25 29 20  |.'. .vga(mode%) |
00008390  8c 20 68 73 63 61 6c 65  3d 31 3a 8b 20 68 73 63  |. hscale=1:. hsc|
000083a0  61 6c 65 3d 32 0d 2d aa  24 53 68 65 61 72 3d a4  |ale=2.-.$Shear=.|
000083b0  63 68 65 63 6b 66 6c 61  67 28 64 65 74 61 69 6c  |checkflag(detail|
000083c0  73 25 2c 32 39 2c 32 31  29 0d 2d b4 11 78 6f 66  |s%,29,21).-..xof|
000083d0  66 3d 30 3a 79 6f 66 66  3d 30 0d 2d be 0e c8 8e  |f=0:yoff=0.-....|
000083e0  20 53 68 65 61 72 20 ca  0d 2d c8 07 c9 20 a3 0d  | Shear ..-... ..|
000083f0  2d d2 3d e7 20 a4 76 67  61 28 6d 6f 64 65 25 29  |-.=. .vga(mode%)|
00008400  20 80 20 77 25 3e 38 32  20 80 20 68 25 3e 37 32  | . w%>82 . h%>72|
00008410  20 80 20 68 25 3c 77 25  20 8c 20 53 43 77 3d 38  | . h%<w% . SCw=8|
00008420  32 2f 77 25 3a 53 43 68  3d 53 43 77 0d 2d dc 3d  |2/w%:SCh=SCw.-.=|
00008430  e7 20 a4 76 67 61 28 6d  6f 64 65 25 29 20 80 20  |. .vga(mode%) . |
00008440  77 25 3e 38 32 20 80 20  68 25 3e 37 32 20 80 20  |w%>82 . h%>72 . |
00008450  68 25 3e 77 25 20 8c 20  53 43 68 3d 37 32 2f 68  |h%>w% . SCh=72/h|
00008460  25 3a 53 43 77 3d 53 43  68 0d 2d e6 41 e7 20 ac  |%:SCw=SCh.-.A. .|
00008470  20 a4 76 67 61 28 6d 6f  64 65 25 29 20 80 20 77  | .vga(mode%) . w|
00008480  25 3e 38 32 20 80 20 68  25 3e 37 32 20 80 20 68  |%>82 . h%>72 . h|
00008490  25 2a 32 3c 77 25 20 8c  20 53 43 77 3d 38 32 2f  |%*2<w% . SCw=82/|
000084a0  77 25 3a 53 43 68 3d 53  43 77 0d 2d f0 41 e7 20  |w%:SCh=SCw.-.A. |
000084b0  ac 20 a4 76 67 61 28 6d  6f 64 65 25 29 20 80 20  |. .vga(mode%) . |
000084c0  77 25 3e 38 32 20 80 20  68 25 3e 37 32 20 80 20  |w%>82 . h%>72 . |
000084d0  68 25 2a 32 3e 77 25 20  8c 20 53 43 68 3d 37 32  |h%*2>w% . SCh=72|
000084e0  2f 68 25 3a 53 43 77 3d  53 43 68 0d 2d fa 27 e7  |/h%:SCw=SCh.-.'.|
000084f0  20 77 25 3e 38 32 20 80  20 68 25 3c 37 32 20 8c  | w%>82 . h%<72 .|
00008500  20 53 43 77 3d 38 32 2f  77 25 3a 53 43 68 3d 53  | SCw=82/w%:SCh=S|
00008510  43 77 0d 2e 04 27 e7 20  77 25 3c 38 32 20 80 20  |Cw...'. w%<82 . |
00008520  68 25 3e 37 32 20 8c 20  53 43 68 3d 38 32 2f 68  |h%>72 . SCh=82/h|
00008530  25 3a 53 43 77 3d 53 43  68 0d 2e 0e 0d e7 20 66  |%:SCw=SCh..... f|
00008540  6f 72 63 65 20 8c 0d 2e  18 3f e7 20 77 25 3c 38  |orce ....?. w%<8|
00008550  32 20 80 20 68 25 3c 37  32 20 80 20 68 25 3d 77  |2 . h%<72 . h%=w|
00008560  25 20 80 20 a4 76 67 61  28 6d 6f 64 65 25 29 20  |% . .vga(mode%) |
00008570  8c 20 53 43 68 3d 37 32  2f 68 25 3a 53 43 77 3d  |. SCh=72/h%:SCw=|
00008580  37 32 2f 77 25 0d 2e 22  3f e7 20 77 25 3c 38 32  |72/w%.."?. w%<82|
00008590  20 80 20 68 25 3c 37 32  20 80 20 68 25 3c 77 25  | . h%<72 . h%<w%|
000085a0  20 80 20 a4 76 67 61 28  6d 6f 64 65 25 29 20 8c  | . .vga(mode%) .|
000085b0  20 53 43 77 3d 38 32 2f  77 25 3a 53 43 68 3d 38  | SCw=82/w%:SCh=8|
000085c0  32 2f 68 25 0d 2e 2c 3f  e7 20 77 25 3c 38 32 20  |2/h%..,?. w%<82 |
000085d0  80 20 68 25 3c 37 32 20  80 20 68 25 3e 77 25 20  |. h%<72 . h%>w% |
000085e0  80 20 a4 76 67 61 28 6d  6f 64 65 25 29 20 8c 20  |. .vga(mode%) . |
000085f0  53 43 77 3d 37 32 2f 68  25 3a 53 43 68 3d 37 32  |SCw=72/h%:SCh=72|
00008600  2f 68 25 0d 2e 36 43 e7  20 77 25 3c 38 32 20 80  |/h%..6C. w%<82 .|
00008610  20 68 25 3c 37 32 20 80  20 68 25 2a 32 3d 77 25  | h%<72 . h%*2=w%|
00008620  20 80 20 ac 20 a4 76 67  61 28 6d 6f 64 65 25 29  | . . .vga(mode%)|
00008630  20 8c 20 53 43 68 3d 37  32 2f 68 25 3a 53 43 77  | . SCh=72/h%:SCw|
00008640  3d 37 32 2f 68 25 0d 2e  40 45 e7 20 77 25 3c 38  |=72/h%..@E. w%<8|
00008650  32 20 80 20 68 25 3c 33  36 20 80 20 28 68 25 2a  |2 . h%<36 . (h%*|
00008660  32 29 3c 77 25 20 80 20  ac 20 a4 76 67 61 28 6d  |2)<w% . . .vga(m|
00008670  6f 64 65 25 29 20 8c 20  53 43 77 3d 38 32 2f 77  |ode%) . SCw=82/w|
00008680  25 3a 53 43 68 3d 38 32  2f 77 25 0d 2e 4a 45 e7  |%:SCh=82/w%..JE.|
00008690  20 77 25 3c 38 32 20 80  20 68 25 3c 33 36 20 80  | w%<82 . h%<36 .|
000086a0  20 28 68 25 2a 32 29 3e  77 25 20 80 20 ac 20 a4  | (h%*2)>w% . . .|
000086b0  76 67 61 28 6d 6f 64 65  25 29 20 8c 20 53 43 77  |vga(mode%) . SCw|
000086c0  3d 37 32 2f 68 25 3a 53  43 68 3d 37 32 2f 68 25  |=72/h%:SCh=72/h%|
000086d0  0d 2e 54 05 cc 0d 2e 5e  21 e7 20 77 25 3c 38 32  |..T....^!. w%<82|
000086e0  20 80 20 68 25 3c 37 32  20 8c 20 53 43 77 3d 31  | . h%<72 . SCw=1|
000086f0  3a 53 43 68 3d 31 0d 2e  68 05 cd 0d 2e 72 10 c8  |:SCh=1..h....r..|
00008700  8e 20 63 65 6e 74 72 65  64 20 ca 0d 2e 7c 09 20  |. centred ...|. |
00008710  20 c9 20 b9 0d 2e 86 2c  e7 20 a4 76 67 61 28 6d  | . ....,. .vga(m|
00008720  6f 64 65 25 29 20 80 20  ac 20 66 6f 72 63 65 20  |ode%) . . force |
00008730  80 20 68 25 3e 37 32 20  8c 20 79 6f 66 66 3d 30  |. h%>72 . yoff=0|
00008740  0d 2e 90 34 e7 20 a4 76  67 61 28 6d 6f 64 65 25  |...4. .vga(mode%|
00008750  29 20 80 20 ac 20 66 6f  72 63 65 20 80 20 68 25  |) . . force . h%|
00008760  3c 37 32 20 8c 20 79 6f  66 66 3d 28 37 32 2d 68  |<72 . yoff=(72-h|
00008770  25 29 2f 32 0d 2e 9a 32  e7 20 a4 76 67 61 28 6d  |%)/2...2. .vga(m|
00008780  6f 64 65 25 29 20 80 20  66 6f 72 63 65 20 8c 20  |ode%) . force . |
00008790  79 6f 66 66 3d 28 37 32  2d 28 28 31 2f 53 43 68  |yoff=(72-((1/SCh|
000087a0  29 2a 68 25 29 29 0d 2e  a4 34 e7 20 ac 20 a4 76  |)*h%))...4. . .v|
000087b0  67 61 28 6d 6f 64 65 25  29 20 80 20 66 6f 72 63  |ga(mode%) . forc|
000087c0  65 20 79 6f 66 66 3d 28  37 32 2d 28 28 31 2f 53  |e yoff=(72-((1/S|
000087d0  43 68 29 2a 68 25 29 29  2f 32 0d 2e ae 38 e7 20  |Ch)*h%))/2...8. |
000087e0  ac 20 a4 76 67 61 28 6d  6f 64 65 25 29 20 80 20  |. .vga(mode%) . |
000087f0  68 25 2f 53 43 68 3c 33  36 20 80 20 68 25 3c 37  |h%/SCh<36 . h%<7|
00008800  32 20 8c 20 79 6f 66 66  3d 28 37 32 2d 68 25 29  |2 . yoff=(72-h%)|
00008810  2f 32 0d 2e b8 31 e7 20  ac 20 a4 76 67 61 28 6d  |/2...1. . .vga(m|
00008820  6f 64 65 25 29 20 80 20  68 25 2f 53 43 68 3e 3d  |ode%) . h%/SCh>=|
00008830  33 35 20 80 20 68 25 3e  37 32 20 8c 20 79 6f 66  |35 . h%>72 . yof|
00008840  66 3d 30 0d 2e c2 14 78  6f 66 66 3d 38 32 2d 28  |f=0....xoff=82-(|
00008850  53 43 77 2a 77 25 29 0d  2e cc 2a e7 20 66 6f 72  |SCw*w%)...*. for|
00008860  63 65 20 80 20 68 25 3c  77 25 20 80 20 a4 76 67  |ce . h%<w% . .vg|
00008870  61 28 6d 6f 64 65 25 29  20 8c 20 78 6f 66 66 3d  |a(mode%) . xoff=|
00008880  30 0d 2e d6 2a e7 20 66  6f 72 63 65 20 80 20 68  |0...*. force . h|
00008890  25 3e 77 25 20 80 20 a4  76 67 61 28 6d 6f 64 65  |%>w% . .vga(mode|
000088a0  25 29 20 8c 20 79 6f 66  66 3d 30 0d 2e e0 32 e7  |%) . yoff=0...2.|
000088b0  20 66 6f 72 63 65 20 80  20 68 25 3d 77 25 20 80  | force . h%=w% .|
000088c0  20 a4 76 67 61 28 6d 6f  64 65 25 29 20 8c 20 78  | .vga(mode%) . x|
000088d0  6f 66 66 3d 31 30 3a 79  6f 66 66 3d 30 0d 2e ea  |off=10:yoff=0...|
000088e0  36 e7 20 66 6f 72 63 65  20 80 20 68 25 2a 32 3d  |6. force . h%*2=|
000088f0  77 25 20 80 20 ac 20 a4  76 67 61 28 6d 6f 64 65  |w% . . .vga(mode|
00008900  25 29 20 8c 20 78 6f 66  66 3d 31 30 3a 79 6f 66  |%) . xoff=10:yof|
00008910  66 3d 30 0d 2e f4 30 e7  20 66 6f 72 63 65 20 80  |f=0...0. force .|
00008920  20 28 68 25 2a 32 29 3c  77 25 20 80 20 ac 20 a4  | (h%*2)<w% . . .|
00008930  76 67 61 28 6d 6f 64 65  25 29 20 8c 20 78 6f 66  |vga(mode%) . xof|
00008940  66 3d 30 0d 2e fe 30 e7  20 66 6f 72 63 65 20 80  |f=0...0. force .|
00008950  20 28 68 25 2a 32 29 3e  77 25 20 80 20 ac 20 a4  | (h%*2)>w% . . .|
00008960  76 67 61 28 6d 6f 64 65  25 29 20 8c 20 79 6f 66  |vga(mode%) . yof|
00008970  66 3d 30 0d 2f 08 07 20  20 cb 0d 2f 12 07 c9 20  |f=0./..  ../... |
00008980  b9 0d 2f 1c 20 53 43 77  3d 38 32 2f 77 25 3a 53  |../. SCw=82/w%:S|
00008990  43 68 3d 37 32 2f 68 25  3a 68 73 63 61 6c 65 3d  |Ch=72/h%:hscale=|
000089a0  31 0d 2f 26 05 cb 0d 2f  30 10 78 25 3d 31 35 35  |1./&.../0.x%=155|
000089b0  3a 79 25 3d 33 33 0d 2f  3a 3b 78 25 3d 28 78 25  |:y%=33./:;x%=(x%|
000089c0  2b 78 70 6f 73 2b 28 78  6f 66 66 2f 35 29 29 2a  |+xpos+(xoff/5))*|
000089d0  70 6f 69 6e 74 3a 79 25  3d 28 79 25 2b 79 70 6f  |point:y%=(y%+ypo|
000089e0  73 2b 28 79 6f 66 66 2f  35 29 29 2a 70 6f 69 6e  |s+(yoff/5))*poin|
000089f0  74 0d 2f 44 45 77 69 64  74 68 25 3d 28 28 77 25  |t./DEwidth%=((w%|
00008a00  2a 53 43 77 29 2f 31 2e  32 35 29 2a 70 6f 69 6e  |*SCw)/1.25)*poin|
00008a10  74 3a 68 65 69 67 68 74  25 3d 28 28 68 25 2a 53  |t:height%=((h%*S|
00008a20  43 68 29 2a 68 73 63 61  6c 65 2f 31 2e 32 35 29  |Ch)*hscale/1.25)|
00008a30  2a 70 6f 69 6e 74 0d 2f  4e 0c f2 70 75 74 77 28  |*point./N..putw(|
00008a40  35 29 0d 2f 58 11 f2 68  65 61 64 5f 68 65 72 65  |5)./X..head_here|
00008a50  28 a3 29 0d 2f 62 11 f2  70 75 74 78 79 28 78 25  |(.)./b..putxy(x%|
00008a60  2c 79 25 29 0d 2f 6c 24  f2 70 75 74 78 79 28 78  |,y%)./l$.putxy(x|
00008a70  25 2b 77 69 64 74 68 25  2b 31 2c 79 25 2b 68 65  |%+width%+1,y%+he|
00008a80  69 67 68 74 25 2b 31 29  0d 2f 76 23 c8 99 22 4f  |ight%+1)./v#.."O|
00008a90  53 5f 47 42 50 42 22 2c  26 30 32 2c 63 25 2c 73  |S_GBPB",&02,c%,s|
00008aa0  70 74 72 25 2c 21 73 70  74 72 25 0d 2f 80 0a f2  |ptr%,!sptr%./...|
00008ab0  61 6c 69 67 6e 0d 2f 8a  0d f2 68 65 61 64 5f 6e  |align./...head_n|
00008ac0  6f 77 0d 2f 94 05 e1 0d  2f 9e 13 dd f2 63 6c 6f  |ow./..../....clo|
00008ad0  73 65 28 21 62 6c 6f 63  6b 29 0d 2f a8 1f c8 99  |se(!block)./....|
00008ae0  22 57 69 6d 70 5f 43 6c  6f 73 65 57 69 6e 64 6f  |"Wimp_CloseWindo|
00008af0  77 22 2c 2c 62 6c 6f 63  6b 0d 2f b2 05 e1 0d 2f  |w",,block./..../|
00008b00  bc 17 dd a4 63 68 65 63  6b 69 74 28 68 6e 64 25  |....checkit(hnd%|
00008b10  2c 69 63 25 29 0d 2f c6  1b 21 69 63 6f 6e 64 3d  |,ic%)./..!icond=|
00008b20  68 6e 64 25 3a 69 63 6f  6e 64 21 34 3d 69 63 25  |hnd%:icond!4=ic%|
00008b30  0d 2f d0 20 c8 99 22 57  69 6d 70 5f 47 65 74 49  |./. .."Wimp_GetI|
00008b40  63 6f 6e 53 74 61 74 65  22 2c 2c 69 63 6f 6e 64  |conState",,icond|
00008b50  0d 2f da 13 66 6c 61 67  73 25 3d 69 63 6f 6e 64  |./..flags%=icond|
00008b60  21 32 34 0d 2f e4 12 3d  66 6c 61 67 73 25 80 26  |!24./..=flags%.&|
00008b70  46 30 30 30 30 0d 2f ee  19 dd f2 73 6c 61 62 69  |F0000./....slabi|
00008b80  63 6e 28 68 61 6e 64 6c  65 2c 69 63 6e 29 0d 2f  |cn(handle,icn)./|
00008b90  f8 13 69 63 6f 6e 64 21  31 32 3d 68 61 6e 64 6c  |..icond!12=handl|
00008ba0  65 0d 30 02 0e 69 63 6f  6e 64 21 31 36 3d 32 0d  |e.0..icond!16=2.|
00008bb0  30 0c 1f c8 99 20 22 57  69 6d 70 5f 42 6f 72 64  |0.... "Wimp_Bord|
00008bc0  65 72 49 63 6f 6e 22 2c  2c 69 63 6f 6e 64 0d 30  |erIcon",,icond.0|
00008bd0  16 0d 69 63 6f 6e 64 21  38 3d 30 0d 30 20 1f c8  |..icond!8=0.0 ..|
00008be0  99 20 22 57 69 6d 70 5f  42 6f 72 64 65 72 49 63  |. "Wimp_BorderIc|
00008bf0  6f 6e 22 2c 2c 69 63 6f  6e 64 0d 30 2a 05 e1 0d  |on",,icond.0*...|
00008c00  30 34 15 dd 20 f2 73 6c  61 62 69 6e 28 68 61 6e  |04.. .slabin(han|
00008c10  64 6c 65 29 0d 30 3e 11  21 69 63 6f 6e 64 3d 68  |dle).0>.!icond=h|
00008c20  61 6e 64 6c 65 0d 30 48  23 c8 99 20 22 57 69 6d  |andle.0H#.. "Wim|
00008c30  70 5f 47 65 74 50 6f 69  6e 74 65 72 49 6e 66 6f  |p_GetPointerInfo|
00008c40  22 2c 2c 69 63 6f 6e 64  0d 30 52 1f c8 99 20 22  |",,icond.0R... "|
00008c50  57 69 6d 70 5f 42 6f 72  64 65 72 49 63 6f 6e 22  |Wimp_BorderIcon"|
00008c60  2c 2c 69 63 6f 6e 64 0d  30 5c 05 e1 0d 30 66 16  |,,icond.0\...0f.|
00008c70  dd 20 f2 73 6c 61 62 6f  75 74 28 68 61 6e 64 6c  |. .slabout(handl|
00008c80  65 29 0d 30 70 11 21 69  63 6f 6e 64 3d 68 61 6e  |e).0p.!icond=han|
00008c90  64 6c 65 0d 30 7a 23 c8  99 20 22 57 69 6d 70 5f  |dle.0z#.. "Wimp_|
00008ca0  47 65 74 50 6f 69 6e 74  65 72 49 6e 66 6f 22 2c  |GetPointerInfo",|
00008cb0  2c 69 63 6f 6e 64 0d 30  84 0f 69 63 6f 6e 64 21  |,icond.0..icond!|
00008cc0  38 20 3d 20 30 0d 30 8e  1f c8 99 20 22 57 69 6d  |8 = 0.0.... "Wim|
00008cd0  70 5f 42 6f 72 64 65 72  49 63 6f 6e 22 2c 2c 69  |p_BorderIcon",,i|
00008ce0  63 6f 6e 64 0d 30 98 05  e1 0d 30 a2 16 dd f2 73  |cond.0....0....s|
00008cf0  65 6c 65 63 74 63 6f 6c  28 63 6f 6c 6e 6f 29 0d  |electcol(colno).|
00008d00  30 ac 18 68 65 78 3d 77  69 6e 70 61 6c 28 63 6f  |0..hex=winpal(co|
00008d10  6c 6e 6f 2d 31 34 29 0d  30 b6 14 52 45 44 3d 28  |lno-14).0..RED=(|
00008d20  68 65 78 3e 3e 38 29 80  26 46 46 0d 30 c0 17 47  |hex>>8).&FF.0..G|
00008d30  52 45 45 4e 3d 28 68 65  78 3e 3e 31 36 29 80 26  |REEN=(hex>>16).&|
00008d40  46 46 0d 30 ca 16 42 4c  55 45 3d 28 68 65 78 3e  |FF.0..BLUE=(hex>|
00008d50  3e 32 34 29 80 26 46 46  0d 30 d4 12 21 62 6c 6f  |>24).&FF.0..!blo|
00008d60  63 6b 3d 63 6f 6c 6f 75  72 25 0d 30 de 21 c8 99  |ck=colour%.0.!..|
00008d70  22 57 69 6d 70 5f 47 65  74 57 69 6e 64 6f 77 49  |"Wimp_GetWindowI|
00008d80  6e 66 6f 22 2c 2c 62 6c  6f 63 6b 0d 30 e8 1b 77  |nfo",,block.0..w|
00008d90  6f 72 6b 78 25 3d 62 6c  6f 63 6b 21 34 2d 62 6c  |orkx%=block!4-bl|
00008da0  6f 63 6b 21 32 30 0d 30  f2 1c 77 6f 72 6b 79 25  |ock!20.0..worky%|
00008db0  3d 62 6c 6f 63 6b 21 31  36 2d 62 6c 6f 63 6b 21  |=block!16-block!|
00008dc0  32 34 0d 30 fc 29 c8 99  20 22 43 6f 6c 6f 75 72  |24.0.).. "Colour|
00008dd0  54 72 61 6e 73 5f 53 65  74 47 43 4f 4c 22 2c 68  |Trans_SetGCOL",h|
00008de0  65 78 2c 2c 2c 26 31 30  30 2c 30 0d 31 06 26 c8  |ex,,,&100,0.1.&.|
00008df0  93 20 c8 90 20 77 6f 72  6b 78 25 2b 32 33 34 2c  |. .. workx%+234,|
00008e00  77 6f 72 6b 79 25 2d 32  34 37 2c 31 37 35 2c 34  |worky%-247,175,4|
00008e10  38 0d 31 10 1c 20 c8 99  20 22 57 69 6d 70 5f 53  |8.1.. .. "Wimp_S|
00008e20  65 74 43 6f 6c 6f 75 72  22 2c 31 2c 31 0d 31 1a  |etColour",1,1.1.|
00008e30  28 20 c8 93 20 c8 90 20  77 6f 72 6b 78 25 2b 32  |( .. .. workx%+2|
00008e40  37 30 2c 77 6f 72 6b 79  25 2d 31 37 30 2c 33 34  |70,worky%-170,34|
00008e50  34 2c 31 34 37 0d 31 24  30 20 c8 99 20 22 43 6f  |4,147.1$0 .. "Co|
00008e60  6c 6f 75 72 54 72 61 6e  73 5f 53 65 74 47 43 4f  |lourTrans_SetGCO|
00008e70  4c 22 2c 26 30 30 30 30  46 46 30 30 2c 2c 2c 26  |L",&0000FF00,,,&|
00008e80  31 30 30 2c 30 0d 31 2e  30 20 c8 93 20 c8 90 20  |100,0.1.0 .. .. |
00008e90  77 6f 72 6b 78 25 2b 32  37 31 2c 77 6f 72 6b 79  |workx%+271,worky|
00008ea0  25 2d 35 35 2c 28 52 45  44 2f 32 35 35 29 2a 33  |%-55,(RED/255)*3|
00008eb0  34 34 2c 33 32 0d 31 38  30 20 c8 99 20 22 43 6f  |44,32.180 .. "Co|
00008ec0  6c 6f 75 72 54 72 61 6e  73 5f 53 65 74 47 43 4f  |lourTrans_SetGCO|
00008ed0  4c 22 2c 26 30 30 46 46  30 30 30 30 2c 2c 2c 26  |L",&00FF0000,,,&|
00008ee0  31 30 30 2c 30 0d 31 42  33 20 c8 93 20 c8 90 20  |100,0.1B3 .. .. |
00008ef0  77 6f 72 6b 78 25 2b 32  37 31 2c 77 6f 72 6b 79  |workx%+271,worky|
00008f00  25 2d 31 31 31 2c 28 47  52 45 45 4e 2f 32 35 35  |%-111,(GREEN/255|
00008f10  29 2a 33 34 34 2c 33 32  0d 31 4c 30 20 c8 99 20  |)*344,32.1L0 .. |
00008f20  22 43 6f 6c 6f 75 72 54  72 61 6e 73 5f 53 65 74  |"ColourTrans_Set|
00008f30  47 43 4f 4c 22 2c 26 46  46 30 30 30 30 30 30 2c  |GCOL",&FF000000,|
00008f40  2c 2c 26 31 30 30 2c 30  0d 31 56 32 20 c8 93 20  |,,&100,0.1V2 .. |
00008f50  c8 90 20 77 6f 72 6b 78  25 2b 32 37 31 2c 77 6f  |.. workx%+271,wo|
00008f60  72 6b 79 25 2d 31 36 37  2c 28 42 4c 55 45 2f 32  |rky%-167,(BLUE/2|
00008f70  35 35 29 2a 33 34 34 2c  33 32 0d 31 60 48 20 c8  |55)*344,32.1`H .|
00008f80  99 20 22 43 6f 6c 6f 75  72 54 72 61 6e 73 5f 53  |. "ColourTrans_S|
00008f90  65 74 47 43 4f 4c 22 2c  30 2c 2c 2c 26 31 30 30  |etGCOL",0,,,&100|
00008fa0  2c 30 3a c8 93 20 77 6f  72 6b 78 25 2b 32 33 33  |,0:.. workx%+233|
00008fb0  2c 77 6f 72 6b 79 25 2d  32 34 38 2c 31 37 36 2c  |,worky%-248,176,|
00008fc0  34 39 0d 31 6a 23 20 c8  93 20 77 6f 72 6b 78 25  |49.1j# .. workx%|
00008fd0  2b 32 37 30 2c 77 6f 72  6b 79 25 2d 35 38 2c 33  |+270,worky%-58,3|
00008fe0  34 34 2c 33 34 0d 31 74  24 20 c8 93 20 77 6f 72  |44,34.1t$ .. wor|
00008ff0  6b 78 25 2b 32 37 30 2c  77 6f 72 6b 79 25 2d 31  |kx%+270,worky%-1|
00009000  31 34 2c 33 34 34 2c 33  34 0d 31 7e 24 20 c8 93  |14,344,34.1~$ ..|
00009010  20 77 6f 72 6b 78 25 2b  32 37 30 2c 77 6f 72 6b  | workx%+270,work|
00009020  79 25 2d 31 37 30 2c 33  34 34 2c 33 34 0d 31 88  |y%-170,344,34.1.|
00009030  0e 67 65 65 63 6f 6c 3d  68 65 78 0d 31 92 1a 20  |.geecol=hex.1.. |
00009040  f2 69 6e 66 6f 28 63 6f  6c 6f 75 72 25 2c 33 2c  |.info(colour%,3,|
00009050  c3 52 45 44 29 0d 31 9c  1c 20 f2 69 6e 66 6f 28  |.RED).1.. .info(|
00009060  63 6f 6c 6f 75 72 25 2c  37 2c c3 47 52 45 45 4e  |colour%,7,.GREEN|
00009070  29 0d 31 a6 1c 20 f2 69  6e 66 6f 28 63 6f 6c 6f  |).1.. .info(colo|
00009080  75 72 25 2c 31 31 2c c3  42 4c 55 45 29 0d 31 b0  |ur%,11,.BLUE).1.|
00009090  05 e1 0d 31 ba 19 dd f2  61 70 70 6c 69 63 61 74  |...1....applicat|
000090a0  69 6f 6e 5f 72 65 64 72  61 77 32 0d 31 c4 14 52  |ion_redraw2.1..R|
000090b0  45 44 3d 28 68 65 78 3e  3e 38 29 80 26 46 46 0d  |ED=(hex>>8).&FF.|
000090c0  31 ce 17 47 52 45 45 4e  3d 28 68 65 78 3e 3e 31  |1..GREEN=(hex>>1|
000090d0  36 29 80 26 46 46 0d 31  d8 16 42 4c 55 45 3d 28  |6).&FF.1..BLUE=(|
000090e0  68 65 78 3e 3e 32 34 29  80 26 46 46 0d 31 e2 1b  |hex>>24).&FF.1..|
000090f0  77 6f 72 6b 78 25 3d 62  6c 6f 63 6b 21 34 2d 62  |workx%=block!4-b|
00009100  6c 6f 63 6b 21 32 30 0d  31 ec 1c 77 6f 72 6b 79  |lock!20.1..worky|
00009110  25 3d 62 6c 6f 63 6b 21  31 36 2d 62 6c 6f 63 6b  |%=block!16-block|
00009120  21 32 34 0d 31 f6 29 c8  99 20 22 43 6f 6c 6f 75  |!24.1.).. "Colou|
00009130  72 54 72 61 6e 73 5f 53  65 74 47 43 4f 4c 22 2c  |rTrans_SetGCOL",|
00009140  68 65 78 2c 2c 2c 26 31  30 30 2c 30 0d 32 00 26  |hex,,,&100,0.2.&|
00009150  c8 93 20 c8 90 20 77 6f  72 6b 78 25 2b 32 33 34  |.. .. workx%+234|
00009160  2c 77 6f 72 6b 79 25 2d  32 34 37 2c 31 37 35 2c  |,worky%-247,175,|
00009170  34 38 0d 32 0a 1b c8 99  20 22 57 69 6d 70 5f 53  |48.2.... "Wimp_S|
00009180  65 74 43 6f 6c 6f 75 72  22 2c 31 2c 31 0d 32 14  |etColour",1,1.2.|
00009190  28 20 c8 93 20 c8 90 20  77 6f 72 6b 78 25 2b 32  |( .. .. workx%+2|
000091a0  37 30 2c 77 6f 72 6b 79  25 2d 31 37 30 2c 33 34  |70,worky%-170,34|
000091b0  34 2c 31 34 37 0d 32 1e  30 20 c8 99 20 22 43 6f  |4,147.2.0 .. "Co|
000091c0  6c 6f 75 72 54 72 61 6e  73 5f 53 65 74 47 43 4f  |lourTrans_SetGCO|
000091d0  4c 22 2c 26 30 30 30 30  46 46 30 30 2c 2c 2c 26  |L",&0000FF00,,,&|
000091e0  31 30 30 2c 30 0d 32 28  30 20 c8 93 20 c8 90 20  |100,0.2(0 .. .. |
000091f0  77 6f 72 6b 78 25 2b 32  37 31 2c 77 6f 72 6b 79  |workx%+271,worky|
00009200  25 2d 35 35 2c 28 52 45  44 2f 32 35 35 29 2a 33  |%-55,(RED/255)*3|
00009210  34 34 2c 33 32 0d 32 32  30 20 c8 99 20 22 43 6f  |44,32.220 .. "Co|
00009220  6c 6f 75 72 54 72 61 6e  73 5f 53 65 74 47 43 4f  |lourTrans_SetGCO|
00009230  4c 22 2c 26 30 30 46 46  30 30 30 30 2c 2c 2c 26  |L",&00FF0000,,,&|
00009240  31 30 30 2c 30 0d 32 3c  33 20 c8 93 20 c8 90 20  |100,0.2<3 .. .. |
00009250  77 6f 72 6b 78 25 2b 32  37 31 2c 77 6f 72 6b 79  |workx%+271,worky|
00009260  25 2d 31 31 31 2c 28 47  52 45 45 4e 2f 32 35 35  |%-111,(GREEN/255|
00009270  29 2a 33 34 34 2c 33 32  0d 32 46 30 20 c8 99 20  |)*344,32.2F0 .. |
00009280  22 43 6f 6c 6f 75 72 54  72 61 6e 73 5f 53 65 74  |"ColourTrans_Set|
00009290  47 43 4f 4c 22 2c 26 46  46 30 30 30 30 30 30 2c  |GCOL",&FF000000,|
000092a0  2c 2c 26 31 30 30 2c 30  0d 32 50 32 20 c8 93 20  |,,&100,0.2P2 .. |
000092b0  c8 90 20 77 6f 72 6b 78  25 2b 32 37 31 2c 77 6f  |.. workx%+271,wo|
000092c0  72 6b 79 25 2d 31 36 37  2c 28 42 4c 55 45 2f 32  |rky%-167,(BLUE/2|
000092d0  35 35 29 2a 33 34 34 2c  33 32 0d 32 5a 47 c8 99  |55)*344,32.2ZG..|
000092e0  20 22 43 6f 6c 6f 75 72  54 72 61 6e 73 5f 53 65  | "ColourTrans_Se|
000092f0  74 47 43 4f 4c 22 2c 30  2c 2c 2c 26 31 30 30 2c  |tGCOL",0,,,&100,|
00009300  30 3a c8 93 20 77 6f 72  6b 78 25 2b 32 33 33 2c  |0:.. workx%+233,|
00009310  77 6f 72 6b 79 25 2d 32  34 38 2c 31 37 36 2c 34  |worky%-248,176,4|
00009320  39 0d 32 64 22 c8 93 20  77 6f 72 6b 78 25 2b 32  |9.2d".. workx%+2|
00009330  37 30 2c 77 6f 72 6b 79  25 2d 35 38 2c 33 34 34  |70,worky%-58,344|
00009340  2c 33 34 0d 32 6e 23 c8  93 20 77 6f 72 6b 78 25  |,34.2n#.. workx%|
00009350  2b 32 37 30 2c 77 6f 72  6b 79 25 2d 31 31 34 2c  |+270,worky%-114,|
00009360  33 34 34 2c 33 34 0d 32  78 23 c8 93 20 77 6f 72  |344,34.2x#.. wor|
00009370  6b 78 25 2b 32 37 30 2c  77 6f 72 6b 79 25 2d 31  |kx%+270,worky%-1|
00009380  37 30 2c 33 34 34 2c 33  34 0d 32 82 0e 67 65 65  |70,344,34.2..gee|
00009390  63 6f 6c 3d 68 65 78 0d  32 8c 05 e1 0d 32 96 0e  |col=hex.2....2..|
000093a0  20 dd f2 64 72 61 67 63  6f 6c 0d 32 a0 13 20 21  | ..dragcol.2.. !|
000093b0  62 6c 6f 63 6b 3d 63 6f  6c 6f 75 72 25 0d 32 aa  |block=colour%.2.|
000093c0  21 c8 99 22 57 69 6d 70  5f 47 65 74 57 69 6e 64  |!.."Wimp_GetWind|
000093d0  6f 77 49 6e 66 6f 22 2c  2c 62 6c 6f 63 6b 0d 32  |owInfo",,block.2|
000093e0  b4 1b 77 6f 72 6b 78 25  3d 62 6c 6f 63 6b 21 34  |..workx%=block!4|
000093f0  2d 62 6c 6f 63 6b 21 32  30 0d 32 be 1c 77 6f 72  |-block!20.2..wor|
00009400  6b 79 25 3d 62 6c 6f 63  6b 21 31 36 2d 62 6c 6f  |ky%=block!16-blo|
00009410  63 6b 21 32 34 0d 32 c8  0d 20 c8 97 20 72 2c 73  |ck!24.2.. .. r,s|
00009420  2c 74 0d 32 d2 49 20 e7  20 72 3e 77 6f 72 6b 78  |,t.2.I . r>workx|
00009430  25 2b 32 36 38 20 80 20  72 3c 77 6f 72 6b 78 25  |%+268 . r<workx%|
00009440  2b 32 36 38 2b 33 34 38  20 80 20 73 3e 77 6f 72  |+268+348 . s>wor|
00009450  6b 79 25 2d 35 38 20 80  20 73 3c 77 6f 72 6b 79  |ky%-58 . s<worky|
00009460  25 2d 28 35 38 2d 33 35  29 20 8c 0d 32 dc 26 20  |%-(58-35) ..2.& |
00009470  c8 97 20 c8 93 20 77 6f  72 6b 78 25 2b 32 37 30  |.. .. workx%+270|
00009480  2c 77 6f 72 6b 79 25 2d  35 37 2c 33 34 34 2c 33  |,worky%-57,344,3|
00009490  30 0d 32 e6 26 6e 72 65  64 3d a8 28 28 28 72 2d  |0.2.&nred=.(((r-|
000094a0  28 77 6f 72 6b 78 25 2b  32 37 30 29 29 2f 33 34  |(workx%+270))/34|
000094b0  34 29 2a 32 35 35 29 0d  32 f0 14 e7 20 6e 72 65  |4)*255).2... nre|
000094c0  64 3d 2d 31 20 6e 72 65  64 3d 30 0d 32 fa 1a f2  |d=-1 nred=0.2...|
000094d0  69 6e 66 6f 28 63 6f 6c  6f 75 72 25 2c 33 2c c3  |info(colour%,3,.|
000094e0  6e 72 65 64 29 0d 33 04  0c 52 45 44 3d 6e 72 65  |nred).3..RED=nre|
000094f0  64 0d 33 0e 1b c8 99 20  22 57 69 6d 70 5f 53 65  |d.3.... "Wimp_Se|
00009500  74 43 6f 6c 6f 75 72 22  2c 31 2c 31 0d 33 18 41  |tColour",1,1.3.A|
00009510  c8 93 20 c8 90 20 77 6f  72 6b 78 25 2b 32 37 32  |.. .. workx%+272|
00009520  2b 28 52 45 44 2f 32 35  35 29 2a 33 34 34 2c 77  |+(RED/255)*344,w|
00009530  6f 72 6b 79 25 2d 35 35  2c 33 34 32 2d 28 52 45  |orky%-55,342-(RE|
00009540  44 2f 32 35 35 29 2a 33  34 34 2c 33 30 0d 33 22  |D/255)*344,30.3"|
00009550  2f c8 99 20 22 43 6f 6c  6f 75 72 54 72 61 6e 73  |/.. "ColourTrans|
00009560  5f 53 65 74 47 43 4f 4c  22 2c 26 30 30 30 30 46  |_SetGCOL",&0000F|
00009570  46 30 30 2c 2c 2c 26 31  30 30 2c 30 0d 33 2c 2f  |F00,,,&100,0.3,/|
00009580  c8 93 20 c8 90 20 77 6f  72 6b 78 25 2b 32 37 30  |.. .. workx%+270|
00009590  2c 77 6f 72 6b 79 25 2d  35 35 2c 28 52 45 44 2f  |,worky%-55,(RED/|
000095a0  32 35 35 29 2a 33 34 34  2c 33 30 0d 33 36 27 c8  |255)*344,30.36'.|
000095b0  99 20 22 43 6f 6c 6f 75  72 54 72 61 6e 73 5f 53  |. "ColourTrans_S|
000095c0  65 74 47 43 4f 4c 22 2c  30 2c 2c 2c 26 31 30 30  |etGCOL",0,,,&100|
000095d0  2c 30 0d 33 40 22 c8 93  20 77 6f 72 6b 78 25 2b  |,0.3@".. workx%+|
000095e0  32 37 30 2c 77 6f 72 6b  79 25 2d 35 38 2c 33 34  |270,worky%-58,34|
000095f0  34 2c 33 34 0d 33 4a 27  68 65 78 3d 28 42 4c 55  |4,34.3J'hex=(BLU|
00009600  45 3c 3c 32 34 29 2b 28  47 52 45 45 4e 3c 3c 31  |E<<24)+(GREEN<<1|
00009610  36 29 2b 28 52 45 44 3c  3c 38 29 0d 33 54 29 c8  |6)+(RED<<8).3T).|
00009620  99 20 22 43 6f 6c 6f 75  72 54 72 61 6e 73 5f 53  |. "ColourTrans_S|
00009630  65 74 47 43 4f 4c 22 2c  68 65 78 2c 2c 2c 26 31  |etGCOL",hex,,,&1|
00009640  30 30 2c 30 0d 33 5e 26  c8 93 20 c8 90 20 77 6f  |00,0.3^&.. .. wo|
00009650  72 6b 78 25 2b 32 33 34  2c 77 6f 72 6b 79 25 2d  |rkx%+234,worky%-|
00009660  32 34 37 2c 31 37 35 2c  34 38 0d 33 68 47 c8 99  |247,175,48.3hG..|
00009670  20 22 43 6f 6c 6f 75 72  54 72 61 6e 73 5f 53 65  | "ColourTrans_Se|
00009680  74 47 43 4f 4c 22 2c 30  2c 2c 2c 26 31 30 30 2c  |tGCOL",0,,,&100,|
00009690  30 3a c8 93 20 77 6f 72  6b 78 25 2b 32 33 33 2c  |0:.. workx%+233,|
000096a0  77 6f 72 6b 79 25 2d 32  34 38 2c 31 37 36 2c 34  |worky%-248,176,4|
000096b0  39 0d 33 72 21 c8 97 20  72 2c 73 2c 74 3a e7 20  |9.3r!.. r,s,t:. |
000096c0  74 3d 31 20 84 20 74 3d  34 20 f2 64 72 61 67 63  |t=1 . t=4 .dragc|
000096d0  6f 6c 0d 33 7c 09 f2 4d  6f 64 65 0d 33 86 1b c8  |ol.3|..Mode.3...|
000096e0  97 20 c8 93 20 30 2c 30  2c 78 6d 61 78 2d 31 2c  |. .. 0,0,xmax-1,|
000096f0  79 6d 61 78 2d 31 0d 33  90 06 20 e1 0d 33 9a 05  |ymax-1.3.. ..3..|
00009700  cd 0d 33 a4 4a e7 20 72  3e 77 6f 72 6b 78 25 2b  |..3.J. r>workx%+|
00009710  32 36 38 20 80 20 72 3c  77 6f 72 6b 78 25 2b 32  |268 . r<workx%+2|
00009720  36 38 2b 33 34 38 20 80  20 73 3e 77 6f 72 6b 79  |68+348 . s>worky|
00009730  25 2d 31 31 34 20 80 20  73 3c 77 6f 72 6b 79 25  |%-114 . s<worky%|
00009740  2d 28 31 31 34 2d 33 35  29 20 8c 0d 33 ae 26 c8  |-(114-35) ..3.&.|
00009750  97 20 c8 93 20 77 6f 72  6b 78 25 2b 32 37 30 2c  |. .. workx%+270,|
00009760  77 6f 72 6b 79 25 2d 31  31 32 2c 33 34 34 2c 33  |worky%-112,344,3|
00009770  30 0d 33 b8 28 6e 67 72  65 65 6e 3d a8 28 28 28  |0.3.(ngreen=.(((|
00009780  72 2d 28 77 6f 72 6b 78  25 2b 32 37 30 29 29 2f  |r-(workx%+270))/|
00009790  33 34 34 29 2a 32 35 35  29 0d 33 c2 18 e7 20 6e  |344)*255).3... n|
000097a0  67 72 65 65 6e 3d 2d 31  20 6e 67 72 65 65 6e 3d  |green=-1 ngreen=|
000097b0  30 0d 33 cc 1c f2 69 6e  66 6f 28 63 6f 6c 6f 75  |0.3...info(colou|
000097c0  72 25 2c 37 2c c3 6e 67  72 65 65 6e 29 0d 33 d6  |r%,7,.ngreen).3.|
000097d0  10 47 52 45 45 4e 3d 6e  67 72 65 65 6e 0d 33 e0  |.GREEN=ngreen.3.|
000097e0  1b c8 99 20 22 57 69 6d  70 5f 53 65 74 43 6f 6c  |... "Wimp_SetCol|
000097f0  6f 75 72 22 2c 31 2c 31  0d 33 ea 46 c8 93 20 c8  |our",1,1.3.F.. .|
00009800  90 20 77 6f 72 6b 78 25  2b 32 37 32 2b 28 47 52  |. workx%+272+(GR|
00009810  45 45 4e 2f 32 35 35 29  2a 33 34 34 2c 77 6f 72  |EEN/255)*344,wor|
00009820  6b 79 25 2d 31 31 31 2c  33 34 32 2d 28 47 52 45  |ky%-111,342-(GRE|
00009830  45 4e 2f 32 35 35 29 2a  33 34 34 2c 33 30 0d 33  |EN/255)*344,30.3|
00009840  f4 2f c8 99 20 22 43 6f  6c 6f 75 72 54 72 61 6e  |./.. "ColourTran|
00009850  73 5f 53 65 74 47 43 4f  4c 22 2c 26 30 30 46 46  |s_SetGCOL",&00FF|
00009860  30 30 30 30 2c 2c 2c 26  31 30 30 2c 30 0d 33 fe  |0000,,,&100,0.3.|
00009870  32 c8 93 20 c8 90 20 77  6f 72 6b 78 25 2b 32 37  |2.. .. workx%+27|
00009880  31 2c 77 6f 72 6b 79 25  2d 31 31 31 2c 28 47 52  |1,worky%-111,(GR|
00009890  45 45 4e 2f 32 35 35 29  2a 33 34 34 2c 33 30 0d  |EEN/255)*344,30.|
000098a0  34 08 27 c8 99 20 22 43  6f 6c 6f 75 72 54 72 61  |4.'.. "ColourTra|
000098b0  6e 73 5f 53 65 74 47 43  4f 4c 22 2c 30 2c 2c 2c  |ns_SetGCOL",0,,,|
000098c0  26 31 30 30 2c 30 0d 34  12 23 c8 93 20 77 6f 72  |&100,0.4.#.. wor|
000098d0  6b 78 25 2b 32 37 30 2c  77 6f 72 6b 79 25 2d 31  |kx%+270,worky%-1|
000098e0  31 34 2c 33 34 34 2c 33  34 0d 34 1c 27 68 65 78  |14,344,34.4.'hex|
000098f0  3d 28 42 4c 55 45 3c 3c  32 34 29 2b 28 47 52 45  |=(BLUE<<24)+(GRE|
00009900  45 4e 3c 3c 31 36 29 2b  28 52 45 44 3c 3c 38 29  |EN<<16)+(RED<<8)|
00009910  0d 34 26 29 c8 99 20 22  43 6f 6c 6f 75 72 54 72  |.4&).. "ColourTr|
00009920  61 6e 73 5f 53 65 74 47  43 4f 4c 22 2c 68 65 78  |ans_SetGCOL",hex|
00009930  2c 2c 2c 26 31 30 30 2c  30 0d 34 30 26 c8 93 20  |,,,&100,0.40&.. |
00009940  c8 90 20 77 6f 72 6b 78  25 2b 32 33 34 2c 77 6f  |.. workx%+234,wo|
00009950  72 6b 79 25 2d 32 34 37  2c 31 37 35 2c 34 38 0d  |rky%-247,175,48.|
00009960  34 3a 47 c8 99 20 22 43  6f 6c 6f 75 72 54 72 61  |4:G.. "ColourTra|
00009970  6e 73 5f 53 65 74 47 43  4f 4c 22 2c 30 2c 2c 2c  |ns_SetGCOL",0,,,|
00009980  26 31 30 30 2c 30 3a c8  93 20 77 6f 72 6b 78 25  |&100,0:.. workx%|
00009990  2b 32 33 33 2c 77 6f 72  6b 79 25 2d 32 34 38 2c  |+233,worky%-248,|
000099a0  31 37 36 2c 34 39 0d 34  44 21 c8 97 20 72 2c 73  |176,49.4D!.. r,s|
000099b0  2c 74 3a e7 20 74 3d 31  20 84 20 74 3d 34 20 f2  |,t:. t=1 . t=4 .|
000099c0  64 72 61 67 63 6f 6c 0d  34 4e 09 f2 4d 6f 64 65  |dragcol.4N..Mode|
000099d0  0d 34 58 1b c8 97 20 c8  93 20 30 2c 30 2c 78 6d  |.4X... .. 0,0,xm|
000099e0  61 78 2d 31 2c 79 6d 61  78 2d 31 0d 34 62 05 e1  |ax-1,ymax-1.4b..|
000099f0  0d 34 6c 05 cd 0d 34 76  4a e7 20 72 3e 77 6f 72  |.4l...4vJ. r>wor|
00009a00  6b 78 25 2b 32 36 38 20  80 20 72 3c 77 6f 72 6b  |kx%+268 . r<work|
00009a10  78 25 2b 32 36 38 2b 33  34 38 20 80 20 73 3e 77  |x%+268+348 . s>w|
00009a20  6f 72 6b 79 25 2d 31 37  30 20 80 20 73 3c 77 6f  |orky%-170 . s<wo|
00009a30  72 6b 79 25 2d 28 31 37  30 2d 33 35 29 20 8c 0d  |rky%-(170-35) ..|
00009a40  34 80 26 c8 97 20 c8 93  20 77 6f 72 6b 78 25 2b  |4.&.. .. workx%+|
00009a50  32 37 30 2c 77 6f 72 6b  79 25 2d 31 36 38 2c 33  |270,worky%-168,3|
00009a60  34 34 2c 33 30 0d 34 8a  27 6e 62 6c 75 65 3d a8  |44,30.4.'nblue=.|
00009a70  28 28 28 72 2d 28 77 6f  72 6b 78 25 2b 32 37 30  |(((r-(workx%+270|
00009a80  29 29 2f 33 34 34 29 2a  32 35 35 29 0d 34 94 16  |))/344)*255).4..|
00009a90  e7 20 6e 62 6c 75 65 3d  2d 31 20 6e 62 6c 75 65  |. nblue=-1 nblue|
00009aa0  3d 30 0d 34 9e 0e 42 4c  55 45 3d 6e 62 6c 75 65  |=0.4..BLUE=nblue|
00009ab0  0d 34 a8 1c f2 69 6e 66  6f 28 63 6f 6c 6f 75 72  |.4...info(colour|
00009ac0  25 2c 31 31 2c c3 6e 62  6c 75 65 29 0d 34 b2 1b  |%,11,.nblue).4..|
00009ad0  c8 99 20 22 57 69 6d 70  5f 53 65 74 43 6f 6c 6f  |.. "Wimp_SetColo|
00009ae0  75 72 22 2c 31 2c 31 0d  34 bc 46 c8 93 20 c8 90  |ur",1,1.4.F.. ..|
00009af0  20 77 6f 72 6b 78 25 2b  32 37 32 2b 28 42 4c 55  | workx%+272+(BLU|
00009b00  45 2f 32 35 35 29 2a 33  34 34 2c 77 6f 72 6b 79  |E/255)*344,worky|
00009b10  25 2d 31 36 37 2c 33 34  32 2d 28 28 42 4c 55 45  |%-167,342-((BLUE|
00009b20  2f 32 35 35 29 2a 33 34  34 29 2c 33 30 0d 34 c6  |/255)*344),30.4.|
00009b30  2f c8 99 20 22 43 6f 6c  6f 75 72 54 72 61 6e 73  |/.. "ColourTrans|
00009b40  5f 53 65 74 47 43 4f 4c  22 2c 26 46 46 30 30 30  |_SetGCOL",&FF000|
00009b50  30 30 30 2c 2c 2c 26 31  30 30 2c 30 0d 34 d0 31  |000,,,&100,0.4.1|
00009b60  c8 93 20 c8 90 20 77 6f  72 6b 78 25 2b 32 37 30  |.. .. workx%+270|
00009b70  2c 77 6f 72 6b 79 25 2d  31 36 37 2c 28 42 4c 55  |,worky%-167,(BLU|
00009b80  45 2f 32 35 35 29 2a 33  34 34 2c 33 30 0d 34 da  |E/255)*344,30.4.|
00009b90  27 c8 99 20 22 43 6f 6c  6f 75 72 54 72 61 6e 73  |'.. "ColourTrans|
00009ba0  5f 53 65 74 47 43 4f 4c  22 2c 30 2c 2c 2c 26 31  |_SetGCOL",0,,,&1|
00009bb0  30 30 2c 30 0d 34 e4 23  c8 93 20 77 6f 72 6b 78  |00,0.4.#.. workx|
00009bc0  25 2b 32 37 30 2c 77 6f  72 6b 79 25 2d 31 37 30  |%+270,worky%-170|
00009bd0  2c 33 34 34 2c 33 34 0d  34 ee 27 68 65 78 3d 28  |,344,34.4.'hex=(|
00009be0  42 4c 55 45 3c 3c 32 34  29 2b 28 47 52 45 45 4e  |BLUE<<24)+(GREEN|
00009bf0  3c 3c 31 36 29 2b 28 52  45 44 3c 3c 38 29 0d 34  |<<16)+(RED<<8).4|
00009c00  f8 29 c8 99 20 22 43 6f  6c 6f 75 72 54 72 61 6e  |.).. "ColourTran|
00009c10  73 5f 53 65 74 47 43 4f  4c 22 2c 68 65 78 2c 2c  |s_SetGCOL",hex,,|
00009c20  2c 26 31 30 30 2c 30 0d  35 02 26 c8 93 20 c8 90  |,&100,0.5.&.. ..|
00009c30  20 77 6f 72 6b 78 25 2b  32 33 34 2c 77 6f 72 6b  | workx%+234,work|
00009c40  79 25 2d 32 34 37 2c 31  37 35 2c 34 38 0d 35 0c  |y%-247,175,48.5.|
00009c50  47 c8 99 20 22 43 6f 6c  6f 75 72 54 72 61 6e 73  |G.. "ColourTrans|
00009c60  5f 53 65 74 47 43 4f 4c  22 2c 30 2c 2c 2c 26 31  |_SetGCOL",0,,,&1|
00009c70  30 30 2c 30 3a c8 93 20  77 6f 72 6b 78 25 2b 32  |00,0:.. workx%+2|
00009c80  33 33 2c 77 6f 72 6b 79  25 2d 32 34 38 2c 31 37  |33,worky%-248,17|
00009c90  36 2c 34 39 0d 35 16 0a  f4 20 42 6c 75 65 0d 35  |6,49.5... Blue.5|
00009ca0  20 21 c8 97 20 72 2c 73  2c 74 3a e7 20 74 3d 31  | !.. r,s,t:. t=1|
00009cb0  20 84 20 74 3d 34 20 f2  64 72 61 67 63 6f 6c 0d  | . t=4 .dragcol.|
00009cc0  35 2a 09 f2 4d 6f 64 65  0d 35 34 1b c8 97 20 c8  |5*..Mode.54... .|
00009cd0  93 20 30 2c 30 2c 78 6d  61 78 2d 31 2c 79 6d 61  |. 0,0,xmax-1,yma|
00009ce0  78 2d 31 0d 35 3e 05 e1  0d 35 48 05 cd 0d 35 52  |x-1.5>...5H...5R|
00009cf0  05 e1 0d 35 5c 0d dd f2  61 70 70 5f 72 65 33 0d  |...5\...app_re3.|
00009d00  35 66 1c 20 77 6f 72 6b  78 25 3d 62 6c 6f 63 6b  |5f. workx%=block|
00009d10  21 34 2d 62 6c 6f 63 6b  21 32 30 0d 35 70 1d 20  |!4-block!20.5p. |
00009d20  77 6f 72 6b 79 25 3d 62  6c 6f 63 6b 21 31 36 2d  |worky%=block!16-|
00009d30  62 6c 6f 63 6b 21 32 34  0d 35 7a 2d c8 99 20 22  |block!24.5z-.. "|
00009d40  43 6f 6c 6f 75 72 54 72  61 6e 73 5f 53 65 74 47  |ColourTrans_SetG|
00009d50  43 4f 4c 22 2c 68 65 78  63 28 31 29 2c 2c 2c 26  |COL",hexc(1),,,&|
00009d60  31 30 30 2c 30 0d 35 84  25 c8 93 20 c8 90 20 77  |100,0.5.%.. .. w|
00009d70  6f 72 6b 78 25 2b 31 31  32 32 2c 77 6f 72 6b 79  |orkx%+1122,worky|
00009d80  25 2d 35 38 2c 35 30 2c  34 32 0d 35 8e 2d c8 99  |%-58,50,42.5.-..|
00009d90  20 22 43 6f 6c 6f 75 72  54 72 61 6e 73 5f 53 65  | "ColourTrans_Se|
00009da0  74 47 43 4f 4c 22 2c 68  65 78 63 28 32 29 2c 2c  |tGCOL",hexc(2),,|
00009db0  2c 26 31 30 30 2c 30 0d  35 98 26 c8 93 20 c8 90  |,&100,0.5.&.. ..|
00009dc0  20 77 6f 72 6b 78 25 2b  31 31 32 32 2c 77 6f 72  | workx%+1122,wor|
00009dd0  6b 79 25 2d 31 31 36 2c  35 30 2c 34 32 0d 35 a2  |ky%-116,50,42.5.|
00009de0  2d c8 99 20 22 43 6f 6c  6f 75 72 54 72 61 6e 73  |-.. "ColourTrans|
00009df0  5f 53 65 74 47 43 4f 4c  22 2c 68 65 78 63 28 33  |_SetGCOL",hexc(3|
00009e00  29 2c 2c 2c 26 31 30 30  2c 30 0d 35 ac 26 c8 93  |),,,&100,0.5.&..|
00009e10  20 c8 90 20 77 6f 72 6b  78 25 2b 31 31 32 32 2c  | .. workx%+1122,|
00009e20  77 6f 72 6b 79 25 2d 31  38 30 2c 35 30 2c 34 32  |worky%-180,50,42|
00009e30  0d 35 b6 2d c8 99 20 22  43 6f 6c 6f 75 72 54 72  |.5.-.. "ColourTr|
00009e40  61 6e 73 5f 53 65 74 47  43 4f 4c 22 2c 68 65 78  |ans_SetGCOL",hex|
00009e50  63 28 34 29 2c 2c 2c 26  31 30 30 2c 30 0d 35 c0  |c(4),,,&100,0.5.|
00009e60  26 c8 93 20 c8 90 20 77  6f 72 6b 78 25 2b 31 31  |&.. .. workx%+11|
00009e70  32 32 2c 77 6f 72 6b 79  25 2d 34 33 30 2c 35 30  |22,worky%-430,50|
00009e80  2c 34 32 0d 35 ca 13 e7  20 63 75 72 73 70 72 24  |,42.5... curspr$|
00009e90  3c 3e 22 22 20 8c 0d 35  d4 12 63 75 72 73 73 24  |<>"" ..5..curss$|
00009ea0  3d 63 75 72 73 70 72 24  0d 35 de 12 e7 20 a9 63  |=curspr$.5... .c|
00009eb0  75 72 73 73 24 3c 31 32  20 8c 0d 35 e8 05 f5 0d  |urss$<12 ..5....|
00009ec0  35 f2 0e 63 75 72 73 73  24 2b 3d bd 30 0d 35 fc  |5..curss$+=.0.5.|
00009ed0  10 fd 20 a9 63 75 72 73  73 24 3d 31 32 0d 36 06  |.. .curss$=12.6.|
00009ee0  2d c8 99 20 22 43 6f 6c  6f 75 72 54 72 61 6e 73  |-.. "ColourTrans|
00009ef0  5f 53 65 74 47 43 4f 4c  22 2c 68 65 78 63 28 30  |_SetGCOL",hexc(0|
00009f00  29 2c 2c 2c 26 31 30 30  2c 30 0d 36 10 27 c8 93  |),,,&100,0.6.'..|
00009f10  20 c8 90 20 77 6f 72 6b  78 25 2b 34 30 30 2c 77  | .. workx%+400,w|
00009f20  6f 72 6b 79 25 2d 33 35  32 2c 31 36 33 2c 31 34  |orky%-352,163,14|
00009f30  34 0d 36 1a 34 c8 99 20  26 32 45 2c 32 35 36 2b  |4.6.4.. &2E,256+|
00009f40  34 30 2c 73 70 72 25 2c  63 75 72 73 70 72 24 20  |40,spr%,curspr$ |
00009f50  b8 20 41 2c 42 2c 43 2c  77 25 2c 68 25 2c 44 2c  |. A,B,C,w%,h%,D,|
00009f60  6d 6f 64 65 25 0d 36 24  2e c8 99 22 4f 53 5f 52  |mode%.6$..."OS_R|
00009f70  65 61 64 4d 6f 64 65 56  61 72 69 61 62 6c 65 22  |eadModeVariable"|
00009f80  2c 6d 6f 64 65 25 2c 33  20 b8 63 2c 63 6c 2c 63  |,mode%,3 .c,cl,c|
00009f90  6f 6c 73 0d 36 2e 2c c8  99 22 4f 53 5f 52 65 61  |ols.6.,.."OS_Rea|
00009fa0  64 4d 6f 64 65 56 61 72  69 61 62 6c 65 22 2c 6d  |dModeVariable",m|
00009fb0  6f 64 65 25 2c 34 20 b8  2c 2c 78 65 69 67 25 0d  |ode%,4 .,,xeig%.|
00009fc0  36 38 2c c8 99 22 4f 53  5f 52 65 61 64 4d 6f 64  |68,.."OS_ReadMod|
00009fd0  65 56 61 72 69 61 62 6c  65 22 2c 6d 6f 64 65 25  |eVariable",mode%|
00009fe0  2c 35 20 b8 2c 2c 79 65  69 67 25 0d 36 42 11 77  |,5 .,,yeig%.6B.w|
00009ff0  69 25 3d 77 25 3c 3c 78  65 69 67 25 0d 36 4c 11  |i%=w%<<xeig%.6L.|
0000a000  68 65 25 3d 68 25 3c 3c  79 65 69 67 25 0d 36 56  |he%=h%<<yeig%.6V|
0000a010  10 e7 20 73 70 72 25 21  34 3e 30 20 8c 0d 36 60  |.. spr%!4>0 ..6`|
0000a020  0f 6e 65 78 74 3d 73 70  72 25 21 38 0d 36 6a 05  |.next=spr%!8.6j.|
0000a030  f5 0d 36 74 0e 61 64 64  3d 6e 65 78 74 2b 34 0d  |..6t.add=next+4.|
0000a040  36 7e 13 6f 66 66 73 65  74 3d 73 70 72 25 21 61  |6~.offset=spr%!a|
0000a050  64 64 0d 36 88 0c 6e 61  6d 65 24 3d 22 22 0d 36  |dd.6..name$="".6|
0000a060  92 05 f5 0d 36 9c 14 6e  61 6d 65 24 2b 3d bd 73  |....6..name$+=.s|
0000a070  70 72 25 21 61 64 64 0d  36 a6 0a 61 64 64 2b 3d  |pr%!add.6..add+=|
0000a080  31 0d 36 b0 11 fd 20 61  64 64 3d 6e 65 78 74 2b  |1.6... add=next+|
0000a090  31 36 0d 36 ba 0c 6f 6c  64 3d 6e 65 78 74 0d 36  |16.6..old=next.6|
0000a0a0  c4 13 6e 65 78 74 2b 3d  73 70 72 25 21 6e 65 78  |..next+=spr%!nex|
0000a0b0  74 0d 36 ce 12 fd 20 63  75 72 73 73 24 3d 6e 61  |t.6... curss$=na|
0000a0c0  6d 65 24 0d 36 d8 18 e7  20 73 70 72 25 21 28 33  |me$.6... spr%!(3|
0000a0d0  32 2b 6f 6c 64 29 3e 34  34 20 8c 0d 36 e2 11 e3  |2+old)>44 ..6...|
0000a0e0  20 63 6f 6c 25 3d 30 20  b8 20 31 35 0d 36 ec 2b  | col%=0 . 15.6.+|
0000a0f0  70 61 6c 65 74 74 65 25  21 28 63 6f 6c 25 2a 34  |palette%!(col%*4|
0000a100  29 3d 21 28 6f 6c 64 2b  34 34 2b 63 6f 6c 25 2a  |)=!(old+44+col%*|
0000a110  38 2b 73 70 72 25 29 0d  36 f6 0a ed 20 63 6f 6c  |8+spr%).6... col|
0000a120  25 0d 37 00 48 c8 99 20  22 43 6f 6c 6f 75 72 54  |%.7.H.. "ColourT|
0000a130  72 61 6e 73 5f 53 65 6c  65 63 74 54 61 62 6c 65  |rans_SelectTable|
0000a140  22 2c 21 28 34 30 2b 6f  6c 64 2b 73 70 72 25 29  |",!(40+old+spr%)|
0000a150  2c 70 61 6c 65 74 74 65  25 2c 2d 31 2c 2d 31 2c  |,palette%,-1,-1,|
0000a160  73 63 61 6c 62 6c 6f 6b  25 0d 37 0a 05 cc 0d 37  |scalblok%.7....7|
0000a170  14 47 c8 99 20 22 43 6f  6c 6f 75 72 54 72 61 6e  |.G.. "ColourTran|
0000a180  73 5f 53 65 6c 65 63 74  54 61 62 6c 65 22 2c 21  |s_SelectTable",!|
0000a190  28 34 30 2b 6f 6c 64 2b  73 70 72 25 29 2c 64 65  |(40+old+spr%),de|
0000a1a0  66 70 61 6c 25 2c 2d 31  2c 2d 31 2c 73 63 61 6c  |fpal%,-1,-1,scal|
0000a1b0  62 6c 6f 6b 25 0d 37 1e  05 cd 0d 37 28 05 cd 0d  |blok%.7....7(...|
0000a1c0  37 32 11 78 6f 66 66 3d  30 3a 79 6f 66 66 3d 30  |72.xoff=0:yoff=0|
0000a1d0  0d 37 3c 13 e7 20 a4 76  67 61 28 6d 6f 64 65 25  |.7<.. .vga(mode%|
0000a1e0  29 20 8c 0d 37 46 1f e7  20 68 25 3e 77 25 20 73  |) ..7F.. h%>w% s|
0000a1f0  68 65 61 72 3d 37 32 20  8b 20 73 68 65 61 72 3d  |hear=72 . shear=|
0000a200  38 32 0d 37 50 05 cc 0d  37 5a 23 e7 20 28 68 25  |82.7P...7Z#. (h%|
0000a210  2a 32 29 3e 77 25 20 73  68 65 61 72 3d 33 36 20  |*2)>w% shear=36 |
0000a220  8b 20 73 68 65 61 72 3d  38 32 0d 37 64 05 cd 0d  |. shear=82.7d...|
0000a230  37 6e 25 c8 99 22 4f 53  5f 52 65 61 64 4d 6f 64  |7n%.."OS_ReadMod|
0000a240  65 56 61 72 69 61 62 6c  65 22 2c eb 2c 31 31 20  |eVariable",.,11 |
0000a250  b8 2c 2c 43 0d 37 78 25  c8 99 22 4f 53 5f 52 65  |.,,C.7x%.."OS_Re|
0000a260  61 64 4d 6f 64 65 56 61  72 69 61 62 6c 65 22 2c  |adModeVariable",|
0000a270  eb 2c 31 32 20 b8 2c 2c  42 0d 37 82 0d 43 2b 3d  |.,12 .,,B.7..C+=|
0000a280  31 3a 42 2b 3d 31 0d 37  8c 43 e7 20 42 2f 43 3d  |1:B+=1.7.C. B/C=|
0000a290  2e 38 20 80 20 a4 76 67  61 28 6d 6f 64 65 25 29  |.8 . .vga(mode%)|
0000a2a0  20 8c 20 68 73 63 61 6c  65 3d 31 3a 20 f4 20 31  | . hscale=1: . 1|
0000a2b0  20 6d 65 61 6e 73 20 56  47 41 2c 20 73 71 75 61  | means VGA, squa|
0000a2c0  72 65 20 70 69 78 65 6c  73 0d 37 96 26 e7 20 42  |re pixels.7.&. B|
0000a2d0  2f 43 3d 2e 37 35 20 80  20 a4 76 67 61 28 6d 6f  |/C=.75 . .vga(mo|
0000a2e0  64 65 25 29 20 8c 20 68  73 63 61 6c 65 3d 31 0d  |de%) . hscale=1.|
0000a2f0  37 a0 2f e7 20 42 2f 43  3c 3e 2e 38 20 80 20 42  |7./. B/C<>.8 . B|
0000a300  2f 43 3c 3e 2e 37 35 20  80 20 a4 76 67 61 28 6d  |/C<>.75 . .vga(m|
0000a310  6f 64 65 25 29 20 68 73  63 61 6c 65 3d 32 0d 37  |ode%) hscale=2.7|
0000a320  aa 2a e7 20 42 2f 43 3d  2e 38 20 84 20 42 2f 43  |.*. B/C=.8 . B/C|
0000a330  3d 2e 37 35 20 8c 20 6d  6f 64 73 63 3d 31 20 8b  |=.75 . modsc=1 .|
0000a340  20 6d 6f 64 73 63 3d 32  0d 37 b4 24 53 68 65 61  | modsc=2.7.$Shea|
0000a350  72 3d a4 63 68 65 63 6b  66 6c 61 67 28 64 65 74  |r=.checkflag(det|
0000a360  61 69 6c 73 25 2c 32 39  2c 32 31 29 0d 37 be 0e  |ails%,29,21).7..|
0000a370  c8 8e 20 53 68 65 61 72  20 ca 0d 37 c8 07 c9 20  |.. Shear ..7... |
0000a380  a3 0d 37 d2 27 e7 20 42  2f 43 3d 2e 38 20 80 20  |..7.'. B/C=.8 . |
0000a390  ac 20 a4 76 67 61 28 6d  6f 64 65 25 29 20 8c 20  |. .vga(mode%) . |
0000a3a0  68 73 63 61 6c 65 3d 31  0d 37 dc 28 e7 20 42 2f  |hscale=1.7.(. B/|
0000a3b0  43 3d 2e 37 35 20 80 20  ac 20 a4 76 67 61 28 6d  |C=.75 . . .vga(m|
0000a3c0  6f 64 65 25 29 20 8c 20  68 73 63 61 6c 65 3d 31  |ode%) . hscale=1|
0000a3d0  0d 37 e6 31 e7 20 42 2f  43 3c 3e 2e 38 20 80 20  |.7.1. B/C<>.8 . |
0000a3e0  42 2f 43 3c 3e 2e 37 35  20 80 20 ac 20 a4 76 67  |B/C<>.75 . . .vg|
0000a3f0  61 28 6d 6f 64 65 25 29  20 68 73 63 61 6c 65 3d  |a(mode%) hscale=|
0000a400  32 0d 37 f0 3f e7 20 a4  76 67 61 28 6d 6f 64 65  |2.7.?. .vga(mode|
0000a410  25 29 20 80 20 77 25 3e  38 32 20 80 20 68 25 3e  |%) . w%>82 . h%>|
0000a420  37 32 20 80 20 68 25 3c  77 25 20 8c 20 53 43 77  |72 . h%<w% . SCw|
0000a430  3d 77 25 2f 38 32 3a 53  43 68 3d 77 25 2f 38 32  |=w%/82:SCh=w%/82|
0000a440  0d 37 fa 3d e7 20 a4 76  67 61 28 6d 6f 64 65 25  |.7.=. .vga(mode%|
0000a450  29 20 80 20 77 25 3e 38  32 20 80 20 68 25 3e 37  |) . w%>82 . h%>7|
0000a460  32 20 80 20 68 25 3e 77  25 20 8c 20 53 43 68 3d  |2 . h%>w% . SCh=|
0000a470  68 25 2f 37 32 3a 53 43  77 3d 53 43 68 0d 38 04  |h%/72:SCw=SCh.8.|
0000a480  4c e7 20 ac 20 a4 76 67  61 28 6d 6f 64 65 25 29  |L. . .vga(mode%)|
0000a490  20 80 20 77 25 3e 38 32  20 80 20 68 25 2a 32 3e  | . w%>82 . h%*2>|
0000a4a0  37 32 20 80 20 68 25 2a  32 3c 77 25 20 8c 20 53  |72 . h%*2<w% . S|
0000a4b0  43 77 3d 28 77 25 2f 38  32 29 3a 53 43 68 3d 53  |Cw=(w%/82):SCh=S|
0000a4c0  43 77 2a 68 73 63 61 6c  65 0d 38 0e 56 e7 20 ac  |Cw*hscale.8.V. .|
0000a4d0  20 a4 76 67 61 28 6d 6f  64 65 25 29 20 80 20 77  | .vga(mode%) . w|
0000a4e0  25 3e 38 32 20 80 20 68  25 2a 32 3e 37 32 20 80  |%>82 . h%*2>72 .|
0000a4f0  20 68 25 2a 32 3e 77 25  20 8c 20 53 43 68 3d 28  | h%*2>w% . SCh=(|
0000a500  68 25 2f 28 37 32 2f 68  73 63 61 6c 65 29 29 2a  |h%/(72/hscale))*|
0000a510  32 3a 53 43 77 3d 28 68  25 2f 37 32 29 2a 32 0d  |2:SCw=(h%/72)*2.|
0000a520  38 18 28 e7 20 77 25 3e  38 32 20 80 20 68 25 3c  |8.(. w%>82 . h%<|
0000a530  37 32 20 8c 20 53 43 77  3d 77 25 2f 73 68 65 61  |72 . SCw=w%/shea|
0000a540  72 3a 53 43 68 3d 31 0d  38 22 31 e7 20 77 25 3c  |r:SCh=1.8"1. w%<|
0000a550  38 32 20 80 20 68 25 3e  37 32 20 8c 20 53 43 77  |82 . h%>72 . SCw|
0000a560  3d 31 3a 53 43 68 3d 68  25 2f 28 73 68 65 61 72  |=1:SCh=h%/(shear|
0000a570  2f 68 73 63 61 6c 65 29  0d 38 2c 0d e7 20 66 6f  |/hscale).8,.. fo|
0000a580  72 63 65 20 8c 0d 38 36  48 e7 20 77 25 3c 38 32  |rce ..86H. w%<82|
0000a590  20 80 20 68 25 3c 37 32  20 80 20 68 25 3d 77 25  | . h%<72 . h%=w%|
0000a5a0  20 80 20 a4 76 67 61 28  6d 6f 64 65 25 29 20 8c  | . .vga(mode%) .|
0000a5b0  20 53 43 68 3d 68 25 2f  28 37 32 2f 68 73 63 61  | SCh=h%/(72/hsca|
0000a5c0  6c 65 29 3a 53 43 77 3d  77 25 2f 37 32 0d 38 40  |le):SCw=w%/72.8@|
0000a5d0  4e e7 20 77 25 3c 38 32  20 80 20 68 25 3c 37 32  |N. w%<82 . h%<72|
0000a5e0  20 80 20 68 25 3c 77 25  20 80 20 a4 76 67 61 28  | . h%<w% . .vga(|
0000a5f0  6d 6f 64 65 25 29 20 8c  20 53 43 77 3d 77 25 2f  |mode%) . SCw=w%/|
0000a600  73 68 65 61 72 3a 53 43  68 3d 77 25 2f 28 73 68  |shear:SCh=w%/(sh|
0000a610  65 61 72 2f 68 73 63 61  6c 65 29 0d 38 4a 4e e7  |ear/hscale).8JN.|
0000a620  20 77 25 3c 38 32 20 80  20 68 25 3c 37 32 20 80  | w%<82 . h%<72 .|
0000a630  20 68 25 3e 77 25 20 80  20 a4 76 67 61 28 6d 6f  | h%>w% . .vga(mo|
0000a640  64 65 25 29 20 8c 20 53  43 77 3d 68 25 2f 73 68  |de%) . SCw=h%/sh|
0000a650  65 61 72 3a 53 43 68 3d  68 25 2f 28 73 68 65 61  |ear:SCh=h%/(shea|
0000a660  72 2f 68 73 63 61 6c 65  29 0d 38 54 4c e7 20 77  |r/hscale).8TL. w|
0000a670  25 3c 38 32 20 80 20 68  25 3c 37 32 20 80 20 68  |%<82 . h%<72 . h|
0000a680  25 2a 32 3d 77 25 20 80  20 ac 20 a4 76 67 61 28  |%*2=w% . . .vga(|
0000a690  6d 6f 64 65 25 29 20 8c  20 53 43 68 3d 68 25 2f  |mode%) . SCh=h%/|
0000a6a0  28 33 36 2f 68 73 63 61  6c 65 29 3a 53 43 77 3d  |(36/hscale):SCw=|
0000a6b0  77 25 2f 37 32 0d 38 5e  54 e7 20 77 25 3c 38 32  |w%/72.8^T. w%<82|
0000a6c0  20 80 20 68 25 3c 33 36  20 80 20 28 68 25 2a 32  | . h%<36 . (h%*2|
0000a6d0  29 3c 77 25 20 80 20 ac  20 a4 76 67 61 28 6d 6f  |)<w% . . .vga(mo|
0000a6e0  64 65 25 29 20 8c 20 53  43 77 3d 77 25 2f 73 68  |de%) . SCw=w%/sh|
0000a6f0  65 61 72 3a 53 43 68 3d  77 25 2f 28 73 68 65 61  |ear:SCh=w%/(shea|
0000a700  72 2f 68 73 63 61 6c 65  29 0d 38 68 54 e7 20 77  |r/hscale).8hT. w|
0000a710  25 3c 38 32 20 80 20 68  25 3c 33 36 20 80 20 28  |%<82 . h%<36 . (|
0000a720  68 25 2a 32 29 3e 77 25  20 80 20 ac 20 a4 76 67  |h%*2)>w% . . .vg|
0000a730  61 28 6d 6f 64 65 25 29  20 8c 20 53 43 77 3d 68  |a(mode%) . SCw=h|
0000a740  25 2f 73 68 65 61 72 3a  53 43 68 3d 68 25 2f 28  |%/shear:SCh=h%/(|
0000a750  73 68 65 61 72 2f 68 73  63 61 6c 65 29 0d 38 72  |shear/hscale).8r|
0000a760  05 cc 0d 38 7c 25 e7 20  77 25 3c 38 32 20 80 20  |...8|%. w%<82 . |
0000a770  68 25 3c 37 32 20 8c 20  53 43 77 3d 31 3a 53 43  |h%<72 . SCw=1:SC|
0000a780  68 3d 6d 6f 64 73 63 0d  38 86 05 cd 0d 38 90 11  |h=modsc.8....8..|
0000a790  20 c8 8e 20 63 65 6e 74  72 65 64 20 ca 0d 38 9a  | .. centred ..8.|
0000a7a0  09 20 20 c9 20 b9 0d 38  a4 31 20 e7 20 a4 76 67  |.  . ..8.1 . .vg|
0000a7b0  61 28 6d 6f 64 65 25 29  20 80 20 ac 20 66 6f 72  |a(mode%) . . for|
0000a7c0  63 65 20 80 20 68 25 2a  53 43 68 3d 37 32 20 8c  |ce . h%*SCh=72 .|
0000a7d0  20 79 6f 66 66 3d 30 0d  38 ae 3b 20 e7 20 a4 76  | yoff=0.8.; . .v|
0000a7e0  67 61 28 6d 6f 64 65 25  29 20 80 20 ac 20 66 6f  |ga(mode%) . . fo|
0000a7f0  72 63 65 20 80 20 68 25  2a 53 43 68 3c 37 30 20  |rce . h%*SCh<70 |
0000a800  8c 20 79 6f 66 66 3d 37  32 2d 28 68 25 2a 53 43  |. yoff=72-(h%*SC|
0000a810  68 29 0d 38 b8 33 20 e7  20 a4 76 67 61 28 6d 6f  |h).8.3 . .vga(mo|
0000a820  64 65 25 29 20 80 20 66  6f 72 63 65 20 8c 20 79  |de%) . force . y|
0000a830  6f 66 66 3d 28 37 32 2d  28 28 31 2f 53 43 68 29  |off=(72-((1/SCh)|
0000a840  2a 68 25 29 29 0d 38 c2  35 20 e7 20 ac 20 a4 76  |*h%)).8.5 . . .v|
0000a850  67 61 28 6d 6f 64 65 25  29 20 80 20 66 6f 72 63  |ga(mode%) . forc|
0000a860  65 20 79 6f 66 66 3d 28  37 32 2d 28 28 31 2f 53  |e yoff=(72-((1/S|
0000a870  43 68 29 2a 68 25 29 29  2f 32 0d 38 cc 38 20 e7  |Ch)*h%))/2.8.8 .|
0000a880  20 ac 20 a4 76 67 61 28  6d 6f 64 65 25 29 20 80  | . .vga(mode%) .|
0000a890  20 68 25 2f 53 43 68 3c  33 36 20 8c 20 79 6f 66  | h%/SCh<36 . yof|
0000a8a0  66 3d a8 28 33 36 2d 28  68 25 2f 53 43 68 29 29  |f=.(36-(h%/SCh))|
0000a8b0  2a 32 0d 38 d6 2a 20 e7  20 ac 20 a4 76 67 61 28  |*2.8.* . . .vga(|
0000a8c0  6d 6f 64 65 25 29 20 80  20 68 25 2f 53 43 68 3e  |mode%) . h%/SCh>|
0000a8d0  3d 33 35 20 8c 20 79 6f  66 66 3d 30 0d 38 e0 1b  |=35 . yoff=0.8..|
0000a8e0  20 78 6f 66 66 3d 28 38  32 2d 28 28 31 2f 53 43  | xoff=(82-((1/SC|
0000a8f0  77 29 2a 77 25 29 29 0d  38 ea 3b 20 e7 20 66 6f  |w)*w%)).8.; . fo|
0000a900  72 63 65 20 80 20 68 25  3e 37 32 20 80 20 77 25  |rce . h%>72 . w%|
0000a910  3e 38 32 20 80 20 68 25  3c 77 25 20 80 20 a4 76  |>82 . h%<w% . .v|
0000a920  67 61 28 6d 6f 64 65 25  29 20 8c 20 78 6f 66 66  |ga(mode%) . xoff|
0000a930  3d 30 0d 38 f4 3b 20 e7  20 66 6f 72 63 65 20 80  |=0.8.; . force .|
0000a940  20 68 25 3e 37 32 20 80  20 77 25 3e 38 32 20 80  | h%>72 . w%>82 .|
0000a950  20 68 25 3e 77 25 20 80  20 a4 76 67 61 28 6d 6f  | h%>w% . .vga(mo|
0000a960  64 65 25 29 20 8c 20 79  6f 66 66 3d 30 0d 38 fe  |de%) . yoff=0.8.|
0000a970  33 20 e7 20 66 6f 72 63  65 20 80 20 68 25 3d 77  |3 . force . h%=w|
0000a980  25 20 80 20 a4 76 67 61  28 6d 6f 64 65 25 29 20  |% . .vga(mode%) |
0000a990  8c 20 78 6f 66 66 3d 31  30 3a 79 6f 66 66 3d 30  |. xoff=10:yoff=0|
0000a9a0  0d 39 08 37 20 e7 20 66  6f 72 63 65 20 80 20 68  |.9.7 . force . h|
0000a9b0  25 2a 32 3d 77 25 20 80  20 ac 20 a4 76 67 61 28  |%*2=w% . . .vga(|
0000a9c0  6d 6f 64 65 25 29 20 8c  20 78 6f 66 66 3d 31 30  |mode%) . xoff=10|
0000a9d0  3a 79 6f 66 66 3d 30 0d  39 12 43 20 e7 20 66 6f  |:yoff=0.9.C . fo|
0000a9e0  72 63 65 20 80 20 68 25  2a 32 3e 37 32 20 80 20  |rce . h%*2>72 . |
0000a9f0  77 25 3e 38 32 20 80 20  28 68 25 2a 32 29 3c 77  |w%>82 . (h%*2)<w|
0000aa00  25 20 80 20 ac 20 a4 76  67 61 28 6d 6f 64 65 25  |% . . .vga(mode%|
0000aa10  29 20 8c 20 78 6f 66 66  3d 30 0d 39 1c 43 20 e7  |) . xoff=0.9.C .|
0000aa20  20 66 6f 72 63 65 20 80  20 68 25 2a 32 3e 37 32  | force . h%*2>72|
0000aa30  20 80 20 77 25 3e 38 32  20 80 20 28 68 25 2a 32  | . w%>82 . (h%*2|
0000aa40  29 3e 77 25 20 80 20 ac  20 a4 76 67 61 28 6d 6f  |)>w% . . .vga(mo|
0000aa50  64 65 25 29 20 8c 20 79  6f 66 66 3d 30 0d 39 26  |de%) . yoff=0.9&|
0000aa60  06 20 cb 0d 39 30 07 c9  20 b9 0d 39 3a 27 e7 20  |. ..90.. ..9:'. |
0000aa70  42 2f 43 3d 2e 38 20 80  20 ac 20 a4 76 67 61 28  |B/C=.8 . . .vga(|
0000aa80  6d 6f 64 65 25 29 20 8c  20 68 73 63 61 6c 65 3d  |mode%) . hscale=|
0000aa90  32 0d 39 44 28 e7 20 42  2f 43 3d 2e 37 35 20 80  |2.9D(. B/C=.75 .|
0000aaa0  20 ac 20 a4 76 67 61 28  6d 6f 64 65 25 29 20 8c  | . .vga(mode%) .|
0000aab0  20 68 73 63 61 6c 65 3d  32 0d 39 4e 31 e7 20 42  | hscale=2.9N1. B|
0000aac0  2f 43 3c 3e 2e 38 20 80  20 42 2f 43 3c 3e 2e 37  |/C<>.8 . B/C<>.7|
0000aad0  35 20 80 20 ac 20 a4 76  67 61 28 6d 6f 64 65 25  |5 . . .vga(mode%|
0000aae0  29 20 68 73 63 61 6c 65  3d 34 0d 39 58 20 53 43  |) hscale=4.9X SC|
0000aaf0  77 3d 77 25 2f 38 32 3a  53 43 68 3d 68 25 2f 28  |w=w%/82:SCh=h%/(|
0000ab00  37 32 2f 68 73 63 61 6c  65 29 0d 39 62 05 cb 0d  |72/hscale).9b...|
0000ab10  39 6c 5b 21 73 63 61 6c  25 3d 77 69 25 3a 73 63  |9l[!scal%=wi%:sc|
0000ab20  61 6c 25 21 34 3d 68 65  25 3a 73 63 61 6c 25 21  |al%!4=he%:scal%!|
0000ab30  38 3d a8 28 28 77 25 2f  28 28 31 2f 53 43 77 29  |8=.((w%/((1/SCw)|
0000ab40  2f 32 29 29 2b 30 2e 35  29 3a 73 63 61 6c 25 21  |/2))+0.5):scal%!|
0000ab50  31 32 3d a8 28 28 68 25  2f 28 28 31 2f 53 43 68  |12=.((h%/((1/SCh|
0000ab60  29 2f 32 29 29 2b 30 2e  35 29 0d 39 76 4d c8 99  |)/2))+0.5).9vM..|
0000ab70  20 34 36 2c 26 31 33 34  2c 73 70 72 25 2c 63 75  | 46,&134,spr%,cu|
0000ab80  72 73 70 72 24 2c 77 6f  72 6b 78 25 2b 34 30 30  |rspr$,workx%+400|
0000ab90  2b 78 6f 66 66 2c 77 6f  72 6b 79 25 2d 33 35 32  |+xoff,worky%-352|
0000aba0  2b 79 6f 66 66 2c 38 2c  73 63 61 6c 25 2c 73 63  |+yoff,8,scal%,sc|
0000abb0  61 6c 62 6c 6f 6b 25 0d  39 80 05 cd 0d 39 8a 05  |alblok%.9....9..|
0000abc0  e1 0d 39 94 0c dd f2 61  64 64 63 6f 6c 0d 39 9e  |..9....addcol.9.|
0000abd0  10 68 65 78 63 28 69 6f  29 3d 68 65 78 0d 39 a8  |.hexc(io)=hex.9.|
0000abe0  13 f2 63 6c 6f 73 65 28  63 6f 6c 6f 75 72 25 29  |..close(colour%)|
0000abf0  0d 39 b2 14 20 21 62 6c  6f 63 6b 3d 64 65 74 61  |.9.. !block=deta|
0000ac00  69 6c 73 25 0d 39 bc 22  20 c8 99 22 57 69 6d 70  |ils%.9." .."Wimp|
0000ac10  5f 47 65 74 57 69 6e 64  6f 77 49 6e 66 6f 22 2c  |_GetWindowInfo",|
0000ac20  2c 62 6c 6f 63 6b 0d 39  c6 1c 20 77 6f 72 6b 78  |,block.9.. workx|
0000ac30  25 3d 62 6c 6f 63 6b 21  34 2d 62 6c 6f 63 6b 21  |%=block!4-block!|
0000ac40  32 30 0d 39 d0 1d 20 77  6f 72 6b 79 25 3d 62 6c  |20.9.. worky%=bl|
0000ac50  6f 63 6b 21 31 36 2d 62  6c 6f 63 6b 21 32 34 0d  |ock!16-block!24.|
0000ac60  39 da 0c 20 c8 8e 20 69  6f 20 ca 0d 39 e4 09 20  |9.. .. io ..9.. |
0000ac70  c9 20 31 3a 0d 39 ee 48  20 c8 99 22 57 69 6d 70  |. 1:.9.H .."Wimp|
0000ac80  5f 46 6f 72 63 65 52 65  64 72 61 77 22 2c 2d 31  |_ForceRedraw",-1|
0000ac90  2c 77 6f 72 6b 78 25 2b  31 31 32 30 2c 77 6f 72  |,workx%+1120,wor|
0000aca0  6b 79 25 2d 35 38 2c 77  6f 72 6b 78 25 2b 31 31  |ky%-58,workx%+11|
0000acb0  38 30 2c 77 6f 72 6b 79  25 2d 31 30 0d 39 f8 13  |80,worky%-10.9..|
0000acc0  20 f2 72 65 64 72 61 77  28 63 61 72 64 25 29 0d  | .redraw(card%).|
0000acd0  3a 02 09 20 c9 20 32 3a  0d 3a 0c 49 20 c8 99 22  |:.. . 2:.:.I .."|
0000ace0  57 69 6d 70 5f 46 6f 72  63 65 52 65 64 72 61 77  |Wimp_ForceRedraw|
0000acf0  22 2c 2d 31 2c 77 6f 72  6b 78 25 2b 31 31 32 30  |",-1,workx%+1120|
0000ad00  2c 77 6f 72 6b 79 25 2d  31 32 30 2c 77 6f 72 6b  |,worky%-120,work|
0000ad10  78 25 2b 31 31 38 30 2c  77 6f 72 6b 79 25 2d 37  |x%+1180,worky%-7|
0000ad20  32 0d 3a 16 13 20 f2 72  65 64 72 61 77 28 63 61  |2.:.. .redraw(ca|
0000ad30  72 64 25 29 0d 3a 20 09  20 c9 20 33 3a 0d 3a 2a  |rd%).: . . 3:.:*|
0000ad40  4a 20 c8 99 22 57 69 6d  70 5f 46 6f 72 63 65 52  |J .."Wimp_ForceR|
0000ad50  65 64 72 61 77 22 2c 2d  31 2c 77 6f 72 6b 78 25  |edraw",-1,workx%|
0000ad60  2b 31 31 32 30 2c 77 6f  72 6b 79 25 2d 31 38 32  |+1120,worky%-182|
0000ad70  2c 77 6f 72 6b 78 25 2b  31 31 38 30 2c 77 6f 72  |,workx%+1180,wor|
0000ad80  6b 79 25 2d 31 33 34 0d  3a 34 13 20 f2 72 65 64  |ky%-134.:4. .red|
0000ad90  72 61 77 28 63 61 72 64  25 29 0d 3a 3e 09 20 c9  |raw(card%).:>. .|
0000ada0  20 34 3a 0d 3a 48 4a 20  c8 99 22 57 69 6d 70 5f  | 4:.:HJ .."Wimp_|
0000adb0  46 6f 72 63 65 52 65 64  72 61 77 22 2c 2d 31 2c  |ForceRedraw",-1,|
0000adc0  77 6f 72 6b 78 25 2b 31  31 32 30 2c 77 6f 72 6b  |workx%+1120,work|
0000add0  79 25 2d 34 33 30 2c 77  6f 72 6b 78 25 2b 31 31  |y%-430,workx%+11|
0000ade0  38 30 2c 77 6f 72 6b 79  25 2d 33 38 32 0d 3a 52  |80,worky%-382.:R|
0000adf0  13 20 f2 72 65 64 72 61  77 28 63 61 72 64 25 29  |. .redraw(card%)|
0000ae00  0d 3a 5c 09 20 c9 20 30  3a 0d 3a 66 48 20 c8 99  |.:\. . 0:.:fH ..|
0000ae10  22 57 69 6d 70 5f 46 6f  72 63 65 52 65 64 72 61  |"Wimp_ForceRedra|
0000ae20  77 22 2c 2d 31 2c 77 6f  72 6b 78 25 2b 34 30 30  |w",-1,workx%+400|
0000ae30  2c 77 6f 72 6b 79 25 2d  33 35 32 2c 77 6f 72 6b  |,worky%-352,work|
0000ae40  78 25 2b 35 36 34 2c 77  6f 72 6b 79 25 2d 32 31  |x%+564,worky%-21|
0000ae50  30 0d 3a 70 13 20 f2 72  65 64 72 61 77 28 63 61  |0.:p. .redraw(ca|
0000ae60  72 64 25 29 0d 3a 7a 06  20 cb 0d 3a 84 05 e1 0d  |rd%).:z. ..:....|
0000ae70  3a 8e 10 dd f2 64 72 61  77 73 70 72 69 74 65 0d  |:....drawsprite.|
0000ae80  3a 98 12 e7 20 63 75 72  73 70 72 24 3d 22 22 20  |:... curspr$="" |
0000ae90  e1 0d 3a a2 13 21 62 6c  6f 63 6b 3d 64 65 74 61  |..:..!block=deta|
0000aea0  69 6c 73 25 0d 3a ac 21  c8 99 22 57 69 6d 70 5f  |ils%.:.!.."Wimp_|
0000aeb0  47 65 74 57 69 6e 64 6f  77 49 6e 66 6f 22 2c 2c  |GetWindowInfo",,|
0000aec0  62 6c 6f 63 6b 0d 3a b6  1b 77 6f 72 6b 78 25 3d  |block.:..workx%=|
0000aed0  62 6c 6f 63 6b 21 34 2d  62 6c 6f 63 6b 21 32 30  |block!4-block!20|
0000aee0  0d 3a c0 1c 77 6f 72 6b  79 25 3d 62 6c 6f 63 6b  |.:..worky%=block|
0000aef0  21 31 36 2d 62 6c 6f 63  6b 21 32 34 0d 3a ca 47  |!16-block!24.:.G|
0000af00  c8 99 22 57 69 6d 70 5f  46 6f 72 63 65 52 65 64  |.."Wimp_ForceRed|
0000af10  72 61 77 22 2c 2d 31 2c  77 6f 72 6b 78 25 2b 34  |raw",-1,workx%+4|
0000af20  30 30 2c 77 6f 72 6b 79  25 2d 33 35 32 2c 77 6f  |00,worky%-352,wo|
0000af30  72 6b 78 25 2b 35 36 34  2c 77 6f 72 6b 79 25 2d  |rkx%+564,worky%-|
0000af40  32 30 38 0d 3a d4 10 21  62 6c 6f 63 6b 3d 63 61  |208.:..!block=ca|
0000af50  72 64 25 0d 3a de 22 c8  99 22 57 69 6d 70 5f 47  |rd%.:.".."Wimp_G|
0000af60  65 74 57 69 6e 64 6f 77  53 74 61 74 65 22 2c 2c  |etWindowState",,|
0000af70  62 6c 6f 63 6b 0d 3a e8  1b 6f 70 65 6e 3d 62 6c  |block.:..open=bl|
0000af80  6f 63 6b 21 33 32 20 80  20 28 31 3c 3c 31 36 29  |ock!32 . (1<<16)|
0000af90  0d 3a f2 0f e7 20 6f 70  65 6e 3c 3e 30 20 8c 0d  |.:... open<>0 ..|
0000afa0  3a fc 10 21 62 6c 6f 63  6b 3d 63 61 72 64 25 0d  |:..!block=card%.|
0000afb0  3b 06 21 c8 99 22 57 69  6d 70 5f 47 65 74 57 69  |;.!.."Wimp_GetWi|
0000afc0  6e 64 6f 77 49 6e 66 6f  22 2c 2c 62 6c 6f 63 6b  |ndowInfo",,block|
0000afd0  0d 3b 10 1b 77 6f 72 6b  78 25 3d 62 6c 6f 63 6b  |.;..workx%=block|
0000afe0  21 34 2d 62 6c 6f 63 6b  21 32 30 0d 3b 1a 1c 77  |!4-block!20.;..w|
0000aff0  6f 72 6b 79 25 3d 62 6c  6f 63 6b 21 31 36 2d 62  |orky%=block!16-b|
0000b000  6c 6f 63 6b 21 32 34 0d  3b 24 47 c8 99 22 57 69  |lock!24.;$G.."Wi|
0000b010  6d 70 5f 46 6f 72 63 65  52 65 64 72 61 77 22 2c  |mp_ForceRedraw",|
0000b020  2d 31 2c 77 6f 72 6b 78  25 2b 33 39 30 2c 77 6f  |-1,workx%+390,wo|
0000b030  72 6b 79 25 2d 33 30 30  2c 77 6f 72 6b 78 25 2b  |rky%-300,workx%+|
0000b040  35 36 34 2c 77 6f 72 6b  79 25 2d 31 35 36 0d 3b  |564,worky%-156.;|
0000b050  2e 05 cd 0d 3b 38 05 cd  0d 3b 42 05 e1 0d 3b 4c  |....;8...;B...;L|
0000b060  14 dd a4 63 6c 61 69 6d  28 61 6d 6f 75 6e 74 25  |...claim(amount%|
0000b070  29 0d 3b 56 28 c8 99 22  4f 53 5f 48 65 61 70 22  |).;V(.."OS_Heap"|
0000b080  2c 36 2c 68 65 61 70 25  2c 73 70 70 6f 6f 6c 25  |,6,heap%,sppool%|
0000b090  20 b8 20 2c 2c 2c 6f 68  73 0d 3b 60 34 c8 99 22  | . ,,,ohs.;`4.."|
0000b0a0  4f 53 5f 48 65 61 70 22  2c 34 2c 68 65 61 70 25  |OS_Heap",4,heap%|
0000b0b0  2c 73 70 70 6f 6f 6c 25  2c 31 30 32 34 2d 6f 68  |,sppool%,1024-oh|
0000b0c0  73 20 b8 20 2c 2c 73 70  70 6f 6f 6c 25 0d 3b 6a  |s . ,,sppool%.;j|
0000b0d0  56 e7 20 6f 72 69 67 68  65 61 70 2d 68 73 69 7a  |V. origheap-hsiz|
0000b0e0  65 62 3c 30 20 8c 20 c8  99 22 4f 53 5f 48 65 61  |eb<0 . .."OS_Hea|
0000b0f0  70 22 2c 35 2c 68 65 61  70 25 2c 2c 6f 72 69 67  |p",5,heap%,,orig|
0000b100  68 65 61 70 2d 68 73 69  7a 65 62 3a 68 73 69 7a  |heap-hsizeb:hsiz|
0000b110  65 62 2b 3d 6f 72 69 67  68 65 61 70 2d 68 73 69  |eb+=origheap-hsi|
0000b120  7a 65 62 0d 3b 74 25 c8  99 22 57 69 6d 70 5f 53  |zeb.;t%.."Wimp_S|
0000b130  6c 6f 74 53 69 7a 65 22  2c 2d 31 2c 2d 31 20 b8  |lotSize",-1,-1 .|
0000b140  20 63 75 72 72 65 6e 74  0d 3b 7e 1d c8 99 22 57  | current.;~..."W|
0000b150  69 6d 70 5f 53 6c 6f 74  53 69 7a 65 22 2c 6f 72  |imp_SlotSize",or|
0000b160  69 67 2c 2d 31 0d 3b 88  05 cd 0d 3b 92 21 e7 20  |ig,-1.;....;.!. |
0000b170  61 6d 6f 75 6e 74 25 3e  35 31 32 20 80 20 61 6d  |amount%>512 . am|
0000b180  6f 75 6e 74 25 3c 6d 61  78 20 8c 0d 3b 9c 38 c8  |ount%<max ..;.8.|
0000b190  99 22 4f 53 5f 48 65 61  70 22 2c 34 2c 68 65 61  |."OS_Heap",4,hea|
0000b1a0  70 25 2c 73 70 70 6f 6f  6c 25 2c 61 6d 6f 75 6e  |p%,sppool%,amoun|
0000b1b0  74 25 2d 31 30 32 34 20  b8 20 2c 2c 73 70 70 6f  |t%-1024 . ,,sppo|
0000b1c0  6f 6c 25 0d 3b a6 05 cd  0d 3b b0 21 e7 20 61 6d  |ol%.;....;.!. am|
0000b1d0  6f 75 6e 74 25 3e 35 31  32 20 80 20 61 6d 6f 75  |ount%>512 . amou|
0000b1e0  6e 74 25 3e 6d 61 78 20  8c 0d 3b ba 30 c8 99 22  |nt%>max ..;.0.."|
0000b1f0  57 69 6d 70 5f 53 6c 6f  74 53 69 7a 65 22 2c 6f  |Wimp_SlotSize",o|
0000b200  72 69 67 2b 28 61 6d 6f  75 6e 74 25 2d 6d 61 78  |rig+(amount%-max|
0000b210  29 2b 31 30 32 34 2c 2d  31 0d 3b c4 26 69 6e 63  |)+1024,-1.;.&inc|
0000b220  72 65 61 73 65 3d 28 61  6d 6f 75 6e 74 25 2d 68  |rease=(amount%-h|
0000b230  73 69 7a 65 62 29 81 34  2a 34 2b 31 30 32 34 0d  |sizeb).4*4+1024.|
0000b240  3b ce 21 c8 99 22 4f 53  5f 48 65 61 70 22 2c 35  |;.!.."OS_Heap",5|
0000b250  2c 68 65 61 70 25 2c 2c  69 6e 63 72 65 61 73 65  |,heap%,,increase|
0000b260  0d 3b d8 14 68 73 69 7a  65 62 2b 3d 69 6e 63 72  |.;..hsizeb+=incr|
0000b270  65 61 73 65 0d 3b e2 38  c8 99 22 4f 53 5f 48 65  |ease.;.8.."OS_He|
0000b280  61 70 22 2c 34 2c 68 65  61 70 25 2c 73 70 70 6f  |ap",4,heap%,sppo|
0000b290  6f 6c 25 2c 61 6d 6f 75  6e 74 25 2d 31 30 32 34  |ol%,amount%-1024|
0000b2a0  20 b8 20 2c 2c 73 70 70  6f 6f 6c 25 0d 3b ec 05  | . ,,sppool%.;..|
0000b2b0  cd 0d 3b f6 0c 3d 73 70  70 6f 6f 6c 25 0d 3c 00  |..;..=sppool%.<.|
0000b2c0  0e dd a4 76 67 61 28 6d  6f 64 29 0d 3c 0a 27 c8  |...vga(mod).<.'.|
0000b2d0  99 22 4f 53 5f 52 65 61  64 4d 6f 64 65 56 61 72  |."OS_ReadModeVar|
0000b2e0  69 61 62 6c 65 22 2c 6d  6f 64 2c 31 31 20 b8 2c  |iable",mod,11 .,|
0000b2f0  2c 63 0d 3c 14 27 c8 99  22 4f 53 5f 52 65 61 64  |,c.<.'.."OS_Read|
0000b300  4d 6f 64 65 56 61 72 69  61 62 6c 65 22 2c 6d 6f  |ModeVariable",mo|
0000b310  64 2c 31 32 20 b8 2c 2c  62 0d 3c 1e 0d 63 2b 3d  |d,12 .,,b.<..c+=|
0000b320  31 3a 62 2b 3d 31 0d 3c  28 0c c8 8e 20 62 2f 63  |1:b+=1.<(... b/c|
0000b330  20 ca 0d 3c 32 0d c9 20  30 2e 38 3a 67 3d b9 0d  | ..<2.. 0.8:g=..|
0000b340  3c 3c 0d c9 20 2e 37 35  3a 67 3d b9 0d 3c 46 0a  |<<.. .75:g=..<F.|
0000b350  7f 3a 20 67 3d a3 0d 3c  50 05 cb 0d 3c 5a 06 3d  |.: g=..<P...<Z.=|
0000b360  67 0d 3c 64 10 dd f2 61  72 65 79 6f 75 73 75 72  |g.<d...areyousur|
0000b370  65 0d 3c 6e 0f e7 20 ac  20 73 61 76 65 66 20 8c  |e.<n.. . savef .|
0000b380  0d 3c 78 13 f2 6f 70 65  6e 77 69 6e 28 71 75 69  |.<x..openwin(qui|
0000b390  74 25 29 0d 3c 82 07 ef  20 37 0d 3c 8c 31 f2 69  |t%).<... 7.<.1.i|
0000b3a0  6e 66 6f 28 71 75 69 74  25 2c 31 2c 22 59 6f 75  |nfo(quit%,1,"You|
0000b3b0  72 20 66 69 6c 65 20 68  61 73 20 62 65 65 6e 20  |r file has been |
0000b3c0  6d 6f 64 69 66 69 65 64  2e 22 29 0d 3c 96 4d 21  |modified.").<.M!|
0000b3d0  62 6c 6f 63 6b 3d 31 33  30 3a 62 6c 6f 63 6b 21  |block=130:block!|
0000b3e0  34 3d 31 33 31 3a 62 6c  6f 63 6b 21 38 3d 2d 31  |4=131:block!8=-1|
0000b3f0  3a c8 99 22 4f 53 5f 52  65 61 64 56 64 75 56 61  |:.."OS_ReadVduVa|
0000b400  72 69 61 62 6c 65 73 22  2c 62 6c 6f 63 6b 2c 62  |riables",block,b|
0000b410  6c 6f 63 6b 2b 31 32 38  0d 3c a0 25 c8 99 22 4f  |lock+128.<.%.."O|
0000b420  53 5f 52 65 61 64 4d 6f  64 65 56 61 72 69 61 62  |S_ReadModeVariab|
0000b430  6c 65 22 2c eb 2c 34 20  b8 20 2c 2c 78 0d 3c aa  |le",.,4 . ,,x.<.|
0000b440  25 c8 99 22 4f 53 5f 52  65 61 64 4d 6f 64 65 56  |%.."OS_ReadModeV|
0000b450  61 72 69 61 62 6c 65 22  2c eb 2c 35 20 b8 20 2c  |ariable",.,5 . ,|
0000b460  2c 79 0d 3c b4 39 c8 97  20 c8 93 20 30 2c 30 2c  |,y.<.9.. .. 0,0,|
0000b470  28 28 28 62 6c 6f 63 6b  21 31 32 38 29 2b 31 29  |(((block!128)+1)|
0000b480  2a 32 5e 78 29 2d 31 2c  28 28 62 6c 6f 63 6b 21  |*2^x)-1,((block!|
0000b490  31 33 32 29 2b 31 29 2a  32 5e 79 0d 3c be 05 cd  |132)+1)*2^y.<...|
0000b4a0  0d 3c c8 32 e7 20 73 61  76 65 66 20 c8 99 72 65  |.<.2. savef ..re|
0000b4b0  69 6e 74 65 72 2c 6d 79  74 61 73 6b 25 3a c8 99  |inter,mytask%:..|
0000b4c0  22 57 69 6d 70 5f 43 6c  6f 73 65 44 6f 77 6e 22  |"Wimp_CloseDown"|
0000b4d0  3a e0 0d 3c d2 05 e1 0d  3c dc 10 dd f2 71 75 65  |:..<....<....que|
0000b4e0  72 79 28 71 75 24 29 0d  3c e6 14 f2 6f 70 65 6e  |ry(qu$).<...open|
0000b4f0  77 69 6e 28 71 75 65 72  79 25 29 0d 3c f0 07 ef  |win(query%).<...|
0000b500  20 37 0d 3c fa 11 21 62  6c 6f 63 6b 3d 71 75 65  | 7.<..!block=que|
0000b510  72 79 25 0d 3d 04 21 c8  99 22 57 69 6d 70 5f 47  |ry%.=.!.."Wimp_G|
0000b520  65 74 57 69 6e 64 6f 77  49 6e 66 6f 22 2c 2c 62  |etWindowInfo",,b|
0000b530  6c 6f 63 6b 0d 3d 0e 1b  77 6f 72 6b 78 25 3d 62  |lock.=..workx%=b|
0000b540  6c 6f 63 6b 21 31 32 2d  62 6c 6f 63 6b 21 34 0d  |lock!12-block!4.|
0000b550  3d 18 1b 77 6f 72 6b 79  25 3d 62 6c 6f 63 6b 21  |=..worky%=block!|
0000b560  31 36 2d 62 6c 6f 63 6b  21 38 0d 3d 22 27 c8 97  |16-block!8.="'..|
0000b570  20 c8 93 20 62 6c 6f 63  6b 21 34 2c 62 6c 6f 63  | .. block!4,bloc|
0000b580  6b 21 38 2c 77 6f 72 6b  78 25 2c 77 6f 72 6b 79  |k!8,workx%,worky|
0000b590  25 0d 3d 2c 17 f2 69 6e  66 6f 28 71 75 65 72 79  |%.=,..info(query|
0000b5a0  25 2c 31 2c 71 75 24 29  0d 3d 36 05 e1 0d 3d 40  |%,1,qu$).=6...=@|
0000b5b0  0a dd f2 65 6e 64 71 0d  3d 4a 12 f2 63 6c 6f 73  |...endq.=J..clos|
0000b5c0  65 28 71 75 65 72 79 25  29 0d 3d 54 4d 21 62 6c  |e(query%).=TM!bl|
0000b5d0  6f 63 6b 3d 31 33 30 3a  62 6c 6f 63 6b 21 34 3d  |ock=130:block!4=|
0000b5e0  31 33 31 3a 62 6c 6f 63  6b 21 38 3d 2d 31 3a c8  |131:block!8=-1:.|
0000b5f0  99 22 4f 53 5f 52 65 61  64 56 64 75 56 61 72 69  |."OS_ReadVduVari|
0000b600  61 62 6c 65 73 22 2c 62  6c 6f 63 6b 2c 62 6c 6f  |ables",block,blo|
0000b610  63 6b 2b 31 32 38 0d 3d  5e 25 c8 99 22 4f 53 5f  |ck+128.=^%.."OS_|
0000b620  52 65 61 64 4d 6f 64 65  56 61 72 69 61 62 6c 65  |ReadModeVariable|
0000b630  22 2c eb 2c 34 20 b8 20  2c 2c 78 0d 3d 68 25 c8  |",.,4 . ,,x.=h%.|
0000b640  99 22 4f 53 5f 52 65 61  64 4d 6f 64 65 56 61 72  |."OS_ReadModeVar|
0000b650  69 61 62 6c 65 22 2c eb  2c 35 20 b8 20 2c 2c 79  |iable",.,5 . ,,y|
0000b660  0d 3d 72 39 c8 97 20 c8  93 20 30 2c 30 2c 28 28  |.=r9.. .. 0,0,((|
0000b670  28 62 6c 6f 63 6b 21 31  32 38 29 2b 31 29 2a 32  |(block!128)+1)*2|
0000b680  5e 78 29 2d 31 2c 28 28  62 6c 6f 63 6b 21 31 33  |^x)-1,((block!13|
0000b690  32 29 2b 31 29 2a 32 5e  79 0d 3d 7c 05 e1 0d 3d  |2)+1)*2^y.=|...=|
0000b6a0  86 18 dd f2 74 69 74 6c  65 28 68 61 6e 64 6c 65  |....title(handle|
0000b6b0  2c 6e 65 77 24 29 0d 3d  90 11 21 69 63 6f 6e 64  |,new$).=..!icond|
0000b6c0  3d 68 61 6e 64 6c 65 0d  3d 9a 21 c8 99 22 57 69  |=handle.=.!.."Wi|
0000b6d0  6d 70 5f 47 65 74 57 69  6e 64 6f 77 49 6e 66 6f  |mp_GetWindowInfo|
0000b6e0  22 2c 2c 69 63 6f 6e 64  0d 3d a4 16 74 69 74 6c  |",,icond.=..titl|
0000b6f0  65 24 3d 24 28 69 63 6f  6e 64 21 37 36 29 0d 3d  |e$=$(icond!76).=|
0000b700  ae 0f e7 20 6e 65 77 24  3d 22 22 20 8c 0d 3d b8  |... new$="" ..=.|
0000b710  40 e7 20 c2 74 69 74 6c  65 24 2c a9 28 74 69 74  |@. .title$,.(tit|
0000b720  6c 65 24 29 2d a9 28 74  69 74 6c 65 24 29 2b 31  |le$)-.(title$)+1|
0000b730  29 3c 3e 22 2a 22 20 8c  20 6e 65 77 24 3d 74 69  |)<>"*" . new$=ti|
0000b740  74 6c 65 24 2b 22 20 2a  22 3a 8b 20 e1 0d 3d c2  |tle$+" *":. ..=.|
0000b750  05 cd 0d 3d cc 61 5f 70  25 20 3d 20 21 28 69 63  |...=.a_p% = !(ic|
0000b760  6f 6e 64 2b 37 36 29 3a  24 5f 70 25 3d 6e 65 77  |ond+76):$_p%=new|
0000b770  24 3a c8 99 22 57 69 6d  70 5f 46 6f 72 63 65 52  |$:.."Wimp_ForceR|
0000b780  65 64 72 61 77 22 2c 2d  31 2c 69 63 6f 6e 64 21  |edraw",-1,icond!|
0000b790  34 2c 28 69 63 6f 6e 64  21 31 36 29 2c 69 63 6f  |4,(icond!16),ico|
0000b7a0  6e 64 21 31 32 2c 28 69  63 6f 6e 64 21 31 36 29  |nd!12,(icond!16)|
0000b7b0  2b 33 36 0d 3d d6 05 e1  0d 3d e0 0b dd f2 70 72  |+36.=....=....pr|
0000b7c0  69 6e 74 0d 3d ea 21 6e  6f 6f 66 70 61 67 65 73  |int.=.!noofpages|
0000b7d0  3d bb 28 24 a4 69 6e 66  6f 28 70 72 69 6e 74 25  |=.($.info(print%|
0000b7e0  2c 34 29 29 0d 3d f4 66  e7 20 24 a4 69 6e 66 6f  |,4)).=.f. $.info|
0000b7f0  28 70 72 69 6e 74 25 2c  30 29 3d 22 4e 6f 74 20  |(print%,0)="Not |
0000b800  50 72 65 73 65 6e 74 22  20 8c 20 f2 71 75 65 72  |Present" . .quer|
0000b810  79 28 22 43 61 6e 20 6e  6f 74 20 70 72 69 6e 74  |y("Can not print|
0000b820  2c 20 6e 6f 20 70 72 69  6e 74 65 72 20 64 72 69  |, no printer dri|
0000b830  76 65 72 20 70 72 65 73  65 6e 74 2e 22 29 3a 6e  |ver present."):n|
0000b840  6f 70 72 69 6e 74 3d b9  3a e1 0d 3d fe 66 e7 20  |oprint=.:..=.f. |
0000b850  a4 63 68 65 63 6b 66 6c  61 67 28 70 72 69 6e 74  |.checkflag(print|
0000b860  25 2c 36 2c 32 31 29 20  8c 20 63 6f 70 69 65 73  |%,6,21) . copies|
0000b870  24 3d 22 73 69 6e 67 6c  65 20 63 61 72 64 2e 22  |$="single card."|
0000b880  3a 66 75 6c 6c 73 68 65  65 74 3d 30 3a 8b 20 63  |:fullsheet=0:. c|
0000b890  6f 70 69 65 73 24 3d 22  66 75 6c 6c 20 73 68 65  |opies$="full she|
0000b8a0  65 74 2e 22 3a 66 75 6c  6c 73 68 65 65 74 3d 31  |et.":fullsheet=1|
0000b8b0  0d 3e 08 2f c8 99 20 22  43 6f 6c 6f 75 72 54 72  |.>./.. "ColourTr|
0000b8c0  61 6e 73 5f 53 65 74 47  43 4f 4c 22 2c 26 44 44  |ans_SetGCOL",&DD|
0000b8d0  44 44 44 44 30 30 2c 2c  2c 26 31 30 30 2c 30 0d  |DDDD00,,,&100,0.|
0000b8e0  3e 12 19 c8 93 20 c8 90  20 32 38 38 2c 34 36 36  |>.... .. 288,466|
0000b8f0  2c 37 33 38 2c 31 39 34  0d 3e 1c 27 c8 99 20 22  |,738,194.>.'.. "|
0000b900  43 6f 6c 6f 75 72 54 72  61 6e 73 5f 53 65 74 47  |ColourTrans_SetG|
0000b910  43 4f 4c 22 2c 30 2c 2c  2c 26 31 30 30 2c 30 0d  |COL",0,,,&100,0.|
0000b920  3e 26 16 c8 93 20 32 38  36 2c 34 36 34 2c 37 34  |>&... 286,464,74|
0000b930  30 2c 31 39 36 0d 3e 30  1b c8 99 22 57 69 6d 70  |0,196.>0..."Wimp|
0000b940  5f 43 72 65 61 74 65 4d  65 6e 75 22 2c 2c 2d 31  |_CreateMenu",,-1|
0000b950  0d 3e 3a 07 ef 20 35 0d  3e 44 0d ec 20 34 31 30  |.>:.. 5.>D.. 410|
0000b960  2c 36 33 30 0d 3e 4e 1f  f1 20 22 50 72 69 6e 74  |,630.>N.. "Print|
0000b970  69 6e 67 20 69 6e 20 70  72 6f 67 72 65 73 73 2e  |ing in progress.|
0000b980  2e 2e 22 0d 3e 58 0d ec  20 33 38 30 2c 35 38 30  |..".>X.. 380,580|
0000b990  0d 3e 62 2e f1 20 22 50  72 69 6e 69 6e 67 20 22  |.>b.. "Prining "|
0000b9a0  3b 6e 6f 6f 66 70 61 67  65 73 3b 22 20 63 6f 70  |;noofpages;" cop|
0000b9b0  69 65 73 2c 20 22 3b 63  6f 70 69 65 73 24 0d 3e  |ies, ";copies$.>|
0000b9c0  6c 0d ec 20 34 30 30 2c  35 33 30 0d 3e 76 1e f1  |l.. 400,530.>v..|
0000b9d0  20 22 50 72 65 73 73 20  45 73 63 61 70 65 20 74  | "Press Escape t|
0000b9e0  6f 20 63 61 6e 63 65 6c  22 0d 3e 80 07 ef 20 34  |o cancel".>... 4|
0000b9f0  0d 3e 8a 0e 70 72 69 6e  74 69 6e 67 3d b9 0d 3e  |.>..printing=..>|
0000ba00  94 0a 66 68 25 3d 2d 31  0d 3e 9e 07 ea 20 85 0d  |..fh%=-1.>... ..|
0000ba10  3e a8 19 ee 20 85 20 ea  3a f7 20 85 3a f2 70 72  |>... . .:. .:.pr|
0000ba20  69 6e 74 65 72 72 3a e1  0d 3e b2 14 c8 99 22 48  |interr:..>...."H|
0000ba30  6f 75 72 67 6c 61 73 73  5f 4f 6e 22 0d 3e bc 15  |ourglass_On".>..|
0000ba40  66 68 25 3d ae 28 22 70  72 69 6e 74 65 72 3a 22  |fh%=.("printer:"|
0000ba50  29 0d 3e c6 23 c8 99 22  50 44 72 69 76 65 72 5f  |).>.#.."PDriver_|
0000ba60  53 65 6c 65 63 74 4a 6f  62 22 2c 66 68 25 20 b8  |SelectJob",fh% .|
0000ba70  20 6a 6f 62 0d 3e d0 28  c8 99 22 50 44 72 69 76  | job.>.(.."PDriv|
0000ba80  65 72 5f 50 61 67 65 53  69 7a 65 22 20 b8 2c 2c  |er_PageSize" .,,|
0000ba90  2c 6c 25 2c 62 25 2c 72  25 2c 74 25 0d 3e da 0d  |,l%,b%,r%,t%.>..|
0000baa0  62 6f 78 21 30 3d 2d 31  30 0d 3e e4 4a 6d 61 74  |box!0=-10.>.Jmat|
0000bab0  72 69 78 21 30 3d 36 36  30 30 30 3a 6d 61 74 72  |rix!0=66000:matr|
0000bac0  69 78 21 34 3d 30 3a 6d  61 74 72 69 78 21 38 3d  |ix!4=0:matrix!8=|
0000bad0  30 3a 6d 61 74 72 69 78  21 31 32 3d 36 36 30 30  |0:matrix!12=6600|
0000bae0  30 3a f4 20 36 36 30 30  30 2c 30 2c 30 2c 36 36  |0:. 66000,0,0,66|
0000baf0  30 30 30 0d 3e ee 60 e7  20 66 75 6c 6c 73 68 65  |000.>.`. fullshe|
0000bb00  65 74 3d 31 20 6f 72 69  67 69 6e 21 30 3d 6c 25  |et=1 origin!0=l%|
0000bb10  3a 6f 72 69 67 69 6e 21  34 3d 37 35 30 30 30 3a  |:origin!4=75000:|
0000bb20  62 6f 78 21 38 3d 28 32  39 30 2a 32 2e 35 29 2b  |box!8=(290*2.5)+|
0000bb30  35 38 30 3a 62 6f 78 21  31 32 3d 28 36 32 35 2a  |580:box!12=(625*|
0000bb40  32 2e 35 29 2b 34 30 30  3a 62 6f 78 21 34 3d 2d  |2.5)+400:box!4=-|
0000bb50  32 30 30 0d 3e f8 4c e7  20 66 75 6c 6c 73 68 65  |200.>.L. fullshe|
0000bb60  65 74 3d 30 20 6f 72 69  67 69 6e 21 30 3d 6c 25  |et=0 origin!0=l%|
0000bb70  3a 6f 72 69 67 69 6e 21  34 3d 36 32 33 30 30 30  |:origin!4=623000|
0000bb80  3a 62 6f 78 21 38 3d 35  39 30 3a 62 6f 78 21 31  |:box!8=590:box!1|
0000bb90  32 3d 33 39 30 3a 62 6f  78 21 34 3d 2d 31 30 0d  |2=390:box!4=-10.|
0000bba0  3f 02 3b c8 99 22 50 44  72 69 76 65 72 5f 47 69  |?.;.."PDriver_Gi|
0000bbb0  76 65 52 65 63 74 61 6e  67 6c 65 22 2c 30 2c 62  |veRectangle",0,b|
0000bbc0  6f 78 2c 6d 61 74 72 69  78 2c 6f 72 69 67 69 6e  |ox,matrix,origin|
0000bbd0  2c 26 46 46 46 46 46 46  30 30 0d 3f 0c 32 c8 99  |,&FFFFFF00.?.2..|
0000bbe0  22 50 44 72 69 76 65 72  5f 44 72 61 77 50 61 67  |"PDriver_DrawPag|
0000bbf0  65 22 2c 6e 6f 6f 66 70  61 67 65 73 2c 62 6f 78  |e",noofpages,box|
0000bc00  32 2c 30 2c 30 20 b8 20  6d 6f 72 65 0d 3f 16 0e  |2,0,0 . more.?..|
0000bc10  c8 95 20 6d 6f 72 65 3c  3e 30 0d 3f 20 09 f2 64  |.. more<>0.? ..d|
0000bc20  72 61 77 0d 3f 2a 2a c8  99 22 50 44 72 69 76 65  |raw.?**.."PDrive|
0000bc30  72 5f 47 65 74 52 65 63  74 61 6e 67 6c 65 22 2c  |r_GetRectangle",|
0000bc40  30 2c 62 6f 78 32 20 b8  20 6d 6f 72 65 0d 3f 34  |0,box2 . more.?4|
0000bc50  05 ce 0d 3f 3e 1a c8 99  22 50 44 72 69 76 65 72  |...?>..."PDriver|
0000bc60  5f 45 6e 64 4a 6f 62 22  2c 66 68 25 0d 3f 48 09  |_EndJob",fh%.?H.|
0000bc70  d9 23 66 68 25 0d 3f 52  1d c8 99 22 50 44 72 69  |.#fh%.?R..."PDri|
0000bc80  76 65 72 5f 53 65 6c 65  63 74 4a 6f 62 22 2c 6a  |ver_SelectJob",j|
0000bc90  6f 62 0d 3f 5c 17 c8 99  22 48 6f 75 72 67 6c 61  |ob.?\..."Hourgla|
0000bca0  73 73 5f 53 6d 61 73 68  22 0d 3f 66 33 c8 99 22  |ss_Smash".?f3.."|
0000bcb0  57 69 6d 70 5f 46 6f 72  63 65 52 65 64 72 61 77  |Wimp_ForceRedraw|
0000bcc0  22 2c 2d 31 2c 32 38 36  2c 34 36 34 2c 37 34 30  |",-1,286,464,740|
0000bcd0  2b 32 38 38 2c 31 39 36  2b 34 36 36 0d 3f 70 05  |+288,196+466.?p.|
0000bce0  e1 0d 3f 7a 0a dd f2 64  72 61 77 0d 3f 84 13 e7  |..?z...draw.?...|
0000bcf0  20 66 75 6c 6c 73 68 65  65 74 3d 31 20 8c 0d 3f  | fullsheet=1 ..?|
0000bd00  8e 17 e3 20 63 61 72 64  63 6f 3d 31 20 b8 20 31  |... cardco=1 . 1|
0000bd10  36 20 88 20 32 0d 3f 98  38 f2 64 72 61 77 63 61  |6 . 2.?.8.drawca|
0000bd20  72 64 28 63 61 72 64 70  6f 73 28 63 61 72 64 63  |rd(cardpos(cardc|
0000bd30  6f 29 2a 32 2e 35 2c 63  61 72 64 70 6f 73 28 63  |o)*2.5,cardpos(c|
0000bd40  61 72 64 63 6f 2b 31 29  2a 32 2e 35 29 0d 3f a2  |ardco+1)*2.5).?.|
0000bd50  3a f2 63 61 72 64 73 70  72 69 74 65 28 63 61 72  |:.cardsprite(car|
0000bd60  64 70 6f 73 28 63 61 72  64 63 6f 29 2a 32 2e 35  |dpos(cardco)*2.5|
0000bd70  2c 63 61 72 64 70 6f 73  28 63 61 72 64 63 6f 2b  |,cardpos(cardco+|
0000bd80  31 29 2a 32 2e 35 29 0d  3f ac 0c ed 20 63 61 72  |1)*2.5).?... car|
0000bd90  64 63 6f 0d 3f b6 05 cc  0d 3f c0 15 f2 64 72 61  |dco.?....?...dra|
0000bda0  77 63 61 72 64 28 31 30  2c 33 38 30 29 0d 3f ca  |wcard(10,380).?.|
0000bdb0  17 f2 63 61 72 64 73 70  72 69 74 65 28 31 30 2c  |..cardsprite(10,|
0000bdc0  33 38 30 29 0d 3f d4 05  cd 0d 3f de 05 e1 0d 3f  |380).?....?....?|
0000bdd0  e8 19 dd f2 64 72 61 77  63 61 72 64 28 70 78 63  |....drawcard(pxc|
0000bde0  6f 2c 70 79 63 6f 29 0d  3f f2 2d c8 99 20 22 43  |o,pyco).?.-.. "C|
0000bdf0  6f 6c 6f 75 72 54 72 61  6e 73 5f 53 65 74 47 43  |olourTrans_SetGC|
0000be00  4f 4c 22 2c 68 65 78 63  28 30 29 2c 2c 2c 26 31  |OL",hexc(0),,,&1|
0000be10  30 30 2c 30 0d 3f fc 21  c8 93 20 c8 90 20 70 78  |00,0.?.!.. .. px|
0000be20  63 6f 2b 38 2c 70 79 63  6f 2d 33 38 36 2c 35 36  |co+8,pyco-386,56|
0000be30  36 2c 33 37 38 0d 40 06  27 c8 99 20 22 43 6f 6c  |6,378.@.'.. "Col|
0000be40  6f 75 72 54 72 61 6e 73  5f 53 65 74 47 43 4f 4c  |ourTrans_SetGCOL|
0000be50  22 2c 30 2c 2c 2c 26 31  30 30 2c 30 0d 40 10 1e  |",0,,,&100,0.@..|
0000be60  c8 93 20 70 78 63 6f 2b  36 2c 70 79 63 6f 2d 33  |.. pxco+6,pyco-3|
0000be70  38 36 2c 35 36 38 2c 33  38 30 0d 40 1a 1e c8 93  |86,568,380.@....|
0000be80  20 70 78 63 6f 2b 34 2c  70 79 63 6f 2d 33 38 38  | pxco+4,pyco-388|
0000be90  2c 35 36 38 2c 33 38 30  0d 40 24 39 6e 61 6d 65  |,568,380.@$9name|
0000bea0  24 3d 24 a4 69 6e 66 6f  28 64 65 74 61 69 6c 73  |$=$.info(details|
0000beb0  25 2c 30 29 3a 66 6f 6e  74 6e 61 6d 65 24 3d 24  |%,0):fontname$=$|
0000bec0  a4 69 6e 66 6f 28 64 65  74 61 69 6c 73 25 2c 33  |.info(details%,3|
0000bed0  29 0d 40 2e 40 73 69 7a  65 6e 61 6d 65 3d bb 28  |).@.@sizename=.(|
0000bee0  24 a4 69 6e 66 6f 28 64  65 74 61 69 6c 73 25 2c  |$.info(details%,|
0000bef0  33 31 29 29 3a 68 6e 61  6d 65 3d bb 28 24 a4 69  |31)):hname=.($.i|
0000bf00  6e 66 6f 28 64 65 74 61  69 6c 73 25 2c 31 33 29  |nfo(details%,13)|
0000bf10  29 0d 40 38 3b 65 78 74  72 61 24 3d 24 a4 69 6e  |).@8;extra$=$.in|
0000bf20  66 6f 28 64 65 74 61 69  6c 73 25 2c 35 29 3a 66  |fo(details%,5):f|
0000bf30  6f 6e 74 65 78 74 72 61  24 3d 24 a4 69 6e 66 6f  |ontextra$=$.info|
0000bf40  28 64 65 74 61 69 6c 73  25 2c 32 29 0d 40 42 42  |(details%,2).@BB|
0000bf50  73 69 7a 65 65 78 74 72  61 3d bb 28 24 a4 69 6e  |sizeextra=.($.in|
0000bf60  66 6f 28 64 65 74 61 69  6c 73 25 2c 33 32 29 29  |fo(details%,32))|
0000bf70  3a 68 65 78 74 72 61 3d  bb 28 24 a4 69 6e 66 6f  |:hextra=.($.info|
0000bf80  28 64 65 74 61 69 6c 73  25 2c 31 34 29 29 0d 40  |(details%,14)).@|
0000bf90  4c 38 61 64 31 24 3d 24  a4 69 6e 66 6f 28 64 65  |L8ad1$=$.info(de|
0000bfa0  74 61 69 6c 73 25 2c 36  29 3a 66 6f 6e 74 61 64  |tails%,6):fontad|
0000bfb0  31 24 3d 24 a4 69 6e 66  6f 28 64 65 74 61 69 6c  |1$=$.info(detail|
0000bfc0  73 25 2c 31 39 29 0d 40  56 3e 73 69 7a 65 61 64  |s%,19).@V>sizead|
0000bfd0  31 3d bb 28 24 a4 69 6e  66 6f 28 64 65 74 61 69  |1=.($.info(detai|
0000bfe0  6c 73 25 2c 33 33 29 29  3a 68 61 64 31 3d bb 28  |ls%,33)):had1=.(|
0000bff0  24 a4 69 6e 66 6f 28 64  65 74 61 69 6c 73 25 2c  |$.info(details%,|
0000c000  31 37 29 29 0d 40 60 1b  61 64 32 24 3d 24 a4 69  |17)).@`.ad2$=$.i|
0000c010  6e 66 6f 28 64 65 74 61  69 6c 73 25 2c 37 29 0d  |nfo(details%,7).|
0000c020  40 6a 1c 61 64 33 24 3d  24 a4 69 6e 66 6f 28 64  |@j.ad3$=$.info(d|
0000c030  65 74 61 69 6c 73 25 2c  31 38 29 0d 40 74 1c 61  |etails%,18).@t.a|
0000c040  64 34 24 3d 24 a4 69 6e  66 6f 28 64 65 74 61 69  |d4$=$.info(detai|
0000c050  6c 73 25 2c 31 30 29 0d  40 7e 38 74 65 6c 24 3d  |ls%,10).@~8tel$=|
0000c060  24 a4 69 6e 66 6f 28 64  65 74 61 69 6c 73 25 2c  |$.info(details%,|
0000c070  32 31 29 3a 66 6f 6e 74  74 65 6c 24 3d 24 a4 69  |21):fonttel$=$.i|
0000c080  6e 66 6f 28 64 65 74 61  69 6c 73 25 2c 34 29 0d  |nfo(details%,4).|
0000c090  40 88 3e 73 69 7a 65 74  65 6c 3d bb 28 24 a4 69  |@.>sizetel=.($.i|
0000c0a0  6e 66 6f 28 64 65 74 61  69 6c 73 25 2c 33 34 29  |nfo(details%,34)|
0000c0b0  29 3a 68 74 65 6c 3d bb  28 24 a4 69 6e 66 6f 28  |):htel=.($.info(|
0000c0c0  64 65 74 61 69 6c 73 25  2c 31 35 29 29 0d 40 92  |details%,15)).@.|
0000c0d0  52 e7 20 73 69 7a 65 6e  61 6d 65 3d 30 20 8c 20  |R. sizename=0 . |
0000c0e0  73 69 7a 65 6e 61 6d 65  3d 32 30 3a f2 6d 65 73  |sizename=20:.mes|
0000c0f0  73 28 22 46 6f 6e 74 20  73 69 7a 65 73 20 63 61  |s("Font sizes ca|
0000c100  6e 20 6e 6f 74 20 62 65  20 30 22 29 3a 6e 6f 6e  |n not be 0"):non|
0000c110  6f 3d 31 3a 6e 73 3d 32  30 3a 6e 69 3d 31 33 0d  |o=1:ns=20:ni=13.|
0000c120  40 9c 54 e7 20 73 69 7a  65 65 78 74 72 61 3d 30  |@.T. sizeextra=0|
0000c130  20 8c 20 73 69 7a 65 65  78 74 72 61 3d 31 36 3a  | . sizeextra=16:|
0000c140  f2 6d 65 73 73 28 22 46  6f 6e 74 20 73 69 7a 65  |.mess("Font size|
0000c150  73 20 63 61 6e 20 6e 6f  74 20 62 65 20 30 22 29  |s can not be 0")|
0000c160  3a 6e 6f 6e 6f 3d 31 3a  6e 73 3d 31 36 3a 6e 69  |:nono=1:ns=16:ni|
0000c170  3d 31 34 0d 40 a6 50 e7  20 73 69 7a 65 61 64 31  |=14.@.P. sizead1|
0000c180  3d 30 20 8c 20 73 69 7a  65 61 64 31 3d 31 34 3a  |=0 . sizead1=14:|
0000c190  f2 6d 65 73 73 28 22 46  6f 6e 74 20 73 69 7a 65  |.mess("Font size|
0000c1a0  73 20 63 61 6e 20 6e 6f  74 20 62 65 20 30 22 29  |s can not be 0")|
0000c1b0  3a 6e 6f 6e 6f 3d 31 3a  6e 73 3d 31 34 3a 6e 69  |:nono=1:ns=14:ni|
0000c1c0  3d 31 37 0d 40 b0 50 e7  20 73 69 7a 65 74 65 6c  |=17.@.P. sizetel|
0000c1d0  3d 30 20 8c 20 73 69 7a  65 74 65 6c 3d 31 36 3a  |=0 . sizetel=16:|
0000c1e0  f2 6d 65 73 73 28 22 46  6f 6e 74 20 73 69 7a 65  |.mess("Font size|
0000c1f0  73 20 63 61 6e 20 6e 6f  74 20 62 65 20 30 22 29  |s can not be 0")|
0000c200  3a 6e 6f 6e 6f 3d 31 3a  6e 73 3d 31 36 3a 6e 69  |:nono=1:ns=16:ni|
0000c210  3d 31 35 0d 40 ba 13 66  6f 6e 74 24 3d 66 6f 6e  |=15.@..font$=fon|
0000c220  74 6e 61 6d 65 24 0d 40  c4 2c 78 3d a4 77 69 64  |tname$.@.,x=.wid|
0000c230  74 68 28 6e 61 6d 65 24  2c 66 6f 6e 74 6e 61 6d  |th(name$,fontnam|
0000c240  65 24 2c 73 69 7a 65 6e  61 6d 65 2c 68 6e 61 6d  |e$,sizename,hnam|
0000c250  65 29 0d 40 ce 5d e7 20  78 3d 30 20 80 20 6e 61  |e).@.]. x=0 . na|
0000c260  6d 65 24 3c 3e 22 22 20  8c 20 f2 6d 65 73 73 28  |me$<>"" . .mess(|
0000c270  22 54 68 65 20 6e 61 6d  65 20 74 65 78 74 20 69  |"The name text i|
0000c280  73 20 74 6f 6f 20 6c 6f  6e 67 20 6f 72 20 74 68  |s too long or th|
0000c290  65 20 66 6f 6e 74 20 69  73 20 74 6f 6f 20 6c 61  |e font is too la|
0000c2a0  72 67 65 22 29 3a 63 6c  6f 73 65 3d 31 3a e1 0d  |rge"):close=1:..|
0000c2b0  40 d8 19 20 78 63 6f 3d  35 36 36 2d 78 3a 78 63  |@.. xco=566-x:xc|
0000c2c0  6f 3d 78 63 6f 2f 32 3a  0d 40 e2 3a 20 c8 99 20  |o=xco/2:.@.: .. |
0000c2d0  22 43 6f 6c 6f 75 72 54  72 61 6e 73 5f 53 65 74  |"ColourTrans_Set|
0000c2e0  46 6f 6e 74 43 6f 6c 6f  75 72 73 22 2c 66 6f 6e  |FontColours",fon|
0000c2f0  74 25 2c 68 65 78 63 28  31 29 2c 68 65 78 63 28  |t%,hexc(1),hexc(|
0000c300  31 29 0d 40 ec 34 20 c8  99 22 46 6f 6e 74 5f 50  |1).@.4 .."Font_P|
0000c310  61 69 6e 74 22 2c 2c 6e  61 6d 65 24 2c 25 31 30  |aint",,name$,%10|
0000c320  30 31 30 2c 70 78 63 6f  2b 78 63 6f 2b 38 2c 70  |010,pxco+xco+8,p|
0000c330  79 63 6f 2d 37 30 0d 40  f6 2d c8 99 20 22 43 6f  |yco-70.@.-.. "Co|
0000c340  6c 6f 75 72 54 72 61 6e  73 5f 53 65 74 47 43 4f  |lourTrans_SetGCO|
0000c350  4c 22 2c 68 65 78 63 28  31 29 2c 2c 2c 26 31 30  |L",hexc(1),,,&10|
0000c360  30 2c 30 0d 41 00 2c c8  93 20 c8 90 70 78 63 6f  |0,0.A.,.. ..pxco|
0000c370  2b 78 63 6f 2b 35 2c 70  79 63 6f 2d 37 34 2c 35  |+xco+5,pyco-74,5|
0000c380  36 36 2d 78 63 6f 2d 78  63 6f 2b 33 2c 2d 34 0d  |66-xco-xco+3,-4.|
0000c390  41 0a 14 66 6f 6e 74 24  3d 66 6f 6e 74 65 78 74  |A..font$=fontext|
0000c3a0  72 61 24 0d 41 14 30 78  3d a4 77 69 64 74 68 28  |ra$.A.0x=.width(|
0000c3b0  65 78 74 72 61 24 2c 66  6f 6e 74 65 78 74 72 61  |extra$,fontextra|
0000c3c0  24 2c 73 69 7a 65 65 78  74 72 61 2c 68 65 78 74  |$,sizeextra,hext|
0000c3d0  72 61 29 0d 41 1e 5f e7  20 78 3d 30 20 80 20 65  |ra).A._. x=0 . e|
0000c3e0  78 74 72 61 24 3c 3e 22  22 20 8c 20 f2 6d 65 73  |xtra$<>"" . .mes|
0000c3f0  73 28 22 54 68 65 20 74  72 61 64 65 20 74 65 78  |s("The trade tex|
0000c400  74 20 69 73 20 74 6f 6f  20 6c 6f 6e 67 20 6f 72  |t is too long or|
0000c410  20 74 68 65 20 66 6f 6e  74 20 69 73 20 74 6f 6f  | the font is too|
0000c420  20 6c 61 72 67 65 22 29  3a 63 6c 6f 73 65 3d 31  | large"):close=1|
0000c430  3a e1 0d 41 28 17 78 63  6f 3d 35 36 36 2d 78 3a  |:..A(.xco=566-x:|
0000c440  78 63 6f 3d 78 63 6f 2f  32 0d 41 32 3a 20 c8 99  |xco=xco/2.A2: ..|
0000c450  20 22 43 6f 6c 6f 75 72  54 72 61 6e 73 5f 53 65  | "ColourTrans_Se|
0000c460  74 46 6f 6e 74 43 6f 6c  6f 75 72 73 22 2c 66 6f  |tFontColours",fo|
0000c470  6e 74 25 2c 68 65 78 63  28 32 29 2c 68 65 78 63  |nt%,hexc(2),hexc|
0000c480  28 32 29 0d 41 3c 35 c8  99 22 46 6f 6e 74 5f 50  |(2).A<5.."Font_P|
0000c490  61 69 6e 74 22 2c 2c 65  78 74 72 61 24 2c 25 31  |aint",,extra$,%1|
0000c4a0  30 30 31 30 2c 70 78 63  6f 2b 78 63 6f 2b 38 2c  |0010,pxco+xco+8,|
0000c4b0  70 79 63 6f 2d 31 33 30  0d 41 46 12 66 6f 6e 74  |pyco-130.AF.font|
0000c4c0  24 3d 66 6f 6e 74 61 64  31 24 0d 41 50 28 78 3d  |$=fontad1$.AP(x=|
0000c4d0  a4 77 69 64 74 68 28 61  64 31 24 2c 66 6f 6e 74  |.width(ad1$,font|
0000c4e0  61 64 31 24 2c 73 69 7a  65 61 64 31 2c 68 61 64  |ad1$,sizead1,had|
0000c4f0  31 29 0d 41 5a 6b e7 20  61 64 31 24 3e 22 22 20  |1).AZk. ad1$>"" |
0000c500  80 20 78 3d 30 20 84 20  78 3e 35 33 30 20 20 8c  |. x=0 . x>530  .|
0000c510  20 f2 6d 65 73 73 28 22  54 68 65 20 31 73 74 20  | .mess("The 1st |
0000c520  61 64 64 72 65 73 73 20  74 65 78 74 20 69 73 20  |address text is |
0000c530  74 6f 6f 20 6c 6f 6e 67  20 6f 72 20 74 68 65 20  |too long or the |
0000c540  66 6f 6e 74 20 69 73 20  74 6f 6f 20 6c 61 72 67  |font is too larg|
0000c550  65 22 29 3a 63 6c 6f 73  65 3d 31 3a e1 0d 41 64  |e"):close=1:..Ad|
0000c560  3a 20 c8 99 20 22 43 6f  6c 6f 75 72 54 72 61 6e  |: .. "ColourTran|
0000c570  73 5f 53 65 74 46 6f 6e  74 43 6f 6c 6f 75 72 73  |s_SetFontColours|
0000c580  22 2c 66 6f 6e 74 25 2c  68 65 78 63 28 33 29 2c  |",font%,hexc(3),|
0000c590  68 65 78 63 28 33 29 0d  41 6e 30 c8 99 22 46 6f  |hexc(3).An0.."Fo|
0000c5a0  6e 74 5f 50 61 69 6e 74  22 2c 2c 61 64 31 24 2c  |nt_Paint",,ad1$,|
0000c5b0  25 31 30 30 31 30 2c 70  78 63 6f 2b 33 38 2c 70  |%10010,pxco+38,p|
0000c5c0  79 63 6f 2d 31 38 35 0d  41 78 28 78 3d a4 77 69  |yco-185.Ax(x=.wi|
0000c5d0  64 74 68 28 61 64 32 24  2c 66 6f 6e 74 61 64 31  |dth(ad2$,fontad1|
0000c5e0  24 2c 73 69 7a 65 61 64  31 2c 68 61 64 31 29 0d  |$,sizead1,had1).|
0000c5f0  41 82 6a e7 20 61 64 32  24 3e 22 22 20 80 20 78  |A.j. ad2$>"" . x|
0000c600  3d 30 20 84 20 78 3e 35  36 30 20 8c 20 f2 6d 65  |=0 . x>560 . .me|
0000c610  73 73 28 22 54 68 65 20  32 6e 64 20 61 64 64 72  |ss("The 2nd addr|
0000c620  65 73 73 20 74 65 78 74  20 69 73 20 74 6f 6f 20  |ess text is too |
0000c630  6c 6f 6e 67 20 6f 72 20  74 68 65 20 66 6f 6e 74  |long or the font|
0000c640  20 69 73 20 74 6f 6f 20  6c 61 72 67 65 22 29 3a  | is too large"):|
0000c650  63 6c 6f 73 65 3d 31 3a  e1 0d 41 8c 30 c8 99 22  |close=1:..A.0.."|
0000c660  46 6f 6e 74 5f 50 61 69  6e 74 22 2c 2c 61 64 32  |Font_Paint",,ad2|
0000c670  24 2c 25 31 30 30 31 30  2c 70 78 63 6f 2b 33 38  |$,%10010,pxco+38|
0000c680  2c 70 79 63 6f 2d 32 32  35 0d 41 96 28 78 3d a4  |,pyco-225.A.(x=.|
0000c690  77 69 64 74 68 28 61 64  33 24 2c 66 6f 6e 74 61  |width(ad3$,fonta|
0000c6a0  64 31 24 2c 73 69 7a 65  61 64 31 2c 68 61 64 31  |d1$,sizead1,had1|
0000c6b0  29 0d 41 a0 6a e7 20 61  64 33 24 3e 22 22 20 80  |).A.j. ad3$>"" .|
0000c6c0  20 78 3d 30 20 84 20 78  3e 35 36 30 20 8c 20 f2  | x=0 . x>560 . .|
0000c6d0  6d 65 73 73 28 22 54 68  65 20 33 72 64 20 61 64  |mess("The 3rd ad|
0000c6e0  64 72 65 73 73 20 74 65  78 74 20 69 73 20 74 6f  |dress text is to|
0000c6f0  6f 20 6c 6f 6e 67 20 6f  72 20 74 68 65 20 66 6f  |o long or the fo|
0000c700  6e 74 20 69 73 20 74 6f  6f 20 6c 61 72 67 65 22  |nt is too large"|
0000c710  29 3a 63 6c 6f 73 65 3d  31 3a e1 0d 41 aa 30 c8  |):close=1:..A.0.|
0000c720  99 22 46 6f 6e 74 5f 50  61 69 6e 74 22 2c 2c 61  |."Font_Paint",,a|
0000c730  64 33 24 2c 25 31 30 30  31 30 2c 70 78 63 6f 2b  |d3$,%10010,pxco+|
0000c740  33 38 2c 70 79 63 6f 2d  32 36 35 0d 41 b4 28 78  |38,pyco-265.A.(x|
0000c750  3d a4 77 69 64 74 68 28  61 64 34 24 2c 66 6f 6e  |=.width(ad4$,fon|
0000c760  74 61 64 31 24 2c 73 69  7a 65 61 64 31 2c 68 61  |tad1$,sizead1,ha|
0000c770  64 31 29 0d 41 be 6a e7  20 61 64 34 24 3e 22 22  |d1).A.j. ad4$>""|
0000c780  20 80 20 78 3d 30 20 84  20 78 3e 35 36 30 20 8c  | . x=0 . x>560 .|
0000c790  20 f2 6d 65 73 73 28 22  54 68 65 20 34 74 68 20  | .mess("The 4th |
0000c7a0  61 64 64 72 65 73 73 20  74 65 78 74 20 69 73 20  |address text is |
0000c7b0  74 6f 6f 20 6c 6f 6e 67  20 6f 72 20 74 68 65 20  |too long or the |
0000c7c0  66 6f 6e 74 20 69 73 20  74 6f 6f 20 6c 61 72 67  |font is too larg|
0000c7d0  65 22 29 3a 63 6c 6f 73  65 3d 31 3a e1 0d 41 c8  |e"):close=1:..A.|
0000c7e0  30 c8 99 22 46 6f 6e 74  5f 50 61 69 6e 74 22 2c  |0.."Font_Paint",|
0000c7f0  2c 61 64 34 24 2c 25 31  30 30 31 30 2c 70 78 63  |,ad4$,%10010,pxc|
0000c800  6f 2b 33 38 2c 70 79 63  6f 2d 33 30 35 0d 41 d2  |o+38,pyco-305.A.|
0000c810  12 66 6f 6e 74 24 3d 66  6f 6e 74 74 65 6c 24 0d  |.font$=fonttel$.|
0000c820  41 dc 32 78 3d a4 77 69  64 74 68 28 22 54 65 6c  |A.2x=.width("Tel|
0000c830  20 3a 2d 20 22 2b 74 65  6c 24 2c 66 6f 6e 74 74  | :- "+tel$,fontt|
0000c840  65 6c 24 2c 73 69 7a 65  74 65 6c 2c 68 74 65 6c  |el$,sizetel,htel|
0000c850  29 0d 41 e6 61 e7 20 78  3d 30 20 80 20 74 65 6c  |).A.a. x=0 . tel|
0000c860  24 3c 3e 22 22 20 8c 20  f2 6d 65 73 73 28 22 54  |$<>"" . .mess("T|
0000c870  68 65 20 74 65 6c 65 70  68 6f 6e 65 20 74 65 78  |he telephone tex|
0000c880  74 20 69 73 20 74 6f 6f  20 6c 6f 6e 67 20 6f 72  |t is too long or|
0000c890  20 74 68 65 20 66 6f 6e  74 20 69 73 20 74 6f 6f  | the font is too|
0000c8a0  20 6c 61 72 67 65 22 29  3a 63 6c 6f 73 65 3d 31  | large"):close=1|
0000c8b0  3a e1 0d 41 f0 15 78 63  6f 3d 35 36 36 2d 78 3a  |:..A..xco=566-x:|
0000c8c0  78 63 6f 2d 3d 31 36 0d  41 fa 3a 20 c8 99 20 22  |xco-=16.A.: .. "|
0000c8d0  43 6f 6c 6f 75 72 54 72  61 6e 73 5f 53 65 74 46  |ColourTrans_SetF|
0000c8e0  6f 6e 74 43 6f 6c 6f 75  72 73 22 2c 66 6f 6e 74  |ontColours",font|
0000c8f0  25 2c 68 65 78 63 28 34  29 2c 68 65 78 63 28 34  |%,hexc(4),hexc(4|
0000c900  29 0d 42 04 3b c8 99 22  46 6f 6e 74 5f 50 61 69  |).B.;.."Font_Pai|
0000c910  6e 74 22 2c 2c 22 54 65  6c 20 3a 2d 20 22 2b 74  |nt",,"Tel :- "+t|
0000c920  65 6c 24 2c 25 31 30 30  31 30 2c 70 78 63 6f 2b  |el$,%10010,pxco+|
0000c930  78 63 6f 2c 70 79 63 6f  2d 33 36 30 0d 42 0e 05  |xco,pyco-360.B..|
0000c940  e1 0d 42 18 0e dd f2 70  72 69 6e 74 65 72 72 0d  |..B....printerr.|
0000c950  42 22 0c e7 20 9f 3d 31  37 20 8c 0d 42 2c 1d c8  |B".. .=17 ..B,..|
0000c960  99 22 50 44 72 69 76 65  72 5f 41 62 6f 72 74 4a  |."PDriver_AbortJ|
0000c970  6f 62 22 2c 66 68 25 3a  0d 42 36 21 f4 20 53 59  |ob",fh%:.B6!. SY|
0000c980  53 22 50 44 72 69 76 65  72 5f 53 65 6c 65 63 74  |S"PDriver_Select|
0000c990  4a 6f 62 22 2c 6a 6f 62  3a 0d 42 40 09 d9 23 66  |Job",job:.B@..#f|
0000c9a0  68 25 0d 42 4a 23 f2 6d  65 73 73 28 22 45 73 63  |h%.BJ#.mess("Esc|
0000c9b0  61 70 65 3a 20 50 72 69  6e 74 20 43 61 6e 63 65  |ape: Print Cance|
0000c9c0  6c 65 64 22 29 0d 42 54  25 c8 99 22 4f 53 5f 52  |led").BT%.."OS_R|
0000c9d0  65 61 64 4d 6f 64 65 56  61 72 69 61 62 6c 65 22  |eadModeVariable"|
0000c9e0  2c eb 2c 34 20 b8 20 2c  2c 78 0d 42 5e 25 c8 99  |,.,4 . ,,x.B^%..|
0000c9f0  22 4f 53 5f 52 65 61 64  4d 6f 64 65 56 61 72 69  |"OS_ReadModeVari|
0000ca00  61 62 6c 65 22 2c eb 2c  35 20 b8 20 2c 2c 79 0d  |able",.,5 . ,,y.|
0000ca10  42 68 39 c8 97 20 c8 93  20 30 2c 30 2c 28 28 28  |Bh9.. .. 0,0,(((|
0000ca20  62 6c 6f 63 6b 21 31 32  38 29 2b 31 29 2a 32 5e  |block!128)+1)*2^|
0000ca30  78 29 2d 31 2c 28 28 62  6c 6f 63 6b 21 31 33 32  |x)-1,((block!132|
0000ca40  29 2b 31 29 2a 32 5e 79  0d 42 72 17 c8 99 22 48  |)+1)*2^y.Br..."H|
0000ca50  6f 75 72 67 6c 61 73 73  5f 53 6d 61 73 68 22 0d  |ourglass_Smash".|
0000ca60  42 7c 33 c8 99 22 57 69  6d 70 5f 46 6f 72 63 65  |B|3.."Wimp_Force|
0000ca70  52 65 64 72 61 77 22 2c  2d 31 2c 32 38 36 2c 34  |Redraw",-1,286,4|
0000ca80  36 34 2c 37 34 30 2b 32  38 38 2c 31 39 36 2b 34  |64,740+288,196+4|
0000ca90  36 36 0d 42 86 05 e1 0d  42 90 05 cd 0d 42 9a 48  |66.B....B....B.H|
0000caa0  e7 20 66 68 25 3c 3e 2d  31 20 8c 20 c8 99 22 50  |. fh%<>-1 . .."P|
0000cab0  44 72 69 76 65 72 5f 41  62 6f 72 74 4a 6f 62 22  |Driver_AbortJob"|
0000cac0  2c 66 68 25 3a c8 99 22  50 44 72 69 76 65 72 5f  |,fh%:.."PDriver_|
0000cad0  53 65 6c 65 63 74 4a 6f  62 22 2c 6a 6f 62 3a d9  |SelectJob",job:.|
0000cae0  23 66 68 25 0d 42 a4 17  c8 99 22 48 6f 75 72 67  |#fh%.B...."Hourg|
0000caf0  6c 61 73 73 5f 53 6d 61  73 68 22 0d 42 ae 25 c8  |lass_Smash".B.%.|
0000cb00  99 22 4f 53 5f 52 65 61  64 4d 6f 64 65 56 61 72  |."OS_ReadModeVar|
0000cb10  69 61 62 6c 65 22 2c eb  2c 34 20 b8 20 2c 2c 78  |iable",.,4 . ,,x|
0000cb20  0d 42 b8 25 c8 99 22 4f  53 5f 52 65 61 64 4d 6f  |.B.%.."OS_ReadMo|
0000cb30  64 65 56 61 72 69 61 62  6c 65 22 2c eb 2c 35 20  |deVariable",.,5 |
0000cb40  b8 20 2c 2c 79 0d 42 c2  39 c8 97 20 c8 93 20 30  |. ,,y.B.9.. .. 0|
0000cb50  2c 30 2c 28 28 28 62 6c  6f 63 6b 21 31 32 38 29  |,0,(((block!128)|
0000cb60  2b 31 29 2a 32 5e 78 29  2d 31 2c 28 28 62 6c 6f  |+1)*2^x)-1,((blo|
0000cb70  63 6b 21 31 33 32 29 2b  31 29 2a 32 5e 79 0d 42  |ck!132)+1)*2^y.B|
0000cb80  cc 33 c8 99 22 57 69 6d  70 5f 46 6f 72 63 65 52  |.3.."Wimp_ForceR|
0000cb90  65 64 72 61 77 22 2c 2d  31 2c 32 38 36 2c 34 36  |edraw",-1,286,46|
0000cba0  34 2c 37 34 30 2b 32 38  38 2c 31 39 36 2b 34 36  |4,740+288,196+46|
0000cbb0  36 0d 42 d6 33 f2 65 72  72 6f 72 28 f6 24 2b 22  |6.B.3.error(.$+"|
0000cbc0  3a 20 61 74 20 6c 69 6e  65 20 22 2b c3 9e 2b 22  |: at line "+..+"|
0000cbd0  20 77 68 69 6c 73 74 20  70 72 69 6e 74 69 6e 67  | whilst printing|
0000cbe0  22 29 3a e1 0d 42 e0 05  e1 0d 42 ea 10 dd f2 6d  |"):..B....B....m|
0000cbf0  6f 72 65 63 6f 70 69 65  73 0d 42 f4 20 e7 20 bb  |orecopies.B. . .|
0000cc00  28 24 a4 69 6e 66 6f 28  70 72 69 6e 74 25 2c 34  |($.info(print%,4|
0000cc10  29 29 3d 39 39 20 8c 20  e1 0d 42 fe 2a f2 69 6e  |))=99 . ..B.*.in|
0000cc20  66 6f 28 70 72 69 6e 74  25 2c 34 2c c3 28 bb 24  |fo(print%,4,.(.$|
0000cc30  a4 69 6e 66 6f 28 70 72  69 6e 74 25 2c 34 29 2b  |.info(print%,4)+|
0000cc40  31 29 29 0d 43 08 05 e1  0d 43 12 10 dd f2 6c 65  |1)).C....C....le|
0000cc50  73 73 63 6f 70 69 65 73  0d 43 1c 1f e7 20 bb 28  |sscopies.C... .(|
0000cc60  24 a4 69 6e 66 6f 28 70  72 69 6e 74 25 2c 34 29  |$.info(print%,4)|
0000cc70  29 3d 31 20 8c 20 e1 0d  43 26 2a f2 69 6e 66 6f  |)=1 . ..C&*.info|
0000cc80  28 70 72 69 6e 74 25 2c  34 2c c3 28 bb 24 a4 69  |(print%,4,.(.$.i|
0000cc90  6e 66 6f 28 70 72 69 6e  74 25 2c 34 29 2d 31 29  |nfo(print%,4)-1)|
0000cca0  29 0d 43 30 05 e1 0d 43  3a 14 dd f2 75 70 61 6e  |).C0...C:...upan|
0000ccb0  64 64 6f 77 6e 28 69 63  6e 29 0d 43 44 30 21 62  |ddown(icn).CD0!b|
0000ccc0  6c 6f 63 6b 3d 63 6f 6c  6f 75 72 25 3a c8 99 22  |lock=colour%:.."|
0000ccd0  57 69 6d 70 5f 47 65 74  57 69 6e 64 6f 77 49 6e  |Wimp_GetWindowIn|
0000cce0  66 6f 22 2c 2c 62 6c 6f  63 6b 0d 43 4e 1b 77 6f  |fo",,block.CN.wo|
0000ccf0  72 6b 78 25 3d 62 6c 6f  63 6b 21 34 2d 62 6c 6f  |rkx%=block!4-blo|
0000cd00  63 6b 21 32 30 0d 43 58  1c 77 6f 72 6b 79 25 3d  |ck!20.CX.worky%=|
0000cd10  62 6c 6f 63 6b 21 31 36  2d 62 6c 6f 63 6b 21 32  |block!16-block!2|
0000cd20  34 0d 43 62 1d 76 61 6c  75 65 72 3d bb 24 a4 69  |4.Cb.valuer=.$.i|
0000cd30  6e 66 6f 28 63 6f 6c 6f  75 72 25 2c 33 29 0d 43  |nfo(colour%,3).C|
0000cd40  6c 1d 76 61 6c 75 65 67  3d bb 24 a4 69 6e 66 6f  |l.valueg=.$.info|
0000cd50  28 63 6f 6c 6f 75 72 25  2c 37 29 0d 43 76 1e 76  |(colour%,7).Cv.v|
0000cd60  61 6c 75 65 62 3d bb 24  a4 69 6e 66 6f 28 63 6f  |alueb=.$.info(co|
0000cd70  6c 6f 75 72 25 2c 31 31  29 0d 43 80 0c c8 8e 20  |lour%,11).C.... |
0000cd80  69 63 6e 20 ca 0d 43 8a  08 c9 20 31 3a 0d 43 94  |icn ..C... 1:.C.|
0000cd90  df e7 20 76 61 6c 75 65  72 3e 30 20 f2 69 6e 66  |.. valuer>0 .inf|
0000cda0  6f 28 63 6f 6c 6f 75 72  25 2c 33 2c c3 28 76 61  |o(colour%,3,.(va|
0000cdb0  6c 75 65 72 2d 31 29 29  3a 68 65 78 3d 28 76 61  |luer-1)):hex=(va|
0000cdc0  6c 75 65 62 3c 3c 32 34  29 2b 28 76 61 6c 75 65  |lueb<<24)+(value|
0000cdd0  67 3c 3c 31 36 29 2b 28  76 61 6c 75 65 72 3c 3c  |g<<16)+(valuer<<|
0000cde0  38 29 3a c8 99 22 57 69  6d 70 5f 46 6f 72 63 65  |8):.."Wimp_Force|
0000cdf0  52 65 64 72 61 77 22 2c  2d 31 2c 77 6f 72 6b 78  |Redraw",-1,workx|
0000ce00  25 2b 32 37 30 2c 77 6f  72 6b 79 25 2d 35 38 2c  |%+270,worky%-58,|
0000ce10  77 6f 72 6b 78 25 2b 36  31 34 2c 77 6f 72 6b 79  |workx%+614,worky|
0000ce20  25 2d 32 34 3a c8 99 22  57 69 6d 70 5f 46 6f 72  |%-24:.."Wimp_For|
0000ce30  63 65 52 65 64 72 61 77  22 2c 2d 31 2c 77 6f 72  |ceRedraw",-1,wor|
0000ce40  6b 78 25 2b 32 33 34 2c  77 6f 72 6b 79 25 2d 32  |kx%+234,worky%-2|
0000ce50  34 37 2c 77 6f 72 6b 78  25 2b 34 31 30 2c 77 6f  |47,workx%+410,wo|
0000ce60  72 6b 79 25 2d 31 39 39  3a 8b 20 e1 0d 43 9e 08  |rky%-199:. ..C..|
0000ce70  c9 20 32 3a 0d 43 a8 e1  e7 20 76 61 6c 75 65 72  |. 2:.C... valuer|
0000ce80  3c 32 35 35 20 f2 69 6e  66 6f 28 63 6f 6c 6f 75  |<255 .info(colou|
0000ce90  72 25 2c 33 2c c3 28 76  61 6c 75 65 72 2b 31 29  |r%,3,.(valuer+1)|
0000cea0  29 3a 68 65 78 3d 28 76  61 6c 75 65 62 3c 3c 32  |):hex=(valueb<<2|
0000ceb0  34 29 2b 28 76 61 6c 75  65 67 3c 3c 31 36 29 2b  |4)+(valueg<<16)+|
0000cec0  28 76 61 6c 75 65 72 3c  3c 38 29 3a c8 99 22 57  |(valuer<<8):.."W|
0000ced0  69 6d 70 5f 46 6f 72 63  65 52 65 64 72 61 77 22  |imp_ForceRedraw"|
0000cee0  2c 2d 31 2c 77 6f 72 6b  78 25 2b 32 37 30 2c 77  |,-1,workx%+270,w|
0000cef0  6f 72 6b 79 25 2d 35 38  2c 77 6f 72 6b 78 25 2b  |orky%-58,workx%+|
0000cf00  36 31 34 2c 77 6f 72 6b  79 25 2d 32 34 3a c8 99  |614,worky%-24:..|
0000cf10  22 57 69 6d 70 5f 46 6f  72 63 65 52 65 64 72 61  |"Wimp_ForceRedra|
0000cf20  77 22 2c 2d 31 2c 77 6f  72 6b 78 25 2b 32 33 34  |w",-1,workx%+234|
0000cf30  2c 77 6f 72 6b 79 25 2d  32 34 37 2c 77 6f 72 6b  |,worky%-247,work|
0000cf40  78 25 2b 34 31 30 2c 77  6f 72 6b 79 25 2d 31 39  |x%+410,worky%-19|
0000cf50  39 3a 8b 20 e1 0d 43 b2  08 c9 20 35 3a 0d 43 bc  |9:. ..C... 5:.C.|
0000cf60  e0 e7 20 76 61 6c 75 65  67 3e 30 20 f2 69 6e 66  |.. valueg>0 .inf|
0000cf70  6f 28 63 6f 6c 6f 75 72  25 2c 37 2c c3 28 76 61  |o(colour%,7,.(va|
0000cf80  6c 75 65 67 2d 31 29 29  3a 68 65 78 3d 28 76 61  |lueg-1)):hex=(va|
0000cf90  6c 75 65 62 3c 3c 32 34  29 2b 28 76 61 6c 75 65  |lueb<<24)+(value|
0000cfa0  67 3c 3c 31 36 29 2b 28  76 61 6c 75 65 72 3c 3c  |g<<16)+(valuer<<|
0000cfb0  38 29 3a c8 99 22 57 69  6d 70 5f 46 6f 72 63 65  |8):.."Wimp_Force|
0000cfc0  52 65 64 72 61 77 22 2c  2d 31 2c 77 6f 72 6b 78  |Redraw",-1,workx|
0000cfd0  25 2b 32 37 30 2c 77 6f  72 6b 79 25 2d 31 31 34  |%+270,worky%-114|
0000cfe0  2c 77 6f 72 6b 78 25 2b  36 31 34 2c 77 6f 72 6b  |,workx%+614,work|
0000cff0  79 25 2d 38 30 3a c8 99  22 57 69 6d 70 5f 46 6f  |y%-80:.."Wimp_Fo|
0000d000  72 63 65 52 65 64 72 61  77 22 2c 2d 31 2c 77 6f  |rceRedraw",-1,wo|
0000d010  72 6b 78 25 2b 32 33 34  2c 77 6f 72 6b 79 25 2d  |rkx%+234,worky%-|
0000d020  32 34 37 2c 77 6f 72 6b  78 25 2b 34 31 30 2c 77  |247,workx%+410,w|
0000d030  6f 72 6b 79 25 2d 31 39  39 3a 8b 20 e1 0d 43 c6  |orky%-199:. ..C.|
0000d040  08 c9 20 36 3a 0d 43 d0  e2 e7 20 76 61 6c 75 65  |.. 6:.C... value|
0000d050  67 3c 32 35 35 20 f2 69  6e 66 6f 28 63 6f 6c 6f  |g<255 .info(colo|
0000d060  75 72 25 2c 37 2c c3 28  76 61 6c 75 65 67 2b 31  |ur%,7,.(valueg+1|
0000d070  29 29 3a 68 65 78 3d 28  76 61 6c 75 65 62 3c 3c  |)):hex=(valueb<<|
0000d080  32 34 29 2b 28 76 61 6c  75 65 67 3c 3c 31 36 29  |24)+(valueg<<16)|
0000d090  2b 28 76 61 6c 75 65 72  3c 3c 38 29 3a c8 99 22  |+(valuer<<8):.."|
0000d0a0  57 69 6d 70 5f 46 6f 72  63 65 52 65 64 72 61 77  |Wimp_ForceRedraw|
0000d0b0  22 2c 2d 31 2c 77 6f 72  6b 78 25 2b 32 37 30 2c  |",-1,workx%+270,|
0000d0c0  77 6f 72 6b 79 25 2d 31  31 34 2c 77 6f 72 6b 78  |worky%-114,workx|
0000d0d0  25 2b 36 31 34 2c 77 6f  72 6b 79 25 2d 38 30 3a  |%+614,worky%-80:|
0000d0e0  c8 99 22 57 69 6d 70 5f  46 6f 72 63 65 52 65 64  |.."Wimp_ForceRed|
0000d0f0  72 61 77 22 2c 2d 31 2c  77 6f 72 6b 78 25 2b 32  |raw",-1,workx%+2|
0000d100  33 34 2c 77 6f 72 6b 79  25 2d 32 34 37 2c 77 6f  |34,worky%-247,wo|
0000d110  72 6b 78 25 2b 34 31 30  2c 77 6f 72 6b 79 25 2d  |rkx%+410,worky%-|
0000d120  31 39 39 3a 8b 20 e1 0d  43 da 08 c9 20 39 3a 0d  |199:. ..C... 9:.|
0000d130  43 e4 e2 e7 20 76 61 6c  75 65 62 3e 30 20 f2 69  |C... valueb>0 .i|
0000d140  6e 66 6f 28 63 6f 6c 6f  75 72 25 2c 31 31 2c c3  |nfo(colour%,11,.|
0000d150  28 76 61 6c 75 65 62 2d  31 29 29 3a 68 65 78 3d  |(valueb-1)):hex=|
0000d160  28 76 61 6c 75 65 62 3c  3c 32 34 29 2b 28 76 61  |(valueb<<24)+(va|
0000d170  6c 75 65 67 3c 3c 31 36  29 2b 28 76 61 6c 75 65  |lueg<<16)+(value|
0000d180  72 3c 3c 38 29 3a c8 99  22 57 69 6d 70 5f 46 6f  |r<<8):.."Wimp_Fo|
0000d190  72 63 65 52 65 64 72 61  77 22 2c 2d 31 2c 77 6f  |rceRedraw",-1,wo|
0000d1a0  72 6b 78 25 2b 32 37 30  2c 77 6f 72 6b 79 25 2d  |rkx%+270,worky%-|
0000d1b0  31 37 30 2c 77 6f 72 6b  78 25 2b 36 31 34 2c 77  |170,workx%+614,w|
0000d1c0  6f 72 6b 79 25 2d 31 33  36 3a c8 99 22 57 69 6d  |orky%-136:.."Wim|
0000d1d0  70 5f 46 6f 72 63 65 52  65 64 72 61 77 22 2c 2d  |p_ForceRedraw",-|
0000d1e0  31 2c 77 6f 72 6b 78 25  2b 32 33 34 2c 77 6f 72  |1,workx%+234,wor|
0000d1f0  6b 79 25 2d 32 34 37 2c  77 6f 72 6b 78 25 2b 34  |ky%-247,workx%+4|
0000d200  31 30 2c 77 6f 72 6b 79  25 2d 31 39 39 3a 8b 20  |10,worky%-199:. |
0000d210  e1 0d 43 ee 09 c9 20 31  30 3a 0d 43 f8 e4 e7 20  |..C... 10:.C... |
0000d220  76 61 6c 75 65 62 3c 32  35 35 20 f2 69 6e 66 6f  |valueb<255 .info|
0000d230  28 63 6f 6c 6f 75 72 25  2c 31 31 2c c3 28 76 61  |(colour%,11,.(va|
0000d240  6c 75 65 62 2b 31 29 29  3a 68 65 78 3d 28 76 61  |lueb+1)):hex=(va|
0000d250  6c 75 65 62 3c 3c 32 34  29 2b 28 76 61 6c 75 65  |lueb<<24)+(value|
0000d260  67 3c 3c 31 36 29 2b 28  76 61 6c 75 65 72 3c 3c  |g<<16)+(valuer<<|
0000d270  38 29 3a c8 99 22 57 69  6d 70 5f 46 6f 72 63 65  |8):.."Wimp_Force|
0000d280  52 65 64 72 61 77 22 2c  2d 31 2c 77 6f 72 6b 78  |Redraw",-1,workx|
0000d290  25 2b 32 37 30 2c 77 6f  72 6b 79 25 2d 31 37 30  |%+270,worky%-170|
0000d2a0  2c 77 6f 72 6b 78 25 2b  36 31 34 2c 77 6f 72 6b  |,workx%+614,work|
0000d2b0  79 25 2d 31 33 36 3a c8  99 22 57 69 6d 70 5f 46  |y%-136:.."Wimp_F|
0000d2c0  6f 72 63 65 52 65 64 72  61 77 22 2c 2d 31 2c 77  |orceRedraw",-1,w|
0000d2d0  6f 72 6b 78 25 2b 32 33  34 2c 77 6f 72 6b 79 25  |orkx%+234,worky%|
0000d2e0  2d 32 34 37 2c 77 6f 72  6b 78 25 2b 34 31 30 2c  |-247,workx%+410,|
0000d2f0  77 6f 72 6b 79 25 2d 31  39 39 3a 8b 20 e1 0d 44  |worky%-199:. ..D|
0000d300  02 05 cb 0d 44 0c 05 e1  0d 44 16 0c dd f2 73 65  |....D....D....se|
0000d310  74 70 65 72 0d 44 20 14  52 45 44 3d 28 68 65 78  |tper.D .RED=(hex|
0000d320  3e 3e 38 29 80 26 46 46  0d 44 2a 17 47 52 45 45  |>>8).&FF.D*.GREE|
0000d330  4e 3d 28 68 65 78 3e 3e  31 36 29 80 26 46 46 0d  |N=(hex>>16).&FF.|
0000d340  44 34 16 42 4c 55 45 3d  28 68 65 78 3e 3e 32 34  |D4.BLUE=(hex>>24|
0000d350  29 80 26 46 46 0d 44 3e  19 f2 69 6e 66 6f 28 63  |).&FF.D>..info(c|
0000d360  6f 6c 6f 75 72 25 2c 33  2c c3 52 45 44 29 0d 44  |olour%,3,.RED).D|
0000d370  48 1b f2 69 6e 66 6f 28  63 6f 6c 6f 75 72 25 2c  |H..info(colour%,|
0000d380  37 2c c3 47 52 45 45 4e  29 0d 44 52 1b f2 69 6e  |7,.GREEN).DR..in|
0000d390  66 6f 28 63 6f 6c 6f 75  72 25 2c 31 31 2c c3 42  |fo(colour%,11,.B|
0000d3a0  4c 55 45 29 0d 44 5c 15  f2 6f 70 65 6e 77 69 6e  |LUE).D\..openwin|
0000d3b0  28 63 6f 6c 6f 75 72 25  29 0d 44 66 30 21 62 6c  |(colour%).Df0!bl|
0000d3c0  6f 63 6b 3d 63 6f 6c 6f  75 72 25 3a c8 99 22 57  |ock=colour%:.."W|
0000d3d0  69 6d 70 5f 47 65 74 57  69 6e 64 6f 77 49 6e 66  |imp_GetWindowInf|
0000d3e0  6f 22 2c 2c 62 6c 6f 63  6b 0d 44 70 1b 77 6f 72  |o",,block.Dp.wor|
0000d3f0  6b 78 25 3d 62 6c 6f 63  6b 21 34 2d 62 6c 6f 63  |kx%=block!4-bloc|
0000d400  6b 21 32 30 0d 44 7a 1c  77 6f 72 6b 79 25 3d 62  |k!20.Dz.worky%=b|
0000d410  6c 6f 63 6b 21 31 36 2d  62 6c 6f 63 6b 21 32 34  |lock!16-block!24|
0000d420  0d 44 84 46 c8 99 22 57  69 6d 70 5f 46 6f 72 63  |.D.F.."Wimp_Forc|
0000d430  65 52 65 64 72 61 77 22  2c 2d 31 2c 77 6f 72 6b  |eRedraw",-1,work|
0000d440  78 25 2b 32 37 30 2c 77  6f 72 6b 79 25 2d 31 37  |x%+270,worky%-17|
0000d450  30 2c 77 6f 72 6b 78 25  2b 36 31 34 2c 77 6f 72  |0,workx%+614,wor|
0000d460  6b 79 25 2d 32 34 0d 44  8e 47 c8 99 22 57 69 6d  |ky%-24.D.G.."Wim|
0000d470  70 5f 46 6f 72 63 65 52  65 64 72 61 77 22 2c 2d  |p_ForceRedraw",-|
0000d480  31 2c 77 6f 72 6b 78 25  2b 32 33 34 2c 77 6f 72  |1,workx%+234,wor|
0000d490  6b 79 25 2d 32 34 37 2c  77 6f 72 6b 78 25 2b 34  |ky%-247,workx%+4|
0000d4a0  31 30 2c 77 6f 72 6b 79  25 2d 31 39 39 0d 44 98  |10,worky%-199.D.|
0000d4b0  05 e1 0d 44 a2 04 0d 44  ac 04 0d ff              |...D...D....|
0000d4bc