�=�P+&1000
%� � �error(�$+" : at line "+Þ):�
� ***>$.!Card2.!RunImage
(8� ***Main Program for !Card2 - Business Card creator
2 � Version 2.03 (26 Sept '93)
<� � J. Robbins
F[� block 10240, mblock 1024, menu% 6144, curbuf%  5120, icond 3072, q% 1024, text% &1000
Pmaxlev%=32
Z#� start%(maxlev%),box%(maxlev%)
d5� l%(maxlev%),b%(maxlev%),r%(maxlev%),t%(maxlev%)
n� hexc(4),defpal% 255
xJ� scal% 20,scalblok% 255,temp% 100,palette% 255,winpal(15),cardpos(16)
�/� 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

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

@fmcreated%=�:fcount%=0

Jreinter=&81683

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

^$ș "Wimp_ClaimInterface",mytask%

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

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

|
�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

�3� print$=" -print" � env$=�env$,�env$-7):noic=1

�>� print$=" -print" � �present:�load(env$):�openwin(print%)

�.� print$<>" -print" � env$<>"" �load(env$)
� noic=0 � initic=�icon
ș"Hourglass_On"
�fmenucr
&ș"Hourglass_Off"
0�pollit
:��pollit
D�
N& ș"Wimp_Poll",0,block � eventcode
X. ș "Wimp_PollPointer",eventcode,,version%
bȎ eventcode �
l2� 0:� savef � prequit ș"Wimp_ProcessKey",&1FC
v� 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
��
�� �
��
��

ݤicon

!icond=-1

icond!4=0
 %icond!8=0:icond!12=68:icond!16=68
*+icond!20=%11010+((2^12)*3):icond?23=112
4$(icond+24)="!Card2"+�13
>&ș "Wimp_CreateIcon",,icond � icon
H	=icon
Rݤinf(handle,icon)
\�gee(handle,icon)
f
=icond!28
p ݤbit(a$)
zȕ �a$,":")>0
�a$=�a$,�a$,":")+1)
��
�ȕ �a$,".")>0
�a$=�a$,�a$,".")+1)
��
�=a$
�ݤwool(wool%)
�
� cot$
� ȕ ?wool%>=32
�cot$+=�(?wool%)
�wool%+=1
��
�	=cot$
��template
1ș"Wimp_OpenTemplate",,"<Card$Dir>.Templates"
indir=curbuf%
$info%=�template("ProgInfo")
.save%=�template("save")
8card%=�template("Card")
B!details%=�template("details")
L saved%=�template("savetext")
Vprint%=�template("print")
` colour%=�template("colours")
j!savepic%=�template("SavePIC")
tquery%=�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."):�
�block!64=1
�)ș"Wimp_CreateWindow",,block � handle
�=handle
�ݤinfo(handle,icon)
�gee(handle,icon)


=icond!28
��info(handle,icon,text$)
;!block=handle:block!4=icon:ș"Wimp_GetIconState",,block
()$(block!28)=text$:block!36=�(text$)+1
2block!8=0:block!12=0
< ș"Wimp_SetIconState",,block
F�
P��gee(handle,icon)
Z!icond=handle:icond!4=icon
d ș"Wimp_GetIconState",,icond
n�
x
��present
�	a$=""
�� �
� � � � a$="Not Present":� �:�
� ș"PDriver_Info" � a,,,,name
�ȕ ?name
�a$=a$+�(?name)
�name+=1
��
�$�info(print%,0)=a$
�� �
��
���cmenus
��present

nogo=�
	gee=0
menuopen=-44
"menuptr=menu%
,ȗ x,y,b
6.� block!16=27 � sfile$<>"" � HJK=� � HJK=�
@A� HJK sprmen%=�menu("Sprite List",(largest*14)+40,men$):gee=2
J"picmenu$="Force Scale,Centred"
T0� centred � picmenu$<>"{�}Centred" centred=�
^'� force picmenu4$="{�}Force Scale,"
h&� � force picmenu4$="Force Scale,"
r#� 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
�M� 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
�:�
��
��openmenu(a,b)
�
��openmenu(x,y)
&ș"Wimp_CreateMenu",,openmenu%,x,y
&�
0ݤmenu(tit$,wid,menu$)
:menu$+=","
Doldmenu=menuptr
N$menuptr=tit$
Xmenuptr?12=7
bmenuptr?13=2
lmenuptr?14=7
vmenuptr?15=0
�menuptr!16=wid
�menuptr!20=48
�menuptr!24=0
�menuptr+=28
��
��thing(menu$)
�menu$=�menu$,�menu$,",")+1)
�menuptr+=24
�� menu$=""
�)menuptr!-24=(menuptr!-24) � %10000000
�=oldmenu
���thing(m$)
�m$=�m$,�m$,",")-1)
i$="":j$=""
� �m$,"{")>0 �
i$=�m$,�m$,"}")-1)
 m$=�m$,�m$,"}")+1)
*j$=�i$,�i$,"|")-1)
4i$=�i$,�i$,"|")+1)
>�
Hijack=&07000021
Rmjack=0
\submenu=-1
f � �j$,"b")>0 � submenu=�(i$)
p"� �j$,"_")>0 � mjack=mjack � 2
z"� �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$
��
��
���click(block)
�keepb%=block!12
�*� �checkit(block!12,block!16)=983040 �
�$�slabin(keepb%):�slabout(keepb%)
	�
	'� quiting � quiting=�:�close(quit%)
	9� 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%)
	8%� block!12=details% � block!8=2 �
	B{� 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:�
	L�
	V� block!8=2 � �cmenus:�
	`5� block!12=details% � savef=�:�title(details%,"")
	j<� block!12=save% � block!16=2 winsave%=block!12:�defsave
	t=� 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
	�I� block!12=colour% � block!16>=14 � block!16<=29 �selectcol(block!16)
	�.� block!12=colour% � block!16=13 � �addcol
	�6� block!12=colour% � block!16=12 � �close(colour%)
	�/� block!12=colour% � block!16=-1 � �dragcol
H� block!12=colour% � block!16>0 � block!16<11 � �upanddown(block!16)

� prequit �
a� block!12=quit% � block!16=0 � ș"Wimp_ProcessKey",&1FC:șreinter,mytask%:ș"Wimp_CloseDown"
;� block!12=quit% � block!16=2 � �close(quit%):prequit=�
(P� block!12=quit% � block!16=3 � �close(quit%):�openwin(saved%):prequitwait=�
2'� prequit � � prequitwait prequit=�
<�
FJ� block!12=quit% � block!16=0 � șreinter,mytask%:ș"Wimp_CloseDown":�
P1� block!12=quit% � block!16=2 � �close(quit%)
ZB� block!12=quit% � block!16=3 � �close(quit%):�openwin(saved%)
d�
n9� block!12=query% � block!16=0 � �close(query%):�endq
x$� 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
� ș"Wimp_GetIconState",,icond
�"� (icond!24�(1<<flag))>0 bit=�
�=bit
���setshear(on)
;!icond=details%:icond!4=29:ș"Wimp_GetIconState",,icond
� on=1 �
C=(1<<21):E=(1<<21)
"�
,C=(0<<21):E=(1<<21)
6�
@icond!8=C:icond!12=E
J ș"Wimp_SetIconState",,icond
T:
^;!icond=details%:icond!4=30:ș"Wimp_GetIconState",,icond
h� on=0 �
rC=(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))
�K� !block=saved% � block!24=13 � winsave%=!block:�save($�info(!block,1))
�M� !block=savepic% � block!24=13 � winsave%=!block:�save($�info(!block,1))
� ș"Wimp_ProcessKey",block!24
��
���caret
$ș"Wimp_GetCaretPosition",,block
� block!0=details% �
Ȏ block!4 �
&
 � 0:np=5
0
 � 5:np=6
:
 � 6:np=7
D � 7:np=18
N � 18:np=10
X � 10:np=21
b � 21:np=0
l � 13:np=14
v � 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))
� �
� �
���select
�
� gee=1 �
��� 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

�info(details%,icy,family$)

�redraw(card%)

 	gee=0

*�

4�

>
� gee=2 �

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

Rcurspr$=$icond

\�drawsprite

f	gee=0

p�

z�

�.ș"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

�L� $icond="Picture.Centred" � iffy � centred centred=�:iffy=�:�drawsprite

�N� $icond="Picture.Centred" � iffy � � centred centred=�:iffy=�:�drawsprite

�(� $icond="Save.Draw" �openwin(save%)

�)� $icond="Save.Data" �openwin(saved%)
"ș"Wimp_GetPointerInfo",,block
� block!8=1 �
� menuopen=-44 � �cmenus
$"ș"Wimp_CreateMenu",,openmenu%
.�
8ș"Wimp_CreateMenu",,-1
B�
L�
V
��killspr
`=sfile$="":curspr$="":spr%=0:ș"Wimp_SlotSize",progneed,-1
j�
t��mess(mess$)
~ !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":�
(�
2	��out
<)� winsave%=save% � stext=stex:ft=&AFF
F+� winsave%=saved% � stext=stexd:ft=&00C
P0� winsave%=savepic% � stext=stextpic:ft=&FF9
Z� drive%=1 �
d$ș "Wimp_GetPointerInfo",,mblock
n<win=mblock!12:icon=mblock!16:xout=!mblock:yout=mblock!4:
xPmblock!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
6#block!8+=x%:block!12+=y%+ysize%
@$block!16+=x%:block!20+=y%+ysize%
J5block!24=0:block!28=0:block!32=xmax:block!36=ymax
T'!block=0:block!4=5:drag%=�:drive%=1
^ș"Wimp_DragBox",,block
h�
r
��Mode
|M!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$<>"" �
0$endtext%="Sprites"+�10
:endtext%+=8
Dc$endtext%=curspr$+�10:endtext%+=�(curspr$)+1:$endtext%=�spr_len%+�(10):endtext%+=�(�spr_len%)+1
N(� centred c$="centred" � c$="origin"
X"� force f$="forced" � f$="s/s"
b� Shear g$="1" � g$="0"
l$endtext%=g$+�10
vendtext%+=2
�$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)
4& endtext%+=�($�info(details%,5))+1
>( $endtext%=$�info(details%,14)+�(10)
H&endtext%+=�($�info(details%,14))+1
R( $endtext%=$�info(details%,32)+�(10)
\&endtext%+=�($�info(details%,32))+1
f%$endtext%=$�info(details%,19)+�10
p' endtext%+=�($�info(details%,19))+1
z' $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)
8&endtext%+=�($�info(details%,34))+1
B$endtext%=�hexc(0)+�(10)
L endtext%+=�(�hexc(0))+1
V $endtext%=�hexc(1)+�(10)
` endtext%+=�(�hexc(1))+1
j$endtext%=�hexc(2)+�(10)
t endtext%+=�(�hexc(2))+1
~$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% �
(� �
2^� � � � �=71622:�query("Disc Full"):full=�:� �:�:� � �:�error(�$+" : at line "+Þ):�#ile:�
<%Current=�checkflag(savepic%,3,21)
FȎ Current �
P� �:
Z%ș 46,&118,spr%,curspr$ � ,,sptr%
d ș"OS_Find",&80,save$ � ile%
n�#ile%,&01
x�#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
"�
,�
63� save$<>"<Wimp$Scrap>" �info(winsave%,1,save$)
@�
J��messagein
Tmblock=block
^ref=mblock!8:task=mblock!4
hȎ mblock!16 �
r[� 8:� � prequit mblock!12=mblock!8:ș"Wimp_SendMessage",19,mblock:prequit=�:�areyousure
|.� 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 �
0block!12=block!8:block!16=4
:sendm=&400E7
D+ș sendm,18,block,block!4:� DataLoadAck
N�load(�wool(block+44))
X�
b�
l�
v��load(load$)
�!ș"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
4hexc(I)=�(�readfile)
>� I
H�
R
��loadspr
\� curspr$<>"" � �killspr
fcurspr$=�readfile
psfile$="Internal"
zspr_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%)
.�
8men$=�men$,�(men$)-1)
B�
L
��loadold
V�loadindet
`
� I=1 � 4
j
hexc(I)=0
t�
~hexc(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)
2�info(details%,4,�readfile)
< �info(details%,21,�readfile)
F �info(details%,15,�readfile)
P&� new �info(details%,34,�readfile)
Z�
dݤreadfile
n
 t$=""
x �
� ș"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%)
6�
@men$=�men$,�(men$)-1)
Jcurspr$=�men$,�men$,",")-1)
T"�openwin(details%):�drawsprite
^ �
h��openwin(handle%)
r!block=handle%
|"ș"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
&�
0�
:��fmenucrRO2
D
NULL=0
N� f_p% 900
X!f_p%=NULL
bc%=0
l�
v) ș "Font_ListFonts",,q%,c%,-1 � ,,c%
�" � 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
4 �
>  � p%!4 28+24*!(!r%+8)
H
  t%=p%!4
R)  $t%=f$:t%!12=&0207:t%!20=40:t%!24=0
\
  u%=t%+4
f  width2%=�(f$)-2
p  � s%=1 � !(!r%+8)
z
   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$,".")
8family$=�font$,pos%-1)
B� pos% = 0 �
L style$=""
V�
` style$=�font$,pos%+1)
j�
tp%=f_p%:flag%=�
~ȕ (!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
2 ȕ (!p% <> NULL)
<  p%=!p%
F �
P � p%!0 �(style$)+5
Z p%=!p%
d
 !p%=NULL
n $(p%+4)=style$
x�
��
�ݤ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%
6 �application_redraw
@ � colour%
J �application_redraw2
T" ș "Wimp_BorderWindow",,block
^ � details%
h
 �app_re3
r" ș "Wimp_BorderWindow",,block
| 
�" ș "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)
 & � sfile$<>"" �
 04ș &2E,256+40,spr%,curspr$ � A,B,C,w%,h%,D,mode%
 :.ș"OS_ReadModeVariable",mode%,3 �c,cl,cols
 D,ș"OS_ReadModeVariable",mode%,4 �,,xeig%
 N,ș"OS_ReadModeVariable",mode%,5 �,,yeig%
 Xwi%=w%<<xeig%
 bhe%=h%<<yeig%
 l� !(4+spr%)>0 �
 v� !(48+spr%)>44 �
 �� col%=0 � 15
 �'palette%!(col%*4)=!(60+col%*8+spr%)
 �
� col%
 �Dș "ColourTrans_SelectTable",!(56+spr%),palette%,-1,-1,scalblok%
 ��
 �Cș "ColourTrans_SelectTable",!(56+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 �
!4� �
!>'� B/C=.8 � � �vga(mode%) � hscale=1
!H(� B/C=.75 � � �vga(mode%) � hscale=1
!R1� B/C<>.8 � B/C<>.75 � � �vga(mode%) hscale=2
!\@� w%>82 � h%>72 � h%<w% � SCw=w%/shear:SCh=w%/(shear/hscale)
!f@� w%>82 � h%>72 � h%>w% � SCw=h%/shear:SCh=h%/(shear/hscale)
!p(� w%>82 � h%<72 � SCw=w%/shear:SCh=1
!z
� force �
!�f� w%<82 � h%<72 � (h%*2)<w% � SCw=w%/shear:SCh=w%/(shear/hscale):SCw=SCw*1.10:SCh=SCh*1.10:� �0,0)
!�\� w%<82 � h%<72 � (h%*2)>w% � SCw=h%/shear:SCh=h%/(shear/hscale):SCw=SCw*1.1:SCh=SCh*1.1
!�f� w%<82 � h%<72 � (h%*2)=w% � SCw=w%/shear:SCh=h%/(shear/2):SCw=SCw*1.1:SCh=SCh*1.1:� �0,0)SCh,SCw
!��
!�%� w%<82 � h%<72 � SCw=1:SCh=modsc
!��
!�Ȏ centred �
!�	  � �
!�*� �vga(mode%) � � force � yoff=(72-h%)
!�2� �vga(mode%) � force � yoff=(72-((1/SCh)*h%))
!�4� � �vga(mode%) � force yoff=(72-((1/SCh)*h%))/2
!�0� � �vga(mode%) � � force � yoff=(72-(2*h%))
!�xoff=(82-((1/SCw)*w%))
"*� force � h%<w% � �vga(mode%) � xoff=0
"*� force � h%>w% � �vga(mode%) � yoff=0
"0� force � (h%*2)<w% � � �vga(mode%) � xoff=0
"$0� force � (h%*2)>w% � � �vga(mode%) � yoff=0
".  �
"8� �
"B'� B/C=.8 � � �vga(mode%) � hscale=2
"L(� B/C=.75 � � �vga(mode%) � hscale=2
"V1� B/C<>.8 � B/C<>.75 � � �vga(mode%) hscale=4
"` SCw=w%/82:SCh=h%/(72/hscale)
"j�
"t[!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
#
big%=&7FFFFFFF
#EF=0.552256944
#
i%=0:c%=0
#(inch=&B400
#2
point=640
#<cm=18140
#Fblack%=0
#Pwhite%=&FFFFFF00
#Znone%=-1
#d9name$=$�info(details%,0):fontname$=$�info(details%,3)
#n@sizename=�($�info(details%,31)):hname=�($�info(details%,13))
#x;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$)
$�puts(�(4)+fonttel$)
$
�align
$"
�head_now
$,�
$6 � noofcards=8 � �group_start
$@"� carddraw=1 � noofcards*2 � 2
$J/ax=cardpos(carddraw):by=cardpos(carddraw+1)
$Txpos=ax:ypos=by
$^�group_start
$h'�path_start(0,0,1*point,&0,hexc(0))
$r�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
%
�path_end
%�group_end
%&�group_start
%0(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$:�
%D>�text(13,81,ad1$,sizead1*&280,had1*&280,3,hexc(3),hexc(3))
%N(x=�width(ad2$,fontad1$,sizead1,had1)
%X�� ad2$>"" � x=0 � x>560 � �mess("The 2nd address text is too long or the font is too large"):�drawfile_end:�"Delete "+save$:�
%b>�text(13,65,ad2$,sizead1*&280,had1*&280,3,hexc(3),hexc(3))
%l(x=�width(ad3$,fontad1$,sizead1,had1)
%v�� 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
&�group_end
&G� noofcards=8 ș"Hourglass_Percentage",(carddraw/(noofcards*2))*100
& �
&*�drawfile_end
&4ș"Hourglass_Smash"
&>� �
&H�
&R� �drawfile_start(D$)
&\c%=�(D$)
&f,� c%=0 � � 1234,"Can't open output file"
&pdrawfile$=D$
&z(�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)):�
'�
':
'$� �puts(A$)
'.� A%
'8&� A%=1 � �(A$):�#c%,�(�A$,A%,1)):�
'B
�#c%,0
'L�
'V:
'`� �head_here(box%)
'jV� lev%=maxlev% � � 1234,"Too many nested groups.  Edit program to increase limit."
'tlev%+=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%
(
�#c%=start%(lev%)
()� lev%>0 � �putw(end%-start%(lev%)+4)
(� box%(lev%) �
(($ �putw(l%(lev%)):�putw(b%(lev%))
(2( �putw(r%(lev%)+1):�putw(t%(lev%)+1)
(<�
(F� lev%>0 �
(P lev%-=1
(Z0 � l%(lev%+1)<l%(lev%) � l%(lev%)=l%(lev%+1)
(d0 � b%(lev%+1)<b%(lev%) � b%(lev%)=b%(lev%+1)
(n0 � r%(lev%+1)>r%(lev%) � r%(lev%)=r%(lev%+1)
(x0 � 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
)
�head_now
)�
)"7� �text(x%,y%,text$,xsize%,ysize%,font%,col%,bcol%)
),)x%=(x%+xpos)*point:y%=(y%+ypos)*point
)6�putw(1)
)@�head_here(�)
)J�putxy(x%,y%-ysize%*.5)
)T(�putxy(x%+�(text$)*xsize%,y%+ysize%)
)^�putw(col%)
)h�putw(bcol%)
)r�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(�)
*�putw(fcol%):� fill
*�putw(lcol%):� colour
*&�putw(width%):� width
*0�putw(0):� path style
*:�path_move(x%,y%)
*D�
*N:
*X� �path_move(x%,y%)
*b)x%=(x%+xpos)*point:y%=(y%+ypos)*point
*l�putw(2)
*v�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
+�
+� �drawfile_end
+ $� draw unfinished IF lev%>0 THEN
+*
�head_now
+4
�#c%:c%=0
+>"�("SetType "+drawfile$+" AFF")
+H�
+R��sprite
+\%ș 46,&118,spr%,curspr$ � ,,sptr%
+f4ș &2E,256+40,spr%,curspr$ � A,B,C,w%,h%,D,mode%
+p� h%>w% shear=72 � shear=82
+z'� �vga(mode%) � hscale=1:� hscale=2
+�$Shear=�checkflag(details%,29,21)
+�xoff=0:yoff=0
+�Ȏ Shear �
+�� �
+�/� w%>82 � h%>72 � h%<w% � SCw=82/w%:SCh=SCw
+�/� w%>82 � h%>72 � h%>w% � SCh=82/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% � SCw=82/w%:SCh=SCw
+�/� w%<82 � h%<72 � h%>w% � SCh=72/h%:SCw=SCh
+��
+�!� w%<82 � h%<72 � SCw=1:SCh=1
,�
,Ȏ centred �
,	  � �
,$*� �vga(mode%) � � force � yoff=(72-h%)
,.2� �vga(mode%) � force � yoff=(72-((1/SCh)*h%))
,82� � �vga(mode%) � force yoff=(72-((1/SCh)*h%))
,B0� � �vga(mode%) � � force � yoff=(72-(2*h%))
,Lxoff=(82-((1/SCw)*w%))
,V*� force � h%<w% � �vga(mode%) � xoff=0
,`*� force � h%>w% � �vga(mode%) � yoff=0
,j0� force � (h%*2)<w% � � �vga(mode%) � xoff=0
,t0� force � (h%*2)>w% � � �vga(mode%) � yoff=0
,~  �
,�� �
,� SCw=82/w%:SCh=72/h%:hscale=1
,��
,�x%=155:y%=33
,�;x%=(x%+xpos+(xoff/5))*point:y%=(y%+ypos+(yoff/5))*point
,�Ewidth%=((w%*SCw)/1.25)*point:height%=((h%*SCh)*hscale/1.25)*point
,��putw(5)
,��head_here(�)
,��putxy(x%,y%)
,�$�putxy(x%+width%+1,y%+height%+1)
,�#ș"OS_GBPB",&02,c%,sptr%,!sptr%
,�
�align
-
�head_now
-
�
-��close(!block)
-ș"Wimp_CloseWindow",,block
-(�
-2ݤcheckit(hnd%,ic%)
-<!icond=hnd%:icond!4=ic%
-F ș"Wimp_GetIconState",,icond
-Pflags%=icond!24
-Z=flags%�&F0000
-d��slabicn(handle,icn)
-nicond!12=handle
-xicond!16=2
-�ș "Wimp_BorderIcon",,icond
-�
icond!8=0
-�ș "Wimp_BorderIcon",,icond
-��
-�� �slabin(handle)
-�!icond=handle
-�#ș "Wimp_GetPointerInfo",,icond
-�ș "Wimp_BorderIcon",,icond
-��
-�� �slabout(handle)
-�!icond=handle
-�#ș "Wimp_GetPointerInfo",,icond
-�icond!8 = 0
.ș "Wimp_BorderIcon",,icond
.�
.��selectcol(colno)
."hex=winpal(colno-14)
.,RED=(hex>>8)�&FF
.6GREEN=(hex>>16)�&FF
.@BLUE=(hex>>24)�&FF
.J!block=colour%
.T!ș"Wimp_GetWindowInfo",,block
.^workx%=block!4-block!20
.hworky%=block!16-block!24
.r)ș "ColourTrans_SetGCOL",hex,,,&100,0
.|&ȓ Ȑ workx%+234,worky%-247,175,48
.� ș "Wimp_SetColour",1,1
.�( ȓ Ȑ workx%+270,worky%-170,344,147
.�0 ș "ColourTrans_SetGCOL",&0000FF00,,,&100,0
.�0 ȓ Ȑ workx%+271,worky%-55,(RED/255)*344,32
.�0 ș "ColourTrans_SetGCOL",&00FF0000,,,&100,0
.�3 ȓ Ȑ workx%+271,worky%-111,(GREEN/255)*344,32
.�0 ș "ColourTrans_SetGCOL",&FF000000,,,&100,0
.�2 ȓ Ȑ workx%+271,worky%-167,(BLUE/255)*344,32
.�H ș "ColourTrans_SetGCOL",0,,,&100,0:ȓ workx%+233,worky%-248,176,49
.�# ȓ workx%+270,worky%-58,344,34
.�$ ȓ workx%+270,worky%-114,344,34
.�$ ȓ workx%+270,worky%-170,344,34
.�geecol=hex
/ �info(colour%,3,�RED)
/ �info(colour%,7,�GREEN)
/ �info(colour%,11,�BLUE)
/&�
/0��application_redraw2
/:RED=(hex>>8)�&FF
/DGREEN=(hex>>16)�&FF
/NBLUE=(hex>>24)�&FF
/Xworkx%=block!4-block!20
/bworky%=block!16-block!24
/l)ș "ColourTrans_SetGCOL",hex,,,&100,0
/v&ȓ Ȑ workx%+234,worky%-247,175,48
/�ș "Wimp_SetColour",1,1
/�( ȓ Ȑ workx%+270,worky%-170,344,147
/�0 ș "ColourTrans_SetGCOL",&0000FF00,,,&100,0
/�0 ȓ Ȑ workx%+271,worky%-55,(RED/255)*344,32
/�0 ș "ColourTrans_SetGCOL",&00FF0000,,,&100,0
/�3 ȓ Ȑ workx%+271,worky%-111,(GREEN/255)*344,32
/�0 ș "ColourTrans_SetGCOL",&FF000000,,,&100,0
/�2 ȓ Ȑ workx%+271,worky%-167,(BLUE/255)*344,32
/�Gș "ColourTrans_SetGCOL",0,,,&100,0:ȓ workx%+233,worky%-248,176,49
/�"ȓ workx%+270,worky%-58,344,34
/�#ȓ workx%+270,worky%-114,344,34
/�#ȓ workx%+270,worky%-170,344,34
/�geecol=hex
0�
0 ��dragcol
0 !block=colour%
0 !ș"Wimp_GetWindowInfo",,block
0*workx%=block!4-block!20
04worky%=block!16-block!24
0>
 ȗ r,s,t
0HI � r>workx%+268 � r<workx%+268+348 � s>worky%-58 � s<worky%-(58-35) �
0R& ȗ ȓ workx%+270,worky%-57,344,30
0\&nred=�(((r-(workx%+270))/344)*255)
0f� nred=-1 nred=0
0p�info(colour%,3,�nred)
0zRED=nred
0�ș "Wimp_SetColour",1,1
0�Aȓ Ȑ workx%+272+(RED/255)*344,worky%-55,342-(RED/255)*344,30
0�/ș "ColourTrans_SetGCOL",&0000FF00,,,&100,0
0�/ȓ Ȑ workx%+270,worky%-55,(RED/255)*344,30
0�'ș "ColourTrans_SetGCOL",0,,,&100,0
0�"ȓ workx%+270,worky%-58,344,34
0�'hex=(BLUE<<24)+(GREEN<<16)+(RED<<8)
0�)ș "ColourTrans_SetGCOL",hex,,,&100,0
0�&ȓ Ȑ workx%+234,worky%-247,175,48
0�Gș "ColourTrans_SetGCOL",0,,,&100,0:ȓ workx%+233,worky%-248,176,49
0�!ȗ r,s,t:� t=1 � t=4 �dragcol
0�	�Mode
0�ȗ ȓ 0,0,xmax-1,ymax-1
1 �
1�
1J� r>workx%+268 � r<workx%+268+348 � s>worky%-114 � s<worky%-(114-35) �
1$&ȗ ȓ workx%+270,worky%-112,344,30
1.(ngreen=�(((r-(workx%+270))/344)*255)
18� ngreen=-1 ngreen=0
1B�info(colour%,7,�ngreen)
1LGREEN=ngreen
1Vș "Wimp_SetColour",1,1
1`Fȓ Ȑ workx%+272+(GREEN/255)*344,worky%-111,342-(GREEN/255)*344,30
1j/ș "ColourTrans_SetGCOL",&00FF0000,,,&100,0
1t2ȓ Ȑ workx%+271,worky%-111,(GREEN/255)*344,30
1~'ș "ColourTrans_SetGCOL",0,,,&100,0
1�#ȓ workx%+270,worky%-114,344,34
1�'hex=(BLUE<<24)+(GREEN<<16)+(RED<<8)
1�)ș "ColourTrans_SetGCOL",hex,,,&100,0
1�&ȓ Ȑ workx%+234,worky%-247,175,48
1�Gș "ColourTrans_SetGCOL",0,,,&100,0:ȓ workx%+233,worky%-248,176,49
1�!ȗ r,s,t:� t=1 � t=4 �dragcol
1�	�Mode
1�ȗ ȓ 0,0,xmax-1,ymax-1
1��
1��
1�J� r>workx%+268 � r<workx%+268+348 � s>worky%-170 � s<worky%-(170-35) �
1�&ȗ ȓ workx%+270,worky%-168,344,30
2'nblue=�(((r-(workx%+270))/344)*255)
2
� nblue=-1 nblue=0
2BLUE=nblue
2�info(colour%,11,�nblue)
2(ș "Wimp_SetColour",1,1
22Fȓ Ȑ workx%+272+(BLUE/255)*344,worky%-167,342-((BLUE/255)*344),30
2</ș "ColourTrans_SetGCOL",&FF000000,,,&100,0
2F1ȓ Ȑ workx%+270,worky%-167,(BLUE/255)*344,30
2P'ș "ColourTrans_SetGCOL",0,,,&100,0
2Z#ȓ workx%+270,worky%-170,344,34
2d'hex=(BLUE<<24)+(GREEN<<16)+(RED<<8)
2n)ș "ColourTrans_SetGCOL",hex,,,&100,0
2x&ȓ Ȑ workx%+234,worky%-247,175,48
2�Gș "ColourTrans_SetGCOL",0,,,&100,0:ȓ workx%+233,worky%-248,176,49
2�
� Blue
2�!ȗ r,s,t:� t=1 � t=4 �dragcol
2�	�Mode
2�ȗ ȓ 0,0,xmax-1,ymax-1
2��
2��
2��
2�
��app_re3
2� workx%=block!4-block!20
2� worky%=block!16-block!24
2�-ș "ColourTrans_SetGCOL",hexc(1),,,&100,0
2�%ȓ Ȑ workx%+1122,worky%-58,50,42
3-ș "ColourTrans_SetGCOL",hexc(2),,,&100,0
3&ȓ Ȑ workx%+1122,worky%-116,50,42
3-ș "ColourTrans_SetGCOL",hexc(3),,,&100,0
3"&ȓ Ȑ workx%+1122,worky%-180,50,42
3,-ș "ColourTrans_SetGCOL",hexc(4),,,&100,0
36&ȓ Ȑ workx%+1122,worky%-430,50,42
3@� curspr$<>"" �
3J-ș "ColourTrans_SetGCOL",hexc(0),,,&100,0
3T'ȓ Ȑ workx%+400,worky%-352,163,144
3^4ș &2E,256+40,spr%,curspr$ � A,B,C,w%,h%,D,mode%
3h.ș"OS_ReadModeVariable",mode%,3 �c,cl,cols
3r,ș"OS_ReadModeVariable",mode%,4 �,,xeig%
3|,ș"OS_ReadModeVariable",mode%,5 �,,yeig%
3�wi%=w%<<xeig%
3�he%=h%<<yeig%
3�� !(4+spr%)>0 �
3�� !(48+spr%)>44 �
3�� col%=0 � 15
3�'palette%!(col%*4)=!(60+col%*8+spr%)
3�
� col%
3�Dș "ColourTrans_SelectTable",!(56+spr%),palette%,-1,-1,scalblok%
3��
3�Cș "ColourTrans_SelectTable",!(56+spr%),defpal%,-1,-1,scalblok%
3��
3��
3�xoff=0:yoff=0
4� �vga(mode%) �
4� h%>w% shear=72 � shear=82
4�
4&#� (h%*2)>w% shear=36 � shear=82
40�
4:%ș"OS_ReadModeVariable",�,11 �,,C
4D%ș"OS_ReadModeVariable",�,12 �,,B
4N
C+=1:B+=1
4XC� B/C=.8 � �vga(mode%) � hscale=1: � 1 means VGA, square pixels
4b&� B/C=.75 � �vga(mode%) � hscale=1
4l/� B/C<>.8 � B/C<>.75 � �vga(mode%) hscale=2
4v*� B/C=.8 � B/C=.75 � modsc=1 � modsc=2
4�$Shear=�checkflag(details%,29,21)
4�Ȏ Shear �
4�� �
4�'� B/C=.8 � � �vga(mode%) � hscale=1
4�(� B/C=.75 � � �vga(mode%) � hscale=1
4�1� B/C<>.8 � B/C<>.75 � � �vga(mode%) hscale=2
4�@� w%>82 � h%>72 � h%<w% � SCw=w%/shear:SCh=w%/(shear/hscale)
4�@� w%>82 � h%>72 � h%>w% � SCw=h%/shear:SCh=h%/(shear/hscale)
4�(� w%>82 � h%<72 � SCw=w%/shear:SCh=1
4�1� w%<82 � h%>72 � SCw=1:SCh=h%/(shear/hscale)
4�
� force �
4�N� w%<82 � h%<72 � h%<w% � �vga(mode%) � SCw=w%/shear:SCh=w%/(shear/hscale)
4�N� w%<82 � h%<72 � h%>w% � �vga(mode%) � SCw=h%/shear:SCh=h%/(shear/hscale)
5T� w%<82 � h%<36 � (h%*2)<w% � � �vga(mode%) � SCw=w%/shear:SCh=w%/(shear/hscale)
5T� w%<82 � h%<36 � (h%*2)>w% � � �vga(mode%) � SCw=h%/shear:SCh=h%/(shear/hscale)
5�
5 %� w%<82 � h%<72 � SCw=1:SCh=modsc
5*�
54Ȏ centred �
5>	  � �
5H*� �vga(mode%) � � force � yoff=(72-h%)
5R2� �vga(mode%) � force � yoff=(72-((1/SCh)*h%))
5\4� � �vga(mode%) � force yoff=(72-((1/SCh)*h%))/2
5f0� � �vga(mode%) � � force � yoff=(72-(2*h%))
5pxoff=(82-((1/SCw)*w%))
5z*� force � h%<w% � �vga(mode%) � xoff=0
5�*� force � h%>w% � �vga(mode%) � yoff=0
5�0� force � (h%*2)<w% � � �vga(mode%) � xoff=0
5�0� force � (h%*2)>w% � � �vga(mode%) � yoff=0
5� �
5�� �
5�'� B/C=.8 � � �vga(mode%) � hscale=2
5�(� B/C=.75 � � �vga(mode%) � hscale=2
5�1� B/C<>.8 � B/C<>.75 � � �vga(mode%) hscale=4
5� SCw=w%/82:SCh=h%/(72/hscale)
5��
5�[!scal%=wi%:scal%!4=he%:scal%!8=�((w%/((1/SCw)/2))+0.5):scal%!12=�((h%/((1/SCh)/2))+0.5)
5�Mș 46,&134,spr%,curspr$,workx%+400+xoff,worky%-352+yoff,8,scal%,scalblok%
5��
6�
6��addcol
6hexc(io)=hex
6$�close(colour%)
6. !block=details%
68" ș"Wimp_GetWindowInfo",,block
6B workx%=block!4-block!20
6L worky%=block!16-block!24
6V Ȏ io �
6`	 � 1:
6jH ș"Wimp_ForceRedraw",-1,workx%+1120,worky%-58,workx%+1180,worky%-10
6t �redraw(card%)
6~	 � 2:
6�I ș"Wimp_ForceRedraw",-1,workx%+1120,worky%-120,workx%+1180,worky%-72
6� �redraw(card%)
6�	 � 3:
6�J ș"Wimp_ForceRedraw",-1,workx%+1120,worky%-182,workx%+1180,worky%-134
6� �redraw(card%)
6�	 � 4:
6�J ș"Wimp_ForceRedraw",-1,workx%+1120,worky%-430,workx%+1180,worky%-382
6� �redraw(card%)
6�	 � 0:
6�H ș"Wimp_ForceRedraw",-1,workx%+400,worky%-352,workx%+564,worky%-210
6� �redraw(card%)
6� �
7�
7
��drawsprite
7� curspr$="" �
7!block=details%
7(!ș"Wimp_GetWindowInfo",,block
72workx%=block!4-block!20
7<worky%=block!16-block!24
7FGș"Wimp_ForceRedraw",-1,workx%+400,worky%-352,workx%+564,worky%-208
7P!block=card%
7Z"ș"Wimp_GetWindowState",,block
7dopen=block!32 � (1<<16)
7n� open<>0 �
7x!block=card%
7�!ș"Wimp_GetWindowInfo",,block
7�workx%=block!4-block!20
7�worky%=block!16-block!24
7�Gș"Wimp_ForceRedraw",-1,workx%+390,worky%-300,workx%+564,worky%-156
7��
7��
7�ݤclaim(amount%)
7�
� mem%
7�+ș"Wimp_SlotSize",-1,-1 � Current,,mem%
7�/ș"Wimp_SlotSize",progneed+amount%,1 � mem%
7�
ptr%=�
7�amount%=mem%-ptr%
7�	=ptr%
8ݤvga(mod)
8'ș"OS_ReadModeVariable",mod,11 �,,c
8'ș"OS_ReadModeVariable",mod,12 �,,b
8"
c+=1:b+=1
8,Ȏ b/c �
86
� 0.8:g=�
8@
� .75:g=�
8J
: g=�
8T�
8^=g
8h��areyousure
8r� � savef �
8|�openwin(quit%)
8�� 7
8�1�info(quit%,1,"Your file has been modified.")
8�M!block=130:block!4=131:block!8=-1:ș"OS_ReadVduVariables",block,block+128
8�%ș"OS_ReadModeVariable",�,4 � ,,x
8�%ș"OS_ReadModeVariable",�,5 � ,,y
8�9ȗ ȓ 0,0,(((block!128)+1)*2^x)-1,((block!132)+1)*2^y
8��
8�2� savef șreinter,mytask%:ș"Wimp_CloseDown":�
8��
8���query(qu$)
8��openwin(query%)
8�� 7
8�!block=query%
9!ș"Wimp_GetWindowInfo",,block
9workx%=block!12-block!4
9worky%=block!16-block!8
9&'ȗ ȓ block!4,block!8,workx%,worky%
90�info(query%,1,qu$)
9:�
9D
��endq
9N�close(query%)
9XM!block=130:block!4=131:block!8=-1:ș"OS_ReadVduVariables",block,block+128
9b%ș"OS_ReadModeVariable",�,4 � ,,x
9l%ș"OS_ReadModeVariable",�,5 � ,,y
9v9ȗ ȓ 0,0,(((block!128)+1)*2^x)-1,((block!132)+1)*2^y
9��
9���title(handle,new$)
9�!icond=handle
9�!ș"Wimp_GetWindowInfo",,icond
9�title$=$(icond!76)
9�� new$="" �
9�@� �title$,�(title$)-�(title$)+1)<>"*" � new$=title$+" *":� �
9��
9�a_p% = !(icond+76):$_p%=new$:ș"Wimp_ForceRedraw",-1,icond!4,(icond!16),icond!12,(icond!16)+36
9��
9���print
9�!noofpages=�($�info(print%,4))
9�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
:4ș"Wimp_CreateMenu",,-1
:>� 5
:H
� 410,630
:R� "Printing in progress..."
:\
� 380,580
:f.� "Prining ";noofpages;" copies, ";copies$
:p
� 400,530
:z� "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
;8�
;Bș"PDriver_EndJob",fh%
;L	�#fh%
;Vș"PDriver_SelectJob",job
;`ș"Hourglass_Smash"
;j3ș"Wimp_ForceRedraw",-1,286,464,740+288,196+466
;t�
;~
��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)
<2@sizename=�($�info(details%,31)):hname=�($�info(details%,13))
<<;extra$=$�info(details%,5):fontextra$=$�info(details%,2)
<FBsizeextra=�($�info(details%,32)):hextra=�($�info(details%,14))
<P8ad1$=$�info(details%,6):fontad1$=$�info(details%,19)
<Z>sizead1=�($�info(details%,33)):had1=�($�info(details%,17))
<dad2$=$�info(details%,7)
<nad3$=$�info(details%,18)
<xad4$=$�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
=,ȓ Ȑpxco+xco+5,pyco-74,566-xco-xco+3,-4
=font$=fontextra$
=0x=�width(extra$,fontextra$,sizeextra,hextra)
="_� x=0 � extra$<>"" � �mess("The trade text is too long or the font is too large"):close=1:�
=,xco=566-x:xco=xco/2
=6: ș "ColourTrans_SetFontColours",font%,hexc(2),hexc(2)
=@5ș"Font_Paint",,extra$,%10010,pxco+xco+8,pyco-130
=Jfont$=fontad1$
=T(x=�width(ad1$,fontad1$,sizead1,had1)
=^k� ad1$>"" � x=0 � x>530  � �mess("The 1st address text is too long or the font is too large"):close=1:�
=h: ș "ColourTrans_SetFontColours",font%,hexc(3),hexc(3)
=r0ș"Font_Paint",,ad1$,%10010,pxco+38,pyco-185
=|(x=�width(ad2$,fontad1$,sizead1,had1)
=�j� ad2$>"" � x=0 � x>560 � �mess("The 2nd address text is too long or the font is too large"):close=1:�
=�0ș"Font_Paint",,ad2$,%10010,pxco+38,pyco-225
=�(x=�width(ad3$,fontad1$,sizead1,had1)
=�j� ad3$>"" � x=0 � x>560 � �mess("The 3rd address text is too long or the font is too large"):close=1:�
=�0ș"Font_Paint",,ad3$,%10010,pxco+38,pyco-265
=�(x=�width(ad4$,fontad1$,sizead1,had1)
=�j� ad4$>"" � x=0 � x>560 � �mess("The 4th address text is too long or the font is too large"):close=1:�
=�0ș"Font_Paint",,ad4$,%10010,pxco+38,pyco-305
=�font$=fonttel$
=�2x=�width("Tel :- "+tel$,fonttel$,sizetel,htel)
=�a� x=0 � tel$<>"" � �mess("The telephone text is too long or the font is too large"):close=1:�
=�xco=566-x:xco-=16
=�: ș "ColourTrans_SetFontColours",font%,hexc(4),hexc(4)
>;ș"Font_Paint",,"Tel :- "+tel$,%10010,pxco+xco,pyco-360
>�
>��printerr
>&� �=17 �
>0ș"PDriver_AbortJob",fh%:
>:!� SYS"PDriver_SelectJob",job:
>D	�#fh%
>N#�mess("Escape: Print Canceled")
>X%ș"OS_ReadModeVariable",�,4 � ,,x
>b%ș"OS_ReadModeVariable",�,5 � ,,y
>l9ȗ ȓ 0,0,(((block!128)+1)*2^x)-1,((block!132)+1)*2^y
>vș"Hourglass_Smash"
>�3ș"Wimp_ForceRedraw",-1,286,464,740+288,196+466
>��
>��
>�H� fh%<>-1 � ș"PDriver_AbortJob",fh%:ș"PDriver_SelectJob",job:�#fh%
>�ș"Hourglass_Smash"
>�%ș"OS_ReadModeVariable",�,4 � ,,x
>�%ș"OS_ReadModeVariable",�,5 � ,,y
>�9ȗ ȓ 0,0,(((block!128)+1)*2^x)-1,((block!132)+1)*2^y
>�3ș"Wimp_ForceRedraw",-1,286,464,740+288,196+466
>�3�error(�$+": at line "+Þ+" whilst printing"):�
>��
>���morecopies
>� � �($�info(print%,4))=99 � �
?*�info(print%,4,�(�$�info(print%,4)+1))
?�
?��lesscopies
? � �($�info(print%,4))=1 � �
?**�info(print%,4,�(�$�info(print%,4)-1))
?4�
?>��upanddown(icn)
?H0!block=colour%:ș"Wimp_GetWindowInfo",,block
?Rworkx%=block!4-block!20
?\worky%=block!16-block!24
?fvaluer=�$�info(colour%,3)
?pvalueg=�$�info(colour%,7)
?zvalueb=�$�info(colour%,11)
?�Ȏ icn �
?�� 1:
?��� 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:� �
?�� 2:
?��� 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:� �
?�� 5:
?��� 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:� �
?�� 6:
?��� 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:� �
?�� 9:
?��� 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:� �
?�	� 10:
?��� 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:� �
@�
@�
@��setper
@$RED=(hex>>8)�&FF
@.GREEN=(hex>>16)�&FF
@8BLUE=(hex>>24)�&FF
@B�info(colour%,3,�RED)
@L�info(colour%,7,�GREEN)
@V�info(colour%,11,�BLUE)
@`�openwin(colour%)
@j0!block=colour%:ș"Wimp_GetWindowInfo",,block
@tworkx%=block!4-block!20
@~worky%=block!16-block!24
@�Fș"Wimp_ForceRedraw",-1,workx%+270,worky%-170,workx%+614,worky%-24
@�Gș"Wimp_ForceRedraw",-1,workx%+234,worky%-247,workx%+410,worky%-199
@��
@�
@�
�

00000000  0d 00 0a 0e d2 3d b8 50  2b 26 31 30 30 30 0d 00  |.....=.P+&1000..|
00000010  14 25 ee 20 85 20 f2 65  72 72 6f 72 28 f6 24 2b  |.%. . .error(.$+|
00000020  22 20 3a 20 61 74 20 6c  69 6e 65 20 22 2b c3 9e  |" : at line "+..|
00000030  29 3a e0 0d 00 1e 1c f4  20 2a 2a 2a 3e 24 2e 21  |):...... ***>$.!|
00000040  43 61 72 64 32 2e 21 52  75 6e 49 6d 61 67 65 0d  |Card2.!RunImage.|
00000050  00 28 38 f4 20 2a 2a 2a  4d 61 69 6e 20 50 72 6f  |.(8. ***Main Pro|
00000060  67 72 61 6d 20 66 6f 72  20 21 43 61 72 64 32 20  |gram for !Card2 |
00000070  2d 20 42 75 73 69 6e 65  73 73 20 43 61 72 64 20  |- Business Card |
00000080  63 72 65 61 74 6f 72 0d  00 32 20 f4 20 56 65 72  |creator..2 . Ver|
00000090  73 69 6f 6e 20 32 2e 30  33 20 28 32 36 20 53 65  |sion 2.03 (26 Se|
000000a0  70 74 20 27 39 33 29 0d  00 3c 12 f4 20 a9 20 4a  |pt '93)..<.. . J|
000000b0  2e 20 52 6f 62 62 69 6e  73 0d 00 46 5b de 20 62  |. Robbins..F[. b|
000000c0  6c 6f 63 6b 20 31 30 32  34 30 2c 20 6d 62 6c 6f  |lock 10240, mblo|
000000d0  63 6b 20 31 30 32 34 2c  20 6d 65 6e 75 25 20 36  |ck 1024, menu% 6|
000000e0  31 34 34 2c 20 63 75 72  62 75 66 25 20 20 35 31  |144, curbuf%  51|
000000f0  32 30 2c 20 69 63 6f 6e  64 20 33 30 37 32 2c 20  |20, icond 3072, |
00000100  71 25 20 31 30 32 34 2c  20 74 65 78 74 25 20 26  |q% 1024, text% &|
00000110  31 30 30 30 0d 00 50 0e  6d 61 78 6c 65 76 25 3d  |1000..P.maxlev%=|
00000120  33 32 0d 00 5a 23 de 20  73 74 61 72 74 25 28 6d  |32..Z#. start%(m|
00000130  61 78 6c 65 76 25 29 2c  62 6f 78 25 28 6d 61 78  |axlev%),box%(max|
00000140  6c 65 76 25 29 0d 00 64  35 de 20 6c 25 28 6d 61  |lev%)..d5. l%(ma|
00000150  78 6c 65 76 25 29 2c 62  25 28 6d 61 78 6c 65 76  |xlev%),b%(maxlev|
00000160  25 29 2c 72 25 28 6d 61  78 6c 65 76 25 29 2c 74  |%),r%(maxlev%),t|
00000170  25 28 6d 61 78 6c 65 76  25 29 0d 00 6e 19 de 20  |%(maxlev%)..n.. |
00000180  68 65 78 63 28 34 29 2c  64 65 66 70 61 6c 25 20  |hexc(4),defpal% |
00000190  32 35 35 0d 00 78 4a de  20 73 63 61 6c 25 20 32  |255..xJ. scal% 2|
000001a0  30 2c 73 63 61 6c 62 6c  6f 6b 25 20 32 35 35 2c  |0,scalblok% 255,|
000001b0  74 65 6d 70 25 20 31 30  30 2c 70 61 6c 65 74 74  |temp% 100,palett|
000001c0  65 25 20 32 35 35 2c 77  69 6e 70 61 6c 28 31 35  |e% 255,winpal(15|
000001d0  29 2c 63 61 72 64 70 6f  73 28 31 36 29 0d 00 82  |),cardpos(16)...|
000001e0  2f de 20 6d 61 74 72 69  78 20 31 30 30 2c 20 6f  |/. matrix 100, o|
000001f0  72 69 67 69 6e 20 31 30  30 2c 20 62 6f 78 20 31  |rigin 100, box 1|
00000200  30 30 2c 20 62 6f 78 32  20 31 30 30 0d 00 8c 0e  |00, box2 100....|
00000210  e3 20 63 3d 31 20 b8 20  31 36 0d 00 96 07 f3 20  |. c=1 . 16..... |
00000220  61 0d 00 a0 10 63 61 72  64 70 6f 73 28 63 29 3d  |a....cardpos(c)=|
00000230  61 0d 00 aa 05 ed 0d 00  b4 16 20 68 65 78 63 28  |a......... hexc(|
00000240  30 29 3d 26 46 46 46 46  46 46 30 30 0d 00 be 0e  |0)=&FFFFFF00....|
00000250  e3 20 49 3d 30 20 b8 20  31 35 0d 00 c8 0a f3 20  |. I=0 . 15..... |
00000260  68 65 78 61 0d 00 d2 12  77 69 6e 70 61 6c 28 49  |hexa....winpal(I|
00000270  29 3d 68 65 78 61 0d 00  dc 16 64 65 66 70 61 6c  |)=hexa....defpal|
00000280  25 21 28 49 2a 34 29 3d  68 65 78 61 0d 00 e6 05  |%!(I*4)=hexa....|
00000290  ed 0d 00 f0 3f dc 20 32  35 2c 36 32 35 2c 32 39  |....?. 25,625,29|
000002a0  30 2c 36 32 35 2c 32 35  2c 34 34 35 2c 32 39 30  |0,625,25,445,290|
000002b0  2c 34 34 35 2c 32 35 2c  32 36 35 2c 32 39 30 2c  |,445,25,265,290,|
000002c0  32 36 35 2c 32 35 2c 38  35 2c 32 39 30 2c 38 35  |265,25,85,290,85|
000002d0  0d 00 fa 50 dc 20 26 46  46 46 46 46 46 31 30 2c  |...P. &FFFFFF10,|
000002e0  26 44 44 44 44 44 44 31  30 2c 26 42 42 42 42 42  |&DDDDDD10,&BBBBB|
000002f0  42 31 30 2c 26 39 39 39  39 39 39 31 30 2c 26 37  |B10,&99999910,&7|
00000300  37 37 37 37 37 31 30 2c  26 35 35 35 35 35 35 31  |7777710,&5555551|
00000310  30 2c 26 33 33 33 33 33  33 31 30 2c 26 30 31 30  |0,&33333310,&010|
00000320  0d 01 04 49 dc 20 26 39  39 34 34 30 30 31 30 2c  |...I. &99440010,|
00000330  26 45 45 45 45 31 30 2c  26 43 43 30 30 31 30 2c  |&EEEE10,&CC0010,|
00000340  26 44 44 31 30 2c 26 42  42 45 45 45 45 31 30 2c  |&DD10,&BBEEEE10,|
00000350  26 38 38 35 35 31 30 2c  26 42 42 46 46 31 30 2c  |&885510,&BBFF10,|
00000360  26 46 46 42 42 30 30 31  30 0d 01 0e 46 20 65 6e  |&FFBB0010...F en|
00000370  64 25 3d 2d 31 3a 74 65  78 74 63 3d a3 3a 63 61  |d%=-1:textc=.:ca|
00000380  72 64 62 3d a3 3a 68 65  78 3d 30 3a 52 45 44 3d  |rdb=.:hex=0:RED=|
00000390  28 68 65 78 3e 3e 38 29  80 26 46 46 3a 42 4c 55  |(hex>>8).&FF:BLU|
000003a0  45 3d 52 45 44 3a 47 52  45 45 4e 3d 52 45 44 0d  |E=RED:GREEN=RED.|
000003b0  01 18 19 65 6e 64 62 75  66 25 3d 63 75 72 62 75  |...endbuf%=curbu|
000003c0  66 25 2b 26 36 30 30 30  0d 01 22 36 70 69 63 6d  |f%+&6000.."6picm|
000003d0  65 6e 75 33 24 3d 22 22  3a 70 69 63 6d 65 6e 75  |enu3$="":picmenu|
000003e0  32 24 3d 22 22 3a 70 69  63 6d 65 6e 75 24 3d 22  |2$="":picmenu$="|
000003f0  22 3a 70 69 63 6d 65 6e  75 34 24 3d 22 22 0d 01  |":picmenu4$=""..|
00000400  2c 56 6a 3d 30 3a 67 65  65 3d 30 3a 67 65 65 63  |,Vj=0:gee=0:geec|
00000410  75 73 3d 30 3a 66 61 6d  69 6c 79 24 3d 22 54 72  |us=0:family$="Tr|
00000420  69 6e 69 74 79 2e 4d 65  64 69 75 6d 22 3a 66 73  |inity.Medium":fs|
00000430  69 7a 65 3d 31 32 3a 69  6e 3d a3 3a 63 6c 6f 73  |ize=12:in=.:clos|
00000440  65 3d 30 3a 6e 6f 6e 6f  3d 30 3a 6e 73 3d 30 3a  |e=0:nono=0:ns=0:|
00000450  6e 69 3d 30 0d 01 36 49  73 61 76 65 66 3d b9 3a  |ni=0..6Isavef=.:|
00000460  6e 6f 70 72 69 6e 74 3d  a3 3a 70 72 69 6e 74 69  |noprint=.:printi|
00000470  6e 67 3d a3 3a 71 75 69  74 69 6e 67 3d a3 3a 66  |ng=.:quiting=.:f|
00000480  75 6c 6c 3d a3 3a 70 72  65 71 75 69 74 3d a3 3a  |ull=.:prequit=.:|
00000490  70 72 65 71 75 69 74 77  61 69 74 3d a3 0d 01 40  |prequitwait=...@|
000004a0  1a 66 6d 63 72 65 61 74  65 64 25 3d a3 3a 66 63  |.fmcreated%=.:fc|
000004b0  6f 75 6e 74 25 3d 30 0d  01 4a 12 72 65 69 6e 74  |ount%=0..J.reint|
000004c0  65 72 3d 26 38 31 36 38  33 0d 01 54 42 c8 99 20  |er=&81683..TB.. |
000004d0  22 57 69 6d 70 5f 49 6e  69 74 69 61 6c 69 73 65  |"Wimp_Initialise|
000004e0  22 2c 32 30 30 2c 26 34  42 35 33 34 31 35 34 2c  |",200,&4B534154,|
000004f0  22 21 43 61 72 64 32 22  20 b8 20 76 65 72 73 69  |"!Card2" . versi|
00000500  6f 6e 25 2c 6d 79 74 61  73 6b 25 0d 01 5e 24 c8  |on%,mytask%..^$.|
00000510  99 20 22 57 69 6d 70 5f  43 6c 61 69 6d 49 6e 74  |. "Wimp_ClaimInt|
00000520  65 72 66 61 63 65 22 2c  6d 79 74 61 73 6b 25 0d  |erface",mytask%.|
00000530  01 68 4a 65 6e 64 25 3d  a3 3a 64 72 61 67 25 3d  |.hJend%=.:drag%=|
00000540  30 3a 64 72 69 76 65 25  3d 30 3a 73 66 69 6c 65  |0:drive%=0:sfile|
00000550  24 3d 22 22 3a 53 68 65  61 72 3d b9 3a 63 75 72  |$="":Shear=.:cur|
00000560  73 70 72 24 3d 22 22 3a  70 72 6f 67 6e 65 65 64  |spr$="":progneed|
00000570  3d 31 31 32 2a 31 30 32  34 0d 01 72 60 73 69 7a  |=112*1024..r`siz|
00000580  65 25 3d 34 38 3a 66 6f  6e 74 25 3d 2d 31 3a 66  |e%=48:font%=-1:f|
00000590  61 6d 69 6c 79 25 3d 30  3a 73 74 79 6c 65 25 3d  |amily%=0:style%=|
000005a0  2d 31 3a 6e 5f 66 6f 6e  74 25 3d 31 3a 6e 6f 6f  |-1:n_font%=1:noo|
000005b0  66 63 61 72 64 73 3d 38  3a 66 6f 72 63 65 3d a3  |fcards=8:force=.|
000005c0  3a 63 65 6e 74 72 65 64  3d a3 3a 62 6f 78 69 74  |:centred=.:boxit|
000005d0  3d b9 3a 74 69 6c 65 3d  a3 0d 01 7c 0d f2 74 65  |=.:tile=...|..te|
000005e0  6d 70 6c 61 74 65 0d 01  86 19 c8 99 20 22 4f 53  |mplate...... "OS|
000005f0  5f 47 65 74 45 6e 76 22  20 b8 20 65 6e 76 24 0d  |_GetEnv" . env$.|
00000600  01 90 16 e7 20 a7 65 6e  76 24 2c 22 2d 71 75 69  |.... .env$,"-qui|
00000610  74 22 29 20 8c 0d 01 9a  12 49 25 3d a7 65 6e 76  |t") .....I%=.env|
00000620  24 2c 22 22 22 22 29 0d  01 a4 17 49 25 3d a7 65  |$,"""")....I%=.e|
00000630  6e 76 24 2c 22 22 22 22  2c 49 25 2b 31 29 0d 01  |nv$,"""",I%+1)..|
00000640  ae 05 f5 0d 01 b8 09 49  25 2b 3d 31 0d 01 c2 16  |.......I%+=1....|
00000650  fd 20 c1 65 6e 76 24 2c  49 25 2c 31 29 3c 3e 22  |. .env$,I%,1)<>"|
00000660  20 22 0d 01 cc 12 65 6e  76 24 3d c1 65 6e 76 24  | "....env$=.env$|
00000670  2c 49 25 29 0d 01 d6 13  70 72 69 6e 74 24 3d c2  |,I%)....print$=.|
00000680  65 6e 76 24 2c 37 29 0d  01 e0 0a 6e 6f 69 63 3d  |env$,7)....noic=|
00000690  30 0d 01 ea 33 e7 20 70  72 69 6e 74 24 3d 22 20  |0...3. print$=" |
000006a0  2d 70 72 69 6e 74 22 20  8c 20 65 6e 76 24 3d c0  |-print" . env$=.|
000006b0  65 6e 76 24 2c a9 65 6e  76 24 2d 37 29 3a 6e 6f  |env$,.env$-7):no|
000006c0  69 63 3d 31 0d 01 f4 3e  e7 20 70 72 69 6e 74 24  |ic=1...>. print$|
000006d0  3d 22 20 2d 70 72 69 6e  74 22 20 8c 20 f2 70 72  |=" -print" . .pr|
000006e0  65 73 65 6e 74 3a f2 6c  6f 61 64 28 65 6e 76 24  |esent:.load(env$|
000006f0  29 3a f2 6f 70 65 6e 77  69 6e 28 70 72 69 6e 74  |):.openwin(print|
00000700  25 29 0d 01 fe 2e e7 20  70 72 69 6e 74 24 3c 3e  |%)..... print$<>|
00000710  22 20 2d 70 72 69 6e 74  22 20 80 20 65 6e 76 24  |" -print" . env$|
00000720  3c 3e 22 22 20 f2 6c 6f  61 64 28 65 6e 76 24 29  |<>"" .load(env$)|
00000730  0d 02 08 1b e7 20 6e 6f  69 63 3d 30 20 8c 20 69  |..... noic=0 . i|
00000740  6e 69 74 69 63 3d a4 69  63 6f 6e 0d 02 12 14 c8  |nitic=.icon.....|
00000750  99 22 48 6f 75 72 67 6c  61 73 73 5f 4f 6e 22 0d  |."Hourglass_On".|
00000760  02 1c 0c f2 66 6d 65 6e  75 63 72 0d 02 26 15 c8  |....fmenucr..&..|
00000770  99 22 48 6f 75 72 67 6c  61 73 73 5f 4f 66 66 22  |."Hourglass_Off"|
00000780  0d 02 30 0b f2 70 6f 6c  6c 69 74 0d 02 3a 0c dd  |..0..pollit..:..|
00000790  f2 70 6f 6c 6c 69 74 0d  02 44 05 f5 0d 02 4e 26  |.pollit..D....N&|
000007a0  20 c8 99 22 57 69 6d 70  5f 50 6f 6c 6c 22 2c 30  | .."Wimp_Poll",0|
000007b0  2c 62 6c 6f 63 6b 20 b8  20 65 76 65 6e 74 63 6f  |,block . eventco|
000007c0  64 65 0d 02 58 2e 20 c8  99 20 22 57 69 6d 70 5f  |de..X. .. "Wimp_|
000007d0  50 6f 6c 6c 50 6f 69 6e  74 65 72 22 2c 65 76 65  |PollPointer",eve|
000007e0  6e 74 63 6f 64 65 2c 2c  76 65 72 73 69 6f 6e 25  |ntcode,,version%|
000007f0  0d 02 62 12 c8 8e 20 65  76 65 6e 74 63 6f 64 65  |..b... eventcode|
00000800  20 ca 0d 02 6c 32 c9 20  30 3a e7 20 73 61 76 65  | ...l2. 0:. save|
00000810  66 20 80 20 70 72 65 71  75 69 74 20 c8 99 22 57  |f . prequit .."W|
00000820  69 6d 70 5f 50 72 6f 63  65 73 73 4b 65 79 22 2c  |imp_ProcessKey",|
00000830  26 31 46 43 0d 02 76 18  c9 20 31 3a f2 72 65 64  |&1FC..v.. 1:.red|
00000840  72 61 77 28 62 6c 6f 63  6b 21 30 29 0d 02 80 23  |raw(block!0)...#|
00000850  c9 20 32 3a c8 99 20 22  57 69 6d 70 5f 4f 70 65  |. 2:.. "Wimp_Ope|
00000860  6e 57 69 6e 64 6f 77 22  2c 2c 62 6c 6f 63 6b 0d  |nWindow",,block.|
00000870  02 8a 24 c9 20 33 3a c8  99 20 22 57 69 6d 70 5f  |..$. 3:.. "Wimp_|
00000880  43 6c 6f 73 65 57 69 6e  64 6f 77 22 2c 2c 62 6c  |CloseWindow",,bl|
00000890  6f 63 6b 0d 02 94 33 e7  20 6e 6f 69 63 3d 31 20  |ock...3. noic=1 |
000008a0  8c 20 c8 99 72 65 69 6e  74 65 72 2c 6d 79 74 61  |. ..reinter,myta|
000008b0  73 6b 25 3a c8 99 22 57  69 6d 70 5f 43 6c 6f 73  |sk%:.."Wimp_Clos|
000008c0  65 44 6f 77 6e 22 0d 02  9e 2a e7 20 62 6c 6f 63  |eDown"...*. bloc|
000008d0  6b 21 30 3d 73 61 76 65  64 25 20 80 20 70 72 65  |k!0=saved% . pre|
000008e0  71 75 69 74 20 8c 20 70  72 65 71 75 69 74 3d a3  |quit . prequit=.|
000008f0  0d 02 a8 15 c9 20 36 3a  f2 63 6c 69 63 6b 28 62  |..... 6:.click(b|
00000900  6c 6f 63 6b 29 0d 02 b2  0c c9 20 37 3a f2 6f 75  |lock)..... 7:.ou|
00000910  74 0d 02 bc 10 c9 20 38  3a f2 70 72 6f 63 65 73  |t..... 8:.proces|
00000920  73 0d 02 c6 0f c9 20 39  3a f2 73 65 6c 65 63 74  |s..... 9:.select|
00000930  0d 02 d0 16 c9 20 31 37  2c 31 38 3a f2 6d 65 73  |..... 17,18:.mes|
00000940  73 61 67 65 69 6e 0d 02  da 05 cb 0d 02 e4 07 fd  |sagein..........|
00000950  20 a3 0d 02 ee 05 e1 0d  02 f8 05 e0 0d 03 02 0a  | ...............|
00000960  dd a4 69 63 6f 6e 0d 03  0c 0d 21 69 63 6f 6e 64  |..icon....!icond|
00000970  3d 2d 31 0d 03 16 0d 69  63 6f 6e 64 21 34 3d 30  |=-1....icond!4=0|
00000980  0d 03 20 25 69 63 6f 6e  64 21 38 3d 30 3a 69 63  |.. %icond!8=0:ic|
00000990  6f 6e 64 21 31 32 3d 36  38 3a 69 63 6f 6e 64 21  |ond!12=68:icond!|
000009a0  31 36 3d 36 38 0d 03 2a  2b 69 63 6f 6e 64 21 32  |16=68..*+icond!2|
000009b0  30 3d 25 31 31 30 31 30  2b 28 28 32 5e 31 32 29  |0=%11010+((2^12)|
000009c0  2a 33 29 3a 69 63 6f 6e  64 3f 32 33 3d 31 31 32  |*3):icond?23=112|
000009d0  0d 03 34 1c 24 28 69 63  6f 6e 64 2b 32 34 29 3d  |..4.$(icond+24)=|
000009e0  22 21 43 61 72 64 32 22  2b bd 31 33 0d 03 3e 26  |"!Card2"+.13..>&|
000009f0  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 49  |.. "Wimp_CreateI|
00000a00  63 6f 6e 22 2c 2c 69 63  6f 6e 64 20 b8 20 69 63  |con",,icond . ic|
00000a10  6f 6e 0d 03 48 09 3d 69  63 6f 6e 0d 03 52 16 dd  |on..H.=icon..R..|
00000a20  a4 69 6e 66 28 68 61 6e  64 6c 65 2c 69 63 6f 6e  |.inf(handle,icon|
00000a30  29 0d 03 5c 15 f2 67 65  65 28 68 61 6e 64 6c 65  |)..\..gee(handle|
00000a40  2c 69 63 6f 6e 29 0d 03  66 0d 3d 69 63 6f 6e 64  |,icon)..f.=icond|
00000a50  21 32 38 0d 03 70 0e 20  dd a4 62 69 74 28 61 24  |!28..p. ..bit(a$|
00000a60  29 0d 03 7a 11 c8 95 20  a7 61 24 2c 22 3a 22 29  |)..z... .a$,":")|
00000a70  3e 30 0d 03 84 16 61 24  3d c1 61 24 2c a7 61 24  |>0....a$=.a$,.a$|
00000a80  2c 22 3a 22 29 2b 31 29  0d 03 8e 05 ce 0d 03 98  |,":")+1)........|
00000a90  11 c8 95 20 a7 61 24 2c  22 2e 22 29 3e 30 0d 03  |... .a$,".")>0..|
00000aa0  a2 16 61 24 3d c1 61 24  2c a7 61 24 2c 22 2e 22  |..a$=.a$,.a$,"."|
00000ab0  29 2b 31 29 0d 03 ac 05  ce 0d 03 b6 07 3d 61 24  |)+1).........=a$|
00000ac0  0d 03 c0 11 dd a4 77 6f  6f 6c 28 77 6f 6f 6c 25  |......wool(wool%|
00000ad0  29 0d 03 ca 0a ea 20 63  6f 74 24 0d 03 d4 12 20  |)..... cot$.... |
00000ae0  c8 95 20 3f 77 6f 6f 6c  25 3e 3d 33 32 0d 03 de  |.. ?wool%>=32...|
00000af0  13 63 6f 74 24 2b 3d bd  28 3f 77 6f 6f 6c 25 29  |.cot$+=.(?wool%)|
00000b00  0d 03 e8 0c 77 6f 6f 6c  25 2b 3d 31 0d 03 f2 05  |....wool%+=1....|
00000b10  ce 0d 03 fc 09 3d 63 6f  74 24 0d 04 06 0e dd f2  |.....=cot$......|
00000b20  74 65 6d 70 6c 61 74 65  0d 04 10 31 c8 99 22 57  |template...1.."W|
00000b30  69 6d 70 5f 4f 70 65 6e  54 65 6d 70 6c 61 74 65  |imp_OpenTemplate|
00000b40  22 2c 2c 22 3c 43 61 72  64 24 44 69 72 3e 2e 54  |",,"<Card$Dir>.T|
00000b50  65 6d 70 6c 61 74 65 73  22 0d 04 1a 11 69 6e 64  |emplates"....ind|
00000b60  69 72 3d 63 75 72 62 75  66 25 0d 04 24 1f 69 6e  |ir=curbuf%..$.in|
00000b70  66 6f 25 3d a4 74 65 6d  70 6c 61 74 65 28 22 50  |fo%=.template("P|
00000b80  72 6f 67 49 6e 66 6f 22  29 0d 04 2e 1b 73 61 76  |rogInfo")....sav|
00000b90  65 25 3d a4 74 65 6d 70  6c 61 74 65 28 22 73 61  |e%=.template("sa|
00000ba0  76 65 22 29 0d 04 38 1b  63 61 72 64 25 3d a4 74  |ve")..8.card%=.t|
00000bb0  65 6d 70 6c 61 74 65 28  22 43 61 72 64 22 29 0d  |emplate("Card").|
00000bc0  04 42 21 64 65 74 61 69  6c 73 25 3d a4 74 65 6d  |.B!details%=.tem|
00000bd0  70 6c 61 74 65 28 22 64  65 74 61 69 6c 73 22 29  |plate("details")|
00000be0  0d 04 4c 20 73 61 76 65  64 25 3d a4 74 65 6d 70  |..L saved%=.temp|
00000bf0  6c 61 74 65 28 22 73 61  76 65 74 65 78 74 22 29  |late("savetext")|
00000c00  0d 04 56 1d 70 72 69 6e  74 25 3d a4 74 65 6d 70  |..V.print%=.temp|
00000c10  6c 61 74 65 28 22 70 72  69 6e 74 22 29 0d 04 60  |late("print")..`|
00000c20  20 63 6f 6c 6f 75 72 25  3d a4 74 65 6d 70 6c 61  | colour%=.templa|
00000c30  74 65 28 22 63 6f 6c 6f  75 72 73 22 29 0d 04 6a  |te("colours")..j|
00000c40  21 73 61 76 65 70 69 63  25 3d a4 74 65 6d 70 6c  |!savepic%=.templ|
00000c50  61 74 65 28 22 53 61 76  65 50 49 43 22 29 0d 04  |ate("SavePIC")..|
00000c60  74 1d 71 75 65 72 79 25  3d a4 74 65 6d 70 6c 61  |t.query%=.templa|
00000c70  74 65 28 22 71 75 65 72  79 22 29 0d 04 7e 1e 71  |te("query")..~.q|
00000c80  75 69 74 25 3d a4 74 65  6d 70 6c 61 74 65 28 22  |uit%=.template("|
00000c90  71 75 69 74 62 6f 78 22  29 0d 04 88 1b c8 99 20  |quitbox")...... |
00000ca0  22 57 69 6d 70 5f 43 6c  6f 73 65 54 65 6d 70 6c  |"Wimp_CloseTempl|
00000cb0  61 74 65 22 0d 04 92 17  73 74 65 78 3d a4 69 6e  |ate"....stex=.in|
00000cc0  66 6f 28 73 61 76 65 25  2c 31 29 0d 04 9c 19 73  |fo(save%,1)....s|
00000cd0  74 65 78 64 3d a4 69 6e  66 6f 28 73 61 76 65 64  |texd=.info(saved|
00000ce0  25 2c 31 29 0d 04 a6 1e  73 74 65 78 74 70 69 63  |%,1)....stextpic|
00000cf0  3d a4 69 6e 66 6f 28 73  61 76 65 70 69 63 25 2c  |=.info(savepic%,|
00000d00  31 29 0d 04 b0 05 e1 0d  04 ba 12 dd a4 74 65 6d  |1)...........tem|
00000d10  70 6c 61 74 65 28 61 24  29 0d 04 c4 46 c8 99 22  |plate(a$)...F.."|
00000d20  57 69 6d 70 5f 4c 6f 61  64 54 65 6d 70 6c 61 74  |Wimp_LoadTemplat|
00000d30  65 22 2c 2c 62 6c 6f 63  6b 2c 69 6e 64 69 72 2c  |e",,block,indir,|
00000d40  65 6e 64 62 75 66 25 2c  2d 31 2c 61 24 2c 30 20  |endbuf%,-1,a$,0 |
00000d50  b8 20 2c 2c 69 6e 64 69  72 2c 2c 2c 2c 63 25 0d  |. ,,indir,,,,c%.|
00000d60  04 ce 32 e7 20 63 25 3d  30 20 8c 20 f2 6d 65 73  |..2. c%=0 . .mes|
00000d70  73 28 22 54 65 6d 70 6c  61 74 65 20 22 2b 61 24  |s("Template "+a$|
00000d80  2b 22 20 6e 6f 74 20 66  6f 75 6e 64 2e 22 29 3a  |+" not found."):|
00000d90  e0 0d 04 d8 0e 62 6c 6f  63 6b 21 36 34 3d 31 0d  |.....block!64=1.|
00000da0  04 e2 29 c8 99 22 57 69  6d 70 5f 43 72 65 61 74  |..).."Wimp_Creat|
00000db0  65 57 69 6e 64 6f 77 22  2c 2c 62 6c 6f 63 6b 20  |eWindow",,block |
00000dc0  b8 20 68 61 6e 64 6c 65  0d 04 ec 0b 3d 68 61 6e  |. handle....=han|
00000dd0  64 6c 65 0d 04 f6 17 dd  a4 69 6e 66 6f 28 68 61  |dle......info(ha|
00000de0  6e 64 6c 65 2c 69 63 6f  6e 29 0d 05 00 15 f2 67  |ndle,icon).....g|
00000df0  65 65 28 68 61 6e 64 6c  65 2c 69 63 6f 6e 29 0d  |ee(handle,icon).|
00000e00  05 0a 0d 3d 69 63 6f 6e  64 21 32 38 0d 05 14 1d  |...=icond!28....|
00000e10  dd f2 69 6e 66 6f 28 68  61 6e 64 6c 65 2c 69 63  |..info(handle,ic|
00000e20  6f 6e 2c 74 65 78 74 24  29 0d 05 1e 3b 21 62 6c  |on,text$)...;!bl|
00000e30  6f 63 6b 3d 68 61 6e 64  6c 65 3a 62 6c 6f 63 6b  |ock=handle:block|
00000e40  21 34 3d 69 63 6f 6e 3a  c8 99 22 57 69 6d 70 5f  |!4=icon:.."Wimp_|
00000e50  47 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 62  |GetIconState",,b|
00000e60  6c 6f 63 6b 0d 05 28 29  24 28 62 6c 6f 63 6b 21  |lock..()$(block!|
00000e70  32 38 29 3d 74 65 78 74  24 3a 62 6c 6f 63 6b 21  |28)=text$:block!|
00000e80  33 36 3d a9 28 74 65 78  74 24 29 2b 31 0d 05 32  |36=.(text$)+1..2|
00000e90  18 62 6c 6f 63 6b 21 38  3d 30 3a 62 6c 6f 63 6b  |.block!8=0:block|
00000ea0  21 31 32 3d 30 0d 05 3c  20 c8 99 22 57 69 6d 70  |!12=0..< .."Wimp|
00000eb0  5f 53 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_SetIconState",,|
00000ec0  62 6c 6f 63 6b 0d 05 46  05 e1 0d 05 50 16 dd f2  |block..F....P...|
00000ed0  67 65 65 28 68 61 6e 64  6c 65 2c 69 63 6f 6e 29  |gee(handle,icon)|
00000ee0  0d 05 5a 1e 21 69 63 6f  6e 64 3d 68 61 6e 64 6c  |..Z.!icond=handl|
00000ef0  65 3a 69 63 6f 6e 64 21  34 3d 69 63 6f 6e 0d 05  |e:icond!4=icon..|
00000f00  64 20 c8 99 22 57 69 6d  70 5f 47 65 74 49 63 6f  |d .."Wimp_GetIco|
00000f10  6e 53 74 61 74 65 22 2c  2c 69 63 6f 6e 64 0d 05  |nState",,icond..|
00000f20  6e 05 e1 0d 05 78 0d dd  f2 70 72 65 73 65 6e 74  |n....x...present|
00000f30  0d 05 82 09 61 24 3d 22  22 0d 05 8c 07 ea 20 85  |....a$=""..... .|
00000f40  0d 05 96 20 ee 20 85 20  ea 20 61 24 3d 22 4e 6f  |... . . . a$="No|
00000f50  74 20 50 72 65 73 65 6e  74 22 3a f7 20 85 3a e1  |t Present":. .:.|
00000f60  0d 05 a0 20 c8 99 22 50  44 72 69 76 65 72 5f 49  |... .."PDriver_I|
00000f70  6e 66 6f 22 20 b8 20 61  2c 2c 2c 2c 6e 61 6d 65  |nfo" . a,,,,name|
00000f80  0d 05 aa 0c c8 95 20 3f  6e 61 6d 65 0d 05 b4 12  |...... ?name....|
00000f90  61 24 3d 61 24 2b bd 28  3f 6e 61 6d 65 29 0d 05  |a$=a$+.(?name)..|
00000fa0  be 0b 6e 61 6d 65 2b 3d  31 0d 05 c8 05 ce 0d 05  |..name+=1.......|
00000fb0  d2 17 24 a4 69 6e 66 6f  28 70 72 69 6e 74 25 2c  |..$.info(print%,|
00000fc0  30 29 3d 61 24 0d 05 dc  07 f7 20 85 0d 05 e6 05  |0)=a$..... .....|
00000fd0  e1 0d 05 f0 0c dd f2 63  6d 65 6e 75 73 0d 05 fa  |.......cmenus...|
00000fe0  0c f2 70 72 65 73 65 6e  74 0d 06 04 0a 6e 6f 67  |..present....nog|
00000ff0  6f 3d a3 0d 06 0e 09 67  65 65 3d 30 0d 06 18 10  |o=.....gee=0....|
00001000  6d 65 6e 75 6f 70 65 6e  3d 2d 34 34 0d 06 22 11  |menuopen=-44..".|
00001010  6d 65 6e 75 70 74 72 3d  6d 65 6e 75 25 0d 06 2c  |menuptr=menu%..,|
00001020  0c c8 97 20 78 2c 79 2c  62 0d 06 36 2e e7 20 62  |... x,y,b..6.. b|
00001030  6c 6f 63 6b 21 31 36 3d  32 37 20 80 20 73 66 69  |lock!16=27 . sfi|
00001040  6c 65 24 3c 3e 22 22 20  8c 20 48 4a 4b 3d b9 20  |le$<>"" . HJK=. |
00001050  8b 20 48 4a 4b 3d a3 0d  06 40 41 e7 20 48 4a 4b  |. HJK=...@A. HJK|
00001060  20 73 70 72 6d 65 6e 25  3d a4 6d 65 6e 75 28 22  | sprmen%=.menu("|
00001070  53 70 72 69 74 65 20 4c  69 73 74 22 2c 28 6c 61  |Sprite List",(la|
00001080  72 67 65 73 74 2a 31 34  29 2b 34 30 2c 6d 65 6e  |rgest*14)+40,men|
00001090  24 29 3a 67 65 65 3d 32  0d 06 4a 22 70 69 63 6d  |$):gee=2..J"picm|
000010a0  65 6e 75 24 3d 22 46 6f  72 63 65 20 53 63 61 6c  |enu$="Force Scal|
000010b0  65 2c 43 65 6e 74 72 65  64 22 0d 06 54 30 e7 20  |e,Centred"..T0. |
000010c0  63 65 6e 74 72 65 64 20  80 20 70 69 63 6d 65 6e  |centred . picmen|
000010d0  75 24 3c 3e 22 7b 80 7d  43 65 6e 74 72 65 64 22  |u$<>"{.}Centred"|
000010e0  20 63 65 6e 74 72 65 64  3d b9 0d 06 5e 27 e7 20  | centred=...^'. |
000010f0  66 6f 72 63 65 20 70 69  63 6d 65 6e 75 34 24 3d  |force picmenu4$=|
00001100  22 7b 80 7d 46 6f 72 63  65 20 53 63 61 6c 65 2c  |"{.}Force Scale,|
00001110  22 0d 06 68 26 e7 20 ac  20 66 6f 72 63 65 20 70  |"..h&. . force p|
00001120  69 63 6d 65 6e 75 34 24  3d 22 46 6f 72 63 65 20  |icmenu4$="Force |
00001130  53 63 61 6c 65 2c 22 0d  06 72 23 e7 20 63 65 6e  |Scale,"..r#. cen|
00001140  74 72 65 64 20 70 69 63  6d 65 6e 75 24 3d 22 7b  |tred picmenu$="{|
00001150  80 7d 43 65 6e 74 72 65  64 22 0d 06 7c 22 e7 20  |.}Centred"..|". |
00001160  ac 20 63 65 6e 74 72 65  64 20 70 69 63 6d 65 6e  |. centred picmen|
00001170  75 24 3d 22 43 65 6e 74  72 65 64 22 0d 06 86 53  |u$="Centred"...S|
00001180  e7 20 63 75 72 73 70 72  24 3c 3e 22 22 20 69 63  |. curspr$<>"" ic|
00001190  6f 6e 6d 65 6e 75 24 3d  22 7b 62 7c 70 69 63 6d  |onmenu$="{b|picm|
000011a0  65 6e 75 25 7d 50 69 63  74 75 72 65 22 20 8b 20  |enu%}Picture" . |
000011b0  69 63 6f 6e 6d 65 6e 75  24 3d 22 7b 2d 7c 70 69  |iconmenu$="{-|pi|
000011c0  63 6d 65 6e 75 25 7d 50  69 63 74 75 72 65 22 0d  |cmenu%}Picture".|
000011d0  06 90 57 70 69 63 6d 65  6e 75 25 3d a4 6d 65 6e  |..Wpicmenu%=.men|
000011e0  75 28 22 50 69 63 74 75  72 65 22 2c 31 39 30 2c  |u("Picture",190,|
000011f0  22 7b 5f 7d 44 65 6c 20  50 69 63 2c 7b 75 7c 73  |"{_}Del Pic,{u|s|
00001200  61 76 65 70 69 63 25 7d  53 61 76 65 20 50 69 63  |avepic%}Save Pic|
00001210  2c 22 2b 70 69 63 6d 65  6e 75 34 24 2b 70 69 63  |,"+picmenu4$+pic|
00001220  6d 65 6e 75 24 29 0d 06  9a 3e 73 61 76 65 6d 65  |menu$)...>saveme|
00001230  6e 75 25 3d a4 6d 65 6e  75 28 22 53 61 76 65 22  |nu%=.menu("Save"|
00001240  2c 31 37 34 2c 22 7b 62  7c 73 61 76 65 25 7d 44  |,174,"{b|save%}D|
00001250  72 61 77 2c 7b 62 7c 73  61 76 65 64 25 7d 44 61  |raw,{b|saved%}Da|
00001260  74 61 22 29 0d 06 a4 72  69 63 6f 6e 6d 65 6e 75  |ta")...riconmenu|
00001270  25 3d a4 6d 65 6e 75 28  22 21 43 61 72 64 22 2c  |%=.menu("!Card",|
00001280  31 37 34 2c 22 7b 62 7c  69 6e 66 6f 25 7d 49 6e  |174,"{b|info%}In|
00001290  66 6f 2c 7b 62 7c 73 61  76 65 6d 65 6e 75 25 7d  |fo,{b|savemenu%}|
000012a0  53 61 76 65 2c 7b 62 7c  70 72 69 6e 74 25 7d 50  |Save,{b|print%}P|
000012b0  72 69 6e 74 2c 44 65 74  61 69 6c 73 2c 56 69 65  |rint,Details,Vie|
000012c0  77 2c 22 2b 69 63 6f 6e  6d 65 6e 75 24 2b 22 2c  |w,"+iconmenu$+",|
000012d0  51 75 69 74 22 29 0d 06  ae 69 64 65 74 6d 65 6e  |Quit")...idetmen|
000012e0  75 25 3d a4 6d 65 6e 75  28 22 21 43 61 72 64 22  |u%=.menu("!Card"|
000012f0  2c 31 37 34 2c 22 7b 62  7c 69 6e 66 6f 25 7d 49  |,174,"{b|info%}I|
00001300  6e 66 6f 2c 7b 62 7c 73  61 76 65 6d 65 6e 75 25  |nfo,{b|savemenu%|
00001310  7d 53 61 76 65 2c 7b 62  7c 70 72 69 6e 74 25 7d  |}Save,{b|print%}|
00001320  50 72 69 6e 74 2c 56 69  65 77 2c 22 2b 69 63 6f  |Print,View,"+ico|
00001330  6e 6d 65 6e 75 24 2b 22  2c 51 75 69 74 22 29 0d  |nmenu$+",Quit").|
00001340  06 b8 76 76 69 65 77 6d  65 6e 75 25 3d a4 6d 65  |..vviewmenu%=.me|
00001350  6e 75 28 22 21 43 61 72  64 22 2c 31 37 34 2c 22  |nu("!Card",174,"|
00001360  7b 62 7c 69 6e 66 6f 25  7d 49 6e 66 6f 2c 7b 62  |{b|info%}Info,{b|
00001370  7c 73 61 76 65 6d 65 6e  75 25 7d 53 61 76 65 2c  ||savemenu%}Save,|
00001380  7b 62 7c 70 72 69 6e 74  25 7d 50 72 69 6e 74 2c  |{b|print%}Print,|
00001390  44 65 74 61 69 6c 73 2c  42 61 63 6b 20 43 6f 6c  |Details,Back Col|
000013a0  2c 22 2b 69 63 6f 6e 6d  65 6e 75 24 2b 22 2c 51  |,"+iconmenu$+",Q|
000013b0  75 69 74 22 29 0d 06 c2  11 c8 8e 20 62 6c 6f 63  |uit")...... bloc|
000013c0  6b 21 31 32 20 ca 0d 06  cc 3c c9 20 2d 32 3a e7  |k!12 ....<. -2:.|
000013d0  20 62 6c 6f 63 6b 21 38  3d 32 20 8c 20 6f 70 65  | block!8=2 . ope|
000013e0  6e 6d 65 6e 75 25 3d 69  63 6f 6e 6d 65 6e 75 25  |nmenu%=iconmenu%|
000013f0  3a 61 3d 78 2d 37 35 3a  62 3d 28 37 2b 32 29 2a  |:a=x-75:b=(7+2)*|
00001400  34 38 0d 06 d6 4d c9 20  64 65 74 61 69 6c 73 25  |48...M. details%|
00001410  3a e7 20 48 4a 4b 20 8c  20 6f 70 65 6e 6d 65 6e  |:. HJK . openmen|
00001420  75 25 3d 73 70 72 6d 65  6e 25 3a 61 3d 78 3a 62  |u%=sprmen%:a=x:b|
00001430  3d 79 3a 8b 20 6f 70 65  6e 6d 65 6e 75 25 3d 64  |=y:. openmenu%=d|
00001440  65 74 6d 65 6e 75 25 3a  61 3d 78 3a 62 3d 79 0d  |etmenu%:a=x:b=y.|
00001450  06 e0 35 c9 20 63 61 72  64 25 3a e7 20 62 6c 6f  |..5. card%:. blo|
00001460  63 6b 21 38 3d 32 20 8c  20 6f 70 65 6e 6d 65 6e  |ck!8=2 . openmen|
00001470  75 25 3d 76 69 65 77 6d  65 6e 75 25 3a 61 3d 78  |u%=viewmenu%:a=x|
00001480  3a 62 3d 79 0d 06 ea 07  7f 3a e1 0d 06 f4 05 cb  |:b=y.....:......|
00001490  0d 06 fe 12 f2 6f 70 65  6e 6d 65 6e 75 28 61 2c  |.....openmenu(a,|
000014a0  62 29 0d 07 08 05 e1 0d  07 12 13 dd f2 6f 70 65  |b)...........ope|
000014b0  6e 6d 65 6e 75 28 78 2c  79 29 0d 07 1c 26 c8 99  |nmenu(x,y)...&..|
000014c0  22 57 69 6d 70 5f 43 72  65 61 74 65 4d 65 6e 75  |"Wimp_CreateMenu|
000014d0  22 2c 2c 6f 70 65 6e 6d  65 6e 75 25 2c 78 2c 79  |",,openmenu%,x,y|
000014e0  0d 07 26 05 e1 0d 07 30  1a dd a4 6d 65 6e 75 28  |..&....0...menu(|
000014f0  74 69 74 24 2c 77 69 64  2c 6d 65 6e 75 24 29 0d  |tit$,wid,menu$).|
00001500  07 3a 0e 6d 65 6e 75 24  2b 3d 22 2c 22 0d 07 44  |.:.menu$+=","..D|
00001510  13 6f 6c 64 6d 65 6e 75  3d 6d 65 6e 75 70 74 72  |.oldmenu=menuptr|
00001520  0d 07 4e 11 24 6d 65 6e  75 70 74 72 3d 74 69 74  |..N.$menuptr=tit|
00001530  24 0d 07 58 10 6d 65 6e  75 70 74 72 3f 31 32 3d  |$..X.menuptr?12=|
00001540  37 0d 07 62 10 6d 65 6e  75 70 74 72 3f 31 33 3d  |7..b.menuptr?13=|
00001550  32 0d 07 6c 10 6d 65 6e  75 70 74 72 3f 31 34 3d  |2..l.menuptr?14=|
00001560  37 0d 07 76 10 6d 65 6e  75 70 74 72 3f 31 35 3d  |7..v.menuptr?15=|
00001570  30 0d 07 80 12 6d 65 6e  75 70 74 72 21 31 36 3d  |0....menuptr!16=|
00001580  77 69 64 0d 07 8a 11 6d  65 6e 75 70 74 72 21 32  |wid....menuptr!2|
00001590  30 3d 34 38 0d 07 94 10  6d 65 6e 75 70 74 72 21  |0=48....menuptr!|
000015a0  32 34 3d 30 0d 07 9e 0f  6d 65 6e 75 70 74 72 2b  |24=0....menuptr+|
000015b0  3d 32 38 0d 07 a8 05 f5  0d 07 b2 11 f2 74 68 69  |=28..........thi|
000015c0  6e 67 28 6d 65 6e 75 24  29 0d 07 bc 1f 6d 65 6e  |ng(menu$)....men|
000015d0  75 24 3d c1 6d 65 6e 75  24 2c a7 6d 65 6e 75 24  |u$=.menu$,.menu$|
000015e0  2c 22 2c 22 29 2b 31 29  0d 07 c6 0f 6d 65 6e 75  |,",")+1)....menu|
000015f0  70 74 72 2b 3d 32 34 0d  07 d0 0e fd 20 6d 65 6e  |ptr+=24..... men|
00001600  75 24 3d 22 22 0d 07 da  29 6d 65 6e 75 70 74 72  |u$=""...)menuptr|
00001610  21 2d 32 34 3d 28 6d 65  6e 75 70 74 72 21 2d 32  |!-24=(menuptr!-2|
00001620  34 29 20 84 20 25 31 30  30 30 30 30 30 30 0d 07  |4) . %10000000..|
00001630  e4 0c 3d 6f 6c 64 6d 65  6e 75 0d 07 ee 0f dd f2  |..=oldmenu......|
00001640  74 68 69 6e 67 28 6d 24  29 0d 07 f8 16 6d 24 3d  |thing(m$)....m$=|
00001650  c0 6d 24 2c a7 6d 24 2c  22 2c 22 29 2d 31 29 0d  |.m$,.m$,",")-1).|
00001660  08 02 0f 69 24 3d 22 22  3a 6a 24 3d 22 22 0d 08  |...i$="":j$=""..|
00001670  0c 12 e7 20 a7 6d 24 2c  22 7b 22 29 3e 30 20 8c  |... .m$,"{")>0 .|
00001680  0d 08 16 16 69 24 3d c0  6d 24 2c a7 6d 24 2c 22  |....i$=.m$,.m$,"|
00001690  7d 22 29 2d 31 29 0d 08  20 16 6d 24 3d c1 6d 24  |}")-1).. .m$=.m$|
000016a0  2c a7 6d 24 2c 22 7d 22  29 2b 31 29 0d 08 2a 16  |,.m$,"}")+1)..*.|
000016b0  6a 24 3d c0 69 24 2c a7  69 24 2c 22 7c 22 29 2d  |j$=.i$,.i$,"|")-|
000016c0  31 29 0d 08 34 16 69 24  3d c1 69 24 2c a7 69 24  |1)..4.i$=.i$,.i$|
000016d0  2c 22 7c 22 29 2b 31 29  0d 08 3e 05 cd 0d 08 48  |,"|")+1)..>....H|
000016e0  13 69 6a 61 63 6b 3d 26  30 37 30 30 30 30 32 31  |.ijack=&07000021|
000016f0  0d 08 52 0b 6d 6a 61 63  6b 3d 30 0d 08 5c 0e 73  |..R.mjack=0..\.s|
00001700  75 62 6d 65 6e 75 3d 2d  31 0d 08 66 20 e7 20 a7  |ubmenu=-1..f . .|
00001710  6a 24 2c 22 62 22 29 3e  30 20 8c 20 73 75 62 6d  |j$,"b")>0 . subm|
00001720  65 6e 75 3d a0 28 69 24  29 0d 08 70 22 e7 20 a7  |enu=.(i$)..p". .|
00001730  6a 24 2c 22 5f 22 29 3e  30 20 8c 20 6d 6a 61 63  |j$,"_")>0 . mjac|
00001740  6b 3d 6d 6a 61 63 6b 20  84 20 32 0d 08 7a 22 e7  |k=mjack . 2..z".|
00001750  20 a7 6a 24 2c 22 80 22  29 3e 30 20 8c 20 6d 6a  | .j$,".")>0 . mj|
00001760  61 63 6b 3d 6d 6a 61 63  6b 20 84 20 31 0d 08 84  |ack=mjack . 1...|
00001770  30 e7 20 a7 6a 24 2c 22  75 22 29 3e 30 20 8c 20  |0. .j$,"u")>0 . |
00001780  6d 6a 61 63 6b 3d 6d 6a  61 63 6b 20 84 20 32 3a  |mjack=mjack . 2:|
00001790  73 75 62 6d 65 6e 75 3d  a0 28 69 24 29 0d 08 8e  |submenu=.(i$)...|
000017a0  36 e7 20 a7 6a 24 2c 22  2d 22 29 3e 30 20 8c 20  |6. .j$,"-")>0 . |
000017b0  69 6a 61 63 6b 3d 69 6a  61 63 6b 20 84 20 26 34  |ijack=ijack . &4|
000017c0  30 30 30 30 30 3a 73 75  62 6d 65 6e 75 3d a0 28  |00000:submenu=.(|
000017d0  69 24 29 0d 08 98 28 e7  20 a7 6a 24 2c 22 73 22  |i$)...(. .j$,"s"|
000017e0  29 3e 30 20 8c 20 69 6a  61 63 6b 3d 69 6a 61 63  |)>0 . ijack=ijac|
000017f0  6b 20 84 20 26 34 30 30  30 30 30 0d 08 a2 12 21  |k . &400000....!|
00001800  6d 65 6e 75 70 74 72 3d  6d 6a 61 63 6b 0d 08 ac  |menuptr=mjack...|
00001810  15 6d 65 6e 75 70 74 72  21 34 3d 73 75 62 6d 65  |.menuptr!4=subme|
00001820  6e 75 0d 08 b6 13 6d 65  6e 75 70 74 72 21 38 3d  |nu....menuptr!8=|
00001830  69 6a 61 63 6b 0d 08 c0  14 24 28 6d 65 6e 75 70  |ijack....$(menup|
00001840  74 72 2b 31 32 29 3d 6d  24 0d 08 ca 05 cd 0d 08  |tr+12)=m$.......|
00001850  d4 05 e1 0d 08 de 12 dd  f2 63 6c 69 63 6b 28 62  |.........click(b|
00001860  6c 6f 63 6b 29 0d 08 e8  13 6b 65 65 70 62 25 3d  |lock)....keepb%=|
00001870  62 6c 6f 63 6b 21 31 32  0d 08 f2 2a e7 20 a4 63  |block!12...*. .c|
00001880  68 65 63 6b 69 74 28 62  6c 6f 63 6b 21 31 32 2c  |heckit(block!12,|
00001890  62 6c 6f 63 6b 21 31 36  29 3d 39 38 33 30 34 30  |block!16)=983040|
000018a0  20 8c 0d 08 fc 24 f2 73  6c 61 62 69 6e 28 6b 65  | ....$.slabin(ke|
000018b0  65 70 62 25 29 3a f2 73  6c 61 62 6f 75 74 28 6b  |epb%):.slabout(k|
000018c0  65 65 70 62 25 29 0d 09  06 05 cd 0d 09 10 27 e7  |eepb%)........'.|
000018d0  20 71 75 69 74 69 6e 67  20 8c 20 71 75 69 74 69  | quiting . quiti|
000018e0  6e 67 3d a3 3a f2 63 6c  6f 73 65 28 71 75 69 74  |ng=.:.close(quit|
000018f0  25 29 0d 09 1a 39 e7 20  62 6c 6f 63 6b 21 31 32  |%)...9. block!12|
00001900  3d 63 61 72 64 25 20 80  20 62 6c 6f 63 6b 21 38  |=card% . block!8|
00001910  3d 34 20 69 6f 3d 30 3a  68 65 78 3d 68 65 78 63  |=4 io=0:hex=hexc|
00001920  28 30 29 3a f2 73 65 74  70 65 72 0d 09 24 30 e7  |(0):.setper..$0.|
00001930  20 62 6c 6f 63 6b 21 31  32 3d 2d 32 20 80 20 62  | block!12=-2 . b|
00001940  6c 6f 63 6b 21 38 3d 34  20 f2 6f 70 65 6e 77 69  |lock!8=4 .openwi|
00001950  6e 28 64 65 74 61 69 6c  73 25 29 0d 09 2e 2d e7  |n(details%)...-.|
00001960  20 62 6c 6f 63 6b 21 31  32 3d 2d 32 20 80 20 62  | block!12=-2 . b|
00001970  6c 6f 63 6b 21 38 3d 31  20 f2 6f 70 65 6e 77 69  |lock!8=1 .openwi|
00001980  6e 28 63 61 72 64 25 29  0d 09 38 25 e7 20 62 6c  |n(card%)..8%. bl|
00001990  6f 63 6b 21 31 32 3d 64  65 74 61 69 6c 73 25 20  |ock!12=details% |
000019a0  80 20 62 6c 6f 63 6b 21  38 3d 32 20 8c 0d 09 42  |. block!8=2 ...B|
000019b0  7b e7 20 62 6c 6f 63 6b  21 31 36 3d 33 20 84 20  |{. block!16=3 . |
000019c0  62 6c 6f 63 6b 21 31 36  3d 32 20 84 20 62 6c 6f  |block!16=2 . blo|
000019d0  63 6b 21 31 36 3d 34 20  84 20 62 6c 6f 63 6b 21  |ck!16=4 . block!|
000019e0  31 36 3d 31 39 20 8c 20  c8 97 20 78 2c 79 2c 62  |16=19 . .. x,y,b|
000019f0  3a 67 65 65 3d 31 3a 69  63 79 3d 62 6c 6f 63 6b  |:gee=1:icy=block|
00001a00  21 31 36 3a c8 99 22 57  69 6d 70 5f 43 72 65 61  |!16:.."Wimp_Crea|
00001a10  74 65 4d 65 6e 75 22 2c  2c 66 6d 65 6e 75 25 2c  |teMenu",,fmenu%,|
00001a20  78 2d 37 35 2c 79 3a e1  0d 09 4c 05 cd 0d 09 56  |x-75,y:...L....V|
00001a30  1b e7 20 62 6c 6f 63 6b  21 38 3d 32 20 8c 20 f2  |.. block!8=2 . .|
00001a40  63 6d 65 6e 75 73 3a e1  0d 09 60 35 e7 20 62 6c  |cmenus:...`5. bl|
00001a50  6f 63 6b 21 31 32 3d 64  65 74 61 69 6c 73 25 20  |ock!12=details% |
00001a60  8c 20 73 61 76 65 66 3d  a3 3a f2 74 69 74 6c 65  |. savef=.:.title|
00001a70  28 64 65 74 61 69 6c 73  25 2c 22 22 29 0d 09 6a  |(details%,"")..j|
00001a80  3c e7 20 62 6c 6f 63 6b  21 31 32 3d 73 61 76 65  |<. block!12=save|
00001a90  25 20 80 20 62 6c 6f 63  6b 21 31 36 3d 32 20 77  |% . block!16=2 w|
00001aa0  69 6e 73 61 76 65 25 3d  62 6c 6f 63 6b 21 31 32  |insave%=block!12|
00001ab0  3a f2 64 65 66 73 61 76  65 0d 09 74 3d e7 20 62  |:.defsave..t=. b|
00001ac0  6c 6f 63 6b 21 31 32 3d  73 61 76 65 64 25 20 80  |lock!12=saved% .|
00001ad0  20 62 6c 6f 63 6b 21 31  36 3d 32 20 77 69 6e 73  | block!16=2 wins|
00001ae0  61 76 65 25 3d 62 6c 6f  63 6b 21 31 32 3a f2 64  |ave%=block!12:.d|
00001af0  65 66 73 61 76 65 0d 09  7e 3f e7 20 62 6c 6f 63  |efsave..~?. bloc|
00001b00  6b 21 31 32 3d 73 61 76  65 70 69 63 25 20 80 20  |k!12=savepic% . |
00001b10  62 6c 6f 63 6b 21 31 36  3d 32 20 77 69 6e 73 61  |block!16=2 winsa|
00001b20  76 65 25 3d 62 6c 6f 63  6b 21 31 32 3a f2 64 65  |ve%=block!12:.de|
00001b30  66 73 61 76 65 0d 09 88  4d e7 20 62 6c 6f 63 6b  |fsave...M. block|
00001b40  21 31 32 3d 73 61 76 65  25 20 80 20 62 6c 6f 63  |!12=save% . bloc|
00001b50  6b 21 31 36 3d 30 20 77  69 6e 73 61 76 65 25 3d  |k!16=0 winsave%=|
00001b60  62 6c 6f 63 6b 21 31 32  3a f2 73 61 76 65 28 24  |block!12:.save($|
00001b70  a4 69 6e 66 6f 28 77 69  6e 73 61 76 65 25 2c 31  |.info(winsave%,1|
00001b80  29 29 0d 09 92 4e e7 20  62 6c 6f 63 6b 21 31 32  |))...N. block!12|
00001b90  3d 73 61 76 65 64 25 20  80 20 62 6c 6f 63 6b 21  |=saved% . block!|
00001ba0  31 36 3d 30 20 77 69 6e  73 61 76 65 25 3d 62 6c  |16=0 winsave%=bl|
00001bb0  6f 63 6b 21 31 32 3a f2  73 61 76 65 28 24 a4 69  |ock!12:.save($.i|
00001bc0  6e 66 6f 28 77 69 6e 73  61 76 65 25 2c 31 29 29  |nfo(winsave%,1))|
00001bd0  0d 09 9c 50 e7 20 62 6c  6f 63 6b 21 31 32 3d 73  |...P. block!12=s|
00001be0  61 76 65 70 69 63 25 20  80 20 62 6c 6f 63 6b 21  |avepic% . block!|
00001bf0  31 36 3d 30 20 77 69 6e  73 61 76 65 25 3d 62 6c  |16=0 winsave%=bl|
00001c00  6f 63 6b 21 31 32 3a f2  73 61 76 65 28 24 a4 69  |ock!12:.save($.i|
00001c10  6e 66 6f 28 77 69 6e 73  61 76 65 25 2c 31 29 29  |nfo(winsave%,1))|
00001c20  0d 09 a6 4f e7 20 62 6c  6f 63 6b 21 31 32 3d 64  |...O. block!12=d|
00001c30  65 74 61 69 6c 73 25 20  80 20 62 6c 6f 63 6b 21  |etails% . block!|
00001c40  31 36 3d 32 32 20 69 6f  3d 31 3a 68 65 78 3d 68  |16=22 io=1:hex=h|
00001c50  65 78 63 28 69 6f 29 3a  74 65 78 74 63 3d b9 3a  |exc(io):textc=.:|
00001c60  63 61 72 64 62 3d a3 3a  f2 73 65 74 70 65 72 0d  |cardb=.:.setper.|
00001c70  09 b0 4f e7 20 62 6c 6f  63 6b 21 31 32 3d 64 65  |..O. block!12=de|
00001c80  74 61 69 6c 73 25 20 80  20 62 6c 6f 63 6b 21 31  |tails% . block!1|
00001c90  36 3d 32 33 20 69 6f 3d  32 3a 68 65 78 3d 68 65  |6=23 io=2:hex=he|
00001ca0  78 63 28 69 6f 29 3a 74  65 78 74 63 3d b9 3a 63  |xc(io):textc=.:c|
00001cb0  61 72 64 62 3d a3 3a f2  73 65 74 70 65 72 0d 09  |ardb=.:.setper..|
00001cc0  ba 4f e7 20 62 6c 6f 63  6b 21 31 32 3d 64 65 74  |.O. block!12=det|
00001cd0  61 69 6c 73 25 20 80 20  62 6c 6f 63 6b 21 31 36  |ails% . block!16|
00001ce0  3d 32 34 20 69 6f 3d 33  3a 68 65 78 3d 68 65 78  |=24 io=3:hex=hex|
00001cf0  63 28 69 6f 29 3a 74 65  78 74 63 3d b9 3a 63 61  |c(io):textc=.:ca|
00001d00  72 64 62 3d a3 3a f2 73  65 74 70 65 72 0d 09 c4  |rdb=.:.setper...|
00001d10  4f e7 20 62 6c 6f 63 6b  21 31 32 3d 64 65 74 61  |O. block!12=deta|
00001d20  69 6c 73 25 20 80 20 62  6c 6f 63 6b 21 31 36 3d  |ils% . block!16=|
00001d30  32 35 20 69 6f 3d 34 3a  68 65 78 3d 68 65 78 63  |25 io=4:hex=hexc|
00001d40  28 69 6f 29 3a 74 65 78  74 63 3d b9 3a 63 61 72  |(io):textc=.:car|
00001d50  64 62 3d a3 3a f2 73 65  74 70 65 72 0d 09 ce 3f  |db=.:.setper...?|
00001d60  e7 20 62 6c 6f 63 6b 21  31 32 3d 64 65 74 61 69  |. block!12=detai|
00001d70  6c 73 25 20 80 20 62 6c  6f 63 6b 21 31 36 3e 32  |ls% . block!16>2|
00001d80  38 20 80 20 62 6c 6f 63  6b 21 31 36 3c 33 31 20  |8 . block!16<31 |
00001d90  f2 64 72 61 77 73 70 72  69 74 65 0d 09 d8 49 e7  |.drawsprite...I.|
00001da0  20 62 6c 6f 63 6b 21 31  32 3d 63 6f 6c 6f 75 72  | block!12=colour|
00001db0  25 20 80 20 62 6c 6f 63  6b 21 31 36 3e 3d 31 34  |% . block!16>=14|
00001dc0  20 80 20 62 6c 6f 63 6b  21 31 36 3c 3d 32 39 20  | . block!16<=29 |
00001dd0  f2 73 65 6c 65 63 74 63  6f 6c 28 62 6c 6f 63 6b  |.selectcol(block|
00001de0  21 31 36 29 0d 09 e2 2e  e7 20 62 6c 6f 63 6b 21  |!16)..... block!|
00001df0  31 32 3d 63 6f 6c 6f 75  72 25 20 80 20 62 6c 6f  |12=colour% . blo|
00001e00  63 6b 21 31 36 3d 31 33  20 8c 20 f2 61 64 64 63  |ck!16=13 . .addc|
00001e10  6f 6c 0d 09 ec 36 e7 20  62 6c 6f 63 6b 21 31 32  |ol...6. block!12|
00001e20  3d 63 6f 6c 6f 75 72 25  20 80 20 62 6c 6f 63 6b  |=colour% . block|
00001e30  21 31 36 3d 31 32 20 8c  20 f2 63 6c 6f 73 65 28  |!16=12 . .close(|
00001e40  63 6f 6c 6f 75 72 25 29  0d 09 f6 2f e7 20 62 6c  |colour%).../. bl|
00001e50  6f 63 6b 21 31 32 3d 63  6f 6c 6f 75 72 25 20 80  |ock!12=colour% .|
00001e60  20 62 6c 6f 63 6b 21 31  36 3d 2d 31 20 8c 20 f2  | block!16=-1 . .|
00001e70  64 72 61 67 63 6f 6c 0d  0a 00 48 e7 20 62 6c 6f  |dragcol...H. blo|
00001e80  63 6b 21 31 32 3d 63 6f  6c 6f 75 72 25 20 80 20  |ck!12=colour% . |
00001e90  62 6c 6f 63 6b 21 31 36  3e 30 20 80 20 62 6c 6f  |block!16>0 . blo|
00001ea0  63 6b 21 31 36 3c 31 31  20 8c 20 f2 75 70 61 6e  |ck!16<11 . .upan|
00001eb0  64 64 6f 77 6e 28 62 6c  6f 63 6b 21 31 36 29 0d  |ddown(block!16).|
00001ec0  0a 0a 0f e7 20 70 72 65  71 75 69 74 20 8c 0d 0a  |.... prequit ...|
00001ed0  14 61 e7 20 62 6c 6f 63  6b 21 31 32 3d 71 75 69  |.a. block!12=qui|
00001ee0  74 25 20 80 20 62 6c 6f  63 6b 21 31 36 3d 30 20  |t% . block!16=0 |
00001ef0  8c 20 c8 99 22 57 69 6d  70 5f 50 72 6f 63 65 73  |. .."Wimp_Proces|
00001f00  73 4b 65 79 22 2c 26 31  46 43 3a c8 99 72 65 69  |sKey",&1FC:..rei|
00001f10  6e 74 65 72 2c 6d 79 74  61 73 6b 25 3a c8 99 22  |nter,mytask%:.."|
00001f20  57 69 6d 70 5f 43 6c 6f  73 65 44 6f 77 6e 22 0d  |Wimp_CloseDown".|
00001f30  0a 1e 3b e7 20 62 6c 6f  63 6b 21 31 32 3d 71 75  |..;. block!12=qu|
00001f40  69 74 25 20 80 20 62 6c  6f 63 6b 21 31 36 3d 32  |it% . block!16=2|
00001f50  20 8c 20 f2 63 6c 6f 73  65 28 71 75 69 74 25 29  | . .close(quit%)|
00001f60  3a 70 72 65 71 75 69 74  3d a3 0d 0a 28 50 e7 20  |:prequit=...(P. |
00001f70  62 6c 6f 63 6b 21 31 32  3d 71 75 69 74 25 20 80  |block!12=quit% .|
00001f80  20 62 6c 6f 63 6b 21 31  36 3d 33 20 8c 20 f2 63  | block!16=3 . .c|
00001f90  6c 6f 73 65 28 71 75 69  74 25 29 3a f2 6f 70 65  |lose(quit%):.ope|
00001fa0  6e 77 69 6e 28 73 61 76  65 64 25 29 3a 70 72 65  |nwin(saved%):pre|
00001fb0  71 75 69 74 77 61 69 74  3d b9 0d 0a 32 27 e7 20  |quitwait=...2'. |
00001fc0  70 72 65 71 75 69 74 20  80 20 ac 20 70 72 65 71  |prequit . . preq|
00001fd0  75 69 74 77 61 69 74 20  70 72 65 71 75 69 74 3d  |uitwait prequit=|
00001fe0  a3 0d 0a 3c 05 cc 0d 0a  46 4a e7 20 62 6c 6f 63  |...<....FJ. bloc|
00001ff0  6b 21 31 32 3d 71 75 69  74 25 20 80 20 62 6c 6f  |k!12=quit% . blo|
00002000  63 6b 21 31 36 3d 30 20  8c 20 c8 99 72 65 69 6e  |ck!16=0 . ..rein|
00002010  74 65 72 2c 6d 79 74 61  73 6b 25 3a c8 99 22 57  |ter,mytask%:.."W|
00002020  69 6d 70 5f 43 6c 6f 73  65 44 6f 77 6e 22 3a e0  |imp_CloseDown":.|
00002030  0d 0a 50 31 e7 20 62 6c  6f 63 6b 21 31 32 3d 71  |..P1. block!12=q|
00002040  75 69 74 25 20 80 20 62  6c 6f 63 6b 21 31 36 3d  |uit% . block!16=|
00002050  32 20 8c 20 f2 63 6c 6f  73 65 28 71 75 69 74 25  |2 . .close(quit%|
00002060  29 0d 0a 5a 42 e7 20 62  6c 6f 63 6b 21 31 32 3d  |)..ZB. block!12=|
00002070  71 75 69 74 25 20 80 20  62 6c 6f 63 6b 21 31 36  |quit% . block!16|
00002080  3d 33 20 8c 20 f2 63 6c  6f 73 65 28 71 75 69 74  |=3 . .close(quit|
00002090  25 29 3a f2 6f 70 65 6e  77 69 6e 28 73 61 76 65  |%):.openwin(save|
000020a0  64 25 29 0d 0a 64 05 cd  0d 0a 6e 39 e7 20 62 6c  |d%)..d....n9. bl|
000020b0  6f 63 6b 21 31 32 3d 71  75 65 72 79 25 20 80 20  |ock!12=query% . |
000020c0  62 6c 6f 63 6b 21 31 36  3d 30 20 8c 20 f2 63 6c  |block!16=0 . .cl|
000020d0  6f 73 65 28 71 75 65 72  79 25 29 3a f2 65 6e 64  |ose(query%):.end|
000020e0  71 0d 0a 78 24 e7 20 62  6c 6f 63 6b 21 31 32 3d  |q..x$. block!12=|
000020f0  70 72 69 6e 74 25 20 80  20 62 6c 6f 63 6b 21 31  |print% . block!1|
00002100  36 3d 31 20 8c 0d 0a 82  0a f2 70 72 69 6e 74 0d  |6=1 ......print.|
00002110  0a 8c 35 e7 20 6e 6f 69  63 3d 31 20 8c 20 c8 99  |..5. noic=1 . ..|
00002120  72 65 69 6e 74 65 72 2c  6d 79 74 61 73 6b 25 3a  |reinter,mytask%:|
00002130  c8 99 22 57 69 6d 70 5f  43 6c 6f 73 65 44 6f 77  |.."Wimp_CloseDow|
00002140  6e 22 3a e0 0d 0a 96 05  cd 0d 0a a0 30 e7 20 62  |n":.........0. b|
00002150  6c 6f 63 6b 21 31 32 3d  70 72 69 6e 74 25 20 80  |lock!12=print% .|
00002160  20 62 6c 6f 63 6b 21 31  36 3d 35 20 8c 20 f2 6d  | block!16=5 . .m|
00002170  6f 72 65 63 6f 70 69 65  73 0d 0a aa 30 e7 20 62  |orecopies...0. b|
00002180  6c 6f 63 6b 21 31 32 3d  70 72 69 6e 74 25 20 80  |lock!12=print% .|
00002190  20 62 6c 6f 63 6b 21 31  36 3d 33 20 8c 20 f2 6c  | block!16=3 . .l|
000021a0  65 73 73 63 6f 70 69 65  73 0d 0a b4 05 e1 0d 0a  |esscopies.......|
000021b0  be 21 dd a4 63 68 65 63  6b 66 6c 61 67 28 68 61  |.!..checkflag(ha|
000021c0  6e 64 6c 65 2c 69 63 6f  6e 2c 66 6c 61 67 29 0d  |ndle,icon,flag).|
000021d0  0a c8 09 62 69 74 3d a3  0d 0a d2 1e 21 69 63 6f  |...bit=.....!ico|
000021e0  6e 64 3d 68 61 6e 64 6c  65 3a 69 63 6f 6e 64 21  |nd=handle:icond!|
000021f0  34 3d 69 63 6f 6e 0d 0a  dc 20 c8 99 22 57 69 6d  |4=icon... .."Wim|
00002200  70 5f 47 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_GetIconState",|
00002210  2c 69 63 6f 6e 64 0d 0a  e6 22 e7 20 28 69 63 6f  |,icond...". (ico|
00002220  6e 64 21 32 34 80 28 31  3c 3c 66 6c 61 67 29 29  |nd!24.(1<<flag))|
00002230  3e 30 20 62 69 74 3d b9  0d 0a f0 08 3d 62 69 74  |>0 bit=.....=bit|
00002240  0d 0a fa 12 dd f2 73 65  74 73 68 65 61 72 28 6f  |......setshear(o|
00002250  6e 29 0d 0b 04 3b 21 69  63 6f 6e 64 3d 64 65 74  |n)...;!icond=det|
00002260  61 69 6c 73 25 3a 69 63  6f 6e 64 21 34 3d 32 39  |ails%:icond!4=29|
00002270  3a c8 99 22 57 69 6d 70  5f 47 65 74 49 63 6f 6e  |:.."Wimp_GetIcon|
00002280  53 74 61 74 65 22 2c 2c  69 63 6f 6e 64 0d 0b 0e  |State",,icond...|
00002290  0c e7 20 6f 6e 3d 31 20  8c 0d 0b 18 17 43 3d 28  |.. on=1 .....C=(|
000022a0  31 3c 3c 32 31 29 3a 45  3d 28 31 3c 3c 32 31 29  |1<<21):E=(1<<21)|
000022b0  0d 0b 22 05 cc 0d 0b 2c  17 43 3d 28 30 3c 3c 32  |.."....,.C=(0<<2|
000022c0  31 29 3a 45 3d 28 31 3c  3c 32 31 29 0d 0b 36 05  |1):E=(1<<21)..6.|
000022d0  cd 0d 0b 40 18 69 63 6f  6e 64 21 38 3d 43 3a 69  |...@.icond!8=C:i|
000022e0  63 6f 6e 64 21 31 32 3d  45 0d 0b 4a 20 c8 99 22  |cond!12=E..J .."|
000022f0  57 69 6d 70 5f 53 65 74  49 63 6f 6e 53 74 61 74  |Wimp_SetIconStat|
00002300  65 22 2c 2c 69 63 6f 6e  64 0d 0b 54 05 3a 0d 0b  |e",,icond..T.:..|
00002310  5e 3b 21 69 63 6f 6e 64  3d 64 65 74 61 69 6c 73  |^;!icond=details|
00002320  25 3a 69 63 6f 6e 64 21  34 3d 33 30 3a c8 99 22  |%:icond!4=30:.."|
00002330  57 69 6d 70 5f 47 65 74  49 63 6f 6e 53 74 61 74  |Wimp_GetIconStat|
00002340  65 22 2c 2c 69 63 6f 6e  64 0d 0b 68 0c e7 20 6f  |e",,icond..h.. o|
00002350  6e 3d 30 20 8c 0d 0b 72  17 43 3d 28 31 3c 3c 32  |n=0 ...r.C=(1<<2|
00002360  31 29 3a 45 3d 28 31 3c  3c 32 31 29 0d 0b 7c 05  |1):E=(1<<21)..|.|
00002370  cc 0d 0b 86 17 43 3d 28  30 3c 3c 32 31 29 3a 45  |.....C=(0<<21):E|
00002380  3d 28 31 3c 3c 32 31 29  0d 0b 90 05 cd 0d 0b 9a  |=(1<<21)........|
00002390  18 69 63 6f 6e 64 21 38  3d 43 3a 69 63 6f 6e 64  |.icond!8=C:icond|
000023a0  21 31 32 3d 45 0d 0b a4  20 c8 99 22 57 69 6d 70  |!12=E... .."Wimp|
000023b0  5f 53 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_SetIconState",,|
000023c0  69 63 6f 6e 64 0d 0b ae  05 e1 0d 0b b8 0d dd f2  |icond...........|
000023d0  70 72 6f 63 65 73 73 0d  0b c2 2e e7 20 21 62 6c  |process..... !bl|
000023e0  6f 63 6b 3d 64 65 74 61  69 6c 73 25 20 80 20 62  |ock=details% . b|
000023f0  6c 6f 63 6b 21 32 34 3d  31 33 20 8c 20 f2 63 61  |lock!24=13 . .ca|
00002400  72 65 74 3a e1 0d 0b cc  4a e7 20 21 62 6c 6f 63  |ret:....J. !bloc|
00002410  6b 3d 73 61 76 65 25 20  80 20 62 6c 6f 63 6b 21  |k=save% . block!|
00002420  32 34 3d 31 33 20 8c 20  77 69 6e 73 61 76 65 25  |24=13 . winsave%|
00002430  3d 21 62 6c 6f 63 6b 3a  f2 73 61 76 65 28 24 a4  |=!block:.save($.|
00002440  69 6e 66 6f 28 21 62 6c  6f 63 6b 2c 31 29 29 0d  |info(!block,1)).|
00002450  0b d6 4b e7 20 21 62 6c  6f 63 6b 3d 73 61 76 65  |..K. !block=save|
00002460  64 25 20 80 20 62 6c 6f  63 6b 21 32 34 3d 31 33  |d% . block!24=13|
00002470  20 8c 20 77 69 6e 73 61  76 65 25 3d 21 62 6c 6f  | . winsave%=!blo|
00002480  63 6b 3a f2 73 61 76 65  28 24 a4 69 6e 66 6f 28  |ck:.save($.info(|
00002490  21 62 6c 6f 63 6b 2c 31  29 29 0d 0b e0 4d e7 20  |!block,1))...M. |
000024a0  21 62 6c 6f 63 6b 3d 73  61 76 65 70 69 63 25 20  |!block=savepic% |
000024b0  80 20 62 6c 6f 63 6b 21  32 34 3d 31 33 20 8c 20  |. block!24=13 . |
000024c0  77 69 6e 73 61 76 65 25  3d 21 62 6c 6f 63 6b 3a  |winsave%=!block:|
000024d0  f2 73 61 76 65 28 24 a4  69 6e 66 6f 28 21 62 6c  |.save($.info(!bl|
000024e0  6f 63 6b 2c 31 29 29 0d  0b ea 20 c8 99 22 57 69  |ock,1))... .."Wi|
000024f0  6d 70 5f 50 72 6f 63 65  73 73 4b 65 79 22 2c 62  |mp_ProcessKey",b|
00002500  6c 6f 63 6b 21 32 34 0d  0b f4 05 e1 0d 0b fe 0b  |lock!24.........|
00002510  dd f2 63 61 72 65 74 0d  0c 08 24 c8 99 22 57 69  |..caret...$.."Wi|
00002520  6d 70 5f 47 65 74 43 61  72 65 74 50 6f 73 69 74  |mp_GetCaretPosit|
00002530  69 6f 6e 22 2c 2c 62 6c  6f 63 6b 0d 0c 12 18 e7  |ion",,block.....|
00002540  20 62 6c 6f 63 6b 21 30  3d 64 65 74 61 69 6c 73  | block!0=details|
00002550  25 20 8c 0d 0c 1c 10 c8  8e 20 62 6c 6f 63 6b 21  |% ....... block!|
00002560  34 20 ca 0d 0c 26 0d 20  c9 20 30 3a 6e 70 3d 35  |4 ...&. . 0:np=5|
00002570  0d 0c 30 0d 20 c9 20 35  3a 6e 70 3d 36 0d 0c 3a  |..0. . 5:np=6..:|
00002580  0d 20 c9 20 36 3a 6e 70  3d 37 0d 0c 44 0e 20 c9  |. . 6:np=7..D. .|
00002590  20 37 3a 6e 70 3d 31 38  0d 0c 4e 0f 20 c9 20 31  | 7:np=18..N. . 1|
000025a0  38 3a 6e 70 3d 31 30 0d  0c 58 0f 20 c9 20 31 30  |8:np=10..X. . 10|
000025b0  3a 6e 70 3d 32 31 0d 0c  62 0e 20 c9 20 32 31 3a  |:np=21..b. . 21:|
000025c0  6e 70 3d 30 0d 0c 6c 0f  20 c9 20 31 33 3a 6e 70  |np=0..l. . 13:np|
000025d0  3d 31 34 0d 0c 76 0f 20  c9 20 31 34 3a 6e 70 3d  |=14..v. . 14:np=|
000025e0  31 37 0d 0c 80 0f 20 c9  20 31 37 3a 6e 70 3d 31  |17.... . 17:np=1|
000025f0  35 0d 0c 8a 0e 20 c9 20  31 35 3a 6e 70 3d 30 0d  |5.... . 15:np=0.|
00002600  0c 94 3b 20 c9 20 33 31  3a 6e 70 3d 33 32 3a f2  |..; . 31:np=32:.|
00002610  69 6e 66 6f 28 64 65 74  61 69 6c 73 25 2c 31 33  |info(details%,13|
00002620  2c 24 a4 69 6e 66 6f 28  64 65 74 61 69 6c 73 25  |,$.info(details%|
00002630  2c 62 6c 6f 63 6b 21 34  29 29 0d 0c 9e 3b 20 c9  |,block!4))...; .|
00002640  20 33 32 3a 6e 70 3d 33  33 3a f2 69 6e 66 6f 28  | 32:np=33:.info(|
00002650  64 65 74 61 69 6c 73 25  2c 31 34 2c 24 a4 69 6e  |details%,14,$.in|
00002660  66 6f 28 64 65 74 61 69  6c 73 25 2c 62 6c 6f 63  |fo(details%,bloc|
00002670  6b 21 34 29 29 0d 0c a8  3b 20 c9 20 33 33 3a 6e  |k!4))...; . 33:n|
00002680  70 3d 33 34 3a f2 69 6e  66 6f 28 64 65 74 61 69  |p=34:.info(detai|
00002690  6c 73 25 2c 31 37 2c 24  a4 69 6e 66 6f 28 64 65  |ls%,17,$.info(de|
000026a0  74 61 69 6c 73 25 2c 62  6c 6f 63 6b 21 34 29 29  |tails%,block!4))|
000026b0  0d 0c b2 3b 20 c9 20 33  34 3a 6e 70 3d 31 33 3a  |...; . 34:np=13:|
000026c0  f2 69 6e 66 6f 28 64 65  74 61 69 6c 73 25 2c 31  |.info(details%,1|
000026d0  35 2c 24 a4 69 6e 66 6f  28 64 65 74 61 69 6c 73  |5,$.info(details|
000026e0  25 2c 62 6c 6f 63 6b 21  34 29 29 0d 0c bc 06 20  |%,block!4)).... |
000026f0  cb 0d 0c c6 49 20 c8 99  20 22 57 69 6d 70 5f 53  |....I .. "Wimp_S|
00002700  65 74 43 61 72 65 74 50  6f 73 69 74 69 6f 6e 22  |etCaretPosition"|
00002710  2c 64 65 74 61 69 6c 73  25 2c 6e 70 2c 30 2c 30  |,details%,np,0,0|
00002720  2c 2d 31 2c a9 28 24 a4  69 6e 66 6f 28 64 65 74  |,-1,.($.info(det|
00002730  61 69 6c 73 25 2c 6e 70  29 29 0d 0c d0 06 20 cd  |ails%,np)).... .|
00002740  0d 0c da 06 20 e1 0d 0c  e4 0c dd f2 73 65 6c 65  |.... .......sele|
00002750  63 74 0d 0c ee 0d e7 20  67 65 65 3d 31 20 8c 0d  |ct..... gee=1 ..|
00002760  0c f8 d8 e7 20 76 65 72  73 69 6f 6e 25 3e 33 30  |.... version%>30|
00002770  30 20 8c 20 c8 99 22 46  6f 6e 74 5f 44 65 63 6f  |0 . .."Font_Deco|
00002780  64 65 4d 65 6e 75 22 2c  30 2c 66 6d 65 6e 75 25  |deMenu",0,fmenu%|
00002790  2c 62 6c 6f 63 6b 2c 69  63 6f 6e 64 2c 32 35 35  |,block,icond,255|
000027a0  b8 2c 2c 2c 2c 73 69 7a  65 3a 24 69 63 6f 6e 64  |.,,,,size:$icond|
000027b0  3d c0 24 69 63 6f 6e 64  2c 73 69 7a 65 2d 31 29  |=.$icond,size-1)|
000027c0  3a 24 69 63 6f 6e 64 3d  c2 24 69 63 6f 6e 64 2c  |:$icond=.$icond,|
000027d0  a9 28 24 69 63 6f 6e 64  29 2d 32 29 3a 24 69 63  |.($icond)-2):$ic|
000027e0  6f 6e 64 3d c0 24 69 63  6f 6e 64 2c a9 24 69 63  |ond=.$icond,.$ic|
000027f0  6f 6e 64 2d 28 a9 24 69  63 6f 6e 64 2d a7 24 69  |ond-(.$icond-.$i|
00002800  63 6f 6e 64 2c 22 5c 22  29 29 2d 31 29 3a 8b 20  |cond,"\"))-1):. |
00002810  c8 99 22 57 69 6d 70 5f  44 65 63 6f 64 65 4d 65  |.."Wimp_DecodeMe|
00002820  6e 75 22 2c 2c 66 6d 65  6e 75 25 2c 62 6c 6f 63  |nu",,fmenu%,bloc|
00002830  6b 2c 69 63 6f 6e 64 0d  0d 02 12 66 61 6d 69 6c  |k,icond....famil|
00002840  79 24 3d 24 69 63 6f 6e  64 0d 0d 0c 1f f2 69 6e  |y$=$icond.....in|
00002850  66 6f 28 64 65 74 61 69  6c 73 25 2c 69 63 79 2c  |fo(details%,icy,|
00002860  66 61 6d 69 6c 79 24 29  0d 0d 16 12 f2 72 65 64  |family$).....red|
00002870  72 61 77 28 63 61 72 64  25 29 0d 0d 20 09 67 65  |raw(card%).. .ge|
00002880  65 3d 30 0d 0d 2a 05 e1  0d 0d 34 05 cd 0d 0d 3e  |e=0..*....4....>|
00002890  0d e7 20 67 65 65 3d 32  20 8c 0d 0d 48 2c c8 99  |.. gee=2 ...H,..|
000028a0  22 57 69 6d 70 5f 44 65  63 6f 64 65 4d 65 6e 75  |"Wimp_DecodeMenu|
000028b0  22 2c 2c 73 70 72 6d 65  6e 25 2c 62 6c 6f 63 6b  |",,sprmen%,block|
000028c0  2c 69 63 6f 6e 64 0d 0d  52 12 63 75 72 73 70 72  |,icond..R.curspr|
000028d0  24 3d 24 69 63 6f 6e 64  0d 0d 5c 0f f2 64 72 61  |$=$icond..\..dra|
000028e0  77 73 70 72 69 74 65 0d  0d 66 09 67 65 65 3d 30  |wsprite..f.gee=0|
000028f0  0d 0d 70 05 e1 0d 0d 7a  05 cd 0d 0d 84 2e c8 99  |..p....z........|
00002900  22 57 69 6d 70 5f 44 65  63 6f 64 65 4d 65 6e 75  |"Wimp_DecodeMenu|
00002910  22 2c 2c 6f 70 65 6e 6d  65 6e 75 25 2c 62 6c 6f  |",,openmenu%,blo|
00002920  63 6b 2c 69 63 6f 6e 64  0d 0d 8e 0a 69 66 66 79  |ck,icond....iffy|
00002930  3d b9 0d 0d 98 2c e7 20  24 69 63 6f 6e 64 3d 22  |=....,. $icond="|
00002940  51 75 69 74 22 20 8c 20  f2 61 72 65 79 6f 75 73  |Quit" . .areyous|
00002950  75 72 65 3a 71 75 69 74  69 6e 67 25 3d b9 0d 0d  |ure:quiting%=...|
00002960  a2 2b e7 20 24 69 63 6f  6e 64 3d 22 44 65 74 61  |.+. $icond="Deta|
00002970  69 6c 73 22 20 8c 20 f2  6f 70 65 6e 77 69 6e 28  |ils" . .openwin(|
00002980  64 65 74 61 69 6c 73 25  29 0d 0d ac 34 e7 20 24  |details%)...4. $|
00002990  69 63 6f 6e 64 3d 22 56  69 65 77 22 20 8c 20 f2  |icond="View" . .|
000029a0  6f 70 65 6e 77 69 6e 28  63 61 72 64 25 29 3a f2  |openwin(card%):.|
000029b0  72 65 64 72 61 77 28 63  61 72 64 25 29 0d 0d b6  |redraw(card%)...|
000029c0  29 e7 20 24 69 63 6f 6e  64 3d 22 50 69 63 74 75  |). $icond="Pictu|
000029d0  72 65 2e 44 65 6c 20 50  69 63 22 20 8c 20 f2 6b  |re.Del Pic" . .k|
000029e0  69 6c 6c 73 70 72 0d 0d  c0 33 e7 20 24 69 63 6f  |illspr...3. $ico|
000029f0  6e 64 3d 22 42 61 63 6b  20 43 6f 6c 22 20 8c 20  |nd="Back Col" . |
00002a00  69 6f 3d 30 3a 68 65 78  3d 68 65 78 63 28 69 6f  |io=0:hex=hexc(io|
00002a10  29 3a f2 73 65 74 70 65  72 0d 0d ca 4c e7 20 24  |):.setper...L. $|
00002a20  69 63 6f 6e 64 3d 22 50  69 63 74 75 72 65 2e 46  |icond="Picture.F|
00002a30  6f 72 63 65 20 53 63 61  6c 65 22 20 80 20 69 66  |orce Scale" . if|
00002a40  66 79 20 80 20 66 6f 72  63 65 20 66 6f 72 63 65  |fy . force force|
00002a50  3d a3 3a 69 66 66 79 3d  a3 3a f2 64 72 61 77 73  |=.:iffy=.:.draws|
00002a60  70 72 69 74 65 0d 0d d4  4e e7 20 24 69 63 6f 6e  |prite...N. $icon|
00002a70  64 3d 22 50 69 63 74 75  72 65 2e 46 6f 72 63 65  |d="Picture.Force|
00002a80  20 53 63 61 6c 65 22 20  80 20 69 66 66 79 20 80  | Scale" . iffy .|
00002a90  20 ac 20 66 6f 72 63 65  20 66 6f 72 63 65 3d b9  | . force force=.|
00002aa0  3a 69 66 66 79 3d a3 3a  f2 64 72 61 77 73 70 72  |:iffy=.:.drawspr|
00002ab0  69 74 65 0d 0d de 4c e7  20 24 69 63 6f 6e 64 3d  |ite...L. $icond=|
00002ac0  22 50 69 63 74 75 72 65  2e 43 65 6e 74 72 65 64  |"Picture.Centred|
00002ad0  22 20 80 20 69 66 66 79  20 80 20 63 65 6e 74 72  |" . iffy . centr|
00002ae0  65 64 20 63 65 6e 74 72  65 64 3d a3 3a 69 66 66  |ed centred=.:iff|
00002af0  79 3d a3 3a f2 64 72 61  77 73 70 72 69 74 65 0d  |y=.:.drawsprite.|
00002b00  0d e8 4e e7 20 24 69 63  6f 6e 64 3d 22 50 69 63  |..N. $icond="Pic|
00002b10  74 75 72 65 2e 43 65 6e  74 72 65 64 22 20 80 20  |ture.Centred" . |
00002b20  69 66 66 79 20 80 20 ac  20 63 65 6e 74 72 65 64  |iffy . . centred|
00002b30  20 63 65 6e 74 72 65 64  3d b9 3a 69 66 66 79 3d  | centred=.:iffy=|
00002b40  a3 3a f2 64 72 61 77 73  70 72 69 74 65 0d 0d f2  |.:.drawsprite...|
00002b50  28 e7 20 24 69 63 6f 6e  64 3d 22 53 61 76 65 2e  |(. $icond="Save.|
00002b60  44 72 61 77 22 20 f2 6f  70 65 6e 77 69 6e 28 73  |Draw" .openwin(s|
00002b70  61 76 65 25 29 0d 0d fc  29 e7 20 24 69 63 6f 6e  |ave%)...). $icon|
00002b80  64 3d 22 53 61 76 65 2e  44 61 74 61 22 20 f2 6f  |d="Save.Data" .o|
00002b90  70 65 6e 77 69 6e 28 73  61 76 65 64 25 29 0d 0e  |penwin(saved%)..|
00002ba0  06 22 c8 99 22 57 69 6d  70 5f 47 65 74 50 6f 69  |.".."Wimp_GetPoi|
00002bb0  6e 74 65 72 49 6e 66 6f  22 2c 2c 62 6c 6f 63 6b  |nterInfo",,block|
00002bc0  0d 0e 10 11 e7 20 62 6c  6f 63 6b 21 38 3d 31 20  |..... block!8=1 |
00002bd0  8c 0d 0e 1a 1c e7 20 6d  65 6e 75 6f 70 65 6e 3d  |...... menuopen=|
00002be0  2d 34 34 20 8c 20 f2 63  6d 65 6e 75 73 0d 0e 24  |-44 . .cmenus..$|
00002bf0  22 c8 99 22 57 69 6d 70  5f 43 72 65 61 74 65 4d  |".."Wimp_CreateM|
00002c00  65 6e 75 22 2c 2c 6f 70  65 6e 6d 65 6e 75 25 0d  |enu",,openmenu%.|
00002c10  0e 2e 05 cc 0d 0e 38 1b  c8 99 22 57 69 6d 70 5f  |......8..."Wimp_|
00002c20  43 72 65 61 74 65 4d 65  6e 75 22 2c 2c 2d 31 0d  |CreateMenu",,-1.|
00002c30  0e 42 05 cd 0d 0e 4c 05  e1 0d 0e 56 0d dd f2 6b  |.B....L....V...k|
00002c40  69 6c 6c 73 70 72 0d 0e  60 3d 73 66 69 6c 65 24  |illspr..`=sfile$|
00002c50  3d 22 22 3a 63 75 72 73  70 72 24 3d 22 22 3a 73  |="":curspr$="":s|
00002c60  70 72 25 3d 30 3a c8 99  22 57 69 6d 70 5f 53 6c  |pr%=0:.."Wimp_Sl|
00002c70  6f 74 53 69 7a 65 22 2c  70 72 6f 67 6e 65 65 64  |otSize",progneed|
00002c80  2c 2d 31 0d 0e 6a 05 e1  0d 0e 74 11 dd f2 6d 65  |,-1..j....t...me|
00002c90  73 73 28 6d 65 73 73 24  29 0d 0e 7e 20 21 69 63  |ss(mess$)..~ !ic|
00002ca0  6f 6e 64 3d 30 3a 24 28  69 63 6f 6e 64 2b 34 29  |ond=0:$(icond+4)|
00002cb0  3d 6d 65 73 73 24 2b bd  30 0d 0e 88 28 c8 99 22  |=mess$+.0...(.."|
00002cc0  57 69 6d 70 5f 52 65 70  6f 72 74 45 72 72 6f 72  |Wimp_ReportError|
00002cd0  22 2c 69 63 6f 6e 64 2c  31 2c 22 21 43 61 72 64  |",icond,1,"!Card|
00002ce0  22 0d 0e 92 05 e1 0d 0e  9c 11 dd f2 65 72 72 6f  |"...........erro|
00002cf0  72 28 65 72 72 24 29 0d  0e a6 0d e7 20 9f 3d 35  |r(err$)..... .=5|
00002d00  32 33 20 8c 0d 0e b0 25  f2 6d 65 73 73 28 22 46  |23 ....%.mess("F|
00002d10  6f 6e 74 20 22 2b 66 6f  6e 74 24 2b 22 20 6e 6f  |ont "+font$+" no|
00002d20  74 20 66 6f 75 6e 64 22  29 0d 0e ba 0e c8 8e 20  |t found")...... |
00002d30  66 6f 6e 74 24 20 ca 0d  0e c4 32 c9 20 66 6f 6e  |font$ ....2. fon|
00002d40  74 6e 61 6d 65 24 3a f2  69 6e 66 6f 28 64 65 74  |tname$:.info(det|
00002d50  61 69 6c 73 25 2c 33 2c  22 54 72 69 6e 69 74 79  |ails%,3,"Trinity|
00002d60  2e 4d 65 64 69 75 6d 22  29 0d 0e ce 33 c9 20 66  |.Medium")...3. f|
00002d70  6f 6e 74 65 78 74 72 61  24 3a f2 69 6e 66 6f 28  |ontextra$:.info(|
00002d80  64 65 74 61 69 6c 73 25  2c 32 2c 22 54 72 69 6e  |details%,2,"Trin|
00002d90  69 74 79 2e 4d 65 64 69  75 6d 22 29 0d 0e d8 32  |ity.Medium")...2|
00002da0  c9 20 66 6f 6e 74 61 64  31 24 3a f2 69 6e 66 6f  |. fontad1$:.info|
00002db0  28 64 65 74 61 69 6c 73  25 2c 31 39 2c 22 54 72  |(details%,19,"Tr|
00002dc0  69 6e 69 74 79 2e 4d 65  64 69 75 6d 22 29 0d 0e  |inity.Medium")..|
00002dd0  e2 31 c9 20 66 6f 6e 74  74 65 6c 24 3a f2 69 6e  |.1. fonttel$:.in|
00002de0  66 6f 28 64 65 74 61 69  6c 73 25 2c 34 2c 22 54  |fo(details%,4,"T|
00002df0  72 69 6e 69 74 79 2e 4d  65 64 69 75 6d 22 29 0d  |rinity.Medium").|
00002e00  0e ec 05 cb 0d 0e f6 1a  f2 72 65 64 72 61 77 28  |.........redraw(|
00002e10  63 61 72 64 25 29 3a f2  70 6f 6c 6c 69 74 0d 0f  |card%):.pollit..|
00002e20  00 05 cd 0d 0f 0a 4d 21  69 63 6f 6e 64 3d 30 3a  |......M!icond=0:|
00002e30  24 28 69 63 6f 6e 64 2b  34 29 3d 65 72 72 24 2b  |$(icond+4)=err$+|
00002e40  22 2e 22 2b 22 20 50 72  65 73 73 20 4f 4b 20 74  |"."+" Press OK t|
00002e50  6f 20 63 6f 6e 74 69 6e  75 65 20 6f 72 20 43 61  |o continue or Ca|
00002e60  6e 63 65 6c 20 74 6f 20  71 75 69 74 22 2b bd 30  |ncel to quit"+.0|
00002e70  0d 0f 14 2f c8 99 22 57  69 6d 70 5f 52 65 70 6f  |.../.."Wimp_Repo|
00002e80  72 74 45 72 72 6f 72 22  2c 69 63 6f 6e 64 2c 33  |rtError",icond,3|
00002e90  2c 22 21 43 61 72 64 22  20 b8 20 2c 62 75 74 0d  |,"!Card" . ,but.|
00002ea0  0f 1e 34 e7 20 62 75 74  3d 32 20 8c 20 c8 99 72  |..4. but=2 . ..r|
00002eb0  65 69 6e 74 65 72 2c 6d  79 74 61 73 6b 25 3a c8  |einter,mytask%:.|
00002ec0  99 22 57 69 6d 70 5f 43  6c 6f 73 65 44 6f 77 6e  |."Wimp_CloseDown|
00002ed0  22 3a e0 0d 0f 28 05 e1  0d 0f 32 09 dd f2 6f 75  |":...(....2...ou|
00002ee0  74 0d 0f 3c 29 e7 20 77  69 6e 73 61 76 65 25 3d  |t..<). winsave%=|
00002ef0  73 61 76 65 25 20 8c 20  73 74 65 78 74 3d 73 74  |save% . stext=st|
00002f00  65 78 3a 66 74 3d 26 41  46 46 0d 0f 46 2b e7 20  |ex:ft=&AFF..F+. |
00002f10  77 69 6e 73 61 76 65 25  3d 73 61 76 65 64 25 20  |winsave%=saved% |
00002f20  8c 20 73 74 65 78 74 3d  73 74 65 78 64 3a 66 74  |. stext=stexd:ft|
00002f30  3d 26 30 30 43 0d 0f 50  30 e7 20 77 69 6e 73 61  |=&00C..P0. winsa|
00002f40  76 65 25 3d 73 61 76 65  70 69 63 25 20 8c 20 73  |ve%=savepic% . s|
00002f50  74 65 78 74 3d 73 74 65  78 74 70 69 63 3a 66 74  |text=stextpic:ft|
00002f60  3d 26 46 46 39 0d 0f 5a  10 e7 20 64 72 69 76 65  |=&FF9..Z.. drive|
00002f70  25 3d 31 20 8c 0d 0f 64  24 c8 99 20 22 57 69 6d  |%=1 ...d$.. "Wim|
00002f80  70 5f 47 65 74 50 6f 69  6e 74 65 72 49 6e 66 6f  |p_GetPointerInfo|
00002f90  22 2c 2c 6d 62 6c 6f 63  6b 0d 0f 6e 3c 77 69 6e  |",,mblock..n<win|
00002fa0  3d 6d 62 6c 6f 63 6b 21  31 32 3a 69 63 6f 6e 3d  |=mblock!12:icon=|
00002fb0  6d 62 6c 6f 63 6b 21 31  36 3a 78 6f 75 74 3d 21  |mblock!16:xout=!|
00002fc0  6d 62 6c 6f 63 6b 3a 79  6f 75 74 3d 6d 62 6c 6f  |mblock:yout=mblo|
00002fd0  63 6b 21 34 3a 0d 0f 78  50 6d 62 6c 6f 63 6b 21  |ck!4:..xPmblock!|
00002fe0  32 30 3d 6d 62 6c 6f 63  6b 21 31 32 3a 6d 62 6c  |20=mblock!12:mbl|
00002ff0  6f 63 6b 21 32 34 3d 6d  62 6c 6f 63 6b 21 31 36  |ock!24=mblock!16|
00003000  3a 6d 62 6c 6f 63 6b 21  32 38 3d 21 6d 62 6c 6f  |:mblock!28=!mblo|
00003010  63 6b 3a 6d 62 6c 6f 63  6b 21 33 32 3d 6d 62 6c  |ck:mblock!32=mbl|
00003020  6f 63 6b 21 34 0d 0f 82  37 6d 62 6c 6f 63 6b 21  |ock!4...7mblock!|
00003030  31 32 3d 30 3a 6d 62 6c  6f 63 6b 21 31 36 3d 31  |12=0:mblock!16=1|
00003040  3a 6d 62 6c 6f 63 6b 21  33 36 3d 31 30 32 34 3a  |:mblock!36=1024:|
00003050  6d 62 6c 6f 63 6b 21 34  30 3d 66 74 0d 0f 8c 1d  |mblock!40=ft....|
00003060  24 73 74 65 78 74 3d 24  a4 69 6e 66 6f 28 77 69  |$stext=$.info(wi|
00003070  6e 73 61 76 65 25 2c 31  29 0d 0f 96 1b 24 73 74  |nsave%,1)....$st|
00003080  65 78 74 3d a4 67 65 74  6c 65 61 66 28 24 73 74  |ext=.getleaf($st|
00003090  65 78 74 29 0d 0f a0 29  e3 20 49 3d 30 20 b8 20  |ext)...). I=0 . |
000030a0  32 35 35 3a e7 20 49 3f  73 74 65 78 74 3c 33 32  |255:. I?stext<32|
000030b0  20 8c 20 49 3f 73 74 65  78 74 3d 31 33 0d 0f aa  | . I?stext=13...|
000030c0  05 ed 0d 0f b4 20 21 6d  62 6c 6f 63 6b 3d 34 34  |..... !mblock=44|
000030d0  2b 34 2a 28 31 2b 28 a9  24 73 74 65 78 74 29 81  |+4*(1+(.$stext).|
000030e0  34 29 0d 0f be 2b 24 28  6d 62 6c 6f 63 6b 2b 34  |4)...+$(mblock+4|
000030f0  34 29 3d a4 62 69 74 28  24 73 74 65 78 74 29 2b  |4)=.bit($stext)+|
00003100  bd 30 3a 21 6d 62 6c 6f  63 6b 3d 36 30 0d 0f c8  |.0:!mblock=60...|
00003110  42 c8 99 20 22 57 69 6d  70 5f 53 65 6e 64 4d 65  |B.. "Wimp_SendMe|
00003120  73 73 61 67 65 22 2c 31  37 2c 6d 62 6c 6f 63 6b  |ssage",17,mblock|
00003130  2c 6d 62 6c 6f 63 6b 21  32 30 2c 6d 62 6c 6f 63  |,mblock!20,mbloc|
00003140  6b 21 32 34 3a f4 20 44  61 74 61 53 61 76 65 0d  |k!24:. DataSave.|
00003150  0f d2 0b 64 72 61 67 25  3d 30 0d 0f dc 05 cd 0d  |...drag%=0......|
00003160  0f e6 05 e1 0d 0f f0 0d  dd f2 64 65 66 73 61 76  |..........defsav|
00003170  65 0d 0f fa 09 f2 4d 6f  64 65 0d 10 04 13 21 62  |e.....Mode....!b|
00003180  6c 6f 63 6b 3d 77 69 6e  73 61 76 65 25 0d 10 0e  |lock=winsave%...|
00003190  23 c8 99 20 22 57 69 6d  70 5f 47 65 74 57 69 6e  |#.. "Wimp_GetWin|
000031a0  64 6f 77 53 74 61 74 65  22 2c 2c 62 6c 6f 63 6b  |dowState",,block|
000031b0  0d 10 18 1b 79 73 69 7a  65 25 3d 62 6c 6f 63 6b  |....ysize%=block|
000031c0  21 31 36 2d 62 6c 6f 63  6b 21 38 0d 10 22 23 78  |!16-block!8.."#x|
000031d0  25 3d 62 6c 6f 63 6b 21  34 3a 79 25 3d 62 6c 6f  |%=block!4:y%=blo|
000031e0  63 6b 21 38 3a 62 6c 6f  63 6b 21 34 3d 32 0d 10  |ck!8:block!4=2..|
000031f0  2c 20 c8 99 22 57 69 6d  70 5f 47 65 74 49 63 6f  |, .."Wimp_GetIco|
00003200  6e 53 74 61 74 65 22 2c  2c 62 6c 6f 63 6b 0d 10  |nState",,block..|
00003210  36 23 62 6c 6f 63 6b 21  38 2b 3d 78 25 3a 62 6c  |6#block!8+=x%:bl|
00003220  6f 63 6b 21 31 32 2b 3d  79 25 2b 79 73 69 7a 65  |ock!12+=y%+ysize|
00003230  25 0d 10 40 24 62 6c 6f  63 6b 21 31 36 2b 3d 78  |%..@$block!16+=x|
00003240  25 3a 62 6c 6f 63 6b 21  32 30 2b 3d 79 25 2b 79  |%:block!20+=y%+y|
00003250  73 69 7a 65 25 0d 10 4a  35 62 6c 6f 63 6b 21 32  |size%..J5block!2|
00003260  34 3d 30 3a 62 6c 6f 63  6b 21 32 38 3d 30 3a 62  |4=0:block!28=0:b|
00003270  6c 6f 63 6b 21 33 32 3d  78 6d 61 78 3a 62 6c 6f  |lock!32=xmax:blo|
00003280  63 6b 21 33 36 3d 79 6d  61 78 0d 10 54 27 21 62  |ck!36=ymax..T'!b|
00003290  6c 6f 63 6b 3d 30 3a 62  6c 6f 63 6b 21 34 3d 35  |lock=0:block!4=5|
000032a0  3a 64 72 61 67 25 3d b9  3a 64 72 69 76 65 25 3d  |:drag%=.:drive%=|
000032b0  31 0d 10 5e 1b c8 99 22  57 69 6d 70 5f 44 72 61  |1..^..."Wimp_Dra|
000032c0  67 42 6f 78 22 2c 2c 62  6c 6f 63 6b 0d 10 68 05  |gBox",,block..h.|
000032d0  e1 0d 10 72 0a dd f2 4d  6f 64 65 0d 10 7c 4d 21  |...r...Mode..|M!|
000032e0  62 6c 6f 63 6b 3d 31 33  30 3a 62 6c 6f 63 6b 21  |block=130:block!|
000032f0  34 3d 31 33 31 3a 62 6c  6f 63 6b 21 38 3d 2d 31  |4=131:block!8=-1|
00003300  3a c8 99 22 4f 53 5f 52  65 61 64 56 64 75 56 61  |:.."OS_ReadVduVa|
00003310  72 69 61 62 6c 65 73 22  2c 62 6c 6f 63 6b 2c 62  |riables",block,b|
00003320  6c 6f 63 6b 2b 31 32 38  0d 10 86 29 c8 99 22 4f  |lock+128...).."O|
00003330  53 5f 52 65 61 64 4d 6f  64 65 56 61 72 69 61 62  |S_ReadModeVariab|
00003340  6c 65 22 2c eb 2c 34 20  b8 20 2c 2c 58 65 69 67  |le",.,4 . ,,Xeig|
00003350  25 0d 10 90 29 c8 99 22  4f 53 5f 52 65 61 64 4d  |%...).."OS_ReadM|
00003360  6f 64 65 56 61 72 69 61  62 6c 65 22 2c eb 2c 35  |odeVariable",.,5|
00003370  20 b8 20 2c 2c 59 65 69  67 25 0d 10 9a 3d 78 6d  | . ,,Yeig%...=xm|
00003380  61 78 3d 28 28 62 6c 6f  63 6b 21 31 32 38 29 2b  |ax=((block!128)+|
00003390  31 29 2a 32 5e 58 65 69  67 25 3a 79 6d 61 78 3d  |1)*2^Xeig%:ymax=|
000033a0  28 28 62 6c 6f 63 6b 21  31 33 32 29 2b 31 29 2a  |((block!132)+1)*|
000033b0  32 5e 59 65 69 67 25 0d  10 a4 05 e1 0d 10 ae 14  |2^Yeig%.........|
000033c0  dd a4 67 65 74 6c 65 61  66 28 6c 65 61 66 24 29  |..getleaf(leaf$)|
000033d0  0d 10 b8 12 c8 95 20 a7  6c 65 61 66 24 2c 22 2e  |...... .leaf$,".|
000033e0  22 29 0d 10 c2 1f 6c 65  61 66 24 3d c1 6c 65 61  |")....leaf$=.lea|
000033f0  66 24 2c a7 6c 65 61 66  24 2c 22 2e 22 29 2b 31  |f$,.leaf$,".")+1|
00003400  29 0d 10 cc 0c ce 3a 3d  6c 65 61 66 24 0d 10 d6  |).....:=leaf$...|
00003410  11 dd f2 73 61 76 65 28  73 61 76 65 24 29 0d 10  |...save(save$)..|
00003420  e0 84 e7 20 a7 73 61 76  65 24 2c 22 2e 22 29 3c  |... .save$,".")<|
00003430  31 20 80 20 a7 73 61 76  65 24 2c 22 3a 22 29 3c  |1 . .save$,":")<|
00003440  31 20 80 20 73 61 76 65  24 3c 3e 22 3c 57 69 6d  |1 . save$<>"<Wim|
00003450  70 24 53 63 72 61 70 3e  22 20 8c 20 f2 71 75 65  |p$Scrap>" . .que|
00003460  72 79 28 22 54 6f 20 73  61 76 65 2c 20 64 72 61  |ry("To save, dra|
00003470  67 20 74 68 65 20 73 61  76 65 20 69 63 6f 6e 20  |g the save icon |
00003480  74 6f 20 61 20 64 69 72  65 63 74 6f 72 79 20 76  |to a directory v|
00003490  69 65 77 65 72 22 29 3a  6e 6f 73 61 76 65 3d b9  |iewer"):nosave=.|
000034a0  3a e1 0d 10 ea 15 e7 20  77 69 6e 73 61 76 65 25  |:...... winsave%|
000034b0  3d 73 61 76 65 64 25 0d  10 f4 07 ea 20 85 0d 10  |=saved%..... ...|
000034c0  fe 58 ee 20 85 20 ea 20  e7 20 9f 3d 37 31 36 32  |.X. . . . .=7162|
000034d0  32 3a f2 71 75 65 72 79  28 22 44 69 73 63 20 46  |2:.query("Disc F|
000034e0  75 6c 6c 22 29 3a 66 75  6c 6c 3d b9 3a f7 20 85  |ull"):full=.:. .|
000034f0  3a e1 3a 8b 20 f7 20 85  3a f2 65 72 72 6f 72 28  |:.:. . .:.error(|
00003500  f6 24 2b 22 20 3a 20 61  74 20 6c 69 6e 65 20 22  |.$+" : at line "|
00003510  2b c3 9e 29 3a e0 0d 11  08 13 20 65 6e 64 74 65  |+..):..... endte|
00003520  78 74 25 3d 74 65 78 74  25 0d 11 12 23 24 65 6e  |xt%=text%...#$en|
00003530  64 74 65 78 74 25 3d 22  43 61 72 64 32 20 44 61  |dtext%="Card2 Da|
00003540  74 61 20 46 69 6c 65 22  2b bd 31 30 0d 11 1c 11  |ta File"+.10....|
00003550  20 65 6e 64 74 65 78 74  25 2b 3d 31 36 0d 11 26  | endtext%+=16..&|
00003560  13 e7 20 63 75 72 73 70  72 24 3c 3e 22 22 20 8c  |.. curspr$<>"" .|
00003570  0d 11 30 1b 24 65 6e 64  74 65 78 74 25 3d 22 53  |..0.$endtext%="S|
00003580  70 72 69 74 65 73 22 2b  bd 31 30 0d 11 3a 0f 65  |prites"+.10..:.e|
00003590  6e 64 74 65 78 74 25 2b  3d 38 0d 11 44 63 24 65  |ndtext%+=8..Dc$e|
000035a0  6e 64 74 65 78 74 25 3d  63 75 72 73 70 72 24 2b  |ndtext%=curspr$+|
000035b0  bd 31 30 3a 65 6e 64 74  65 78 74 25 2b 3d a9 28  |.10:endtext%+=.(|
000035c0  63 75 72 73 70 72 24 29  2b 31 3a 24 65 6e 64 74  |curspr$)+1:$endt|
000035d0  65 78 74 25 3d c3 73 70  72 5f 6c 65 6e 25 2b bd  |ext%=.spr_len%+.|
000035e0  28 31 30 29 3a 65 6e 64  74 65 78 74 25 2b 3d a9  |(10):endtext%+=.|
000035f0  28 c3 73 70 72 5f 6c 65  6e 25 29 2b 31 0d 11 4e  |(.spr_len%)+1..N|
00003600  28 e7 20 63 65 6e 74 72  65 64 20 63 24 3d 22 63  |(. centred c$="c|
00003610  65 6e 74 72 65 64 22 20  8b 20 63 24 3d 22 6f 72  |entred" . c$="or|
00003620  69 67 69 6e 22 0d 11 58  22 e7 20 66 6f 72 63 65  |igin"..X". force|
00003630  20 66 24 3d 22 66 6f 72  63 65 64 22 20 8b 20 66  | f$="forced" . f|
00003640  24 3d 22 73 2f 73 22 0d  11 62 1b e7 20 53 68 65  |$="s/s"..b.. She|
00003650  61 72 20 67 24 3d 22 31  22 20 8b 20 67 24 3d 22  |ar g$="1" . g$="|
00003660  30 22 0d 11 6c 14 24 65  6e 64 74 65 78 74 25 3d  |0"..l.$endtext%=|
00003670  67 24 2b bd 31 30 0d 11  76 0f 65 6e 64 74 65 78  |g$+.10..v.endtex|
00003680  74 25 2b 3d 32 0d 11 80  14 24 65 6e 64 74 65 78  |t%+=2....$endtex|
00003690  74 25 3d 63 24 2b bd 31  30 0d 11 8a 13 65 6e 64  |t%=c$+.10....end|
000036a0  74 65 78 74 25 2b 3d a9  63 24 2b 31 0d 11 94 14  |text%+=.c$+1....|
000036b0  24 65 6e 64 74 65 78 74  25 3d 66 24 2b bd 31 30  |$endtext%=f$+.10|
000036c0  0d 11 9e 13 65 6e 64 74  65 78 74 25 2b 3d a9 66  |....endtext%+=.f|
000036d0  24 2b 31 0d 11 a8 05 cc  0d 11 b2 2a 24 65 6e 64  |$+1........*$end|
000036e0  74 65 78 74 25 3d 22 4e  6f 53 70 72 69 74 65 73  |text%="NoSprites|
000036f0  22 2b bd 31 30 3a 65 6e  64 74 65 78 74 25 2b 3d  |"+.10:endtext%+=|
00003700  31 30 0d 11 bc 05 cd 0d  11 c6 25 20 24 65 6e 64  |10........% $end|
00003710  74 65 78 74 25 3d 24 a4  69 6e 66 6f 28 64 65 74  |text%=$.info(det|
00003720  61 69 6c 73 25 2c 33 29  2b bd 31 30 0d 11 d0 26  |ails%,3)+.10...&|
00003730  20 65 6e 64 74 65 78 74  25 2b 3d a9 28 24 a4 69  | endtext%+=.($.i|
00003740  6e 66 6f 28 64 65 74 61  69 6c 73 25 2c 33 29 29  |nfo(details%,3))|
00003750  2b 31 0d 11 da 27 20 24  65 6e 64 74 65 78 74 25  |+1...' $endtext%|
00003760  3d 24 a4 69 6e 66 6f 28  64 65 74 61 69 6c 73 25  |=$.info(details%|
00003770  2c 30 29 2b bd 28 31 30  29 0d 11 e4 26 20 65 6e  |,0)+.(10)...& en|
00003780  64 74 65 78 74 25 2b 3d  a9 28 24 a4 69 6e 66 6f  |dtext%+=.($.info|
00003790  28 64 65 74 61 69 6c 73  25 2c 30 29 29 2b 31 0d  |(details%,0))+1.|
000037a0  11 ee 28 20 24 65 6e 64  74 65 78 74 25 3d 24 a4  |..( $endtext%=$.|
000037b0  69 6e 66 6f 28 64 65 74  61 69 6c 73 25 2c 31 33  |info(details%,13|
000037c0  29 2b bd 28 31 30 29 0d  11 f8 26 65 6e 64 74 65  |)+.(10)...&endte|
000037d0  78 74 25 2b 3d a9 28 24  a4 69 6e 66 6f 28 64 65  |xt%+=.($.info(de|
000037e0  74 61 69 6c 73 25 2c 31  33 29 29 2b 31 0d 12 02  |tails%,13))+1...|
000037f0  27 24 65 6e 64 74 65 78  74 25 3d 24 a4 69 6e 66  |'$endtext%=$.inf|
00003800  6f 28 64 65 74 61 69 6c  73 25 2c 33 31 29 2b bd  |o(details%,31)+.|
00003810  28 31 30 29 0d 12 0c 26  65 6e 64 74 65 78 74 25  |(10)...&endtext%|
00003820  2b 3d a9 28 24 a4 69 6e  66 6f 28 64 65 74 61 69  |+=.($.info(detai|
00003830  6c 73 25 2c 33 31 29 29  2b 31 0d 12 16 25 20 24  |ls%,31))+1...% $|
00003840  65 6e 64 74 65 78 74 25  3d 24 a4 69 6e 66 6f 28  |endtext%=$.info(|
00003850  64 65 74 61 69 6c 73 25  2c 32 29 2b bd 31 30 0d  |details%,2)+.10.|
00003860  12 20 26 20 65 6e 64 74  65 78 74 25 2b 3d a9 28  |. & endtext%+=.(|
00003870  24 a4 69 6e 66 6f 28 64  65 74 61 69 6c 73 25 2c  |$.info(details%,|
00003880  32 29 29 2b 31 0d 12 2a  27 20 24 65 6e 64 74 65  |2))+1..*' $endte|
00003890  78 74 25 3d 24 a4 69 6e  66 6f 28 64 65 74 61 69  |xt%=$.info(detai|
000038a0  6c 73 25 2c 35 29 2b bd  28 31 30 29 0d 12 34 26  |ls%,5)+.(10)..4&|
000038b0  20 65 6e 64 74 65 78 74  25 2b 3d a9 28 24 a4 69  | endtext%+=.($.i|
000038c0  6e 66 6f 28 64 65 74 61  69 6c 73 25 2c 35 29 29  |nfo(details%,5))|
000038d0  2b 31 0d 12 3e 28 20 24  65 6e 64 74 65 78 74 25  |+1..>( $endtext%|
000038e0  3d 24 a4 69 6e 66 6f 28  64 65 74 61 69 6c 73 25  |=$.info(details%|
000038f0  2c 31 34 29 2b bd 28 31  30 29 0d 12 48 26 65 6e  |,14)+.(10)..H&en|
00003900  64 74 65 78 74 25 2b 3d  a9 28 24 a4 69 6e 66 6f  |dtext%+=.($.info|
00003910  28 64 65 74 61 69 6c 73  25 2c 31 34 29 29 2b 31  |(details%,14))+1|
00003920  0d 12 52 28 20 24 65 6e  64 74 65 78 74 25 3d 24  |..R( $endtext%=$|
00003930  a4 69 6e 66 6f 28 64 65  74 61 69 6c 73 25 2c 33  |.info(details%,3|
00003940  32 29 2b bd 28 31 30 29  0d 12 5c 26 65 6e 64 74  |2)+.(10)..\&endt|
00003950  65 78 74 25 2b 3d a9 28  24 a4 69 6e 66 6f 28 64  |ext%+=.($.info(d|
00003960  65 74 61 69 6c 73 25 2c  33 32 29 29 2b 31 0d 12  |etails%,32))+1..|
00003970  66 25 24 65 6e 64 74 65  78 74 25 3d 24 a4 69 6e  |f%$endtext%=$.in|
00003980  66 6f 28 64 65 74 61 69  6c 73 25 2c 31 39 29 2b  |fo(details%,19)+|
00003990  bd 31 30 0d 12 70 27 20  65 6e 64 74 65 78 74 25  |.10..p' endtext%|
000039a0  2b 3d a9 28 24 a4 69 6e  66 6f 28 64 65 74 61 69  |+=.($.info(detai|
000039b0  6c 73 25 2c 31 39 29 29  2b 31 0d 12 7a 27 20 24  |ls%,19))+1..z' $|
000039c0  65 6e 64 74 65 78 74 25  3d 24 a4 69 6e 66 6f 28  |endtext%=$.info(|
000039d0  64 65 74 61 69 6c 73 25  2c 36 29 2b bd 28 31 30  |details%,6)+.(10|
000039e0  29 0d 12 84 26 20 65 6e  64 74 65 78 74 25 2b 3d  |)...& endtext%+=|
000039f0  a9 28 24 a4 69 6e 66 6f  28 64 65 74 61 69 6c 73  |.($.info(details|
00003a00  25 2c 36 29 29 2b 31 0d  12 8e 28 20 24 65 6e 64  |%,6))+1...( $end|
00003a10  74 65 78 74 25 3d 24 a4  69 6e 66 6f 28 64 65 74  |text%=$.info(det|
00003a20  61 69 6c 73 25 2c 31 37  29 2b bd 28 31 30 29 0d  |ails%,17)+.(10).|
00003a30  12 98 26 65 6e 64 74 65  78 74 25 2b 3d a9 28 24  |..&endtext%+=.($|
00003a40  a4 69 6e 66 6f 28 64 65  74 61 69 6c 73 25 2c 31  |.info(details%,1|
00003a50  37 29 29 2b 31 0d 12 a2  28 20 24 65 6e 64 74 65  |7))+1...( $endte|
00003a60  78 74 25 3d 24 a4 69 6e  66 6f 28 64 65 74 61 69  |xt%=$.info(detai|
00003a70  6c 73 25 2c 33 33 29 2b  bd 28 31 30 29 0d 12 ac  |ls%,33)+.(10)...|
00003a80  26 65 6e 64 74 65 78 74  25 2b 3d a9 28 24 a4 69  |&endtext%+=.($.i|
00003a90  6e 66 6f 28 64 65 74 61  69 6c 73 25 2c 33 33 29  |nfo(details%,33)|
00003aa0  29 2b 31 0d 12 b6 26 24  65 6e 64 74 65 78 74 25  |)+1...&$endtext%|
00003ab0  3d 24 a4 69 6e 66 6f 28  64 65 74 61 69 6c 73 25  |=$.info(details%|
00003ac0  2c 37 29 2b bd 28 31 30  29 0d 12 c0 25 65 6e 64  |,7)+.(10)...%end|
00003ad0  74 65 78 74 25 2b 3d a9  28 24 a4 69 6e 66 6f 28  |text%+=.($.info(|
00003ae0  64 65 74 61 69 6c 73 25  2c 37 29 29 2b 31 0d 12  |details%,7))+1..|
00003af0  ca 27 24 65 6e 64 74 65  78 74 25 3d 24 a4 69 6e  |.'$endtext%=$.in|
00003b00  66 6f 28 64 65 74 61 69  6c 73 25 2c 31 38 29 2b  |fo(details%,18)+|
00003b10  bd 28 31 30 29 0d 12 d4  26 65 6e 64 74 65 78 74  |.(10)...&endtext|
00003b20  25 2b 3d a9 28 24 a4 69  6e 66 6f 28 64 65 74 61  |%+=.($.info(deta|
00003b30  69 6c 73 25 2c 31 38 29  29 2b 31 0d 12 de 27 24  |ils%,18))+1...'$|
00003b40  65 6e 64 74 65 78 74 25  3d 24 a4 69 6e 66 6f 28  |endtext%=$.info(|
00003b50  64 65 74 61 69 6c 73 25  2c 31 30 29 2b bd 28 31  |details%,10)+.(1|
00003b60  30 29 0d 12 e8 26 65 6e  64 74 65 78 74 25 2b 3d  |0)...&endtext%+=|
00003b70  a9 28 24 a4 69 6e 66 6f  28 64 65 74 61 69 6c 73  |.($.info(details|
00003b80  25 2c 31 30 29 29 2b 31  0d 12 f2 26 24 65 6e 64  |%,10))+1...&$end|
00003b90  74 65 78 74 25 3d 24 a4  69 6e 66 6f 28 64 65 74  |text%=$.info(det|
00003ba0  61 69 6c 73 25 2c 34 29  2b bd 28 31 30 29 0d 12  |ails%,4)+.(10)..|
00003bb0  fc 25 65 6e 64 74 65 78  74 25 2b 3d a9 28 24 a4  |.%endtext%+=.($.|
00003bc0  69 6e 66 6f 28 64 65 74  61 69 6c 73 25 2c 34 29  |info(details%,4)|
00003bd0  29 2b 31 0d 13 06 27 24  65 6e 64 74 65 78 74 25  |)+1...'$endtext%|
00003be0  3d 24 a4 69 6e 66 6f 28  64 65 74 61 69 6c 73 25  |=$.info(details%|
00003bf0  2c 32 31 29 2b bd 28 31  30 29 0d 13 10 26 65 6e  |,21)+.(10)...&en|
00003c00  64 74 65 78 74 25 2b 3d  a9 28 24 a4 69 6e 66 6f  |dtext%+=.($.info|
00003c10  28 64 65 74 61 69 6c 73  25 2c 32 31 29 29 2b 31  |(details%,21))+1|
00003c20  0d 13 1a 27 24 65 6e 64  74 65 78 74 25 3d 24 a4  |...'$endtext%=$.|
00003c30  69 6e 66 6f 28 64 65 74  61 69 6c 73 25 2c 31 35  |info(details%,15|
00003c40  29 2b bd 28 31 30 29 0d  13 24 26 65 6e 64 74 65  |)+.(10)..$&endte|
00003c50  78 74 25 2b 3d a9 28 24  a4 69 6e 66 6f 28 64 65  |xt%+=.($.info(de|
00003c60  74 61 69 6c 73 25 2c 31  35 29 29 2b 31 0d 13 2e  |tails%,15))+1...|
00003c70  27 24 65 6e 64 74 65 78  74 25 3d 24 a4 69 6e 66  |'$endtext%=$.inf|
00003c80  6f 28 64 65 74 61 69 6c  73 25 2c 33 34 29 2b bd  |o(details%,34)+.|
00003c90  28 31 30 29 0d 13 38 26  65 6e 64 74 65 78 74 25  |(10)..8&endtext%|
00003ca0  2b 3d a9 28 24 a4 69 6e  66 6f 28 64 65 74 61 69  |+=.($.info(detai|
00003cb0  6c 73 25 2c 33 34 29 29  2b 31 0d 13 42 1c 24 65  |ls%,34))+1..B.$e|
00003cc0  6e 64 74 65 78 74 25 3d  c3 68 65 78 63 28 30 29  |ndtext%=.hexc(0)|
00003cd0  2b bd 28 31 30 29 0d 13  4c 1c 20 65 6e 64 74 65  |+.(10)..L. endte|
00003ce0  78 74 25 2b 3d a9 28 c3  68 65 78 63 28 30 29 29  |xt%+=.(.hexc(0))|
00003cf0  2b 31 0d 13 56 1d 20 24  65 6e 64 74 65 78 74 25  |+1..V. $endtext%|
00003d00  3d c3 68 65 78 63 28 31  29 2b bd 28 31 30 29 0d  |=.hexc(1)+.(10).|
00003d10  13 60 1c 20 65 6e 64 74  65 78 74 25 2b 3d a9 28  |.`. endtext%+=.(|
00003d20  c3 68 65 78 63 28 31 29  29 2b 31 0d 13 6a 1c 24  |.hexc(1))+1..j.$|
00003d30  65 6e 64 74 65 78 74 25  3d c3 68 65 78 63 28 32  |endtext%=.hexc(2|
00003d40  29 2b bd 28 31 30 29 0d  13 74 1c 20 65 6e 64 74  |)+.(10)..t. endt|
00003d50  65 78 74 25 2b 3d a9 28  c3 68 65 78 63 28 32 29  |ext%+=.(.hexc(2)|
00003d60  29 2b 31 0d 13 7e 1c 24  65 6e 64 74 65 78 74 25  |)+1..~.$endtext%|
00003d70  3d c3 68 65 78 63 28 33  29 2b bd 28 31 30 29 0d  |=.hexc(3)+.(10).|
00003d80  13 88 1c 20 65 6e 64 74  65 78 74 25 2b 3d a9 28  |... endtext%+=.(|
00003d90  c3 68 65 78 63 28 33 29  29 2b 31 0d 13 92 1c 24  |.hexc(3))+1....$|
00003da0  65 6e 64 74 65 78 74 25  3d c3 68 65 78 63 28 34  |endtext%=.hexc(4|
00003db0  29 2b bd 28 31 30 29 0d  13 9c 1c 20 65 6e 64 74  |)+.(10).... endt|
00003dc0  65 78 74 25 2b 3d a9 28  c3 68 65 78 63 28 34 29  |ext%+=.(.hexc(4)|
00003dd0  29 2b 31 0d 13 a6 2b 20  c8 99 22 4f 53 5f 46 69  |)+1...+ .."OS_Fi|
00003de0  6c 65 22 2c 30 2c 73 61  76 65 24 2c 30 2c 30 2c  |le",0,save$,0,0,|
00003df0  74 65 78 74 25 2c 65 6e  64 74 65 78 74 25 0d 13  |text%,endtext%..|
00003e00  b0 20 20 ff 28 22 53 65  74 74 79 70 65 20 22 2b  |.  .("Settype "+|
00003e10  73 61 76 65 24 2b 22 20  26 30 63 63 22 29 0d 13  |save$+" &0cc")..|
00003e20  ba 12 e7 20 63 75 72 73  70 72 24 3c 3e 22 22 8c  |... curspr$<>"".|
00003e30  0d 13 c4 23 c8 99 22 4f  53 5f 46 69 6c 65 22 2c  |...#.."OS_File",|
00003e40  35 2c 73 61 76 65 24 20  b8 2c 2c 2c 2c 6c 65 6e  |5,save$ .,,,,len|
00003e50  67 74 68 0d 13 ce 1e c8  99 22 4f 53 5f 46 69 6e  |gth......"OS_Fin|
00003e60  64 22 2c 26 43 30 2c 73  61 76 65 24 20 b8 20 66  |d",&C0,save$ . f|
00003e70  73 0d 13 d8 2b c8 99 22  4f 53 5f 47 42 50 42 22  |s...+.."OS_GBPB"|
00003e80  2c 31 2c 66 73 2c 73 70  72 25 2b 34 2c 73 70 72  |,1,fs,spr%+4,spr|
00003e90  5f 6c 65 6e 25 2c 6c 65  6e 67 74 68 0d 13 e2 08  |_len%,length....|
00003ea0  d9 23 66 73 0d 13 ec 05  cd 0d 13 f6 07 f7 20 85  |.#fs.......... .|
00003eb0  0d 14 00 3c e7 20 73 61  76 65 24 3c 3e 22 3c 57  |...<. save$<>"<W|
00003ec0  69 6d 70 24 53 63 72 61  70 3e 22 20 8c 20 73 61  |imp$Scrap>" . sa|
00003ed0  76 65 66 3d b9 3a f2 74  69 74 6c 65 28 64 65 74  |vef=.:.title(det|
00003ee0  61 69 6c 73 25 2c 73 61  76 65 24 29 0d 14 0a 05  |ails%,save$)....|
00003ef0  cd 0d 14 14 20 e7 20 77  69 6e 73 61 76 65 25 3d  |.... . winsave%=|
00003f00  73 61 76 65 25 20 8c 20  f2 6d 61 6b 65 66 69 6c  |save% . .makefil|
00003f10  65 0d 14 1e 19 e7 20 77  69 6e 73 61 76 65 25 3d  |e..... winsave%=|
00003f20  73 61 76 65 70 69 63 25  20 8c 0d 14 28 07 ea 20  |savepic% ...(.. |
00003f30  85 0d 14 32 5e ee 20 85  20 ea 20 e7 20 9f 3d 37  |...2^. . . . .=7|
00003f40  31 36 32 32 3a f2 71 75  65 72 79 28 22 44 69 73  |1622:.query("Dis|
00003f50  63 20 46 75 6c 6c 22 29  3a 66 75 6c 6c 3d b9 3a  |c Full"):full=.:|
00003f60  f7 20 85 3a e1 3a 8b 20  f7 20 85 3a f2 65 72 72  |. .:.:. . .:.err|
00003f70  6f 72 28 f6 24 2b 22 20  3a 20 61 74 20 6c 69 6e  |or(.$+" : at lin|
00003f80  65 20 22 2b c3 9e 29 3a  d9 23 69 6c 65 3a e0 0d  |e "+..):.#ile:..|
00003f90  14 3c 25 43 75 72 72 65  6e 74 3d a4 63 68 65 63  |.<%Current=.chec|
00003fa0  6b 66 6c 61 67 28 73 61  76 65 70 69 63 25 2c 33  |kflag(savepic%,3|
00003fb0  2c 32 31 29 0d 14 46 10  c8 8e 20 43 75 72 72 65  |,21)..F... Curre|
00003fc0  6e 74 20 ca 0d 14 50 08  c9 20 b9 3a 0d 14 5a 25  |nt ...P.. .:..Z%|
00003fd0  c8 99 20 34 36 2c 26 31  31 38 2c 73 70 72 25 2c  |.. 46,&118,spr%,|
00003fe0  63 75 72 73 70 72 24 20  b8 20 2c 2c 73 70 74 72  |curspr$ . ,,sptr|
00003ff0  25 0d 14 64 20 c8 99 22  4f 53 5f 46 69 6e 64 22  |%..d .."OS_Find"|
00004000  2c 26 38 30 2c 73 61 76  65 24 20 b8 20 69 6c 65  |,&80,save$ . ile|
00004010  25 0d 14 6e 0e d5 23 69  6c 65 25 2c 26 30 31 0d  |%..n..#ile%,&01.|
00004020  14 78 0c d5 23 69 6c 65  25 2c 30 0d 14 82 0c d5  |.x..#ile%,0.....|
00004030  23 69 6c 65 25 2c 30 0d  14 8c 0c d5 23 69 6c 65  |#ile%,0.....#ile|
00004040  25 2c 30 0d 14 96 0e d5  23 69 6c 65 25 2c 26 31  |%,0.....#ile%,&1|
00004050  30 0d 14 a0 0c d5 23 69  6c 65 25 2c 30 0d 14 aa  |0.....#ile%,0...|
00004060  0c d5 23 69 6c 65 25 2c  30 0d 14 b4 0c d5 23 69  |..#ile%,0.....#i|
00004070  6c 65 25 2c 30 0d 14 be  1a d5 23 69 6c 65 25 2c  |le%,0.....#ile%,|
00004080  21 73 70 74 72 25 2b 31  36 20 80 20 26 46 46 0d  |!sptr%+16 . &FF.|
00004090  14 c8 20 d5 23 69 6c 65  25 2c 28 21 73 70 74 72  |.. .#ile%,(!sptr|
000040a0  25 2b 31 36 3e 3e 3e 38  29 20 80 20 26 46 46 0d  |%+16>>>8) . &FF.|
000040b0  14 d2 21 d5 23 69 6c 65  25 2c 28 21 73 70 74 72  |..!.#ile%,(!sptr|
000040c0  25 2b 31 36 3e 3e 3e 31  36 29 20 80 20 26 46 46  |%+16>>>16) . &FF|
000040d0  0d 14 dc 21 d5 23 69 6c  65 25 2c 28 21 73 70 74  |...!.#ile%,(!spt|
000040e0  72 25 2b 31 36 3e 3e 3e  32 34 29 20 80 20 26 46  |r%+16>>>24) . &F|
000040f0  46 0d 14 e6 25 c8 99 22  4f 53 5f 47 42 50 42 22  |F...%.."OS_GBPB"|
00004100  2c 26 30 32 2c 69 6c 65  25 2c 73 70 74 72 25 2c  |,&02,ile%,sptr%,|
00004110  21 73 70 74 72 25 0d 14  f0 16 c8 99 22 4f 53 5f  |!sptr%......"OS_|
00004120  46 69 6e 64 22 2c 30 2c  69 6c 65 25 0d 14 fa 1e  |Find",0,ile%....|
00004130  c8 99 22 4f 53 5f 46 69  6c 65 22 2c 26 31 32 2c  |.."OS_File",&12,|
00004140  73 61 76 65 24 2c 26 66  66 39 0d 15 04 08 c9 20  |save$,&ff9..... |
00004150  a3 3a 0d 15 0e 34 c8 99  22 4f 53 5f 46 69 6c 65  |.:...4.."OS_File|
00004160  22 2c 30 2c 73 61 76 65  24 2c 30 2c 30 2c 73 70  |",0,save$,0,0,sp|
00004170  72 25 2b 34 2c 73 70 72  25 2b 28 73 70 72 5f 6c  |r%+4,spr%+(spr_l|
00004180  65 6e 25 2b 34 29 0d 15  18 1e c8 99 22 4f 53 5f  |en%+4)......"OS_|
00004190  46 69 6c 65 22 2c 26 31  32 2c 73 61 76 65 24 2c  |File",&12,save$,|
000041a0  26 66 66 39 0d 15 22 05  cb 0d 15 2c 05 cd 0d 15  |&ff9.."....,....|
000041b0  36 33 e7 20 73 61 76 65  24 3c 3e 22 3c 57 69 6d  |63. save$<>"<Wim|
000041c0  70 24 53 63 72 61 70 3e  22 20 f2 69 6e 66 6f 28  |p$Scrap>" .info(|
000041d0  77 69 6e 73 61 76 65 25  2c 31 2c 73 61 76 65 24  |winsave%,1,save$|
000041e0  29 0d 15 40 05 e1 0d 15  4a 0f dd f2 6d 65 73 73  |)..@....J...mess|
000041f0  61 67 65 69 6e 0d 15 54  10 6d 62 6c 6f 63 6b 3d  |agein..T.mblock=|
00004200  62 6c 6f 63 6b 0d 15 5e  1e 72 65 66 3d 6d 62 6c  |block..^.ref=mbl|
00004210  6f 63 6b 21 38 3a 74 61  73 6b 3d 6d 62 6c 6f 63  |ock!8:task=mbloc|
00004220  6b 21 34 0d 15 68 12 c8  8e 20 6d 62 6c 6f 63 6b  |k!4..h... mblock|
00004230  21 31 36 20 ca 0d 15 72  5b c9 20 38 3a e7 20 ac  |!16 ...r[. 8:. .|
00004240  20 70 72 65 71 75 69 74  20 6d 62 6c 6f 63 6b 21  | prequit mblock!|
00004250  31 32 3d 6d 62 6c 6f 63  6b 21 38 3a c8 99 22 57  |12=mblock!8:.."W|
00004260  69 6d 70 5f 53 65 6e 64  4d 65 73 73 61 67 65 22  |imp_SendMessage"|
00004270  2c 31 39 2c 6d 62 6c 6f  63 6b 3a 70 72 65 71 75  |,19,mblock:prequ|
00004280  69 74 3d b9 3a f2 61 72  65 79 6f 75 73 75 72 65  |it=.:.areyousure|
00004290  0d 15 7c 2e c9 20 30 3a  c8 99 72 65 69 6e 74 65  |..|.. 0:..reinte|
000042a0  72 2c 6d 79 74 61 73 6b  25 3a c8 99 22 57 69 6d  |r,mytask%:.."Wim|
000042b0  70 5f 43 6c 6f 73 65 44  6f 77 6e 22 3a e0 0d 15  |p_CloseDown":...|
000042c0  86 08 c9 20 32 3a 0d 15  90 10 e7 20 64 72 69 76  |... 2:..... driv|
000042d0  65 25 3d 31 20 8c 0d 15  9a 1b f2 73 61 76 65 28  |e%=1 ......save(|
000042e0  a4 77 6f 6f 6c 28 6d 62  6c 6f 63 6b 2b 34 34 29  |.wool(mblock+44)|
000042f0  29 0d 15 a4 11 6d 62 6c  6f 63 6b 21 31 32 3d 72  |)....mblock!12=r|
00004300  65 66 0d 15 ae 0f 6d 62  6c 6f 63 6b 21 31 36 3d  |ef....mblock!16=|
00004310  33 0d 15 b8 10 6d 62 6c  6f 63 6b 21 33 36 3d 2d  |3....mblock!36=-|
00004320  31 0d 15 c2 0f 21 6d 62  6c 6f 63 6b 3d 32 35 36  |1....!mblock=256|
00004330  0d 15 cc 10 73 65 6e 64  6d 3d 26 34 30 30 45 37  |....sendm=&400E7|
00004340  0d 15 d6 26 c8 99 20 73  65 6e 64 6d 2c 31 38 2c  |...&.. sendm,18,|
00004350  6d 62 6c 6f 63 6b 2c 74  61 73 6b 3a f4 20 44 61  |mblock,task:. Da|
00004360  74 61 4c 6f 61 64 0d 15  e0 05 cd 0d 15 ea 08 c9  |taLoad..........|
00004370  20 33 3a 0d 15 f4 6c e7  20 6d 62 6c 6f 63 6b 21  | 3:...l. mblock!|
00004380  34 30 3c 3e 26 30 43 43  20 80 20 6d 62 6c 6f 63  |40<>&0CC . mbloc|
00004390  6b 21 34 30 3c 3e 26 46  46 39 20 8c 20 f2 6d 65  |k!40<>&FF9 . .me|
000043a0  73 73 28 22 4f 6e 6c 79  20 43 61 72 64 44 61 74  |ss("Only CardDat|
000043b0  61 20 66 69 6c 65 73 20  6f 72 20 53 70 72 69 74  |a files or Sprit|
000043c0  65 73 20 63 61 6e 20 62  65 20 64 72 6f 70 70 65  |es can be droppe|
000043d0  64 20 69 6e 74 6f 20 68  65 72 65 22 29 3a e1 0d  |d into here"):..|
000043e0  15 fe 08 69 6e 3d b9 0d  16 08 23 e7 20 6d 62 6c  |...in=....#. mbl|
000043f0  6f 63 6b 21 34 30 3d 26  46 46 39 20 8c 20 f2 69  |ock!40=&FF9 . .i|
00004400  6e 73 70 72 69 74 65 73  3a e1 0d 16 12 1a f2 6c  |nsprites:......l|
00004410  6f 61 64 28 a4 77 6f 6f  6c 28 62 6c 6f 63 6b 2b  |oad(.wool(block+|
00004420  34 34 29 29 0d 16 1c 08  c9 20 35 3a 0d 16 26 15  |44))..... 5:..&.|
00004430  e7 20 62 6c 6f 63 6b 21  34 30 3d 26 30 43 43 20  |. block!40=&0CC |
00004440  8c 0d 16 30 1f 62 6c 6f  63 6b 21 31 32 3d 62 6c  |...0.block!12=bl|
00004450  6f 63 6b 21 38 3a 62 6c  6f 63 6b 21 31 36 3d 34  |ock!8:block!16=4|
00004460  0d 16 3a 10 73 65 6e 64  6d 3d 26 34 30 30 45 37  |..:.sendm=&400E7|
00004470  0d 16 44 2b c8 99 20 73  65 6e 64 6d 2c 31 38 2c  |..D+.. sendm,18,|
00004480  62 6c 6f 63 6b 2c 62 6c  6f 63 6b 21 34 3a f4 20  |block,block!4:. |
00004490  44 61 74 61 4c 6f 61 64  41 63 6b 0d 16 4e 1a f2  |DataLoadAck..N..|
000044a0  6c 6f 61 64 28 a4 77 6f  6f 6c 28 62 6c 6f 63 6b  |load(.wool(block|
000044b0  2b 34 34 29 29 0d 16 58  05 cd 0d 16 62 05 cb 0d  |+44))..X....b...|
000044c0  16 6c 05 e1 0d 16 76 11  dd f2 6c 6f 61 64 28 6c  |.l....v...load(l|
000044d0  6f 61 64 24 29 0d 16 80  21 c8 99 22 4f 53 5f 46  |oad$)...!.."OS_F|
000044e0  69 6e 64 22 2c 26 34 30  2c 6c 6f 61 64 24 20 b8  |ind",&40,load$ .|
000044f0  20 66 69 6c 65 25 0d 16  8a 09 74 24 3d 22 22 0d  | file%....t$="".|
00004500  16 94 10 74 24 3d a4 72  65 61 64 66 69 6c 65 0d  |...t$=.readfile.|
00004510  16 9e 0e 20 66 69 72 73  74 24 3d 74 24 0d 16 a8  |... first$=t$...|
00004520  71 20 e7 20 74 24 3c 3e  22 43 61 72 64 20 44 61  |q . t$<>"Card Da|
00004530  74 61 20 46 69 6c 65 22  20 80 20 74 24 3c 3e 22  |ta File" . t$<>"|
00004540  43 61 72 64 32 20 44 61  74 61 20 46 69 6c 65 22  |Card2 Data File"|
00004550  20 8c 20 f2 6d 65 73 73  28 22 54 68 69 73 20 69  | . .mess("This i|
00004560  73 20 6e 6f 74 20 61 20  43 61 72 64 20 64 61 74  |s not a Card dat|
00004570  61 20 66 69 6c 65 22 29  3a c8 99 22 4f 53 5f 46  |a file"):.."OS_F|
00004580  69 6e 64 22 2c 30 2c 66  69 6c 65 25 3a e1 0d 16  |ind",0,file%:...|
00004590  b2 39 e7 20 66 69 72 73  74 24 3d 22 43 61 72 64  |.9. first$="Card|
000045a0  20 44 61 74 61 20 46 69  6c 65 22 20 6e 65 77 3d  | Data File" new=|
000045b0  46 4c 41 53 45 3a f2 6c  6f 61 64 6f 6c 64 3a f2  |FLASE:.loadold:.|
000045c0  6b 69 6c 6c 73 70 72 0d  16 bc 2d e7 20 66 69 72  |killspr...-. fir|
000045d0  73 74 24 3d 22 43 61 72  64 32 20 44 61 74 61 20  |st$="Card2 Data |
000045e0  46 69 6c 65 22 20 6e 65  77 3d b9 3a f2 6c 6f 61  |File" new=.:.loa|
000045f0  64 6e 65 77 0d 16 c6 17  c8 99 22 4f 53 5f 46 69  |dnew......"OS_Fi|
00004600  6e 64 22 2c 30 2c 66 69  6c 65 25 0d 16 d0 1a 24  |nd",0,file%....$|
00004610  a4 69 6e 66 6f 28 73 61  76 65 64 25 2c 31 29 3d  |.info(saved%,1)=|
00004620  6c 6f 61 64 24 0d 16 da  1f e7 20 6e 6f 69 63 3d  |load$..... noic=|
00004630  30 20 f2 6f 70 65 6e 77  69 6e 28 64 65 74 61 69  |0 .openwin(detai|
00004640  6c 73 25 29 0d 16 e4 2b  e7 20 6e 6f 69 63 3d 30  |ls%)...+. noic=0|
00004650  20 73 61 76 65 66 3d b9  3a f2 74 69 74 6c 65 28  | savef=.:.title(|
00004660  64 65 74 61 69 6c 73 25  2c 6c 6f 61 64 24 29 0d  |details%,load$).|
00004670  16 ee 28 e7 20 6e 6f 69  63 3d 30 20 80 20 63 75  |..(. noic=0 . cu|
00004680  72 73 70 72 24 3c 3e 22  22 20 8c 20 f2 64 72 61  |rspr$<>"" . .dra|
00004690  77 73 70 72 69 74 65 0d  16 f8 05 e1 0d 17 02 0d  |wsprite.........|
000046a0  dd f2 6c 6f 61 64 6e 65  77 0d 17 0c 26 e7 20 a4  |..loadnew...&. .|
000046b0  72 65 61 64 66 69 6c 65  3d 22 53 70 72 69 74 65  |readfile="Sprite|
000046c0  73 22 20 8c 20 f2 6c 6f  61 64 73 70 72 3a e1 0d  |s" . .loadspr:..|
000046d0  17 16 0c f2 6b 69 6c 6c  73 70 72 0d 17 20 0e f2  |....killspr.. ..|
000046e0  6c 6f 61 64 69 6e 64 65  74 0d 17 2a 0d e3 20 49  |loadindet..*.. I|
000046f0  3d 30 20 b8 20 34 0d 17  34 18 68 65 78 63 28 49  |=0 . 4..4.hexc(I|
00004700  29 3d bb 28 a4 72 65 61  64 66 69 6c 65 29 0d 17  |)=.(.readfile)..|
00004710  3e 07 ed 20 49 0d 17 48  05 e1 0d 17 52 0d dd f2  |>.. I..H....R...|
00004720  6c 6f 61 64 73 70 72 0d  17 5c 1c e7 20 63 75 72  |loadspr..\.. cur|
00004730  73 70 72 24 3c 3e 22 22  20 8c 20 f2 6b 69 6c 6c  |spr$<>"" . .kill|
00004740  73 70 72 0d 17 66 15 63  75 72 73 70 72 24 3d a4  |spr..f.curspr$=.|
00004750  72 65 61 64 66 69 6c 65  0d 17 70 15 73 66 69 6c  |readfile..p.sfil|
00004760  65 24 3d 22 49 6e 74 65  72 6e 61 6c 22 0d 17 7a  |e$="Internal"..z|
00004770  19 73 70 72 5f 6c 65 6e  25 3d bb 28 a4 72 65 61  |.spr_len%=.(.rea|
00004780  64 66 69 6c 65 29 0d 17  84 32 e7 20 bb 28 a4 72  |dfile)...2. .(.r|
00004790  65 61 64 66 69 6c 65 29  3d 31 20 8c 20 f2 73 65  |eadfile)=1 . .se|
000047a0  74 73 68 65 61 72 28 31  29 20 8b 20 f2 73 65 74  |tshear(1) . .set|
000047b0  73 68 65 61 72 28 30 29  0d 17 8e 25 e7 20 a4 72  |shear(0)...%. .r|
000047c0  65 61 64 66 69 6c 65 3d  22 63 65 6e 74 72 65 64  |eadfile="centred|
000047d0  22 20 8c 20 63 65 6e 74  72 65 64 3d b9 0d 17 98  |" . centred=....|
000047e0  22 e7 20 a4 72 65 61 64  66 69 6c 65 3d 22 66 6f  |". .readfile="fo|
000047f0  72 63 65 64 22 20 8c 20  66 6f 72 63 65 3d b9 0d  |rced" . force=..|
00004800  17 a2 0e f2 6c 6f 61 64  69 6e 64 65 74 0d 17 ac  |....loadindet...|
00004810  0d e3 20 49 3d 30 20 b8  20 34 0d 17 b6 18 68 65  |.. I=0 . 4....he|
00004820  78 63 28 49 29 3d bb 28  a4 72 65 61 64 66 69 6c  |xc(I)=.(.readfil|
00004830  65 29 0d 17 c0 07 ed 20  49 0d 17 ca 15 6d 65 6e  |e)..... I....men|
00004840  24 3d 22 22 3a 6c 61 72  67 65 73 74 3d 30 0d 17  |$="":largest=0..|
00004850  d4 1c 73 70 72 25 3d a4  63 6c 61 69 6d 28 73 70  |..spr%=.claim(sp|
00004860  72 5f 6c 65 6e 25 2b 36  34 29 0d 17 de 24 c8 99  |r_len%+64)...$..|
00004870  22 4f 53 5f 46 69 6c 65  22 2c 35 2c 6c 6f 61 64  |"OS_File",5,load|
00004880  24 20 b8 20 2c 2c 2c 2c  6c 65 6e 67 74 68 0d 17  |$ . ,,,,length..|
00004890  e8 37 c8 99 22 4f 53 5f  47 42 50 42 22 2c 33 2c  |.7.."OS_GBPB",3,|
000048a0  66 69 6c 65 25 2c 73 70  72 25 2b 34 2c 73 70 72  |file%,spr%+4,spr|
000048b0  5f 6c 65 6e 25 2c 6c 65  6e 67 74 68 2d 73 70 72  |_len%,length-spr|
000048c0  5f 6c 65 6e 25 0d 17 f2  2c c8 99 20 22 4f 53 5f  |_len%...,.. "OS_|
000048d0  53 70 72 69 74 65 4f 70  22 2c 26 31 30 38 2c 73  |SpriteOp",&108,s|
000048e0  70 72 25 20 b8 20 2c 2c  2c 73 70 72 69 74 65 73  |pr% . ,,,sprites|
000048f0  25 0d 17 fc 17 e3 20 69  25 3d 30 20 b8 20 73 70  |%..... i%=0 . sp|
00004900  72 69 74 65 73 25 2d 31  0d 18 06 37 20 c8 99 20  |rites%-1...7 .. |
00004910  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 2c 26 31  |"OS_SpriteOp",&1|
00004920  30 44 2c 73 70 72 25 2c  74 65 6d 70 25 2c 26 31  |0D,spr%,temp%,&1|
00004930  30 30 2c 69 25 2b 31 20  b8 20 2c 2c 2c 6a 25 0d  |00,i%+1 . ,,,j%.|
00004940  18 10 10 20 74 65 6d 70  25 3f 6a 25 3d 31 33 0d  |... temp%?j%=13.|
00004950  18 1a 29 20 e7 20 a9 28  6d 65 6e 24 29 3c 32 34  |..) . .(men$)<24|
00004960  33 20 8c 20 6d 65 6e 24  3d 6d 65 6e 24 2b 24 74  |3 . men$=men$+$t|
00004970  65 6d 70 25 2b 22 2c 22  0d 18 24 2a 20 e7 20 a9  |emp%+","..$* . .|
00004980  28 24 74 65 6d 70 25 29  3e 6c 61 72 67 65 73 74  |($temp%)>largest|
00004990  20 6c 61 72 67 65 73 74  3d a9 28 24 74 65 6d 70  | largest=.($temp|
000049a0  25 29 0d 18 2e 05 ed 0d  18 38 19 6d 65 6e 24 3d  |%).......8.men$=|
000049b0  c0 6d 65 6e 24 2c a9 28  6d 65 6e 24 29 2d 31 29  |.men$,.(men$)-1)|
000049c0  0d 18 42 05 e1 0d 18 4c  0d dd f2 6c 6f 61 64 6f  |..B....L...loado|
000049d0  6c 64 0d 18 56 0e f2 6c  6f 61 64 69 6e 64 65 74  |ld..V..loadindet|
000049e0  0d 18 60 0d e3 20 49 3d  31 20 b8 20 34 0d 18 6a  |..`.. I=1 . 4..j|
000049f0  0d 68 65 78 63 28 49 29  3d 30 0d 18 74 05 ed 0d  |.hexc(I)=0..t...|
00004a00  18 7e 15 68 65 78 63 28  30 29 3d 26 46 46 46 46  |.~.hexc(0)=&FFFF|
00004a10  46 46 30 30 0d 18 88 05  e1 0d 18 92 0f dd f2 6c  |FF00...........l|
00004a20  6f 61 64 69 6e 64 65 74  0d 18 9c 1f f2 69 6e 66  |oadindet.....inf|
00004a30  6f 28 64 65 74 61 69 6c  73 25 2c 33 2c a4 72 65  |o(details%,3,.re|
00004a40  61 64 66 69 6c 65 29 0d  18 a6 1f f2 69 6e 66 6f  |adfile).....info|
00004a50  28 64 65 74 61 69 6c 73  25 2c 30 2c a4 72 65 61  |(details%,0,.rea|
00004a60  64 66 69 6c 65 29 0d 18  b0 20 f2 69 6e 66 6f 28  |dfile)... .info(|
00004a70  64 65 74 61 69 6c 73 25  2c 31 33 2c a4 72 65 61  |details%,13,.rea|
00004a80  64 66 69 6c 65 29 0d 18  ba 26 e7 20 6e 65 77 20  |dfile)...&. new |
00004a90  f2 69 6e 66 6f 28 64 65  74 61 69 6c 73 25 2c 33  |.info(details%,3|
00004aa0  31 2c a4 72 65 61 64 66  69 6c 65 29 0d 18 c4 1f  |1,.readfile)....|
00004ab0  f2 69 6e 66 6f 28 64 65  74 61 69 6c 73 25 2c 32  |.info(details%,2|
00004ac0  2c a4 72 65 61 64 66 69  6c 65 29 0d 18 ce 1f f2  |,.readfile).....|
00004ad0  69 6e 66 6f 28 64 65 74  61 69 6c 73 25 2c 35 2c  |info(details%,5,|
00004ae0  a4 72 65 61 64 66 69 6c  65 29 0d 18 d8 20 f2 69  |.readfile)... .i|
00004af0  6e 66 6f 28 64 65 74 61  69 6c 73 25 2c 31 34 2c  |nfo(details%,14,|
00004b00  a4 72 65 61 64 66 69 6c  65 29 0d 18 e2 26 e7 20  |.readfile)...&. |
00004b10  6e 65 77 20 f2 69 6e 66  6f 28 64 65 74 61 69 6c  |new .info(detail|
00004b20  73 25 2c 33 32 2c a4 72  65 61 64 66 69 6c 65 29  |s%,32,.readfile)|
00004b30  0d 18 ec 20 f2 69 6e 66  6f 28 64 65 74 61 69 6c  |... .info(detail|
00004b40  73 25 2c 31 39 2c a4 72  65 61 64 66 69 6c 65 29  |s%,19,.readfile)|
00004b50  0d 18 f6 1f f2 69 6e 66  6f 28 64 65 74 61 69 6c  |.....info(detail|
00004b60  73 25 2c 36 2c a4 72 65  61 64 66 69 6c 65 29 0d  |s%,6,.readfile).|
00004b70  19 00 20 f2 69 6e 66 6f  28 64 65 74 61 69 6c 73  |.. .info(details|
00004b80  25 2c 31 37 2c a4 72 65  61 64 66 69 6c 65 29 0d  |%,17,.readfile).|
00004b90  19 0a 26 e7 20 6e 65 77  20 f2 69 6e 66 6f 28 64  |..&. new .info(d|
00004ba0  65 74 61 69 6c 73 25 2c  33 33 2c a4 72 65 61 64  |etails%,33,.read|
00004bb0  66 69 6c 65 29 0d 19 14  1f f2 69 6e 66 6f 28 64  |file).....info(d|
00004bc0  65 74 61 69 6c 73 25 2c  37 2c a4 72 65 61 64 66  |etails%,7,.readf|
00004bd0  69 6c 65 29 0d 19 1e 20  f2 69 6e 66 6f 28 64 65  |ile)... .info(de|
00004be0  74 61 69 6c 73 25 2c 31  38 2c a4 72 65 61 64 66  |tails%,18,.readf|
00004bf0  69 6c 65 29 0d 19 28 20  f2 69 6e 66 6f 28 64 65  |ile)..( .info(de|
00004c00  74 61 69 6c 73 25 2c 31  30 2c a4 72 65 61 64 66  |tails%,10,.readf|
00004c10  69 6c 65 29 0d 19 32 1f  f2 69 6e 66 6f 28 64 65  |ile)..2..info(de|
00004c20  74 61 69 6c 73 25 2c 34  2c a4 72 65 61 64 66 69  |tails%,4,.readfi|
00004c30  6c 65 29 0d 19 3c 20 f2  69 6e 66 6f 28 64 65 74  |le)..< .info(det|
00004c40  61 69 6c 73 25 2c 32 31  2c a4 72 65 61 64 66 69  |ails%,21,.readfi|
00004c50  6c 65 29 0d 19 46 20 f2  69 6e 66 6f 28 64 65 74  |le)..F .info(det|
00004c60  61 69 6c 73 25 2c 31 35  2c a4 72 65 61 64 66 69  |ails%,15,.readfi|
00004c70  6c 65 29 0d 19 50 26 e7  20 6e 65 77 20 f2 69 6e  |le)..P&. new .in|
00004c80  66 6f 28 64 65 74 61 69  6c 73 25 2c 33 34 2c a4  |fo(details%,34,.|
00004c90  72 65 61 64 66 69 6c 65  29 0d 19 5a 05 e1 0d 19  |readfile)..Z....|
00004ca0  64 0e dd a4 72 65 61 64  66 69 6c 65 0d 19 6e 0a  |d...readfile..n.|
00004cb0  20 74 24 3d 22 22 0d 19  78 06 20 f5 0d 19 82 1f  | t$=""..x. .....|
00004cc0  20 c8 99 22 4f 53 5f 42  47 65 74 22 2c 2c 66 69  | .."OS_BGet",,fi|
00004cd0  6c 65 25 20 b8 20 62 79  74 65 25 0d 19 8c 38 20  |le% . byte%...8 |
00004ce0  e7 20 62 79 74 65 25 3d  32 35 34 20 c8 99 22 4f  |. byte%=254 .."O|
00004cf0  53 5f 46 69 6e 64 22 2c  30 2c 66 69 6c 65 25 3a  |S_Find",0,file%:|
00004d00  f2 6f 70 65 6e 77 69 6e  28 64 65 74 61 69 6c 73  |.openwin(details|
00004d10  25 29 3a 0d 19 96 13 20  74 24 3d 74 24 2b bd 28  |%):.... t$=t$+.(|
00004d20  62 79 74 65 25 29 0d 19  a0 1a 20 fd 20 62 79 74  |byte%).... . byt|
00004d30  65 25 3d 31 33 20 84 20  62 79 74 65 25 3d 31 30  |e%=13 . byte%=10|
00004d40  0d 19 aa 12 20 3d c0 74  24 2c a9 28 74 24 29 2d  |.... =.t$,.(t$)-|
00004d50  31 29 0d 19 b4 0f dd f2  69 6e 73 70 72 69 74 65  |1)......insprite|
00004d60  73 0d 19 be 16 20 6d 65  6e 24 3d 22 22 3a 6c 61  |s.... men$="":la|
00004d70  72 67 65 73 74 3d 30 0d  19 c8 1a 20 6c 6f 61 64  |rgest=0.... load|
00004d80  24 3d a4 77 6f 6f 6c 28  62 6c 6f 63 6b 2b 34 34  |$=.wool(block+44|
00004d90  29 0d 19 d2 11 20 73 66  69 6c 65 24 3d 6c 6f 61  |).... sfile$=loa|
00004da0  64 24 0d 19 dc 27 c8 99  20 22 4f 53 5f 46 69 6c  |d$...'.. "OS_Fil|
00004db0  65 22 2c 35 2c 6c 6f 61  64 24 20 b8 20 2c 2c 2c  |e",5,load$ . ,,,|
00004dc0  2c 73 70 72 5f 6c 65 6e  25 0d 19 e6 1d 73 70 72  |,spr_len%....spr|
00004dd0  25 3d a4 63 6c 61 69 6d  28 73 70 72 5f 6c 65 6e  |%=.claim(spr_len|
00004de0  25 2b 32 35 36 29 0d 19  f0 21 c8 99 20 22 4f 53  |%+256)...!.. "OS|
00004df0  5f 46 69 6c 65 22 2c 26  46 46 2c 6c 6f 61 64 24  |_File",&FF,load$|
00004e00  2c 73 70 72 25 2b 34 0d  19 fa 2c c8 99 20 22 4f  |,spr%+4...,.. "O|
00004e10  53 5f 53 70 72 69 74 65  4f 70 22 2c 26 31 30 38  |S_SpriteOp",&108|
00004e20  2c 73 70 72 25 20 b8 20  2c 2c 2c 73 70 72 69 74  |,spr% . ,,,sprit|
00004e30  65 73 25 0d 1a 04 17 e3  20 69 25 3d 30 20 b8 20  |es%..... i%=0 . |
00004e40  73 70 72 69 74 65 73 25  2d 31 0d 1a 0e 37 20 c8  |sprites%-1...7 .|
00004e50  99 20 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |. "OS_SpriteOp",|
00004e60  26 31 30 44 2c 73 70 72  25 2c 74 65 6d 70 25 2c  |&10D,spr%,temp%,|
00004e70  26 31 30 30 2c 69 25 2b  31 20 b8 20 2c 2c 2c 6a  |&100,i%+1 . ,,,j|
00004e80  25 0d 1a 18 10 20 74 65  6d 70 25 3f 6a 25 3d 31  |%.... temp%?j%=1|
00004e90  33 0d 1a 22 29 20 e7 20  a9 28 6d 65 6e 24 29 3c  |3..") . .(men$)<|
00004ea0  32 34 33 20 8c 20 6d 65  6e 24 3d 6d 65 6e 24 2b  |243 . men$=men$+|
00004eb0  24 74 65 6d 70 25 2b 22  2c 22 0d 1a 2c 2a 20 e7  |$temp%+","..,* .|
00004ec0  20 a9 28 24 74 65 6d 70  25 29 3e 6c 61 72 67 65  | .($temp%)>large|
00004ed0  73 74 20 6c 61 72 67 65  73 74 3d a9 28 24 74 65  |st largest=.($te|
00004ee0  6d 70 25 29 0d 1a 36 05  ed 0d 1a 40 19 6d 65 6e  |mp%)..6....@.men|
00004ef0  24 3d c0 6d 65 6e 24 2c  a9 28 6d 65 6e 24 29 2d  |$=.men$,.(men$)-|
00004f00  31 29 0d 1a 4a 1f 63 75  72 73 70 72 24 3d c0 6d  |1)..J.curspr$=.m|
00004f10  65 6e 24 2c a7 6d 65 6e  24 2c 22 2c 22 29 2d 31  |en$,.men$,",")-1|
00004f20  29 0d 1a 54 22 f2 6f 70  65 6e 77 69 6e 28 64 65  |)..T".openwin(de|
00004f30  74 61 69 6c 73 25 29 3a  f2 64 72 61 77 73 70 72  |tails%):.drawspr|
00004f40  69 74 65 0d 1a 5e 06 20  e1 0d 1a 68 16 dd f2 6f  |ite..^. ...h...o|
00004f50  70 65 6e 77 69 6e 28 68  61 6e 64 6c 65 25 29 0d  |penwin(handle%).|
00004f60  1a 72 12 21 62 6c 6f 63  6b 3d 68 61 6e 64 6c 65  |.r.!block=handle|
00004f70  25 0d 1a 7c 22 c8 99 22  57 69 6d 70 5f 47 65 74  |%..|".."Wimp_Get|
00004f80  57 69 6e 64 6f 77 53 74  61 74 65 22 2c 2c 62 6c  |WindowState",,bl|
00004f90  6f 63 6b 0d 1a 86 1b 6f  70 65 6e 3d 62 6c 6f 63  |ock....open=bloc|
00004fa0  6b 21 33 32 20 80 20 28  31 3c 3c 31 36 29 0d 1a  |k!32 . (1<<16)..|
00004fb0  90 2d e7 20 62 6c 6f 63  6b 21 32 38 3c 3e 2d 31  |.-. block!28<>-1|
00004fc0  20 84 20 6f 70 65 6e 3d  30 20 84 20 68 61 6e 64  | . open=0 . hand|
00004fd0  6c 65 25 3d 63 61 72 64  25 20 8c 0d 1a 9a 0f 62  |le%=card% .....b|
00004fe0  6c 6f 63 6b 21 32 38 3d  2d 31 0d 1a a4 1e c8 99  |lock!28=-1......|
00004ff0  22 57 69 6d 70 5f 4f 70  65 6e 57 69 6e 64 6f 77  |"Wimp_OpenWindow|
00005000  22 2c 2c 62 6c 6f 63 6b  0d 1a ae 05 cd 0d 1a b8  |",,block........|
00005010  05 e1 0d 1a c2 0d dd f2  66 6d 65 6e 75 63 72 0d  |........fmenucr.|
00005020  1a cc 14 e7 20 76 65 72  73 69 6f 6e 25 3e 33 30  |.... version%>30|
00005030  30 20 8c 0d 1a d6 0c 66  66 6c 61 67 25 3d 30 0d  |0 .....fflag%=0.|
00005040  1a e0 11 66 66 6c 61 67  25 2b 3d 31 3c 3c 31 39  |...fflag%+=1<<19|
00005050  0d 1a ea 11 66 66 6c 61  67 25 2b 3d 31 3c 3c 32  |....fflag%+=1<<2|
00005060  30 0d 1a f4 31 c8 99 22  46 6f 6e 74 5f 4c 69 73  |0...1.."Font_Lis|
00005070  74 46 6f 6e 74 73 22 2c  2c 30 2c 66 66 6c 61 67  |tFonts",,0,fflag|
00005080  25 2c 2c 30 20 b8 20 72  2c 73 2c 74 2c 41 2c 75  |%,,0 . r,s,t,A,u|
00005090  2c 42 0d 1a fe 16 de 20  66 6d 65 6e 75 25 20 41  |,B..... fmenu% A|
000050a0  2c 66 62 75 66 25 20 42  0d 1b 08 31 c8 99 22 46  |,fbuf% B...1.."F|
000050b0  6f 6e 74 5f 4c 69 73 74  46 6f 6e 74 73 22 2c 2c  |ont_ListFonts",,|
000050c0  66 6d 65 6e 75 25 2c 66  66 6c 61 67 25 2c 41 2c  |fmenu%,fflag%,A,|
000050d0  66 62 75 66 25 2c 42 2c  31 0d 1b 12 05 cc 0d 1b  |fbuf%,B,1.......|
000050e0  1c 0f f2 66 6d 65 6e 75  63 72 52 4f 32 0d 1b 26  |...fmenucrRO2..&|
000050f0  05 cd 0d 1b 30 05 e1 0d  1b 3a 10 dd f2 66 6d 65  |....0....:...fme|
00005100  6e 75 63 72 52 4f 32 0d  1b 44 0a 4e 55 4c 4c 3d  |nucrRO2..D.NULL=|
00005110  30 0d 1b 4e 0e de 20 66  5f 70 25 20 39 30 30 0d  |0..N.. f_p% 900.|
00005120  1b 58 0e 21 66 5f 70 25  3d 4e 55 4c 4c 0d 1b 62  |.X.!f_p%=NULL..b|
00005130  08 63 25 3d 30 0d 1b 6c  05 f5 0d 1b 76 29 20 c8  |.c%=0..l....v) .|
00005140  99 20 22 46 6f 6e 74 5f  4c 69 73 74 46 6f 6e 74  |. "Font_ListFont|
00005150  73 22 2c 2c 71 25 2c 63  25 2c 2d 31 20 b8 20 2c  |s",,q%,c%,-1 . ,|
00005160  2c 63 25 0d 1b 80 22 20  e7 20 63 25 3c 3e 2d 31  |,c%..." . c%<>-1|
00005170  20 8c 20 f2 46 61 6d 69  6c 79 28 a4 49 6e 66 6f  | . .Family(.Info|
00005180  28 71 25 29 29 0d 1b 8a  0b fd 20 63 25 3d 2d 31  |(q%))..... c%=-1|
00005190  0d 1b 94 04 0d 1b 9e 1a  de 20 66 6d 65 6e 75 25  |......... fmenu%|
000051a0  20 32 38 2b 32 34 2a 6e  5f 66 6f 6e 74 25 0d 1b  | 28+24*n_font%..|
000051b0  a8 41 24 66 6d 65 6e 75  25 3d 22 46 6f 6e 74 73  |.A$fmenu%="Fonts|
000051c0  20 6c 69 73 74 22 3a 66  6d 65 6e 75 25 21 31 32  | list":fmenu%!12|
000051d0  3d 26 30 32 30 37 3a 66  6d 65 6e 75 25 21 32 30  |=&0207:fmenu%!20|
000051e0  3d 34 30 3a 66 6d 65 6e  75 25 21 32 34 3d 30 0d  |=40:fmenu%!24=0.|
000051f0  1b b2 46 66 6d 65 6e 75  25 21 32 38 3d 31 3a 66  |..Ffmenu%!28=1:f|
00005200  6d 65 6e 75 25 21 33 32  3d 2d 31 3a 66 6d 65 6e  |menu%!32=-1:fmen|
00005210  75 25 21 33 36 3d 26 30  37 30 30 30 30 32 31 3a  |u%!36=&07000021:|
00005220  24 28 66 6d 65 6e 75 25  2b 34 30 29 3d 22 53 79  |$(fmenu%+40)="Sy|
00005230  73 74 65 6d 22 0d 1b bc  04 0d 1b c6 26 77 69 64  |stem".......&wid|
00005240  74 68 25 3d 38 3a 70 25  3d 66 6d 65 6e 75 25 2b  |th%=8:p%=fmenu%+|
00005250  32 38 3a 72 25 3d 66 5f  70 25 3a 6e 25 3d 32 0d  |28:r%=f_p%:n%=2.|
00005260  1b d0 12 c8 95 20 6e 25  3c 3d 6e 5f 66 6f 6e 74  |..... n%<=n_font|
00005270  25 0d 1b da 0b 20 70 25  2b 3d 32 34 0d 1b e4 15  |%.... p%+=24....|
00005280  20 66 24 3d a4 49 6e 66  6f 28 21 72 25 2b 31 32  | f$=.Info(!r%+12|
00005290  29 0d 1b ee 20 20 77 69  64 74 68 25 3d a4 4d 61  |)...  width%=.Ma|
000052a0  78 28 77 69 64 74 68 25  2c a9 28 66 24 29 2b 31  |x(width%,.(f$)+1|
000052b0  29 0d 1b f8 19 20 21 70  25 3d 30 3a 70 25 21 38  |).... !p%=0:p%!8|
000052c0  3d 26 30 37 30 30 30 31  32 31 0d 1c 02 11 20 70  |=&07000121.... p|
000052d0  25 21 31 32 3d 21 72 25  2b 31 32 0d 1c 0c 19 20  |%!12=!r%+12.... |
000052e0  70 25 21 31 36 3d 2d 31  3a 70 25 21 32 30 3d a9  |p%!16=-1:p%!20=.|
000052f0  28 66 24 29 0d 1c 16 0d  20 76 25 3d 21 72 25 2b  |(f$).... v%=!r%+|
00005300  34 0d 1c 20 2b 20 e7 20  28 21 28 21 72 25 2b 38  |4.. + . (!(!r%+8|
00005310  29 20 3d 20 31 29 20 80  20 a4 49 6e 66 6f 28 21  |) = 1) . .Info(!|
00005320  76 25 2b 34 29 20 3d 20  22 22 20 8c 0d 1c 2a 0f  |v%+4) = "" ...*.|
00005330  20 20 70 25 21 34 20 3d  20 2d 31 0d 1c 34 06 20  |  p%!4 = -1..4. |
00005340  cc 0d 1c 3e 1b 20 20 de  20 70 25 21 34 20 32 38  |...>.  . p%!4 28|
00005350  2b 32 34 2a 21 28 21 72  25 2b 38 29 0d 1c 48 0d  |+24*!(!r%+8)..H.|
00005360  20 20 74 25 3d 70 25 21  34 0d 1c 52 29 20 20 24  |  t%=p%!4..R)  $|
00005370  74 25 3d 66 24 3a 74 25  21 31 32 3d 26 30 32 30  |t%=f$:t%!12=&020|
00005380  37 3a 74 25 21 32 30 3d  34 30 3a 74 25 21 32 34  |7:t%!20=40:t%!24|
00005390  3d 30 0d 1c 5c 0d 20 20  75 25 3d 74 25 2b 34 0d  |=0..\.  u%=t%+4.|
000053a0  1c 66 15 20 20 77 69 64  74 68 32 25 3d a9 28 66  |.f.  width2%=.(f|
000053b0  24 29 2d 32 0d 1c 70 17  20 20 e3 20 73 25 3d 31  |$)-2..p.  . s%=1|
000053c0  20 b8 20 21 28 21 72 25  2b 38 29 0d 1c 7a 0d 20  | . !(!r%+8)..z. |
000053d0  20 20 75 25 2b 3d 32 34  0d 1c 84 16 20 20 20 66  |  u%+=24....   f|
000053e0  24 3d a4 49 6e 66 6f 28  21 76 25 2b 34 29 0d 1c  |$=.Info(!v%+4)..|
000053f0  8e 24 20 20 20 77 69 64  74 68 32 25 3d a4 4d 61  |.$   width2%=.Ma|
00005400  78 28 77 69 64 74 68 32  25 2c a9 28 66 24 29 2b  |x(width2%,.(f$)+|
00005410  31 29 0d 1c 98 23 20 20  20 21 75 25 3d 30 3a 75  |1)...#   !u%=0:u|
00005420  25 21 34 3d 2d 31 3a 75  25 21 38 3d 26 30 37 30  |%!4=-1:u%!8=&070|
00005430  30 30 31 32 31 0d 1c a2  12 20 20 20 75 25 21 31  |00121....   u%!1|
00005440  32 3d 21 76 25 2b 34 0d  1c ac 1b 20 20 20 75 25  |2=!v%+4....   u%|
00005450  21 31 36 3d 2d 31 3a 75  25 21 32 30 3d a9 28 66  |!16=-1:u%!20=.(f|
00005460  24 29 0d 1c b6 0d 20 20  20 76 25 3d 21 76 25 0d  |$)....   v%=!v%.|
00005470  1c c0 07 20 20 ed 0d 1c  ca 25 20 20 21 75 25 3d  |...  ....%  !u%=|
00005480  20 21 75 25 20 84 20 26  38 30 3a 74 25 21 31 36  | !u% . &80:t%!16|
00005490  3d 31 36 2a 77 69 64 74  68 32 25 0d 1c d4 06 20  |=16*width2%.... |
000054a0  cd 0d 1c de 0b 20 72 25  3d 21 72 25 0d 1c e8 0a  |..... r%=!r%....|
000054b0  20 6e 25 2b 3d 31 0d 1c  f2 05 ce 0d 1c fc 26 21  | n%+=1........&!|
000054c0  70 25 3d 20 21 70 25 20  84 20 26 38 30 3a 66 6d  |p%= !p% . &80:fm|
000054d0  65 6e 75 25 21 31 36 3d  31 36 2a 77 69 64 74 68  |enu%!16=16*width|
000054e0  25 0d 1d 06 05 e1 0d 1d  10 14 dd 20 f2 46 61 6d  |%.......... .Fam|
000054f0  69 6c 79 28 66 6f 6e 74  24 29 0d 1d 1a 22 ea 20  |ily(font$)...". |
00005500  66 61 6d 69 6c 79 24 2c  73 74 79 6c 65 24 2c 70  |family$,style$,p|
00005510  25 2c 66 6c 61 67 25 2c  70 6f 73 25 0d 1d 24 04  |%,flag%,pos%..$.|
00005520  0d 1d 2e 14 70 6f 73 25  3d a7 66 6f 6e 74 24 2c  |....pos%=.font$,|
00005530  22 2e 22 29 0d 1d 38 1a  66 61 6d 69 6c 79 24 3d  |".")..8.family$=|
00005540  c0 66 6f 6e 74 24 2c 70  6f 73 25 2d 31 29 0d 1d  |.font$,pos%-1)..|
00005550  42 10 e7 20 70 6f 73 25  20 3d 20 30 20 8c 0d 1d  |B.. pos% = 0 ...|
00005560  4c 0e 20 73 74 79 6c 65  24 3d 22 22 0d 1d 56 05  |L. style$=""..V.|
00005570  cc 0d 1d 60 1a 20 73 74  79 6c 65 24 3d c1 66 6f  |...`. style$=.fo|
00005580  6e 74 24 2c 70 6f 73 25  2b 31 29 0d 1d 6a 05 cd  |nt$,pos%+1)..j..|
00005590  0d 1d 74 13 70 25 3d 66  5f 70 25 3a 66 6c 61 67  |..t.p%=f_p%:flag|
000055a0  25 3d a3 0d 1d 7e 1e c8  95 20 28 21 70 25 20 3c  |%=...~... (!p% <|
000055b0  3e 20 4e 55 4c 4c 20 80  20 66 6c 61 67 25 3d a3  |> NULL . flag%=.|
000055c0  29 0d 1d 88 29 20 e7 20  66 61 6d 69 6c 79 24 20  |)...) . family$ |
000055d0  3d 20 a4 49 6e 66 6f 28  21 70 25 2b 31 32 29 20  |= .Info(!p%+12) |
000055e0  8c 20 66 6c 61 67 25 3d  20 b9 0d 1d 92 0c 20 70  |. flag%= ..... p|
000055f0  25 20 3d 21 70 25 0d 1d  9c 05 ce 0d 1d a6 0f e7  |% =!p%..........|
00005600  20 66 6c 61 67 25 3d a3  20 8c 0d 1d b0 19 20 de  | flag%=. ..... .|
00005610  20 70 25 21 30 20 a9 28  66 61 6d 69 6c 79 24 29  | p%!0 .(family$)|
00005620  2b 31 33 0d 1d ba 0b 20  70 25 3d 21 70 25 0d 1d  |+13.... p%=!p%..|
00005630  c4 0d 20 21 70 25 3d 4e  55 4c 4c 0d 1d ce 0b 20  |.. !p%=NULL.... |
00005640  70 25 21 38 3d 31 0d 1d  d8 15 20 24 28 70 25 2b  |p%!8=1.... $(p%+|
00005650  31 32 29 3d 66 61 6d 69  6c 79 24 0d 1d e2 17 20  |12)=family$.... |
00005660  de 20 70 25 21 34 20 a9  28 73 74 79 6c 65 24 29  |. p%!4 .(style$)|
00005670  2b 35 0d 1d ec 0c 20 70  25 3d 70 25 21 34 0d 1d  |+5.... p%=p%!4..|
00005680  f6 0d 20 21 70 25 3d 4e  55 4c 4c 0d 1e 00 13 20  |.. !p%=NULL.... |
00005690  24 28 70 25 2b 34 29 3d  73 74 79 6c 65 24 0d 1e  |$(p%+4)=style$..|
000056a0  0a 0f 20 6e 5f 66 6f 6e  74 25 2b 3d 31 0d 1e 14  |.. n_font%+=1...|
000056b0  05 cc 0d 1e 1e 10 20 70  25 21 38 3d 70 25 21 38  |...... p%!8=p%!8|
000056c0  2b 31 0d 1e 28 0c 20 70  25 3d 70 25 2b 34 0d 1e  |+1..(. p%=p%+4..|
000056d0  32 15 20 c8 95 20 28 21  70 25 20 3c 3e 20 4e 55  |2. .. (!p% <> NU|
000056e0  4c 4c 29 0d 1e 3c 0c 20  20 70 25 3d 21 70 25 0d  |LL)..<.  p%=!p%.|
000056f0  1e 46 06 20 ce 0d 1e 50  17 20 de 20 70 25 21 30  |.F. ...P. . p%!0|
00005700  20 a9 28 73 74 79 6c 65  24 29 2b 35 0d 1e 5a 0b  | .(style$)+5..Z.|
00005710  20 70 25 3d 21 70 25 0d  1e 64 0d 20 21 70 25 3d  | p%=!p%..d. !p%=|
00005720  4e 55 4c 4c 0d 1e 6e 13  20 24 28 70 25 2b 34 29  |NULL..n. $(p%+4)|
00005730  3d 73 74 79 6c 65 24 0d  1e 78 05 cd 0d 1e 82 05  |=style$..x......|
00005740  e1 0d 1e 8c 10 dd a4 4d  61 78 28 61 25 2c 62 25  |.......Max(a%,b%|
00005750  29 0d 1e 96 17 e7 20 61  25 3e 62 25 20 8c 20 3d  |)..... a%>b% . =|
00005760  61 25 20 8b 20 3d 62 25  0d 1e a0 0e dd a4 49 6e  |a% . =b%......In|
00005770  66 6f 28 70 25 29 0d 1e  aa 08 ea 20 61 24 0d 1e  |fo(p%)..... a$..|
00005780  b4 09 61 24 3d 22 22 0d  1e be 19 c8 95 20 28 3f  |..a$=""...... (?|
00005790  70 25 3c 3e 30 20 80 20  3f 70 25 3c 3e 31 33 29  |p%<>0 . ?p%<>13)|
000057a0  0d 1e c8 0f 20 61 24 2b  3d bd 28 3f 70 25 29 0d  |.... a$+=.(?p%).|
000057b0  1e d2 0a 20 70 25 2b 3d  31 0d 1e dc 05 ce 0d 1e  |... p%+=1.......|
000057c0  e6 07 3d 61 24 0d 1e f0  14 dd f2 72 65 64 72 61  |..=a$......redra|
000057d0  77 28 68 61 6e 64 6c 65  29 0d 1e fa 13 20 62 6c  |w(handle).... bl|
000057e0  6f 63 6b 21 30 3d 68 61  6e 64 6c 65 0d 1f 04 0a  |ock!0=handle....|
000057f0  ea 6d 6f 72 65 25 0d 1f  0e 29 c8 99 20 22 57 69  |.more%...).. "Wi|
00005800  6d 70 5f 52 65 64 72 61  77 57 69 6e 64 6f 77 22  |mp_RedrawWindow"|
00005810  2c 2c 62 6c 6f 63 6b 20  b8 20 6d 6f 72 65 25 0d  |,,block . more%.|
00005820  1f 18 0c c8 95 20 6d 6f  72 65 25 0d 1f 22 10 20  |..... more%..". |
00005830  c8 8e 20 68 61 6e 64 6c  65 20 ca 0d 1f 2c 0c 20  |.. handle ...,. |
00005840  c9 20 63 61 72 64 25 0d  1f 36 18 20 f2 61 70 70  |. card%..6. .app|
00005850  6c 69 63 61 74 69 6f 6e  5f 72 65 64 72 61 77 0d  |lication_redraw.|
00005860  1f 40 0e 20 c9 20 63 6f  6c 6f 75 72 25 0d 1f 4a  |.@. . colour%..J|
00005870  19 20 f2 61 70 70 6c 69  63 61 74 69 6f 6e 5f 72  |. .application_r|
00005880  65 64 72 61 77 32 0d 1f  54 22 20 c8 99 20 22 57  |edraw2..T" .. "W|
00005890  69 6d 70 5f 42 6f 72 64  65 72 57 69 6e 64 6f 77  |imp_BorderWindow|
000058a0  22 2c 2c 62 6c 6f 63 6b  0d 1f 5e 0f 20 c9 20 64  |",,block..^. . d|
000058b0  65 74 61 69 6c 73 25 0d  1f 68 0d 20 f2 61 70 70  |etails%..h. .app|
000058c0  5f 72 65 33 0d 1f 72 22  20 c8 99 20 22 57 69 6d  |_re3..r" .. "Wim|
000058d0  70 5f 42 6f 72 64 65 72  57 69 6e 64 6f 77 22 2c  |p_BorderWindow",|
000058e0  2c 62 6c 6f 63 6b 0d 1f  7c 06 20 7f 0d 1f 86 22  |,block..|. ...."|
000058f0  20 c8 99 20 22 57 69 6d  70 5f 42 6f 72 64 65 72  | .. "Wimp_Border|
00005900  57 69 6e 64 6f 77 22 2c  2c 62 6c 6f 63 6b 0d 1f  |Window",,block..|
00005910  90 06 20 cb 0d 1f 9a 2b  20 20 c8 99 20 22 57 69  |.. ....+  .. "Wi|
00005920  6d 70 5f 47 65 74 52 65  63 74 61 6e 67 6c 65 22  |mp_GetRectangle"|
00005930  2c 2c 62 6c 6f 63 6b 20  b8 20 6d 6f 72 65 25 0d  |,,block . more%.|
00005940  1f a4 05 ce 0d 1f ae 25  e7 20 63 6c 6f 73 65 3d  |.......%. close=|
00005950  31 20 8c 20 f2 63 6c 6f  73 65 28 63 61 72 64 25  |1 . .close(card%|
00005960  29 3a 63 6c 6f 73 65 3d  30 0d 1f b8 25 e7 20 6e  |):close=0...%. n|
00005970  6f 6e 6f 3d 31 20 8c 20  f2 69 6e 66 6f 28 64 65  |ono=1 . .info(de|
00005980  74 61 69 6c 73 25 2c 6e  69 2c c3 6e 73 29 0d 1f  |tails%,ni,.ns)..|
00005990  c2 05 e1 0d 1f cc 18 dd  f2 61 70 70 6c 69 63 61  |.........applica|
000059a0  74 69 6f 6e 5f 72 65 64  72 61 77 0d 1f d6 10 21  |tion_redraw....!|
000059b0  62 6c 6f 63 6b 3d 63 61  72 64 25 0d 1f e0 21 c8  |block=card%...!.|
000059c0  99 22 57 69 6d 70 5f 47  65 74 57 69 6e 64 6f 77  |."Wimp_GetWindow|
000059d0  49 6e 66 6f 22 2c 2c 62  6c 6f 63 6b 0d 1f ea 1b  |Info",,block....|
000059e0  77 6f 72 6b 78 25 3d 62  6c 6f 63 6b 21 34 2d 62  |workx%=block!4-b|
000059f0  6c 6f 63 6b 21 32 30 0d  1f f4 1c 77 6f 72 6b 79  |lock!20....worky|
00005a00  25 3d 62 6c 6f 63 6b 21  31 36 2d 62 6c 6f 63 6b  |%=block!16-block|
00005a10  21 32 34 0d 1f fe 1c f2  64 72 61 77 63 61 72 64  |!24.....drawcard|
00005a20  28 77 6f 72 6b 78 25 2c  77 6f 72 6b 79 25 29 0d  |(workx%,worky%).|
00005a30  20 08 1e f2 63 61 72 64  73 70 72 69 74 65 28 77  | ...cardsprite(w|
00005a40  6f 72 6b 78 25 2c 77 6f  72 6b 79 25 29 0d 20 12  |orkx%,worky%). .|
00005a50  05 e1 0d 20 1c 1b dd f2  63 61 72 64 73 70 72 69  |... ....cardspri|
00005a60  74 65 28 63 78 63 6f 2c  63 79 63 6f 29 0d 20 26  |te(cxco,cyco). &|
00005a70  13 20 e7 20 73 66 69 6c  65 24 3c 3e 22 22 20 8c  |. . sfile$<>"" .|
00005a80  0d 20 30 34 c8 99 20 26  32 45 2c 32 35 36 2b 34  |. 04.. &2E,256+4|
00005a90  30 2c 73 70 72 25 2c 63  75 72 73 70 72 24 20 b8  |0,spr%,curspr$ .|
00005aa0  20 41 2c 42 2c 43 2c 77  25 2c 68 25 2c 44 2c 6d  | A,B,C,w%,h%,D,m|
00005ab0  6f 64 65 25 0d 20 3a 2e  c8 99 22 4f 53 5f 52 65  |ode%. :..."OS_Re|
00005ac0  61 64 4d 6f 64 65 56 61  72 69 61 62 6c 65 22 2c  |adModeVariable",|
00005ad0  6d 6f 64 65 25 2c 33 20  b8 63 2c 63 6c 2c 63 6f  |mode%,3 .c,cl,co|
00005ae0  6c 73 0d 20 44 2c c8 99  22 4f 53 5f 52 65 61 64  |ls. D,.."OS_Read|
00005af0  4d 6f 64 65 56 61 72 69  61 62 6c 65 22 2c 6d 6f  |ModeVariable",mo|
00005b00  64 65 25 2c 34 20 b8 2c  2c 78 65 69 67 25 0d 20  |de%,4 .,,xeig%. |
00005b10  4e 2c c8 99 22 4f 53 5f  52 65 61 64 4d 6f 64 65  |N,.."OS_ReadMode|
00005b20  56 61 72 69 61 62 6c 65  22 2c 6d 6f 64 65 25 2c  |Variable",mode%,|
00005b30  35 20 b8 2c 2c 79 65 69  67 25 0d 20 58 11 77 69  |5 .,,yeig%. X.wi|
00005b40  25 3d 77 25 3c 3c 78 65  69 67 25 0d 20 62 11 68  |%=w%<<xeig%. b.h|
00005b50  65 25 3d 68 25 3c 3c 79  65 69 67 25 0d 20 6c 13  |e%=h%<<yeig%. l.|
00005b60  e7 20 21 28 34 2b 73 70  72 25 29 3e 30 20 8c 0d  |. !(4+spr%)>0 ..|
00005b70  20 76 15 e7 20 21 28 34  38 2b 73 70 72 25 29 3e  | v.. !(48+spr%)>|
00005b80  34 34 20 8c 0d 20 80 11  e3 20 63 6f 6c 25 3d 30  |44 .. ... col%=0|
00005b90  20 b8 20 31 35 0d 20 8a  27 70 61 6c 65 74 74 65  | . 15. .'palette|
00005ba0  25 21 28 63 6f 6c 25 2a  34 29 3d 21 28 36 30 2b  |%!(col%*4)=!(60+|
00005bb0  63 6f 6c 25 2a 38 2b 73  70 72 25 29 0d 20 94 0a  |col%*8+spr%). ..|
00005bc0  ed 20 63 6f 6c 25 0d 20  9e 44 c8 99 20 22 43 6f  |. col%. .D.. "Co|
00005bd0  6c 6f 75 72 54 72 61 6e  73 5f 53 65 6c 65 63 74  |lourTrans_Select|
00005be0  54 61 62 6c 65 22 2c 21  28 35 36 2b 73 70 72 25  |Table",!(56+spr%|
00005bf0  29 2c 70 61 6c 65 74 74  65 25 2c 2d 31 2c 2d 31  |),palette%,-1,-1|
00005c00  2c 73 63 61 6c 62 6c 6f  6b 25 0d 20 a8 05 cc 0d  |,scalblok%. ....|
00005c10  20 b2 43 c8 99 20 22 43  6f 6c 6f 75 72 54 72 61  | .C.. "ColourTra|
00005c20  6e 73 5f 53 65 6c 65 63  74 54 61 62 6c 65 22 2c  |ns_SelectTable",|
00005c30  21 28 35 36 2b 73 70 72  25 29 2c 64 65 66 70 61  |!(56+spr%),defpa|
00005c40  6c 25 2c 2d 31 2c 2d 31  2c 73 63 61 6c 62 6c 6f  |l%,-1,-1,scalblo|
00005c50  6b 25 0d 20 bc 05 cd 0d  20 c6 05 cd 0d 20 d0 11  |k%. .... .... ..|
00005c60  78 6f 66 66 3d 30 3a 79  6f 66 66 3d 30 0d 20 da  |xoff=0:yoff=0. .|
00005c70  1f e7 20 68 25 3e 77 25  20 73 68 65 61 72 3d 37  |.. h%>w% shear=7|
00005c80  32 20 8b 20 73 68 65 61  72 3d 38 32 0d 20 e4 25  |2 . shear=82. .%|
00005c90  c8 99 22 4f 53 5f 52 65  61 64 4d 6f 64 65 56 61  |.."OS_ReadModeVa|
00005ca0  72 69 61 62 6c 65 22 2c  eb 2c 31 31 20 b8 2c 2c  |riable",.,11 .,,|
00005cb0  43 0d 20 ee 25 c8 99 22  4f 53 5f 52 65 61 64 4d  |C. .%.."OS_ReadM|
00005cc0  6f 64 65 56 61 72 69 61  62 6c 65 22 2c eb 2c 31  |odeVariable",.,1|
00005cd0  32 20 b8 2c 2c 42 0d 20  f8 0d 43 2b 3d 31 3a 42  |2 .,,B. ..C+=1:B|
00005ce0  2b 3d 31 0d 21 02 26 e7  20 42 2f 43 3d 2e 37 35  |+=1.!.&. B/C=.75|
00005cf0  20 80 20 a4 76 67 61 28  6d 6f 64 65 25 29 20 8c  | . .vga(mode%) .|
00005d00  20 68 73 63 61 6c 65 3d  31 0d 21 0c 2f e7 20 42  | hscale=1.!./. B|
00005d10  2f 43 3c 3e 2e 38 20 80  20 42 2f 43 3c 3e 2e 37  |/C<>.8 . B/C<>.7|
00005d20  35 20 80 20 a4 76 67 61  28 6d 6f 64 65 25 29 20  |5 . .vga(mode%) |
00005d30  68 73 63 61 6c 65 3d 32  0d 21 16 2a e7 20 42 2f  |hscale=2.!.*. B/|
00005d40  43 3d 2e 38 20 84 20 42  2f 43 3d 2e 37 35 20 8c  |C=.8 . B/C=.75 .|
00005d50  20 6d 6f 64 73 63 3d 31  20 8b 20 6d 6f 64 73 63  | modsc=1 . modsc|
00005d60  3d 32 0d 21 20 24 53 68  65 61 72 3d a4 63 68 65  |=2.! $Shear=.che|
00005d70  63 6b 66 6c 61 67 28 64  65 74 61 69 6c 73 25 2c  |ckflag(details%,|
00005d80  32 39 2c 32 31 29 0d 21  2a 0e c8 8e 20 53 68 65  |29,21).!*... She|
00005d90  61 72 20 ca 0d 21 34 07  c9 20 a3 0d 21 3e 27 e7  |ar ..!4.. ..!>'.|
00005da0  20 42 2f 43 3d 2e 38 20  80 20 ac 20 a4 76 67 61  | B/C=.8 . . .vga|
00005db0  28 6d 6f 64 65 25 29 20  8c 20 68 73 63 61 6c 65  |(mode%) . hscale|
00005dc0  3d 31 0d 21 48 28 e7 20  42 2f 43 3d 2e 37 35 20  |=1.!H(. B/C=.75 |
00005dd0  80 20 ac 20 a4 76 67 61  28 6d 6f 64 65 25 29 20  |. . .vga(mode%) |
00005de0  8c 20 68 73 63 61 6c 65  3d 31 0d 21 52 31 e7 20  |. hscale=1.!R1. |
00005df0  42 2f 43 3c 3e 2e 38 20  80 20 42 2f 43 3c 3e 2e  |B/C<>.8 . B/C<>.|
00005e00  37 35 20 80 20 ac 20 a4  76 67 61 28 6d 6f 64 65  |75 . . .vga(mode|
00005e10  25 29 20 68 73 63 61 6c  65 3d 32 0d 21 5c 40 e7  |%) hscale=2.!\@.|
00005e20  20 77 25 3e 38 32 20 80  20 68 25 3e 37 32 20 80  | w%>82 . h%>72 .|
00005e30  20 68 25 3c 77 25 20 8c  20 53 43 77 3d 77 25 2f  | h%<w% . SCw=w%/|
00005e40  73 68 65 61 72 3a 53 43  68 3d 77 25 2f 28 73 68  |shear:SCh=w%/(sh|
00005e50  65 61 72 2f 68 73 63 61  6c 65 29 0d 21 66 40 e7  |ear/hscale).!f@.|
00005e60  20 77 25 3e 38 32 20 80  20 68 25 3e 37 32 20 80  | w%>82 . h%>72 .|
00005e70  20 68 25 3e 77 25 20 8c  20 53 43 77 3d 68 25 2f  | h%>w% . SCw=h%/|
00005e80  73 68 65 61 72 3a 53 43  68 3d 68 25 2f 28 73 68  |shear:SCh=h%/(sh|
00005e90  65 61 72 2f 68 73 63 61  6c 65 29 0d 21 70 28 e7  |ear/hscale).!p(.|
00005ea0  20 77 25 3e 38 32 20 80  20 68 25 3c 37 32 20 8c  | w%>82 . h%<72 .|
00005eb0  20 53 43 77 3d 77 25 2f  73 68 65 61 72 3a 53 43  | SCw=w%/shear:SC|
00005ec0  68 3d 31 0d 21 7a 0d e7  20 66 6f 72 63 65 20 8c  |h=1.!z.. force .|
00005ed0  0d 21 84 66 e7 20 77 25  3c 38 32 20 80 20 68 25  |.!.f. w%<82 . h%|
00005ee0  3c 37 32 20 80 20 28 68  25 2a 32 29 3c 77 25 20  |<72 . (h%*2)<w% |
00005ef0  8c 20 53 43 77 3d 77 25  2f 73 68 65 61 72 3a 53  |. SCw=w%/shear:S|
00005f00  43 68 3d 77 25 2f 28 73  68 65 61 72 2f 68 73 63  |Ch=w%/(shear/hsc|
00005f10  61 6c 65 29 3a 53 43 77  3d 53 43 77 2a 31 2e 31  |ale):SCw=SCw*1.1|
00005f20  30 3a 53 43 68 3d 53 43  68 2a 31 2e 31 30 3a f1  |0:SCh=SCh*1.10:.|
00005f30  20 8a 30 2c 30 29 0d 21  8e 5c e7 20 77 25 3c 38  | .0,0).!.\. w%<8|
00005f40  32 20 80 20 68 25 3c 37  32 20 80 20 28 68 25 2a  |2 . h%<72 . (h%*|
00005f50  32 29 3e 77 25 20 8c 20  53 43 77 3d 68 25 2f 73  |2)>w% . SCw=h%/s|
00005f60  68 65 61 72 3a 53 43 68  3d 68 25 2f 28 73 68 65  |hear:SCh=h%/(she|
00005f70  61 72 2f 68 73 63 61 6c  65 29 3a 53 43 77 3d 53  |ar/hscale):SCw=S|
00005f80  43 77 2a 31 2e 31 3a 53  43 68 3d 53 43 68 2a 31  |Cw*1.1:SCh=SCh*1|
00005f90  2e 31 0d 21 98 66 e7 20  77 25 3c 38 32 20 80 20  |.1.!.f. w%<82 . |
00005fa0  68 25 3c 37 32 20 80 20  28 68 25 2a 32 29 3d 77  |h%<72 . (h%*2)=w|
00005fb0  25 20 8c 20 53 43 77 3d  77 25 2f 73 68 65 61 72  |% . SCw=w%/shear|
00005fc0  3a 53 43 68 3d 68 25 2f  28 73 68 65 61 72 2f 32  |:SCh=h%/(shear/2|
00005fd0  29 3a 53 43 77 3d 53 43  77 2a 31 2e 31 3a 53 43  |):SCw=SCw*1.1:SC|
00005fe0  68 3d 53 43 68 2a 31 2e  31 3a f1 20 8a 30 2c 30  |h=SCh*1.1:. .0,0|
00005ff0  29 53 43 68 2c 53 43 77  0d 21 a2 05 cc 0d 21 ac  |)SCh,SCw.!....!.|
00006000  25 e7 20 77 25 3c 38 32  20 80 20 68 25 3c 37 32  |%. w%<82 . h%<72|
00006010  20 8c 20 53 43 77 3d 31  3a 53 43 68 3d 6d 6f 64  | . SCw=1:SCh=mod|
00006020  73 63 0d 21 b6 05 cd 0d  21 c0 10 c8 8e 20 63 65  |sc.!....!.... ce|
00006030  6e 74 72 65 64 20 ca 0d  21 ca 09 20 20 c9 20 b9  |ntred ..!..  . .|
00006040  0d 21 d4 2a e7 20 a4 76  67 61 28 6d 6f 64 65 25  |.!.*. .vga(mode%|
00006050  29 20 80 20 ac 20 66 6f  72 63 65 20 8c 20 79 6f  |) . . force . yo|
00006060  66 66 3d 28 37 32 2d 68  25 29 0d 21 de 32 e7 20  |ff=(72-h%).!.2. |
00006070  a4 76 67 61 28 6d 6f 64  65 25 29 20 80 20 66 6f  |.vga(mode%) . fo|
00006080  72 63 65 20 8c 20 79 6f  66 66 3d 28 37 32 2d 28  |rce . yoff=(72-(|
00006090  28 31 2f 53 43 68 29 2a  68 25 29 29 0d 21 e8 34  |(1/SCh)*h%)).!.4|
000060a0  e7 20 ac 20 a4 76 67 61  28 6d 6f 64 65 25 29 20  |. . .vga(mode%) |
000060b0  80 20 66 6f 72 63 65 20  79 6f 66 66 3d 28 37 32  |. force yoff=(72|
000060c0  2d 28 28 31 2f 53 43 68  29 2a 68 25 29 29 2f 32  |-((1/SCh)*h%))/2|
000060d0  0d 21 f2 30 e7 20 ac 20  a4 76 67 61 28 6d 6f 64  |.!.0. . .vga(mod|
000060e0  65 25 29 20 80 20 ac 20  66 6f 72 63 65 20 8c 20  |e%) . . force . |
000060f0  79 6f 66 66 3d 28 37 32  2d 28 32 2a 68 25 29 29  |yoff=(72-(2*h%))|
00006100  0d 21 fc 1a 78 6f 66 66  3d 28 38 32 2d 28 28 31  |.!..xoff=(82-((1|
00006110  2f 53 43 77 29 2a 77 25  29 29 0d 22 06 2a e7 20  |/SCw)*w%)).".*. |
00006120  66 6f 72 63 65 20 80 20  68 25 3c 77 25 20 80 20  |force . h%<w% . |
00006130  a4 76 67 61 28 6d 6f 64  65 25 29 20 8c 20 78 6f  |.vga(mode%) . xo|
00006140  66 66 3d 30 0d 22 10 2a  e7 20 66 6f 72 63 65 20  |ff=0.".*. force |
00006150  80 20 68 25 3e 77 25 20  80 20 a4 76 67 61 28 6d  |. h%>w% . .vga(m|
00006160  6f 64 65 25 29 20 8c 20  79 6f 66 66 3d 30 0d 22  |ode%) . yoff=0."|
00006170  1a 30 e7 20 66 6f 72 63  65 20 80 20 28 68 25 2a  |.0. force . (h%*|
00006180  32 29 3c 77 25 20 80 20  ac 20 a4 76 67 61 28 6d  |2)<w% . . .vga(m|
00006190  6f 64 65 25 29 20 8c 20  78 6f 66 66 3d 30 0d 22  |ode%) . xoff=0."|
000061a0  24 30 e7 20 66 6f 72 63  65 20 80 20 28 68 25 2a  |$0. force . (h%*|
000061b0  32 29 3e 77 25 20 80 20  ac 20 a4 76 67 61 28 6d  |2)>w% . . .vga(m|
000061c0  6f 64 65 25 29 20 8c 20  79 6f 66 66 3d 30 0d 22  |ode%) . yoff=0."|
000061d0  2e 07 20 20 cb 0d 22 38  07 c9 20 b9 0d 22 42 27  |..  .."8.. .."B'|
000061e0  e7 20 42 2f 43 3d 2e 38  20 80 20 ac 20 a4 76 67  |. B/C=.8 . . .vg|
000061f0  61 28 6d 6f 64 65 25 29  20 8c 20 68 73 63 61 6c  |a(mode%) . hscal|
00006200  65 3d 32 0d 22 4c 28 e7  20 42 2f 43 3d 2e 37 35  |e=2."L(. B/C=.75|
00006210  20 80 20 ac 20 a4 76 67  61 28 6d 6f 64 65 25 29  | . . .vga(mode%)|
00006220  20 8c 20 68 73 63 61 6c  65 3d 32 0d 22 56 31 e7  | . hscale=2."V1.|
00006230  20 42 2f 43 3c 3e 2e 38  20 80 20 42 2f 43 3c 3e  | B/C<>.8 . B/C<>|
00006240  2e 37 35 20 80 20 ac 20  a4 76 67 61 28 6d 6f 64  |.75 . . .vga(mod|
00006250  65 25 29 20 68 73 63 61  6c 65 3d 34 0d 22 60 20  |e%) hscale=4."` |
00006260  53 43 77 3d 77 25 2f 38  32 3a 53 43 68 3d 68 25  |SCw=w%/82:SCh=h%|
00006270  2f 28 37 32 2f 68 73 63  61 6c 65 29 0d 22 6a 05  |/(72/hscale)."j.|
00006280  cb 0d 22 74 5b 21 73 63  61 6c 25 3d 77 69 25 3a  |.."t[!scal%=wi%:|
00006290  73 63 61 6c 25 21 34 3d  68 65 25 3a 73 63 61 6c  |scal%!4=he%:scal|
000062a0  25 21 38 3d a8 28 28 77  25 2f 28 28 31 2f 53 43  |%!8=.((w%/((1/SC|
000062b0  77 29 2f 32 29 29 2b 30  2e 35 29 3a 73 63 61 6c  |w)/2))+0.5):scal|
000062c0  25 21 31 32 3d a8 28 28  68 25 2f 28 28 31 2f 53  |%!12=.((h%/((1/S|
000062d0  43 68 29 2f 32 29 29 2b  30 2e 35 29 0d 22 7e 49  |Ch)/2))+0.5)."~I|
000062e0  c8 99 20 34 36 2c 26 31  33 34 2c 73 70 72 25 2c  |.. 46,&134,spr%,|
000062f0  63 75 72 73 70 72 24 2c  63 78 63 6f 2b 33 39 30  |curspr$,cxco+390|
00006300  2b 78 6f 66 66 2c 63 79  63 6f 2d 33 30 30 2b 79  |+xoff,cyco-300+y|
00006310  6f 66 66 2c 38 2c 73 63  61 6c 25 2c 73 63 61 6c  |off,8,scal%,scal|
00006320  62 6c 6f 6b 25 0d 22 88  05 cd 0d 22 92 05 e1 0d  |blok%."...."....|
00006330  22 9c 1e dd a4 77 69 64  74 68 28 74 65 78 74 24  |"....width(text$|
00006340  2c 66 6f 6e 74 24 2c 78  73 2c 79 73 29 0d 22 a6  |,font$,xs,ys).".|
00006350  31 c8 99 20 22 46 6f 6e  74 5f 46 69 6e 64 46 6f  |1.. "Font_FindFo|
00006360  6e 74 22 2c 2c 66 6f 6e  74 24 2c 78 73 2a 31 36  |nt",,font$,xs*16|
00006370  2c 79 73 2a 31 36 20 b8  20 66 6f 6e 74 25 0d 22  |,ys*16 . font%."|
00006380  b0 1b c8 99 20 22 46 6f  6e 74 5f 53 65 74 46 6f  |.... "Font_SetFo|
00006390  6e 74 22 2c 66 6f 6e 74  25 0d 22 ba 44 c8 99 20  |nt",font%.".D.. |
000063a0  22 46 6f 6e 74 5f 53 74  72 69 6e 67 57 69 64 74  |"Font_StringWidt|
000063b0  68 22 2c 2c 74 65 78 74  24 2c 32 32 38 30 30 30  |h",,text$,228000|
000063c0  2c 32 32 38 30 30 30 2c  33 31 2c a9 28 74 65 78  |,228000,31,.(tex|
000063d0  74 24 29 20 b8 20 2c 2c  78 25 2c 79 25 0d 22 c4  |t$) . ,,x%,y%.".|
000063e0  27 c8 99 20 22 46 6f 6e  74 5f 43 6f 6e 76 65 72  |'.. "Font_Conver|
000063f0  74 74 6f 4f 53 22 2c 2c  78 25 2c 79 25 20 b8 20  |ttoOS",,x%,y% . |
00006400  2c 78 2c 79 0d 22 ce 06  3d 78 0d 22 d8 0e dd f2  |,x,y."..=x."....|
00006410  6d 61 6b 65 66 69 6c 65  0d 22 e2 14 c8 99 22 48  |makefile."...."H|
00006420  6f 75 72 67 6c 61 73 73  5f 4f 6e 22 0d 22 ec 07  |ourglass_On"."..|
00006430  ea 20 85 0d 22 f6 75 ee  20 85 20 ea 20 e7 20 9f  |. ..".u. . . . .|
00006440  3d 37 31 36 32 32 3a f2  71 75 65 72 79 28 22 44  |=71622:.query("D|
00006450  69 73 63 20 46 75 6c 6c  22 29 3a 66 75 6c 6c 3d  |isc Full"):full=|
00006460  b9 3a d9 23 63 25 3a ff  28 22 44 65 6c 65 74 65  |.:.#c%:.("Delete|
00006470  20 22 2b 73 61 76 65 24  29 3a f7 20 85 3a e1 3a  | "+save$):. .:.:|
00006480  8b 20 f7 20 85 3a f2 65  72 72 6f 72 28 f6 24 2b  |. . .:.error(.$+|
00006490  22 20 3a 20 61 74 20 6c  69 6e 65 20 22 2b c3 9e  |" : at line "+..|
000064a0  29 3a d9 23 63 25 3a e1  0d 23 00 36 e7 20 a4 63  |):.#c%:..#.6. .c|
000064b0  68 65 63 6b 66 6c 61 67  28 73 61 76 65 25 2c 33  |heckflag(save%,3|
000064c0  2c 32 31 29 20 6e 6f 6f  66 63 61 72 64 73 3d 31  |,21) noofcards=1|
000064d0  20 8b 20 6e 6f 6f 66 63  61 72 64 73 3d 38 0d 23  | . noofcards=8.#|
000064e0  0a 12 62 69 67 25 3d 26  37 46 46 46 46 46 46 46  |..big%=&7FFFFFFF|
000064f0  0d 23 14 12 45 46 3d 30  2e 35 35 32 32 35 36 39  |.#..EF=0.5522569|
00006500  34 34 0d 23 1e 0d 69 25  3d 30 3a 63 25 3d 30 0d  |44.#..i%=0:c%=0.|
00006510  23 28 0e 69 6e 63 68 3d  26 42 34 30 30 0d 23 32  |#(.inch=&B400.#2|
00006520  0d 70 6f 69 6e 74 3d 36  34 30 0d 23 3c 0c 63 6d  |.point=640.#<.cm|
00006530  3d 31 38 31 34 30 0d 23  46 0c 62 6c 61 63 6b 25  |=18140.#F.black%|
00006540  3d 30 0d 23 50 14 77 68  69 74 65 25 3d 26 46 46  |=0.#P.white%=&FF|
00006550  46 46 46 46 30 30 0d 23  5a 0c 6e 6f 6e 65 25 3d  |FFFF00.#Z.none%=|
00006560  2d 31 0d 23 64 39 6e 61  6d 65 24 3d 24 a4 69 6e  |-1.#d9name$=$.in|
00006570  66 6f 28 64 65 74 61 69  6c 73 25 2c 30 29 3a 66  |fo(details%,0):f|
00006580  6f 6e 74 6e 61 6d 65 24  3d 24 a4 69 6e 66 6f 28  |ontname$=$.info(|
00006590  64 65 74 61 69 6c 73 25  2c 33 29 0d 23 6e 40 73  |details%,3).#n@s|
000065a0  69 7a 65 6e 61 6d 65 3d  bb 28 24 a4 69 6e 66 6f  |izename=.($.info|
000065b0  28 64 65 74 61 69 6c 73  25 2c 33 31 29 29 3a 68  |(details%,31)):h|
000065c0  6e 61 6d 65 3d bb 28 24  a4 69 6e 66 6f 28 64 65  |name=.($.info(de|
000065d0  74 61 69 6c 73 25 2c 31  33 29 29 0d 23 78 3b 65  |tails%,13)).#x;e|
000065e0  78 74 72 61 24 3d 24 a4  69 6e 66 6f 28 64 65 74  |xtra$=$.info(det|
000065f0  61 69 6c 73 25 2c 35 29  3a 66 6f 6e 74 65 78 74  |ails%,5):fontext|
00006600  72 61 24 3d 24 a4 69 6e  66 6f 28 64 65 74 61 69  |ra$=$.info(detai|
00006610  6c 73 25 2c 32 29 0d 23  82 42 73 69 7a 65 65 78  |ls%,2).#.Bsizeex|
00006620  74 72 61 3d bb 28 24 a4  69 6e 66 6f 28 64 65 74  |tra=.($.info(det|
00006630  61 69 6c 73 25 2c 33 32  29 29 3a 68 65 78 74 72  |ails%,32)):hextr|
00006640  61 3d bb 28 24 a4 69 6e  66 6f 28 64 65 74 61 69  |a=.($.info(detai|
00006650  6c 73 25 2c 31 34 29 29  0d 23 8c 38 61 64 31 24  |ls%,14)).#.8ad1$|
00006660  3d 24 a4 69 6e 66 6f 28  64 65 74 61 69 6c 73 25  |=$.info(details%|
00006670  2c 36 29 3a 66 6f 6e 74  61 64 31 24 3d 24 a4 69  |,6):fontad1$=$.i|
00006680  6e 66 6f 28 64 65 74 61  69 6c 73 25 2c 31 39 29  |nfo(details%,19)|
00006690  0d 23 96 3e 73 69 7a 65  61 64 31 3d bb 28 24 a4  |.#.>sizead1=.($.|
000066a0  69 6e 66 6f 28 64 65 74  61 69 6c 73 25 2c 33 33  |info(details%,33|
000066b0  29 29 3a 68 61 64 31 3d  bb 28 24 a4 69 6e 66 6f  |)):had1=.($.info|
000066c0  28 64 65 74 61 69 6c 73  25 2c 31 37 29 29 0d 23  |(details%,17)).#|
000066d0  a0 1b 61 64 32 24 3d 24  a4 69 6e 66 6f 28 64 65  |..ad2$=$.info(de|
000066e0  74 61 69 6c 73 25 2c 37  29 0d 23 aa 1c 61 64 33  |tails%,7).#..ad3|
000066f0  24 3d 24 a4 69 6e 66 6f  28 64 65 74 61 69 6c 73  |$=$.info(details|
00006700  25 2c 31 38 29 0d 23 b4  1c 61 64 34 24 3d 24 a4  |%,18).#..ad4$=$.|
00006710  69 6e 66 6f 28 64 65 74  61 69 6c 73 25 2c 31 30  |info(details%,10|
00006720  29 0d 23 be 38 74 65 6c  24 3d 24 a4 69 6e 66 6f  |).#.8tel$=$.info|
00006730  28 64 65 74 61 69 6c 73  25 2c 32 31 29 3a 66 6f  |(details%,21):fo|
00006740  6e 74 74 65 6c 24 3d 24  a4 69 6e 66 6f 28 64 65  |nttel$=$.info(de|
00006750  74 61 69 6c 73 25 2c 34  29 0d 23 c8 3e 73 69 7a  |tails%,4).#.>siz|
00006760  65 74 65 6c 3d bb 28 24  a4 69 6e 66 6f 28 64 65  |etel=.($.info(de|
00006770  74 61 69 6c 73 25 2c 33  34 29 29 3a 68 74 65 6c  |tails%,34)):htel|
00006780  3d bb 28 24 a4 69 6e 66  6f 28 64 65 74 61 69 6c  |=.($.info(detail|
00006790  73 25 2c 31 35 29 29 0d  23 d2 1a f2 64 72 61 77  |s%,15)).#...draw|
000067a0  66 69 6c 65 5f 73 74 61  72 74 28 73 61 76 65 24  |file_start(save$|
000067b0  29 0d 23 dc 0c f2 70 75  74 77 28 30 29 0d 23 e6  |).#...putw(0).#.|
000067c0  11 f2 68 65 61 64 5f 68  65 72 65 28 a3 29 0d 23  |..head_here(.).#|
000067d0  f0 19 f2 70 75 74 73 28  bd 28 31 29 2b 66 6f 6e  |...puts(.(1)+fon|
000067e0  74 6e 61 6d 65 24 29 0d  23 fa 1a f2 70 75 74 73  |tname$).#...puts|
000067f0  28 bd 28 32 29 2b 66 6f  6e 74 65 78 74 72 61 24  |(.(2)+fontextra$|
00006800  29 0d 24 04 18 f2 70 75  74 73 28 bd 28 33 29 2b  |).$...puts(.(3)+|
00006810  66 6f 6e 74 61 64 31 24  29 0d 24 0e 18 f2 70 75  |fontad1$).$...pu|
00006820  74 73 28 bd 28 34 29 2b  66 6f 6e 74 74 65 6c 24  |ts(.(4)+fonttel$|
00006830  29 0d 24 18 0a f2 61 6c  69 67 6e 0d 24 22 0d f2  |).$...align.$"..|
00006840  68 65 61 64 5f 6e 6f 77  0d 24 2c 05 f7 0d 24 36  |head_now.$,...$6|
00006850  20 e7 20 6e 6f 6f 66 63  61 72 64 73 3d 38 20 8c  | . noofcards=8 .|
00006860  20 f2 67 72 6f 75 70 5f  73 74 61 72 74 0d 24 40  | .group_start.$@|
00006870  22 e3 20 63 61 72 64 64  72 61 77 3d 31 20 b8 20  |". carddraw=1 . |
00006880  6e 6f 6f 66 63 61 72 64  73 2a 32 20 88 20 32 0d  |noofcards*2 . 2.|
00006890  24 4a 2f 61 78 3d 63 61  72 64 70 6f 73 28 63 61  |$J/ax=cardpos(ca|
000068a0  72 64 64 72 61 77 29 3a  62 79 3d 63 61 72 64 70  |rddraw):by=cardp|
000068b0  6f 73 28 63 61 72 64 64  72 61 77 2b 31 29 0d 24  |os(carddraw+1).$|
000068c0  54 13 78 70 6f 73 3d 61  78 3a 79 70 6f 73 3d 62  |T.xpos=ax:ypos=b|
000068d0  79 0d 24 5e 10 f2 67 72  6f 75 70 5f 73 74 61 72  |y.$^..group_star|
000068e0  74 0d 24 68 27 f2 70 61  74 68 5f 73 74 61 72 74  |t.$h'.path_start|
000068f0  28 30 2c 30 2c 31 2a 70  6f 69 6e 74 2c 26 30 2c  |(0,0,1*point,&0,|
00006900  68 65 78 63 28 30 29 29  0d 24 72 15 f2 70 61 74  |hexc(0)).$r..pat|
00006910  68 5f 64 72 61 77 28 30  2c 31 35 32 29 0d 24 7c  |h_draw(0,152).$||
00006920  17 f2 70 61 74 68 5f 64  72 61 77 28 32 32 38 2c  |..path_draw(228,|
00006930  31 35 32 29 0d 24 86 15  f2 70 61 74 68 5f 64 72  |152).$...path_dr|
00006940  61 77 28 32 32 38 2c 30  29 0d 24 90 13 f2 70 61  |aw(228,0).$...pa|
00006950  74 68 5f 64 72 61 77 28  30 2c 30 29 0d 24 9a 0f  |th_draw(0,0).$..|
00006960  f2 70 61 74 68 5f 63 6c  6f 73 65 0d 24 a4 0d f2  |.path_close.$...|
00006970  70 61 74 68 5f 65 6e 64  0d 24 ae 34 78 63 6f 3d  |path_end.$.4xco=|
00006980  28 32 2f 35 29 2a a4 77  69 64 74 68 28 6e 61 6d  |(2/5)*.width(nam|
00006990  65 24 2c 66 6f 6e 74 6e  61 6d 65 24 2c 73 69 7a  |e$,fontname$,siz|
000069a0  65 6e 61 6d 65 2c 68 6e  61 6d 65 29 0d 24 b8 7a  |ename,hname).$.z|
000069b0  e7 20 78 2f 28 32 2f 35  29 3d 30 20 80 20 6e 61  |. x/(2/5)=0 . na|
000069c0  6d 65 24 3c 3e 22 22 20  8c 20 f2 6d 65 73 73 28  |me$<>"" . .mess(|
000069d0  22 54 68 65 20 6e 61 6d  65 20 74 65 78 74 20 69  |"The name text i|
000069e0  73 20 74 6f 6f 20 6c 6f  6e 67 20 6f 72 20 74 68  |s too long or th|
000069f0  65 20 66 6f 6e 74 20 69  73 20 74 6f 6f 20 6c 61  |e font is too la|
00006a00  72 67 65 22 29 3a f2 64  72 61 77 66 69 6c 65 5f  |rge"):.drawfile_|
00006a10  65 6e 64 3a ff 22 44 65  6c 65 74 65 20 22 2b 73  |end:."Delete "+s|
00006a20  61 76 65 24 3a e1 0d 24  c2 0f 78 63 6f 3d 32 32  |ave$:..$..xco=22|
00006a30  38 2d 78 63 6f 0d 24 cc  0d 78 63 6f 3d 78 63 6f  |8-xco.$..xco=xco|
00006a40  2f 32 0d 24 d6 10 f2 67  72 6f 75 70 5f 73 74 61  |/2.$...group_sta|
00006a50  72 74 0d 24 e0 43 f2 74  65 78 74 28 78 63 6f 2c  |rt.$.C.text(xco,|
00006a60  31 32 36 2c 6e 61 6d 65  24 2c 73 69 7a 65 6e 61  |126,name$,sizena|
00006a70  6d 65 2a 26 32 38 30 2c  68 6e 61 6d 65 2a 26 32  |me*&280,hname*&2|
00006a80  38 30 2c 31 2c 68 65 78  63 28 31 29 2c 68 65 78  |80,1,hexc(1),hex|
00006a90  63 28 31 29 29 0d 24 ea  26 73 74 61 72 74 3d 78  |c(1)).$.&start=x|
00006aa0  63 6f 2d 32 3a 66 69 6e  69 73 68 3d 78 63 6f 2b  |co-2:finish=xco+|
00006ab0  28 28 32 2f 35 29 2a 78  29 2b 32 0d 24 f4 35 f2  |((2/5)*x)+2.$.5.|
00006ac0  70 61 74 68 5f 73 74 61  72 74 28 73 74 61 72 74  |path_start(start|
00006ad0  2c 31 32 33 2c 31 2e 35  2a 26 32 38 30 2c 68 65  |,123,1.5*&280,he|
00006ae0  78 63 28 31 29 2c 26 46  46 46 46 46 46 46 46 29  |xc(1),&FFFFFFFF)|
00006af0  0d 24 fe 1a f2 70 61 74  68 5f 64 72 61 77 28 66  |.$...path_draw(f|
00006b00  69 6e 69 73 68 2c 31 32  33 29 0d 25 08 0f f2 70  |inish,123).%...p|
00006b10  61 74 68 5f 63 6c 6f 73  65 0d 25 12 0d f2 70 61  |ath_close.%...pa|
00006b20  74 68 5f 65 6e 64 0d 25  1c 0e f2 67 72 6f 75 70  |th_end.%...group|
00006b30  5f 65 6e 64 0d 25 26 10  f2 67 72 6f 75 70 5f 73  |_end.%&..group_s|
00006b40  74 61 72 74 0d 25 30 28  78 3d a4 77 69 64 74 68  |tart.%0(x=.width|
00006b50  28 61 64 31 24 2c 66 6f  6e 74 61 64 31 24 2c 73  |(ad1$,fontad1$,s|
00006b60  69 7a 65 61 64 31 2c 68  61 64 31 29 0d 25 3a 81  |izead1,had1).%:.|
00006b70  e7 20 61 64 31 24 3e 22  22 20 80 20 78 3d 30 20  |. ad1$>"" . x=0 |
00006b80  84 20 78 3e 35 36 30 20  8c 20 f2 6d 65 73 73 28  |. x>560 . .mess(|
00006b90  22 54 68 65 20 31 73 74  20 61 64 64 72 65 73 73  |"The 1st address|
00006ba0  20 74 65 78 74 20 69 73  20 74 6f 6f 20 6c 6f 6e  | text is too lon|
00006bb0  67 20 6f 72 20 74 68 65  20 66 6f 6e 74 20 69 73  |g or the font is|
00006bc0  20 74 6f 6f 20 6c 61 72  67 65 22 29 3a f2 64 72  | too large"):.dr|
00006bd0  61 77 66 69 6c 65 5f 65  6e 64 3a ff 22 44 65 6c  |awfile_end:."Del|
00006be0  65 74 65 20 22 2b 73 61  76 65 24 3a e1 0d 25 44  |ete "+save$:..%D|
00006bf0  3e f2 74 65 78 74 28 31  33 2c 38 31 2c 61 64 31  |>.text(13,81,ad1|
00006c00  24 2c 73 69 7a 65 61 64  31 2a 26 32 38 30 2c 68  |$,sizead1*&280,h|
00006c10  61 64 31 2a 26 32 38 30  2c 33 2c 68 65 78 63 28  |ad1*&280,3,hexc(|
00006c20  33 29 2c 68 65 78 63 28  33 29 29 0d 25 4e 28 78  |3),hexc(3)).%N(x|
00006c30  3d a4 77 69 64 74 68 28  61 64 32 24 2c 66 6f 6e  |=.width(ad2$,fon|
00006c40  74 61 64 31 24 2c 73 69  7a 65 61 64 31 2c 68 61  |tad1$,sizead1,ha|
00006c50  64 31 29 0d 25 58 81 e7  20 61 64 32 24 3e 22 22  |d1).%X.. ad2$>""|
00006c60  20 80 20 78 3d 30 20 84  20 78 3e 35 36 30 20 8c  | . x=0 . x>560 .|
00006c70  20 f2 6d 65 73 73 28 22  54 68 65 20 32 6e 64 20  | .mess("The 2nd |
00006c80  61 64 64 72 65 73 73 20  74 65 78 74 20 69 73 20  |address text is |
00006c90  74 6f 6f 20 6c 6f 6e 67  20 6f 72 20 74 68 65 20  |too long or the |
00006ca0  66 6f 6e 74 20 69 73 20  74 6f 6f 20 6c 61 72 67  |font is too larg|
00006cb0  65 22 29 3a f2 64 72 61  77 66 69 6c 65 5f 65 6e  |e"):.drawfile_en|
00006cc0  64 3a ff 22 44 65 6c 65  74 65 20 22 2b 73 61 76  |d:."Delete "+sav|
00006cd0  65 24 3a e1 0d 25 62 3e  f2 74 65 78 74 28 31 33  |e$:..%b>.text(13|
00006ce0  2c 36 35 2c 61 64 32 24  2c 73 69 7a 65 61 64 31  |,65,ad2$,sizead1|
00006cf0  2a 26 32 38 30 2c 68 61  64 31 2a 26 32 38 30 2c  |*&280,had1*&280,|
00006d00  33 2c 68 65 78 63 28 33  29 2c 68 65 78 63 28 33  |3,hexc(3),hexc(3|
00006d10  29 29 0d 25 6c 28 78 3d  a4 77 69 64 74 68 28 61  |)).%l(x=.width(a|
00006d20  64 33 24 2c 66 6f 6e 74  61 64 31 24 2c 73 69 7a  |d3$,fontad1$,siz|
00006d30  65 61 64 31 2c 68 61 64  31 29 0d 25 76 81 e7 20  |ead1,had1).%v.. |
00006d40  61 64 33 24 3e 22 22 20  80 20 78 3d 30 20 84 20  |ad3$>"" . x=0 . |
00006d50  78 3e 35 36 30 20 8c 20  f2 6d 65 73 73 28 22 54  |x>560 . .mess("T|
00006d60  68 65 20 33 72 64 20 61  64 64 72 65 73 73 20 74  |he 3rd address t|
00006d70  65 78 74 20 69 73 20 74  6f 6f 20 6c 6f 6e 67 20  |ext is too long |
00006d80  6f 72 20 74 68 65 20 66  6f 6e 74 20 69 73 20 74  |or the font is t|
00006d90  6f 6f 20 6c 61 72 67 65  22 29 3a f2 64 72 61 77  |oo large"):.draw|
00006da0  66 69 6c 65 5f 65 6e 64  3a ff 22 44 65 6c 65 74  |file_end:."Delet|
00006db0  65 20 22 2b 73 61 76 65  24 3a e1 0d 25 80 3e f2  |e "+save$:..%.>.|
00006dc0  74 65 78 74 28 31 33 2c  34 39 2c 61 64 33 24 2c  |text(13,49,ad3$,|
00006dd0  73 69 7a 65 61 64 31 2a  26 32 38 30 2c 68 61 64  |sizead1*&280,had|
00006de0  31 2a 26 32 38 30 2c 33  2c 68 65 78 63 28 33 29  |1*&280,3,hexc(3)|
00006df0  2c 68 65 78 63 28 33 29  29 0d 25 8a 28 78 3d a4  |,hexc(3)).%.(x=.|
00006e00  77 69 64 74 68 28 61 64  34 24 2c 66 6f 6e 74 61  |width(ad4$,fonta|
00006e10  64 31 24 2c 73 69 7a 65  61 64 31 2c 68 61 64 31  |d1$,sizead1,had1|
00006e20  29 0d 25 94 81 e7 20 61  64 34 24 3e 22 22 20 80  |).%... ad4$>"" .|
00006e30  20 78 3d 30 20 84 20 78  3e 35 36 30 20 8c 20 f2  | x=0 . x>560 . .|
00006e40  6d 65 73 73 28 22 54 68  65 20 34 74 68 20 61 64  |mess("The 4th ad|
00006e50  64 72 65 73 73 20 74 65  78 74 20 69 73 20 74 6f  |dress text is to|
00006e60  6f 20 6c 6f 6e 67 20 6f  72 20 74 68 65 20 66 6f  |o long or the fo|
00006e70  6e 74 20 69 73 20 74 6f  6f 20 6c 61 72 67 65 22  |nt is too large"|
00006e80  29 3a f2 64 72 61 77 66  69 6c 65 5f 65 6e 64 3a  |):.drawfile_end:|
00006e90  ff 22 44 65 6c 65 74 65  20 22 2b 73 61 76 65 24  |."Delete "+save$|
00006ea0  3a e1 0d 25 9e 3e f2 74  65 78 74 28 31 33 2c 33  |:..%.>.text(13,3|
00006eb0  33 2c 61 64 34 24 2c 73  69 7a 65 61 64 31 2a 26  |3,ad4$,sizead1*&|
00006ec0  32 38 30 2c 68 61 64 31  2a 26 32 38 30 2c 33 2c  |280,had1*&280,3,|
00006ed0  68 65 78 63 28 33 29 2c  68 65 78 63 28 33 29 29  |hexc(3),hexc(3))|
00006ee0  0d 25 a8 0e f2 67 72 6f  75 70 5f 65 6e 64 0d 25  |.%...group_end.%|
00006ef0  b2 38 78 63 6f 3d 28 32  2f 35 29 2a a4 77 69 64  |.8xco=(2/5)*.wid|
00006f00  74 68 28 65 78 74 72 61  24 2c 66 6f 6e 74 65 78  |th(extra$,fontex|
00006f10  74 72 61 24 2c 73 69 7a  65 65 78 74 72 61 2c 68  |tra$,sizeextra,h|
00006f20  65 78 74 72 61 29 0d 25  bc 7c e7 20 78 2f 28 32  |extra).%.|. x/(2|
00006f30  2f 35 29 3d 30 20 80 20  65 78 74 72 61 24 3c 3e  |/5)=0 . extra$<>|
00006f40  22 22 20 8c 20 f2 6d 65  73 73 28 22 54 68 65 20  |"" . .mess("The |
00006f50  74 72 61 64 65 20 74 65  78 74 20 69 73 20 74 6f  |trade text is to|
00006f60  6f 20 6c 6f 6e 67 20 6f  72 20 74 68 65 20 66 6f  |o long or the fo|
00006f70  6e 74 20 69 73 20 74 6f  6f 20 6c 61 72 67 65 22  |nt is too large"|
00006f80  29 3a f2 64 72 61 77 66  69 6c 65 5f 65 6e 64 3a  |):.drawfile_end:|
00006f90  ff 22 44 65 6c 65 74 65  20 22 2b 73 61 76 65 24  |."Delete "+save$|
00006fa0  3a e1 0d 25 c6 1a 78 63  6f 3d 32 32 38 2d 78 63  |:..%..xco=228-xc|
00006fb0  6f 3a 78 63 6f 3d 78 63  6f 2f 32 3a 0d 25 d0 46  |o:xco=xco/2:.%.F|
00006fc0  f2 74 65 78 74 28 78 63  6f 2c 31 30 32 2c 65 78  |.text(xco,102,ex|
00006fd0  74 72 61 24 2c 73 69 7a  65 65 78 74 72 61 2a 26  |tra$,sizeextra*&|
00006fe0  32 38 30 2c 68 65 78 74  72 61 2a 26 32 38 30 2c  |280,hextra*&280,|
00006ff0  32 2c 68 65 78 63 28 32  29 2c 68 65 78 63 28 32  |2,hexc(2),hexc(2|
00007000  29 29 0d 25 da 3a 78 63  6f 3d 28 32 2f 35 29 2a  |)).%.:xco=(2/5)*|
00007010  a4 77 69 64 74 68 28 22  54 65 6c 20 3a 2d 20 22  |.width("Tel :- "|
00007020  2b 74 65 6c 24 2c 66 6f  6e 74 74 65 6c 24 2c 73  |+tel$,fonttel$,s|
00007030  69 7a 65 74 65 6c 2c 68  74 65 6c 29 0d 25 e4 7e  |izetel,htel).%.~|
00007040  e7 20 78 2f 28 32 2f 35  29 3d 30 20 80 20 74 65  |. x/(2/5)=0 . te|
00007050  6c 24 3c 3e 22 22 20 8c  20 f2 6d 65 73 73 28 22  |l$<>"" . .mess("|
00007060  54 68 65 20 74 65 6c 65  70 68 6f 6e 65 20 74 65  |The telephone te|
00007070  78 74 20 69 73 20 74 6f  6f 20 6c 6f 6e 67 20 6f  |xt is too long o|
00007080  72 20 74 68 65 20 66 6f  6e 74 20 69 73 20 74 6f  |r the font is to|
00007090  6f 20 6c 61 72 67 65 22  29 3a f2 64 72 61 77 66  |o large"):.drawf|
000070a0  69 6c 65 5f 65 6e 64 3a  ff 22 44 65 6c 65 74 65  |ile_end:."Delete|
000070b0  20 22 2b 73 61 76 65 24  3a e1 0d 25 ee 0f 78 63  | "+save$:..%..xc|
000070c0  6f 3d 32 31 38 2d 78 63  6f 0d 25 f8 49 f2 74 65  |o=218-xco.%.I.te|
000070d0  78 74 28 78 63 6f 2c 31  30 2c 22 54 65 6c 20 3a  |xt(xco,10,"Tel :|
000070e0  2d 20 22 2b 74 65 6c 24  2c 73 69 7a 65 74 65 6c  |- "+tel$,sizetel|
000070f0  2a 26 32 38 30 2c 68 74  65 6c 2a 26 32 38 30 2c  |*&280,htel*&280,|
00007100  34 2c 68 65 78 63 28 34  29 2c 68 65 78 63 28 34  |4,hexc(4),hexc(4|
00007110  29 29 0d 26 02 1b e7 20  63 75 72 73 70 72 24 3c  |)).&... curspr$<|
00007120  3e 22 22 20 8c 20 f2 73  70 72 69 74 65 0d 26 0c  |>"" . .sprite.&.|
00007130  0e f2 67 72 6f 75 70 5f  65 6e 64 0d 26 16 47 e7  |..group_end.&.G.|
00007140  20 6e 6f 6f 66 63 61 72  64 73 3d 38 20 c8 99 22  | noofcards=8 .."|
00007150  48 6f 75 72 67 6c 61 73  73 5f 50 65 72 63 65 6e  |Hourglass_Percen|
00007160  74 61 67 65 22 2c 28 63  61 72 64 64 72 61 77 2f  |tage",(carddraw/|
00007170  28 6e 6f 6f 66 63 61 72  64 73 2a 32 29 29 2a 31  |(noofcards*2))*1|
00007180  30 30 0d 26 20 05 ed 0d  26 2a 11 f2 64 72 61 77  |00.& ...&*..draw|
00007190  66 69 6c 65 5f 65 6e 64  0d 26 34 17 c8 99 22 48  |file_end.&4..."H|
000071a0  6f 75 72 67 6c 61 73 73  5f 53 6d 61 73 68 22 0d  |ourglass_Smash".|
000071b0  26 3e 07 f7 20 85 0d 26  48 05 e1 0d 26 52 19 dd  |&>.. ..&H...&R..|
000071c0  20 f2 64 72 61 77 66 69  6c 65 5f 73 74 61 72 74  | .drawfile_start|
000071d0  28 44 24 29 0d 26 5c 0c  63 25 3d ae 28 44 24 29  |(D$).&\.c%=.(D$)|
000071e0  0d 26 66 2c e7 20 63 25  3d 30 20 8c 20 85 20 31  |.&f,. c%=0 . . 1|
000071f0  32 33 34 2c 22 43 61 6e  27 74 20 6f 70 65 6e 20  |234,"Can't open |
00007200  6f 75 74 70 75 74 20 66  69 6c 65 22 0d 26 70 10  |output file".&p.|
00007210  64 72 61 77 66 69 6c 65  24 3d 44 24 0d 26 7a 28  |drawfile$=D$.&z(|
00007220  f2 70 75 74 77 28 26 37  37 36 31 37 32 34 34 29  |.putw(&77617244)|
00007230  3a f2 70 75 74 77 28 32  30 31 29 3a f2 70 75 74  |:.putw(201):.put|
00007240  77 28 30 29 0d 26 84 14  f2 70 75 74 73 31 32 28  |w(0).&...puts12(|
00007250  22 21 43 61 72 64 22 29  0d 26 8e 0b 6c 65 76 25  |"!Card").&..lev%|
00007260  3d 2d 31 0d 26 98 11 f2  68 65 61 64 5f 68 65 72  |=-1.&...head_her|
00007270  65 28 b9 29 0d 26 a2 05  e1 0d 26 ac 0f dd 20 f2  |e(.).&....&... .|
00007280  70 75 74 77 28 41 25 29  0d 26 b6 11 d5 23 63 25  |putw(A%).&...#c%|
00007290  2c 41 25 20 80 20 26 46  46 0d 26 c0 17 d5 23 63  |,A% . &FF.&...#c|
000072a0  25 2c 28 41 25 3e 3e 3e  38 29 20 80 20 26 46 46  |%,(A%>>>8) . &FF|
000072b0  0d 26 ca 18 d5 23 63 25  2c 28 41 25 3e 3e 3e 31  |.&...#c%,(A%>>>1|
000072c0  36 29 20 80 20 26 46 46  0d 26 d4 18 d5 23 63 25  |6) . &FF.&...#c%|
000072d0  2c 28 41 25 3e 3e 3e 32  34 29 20 80 20 26 46 46  |,(A%>>>24) . &FF|
000072e0  0d 26 de 05 e1 0d 26 e8  11 dd 20 f2 70 75 74 73  |.&....&... .puts|
000072f0  31 32 28 41 24 29 0d 26  f2 08 ea 20 41 25 0d 26  |12(A$).&... A%.&|
00007300  fc 12 41 24 3d 41 24 2b  c4 31 32 2c 22 20 22 29  |..A$=A$+.12," ")|
00007310  0d 27 06 23 e3 20 41 25  3d 31 20 b8 20 31 32 3a  |.'.#. A%=1 . 12:|
00007320  d5 23 63 25 2c 97 28 c1  41 24 2c 41 25 2c 31 29  |.#c%,.(.A$,A%,1)|
00007330  29 3a ed 0d 27 10 05 e1  0d 27 1a 05 3a 0d 27 24  |):..'....'..:.'$|
00007340  0f dd 20 f2 70 75 74 73  28 41 24 29 0d 27 2e 08  |.. .puts(A$).'..|
00007350  ea 20 41 25 0d 27 38 26  e3 20 41 25 3d 31 20 b8  |. A%.'8&. A%=1 .|
00007360  20 a9 28 41 24 29 3a d5  23 63 25 2c 97 28 c1 41  | .(A$):.#c%,.(.A|
00007370  24 2c 41 25 2c 31 29 29  3a ed 0d 27 42 0a d5 23  |$,A%,1)):..'B..#|
00007380  63 25 2c 30 0d 27 4c 05  e1 0d 27 56 05 3a 0d 27  |c%,0.'L...'V.:.'|
00007390  60 16 dd 20 f2 68 65 61  64 5f 68 65 72 65 28 62  |`.. .head_here(b|
000073a0  6f 78 25 29 0d 27 6a 56  e7 20 6c 65 76 25 3d 6d  |ox%).'jV. lev%=m|
000073b0  61 78 6c 65 76 25 20 8c  20 85 20 31 32 33 34 2c  |axlev% . . 1234,|
000073c0  22 54 6f 6f 20 6d 61 6e  79 20 6e 65 73 74 65 64  |"Too many nested|
000073d0  20 67 72 6f 75 70 73 2e  20 20 45 64 69 74 20 70  | groups.  Edit p|
000073e0  72 6f 67 72 61 6d 20 74  6f 20 69 6e 63 72 65 61  |rogram to increa|
000073f0  73 65 20 6c 69 6d 69 74  2e 22 0d 27 74 0b 6c 65  |se limit.".'t.le|
00007400  76 25 2b 3d 31 0d 27 7e  13 62 6f 78 25 28 6c 65  |v%+=1.'~.box%(le|
00007410  76 25 29 3d 62 6f 78 25  0d 27 88 15 73 74 61 72  |v%)=box%.'..star|
00007420  74 25 28 6c 65 76 25 29  3d 8f 23 63 25 0d 27 92  |t%(lev%)=.#c%.'.|
00007430  17 e7 20 6c 65 76 25 3e  30 20 8c 20 f2 70 75 74  |.. lev%>0 . .put|
00007440  77 28 30 29 0d 27 9c 0c  e7 20 62 6f 78 25 20 8c  |w(0).'... box% .|
00007450  0d 27 a6 16 20 f2 70 75  74 77 28 30 29 3a f2 70  |.'.. .putw(0):.p|
00007460  75 74 77 28 30 29 0d 27  b0 16 20 f2 70 75 74 77  |utw(0).'.. .putw|
00007470  28 30 29 3a f2 70 75 74  77 28 30 29 0d 27 ba 05  |(0):.putw(0).'..|
00007480  cd 0d 27 c4 1f 6c 25 28  6c 65 76 25 29 3d 62 69  |..'..l%(lev%)=bi|
00007490  67 25 3a 62 25 28 6c 65  76 25 29 3d 62 69 67 25  |g%:b%(lev%)=big%|
000074a0  0d 27 ce 21 72 25 28 6c  65 76 25 29 3d 2d 62 69  |.'.!r%(lev%)=-bi|
000074b0  67 25 3a 74 25 28 6c 65  76 25 29 3d 2d 62 69 67  |g%:t%(lev%)=-big|
000074c0  25 0d 27 d8 05 e1 0d 27  e2 05 3a 0d 27 ec 0f dd  |%.'....'..:.'...|
000074d0  20 f2 68 65 61 64 5f 6e  6f 77 0d 27 f6 0a ea 20  | .head_now.'... |
000074e0  65 6e 64 25 0d 28 00 0d  65 6e 64 25 3d 8f 23 63  |end%.(..end%=.#c|
000074f0  25 0d 28 0a 15 cf 23 63  25 3d 73 74 61 72 74 25  |%.(...#c%=start%|
00007500  28 6c 65 76 25 29 0d 28  14 29 e7 20 6c 65 76 25  |(lev%).(.). lev%|
00007510  3e 30 20 8c 20 f2 70 75  74 77 28 65 6e 64 25 2d  |>0 . .putw(end%-|
00007520  73 74 61 72 74 25 28 6c  65 76 25 29 2b 34 29 0d  |start%(lev%)+4).|
00007530  28 1e 12 e7 20 62 6f 78  25 28 6c 65 76 25 29 20  |(... box%(lev%) |
00007540  8c 0d 28 28 24 20 f2 70  75 74 77 28 6c 25 28 6c  |..(($ .putw(l%(l|
00007550  65 76 25 29 29 3a f2 70  75 74 77 28 62 25 28 6c  |ev%)):.putw(b%(l|
00007560  65 76 25 29 29 0d 28 32  28 20 f2 70 75 74 77 28  |ev%)).(2( .putw(|
00007570  72 25 28 6c 65 76 25 29  2b 31 29 3a f2 70 75 74  |r%(lev%)+1):.put|
00007580  77 28 74 25 28 6c 65 76  25 29 2b 31 29 0d 28 3c  |w(t%(lev%)+1).(<|
00007590  05 cd 0d 28 46 0e e7 20  6c 65 76 25 3e 30 20 8c  |...(F.. lev%>0 .|
000075a0  0d 28 50 0c 20 6c 65 76  25 2d 3d 31 0d 28 5a 30  |.(P. lev%-=1.(Z0|
000075b0  20 e7 20 6c 25 28 6c 65  76 25 2b 31 29 3c 6c 25  | . l%(lev%+1)<l%|
000075c0  28 6c 65 76 25 29 20 8c  20 6c 25 28 6c 65 76 25  |(lev%) . l%(lev%|
000075d0  29 3d 6c 25 28 6c 65 76  25 2b 31 29 0d 28 64 30  |)=l%(lev%+1).(d0|
000075e0  20 e7 20 62 25 28 6c 65  76 25 2b 31 29 3c 62 25  | . b%(lev%+1)<b%|
000075f0  28 6c 65 76 25 29 20 8c  20 62 25 28 6c 65 76 25  |(lev%) . b%(lev%|
00007600  29 3d 62 25 28 6c 65 76  25 2b 31 29 0d 28 6e 30  |)=b%(lev%+1).(n0|
00007610  20 e7 20 72 25 28 6c 65  76 25 2b 31 29 3e 72 25  | . r%(lev%+1)>r%|
00007620  28 6c 65 76 25 29 20 8c  20 72 25 28 6c 65 76 25  |(lev%) . r%(lev%|
00007630  29 3d 72 25 28 6c 65 76  25 2b 31 29 0d 28 78 30  |)=r%(lev%+1).(x0|
00007640  20 e7 20 74 25 28 6c 65  76 25 2b 31 29 3e 74 25  | . t%(lev%+1)>t%|
00007650  28 6c 65 76 25 29 20 8c  20 74 25 28 6c 65 76 25  |(lev%) . t%(lev%|
00007660  29 3d 74 25 28 6c 65 76  25 2b 31 29 0d 28 82 05  |)=t%(lev%+1).(..|
00007670  cd 0d 28 8c 0d cf 23 63  25 3d 65 6e 64 25 0d 28  |..(...#c%=end%.(|
00007680  96 05 e1 0d 28 a0 0c dd  20 f2 61 6c 69 67 6e 0d  |....(... .align.|
00007690  28 aa 18 c8 95 20 8f 23  63 25 20 80 20 33 3a d5  |(.... .#c% . 3:.|
000076a0  23 63 25 2c 30 3a ce 0d  28 b4 05 e1 0d 28 be 12  |#c%,0:..(....(..|
000076b0  dd 20 f2 67 72 6f 75 70  5f 73 74 61 72 74 0d 28  |. .group_start.(|
000076c0  c8 2d f4 20 67 72 6f 75  70 73 20 63 61 6e 6e 6f  |.-. groups canno|
000076d0  74 20 62 65 20 6e 65 73  74 65 64 20 69 6e 20 74  |t be nested in t|
000076e0  68 69 73 20 76 65 72 73  69 6f 6e 0d 28 d2 0c f2  |his version.(...|
000076f0  70 75 74 77 28 36 29 0d  28 dc 11 f2 68 65 61 64  |putw(6).(...head|
00007700  5f 68 65 72 65 28 b9 29  0d 28 e6 14 f2 70 75 74  |_here(.).(...put|
00007710  73 31 32 28 22 67 72 6f  75 70 22 29 0d 28 f0 05  |s12("group").(..|
00007720  e1 0d 28 fa 05 3a 0d 29  04 10 dd 20 f2 67 72 6f  |..(..:.)... .gro|
00007730  75 70 5f 65 6e 64 0d 29  0e 0d f2 68 65 61 64 5f  |up_end.)...head_|
00007740  6e 6f 77 0d 29 18 05 e1  0d 29 22 37 dd 20 f2 74  |now.)....)"7. .t|
00007750  65 78 74 28 78 25 2c 79  25 2c 74 65 78 74 24 2c  |ext(x%,y%,text$,|
00007760  78 73 69 7a 65 25 2c 79  73 69 7a 65 25 2c 66 6f  |xsize%,ysize%,fo|
00007770  6e 74 25 2c 63 6f 6c 25  2c 62 63 6f 6c 25 29 0d  |nt%,col%,bcol%).|
00007780  29 2c 29 78 25 3d 28 78  25 2b 78 70 6f 73 29 2a  |),)x%=(x%+xpos)*|
00007790  70 6f 69 6e 74 3a 79 25  3d 28 79 25 2b 79 70 6f  |point:y%=(y%+ypo|
000077a0  73 29 2a 70 6f 69 6e 74  0d 29 36 0c f2 70 75 74  |s)*point.)6..put|
000077b0  77 28 31 29 0d 29 40 11  f2 68 65 61 64 5f 68 65  |w(1).)@..head_he|
000077c0  72 65 28 a3 29 0d 29 4a  1b f2 70 75 74 78 79 28  |re(.).)J..putxy(|
000077d0  78 25 2c 79 25 2d 79 73  69 7a 65 25 2a 2e 35 29  |x%,y%-ysize%*.5)|
000077e0  0d 29 54 28 f2 70 75 74  78 79 28 78 25 2b a9 28  |.)T(.putxy(x%+.(|
000077f0  74 65 78 74 24 29 2a 78  73 69 7a 65 25 2c 79 25  |text$)*xsize%,y%|
00007800  2b 79 73 69 7a 65 25 29  0d 29 5e 0f f2 70 75 74  |+ysize%).)^..put|
00007810  77 28 63 6f 6c 25 29 0d  29 68 10 f2 70 75 74 77  |w(col%).)h..putw|
00007820  28 62 63 6f 6c 25 29 0d  29 72 10 f2 70 75 74 77  |(bcol%).)r..putw|
00007830  28 66 6f 6e 74 25 29 0d  29 7c 1f f2 70 75 74 77  |(font%).)|..putw|
00007840  28 78 73 69 7a 65 25 29  3a f2 70 75 74 77 28 79  |(xsize%):.putw(y|
00007850  73 69 7a 65 25 29 0d 29  86 11 f2 70 75 74 78 79  |size%).)...putxy|
00007860  28 78 25 2c 79 25 29 0d  29 90 17 f2 70 75 74 73  |(x%,y%).)...puts|
00007870  28 74 65 78 74 24 29 3a  f2 61 6c 69 67 6e 0d 29  |(text$):.align.)|
00007880  9a 0d f2 68 65 61 64 5f  6e 6f 77 0d 29 a4 05 e1  |...head_now.)...|
00007890  0d 29 ae 13 dd 20 f2 70  75 74 78 79 28 78 25 2c  |.)... .putxy(x%,|
000078a0  79 25 29 0d 29 b8 17 f2  70 75 74 77 28 78 25 29  |y%).)...putw(x%)|
000078b0  3a f2 70 75 74 77 28 79  25 29 0d 29 c2 1f e7 20  |:.putw(y%).)... |
000078c0  78 25 3c 6c 25 28 6c 65  76 25 29 20 8c 20 6c 25  |x%<l%(lev%) . l%|
000078d0  28 6c 65 76 25 29 3d 78  25 0d 29 cc 1f e7 20 79  |(lev%)=x%.)... y|
000078e0  25 3c 62 25 28 6c 65 76  25 29 20 8c 20 62 25 28  |%<b%(lev%) . b%(|
000078f0  6c 65 76 25 29 3d 79 25  0d 29 d6 1f e7 20 78 25  |lev%)=y%.)... x%|
00007900  3e 72 25 28 6c 65 76 25  29 20 8c 20 72 25 28 6c  |>r%(lev%) . r%(l|
00007910  65 76 25 29 3d 78 25 0d  29 e0 1f e7 20 79 25 3e  |ev%)=x%.)... y%>|
00007920  74 25 28 6c 65 76 25 29  20 8c 20 74 25 28 6c 65  |t%(lev%) . t%(le|
00007930  76 25 29 3d 79 25 0d 29  ea 05 e1 0d 29 f4 2b dd  |v%)=y%.)....).+.|
00007940  20 f2 70 61 74 68 5f 73  74 61 72 74 28 78 25 2c  | .path_start(x%,|
00007950  79 25 2c 77 69 64 74 68  25 2c 6c 63 6f 6c 25 2c  |y%,width%,lcol%,|
00007960  66 63 6f 6c 25 29 0d 29  fe 0c f2 70 75 74 77 28  |fcol%).)...putw(|
00007970  32 29 0d 2a 08 11 f2 68  65 61 64 5f 68 65 72 65  |2).*...head_here|
00007980  28 b9 29 0d 2a 12 17 f2  70 75 74 77 28 66 63 6f  |(.).*...putw(fco|
00007990  6c 25 29 3a f4 20 66 69  6c 6c 0d 2a 1c 19 f2 70  |l%):. fill.*...p|
000079a0  75 74 77 28 6c 63 6f 6c  25 29 3a f4 20 63 6f 6c  |utw(lcol%):. col|
000079b0  6f 75 72 0d 2a 26 19 f2  70 75 74 77 28 77 69 64  |our.*&..putw(wid|
000079c0  74 68 25 29 3a f4 20 77  69 64 74 68 0d 2a 30 19  |th%):. width.*0.|
000079d0  f2 70 75 74 77 28 30 29  3a f4 20 70 61 74 68 20  |.putw(0):. path |
000079e0  73 74 79 6c 65 0d 2a 3a  15 f2 70 61 74 68 5f 6d  |style.*:..path_m|
000079f0  6f 76 65 28 78 25 2c 79  25 29 0d 2a 44 05 e1 0d  |ove(x%,y%).*D...|
00007a00  2a 4e 05 3a 0d 2a 58 17  dd 20 f2 70 61 74 68 5f  |*N.:.*X.. .path_|
00007a10  6d 6f 76 65 28 78 25 2c  79 25 29 0d 2a 62 29 78  |move(x%,y%).*b)x|
00007a20  25 3d 28 78 25 2b 78 70  6f 73 29 2a 70 6f 69 6e  |%=(x%+xpos)*poin|
00007a30  74 3a 79 25 3d 28 79 25  2b 79 70 6f 73 29 2a 70  |t:y%=(y%+ypos)*p|
00007a40  6f 69 6e 74 0d 2a 6c 0c  f2 70 75 74 77 28 32 29  |oint.*l..putw(2)|
00007a50  0d 2a 76 11 f2 70 75 74  78 79 28 78 25 2c 79 25  |.*v..putxy(x%,y%|
00007a60  29 0d 2a 80 05 e1 0d 2a  8a 05 3a 0d 2a 94 19 dd  |).*....*..:.*...|
00007a70  20 f2 70 61 74 68 5f 64  72 61 77 28 78 78 25 2c  | .path_draw(xx%,|
00007a80  79 79 25 29 0d 2a 9e 2d  78 78 25 3d 28 78 78 25  |yy%).*.-xx%=(xx%|
00007a90  2b 78 70 6f 73 29 2a 70  6f 69 6e 74 3a 79 79 25  |+xpos)*point:yy%|
00007aa0  3d 28 79 79 25 2b 79 70  6f 73 29 2a 70 6f 69 6e  |=(yy%+ypos)*poin|
00007ab0  74 0d 2a a8 0c f2 70 75  74 77 28 38 29 0d 2a b2  |t.*...putw(8).*.|
00007ac0  13 f2 70 75 74 78 79 28  78 78 25 2c 79 79 25 29  |..putxy(xx%,yy%)|
00007ad0  0d 2a bc 05 e1 0d 2a c6  11 dd 20 f2 70 61 74 68  |.*....*... .path|
00007ae0  5f 63 6c 6f 73 65 0d 2a  d0 0c f2 70 75 74 77 28  |_close.*...putw(|
00007af0  35 29 0d 2a da 05 e1 0d  2a e4 05 3a 0d 2a ee 0f  |5).*....*..:.*..|
00007b00  dd 20 f2 70 61 74 68 5f  65 6e 64 0d 2a f8 0c f2  |. .path_end.*...|
00007b10  70 75 74 77 28 30 29 0d  2b 02 0d f2 68 65 61 64  |putw(0).+...head|
00007b20  5f 6e 6f 77 0d 2b 0c 05  e1 0d 2b 16 13 dd 20 f2  |_now.+....+... .|
00007b30  64 72 61 77 66 69 6c 65  5f 65 6e 64 0d 2b 20 24  |drawfile_end.+ $|
00007b40  f4 20 64 72 61 77 20 75  6e 66 69 6e 69 73 68 65  |. draw unfinishe|
00007b50  64 20 49 46 20 6c 65 76  25 3e 30 20 54 48 45 4e  |d IF lev%>0 THEN|
00007b60  0d 2b 2a 0d f2 68 65 61  64 5f 6e 6f 77 0d 2b 34  |.+*..head_now.+4|
00007b70  0d d9 23 63 25 3a 63 25  3d 30 0d 2b 3e 22 ff 28  |..#c%:c%=0.+>".(|
00007b80  22 53 65 74 54 79 70 65  20 22 2b 64 72 61 77 66  |"SetType "+drawf|
00007b90  69 6c 65 24 2b 22 20 41  46 46 22 29 0d 2b 48 05  |ile$+" AFF").+H.|
00007ba0  e1 0d 2b 52 0c dd f2 73  70 72 69 74 65 0d 2b 5c  |..+R...sprite.+\|
00007bb0  25 c8 99 20 34 36 2c 26  31 31 38 2c 73 70 72 25  |%.. 46,&118,spr%|
00007bc0  2c 63 75 72 73 70 72 24  20 b8 20 2c 2c 73 70 74  |,curspr$ . ,,spt|
00007bd0  72 25 0d 2b 66 34 c8 99  20 26 32 45 2c 32 35 36  |r%.+f4.. &2E,256|
00007be0  2b 34 30 2c 73 70 72 25  2c 63 75 72 73 70 72 24  |+40,spr%,curspr$|
00007bf0  20 b8 20 41 2c 42 2c 43  2c 77 25 2c 68 25 2c 44  | . A,B,C,w%,h%,D|
00007c00  2c 6d 6f 64 65 25 0d 2b  70 1f e7 20 68 25 3e 77  |,mode%.+p.. h%>w|
00007c10  25 20 73 68 65 61 72 3d  37 32 20 8b 20 73 68 65  |% shear=72 . she|
00007c20  61 72 3d 38 32 0d 2b 7a  27 e7 20 a4 76 67 61 28  |ar=82.+z'. .vga(|
00007c30  6d 6f 64 65 25 29 20 8c  20 68 73 63 61 6c 65 3d  |mode%) . hscale=|
00007c40  31 3a 8b 20 68 73 63 61  6c 65 3d 32 0d 2b 84 24  |1:. hscale=2.+.$|
00007c50  53 68 65 61 72 3d a4 63  68 65 63 6b 66 6c 61 67  |Shear=.checkflag|
00007c60  28 64 65 74 61 69 6c 73  25 2c 32 39 2c 32 31 29  |(details%,29,21)|
00007c70  0d 2b 8e 11 78 6f 66 66  3d 30 3a 79 6f 66 66 3d  |.+..xoff=0:yoff=|
00007c80  30 0d 2b 98 0e c8 8e 20  53 68 65 61 72 20 ca 0d  |0.+.... Shear ..|
00007c90  2b a2 07 c9 20 a3 0d 2b  ac 2f e7 20 77 25 3e 38  |+... ..+./. w%>8|
00007ca0  32 20 80 20 68 25 3e 37  32 20 80 20 68 25 3c 77  |2 . h%>72 . h%<w|
00007cb0  25 20 8c 20 53 43 77 3d  38 32 2f 77 25 3a 53 43  |% . SCw=82/w%:SC|
00007cc0  68 3d 53 43 77 0d 2b b6  2f e7 20 77 25 3e 38 32  |h=SCw.+./. w%>82|
00007cd0  20 80 20 68 25 3e 37 32  20 80 20 68 25 3e 77 25  | . h%>72 . h%>w%|
00007ce0  20 8c 20 53 43 68 3d 38  32 2f 68 25 3a 53 43 77  | . SCh=82/h%:SCw|
00007cf0  3d 53 43 68 0d 2b c0 27  e7 20 77 25 3e 38 32 20  |=SCh.+.'. w%>82 |
00007d00  80 20 68 25 3c 37 32 20  8c 20 53 43 77 3d 38 32  |. h%<72 . SCw=82|
00007d10  2f 77 25 3a 53 43 68 3d  53 43 77 0d 2b ca 27 e7  |/w%:SCh=SCw.+.'.|
00007d20  20 77 25 3c 38 32 20 80  20 68 25 3e 37 32 20 8c  | w%<82 . h%>72 .|
00007d30  20 53 43 68 3d 38 32 2f  68 25 3a 53 43 77 3d 53  | SCh=82/h%:SCw=S|
00007d40  43 68 0d 2b d4 0d e7 20  66 6f 72 63 65 20 8c 0d  |Ch.+... force ..|
00007d50  2b de 2f e7 20 77 25 3c  38 32 20 80 20 68 25 3c  |+./. w%<82 . h%<|
00007d60  37 32 20 80 20 68 25 3c  77 25 20 8c 20 53 43 77  |72 . h%<w% . SCw|
00007d70  3d 38 32 2f 77 25 3a 53  43 68 3d 53 43 77 0d 2b  |=82/w%:SCh=SCw.+|
00007d80  e8 2f e7 20 77 25 3c 38  32 20 80 20 68 25 3c 37  |./. w%<82 . h%<7|
00007d90  32 20 80 20 68 25 3e 77  25 20 8c 20 53 43 68 3d  |2 . h%>w% . SCh=|
00007da0  37 32 2f 68 25 3a 53 43  77 3d 53 43 68 0d 2b f2  |72/h%:SCw=SCh.+.|
00007db0  05 cc 0d 2b fc 21 e7 20  77 25 3c 38 32 20 80 20  |...+.!. w%<82 . |
00007dc0  68 25 3c 37 32 20 8c 20  53 43 77 3d 31 3a 53 43  |h%<72 . SCw=1:SC|
00007dd0  68 3d 31 0d 2c 06 05 cd  0d 2c 10 10 c8 8e 20 63  |h=1.,....,.... c|
00007de0  65 6e 74 72 65 64 20 ca  0d 2c 1a 09 20 20 c9 20  |entred ..,..  . |
00007df0  b9 0d 2c 24 2a e7 20 a4  76 67 61 28 6d 6f 64 65  |..,$*. .vga(mode|
00007e00  25 29 20 80 20 ac 20 66  6f 72 63 65 20 8c 20 79  |%) . . force . y|
00007e10  6f 66 66 3d 28 37 32 2d  68 25 29 0d 2c 2e 32 e7  |off=(72-h%).,.2.|
00007e20  20 a4 76 67 61 28 6d 6f  64 65 25 29 20 80 20 66  | .vga(mode%) . f|
00007e30  6f 72 63 65 20 8c 20 79  6f 66 66 3d 28 37 32 2d  |orce . yoff=(72-|
00007e40  28 28 31 2f 53 43 68 29  2a 68 25 29 29 0d 2c 38  |((1/SCh)*h%)).,8|
00007e50  32 e7 20 ac 20 a4 76 67  61 28 6d 6f 64 65 25 29  |2. . .vga(mode%)|
00007e60  20 80 20 66 6f 72 63 65  20 79 6f 66 66 3d 28 37  | . force yoff=(7|
00007e70  32 2d 28 28 31 2f 53 43  68 29 2a 68 25 29 29 0d  |2-((1/SCh)*h%)).|
00007e80  2c 42 30 e7 20 ac 20 a4  76 67 61 28 6d 6f 64 65  |,B0. . .vga(mode|
00007e90  25 29 20 80 20 ac 20 66  6f 72 63 65 20 8c 20 79  |%) . . force . y|
00007ea0  6f 66 66 3d 28 37 32 2d  28 32 2a 68 25 29 29 0d  |off=(72-(2*h%)).|
00007eb0  2c 4c 1a 78 6f 66 66 3d  28 38 32 2d 28 28 31 2f  |,L.xoff=(82-((1/|
00007ec0  53 43 77 29 2a 77 25 29  29 0d 2c 56 2a e7 20 66  |SCw)*w%)).,V*. f|
00007ed0  6f 72 63 65 20 80 20 68  25 3c 77 25 20 80 20 a4  |orce . h%<w% . .|
00007ee0  76 67 61 28 6d 6f 64 65  25 29 20 8c 20 78 6f 66  |vga(mode%) . xof|
00007ef0  66 3d 30 0d 2c 60 2a e7  20 66 6f 72 63 65 20 80  |f=0.,`*. force .|
00007f00  20 68 25 3e 77 25 20 80  20 a4 76 67 61 28 6d 6f  | h%>w% . .vga(mo|
00007f10  64 65 25 29 20 8c 20 79  6f 66 66 3d 30 0d 2c 6a  |de%) . yoff=0.,j|
00007f20  30 e7 20 66 6f 72 63 65  20 80 20 28 68 25 2a 32  |0. force . (h%*2|
00007f30  29 3c 77 25 20 80 20 ac  20 a4 76 67 61 28 6d 6f  |)<w% . . .vga(mo|
00007f40  64 65 25 29 20 8c 20 78  6f 66 66 3d 30 0d 2c 74  |de%) . xoff=0.,t|
00007f50  30 e7 20 66 6f 72 63 65  20 80 20 28 68 25 2a 32  |0. force . (h%*2|
00007f60  29 3e 77 25 20 80 20 ac  20 a4 76 67 61 28 6d 6f  |)>w% . . .vga(mo|
00007f70  64 65 25 29 20 8c 20 79  6f 66 66 3d 30 0d 2c 7e  |de%) . yoff=0.,~|
00007f80  07 20 20 cb 0d 2c 88 07  c9 20 b9 0d 2c 92 20 53  |.  ..,... ..,. S|
00007f90  43 77 3d 38 32 2f 77 25  3a 53 43 68 3d 37 32 2f  |Cw=82/w%:SCh=72/|
00007fa0  68 25 3a 68 73 63 61 6c  65 3d 31 0d 2c 9c 05 cb  |h%:hscale=1.,...|
00007fb0  0d 2c a6 10 78 25 3d 31  35 35 3a 79 25 3d 33 33  |.,..x%=155:y%=33|
00007fc0  0d 2c b0 3b 78 25 3d 28  78 25 2b 78 70 6f 73 2b  |.,.;x%=(x%+xpos+|
00007fd0  28 78 6f 66 66 2f 35 29  29 2a 70 6f 69 6e 74 3a  |(xoff/5))*point:|
00007fe0  79 25 3d 28 79 25 2b 79  70 6f 73 2b 28 79 6f 66  |y%=(y%+ypos+(yof|
00007ff0  66 2f 35 29 29 2a 70 6f  69 6e 74 0d 2c ba 45 77  |f/5))*point.,.Ew|
00008000  69 64 74 68 25 3d 28 28  77 25 2a 53 43 77 29 2f  |idth%=((w%*SCw)/|
00008010  31 2e 32 35 29 2a 70 6f  69 6e 74 3a 68 65 69 67  |1.25)*point:heig|
00008020  68 74 25 3d 28 28 68 25  2a 53 43 68 29 2a 68 73  |ht%=((h%*SCh)*hs|
00008030  63 61 6c 65 2f 31 2e 32  35 29 2a 70 6f 69 6e 74  |cale/1.25)*point|
00008040  0d 2c c4 0c f2 70 75 74  77 28 35 29 0d 2c ce 11  |.,...putw(5).,..|
00008050  f2 68 65 61 64 5f 68 65  72 65 28 a3 29 0d 2c d8  |.head_here(.).,.|
00008060  11 f2 70 75 74 78 79 28  78 25 2c 79 25 29 0d 2c  |..putxy(x%,y%).,|
00008070  e2 24 f2 70 75 74 78 79  28 78 25 2b 77 69 64 74  |.$.putxy(x%+widt|
00008080  68 25 2b 31 2c 79 25 2b  68 65 69 67 68 74 25 2b  |h%+1,y%+height%+|
00008090  31 29 0d 2c ec 23 c8 99  22 4f 53 5f 47 42 50 42  |1).,.#.."OS_GBPB|
000080a0  22 2c 26 30 32 2c 63 25  2c 73 70 74 72 25 2c 21  |",&02,c%,sptr%,!|
000080b0  73 70 74 72 25 0d 2c f6  0a f2 61 6c 69 67 6e 0d  |sptr%.,...align.|
000080c0  2d 00 0d f2 68 65 61 64  5f 6e 6f 77 0d 2d 0a 05  |-...head_now.-..|
000080d0  e1 0d 2d 14 13 dd f2 63  6c 6f 73 65 28 21 62 6c  |..-....close(!bl|
000080e0  6f 63 6b 29 0d 2d 1e 1f  c8 99 22 57 69 6d 70 5f  |ock).-...."Wimp_|
000080f0  43 6c 6f 73 65 57 69 6e  64 6f 77 22 2c 2c 62 6c  |CloseWindow",,bl|
00008100  6f 63 6b 0d 2d 28 05 e1  0d 2d 32 17 dd a4 63 68  |ock.-(...-2...ch|
00008110  65 63 6b 69 74 28 68 6e  64 25 2c 69 63 25 29 0d  |eckit(hnd%,ic%).|
00008120  2d 3c 1b 21 69 63 6f 6e  64 3d 68 6e 64 25 3a 69  |-<.!icond=hnd%:i|
00008130  63 6f 6e 64 21 34 3d 69  63 25 0d 2d 46 20 c8 99  |cond!4=ic%.-F ..|
00008140  22 57 69 6d 70 5f 47 65  74 49 63 6f 6e 53 74 61  |"Wimp_GetIconSta|
00008150  74 65 22 2c 2c 69 63 6f  6e 64 0d 2d 50 13 66 6c  |te",,icond.-P.fl|
00008160  61 67 73 25 3d 69 63 6f  6e 64 21 32 34 0d 2d 5a  |ags%=icond!24.-Z|
00008170  12 3d 66 6c 61 67 73 25  80 26 46 30 30 30 30 0d  |.=flags%.&F0000.|
00008180  2d 64 19 dd f2 73 6c 61  62 69 63 6e 28 68 61 6e  |-d...slabicn(han|
00008190  64 6c 65 2c 69 63 6e 29  0d 2d 6e 13 69 63 6f 6e  |dle,icn).-n.icon|
000081a0  64 21 31 32 3d 68 61 6e  64 6c 65 0d 2d 78 0e 69  |d!12=handle.-x.i|
000081b0  63 6f 6e 64 21 31 36 3d  32 0d 2d 82 1f c8 99 20  |cond!16=2.-.... |
000081c0  22 57 69 6d 70 5f 42 6f  72 64 65 72 49 63 6f 6e  |"Wimp_BorderIcon|
000081d0  22 2c 2c 69 63 6f 6e 64  0d 2d 8c 0d 69 63 6f 6e  |",,icond.-..icon|
000081e0  64 21 38 3d 30 0d 2d 96  1f c8 99 20 22 57 69 6d  |d!8=0.-.... "Wim|
000081f0  70 5f 42 6f 72 64 65 72  49 63 6f 6e 22 2c 2c 69  |p_BorderIcon",,i|
00008200  63 6f 6e 64 0d 2d a0 05  e1 0d 2d aa 15 dd 20 f2  |cond.-....-... .|
00008210  73 6c 61 62 69 6e 28 68  61 6e 64 6c 65 29 0d 2d  |slabin(handle).-|
00008220  b4 11 21 69 63 6f 6e 64  3d 68 61 6e 64 6c 65 0d  |..!icond=handle.|
00008230  2d be 23 c8 99 20 22 57  69 6d 70 5f 47 65 74 50  |-.#.. "Wimp_GetP|
00008240  6f 69 6e 74 65 72 49 6e  66 6f 22 2c 2c 69 63 6f  |ointerInfo",,ico|
00008250  6e 64 0d 2d c8 1f c8 99  20 22 57 69 6d 70 5f 42  |nd.-.... "Wimp_B|
00008260  6f 72 64 65 72 49 63 6f  6e 22 2c 2c 69 63 6f 6e  |orderIcon",,icon|
00008270  64 0d 2d d2 05 e1 0d 2d  dc 16 dd 20 f2 73 6c 61  |d.-....-... .sla|
00008280  62 6f 75 74 28 68 61 6e  64 6c 65 29 0d 2d e6 11  |bout(handle).-..|
00008290  21 69 63 6f 6e 64 3d 68  61 6e 64 6c 65 0d 2d f0  |!icond=handle.-.|
000082a0  23 c8 99 20 22 57 69 6d  70 5f 47 65 74 50 6f 69  |#.. "Wimp_GetPoi|
000082b0  6e 74 65 72 49 6e 66 6f  22 2c 2c 69 63 6f 6e 64  |nterInfo",,icond|
000082c0  0d 2d fa 0f 69 63 6f 6e  64 21 38 20 3d 20 30 0d  |.-..icond!8 = 0.|
000082d0  2e 04 1f c8 99 20 22 57  69 6d 70 5f 42 6f 72 64  |..... "Wimp_Bord|
000082e0  65 72 49 63 6f 6e 22 2c  2c 69 63 6f 6e 64 0d 2e  |erIcon",,icond..|
000082f0  0e 05 e1 0d 2e 18 16 dd  f2 73 65 6c 65 63 74 63  |.........selectc|
00008300  6f 6c 28 63 6f 6c 6e 6f  29 0d 2e 22 18 68 65 78  |ol(colno)..".hex|
00008310  3d 77 69 6e 70 61 6c 28  63 6f 6c 6e 6f 2d 31 34  |=winpal(colno-14|
00008320  29 0d 2e 2c 14 52 45 44  3d 28 68 65 78 3e 3e 38  |)..,.RED=(hex>>8|
00008330  29 80 26 46 46 0d 2e 36  17 47 52 45 45 4e 3d 28  |).&FF..6.GREEN=(|
00008340  68 65 78 3e 3e 31 36 29  80 26 46 46 0d 2e 40 16  |hex>>16).&FF..@.|
00008350  42 4c 55 45 3d 28 68 65  78 3e 3e 32 34 29 80 26  |BLUE=(hex>>24).&|
00008360  46 46 0d 2e 4a 12 21 62  6c 6f 63 6b 3d 63 6f 6c  |FF..J.!block=col|
00008370  6f 75 72 25 0d 2e 54 21  c8 99 22 57 69 6d 70 5f  |our%..T!.."Wimp_|
00008380  47 65 74 57 69 6e 64 6f  77 49 6e 66 6f 22 2c 2c  |GetWindowInfo",,|
00008390  62 6c 6f 63 6b 0d 2e 5e  1b 77 6f 72 6b 78 25 3d  |block..^.workx%=|
000083a0  62 6c 6f 63 6b 21 34 2d  62 6c 6f 63 6b 21 32 30  |block!4-block!20|
000083b0  0d 2e 68 1c 77 6f 72 6b  79 25 3d 62 6c 6f 63 6b  |..h.worky%=block|
000083c0  21 31 36 2d 62 6c 6f 63  6b 21 32 34 0d 2e 72 29  |!16-block!24..r)|
000083d0  c8 99 20 22 43 6f 6c 6f  75 72 54 72 61 6e 73 5f  |.. "ColourTrans_|
000083e0  53 65 74 47 43 4f 4c 22  2c 68 65 78 2c 2c 2c 26  |SetGCOL",hex,,,&|
000083f0  31 30 30 2c 30 0d 2e 7c  26 c8 93 20 c8 90 20 77  |100,0..|&.. .. w|
00008400  6f 72 6b 78 25 2b 32 33  34 2c 77 6f 72 6b 79 25  |orkx%+234,worky%|
00008410  2d 32 34 37 2c 31 37 35  2c 34 38 0d 2e 86 1c 20  |-247,175,48.... |
00008420  c8 99 20 22 57 69 6d 70  5f 53 65 74 43 6f 6c 6f  |.. "Wimp_SetColo|
00008430  75 72 22 2c 31 2c 31 0d  2e 90 28 20 c8 93 20 c8  |ur",1,1...( .. .|
00008440  90 20 77 6f 72 6b 78 25  2b 32 37 30 2c 77 6f 72  |. workx%+270,wor|
00008450  6b 79 25 2d 31 37 30 2c  33 34 34 2c 31 34 37 0d  |ky%-170,344,147.|
00008460  2e 9a 30 20 c8 99 20 22  43 6f 6c 6f 75 72 54 72  |..0 .. "ColourTr|
00008470  61 6e 73 5f 53 65 74 47  43 4f 4c 22 2c 26 30 30  |ans_SetGCOL",&00|
00008480  30 30 46 46 30 30 2c 2c  2c 26 31 30 30 2c 30 0d  |00FF00,,,&100,0.|
00008490  2e a4 30 20 c8 93 20 c8  90 20 77 6f 72 6b 78 25  |..0 .. .. workx%|
000084a0  2b 32 37 31 2c 77 6f 72  6b 79 25 2d 35 35 2c 28  |+271,worky%-55,(|
000084b0  52 45 44 2f 32 35 35 29  2a 33 34 34 2c 33 32 0d  |RED/255)*344,32.|
000084c0  2e ae 30 20 c8 99 20 22  43 6f 6c 6f 75 72 54 72  |..0 .. "ColourTr|
000084d0  61 6e 73 5f 53 65 74 47  43 4f 4c 22 2c 26 30 30  |ans_SetGCOL",&00|
000084e0  46 46 30 30 30 30 2c 2c  2c 26 31 30 30 2c 30 0d  |FF0000,,,&100,0.|
000084f0  2e b8 33 20 c8 93 20 c8  90 20 77 6f 72 6b 78 25  |..3 .. .. workx%|
00008500  2b 32 37 31 2c 77 6f 72  6b 79 25 2d 31 31 31 2c  |+271,worky%-111,|
00008510  28 47 52 45 45 4e 2f 32  35 35 29 2a 33 34 34 2c  |(GREEN/255)*344,|
00008520  33 32 0d 2e c2 30 20 c8  99 20 22 43 6f 6c 6f 75  |32...0 .. "Colou|
00008530  72 54 72 61 6e 73 5f 53  65 74 47 43 4f 4c 22 2c  |rTrans_SetGCOL",|
00008540  26 46 46 30 30 30 30 30  30 2c 2c 2c 26 31 30 30  |&FF000000,,,&100|
00008550  2c 30 0d 2e cc 32 20 c8  93 20 c8 90 20 77 6f 72  |,0...2 .. .. wor|
00008560  6b 78 25 2b 32 37 31 2c  77 6f 72 6b 79 25 2d 31  |kx%+271,worky%-1|
00008570  36 37 2c 28 42 4c 55 45  2f 32 35 35 29 2a 33 34  |67,(BLUE/255)*34|
00008580  34 2c 33 32 0d 2e d6 48  20 c8 99 20 22 43 6f 6c  |4,32...H .. "Col|
00008590  6f 75 72 54 72 61 6e 73  5f 53 65 74 47 43 4f 4c  |ourTrans_SetGCOL|
000085a0  22 2c 30 2c 2c 2c 26 31  30 30 2c 30 3a c8 93 20  |",0,,,&100,0:.. |
000085b0  77 6f 72 6b 78 25 2b 32  33 33 2c 77 6f 72 6b 79  |workx%+233,worky|
000085c0  25 2d 32 34 38 2c 31 37  36 2c 34 39 0d 2e e0 23  |%-248,176,49...#|
000085d0  20 c8 93 20 77 6f 72 6b  78 25 2b 32 37 30 2c 77  | .. workx%+270,w|
000085e0  6f 72 6b 79 25 2d 35 38  2c 33 34 34 2c 33 34 0d  |orky%-58,344,34.|
000085f0  2e ea 24 20 c8 93 20 77  6f 72 6b 78 25 2b 32 37  |..$ .. workx%+27|
00008600  30 2c 77 6f 72 6b 79 25  2d 31 31 34 2c 33 34 34  |0,worky%-114,344|
00008610  2c 33 34 0d 2e f4 24 20  c8 93 20 77 6f 72 6b 78  |,34...$ .. workx|
00008620  25 2b 32 37 30 2c 77 6f  72 6b 79 25 2d 31 37 30  |%+270,worky%-170|
00008630  2c 33 34 34 2c 33 34 0d  2e fe 0e 67 65 65 63 6f  |,344,34....geeco|
00008640  6c 3d 68 65 78 0d 2f 08  1a 20 f2 69 6e 66 6f 28  |l=hex./.. .info(|
00008650  63 6f 6c 6f 75 72 25 2c  33 2c c3 52 45 44 29 0d  |colour%,3,.RED).|
00008660  2f 12 1c 20 f2 69 6e 66  6f 28 63 6f 6c 6f 75 72  |/.. .info(colour|
00008670  25 2c 37 2c c3 47 52 45  45 4e 29 0d 2f 1c 1c 20  |%,7,.GREEN)./.. |
00008680  f2 69 6e 66 6f 28 63 6f  6c 6f 75 72 25 2c 31 31  |.info(colour%,11|
00008690  2c c3 42 4c 55 45 29 0d  2f 26 05 e1 0d 2f 30 19  |,.BLUE)./&.../0.|
000086a0  dd f2 61 70 70 6c 69 63  61 74 69 6f 6e 5f 72 65  |..application_re|
000086b0  64 72 61 77 32 0d 2f 3a  14 52 45 44 3d 28 68 65  |draw2./:.RED=(he|
000086c0  78 3e 3e 38 29 80 26 46  46 0d 2f 44 17 47 52 45  |x>>8).&FF./D.GRE|
000086d0  45 4e 3d 28 68 65 78 3e  3e 31 36 29 80 26 46 46  |EN=(hex>>16).&FF|
000086e0  0d 2f 4e 16 42 4c 55 45  3d 28 68 65 78 3e 3e 32  |./N.BLUE=(hex>>2|
000086f0  34 29 80 26 46 46 0d 2f  58 1b 77 6f 72 6b 78 25  |4).&FF./X.workx%|
00008700  3d 62 6c 6f 63 6b 21 34  2d 62 6c 6f 63 6b 21 32  |=block!4-block!2|
00008710  30 0d 2f 62 1c 77 6f 72  6b 79 25 3d 62 6c 6f 63  |0./b.worky%=bloc|
00008720  6b 21 31 36 2d 62 6c 6f  63 6b 21 32 34 0d 2f 6c  |k!16-block!24./l|
00008730  29 c8 99 20 22 43 6f 6c  6f 75 72 54 72 61 6e 73  |).. "ColourTrans|
00008740  5f 53 65 74 47 43 4f 4c  22 2c 68 65 78 2c 2c 2c  |_SetGCOL",hex,,,|
00008750  26 31 30 30 2c 30 0d 2f  76 26 c8 93 20 c8 90 20  |&100,0./v&.. .. |
00008760  77 6f 72 6b 78 25 2b 32  33 34 2c 77 6f 72 6b 79  |workx%+234,worky|
00008770  25 2d 32 34 37 2c 31 37  35 2c 34 38 0d 2f 80 1b  |%-247,175,48./..|
00008780  c8 99 20 22 57 69 6d 70  5f 53 65 74 43 6f 6c 6f  |.. "Wimp_SetColo|
00008790  75 72 22 2c 31 2c 31 0d  2f 8a 28 20 c8 93 20 c8  |ur",1,1./.( .. .|
000087a0  90 20 77 6f 72 6b 78 25  2b 32 37 30 2c 77 6f 72  |. workx%+270,wor|
000087b0  6b 79 25 2d 31 37 30 2c  33 34 34 2c 31 34 37 0d  |ky%-170,344,147.|
000087c0  2f 94 30 20 c8 99 20 22  43 6f 6c 6f 75 72 54 72  |/.0 .. "ColourTr|
000087d0  61 6e 73 5f 53 65 74 47  43 4f 4c 22 2c 26 30 30  |ans_SetGCOL",&00|
000087e0  30 30 46 46 30 30 2c 2c  2c 26 31 30 30 2c 30 0d  |00FF00,,,&100,0.|
000087f0  2f 9e 30 20 c8 93 20 c8  90 20 77 6f 72 6b 78 25  |/.0 .. .. workx%|
00008800  2b 32 37 31 2c 77 6f 72  6b 79 25 2d 35 35 2c 28  |+271,worky%-55,(|
00008810  52 45 44 2f 32 35 35 29  2a 33 34 34 2c 33 32 0d  |RED/255)*344,32.|
00008820  2f a8 30 20 c8 99 20 22  43 6f 6c 6f 75 72 54 72  |/.0 .. "ColourTr|
00008830  61 6e 73 5f 53 65 74 47  43 4f 4c 22 2c 26 30 30  |ans_SetGCOL",&00|
00008840  46 46 30 30 30 30 2c 2c  2c 26 31 30 30 2c 30 0d  |FF0000,,,&100,0.|
00008850  2f b2 33 20 c8 93 20 c8  90 20 77 6f 72 6b 78 25  |/.3 .. .. workx%|
00008860  2b 32 37 31 2c 77 6f 72  6b 79 25 2d 31 31 31 2c  |+271,worky%-111,|
00008870  28 47 52 45 45 4e 2f 32  35 35 29 2a 33 34 34 2c  |(GREEN/255)*344,|
00008880  33 32 0d 2f bc 30 20 c8  99 20 22 43 6f 6c 6f 75  |32./.0 .. "Colou|
00008890  72 54 72 61 6e 73 5f 53  65 74 47 43 4f 4c 22 2c  |rTrans_SetGCOL",|
000088a0  26 46 46 30 30 30 30 30  30 2c 2c 2c 26 31 30 30  |&FF000000,,,&100|
000088b0  2c 30 0d 2f c6 32 20 c8  93 20 c8 90 20 77 6f 72  |,0./.2 .. .. wor|
000088c0  6b 78 25 2b 32 37 31 2c  77 6f 72 6b 79 25 2d 31  |kx%+271,worky%-1|
000088d0  36 37 2c 28 42 4c 55 45  2f 32 35 35 29 2a 33 34  |67,(BLUE/255)*34|
000088e0  34 2c 33 32 0d 2f d0 47  c8 99 20 22 43 6f 6c 6f  |4,32./.G.. "Colo|
000088f0  75 72 54 72 61 6e 73 5f  53 65 74 47 43 4f 4c 22  |urTrans_SetGCOL"|
00008900  2c 30 2c 2c 2c 26 31 30  30 2c 30 3a c8 93 20 77  |,0,,,&100,0:.. w|
00008910  6f 72 6b 78 25 2b 32 33  33 2c 77 6f 72 6b 79 25  |orkx%+233,worky%|
00008920  2d 32 34 38 2c 31 37 36  2c 34 39 0d 2f da 22 c8  |-248,176,49./.".|
00008930  93 20 77 6f 72 6b 78 25  2b 32 37 30 2c 77 6f 72  |. workx%+270,wor|
00008940  6b 79 25 2d 35 38 2c 33  34 34 2c 33 34 0d 2f e4  |ky%-58,344,34./.|
00008950  23 c8 93 20 77 6f 72 6b  78 25 2b 32 37 30 2c 77  |#.. workx%+270,w|
00008960  6f 72 6b 79 25 2d 31 31  34 2c 33 34 34 2c 33 34  |orky%-114,344,34|
00008970  0d 2f ee 23 c8 93 20 77  6f 72 6b 78 25 2b 32 37  |./.#.. workx%+27|
00008980  30 2c 77 6f 72 6b 79 25  2d 31 37 30 2c 33 34 34  |0,worky%-170,344|
00008990  2c 33 34 0d 2f f8 0e 67  65 65 63 6f 6c 3d 68 65  |,34./..geecol=he|
000089a0  78 0d 30 02 05 e1 0d 30  0c 0e 20 dd f2 64 72 61  |x.0....0.. ..dra|
000089b0  67 63 6f 6c 0d 30 16 13  20 21 62 6c 6f 63 6b 3d  |gcol.0.. !block=|
000089c0  63 6f 6c 6f 75 72 25 0d  30 20 21 c8 99 22 57 69  |colour%.0 !.."Wi|
000089d0  6d 70 5f 47 65 74 57 69  6e 64 6f 77 49 6e 66 6f  |mp_GetWindowInfo|
000089e0  22 2c 2c 62 6c 6f 63 6b  0d 30 2a 1b 77 6f 72 6b  |",,block.0*.work|
000089f0  78 25 3d 62 6c 6f 63 6b  21 34 2d 62 6c 6f 63 6b  |x%=block!4-block|
00008a00  21 32 30 0d 30 34 1c 77  6f 72 6b 79 25 3d 62 6c  |!20.04.worky%=bl|
00008a10  6f 63 6b 21 31 36 2d 62  6c 6f 63 6b 21 32 34 0d  |ock!16-block!24.|
00008a20  30 3e 0d 20 c8 97 20 72  2c 73 2c 74 0d 30 48 49  |0>. .. r,s,t.0HI|
00008a30  20 e7 20 72 3e 77 6f 72  6b 78 25 2b 32 36 38 20  | . r>workx%+268 |
00008a40  80 20 72 3c 77 6f 72 6b  78 25 2b 32 36 38 2b 33  |. r<workx%+268+3|
00008a50  34 38 20 80 20 73 3e 77  6f 72 6b 79 25 2d 35 38  |48 . s>worky%-58|
00008a60  20 80 20 73 3c 77 6f 72  6b 79 25 2d 28 35 38 2d  | . s<worky%-(58-|
00008a70  33 35 29 20 8c 0d 30 52  26 20 c8 97 20 c8 93 20  |35) ..0R& .. .. |
00008a80  77 6f 72 6b 78 25 2b 32  37 30 2c 77 6f 72 6b 79  |workx%+270,worky|
00008a90  25 2d 35 37 2c 33 34 34  2c 33 30 0d 30 5c 26 6e  |%-57,344,30.0\&n|
00008aa0  72 65 64 3d a8 28 28 28  72 2d 28 77 6f 72 6b 78  |red=.(((r-(workx|
00008ab0  25 2b 32 37 30 29 29 2f  33 34 34 29 2a 32 35 35  |%+270))/344)*255|
00008ac0  29 0d 30 66 14 e7 20 6e  72 65 64 3d 2d 31 20 6e  |).0f.. nred=-1 n|
00008ad0  72 65 64 3d 30 0d 30 70  1a f2 69 6e 66 6f 28 63  |red=0.0p..info(c|
00008ae0  6f 6c 6f 75 72 25 2c 33  2c c3 6e 72 65 64 29 0d  |olour%,3,.nred).|
00008af0  30 7a 0c 52 45 44 3d 6e  72 65 64 0d 30 84 1b c8  |0z.RED=nred.0...|
00008b00  99 20 22 57 69 6d 70 5f  53 65 74 43 6f 6c 6f 75  |. "Wimp_SetColou|
00008b10  72 22 2c 31 2c 31 0d 30  8e 41 c8 93 20 c8 90 20  |r",1,1.0.A.. .. |
00008b20  77 6f 72 6b 78 25 2b 32  37 32 2b 28 52 45 44 2f  |workx%+272+(RED/|
00008b30  32 35 35 29 2a 33 34 34  2c 77 6f 72 6b 79 25 2d  |255)*344,worky%-|
00008b40  35 35 2c 33 34 32 2d 28  52 45 44 2f 32 35 35 29  |55,342-(RED/255)|
00008b50  2a 33 34 34 2c 33 30 0d  30 98 2f c8 99 20 22 43  |*344,30.0./.. "C|
00008b60  6f 6c 6f 75 72 54 72 61  6e 73 5f 53 65 74 47 43  |olourTrans_SetGC|
00008b70  4f 4c 22 2c 26 30 30 30  30 46 46 30 30 2c 2c 2c  |OL",&0000FF00,,,|
00008b80  26 31 30 30 2c 30 0d 30  a2 2f c8 93 20 c8 90 20  |&100,0.0./.. .. |
00008b90  77 6f 72 6b 78 25 2b 32  37 30 2c 77 6f 72 6b 79  |workx%+270,worky|
00008ba0  25 2d 35 35 2c 28 52 45  44 2f 32 35 35 29 2a 33  |%-55,(RED/255)*3|
00008bb0  34 34 2c 33 30 0d 30 ac  27 c8 99 20 22 43 6f 6c  |44,30.0.'.. "Col|
00008bc0  6f 75 72 54 72 61 6e 73  5f 53 65 74 47 43 4f 4c  |ourTrans_SetGCOL|
00008bd0  22 2c 30 2c 2c 2c 26 31  30 30 2c 30 0d 30 b6 22  |",0,,,&100,0.0."|
00008be0  c8 93 20 77 6f 72 6b 78  25 2b 32 37 30 2c 77 6f  |.. workx%+270,wo|
00008bf0  72 6b 79 25 2d 35 38 2c  33 34 34 2c 33 34 0d 30  |rky%-58,344,34.0|
00008c00  c0 27 68 65 78 3d 28 42  4c 55 45 3c 3c 32 34 29  |.'hex=(BLUE<<24)|
00008c10  2b 28 47 52 45 45 4e 3c  3c 31 36 29 2b 28 52 45  |+(GREEN<<16)+(RE|
00008c20  44 3c 3c 38 29 0d 30 ca  29 c8 99 20 22 43 6f 6c  |D<<8).0.).. "Col|
00008c30  6f 75 72 54 72 61 6e 73  5f 53 65 74 47 43 4f 4c  |ourTrans_SetGCOL|
00008c40  22 2c 68 65 78 2c 2c 2c  26 31 30 30 2c 30 0d 30  |",hex,,,&100,0.0|
00008c50  d4 26 c8 93 20 c8 90 20  77 6f 72 6b 78 25 2b 32  |.&.. .. workx%+2|
00008c60  33 34 2c 77 6f 72 6b 79  25 2d 32 34 37 2c 31 37  |34,worky%-247,17|
00008c70  35 2c 34 38 0d 30 de 47  c8 99 20 22 43 6f 6c 6f  |5,48.0.G.. "Colo|
00008c80  75 72 54 72 61 6e 73 5f  53 65 74 47 43 4f 4c 22  |urTrans_SetGCOL"|
00008c90  2c 30 2c 2c 2c 26 31 30  30 2c 30 3a c8 93 20 77  |,0,,,&100,0:.. w|
00008ca0  6f 72 6b 78 25 2b 32 33  33 2c 77 6f 72 6b 79 25  |orkx%+233,worky%|
00008cb0  2d 32 34 38 2c 31 37 36  2c 34 39 0d 30 e8 21 c8  |-248,176,49.0.!.|
00008cc0  97 20 72 2c 73 2c 74 3a  e7 20 74 3d 31 20 84 20  |. r,s,t:. t=1 . |
00008cd0  74 3d 34 20 f2 64 72 61  67 63 6f 6c 0d 30 f2 09  |t=4 .dragcol.0..|
00008ce0  f2 4d 6f 64 65 0d 30 fc  1b c8 97 20 c8 93 20 30  |.Mode.0.... .. 0|
00008cf0  2c 30 2c 78 6d 61 78 2d  31 2c 79 6d 61 78 2d 31  |,0,xmax-1,ymax-1|
00008d00  0d 31 06 06 20 e1 0d 31  10 05 cd 0d 31 1a 4a e7  |.1.. ..1....1.J.|
00008d10  20 72 3e 77 6f 72 6b 78  25 2b 32 36 38 20 80 20  | r>workx%+268 . |
00008d20  72 3c 77 6f 72 6b 78 25  2b 32 36 38 2b 33 34 38  |r<workx%+268+348|
00008d30  20 80 20 73 3e 77 6f 72  6b 79 25 2d 31 31 34 20  | . s>worky%-114 |
00008d40  80 20 73 3c 77 6f 72 6b  79 25 2d 28 31 31 34 2d  |. s<worky%-(114-|
00008d50  33 35 29 20 8c 0d 31 24  26 c8 97 20 c8 93 20 77  |35) ..1$&.. .. w|
00008d60  6f 72 6b 78 25 2b 32 37  30 2c 77 6f 72 6b 79 25  |orkx%+270,worky%|
00008d70  2d 31 31 32 2c 33 34 34  2c 33 30 0d 31 2e 28 6e  |-112,344,30.1.(n|
00008d80  67 72 65 65 6e 3d a8 28  28 28 72 2d 28 77 6f 72  |green=.(((r-(wor|
00008d90  6b 78 25 2b 32 37 30 29  29 2f 33 34 34 29 2a 32  |kx%+270))/344)*2|
00008da0  35 35 29 0d 31 38 18 e7  20 6e 67 72 65 65 6e 3d  |55).18.. ngreen=|
00008db0  2d 31 20 6e 67 72 65 65  6e 3d 30 0d 31 42 1c f2  |-1 ngreen=0.1B..|
00008dc0  69 6e 66 6f 28 63 6f 6c  6f 75 72 25 2c 37 2c c3  |info(colour%,7,.|
00008dd0  6e 67 72 65 65 6e 29 0d  31 4c 10 47 52 45 45 4e  |ngreen).1L.GREEN|
00008de0  3d 6e 67 72 65 65 6e 0d  31 56 1b c8 99 20 22 57  |=ngreen.1V... "W|
00008df0  69 6d 70 5f 53 65 74 43  6f 6c 6f 75 72 22 2c 31  |imp_SetColour",1|
00008e00  2c 31 0d 31 60 46 c8 93  20 c8 90 20 77 6f 72 6b  |,1.1`F.. .. work|
00008e10  78 25 2b 32 37 32 2b 28  47 52 45 45 4e 2f 32 35  |x%+272+(GREEN/25|
00008e20  35 29 2a 33 34 34 2c 77  6f 72 6b 79 25 2d 31 31  |5)*344,worky%-11|
00008e30  31 2c 33 34 32 2d 28 47  52 45 45 4e 2f 32 35 35  |1,342-(GREEN/255|
00008e40  29 2a 33 34 34 2c 33 30  0d 31 6a 2f c8 99 20 22  |)*344,30.1j/.. "|
00008e50  43 6f 6c 6f 75 72 54 72  61 6e 73 5f 53 65 74 47  |ColourTrans_SetG|
00008e60  43 4f 4c 22 2c 26 30 30  46 46 30 30 30 30 2c 2c  |COL",&00FF0000,,|
00008e70  2c 26 31 30 30 2c 30 0d  31 74 32 c8 93 20 c8 90  |,&100,0.1t2.. ..|
00008e80  20 77 6f 72 6b 78 25 2b  32 37 31 2c 77 6f 72 6b  | workx%+271,work|
00008e90  79 25 2d 31 31 31 2c 28  47 52 45 45 4e 2f 32 35  |y%-111,(GREEN/25|
00008ea0  35 29 2a 33 34 34 2c 33  30 0d 31 7e 27 c8 99 20  |5)*344,30.1~'.. |
00008eb0  22 43 6f 6c 6f 75 72 54  72 61 6e 73 5f 53 65 74  |"ColourTrans_Set|
00008ec0  47 43 4f 4c 22 2c 30 2c  2c 2c 26 31 30 30 2c 30  |GCOL",0,,,&100,0|
00008ed0  0d 31 88 23 c8 93 20 77  6f 72 6b 78 25 2b 32 37  |.1.#.. workx%+27|
00008ee0  30 2c 77 6f 72 6b 79 25  2d 31 31 34 2c 33 34 34  |0,worky%-114,344|
00008ef0  2c 33 34 0d 31 92 27 68  65 78 3d 28 42 4c 55 45  |,34.1.'hex=(BLUE|
00008f00  3c 3c 32 34 29 2b 28 47  52 45 45 4e 3c 3c 31 36  |<<24)+(GREEN<<16|
00008f10  29 2b 28 52 45 44 3c 3c  38 29 0d 31 9c 29 c8 99  |)+(RED<<8).1.)..|
00008f20  20 22 43 6f 6c 6f 75 72  54 72 61 6e 73 5f 53 65  | "ColourTrans_Se|
00008f30  74 47 43 4f 4c 22 2c 68  65 78 2c 2c 2c 26 31 30  |tGCOL",hex,,,&10|
00008f40  30 2c 30 0d 31 a6 26 c8  93 20 c8 90 20 77 6f 72  |0,0.1.&.. .. wor|
00008f50  6b 78 25 2b 32 33 34 2c  77 6f 72 6b 79 25 2d 32  |kx%+234,worky%-2|
00008f60  34 37 2c 31 37 35 2c 34  38 0d 31 b0 47 c8 99 20  |47,175,48.1.G.. |
00008f70  22 43 6f 6c 6f 75 72 54  72 61 6e 73 5f 53 65 74  |"ColourTrans_Set|
00008f80  47 43 4f 4c 22 2c 30 2c  2c 2c 26 31 30 30 2c 30  |GCOL",0,,,&100,0|
00008f90  3a c8 93 20 77 6f 72 6b  78 25 2b 32 33 33 2c 77  |:.. workx%+233,w|
00008fa0  6f 72 6b 79 25 2d 32 34  38 2c 31 37 36 2c 34 39  |orky%-248,176,49|
00008fb0  0d 31 ba 21 c8 97 20 72  2c 73 2c 74 3a e7 20 74  |.1.!.. r,s,t:. t|
00008fc0  3d 31 20 84 20 74 3d 34  20 f2 64 72 61 67 63 6f  |=1 . t=4 .dragco|
00008fd0  6c 0d 31 c4 09 f2 4d 6f  64 65 0d 31 ce 1b c8 97  |l.1...Mode.1....|
00008fe0  20 c8 93 20 30 2c 30 2c  78 6d 61 78 2d 31 2c 79  | .. 0,0,xmax-1,y|
00008ff0  6d 61 78 2d 31 0d 31 d8  05 e1 0d 31 e2 05 cd 0d  |max-1.1....1....|
00009000  31 ec 4a e7 20 72 3e 77  6f 72 6b 78 25 2b 32 36  |1.J. r>workx%+26|
00009010  38 20 80 20 72 3c 77 6f  72 6b 78 25 2b 32 36 38  |8 . r<workx%+268|
00009020  2b 33 34 38 20 80 20 73  3e 77 6f 72 6b 79 25 2d  |+348 . s>worky%-|
00009030  31 37 30 20 80 20 73 3c  77 6f 72 6b 79 25 2d 28  |170 . s<worky%-(|
00009040  31 37 30 2d 33 35 29 20  8c 0d 31 f6 26 c8 97 20  |170-35) ..1.&.. |
00009050  c8 93 20 77 6f 72 6b 78  25 2b 32 37 30 2c 77 6f  |.. workx%+270,wo|
00009060  72 6b 79 25 2d 31 36 38  2c 33 34 34 2c 33 30 0d  |rky%-168,344,30.|
00009070  32 00 27 6e 62 6c 75 65  3d a8 28 28 28 72 2d 28  |2.'nblue=.(((r-(|
00009080  77 6f 72 6b 78 25 2b 32  37 30 29 29 2f 33 34 34  |workx%+270))/344|
00009090  29 2a 32 35 35 29 0d 32  0a 16 e7 20 6e 62 6c 75  |)*255).2... nblu|
000090a0  65 3d 2d 31 20 6e 62 6c  75 65 3d 30 0d 32 14 0e  |e=-1 nblue=0.2..|
000090b0  42 4c 55 45 3d 6e 62 6c  75 65 0d 32 1e 1c f2 69  |BLUE=nblue.2...i|
000090c0  6e 66 6f 28 63 6f 6c 6f  75 72 25 2c 31 31 2c c3  |nfo(colour%,11,.|
000090d0  6e 62 6c 75 65 29 0d 32  28 1b c8 99 20 22 57 69  |nblue).2(... "Wi|
000090e0  6d 70 5f 53 65 74 43 6f  6c 6f 75 72 22 2c 31 2c  |mp_SetColour",1,|
000090f0  31 0d 32 32 46 c8 93 20  c8 90 20 77 6f 72 6b 78  |1.22F.. .. workx|
00009100  25 2b 32 37 32 2b 28 42  4c 55 45 2f 32 35 35 29  |%+272+(BLUE/255)|
00009110  2a 33 34 34 2c 77 6f 72  6b 79 25 2d 31 36 37 2c  |*344,worky%-167,|
00009120  33 34 32 2d 28 28 42 4c  55 45 2f 32 35 35 29 2a  |342-((BLUE/255)*|
00009130  33 34 34 29 2c 33 30 0d  32 3c 2f c8 99 20 22 43  |344),30.2</.. "C|
00009140  6f 6c 6f 75 72 54 72 61  6e 73 5f 53 65 74 47 43  |olourTrans_SetGC|
00009150  4f 4c 22 2c 26 46 46 30  30 30 30 30 30 2c 2c 2c  |OL",&FF000000,,,|
00009160  26 31 30 30 2c 30 0d 32  46 31 c8 93 20 c8 90 20  |&100,0.2F1.. .. |
00009170  77 6f 72 6b 78 25 2b 32  37 30 2c 77 6f 72 6b 79  |workx%+270,worky|
00009180  25 2d 31 36 37 2c 28 42  4c 55 45 2f 32 35 35 29  |%-167,(BLUE/255)|
00009190  2a 33 34 34 2c 33 30 0d  32 50 27 c8 99 20 22 43  |*344,30.2P'.. "C|
000091a0  6f 6c 6f 75 72 54 72 61  6e 73 5f 53 65 74 47 43  |olourTrans_SetGC|
000091b0  4f 4c 22 2c 30 2c 2c 2c  26 31 30 30 2c 30 0d 32  |OL",0,,,&100,0.2|
000091c0  5a 23 c8 93 20 77 6f 72  6b 78 25 2b 32 37 30 2c  |Z#.. workx%+270,|
000091d0  77 6f 72 6b 79 25 2d 31  37 30 2c 33 34 34 2c 33  |worky%-170,344,3|
000091e0  34 0d 32 64 27 68 65 78  3d 28 42 4c 55 45 3c 3c  |4.2d'hex=(BLUE<<|
000091f0  32 34 29 2b 28 47 52 45  45 4e 3c 3c 31 36 29 2b  |24)+(GREEN<<16)+|
00009200  28 52 45 44 3c 3c 38 29  0d 32 6e 29 c8 99 20 22  |(RED<<8).2n).. "|
00009210  43 6f 6c 6f 75 72 54 72  61 6e 73 5f 53 65 74 47  |ColourTrans_SetG|
00009220  43 4f 4c 22 2c 68 65 78  2c 2c 2c 26 31 30 30 2c  |COL",hex,,,&100,|
00009230  30 0d 32 78 26 c8 93 20  c8 90 20 77 6f 72 6b 78  |0.2x&.. .. workx|
00009240  25 2b 32 33 34 2c 77 6f  72 6b 79 25 2d 32 34 37  |%+234,worky%-247|
00009250  2c 31 37 35 2c 34 38 0d  32 82 47 c8 99 20 22 43  |,175,48.2.G.. "C|
00009260  6f 6c 6f 75 72 54 72 61  6e 73 5f 53 65 74 47 43  |olourTrans_SetGC|
00009270  4f 4c 22 2c 30 2c 2c 2c  26 31 30 30 2c 30 3a c8  |OL",0,,,&100,0:.|
00009280  93 20 77 6f 72 6b 78 25  2b 32 33 33 2c 77 6f 72  |. workx%+233,wor|
00009290  6b 79 25 2d 32 34 38 2c  31 37 36 2c 34 39 0d 32  |ky%-248,176,49.2|
000092a0  8c 0a f4 20 42 6c 75 65  0d 32 96 21 c8 97 20 72  |... Blue.2.!.. r|
000092b0  2c 73 2c 74 3a e7 20 74  3d 31 20 84 20 74 3d 34  |,s,t:. t=1 . t=4|
000092c0  20 f2 64 72 61 67 63 6f  6c 0d 32 a0 09 f2 4d 6f  | .dragcol.2...Mo|
000092d0  64 65 0d 32 aa 1b c8 97  20 c8 93 20 30 2c 30 2c  |de.2.... .. 0,0,|
000092e0  78 6d 61 78 2d 31 2c 79  6d 61 78 2d 31 0d 32 b4  |xmax-1,ymax-1.2.|
000092f0  05 e1 0d 32 be 05 cd 0d  32 c8 05 e1 0d 32 d2 0d  |...2....2....2..|
00009300  dd f2 61 70 70 5f 72 65  33 0d 32 dc 1c 20 77 6f  |..app_re3.2.. wo|
00009310  72 6b 78 25 3d 62 6c 6f  63 6b 21 34 2d 62 6c 6f  |rkx%=block!4-blo|
00009320  63 6b 21 32 30 0d 32 e6  1d 20 77 6f 72 6b 79 25  |ck!20.2.. worky%|
00009330  3d 62 6c 6f 63 6b 21 31  36 2d 62 6c 6f 63 6b 21  |=block!16-block!|
00009340  32 34 0d 32 f0 2d c8 99  20 22 43 6f 6c 6f 75 72  |24.2.-.. "Colour|
00009350  54 72 61 6e 73 5f 53 65  74 47 43 4f 4c 22 2c 68  |Trans_SetGCOL",h|
00009360  65 78 63 28 31 29 2c 2c  2c 26 31 30 30 2c 30 0d  |exc(1),,,&100,0.|
00009370  32 fa 25 c8 93 20 c8 90  20 77 6f 72 6b 78 25 2b  |2.%.. .. workx%+|
00009380  31 31 32 32 2c 77 6f 72  6b 79 25 2d 35 38 2c 35  |1122,worky%-58,5|
00009390  30 2c 34 32 0d 33 04 2d  c8 99 20 22 43 6f 6c 6f  |0,42.3.-.. "Colo|
000093a0  75 72 54 72 61 6e 73 5f  53 65 74 47 43 4f 4c 22  |urTrans_SetGCOL"|
000093b0  2c 68 65 78 63 28 32 29  2c 2c 2c 26 31 30 30 2c  |,hexc(2),,,&100,|
000093c0  30 0d 33 0e 26 c8 93 20  c8 90 20 77 6f 72 6b 78  |0.3.&.. .. workx|
000093d0  25 2b 31 31 32 32 2c 77  6f 72 6b 79 25 2d 31 31  |%+1122,worky%-11|
000093e0  36 2c 35 30 2c 34 32 0d  33 18 2d c8 99 20 22 43  |6,50,42.3.-.. "C|
000093f0  6f 6c 6f 75 72 54 72 61  6e 73 5f 53 65 74 47 43  |olourTrans_SetGC|
00009400  4f 4c 22 2c 68 65 78 63  28 33 29 2c 2c 2c 26 31  |OL",hexc(3),,,&1|
00009410  30 30 2c 30 0d 33 22 26  c8 93 20 c8 90 20 77 6f  |00,0.3"&.. .. wo|
00009420  72 6b 78 25 2b 31 31 32  32 2c 77 6f 72 6b 79 25  |rkx%+1122,worky%|
00009430  2d 31 38 30 2c 35 30 2c  34 32 0d 33 2c 2d c8 99  |-180,50,42.3,-..|
00009440  20 22 43 6f 6c 6f 75 72  54 72 61 6e 73 5f 53 65  | "ColourTrans_Se|
00009450  74 47 43 4f 4c 22 2c 68  65 78 63 28 34 29 2c 2c  |tGCOL",hexc(4),,|
00009460  2c 26 31 30 30 2c 30 0d  33 36 26 c8 93 20 c8 90  |,&100,0.36&.. ..|
00009470  20 77 6f 72 6b 78 25 2b  31 31 32 32 2c 77 6f 72  | workx%+1122,wor|
00009480  6b 79 25 2d 34 33 30 2c  35 30 2c 34 32 0d 33 40  |ky%-430,50,42.3@|
00009490  13 e7 20 63 75 72 73 70  72 24 3c 3e 22 22 20 8c  |.. curspr$<>"" .|
000094a0  0d 33 4a 2d c8 99 20 22  43 6f 6c 6f 75 72 54 72  |.3J-.. "ColourTr|
000094b0  61 6e 73 5f 53 65 74 47  43 4f 4c 22 2c 68 65 78  |ans_SetGCOL",hex|
000094c0  63 28 30 29 2c 2c 2c 26  31 30 30 2c 30 0d 33 54  |c(0),,,&100,0.3T|
000094d0  27 c8 93 20 c8 90 20 77  6f 72 6b 78 25 2b 34 30  |'.. .. workx%+40|
000094e0  30 2c 77 6f 72 6b 79 25  2d 33 35 32 2c 31 36 33  |0,worky%-352,163|
000094f0  2c 31 34 34 0d 33 5e 34  c8 99 20 26 32 45 2c 32  |,144.3^4.. &2E,2|
00009500  35 36 2b 34 30 2c 73 70  72 25 2c 63 75 72 73 70  |56+40,spr%,cursp|
00009510  72 24 20 b8 20 41 2c 42  2c 43 2c 77 25 2c 68 25  |r$ . A,B,C,w%,h%|
00009520  2c 44 2c 6d 6f 64 65 25  0d 33 68 2e c8 99 22 4f  |,D,mode%.3h..."O|
00009530  53 5f 52 65 61 64 4d 6f  64 65 56 61 72 69 61 62  |S_ReadModeVariab|
00009540  6c 65 22 2c 6d 6f 64 65  25 2c 33 20 b8 63 2c 63  |le",mode%,3 .c,c|
00009550  6c 2c 63 6f 6c 73 0d 33  72 2c c8 99 22 4f 53 5f  |l,cols.3r,.."OS_|
00009560  52 65 61 64 4d 6f 64 65  56 61 72 69 61 62 6c 65  |ReadModeVariable|
00009570  22 2c 6d 6f 64 65 25 2c  34 20 b8 2c 2c 78 65 69  |",mode%,4 .,,xei|
00009580  67 25 0d 33 7c 2c c8 99  22 4f 53 5f 52 65 61 64  |g%.3|,.."OS_Read|
00009590  4d 6f 64 65 56 61 72 69  61 62 6c 65 22 2c 6d 6f  |ModeVariable",mo|
000095a0  64 65 25 2c 35 20 b8 2c  2c 79 65 69 67 25 0d 33  |de%,5 .,,yeig%.3|
000095b0  86 11 77 69 25 3d 77 25  3c 3c 78 65 69 67 25 0d  |..wi%=w%<<xeig%.|
000095c0  33 90 11 68 65 25 3d 68  25 3c 3c 79 65 69 67 25  |3..he%=h%<<yeig%|
000095d0  0d 33 9a 13 e7 20 21 28  34 2b 73 70 72 25 29 3e  |.3... !(4+spr%)>|
000095e0  30 20 8c 0d 33 a4 15 e7  20 21 28 34 38 2b 73 70  |0 ..3... !(48+sp|
000095f0  72 25 29 3e 34 34 20 8c  0d 33 ae 11 e3 20 63 6f  |r%)>44 ..3... co|
00009600  6c 25 3d 30 20 b8 20 31  35 0d 33 b8 27 70 61 6c  |l%=0 . 15.3.'pal|
00009610  65 74 74 65 25 21 28 63  6f 6c 25 2a 34 29 3d 21  |ette%!(col%*4)=!|
00009620  28 36 30 2b 63 6f 6c 25  2a 38 2b 73 70 72 25 29  |(60+col%*8+spr%)|
00009630  0d 33 c2 0a ed 20 63 6f  6c 25 0d 33 cc 44 c8 99  |.3... col%.3.D..|
00009640  20 22 43 6f 6c 6f 75 72  54 72 61 6e 73 5f 53 65  | "ColourTrans_Se|
00009650  6c 65 63 74 54 61 62 6c  65 22 2c 21 28 35 36 2b  |lectTable",!(56+|
00009660  73 70 72 25 29 2c 70 61  6c 65 74 74 65 25 2c 2d  |spr%),palette%,-|
00009670  31 2c 2d 31 2c 73 63 61  6c 62 6c 6f 6b 25 0d 33  |1,-1,scalblok%.3|
00009680  d6 05 cc 0d 33 e0 43 c8  99 20 22 43 6f 6c 6f 75  |....3.C.. "Colou|
00009690  72 54 72 61 6e 73 5f 53  65 6c 65 63 74 54 61 62  |rTrans_SelectTab|
000096a0  6c 65 22 2c 21 28 35 36  2b 73 70 72 25 29 2c 64  |le",!(56+spr%),d|
000096b0  65 66 70 61 6c 25 2c 2d  31 2c 2d 31 2c 73 63 61  |efpal%,-1,-1,sca|
000096c0  6c 62 6c 6f 6b 25 0d 33  ea 05 cd 0d 33 f4 05 cd  |lblok%.3....3...|
000096d0  0d 33 fe 11 78 6f 66 66  3d 30 3a 79 6f 66 66 3d  |.3..xoff=0:yoff=|
000096e0  30 0d 34 08 13 e7 20 a4  76 67 61 28 6d 6f 64 65  |0.4... .vga(mode|
000096f0  25 29 20 8c 0d 34 12 1f  e7 20 68 25 3e 77 25 20  |%) ..4... h%>w% |
00009700  73 68 65 61 72 3d 37 32  20 8b 20 73 68 65 61 72  |shear=72 . shear|
00009710  3d 38 32 0d 34 1c 05 cc  0d 34 26 23 e7 20 28 68  |=82.4....4&#. (h|
00009720  25 2a 32 29 3e 77 25 20  73 68 65 61 72 3d 33 36  |%*2)>w% shear=36|
00009730  20 8b 20 73 68 65 61 72  3d 38 32 0d 34 30 05 cd  | . shear=82.40..|
00009740  0d 34 3a 25 c8 99 22 4f  53 5f 52 65 61 64 4d 6f  |.4:%.."OS_ReadMo|
00009750  64 65 56 61 72 69 61 62  6c 65 22 2c eb 2c 31 31  |deVariable",.,11|
00009760  20 b8 2c 2c 43 0d 34 44  25 c8 99 22 4f 53 5f 52  | .,,C.4D%.."OS_R|
00009770  65 61 64 4d 6f 64 65 56  61 72 69 61 62 6c 65 22  |eadModeVariable"|
00009780  2c eb 2c 31 32 20 b8 2c  2c 42 0d 34 4e 0d 43 2b  |,.,12 .,,B.4N.C+|
00009790  3d 31 3a 42 2b 3d 31 0d  34 58 43 e7 20 42 2f 43  |=1:B+=1.4XC. B/C|
000097a0  3d 2e 38 20 80 20 a4 76  67 61 28 6d 6f 64 65 25  |=.8 . .vga(mode%|
000097b0  29 20 8c 20 68 73 63 61  6c 65 3d 31 3a 20 f4 20  |) . hscale=1: . |
000097c0  31 20 6d 65 61 6e 73 20  56 47 41 2c 20 73 71 75  |1 means VGA, squ|
000097d0  61 72 65 20 70 69 78 65  6c 73 0d 34 62 26 e7 20  |are pixels.4b&. |
000097e0  42 2f 43 3d 2e 37 35 20  80 20 a4 76 67 61 28 6d  |B/C=.75 . .vga(m|
000097f0  6f 64 65 25 29 20 8c 20  68 73 63 61 6c 65 3d 31  |ode%) . hscale=1|
00009800  0d 34 6c 2f e7 20 42 2f  43 3c 3e 2e 38 20 80 20  |.4l/. B/C<>.8 . |
00009810  42 2f 43 3c 3e 2e 37 35  20 80 20 a4 76 67 61 28  |B/C<>.75 . .vga(|
00009820  6d 6f 64 65 25 29 20 68  73 63 61 6c 65 3d 32 0d  |mode%) hscale=2.|
00009830  34 76 2a e7 20 42 2f 43  3d 2e 38 20 84 20 42 2f  |4v*. B/C=.8 . B/|
00009840  43 3d 2e 37 35 20 8c 20  6d 6f 64 73 63 3d 31 20  |C=.75 . modsc=1 |
00009850  8b 20 6d 6f 64 73 63 3d  32 0d 34 80 24 53 68 65  |. modsc=2.4.$She|
00009860  61 72 3d a4 63 68 65 63  6b 66 6c 61 67 28 64 65  |ar=.checkflag(de|
00009870  74 61 69 6c 73 25 2c 32  39 2c 32 31 29 0d 34 8a  |tails%,29,21).4.|
00009880  0e c8 8e 20 53 68 65 61  72 20 ca 0d 34 94 07 c9  |... Shear ..4...|
00009890  20 a3 0d 34 9e 27 e7 20  42 2f 43 3d 2e 38 20 80  | ..4.'. B/C=.8 .|
000098a0  20 ac 20 a4 76 67 61 28  6d 6f 64 65 25 29 20 8c  | . .vga(mode%) .|
000098b0  20 68 73 63 61 6c 65 3d  31 0d 34 a8 28 e7 20 42  | hscale=1.4.(. B|
000098c0  2f 43 3d 2e 37 35 20 80  20 ac 20 a4 76 67 61 28  |/C=.75 . . .vga(|
000098d0  6d 6f 64 65 25 29 20 8c  20 68 73 63 61 6c 65 3d  |mode%) . hscale=|
000098e0  31 0d 34 b2 31 e7 20 42  2f 43 3c 3e 2e 38 20 80  |1.4.1. B/C<>.8 .|
000098f0  20 42 2f 43 3c 3e 2e 37  35 20 80 20 ac 20 a4 76  | B/C<>.75 . . .v|
00009900  67 61 28 6d 6f 64 65 25  29 20 68 73 63 61 6c 65  |ga(mode%) hscale|
00009910  3d 32 0d 34 bc 40 e7 20  77 25 3e 38 32 20 80 20  |=2.4.@. w%>82 . |
00009920  68 25 3e 37 32 20 80 20  68 25 3c 77 25 20 8c 20  |h%>72 . h%<w% . |
00009930  53 43 77 3d 77 25 2f 73  68 65 61 72 3a 53 43 68  |SCw=w%/shear:SCh|
00009940  3d 77 25 2f 28 73 68 65  61 72 2f 68 73 63 61 6c  |=w%/(shear/hscal|
00009950  65 29 0d 34 c6 40 e7 20  77 25 3e 38 32 20 80 20  |e).4.@. w%>82 . |
00009960  68 25 3e 37 32 20 80 20  68 25 3e 77 25 20 8c 20  |h%>72 . h%>w% . |
00009970  53 43 77 3d 68 25 2f 73  68 65 61 72 3a 53 43 68  |SCw=h%/shear:SCh|
00009980  3d 68 25 2f 28 73 68 65  61 72 2f 68 73 63 61 6c  |=h%/(shear/hscal|
00009990  65 29 0d 34 d0 28 e7 20  77 25 3e 38 32 20 80 20  |e).4.(. w%>82 . |
000099a0  68 25 3c 37 32 20 8c 20  53 43 77 3d 77 25 2f 73  |h%<72 . SCw=w%/s|
000099b0  68 65 61 72 3a 53 43 68  3d 31 0d 34 da 31 e7 20  |hear:SCh=1.4.1. |
000099c0  77 25 3c 38 32 20 80 20  68 25 3e 37 32 20 8c 20  |w%<82 . h%>72 . |
000099d0  53 43 77 3d 31 3a 53 43  68 3d 68 25 2f 28 73 68  |SCw=1:SCh=h%/(sh|
000099e0  65 61 72 2f 68 73 63 61  6c 65 29 0d 34 e4 0d e7  |ear/hscale).4...|
000099f0  20 66 6f 72 63 65 20 8c  0d 34 ee 4e e7 20 77 25  | force ..4.N. w%|
00009a00  3c 38 32 20 80 20 68 25  3c 37 32 20 80 20 68 25  |<82 . h%<72 . h%|
00009a10  3c 77 25 20 80 20 a4 76  67 61 28 6d 6f 64 65 25  |<w% . .vga(mode%|
00009a20  29 20 8c 20 53 43 77 3d  77 25 2f 73 68 65 61 72  |) . SCw=w%/shear|
00009a30  3a 53 43 68 3d 77 25 2f  28 73 68 65 61 72 2f 68  |:SCh=w%/(shear/h|
00009a40  73 63 61 6c 65 29 0d 34  f8 4e e7 20 77 25 3c 38  |scale).4.N. w%<8|
00009a50  32 20 80 20 68 25 3c 37  32 20 80 20 68 25 3e 77  |2 . h%<72 . h%>w|
00009a60  25 20 80 20 a4 76 67 61  28 6d 6f 64 65 25 29 20  |% . .vga(mode%) |
00009a70  8c 20 53 43 77 3d 68 25  2f 73 68 65 61 72 3a 53  |. SCw=h%/shear:S|
00009a80  43 68 3d 68 25 2f 28 73  68 65 61 72 2f 68 73 63  |Ch=h%/(shear/hsc|
00009a90  61 6c 65 29 0d 35 02 54  e7 20 77 25 3c 38 32 20  |ale).5.T. w%<82 |
00009aa0  80 20 68 25 3c 33 36 20  80 20 28 68 25 2a 32 29  |. h%<36 . (h%*2)|
00009ab0  3c 77 25 20 80 20 ac 20  a4 76 67 61 28 6d 6f 64  |<w% . . .vga(mod|
00009ac0  65 25 29 20 8c 20 53 43  77 3d 77 25 2f 73 68 65  |e%) . SCw=w%/she|
00009ad0  61 72 3a 53 43 68 3d 77  25 2f 28 73 68 65 61 72  |ar:SCh=w%/(shear|
00009ae0  2f 68 73 63 61 6c 65 29  0d 35 0c 54 e7 20 77 25  |/hscale).5.T. w%|
00009af0  3c 38 32 20 80 20 68 25  3c 33 36 20 80 20 28 68  |<82 . h%<36 . (h|
00009b00  25 2a 32 29 3e 77 25 20  80 20 ac 20 a4 76 67 61  |%*2)>w% . . .vga|
00009b10  28 6d 6f 64 65 25 29 20  8c 20 53 43 77 3d 68 25  |(mode%) . SCw=h%|
00009b20  2f 73 68 65 61 72 3a 53  43 68 3d 68 25 2f 28 73  |/shear:SCh=h%/(s|
00009b30  68 65 61 72 2f 68 73 63  61 6c 65 29 0d 35 16 05  |hear/hscale).5..|
00009b40  cc 0d 35 20 25 e7 20 77  25 3c 38 32 20 80 20 68  |..5 %. w%<82 . h|
00009b50  25 3c 37 32 20 8c 20 53  43 77 3d 31 3a 53 43 68  |%<72 . SCw=1:SCh|
00009b60  3d 6d 6f 64 73 63 0d 35  2a 05 cd 0d 35 34 10 c8  |=modsc.5*...54..|
00009b70  8e 20 63 65 6e 74 72 65  64 20 ca 0d 35 3e 09 20  |. centred ..5>. |
00009b80  20 c9 20 b9 0d 35 48 2a  e7 20 a4 76 67 61 28 6d  | . ..5H*. .vga(m|
00009b90  6f 64 65 25 29 20 80 20  ac 20 66 6f 72 63 65 20  |ode%) . . force |
00009ba0  8c 20 79 6f 66 66 3d 28  37 32 2d 68 25 29 0d 35  |. yoff=(72-h%).5|
00009bb0  52 32 e7 20 a4 76 67 61  28 6d 6f 64 65 25 29 20  |R2. .vga(mode%) |
00009bc0  80 20 66 6f 72 63 65 20  8c 20 79 6f 66 66 3d 28  |. force . yoff=(|
00009bd0  37 32 2d 28 28 31 2f 53  43 68 29 2a 68 25 29 29  |72-((1/SCh)*h%))|
00009be0  0d 35 5c 34 e7 20 ac 20  a4 76 67 61 28 6d 6f 64  |.5\4. . .vga(mod|
00009bf0  65 25 29 20 80 20 66 6f  72 63 65 20 79 6f 66 66  |e%) . force yoff|
00009c00  3d 28 37 32 2d 28 28 31  2f 53 43 68 29 2a 68 25  |=(72-((1/SCh)*h%|
00009c10  29 29 2f 32 0d 35 66 30  e7 20 ac 20 a4 76 67 61  |))/2.5f0. . .vga|
00009c20  28 6d 6f 64 65 25 29 20  80 20 ac 20 66 6f 72 63  |(mode%) . . forc|
00009c30  65 20 8c 20 79 6f 66 66  3d 28 37 32 2d 28 32 2a  |e . yoff=(72-(2*|
00009c40  68 25 29 29 0d 35 70 1a  78 6f 66 66 3d 28 38 32  |h%)).5p.xoff=(82|
00009c50  2d 28 28 31 2f 53 43 77  29 2a 77 25 29 29 0d 35  |-((1/SCw)*w%)).5|
00009c60  7a 2a e7 20 66 6f 72 63  65 20 80 20 68 25 3c 77  |z*. force . h%<w|
00009c70  25 20 80 20 a4 76 67 61  28 6d 6f 64 65 25 29 20  |% . .vga(mode%) |
00009c80  8c 20 78 6f 66 66 3d 30  0d 35 84 2a e7 20 66 6f  |. xoff=0.5.*. fo|
00009c90  72 63 65 20 80 20 68 25  3e 77 25 20 80 20 a4 76  |rce . h%>w% . .v|
00009ca0  67 61 28 6d 6f 64 65 25  29 20 8c 20 79 6f 66 66  |ga(mode%) . yoff|
00009cb0  3d 30 0d 35 8e 30 e7 20  66 6f 72 63 65 20 80 20  |=0.5.0. force . |
00009cc0  28 68 25 2a 32 29 3c 77  25 20 80 20 ac 20 a4 76  |(h%*2)<w% . . .v|
00009cd0  67 61 28 6d 6f 64 65 25  29 20 8c 20 78 6f 66 66  |ga(mode%) . xoff|
00009ce0  3d 30 0d 35 98 30 e7 20  66 6f 72 63 65 20 80 20  |=0.5.0. force . |
00009cf0  28 68 25 2a 32 29 3e 77  25 20 80 20 ac 20 a4 76  |(h%*2)>w% . . .v|
00009d00  67 61 28 6d 6f 64 65 25  29 20 8c 20 79 6f 66 66  |ga(mode%) . yoff|
00009d10  3d 30 0d 35 a2 06 20 cb  0d 35 ac 07 c9 20 b9 0d  |=0.5.. ..5... ..|
00009d20  35 b6 27 e7 20 42 2f 43  3d 2e 38 20 80 20 ac 20  |5.'. B/C=.8 . . |
00009d30  a4 76 67 61 28 6d 6f 64  65 25 29 20 8c 20 68 73  |.vga(mode%) . hs|
00009d40  63 61 6c 65 3d 32 0d 35  c0 28 e7 20 42 2f 43 3d  |cale=2.5.(. B/C=|
00009d50  2e 37 35 20 80 20 ac 20  a4 76 67 61 28 6d 6f 64  |.75 . . .vga(mod|
00009d60  65 25 29 20 8c 20 68 73  63 61 6c 65 3d 32 0d 35  |e%) . hscale=2.5|
00009d70  ca 31 e7 20 42 2f 43 3c  3e 2e 38 20 80 20 42 2f  |.1. B/C<>.8 . B/|
00009d80  43 3c 3e 2e 37 35 20 80  20 ac 20 a4 76 67 61 28  |C<>.75 . . .vga(|
00009d90  6d 6f 64 65 25 29 20 68  73 63 61 6c 65 3d 34 0d  |mode%) hscale=4.|
00009da0  35 d4 20 53 43 77 3d 77  25 2f 38 32 3a 53 43 68  |5. SCw=w%/82:SCh|
00009db0  3d 68 25 2f 28 37 32 2f  68 73 63 61 6c 65 29 0d  |=h%/(72/hscale).|
00009dc0  35 de 05 cb 0d 35 e8 5b  21 73 63 61 6c 25 3d 77  |5....5.[!scal%=w|
00009dd0  69 25 3a 73 63 61 6c 25  21 34 3d 68 65 25 3a 73  |i%:scal%!4=he%:s|
00009de0  63 61 6c 25 21 38 3d a8  28 28 77 25 2f 28 28 31  |cal%!8=.((w%/((1|
00009df0  2f 53 43 77 29 2f 32 29  29 2b 30 2e 35 29 3a 73  |/SCw)/2))+0.5):s|
00009e00  63 61 6c 25 21 31 32 3d  a8 28 28 68 25 2f 28 28  |cal%!12=.((h%/((|
00009e10  31 2f 53 43 68 29 2f 32  29 29 2b 30 2e 35 29 0d  |1/SCh)/2))+0.5).|
00009e20  35 f2 4d c8 99 20 34 36  2c 26 31 33 34 2c 73 70  |5.M.. 46,&134,sp|
00009e30  72 25 2c 63 75 72 73 70  72 24 2c 77 6f 72 6b 78  |r%,curspr$,workx|
00009e40  25 2b 34 30 30 2b 78 6f  66 66 2c 77 6f 72 6b 79  |%+400+xoff,worky|
00009e50  25 2d 33 35 32 2b 79 6f  66 66 2c 38 2c 73 63 61  |%-352+yoff,8,sca|
00009e60  6c 25 2c 73 63 61 6c 62  6c 6f 6b 25 0d 35 fc 05  |l%,scalblok%.5..|
00009e70  cd 0d 36 06 05 e1 0d 36  10 0c dd f2 61 64 64 63  |..6....6....addc|
00009e80  6f 6c 0d 36 1a 10 68 65  78 63 28 69 6f 29 3d 68  |ol.6..hexc(io)=h|
00009e90  65 78 0d 36 24 13 f2 63  6c 6f 73 65 28 63 6f 6c  |ex.6$..close(col|
00009ea0  6f 75 72 25 29 0d 36 2e  14 20 21 62 6c 6f 63 6b  |our%).6.. !block|
00009eb0  3d 64 65 74 61 69 6c 73  25 0d 36 38 22 20 c8 99  |=details%.68" ..|
00009ec0  22 57 69 6d 70 5f 47 65  74 57 69 6e 64 6f 77 49  |"Wimp_GetWindowI|
00009ed0  6e 66 6f 22 2c 2c 62 6c  6f 63 6b 0d 36 42 1c 20  |nfo",,block.6B. |
00009ee0  77 6f 72 6b 78 25 3d 62  6c 6f 63 6b 21 34 2d 62  |workx%=block!4-b|
00009ef0  6c 6f 63 6b 21 32 30 0d  36 4c 1d 20 77 6f 72 6b  |lock!20.6L. work|
00009f00  79 25 3d 62 6c 6f 63 6b  21 31 36 2d 62 6c 6f 63  |y%=block!16-bloc|
00009f10  6b 21 32 34 0d 36 56 0c  20 c8 8e 20 69 6f 20 ca  |k!24.6V. .. io .|
00009f20  0d 36 60 09 20 c9 20 31  3a 0d 36 6a 48 20 c8 99  |.6`. . 1:.6jH ..|
00009f30  22 57 69 6d 70 5f 46 6f  72 63 65 52 65 64 72 61  |"Wimp_ForceRedra|
00009f40  77 22 2c 2d 31 2c 77 6f  72 6b 78 25 2b 31 31 32  |w",-1,workx%+112|
00009f50  30 2c 77 6f 72 6b 79 25  2d 35 38 2c 77 6f 72 6b  |0,worky%-58,work|
00009f60  78 25 2b 31 31 38 30 2c  77 6f 72 6b 79 25 2d 31  |x%+1180,worky%-1|
00009f70  30 0d 36 74 13 20 f2 72  65 64 72 61 77 28 63 61  |0.6t. .redraw(ca|
00009f80  72 64 25 29 0d 36 7e 09  20 c9 20 32 3a 0d 36 88  |rd%).6~. . 2:.6.|
00009f90  49 20 c8 99 22 57 69 6d  70 5f 46 6f 72 63 65 52  |I .."Wimp_ForceR|
00009fa0  65 64 72 61 77 22 2c 2d  31 2c 77 6f 72 6b 78 25  |edraw",-1,workx%|
00009fb0  2b 31 31 32 30 2c 77 6f  72 6b 79 25 2d 31 32 30  |+1120,worky%-120|
00009fc0  2c 77 6f 72 6b 78 25 2b  31 31 38 30 2c 77 6f 72  |,workx%+1180,wor|
00009fd0  6b 79 25 2d 37 32 0d 36  92 13 20 f2 72 65 64 72  |ky%-72.6.. .redr|
00009fe0  61 77 28 63 61 72 64 25  29 0d 36 9c 09 20 c9 20  |aw(card%).6.. . |
00009ff0  33 3a 0d 36 a6 4a 20 c8  99 22 57 69 6d 70 5f 46  |3:.6.J .."Wimp_F|
0000a000  6f 72 63 65 52 65 64 72  61 77 22 2c 2d 31 2c 77  |orceRedraw",-1,w|
0000a010  6f 72 6b 78 25 2b 31 31  32 30 2c 77 6f 72 6b 79  |orkx%+1120,worky|
0000a020  25 2d 31 38 32 2c 77 6f  72 6b 78 25 2b 31 31 38  |%-182,workx%+118|
0000a030  30 2c 77 6f 72 6b 79 25  2d 31 33 34 0d 36 b0 13  |0,worky%-134.6..|
0000a040  20 f2 72 65 64 72 61 77  28 63 61 72 64 25 29 0d  | .redraw(card%).|
0000a050  36 ba 09 20 c9 20 34 3a  0d 36 c4 4a 20 c8 99 22  |6.. . 4:.6.J .."|
0000a060  57 69 6d 70 5f 46 6f 72  63 65 52 65 64 72 61 77  |Wimp_ForceRedraw|
0000a070  22 2c 2d 31 2c 77 6f 72  6b 78 25 2b 31 31 32 30  |",-1,workx%+1120|
0000a080  2c 77 6f 72 6b 79 25 2d  34 33 30 2c 77 6f 72 6b  |,worky%-430,work|
0000a090  78 25 2b 31 31 38 30 2c  77 6f 72 6b 79 25 2d 33  |x%+1180,worky%-3|
0000a0a0  38 32 0d 36 ce 13 20 f2  72 65 64 72 61 77 28 63  |82.6.. .redraw(c|
0000a0b0  61 72 64 25 29 0d 36 d8  09 20 c9 20 30 3a 0d 36  |ard%).6.. . 0:.6|
0000a0c0  e2 48 20 c8 99 22 57 69  6d 70 5f 46 6f 72 63 65  |.H .."Wimp_Force|
0000a0d0  52 65 64 72 61 77 22 2c  2d 31 2c 77 6f 72 6b 78  |Redraw",-1,workx|
0000a0e0  25 2b 34 30 30 2c 77 6f  72 6b 79 25 2d 33 35 32  |%+400,worky%-352|
0000a0f0  2c 77 6f 72 6b 78 25 2b  35 36 34 2c 77 6f 72 6b  |,workx%+564,work|
0000a100  79 25 2d 32 31 30 0d 36  ec 13 20 f2 72 65 64 72  |y%-210.6.. .redr|
0000a110  61 77 28 63 61 72 64 25  29 0d 36 f6 06 20 cb 0d  |aw(card%).6.. ..|
0000a120  37 00 05 e1 0d 37 0a 10  dd f2 64 72 61 77 73 70  |7....7....drawsp|
0000a130  72 69 74 65 0d 37 14 12  e7 20 63 75 72 73 70 72  |rite.7... curspr|
0000a140  24 3d 22 22 20 e1 0d 37  1e 13 21 62 6c 6f 63 6b  |$="" ..7..!block|
0000a150  3d 64 65 74 61 69 6c 73  25 0d 37 28 21 c8 99 22  |=details%.7(!.."|
0000a160  57 69 6d 70 5f 47 65 74  57 69 6e 64 6f 77 49 6e  |Wimp_GetWindowIn|
0000a170  66 6f 22 2c 2c 62 6c 6f  63 6b 0d 37 32 1b 77 6f  |fo",,block.72.wo|
0000a180  72 6b 78 25 3d 62 6c 6f  63 6b 21 34 2d 62 6c 6f  |rkx%=block!4-blo|
0000a190  63 6b 21 32 30 0d 37 3c  1c 77 6f 72 6b 79 25 3d  |ck!20.7<.worky%=|
0000a1a0  62 6c 6f 63 6b 21 31 36  2d 62 6c 6f 63 6b 21 32  |block!16-block!2|
0000a1b0  34 0d 37 46 47 c8 99 22  57 69 6d 70 5f 46 6f 72  |4.7FG.."Wimp_For|
0000a1c0  63 65 52 65 64 72 61 77  22 2c 2d 31 2c 77 6f 72  |ceRedraw",-1,wor|
0000a1d0  6b 78 25 2b 34 30 30 2c  77 6f 72 6b 79 25 2d 33  |kx%+400,worky%-3|
0000a1e0  35 32 2c 77 6f 72 6b 78  25 2b 35 36 34 2c 77 6f  |52,workx%+564,wo|
0000a1f0  72 6b 79 25 2d 32 30 38  0d 37 50 10 21 62 6c 6f  |rky%-208.7P.!blo|
0000a200  63 6b 3d 63 61 72 64 25  0d 37 5a 22 c8 99 22 57  |ck=card%.7Z".."W|
0000a210  69 6d 70 5f 47 65 74 57  69 6e 64 6f 77 53 74 61  |imp_GetWindowSta|
0000a220  74 65 22 2c 2c 62 6c 6f  63 6b 0d 37 64 1b 6f 70  |te",,block.7d.op|
0000a230  65 6e 3d 62 6c 6f 63 6b  21 33 32 20 80 20 28 31  |en=block!32 . (1|
0000a240  3c 3c 31 36 29 0d 37 6e  0f e7 20 6f 70 65 6e 3c  |<<16).7n.. open<|
0000a250  3e 30 20 8c 0d 37 78 10  21 62 6c 6f 63 6b 3d 63  |>0 ..7x.!block=c|
0000a260  61 72 64 25 0d 37 82 21  c8 99 22 57 69 6d 70 5f  |ard%.7.!.."Wimp_|
0000a270  47 65 74 57 69 6e 64 6f  77 49 6e 66 6f 22 2c 2c  |GetWindowInfo",,|
0000a280  62 6c 6f 63 6b 0d 37 8c  1b 77 6f 72 6b 78 25 3d  |block.7..workx%=|
0000a290  62 6c 6f 63 6b 21 34 2d  62 6c 6f 63 6b 21 32 30  |block!4-block!20|
0000a2a0  0d 37 96 1c 77 6f 72 6b  79 25 3d 62 6c 6f 63 6b  |.7..worky%=block|
0000a2b0  21 31 36 2d 62 6c 6f 63  6b 21 32 34 0d 37 a0 47  |!16-block!24.7.G|
0000a2c0  c8 99 22 57 69 6d 70 5f  46 6f 72 63 65 52 65 64  |.."Wimp_ForceRed|
0000a2d0  72 61 77 22 2c 2d 31 2c  77 6f 72 6b 78 25 2b 33  |raw",-1,workx%+3|
0000a2e0  39 30 2c 77 6f 72 6b 79  25 2d 33 30 30 2c 77 6f  |90,worky%-300,wo|
0000a2f0  72 6b 78 25 2b 35 36 34  2c 77 6f 72 6b 79 25 2d  |rkx%+564,worky%-|
0000a300  31 35 36 0d 37 aa 05 cd  0d 37 b4 05 e1 0d 37 be  |156.7....7....7.|
0000a310  14 dd a4 63 6c 61 69 6d  28 61 6d 6f 75 6e 74 25  |...claim(amount%|
0000a320  29 0d 37 c8 0a ea 20 6d  65 6d 25 0d 37 d2 2b c8  |).7... mem%.7.+.|
0000a330  99 22 57 69 6d 70 5f 53  6c 6f 74 53 69 7a 65 22  |."Wimp_SlotSize"|
0000a340  2c 2d 31 2c 2d 31 20 b8  20 43 75 72 72 65 6e 74  |,-1,-1 . Current|
0000a350  2c 2c 6d 65 6d 25 0d 37  dc 2f c8 99 22 57 69 6d  |,,mem%.7./.."Wim|
0000a360  70 5f 53 6c 6f 74 53 69  7a 65 22 2c 70 72 6f 67  |p_SlotSize",prog|
0000a370  6e 65 65 64 2b 61 6d 6f  75 6e 74 25 2c 31 20 b8  |need+amount%,1 .|
0000a380  20 6d 65 6d 25 0d 37 e6  0a 70 74 72 25 3d 93 0d  | mem%.7..ptr%=..|
0000a390  37 f0 15 61 6d 6f 75 6e  74 25 3d 6d 65 6d 25 2d  |7..amount%=mem%-|
0000a3a0  70 74 72 25 0d 37 fa 09  3d 70 74 72 25 0d 38 04  |ptr%.7..=ptr%.8.|
0000a3b0  0e dd a4 76 67 61 28 6d  6f 64 29 0d 38 0e 27 c8  |...vga(mod).8.'.|
0000a3c0  99 22 4f 53 5f 52 65 61  64 4d 6f 64 65 56 61 72  |."OS_ReadModeVar|
0000a3d0  69 61 62 6c 65 22 2c 6d  6f 64 2c 31 31 20 b8 2c  |iable",mod,11 .,|
0000a3e0  2c 63 0d 38 18 27 c8 99  22 4f 53 5f 52 65 61 64  |,c.8.'.."OS_Read|
0000a3f0  4d 6f 64 65 56 61 72 69  61 62 6c 65 22 2c 6d 6f  |ModeVariable",mo|
0000a400  64 2c 31 32 20 b8 2c 2c  62 0d 38 22 0d 63 2b 3d  |d,12 .,,b.8".c+=|
0000a410  31 3a 62 2b 3d 31 0d 38  2c 0c c8 8e 20 62 2f 63  |1:b+=1.8,... b/c|
0000a420  20 ca 0d 38 36 0d c9 20  30 2e 38 3a 67 3d b9 0d  | ..86.. 0.8:g=..|
0000a430  38 40 0d c9 20 2e 37 35  3a 67 3d b9 0d 38 4a 0a  |8@.. .75:g=..8J.|
0000a440  7f 3a 20 67 3d a3 0d 38  54 05 cb 0d 38 5e 06 3d  |.: g=..8T...8^.=|
0000a450  67 0d 38 68 10 dd f2 61  72 65 79 6f 75 73 75 72  |g.8h...areyousur|
0000a460  65 0d 38 72 0f e7 20 ac  20 73 61 76 65 66 20 8c  |e.8r.. . savef .|
0000a470  0d 38 7c 13 f2 6f 70 65  6e 77 69 6e 28 71 75 69  |.8|..openwin(qui|
0000a480  74 25 29 0d 38 86 07 ef  20 37 0d 38 90 31 f2 69  |t%).8... 7.8.1.i|
0000a490  6e 66 6f 28 71 75 69 74  25 2c 31 2c 22 59 6f 75  |nfo(quit%,1,"You|
0000a4a0  72 20 66 69 6c 65 20 68  61 73 20 62 65 65 6e 20  |r file has been |
0000a4b0  6d 6f 64 69 66 69 65 64  2e 22 29 0d 38 9a 4d 21  |modified.").8.M!|
0000a4c0  62 6c 6f 63 6b 3d 31 33  30 3a 62 6c 6f 63 6b 21  |block=130:block!|
0000a4d0  34 3d 31 33 31 3a 62 6c  6f 63 6b 21 38 3d 2d 31  |4=131:block!8=-1|
0000a4e0  3a c8 99 22 4f 53 5f 52  65 61 64 56 64 75 56 61  |:.."OS_ReadVduVa|
0000a4f0  72 69 61 62 6c 65 73 22  2c 62 6c 6f 63 6b 2c 62  |riables",block,b|
0000a500  6c 6f 63 6b 2b 31 32 38  0d 38 a4 25 c8 99 22 4f  |lock+128.8.%.."O|
0000a510  53 5f 52 65 61 64 4d 6f  64 65 56 61 72 69 61 62  |S_ReadModeVariab|
0000a520  6c 65 22 2c eb 2c 34 20  b8 20 2c 2c 78 0d 38 ae  |le",.,4 . ,,x.8.|
0000a530  25 c8 99 22 4f 53 5f 52  65 61 64 4d 6f 64 65 56  |%.."OS_ReadModeV|
0000a540  61 72 69 61 62 6c 65 22  2c eb 2c 35 20 b8 20 2c  |ariable",.,5 . ,|
0000a550  2c 79 0d 38 b8 39 c8 97  20 c8 93 20 30 2c 30 2c  |,y.8.9.. .. 0,0,|
0000a560  28 28 28 62 6c 6f 63 6b  21 31 32 38 29 2b 31 29  |(((block!128)+1)|
0000a570  2a 32 5e 78 29 2d 31 2c  28 28 62 6c 6f 63 6b 21  |*2^x)-1,((block!|
0000a580  31 33 32 29 2b 31 29 2a  32 5e 79 0d 38 c2 05 cd  |132)+1)*2^y.8...|
0000a590  0d 38 cc 32 e7 20 73 61  76 65 66 20 c8 99 72 65  |.8.2. savef ..re|
0000a5a0  69 6e 74 65 72 2c 6d 79  74 61 73 6b 25 3a c8 99  |inter,mytask%:..|
0000a5b0  22 57 69 6d 70 5f 43 6c  6f 73 65 44 6f 77 6e 22  |"Wimp_CloseDown"|
0000a5c0  3a e0 0d 38 d6 05 e1 0d  38 e0 10 dd f2 71 75 65  |:..8....8....que|
0000a5d0  72 79 28 71 75 24 29 0d  38 ea 14 f2 6f 70 65 6e  |ry(qu$).8...open|
0000a5e0  77 69 6e 28 71 75 65 72  79 25 29 0d 38 f4 07 ef  |win(query%).8...|
0000a5f0  20 37 0d 38 fe 11 21 62  6c 6f 63 6b 3d 71 75 65  | 7.8..!block=que|
0000a600  72 79 25 0d 39 08 21 c8  99 22 57 69 6d 70 5f 47  |ry%.9.!.."Wimp_G|
0000a610  65 74 57 69 6e 64 6f 77  49 6e 66 6f 22 2c 2c 62  |etWindowInfo",,b|
0000a620  6c 6f 63 6b 0d 39 12 1b  77 6f 72 6b 78 25 3d 62  |lock.9..workx%=b|
0000a630  6c 6f 63 6b 21 31 32 2d  62 6c 6f 63 6b 21 34 0d  |lock!12-block!4.|
0000a640  39 1c 1b 77 6f 72 6b 79  25 3d 62 6c 6f 63 6b 21  |9..worky%=block!|
0000a650  31 36 2d 62 6c 6f 63 6b  21 38 0d 39 26 27 c8 97  |16-block!8.9&'..|
0000a660  20 c8 93 20 62 6c 6f 63  6b 21 34 2c 62 6c 6f 63  | .. block!4,bloc|
0000a670  6b 21 38 2c 77 6f 72 6b  78 25 2c 77 6f 72 6b 79  |k!8,workx%,worky|
0000a680  25 0d 39 30 17 f2 69 6e  66 6f 28 71 75 65 72 79  |%.90..info(query|
0000a690  25 2c 31 2c 71 75 24 29  0d 39 3a 05 e1 0d 39 44  |%,1,qu$).9:...9D|
0000a6a0  0a dd f2 65 6e 64 71 0d  39 4e 12 f2 63 6c 6f 73  |...endq.9N..clos|
0000a6b0  65 28 71 75 65 72 79 25  29 0d 39 58 4d 21 62 6c  |e(query%).9XM!bl|
0000a6c0  6f 63 6b 3d 31 33 30 3a  62 6c 6f 63 6b 21 34 3d  |ock=130:block!4=|
0000a6d0  31 33 31 3a 62 6c 6f 63  6b 21 38 3d 2d 31 3a c8  |131:block!8=-1:.|
0000a6e0  99 22 4f 53 5f 52 65 61  64 56 64 75 56 61 72 69  |."OS_ReadVduVari|
0000a6f0  61 62 6c 65 73 22 2c 62  6c 6f 63 6b 2c 62 6c 6f  |ables",block,blo|
0000a700  63 6b 2b 31 32 38 0d 39  62 25 c8 99 22 4f 53 5f  |ck+128.9b%.."OS_|
0000a710  52 65 61 64 4d 6f 64 65  56 61 72 69 61 62 6c 65  |ReadModeVariable|
0000a720  22 2c eb 2c 34 20 b8 20  2c 2c 78 0d 39 6c 25 c8  |",.,4 . ,,x.9l%.|
0000a730  99 22 4f 53 5f 52 65 61  64 4d 6f 64 65 56 61 72  |."OS_ReadModeVar|
0000a740  69 61 62 6c 65 22 2c eb  2c 35 20 b8 20 2c 2c 79  |iable",.,5 . ,,y|
0000a750  0d 39 76 39 c8 97 20 c8  93 20 30 2c 30 2c 28 28  |.9v9.. .. 0,0,((|
0000a760  28 62 6c 6f 63 6b 21 31  32 38 29 2b 31 29 2a 32  |(block!128)+1)*2|
0000a770  5e 78 29 2d 31 2c 28 28  62 6c 6f 63 6b 21 31 33  |^x)-1,((block!13|
0000a780  32 29 2b 31 29 2a 32 5e  79 0d 39 80 05 e1 0d 39  |2)+1)*2^y.9....9|
0000a790  8a 18 dd f2 74 69 74 6c  65 28 68 61 6e 64 6c 65  |....title(handle|
0000a7a0  2c 6e 65 77 24 29 0d 39  94 11 21 69 63 6f 6e 64  |,new$).9..!icond|
0000a7b0  3d 68 61 6e 64 6c 65 0d  39 9e 21 c8 99 22 57 69  |=handle.9.!.."Wi|
0000a7c0  6d 70 5f 47 65 74 57 69  6e 64 6f 77 49 6e 66 6f  |mp_GetWindowInfo|
0000a7d0  22 2c 2c 69 63 6f 6e 64  0d 39 a8 16 74 69 74 6c  |",,icond.9..titl|
0000a7e0  65 24 3d 24 28 69 63 6f  6e 64 21 37 36 29 0d 39  |e$=$(icond!76).9|
0000a7f0  b2 0f e7 20 6e 65 77 24  3d 22 22 20 8c 0d 39 bc  |... new$="" ..9.|
0000a800  40 e7 20 c2 74 69 74 6c  65 24 2c a9 28 74 69 74  |@. .title$,.(tit|
0000a810  6c 65 24 29 2d a9 28 74  69 74 6c 65 24 29 2b 31  |le$)-.(title$)+1|
0000a820  29 3c 3e 22 2a 22 20 8c  20 6e 65 77 24 3d 74 69  |)<>"*" . new$=ti|
0000a830  74 6c 65 24 2b 22 20 2a  22 3a 8b 20 e1 0d 39 c6  |tle$+" *":. ..9.|
0000a840  05 cd 0d 39 d0 61 5f 70  25 20 3d 20 21 28 69 63  |...9.a_p% = !(ic|
0000a850  6f 6e 64 2b 37 36 29 3a  24 5f 70 25 3d 6e 65 77  |ond+76):$_p%=new|
0000a860  24 3a c8 99 22 57 69 6d  70 5f 46 6f 72 63 65 52  |$:.."Wimp_ForceR|
0000a870  65 64 72 61 77 22 2c 2d  31 2c 69 63 6f 6e 64 21  |edraw",-1,icond!|
0000a880  34 2c 28 69 63 6f 6e 64  21 31 36 29 2c 69 63 6f  |4,(icond!16),ico|
0000a890  6e 64 21 31 32 2c 28 69  63 6f 6e 64 21 31 36 29  |nd!12,(icond!16)|
0000a8a0  2b 33 36 0d 39 da 05 e1  0d 39 e4 0b dd f2 70 72  |+36.9....9....pr|
0000a8b0  69 6e 74 0d 39 ee 21 6e  6f 6f 66 70 61 67 65 73  |int.9.!noofpages|
0000a8c0  3d bb 28 24 a4 69 6e 66  6f 28 70 72 69 6e 74 25  |=.($.info(print%|
0000a8d0  2c 34 29 29 0d 39 f8 66  e7 20 24 a4 69 6e 66 6f  |,4)).9.f. $.info|
0000a8e0  28 70 72 69 6e 74 25 2c  30 29 3d 22 4e 6f 74 20  |(print%,0)="Not |
0000a8f0  50 72 65 73 65 6e 74 22  20 8c 20 f2 71 75 65 72  |Present" . .quer|
0000a900  79 28 22 43 61 6e 20 6e  6f 74 20 70 72 69 6e 74  |y("Can not print|
0000a910  2c 20 6e 6f 20 70 72 69  6e 74 65 72 20 64 72 69  |, no printer dri|
0000a920  76 65 72 20 70 72 65 73  65 6e 74 2e 22 29 3a 6e  |ver present."):n|
0000a930  6f 70 72 69 6e 74 3d b9  3a e1 0d 3a 02 66 e7 20  |oprint=.:..:.f. |
0000a940  a4 63 68 65 63 6b 66 6c  61 67 28 70 72 69 6e 74  |.checkflag(print|
0000a950  25 2c 36 2c 32 31 29 20  8c 20 63 6f 70 69 65 73  |%,6,21) . copies|
0000a960  24 3d 22 73 69 6e 67 6c  65 20 63 61 72 64 2e 22  |$="single card."|
0000a970  3a 66 75 6c 6c 73 68 65  65 74 3d 30 3a 8b 20 63  |:fullsheet=0:. c|
0000a980  6f 70 69 65 73 24 3d 22  66 75 6c 6c 20 73 68 65  |opies$="full she|
0000a990  65 74 2e 22 3a 66 75 6c  6c 73 68 65 65 74 3d 31  |et.":fullsheet=1|
0000a9a0  0d 3a 0c 2f c8 99 20 22  43 6f 6c 6f 75 72 54 72  |.:./.. "ColourTr|
0000a9b0  61 6e 73 5f 53 65 74 47  43 4f 4c 22 2c 26 44 44  |ans_SetGCOL",&DD|
0000a9c0  44 44 44 44 30 30 2c 2c  2c 26 31 30 30 2c 30 0d  |DDDD00,,,&100,0.|
0000a9d0  3a 16 19 c8 93 20 c8 90  20 32 38 38 2c 34 36 36  |:.... .. 288,466|
0000a9e0  2c 37 33 38 2c 31 39 34  0d 3a 20 27 c8 99 20 22  |,738,194.: '.. "|
0000a9f0  43 6f 6c 6f 75 72 54 72  61 6e 73 5f 53 65 74 47  |ColourTrans_SetG|
0000aa00  43 4f 4c 22 2c 30 2c 2c  2c 26 31 30 30 2c 30 0d  |COL",0,,,&100,0.|
0000aa10  3a 2a 16 c8 93 20 32 38  36 2c 34 36 34 2c 37 34  |:*... 286,464,74|
0000aa20  30 2c 31 39 36 0d 3a 34  1b c8 99 22 57 69 6d 70  |0,196.:4..."Wimp|
0000aa30  5f 43 72 65 61 74 65 4d  65 6e 75 22 2c 2c 2d 31  |_CreateMenu",,-1|
0000aa40  0d 3a 3e 07 ef 20 35 0d  3a 48 0d ec 20 34 31 30  |.:>.. 5.:H.. 410|
0000aa50  2c 36 33 30 0d 3a 52 1f  f1 20 22 50 72 69 6e 74  |,630.:R.. "Print|
0000aa60  69 6e 67 20 69 6e 20 70  72 6f 67 72 65 73 73 2e  |ing in progress.|
0000aa70  2e 2e 22 0d 3a 5c 0d ec  20 33 38 30 2c 35 38 30  |..".:\.. 380,580|
0000aa80  0d 3a 66 2e f1 20 22 50  72 69 6e 69 6e 67 20 22  |.:f.. "Prining "|
0000aa90  3b 6e 6f 6f 66 70 61 67  65 73 3b 22 20 63 6f 70  |;noofpages;" cop|
0000aaa0  69 65 73 2c 20 22 3b 63  6f 70 69 65 73 24 0d 3a  |ies, ";copies$.:|
0000aab0  70 0d ec 20 34 30 30 2c  35 33 30 0d 3a 7a 1e f1  |p.. 400,530.:z..|
0000aac0  20 22 50 72 65 73 73 20  45 73 63 61 70 65 20 74  | "Press Escape t|
0000aad0  6f 20 63 61 6e 63 65 6c  22 0d 3a 84 07 ef 20 34  |o cancel".:... 4|
0000aae0  0d 3a 8e 0e 70 72 69 6e  74 69 6e 67 3d b9 0d 3a  |.:..printing=..:|
0000aaf0  98 0a 66 68 25 3d 2d 31  0d 3a a2 07 ea 20 85 0d  |..fh%=-1.:... ..|
0000ab00  3a ac 19 ee 20 85 20 ea  3a f7 20 85 3a f2 70 72  |:... . .:. .:.pr|
0000ab10  69 6e 74 65 72 72 3a e1  0d 3a b6 14 c8 99 22 48  |interr:..:...."H|
0000ab20  6f 75 72 67 6c 61 73 73  5f 4f 6e 22 0d 3a c0 15  |ourglass_On".:..|
0000ab30  66 68 25 3d ae 28 22 70  72 69 6e 74 65 72 3a 22  |fh%=.("printer:"|
0000ab40  29 0d 3a ca 23 c8 99 22  50 44 72 69 76 65 72 5f  |).:.#.."PDriver_|
0000ab50  53 65 6c 65 63 74 4a 6f  62 22 2c 66 68 25 20 b8  |SelectJob",fh% .|
0000ab60  20 6a 6f 62 0d 3a d4 28  c8 99 22 50 44 72 69 76  | job.:.(.."PDriv|
0000ab70  65 72 5f 50 61 67 65 53  69 7a 65 22 20 b8 2c 2c  |er_PageSize" .,,|
0000ab80  2c 6c 25 2c 62 25 2c 72  25 2c 74 25 0d 3a de 0d  |,l%,b%,r%,t%.:..|
0000ab90  62 6f 78 21 30 3d 2d 31  30 0d 3a e8 4a 6d 61 74  |box!0=-10.:.Jmat|
0000aba0  72 69 78 21 30 3d 36 36  30 30 30 3a 6d 61 74 72  |rix!0=66000:matr|
0000abb0  69 78 21 34 3d 30 3a 6d  61 74 72 69 78 21 38 3d  |ix!4=0:matrix!8=|
0000abc0  30 3a 6d 61 74 72 69 78  21 31 32 3d 36 36 30 30  |0:matrix!12=6600|
0000abd0  30 3a f4 20 36 36 30 30  30 2c 30 2c 30 2c 36 36  |0:. 66000,0,0,66|
0000abe0  30 30 30 0d 3a f2 60 e7  20 66 75 6c 6c 73 68 65  |000.:.`. fullshe|
0000abf0  65 74 3d 31 20 6f 72 69  67 69 6e 21 30 3d 6c 25  |et=1 origin!0=l%|
0000ac00  3a 6f 72 69 67 69 6e 21  34 3d 37 35 30 30 30 3a  |:origin!4=75000:|
0000ac10  62 6f 78 21 38 3d 28 32  39 30 2a 32 2e 35 29 2b  |box!8=(290*2.5)+|
0000ac20  35 38 30 3a 62 6f 78 21  31 32 3d 28 36 32 35 2a  |580:box!12=(625*|
0000ac30  32 2e 35 29 2b 34 30 30  3a 62 6f 78 21 34 3d 2d  |2.5)+400:box!4=-|
0000ac40  32 30 30 0d 3a fc 4c e7  20 66 75 6c 6c 73 68 65  |200.:.L. fullshe|
0000ac50  65 74 3d 30 20 6f 72 69  67 69 6e 21 30 3d 6c 25  |et=0 origin!0=l%|
0000ac60  3a 6f 72 69 67 69 6e 21  34 3d 36 32 33 30 30 30  |:origin!4=623000|
0000ac70  3a 62 6f 78 21 38 3d 35  39 30 3a 62 6f 78 21 31  |:box!8=590:box!1|
0000ac80  32 3d 33 39 30 3a 62 6f  78 21 34 3d 2d 31 30 0d  |2=390:box!4=-10.|
0000ac90  3b 06 3b c8 99 22 50 44  72 69 76 65 72 5f 47 69  |;.;.."PDriver_Gi|
0000aca0  76 65 52 65 63 74 61 6e  67 6c 65 22 2c 30 2c 62  |veRectangle",0,b|
0000acb0  6f 78 2c 6d 61 74 72 69  78 2c 6f 72 69 67 69 6e  |ox,matrix,origin|
0000acc0  2c 26 46 46 46 46 46 46  30 30 0d 3b 10 32 c8 99  |,&FFFFFF00.;.2..|
0000acd0  22 50 44 72 69 76 65 72  5f 44 72 61 77 50 61 67  |"PDriver_DrawPag|
0000ace0  65 22 2c 6e 6f 6f 66 70  61 67 65 73 2c 62 6f 78  |e",noofpages,box|
0000acf0  32 2c 30 2c 30 20 b8 20  6d 6f 72 65 0d 3b 1a 0e  |2,0,0 . more.;..|
0000ad00  c8 95 20 6d 6f 72 65 3c  3e 30 0d 3b 24 09 f2 64  |.. more<>0.;$..d|
0000ad10  72 61 77 0d 3b 2e 2a c8  99 22 50 44 72 69 76 65  |raw.;.*.."PDrive|
0000ad20  72 5f 47 65 74 52 65 63  74 61 6e 67 6c 65 22 2c  |r_GetRectangle",|
0000ad30  30 2c 62 6f 78 32 20 b8  20 6d 6f 72 65 0d 3b 38  |0,box2 . more.;8|
0000ad40  05 ce 0d 3b 42 1a c8 99  22 50 44 72 69 76 65 72  |...;B..."PDriver|
0000ad50  5f 45 6e 64 4a 6f 62 22  2c 66 68 25 0d 3b 4c 09  |_EndJob",fh%.;L.|
0000ad60  d9 23 66 68 25 0d 3b 56  1d c8 99 22 50 44 72 69  |.#fh%.;V..."PDri|
0000ad70  76 65 72 5f 53 65 6c 65  63 74 4a 6f 62 22 2c 6a  |ver_SelectJob",j|
0000ad80  6f 62 0d 3b 60 17 c8 99  22 48 6f 75 72 67 6c 61  |ob.;`..."Hourgla|
0000ad90  73 73 5f 53 6d 61 73 68  22 0d 3b 6a 33 c8 99 22  |ss_Smash".;j3.."|
0000ada0  57 69 6d 70 5f 46 6f 72  63 65 52 65 64 72 61 77  |Wimp_ForceRedraw|
0000adb0  22 2c 2d 31 2c 32 38 36  2c 34 36 34 2c 37 34 30  |",-1,286,464,740|
0000adc0  2b 32 38 38 2c 31 39 36  2b 34 36 36 0d 3b 74 05  |+288,196+466.;t.|
0000add0  e1 0d 3b 7e 0a dd f2 64  72 61 77 0d 3b 88 13 e7  |..;~...draw.;...|
0000ade0  20 66 75 6c 6c 73 68 65  65 74 3d 31 20 8c 0d 3b  | fullsheet=1 ..;|
0000adf0  92 17 e3 20 63 61 72 64  63 6f 3d 31 20 b8 20 31  |... cardco=1 . 1|
0000ae00  36 20 88 20 32 0d 3b 9c  38 f2 64 72 61 77 63 61  |6 . 2.;.8.drawca|
0000ae10  72 64 28 63 61 72 64 70  6f 73 28 63 61 72 64 63  |rd(cardpos(cardc|
0000ae20  6f 29 2a 32 2e 35 2c 63  61 72 64 70 6f 73 28 63  |o)*2.5,cardpos(c|
0000ae30  61 72 64 63 6f 2b 31 29  2a 32 2e 35 29 0d 3b a6  |ardco+1)*2.5).;.|
0000ae40  3a f2 63 61 72 64 73 70  72 69 74 65 28 63 61 72  |:.cardsprite(car|
0000ae50  64 70 6f 73 28 63 61 72  64 63 6f 29 2a 32 2e 35  |dpos(cardco)*2.5|
0000ae60  2c 63 61 72 64 70 6f 73  28 63 61 72 64 63 6f 2b  |,cardpos(cardco+|
0000ae70  31 29 2a 32 2e 35 29 0d  3b b0 0c ed 20 63 61 72  |1)*2.5).;... car|
0000ae80  64 63 6f 0d 3b ba 05 cc  0d 3b c4 15 f2 64 72 61  |dco.;....;...dra|
0000ae90  77 63 61 72 64 28 31 30  2c 33 38 30 29 0d 3b ce  |wcard(10,380).;.|
0000aea0  17 f2 63 61 72 64 73 70  72 69 74 65 28 31 30 2c  |..cardsprite(10,|
0000aeb0  33 38 30 29 0d 3b d8 05  cd 0d 3b e2 05 e1 0d 3b  |380).;....;....;|
0000aec0  ec 19 dd f2 64 72 61 77  63 61 72 64 28 70 78 63  |....drawcard(pxc|
0000aed0  6f 2c 70 79 63 6f 29 0d  3b f6 2d c8 99 20 22 43  |o,pyco).;.-.. "C|
0000aee0  6f 6c 6f 75 72 54 72 61  6e 73 5f 53 65 74 47 43  |olourTrans_SetGC|
0000aef0  4f 4c 22 2c 68 65 78 63  28 30 29 2c 2c 2c 26 31  |OL",hexc(0),,,&1|
0000af00  30 30 2c 30 0d 3c 00 21  c8 93 20 c8 90 20 70 78  |00,0.<.!.. .. px|
0000af10  63 6f 2b 38 2c 70 79 63  6f 2d 33 38 36 2c 35 36  |co+8,pyco-386,56|
0000af20  36 2c 33 37 38 0d 3c 0a  27 c8 99 20 22 43 6f 6c  |6,378.<.'.. "Col|
0000af30  6f 75 72 54 72 61 6e 73  5f 53 65 74 47 43 4f 4c  |ourTrans_SetGCOL|
0000af40  22 2c 30 2c 2c 2c 26 31  30 30 2c 30 0d 3c 14 1e  |",0,,,&100,0.<..|
0000af50  c8 93 20 70 78 63 6f 2b  36 2c 70 79 63 6f 2d 33  |.. pxco+6,pyco-3|
0000af60  38 36 2c 35 36 38 2c 33  38 30 0d 3c 1e 1e c8 93  |86,568,380.<....|
0000af70  20 70 78 63 6f 2b 34 2c  70 79 63 6f 2d 33 38 38  | pxco+4,pyco-388|
0000af80  2c 35 36 38 2c 33 38 30  0d 3c 28 39 6e 61 6d 65  |,568,380.<(9name|
0000af90  24 3d 24 a4 69 6e 66 6f  28 64 65 74 61 69 6c 73  |$=$.info(details|
0000afa0  25 2c 30 29 3a 66 6f 6e  74 6e 61 6d 65 24 3d 24  |%,0):fontname$=$|
0000afb0  a4 69 6e 66 6f 28 64 65  74 61 69 6c 73 25 2c 33  |.info(details%,3|
0000afc0  29 0d 3c 32 40 73 69 7a  65 6e 61 6d 65 3d bb 28  |).<2@sizename=.(|
0000afd0  24 a4 69 6e 66 6f 28 64  65 74 61 69 6c 73 25 2c  |$.info(details%,|
0000afe0  33 31 29 29 3a 68 6e 61  6d 65 3d bb 28 24 a4 69  |31)):hname=.($.i|
0000aff0  6e 66 6f 28 64 65 74 61  69 6c 73 25 2c 31 33 29  |nfo(details%,13)|
0000b000  29 0d 3c 3c 3b 65 78 74  72 61 24 3d 24 a4 69 6e  |).<<;extra$=$.in|
0000b010  66 6f 28 64 65 74 61 69  6c 73 25 2c 35 29 3a 66  |fo(details%,5):f|
0000b020  6f 6e 74 65 78 74 72 61  24 3d 24 a4 69 6e 66 6f  |ontextra$=$.info|
0000b030  28 64 65 74 61 69 6c 73  25 2c 32 29 0d 3c 46 42  |(details%,2).<FB|
0000b040  73 69 7a 65 65 78 74 72  61 3d bb 28 24 a4 69 6e  |sizeextra=.($.in|
0000b050  66 6f 28 64 65 74 61 69  6c 73 25 2c 33 32 29 29  |fo(details%,32))|
0000b060  3a 68 65 78 74 72 61 3d  bb 28 24 a4 69 6e 66 6f  |:hextra=.($.info|
0000b070  28 64 65 74 61 69 6c 73  25 2c 31 34 29 29 0d 3c  |(details%,14)).<|
0000b080  50 38 61 64 31 24 3d 24  a4 69 6e 66 6f 28 64 65  |P8ad1$=$.info(de|
0000b090  74 61 69 6c 73 25 2c 36  29 3a 66 6f 6e 74 61 64  |tails%,6):fontad|
0000b0a0  31 24 3d 24 a4 69 6e 66  6f 28 64 65 74 61 69 6c  |1$=$.info(detail|
0000b0b0  73 25 2c 31 39 29 0d 3c  5a 3e 73 69 7a 65 61 64  |s%,19).<Z>sizead|
0000b0c0  31 3d bb 28 24 a4 69 6e  66 6f 28 64 65 74 61 69  |1=.($.info(detai|
0000b0d0  6c 73 25 2c 33 33 29 29  3a 68 61 64 31 3d bb 28  |ls%,33)):had1=.(|
0000b0e0  24 a4 69 6e 66 6f 28 64  65 74 61 69 6c 73 25 2c  |$.info(details%,|
0000b0f0  31 37 29 29 0d 3c 64 1b  61 64 32 24 3d 24 a4 69  |17)).<d.ad2$=$.i|
0000b100  6e 66 6f 28 64 65 74 61  69 6c 73 25 2c 37 29 0d  |nfo(details%,7).|
0000b110  3c 6e 1c 61 64 33 24 3d  24 a4 69 6e 66 6f 28 64  |<n.ad3$=$.info(d|
0000b120  65 74 61 69 6c 73 25 2c  31 38 29 0d 3c 78 1c 61  |etails%,18).<x.a|
0000b130  64 34 24 3d 24 a4 69 6e  66 6f 28 64 65 74 61 69  |d4$=$.info(detai|
0000b140  6c 73 25 2c 31 30 29 0d  3c 82 38 74 65 6c 24 3d  |ls%,10).<.8tel$=|
0000b150  24 a4 69 6e 66 6f 28 64  65 74 61 69 6c 73 25 2c  |$.info(details%,|
0000b160  32 31 29 3a 66 6f 6e 74  74 65 6c 24 3d 24 a4 69  |21):fonttel$=$.i|
0000b170  6e 66 6f 28 64 65 74 61  69 6c 73 25 2c 34 29 0d  |nfo(details%,4).|
0000b180  3c 8c 3e 73 69 7a 65 74  65 6c 3d bb 28 24 a4 69  |<.>sizetel=.($.i|
0000b190  6e 66 6f 28 64 65 74 61  69 6c 73 25 2c 33 34 29  |nfo(details%,34)|
0000b1a0  29 3a 68 74 65 6c 3d bb  28 24 a4 69 6e 66 6f 28  |):htel=.($.info(|
0000b1b0  64 65 74 61 69 6c 73 25  2c 31 35 29 29 0d 3c 96  |details%,15)).<.|
0000b1c0  52 e7 20 73 69 7a 65 6e  61 6d 65 3d 30 20 8c 20  |R. sizename=0 . |
0000b1d0  73 69 7a 65 6e 61 6d 65  3d 32 30 3a f2 6d 65 73  |sizename=20:.mes|
0000b1e0  73 28 22 46 6f 6e 74 20  73 69 7a 65 73 20 63 61  |s("Font sizes ca|
0000b1f0  6e 20 6e 6f 74 20 62 65  20 30 22 29 3a 6e 6f 6e  |n not be 0"):non|
0000b200  6f 3d 31 3a 6e 73 3d 32  30 3a 6e 69 3d 31 33 0d  |o=1:ns=20:ni=13.|
0000b210  3c a0 54 e7 20 73 69 7a  65 65 78 74 72 61 3d 30  |<.T. sizeextra=0|
0000b220  20 8c 20 73 69 7a 65 65  78 74 72 61 3d 31 36 3a  | . sizeextra=16:|
0000b230  f2 6d 65 73 73 28 22 46  6f 6e 74 20 73 69 7a 65  |.mess("Font size|
0000b240  73 20 63 61 6e 20 6e 6f  74 20 62 65 20 30 22 29  |s can not be 0")|
0000b250  3a 6e 6f 6e 6f 3d 31 3a  6e 73 3d 31 36 3a 6e 69  |:nono=1:ns=16:ni|
0000b260  3d 31 34 0d 3c aa 50 e7  20 73 69 7a 65 61 64 31  |=14.<.P. sizead1|
0000b270  3d 30 20 8c 20 73 69 7a  65 61 64 31 3d 31 34 3a  |=0 . sizead1=14:|
0000b280  f2 6d 65 73 73 28 22 46  6f 6e 74 20 73 69 7a 65  |.mess("Font size|
0000b290  73 20 63 61 6e 20 6e 6f  74 20 62 65 20 30 22 29  |s can not be 0")|
0000b2a0  3a 6e 6f 6e 6f 3d 31 3a  6e 73 3d 31 34 3a 6e 69  |:nono=1:ns=14:ni|
0000b2b0  3d 31 37 0d 3c b4 50 e7  20 73 69 7a 65 74 65 6c  |=17.<.P. sizetel|
0000b2c0  3d 30 20 8c 20 73 69 7a  65 74 65 6c 3d 31 36 3a  |=0 . sizetel=16:|
0000b2d0  f2 6d 65 73 73 28 22 46  6f 6e 74 20 73 69 7a 65  |.mess("Font size|
0000b2e0  73 20 63 61 6e 20 6e 6f  74 20 62 65 20 30 22 29  |s can not be 0")|
0000b2f0  3a 6e 6f 6e 6f 3d 31 3a  6e 73 3d 31 36 3a 6e 69  |:nono=1:ns=16:ni|
0000b300  3d 31 35 0d 3c be 13 66  6f 6e 74 24 3d 66 6f 6e  |=15.<..font$=fon|
0000b310  74 6e 61 6d 65 24 0d 3c  c8 2c 78 3d a4 77 69 64  |tname$.<.,x=.wid|
0000b320  74 68 28 6e 61 6d 65 24  2c 66 6f 6e 74 6e 61 6d  |th(name$,fontnam|
0000b330  65 24 2c 73 69 7a 65 6e  61 6d 65 2c 68 6e 61 6d  |e$,sizename,hnam|
0000b340  65 29 0d 3c d2 5d e7 20  78 3d 30 20 80 20 6e 61  |e).<.]. x=0 . na|
0000b350  6d 65 24 3c 3e 22 22 20  8c 20 f2 6d 65 73 73 28  |me$<>"" . .mess(|
0000b360  22 54 68 65 20 6e 61 6d  65 20 74 65 78 74 20 69  |"The name text i|
0000b370  73 20 74 6f 6f 20 6c 6f  6e 67 20 6f 72 20 74 68  |s too long or th|
0000b380  65 20 66 6f 6e 74 20 69  73 20 74 6f 6f 20 6c 61  |e font is too la|
0000b390  72 67 65 22 29 3a 63 6c  6f 73 65 3d 31 3a e1 0d  |rge"):close=1:..|
0000b3a0  3c dc 19 20 78 63 6f 3d  35 36 36 2d 78 3a 78 63  |<.. xco=566-x:xc|
0000b3b0  6f 3d 78 63 6f 2f 32 3a  0d 3c e6 3a 20 c8 99 20  |o=xco/2:.<.: .. |
0000b3c0  22 43 6f 6c 6f 75 72 54  72 61 6e 73 5f 53 65 74  |"ColourTrans_Set|
0000b3d0  46 6f 6e 74 43 6f 6c 6f  75 72 73 22 2c 66 6f 6e  |FontColours",fon|
0000b3e0  74 25 2c 68 65 78 63 28  31 29 2c 68 65 78 63 28  |t%,hexc(1),hexc(|
0000b3f0  31 29 0d 3c f0 34 20 c8  99 22 46 6f 6e 74 5f 50  |1).<.4 .."Font_P|
0000b400  61 69 6e 74 22 2c 2c 6e  61 6d 65 24 2c 25 31 30  |aint",,name$,%10|
0000b410  30 31 30 2c 70 78 63 6f  2b 78 63 6f 2b 38 2c 70  |010,pxco+xco+8,p|
0000b420  79 63 6f 2d 37 30 0d 3c  fa 2d c8 99 20 22 43 6f  |yco-70.<.-.. "Co|
0000b430  6c 6f 75 72 54 72 61 6e  73 5f 53 65 74 47 43 4f  |lourTrans_SetGCO|
0000b440  4c 22 2c 68 65 78 63 28  31 29 2c 2c 2c 26 31 30  |L",hexc(1),,,&10|
0000b450  30 2c 30 0d 3d 04 2c c8  93 20 c8 90 70 78 63 6f  |0,0.=.,.. ..pxco|
0000b460  2b 78 63 6f 2b 35 2c 70  79 63 6f 2d 37 34 2c 35  |+xco+5,pyco-74,5|
0000b470  36 36 2d 78 63 6f 2d 78  63 6f 2b 33 2c 2d 34 0d  |66-xco-xco+3,-4.|
0000b480  3d 0e 14 66 6f 6e 74 24  3d 66 6f 6e 74 65 78 74  |=..font$=fontext|
0000b490  72 61 24 0d 3d 18 30 78  3d a4 77 69 64 74 68 28  |ra$.=.0x=.width(|
0000b4a0  65 78 74 72 61 24 2c 66  6f 6e 74 65 78 74 72 61  |extra$,fontextra|
0000b4b0  24 2c 73 69 7a 65 65 78  74 72 61 2c 68 65 78 74  |$,sizeextra,hext|
0000b4c0  72 61 29 0d 3d 22 5f e7  20 78 3d 30 20 80 20 65  |ra).="_. x=0 . e|
0000b4d0  78 74 72 61 24 3c 3e 22  22 20 8c 20 f2 6d 65 73  |xtra$<>"" . .mes|
0000b4e0  73 28 22 54 68 65 20 74  72 61 64 65 20 74 65 78  |s("The trade tex|
0000b4f0  74 20 69 73 20 74 6f 6f  20 6c 6f 6e 67 20 6f 72  |t is too long or|
0000b500  20 74 68 65 20 66 6f 6e  74 20 69 73 20 74 6f 6f  | the font is too|
0000b510  20 6c 61 72 67 65 22 29  3a 63 6c 6f 73 65 3d 31  | large"):close=1|
0000b520  3a e1 0d 3d 2c 17 78 63  6f 3d 35 36 36 2d 78 3a  |:..=,.xco=566-x:|
0000b530  78 63 6f 3d 78 63 6f 2f  32 0d 3d 36 3a 20 c8 99  |xco=xco/2.=6: ..|
0000b540  20 22 43 6f 6c 6f 75 72  54 72 61 6e 73 5f 53 65  | "ColourTrans_Se|
0000b550  74 46 6f 6e 74 43 6f 6c  6f 75 72 73 22 2c 66 6f  |tFontColours",fo|
0000b560  6e 74 25 2c 68 65 78 63  28 32 29 2c 68 65 78 63  |nt%,hexc(2),hexc|
0000b570  28 32 29 0d 3d 40 35 c8  99 22 46 6f 6e 74 5f 50  |(2).=@5.."Font_P|
0000b580  61 69 6e 74 22 2c 2c 65  78 74 72 61 24 2c 25 31  |aint",,extra$,%1|
0000b590  30 30 31 30 2c 70 78 63  6f 2b 78 63 6f 2b 38 2c  |0010,pxco+xco+8,|
0000b5a0  70 79 63 6f 2d 31 33 30  0d 3d 4a 12 66 6f 6e 74  |pyco-130.=J.font|
0000b5b0  24 3d 66 6f 6e 74 61 64  31 24 0d 3d 54 28 78 3d  |$=fontad1$.=T(x=|
0000b5c0  a4 77 69 64 74 68 28 61  64 31 24 2c 66 6f 6e 74  |.width(ad1$,font|
0000b5d0  61 64 31 24 2c 73 69 7a  65 61 64 31 2c 68 61 64  |ad1$,sizead1,had|
0000b5e0  31 29 0d 3d 5e 6b e7 20  61 64 31 24 3e 22 22 20  |1).=^k. ad1$>"" |
0000b5f0  80 20 78 3d 30 20 84 20  78 3e 35 33 30 20 20 8c  |. x=0 . x>530  .|
0000b600  20 f2 6d 65 73 73 28 22  54 68 65 20 31 73 74 20  | .mess("The 1st |
0000b610  61 64 64 72 65 73 73 20  74 65 78 74 20 69 73 20  |address text is |
0000b620  74 6f 6f 20 6c 6f 6e 67  20 6f 72 20 74 68 65 20  |too long or the |
0000b630  66 6f 6e 74 20 69 73 20  74 6f 6f 20 6c 61 72 67  |font is too larg|
0000b640  65 22 29 3a 63 6c 6f 73  65 3d 31 3a e1 0d 3d 68  |e"):close=1:..=h|
0000b650  3a 20 c8 99 20 22 43 6f  6c 6f 75 72 54 72 61 6e  |: .. "ColourTran|
0000b660  73 5f 53 65 74 46 6f 6e  74 43 6f 6c 6f 75 72 73  |s_SetFontColours|
0000b670  22 2c 66 6f 6e 74 25 2c  68 65 78 63 28 33 29 2c  |",font%,hexc(3),|
0000b680  68 65 78 63 28 33 29 0d  3d 72 30 c8 99 22 46 6f  |hexc(3).=r0.."Fo|
0000b690  6e 74 5f 50 61 69 6e 74  22 2c 2c 61 64 31 24 2c  |nt_Paint",,ad1$,|
0000b6a0  25 31 30 30 31 30 2c 70  78 63 6f 2b 33 38 2c 70  |%10010,pxco+38,p|
0000b6b0  79 63 6f 2d 31 38 35 0d  3d 7c 28 78 3d a4 77 69  |yco-185.=|(x=.wi|
0000b6c0  64 74 68 28 61 64 32 24  2c 66 6f 6e 74 61 64 31  |dth(ad2$,fontad1|
0000b6d0  24 2c 73 69 7a 65 61 64  31 2c 68 61 64 31 29 0d  |$,sizead1,had1).|
0000b6e0  3d 86 6a e7 20 61 64 32  24 3e 22 22 20 80 20 78  |=.j. ad2$>"" . x|
0000b6f0  3d 30 20 84 20 78 3e 35  36 30 20 8c 20 f2 6d 65  |=0 . x>560 . .me|
0000b700  73 73 28 22 54 68 65 20  32 6e 64 20 61 64 64 72  |ss("The 2nd addr|
0000b710  65 73 73 20 74 65 78 74  20 69 73 20 74 6f 6f 20  |ess text is too |
0000b720  6c 6f 6e 67 20 6f 72 20  74 68 65 20 66 6f 6e 74  |long or the font|
0000b730  20 69 73 20 74 6f 6f 20  6c 61 72 67 65 22 29 3a  | is too large"):|
0000b740  63 6c 6f 73 65 3d 31 3a  e1 0d 3d 90 30 c8 99 22  |close=1:..=.0.."|
0000b750  46 6f 6e 74 5f 50 61 69  6e 74 22 2c 2c 61 64 32  |Font_Paint",,ad2|
0000b760  24 2c 25 31 30 30 31 30  2c 70 78 63 6f 2b 33 38  |$,%10010,pxco+38|
0000b770  2c 70 79 63 6f 2d 32 32  35 0d 3d 9a 28 78 3d a4  |,pyco-225.=.(x=.|
0000b780  77 69 64 74 68 28 61 64  33 24 2c 66 6f 6e 74 61  |width(ad3$,fonta|
0000b790  64 31 24 2c 73 69 7a 65  61 64 31 2c 68 61 64 31  |d1$,sizead1,had1|
0000b7a0  29 0d 3d a4 6a e7 20 61  64 33 24 3e 22 22 20 80  |).=.j. ad3$>"" .|
0000b7b0  20 78 3d 30 20 84 20 78  3e 35 36 30 20 8c 20 f2  | x=0 . x>560 . .|
0000b7c0  6d 65 73 73 28 22 54 68  65 20 33 72 64 20 61 64  |mess("The 3rd ad|
0000b7d0  64 72 65 73 73 20 74 65  78 74 20 69 73 20 74 6f  |dress text is to|
0000b7e0  6f 20 6c 6f 6e 67 20 6f  72 20 74 68 65 20 66 6f  |o long or the fo|
0000b7f0  6e 74 20 69 73 20 74 6f  6f 20 6c 61 72 67 65 22  |nt is too large"|
0000b800  29 3a 63 6c 6f 73 65 3d  31 3a e1 0d 3d ae 30 c8  |):close=1:..=.0.|
0000b810  99 22 46 6f 6e 74 5f 50  61 69 6e 74 22 2c 2c 61  |."Font_Paint",,a|
0000b820  64 33 24 2c 25 31 30 30  31 30 2c 70 78 63 6f 2b  |d3$,%10010,pxco+|
0000b830  33 38 2c 70 79 63 6f 2d  32 36 35 0d 3d b8 28 78  |38,pyco-265.=.(x|
0000b840  3d a4 77 69 64 74 68 28  61 64 34 24 2c 66 6f 6e  |=.width(ad4$,fon|
0000b850  74 61 64 31 24 2c 73 69  7a 65 61 64 31 2c 68 61  |tad1$,sizead1,ha|
0000b860  64 31 29 0d 3d c2 6a e7  20 61 64 34 24 3e 22 22  |d1).=.j. ad4$>""|
0000b870  20 80 20 78 3d 30 20 84  20 78 3e 35 36 30 20 8c  | . x=0 . x>560 .|
0000b880  20 f2 6d 65 73 73 28 22  54 68 65 20 34 74 68 20  | .mess("The 4th |
0000b890  61 64 64 72 65 73 73 20  74 65 78 74 20 69 73 20  |address text is |
0000b8a0  74 6f 6f 20 6c 6f 6e 67  20 6f 72 20 74 68 65 20  |too long or the |
0000b8b0  66 6f 6e 74 20 69 73 20  74 6f 6f 20 6c 61 72 67  |font is too larg|
0000b8c0  65 22 29 3a 63 6c 6f 73  65 3d 31 3a e1 0d 3d cc  |e"):close=1:..=.|
0000b8d0  30 c8 99 22 46 6f 6e 74  5f 50 61 69 6e 74 22 2c  |0.."Font_Paint",|
0000b8e0  2c 61 64 34 24 2c 25 31  30 30 31 30 2c 70 78 63  |,ad4$,%10010,pxc|
0000b8f0  6f 2b 33 38 2c 70 79 63  6f 2d 33 30 35 0d 3d d6  |o+38,pyco-305.=.|
0000b900  12 66 6f 6e 74 24 3d 66  6f 6e 74 74 65 6c 24 0d  |.font$=fonttel$.|
0000b910  3d e0 32 78 3d a4 77 69  64 74 68 28 22 54 65 6c  |=.2x=.width("Tel|
0000b920  20 3a 2d 20 22 2b 74 65  6c 24 2c 66 6f 6e 74 74  | :- "+tel$,fontt|
0000b930  65 6c 24 2c 73 69 7a 65  74 65 6c 2c 68 74 65 6c  |el$,sizetel,htel|
0000b940  29 0d 3d ea 61 e7 20 78  3d 30 20 80 20 74 65 6c  |).=.a. x=0 . tel|
0000b950  24 3c 3e 22 22 20 8c 20  f2 6d 65 73 73 28 22 54  |$<>"" . .mess("T|
0000b960  68 65 20 74 65 6c 65 70  68 6f 6e 65 20 74 65 78  |he telephone tex|
0000b970  74 20 69 73 20 74 6f 6f  20 6c 6f 6e 67 20 6f 72  |t is too long or|
0000b980  20 74 68 65 20 66 6f 6e  74 20 69 73 20 74 6f 6f  | the font is too|
0000b990  20 6c 61 72 67 65 22 29  3a 63 6c 6f 73 65 3d 31  | large"):close=1|
0000b9a0  3a e1 0d 3d f4 15 78 63  6f 3d 35 36 36 2d 78 3a  |:..=..xco=566-x:|
0000b9b0  78 63 6f 2d 3d 31 36 0d  3d fe 3a 20 c8 99 20 22  |xco-=16.=.: .. "|
0000b9c0  43 6f 6c 6f 75 72 54 72  61 6e 73 5f 53 65 74 46  |ColourTrans_SetF|
0000b9d0  6f 6e 74 43 6f 6c 6f 75  72 73 22 2c 66 6f 6e 74  |ontColours",font|
0000b9e0  25 2c 68 65 78 63 28 34  29 2c 68 65 78 63 28 34  |%,hexc(4),hexc(4|
0000b9f0  29 0d 3e 08 3b c8 99 22  46 6f 6e 74 5f 50 61 69  |).>.;.."Font_Pai|
0000ba00  6e 74 22 2c 2c 22 54 65  6c 20 3a 2d 20 22 2b 74  |nt",,"Tel :- "+t|
0000ba10  65 6c 24 2c 25 31 30 30  31 30 2c 70 78 63 6f 2b  |el$,%10010,pxco+|
0000ba20  78 63 6f 2c 70 79 63 6f  2d 33 36 30 0d 3e 12 05  |xco,pyco-360.>..|
0000ba30  e1 0d 3e 1c 0e dd f2 70  72 69 6e 74 65 72 72 0d  |..>....printerr.|
0000ba40  3e 26 0c e7 20 9f 3d 31  37 20 8c 0d 3e 30 1d c8  |>&.. .=17 ..>0..|
0000ba50  99 22 50 44 72 69 76 65  72 5f 41 62 6f 72 74 4a  |."PDriver_AbortJ|
0000ba60  6f 62 22 2c 66 68 25 3a  0d 3e 3a 21 f4 20 53 59  |ob",fh%:.>:!. SY|
0000ba70  53 22 50 44 72 69 76 65  72 5f 53 65 6c 65 63 74  |S"PDriver_Select|
0000ba80  4a 6f 62 22 2c 6a 6f 62  3a 0d 3e 44 09 d9 23 66  |Job",job:.>D..#f|
0000ba90  68 25 0d 3e 4e 23 f2 6d  65 73 73 28 22 45 73 63  |h%.>N#.mess("Esc|
0000baa0  61 70 65 3a 20 50 72 69  6e 74 20 43 61 6e 63 65  |ape: Print Cance|
0000bab0  6c 65 64 22 29 0d 3e 58  25 c8 99 22 4f 53 5f 52  |led").>X%.."OS_R|
0000bac0  65 61 64 4d 6f 64 65 56  61 72 69 61 62 6c 65 22  |eadModeVariable"|
0000bad0  2c eb 2c 34 20 b8 20 2c  2c 78 0d 3e 62 25 c8 99  |,.,4 . ,,x.>b%..|
0000bae0  22 4f 53 5f 52 65 61 64  4d 6f 64 65 56 61 72 69  |"OS_ReadModeVari|
0000baf0  61 62 6c 65 22 2c eb 2c  35 20 b8 20 2c 2c 79 0d  |able",.,5 . ,,y.|
0000bb00  3e 6c 39 c8 97 20 c8 93  20 30 2c 30 2c 28 28 28  |>l9.. .. 0,0,(((|
0000bb10  62 6c 6f 63 6b 21 31 32  38 29 2b 31 29 2a 32 5e  |block!128)+1)*2^|
0000bb20  78 29 2d 31 2c 28 28 62  6c 6f 63 6b 21 31 33 32  |x)-1,((block!132|
0000bb30  29 2b 31 29 2a 32 5e 79  0d 3e 76 17 c8 99 22 48  |)+1)*2^y.>v..."H|
0000bb40  6f 75 72 67 6c 61 73 73  5f 53 6d 61 73 68 22 0d  |ourglass_Smash".|
0000bb50  3e 80 33 c8 99 22 57 69  6d 70 5f 46 6f 72 63 65  |>.3.."Wimp_Force|
0000bb60  52 65 64 72 61 77 22 2c  2d 31 2c 32 38 36 2c 34  |Redraw",-1,286,4|
0000bb70  36 34 2c 37 34 30 2b 32  38 38 2c 31 39 36 2b 34  |64,740+288,196+4|
0000bb80  36 36 0d 3e 8a 05 e1 0d  3e 94 05 cd 0d 3e 9e 48  |66.>....>....>.H|
0000bb90  e7 20 66 68 25 3c 3e 2d  31 20 8c 20 c8 99 22 50  |. fh%<>-1 . .."P|
0000bba0  44 72 69 76 65 72 5f 41  62 6f 72 74 4a 6f 62 22  |Driver_AbortJob"|
0000bbb0  2c 66 68 25 3a c8 99 22  50 44 72 69 76 65 72 5f  |,fh%:.."PDriver_|
0000bbc0  53 65 6c 65 63 74 4a 6f  62 22 2c 6a 6f 62 3a d9  |SelectJob",job:.|
0000bbd0  23 66 68 25 0d 3e a8 17  c8 99 22 48 6f 75 72 67  |#fh%.>...."Hourg|
0000bbe0  6c 61 73 73 5f 53 6d 61  73 68 22 0d 3e b2 25 c8  |lass_Smash".>.%.|
0000bbf0  99 22 4f 53 5f 52 65 61  64 4d 6f 64 65 56 61 72  |."OS_ReadModeVar|
0000bc00  69 61 62 6c 65 22 2c eb  2c 34 20 b8 20 2c 2c 78  |iable",.,4 . ,,x|
0000bc10  0d 3e bc 25 c8 99 22 4f  53 5f 52 65 61 64 4d 6f  |.>.%.."OS_ReadMo|
0000bc20  64 65 56 61 72 69 61 62  6c 65 22 2c eb 2c 35 20  |deVariable",.,5 |
0000bc30  b8 20 2c 2c 79 0d 3e c6  39 c8 97 20 c8 93 20 30  |. ,,y.>.9.. .. 0|
0000bc40  2c 30 2c 28 28 28 62 6c  6f 63 6b 21 31 32 38 29  |,0,(((block!128)|
0000bc50  2b 31 29 2a 32 5e 78 29  2d 31 2c 28 28 62 6c 6f  |+1)*2^x)-1,((blo|
0000bc60  63 6b 21 31 33 32 29 2b  31 29 2a 32 5e 79 0d 3e  |ck!132)+1)*2^y.>|
0000bc70  d0 33 c8 99 22 57 69 6d  70 5f 46 6f 72 63 65 52  |.3.."Wimp_ForceR|
0000bc80  65 64 72 61 77 22 2c 2d  31 2c 32 38 36 2c 34 36  |edraw",-1,286,46|
0000bc90  34 2c 37 34 30 2b 32 38  38 2c 31 39 36 2b 34 36  |4,740+288,196+46|
0000bca0  36 0d 3e da 33 f2 65 72  72 6f 72 28 f6 24 2b 22  |6.>.3.error(.$+"|
0000bcb0  3a 20 61 74 20 6c 69 6e  65 20 22 2b c3 9e 2b 22  |: at line "+..+"|
0000bcc0  20 77 68 69 6c 73 74 20  70 72 69 6e 74 69 6e 67  | whilst printing|
0000bcd0  22 29 3a e1 0d 3e e4 05  e1 0d 3e ee 10 dd f2 6d  |"):..>....>....m|
0000bce0  6f 72 65 63 6f 70 69 65  73 0d 3e f8 20 e7 20 bb  |orecopies.>. . .|
0000bcf0  28 24 a4 69 6e 66 6f 28  70 72 69 6e 74 25 2c 34  |($.info(print%,4|
0000bd00  29 29 3d 39 39 20 8c 20  e1 0d 3f 02 2a f2 69 6e  |))=99 . ..?.*.in|
0000bd10  66 6f 28 70 72 69 6e 74  25 2c 34 2c c3 28 bb 24  |fo(print%,4,.(.$|
0000bd20  a4 69 6e 66 6f 28 70 72  69 6e 74 25 2c 34 29 2b  |.info(print%,4)+|
0000bd30  31 29 29 0d 3f 0c 05 e1  0d 3f 16 10 dd f2 6c 65  |1)).?....?....le|
0000bd40  73 73 63 6f 70 69 65 73  0d 3f 20 1f e7 20 bb 28  |sscopies.? .. .(|
0000bd50  24 a4 69 6e 66 6f 28 70  72 69 6e 74 25 2c 34 29  |$.info(print%,4)|
0000bd60  29 3d 31 20 8c 20 e1 0d  3f 2a 2a f2 69 6e 66 6f  |)=1 . ..?**.info|
0000bd70  28 70 72 69 6e 74 25 2c  34 2c c3 28 bb 24 a4 69  |(print%,4,.(.$.i|
0000bd80  6e 66 6f 28 70 72 69 6e  74 25 2c 34 29 2d 31 29  |nfo(print%,4)-1)|
0000bd90  29 0d 3f 34 05 e1 0d 3f  3e 14 dd f2 75 70 61 6e  |).?4...?>...upan|
0000bda0  64 64 6f 77 6e 28 69 63  6e 29 0d 3f 48 30 21 62  |ddown(icn).?H0!b|
0000bdb0  6c 6f 63 6b 3d 63 6f 6c  6f 75 72 25 3a c8 99 22  |lock=colour%:.."|
0000bdc0  57 69 6d 70 5f 47 65 74  57 69 6e 64 6f 77 49 6e  |Wimp_GetWindowIn|
0000bdd0  66 6f 22 2c 2c 62 6c 6f  63 6b 0d 3f 52 1b 77 6f  |fo",,block.?R.wo|
0000bde0  72 6b 78 25 3d 62 6c 6f  63 6b 21 34 2d 62 6c 6f  |rkx%=block!4-blo|
0000bdf0  63 6b 21 32 30 0d 3f 5c  1c 77 6f 72 6b 79 25 3d  |ck!20.?\.worky%=|
0000be00  62 6c 6f 63 6b 21 31 36  2d 62 6c 6f 63 6b 21 32  |block!16-block!2|
0000be10  34 0d 3f 66 1d 76 61 6c  75 65 72 3d bb 24 a4 69  |4.?f.valuer=.$.i|
0000be20  6e 66 6f 28 63 6f 6c 6f  75 72 25 2c 33 29 0d 3f  |nfo(colour%,3).?|
0000be30  70 1d 76 61 6c 75 65 67  3d bb 24 a4 69 6e 66 6f  |p.valueg=.$.info|
0000be40  28 63 6f 6c 6f 75 72 25  2c 37 29 0d 3f 7a 1e 76  |(colour%,7).?z.v|
0000be50  61 6c 75 65 62 3d bb 24  a4 69 6e 66 6f 28 63 6f  |alueb=.$.info(co|
0000be60  6c 6f 75 72 25 2c 31 31  29 0d 3f 84 0c c8 8e 20  |lour%,11).?.... |
0000be70  69 63 6e 20 ca 0d 3f 8e  08 c9 20 31 3a 0d 3f 98  |icn ..?... 1:.?.|
0000be80  df e7 20 76 61 6c 75 65  72 3e 30 20 f2 69 6e 66  |.. valuer>0 .inf|
0000be90  6f 28 63 6f 6c 6f 75 72  25 2c 33 2c c3 28 76 61  |o(colour%,3,.(va|
0000bea0  6c 75 65 72 2d 31 29 29  3a 68 65 78 3d 28 76 61  |luer-1)):hex=(va|
0000beb0  6c 75 65 62 3c 3c 32 34  29 2b 28 76 61 6c 75 65  |lueb<<24)+(value|
0000bec0  67 3c 3c 31 36 29 2b 28  76 61 6c 75 65 72 3c 3c  |g<<16)+(valuer<<|
0000bed0  38 29 3a c8 99 22 57 69  6d 70 5f 46 6f 72 63 65  |8):.."Wimp_Force|
0000bee0  52 65 64 72 61 77 22 2c  2d 31 2c 77 6f 72 6b 78  |Redraw",-1,workx|
0000bef0  25 2b 32 37 30 2c 77 6f  72 6b 79 25 2d 35 38 2c  |%+270,worky%-58,|
0000bf00  77 6f 72 6b 78 25 2b 36  31 34 2c 77 6f 72 6b 79  |workx%+614,worky|
0000bf10  25 2d 32 34 3a c8 99 22  57 69 6d 70 5f 46 6f 72  |%-24:.."Wimp_For|
0000bf20  63 65 52 65 64 72 61 77  22 2c 2d 31 2c 77 6f 72  |ceRedraw",-1,wor|
0000bf30  6b 78 25 2b 32 33 34 2c  77 6f 72 6b 79 25 2d 32  |kx%+234,worky%-2|
0000bf40  34 37 2c 77 6f 72 6b 78  25 2b 34 31 30 2c 77 6f  |47,workx%+410,wo|
0000bf50  72 6b 79 25 2d 31 39 39  3a 8b 20 e1 0d 3f a2 08  |rky%-199:. ..?..|
0000bf60  c9 20 32 3a 0d 3f ac e1  e7 20 76 61 6c 75 65 72  |. 2:.?... valuer|
0000bf70  3c 32 35 35 20 f2 69 6e  66 6f 28 63 6f 6c 6f 75  |<255 .info(colou|
0000bf80  72 25 2c 33 2c c3 28 76  61 6c 75 65 72 2b 31 29  |r%,3,.(valuer+1)|
0000bf90  29 3a 68 65 78 3d 28 76  61 6c 75 65 62 3c 3c 32  |):hex=(valueb<<2|
0000bfa0  34 29 2b 28 76 61 6c 75  65 67 3c 3c 31 36 29 2b  |4)+(valueg<<16)+|
0000bfb0  28 76 61 6c 75 65 72 3c  3c 38 29 3a c8 99 22 57  |(valuer<<8):.."W|
0000bfc0  69 6d 70 5f 46 6f 72 63  65 52 65 64 72 61 77 22  |imp_ForceRedraw"|
0000bfd0  2c 2d 31 2c 77 6f 72 6b  78 25 2b 32 37 30 2c 77  |,-1,workx%+270,w|
0000bfe0  6f 72 6b 79 25 2d 35 38  2c 77 6f 72 6b 78 25 2b  |orky%-58,workx%+|
0000bff0  36 31 34 2c 77 6f 72 6b  79 25 2d 32 34 3a c8 99  |614,worky%-24:..|
0000c000  22 57 69 6d 70 5f 46 6f  72 63 65 52 65 64 72 61  |"Wimp_ForceRedra|
0000c010  77 22 2c 2d 31 2c 77 6f  72 6b 78 25 2b 32 33 34  |w",-1,workx%+234|
0000c020  2c 77 6f 72 6b 79 25 2d  32 34 37 2c 77 6f 72 6b  |,worky%-247,work|
0000c030  78 25 2b 34 31 30 2c 77  6f 72 6b 79 25 2d 31 39  |x%+410,worky%-19|
0000c040  39 3a 8b 20 e1 0d 3f b6  08 c9 20 35 3a 0d 3f c0  |9:. ..?... 5:.?.|
0000c050  e0 e7 20 76 61 6c 75 65  67 3e 30 20 f2 69 6e 66  |.. valueg>0 .inf|
0000c060  6f 28 63 6f 6c 6f 75 72  25 2c 37 2c c3 28 76 61  |o(colour%,7,.(va|
0000c070  6c 75 65 67 2d 31 29 29  3a 68 65 78 3d 28 76 61  |lueg-1)):hex=(va|
0000c080  6c 75 65 62 3c 3c 32 34  29 2b 28 76 61 6c 75 65  |lueb<<24)+(value|
0000c090  67 3c 3c 31 36 29 2b 28  76 61 6c 75 65 72 3c 3c  |g<<16)+(valuer<<|
0000c0a0  38 29 3a c8 99 22 57 69  6d 70 5f 46 6f 72 63 65  |8):.."Wimp_Force|
0000c0b0  52 65 64 72 61 77 22 2c  2d 31 2c 77 6f 72 6b 78  |Redraw",-1,workx|
0000c0c0  25 2b 32 37 30 2c 77 6f  72 6b 79 25 2d 31 31 34  |%+270,worky%-114|
0000c0d0  2c 77 6f 72 6b 78 25 2b  36 31 34 2c 77 6f 72 6b  |,workx%+614,work|
0000c0e0  79 25 2d 38 30 3a c8 99  22 57 69 6d 70 5f 46 6f  |y%-80:.."Wimp_Fo|
0000c0f0  72 63 65 52 65 64 72 61  77 22 2c 2d 31 2c 77 6f  |rceRedraw",-1,wo|
0000c100  72 6b 78 25 2b 32 33 34  2c 77 6f 72 6b 79 25 2d  |rkx%+234,worky%-|
0000c110  32 34 37 2c 77 6f 72 6b  78 25 2b 34 31 30 2c 77  |247,workx%+410,w|
0000c120  6f 72 6b 79 25 2d 31 39  39 3a 8b 20 e1 0d 3f ca  |orky%-199:. ..?.|
0000c130  08 c9 20 36 3a 0d 3f d4  e2 e7 20 76 61 6c 75 65  |.. 6:.?... value|
0000c140  67 3c 32 35 35 20 f2 69  6e 66 6f 28 63 6f 6c 6f  |g<255 .info(colo|
0000c150  75 72 25 2c 37 2c c3 28  76 61 6c 75 65 67 2b 31  |ur%,7,.(valueg+1|
0000c160  29 29 3a 68 65 78 3d 28  76 61 6c 75 65 62 3c 3c  |)):hex=(valueb<<|
0000c170  32 34 29 2b 28 76 61 6c  75 65 67 3c 3c 31 36 29  |24)+(valueg<<16)|
0000c180  2b 28 76 61 6c 75 65 72  3c 3c 38 29 3a c8 99 22  |+(valuer<<8):.."|
0000c190  57 69 6d 70 5f 46 6f 72  63 65 52 65 64 72 61 77  |Wimp_ForceRedraw|
0000c1a0  22 2c 2d 31 2c 77 6f 72  6b 78 25 2b 32 37 30 2c  |",-1,workx%+270,|
0000c1b0  77 6f 72 6b 79 25 2d 31  31 34 2c 77 6f 72 6b 78  |worky%-114,workx|
0000c1c0  25 2b 36 31 34 2c 77 6f  72 6b 79 25 2d 38 30 3a  |%+614,worky%-80:|
0000c1d0  c8 99 22 57 69 6d 70 5f  46 6f 72 63 65 52 65 64  |.."Wimp_ForceRed|
0000c1e0  72 61 77 22 2c 2d 31 2c  77 6f 72 6b 78 25 2b 32  |raw",-1,workx%+2|
0000c1f0  33 34 2c 77 6f 72 6b 79  25 2d 32 34 37 2c 77 6f  |34,worky%-247,wo|
0000c200  72 6b 78 25 2b 34 31 30  2c 77 6f 72 6b 79 25 2d  |rkx%+410,worky%-|
0000c210  31 39 39 3a 8b 20 e1 0d  3f de 08 c9 20 39 3a 0d  |199:. ..?... 9:.|
0000c220  3f e8 e2 e7 20 76 61 6c  75 65 62 3e 30 20 f2 69  |?... valueb>0 .i|
0000c230  6e 66 6f 28 63 6f 6c 6f  75 72 25 2c 31 31 2c c3  |nfo(colour%,11,.|
0000c240  28 76 61 6c 75 65 62 2d  31 29 29 3a 68 65 78 3d  |(valueb-1)):hex=|
0000c250  28 76 61 6c 75 65 62 3c  3c 32 34 29 2b 28 76 61  |(valueb<<24)+(va|
0000c260  6c 75 65 67 3c 3c 31 36  29 2b 28 76 61 6c 75 65  |lueg<<16)+(value|
0000c270  72 3c 3c 38 29 3a c8 99  22 57 69 6d 70 5f 46 6f  |r<<8):.."Wimp_Fo|
0000c280  72 63 65 52 65 64 72 61  77 22 2c 2d 31 2c 77 6f  |rceRedraw",-1,wo|
0000c290  72 6b 78 25 2b 32 37 30  2c 77 6f 72 6b 79 25 2d  |rkx%+270,worky%-|
0000c2a0  31 37 30 2c 77 6f 72 6b  78 25 2b 36 31 34 2c 77  |170,workx%+614,w|
0000c2b0  6f 72 6b 79 25 2d 31 33  36 3a c8 99 22 57 69 6d  |orky%-136:.."Wim|
0000c2c0  70 5f 46 6f 72 63 65 52  65 64 72 61 77 22 2c 2d  |p_ForceRedraw",-|
0000c2d0  31 2c 77 6f 72 6b 78 25  2b 32 33 34 2c 77 6f 72  |1,workx%+234,wor|
0000c2e0  6b 79 25 2d 32 34 37 2c  77 6f 72 6b 78 25 2b 34  |ky%-247,workx%+4|
0000c2f0  31 30 2c 77 6f 72 6b 79  25 2d 31 39 39 3a 8b 20  |10,worky%-199:. |
0000c300  e1 0d 3f f2 09 c9 20 31  30 3a 0d 3f fc e4 e7 20  |..?... 10:.?... |
0000c310  76 61 6c 75 65 62 3c 32  35 35 20 f2 69 6e 66 6f  |valueb<255 .info|
0000c320  28 63 6f 6c 6f 75 72 25  2c 31 31 2c c3 28 76 61  |(colour%,11,.(va|
0000c330  6c 75 65 62 2b 31 29 29  3a 68 65 78 3d 28 76 61  |lueb+1)):hex=(va|
0000c340  6c 75 65 62 3c 3c 32 34  29 2b 28 76 61 6c 75 65  |lueb<<24)+(value|
0000c350  67 3c 3c 31 36 29 2b 28  76 61 6c 75 65 72 3c 3c  |g<<16)+(valuer<<|
0000c360  38 29 3a c8 99 22 57 69  6d 70 5f 46 6f 72 63 65  |8):.."Wimp_Force|
0000c370  52 65 64 72 61 77 22 2c  2d 31 2c 77 6f 72 6b 78  |Redraw",-1,workx|
0000c380  25 2b 32 37 30 2c 77 6f  72 6b 79 25 2d 31 37 30  |%+270,worky%-170|
0000c390  2c 77 6f 72 6b 78 25 2b  36 31 34 2c 77 6f 72 6b  |,workx%+614,work|
0000c3a0  79 25 2d 31 33 36 3a c8  99 22 57 69 6d 70 5f 46  |y%-136:.."Wimp_F|
0000c3b0  6f 72 63 65 52 65 64 72  61 77 22 2c 2d 31 2c 77  |orceRedraw",-1,w|
0000c3c0  6f 72 6b 78 25 2b 32 33  34 2c 77 6f 72 6b 79 25  |orkx%+234,worky%|
0000c3d0  2d 32 34 37 2c 77 6f 72  6b 78 25 2b 34 31 30 2c  |-247,workx%+410,|
0000c3e0  77 6f 72 6b 79 25 2d 31  39 39 3a 8b 20 e1 0d 40  |worky%-199:. ..@|
0000c3f0  06 05 cb 0d 40 10 05 e1  0d 40 1a 0c dd f2 73 65  |....@....@....se|
0000c400  74 70 65 72 0d 40 24 14  52 45 44 3d 28 68 65 78  |tper.@$.RED=(hex|
0000c410  3e 3e 38 29 80 26 46 46  0d 40 2e 17 47 52 45 45  |>>8).&FF.@..GREE|
0000c420  4e 3d 28 68 65 78 3e 3e  31 36 29 80 26 46 46 0d  |N=(hex>>16).&FF.|
0000c430  40 38 16 42 4c 55 45 3d  28 68 65 78 3e 3e 32 34  |@8.BLUE=(hex>>24|
0000c440  29 80 26 46 46 0d 40 42  19 f2 69 6e 66 6f 28 63  |).&FF.@B..info(c|
0000c450  6f 6c 6f 75 72 25 2c 33  2c c3 52 45 44 29 0d 40  |olour%,3,.RED).@|
0000c460  4c 1b f2 69 6e 66 6f 28  63 6f 6c 6f 75 72 25 2c  |L..info(colour%,|
0000c470  37 2c c3 47 52 45 45 4e  29 0d 40 56 1b f2 69 6e  |7,.GREEN).@V..in|
0000c480  66 6f 28 63 6f 6c 6f 75  72 25 2c 31 31 2c c3 42  |fo(colour%,11,.B|
0000c490  4c 55 45 29 0d 40 60 15  f2 6f 70 65 6e 77 69 6e  |LUE).@`..openwin|
0000c4a0  28 63 6f 6c 6f 75 72 25  29 0d 40 6a 30 21 62 6c  |(colour%).@j0!bl|
0000c4b0  6f 63 6b 3d 63 6f 6c 6f  75 72 25 3a c8 99 22 57  |ock=colour%:.."W|
0000c4c0  69 6d 70 5f 47 65 74 57  69 6e 64 6f 77 49 6e 66  |imp_GetWindowInf|
0000c4d0  6f 22 2c 2c 62 6c 6f 63  6b 0d 40 74 1b 77 6f 72  |o",,block.@t.wor|
0000c4e0  6b 78 25 3d 62 6c 6f 63  6b 21 34 2d 62 6c 6f 63  |kx%=block!4-bloc|
0000c4f0  6b 21 32 30 0d 40 7e 1c  77 6f 72 6b 79 25 3d 62  |k!20.@~.worky%=b|
0000c500  6c 6f 63 6b 21 31 36 2d  62 6c 6f 63 6b 21 32 34  |lock!16-block!24|
0000c510  0d 40 88 46 c8 99 22 57  69 6d 70 5f 46 6f 72 63  |.@.F.."Wimp_Forc|
0000c520  65 52 65 64 72 61 77 22  2c 2d 31 2c 77 6f 72 6b  |eRedraw",-1,work|
0000c530  78 25 2b 32 37 30 2c 77  6f 72 6b 79 25 2d 31 37  |x%+270,worky%-17|
0000c540  30 2c 77 6f 72 6b 78 25  2b 36 31 34 2c 77 6f 72  |0,workx%+614,wor|
0000c550  6b 79 25 2d 32 34 0d 40  92 47 c8 99 22 57 69 6d  |ky%-24.@.G.."Wim|
0000c560  70 5f 46 6f 72 63 65 52  65 64 72 61 77 22 2c 2d  |p_ForceRedraw",-|
0000c570  31 2c 77 6f 72 6b 78 25  2b 32 33 34 2c 77 6f 72  |1,workx%+234,wor|
0000c580  6b 79 25 2d 32 34 37 2c  77 6f 72 6b 78 25 2b 34  |ky%-247,workx%+4|
0000c590  31 30 2c 77 6f 72 6b 79  25 2d 31 39 39 0d 40 9c  |10,worky%-199.@.|
0000c5a0  05 e1 0d 40 a6 04 0d 40  b0 04 0d ff              |...@...@....|
0000c5ac