� > !RunImage
� Windy envoironment
� By Stephen Spencer
(
2[� ON ERROR r%=0:PROCfatalerr("Windy Weather has suffered a fatal error and must quit.")
<	�init
F
P�
Z  �poll:�move
d� �
n
x
��poll
�ș"Wimp_Poll",,q1% � r%
�Ȏ r% �
�  � 17,18:�receive(r%)
�  � 6:�click
�  � 9:�select
��
��
�
�� �move
�� Speed=0 �
�� Rain �rain
�� Thunder �thunder
�ȗ MX,MY,MZ

!� Speed=1 � �(4)=1 MX=MX-�(2)

� Speed=2 MX=MX-2-�(4)

� Speed=3 MX=MX-6-�(15)

"� �(2)=1 �

,#� �(Speed*2)>1 MY=MY+�(Speed*3)

6�

@#� �(Speed*2)>1 MY=MY-�(Speed*3)

J�

Tȗ � MX,MY

^�

h 

r��redraw

|!p%=-2:p%!4=ibh%

�ș &400CE,,p%

�=ș"Wimp_ForceRedraw",-2,(p%!8),(p%!12),(p%!16),(p%!20)+32

��

�

�
��init

�/� q1%256,p%256,mf%4096,mw%1024:me%=mf%+4096

�2title$="Windy Weather":ver$="1.00 (24-Feb-92)"

�!ș"Wimp_BaseOfSprites"�,area%

�,ș"Wimp_Initialise",200,&4B534154,title$

�5ș"OS_SpriteOp",256+26,area%,"iconbar","windybar"

��inicon("windybar")

�<icme%=�crmenu("Windy","Hurricane,Gale,Breeze,Calm,Quit")

�*SET Windy$Loaded YES
r%=0
Speed=1
**RMENSURE RAIN 1 *RUN <Windy$Dir>.RAIN
&0*RMENSURE THUNDER 1 *RUN <Windy$Dir>.THUNDER
0
Rain=0
:
Thunder=0
D�
N
X��receive(r%)
bȎ q1%!16 �
l  � 0:�shutdown:�
v�
��
�
���shutdown
�+ș"OS_SpriteOp",256+25,area%,"windybar"
�*Set Windy$Loaded NO
�ș"Wimp_CloseDown":�
��
�
���inicon(i$)
�+p%!0=-1:p%!4=0:p%!8=0:p%!12=68:p%!16=68
�p%!20=&3002:$(p%+24)=i$
�#ș "Wimp_CreateIcon",,p% � ibh%
��
 
��click
Ȏ q1%!8 �
   � 2:�middleclick
*�
4�
>
H��middleclick
Rwh%=q1%!12:ih%=q1%!16
\*� wh%=-2 �dmenu(icme%,!q1%-64,96+2*44)
f�
p
z��reperr(r$,re%)
�!p%=�:$(p%+4)=r$
�3ș "Wimp_ReportError",p%,re%,"Windy Weather",r%
��
�
���fatalerr(er$)
��reperr(er$,2)
�
�shutdown
��
�
���okerr(er$)
��reperr(er$,1)
��
� 
��select
 ș "Wimp_GetPointerInfo",,p%
:ș "Wimp_DecodeMenu",,menudata%,q1%,�200," ") � ,,,se$
$� se$="" �
.Ȏ se$ �
8  � "Quit":�shutdown
B3  � "Hurricane":Speed=3:Rain=2:Thunder=�(2)-1:�
L.  � "Gale":Speed=2:Thunder=0:Rain=�(2)-1:�
V+  � "Breeze":Speed=1:Rain=0:Thunder=0:�
`  � "Calm":Speed=0:�
j�
t1� (q1%!8 � 1) �dmenu(menudata%,menux%,menuy%)
~�
�
�ݤkpressed
�(window%=!q1%:icon%=q1%!4:key%=q1%!24
��
�
���dmenu(h%,x%,y%)
�$menudata%=h%:menux%=x%:menuy%=y%
�"ș "Wimp_CreateMenu",,h%,x%,y%
��
� 
�ݤcrmenu(t$,m$)
�H� (mf%+28>me%) �fatalerr("Fatal error - No room to create menu."+�0)
mp%=mf%:I%=0

$mp%=t$
mp%!12=7:mp%!13=2:mp%!14=7
mp%!15=1:mp%!20=44
(mp%!24=0:mp%+=28
2maxx%=�(t$)-3
<�
F  i$=�p(",")
P  �menuitem(i$)
Z
  � i$=""
d
M%=mf%
nM%!16=(maxx%*8+6)*2
xmf%=mp%
�=M%
� 
���menuitem(text$)
�&� text$="" mp%!-24=(mp%!-24)�&80:�
�`� mp%+24>me% �fatalerr("Fatal error - No room to create menu (Why not get a 2Meg upgrade?)")
�
F%=&00
�)� �text$,1)="#" text$=�text$):F%+=&02
�)� �text$,1)="@" text$=�text$):F%+=&08
�mp%!0=F%
�mp%!4=-1
�mp%!8=&07000021
�� �text$,1)="$" �
�I%=�text$,"(")
� I%>0 �
'l%=��text$,I%+1):text$=�text$,I%-1)
� L%=12
"�
,
!mp%+=&04
6mp%!8+=&100
@mp%!12=��text$,2)
J
mp%!16=-1
T
mp%!20=L%
^� L%>16 L%=16
htext$=�L%," ")
r�
|�text$<=12 �
�$(mp%+12)=text$
��
�I%=�workspace(�text$+1)
�
$I%=text$
�mp%!8=mp%!8 � &100
�
mp%!12=I%
�
mp%!16=-1
�mp%!20=�text$+1
��
��
�� �text$>maxx% maxx%=�text$
�mp%+=24
��


ݤp(sep$)
L%=I%+1
&I%=�m$+sep$,sep$,L%)
0=�m$,L%,I%-L%)
:
Dݤworkspace(L%)
Nmw%+=L%
X=mw%
b
l��amenu(m%,o%,p%)
v!(m%+28+o%*24+4)=p%
��
� 
�� �rain
�� �(400)<>1 �
�*CHANNELVOICE 1 RAIN
�� 1,-15,0,50+�(50)
��
� 
�� �thunder
�� �(400)<>1 �
�*CHANNELVOICE 1 THUNDER
�� 1,-15,0,20
��
�

00000000  0d 00 0a 11 f4 20 3e 20  21 52 75 6e 49 6d 61 67  |..... > !RunImag|
00000010  65 0d 00 14 18 f4 20 57  69 6e 64 79 20 65 6e 76  |e..... Windy env|
00000020  6f 69 72 6f 6e 6d 65 6e  74 0d 00 1e 18 f4 20 42  |oironment..... B|
00000030  79 20 53 74 65 70 68 65  6e 20 53 70 65 6e 63 65  |y Stephen Spence|
00000040  72 0d 00 28 04 0d 00 32  5b f4 20 4f 4e 20 45 52  |r..(...2[. ON ER|
00000050  52 4f 52 20 72 25 3d 30  3a 50 52 4f 43 66 61 74  |ROR r%=0:PROCfat|
00000060  61 6c 65 72 72 28 22 57  69 6e 64 79 20 57 65 61  |alerr("Windy Wea|
00000070  74 68 65 72 20 68 61 73  20 73 75 66 66 65 72 65  |ther has suffere|
00000080  64 20 61 20 66 61 74 61  6c 20 65 72 72 6f 72 20  |d a fatal error |
00000090  61 6e 64 20 6d 75 73 74  20 71 75 69 74 2e 22 29  |and must quit.")|
000000a0  0d 00 3c 09 f2 69 6e 69  74 0d 00 46 04 0d 00 50  |..<..init..F...P|
000000b0  05 f5 0d 00 5a 11 20 20  f2 70 6f 6c 6c 3a f2 6d  |....Z.  .poll:.m|
000000c0  6f 76 65 0d 00 64 07 fd  20 a3 0d 00 6e 04 0d 00  |ove..d.. ...n...|
000000d0  78 0a dd f2 70 6f 6c 6c  0d 00 82 1b c8 99 22 57  |x...poll......"W|
000000e0  69 6d 70 5f 50 6f 6c 6c  22 2c 2c 71 31 25 20 b8  |imp_Poll",,q1% .|
000000f0  20 72 25 0d 00 8c 0b c8  8e 20 72 25 20 ca 0d 00  | r%...... r% ...|
00000100  96 1a 20 20 c9 20 31 37  2c 31 38 3a f2 72 65 63  |..  . 17,18:.rec|
00000110  65 69 76 65 28 72 25 29  0d 00 a0 10 20 20 c9 20  |eive(r%)....  . |
00000120  36 3a f2 63 6c 69 63 6b  0d 00 aa 11 20 20 c9 20  |6:.click....  . |
00000130  39 3a f2 73 65 6c 65 63  74 0d 00 b4 05 cb 0d 00  |9:.select.......|
00000140  be 05 e1 0d 00 c8 04 0d  00 d2 0b dd 20 f2 6d 6f  |............ .mo|
00000150  76 65 0d 00 dc 0f e7 20  53 70 65 65 64 3d 30 20  |ve..... Speed=0 |
00000160  e1 0d 00 e6 10 e7 20 52  61 69 6e 20 f2 72 61 69  |...... Rain .rai|
00000170  6e 0d 00 f0 16 e7 20 54  68 75 6e 64 65 72 20 f2  |n..... Thunder .|
00000180  74 68 75 6e 64 65 72 0d  00 fa 0f c8 97 20 4d 58  |thunder...... MX|
00000190  2c 4d 59 2c 4d 5a 0d 01  04 21 e7 20 53 70 65 65  |,MY,MZ...!. Spee|
000001a0  64 3d 31 20 80 20 b3 28  34 29 3d 31 20 4d 58 3d  |d=1 . .(4)=1 MX=|
000001b0  4d 58 2d b3 28 32 29 0d  01 0e 1a e7 20 53 70 65  |MX-.(2)..... Spe|
000001c0  65 64 3d 32 20 4d 58 3d  4d 58 2d 32 2d b3 28 34  |ed=2 MX=MX-2-.(4|
000001d0  29 0d 01 18 1b e7 20 53  70 65 65 64 3d 33 20 4d  |)..... Speed=3 M|
000001e0  58 3d 4d 58 2d 36 2d b3  28 31 35 29 0d 01 22 0e  |X=MX-6-.(15)..".|
000001f0  e7 20 b3 28 32 29 3d 31  20 8c 0d 01 2c 23 e7 20  |. .(2)=1 ...,#. |
00000200  b3 28 53 70 65 65 64 2a  32 29 3e 31 20 4d 59 3d  |.(Speed*2)>1 MY=|
00000210  4d 59 2b b3 28 53 70 65  65 64 2a 33 29 0d 01 36  |MY+.(Speed*3)..6|
00000220  05 cc 0d 01 40 23 e7 20  b3 28 53 70 65 65 64 2a  |....@#. .(Speed*|
00000230  32 29 3e 31 20 4d 59 3d  4d 59 2d b3 28 53 70 65  |2)>1 MY=MY-.(Spe|
00000240  65 64 2a 33 29 0d 01 4a  05 cd 0d 01 54 0e c8 97  |ed*3)..J....T...|
00000250  20 b8 20 4d 58 2c 4d 59  0d 01 5e 05 e1 0d 01 68  | . MX,MY..^....h|
00000260  05 20 0d 01 72 0c dd f2  72 65 64 72 61 77 0d 01  |. ..r...redraw..|
00000270  7c 14 21 70 25 3d 2d 32  3a 70 25 21 34 3d 69 62  ||.!p%=-2:p%!4=ib|
00000280  68 25 0d 01 86 11 c8 99  20 26 34 30 30 43 45 2c  |h%...... &400CE,|
00000290  2c 70 25 0d 01 90 3d c8  99 22 57 69 6d 70 5f 46  |,p%...=.."Wimp_F|
000002a0  6f 72 63 65 52 65 64 72  61 77 22 2c 2d 32 2c 28  |orceRedraw",-2,(|
000002b0  70 25 21 38 29 2c 28 70  25 21 31 32 29 2c 28 70  |p%!8),(p%!12),(p|
000002c0  25 21 31 36 29 2c 28 70  25 21 32 30 29 2b 33 32  |%!16),(p%!20)+32|
000002d0  0d 01 9a 05 e1 0d 01 a4  04 0d 01 ae 0a dd f2 69  |...............i|
000002e0  6e 69 74 0d 01 b8 2f de  20 71 31 25 32 35 36 2c  |nit.../. q1%256,|
000002f0  70 25 32 35 36 2c 6d 66  25 34 30 39 36 2c 6d 77  |p%256,mf%4096,mw|
00000300  25 31 30 32 34 3a 6d 65  25 3d 6d 66 25 2b 34 30  |%1024:me%=mf%+40|
00000310  39 36 0d 01 c2 32 74 69  74 6c 65 24 3d 22 57 69  |96...2title$="Wi|
00000320  6e 64 79 20 57 65 61 74  68 65 72 22 3a 76 65 72  |ndy Weather":ver|
00000330  24 3d 22 31 2e 30 30 20  28 32 34 2d 46 65 62 2d  |$="1.00 (24-Feb-|
00000340  39 32 29 22 0d 01 cc 21  c8 99 22 57 69 6d 70 5f  |92)"...!.."Wimp_|
00000350  42 61 73 65 4f 66 53 70  72 69 74 65 73 22 b8 2c  |BaseOfSprites".,|
00000360  61 72 65 61 25 0d 01 d6  2c c8 99 22 57 69 6d 70  |area%...,.."Wimp|
00000370  5f 49 6e 69 74 69 61 6c  69 73 65 22 2c 32 30 30  |_Initialise",200|
00000380  2c 26 34 42 35 33 34 31  35 34 2c 74 69 74 6c 65  |,&4B534154,title|
00000390  24 0d 01 e0 35 c8 99 22  4f 53 5f 53 70 72 69 74  |$...5.."OS_Sprit|
000003a0  65 4f 70 22 2c 32 35 36  2b 32 36 2c 61 72 65 61  |eOp",256+26,area|
000003b0  25 2c 22 69 63 6f 6e 62  61 72 22 2c 22 77 69 6e  |%,"iconbar","win|
000003c0  64 79 62 61 72 22 0d 01  ea 17 f2 69 6e 69 63 6f  |dybar".....inico|
000003d0  6e 28 22 77 69 6e 64 79  62 61 72 22 29 0d 01 f4  |n("windybar")...|
000003e0  3c 69 63 6d 65 25 3d a4  63 72 6d 65 6e 75 28 22  |<icme%=.crmenu("|
000003f0  57 69 6e 64 79 22 2c 22  48 75 72 72 69 63 61 6e  |Windy","Hurrican|
00000400  65 2c 47 61 6c 65 2c 42  72 65 65 7a 65 2c 43 61  |e,Gale,Breeze,Ca|
00000410  6c 6d 2c 51 75 69 74 22  29 0d 01 fe 19 2a 53 45  |lm,Quit")....*SE|
00000420  54 20 57 69 6e 64 79 24  4c 6f 61 64 65 64 20 59  |T Windy$Loaded Y|
00000430  45 53 0d 02 08 08 72 25  3d 30 0d 02 12 0b 53 70  |ES....r%=0....Sp|
00000440  65 65 64 3d 31 0d 02 1c  2a 2a 52 4d 45 4e 53 55  |eed=1...**RMENSU|
00000450  52 45 20 52 41 49 4e 20  31 20 2a 52 55 4e 20 3c  |RE RAIN 1 *RUN <|
00000460  57 69 6e 64 79 24 44 69  72 3e 2e 52 41 49 4e 0d  |Windy$Dir>.RAIN.|
00000470  02 26 30 2a 52 4d 45 4e  53 55 52 45 20 54 48 55  |.&0*RMENSURE THU|
00000480  4e 44 45 52 20 31 20 2a  52 55 4e 20 3c 57 69 6e  |NDER 1 *RUN <Win|
00000490  64 79 24 44 69 72 3e 2e  54 48 55 4e 44 45 52 0d  |dy$Dir>.THUNDER.|
000004a0  02 30 0a 52 61 69 6e 3d  30 0d 02 3a 0d 54 68 75  |.0.Rain=0..:.Thu|
000004b0  6e 64 65 72 3d 30 0d 02  44 05 e1 0d 02 4e 04 0d  |nder=0..D....N..|
000004c0  02 58 11 dd f2 72 65 63  65 69 76 65 28 72 25 29  |.X...receive(r%)|
000004d0  0d 02 62 0f c8 8e 20 71  31 25 21 31 36 20 ca 0d  |..b... q1%!16 ..|
000004e0  02 6c 15 20 20 c9 20 30  3a f2 73 68 75 74 64 6f  |.l.  . 0:.shutdo|
000004f0  77 6e 3a e0 0d 02 76 05  cb 0d 02 80 05 e1 0d 02  |wn:...v.........|
00000500  8a 04 0d 02 94 0e dd f2  73 68 75 74 64 6f 77 6e  |........shutdown|
00000510  0d 02 9e 2b c8 99 22 4f  53 5f 53 70 72 69 74 65  |...+.."OS_Sprite|
00000520  4f 70 22 2c 32 35 36 2b  32 35 2c 61 72 65 61 25  |Op",256+25,area%|
00000530  2c 22 77 69 6e 64 79 62  61 72 22 0d 02 a8 18 2a  |,"windybar"....*|
00000540  53 65 74 20 57 69 6e 64  79 24 4c 6f 61 64 65 64  |Set Windy$Loaded|
00000550  20 4e 4f 0d 02 b2 18 c8  99 22 57 69 6d 70 5f 43  | NO......"Wimp_C|
00000560  6c 6f 73 65 44 6f 77 6e  22 3a e0 0d 02 bc 05 e1  |loseDown":......|
00000570  0d 02 c6 04 0d 02 d0 10  dd f2 69 6e 69 63 6f 6e  |..........inicon|
00000580  28 69 24 29 0d 02 da 2b  70 25 21 30 3d 2d 31 3a  |(i$)...+p%!0=-1:|
00000590  70 25 21 34 3d 30 3a 70  25 21 38 3d 30 3a 70 25  |p%!4=0:p%!8=0:p%|
000005a0  21 31 32 3d 36 38 3a 70  25 21 31 36 3d 36 38 0d  |!12=68:p%!16=68.|
000005b0  02 e4 1b 70 25 21 32 30  3d 26 33 30 30 32 3a 24  |...p%!20=&3002:$|
000005c0  28 70 25 2b 32 34 29 3d  69 24 0d 02 ee 23 c8 99  |(p%+24)=i$...#..|
000005d0  20 22 57 69 6d 70 5f 43  72 65 61 74 65 49 63 6f  | "Wimp_CreateIco|
000005e0  6e 22 2c 2c 70 25 20 b8  20 69 62 68 25 0d 02 f8  |n",,p% . ibh%...|
000005f0  05 e1 0d 03 02 05 20 0d  03 0c 0b dd f2 63 6c 69  |...... ......cli|
00000600  63 6b 0d 03 16 0e c8 8e  20 71 31 25 21 38 20 ca  |ck...... q1%!8 .|
00000610  0d 03 20 16 20 20 c9 20  32 3a f2 6d 69 64 64 6c  |.. .  . 2:.middl|
00000620  65 63 6c 69 63 6b 0d 03  2a 05 cb 0d 03 34 05 e1  |eclick..*....4..|
00000630  0d 03 3e 04 0d 03 48 11  dd f2 6d 69 64 64 6c 65  |..>...H...middle|
00000640  63 6c 69 63 6b 0d 03 52  19 77 68 25 3d 71 31 25  |click..R.wh%=q1%|
00000650  21 31 32 3a 69 68 25 3d  71 31 25 21 31 36 0d 03  |!12:ih%=q1%!16..|
00000660  5c 2a e7 20 77 68 25 3d  2d 32 20 f2 64 6d 65 6e  |\*. wh%=-2 .dmen|
00000670  75 28 69 63 6d 65 25 2c  21 71 31 25 2d 36 34 2c  |u(icme%,!q1%-64,|
00000680  39 36 2b 32 2a 34 34 29  0d 03 66 05 e1 0d 03 70  |96+2*44)..f....p|
00000690  04 0d 03 7a 14 dd f2 72  65 70 65 72 72 28 72 24  |...z...reperr(r$|
000006a0  2c 72 65 25 29 0d 03 84  14 21 70 25 3d 9f 3a 24  |,re%)....!p%=.:$|
000006b0  28 70 25 2b 34 29 3d 72  24 0d 03 8e 33 c8 99 20  |(p%+4)=r$...3.. |
000006c0  22 57 69 6d 70 5f 52 65  70 6f 72 74 45 72 72 6f  |"Wimp_ReportErro|
000006d0  72 22 2c 70 25 2c 72 65  25 2c 22 57 69 6e 64 79  |r",p%,re%,"Windy|
000006e0  20 57 65 61 74 68 65 72  22 2c 72 25 0d 03 98 05  | Weather",r%....|
000006f0  e1 0d 03 a2 04 0d 03 ac  13 dd f2 66 61 74 61 6c  |...........fatal|
00000700  65 72 72 28 65 72 24 29  0d 03 b6 12 f2 72 65 70  |err(er$).....rep|
00000710  65 72 72 28 65 72 24 2c  32 29 0d 03 c0 0d f2 73  |err(er$,2).....s|
00000720  68 75 74 64 6f 77 6e 0d  03 ca 05 e1 0d 03 d4 04  |hutdown.........|
00000730  0d 03 de 10 dd f2 6f 6b  65 72 72 28 65 72 24 29  |......okerr(er$)|
00000740  0d 03 e8 12 f2 72 65 70  65 72 72 28 65 72 24 2c  |.....reperr(er$,|
00000750  31 29 0d 03 f2 05 e1 0d  03 fc 05 20 0d 04 06 0c  |1)......... ....|
00000760  dd f2 73 65 6c 65 63 74  0d 04 10 20 c8 99 20 22  |..select... .. "|
00000770  57 69 6d 70 5f 47 65 74  50 6f 69 6e 74 65 72 49  |Wimp_GetPointerI|
00000780  6e 66 6f 22 2c 2c 70 25  0d 04 1a 3a c8 99 20 22  |nfo",,p%...:.. "|
00000790  57 69 6d 70 5f 44 65 63  6f 64 65 4d 65 6e 75 22  |Wimp_DecodeMenu"|
000007a0  2c 2c 6d 65 6e 75 64 61  74 61 25 2c 71 31 25 2c  |,,menudata%,q1%,|
000007b0  c4 32 30 30 2c 22 20 22  29 20 b8 20 2c 2c 2c 73  |.200," ") . ,,,s|
000007c0  65 24 0d 04 24 0e e7 20  73 65 24 3d 22 22 20 e1  |e$..$.. se$="" .|
000007d0  0d 04 2e 0c c8 8e 20 73  65 24 20 ca 0d 04 38 18  |...... se$ ...8.|
000007e0  20 20 c9 20 22 51 75 69  74 22 3a f2 73 68 75 74  |  . "Quit":.shut|
000007f0  64 6f 77 6e 0d 04 42 33  20 20 c9 20 22 48 75 72  |down..B3  . "Hur|
00000800  72 69 63 61 6e 65 22 3a  53 70 65 65 64 3d 33 3a  |ricane":Speed=3:|
00000810  52 61 69 6e 3d 32 3a 54  68 75 6e 64 65 72 3d b3  |Rain=2:Thunder=.|
00000820  28 32 29 2d 31 3a e1 0d  04 4c 2e 20 20 c9 20 22  |(2)-1:...L.  . "|
00000830  47 61 6c 65 22 3a 53 70  65 65 64 3d 32 3a 54 68  |Gale":Speed=2:Th|
00000840  75 6e 64 65 72 3d 30 3a  52 61 69 6e 3d b3 28 32  |under=0:Rain=.(2|
00000850  29 2d 31 3a e1 0d 04 56  2b 20 20 c9 20 22 42 72  |)-1:...V+  . "Br|
00000860  65 65 7a 65 22 3a 53 70  65 65 64 3d 31 3a 52 61  |eeze":Speed=1:Ra|
00000870  69 6e 3d 30 3a 54 68 75  6e 64 65 72 3d 30 3a e1  |in=0:Thunder=0:.|
00000880  0d 04 60 18 20 20 c9 20  22 43 61 6c 6d 22 3a 53  |..`.  . "Calm":S|
00000890  70 65 65 64 3d 30 3a e1  0d 04 6a 05 cb 0d 04 74  |peed=0:...j....t|
000008a0  31 e7 20 28 71 31 25 21  38 20 80 20 31 29 20 f2  |1. (q1%!8 . 1) .|
000008b0  64 6d 65 6e 75 28 6d 65  6e 75 64 61 74 61 25 2c  |dmenu(menudata%,|
000008c0  6d 65 6e 75 78 25 2c 6d  65 6e 75 79 25 29 0d 04  |menux%,menuy%)..|
000008d0  7e 05 e1 0d 04 88 04 0d  04 92 0e dd a4 6b 70 72  |~............kpr|
000008e0  65 73 73 65 64 0d 04 9c  28 77 69 6e 64 6f 77 25  |essed...(window%|
000008f0  3d 21 71 31 25 3a 69 63  6f 6e 25 3d 71 31 25 21  |=!q1%:icon%=q1%!|
00000900  34 3a 6b 65 79 25 3d 71  31 25 21 32 34 0d 04 a6  |4:key%=q1%!24...|
00000910  05 e1 0d 04 b0 04 0d 04  ba 15 dd f2 64 6d 65 6e  |............dmen|
00000920  75 28 68 25 2c 78 25 2c  79 25 29 0d 04 c4 24 6d  |u(h%,x%,y%)...$m|
00000930  65 6e 75 64 61 74 61 25  3d 68 25 3a 6d 65 6e 75  |enudata%=h%:menu|
00000940  78 25 3d 78 25 3a 6d 65  6e 75 79 25 3d 79 25 0d  |x%=x%:menuy%=y%.|
00000950  04 ce 22 c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |..".. "Wimp_Crea|
00000960  74 65 4d 65 6e 75 22 2c  2c 68 25 2c 78 25 2c 79  |teMenu",,h%,x%,y|
00000970  25 0d 04 d8 05 e1 0d 04  e2 05 20 0d 04 ec 13 dd  |%......... .....|
00000980  a4 63 72 6d 65 6e 75 28  74 24 2c 6d 24 29 0d 04  |.crmenu(t$,m$)..|
00000990  f6 48 e7 20 28 6d 66 25  2b 32 38 3e 6d 65 25 29  |.H. (mf%+28>me%)|
000009a0  20 f2 66 61 74 61 6c 65  72 72 28 22 46 61 74 61  | .fatalerr("Fata|
000009b0  6c 20 65 72 72 6f 72 20  2d 20 4e 6f 20 72 6f 6f  |l error - No roo|
000009c0  6d 20 74 6f 20 63 72 65  61 74 65 20 6d 65 6e 75  |m to create menu|
000009d0  2e 22 2b bd 30 29 0d 05  00 10 6d 70 25 3d 6d 66  |."+.0)....mp%=mf|
000009e0  25 3a 49 25 3d 30 0d 05  0a 0b 24 6d 70 25 3d 74  |%:I%=0....$mp%=t|
000009f0  24 0d 05 14 1e 6d 70 25  21 31 32 3d 37 3a 6d 70  |$....mp%!12=7:mp|
00000a00  25 21 31 33 3d 32 3a 6d  70 25 21 31 34 3d 37 0d  |%!13=2:mp%!14=7.|
00000a10  05 1e 16 6d 70 25 21 31  35 3d 31 3a 6d 70 25 21  |...mp%!15=1:mp%!|
00000a20  32 30 3d 34 34 0d 05 28  14 6d 70 25 21 32 34 3d  |20=44..(.mp%!24=|
00000a30  30 3a 6d 70 25 2b 3d 32  38 0d 05 32 11 6d 61 78  |0:mp%+=28..2.max|
00000a40  78 25 3d a9 28 74 24 29  2d 33 0d 05 3c 05 f5 0d  |x%=.(t$)-3..<...|
00000a50  05 46 10 20 20 69 24 3d  a4 70 28 22 2c 22 29 0d  |.F.  i$=.p(",").|
00000a60  05 50 13 20 20 f2 6d 65  6e 75 69 74 65 6d 28 69  |.P.  .menuitem(i|
00000a70  24 29 0d 05 5a 0d 20 20  fd 20 69 24 3d 22 22 0d  |$)..Z.  . i$="".|
00000a80  05 64 0a 4d 25 3d 6d 66  25 0d 05 6e 17 4d 25 21  |.d.M%=mf%..n.M%!|
00000a90  31 36 3d 28 6d 61 78 78  25 2a 38 2b 36 29 2a 32  |16=(maxx%*8+6)*2|
00000aa0  0d 05 78 0b 6d 66 25 3d  6d 70 25 0d 05 82 07 3d  |..x.mf%=mp%....=|
00000ab0  4d 25 0d 05 8c 05 20 0d  05 96 15 dd f2 6d 65 6e  |M%.... ......men|
00000ac0  75 69 74 65 6d 28 74 65  78 74 24 29 0d 05 a0 26  |uitem(text$)...&|
00000ad0  e7 20 74 65 78 74 24 3d  22 22 20 6d 70 25 21 2d  |. text$="" mp%!-|
00000ae0  32 34 3d 28 6d 70 25 21  2d 32 34 29 84 26 38 30  |24=(mp%!-24).&80|
00000af0  3a e1 0d 05 aa 60 e7 20  6d 70 25 2b 32 34 3e 6d  |:....`. mp%+24>m|
00000b00  65 25 20 f2 66 61 74 61  6c 65 72 72 28 22 46 61  |e% .fatalerr("Fa|
00000b10  74 61 6c 20 65 72 72 6f  72 20 2d 20 4e 6f 20 72  |tal error - No r|
00000b20  6f 6f 6d 20 74 6f 20 63  72 65 61 74 65 20 6d 65  |oom to create me|
00000b30  6e 75 20 28 57 68 79 20  6e 6f 74 20 67 65 74 20  |nu (Why not get |
00000b40  61 20 32 4d 65 67 20 75  70 67 72 61 64 65 3f 29  |a 2Meg upgrade?)|
00000b50  22 29 0d 05 b4 0a 46 25  3d 26 30 30 0d 05 be 29  |")....F%=&00...)|
00000b60  e7 20 c2 74 65 78 74 24  2c 31 29 3d 22 23 22 20  |. .text$,1)="#" |
00000b70  74 65 78 74 24 3d c0 74  65 78 74 24 29 3a 46 25  |text$=.text$):F%|
00000b80  2b 3d 26 30 32 0d 05 c8  29 e7 20 c2 74 65 78 74  |+=&02...). .text|
00000b90  24 2c 31 29 3d 22 40 22  20 74 65 78 74 24 3d c0  |$,1)="@" text$=.|
00000ba0  74 65 78 74 24 29 3a 46  25 2b 3d 26 30 38 0d 05  |text$):F%+=&08..|
00000bb0  d2 0c 6d 70 25 21 30 3d  46 25 0d 05 dc 0c 6d 70  |..mp%!0=F%....mp|
00000bc0  25 21 34 3d 2d 31 0d 05  e6 13 6d 70 25 21 38 3d  |%!4=-1....mp%!8=|
00000bd0  26 30 37 30 30 30 30 32  31 0d 05 f0 15 e7 20 c0  |&07000021..... .|
00000be0  74 65 78 74 24 2c 31 29  3d 22 24 22 20 8c 0d 05  |text$,1)="$" ...|
00000bf0  fa 12 49 25 3d a7 74 65  78 74 24 2c 22 28 22 29  |..I%=.text$,"(")|
00000c00  0d 06 04 0c e7 20 49 25  3e 30 20 8c 0d 06 0e 27  |..... I%>0 ....'|
00000c10  6c 25 3d bb c1 74 65 78  74 24 2c 49 25 2b 31 29  |l%=..text$,I%+1)|
00000c20  3a 74 65 78 74 24 3d c0  74 65 78 74 24 2c 49 25  |:text$=.text$,I%|
00000c30  2d 31 29 0d 06 18 0b cc  20 4c 25 3d 31 32 0d 06  |-1)..... L%=12..|
00000c40  22 05 cd 0d 06 2c 0d 21  6d 70 25 2b 3d 26 30 34  |"....,.!mp%+=&04|
00000c50  0d 06 36 0f 6d 70 25 21  38 2b 3d 26 31 30 30 0d  |..6.mp%!8+=&100.|
00000c60  06 40 15 6d 70 25 21 31  32 3d a0 c1 74 65 78 74  |.@.mp%!12=..text|
00000c70  24 2c 32 29 0d 06 4a 0d  6d 70 25 21 31 36 3d 2d  |$,2)..J.mp%!16=-|
00000c80  31 0d 06 54 0d 6d 70 25  21 32 30 3d 4c 25 0d 06  |1..T.mp%!20=L%..|
00000c90  5e 11 e7 20 4c 25 3e 31  36 20 4c 25 3d 31 36 0d  |^.. L%>16 L%=16.|
00000ca0  06 68 12 74 65 78 74 24  3d c4 4c 25 2c 22 20 22  |.h.text$=.L%," "|
00000cb0  29 0d 06 72 05 cc 0d 06  7c 11 e7 a9 74 65 78 74  |)..r....|...text|
00000cc0  24 3c 3d 31 32 20 8c 0d  06 86 13 24 28 6d 70 25  |$<=12 .....$(mp%|
00000cd0  2b 31 32 29 3d 74 65 78  74 24 0d 06 90 05 cc 0d  |+12)=text$......|
00000ce0  06 9a 1b 49 25 3d a4 77  6f 72 6b 73 70 61 63 65  |...I%=.workspace|
00000cf0  28 a9 74 65 78 74 24 2b  31 29 0d 06 a4 0d 24 49  |(.text$+1)....$I|
00000d00  25 3d 74 65 78 74 24 0d  06 ae 16 6d 70 25 21 38  |%=text$....mp%!8|
00000d10  3d 6d 70 25 21 38 20 84  20 26 31 30 30 0d 06 b8  |=mp%!8 . &100...|
00000d20  0d 6d 70 25 21 31 32 3d  49 25 0d 06 c2 0d 6d 70  |.mp%!12=I%....mp|
00000d30  25 21 31 36 3d 2d 31 0d  06 cc 13 6d 70 25 21 32  |%!16=-1....mp%!2|
00000d40  30 3d a9 74 65 78 74 24  2b 31 0d 06 d6 05 cd 0d  |0=.text$+1......|
00000d50  06 e0 05 cd 0d 06 ea 1f  e7 20 a9 74 65 78 74 24  |......... .text$|
00000d60  3e 6d 61 78 78 25 20 6d  61 78 78 25 3d a9 74 65  |>maxx% maxx%=.te|
00000d70  78 74 24 0d 06 f4 0b 6d  70 25 2b 3d 32 34 0d 06  |xt$....mp%+=24..|
00000d80  fe 05 e1 0d 07 08 04 0d  07 12 0d dd a4 70 28 73  |.............p(s|
00000d90  65 70 24 29 0d 07 1c 0b  4c 25 3d 49 25 2b 31 0d  |ep$)....L%=I%+1.|
00000da0  07 26 18 49 25 3d a7 6d  24 2b 73 65 70 24 2c 73  |.&.I%=.m$+sep$,s|
00000db0  65 70 24 2c 4c 25 29 0d  07 30 12 3d c1 6d 24 2c  |ep$,L%)..0.=.m$,|
00000dc0  4c 25 2c 49 25 2d 4c 25  29 0d 07 3a 04 0d 07 44  |L%,I%-L%)..:...D|
00000dd0  13 dd a4 77 6f 72 6b 73  70 61 63 65 28 4c 25 29  |...workspace(L%)|
00000de0  0d 07 4e 0b 6d 77 25 2b  3d 4c 25 0d 07 58 08 3d  |..N.mw%+=L%..X.=|
00000df0  6d 77 25 0d 07 62 04 0d  07 6c 15 dd f2 61 6d 65  |mw%..b...l...ame|
00000e00  6e 75 28 6d 25 2c 6f 25  2c 70 25 29 0d 07 76 17  |nu(m%,o%,p%)..v.|
00000e10  21 28 6d 25 2b 32 38 2b  6f 25 2a 32 34 2b 34 29  |!(m%+28+o%*24+4)|
00000e20  3d 70 25 0d 07 80 05 e1  0d 07 8a 05 20 0d 07 94  |=p%......... ...|
00000e30  0b dd 20 f2 72 61 69 6e  0d 07 9e 11 e7 20 b3 28  |.. .rain..... .(|
00000e40  34 30 30 29 3c 3e 31 20  e1 0d 07 a8 18 2a 43 48  |400)<>1 .....*CH|
00000e50  41 4e 4e 45 4c 56 4f 49  43 45 20 31 20 52 41 49  |ANNELVOICE 1 RAI|
00000e60  4e 0d 07 b2 16 d4 20 31  2c 2d 31 35 2c 30 2c 35  |N..... 1,-15,0,5|
00000e70  30 2b b3 28 35 30 29 0d  07 bc 05 e1 0d 07 c6 05  |0+.(50).........|
00000e80  20 0d 07 d0 0e dd 20 f2  74 68 75 6e 64 65 72 0d  | ..... .thunder.|
00000e90  07 da 11 e7 20 b3 28 34  30 30 29 3c 3e 31 20 e1  |.... .(400)<>1 .|
00000ea0  0d 07 e4 1b 2a 43 48 41  4e 4e 45 4c 56 4f 49 43  |....*CHANNELVOIC|
00000eb0  45 20 31 20 54 48 55 4e  44 45 52 0d 07 ee 10 d4  |E 1 THUNDER.....|
00000ec0  20 31 2c 2d 31 35 2c 30  2c 32 30 0d 07 f8 05 e1  | 1,-15,0,20.....|
00000ed0  0d ff                                             |..|
00000ed2