� !NewLook.!RunImage

&�ms_load("<NewLook$Dir>.Messages")
(
2� taskid%4:$taskid%="TASK"
<?ș "Wimp_Initialise",200,!taskid%,�ms_0("tname") � version%
F	�vars
P� q% &800,temp% 1000
Z A%=�(� � 1<<31): � randomise
dH%=0
n
x� getenv_buffer% 64
�� buffers% 256
�� block 12
�2ș "Wimp_OpenTemplate",,"<Obey$Dir>.Templates"
�;� � ș "Wimp_CloseTemplate":� � 99,�$+"("+ß+","+Þ+")"
�?ș "Wimp_LoadTemplate",,q%,temp%,temp%+1000,-1,"SetIcons",0
�&ș "Wimp_CreateWindow",,q% � seti%
�ș "Wimp_CloseTemplate"
�
�� icon numbers
�%mode24=2:mode22=3:win3d=22:make=7
�;tx_none=12:tx_1=13:tx_random=20:tx_lighter=23:tx_try=24
�>� standard controls for a 'preferences' box, which this is
�quit=25:save=26:default=27

help=28



+ș "OS_ReadModeVariable",-1,5 � ,,yeig%

"-� if not hi res then fade the hi res icon

,�fadeicon(mode22,yeig%>1)

6

@)options$ = �getenv("NewLook$Options")

J.�selecticon(mode22, �options$, "22") <> 0)

TW�selecticon(mode24, �options$, "22") = 0) : � if no variable, still set this option

^.�selecticon(win3d, �options$, "3DW") <> 0)

h2�selecticon(tx_lighter, �options$, "TL") <> 0)

rtxt% = �

|� texture = 1 � 7

�*  t% = �options$, "T"+�(texture)) <> 0

�)  �selecticon(tx_1 - 1 + texture, t%)

�  � t% � txt% = �

�
� texture

�t% = �options$, "TR") <> 0

��selecticon(tx_random, t%)

�� t% � txt% = �

� �selecticon(tx_none, � txt%)

�

��getpointer:�popup(seti%)

�� � �errorbox

�ș Drag,,-1

��
 ș Poll%,1,q% � A%
 Ȏ A% �
C � 2 :�open_window(!q%,q%!4,q%!8,q%!12,q%!16,q%!20,q%!24,q%!28)
& � 3 :�closeawindow(!q%)
06 � 6 :�checkmouse(!q%,q%!4,q%!8,q%!12,q%!16,q%!20)
:` � 10:�!q%=seti% �open_window(!q%,q%!4,q%!8,q%!12,q%!16,q%!20+32*q%!32,q%!24+64*q%!36,q%!28)
D � 17,18:�receive(q%)
N �
X� �
b
l� �receive(q%)
vȎ q%!16 �
�� 0:�finish:�
�� 9: � mode change
�  oldyeig% = yeig%
�-  ș "OS_ReadModeVariable",-1,5 � ,,yeig%
�  �fadeicon(mode22,yeig%>1)
�%  � (oldyeig%<=1) <> (yeig%<=1) �
�$    � try to keep him up to date
�    ș "Hourglass_On"
�    � yeig%<=1 �
�1      �"Iconsprites <NewLook$Dir>.!Sprites22"
�0      �"Iconsprites <NewLook$Dir>.22Sprites"
�"      � �geticonstate(win3d) �
�2        �"Iconsprites <NewLook$Dir>.22Icons3D"
9        � OSCLI"Toolsprites <NewLook$Dir>.22Windws3D"
      �
	    �
 /      �"Iconsprites <NewLook$Dir>.!Sprites"
*;      �"Iconsprites Resources:$.Resources.Wimp.Sprites"
4"      � �geticonstate(win3d) �
>2        �"Iconsprites <NewLook$Dir>.24Icons3D"
H9        � OSCLI"Toolsprites <NewLook$Dir>.24Windws3D"
R      �
\	    �
f    ș "Hourglass_Off"
p  �
z� Message_HelpRequest%
�%  �helpreply(�helptext,q%!8,q%!4)
��
�� end of mode change
�
�M� SYS "Wimp_ReportError","received message "+STR$(q%!16),1,"Set 3D Icons"
��
�
�7� �checkmouse(mousex%,mousey%,b%,handle%,icon%,ob%)
��(b%�5)�
�!  �handle%<>-1��getw(handle%)
�  Ȏ handle% �
�
  � seti%
�    ș "Hourglass_On"
    Ȏ icon% �
    � tx_try
,      � try the texture he has selected.
$D      � Code similar to that of actually setting it (see below).
.      lighter$=""
84      � �geticonstate(tx_lighter) � lighter$="L"
B      � texture = 1 � 7
L1        � �geticonstate(texture - 1 + tx_1) �
VD          � "backdrop -tile <NewLook$Dir>.T"+�(texture)+lighter$
`
        �
j      � texture
t;      � IF FNgeticonstate(tx_none) THEN OSCLI"pinboard"
~U      � - the above removes any icons from your pinboard, unavoidable I'm afraid.
�d      � Alternative - just tile a boring grey sprite! Some slight surprises, but better overall.
�J      � �geticonstate(tx_none) � �"backdrop -tile <NewLook$Dir>.Tnone"
�
�Z      � �geticonstate(tx_random) � � "backdrop -tile <NewLook$Dir>.T"+�(�(7))+lighter$
�
�    � help
�I      �"If ""<Help$Dir>""="""" Then Filer_Run Resources:$.Apps.!Help"
�
�    � default
�      �selecticon(win3d, �)
�#      �selecticon(tx_random, �)
�$      �selecticon(tx_lighter, �)
!      �selecticon(tx_none, �)

      � texture = 1 � 7
8        �selecticon(tx_1 - 1 + texture, texture = 6)
      � texture
(
2    � quit
<      ș "Hourglass_Off"
F      �finish
P      �
Z
d    � make
n'      � apply the current settings.
x      �pressOK
�
�    � save
�
�H      � where to put things that ideally happen before desktop start
�8      savepredesk$ = �getenv("NewLook$PredeskStart")
�E      � where to put things that happen only during desktop start
�2      savedesk$ = �getenv("NewLook$DeskStart")
�V      � These two can point to the same file, in which case it is inside !NewLook.
�K      internal_save% = savepredesk$ = �getenv("NewLook$Dir") + ".State"
�
�K      � rewrite your own internal state file with the current settings.
�
�"      � save the predesk stuff
      H%=� savepredesk$
       �#H%,�ms_0("fcomment")

"      � internal_save% �
,1        � create a single internal state file
6        �setpredesk
@"        �set : � sets 'redraw'
J7        � redraw � �dosave("Run <Obey$Dir>.Redraw")
T'        �#H%,"Set NewLook$Loaded 1"
^        �#H% : H%=0
hS        �"settype <NewLook$PredeskStart> &FEA" : � Desktop - international form
rj        � this file has to be Desktop rather than Obey, because the setting of the Pinboard background
|_        � tile and the running of Redraw both require an address space, and would otherwise
�P        � both use the same one! Pinboard is rather curious in this respect.
�      �
�T        � create two files, one for pre-desktop stuff and one for desktop stuff.
�e        �#H%,"Set Obey$Dir " + �getenv("NewLook$Dir") : � bind in current location of NewLook app
�        �setpredesk
�8        �#H% : H%=0      : � end of the predesk file
�P        �"settype <NewLook$PredeskStart> &FEB" : � Obey - international form
�
�=        H%=� savedesk$ : � start of the at-deskstart file
�"        �#H%,�ms_0("fcomment")
�e        �#H%,"Set Obey$Dir " + �getenv("NewLook$Dir") : � bind in current location of NewLook app
�        �set
�'        �#H%,"Set NewLook$Loaded 1"
        �#H% : H%=0
M        �"settype <NewLook$DeskStart> &FEB" : � Obey - international form
      �
&
0K      � if setting 3D then set the allocated CMOS bit to indicate this.
:h      ș "OS_Byte",161,&8C � ,,cmos%                       : � read CMOS byte &8C (RO2 PRM page 787)
DN      cmos% = cmos% � � 1                                : � clear the bit
ND      � �geticonstate(win3d) � cmos% = cmos% � 1 : � set the bit
XU      ș "OS_Byte",162,&8C,cmos%                            : � and write it back
b
l      � 15-Dec-92
v=      � Having saved this new state, also do what OK does
�8      � so the user is quite clear what he will get.
�H      � This also means that applications which listen to the 3D bit
�G      � need only do so at a mode change, rather than listening for
�#      � a separate message too.
�      �pressOK
�
�	    �
�    ș "Hourglass_Off"
�
�  �
��
��
�
� �pressOK
C� What happens when you press OK - used by the Save button too.
\�"set Obey$Dir <NewLook$Dir>": � commands done via Obey$Dir so they work in a !Boot file
 �setpredesk
*�set
4ș "Wimp_SetMode",�
>�(b%�4)�
H  ș "Hourglass_Off"
R
  �finish
\  �
f�
p�
z
�� �setpredesk
�C� Called for OK or Save - either do it all, or save it all away
�@� This is the things that ought really to be done before the
�� desktop starts up.
�
�� �geticonstate(win3d) �
�4  � haven't actually got any 3d templates yet...
�=  �do("RMEnsure ROMApps3D 0 RMLoad <Obey$Dir>.ROMApps3D")
�\  �do("RMEnsure BorderUtils 0 RMEnsure WindowManager 3.17 RMLoad <Obey$Dir>.BorderUtil")
��
�  � RMEnsure negative.
�$  �dook("Set NewLook$Kill Kill")
�7  �dook("RMEnsure ROMApps3D 0 Set NewLook$Kill No")
	B  �dook("If ""<NewLook$Dir>""=""Kill"" Then RMKill ROMApps3D")
	!  �dook("Unset NewLook$Kill")
	�
	$
	."� yeig%<=1 � a$="22" � a$="24"
	8options$=a$
	B� load 22Sprites
	L� a$ = "24" �
	V=  �dook("Iconsprites Resources:$.Resources.Wimp.Sprites")
	`�
	j-  �do("Iconsprites <Obey$Dir>.22Sprites")
	t�
	~
	�� �geticonstate(win3d) �
	�+  �do("Toolsprites <Obey$Dir>.Tools3d")
	�1  �do("Iconsprites <Obey$Dir>."+a$+"Icons3d")
	�  options$=options$+" 3DW"
	�  � set solid dragging
	�  � OSCLI"fx 162,&1c,3"
	��
	�;  �dook("toolsprites Resources:$.Resources.Wimp.Tools")
	��
	�
	��
	�

� �set

C� Called for OK or Save - either do it all, or save it all away
C� This is the things which should happen during desktop startup
A� Some of this could happen either here on in PROCsetpredesk.
(@� But, setting the pinboard must happen during desktop start
2=� and loading templates must happen before desktop start.
<
F<� options$ and a$ inherited from value in PROCsetpredesk
P
ZMredraw = a$ = "22" : � only for use when saving to an internal state file
d'� �geticonstate(win3d) � redraw = �
n
xlighter$=""
�G� �geticonstate(tx_lighter) � lighter$="L": options$=options$+" TL"
�� texture = 1 � 7
�+  � �geticonstate(texture - 1 + tx_1) �
�>    �do("backdrop -tile <Obey$Dir>.T"+�(texture)+lighter$)
�)    options$=options$+" T"+�(texture)
�  �
�
� texture
�
�:� IF FNgeticonstate(tx_none) THEN PROCdook("pinboard")
�O� - the above removes any icons from your pinboard, unavoidable I'm afraid.
�^� Alternative - just tile a boring grey sprite! Some slight surprises, but better overall.
�G� �geticonstate(tx_none) � �dook("backdrop -tile <Obey$Dir>.Tnone")
�
8� �geticonstate(tx_random) � options$=options$+" TR"
*�do("Set NewLook$Options " + options$)

" � �geticonstate(tx_random) �
,>  �dook("backdrop -tile <NewLook$Dir>.T"+�(�(7))+lighter$)
6(  �dosave("Run <Obey$Dir>.RTexture")
@�
J
T/� 'redraw' is a boolean output of this proc
^�
h
r� DEF PROCcheck(i)
|D�   SYS "Wimp_ReportError","XXXXCheck "+STR$(i),1,"Set 3D Icons"
�
� ENDPROC
�
�� �do(cmd$)
�,� do this for either saving or immediate
�;  � SYS "Wimp_ReportError","XXXX"+cmd$,1,"Set 3D Icons"
�  � H% = 0 �
�    � cmd$
�  �
�    �dosave(cmd$)
�  �
��
�
�� �dosave(cmd$)
(� do this only in the case of saving
  � H% <> 0 �
8    �#H%,"If ""<NewLook$Loaded>""="""" Then " + cmd$
&f    � These NewLook$Loaded tests are only here in order to handle neatly situations where there is
0T    � both internal state, and startup files in the Boot sequence. For instance,
:T    � the user could achieve this by switching from one method of startup to the
DS    � other. In such a case the old State file in the application should end up
NF    � having no effect, because the boot settings get there first.
X  �
b�
l
v� �dook(cmd$)
�1� do this only in the case of an immediate op
�  � H% = 0 �
�    � cmd$
�  �
��
�
�� �geticonstate(icon%)
�$!q%=seti%:q%!4=icon%:ș GetI,,q%
�=q%!24>>21 � 1
�
�� �closeawindow(handle%)
��close_window(handle%)
�
�finish:�

�




� �finish

 ș "Wimp_CloseDown"

*�

4

>� �front(handle%)

H�handle%=-1��

R�getw(handle%)

\6�open_window(handle%,x0%,y0%,x1%,y1%,scx%,scy%,-1)

f�

p

z� �popup(handle%)

��getw(handle%)

�0xo%=mousex%-(x0%+x1%)/2:yo%=mousey%-(y1%+64)

�F�open_window(handle%,x0%+xo%,y0%+yo%,x1%+xo%,y1%+yo%,scx%,scy%,-1)

��

�

�>� �open_window(handle%,x0%,y0%,x1%,y1%,scx%,scy%,bhandle%)

��handle%=-1��

�q%!0=handle%:q%!28=bhandle%

�)q%!4=x0%:q%!8=y0%:q%!12=x1%:q%!16=y1%

�q%!20=scx%:q%!24=scy%

�ș OpenW,,q%

��

�
� �getw(handle%)
!q%=handle%:ș GetW,,q%
+�info(q%+4):bhandle%=q%!28:flags%=q%!32
$�
.
8� �info(q%)
B=x0%=!q%:y0%=q%!4:x1%=q%!8:y1%=q%!12:scx%=q%!16:scy%=q%!20
Lbx%=x0%-scx%:by%=y1%-scy%
V�
`
j*� �update(handle%,ux0%,uy0%,ux1%,uy1%)
t9!q%=handle%:q%!4=ux0%:q%!8=uy0%:q%!12=ux1%:q%!16=uy1%
~&ș UpdateW,,q% � more%:�info(q%+4)
��
�
�� �redraw_window(handle%)
��handle%=seti% �
�!q%=handle%
�ș RedrawW,,q% � more%
��info(q%+4)
�� PROCseti
��
��
�
�� �close_window(handle%)
!q%=handle%:ș CloseW,,q%

�

� �updateicon(q%!4)
(!q%=seti%:q%!8=0:q%!12=0
2ș SetIcon,,q%
<�
F
P� �vars
ZFont  = (1<<18) + (2<<6)
dFindFont= Font+1
nLoseFont= Font+2
xFontDefn= Font+3
�Width  = Font+5
�Paint% = Font+6
�Caret  = Font+7
�Wimp  = (1<<18) + (3<<6)
�CreateW = Wimp+1
�OpenW  = Wimp+5
�CloseW = Wimp+6
�Poll%  = Wimp+7
�RedrawW = Wimp+8
�UpdateW = Wimp+9
�GetR%  = Wimp+10
�GetW  = Wimp+11
�GetI  = Wimp+14
GetP  = Wimp+15
Drag  = Wimp+16
CrMenu = Wimp+20
"DcMenu = Wimp+21
,SetIcon = &400CD
68ș "OS_SWINumberFromString",,"Wimp_SetColour" � Col%
@<ș "OS_SWINumberFromString",,"OS_ReadModeVariable" � RMV
J1ș "OS_SWINumberFromString",,"OS_Byte" � Byte
TMessage_Quit%=0
^Message_SaveDesktop%=10
hMessage_HelpRequest%=&502
rMessage_HelpReply%=&503
|�
�
�� �getpointer
�ș GetP,,q%
�Hmousex%=!q%:mousey%=q%!4:b%=q%!8:handle%=q%!12:icon%=q%!16:ob%=q%!20
��
�
�� �errorbox
�ș Drag,,-1:flg%=1
�/!buffers%=�:$(buffers%+4)=�$+" ("+Þ+")"+�0
�� H%<>0 � �#H%: H%=0
�3ș "Wimp_ReportError",buffers%,1,�ms_0("tname")
��
�
� �fctrl
ȕ more%
 ș GetR%,,q% � more%
&�
0�
:
D� �selecticon(icon%, set%)
N(� if set% then set it, else clear it
X.!q%=seti%: q%!4=icon%: q%!8=0: q%!12=1<<21
b� set% � q%!8=1<<21
lș "Wimp_SetIconState",,q%
v�
�
�� �fadeicon(icon%, set%)
�,� if set% then shade it, else unshade it
�.!q%=seti%: q%!4=icon%: q%!8=0: q%!12=1<<22
�� set% � q%!8=1<<22
�ș "Wimp_SetIconState",,q%
��
�
�� message-handling stuff
���ms_load(name$)
��
���:�3,�$
�$ș"MessageTrans_FileInfo",,name$
�ms_text%256
,ș"OS_Module",6,,,17+�(name$)�,,ms_desc%
$(ms_desc%+16)=name$
 2ș"MessageTrans_OpenFile",ms_desc%,ms_desc%+16
*�
4��ms_end
>(ș"XMessageTrans_CloseFile",ms_desc%
Hș"XOS_Module",7,,ms_desc%
R�
\ݤms_0(tag$)
f=�ms_2(tag$,"","")
pݤms_1(tag$,arg1$)
z=�ms_2(tag$,arg1$,"")
�ݤms_2(tag$,arg1$,arg2$)
�
�F%,L%
�Lș"XMessageTrans_Lookup",ms_desc%,tag$,ms_text%,256,arg1$,arg2$�,,,L%;F%
��F%� 1�L%=0
�ms_text%?L%=13
�=$ms_text%
�(ݤms_N(tag$,arg1$,arg2$,arg3$,arg4$)
�
�F%,L%
�Xș"XMessageTrans_Lookup",ms_desc%,tag$,ms_text%,256,arg1$,arg2$,arg3$,arg4$�,,,L%;F%
��F%� 1�L%=0
�ms_text%?L%=13
�=$ms_text%
�
��helpreply(help$,ref%,to%)
�(help$)>0�
q%!0=256
$q%!12=ref%
.q%!16=Message_HelpReply%
8$(q%+20)=help$+�0
B"ș"Wimp_SendMessage",17,q%,to%
L�
V�
`
jݤhelptext
t
�text$
~text$=�ms_0("H"+�(q%!36))
�!� text$="" � text$=�ms_0("H")
�
=text$
�
�� �getenv(varname$)
�
� envlen%
�=ș "XOS_ReadVarVal",varname$,getenv_buffer%,-1 �,,envlen%
�� envlen% < 0 �
�,  � the variable exists, so read from it
�?  ș "OS_ReadVarVal",varname$,getenv_buffer%,256 �,,envlen%
��
�  envlen% = 0
��
8getenv_buffer%?envlen% = 13  :� terminate the string

=$getenv_buffer%
�

00000000  0d 00 0a 18 f4 20 21 4e  65 77 4c 6f 6f 6b 2e 21  |..... !NewLook.!|
00000010  52 75 6e 49 6d 61 67 65  0d 00 14 04 0d 00 1e 26  |RunImage.......&|
00000020  f2 6d 73 5f 6c 6f 61 64  28 22 3c 4e 65 77 4c 6f  |.ms_load("<NewLo|
00000030  6f 6b 24 44 69 72 3e 2e  4d 65 73 73 61 67 65 73  |ok$Dir>.Messages|
00000040  22 29 0d 00 28 04 0d 00  32 1e de 20 74 61 73 6b  |")..(...2.. task|
00000050  69 64 25 34 3a 24 74 61  73 6b 69 64 25 3d 22 54  |id%4:$taskid%="T|
00000060  41 53 4b 22 0d 00 3c 3f  c8 99 20 22 57 69 6d 70  |ASK"..<?.. "Wimp|
00000070  5f 49 6e 69 74 69 61 6c  69 73 65 22 2c 32 30 30  |_Initialise",200|
00000080  2c 21 74 61 73 6b 69 64  25 2c a4 6d 73 5f 30 28  |,!taskid%,.ms_0(|
00000090  22 74 6e 61 6d 65 22 29  20 b8 20 76 65 72 73 69  |"tname") . versi|
000000a0  6f 6e 25 0d 00 46 09 f2  76 61 72 73 0d 00 50 18  |on%..F..vars..P.|
000000b0  de 20 71 25 20 26 38 30  30 2c 74 65 6d 70 25 20  |. q% &800,temp% |
000000c0  31 30 30 30 0d 00 5a 20  41 25 3d b3 28 91 20 84  |1000..Z A%=.(. .|
000000d0  20 31 3c 3c 33 31 29 3a  20 f4 20 72 61 6e 64 6f  | 1<<31): . rando|
000000e0  6d 69 73 65 0d 00 64 08  48 25 3d 30 0d 00 6e 04  |mise..d.H%=0..n.|
000000f0  0d 00 78 17 de 20 67 65  74 65 6e 76 5f 62 75 66  |..x.. getenv_buf|
00000100  66 65 72 25 20 36 34 0d  00 82 12 de 20 62 75 66  |fer% 64..... buf|
00000110  66 65 72 73 25 20 32 35  36 0d 00 8c 0e de 20 62  |fers% 256..... b|
00000120  6c 6f 63 6b 20 31 32 0d  00 96 32 c8 99 20 22 57  |lock 12...2.. "W|
00000130  69 6d 70 5f 4f 70 65 6e  54 65 6d 70 6c 61 74 65  |imp_OpenTemplate|
00000140  22 2c 2c 22 3c 4f 62 65  79 24 44 69 72 3e 2e 54  |",,"<Obey$Dir>.T|
00000150  65 6d 70 6c 61 74 65 73  22 0d 00 a0 3b ee 20 85  |emplates"...;. .|
00000160  20 c8 99 20 22 57 69 6d  70 5f 43 6c 6f 73 65 54  | .. "Wimp_CloseT|
00000170  65 6d 70 6c 61 74 65 22  3a 85 20 a2 20 39 39 2c  |emplate":. . 99,|
00000180  f6 24 2b 22 28 22 2b c3  9f 2b 22 2c 22 2b c3 9e  |.$+"("+..+","+..|
00000190  2b 22 29 22 0d 00 aa 3f  c8 99 20 22 57 69 6d 70  |+")"...?.. "Wimp|
000001a0  5f 4c 6f 61 64 54 65 6d  70 6c 61 74 65 22 2c 2c  |_LoadTemplate",,|
000001b0  71 25 2c 74 65 6d 70 25  2c 74 65 6d 70 25 2b 31  |q%,temp%,temp%+1|
000001c0  30 30 30 2c 2d 31 2c 22  53 65 74 49 63 6f 6e 73  |000,-1,"SetIcons|
000001d0  22 2c 30 0d 00 b4 26 c8  99 20 22 57 69 6d 70 5f  |",0...&.. "Wimp_|
000001e0  43 72 65 61 74 65 57 69  6e 64 6f 77 22 2c 2c 71  |CreateWindow",,q|
000001f0  25 20 b8 20 73 65 74 69  25 0d 00 be 1b c8 99 20  |% . seti%...... |
00000200  22 57 69 6d 70 5f 43 6c  6f 73 65 54 65 6d 70 6c  |"Wimp_CloseTempl|
00000210  61 74 65 22 0d 00 c8 04  0d 00 d2 12 f4 20 69 63  |ate"......... ic|
00000220  6f 6e 20 6e 75 6d 62 65  72 73 0d 00 dc 25 6d 6f  |on numbers...%mo|
00000230  64 65 32 34 3d 32 3a 6d  6f 64 65 32 32 3d 33 3a  |de24=2:mode22=3:|
00000240  77 69 6e 33 64 3d 32 32  3a 6d 61 6b 65 3d 37 0d  |win3d=22:make=7.|
00000250  00 e6 3b 74 78 5f 6e 6f  6e 65 3d 31 32 3a 74 78  |..;tx_none=12:tx|
00000260  5f 31 3d 31 33 3a 74 78  5f 72 61 6e 64 6f 6d 3d  |_1=13:tx_random=|
00000270  32 30 3a 74 78 5f 6c 69  67 68 74 65 72 3d 32 33  |20:tx_lighter=23|
00000280  3a 74 78 5f 74 72 79 3d  32 34 0d 00 f0 3e f4 20  |:tx_try=24...>. |
00000290  73 74 61 6e 64 61 72 64  20 63 6f 6e 74 72 6f 6c  |standard control|
000002a0  73 20 66 6f 72 20 61 20  27 70 72 65 66 65 72 65  |s for a 'prefere|
000002b0  6e 63 65 73 27 20 62 6f  78 2c 20 77 68 69 63 68  |nces' box, which|
000002c0  20 74 68 69 73 20 69 73  0d 00 fa 1e 71 75 69 74  | this is....quit|
000002d0  3d 32 35 3a 73 61 76 65  3d 32 36 3a 64 65 66 61  |=25:save=26:defa|
000002e0  75 6c 74 3d 32 37 0d 01  04 0b 68 65 6c 70 3d 32  |ult=27....help=2|
000002f0  38 0d 01 0e 04 0d 01 18  2b c8 99 20 22 4f 53 5f  |8.......+.. "OS_|
00000300  52 65 61 64 4d 6f 64 65  56 61 72 69 61 62 6c 65  |ReadModeVariable|
00000310  22 2c 2d 31 2c 35 20 b8  20 2c 2c 79 65 69 67 25  |",-1,5 . ,,yeig%|
00000320  0d 01 22 2d f4 20 69 66  20 6e 6f 74 20 68 69 20  |.."-. if not hi |
00000330  72 65 73 20 74 68 65 6e  20 66 61 64 65 20 74 68  |res then fade th|
00000340  65 20 68 69 20 72 65 73  20 69 63 6f 6e 0d 01 2c  |e hi res icon..,|
00000350  1d f2 66 61 64 65 69 63  6f 6e 28 6d 6f 64 65 32  |..fadeicon(mode2|
00000360  32 2c 79 65 69 67 25 3e  31 29 0d 01 36 04 0d 01  |2,yeig%>1)..6...|
00000370  40 29 6f 70 74 69 6f 6e  73 24 20 3d 20 a4 67 65  |@)options$ = .ge|
00000380  74 65 6e 76 28 22 4e 65  77 4c 6f 6f 6b 24 4f 70  |tenv("NewLook$Op|
00000390  74 69 6f 6e 73 22 29 0d  01 4a 2e f2 73 65 6c 65  |tions")..J..sele|
000003a0  63 74 69 63 6f 6e 28 6d  6f 64 65 32 32 2c 20 a7  |cticon(mode22, .|
000003b0  6f 70 74 69 6f 6e 73 24  2c 20 22 32 32 22 29 20  |options$, "22") |
000003c0  3c 3e 20 30 29 0d 01 54  57 f2 73 65 6c 65 63 74  |<> 0)..TW.select|
000003d0  69 63 6f 6e 28 6d 6f 64  65 32 34 2c 20 a7 6f 70  |icon(mode24, .op|
000003e0  74 69 6f 6e 73 24 2c 20  22 32 32 22 29 20 3d 20  |tions$, "22") = |
000003f0  30 29 20 3a 20 f4 20 69  66 20 6e 6f 20 76 61 72  |0) : . if no var|
00000400  69 61 62 6c 65 2c 20 73  74 69 6c 6c 20 73 65 74  |iable, still set|
00000410  20 74 68 69 73 20 6f 70  74 69 6f 6e 0d 01 5e 2e  | this option..^.|
00000420  f2 73 65 6c 65 63 74 69  63 6f 6e 28 77 69 6e 33  |.selecticon(win3|
00000430  64 2c 20 a7 6f 70 74 69  6f 6e 73 24 2c 20 22 33  |d, .options$, "3|
00000440  44 57 22 29 20 3c 3e 20  30 29 0d 01 68 32 f2 73  |DW") <> 0)..h2.s|
00000450  65 6c 65 63 74 69 63 6f  6e 28 74 78 5f 6c 69 67  |electicon(tx_lig|
00000460  68 74 65 72 2c 20 a7 6f  70 74 69 6f 6e 73 24 2c  |hter, .options$,|
00000470  20 22 54 4c 22 29 20 3c  3e 20 30 29 0d 01 72 0c  | "TL") <> 0)..r.|
00000480  74 78 74 25 20 3d 20 a3  0d 01 7c 15 e3 20 74 65  |txt% = ...|.. te|
00000490  78 74 75 72 65 20 3d 20  31 20 b8 20 37 0d 01 86  |xture = 1 . 7...|
000004a0  2a 20 20 74 25 20 3d 20  a7 6f 70 74 69 6f 6e 73  |*  t% = .options|
000004b0  24 2c 20 22 54 22 2b c3  28 74 65 78 74 75 72 65  |$, "T"+.(texture|
000004c0  29 29 20 3c 3e 20 30 0d  01 90 29 20 20 f2 73 65  |)) <> 0...)  .se|
000004d0  6c 65 63 74 69 63 6f 6e  28 74 78 5f 31 20 2d 20  |lecticon(tx_1 - |
000004e0  31 20 2b 20 74 65 78 74  75 72 65 2c 20 74 25 29  |1 + texture, t%)|
000004f0  0d 01 9a 15 20 20 e7 20  74 25 20 8c 20 74 78 74  |....  . t% . txt|
00000500  25 20 3d 20 b9 0d 01 a4  0d ed 20 74 65 78 74 75  |% = ...... textu|
00000510  72 65 0d 01 ae 1e 74 25  20 3d 20 a7 6f 70 74 69  |re....t% = .opti|
00000520  6f 6e 73 24 2c 20 22 54  52 22 29 20 3c 3e 20 30  |ons$, "TR") <> 0|
00000530  0d 01 b8 1e f2 73 65 6c  65 63 74 69 63 6f 6e 28  |.....selecticon(|
00000540  74 78 5f 72 61 6e 64 6f  6d 2c 20 74 25 29 0d 01  |tx_random, t%)..|
00000550  c2 13 e7 20 74 25 20 8c  20 74 78 74 25 20 3d 20  |... t% . txt% = |
00000560  b9 0d 01 cc 20 f2 73 65  6c 65 63 74 69 63 6f 6e  |.... .selecticon|
00000570  28 74 78 5f 6e 6f 6e 65  2c 20 ac 20 74 78 74 25  |(tx_none, . txt%|
00000580  29 0d 01 d6 04 0d 01 e0  1d f2 67 65 74 70 6f 69  |).........getpoi|
00000590  6e 74 65 72 3a f2 70 6f  70 75 70 28 73 65 74 69  |nter:.popup(seti|
000005a0  25 29 0d 01 ea 11 ee 20  85 20 f2 65 72 72 6f 72  |%)..... . .error|
000005b0  62 6f 78 0d 01 f4 0f c8  99 20 44 72 61 67 2c 2c  |box...... Drag,,|
000005c0  2d 31 0d 01 fe 05 f5 0d  02 08 17 20 c8 99 20 50  |-1......... .. P|
000005d0  6f 6c 6c 25 2c 31 2c 71  25 20 b8 20 41 25 0d 02  |oll%,1,q% . A%..|
000005e0  12 0c 20 c8 8e 20 41 25  20 ca 0d 02 1c 43 20 c9  |.. .. A% ....C .|
000005f0  20 32 20 3a f2 6f 70 65  6e 5f 77 69 6e 64 6f 77  | 2 :.open_window|
00000600  28 21 71 25 2c 71 25 21  34 2c 71 25 21 38 2c 71  |(!q%,q%!4,q%!8,q|
00000610  25 21 31 32 2c 71 25 21  31 36 2c 71 25 21 32 30  |%!12,q%!16,q%!20|
00000620  2c 71 25 21 32 34 2c 71  25 21 32 38 29 0d 02 26  |,q%!24,q%!28)..&|
00000630  1c 20 c9 20 33 20 3a f2  63 6c 6f 73 65 61 77 69  |. . 3 :.closeawi|
00000640  6e 64 6f 77 28 21 71 25  29 0d 02 30 36 20 c9 20  |ndow(!q%)..06 . |
00000650  36 20 3a f2 63 68 65 63  6b 6d 6f 75 73 65 28 21  |6 :.checkmouse(!|
00000660  71 25 2c 71 25 21 34 2c  71 25 21 38 2c 71 25 21  |q%,q%!4,q%!8,q%!|
00000670  31 32 2c 71 25 21 31 36  2c 71 25 21 32 30 29 0d  |12,q%!16,q%!20).|
00000680  02 3a 60 20 c9 20 31 30  3a e7 21 71 25 3d 73 65  |.:` . 10:.!q%=se|
00000690  74 69 25 20 f2 6f 70 65  6e 5f 77 69 6e 64 6f 77  |ti% .open_window|
000006a0  28 21 71 25 2c 71 25 21  34 2c 71 25 21 38 2c 71  |(!q%,q%!4,q%!8,q|
000006b0  25 21 31 32 2c 71 25 21  31 36 2c 71 25 21 32 30  |%!12,q%!16,q%!20|
000006c0  2b 33 32 2a 71 25 21 33  32 2c 71 25 21 32 34 2b  |+32*q%!32,q%!24+|
000006d0  36 34 2a 71 25 21 33 36  2c 71 25 21 32 38 29 0d  |64*q%!36,q%!28).|
000006e0  02 44 19 20 c9 20 31 37  2c 31 38 3a f2 72 65 63  |.D. . 17,18:.rec|
000006f0  65 69 76 65 28 71 25 29  0d 02 4e 06 20 cb 0d 02  |eive(q%)..N. ...|
00000700  58 07 fd 20 a3 0d 02 62  04 0d 02 6c 12 dd 20 f2  |X.. ...b...l.. .|
00000710  72 65 63 65 69 76 65 28  71 25 29 0d 02 76 0e c8  |receive(q%)..v..|
00000720  8e 20 71 25 21 31 36 20  ca 0d 02 80 11 c9 20 30  |. q%!16 ...... 0|
00000730  3a f2 66 69 6e 69 73 68  3a e0 0d 02 8a 16 c9 20  |:.finish:...... |
00000740  39 3a 20 f4 20 6d 6f 64  65 20 63 68 61 6e 67 65  |9: . mode change|
00000750  0d 02 94 16 20 20 6f 6c  64 79 65 69 67 25 20 3d  |....  oldyeig% =|
00000760  20 79 65 69 67 25 0d 02  9e 2d 20 20 c8 99 20 22  | yeig%...-  .. "|
00000770  4f 53 5f 52 65 61 64 4d  6f 64 65 56 61 72 69 61  |OS_ReadModeVaria|
00000780  62 6c 65 22 2c 2d 31 2c  35 20 b8 20 2c 2c 79 65  |ble",-1,5 . ,,ye|
00000790  69 67 25 0d 02 a8 1f 20  20 f2 66 61 64 65 69 63  |ig%....  .fadeic|
000007a0  6f 6e 28 6d 6f 64 65 32  32 2c 79 65 69 67 25 3e  |on(mode22,yeig%>|
000007b0  31 29 0d 02 b2 25 20 20  e7 20 28 6f 6c 64 79 65  |1)...%  . (oldye|
000007c0  69 67 25 3c 3d 31 29 20  3c 3e 20 28 79 65 69 67  |ig%<=1) <> (yeig|
000007d0  25 3c 3d 31 29 20 8c 0d  02 bc 24 20 20 20 20 f4  |%<=1) ....$    .|
000007e0  20 74 72 79 20 74 6f 20  6b 65 65 70 20 68 69 6d  | try to keep him|
000007f0  20 75 70 20 74 6f 20 64  61 74 65 0d 02 c6 19 20  | up to date.... |
00000800  20 20 20 c8 99 20 22 48  6f 75 72 67 6c 61 73 73  |   .. "Hourglass|
00000810  5f 4f 6e 22 0d 02 d0 14  20 20 20 20 e7 20 79 65  |_On"....    . ye|
00000820  69 67 25 3c 3d 31 20 8c  0d 02 da 31 20 20 20 20  |ig%<=1 ....1    |
00000830  20 20 ff 22 49 63 6f 6e  73 70 72 69 74 65 73 20  |  ."Iconsprites |
00000840  3c 4e 65 77 4c 6f 6f 6b  24 44 69 72 3e 2e 21 53  |<NewLook$Dir>.!S|
00000850  70 72 69 74 65 73 32 32  22 0d 02 e4 30 20 20 20  |prites22"...0   |
00000860  20 20 20 ff 22 49 63 6f  6e 73 70 72 69 74 65 73  |   ."Iconsprites|
00000870  20 3c 4e 65 77 4c 6f 6f  6b 24 44 69 72 3e 2e 32  | <NewLook$Dir>.2|
00000880  32 53 70 72 69 74 65 73  22 0d 02 ee 22 20 20 20  |2Sprites"..."   |
00000890  20 20 20 e7 20 a4 67 65  74 69 63 6f 6e 73 74 61  |   . .geticonsta|
000008a0  74 65 28 77 69 6e 33 64  29 20 8c 0d 02 f8 32 20  |te(win3d) ....2 |
000008b0  20 20 20 20 20 20 20 ff  22 49 63 6f 6e 73 70 72  |       ."Iconspr|
000008c0  69 74 65 73 20 3c 4e 65  77 4c 6f 6f 6b 24 44 69  |ites <NewLook$Di|
000008d0  72 3e 2e 32 32 49 63 6f  6e 73 33 44 22 0d 03 02  |r>.22Icons3D"...|
000008e0  39 20 20 20 20 20 20 20  20 f4 20 4f 53 43 4c 49  |9        . OSCLI|
000008f0  22 54 6f 6f 6c 73 70 72  69 74 65 73 20 3c 4e 65  |"Toolsprites <Ne|
00000900  77 4c 6f 6f 6b 24 44 69  72 3e 2e 32 32 57 69 6e  |wLook$Dir>.22Win|
00000910  64 77 73 33 44 22 0d 03  0c 0b 20 20 20 20 20 20  |dws3D"....      |
00000920  cd 0d 03 16 09 20 20 20  20 cc 0d 03 20 2f 20 20  |.....    ... /  |
00000930  20 20 20 20 ff 22 49 63  6f 6e 73 70 72 69 74 65  |    ."Iconsprite|
00000940  73 20 3c 4e 65 77 4c 6f  6f 6b 24 44 69 72 3e 2e  |s <NewLook$Dir>.|
00000950  21 53 70 72 69 74 65 73  22 0d 03 2a 3b 20 20 20  |!Sprites"..*;   |
00000960  20 20 20 ff 22 49 63 6f  6e 73 70 72 69 74 65 73  |   ."Iconsprites|
00000970  20 52 65 73 6f 75 72 63  65 73 3a 24 2e 52 65 73  | Resources:$.Res|
00000980  6f 75 72 63 65 73 2e 57  69 6d 70 2e 53 70 72 69  |ources.Wimp.Spri|
00000990  74 65 73 22 0d 03 34 22  20 20 20 20 20 20 e7 20  |tes"..4"      . |
000009a0  a4 67 65 74 69 63 6f 6e  73 74 61 74 65 28 77 69  |.geticonstate(wi|
000009b0  6e 33 64 29 20 8c 0d 03  3e 32 20 20 20 20 20 20  |n3d) ...>2      |
000009c0  20 20 ff 22 49 63 6f 6e  73 70 72 69 74 65 73 20  |  ."Iconsprites |
000009d0  3c 4e 65 77 4c 6f 6f 6b  24 44 69 72 3e 2e 32 34  |<NewLook$Dir>.24|
000009e0  49 63 6f 6e 73 33 44 22  0d 03 48 39 20 20 20 20  |Icons3D"..H9    |
000009f0  20 20 20 20 f4 20 4f 53  43 4c 49 22 54 6f 6f 6c  |    . OSCLI"Tool|
00000a00  73 70 72 69 74 65 73 20  3c 4e 65 77 4c 6f 6f 6b  |sprites <NewLook|
00000a10  24 44 69 72 3e 2e 32 34  57 69 6e 64 77 73 33 44  |$Dir>.24Windws3D|
00000a20  22 0d 03 52 0b 20 20 20  20 20 20 cd 0d 03 5c 09  |"..R.      ...\.|
00000a30  20 20 20 20 cd 0d 03 66  1a 20 20 20 20 c8 99 20  |    ...f.    .. |
00000a40  22 48 6f 75 72 67 6c 61  73 73 5f 4f 66 66 22 0d  |"Hourglass_Off".|
00000a50  03 70 07 20 20 cd 0d 03  7a 1a c9 20 4d 65 73 73  |.p.  ...z.. Mess|
00000a60  61 67 65 5f 48 65 6c 70  52 65 71 75 65 73 74 25  |age_HelpRequest%|
00000a70  0d 03 84 25 20 20 f2 68  65 6c 70 72 65 70 6c 79  |...%  .helpreply|
00000a80  28 a4 68 65 6c 70 74 65  78 74 2c 71 25 21 38 2c  |(.helptext,q%!8,|
00000a90  71 25 21 34 29 0d 03 8e  05 cb 0d 03 98 18 f4 20  |q%!4).......... |
00000aa0  65 6e 64 20 6f 66 20 6d  6f 64 65 20 63 68 61 6e  |end of mode chan|
00000ab0  67 65 0d 03 a2 04 0d 03  ac 4d f4 20 53 59 53 20  |ge.......M. SYS |
00000ac0  22 57 69 6d 70 5f 52 65  70 6f 72 74 45 72 72 6f  |"Wimp_ReportErro|
00000ad0  72 22 2c 22 72 65 63 65  69 76 65 64 20 6d 65 73  |r","received mes|
00000ae0  73 61 67 65 20 22 2b 53  54 52 24 28 71 25 21 31  |sage "+STR$(q%!1|
00000af0  36 29 2c 31 2c 22 53 65  74 20 33 44 20 49 63 6f  |6),1,"Set 3D Ico|
00000b00  6e 73 22 0d 03 b6 05 e1  0d 03 c0 04 0d 03 ca 37  |ns"............7|
00000b10  dd 20 f2 63 68 65 63 6b  6d 6f 75 73 65 28 6d 6f  |. .checkmouse(mo|
00000b20  75 73 65 78 25 2c 6d 6f  75 73 65 79 25 2c 62 25  |usex%,mousey%,b%|
00000b30  2c 68 61 6e 64 6c 65 25  2c 69 63 6f 6e 25 2c 6f  |,handle%,icon%,o|
00000b40  62 25 29 0d 03 d4 0c e7  28 62 25 80 35 29 8c 0d  |b%).....(b%.5)..|
00000b50  03 de 21 20 20 e7 68 61  6e 64 6c 65 25 3c 3e 2d  |..!  .handle%<>-|
00000b60  31 8c f2 67 65 74 77 28  68 61 6e 64 6c 65 25 29  |1..getw(handle%)|
00000b70  0d 03 e8 12 20 20 c8 8e  20 68 61 6e 64 6c 65 25  |....  .. handle%|
00000b80  20 ca 0d 03 f2 0d 20 20  c9 20 73 65 74 69 25 0d  | .....  . seti%.|
00000b90  03 fc 19 20 20 20 20 c8  99 20 22 48 6f 75 72 67  |...    .. "Hourg|
00000ba0  6c 61 73 73 5f 4f 6e 22  0d 04 06 12 20 20 20 20  |lass_On"....    |
00000bb0  c8 8e 20 69 63 6f 6e 25  20 ca 0d 04 10 10 20 20  |.. icon% .....  |
00000bc0  20 20 c9 20 74 78 5f 74  72 79 0d 04 1a 2c 20 20  |  . tx_try...,  |
00000bd0  20 20 20 20 f4 20 74 72  79 20 74 68 65 20 74 65  |    . try the te|
00000be0  78 74 75 72 65 20 68 65  20 68 61 73 20 73 65 6c  |xture he has sel|
00000bf0  65 63 74 65 64 2e 0d 04  24 44 20 20 20 20 20 20  |ected...$D      |
00000c00  f4 20 43 6f 64 65 20 73  69 6d 69 6c 61 72 20 74  |. Code similar t|
00000c10  6f 20 74 68 61 74 20 6f  66 20 61 63 74 75 61 6c  |o that of actual|
00000c20  6c 79 20 73 65 74 74 69  6e 67 20 69 74 20 28 73  |ly setting it (s|
00000c30  65 65 20 62 65 6c 6f 77  29 2e 0d 04 2e 15 20 20  |ee below).....  |
00000c40  20 20 20 20 6c 69 67 68  74 65 72 24 3d 22 22 0d  |    lighter$="".|
00000c50  04 38 34 20 20 20 20 20  20 e7 20 a4 67 65 74 69  |.84      . .geti|
00000c60  63 6f 6e 73 74 61 74 65  28 74 78 5f 6c 69 67 68  |constate(tx_ligh|
00000c70  74 65 72 29 20 8c 20 6c  69 67 68 74 65 72 24 3d  |ter) . lighter$=|
00000c80  22 4c 22 0d 04 42 1b 20  20 20 20 20 20 e3 20 74  |"L"..B.      . t|
00000c90  65 78 74 75 72 65 20 3d  20 31 20 b8 20 37 0d 04  |exture = 1 . 7..|
00000ca0  4c 31 20 20 20 20 20 20  20 20 e7 20 a4 67 65 74  |L1        . .get|
00000cb0  69 63 6f 6e 73 74 61 74  65 28 74 65 78 74 75 72  |iconstate(textur|
00000cc0  65 20 2d 20 31 20 2b 20  74 78 5f 31 29 20 8c 0d  |e - 1 + tx_1) ..|
00000cd0  04 56 44 20 20 20 20 20  20 20 20 20 20 ff 20 22  |.VD          . "|
00000ce0  62 61 63 6b 64 72 6f 70  20 2d 74 69 6c 65 20 3c  |backdrop -tile <|
00000cf0  4e 65 77 4c 6f 6f 6b 24  44 69 72 3e 2e 54 22 2b  |NewLook$Dir>.T"+|
00000d00  c3 28 74 65 78 74 75 72  65 29 2b 6c 69 67 68 74  |.(texture)+light|
00000d10  65 72 24 0d 04 60 0d 20  20 20 20 20 20 20 20 cd  |er$..`.        .|
00000d20  0d 04 6a 13 20 20 20 20  20 20 ed 20 74 65 78 74  |..j.      . text|
00000d30  75 72 65 0d 04 74 3b 20  20 20 20 20 20 f4 20 49  |ure..t;      . I|
00000d40  46 20 46 4e 67 65 74 69  63 6f 6e 73 74 61 74 65  |F FNgeticonstate|
00000d50  28 74 78 5f 6e 6f 6e 65  29 20 54 48 45 4e 20 4f  |(tx_none) THEN O|
00000d60  53 43 4c 49 22 70 69 6e  62 6f 61 72 64 22 0d 04  |SCLI"pinboard"..|
00000d70  7e 55 20 20 20 20 20 20  f4 20 2d 20 74 68 65 20  |~U      . - the |
00000d80  61 62 6f 76 65 20 72 65  6d 6f 76 65 73 20 61 6e  |above removes an|
00000d90  79 20 69 63 6f 6e 73 20  66 72 6f 6d 20 79 6f 75  |y icons from you|
00000da0  72 20 70 69 6e 62 6f 61  72 64 2c 20 75 6e 61 76  |r pinboard, unav|
00000db0  6f 69 64 61 62 6c 65 20  49 27 6d 20 61 66 72 61  |oidable I'm afra|
00000dc0  69 64 2e 0d 04 88 64 20  20 20 20 20 20 f4 20 41  |id....d      . A|
00000dd0  6c 74 65 72 6e 61 74 69  76 65 20 2d 20 6a 75 73  |lternative - jus|
00000de0  74 20 74 69 6c 65 20 61  20 62 6f 72 69 6e 67 20  |t tile a boring |
00000df0  67 72 65 79 20 73 70 72  69 74 65 21 20 53 6f 6d  |grey sprite! Som|
00000e00  65 20 73 6c 69 67 68 74  20 73 75 72 70 72 69 73  |e slight surpris|
00000e10  65 73 2c 20 62 75 74 20  62 65 74 74 65 72 20 6f  |es, but better o|
00000e20  76 65 72 61 6c 6c 2e 0d  04 92 4a 20 20 20 20 20  |verall....J     |
00000e30  20 e7 20 a4 67 65 74 69  63 6f 6e 73 74 61 74 65  | . .geticonstate|
00000e40  28 74 78 5f 6e 6f 6e 65  29 20 8c 20 ff 22 62 61  |(tx_none) . ."ba|
00000e50  63 6b 64 72 6f 70 20 2d  74 69 6c 65 20 3c 4e 65  |ckdrop -tile <Ne|
00000e60  77 4c 6f 6f 6b 24 44 69  72 3e 2e 54 6e 6f 6e 65  |wLook$Dir>.Tnone|
00000e70  22 0d 04 9c 04 0d 04 a6  5a 20 20 20 20 20 20 e7  |".......Z      .|
00000e80  20 a4 67 65 74 69 63 6f  6e 73 74 61 74 65 28 74  | .geticonstate(t|
00000e90  78 5f 72 61 6e 64 6f 6d  29 20 8c 20 ff 20 22 62  |x_random) . . "b|
00000ea0  61 63 6b 64 72 6f 70 20  2d 74 69 6c 65 20 3c 4e  |ackdrop -tile <N|
00000eb0  65 77 4c 6f 6f 6b 24 44  69 72 3e 2e 54 22 2b c3  |ewLook$Dir>.T"+.|
00000ec0  28 b3 28 37 29 29 2b 6c  69 67 68 74 65 72 24 0d  |(.(7))+lighter$.|
00000ed0  04 b0 04 0d 04 ba 0e 20  20 20 20 c9 20 68 65 6c  |.......    . hel|
00000ee0  70 0d 04 c4 49 20 20 20  20 20 20 ff 22 49 66 20  |p...I      ."If |
00000ef0  22 22 3c 48 65 6c 70 24  44 69 72 3e 22 22 3d 22  |""<Help$Dir>""="|
00000f00  22 22 22 20 54 68 65 6e  20 46 69 6c 65 72 5f 52  |""" Then Filer_R|
00000f10  75 6e 20 52 65 73 6f 75  72 63 65 73 3a 24 2e 41  |un Resources:$.A|
00000f20  70 70 73 2e 21 48 65 6c  70 22 0d 04 ce 04 0d 04  |pps.!Help"......|
00000f30  d8 11 20 20 20 20 c9 20  64 65 66 61 75 6c 74 0d  |..    . default.|
00000f40  04 e2 1f 20 20 20 20 20  20 f2 73 65 6c 65 63 74  |...      .select|
00000f50  69 63 6f 6e 28 77 69 6e  33 64 2c 20 b9 29 0d 04  |icon(win3d, .)..|
00000f60  ec 23 20 20 20 20 20 20  f2 73 65 6c 65 63 74 69  |.#      .selecti|
00000f70  63 6f 6e 28 74 78 5f 72  61 6e 64 6f 6d 2c 20 a3  |con(tx_random, .|
00000f80  29 0d 04 f6 24 20 20 20  20 20 20 f2 73 65 6c 65  |)...$      .sele|
00000f90  63 74 69 63 6f 6e 28 74  78 5f 6c 69 67 68 74 65  |cticon(tx_lighte|
00000fa0  72 2c 20 a3 29 0d 05 00  21 20 20 20 20 20 20 f2  |r, .)...!      .|
00000fb0  73 65 6c 65 63 74 69 63  6f 6e 28 74 78 5f 6e 6f  |selecticon(tx_no|
00000fc0  6e 65 2c 20 a3 29 0d 05  0a 1b 20 20 20 20 20 20  |ne, .)....      |
00000fd0  e3 20 74 65 78 74 75 72  65 20 3d 20 31 20 b8 20  |. texture = 1 . |
00000fe0  37 0d 05 14 38 20 20 20  20 20 20 20 20 f2 73 65  |7...8        .se|
00000ff0  6c 65 63 74 69 63 6f 6e  28 74 78 5f 31 20 2d 20  |lecticon(tx_1 - |
00001000  31 20 2b 20 74 65 78 74  75 72 65 2c 20 74 65 78  |1 + texture, tex|
00001010  74 75 72 65 20 3d 20 36  29 0d 05 1e 13 20 20 20  |ture = 6)....   |
00001020  20 20 20 ed 20 74 65 78  74 75 72 65 0d 05 28 04  |   . texture..(.|
00001030  0d 05 32 0e 20 20 20 20  c9 20 71 75 69 74 0d 05  |..2.    . quit..|
00001040  3c 1c 20 20 20 20 20 20  c8 99 20 22 48 6f 75 72  |<.      .. "Hour|
00001050  67 6c 61 73 73 5f 4f 66  66 22 0d 05 46 11 20 20  |glass_Off"..F.  |
00001060  20 20 20 20 f2 66 69 6e  69 73 68 0d 05 50 0b 20  |    .finish..P. |
00001070  20 20 20 20 20 e0 0d 05  5a 04 0d 05 64 0e 20 20  |     ...Z...d.  |
00001080  20 20 c9 20 6d 61 6b 65  0d 05 6e 27 20 20 20 20  |  . make..n'    |
00001090  20 20 f4 20 61 70 70 6c  79 20 74 68 65 20 63 75  |  . apply the cu|
000010a0  72 72 65 6e 74 20 73 65  74 74 69 6e 67 73 2e 0d  |rrent settings..|
000010b0  05 78 12 20 20 20 20 20  20 f2 70 72 65 73 73 4f  |.x.      .pressO|
000010c0  4b 0d 05 82 04 0d 05 8c  0e 20 20 20 20 c9 20 73  |K........    . s|
000010d0  61 76 65 0d 05 96 04 0d  05 a0 48 20 20 20 20 20  |ave.......H     |
000010e0  20 f4 20 77 68 65 72 65  20 74 6f 20 70 75 74 20  | . where to put |
000010f0  74 68 69 6e 67 73 20 74  68 61 74 20 69 64 65 61  |things that idea|
00001100  6c 6c 79 20 68 61 70 70  65 6e 20 62 65 66 6f 72  |lly happen befor|
00001110  65 20 64 65 73 6b 74 6f  70 20 73 74 61 72 74 0d  |e desktop start.|
00001120  05 aa 38 20 20 20 20 20  20 73 61 76 65 70 72 65  |..8      savepre|
00001130  64 65 73 6b 24 20 3d 20  a4 67 65 74 65 6e 76 28  |desk$ = .getenv(|
00001140  22 4e 65 77 4c 6f 6f 6b  24 50 72 65 64 65 73 6b  |"NewLook$Predesk|
00001150  53 74 61 72 74 22 29 0d  05 b4 45 20 20 20 20 20  |Start")...E     |
00001160  20 f4 20 77 68 65 72 65  20 74 6f 20 70 75 74 20  | . where to put |
00001170  74 68 69 6e 67 73 20 74  68 61 74 20 68 61 70 70  |things that happ|
00001180  65 6e 20 6f 6e 6c 79 20  64 75 72 69 6e 67 20 64  |en only during d|
00001190  65 73 6b 74 6f 70 20 73  74 61 72 74 0d 05 be 32  |esktop start...2|
000011a0  20 20 20 20 20 20 73 61  76 65 64 65 73 6b 24 20  |      savedesk$ |
000011b0  3d 20 a4 67 65 74 65 6e  76 28 22 4e 65 77 4c 6f  |= .getenv("NewLo|
000011c0  6f 6b 24 44 65 73 6b 53  74 61 72 74 22 29 0d 05  |ok$DeskStart")..|
000011d0  c8 56 20 20 20 20 20 20  f4 20 54 68 65 73 65 20  |.V      . These |
000011e0  74 77 6f 20 63 61 6e 20  70 6f 69 6e 74 20 74 6f  |two can point to|
000011f0  20 74 68 65 20 73 61 6d  65 20 66 69 6c 65 2c 20  | the same file, |
00001200  69 6e 20 77 68 69 63 68  20 63 61 73 65 20 69 74  |in which case it|
00001210  20 69 73 20 69 6e 73 69  64 65 20 21 4e 65 77 4c  | is inside !NewL|
00001220  6f 6f 6b 2e 0d 05 d2 4b  20 20 20 20 20 20 69 6e  |ook....K      in|
00001230  74 65 72 6e 61 6c 5f 73  61 76 65 25 20 3d 20 73  |ternal_save% = s|
00001240  61 76 65 70 72 65 64 65  73 6b 24 20 3d 20 a4 67  |avepredesk$ = .g|
00001250  65 74 65 6e 76 28 22 4e  65 77 4c 6f 6f 6b 24 44  |etenv("NewLook$D|
00001260  69 72 22 29 20 2b 20 22  2e 53 74 61 74 65 22 0d  |ir") + ".State".|
00001270  05 dc 04 0d 05 e6 4b 20  20 20 20 20 20 f4 20 72  |......K      . r|
00001280  65 77 72 69 74 65 20 79  6f 75 72 20 6f 77 6e 20  |ewrite your own |
00001290  69 6e 74 65 72 6e 61 6c  20 73 74 61 74 65 20 66  |internal state f|
000012a0  69 6c 65 20 77 69 74 68  20 74 68 65 20 63 75 72  |ile with the cur|
000012b0  72 65 6e 74 20 73 65 74  74 69 6e 67 73 2e 0d 05  |rent settings...|
000012c0  f0 04 0d 05 fa 22 20 20  20 20 20 20 f4 20 73 61  |....."      . sa|
000012d0  76 65 20 74 68 65 20 70  72 65 64 65 73 6b 20 73  |ve the predesk s|
000012e0  74 75 66 66 0d 06 04 1b  20 20 20 20 20 20 48 25  |tuff....      H%|
000012f0  3d ae 20 73 61 76 65 70  72 65 64 65 73 6b 24 0d  |=. savepredesk$.|
00001300  06 0e 20 20 20 20 20 20  20 d5 23 48 25 2c a4 6d  |..       .#H%,.m|
00001310  73 5f 30 28 22 66 63 6f  6d 6d 65 6e 74 22 29 0d  |s_0("fcomment").|
00001320  06 18 04 0d 06 22 1c 20  20 20 20 20 20 e7 20 69  |.....".      . i|
00001330  6e 74 65 72 6e 61 6c 5f  73 61 76 65 25 20 8c 0d  |nternal_save% ..|
00001340  06 2c 31 20 20 20 20 20  20 20 20 f4 20 63 72 65  |.,1        . cre|
00001350  61 74 65 20 61 20 73 69  6e 67 6c 65 20 69 6e 74  |ate a single int|
00001360  65 72 6e 61 6c 20 73 74  61 74 65 20 66 69 6c 65  |ernal state file|
00001370  0d 06 36 17 20 20 20 20  20 20 20 20 f2 73 65 74  |..6.        .set|
00001380  70 72 65 64 65 73 6b 0d  06 40 22 20 20 20 20 20  |predesk..@"     |
00001390  20 20 20 f2 73 65 74 20  3a 20 f4 20 73 65 74 73  |   .set : . sets|
000013a0  20 27 72 65 64 72 61 77  27 0d 06 4a 37 20 20 20  | 'redraw'..J7   |
000013b0  20 20 20 20 20 e7 20 72  65 64 72 61 77 20 8c 20  |     . redraw . |
000013c0  f2 64 6f 73 61 76 65 28  22 52 75 6e 20 3c 4f 62  |.dosave("Run <Ob|
000013d0  65 79 24 44 69 72 3e 2e  52 65 64 72 61 77 22 29  |ey$Dir>.Redraw")|
000013e0  0d 06 54 27 20 20 20 20  20 20 20 20 d5 23 48 25  |..T'        .#H%|
000013f0  2c 22 53 65 74 20 4e 65  77 4c 6f 6f 6b 24 4c 6f  |,"Set NewLook$Lo|
00001400  61 64 65 64 20 31 22 0d  06 5e 17 20 20 20 20 20  |aded 1"..^.     |
00001410  20 20 20 d9 23 48 25 20  3a 20 48 25 3d 30 0d 06  |   .#H% : H%=0..|
00001420  68 53 20 20 20 20 20 20  20 20 ff 22 73 65 74 74  |hS        ."sett|
00001430  79 70 65 20 3c 4e 65 77  4c 6f 6f 6b 24 50 72 65  |ype <NewLook$Pre|
00001440  64 65 73 6b 53 74 61 72  74 3e 20 26 46 45 41 22  |deskStart> &FEA"|
00001450  20 3a 20 f4 20 44 65 73  6b 74 6f 70 20 2d 20 69  | : . Desktop - i|
00001460  6e 74 65 72 6e 61 74 69  6f 6e 61 6c 20 66 6f 72  |nternational for|
00001470  6d 0d 06 72 6a 20 20 20  20 20 20 20 20 f4 20 74  |m..rj        . t|
00001480  68 69 73 20 66 69 6c 65  20 68 61 73 20 74 6f 20  |his file has to |
00001490  62 65 20 44 65 73 6b 74  6f 70 20 72 61 74 68 65  |be Desktop rathe|
000014a0  72 20 74 68 61 6e 20 4f  62 65 79 2c 20 62 65 63  |r than Obey, bec|
000014b0  61 75 73 65 20 74 68 65  20 73 65 74 74 69 6e 67  |ause the setting|
000014c0  20 6f 66 20 74 68 65 20  50 69 6e 62 6f 61 72 64  | of the Pinboard|
000014d0  20 62 61 63 6b 67 72 6f  75 6e 64 0d 06 7c 5f 20  | background..|_ |
000014e0  20 20 20 20 20 20 20 f4  20 74 69 6c 65 20 61 6e  |       . tile an|
000014f0  64 20 74 68 65 20 72 75  6e 6e 69 6e 67 20 6f 66  |d the running of|
00001500  20 52 65 64 72 61 77 20  62 6f 74 68 20 72 65 71  | Redraw both req|
00001510  75 69 72 65 20 61 6e 20  61 64 64 72 65 73 73 20  |uire an address |
00001520  73 70 61 63 65 2c 20 61  6e 64 20 77 6f 75 6c 64  |space, and would|
00001530  20 6f 74 68 65 72 77 69  73 65 0d 06 86 50 20 20  | otherwise...P  |
00001540  20 20 20 20 20 20 f4 20  62 6f 74 68 20 75 73 65  |      . both use|
00001550  20 74 68 65 20 73 61 6d  65 20 6f 6e 65 21 20 50  | the same one! P|
00001560  69 6e 62 6f 61 72 64 20  69 73 20 72 61 74 68 65  |inboard is rathe|
00001570  72 20 63 75 72 69 6f 75  73 20 69 6e 20 74 68 69  |r curious in thi|
00001580  73 20 72 65 73 70 65 63  74 2e 0d 06 90 0b 20 20  |s respect.....  |
00001590  20 20 20 20 cc 0d 06 9a  54 20 20 20 20 20 20 20  |    ....T       |
000015a0  20 f4 20 63 72 65 61 74  65 20 74 77 6f 20 66 69  | . create two fi|
000015b0  6c 65 73 2c 20 6f 6e 65  20 66 6f 72 20 70 72 65  |les, one for pre|
000015c0  2d 64 65 73 6b 74 6f 70  20 73 74 75 66 66 20 61  |-desktop stuff a|
000015d0  6e 64 20 6f 6e 65 20 66  6f 72 20 64 65 73 6b 74  |nd one for deskt|
000015e0  6f 70 20 73 74 75 66 66  2e 0d 06 a4 65 20 20 20  |op stuff....e   |
000015f0  20 20 20 20 20 d5 23 48  25 2c 22 53 65 74 20 4f  |     .#H%,"Set O|
00001600  62 65 79 24 44 69 72 20  22 20 2b 20 a4 67 65 74  |bey$Dir " + .get|
00001610  65 6e 76 28 22 4e 65 77  4c 6f 6f 6b 24 44 69 72  |env("NewLook$Dir|
00001620  22 29 20 3a 20 f4 20 62  69 6e 64 20 69 6e 20 63  |") : . bind in c|
00001630  75 72 72 65 6e 74 20 6c  6f 63 61 74 69 6f 6e 20  |urrent location |
00001640  6f 66 20 4e 65 77 4c 6f  6f 6b 20 61 70 70 0d 06  |of NewLook app..|
00001650  ae 17 20 20 20 20 20 20  20 20 f2 73 65 74 70 72  |..        .setpr|
00001660  65 64 65 73 6b 0d 06 b8  38 20 20 20 20 20 20 20  |edesk...8       |
00001670  20 d9 23 48 25 20 3a 20  48 25 3d 30 20 20 20 20  | .#H% : H%=0    |
00001680  20 20 3a 20 f4 20 65 6e  64 20 6f 66 20 74 68 65  |  : . end of the|
00001690  20 70 72 65 64 65 73 6b  20 66 69 6c 65 0d 06 c2  | predesk file...|
000016a0  50 20 20 20 20 20 20 20  20 ff 22 73 65 74 74 79  |P        ."setty|
000016b0  70 65 20 3c 4e 65 77 4c  6f 6f 6b 24 50 72 65 64  |pe <NewLook$Pred|
000016c0  65 73 6b 53 74 61 72 74  3e 20 26 46 45 42 22 20  |eskStart> &FEB" |
000016d0  3a 20 f4 20 4f 62 65 79  20 2d 20 69 6e 74 65 72  |: . Obey - inter|
000016e0  6e 61 74 69 6f 6e 61 6c  20 66 6f 72 6d 0d 06 cc  |national form...|
000016f0  04 0d 06 d6 3d 20 20 20  20 20 20 20 20 48 25 3d  |....=        H%=|
00001700  ae 20 73 61 76 65 64 65  73 6b 24 20 3a 20 f4 20  |. savedesk$ : . |
00001710  73 74 61 72 74 20 6f 66  20 74 68 65 20 61 74 2d  |start of the at-|
00001720  64 65 73 6b 73 74 61 72  74 20 66 69 6c 65 0d 06  |deskstart file..|
00001730  e0 22 20 20 20 20 20 20  20 20 d5 23 48 25 2c a4  |."        .#H%,.|
00001740  6d 73 5f 30 28 22 66 63  6f 6d 6d 65 6e 74 22 29  |ms_0("fcomment")|
00001750  0d 06 ea 65 20 20 20 20  20 20 20 20 d5 23 48 25  |...e        .#H%|
00001760  2c 22 53 65 74 20 4f 62  65 79 24 44 69 72 20 22  |,"Set Obey$Dir "|
00001770  20 2b 20 a4 67 65 74 65  6e 76 28 22 4e 65 77 4c  | + .getenv("NewL|
00001780  6f 6f 6b 24 44 69 72 22  29 20 3a 20 f4 20 62 69  |ook$Dir") : . bi|
00001790  6e 64 20 69 6e 20 63 75  72 72 65 6e 74 20 6c 6f  |nd in current lo|
000017a0  63 61 74 69 6f 6e 20 6f  66 20 4e 65 77 4c 6f 6f  |cation of NewLoo|
000017b0  6b 20 61 70 70 0d 06 f4  10 20 20 20 20 20 20 20  |k app....       |
000017c0  20 f2 73 65 74 0d 06 fe  27 20 20 20 20 20 20 20  | .set...'       |
000017d0  20 d5 23 48 25 2c 22 53  65 74 20 4e 65 77 4c 6f  | .#H%,"Set NewLo|
000017e0  6f 6b 24 4c 6f 61 64 65  64 20 31 22 0d 07 08 17  |ok$Loaded 1"....|
000017f0  20 20 20 20 20 20 20 20  d9 23 48 25 20 3a 20 48  |        .#H% : H|
00001800  25 3d 30 0d 07 12 4d 20  20 20 20 20 20 20 20 ff  |%=0...M        .|
00001810  22 73 65 74 74 79 70 65  20 3c 4e 65 77 4c 6f 6f  |"settype <NewLoo|
00001820  6b 24 44 65 73 6b 53 74  61 72 74 3e 20 26 46 45  |k$DeskStart> &FE|
00001830  42 22 20 3a 20 f4 20 4f  62 65 79 20 2d 20 69 6e  |B" : . Obey - in|
00001840  74 65 72 6e 61 74 69 6f  6e 61 6c 20 66 6f 72 6d  |ternational form|
00001850  0d 07 1c 0b 20 20 20 20  20 20 cd 0d 07 26 04 0d  |....      ...&..|
00001860  07 30 4b 20 20 20 20 20  20 f4 20 69 66 20 73 65  |.0K      . if se|
00001870  74 74 69 6e 67 20 33 44  20 74 68 65 6e 20 73 65  |tting 3D then se|
00001880  74 20 74 68 65 20 61 6c  6c 6f 63 61 74 65 64 20  |t the allocated |
00001890  43 4d 4f 53 20 62 69 74  20 74 6f 20 69 6e 64 69  |CMOS bit to indi|
000018a0  63 61 74 65 20 74 68 69  73 2e 0d 07 3a 68 20 20  |cate this...:h  |
000018b0  20 20 20 20 c8 99 20 22  4f 53 5f 42 79 74 65 22  |    .. "OS_Byte"|
000018c0  2c 31 36 31 2c 26 38 43  20 b8 20 2c 2c 63 6d 6f  |,161,&8C . ,,cmo|
000018d0  73 25 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |s%              |
000018e0  20 20 20 20 20 20 20 20  20 3a 20 f4 20 72 65 61  |         : . rea|
000018f0  64 20 43 4d 4f 53 20 62  79 74 65 20 26 38 43 20  |d CMOS byte &8C |
00001900  28 52 4f 32 20 50 52 4d  20 70 61 67 65 20 37 38  |(RO2 PRM page 78|
00001910  37 29 0d 07 44 4e 20 20  20 20 20 20 63 6d 6f 73  |7)..DN      cmos|
00001920  25 20 3d 20 63 6d 6f 73  25 20 80 20 ac 20 31 20  |% = cmos% . . 1 |
00001930  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001940  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3a  |               :|
00001950  20 f4 20 63 6c 65 61 72  20 74 68 65 20 62 69 74  | . clear the bit|
00001960  0d 07 4e 44 20 20 20 20  20 20 e7 20 a4 67 65 74  |..ND      . .get|
00001970  69 63 6f 6e 73 74 61 74  65 28 77 69 6e 33 64 29  |iconstate(win3d)|
00001980  20 8c 20 63 6d 6f 73 25  20 3d 20 63 6d 6f 73 25  | . cmos% = cmos%|
00001990  20 84 20 31 20 3a 20 f4  20 73 65 74 20 74 68 65  | . 1 : . set the|
000019a0  20 62 69 74 0d 07 58 55  20 20 20 20 20 20 c8 99  | bit..XU      ..|
000019b0  20 22 4f 53 5f 42 79 74  65 22 2c 31 36 32 2c 26  | "OS_Byte",162,&|
000019c0  38 43 2c 63 6d 6f 73 25  20 20 20 20 20 20 20 20  |8C,cmos%        |
000019d0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000019e0  20 20 20 20 3a 20 f4 20  61 6e 64 20 77 72 69 74  |    : . and writ|
000019f0  65 20 69 74 20 62 61 63  6b 0d 07 62 04 0d 07 6c  |e it back..b...l|
00001a00  15 20 20 20 20 20 20 f4  20 31 35 2d 44 65 63 2d  |.      . 15-Dec-|
00001a10  39 32 0d 07 76 3d 20 20  20 20 20 20 f4 20 48 61  |92..v=      . Ha|
00001a20  76 69 6e 67 20 73 61 76  65 64 20 74 68 69 73 20  |ving saved this |
00001a30  6e 65 77 20 73 74 61 74  65 2c 20 61 6c 73 6f 20  |new state, also |
00001a40  64 6f 20 77 68 61 74 20  4f 4b 20 64 6f 65 73 0d  |do what OK does.|
00001a50  07 80 38 20 20 20 20 20  20 f4 20 73 6f 20 74 68  |..8      . so th|
00001a60  65 20 75 73 65 72 20 69  73 20 71 75 69 74 65 20  |e user is quite |
00001a70  63 6c 65 61 72 20 77 68  61 74 20 68 65 20 77 69  |clear what he wi|
00001a80  6c 6c 20 67 65 74 2e 0d  07 8a 48 20 20 20 20 20  |ll get....H     |
00001a90  20 f4 20 54 68 69 73 20  61 6c 73 6f 20 6d 65 61  | . This also mea|
00001aa0  6e 73 20 74 68 61 74 20  61 70 70 6c 69 63 61 74  |ns that applicat|
00001ab0  69 6f 6e 73 20 77 68 69  63 68 20 6c 69 73 74 65  |ions which liste|
00001ac0  6e 20 74 6f 20 74 68 65  20 33 44 20 62 69 74 0d  |n to the 3D bit.|
00001ad0  07 94 47 20 20 20 20 20  20 f4 20 6e 65 65 64 20  |..G      . need |
00001ae0  6f 6e 6c 79 20 64 6f 20  73 6f 20 61 74 20 61 20  |only do so at a |
00001af0  6d 6f 64 65 20 63 68 61  6e 67 65 2c 20 72 61 74  |mode change, rat|
00001b00  68 65 72 20 74 68 61 6e  20 6c 69 73 74 65 6e 69  |her than listeni|
00001b10  6e 67 20 66 6f 72 0d 07  9e 23 20 20 20 20 20 20  |ng for...#      |
00001b20  f4 20 61 20 73 65 70 61  72 61 74 65 20 6d 65 73  |. a separate mes|
00001b30  73 61 67 65 20 74 6f 6f  2e 0d 07 a8 12 20 20 20  |sage too.....   |
00001b40  20 20 20 f2 70 72 65 73  73 4f 4b 0d 07 b2 04 0d  |   .pressOK.....|
00001b50  07 bc 09 20 20 20 20 cb  0d 07 c6 1a 20 20 20 20  |...    .....    |
00001b60  c8 99 20 22 48 6f 75 72  67 6c 61 73 73 5f 4f 66  |.. "Hourglass_Of|
00001b70  66 22 0d 07 d0 04 0d 07  da 07 20 20 cb 0d 07 e4  |f"........  ....|
00001b80  05 cd 0d 07 ee 05 e1 0d  07 f8 04 0d 08 02 0e dd  |................|
00001b90  20 f2 70 72 65 73 73 4f  4b 0d 08 0c 43 f4 20 57  | .pressOK...C. W|
00001ba0  68 61 74 20 68 61 70 70  65 6e 73 20 77 68 65 6e  |hat happens when|
00001bb0  20 79 6f 75 20 70 72 65  73 73 20 4f 4b 20 2d 20  | you press OK - |
00001bc0  75 73 65 64 20 62 79 20  74 68 65 20 53 61 76 65  |used by the Save|
00001bd0  20 62 75 74 74 6f 6e 20  74 6f 6f 2e 0d 08 16 5c  | button too....\|
00001be0  ff 22 73 65 74 20 4f 62  65 79 24 44 69 72 20 3c  |."set Obey$Dir <|
00001bf0  4e 65 77 4c 6f 6f 6b 24  44 69 72 3e 22 3a 20 f4  |NewLook$Dir>": .|
00001c00  20 63 6f 6d 6d 61 6e 64  73 20 64 6f 6e 65 20 76  | commands done v|
00001c10  69 61 20 4f 62 65 79 24  44 69 72 20 73 6f 20 74  |ia Obey$Dir so t|
00001c20  68 65 79 20 77 6f 72 6b  20 69 6e 20 61 20 21 42  |hey work in a !B|
00001c30  6f 6f 74 20 66 69 6c 65  0d 08 20 0f f2 73 65 74  |oot file.. ..set|
00001c40  70 72 65 64 65 73 6b 0d  08 2a 08 f2 73 65 74 0d  |predesk..*..set.|
00001c50  08 34 17 c8 99 20 22 57  69 6d 70 5f 53 65 74 4d  |.4... "Wimp_SetM|
00001c60  6f 64 65 22 2c eb 0d 08  3e 0c e7 28 62 25 80 34  |ode",...>..(b%.4|
00001c70  29 8c 0d 08 48 18 20 20  c8 99 20 22 48 6f 75 72  |)...H.  .. "Hour|
00001c80  67 6c 61 73 73 5f 4f 66  66 22 0d 08 52 0d 20 20  |glass_Off"..R.  |
00001c90  f2 66 69 6e 69 73 68 0d  08 5c 07 20 20 e0 0d 08  |.finish..\.  ...|
00001ca0  66 05 cd 0d 08 70 05 e1  0d 08 7a 04 0d 08 84 11  |f....p....z.....|
00001cb0  dd 20 f2 73 65 74 70 72  65 64 65 73 6b 0d 08 8e  |. .setpredesk...|
00001cc0  43 f4 20 43 61 6c 6c 65  64 20 66 6f 72 20 4f 4b  |C. Called for OK|
00001cd0  20 6f 72 20 53 61 76 65  20 2d 20 65 69 74 68 65  | or Save - eithe|
00001ce0  72 20 64 6f 20 69 74 20  61 6c 6c 2c 20 6f 72 20  |r do it all, or |
00001cf0  73 61 76 65 20 69 74 20  61 6c 6c 20 61 77 61 79  |save it all away|
00001d00  0d 08 98 40 f4 20 54 68  69 73 20 69 73 20 74 68  |...@. This is th|
00001d10  65 20 74 68 69 6e 67 73  20 74 68 61 74 20 6f 75  |e things that ou|
00001d20  67 68 74 20 72 65 61 6c  6c 79 20 74 6f 20 62 65  |ght really to be|
00001d30  20 64 6f 6e 65 20 62 65  66 6f 72 65 20 74 68 65  | done before the|
00001d40  0d 08 a2 18 f4 20 64 65  73 6b 74 6f 70 20 73 74  |..... desktop st|
00001d50  61 72 74 73 20 75 70 2e  0d 08 ac 04 0d 08 b6 1c  |arts up.........|
00001d60  e7 20 a4 67 65 74 69 63  6f 6e 73 74 61 74 65 28  |. .geticonstate(|
00001d70  77 69 6e 33 64 29 20 8c  0d 08 c0 34 20 20 f4 20  |win3d) ....4  . |
00001d80  68 61 76 65 6e 27 74 20  61 63 74 75 61 6c 6c 79  |haven't actually|
00001d90  20 67 6f 74 20 61 6e 79  20 33 64 20 74 65 6d 70  | got any 3d temp|
00001da0  6c 61 74 65 73 20 79 65  74 2e 2e 2e 0d 08 ca 3d  |lates yet......=|
00001db0  20 20 f2 64 6f 28 22 52  4d 45 6e 73 75 72 65 20  |  .do("RMEnsure |
00001dc0  52 4f 4d 41 70 70 73 33  44 20 30 20 52 4d 4c 6f  |ROMApps3D 0 RMLo|
00001dd0  61 64 20 3c 4f 62 65 79  24 44 69 72 3e 2e 52 4f  |ad <Obey$Dir>.RO|
00001de0  4d 41 70 70 73 33 44 22  29 0d 08 d4 5c 20 20 f2  |MApps3D")...\  .|
00001df0  64 6f 28 22 52 4d 45 6e  73 75 72 65 20 42 6f 72  |do("RMEnsure Bor|
00001e00  64 65 72 55 74 69 6c 73  20 30 20 52 4d 45 6e 73  |derUtils 0 RMEns|
00001e10  75 72 65 20 57 69 6e 64  6f 77 4d 61 6e 61 67 65  |ure WindowManage|
00001e20  72 20 33 2e 31 37 20 52  4d 4c 6f 61 64 20 3c 4f  |r 3.17 RMLoad <O|
00001e30  62 65 79 24 44 69 72 3e  2e 42 6f 72 64 65 72 55  |bey$Dir>.BorderU|
00001e40  74 69 6c 22 29 0d 08 de  05 cc 0d 08 e8 1a 20 20  |til").........  |
00001e50  f4 20 52 4d 45 6e 73 75  72 65 20 6e 65 67 61 74  |. RMEnsure negat|
00001e60  69 76 65 2e 0d 08 f2 24  20 20 f2 64 6f 6f 6b 28  |ive....$  .dook(|
00001e70  22 53 65 74 20 4e 65 77  4c 6f 6f 6b 24 4b 69 6c  |"Set NewLook$Kil|
00001e80  6c 20 4b 69 6c 6c 22 29  0d 08 fc 37 20 20 f2 64  |l Kill")...7  .d|
00001e90  6f 6f 6b 28 22 52 4d 45  6e 73 75 72 65 20 52 4f  |ook("RMEnsure RO|
00001ea0  4d 41 70 70 73 33 44 20  30 20 53 65 74 20 4e 65  |MApps3D 0 Set Ne|
00001eb0  77 4c 6f 6f 6b 24 4b 69  6c 6c 20 4e 6f 22 29 0d  |wLook$Kill No").|
00001ec0  09 06 42 20 20 f2 64 6f  6f 6b 28 22 49 66 20 22  |..B  .dook("If "|
00001ed0  22 3c 4e 65 77 4c 6f 6f  6b 24 44 69 72 3e 22 22  |"<NewLook$Dir>""|
00001ee0  3d 22 22 4b 69 6c 6c 22  22 20 54 68 65 6e 20 52  |=""Kill"" Then R|
00001ef0  4d 4b 69 6c 6c 20 52 4f  4d 41 70 70 73 33 44 22  |MKill ROMApps3D"|
00001f00  29 0d 09 10 21 20 20 f2  64 6f 6f 6b 28 22 55 6e  |)...!  .dook("Un|
00001f10  73 65 74 20 4e 65 77 4c  6f 6f 6b 24 4b 69 6c 6c  |set NewLook$Kill|
00001f20  22 29 0d 09 1a 05 cd 0d  09 24 04 0d 09 2e 22 e7  |").......$....".|
00001f30  20 79 65 69 67 25 3c 3d  31 20 8c 20 61 24 3d 22  | yeig%<=1 . a$="|
00001f40  32 32 22 20 8b 20 61 24  3d 22 32 34 22 0d 09 38  |22" . a$="24"..8|
00001f50  0f 6f 70 74 69 6f 6e 73  24 3d 61 24 0d 09 42 14  |.options$=a$..B.|
00001f60  f4 20 6c 6f 61 64 20 32  32 53 70 72 69 74 65 73  |. load 22Sprites|
00001f70  0d 09 4c 11 e7 20 61 24  20 3d 20 22 32 34 22 20  |..L.. a$ = "24" |
00001f80  8c 0d 09 56 3d 20 20 f2  64 6f 6f 6b 28 22 49 63  |...V=  .dook("Ic|
00001f90  6f 6e 73 70 72 69 74 65  73 20 52 65 73 6f 75 72  |onsprites Resour|
00001fa0  63 65 73 3a 24 2e 52 65  73 6f 75 72 63 65 73 2e  |ces:$.Resources.|
00001fb0  57 69 6d 70 2e 53 70 72  69 74 65 73 22 29 0d 09  |Wimp.Sprites")..|
00001fc0  60 05 cc 0d 09 6a 2d 20  20 f2 64 6f 28 22 49 63  |`....j-  .do("Ic|
00001fd0  6f 6e 73 70 72 69 74 65  73 20 3c 4f 62 65 79 24  |onsprites <Obey$|
00001fe0  44 69 72 3e 2e 32 32 53  70 72 69 74 65 73 22 29  |Dir>.22Sprites")|
00001ff0  0d 09 74 05 cd 0d 09 7e  04 0d 09 88 1c e7 20 a4  |..t....~...... .|
00002000  67 65 74 69 63 6f 6e 73  74 61 74 65 28 77 69 6e  |geticonstate(win|
00002010  33 64 29 20 8c 0d 09 92  2b 20 20 f2 64 6f 28 22  |3d) ....+  .do("|
00002020  54 6f 6f 6c 73 70 72 69  74 65 73 20 3c 4f 62 65  |Toolsprites <Obe|
00002030  79 24 44 69 72 3e 2e 54  6f 6f 6c 73 33 64 22 29  |y$Dir>.Tools3d")|
00002040  0d 09 9c 31 20 20 f2 64  6f 28 22 49 63 6f 6e 73  |...1  .do("Icons|
00002050  70 72 69 74 65 73 20 3c  4f 62 65 79 24 44 69 72  |prites <Obey$Dir|
00002060  3e 2e 22 2b 61 24 2b 22  49 63 6f 6e 73 33 64 22  |>."+a$+"Icons3d"|
00002070  29 0d 09 a6 1e 20 20 6f  70 74 69 6f 6e 73 24 3d  |)....  options$=|
00002080  6f 70 74 69 6f 6e 73 24  2b 22 20 33 44 57 22 0d  |options$+" 3DW".|
00002090  09 b0 1a 20 20 f4 20 73  65 74 20 73 6f 6c 69 64  |...  . set solid|
000020a0  20 64 72 61 67 67 69 6e  67 0d 09 ba 1b 20 20 f4  | dragging....  .|
000020b0  20 4f 53 43 4c 49 22 66  78 20 31 36 32 2c 26 31  | OSCLI"fx 162,&1|
000020c0  63 2c 33 22 0d 09 c4 05  cc 0d 09 ce 3b 20 20 f2  |c,3"........;  .|
000020d0  64 6f 6f 6b 28 22 74 6f  6f 6c 73 70 72 69 74 65  |dook("toolsprite|
000020e0  73 20 52 65 73 6f 75 72  63 65 73 3a 24 2e 52 65  |s Resources:$.Re|
000020f0  73 6f 75 72 63 65 73 2e  57 69 6d 70 2e 54 6f 6f  |sources.Wimp.Too|
00002100  6c 73 22 29 0d 09 d8 05  cd 0d 09 e2 04 0d 09 ec  |ls")............|
00002110  05 e1 0d 09 f6 04 0d 0a  00 0a dd 20 f2 73 65 74  |........... .set|
00002120  0d 0a 0a 43 f4 20 43 61  6c 6c 65 64 20 66 6f 72  |...C. Called for|
00002130  20 4f 4b 20 6f 72 20 53  61 76 65 20 2d 20 65 69  | OK or Save - ei|
00002140  74 68 65 72 20 64 6f 20  69 74 20 61 6c 6c 2c 20  |ther do it all, |
00002150  6f 72 20 73 61 76 65 20  69 74 20 61 6c 6c 20 61  |or save it all a|
00002160  77 61 79 0d 0a 14 43 f4  20 54 68 69 73 20 69 73  |way...C. This is|
00002170  20 74 68 65 20 74 68 69  6e 67 73 20 77 68 69 63  | the things whic|
00002180  68 20 73 68 6f 75 6c 64  20 68 61 70 70 65 6e 20  |h should happen |
00002190  64 75 72 69 6e 67 20 64  65 73 6b 74 6f 70 20 73  |during desktop s|
000021a0  74 61 72 74 75 70 0d 0a  1e 41 f4 20 53 6f 6d 65  |tartup...A. Some|
000021b0  20 6f 66 20 74 68 69 73  20 63 6f 75 6c 64 20 68  | of this could h|
000021c0  61 70 70 65 6e 20 65 69  74 68 65 72 20 68 65 72  |appen either her|
000021d0  65 20 6f 6e 20 69 6e 20  50 52 4f 43 73 65 74 70  |e on in PROCsetp|
000021e0  72 65 64 65 73 6b 2e 0d  0a 28 40 f4 20 42 75 74  |redesk...(@. But|
000021f0  2c 20 73 65 74 74 69 6e  67 20 74 68 65 20 70 69  |, setting the pi|
00002200  6e 62 6f 61 72 64 20 6d  75 73 74 20 68 61 70 70  |nboard must happ|
00002210  65 6e 20 64 75 72 69 6e  67 20 64 65 73 6b 74 6f  |en during deskto|
00002220  70 20 73 74 61 72 74 0d  0a 32 3d f4 20 61 6e 64  |p start..2=. and|
00002230  20 6c 6f 61 64 69 6e 67  20 74 65 6d 70 6c 61 74  | loading templat|
00002240  65 73 20 6d 75 73 74 20  68 61 70 70 65 6e 20 62  |es must happen b|
00002250  65 66 6f 72 65 20 64 65  73 6b 74 6f 70 20 73 74  |efore desktop st|
00002260  61 72 74 2e 0d 0a 3c 04  0d 0a 46 3c f4 20 6f 70  |art...<...F<. op|
00002270  74 69 6f 6e 73 24 20 61  6e 64 20 61 24 20 69 6e  |tions$ and a$ in|
00002280  68 65 72 69 74 65 64 20  66 72 6f 6d 20 76 61 6c  |herited from val|
00002290  75 65 20 69 6e 20 50 52  4f 43 73 65 74 70 72 65  |ue in PROCsetpre|
000022a0  64 65 73 6b 0d 0a 50 04  0d 0a 5a 4d 72 65 64 72  |desk..P...ZMredr|
000022b0  61 77 20 3d 20 61 24 20  3d 20 22 32 32 22 20 3a  |aw = a$ = "22" :|
000022c0  20 f4 20 6f 6e 6c 79 20  66 6f 72 20 75 73 65 20  | . only for use |
000022d0  77 68 65 6e 20 73 61 76  69 6e 67 20 74 6f 20 61  |when saving to a|
000022e0  6e 20 69 6e 74 65 72 6e  61 6c 20 73 74 61 74 65  |n internal state|
000022f0  20 66 69 6c 65 0d 0a 64  27 e7 20 a4 67 65 74 69  | file..d'. .geti|
00002300  63 6f 6e 73 74 61 74 65  28 77 69 6e 33 64 29 20  |constate(win3d) |
00002310  8c 20 72 65 64 72 61 77  20 3d 20 b9 0d 0a 6e 04  |. redraw = ...n.|
00002320  0d 0a 78 0f 6c 69 67 68  74 65 72 24 3d 22 22 0d  |..x.lighter$="".|
00002330  0a 82 47 e7 20 a4 67 65  74 69 63 6f 6e 73 74 61  |..G. .geticonsta|
00002340  74 65 28 74 78 5f 6c 69  67 68 74 65 72 29 20 8c  |te(tx_lighter) .|
00002350  20 6c 69 67 68 74 65 72  24 3d 22 4c 22 3a 20 6f  | lighter$="L": o|
00002360  70 74 69 6f 6e 73 24 3d  6f 70 74 69 6f 6e 73 24  |ptions$=options$|
00002370  2b 22 20 54 4c 22 0d 0a  8c 15 e3 20 74 65 78 74  |+" TL"..... text|
00002380  75 72 65 20 3d 20 31 20  b8 20 37 0d 0a 96 2b 20  |ure = 1 . 7...+ |
00002390  20 e7 20 a4 67 65 74 69  63 6f 6e 73 74 61 74 65  | . .geticonstate|
000023a0  28 74 65 78 74 75 72 65  20 2d 20 31 20 2b 20 74  |(texture - 1 + t|
000023b0  78 5f 31 29 20 8c 0d 0a  a0 3e 20 20 20 20 f2 64  |x_1) ....>    .d|
000023c0  6f 28 22 62 61 63 6b 64  72 6f 70 20 2d 74 69 6c  |o("backdrop -til|
000023d0  65 20 3c 4f 62 65 79 24  44 69 72 3e 2e 54 22 2b  |e <Obey$Dir>.T"+|
000023e0  c3 28 74 65 78 74 75 72  65 29 2b 6c 69 67 68 74  |.(texture)+light|
000023f0  65 72 24 29 0d 0a aa 29  20 20 20 20 6f 70 74 69  |er$)...)    opti|
00002400  6f 6e 73 24 3d 6f 70 74  69 6f 6e 73 24 2b 22 20  |ons$=options$+" |
00002410  54 22 2b c3 28 74 65 78  74 75 72 65 29 0d 0a b4  |T"+.(texture)...|
00002420  07 20 20 cd 0d 0a be 0d  ed 20 74 65 78 74 75 72  |.  ...... textur|
00002430  65 0d 0a c8 04 0d 0a d2  3a f4 20 49 46 20 46 4e  |e.......:. IF FN|
00002440  67 65 74 69 63 6f 6e 73  74 61 74 65 28 74 78 5f  |geticonstate(tx_|
00002450  6e 6f 6e 65 29 20 54 48  45 4e 20 50 52 4f 43 64  |none) THEN PROCd|
00002460  6f 6f 6b 28 22 70 69 6e  62 6f 61 72 64 22 29 0d  |ook("pinboard").|
00002470  0a dc 4f f4 20 2d 20 74  68 65 20 61 62 6f 76 65  |..O. - the above|
00002480  20 72 65 6d 6f 76 65 73  20 61 6e 79 20 69 63 6f  | removes any ico|
00002490  6e 73 20 66 72 6f 6d 20  79 6f 75 72 20 70 69 6e  |ns from your pin|
000024a0  62 6f 61 72 64 2c 20 75  6e 61 76 6f 69 64 61 62  |board, unavoidab|
000024b0  6c 65 20 49 27 6d 20 61  66 72 61 69 64 2e 0d 0a  |le I'm afraid...|
000024c0  e6 5e f4 20 41 6c 74 65  72 6e 61 74 69 76 65 20  |.^. Alternative |
000024d0  2d 20 6a 75 73 74 20 74  69 6c 65 20 61 20 62 6f  |- just tile a bo|
000024e0  72 69 6e 67 20 67 72 65  79 20 73 70 72 69 74 65  |ring grey sprite|
000024f0  21 20 53 6f 6d 65 20 73  6c 69 67 68 74 20 73 75  |! Some slight su|
00002500  72 70 72 69 73 65 73 2c  20 62 75 74 20 62 65 74  |rprises, but bet|
00002510  74 65 72 20 6f 76 65 72  61 6c 6c 2e 0d 0a f0 47  |ter overall....G|
00002520  e7 20 a4 67 65 74 69 63  6f 6e 73 74 61 74 65 28  |. .geticonstate(|
00002530  74 78 5f 6e 6f 6e 65 29  20 8c 20 f2 64 6f 6f 6b  |tx_none) . .dook|
00002540  28 22 62 61 63 6b 64 72  6f 70 20 2d 74 69 6c 65  |("backdrop -tile|
00002550  20 3c 4f 62 65 79 24 44  69 72 3e 2e 54 6e 6f 6e  | <Obey$Dir>.Tnon|
00002560  65 22 29 0d 0a fa 04 0d  0b 04 38 e7 20 a4 67 65  |e").......8. .ge|
00002570  74 69 63 6f 6e 73 74 61  74 65 28 74 78 5f 72 61  |ticonstate(tx_ra|
00002580  6e 64 6f 6d 29 20 8c 20  6f 70 74 69 6f 6e 73 24  |ndom) . options$|
00002590  3d 6f 70 74 69 6f 6e 73  24 2b 22 20 54 52 22 0d  |=options$+" TR".|
000025a0  0b 0e 2a f2 64 6f 28 22  53 65 74 20 4e 65 77 4c  |..*.do("Set NewL|
000025b0  6f 6f 6b 24 4f 70 74 69  6f 6e 73 20 22 20 2b 20  |ook$Options " + |
000025c0  6f 70 74 69 6f 6e 73 24  29 0d 0b 18 04 0d 0b 22  |options$)......"|
000025d0  20 e7 20 a4 67 65 74 69  63 6f 6e 73 74 61 74 65  | . .geticonstate|
000025e0  28 74 78 5f 72 61 6e 64  6f 6d 29 20 8c 0d 0b 2c  |(tx_random) ...,|
000025f0  3e 20 20 f2 64 6f 6f 6b  28 22 62 61 63 6b 64 72  |>  .dook("backdr|
00002600  6f 70 20 2d 74 69 6c 65  20 3c 4e 65 77 4c 6f 6f  |op -tile <NewLoo|
00002610  6b 24 44 69 72 3e 2e 54  22 2b c3 28 b3 28 37 29  |k$Dir>.T"+.(.(7)|
00002620  29 2b 6c 69 67 68 74 65  72 24 29 0d 0b 36 28 20  |)+lighter$)..6( |
00002630  20 f2 64 6f 73 61 76 65  28 22 52 75 6e 20 3c 4f  | .dosave("Run <O|
00002640  62 65 79 24 44 69 72 3e  2e 52 54 65 78 74 75 72  |bey$Dir>.RTextur|
00002650  65 22 29 0d 0b 40 05 cd  0d 0b 4a 04 0d 0b 54 2f  |e")..@....J...T/|
00002660  f4 20 27 72 65 64 72 61  77 27 20 69 73 20 61 20  |. 'redraw' is a |
00002670  62 6f 6f 6c 65 61 6e 20  6f 75 74 70 75 74 20 6f  |boolean output o|
00002680  66 20 74 68 69 73 20 70  72 6f 63 0d 0b 5e 05 e1  |f this proc..^..|
00002690  0d 0b 68 04 0d 0b 72 16  f4 20 44 45 46 20 50 52  |..h...r.. DEF PR|
000026a0  4f 43 63 68 65 63 6b 28  69 29 0d 0b 7c 44 f4 20  |OCcheck(i)..|D. |
000026b0  20 20 53 59 53 20 22 57  69 6d 70 5f 52 65 70 6f  |  SYS "Wimp_Repo|
000026c0  72 74 45 72 72 6f 72 22  2c 22 58 58 58 58 43 68  |rtError","XXXXCh|
000026d0  65 63 6b 20 22 2b 53 54  52 24 28 69 29 2c 31 2c  |eck "+STR$(i),1,|
000026e0  22 53 65 74 20 33 44 20  49 63 6f 6e 73 22 0d 0b  |"Set 3D Icons"..|
000026f0  86 0d f4 20 45 4e 44 50  52 4f 43 0d 0b 90 04 0d  |... ENDPROC.....|
00002700  0b 9a 0f dd 20 f2 64 6f  28 63 6d 64 24 29 0d 0b  |.... .do(cmd$)..|
00002710  a4 2c f4 20 64 6f 20 74  68 69 73 20 66 6f 72 20  |.,. do this for |
00002720  65 69 74 68 65 72 20 73  61 76 69 6e 67 20 6f 72  |either saving or|
00002730  20 69 6d 6d 65 64 69 61  74 65 0d 0b ae 3b 20 20  | immediate...;  |
00002740  f4 20 53 59 53 20 22 57  69 6d 70 5f 52 65 70 6f  |. SYS "Wimp_Repo|
00002750  72 74 45 72 72 6f 72 22  2c 22 58 58 58 58 22 2b  |rtError","XXXX"+|
00002760  63 6d 64 24 2c 31 2c 22  53 65 74 20 33 44 20 49  |cmd$,1,"Set 3D I|
00002770  63 6f 6e 73 22 0d 0b b8  10 20 20 e7 20 48 25 20  |cons"....  . H% |
00002780  3d 20 30 20 8c 0d 0b c2  0e 20 20 20 20 ff 20 63  |= 0 .....    . c|
00002790  6d 64 24 0d 0b cc 07 20  20 cc 0d 0b d6 15 20 20  |md$....  .....  |
000027a0  20 20 f2 64 6f 73 61 76  65 28 63 6d 64 24 29 0d  |  .dosave(cmd$).|
000027b0  0b e0 07 20 20 cd 0d 0b  ea 05 e1 0d 0b f4 04 0d  |...  ...........|
000027c0  0b fe 13 dd 20 f2 64 6f  73 61 76 65 28 63 6d 64  |.... .dosave(cmd|
000027d0  24 29 0d 0c 08 28 f4 20  64 6f 20 74 68 69 73 20  |$)...(. do this |
000027e0  6f 6e 6c 79 20 69 6e 20  74 68 65 20 63 61 73 65  |only in the case|
000027f0  20 6f 66 20 73 61 76 69  6e 67 0d 0c 12 11 20 20  | of saving....  |
00002800  e7 20 48 25 20 3c 3e 20  30 20 8c 0d 0c 1c 38 20  |. H% <> 0 ....8 |
00002810  20 20 20 d5 23 48 25 2c  22 49 66 20 22 22 3c 4e  |   .#H%,"If ""<N|
00002820  65 77 4c 6f 6f 6b 24 4c  6f 61 64 65 64 3e 22 22  |ewLook$Loaded>""|
00002830  3d 22 22 22 22 20 54 68  65 6e 20 22 20 2b 20 63  |="""" Then " + c|
00002840  6d 64 24 0d 0c 26 66 20  20 20 20 f4 20 54 68 65  |md$..&f    . The|
00002850  73 65 20 4e 65 77 4c 6f  6f 6b 24 4c 6f 61 64 65  |se NewLook$Loade|
00002860  64 20 74 65 73 74 73 20  61 72 65 20 6f 6e 6c 79  |d tests are only|
00002870  20 68 65 72 65 20 69 6e  20 6f 72 64 65 72 20 74  | here in order t|
00002880  6f 20 68 61 6e 64 6c 65  20 6e 65 61 74 6c 79 20  |o handle neatly |
00002890  73 69 74 75 61 74 69 6f  6e 73 20 77 68 65 72 65  |situations where|
000028a0  20 74 68 65 72 65 20 69  73 0d 0c 30 54 20 20 20  | there is..0T   |
000028b0  20 f4 20 62 6f 74 68 20  69 6e 74 65 72 6e 61 6c  | . both internal|
000028c0  20 73 74 61 74 65 2c 20  61 6e 64 20 73 74 61 72  | state, and star|
000028d0  74 75 70 20 66 69 6c 65  73 20 69 6e 20 74 68 65  |tup files in the|
000028e0  20 42 6f 6f 74 20 73 65  71 75 65 6e 63 65 2e 20  | Boot sequence. |
000028f0  46 6f 72 20 69 6e 73 74  61 6e 63 65 2c 0d 0c 3a  |For instance,..:|
00002900  54 20 20 20 20 f4 20 74  68 65 20 75 73 65 72 20  |T    . the user |
00002910  63 6f 75 6c 64 20 61 63  68 69 65 76 65 20 74 68  |could achieve th|
00002920  69 73 20 62 79 20 73 77  69 74 63 68 69 6e 67 20  |is by switching |
00002930  66 72 6f 6d 20 6f 6e 65  20 6d 65 74 68 6f 64 20  |from one method |
00002940  6f 66 20 73 74 61 72 74  75 70 20 74 6f 20 74 68  |of startup to th|
00002950  65 0d 0c 44 53 20 20 20  20 f4 20 6f 74 68 65 72  |e..DS    . other|
00002960  2e 20 49 6e 20 73 75 63  68 20 61 20 63 61 73 65  |. In such a case|
00002970  20 74 68 65 20 6f 6c 64  20 53 74 61 74 65 20 66  | the old State f|
00002980  69 6c 65 20 69 6e 20 74  68 65 20 61 70 70 6c 69  |ile in the appli|
00002990  63 61 74 69 6f 6e 20 73  68 6f 75 6c 64 20 65 6e  |cation should en|
000029a0  64 20 75 70 0d 0c 4e 46  20 20 20 20 f4 20 68 61  |d up..NF    . ha|
000029b0  76 69 6e 67 20 6e 6f 20  65 66 66 65 63 74 2c 20  |ving no effect, |
000029c0  62 65 63 61 75 73 65 20  74 68 65 20 62 6f 6f 74  |because the boot|
000029d0  20 73 65 74 74 69 6e 67  73 20 67 65 74 20 74 68  | settings get th|
000029e0  65 72 65 20 66 69 72 73  74 2e 0d 0c 58 07 20 20  |ere first...X.  |
000029f0  cd 0d 0c 62 05 e1 0d 0c  6c 04 0d 0c 76 11 dd 20  |...b....l...v.. |
00002a00  f2 64 6f 6f 6b 28 63 6d  64 24 29 0d 0c 80 31 f4  |.dook(cmd$)...1.|
00002a10  20 64 6f 20 74 68 69 73  20 6f 6e 6c 79 20 69 6e  | do this only in|
00002a20  20 74 68 65 20 63 61 73  65 20 6f 66 20 61 6e 20  | the case of an |
00002a30  69 6d 6d 65 64 69 61 74  65 20 6f 70 0d 0c 8a 10  |immediate op....|
00002a40  20 20 e7 20 48 25 20 3d  20 30 20 8c 0d 0c 94 0e  |  . H% = 0 .....|
00002a50  20 20 20 20 ff 20 63 6d  64 24 0d 0c 9e 07 20 20  |    . cmd$....  |
00002a60  cd 0d 0c a8 05 e1 0d 0c  b2 04 0d 0c bc 1a dd 20  |............... |
00002a70  a4 67 65 74 69 63 6f 6e  73 74 61 74 65 28 69 63  |.geticonstate(ic|
00002a80  6f 6e 25 29 0d 0c c6 24  21 71 25 3d 73 65 74 69  |on%)...$!q%=seti|
00002a90  25 3a 71 25 21 34 3d 69  63 6f 6e 25 3a c8 99 20  |%:q%!4=icon%:.. |
00002aa0  47 65 74 49 2c 2c 71 25  0d 0c d0 12 3d 71 25 21  |GetI,,q%....=q%!|
00002ab0  32 34 3e 3e 32 31 20 80  20 31 0d 0c da 04 0d 0c  |24>>21 . 1......|
00002ac0  e4 1c dd 20 f2 63 6c 6f  73 65 61 77 69 6e 64 6f  |... .closeawindo|
00002ad0  77 28 68 61 6e 64 6c 65  25 29 0d 0c ee 1a f2 63  |w(handle%).....c|
00002ae0  6c 6f 73 65 5f 77 69 6e  64 6f 77 28 68 61 6e 64  |lose_window(hand|
00002af0  6c 65 25 29 0d 0c f8 0d  f2 66 69 6e 69 73 68 3a  |le%).....finish:|
00002b00  e0 0d 0d 02 05 e1 0d 0d  0c 04 0d 0d 16 0d dd 20  |............... |
00002b10  f2 66 69 6e 69 73 68 0d  0d 20 17 c8 99 20 22 57  |.finish.. ... "W|
00002b20  69 6d 70 5f 43 6c 6f 73  65 44 6f 77 6e 22 0d 0d  |imp_CloseDown"..|
00002b30  2a 05 e1 0d 0d 34 04 0d  0d 3e 15 dd 20 f2 66 72  |*....4...>.. .fr|
00002b40  6f 6e 74 28 68 61 6e 64  6c 65 25 29 0d 0d 48 11  |ont(handle%)..H.|
00002b50  e7 68 61 6e 64 6c 65 25  3d 2d 31 8c e1 0d 0d 52  |.handle%=-1....R|
00002b60  12 f2 67 65 74 77 28 68  61 6e 64 6c 65 25 29 0d  |..getw(handle%).|
00002b70  0d 5c 36 f2 6f 70 65 6e  5f 77 69 6e 64 6f 77 28  |.\6.open_window(|
00002b80  68 61 6e 64 6c 65 25 2c  78 30 25 2c 79 30 25 2c  |handle%,x0%,y0%,|
00002b90  78 31 25 2c 79 31 25 2c  73 63 78 25 2c 73 63 79  |x1%,y1%,scx%,scy|
00002ba0  25 2c 2d 31 29 0d 0d 66  05 e1 0d 0d 70 04 0d 0d  |%,-1)..f....p...|
00002bb0  7a 15 dd 20 f2 70 6f 70  75 70 28 68 61 6e 64 6c  |z.. .popup(handl|
00002bc0  65 25 29 0d 0d 84 12 f2  67 65 74 77 28 68 61 6e  |e%).....getw(han|
00002bd0  64 6c 65 25 29 0d 0d 8e  30 78 6f 25 3d 6d 6f 75  |dle%)...0xo%=mou|
00002be0  73 65 78 25 2d 28 78 30  25 2b 78 31 25 29 2f 32  |sex%-(x0%+x1%)/2|
00002bf0  3a 79 6f 25 3d 6d 6f 75  73 65 79 25 2d 28 79 31  |:yo%=mousey%-(y1|
00002c00  25 2b 36 34 29 0d 0d 98  46 f2 6f 70 65 6e 5f 77  |%+64)...F.open_w|
00002c10  69 6e 64 6f 77 28 68 61  6e 64 6c 65 25 2c 78 30  |indow(handle%,x0|
00002c20  25 2b 78 6f 25 2c 79 30  25 2b 79 6f 25 2c 78 31  |%+xo%,y0%+yo%,x1|
00002c30  25 2b 78 6f 25 2c 79 31  25 2b 79 6f 25 2c 73 63  |%+xo%,y1%+yo%,sc|
00002c40  78 25 2c 73 63 79 25 2c  2d 31 29 0d 0d a2 05 e1  |x%,scy%,-1).....|
00002c50  0d 0d ac 04 0d 0d b6 3e  dd 20 f2 6f 70 65 6e 5f  |.......>. .open_|
00002c60  77 69 6e 64 6f 77 28 68  61 6e 64 6c 65 25 2c 78  |window(handle%,x|
00002c70  30 25 2c 79 30 25 2c 78  31 25 2c 79 31 25 2c 73  |0%,y0%,x1%,y1%,s|
00002c80  63 78 25 2c 73 63 79 25  2c 62 68 61 6e 64 6c 65  |cx%,scy%,bhandle|
00002c90  25 29 0d 0d c0 11 e7 68  61 6e 64 6c 65 25 3d 2d  |%).....handle%=-|
00002ca0  31 8c e1 0d 0d ca 1f 71  25 21 30 3d 68 61 6e 64  |1......q%!0=hand|
00002cb0  6c 65 25 3a 71 25 21 32  38 3d 62 68 61 6e 64 6c  |le%:q%!28=bhandl|
00002cc0  65 25 0d 0d d4 29 71 25  21 34 3d 78 30 25 3a 71  |e%...)q%!4=x0%:q|
00002cd0  25 21 38 3d 79 30 25 3a  71 25 21 31 32 3d 78 31  |%!8=y0%:q%!12=x1|
00002ce0  25 3a 71 25 21 31 36 3d  79 31 25 0d 0d de 19 71  |%:q%!16=y1%....q|
00002cf0  25 21 32 30 3d 73 63 78  25 3a 71 25 21 32 34 3d  |%!20=scx%:q%!24=|
00002d00  73 63 79 25 0d 0d e8 10  c8 99 20 4f 70 65 6e 57  |scy%...... OpenW|
00002d10  2c 2c 71 25 0d 0d f2 05  e1 0d 0d fc 04 0d 0e 06  |,,q%............|
00002d20  14 dd 20 f2 67 65 74 77  28 68 61 6e 64 6c 65 25  |.. .getw(handle%|
00002d30  29 0d 0e 10 1b 21 71 25  3d 68 61 6e 64 6c 65 25  |)....!q%=handle%|
00002d40  3a c8 99 20 47 65 74 57  2c 2c 71 25 0d 0e 1a 2b  |:.. GetW,,q%...+|
00002d50  f2 69 6e 66 6f 28 71 25  2b 34 29 3a 62 68 61 6e  |.info(q%+4):bhan|
00002d60  64 6c 65 25 3d 71 25 21  32 38 3a 66 6c 61 67 73  |dle%=q%!28:flags|
00002d70  25 3d 71 25 21 33 32 0d  0e 24 05 e1 0d 0e 2e 04  |%=q%!32..$......|
00002d80  0d 0e 38 0f dd 20 f2 69  6e 66 6f 28 71 25 29 0d  |..8.. .info(q%).|
00002d90  0e 42 3d 78 30 25 3d 21  71 25 3a 79 30 25 3d 71  |.B=x0%=!q%:y0%=q|
00002da0  25 21 34 3a 78 31 25 3d  71 25 21 38 3a 79 31 25  |%!4:x1%=q%!8:y1%|
00002db0  3d 71 25 21 31 32 3a 73  63 78 25 3d 71 25 21 31  |=q%!12:scx%=q%!1|
00002dc0  36 3a 73 63 79 25 3d 71  25 21 32 30 0d 0e 4c 1d  |6:scy%=q%!20..L.|
00002dd0  62 78 25 3d 78 30 25 2d  73 63 78 25 3a 62 79 25  |bx%=x0%-scx%:by%|
00002de0  3d 79 31 25 2d 73 63 79  25 0d 0e 56 05 e1 0d 0e  |=y1%-scy%..V....|
00002df0  60 04 0d 0e 6a 2a dd 20  f2 75 70 64 61 74 65 28  |`...j*. .update(|
00002e00  68 61 6e 64 6c 65 25 2c  75 78 30 25 2c 75 79 30  |handle%,ux0%,uy0|
00002e10  25 2c 75 78 31 25 2c 75  79 31 25 29 0d 0e 74 39  |%,ux1%,uy1%)..t9|
00002e20  21 71 25 3d 68 61 6e 64  6c 65 25 3a 71 25 21 34  |!q%=handle%:q%!4|
00002e30  3d 75 78 30 25 3a 71 25  21 38 3d 75 79 30 25 3a  |=ux0%:q%!8=uy0%:|
00002e40  71 25 21 31 32 3d 75 78  31 25 3a 71 25 21 31 36  |q%!12=ux1%:q%!16|
00002e50  3d 75 79 31 25 0d 0e 7e  26 c8 99 20 55 70 64 61  |=uy1%..~&.. Upda|
00002e60  74 65 57 2c 2c 71 25 20  b8 20 6d 6f 72 65 25 3a  |teW,,q% . more%:|
00002e70  f2 69 6e 66 6f 28 71 25  2b 34 29 0d 0e 88 05 e1  |.info(q%+4).....|
00002e80  0d 0e 92 04 0d 0e 9c 1d  dd 20 f2 72 65 64 72 61  |......... .redra|
00002e90  77 5f 77 69 6e 64 6f 77  28 68 61 6e 64 6c 65 25  |w_window(handle%|
00002ea0  29 0d 0e a6 14 e7 68 61  6e 64 6c 65 25 3d 73 65  |).....handle%=se|
00002eb0  74 69 25 20 8c 0d 0e b0  0f 21 71 25 3d 68 61 6e  |ti% .....!q%=han|
00002ec0  64 6c 65 25 0d 0e ba 1a  c8 99 20 52 65 64 72 61  |dle%...... Redra|
00002ed0  77 57 2c 2c 71 25 20 b8  20 6d 6f 72 65 25 0d 0e  |wW,,q% . more%..|
00002ee0  c4 0f f2 69 6e 66 6f 28  71 25 2b 34 29 0d 0e ce  |...info(q%+4)...|
00002ef0  0e f4 20 50 52 4f 43 73  65 74 69 0d 0e d8 05 cd  |.. PROCseti.....|
00002f00  0d 0e e2 05 e1 0d 0e ec  04 0d 0e f6 1c dd 20 f2  |.............. .|
00002f10  63 6c 6f 73 65 5f 77 69  6e 64 6f 77 28 68 61 6e  |close_window(han|
00002f20  64 6c 65 25 29 0d 0f 00  1d 21 71 25 3d 68 61 6e  |dle%)....!q%=han|
00002f30  64 6c 65 25 3a c8 99 20  43 6c 6f 73 65 57 2c 2c  |dle%:.. CloseW,,|
00002f40  71 25 0d 0f 0a 05 e1 0d  0f 14 04 0d 0f 1e 17 dd  |q%..............|
00002f50  20 f2 75 70 64 61 74 65  69 63 6f 6e 28 71 25 21  | .updateicon(q%!|
00002f60  34 29 0d 0f 28 1c 21 71  25 3d 73 65 74 69 25 3a  |4)..(.!q%=seti%:|
00002f70  71 25 21 38 3d 30 3a 71  25 21 31 32 3d 30 0d 0f  |q%!8=0:q%!12=0..|
00002f80  32 12 c8 99 20 53 65 74  49 63 6f 6e 2c 2c 71 25  |2... SetIcon,,q%|
00002f90  0d 0f 3c 05 e1 0d 0f 46  04 0d 0f 50 0b dd 20 f2  |..<....F...P.. .|
00002fa0  76 61 72 73 0d 0f 5a 1c  46 6f 6e 74 20 20 3d 20  |vars..Z.Font  = |
00002fb0  28 31 3c 3c 31 38 29 20  2b 20 28 32 3c 3c 36 29  |(1<<18) + (2<<6)|
00002fc0  0d 0f 64 14 46 69 6e 64  46 6f 6e 74 3d 20 46 6f  |..d.FindFont= Fo|
00002fd0  6e 74 2b 31 0d 0f 6e 14  4c 6f 73 65 46 6f 6e 74  |nt+1..n.LoseFont|
00002fe0  3d 20 46 6f 6e 74 2b 32  0d 0f 78 14 46 6f 6e 74  |= Font+2..x.Font|
00002ff0  44 65 66 6e 3d 20 46 6f  6e 74 2b 33 0d 0f 82 13  |Defn= Font+3....|
00003000  57 69 64 74 68 20 20 3d  20 46 6f 6e 74 2b 35 0d  |Width  = Font+5.|
00003010  0f 8c 13 50 61 69 6e 74  25 20 3d 20 46 6f 6e 74  |...Paint% = Font|
00003020  2b 36 0d 0f 96 13 43 61  72 65 74 20 20 3d 20 46  |+6....Caret  = F|
00003030  6f 6e 74 2b 37 0d 0f a0  1c 57 69 6d 70 20 20 3d  |ont+7....Wimp  =|
00003040  20 28 31 3c 3c 31 38 29  20 2b 20 28 33 3c 3c 36  | (1<<18) + (3<<6|
00003050  29 0d 0f aa 14 43 72 65  61 74 65 57 20 3d 20 57  |)....CreateW = W|
00003060  69 6d 70 2b 31 0d 0f b4  13 4f 70 65 6e 57 20 20  |imp+1....OpenW  |
00003070  3d 20 57 69 6d 70 2b 35  0d 0f be 13 43 6c 6f 73  |= Wimp+5....Clos|
00003080  65 57 20 3d 20 57 69 6d  70 2b 36 0d 0f c8 13 50  |eW = Wimp+6....P|
00003090  6f 6c 6c 25 20 20 3d 20  57 69 6d 70 2b 37 0d 0f  |oll%  = Wimp+7..|
000030a0  d2 14 52 65 64 72 61 77  57 20 3d 20 57 69 6d 70  |..RedrawW = Wimp|
000030b0  2b 38 0d 0f dc 14 55 70  64 61 74 65 57 20 3d 20  |+8....UpdateW = |
000030c0  57 69 6d 70 2b 39 0d 0f  e6 14 47 65 74 52 25 20  |Wimp+9....GetR% |
000030d0  20 3d 20 57 69 6d 70 2b  31 30 0d 0f f0 13 47 65  | = Wimp+10....Ge|
000030e0  74 57 20 20 3d 20 57 69  6d 70 2b 31 31 0d 0f fa  |tW  = Wimp+11...|
000030f0  13 47 65 74 49 20 20 3d  20 57 69 6d 70 2b 31 34  |.GetI  = Wimp+14|
00003100  0d 10 04 13 47 65 74 50  20 20 3d 20 57 69 6d 70  |....GetP  = Wimp|
00003110  2b 31 35 0d 10 0e 13 44  72 61 67 20 20 3d 20 57  |+15....Drag  = W|
00003120  69 6d 70 2b 31 36 0d 10  18 14 43 72 4d 65 6e 75  |imp+16....CrMenu|
00003130  20 3d 20 57 69 6d 70 2b  32 30 0d 10 22 14 44 63  | = Wimp+20..".Dc|
00003140  4d 65 6e 75 20 3d 20 57  69 6d 70 2b 32 31 0d 10  |Menu = Wimp+21..|
00003150  2c 14 53 65 74 49 63 6f  6e 20 3d 20 26 34 30 30  |,.SetIcon = &400|
00003160  43 44 0d 10 36 38 c8 99  20 22 4f 53 5f 53 57 49  |CD..68.. "OS_SWI|
00003170  4e 75 6d 62 65 72 46 72  6f 6d 53 74 72 69 6e 67  |NumberFromString|
00003180  22 2c 2c 22 57 69 6d 70  5f 53 65 74 43 6f 6c 6f  |",,"Wimp_SetColo|
00003190  75 72 22 20 b8 20 43 6f  6c 25 0d 10 40 3c c8 99  |ur" . Col%..@<..|
000031a0  20 22 4f 53 5f 53 57 49  4e 75 6d 62 65 72 46 72  | "OS_SWINumberFr|
000031b0  6f 6d 53 74 72 69 6e 67  22 2c 2c 22 4f 53 5f 52  |omString",,"OS_R|
000031c0  65 61 64 4d 6f 64 65 56  61 72 69 61 62 6c 65 22  |eadModeVariable"|
000031d0  20 b8 20 52 4d 56 0d 10  4a 31 c8 99 20 22 4f 53  | . RMV..J1.. "OS|
000031e0  5f 53 57 49 4e 75 6d 62  65 72 46 72 6f 6d 53 74  |_SWINumberFromSt|
000031f0  72 69 6e 67 22 2c 2c 22  4f 53 5f 42 79 74 65 22  |ring",,"OS_Byte"|
00003200  20 b8 20 42 79 74 65 0d  10 54 13 4d 65 73 73 61  | . Byte..T.Messa|
00003210  67 65 5f 51 75 69 74 25  3d 30 0d 10 5e 1b 4d 65  |ge_Quit%=0..^.Me|
00003220  73 73 61 67 65 5f 53 61  76 65 44 65 73 6b 74 6f  |ssage_SaveDeskto|
00003230  70 25 3d 31 30 0d 10 68  1d 4d 65 73 73 61 67 65  |p%=10..h.Message|
00003240  5f 48 65 6c 70 52 65 71  75 65 73 74 25 3d 26 35  |_HelpRequest%=&5|
00003250  30 32 0d 10 72 1b 4d 65  73 73 61 67 65 5f 48 65  |02..r.Message_He|
00003260  6c 70 52 65 70 6c 79 25  3d 26 35 30 33 0d 10 7c  |lpReply%=&503..||
00003270  05 e1 0d 10 86 04 0d 10  90 11 dd 20 f2 67 65 74  |........... .get|
00003280  70 6f 69 6e 74 65 72 0d  10 9a 0f c8 99 20 47 65  |pointer...... Ge|
00003290  74 50 2c 2c 71 25 0d 10  a4 48 6d 6f 75 73 65 78  |tP,,q%...Hmousex|
000032a0  25 3d 21 71 25 3a 6d 6f  75 73 65 79 25 3d 71 25  |%=!q%:mousey%=q%|
000032b0  21 34 3a 62 25 3d 71 25  21 38 3a 68 61 6e 64 6c  |!4:b%=q%!8:handl|
000032c0  65 25 3d 71 25 21 31 32  3a 69 63 6f 6e 25 3d 71  |e%=q%!12:icon%=q|
000032d0  25 21 31 36 3a 6f 62 25  3d 71 25 21 32 30 0d 10  |%!16:ob%=q%!20..|
000032e0  ae 05 e1 0d 10 b8 04 0d  10 c2 0f dd 20 f2 65 72  |............ .er|
000032f0  72 6f 72 62 6f 78 0d 10  cc 16 c8 99 20 44 72 61  |rorbox...... Dra|
00003300  67 2c 2c 2d 31 3a 66 6c  67 25 3d 31 0d 10 d6 2f  |g,,-1:flg%=1.../|
00003310  21 62 75 66 66 65 72 73  25 3d 9f 3a 24 28 62 75  |!buffers%=.:$(bu|
00003320  66 66 65 72 73 25 2b 34  29 3d f6 24 2b 22 20 28  |ffers%+4)=.$+" (|
00003330  22 2b c3 9e 2b 22 29 22  2b bd 30 0d 10 e0 18 e7  |"+..+")"+.0.....|
00003340  20 48 25 3c 3e 30 20 8c  20 d9 23 48 25 3a 20 48  | H%<>0 . .#H%: H|
00003350  25 3d 30 0d 10 ea 33 c8  99 20 22 57 69 6d 70 5f  |%=0...3.. "Wimp_|
00003360  52 65 70 6f 72 74 45 72  72 6f 72 22 2c 62 75 66  |ReportError",buf|
00003370  66 65 72 73 25 2c 31 2c  a4 6d 73 5f 30 28 22 74  |fers%,1,.ms_0("t|
00003380  6e 61 6d 65 22 29 0d 10  f4 05 e1 0d 10 fe 04 0d  |name")..........|
00003390  11 08 0c dd 20 f2 66 63  74 72 6c 0d 11 12 0c c8  |.... .fctrl.....|
000033a0  95 20 6d 6f 72 65 25 0d  11 1c 19 20 c8 99 20 47  |. more%.... .. G|
000033b0  65 74 52 25 2c 2c 71 25  20 b8 20 6d 6f 72 65 25  |etR%,,q% . more%|
000033c0  0d 11 26 05 ce 0d 11 30  05 e1 0d 11 3a 04 0d 11  |..&....0....:...|
000033d0  44 1e dd 20 f2 73 65 6c  65 63 74 69 63 6f 6e 28  |D.. .selecticon(|
000033e0  69 63 6f 6e 25 2c 20 73  65 74 25 29 0d 11 4e 28  |icon%, set%)..N(|
000033f0  f4 20 69 66 20 73 65 74  25 20 74 68 65 6e 20 73  |. if set% then s|
00003400  65 74 20 69 74 2c 20 65  6c 73 65 20 63 6c 65 61  |et it, else clea|
00003410  72 20 69 74 0d 11 58 2e  21 71 25 3d 73 65 74 69  |r it..X.!q%=seti|
00003420  25 3a 20 71 25 21 34 3d  69 63 6f 6e 25 3a 20 71  |%: q%!4=icon%: q|
00003430  25 21 38 3d 30 3a 20 71  25 21 31 32 3d 31 3c 3c  |%!8=0: q%!12=1<<|
00003440  32 31 0d 11 62 17 e7 20  73 65 74 25 20 8c 20 71  |21..b.. set% . q|
00003450  25 21 38 3d 31 3c 3c 32  31 0d 11 6c 1e c8 99 20  |%!8=1<<21..l... |
00003460  22 57 69 6d 70 5f 53 65  74 49 63 6f 6e 53 74 61  |"Wimp_SetIconSta|
00003470  74 65 22 2c 2c 71 25 0d  11 76 05 e1 0d 11 80 04  |te",,q%..v......|
00003480  0d 11 8a 1c dd 20 f2 66  61 64 65 69 63 6f 6e 28  |..... .fadeicon(|
00003490  69 63 6f 6e 25 2c 20 73  65 74 25 29 0d 11 94 2c  |icon%, set%)...,|
000034a0  f4 20 69 66 20 73 65 74  25 20 74 68 65 6e 20 73  |. if set% then s|
000034b0  68 61 64 65 20 69 74 2c  20 65 6c 73 65 20 75 6e  |hade it, else un|
000034c0  73 68 61 64 65 20 69 74  0d 11 9e 2e 21 71 25 3d  |shade it....!q%=|
000034d0  73 65 74 69 25 3a 20 71  25 21 34 3d 69 63 6f 6e  |seti%: q%!4=icon|
000034e0  25 3a 20 71 25 21 38 3d  30 3a 20 71 25 21 31 32  |%: q%!8=0: q%!12|
000034f0  3d 31 3c 3c 32 32 0d 11  a8 17 e7 20 73 65 74 25  |=1<<22..... set%|
00003500  20 8c 20 71 25 21 38 3d  31 3c 3c 32 32 0d 11 b2  | . q%!8=1<<22...|
00003510  1e c8 99 20 22 57 69 6d  70 5f 53 65 74 49 63 6f  |... "Wimp_SetIco|
00003520  6e 53 74 61 74 65 22 2c  2c 71 25 0d 11 bc 05 e1  |nState",,q%.....|
00003530  0d 11 c6 04 0d 11 d0 1c  f4 20 6d 65 73 73 61 67  |......... messag|
00003540  65 2d 68 61 6e 64 6c 69  6e 67 20 73 74 75 66 66  |e-handling stuff|
00003550  0d 11 da 14 dd f2 6d 73  5f 6c 6f 61 64 28 6e 61  |......ms_load(na|
00003560  6d 65 24 29 0d 11 e4 06  ea 85 0d 11 ee 0f ee 85  |me$)............|
00003570  ea f7 85 3a 85 33 2c f6  24 0d 11 f8 24 c8 99 22  |...:.3,.$...$.."|
00003580  4d 65 73 73 61 67 65 54  72 61 6e 73 5f 46 69 6c  |MessageTrans_Fil|
00003590  65 49 6e 66 6f 22 2c 2c  6e 61 6d 65 24 0d 12 02  |eInfo",,name$...|
000035a0  10 de 6d 73 5f 74 65 78  74 25 32 35 36 0d 12 0c  |..ms_text%256...|
000035b0  2c c8 99 22 4f 53 5f 4d  6f 64 75 6c 65 22 2c 36  |,.."OS_Module",6|
000035c0  2c 2c 2c 31 37 2b a9 28  6e 61 6d 65 24 29 b8 2c  |,,,17+.(name$).,|
000035d0  2c 6d 73 5f 64 65 73 63  25 0d 12 16 18 24 28 6d  |,ms_desc%....$(m|
000035e0  73 5f 64 65 73 63 25 2b  31 36 29 3d 6e 61 6d 65  |s_desc%+16)=name|
000035f0  24 0d 12 20 32 c8 99 22  4d 65 73 73 61 67 65 54  |$.. 2.."MessageT|
00003600  72 61 6e 73 5f 4f 70 65  6e 46 69 6c 65 22 2c 6d  |rans_OpenFile",m|
00003610  73 5f 64 65 73 63 25 2c  6d 73 5f 64 65 73 63 25  |s_desc%,ms_desc%|
00003620  2b 31 36 0d 12 2a 05 e1  0d 12 34 0c dd f2 6d 73  |+16..*....4...ms|
00003630  5f 65 6e 64 0d 12 3e 28  c8 99 22 58 4d 65 73 73  |_end..>(.."XMess|
00003640  61 67 65 54 72 61 6e 73  5f 43 6c 6f 73 65 46 69  |ageTrans_CloseFi|
00003650  6c 65 22 2c 6d 73 5f 64  65 73 63 25 0d 12 48 1e  |le",ms_desc%..H.|
00003660  c8 99 22 58 4f 53 5f 4d  6f 64 75 6c 65 22 2c 37  |.."XOS_Module",7|
00003670  2c 2c 6d 73 5f 64 65 73  63 25 0d 12 52 05 e1 0d  |,,ms_desc%..R...|
00003680  12 5c 10 dd a4 6d 73 5f  30 28 74 61 67 24 29 0d  |.\...ms_0(tag$).|
00003690  12 66 16 3d a4 6d 73 5f  32 28 74 61 67 24 2c 22  |.f.=.ms_2(tag$,"|
000036a0  22 2c 22 22 29 0d 12 70  16 dd a4 6d 73 5f 31 28  |","")..p...ms_1(|
000036b0  74 61 67 24 2c 61 72 67  31 24 29 0d 12 7a 19 3d  |tag$,arg1$)..z.=|
000036c0  a4 6d 73 5f 32 28 74 61  67 24 2c 61 72 67 31 24  |.ms_2(tag$,arg1$|
000036d0  2c 22 22 29 0d 12 84 1c  dd a4 6d 73 5f 32 28 74  |,"")......ms_2(t|
000036e0  61 67 24 2c 61 72 67 31  24 2c 61 72 67 32 24 29  |ag$,arg1$,arg2$)|
000036f0  0d 12 8e 0a ea 46 25 2c  4c 25 0d 12 98 4c c8 99  |.....F%,L%...L..|
00003700  22 58 4d 65 73 73 61 67  65 54 72 61 6e 73 5f 4c  |"XMessageTrans_L|
00003710  6f 6f 6b 75 70 22 2c 6d  73 5f 64 65 73 63 25 2c  |ookup",ms_desc%,|
00003720  74 61 67 24 2c 6d 73 5f  74 65 78 74 25 2c 32 35  |tag$,ms_text%,25|
00003730  36 2c 61 72 67 31 24 2c  61 72 67 32 24 b8 2c 2c  |6,arg1$,arg2$.,,|
00003740  2c 4c 25 3b 46 25 0d 12  a2 0f e7 46 25 80 20 31  |,L%;F%.....F%. 1|
00003750  8c 4c 25 3d 30 0d 12 ac  12 6d 73 5f 74 65 78 74  |.L%=0....ms_text|
00003760  25 3f 4c 25 3d 31 33 0d  12 b6 0e 3d 24 6d 73 5f  |%?L%=13....=$ms_|
00003770  74 65 78 74 25 0d 12 c0  28 dd a4 6d 73 5f 4e 28  |text%...(..ms_N(|
00003780  74 61 67 24 2c 61 72 67  31 24 2c 61 72 67 32 24  |tag$,arg1$,arg2$|
00003790  2c 61 72 67 33 24 2c 61  72 67 34 24 29 0d 12 ca  |,arg3$,arg4$)...|
000037a0  0a ea 46 25 2c 4c 25 0d  12 d4 58 c8 99 22 58 4d  |..F%,L%...X.."XM|
000037b0  65 73 73 61 67 65 54 72  61 6e 73 5f 4c 6f 6f 6b  |essageTrans_Look|
000037c0  75 70 22 2c 6d 73 5f 64  65 73 63 25 2c 74 61 67  |up",ms_desc%,tag|
000037d0  24 2c 6d 73 5f 74 65 78  74 25 2c 32 35 36 2c 61  |$,ms_text%,256,a|
000037e0  72 67 31 24 2c 61 72 67  32 24 2c 61 72 67 33 24  |rg1$,arg2$,arg3$|
000037f0  2c 61 72 67 34 24 b8 2c  2c 2c 4c 25 3b 46 25 0d  |,arg4$.,,,L%;F%.|
00003800  12 de 0f e7 46 25 80 20  31 8c 4c 25 3d 30 0d 12  |....F%. 1.L%=0..|
00003810  e8 12 6d 73 5f 74 65 78  74 25 3f 4c 25 3d 31 33  |..ms_text%?L%=13|
00003820  0d 12 f2 0e 3d 24 6d 73  5f 74 65 78 74 25 0d 12  |....=$ms_text%..|
00003830  fc 04 0d 13 06 1f dd f2  68 65 6c 70 72 65 70 6c  |........helprepl|
00003840  79 28 68 65 6c 70 24 2c  72 65 66 25 2c 74 6f 25  |y(help$,ref%,to%|
00003850  29 0d 13 10 10 e7 a9 28  68 65 6c 70 24 29 3e 30  |)......(help$)>0|
00003860  8c 0d 13 1a 0c 71 25 21  30 3d 32 35 36 0d 13 24  |.....q%!0=256..$|
00003870  0e 71 25 21 31 32 3d 72  65 66 25 0d 13 2e 1c 71  |.q%!12=ref%....q|
00003880  25 21 31 36 3d 4d 65 73  73 61 67 65 5f 48 65 6c  |%!16=Message_Hel|
00003890  70 52 65 70 6c 79 25 0d  13 38 15 24 28 71 25 2b  |pReply%..8.$(q%+|
000038a0  32 30 29 3d 68 65 6c 70  24 2b bd 30 0d 13 42 22  |20)=help$+.0..B"|
000038b0  c8 99 22 57 69 6d 70 5f  53 65 6e 64 4d 65 73 73  |.."Wimp_SendMess|
000038c0  61 67 65 22 2c 31 37 2c  71 25 2c 74 6f 25 0d 13  |age",17,q%,to%..|
000038d0  4c 05 cd 0d 13 56 05 e1  0d 13 60 04 0d 13 6a 0e  |L....V....`...j.|
000038e0  dd a4 68 65 6c 70 74 65  78 74 0d 13 74 0a ea 74  |..helptext..t..t|
000038f0  65 78 74 24 0d 13 7e 1d  74 65 78 74 24 3d a4 6d  |ext$..~.text$=.m|
00003900  73 5f 30 28 22 48 22 2b  c3 28 71 25 21 33 36 29  |s_0("H"+.(q%!36)|
00003910  29 0d 13 88 21 e7 20 74  65 78 74 24 3d 22 22 20  |)...!. text$="" |
00003920  8c 20 74 65 78 74 24 3d  a4 6d 73 5f 30 28 22 48  |. text$=.ms_0("H|
00003930  22 29 0d 13 92 0a 3d 74  65 78 74 24 0d 13 9c 04  |")....=text$....|
00003940  0d 13 a6 17 dd 20 a4 67  65 74 65 6e 76 28 76 61  |..... .getenv(va|
00003950  72 6e 61 6d 65 24 29 0d  13 b0 0d ea 20 65 6e 76  |rname$)..... env|
00003960  6c 65 6e 25 0d 13 ba 3d  c8 99 20 22 58 4f 53 5f  |len%...=.. "XOS_|
00003970  52 65 61 64 56 61 72 56  61 6c 22 2c 76 61 72 6e  |ReadVarVal",varn|
00003980  61 6d 65 24 2c 67 65 74  65 6e 76 5f 62 75 66 66  |ame$,getenv_buff|
00003990  65 72 25 2c 2d 31 20 b8  2c 2c 65 6e 76 6c 65 6e  |er%,-1 .,,envlen|
000039a0  25 0d 13 c4 13 e7 20 65  6e 76 6c 65 6e 25 20 3c  |%..... envlen% <|
000039b0  20 30 20 8c 0d 13 ce 2c  20 20 f4 20 74 68 65 20  | 0 ....,  . the |
000039c0  76 61 72 69 61 62 6c 65  20 65 78 69 73 74 73 2c  |variable exists,|
000039d0  20 73 6f 20 72 65 61 64  20 66 72 6f 6d 20 69 74  | so read from it|
000039e0  0d 13 d8 3f 20 20 c8 99  20 22 4f 53 5f 52 65 61  |...?  .. "OS_Rea|
000039f0  64 56 61 72 56 61 6c 22  2c 76 61 72 6e 61 6d 65  |dVarVal",varname|
00003a00  24 2c 67 65 74 65 6e 76  5f 62 75 66 66 65 72 25  |$,getenv_buffer%|
00003a10  2c 32 35 36 20 b8 2c 2c  65 6e 76 6c 65 6e 25 0d  |,256 .,,envlen%.|
00003a20  13 e2 05 cc 0d 13 ec 11  20 20 65 6e 76 6c 65 6e  |........  envlen|
00003a30  25 20 3d 20 30 0d 13 f6  05 cd 0d 14 00 38 67 65  |% = 0........8ge|
00003a40  74 65 6e 76 5f 62 75 66  66 65 72 25 3f 65 6e 76  |tenv_buffer%?env|
00003a50  6c 65 6e 25 20 3d 20 31  33 20 20 3a f4 20 74 65  |len% = 13  :. te|
00003a60  72 6d 69 6e 61 74 65 20  74 68 65 20 73 74 72 69  |rminate the stri|
00003a70  6e 67 0d 14 0a 14 3d 24  67 65 74 65 6e 76 5f 62  |ng....=$getenv_b|
00003a80  75 66 66 65 72 25 0d ff                           |uffer%..|
00003a88