!AWJUL92/Goodies/Novilties/!Brolly/!Runimage

Home » Recent acquisitions » Acorn ADFS disks » adfs_ArchimedesWorld_199207.adf » !AWJULY92 » !AWJUL92/Goodies/Novilties/!Brolly/!Runimage

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk:	Home » Recent acquisitions » Acorn ADFS disks » adfs_ArchimedesWorld_199207.adf » !AWJULY92
Filename:	!AWJUL92/Goodies/Novilties/!Brolly/!Runimage
Read OK:	✔
File size:	18F3 bytes
Load address:	0000
Exec address:	0000

File contents

   10REM>!Runimage
   20REM Brolly  By Robert Brown 1990
   30ON ERROR PROCerror:END
   40version$="0.2   1990"
   50
   60
   70DIM block% &800
   80DIM ws% &800:wsend%=ws%+&800-1
   90DIM buttons% 20
  100DIM menu% 300
  110DIM palette% 80
  120DIM temppalette% 80
  130SYS"Wimp_ReadPalette",,palette%
  140SYS"Wimp_ReadPalette",,temppalette%
  150
  160$block%="TASK"
  170SYS "Wimp_Initialise",200,!block%,"Brolly" TO version%,task%
  180SYS "Wimp_OpenTemplate",,"<Brolly$Dir>.Templates"
  190ON ERROR SYS "Wimp_CloseTemplate":PROCwimperror
  200SYS "Wimp_LoadTemplate",,block%,ws%,wsend%,-1,"infobox",0 TO ,,ws%
  210$(block%!(88+20))="Brolly"
  220$(block%!(88+32+20))=version$
  230$(block%!(88+64+20))="Keep out the rain"
  240SYS "Wimp_CreateWindow",,block% TO infohandle
  250SYS "Wimp_LoadTemplate",,block%,ws%,wsend%,-1,"background",0 TO ,,ws%
  260miny%=block%!44
  270block%!20=block%!44:REM MOVE Y scroll offset to min Y
  280SYS "Wimp_CreateWindow",,block% TO backhandle
  290SYS "Wimp_LoadTemplate",,block%,ws%,wsend%,-1,"Weather",0 TO ,,ws%
  300SYS "Wimp_CreateWindow",,block% TO Weatherhandle
  310SYS "Wimp_CloseTemplate"
  320PROCinstallicon
  330PROCsetweather
  340ON ERROR PROCwimperror
  350PROCsetupmenu
  360
  370REPEAT
  380SYS "Wimp_Poll",,block% TO reason%
  390 CASE reason% OF
  400  WHEN 0    :PROCupdate(backhandle,2138,9999999)
  410             IF Weather%=TRUE AND rain%=TRUE OR snow%=TRUE :PROCfall
  420             ENDIF
  430  WHEN 2    :PROCreOpenWindow(block%!0)
  440  WHEN 3    :PROCcloseWindow(block%!0)
  450  WHEN 6    :PROCmouse
  460  WHEN 9    :PROCmenu
  470  WHEN 17,18:PROCReciveMesage
  480 ENDCASE
  490UNTIL quit%
  500PROCclose
  510END
  520
  530DEFPROCfall
  540IF RND(180)=1:PROCthunder
  550block%!0=backhandle
  560SYS "Wimp_GetWindowState",,block%
  570IF block%!24=0 block%!24=miny%:PROCthunder
  580block%!24=block%!24+Precipitation%
  590block%!28=-2
  600SYS "Wimp_OpenWindow",,block%
  610ENDPROC
  620
  630DEFPROCupdate(whandle%,xw%,yw%)
  640block%!0=whandle%
  650block%!4=0    :REM Xmin
  660block%!8=-yw% :REM Ymin
  670block%!12=xw%:REM Xmax
  680block%!16=0   :REM Ymax
  690SYS "Wimp_UpdateWindow",,block% TO more%
  700
  710 WHILE more%
  720IF Weather%=TRUE AND rain%=TRUE PROCprecipitate(15,44)
  730IF Weather%=TRUE AND snow%=TRUE PROCprecipitate(0,46)
  740  SYS "Wimp_GetRectangle",,block% TO more%
  750 ENDWHILE
  760ENDPROC
  770
  780DEFPROCprecipitate(c%,d%)
  790SYS "Wimp_SetColour",c%
  800FOR f%= 0 TO raindrops%
  810MOVE RND(2138),1016:
  820PRINT CHR$(d%);
  830NEXT
  840ENDPROC
  850
  860DEF PROCopenwindow(handle%)
  870block%!0=handle%
  880SYS "Wimp_GetWindowState",,block%
  890block%!28=-2
  900SYS "Wimp_OpenWindow",,block%
  910ENDPROC
  920
  930DEF PROCcloseWindow(handle%)
  940block%!0=handle%
  950SYS "Wimp_CloseWindow",,block%
  960ENDPROC
  970
  980DEF PROCreOpenWindow(handle%)
  990block%!0=handle%
 1000SYS "Wimp_OpenWindow",,block%
 1010ENDPROC
 1020
 1030DEF PROCinstallicon
 1040LOCAL file%,lenth%
 1050DIM icon% 20
 1060file%=OPENIN "<Brolly$Dir>.Spritefile"
 1070lenth%=EXT# file%+16    :REM Size of sprite file +abit
 1080CLOSE# file%
 1090DIM sprites% lenth%       :REM Sprite area
 1100sprites%!0=lenth%
 1110SYS "OS_SpriteOp",&10A,sprites%,"<Brolly$Dir>.Spritefile"
 1120SYS "OS_SpriteOp",256+40,sprites%,"rainoff" TO ,,,w%,h%
 1130$icon%="rainoff"+CHR$(0)
 1140block%!0=-1:block%!4=0:block%!8=0:block%!12=w%*2:block%!16=h%*4
 1150block%!20=&0700311A:block%!24=icon%:block%!28=sprites%
 1160block%!32=LEN $icon%
 1170SYS "Wimp_CreateIcon",,block% TO iconhand%
 1180ENDPROC
 1190
 1200DEFPROCmouse
 1210 IF block%!12=-2 THEN
 1220   CASE block%!8 OF
 1230   WHEN 1 :IF Weather%=TRUE PROCthunder:REM ADJUST
 1240   WHEN 2 :SYS"Wimp_CreateMenu",,menu%,block%!0-50,230 :REM MENU
 1250   WHEN 4 :PROCBrolly:IF Weather%=TRUE PROCopenwindow(backhandle) ELSE PROCcloseWindow (backhandle) :REM SELECT
 1260  ENDCASE
 1270 ENDIF
 1280IF block%!12=Weatherhandle THEN
 1290SYS "Wimp_GetPointerInfo",,buttons%
 1300 b%=&200000 :REM Icon flag bit to set for selected bit 21
 1310  CASE block%!16 OF
 1320    WHEN 0 :PROCseticon(2,0,b%):Thunder%=FALSE:rain%=FALSE:snow%=TRUE
 1330            Precipitation%=10:raindrops%=1
 1340            IF buttons%!8=1:PROCseticon(2,0,b%):REM thunder off
 1350            IF Weather%=TRUE PROCopenwindow(backhandle)
 1360
 1370    WHEN 1 :snow%=FALSE:rain%=TRUE
 1380            Precipitation%=20:raindrops%=1
 1390            IF buttons%!8=1:PROCseticon(1,b%,b%)
 1400            IF Weather%=TRUE PROCopenwindow(backhandle)
 1410
 1420    WHEN 2 :IF buttons%!8=4 THEN
 1430            PROCseticon(0,0,b%):PROCseticon(1,b%,b%):REM snow off rain on
 1440            snow%=FALSE:rain%=TRUE
 1450            Thunder%=TRUE:PROCthunder
 1460            ENDIF
 1470            IF  buttons%!8=1:Thunder%=FALSE:raindrops%=1:Precipitation%=20:PROCseticon(2,0,b%):REM thunder off
 1480  ENDCASE
 1490ENDIF
 1500ENDPROC
 1510
 1520DEFPROCseticon(i%,e%,c%)
 1530block%!0=Weatherhandle :REM windowhandle
 1540block%!4=i%  :REM icon handle
 1550block%!8=e%  :REM EOR word
 1560block%!12=c% :REM clear word
 1570SYS "Wimp_SetIconState",,block%
 1580Thunder%=FALSE
 1590ENDPROC
 1600
 1610
 1620DEFPROCBrolly
 1630IF Weather%=TRUE THEN
 1640Weather%=FALSE:PROCchangeicon("rainoff",iconhand%)
 1650SYS"Wimp_SetPalette",,palette%
 1660ELSE
 1670Weather%=TRUE:PROCchangeicon("rainon",iconhand%)
 1680ENDIF
 1690ENDPROC
 1700
 1710DEFPROCthunder
 1720IF Thunder%=FALSE ENDPROC
 1730raindrops%=5
 1740Precipitation%=40
 1750
 1760SYS"Sound_AttachNamedVoice",1,"Thunder"
 1770SYS"Wimp_SetPalette",,temppalette%
 1780WAIT
 1790SYS"Wimp_SetPalette",,palette%
 1800SYS"Sound_Control",1,-15,&1500,1
 1810PROCdelay(10)
 1820SYS"Wimp_SetPalette",,temppalette%
 1830PROCdelay(20)
 1840SYS"Wimp_SetPalette",,palette%
 1850ENDPROC
 1860
 1870
 1880DEFPROCdelay(d%)
 1890LOCAL t%
 1900t%=TIME+d%
 1910REPEAT:UNTIL TIME>t%
 1920ENDPROC
 1930
 1940DEFPROCchangeicon(icon$,handle%)
 1950$icon%=icon$+CHR$(0)
 1960block%!0=-1:block%!4=handle%:block%!8=0:block%!12=0
 1970SYS "Wimp_SetIconState",,block%
 1980SYS"Sound_AttachNamedVoice",1,"Thunder"
 1990SYS"Sound_Control",1,-15,200,1
 2000ENDPROC
 2010
 2020DEFPROCmenu
 2030 CASE !block% OF
 2040  WHEN 2 :PROCclose:END
 2050 ENDCASE
 2060SYS"Wimp_GetPointerInfo",,block%
 2070IF block%!8=1:SYS "Wimp_CreateMenu",,menu%
 2080ENDPROC
 2090
 2100DEF PROCsetweather
 2110quit%=FALSE
 2120rain%=TRUE:snow%=FALSE
 2130Thunder%=TRUE:Weather%=FALSE
 2140raindrops%=1
 2150Precipitation%=20
 2160SYS"Wimp_ReadPalette",,temppalette%
 2170p%=28
 2180FOR f%=0 TO 28 STEP 4
 2190temppalette%!f%=palette%!p%
 2200p%=p%-4
 2210NEXT
 2220ENDPROC
 2230
 2240DEFPROCsetupmenu
 2250LOCAL m%
 2260$menu%="Brolly"
 2270menu%?12=7:menu%?13=2:menu%?14=0:menu%?15=0
 2280menu%!16=130:menu%!20=40:menu%!24=0
 2290m%=menu%+28:info%=m%
 2300m%!0=0:m%!4=infohandle
 2310m%!8=(%111<<24) OR %11001
 2320$(m%+12)="Info"
 2330
 2340m%=m%+24:m%!0=0:m%!4=Weatherhandle
 2350m%!8=(%111<<24) OR %11001
 2360$(m%+12)="Weather"
 2370
 2380m%=m%+24:Quit%=m%:m%!0=&80
 2390m%!4=0:m%!8=(%111<<24) OR %11001:$(m%+12)="Quit"
 2400ENDPROC
 2410
 2420DEFPROCerror
 2430ON ERROR OFF
 2440$block%="TASK"
 2450SYS"Wimp_CloseDown",task%,!block%
 2460PRINT REPORT$;" at line ";ERL
 2470ENDPROC
 2480
 2490DEFPROCwimperror
 2500!block%=ERR
 2510$(block%+4)=REPORT$+" at line "+STR$ERL+CHR$0
 2520SYS "Wimp_ReportError",block%,3,"Brolly" TO ,response%
 2530IF response%=2 :PROCclose
 2540ENDPROC
 2550
 2560DEFPROCclose
 2570SYS"Sound_AttachNamedVoice",1,"WaveSynth-Beep"
 2580$block%="TASK"
 2590SYS "Wimp_CloseDown",task%,!block%
 2600END
 2610ENDPROC
 2620
 2630DEF PROCReciveMesage
 2640CASE block%!16 OF
 2650WHEN 0 :quit%=TRUE
 2660ENDCASE
 2670ENDPROC
 2680


�>!Runimage
"� Brolly  By Robert Brown 1990
� � �error:�
(version$="0.2   1990"
2
<
F� block% &800
P � ws% &800:wsend%=ws%+&800-1
Z� buttons% 20
d� menu% 300
n� palette% 80
x� temppalette% 80
�"ș"Wimp_ReadPalette",,palette%
�&ș"Wimp_ReadPalette",,temppalette%
�
�$block%="TASK"
�>ș "Wimp_Initialise",200,!block%,"Brolly" � version%,task%
�4ș "Wimp_OpenTemplate",,"<Brolly$Dir>.Templates"
�*� � ș "Wimp_CloseTemplate":�wimperror
�Dș "Wimp_LoadTemplate",,block%,ws%,wsend%,-1,"infobox",0 � ,,ws%
�$(block%!(88+20))="Brolly"
�!$(block%!(88+32+20))=version$
�,$(block%!(88+64+20))="Keep out the rain"
�/ș "Wimp_CreateWindow",,block% � infohandle
�Gș "Wimp_LoadTemplate",,block%,ws%,wsend%,-1,"background",0 � ,,ws%
miny%=block%!44
7block%!20=block%!44:� MOVE Y scroll offset to min Y
/ș "Wimp_CreateWindow",,block% � backhandle
"Dș "Wimp_LoadTemplate",,block%,ws%,wsend%,-1,"Weather",0 � ,,ws%
,2ș "Wimp_CreateWindow",,block% � Weatherhandle
6ș "Wimp_CloseTemplate"
@�installicon
J�setweather
T� � �wimperror
^�setupmenu
h
r�
|$ș "Wimp_Poll",,block% � reason%
� Ȏ reason% �
�.  � 0    :�update(backhandle,2138,9999999)
�8             � Weather%=� � rain%=� � snow%=� :�fall
�             �
�%  � 2    :�reOpenWindow(block%!0)
�$  � 3    :�closeWindow(block%!0)
�  � 6    :�mouse
�  � 9    :�menu
�  � 17,18:�ReciveMesage
� �
�� quit%
�
�close
��


��fall
� �(180)=1:�thunder
&block%!0=backhandle
0$ș "Wimp_GetWindowState",,block%
:*� block%!24=0 block%!24=miny%:�thunder
D&block%!24=block%!24+Precipitation%
Nblock%!28=-2
X ș "Wimp_OpenWindow",,block%
b�
l
v��update(whandle%,xw%,yw%)
�block%!0=whandle%
�block%!4=0    :� Xmin
�block%!8=-yw% :� Ymin
�block%!12=xw%:� Xmax
�block%!16=0   :� Ymax
�*ș "Wimp_UpdateWindow",,block% � more%
�
�
 ȕ more%
�.� Weather%=� � rain%=� �precipitate(15,44)
�-� Weather%=� � snow%=� �precipitate(0,46)
�,  ș "Wimp_GetRectangle",,block% � more%
� �
��

��precipitate(c%,d%)
ș "Wimp_SetColour",c%
 � f%= 0 � raindrops%
*� �(2138),1016:
4� �(d%);
>�
H�
R
\� �openwindow(handle%)
fblock%!0=handle%
p$ș "Wimp_GetWindowState",,block%
zblock%!28=-2
� ș "Wimp_OpenWindow",,block%
��
�
�� �closeWindow(handle%)
�block%!0=handle%
�!ș "Wimp_CloseWindow",,block%
��
�
�� �reOpenWindow(handle%)
�block%!0=handle%
� ș "Wimp_OpenWindow",,block%
��
�
� �installicon
� file%,lenth%
� icon% 20
$%file%=� "<Brolly$Dir>.Spritefile"
.6lenth%=�# file%+16    :� Size of sprite file +abit
8�# file%
B*� sprites% lenth%       :� Sprite area
Lsprites%!0=lenth%
V<ș "OS_SpriteOp",&10A,sprites%,"<Brolly$Dir>.Spritefile"
`9ș "OS_SpriteOp",256+40,sprites%,"rainoff" � ,,,w%,h%
j$icon%="rainoff"+�(0)
tCblock%!0=-1:block%!4=0:block%!8=0:block%!12=w%*2:block%!16=h%*4
~:block%!20=&0700311A:block%!24=icon%:block%!28=sprites%
�block%!32=� $icon%
�,ș "Wimp_CreateIcon",,block% � iconhand%
��
�
���mouse
� � block%!12=-2 �
�   Ȏ block%!8 �
�*   � 1 :� Weather%=� �thunder:� ADJUST
�>   � 2 :ș"Wimp_CreateMenu",,menu%,block%!0-50,230 :� MENU
�^   � 4 :�Brolly:� Weather%=� �openwindow(backhandle) � �closeWindow (backhandle) :� SELECT
�  �
� �
� block%!12=Weatherhandle �

&ș "Wimp_GetPointerInfo",,buttons%
; b%=&200000 :� Icon flag bit to set for selected bit 21
  Ȏ block%!16 �
(8    � 0 :�seticon(2,0,b%):Thunder%=�:rain%=�:snow%=�
2.            Precipitation%=10:raindrops%=1
<=            � buttons%!8=1:�seticon(2,0,b%):� thunder off
F4            � Weather%=� �openwindow(backhandle)
P
Z    � 1 :snow%=�:rain%=�
d.            Precipitation%=20:raindrops%=1
n0            � buttons%!8=1:�seticon(1,b%,b%)
x4            � Weather%=� �openwindow(backhandle)
�
�    � 2 :� buttons%!8=4 �
�E            �seticon(0,0,b%):�seticon(1,b%,b%):� snow off rain on
�            snow%=�:rain%=�
�#            Thunder%=�:�thunder
�            �
�h            �  buttons%!8=1:Thunder%=�:raindrops%=1:Precipitation%=20:�seticon(2,0,b%):� thunder off
�  �
��
��
�
���seticon(i%,e%,c%)
�*block%!0=Weatherhandle :� windowhandle
block%!4=i%  :� icon handle
block%!8=e%  :� EOR word
block%!12=c% :� clear word
""ș "Wimp_SetIconState",,block%
,Thunder%=�
6�
@
J
T��Brolly
^� Weather%=� �
h/Weather%=�:�changeicon("rainoff",iconhand%)
r!ș"Wimp_SetPalette",,palette%
|�
�.Weather%=�:�changeicon("rainon",iconhand%)
��
��
�
�
��thunder
�� Thunder%=� �
�raindrops%=5
�Precipitation%=40
�
�*ș"Sound_AttachNamedVoice",1,"Thunder"
�%ș"Wimp_SetPalette",,temppalette%
�Ȗ
�!ș"Wimp_SetPalette",,palette%
#ș"Sound_Control",1,-15,&1500,1
�delay(10)
%ș"Wimp_SetPalette",,temppalette%
&�delay(20)
0!ș"Wimp_SetPalette",,palette%
:�
D
N
X��delay(d%)
b� t%
lt%=�+d%
v�:� �>t%
��
�
���changeicon(icon$,handle%)
�$icon%=icon$+�(0)
�7block%!0=-1:block%!4=handle%:block%!8=0:block%!12=0
�"ș "Wimp_SetIconState",,block%
�*ș"Sound_AttachNamedVoice",1,"Thunder"
�!ș"Sound_Control",1,-15,200,1
��
�
�
��menu
� Ȏ !block% �
�  � 2 :�close:�
 �
#ș"Wimp_GetPointerInfo",,block%
,� block%!8=1:ș "Wimp_CreateMenu",,menu%
 �
*
4� �setweather
>quit%=�
Hrain%=�:snow%=�
RThunder%=�:Weather%=�
\raindrops%=1
fPrecipitation%=20
p&ș"Wimp_ReadPalette",,temppalette%
z	p%=28
�� f%=0 � 28 � 4
�temppalette%!f%=palette%!p%
�p%=p%-4
��
��
�
���setupmenu
�� m%
�$menu%="Brolly"
�/menu%?12=7:menu%?13=2:menu%?14=0:menu%?15=0
�'menu%!16=130:menu%!20=40:menu%!24=0
�m%=menu%+28:info%=m%
�m%!0=0:m%!4=infohandle
	m%!8=(%111<<24) � %11001
	$(m%+12)="Info"
	
	$&m%=m%+24:m%!0=0:m%!4=Weatherhandle
	.m%!8=(%111<<24) � %11001
	8$(m%+12)="Weather"
	B
	Lm%=m%+24:Quit%=m%:m%!0=&80
	V3m%!4=0:m%!8=(%111<<24) � %11001:$(m%+12)="Quit"
	`�
	j
	t��error
	~	� � �
	�$block%="TASK"
	�$ș"Wimp_CloseDown",task%,!block%
	�� �$;" at line ";�
	��
	�
	���wimperror
	�
!block%=�
	�$$(block%+4)=�$+" at line "+Þ+�0
	�8ș "Wimp_ReportError",block%,3,"Brolly" � ,response%
	�� response%=2 :�close
	��
	�
��close

1ș"Sound_AttachNamedVoice",1,"WaveSynth-Beep"
$block%="TASK"
%ș "Wimp_CloseDown",task%,!block%
(�
2�
<
F� �ReciveMesage
PȎ block%!16 �
Z� 0 :quit%=�
d�
n�
x
�

00000000  0d 00 0a 0f f4 3e 21 52  75 6e 69 6d 61 67 65 0d  |.....>!Runimage.|
00000010  00 14 22 f4 20 42 72 6f  6c 6c 79 20 20 42 79 20  |..". Brolly  By |
00000020  52 6f 62 65 72 74 20 42  72 6f 77 6e 20 31 39 39  |Robert Brown 199|
00000030  30 0d 00 1e 10 ee 20 85  20 f2 65 72 72 6f 72 3a  |0..... . .error:|
00000040  e0 0d 00 28 19 76 65 72  73 69 6f 6e 24 3d 22 30  |...(.version$="0|
00000050  2e 32 20 20 20 31 39 39  30 22 0d 00 32 04 0d 00  |.2   1990"..2...|
00000060  3c 04 0d 00 46 11 de 20  62 6c 6f 63 6b 25 20 26  |<...F.. block% &|
00000070  38 30 30 0d 00 50 20 de  20 77 73 25 20 26 38 30  |800..P . ws% &80|
00000080  30 3a 77 73 65 6e 64 25  3d 77 73 25 2b 26 38 30  |0:wsend%=ws%+&80|
00000090  30 2d 31 0d 00 5a 11 de  20 62 75 74 74 6f 6e 73  |0-1..Z.. buttons|
000000a0  25 20 32 30 0d 00 64 0f  de 20 6d 65 6e 75 25 20  |% 20..d.. menu% |
000000b0  33 30 30 0d 00 6e 11 de  20 70 61 6c 65 74 74 65  |300..n.. palette|
000000c0  25 20 38 30 0d 00 78 15  de 20 74 65 6d 70 70 61  |% 80..x.. temppa|
000000d0  6c 65 74 74 65 25 20 38  30 0d 00 82 22 c8 99 22  |lette% 80...".."|
000000e0  57 69 6d 70 5f 52 65 61  64 50 61 6c 65 74 74 65  |Wimp_ReadPalette|
000000f0  22 2c 2c 70 61 6c 65 74  74 65 25 0d 00 8c 26 c8  |",,palette%...&.|
00000100  99 22 57 69 6d 70 5f 52  65 61 64 50 61 6c 65 74  |."Wimp_ReadPalet|
00000110  74 65 22 2c 2c 74 65 6d  70 70 61 6c 65 74 74 65  |te",,temppalette|
00000120  25 0d 00 96 04 0d 00 a0  12 24 62 6c 6f 63 6b 25  |%........$block%|
00000130  3d 22 54 41 53 4b 22 0d  00 aa 3e c8 99 20 22 57  |="TASK"...>.. "W|
00000140  69 6d 70 5f 49 6e 69 74  69 61 6c 69 73 65 22 2c  |imp_Initialise",|
00000150  32 30 30 2c 21 62 6c 6f  63 6b 25 2c 22 42 72 6f  |200,!block%,"Bro|
00000160  6c 6c 79 22 20 b8 20 76  65 72 73 69 6f 6e 25 2c  |lly" . version%,|
00000170  74 61 73 6b 25 0d 00 b4  34 c8 99 20 22 57 69 6d  |task%...4.. "Wim|
00000180  70 5f 4f 70 65 6e 54 65  6d 70 6c 61 74 65 22 2c  |p_OpenTemplate",|
00000190  2c 22 3c 42 72 6f 6c 6c  79 24 44 69 72 3e 2e 54  |,"<Brolly$Dir>.T|
000001a0  65 6d 70 6c 61 74 65 73  22 0d 00 be 2a ee 20 85  |emplates"...*. .|
000001b0  20 c8 99 20 22 57 69 6d  70 5f 43 6c 6f 73 65 54  | .. "Wimp_CloseT|
000001c0  65 6d 70 6c 61 74 65 22  3a f2 77 69 6d 70 65 72  |emplate":.wimper|
000001d0  72 6f 72 0d 00 c8 44 c8  99 20 22 57 69 6d 70 5f  |ror...D.. "Wimp_|
000001e0  4c 6f 61 64 54 65 6d 70  6c 61 74 65 22 2c 2c 62  |LoadTemplate",,b|
000001f0  6c 6f 63 6b 25 2c 77 73  25 2c 77 73 65 6e 64 25  |lock%,ws%,wsend%|
00000200  2c 2d 31 2c 22 69 6e 66  6f 62 6f 78 22 2c 30 20  |,-1,"infobox",0 |
00000210  b8 20 2c 2c 77 73 25 0d  00 d2 1e 24 28 62 6c 6f  |. ,,ws%....$(blo|
00000220  63 6b 25 21 28 38 38 2b  32 30 29 29 3d 22 42 72  |ck%!(88+20))="Br|
00000230  6f 6c 6c 79 22 0d 00 dc  21 24 28 62 6c 6f 63 6b  |olly"...!$(block|
00000240  25 21 28 38 38 2b 33 32  2b 32 30 29 29 3d 76 65  |%!(88+32+20))=ve|
00000250  72 73 69 6f 6e 24 0d 00  e6 2c 24 28 62 6c 6f 63  |rsion$...,$(bloc|
00000260  6b 25 21 28 38 38 2b 36  34 2b 32 30 29 29 3d 22  |k%!(88+64+20))="|
00000270  4b 65 65 70 20 6f 75 74  20 74 68 65 20 72 61 69  |Keep out the rai|
00000280  6e 22 0d 00 f0 2f c8 99  20 22 57 69 6d 70 5f 43  |n".../.. "Wimp_C|
00000290  72 65 61 74 65 57 69 6e  64 6f 77 22 2c 2c 62 6c  |reateWindow",,bl|
000002a0  6f 63 6b 25 20 b8 20 69  6e 66 6f 68 61 6e 64 6c  |ock% . infohandl|
000002b0  65 0d 00 fa 47 c8 99 20  22 57 69 6d 70 5f 4c 6f  |e...G.. "Wimp_Lo|
000002c0  61 64 54 65 6d 70 6c 61  74 65 22 2c 2c 62 6c 6f  |adTemplate",,blo|
000002d0  63 6b 25 2c 77 73 25 2c  77 73 65 6e 64 25 2c 2d  |ck%,ws%,wsend%,-|
000002e0  31 2c 22 62 61 63 6b 67  72 6f 75 6e 64 22 2c 30  |1,"background",0|
000002f0  20 b8 20 2c 2c 77 73 25  0d 01 04 13 6d 69 6e 79  | . ,,ws%....miny|
00000300  25 3d 62 6c 6f 63 6b 25  21 34 34 0d 01 0e 37 62  |%=block%!44...7b|
00000310  6c 6f 63 6b 25 21 32 30  3d 62 6c 6f 63 6b 25 21  |lock%!20=block%!|
00000320  34 34 3a f4 20 4d 4f 56  45 20 59 20 73 63 72 6f  |44:. MOVE Y scro|
00000330  6c 6c 20 6f 66 66 73 65  74 20 74 6f 20 6d 69 6e  |ll offset to min|
00000340  20 59 0d 01 18 2f c8 99  20 22 57 69 6d 70 5f 43  | Y.../.. "Wimp_C|
00000350  72 65 61 74 65 57 69 6e  64 6f 77 22 2c 2c 62 6c  |reateWindow",,bl|
00000360  6f 63 6b 25 20 b8 20 62  61 63 6b 68 61 6e 64 6c  |ock% . backhandl|
00000370  65 0d 01 22 44 c8 99 20  22 57 69 6d 70 5f 4c 6f  |e.."D.. "Wimp_Lo|
00000380  61 64 54 65 6d 70 6c 61  74 65 22 2c 2c 62 6c 6f  |adTemplate",,blo|
00000390  63 6b 25 2c 77 73 25 2c  77 73 65 6e 64 25 2c 2d  |ck%,ws%,wsend%,-|
000003a0  31 2c 22 57 65 61 74 68  65 72 22 2c 30 20 b8 20  |1,"Weather",0 . |
000003b0  2c 2c 77 73 25 0d 01 2c  32 c8 99 20 22 57 69 6d  |,,ws%..,2.. "Wim|
000003c0  70 5f 43 72 65 61 74 65  57 69 6e 64 6f 77 22 2c  |p_CreateWindow",|
000003d0  2c 62 6c 6f 63 6b 25 20  b8 20 57 65 61 74 68 65  |,block% . Weathe|
000003e0  72 68 61 6e 64 6c 65 0d  01 36 1b c8 99 20 22 57  |rhandle..6... "W|
000003f0  69 6d 70 5f 43 6c 6f 73  65 54 65 6d 70 6c 61 74  |imp_CloseTemplat|
00000400  65 22 0d 01 40 10 f2 69  6e 73 74 61 6c 6c 69 63  |e"..@..installic|
00000410  6f 6e 0d 01 4a 0f f2 73  65 74 77 65 61 74 68 65  |on..J..setweathe|
00000420  72 0d 01 54 12 ee 20 85  20 f2 77 69 6d 70 65 72  |r..T.. . .wimper|
00000430  72 6f 72 0d 01 5e 0e f2  73 65 74 75 70 6d 65 6e  |ror..^..setupmen|
00000440  75 0d 01 68 04 0d 01 72  05 f5 0d 01 7c 24 c8 99  |u..h...r....|$..|
00000450  20 22 57 69 6d 70 5f 50  6f 6c 6c 22 2c 2c 62 6c  | "Wimp_Poll",,bl|
00000460  6f 63 6b 25 20 b8 20 72  65 61 73 6f 6e 25 0d 01  |ock% . reason%..|
00000470  86 11 20 c8 8e 20 72 65  61 73 6f 6e 25 20 ca 0d  |.. .. reason% ..|
00000480  01 90 2e 20 20 c9 20 30  20 20 20 20 3a f2 75 70  |...  . 0    :.up|
00000490  64 61 74 65 28 62 61 63  6b 68 61 6e 64 6c 65 2c  |date(backhandle,|
000004a0  32 31 33 38 2c 39 39 39  39 39 39 39 29 0d 01 9a  |2138,9999999)...|
000004b0  38 20 20 20 20 20 20 20  20 20 20 20 20 20 e7 20  |8             . |
000004c0  57 65 61 74 68 65 72 25  3d b9 20 80 20 72 61 69  |Weather%=. . rai|
000004d0  6e 25 3d b9 20 84 20 73  6e 6f 77 25 3d b9 20 3a  |n%=. . snow%=. :|
000004e0  f2 66 61 6c 6c 0d 01 a4  12 20 20 20 20 20 20 20  |.fall....       |
000004f0  20 20 20 20 20 20 cd 0d  01 ae 25 20 20 c9 20 32  |      ....%  . 2|
00000500  20 20 20 20 3a f2 72 65  4f 70 65 6e 57 69 6e 64  |    :.reOpenWind|
00000510  6f 77 28 62 6c 6f 63 6b  25 21 30 29 0d 01 b8 24  |ow(block%!0)...$|
00000520  20 20 c9 20 33 20 20 20  20 3a f2 63 6c 6f 73 65  |  . 3    :.close|
00000530  57 69 6e 64 6f 77 28 62  6c 6f 63 6b 25 21 30 29  |Window(block%!0)|
00000540  0d 01 c2 14 20 20 c9 20  36 20 20 20 20 3a f2 6d  |....  . 6    :.m|
00000550  6f 75 73 65 0d 01 cc 13  20 20 c9 20 39 20 20 20  |ouse....  . 9   |
00000560  20 3a f2 6d 65 6e 75 0d  01 d6 1b 20 20 c9 20 31  | :.menu....  . 1|
00000570  37 2c 31 38 3a f2 52 65  63 69 76 65 4d 65 73 61  |7,18:.ReciveMesa|
00000580  67 65 0d 01 e0 06 20 cb  0d 01 ea 0b fd 20 71 75  |ge.... ...... qu|
00000590  69 74 25 0d 01 f4 0a f2  63 6c 6f 73 65 0d 01 fe  |it%.....close...|
000005a0  05 e0 0d 02 08 04 0d 02  12 0a dd f2 66 61 6c 6c  |............fall|
000005b0  0d 02 1c 17 e7 20 b3 28  31 38 30 29 3d 31 3a f2  |..... .(180)=1:.|
000005c0  74 68 75 6e 64 65 72 0d  02 26 17 62 6c 6f 63 6b  |thunder..&.block|
000005d0  25 21 30 3d 62 61 63 6b  68 61 6e 64 6c 65 0d 02  |%!0=backhandle..|
000005e0  30 24 c8 99 20 22 57 69  6d 70 5f 47 65 74 57 69  |0$.. "Wimp_GetWi|
000005f0  6e 64 6f 77 53 74 61 74  65 22 2c 2c 62 6c 6f 63  |ndowState",,bloc|
00000600  6b 25 0d 02 3a 2a e7 20  62 6c 6f 63 6b 25 21 32  |k%..:*. block%!2|
00000610  34 3d 30 20 62 6c 6f 63  6b 25 21 32 34 3d 6d 69  |4=0 block%!24=mi|
00000620  6e 79 25 3a f2 74 68 75  6e 64 65 72 0d 02 44 26  |ny%:.thunder..D&|
00000630  62 6c 6f 63 6b 25 21 32  34 3d 62 6c 6f 63 6b 25  |block%!24=block%|
00000640  21 32 34 2b 50 72 65 63  69 70 69 74 61 74 69 6f  |!24+Precipitatio|
00000650  6e 25 0d 02 4e 10 62 6c  6f 63 6b 25 21 32 38 3d  |n%..N.block%!28=|
00000660  2d 32 0d 02 58 20 c8 99  20 22 57 69 6d 70 5f 4f  |-2..X .. "Wimp_O|
00000670  70 65 6e 57 69 6e 64 6f  77 22 2c 2c 62 6c 6f 63  |penWindow",,bloc|
00000680  6b 25 0d 02 62 05 e1 0d  02 6c 04 0d 02 76 1e dd  |k%..b....l...v..|
00000690  f2 75 70 64 61 74 65 28  77 68 61 6e 64 6c 65 25  |.update(whandle%|
000006a0  2c 78 77 25 2c 79 77 25  29 0d 02 80 15 62 6c 6f  |,xw%,yw%)....blo|
000006b0  63 6b 25 21 30 3d 77 68  61 6e 64 6c 65 25 0d 02  |ck%!0=whandle%..|
000006c0  8a 19 62 6c 6f 63 6b 25  21 34 3d 30 20 20 20 20  |..block%!4=0    |
000006d0  3a f4 20 58 6d 69 6e 0d  02 94 19 62 6c 6f 63 6b  |:. Xmin....block|
000006e0  25 21 38 3d 2d 79 77 25  20 3a f4 20 59 6d 69 6e  |%!8=-yw% :. Ymin|
000006f0  0d 02 9e 18 62 6c 6f 63  6b 25 21 31 32 3d 78 77  |....block%!12=xw|
00000700  25 3a f4 20 58 6d 61 78  0d 02 a8 19 62 6c 6f 63  |%:. Xmax....bloc|
00000710  6b 25 21 31 36 3d 30 20  20 20 3a f4 20 59 6d 61  |k%!16=0   :. Yma|
00000720  78 0d 02 b2 2a c8 99 20  22 57 69 6d 70 5f 55 70  |x...*.. "Wimp_Up|
00000730  64 61 74 65 57 69 6e 64  6f 77 22 2c 2c 62 6c 6f  |dateWindow",,blo|
00000740  63 6b 25 20 b8 20 6d 6f  72 65 25 0d 02 bc 04 0d  |ck% . more%.....|
00000750  02 c6 0d 20 c8 95 20 6d  6f 72 65 25 0d 02 d0 2e  |... .. more%....|
00000760  e7 20 57 65 61 74 68 65  72 25 3d b9 20 80 20 72  |. Weather%=. . r|
00000770  61 69 6e 25 3d b9 20 f2  70 72 65 63 69 70 69 74  |ain%=. .precipit|
00000780  61 74 65 28 31 35 2c 34  34 29 0d 02 da 2d e7 20  |ate(15,44)...-. |
00000790  57 65 61 74 68 65 72 25  3d b9 20 80 20 73 6e 6f  |Weather%=. . sno|
000007a0  77 25 3d b9 20 f2 70 72  65 63 69 70 69 74 61 74  |w%=. .precipitat|
000007b0  65 28 30 2c 34 36 29 0d  02 e4 2c 20 20 c8 99 20  |e(0,46)...,  .. |
000007c0  22 57 69 6d 70 5f 47 65  74 52 65 63 74 61 6e 67  |"Wimp_GetRectang|
000007d0  6c 65 22 2c 2c 62 6c 6f  63 6b 25 20 b8 20 6d 6f  |le",,block% . mo|
000007e0  72 65 25 0d 02 ee 06 20  ce 0d 02 f8 05 e1 0d 03  |re%.... ........|
000007f0  02 04 0d 03 0c 18 dd f2  70 72 65 63 69 70 69 74  |........precipit|
00000800  61 74 65 28 63 25 2c 64  25 29 0d 03 16 1a c8 99  |ate(c%,d%)......|
00000810  20 22 57 69 6d 70 5f 53  65 74 43 6f 6c 6f 75 72  | "Wimp_SetColour|
00000820  22 2c 63 25 0d 03 20 18  e3 20 66 25 3d 20 30 20  |",c%.. .. f%= 0 |
00000830  b8 20 72 61 69 6e 64 72  6f 70 73 25 0d 03 2a 13  |. raindrops%..*.|
00000840  ec 20 b3 28 32 31 33 38  29 2c 31 30 31 36 3a 0d  |. .(2138),1016:.|
00000850  03 34 0c f1 20 bd 28 64  25 29 3b 0d 03 3e 05 ed  |.4.. .(d%);..>..|
00000860  0d 03 48 05 e1 0d 03 52  04 0d 03 5c 1a dd 20 f2  |..H....R...\.. .|
00000870  6f 70 65 6e 77 69 6e 64  6f 77 28 68 61 6e 64 6c  |openwindow(handl|
00000880  65 25 29 0d 03 66 14 62  6c 6f 63 6b 25 21 30 3d  |e%)..f.block%!0=|
00000890  68 61 6e 64 6c 65 25 0d  03 70 24 c8 99 20 22 57  |handle%..p$.. "W|
000008a0  69 6d 70 5f 47 65 74 57  69 6e 64 6f 77 53 74 61  |imp_GetWindowSta|
000008b0  74 65 22 2c 2c 62 6c 6f  63 6b 25 0d 03 7a 10 62  |te",,block%..z.b|
000008c0  6c 6f 63 6b 25 21 32 38  3d 2d 32 0d 03 84 20 c8  |lock%!28=-2... .|
000008d0  99 20 22 57 69 6d 70 5f  4f 70 65 6e 57 69 6e 64  |. "Wimp_OpenWind|
000008e0  6f 77 22 2c 2c 62 6c 6f  63 6b 25 0d 03 8e 05 e1  |ow",,block%.....|
000008f0  0d 03 98 04 0d 03 a2 1b  dd 20 f2 63 6c 6f 73 65  |......... .close|
00000900  57 69 6e 64 6f 77 28 68  61 6e 64 6c 65 25 29 0d  |Window(handle%).|
00000910  03 ac 14 62 6c 6f 63 6b  25 21 30 3d 68 61 6e 64  |...block%!0=hand|
00000920  6c 65 25 0d 03 b6 21 c8  99 20 22 57 69 6d 70 5f  |le%...!.. "Wimp_|
00000930  43 6c 6f 73 65 57 69 6e  64 6f 77 22 2c 2c 62 6c  |CloseWindow",,bl|
00000940  6f 63 6b 25 0d 03 c0 05  e1 0d 03 ca 04 0d 03 d4  |ock%............|
00000950  1c dd 20 f2 72 65 4f 70  65 6e 57 69 6e 64 6f 77  |.. .reOpenWindow|
00000960  28 68 61 6e 64 6c 65 25  29 0d 03 de 14 62 6c 6f  |(handle%)....blo|
00000970  63 6b 25 21 30 3d 68 61  6e 64 6c 65 25 0d 03 e8  |ck%!0=handle%...|
00000980  20 c8 99 20 22 57 69 6d  70 5f 4f 70 65 6e 57 69  | .. "Wimp_OpenWi|
00000990  6e 64 6f 77 22 2c 2c 62  6c 6f 63 6b 25 0d 03 f2  |ndow",,block%...|
000009a0  05 e1 0d 03 fc 04 0d 04  06 12 dd 20 f2 69 6e 73  |........... .ins|
000009b0  74 61 6c 6c 69 63 6f 6e  0d 04 10 12 ea 20 66 69  |tallicon..... fi|
000009c0  6c 65 25 2c 6c 65 6e 74  68 25 0d 04 1a 0e de 20  |le%,lenth%..... |
000009d0  69 63 6f 6e 25 20 32 30  0d 04 24 25 66 69 6c 65  |icon% 20..$%file|
000009e0  25 3d 8e 20 22 3c 42 72  6f 6c 6c 79 24 44 69 72  |%=. "<Brolly$Dir|
000009f0  3e 2e 53 70 72 69 74 65  66 69 6c 65 22 0d 04 2e  |>.Spritefile"...|
00000a00  36 6c 65 6e 74 68 25 3d  a2 23 20 66 69 6c 65 25  |6lenth%=.# file%|
00000a10  2b 31 36 20 20 20 20 3a  f4 20 53 69 7a 65 20 6f  |+16    :. Size o|
00000a20  66 20 73 70 72 69 74 65  20 66 69 6c 65 20 2b 61  |f sprite file +a|
00000a30  62 69 74 0d 04 38 0c d9  23 20 66 69 6c 65 25 0d  |bit..8..# file%.|
00000a40  04 42 2a de 20 73 70 72  69 74 65 73 25 20 6c 65  |.B*. sprites% le|
00000a50  6e 74 68 25 20 20 20 20  20 20 20 3a f4 20 53 70  |nth%       :. Sp|
00000a60  72 69 74 65 20 61 72 65  61 0d 04 4c 15 73 70 72  |rite area..L.spr|
00000a70  69 74 65 73 25 21 30 3d  6c 65 6e 74 68 25 0d 04  |ites%!0=lenth%..|
00000a80  56 3c c8 99 20 22 4f 53  5f 53 70 72 69 74 65 4f  |V<.. "OS_SpriteO|
00000a90  70 22 2c 26 31 30 41 2c  73 70 72 69 74 65 73 25  |p",&10A,sprites%|
00000aa0  2c 22 3c 42 72 6f 6c 6c  79 24 44 69 72 3e 2e 53  |,"<Brolly$Dir>.S|
00000ab0  70 72 69 74 65 66 69 6c  65 22 0d 04 60 39 c8 99  |pritefile"..`9..|
00000ac0  20 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 32  | "OS_SpriteOp",2|
00000ad0  35 36 2b 34 30 2c 73 70  72 69 74 65 73 25 2c 22  |56+40,sprites%,"|
00000ae0  72 61 69 6e 6f 66 66 22  20 b8 20 2c 2c 2c 77 25  |rainoff" . ,,,w%|
00000af0  2c 68 25 0d 04 6a 19 24  69 63 6f 6e 25 3d 22 72  |,h%..j.$icon%="r|
00000b00  61 69 6e 6f 66 66 22 2b  bd 28 30 29 0d 04 74 43  |ainoff"+.(0)..tC|
00000b10  62 6c 6f 63 6b 25 21 30  3d 2d 31 3a 62 6c 6f 63  |block%!0=-1:bloc|
00000b20  6b 25 21 34 3d 30 3a 62  6c 6f 63 6b 25 21 38 3d  |k%!4=0:block%!8=|
00000b30  30 3a 62 6c 6f 63 6b 25  21 31 32 3d 77 25 2a 32  |0:block%!12=w%*2|
00000b40  3a 62 6c 6f 63 6b 25 21  31 36 3d 68 25 2a 34 0d  |:block%!16=h%*4.|
00000b50  04 7e 3a 62 6c 6f 63 6b  25 21 32 30 3d 26 30 37  |.~:block%!20=&07|
00000b60  30 30 33 31 31 41 3a 62  6c 6f 63 6b 25 21 32 34  |00311A:block%!24|
00000b70  3d 69 63 6f 6e 25 3a 62  6c 6f 63 6b 25 21 32 38  |=icon%:block%!28|
00000b80  3d 73 70 72 69 74 65 73  25 0d 04 88 16 62 6c 6f  |=sprites%....blo|
00000b90  63 6b 25 21 33 32 3d a9  20 24 69 63 6f 6e 25 0d  |ck%!32=. $icon%.|
00000ba0  04 92 2c c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |..,.. "Wimp_Crea|
00000bb0  74 65 49 63 6f 6e 22 2c  2c 62 6c 6f 63 6b 25 20  |teIcon",,block% |
00000bc0  b8 20 69 63 6f 6e 68 61  6e 64 25 0d 04 9c 05 e1  |. iconhand%.....|
00000bd0  0d 04 a6 04 0d 04 b0 0b  dd f2 6d 6f 75 73 65 0d  |..........mouse.|
00000be0  04 ba 15 20 e7 20 62 6c  6f 63 6b 25 21 31 32 3d  |... . block%!12=|
00000bf0  2d 32 20 8c 0d 04 c4 14  20 20 20 c8 8e 20 62 6c  |-2 .....   .. bl|
00000c00  6f 63 6b 25 21 38 20 ca  0d 04 ce 2a 20 20 20 c9  |ock%!8 ....*   .|
00000c10  20 31 20 3a e7 20 57 65  61 74 68 65 72 25 3d b9  | 1 :. Weather%=.|
00000c20  20 f2 74 68 75 6e 64 65  72 3a f4 20 41 44 4a 55  | .thunder:. ADJU|
00000c30  53 54 0d 04 d8 3e 20 20  20 c9 20 32 20 3a c8 99  |ST...>   . 2 :..|
00000c40  22 57 69 6d 70 5f 43 72  65 61 74 65 4d 65 6e 75  |"Wimp_CreateMenu|
00000c50  22 2c 2c 6d 65 6e 75 25  2c 62 6c 6f 63 6b 25 21  |",,menu%,block%!|
00000c60  30 2d 35 30 2c 32 33 30  20 3a f4 20 4d 45 4e 55  |0-50,230 :. MENU|
00000c70  0d 04 e2 5e 20 20 20 c9  20 34 20 3a f2 42 72 6f  |...^   . 4 :.Bro|
00000c80  6c 6c 79 3a e7 20 57 65  61 74 68 65 72 25 3d b9  |lly:. Weather%=.|
00000c90  20 f2 6f 70 65 6e 77 69  6e 64 6f 77 28 62 61 63  | .openwindow(bac|
00000ca0  6b 68 61 6e 64 6c 65 29  20 8b 20 f2 63 6c 6f 73  |khandle) . .clos|
00000cb0  65 57 69 6e 64 6f 77 20  28 62 61 63 6b 68 61 6e  |eWindow (backhan|
00000cc0  64 6c 65 29 20 3a f4 20  53 45 4c 45 43 54 0d 04  |dle) :. SELECT..|
00000cd0  ec 07 20 20 cb 0d 04 f6  06 20 cd 0d 05 00 1f e7  |..  ..... ......|
00000ce0  20 62 6c 6f 63 6b 25 21  31 32 3d 57 65 61 74 68  | block%!12=Weath|
00000cf0  65 72 68 61 6e 64 6c 65  20 8c 0d 05 0a 26 c8 99  |erhandle ....&..|
00000d00  20 22 57 69 6d 70 5f 47  65 74 50 6f 69 6e 74 65  | "Wimp_GetPointe|
00000d10  72 49 6e 66 6f 22 2c 2c  62 75 74 74 6f 6e 73 25  |rInfo",,buttons%|
00000d20  0d 05 14 3b 20 62 25 3d  26 32 30 30 30 30 30 20  |...; b%=&200000 |
00000d30  3a f4 20 49 63 6f 6e 20  66 6c 61 67 20 62 69 74  |:. Icon flag bit|
00000d40  20 74 6f 20 73 65 74 20  66 6f 72 20 73 65 6c 65  | to set for sele|
00000d50  63 74 65 64 20 62 69 74  20 32 31 0d 05 1e 14 20  |cted bit 21.... |
00000d60  20 c8 8e 20 62 6c 6f 63  6b 25 21 31 36 20 ca 0d  | .. block%!16 ..|
00000d70  05 28 38 20 20 20 20 c9  20 30 20 3a f2 73 65 74  |.(8    . 0 :.set|
00000d80  69 63 6f 6e 28 32 2c 30  2c 62 25 29 3a 54 68 75  |icon(2,0,b%):Thu|
00000d90  6e 64 65 72 25 3d a3 3a  72 61 69 6e 25 3d a3 3a  |nder%=.:rain%=.:|
00000da0  73 6e 6f 77 25 3d b9 0d  05 32 2e 20 20 20 20 20  |snow%=...2.     |
00000db0  20 20 20 20 20 20 20 50  72 65 63 69 70 69 74 61  |       Precipita|
00000dc0  74 69 6f 6e 25 3d 31 30  3a 72 61 69 6e 64 72 6f  |tion%=10:raindro|
00000dd0  70 73 25 3d 31 0d 05 3c  3d 20 20 20 20 20 20 20  |ps%=1..<=       |
00000de0  20 20 20 20 20 e7 20 62  75 74 74 6f 6e 73 25 21  |     . buttons%!|
00000df0  38 3d 31 3a f2 73 65 74  69 63 6f 6e 28 32 2c 30  |8=1:.seticon(2,0|
00000e00  2c 62 25 29 3a f4 20 74  68 75 6e 64 65 72 20 6f  |,b%):. thunder o|
00000e10  66 66 0d 05 46 34 20 20  20 20 20 20 20 20 20 20  |ff..F4          |
00000e20  20 20 e7 20 57 65 61 74  68 65 72 25 3d b9 20 f2  |  . Weather%=. .|
00000e30  6f 70 65 6e 77 69 6e 64  6f 77 28 62 61 63 6b 68  |openwindow(backh|
00000e40  61 6e 64 6c 65 29 0d 05  50 04 0d 05 5a 1c 20 20  |andle)..P...Z.  |
00000e50  20 20 c9 20 31 20 3a 73  6e 6f 77 25 3d a3 3a 72  |  . 1 :snow%=.:r|
00000e60  61 69 6e 25 3d b9 0d 05  64 2e 20 20 20 20 20 20  |ain%=...d.      |
00000e70  20 20 20 20 20 20 50 72  65 63 69 70 69 74 61 74  |      Precipitat|
00000e80  69 6f 6e 25 3d 32 30 3a  72 61 69 6e 64 72 6f 70  |ion%=20:raindrop|
00000e90  73 25 3d 31 0d 05 6e 30  20 20 20 20 20 20 20 20  |s%=1..n0        |
00000ea0  20 20 20 20 e7 20 62 75  74 74 6f 6e 73 25 21 38  |    . buttons%!8|
00000eb0  3d 31 3a f2 73 65 74 69  63 6f 6e 28 31 2c 62 25  |=1:.seticon(1,b%|
00000ec0  2c 62 25 29 0d 05 78 34  20 20 20 20 20 20 20 20  |,b%)..x4        |
00000ed0  20 20 20 20 e7 20 57 65  61 74 68 65 72 25 3d b9  |    . Weather%=.|
00000ee0  20 f2 6f 70 65 6e 77 69  6e 64 6f 77 28 62 61 63  | .openwindow(bac|
00000ef0  6b 68 61 6e 64 6c 65 29  0d 05 82 04 0d 05 8c 1d  |khandle)........|
00000f00  20 20 20 20 c9 20 32 20  3a e7 20 62 75 74 74 6f  |    . 2 :. butto|
00000f10  6e 73 25 21 38 3d 34 20  8c 0d 05 96 45 20 20 20  |ns%!8=4 ....E   |
00000f20  20 20 20 20 20 20 20 20  20 f2 73 65 74 69 63 6f  |         .setico|
00000f30  6e 28 30 2c 30 2c 62 25  29 3a f2 73 65 74 69 63  |n(0,0,b%):.setic|
00000f40  6f 6e 28 31 2c 62 25 2c  62 25 29 3a f4 20 73 6e  |on(1,b%,b%):. sn|
00000f50  6f 77 20 6f 66 66 20 72  61 69 6e 20 6f 6e 0d 05  |ow off rain on..|
00000f60  a0 1f 20 20 20 20 20 20  20 20 20 20 20 20 73 6e  |..            sn|
00000f70  6f 77 25 3d a3 3a 72 61  69 6e 25 3d b9 0d 05 aa  |ow%=.:rain%=....|
00000f80  23 20 20 20 20 20 20 20  20 20 20 20 20 54 68 75  |#            Thu|
00000f90  6e 64 65 72 25 3d b9 3a  f2 74 68 75 6e 64 65 72  |nder%=.:.thunder|
00000fa0  0d 05 b4 11 20 20 20 20  20 20 20 20 20 20 20 20  |....            |
00000fb0  cd 0d 05 be 68 20 20 20  20 20 20 20 20 20 20 20  |....h           |
00000fc0  20 e7 20 20 62 75 74 74  6f 6e 73 25 21 38 3d 31  | .  buttons%!8=1|
00000fd0  3a 54 68 75 6e 64 65 72  25 3d a3 3a 72 61 69 6e  |:Thunder%=.:rain|
00000fe0  64 72 6f 70 73 25 3d 31  3a 50 72 65 63 69 70 69  |drops%=1:Precipi|
00000ff0  74 61 74 69 6f 6e 25 3d  32 30 3a f2 73 65 74 69  |tation%=20:.seti|
00001000  63 6f 6e 28 32 2c 30 2c  62 25 29 3a f4 20 74 68  |con(2,0,b%):. th|
00001010  75 6e 64 65 72 20 6f 66  66 0d 05 c8 07 20 20 cb  |under off....  .|
00001020  0d 05 d2 05 cd 0d 05 dc  05 e1 0d 05 e6 04 0d 05  |................|
00001030  f0 17 dd f2 73 65 74 69  63 6f 6e 28 69 25 2c 65  |....seticon(i%,e|
00001040  25 2c 63 25 29 0d 05 fa  2a 62 6c 6f 63 6b 25 21  |%,c%)...*block%!|
00001050  30 3d 57 65 61 74 68 65  72 68 61 6e 64 6c 65 20  |0=Weatherhandle |
00001060  3a f4 20 77 69 6e 64 6f  77 68 61 6e 64 6c 65 0d  |:. windowhandle.|
00001070  06 04 1f 62 6c 6f 63 6b  25 21 34 3d 69 25 20 20  |...block%!4=i%  |
00001080  3a f4 20 69 63 6f 6e 20  68 61 6e 64 6c 65 0d 06  |:. icon handle..|
00001090  0e 1c 62 6c 6f 63 6b 25  21 38 3d 65 25 20 20 3a  |..block%!8=e%  :|
000010a0  f4 20 45 4f 52 20 77 6f  72 64 0d 06 18 1e 62 6c  |. EOR word....bl|
000010b0  6f 63 6b 25 21 31 32 3d  63 25 20 3a f4 20 63 6c  |ock%!12=c% :. cl|
000010c0  65 61 72 20 77 6f 72 64  0d 06 22 22 c8 99 20 22  |ear word.."".. "|
000010d0  57 69 6d 70 5f 53 65 74  49 63 6f 6e 53 74 61 74  |Wimp_SetIconStat|
000010e0  65 22 2c 2c 62 6c 6f 63  6b 25 0d 06 2c 0e 54 68  |e",,block%..,.Th|
000010f0  75 6e 64 65 72 25 3d a3  0d 06 36 05 e1 0d 06 40  |under%=...6....@|
00001100  04 0d 06 4a 04 0d 06 54  0c dd f2 42 72 6f 6c 6c  |...J...T...Broll|
00001110  79 0d 06 5e 12 e7 20 57  65 61 74 68 65 72 25 3d  |y..^.. Weather%=|
00001120  b9 20 8c 0d 06 68 2f 57  65 61 74 68 65 72 25 3d  |. ...h/Weather%=|
00001130  a3 3a f2 63 68 61 6e 67  65 69 63 6f 6e 28 22 72  |.:.changeicon("r|
00001140  61 69 6e 6f 66 66 22 2c  69 63 6f 6e 68 61 6e 64  |ainoff",iconhand|
00001150  25 29 0d 06 72 21 c8 99  22 57 69 6d 70 5f 53 65  |%)..r!.."Wimp_Se|
00001160  74 50 61 6c 65 74 74 65  22 2c 2c 70 61 6c 65 74  |tPalette",,palet|
00001170  74 65 25 0d 06 7c 05 cc  0d 06 86 2e 57 65 61 74  |te%..|......Weat|
00001180  68 65 72 25 3d b9 3a f2  63 68 61 6e 67 65 69 63  |her%=.:.changeic|
00001190  6f 6e 28 22 72 61 69 6e  6f 6e 22 2c 69 63 6f 6e  |on("rainon",icon|
000011a0  68 61 6e 64 25 29 0d 06  90 05 cd 0d 06 9a 05 e1  |hand%)..........|
000011b0  0d 06 a4 04 0d 06 ae 0d  dd f2 74 68 75 6e 64 65  |..........thunde|
000011c0  72 0d 06 b8 12 e7 20 54  68 75 6e 64 65 72 25 3d  |r..... Thunder%=|
000011d0  a3 20 e1 0d 06 c2 10 72  61 69 6e 64 72 6f 70 73  |. .....raindrops|
000011e0  25 3d 35 0d 06 cc 15 50  72 65 63 69 70 69 74 61  |%=5....Precipita|
000011f0  74 69 6f 6e 25 3d 34 30  0d 06 d6 04 0d 06 e0 2a  |tion%=40.......*|
00001200  c8 99 22 53 6f 75 6e 64  5f 41 74 74 61 63 68 4e  |.."Sound_AttachN|
00001210  61 6d 65 64 56 6f 69 63  65 22 2c 31 2c 22 54 68  |amedVoice",1,"Th|
00001220  75 6e 64 65 72 22 0d 06  ea 25 c8 99 22 57 69 6d  |under"...%.."Wim|
00001230  70 5f 53 65 74 50 61 6c  65 74 74 65 22 2c 2c 74  |p_SetPalette",,t|
00001240  65 6d 70 70 61 6c 65 74  74 65 25 0d 06 f4 06 c8  |emppalette%.....|
00001250  96 0d 06 fe 21 c8 99 22  57 69 6d 70 5f 53 65 74  |....!.."Wimp_Set|
00001260  50 61 6c 65 74 74 65 22  2c 2c 70 61 6c 65 74 74  |Palette",,palett|
00001270  65 25 0d 07 08 23 c8 99  22 53 6f 75 6e 64 5f 43  |e%...#.."Sound_C|
00001280  6f 6e 74 72 6f 6c 22 2c  31 2c 2d 31 35 2c 26 31  |ontrol",1,-15,&1|
00001290  35 30 30 2c 31 0d 07 12  0e f2 64 65 6c 61 79 28  |500,1.....delay(|
000012a0  31 30 29 0d 07 1c 25 c8  99 22 57 69 6d 70 5f 53  |10)...%.."Wimp_S|
000012b0  65 74 50 61 6c 65 74 74  65 22 2c 2c 74 65 6d 70  |etPalette",,temp|
000012c0  70 61 6c 65 74 74 65 25  0d 07 26 0e f2 64 65 6c  |palette%..&..del|
000012d0  61 79 28 32 30 29 0d 07  30 21 c8 99 22 57 69 6d  |ay(20)..0!.."Wim|
000012e0  70 5f 53 65 74 50 61 6c  65 74 74 65 22 2c 2c 70  |p_SetPalette",,p|
000012f0  61 6c 65 74 74 65 25 0d  07 3a 05 e1 0d 07 44 04  |alette%..:....D.|
00001300  0d 07 4e 04 0d 07 58 0f  dd f2 64 65 6c 61 79 28  |..N...X...delay(|
00001310  64 25 29 0d 07 62 08 ea  20 74 25 0d 07 6c 0b 74  |d%)..b.. t%..l.t|
00001320  25 3d 91 2b 64 25 0d 07  76 0c f5 3a fd 20 91 3e  |%=.+d%..v..:. .>|
00001330  74 25 0d 07 80 05 e1 0d  07 8a 04 0d 07 94 1f dd  |t%..............|
00001340  f2 63 68 61 6e 67 65 69  63 6f 6e 28 69 63 6f 6e  |.changeicon(icon|
00001350  24 2c 68 61 6e 64 6c 65  25 29 0d 07 9e 15 24 69  |$,handle%)....$i|
00001360  63 6f 6e 25 3d 69 63 6f  6e 24 2b bd 28 30 29 0d  |con%=icon$+.(0).|
00001370  07 a8 37 62 6c 6f 63 6b  25 21 30 3d 2d 31 3a 62  |..7block%!0=-1:b|
00001380  6c 6f 63 6b 25 21 34 3d  68 61 6e 64 6c 65 25 3a  |lock%!4=handle%:|
00001390  62 6c 6f 63 6b 25 21 38  3d 30 3a 62 6c 6f 63 6b  |block%!8=0:block|
000013a0  25 21 31 32 3d 30 0d 07  b2 22 c8 99 20 22 57 69  |%!12=0...".. "Wi|
000013b0  6d 70 5f 53 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_SetIconState"|
000013c0  2c 2c 62 6c 6f 63 6b 25  0d 07 bc 2a c8 99 22 53  |,,block%...*.."S|
000013d0  6f 75 6e 64 5f 41 74 74  61 63 68 4e 61 6d 65 64  |ound_AttachNamed|
000013e0  56 6f 69 63 65 22 2c 31  2c 22 54 68 75 6e 64 65  |Voice",1,"Thunde|
000013f0  72 22 0d 07 c6 21 c8 99  22 53 6f 75 6e 64 5f 43  |r"...!.."Sound_C|
00001400  6f 6e 74 72 6f 6c 22 2c  31 2c 2d 31 35 2c 32 30  |ontrol",1,-15,20|
00001410  30 2c 31 0d 07 d0 05 e1  0d 07 da 04 0d 07 e4 0a  |0,1.............|
00001420  dd f2 6d 65 6e 75 0d 07  ee 11 20 c8 8e 20 21 62  |..menu.... .. !b|
00001430  6c 6f 63 6b 25 20 ca 0d  07 f8 13 20 20 c9 20 32  |lock% .....  . 2|
00001440  20 3a f2 63 6c 6f 73 65  3a e0 0d 08 02 06 20 cb  | :.close:..... .|
00001450  0d 08 0c 23 c8 99 22 57  69 6d 70 5f 47 65 74 50  |...#.."Wimp_GetP|
00001460  6f 69 6e 74 65 72 49 6e  66 6f 22 2c 2c 62 6c 6f  |ointerInfo",,blo|
00001470  63 6b 25 0d 08 16 2c e7  20 62 6c 6f 63 6b 25 21  |ck%...,. block%!|
00001480  38 3d 31 3a c8 99 20 22  57 69 6d 70 5f 43 72 65  |8=1:.. "Wimp_Cre|
00001490  61 74 65 4d 65 6e 75 22  2c 2c 6d 65 6e 75 25 0d  |ateMenu",,menu%.|
000014a0  08 20 05 e1 0d 08 2a 04  0d 08 34 11 dd 20 f2 73  |. ....*...4.. .s|
000014b0  65 74 77 65 61 74 68 65  72 0d 08 3e 0b 71 75 69  |etweather..>.qui|
000014c0  74 25 3d a3 0d 08 48 13  72 61 69 6e 25 3d b9 3a  |t%=...H.rain%=.:|
000014d0  73 6e 6f 77 25 3d a3 0d  08 52 19 54 68 75 6e 64  |snow%=...R.Thund|
000014e0  65 72 25 3d b9 3a 57 65  61 74 68 65 72 25 3d a3  |er%=.:Weather%=.|
000014f0  0d 08 5c 10 72 61 69 6e  64 72 6f 70 73 25 3d 31  |..\.raindrops%=1|
00001500  0d 08 66 15 50 72 65 63  69 70 69 74 61 74 69 6f  |..f.Precipitatio|
00001510  6e 25 3d 32 30 0d 08 70  26 c8 99 22 57 69 6d 70  |n%=20..p&.."Wimp|
00001520  5f 52 65 61 64 50 61 6c  65 74 74 65 22 2c 2c 74  |_ReadPalette",,t|
00001530  65 6d 70 70 61 6c 65 74  74 65 25 0d 08 7a 09 70  |emppalette%..z.p|
00001540  25 3d 32 38 0d 08 84 13  e3 20 66 25 3d 30 20 b8  |%=28..... f%=0 .|
00001550  20 32 38 20 88 20 34 0d  08 8e 1f 74 65 6d 70 70  | 28 . 4....tempp|
00001560  61 6c 65 74 74 65 25 21  66 25 3d 70 61 6c 65 74  |alette%!f%=palet|
00001570  74 65 25 21 70 25 0d 08  98 0b 70 25 3d 70 25 2d  |te%!p%....p%=p%-|
00001580  34 0d 08 a2 05 ed 0d 08  ac 05 e1 0d 08 b6 04 0d  |4...............|
00001590  08 c0 0f dd f2 73 65 74  75 70 6d 65 6e 75 0d 08  |.....setupmenu..|
000015a0  ca 08 ea 20 6d 25 0d 08  d4 13 24 6d 65 6e 75 25  |... m%....$menu%|
000015b0  3d 22 42 72 6f 6c 6c 79  22 0d 08 de 2f 6d 65 6e  |="Brolly".../men|
000015c0  75 25 3f 31 32 3d 37 3a  6d 65 6e 75 25 3f 31 33  |u%?12=7:menu%?13|
000015d0  3d 32 3a 6d 65 6e 75 25  3f 31 34 3d 30 3a 6d 65  |=2:menu%?14=0:me|
000015e0  6e 75 25 3f 31 35 3d 30  0d 08 e8 27 6d 65 6e 75  |nu%?15=0...'menu|
000015f0  25 21 31 36 3d 31 33 30  3a 6d 65 6e 75 25 21 32  |%!16=130:menu%!2|
00001600  30 3d 34 30 3a 6d 65 6e  75 25 21 32 34 3d 30 0d  |0=40:menu%!24=0.|
00001610  08 f2 18 6d 25 3d 6d 65  6e 75 25 2b 32 38 3a 69  |...m%=menu%+28:i|
00001620  6e 66 6f 25 3d 6d 25 0d  08 fc 1a 6d 25 21 30 3d  |nfo%=m%....m%!0=|
00001630  30 3a 6d 25 21 34 3d 69  6e 66 6f 68 61 6e 64 6c  |0:m%!4=infohandl|
00001640  65 0d 09 06 1c 6d 25 21  38 3d 28 25 31 31 31 3c  |e....m%!8=(%111<|
00001650  3c 32 34 29 20 84 20 25  31 31 30 30 31 0d 09 10  |<24) . %11001...|
00001660  13 24 28 6d 25 2b 31 32  29 3d 22 49 6e 66 6f 22  |.$(m%+12)="Info"|
00001670  0d 09 1a 04 0d 09 24 26  6d 25 3d 6d 25 2b 32 34  |......$&m%=m%+24|
00001680  3a 6d 25 21 30 3d 30 3a  6d 25 21 34 3d 57 65 61  |:m%!0=0:m%!4=Wea|
00001690  74 68 65 72 68 61 6e 64  6c 65 0d 09 2e 1c 6d 25  |therhandle....m%|
000016a0  21 38 3d 28 25 31 31 31  3c 3c 32 34 29 20 84 20  |!8=(%111<<24) . |
000016b0  25 31 31 30 30 31 0d 09  38 16 24 28 6d 25 2b 31  |%11001..8.$(m%+1|
000016c0  32 29 3d 22 57 65 61 74  68 65 72 22 0d 09 42 04  |2)="Weather"..B.|
000016d0  0d 09 4c 1e 6d 25 3d 6d  25 2b 32 34 3a 51 75 69  |..L.m%=m%+24:Qui|
000016e0  74 25 3d 6d 25 3a 6d 25  21 30 3d 26 38 30 0d 09  |t%=m%:m%!0=&80..|
000016f0  56 33 6d 25 21 34 3d 30  3a 6d 25 21 38 3d 28 25  |V3m%!4=0:m%!8=(%|
00001700  31 31 31 3c 3c 32 34 29  20 84 20 25 31 31 30 30  |111<<24) . %1100|
00001710  31 3a 24 28 6d 25 2b 31  32 29 3d 22 51 75 69 74  |1:$(m%+12)="Quit|
00001720  22 0d 09 60 05 e1 0d 09  6a 04 0d 09 74 0b dd f2  |"..`....j...t...|
00001730  65 72 72 6f 72 0d 09 7e  09 ee 20 85 20 87 0d 09  |error..~.. . ...|
00001740  88 12 24 62 6c 6f 63 6b  25 3d 22 54 41 53 4b 22  |..$block%="TASK"|
00001750  0d 09 92 24 c8 99 22 57  69 6d 70 5f 43 6c 6f 73  |...$.."Wimp_Clos|
00001760  65 44 6f 77 6e 22 2c 74  61 73 6b 25 2c 21 62 6c  |eDown",task%,!bl|
00001770  6f 63 6b 25 0d 09 9c 16  f1 20 f6 24 3b 22 20 61  |ock%..... .$;" a|
00001780  74 20 6c 69 6e 65 20 22  3b 9e 0d 09 a6 05 e1 0d  |t line ";.......|
00001790  09 b0 04 0d 09 ba 0f dd  f2 77 69 6d 70 65 72 72  |.........wimperr|
000017a0  6f 72 0d 09 c4 0d 21 62  6c 6f 63 6b 25 3d 9f 0d  |or....!block%=..|
000017b0  09 ce 24 24 28 62 6c 6f  63 6b 25 2b 34 29 3d f6  |..$$(block%+4)=.|
000017c0  24 2b 22 20 61 74 20 6c  69 6e 65 20 22 2b c3 9e  |$+" at line "+..|
000017d0  2b bd 30 0d 09 d8 38 c8  99 20 22 57 69 6d 70 5f  |+.0...8.. "Wimp_|
000017e0  52 65 70 6f 72 74 45 72  72 6f 72 22 2c 62 6c 6f  |ReportError",blo|
000017f0  63 6b 25 2c 33 2c 22 42  72 6f 6c 6c 79 22 20 b8  |ck%,3,"Brolly" .|
00001800  20 2c 72 65 73 70 6f 6e  73 65 25 0d 09 e2 19 e7  | ,response%.....|
00001810  20 72 65 73 70 6f 6e 73  65 25 3d 32 20 3a f2 63  | response%=2 :.c|
00001820  6c 6f 73 65 0d 09 ec 05  e1 0d 09 f6 04 0d 0a 00  |lose............|
00001830  0b dd f2 63 6c 6f 73 65  0d 0a 0a 31 c8 99 22 53  |...close...1.."S|
00001840  6f 75 6e 64 5f 41 74 74  61 63 68 4e 61 6d 65 64  |ound_AttachNamed|
00001850  56 6f 69 63 65 22 2c 31  2c 22 57 61 76 65 53 79  |Voice",1,"WaveSy|
00001860  6e 74 68 2d 42 65 65 70  22 0d 0a 14 12 24 62 6c  |nth-Beep"....$bl|
00001870  6f 63 6b 25 3d 22 54 41  53 4b 22 0d 0a 1e 25 c8  |ock%="TASK"...%.|
00001880  99 20 22 57 69 6d 70 5f  43 6c 6f 73 65 44 6f 77  |. "Wimp_CloseDow|
00001890  6e 22 2c 74 61 73 6b 25  2c 21 62 6c 6f 63 6b 25  |n",task%,!block%|
000018a0  0d 0a 28 05 e0 0d 0a 32  05 e1 0d 0a 3c 04 0d 0a  |..(....2....<...|
000018b0  46 13 dd 20 f2 52 65 63  69 76 65 4d 65 73 61 67  |F.. .ReciveMesag|
000018c0  65 0d 0a 50 12 c8 8e 20  62 6c 6f 63 6b 25 21 31  |e..P... block%!1|
000018d0  36 20 ca 0d 0a 5a 10 c9  20 30 20 3a 71 75 69 74  |6 ...Z.. 0 :quit|
000018e0  25 3d b9 0d 0a 64 05 cb  0d 0a 6e 05 e1 0d 0a 78  |%=...d....n....x|
000018f0  04 0d ff                                          |...|
000018f3

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .