!Wanda/!RunImage

Home » Archimedes archive » Micro User » MU 1990-11.adf » !Wanda/!RunImage

!Wanda/!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 » Archimedes archive » Micro User » MU 1990-11.adf
Filename:	!Wanda/!RunImage
Read OK:	✔
File size:	1615 bytes
Load address:	FFFFFB43
Exec address:	6D3A741C

File contents

   10REM ><Wanda$Dir>.!RunImage - Wanda
   11REM Modified to use PollIdle by Steve Turnbull
   20PROCinit
   30REM set up the default error handler
   40ON ERROR PROCerror(ERR,REPORT$)
   50REM ----------------------------------------
   60REM  Main WIMP Polling loop ie the program!
   70REM ----------------------------------------
   80REPEAT
   90 SYS "Wimp_PollIdle",poll_mask%,event% TO action%
  100 PROCdespatch_poll
  110UNTIL FALSE
  120END
  130:
  140DEFPROCdespatch_poll
  150 CASE action% OF
  160  WHEN 0: PROCnull
  170  WHEN 1: PROCredraw
  180  WHEN 2: PROCopen
  190  WHEN 3: PROCclose(!event%)
  200  WHEN 17,18:PROCreceive(event%)
  210  ENDCASE
  220 ENDIF
  230ENDPROC
  240:
  250DEF PROCinit
  251dummy=RND(-TIME)
  260LOCAL ERROR
  270ST%=TIME
  280DIM q% &800, event% &800, error_blk% 256, s1% 32, b1% 32
  290bufsz%=256
  300poll_mask% = NOT(&6000F)
  320DIM taskid% 5: $taskid%="TASK"
  340SYS "Wimp_Initialise",200,!taskid%,"Wanda" TO ,task_handle%,myid%
  350ON ERROR LOCAL PROCerror(ERR, REPORT$):PROCterminate
  360LOCAL ERROR
  370N%=RND(-TIME):N%=RND(4)+3
  380nb%=3:ab%=0
  390SpriteSize%=1024
  400DIM S% N%,X%(N%),Y%(N%),DX%(N%),DY%(N%),PU% (N%+1)*6,bx%(nb%),by%(nb%),bd%(nb%),bs% nb%,A% SpriteSize%
  410PROCmode
  420B%=136
  430p%=q%+4
  440!p%=0:p%!4=B%:p%!8=R%:p%!12=T%
  450p%!16=0:p%!20=T%
  460p%!24=-2:p%!28=&8C0:p%!32=&4040407:p%!36=0
  470p%!40=0:p%!44=B%:p%!48=R%:p%!52=T%
  480FOR I%=56 TO 87:p%?I%=0:NEXT
  490SYS "Wimp_CreateWindow",,p% TO fish%
  500!q%=fish%
  510SYS "Wimp_OpenWindow",,q%
  520NU%=PU%+N%+1
  530PH%=NU%+N%+1
  540NH%=PH%+N%+1
  550PS%=NH%+N%+1
  560NS%=PS%+N%+1
  570FOR I%=0 TO N%:S%?N%=0
  580PU%?I%=(I%+N%)MOD(N%+1):NU%?I%=(I%+1)MOD(N%+1)
  590NEXT
  600?PH%=0:?NH%=0
  610?PS%=0:?NS%=0
  620FOR I%=1 TO nb%:bs%?I%=0:NEXT
  630!A%=SpriteSize%
  640A%!4=0
  650A%!8=16
  660A%!12=16
  670SO%=&2E
  680SYS SO%,&10A,A%,"<Obey$Dir>.Sprites"
  690SYS SO%,&11B,A%,"fish","fish2"
  700SYS SO%,&12F,A%,"fish2"
  710SYS SO%,&118,A%,"fish" TO ,,S1%
  720SYS SO%,&118,A%,"fish2" TO ,,S2%
  730SYS SO%,&118,A%,"bubble" TO ,,bu%
  740bw%=10*2:bh%=6*4
  750W%=36*2:H%=9*4
  760s1%!16=&40000102:s1%!24=A%:s1%!28=0
  770b1%!16=&40000102:b1%!20=bu%:b1%!24=A%:b1%!28=0
  780REM "Wimp_PlotIcon"=&400E2
  790ENDPROC
  800:
  810DEF PROCnull
  820!q%=fish%
  830I%=?NS%
  840WHILE I%
  850 X%=X%(I%):Y%=Y%(I%):DX%=DX%(I%):DY%=DY%(I%)
  860 IF RND(256)=1 DX%=FNX:DY%=FNY:DX%(I%)=DX%:DY%(I%)=DY%
  870 IF X%+DX%+W%>R% OR X%+DX%<0 DX%=-DX%:DY%=FNY:DX%(I%)=DX%:DY%(I%)=DY%
  880 IF Y%+DY%+H%>T% OR Y%+DY%<B% DY%=-DY%:DY%(I%)=DY%
  890 IF DX%>0 q%!4=X%:q%!12=X%+W%+DX%:s1%!20=S1% ELSE q%!4=X%+DX%:q%!12=X%+W%:s1%!20=S2%
  900 IF DY%>0 q%!8=Y%:q%!16=Y%+H%+DY% ELSE q%!8=Y%+DY%:q%!16=Y%+H%
  910 X%+=DX%:Y%+=DY%
  920 SYS "Wimp_UpdateWindow",,q% TO f%
  930 IF f% THEN
  940  WHILE f%
  950   !s1%=X%:s1%!4=Y%:s1%!8=X%+W%:s1%!12=Y%+H%:SYS "Wimp_PlotIcon",,s1%
  960   SYS "Wimp_GetRectangle",,q% TO f%
  970  ENDWHILE
  980 ELSE
  990  PROCL(I%,2,1)
 1000 ENDIF
 1010 X%(I%)=X%:Y%(I%)=Y%
 1020 I%=NS%?I%
 1030ENDWHILE
 1040FOR I%=1 TO nb%
 1050 IF bs%?I% THEN
 1060  q%!4=bx%(I%):q%!8=by%(I%):q%!12=bx%(I%)+bw%:q%!16=by%(I%)+bh%+bd%(I%)
 1070  SYS "Wimp_UpdateWindow",,q% TO f%
 1080  by%(I%)+=bd%(I%)
 1090  WHILE f%
 1100   !b1%=bx%(I%):b1%!4=by%(I%):b1%!8=bx%(I%)+bw%:b1%!12=by%(I%)+bh%:SYS "Wimp_PlotIcon",,b1%
 1110   SYS "Wimp_GetRectangle",,q% TO f%
 1120  ENDWHILE
 1130  IF by%(I%)>T% bs%?I%=0:ab%-=1
 1140 ENDIF
 1150NEXT
 1160IF ?NU% PROCM ELSE IF ab%<nb% IF RND(64)=1 PROCB
 1170ENDPROC
 1180:
 1190DEFPROCL(I%,J%,K%)
 1200LOCAL op%,on%,np%,nn%
 1210S%?I%=K%
 1220op%=PU%+J%*(N%+1)*2:on%=op%+N%+1
 1230np%=PU%+K%*(N%+1)*2:nn%=np%+N%+1
 1240J%=op%?I%:K%=on%?I%
 1250on%?J%=K%:op%?K%=J%
 1260K%=?nn%:?nn%=I%:np%?K%=I%
 1270np%?I%=0:nn%?I%=K%
 1280ENDPROC
 1290:
 1300DEF PROCM
 1310IF RND(10)<>1 OR (TIME EOR ST%)<(1<<0) ENDPROC
 1320X%=RND(R%-W%)-1
 1330Y%=RND(T%-B%-H%)+B%-1
 1340FOR I%=1 TO N%
 1350 IF ABS(X%(I%)-X%)<=W% AND ABS(Y%(I%)-Y%)<=H% THEN ENDPROC
 1360NEXT
 1370!q%=fish%:q%!4=X%:q%!8=Y%:q%!12=X%+W%:q%!16=Y%+H%
 1380SYS "Wimp_UpdateWindow",,q% TO f%
 1390IF f% THEN
 1400 WHILE f%
 1410  SYS "Wimp_GetRectangle",,q% TO f%
 1420 ENDWHILE
 1430ELSE
 1440 I%=?NU%:X%(I%)=X%:Y%(I%)=Y%:DX%(I%)=FNX:DY%(I%)=FNY
 1450 PROCL(I%,0,1)
 1460ENDIF
 1470ENDPROC
 1480:
 1490DEF PROCB
 1500I%=RND(N%)
 1510J%=0:REPEATJ%+=1:UNTILbs%?J%=0
 1520bx%(J%)=X%(I%):by%(J%)=Y%(I%)+H%:bd%(J%)=RND(3)+1:bs%?J%=1:ab%+=1
 1530IFDX%(I%)>0 bx%(J%)+=H%
 1540ENDPROC
 1550:
 1560DEF FNX=RND(2)*8-12
 1570DEF FNY=RND(5)-2
 1580:
 1590DEF PROCredraw
 1600LOCAL f%
 1610!q%=fish%
 1620SYS "Wimp_RedrawWindow",,q% TO f%
 1630WHILE f%
 1640 l%=q%!4:b%=q%!8:r%=q%!12:t%=q%!16
 1650 FOR I%=1 TO N%
 1660  IF X%(I%)<r% IF X%(I%)+W%>l% IF Y%(I%)<t% IF Y%(I%)+H%>b% PROCP
 1670 NEXT
 1680 FOR I%=1 TO nb%
 1690  IF bs%?I% IF bx%(I%)<r% IF by%(I%)+bw%>l% IF by%(I%)<t% IF by%(I%)+bh%>b% !b1%=bx%(I%):b1%!4=by%(I%):b1%!8=bx%(I%)+bw%:b1%!12=by%(I%)+bh%:SYS "Wimp_PlotIcon",,b1%
 1700 NEXT
 1710 SYS "Wimp_GetRectangle",,q% TO f%
 1720ENDWHILE
 1730ENDPROC
 1740:
 1750DEF PROCP
 1760IF S%?I%=0 ENDPROC
 1770IF DX%(I%)>0 s1%!20=S1% ELSE s1%!20=S2%
 1780!s1%=X%(I%):s1%!4=Y%(I%):s1%!8=X%(I%)+W%:s1%!12=Y%(I%)+H%:SYS "Wimp_PlotIcon",,s1%
 1790IF S%?I%=1 PROCL(I%,1,2)
 1800ENDPROC
 1810:
 1820DEF PROCmode
 1830!q%=4:q%!4=5:q%!8=11:q%!12=12:q%!16=-1
 1840SYS "OS_ReadVduVariables",q%,q%
 1850xs%=!q%:ys%=q%!4
 1860R%=(q%!8+1)<<xs%:T%=(q%!12+1)<<ys%
 1870FOR I%=1 TO N%
 1880 IF X%(I%)>=R%-W% X%(I%)=0
 1890 IF Y%(I%)>=T%-H% Y%(I%)=B%
 1900NEXT I%
 1910ENDPROC
 1920:
 1930DEF PROCopen
 1940PROCmode
 1950event%!4=0:event%!8=B%:event%!12=R%:event%!16=T%
 1960SYS "Wimp_SetExtent",!event%,event%+4
 1970SYS "Wimp_OpenWindow",,event%
 1980ENDPROC
 1990:
 2000DEF PROCreceive(message%)
 2010LOCAL my_ref%, type$, option$, I%, pflag%
 2020my_ref% = message%!8
 2030CASE message%!16 OF
 2040 WHEN 0
 2050   PROCterminate
 2060 WHEN &400C2:newtaskid%=message%!4:taskname$=FNstring0(message%+28)
 2070 IF taskname$="Wanda" AND newtaskid%<>task_handle% THEN PROCterminate
 2090ENDCASE
 2100ENDPROC
 2110:
 2120DEF PROCterminate
 2130SYS"Wimp_CloseDown"
 2140END
 2150:
 2160DEF FNrtoz(s%)
 2170LOCAL n$
 2180WHILE?s%:n$+=CHR$?s%:s%+=1:ENDWHILE
 2190=n$
 2200:
 2210DEF PROCclose
 2220!q%=fish%:SYS "Wimp_CloseWindow",,q%
 2230ENDPROC
 2240:
 2250DEF PROCmoan(report$)
 2260ERROR &20000,report$
 2270:
 2280DEF PROCerror(err%, report$)
 2290ON ERROR OFF
 2300IF err%<&10100 OR err%>&20000 THEN report$=report$+" internal error "+STR$(ERL)
 2310!error_blk% = err%
 2320$(error_blk%+4)=report$
 2330PROCzero_terminate(error_blk%+4)
 2340SYS "Wimp_ReportError", error_blk%, 1, "Wander"
 2350ENDPROC
 2360:
 2370DEFPROCzero_terminate(S%)
 2380S%?LEN$S% = 0
 2390ENDPROC
 2400
 2410DEF FNstring0(a%) LOCALa$:a$="":WHILE ?a%:a$+=CHR$?a%:a%+=1:ENDWHILE:=a$


$� ><Wanda$Dir>.!RunImage - Wanda
0� Modified to use PollIdle by Steve Turnbull
	�init
&� set up the default error handler
(� � �error(�,�$)
2.� ----------------------------------------
<-�  Main WIMP Polling loop ie the program!
F.� ----------------------------------------
P�
Z3 ș "Wimp_PollIdle",poll_mask%,event% � action%
d �despatch_poll
n� �
x�
�:
���despatch_poll
� Ȏ action% �
�  � 0: �null
�  � 1: �redraw
�  � 2: �open
�  � 3: �close(!event%)
�  � 17,18:�receive(event%)
�  �
� �
��
�:
�� �init
�dummy=�(-�)
� �
	ST%=�
:� q% &800, event% &800, error_blk% 256, s1% 32, b1% 32
"bufsz%=256
,poll_mask% = �(&6000F)
@ � taskid% 5: $taskid%="TASK"
TCș "Wimp_Initialise",200,!taskid%,"Wanda" � ,task_handle%,myid%
^"� � � �error(�, �$):�terminate
h� �
rN%=�(-�):N%=�(4)+3
|nb%=3:ab%=0
�SpriteSize%=1024
�h� S% N%,X%(N%),Y%(N%),DX%(N%),DY%(N%),PU% (N%+1)*6,bx%(nb%),by%(nb%),bd%(nb%),bs% nb%,A% SpriteSize%
�	�mode
�
B%=136
�p%=q%+4
�"!p%=0:p%!4=B%:p%!8=R%:p%!12=T%
�p%!16=0:p%!20=T%
�.p%!24=-2:p%!28=&8C0:p%!32=&4040407:p%!36=0
�&p%!40=0:p%!44=B%:p%!48=R%:p%!52=T%
�� I%=56 � 87:p%?I%=0:�
�&ș "Wimp_CreateWindow",,p% � fish%
�
!q%=fish%
�ș "Wimp_OpenWindow",,q%
NU%=PU%+N%+1
PH%=NU%+N%+1
NH%=PH%+N%+1
&PS%=NH%+N%+1
0NS%=PS%+N%+1
:� I%=0 � N%:S%?N%=0
D.PU%?I%=(I%+N%)�(N%+1):NU%?I%=(I%+1)�(N%+1)
N�
X?PH%=0:?NH%=0
b?PS%=0:?NS%=0
l� I%=1 � nb%:bs%?I%=0:�
v!A%=SpriteSize%
�
A%!4=0
�A%!8=16
�A%!12=16
�SO%=&2E
�'ș SO%,&10A,A%,"<Obey$Dir>.Sprites"
�!ș SO%,&11B,A%,"fish","fish2"
�ș SO%,&12F,A%,"fish2"
�!ș SO%,&118,A%,"fish" � ,,S1%
�"ș SO%,&118,A%,"fish2" � ,,S2%
�#ș SO%,&118,A%,"bubble" � ,,bu%
�bw%=10*2:bh%=6*4
�W%=36*2:H%=9*4
�'s1%!16=&40000102:s1%!24=A%:s1%!28=0
2b1%!16=&40000102:b1%!20=bu%:b1%!24=A%:b1%!28=0
� "Wimp_PlotIcon"=&400E2
�
 :
*� �null
4
!q%=fish%
>I%=?NS%
H	ȕ I%
R0 X%=X%(I%):Y%=Y%(I%):DX%=DX%(I%):DY%=DY%(I%)
\5 � �(256)=1 DX%=�X:DY%=�Y:DX%(I%)=DX%:DY%(I%)=DY%
fF � X%+DX%+W%>R% � X%+DX%<0 DX%=-DX%:DY%=�Y:DX%(I%)=DX%:DY%(I%)=DY%
p4 � Y%+DY%+H%>T% � Y%+DY%<B% DY%=-DY%:DY%(I%)=DY%
zT � DX%>0 q%!4=X%:q%!12=X%+W%+DX%:s1%!20=S1% � q%!4=X%+DX%:q%!12=X%+W%:s1%!20=S2%
�> � DY%>0 q%!8=Y%:q%!16=Y%+H%+DY% � q%!8=Y%+DY%:q%!16=Y%+H%
� X%+=DX%:Y%+=DY%
�$ ș "Wimp_UpdateWindow",,q% � f%
� � f% �
�  ȕ f%
�H   !s1%=X%:s1%!4=Y%:s1%!8=X%+W%:s1%!12=Y%+H%:ș "Wimp_PlotIcon",,s1%
�&   ș "Wimp_GetRectangle",,q% � f%
�  �
� �
�  �L(I%,2,1)
� �
� X%(I%)=X%:Y%(I%)=Y%
� I%=NS%?I%
�
� I%=1 � nb%
 � bs%?I% �
$K  q%!4=bx%(I%):q%!8=by%(I%):q%!12=bx%(I%)+bw%:q%!16=by%(I%)+bh%+bd%(I%)
.%  ș "Wimp_UpdateWindow",,q% � f%
8  by%(I%)+=bd%(I%)
B  ȕ f%
L^   !b1%=bx%(I%):b1%!4=by%(I%):b1%!8=bx%(I%)+bw%:b1%!12=by%(I%)+bh%:ș "Wimp_PlotIcon",,b1%
V&   ș "Wimp_GetRectangle",,q% � f%
`  �
j"  � by%(I%)>T% bs%?I%=0:ab%-=1
t �
~�
�&� ?NU% �M � � ab%<nb% � �(64)=1 �B
��
�:
���L(I%,J%,K%)
�� op%,on%,np%,nn%
�S%?I%=K%
�$op%=PU%+J%*(N%+1)*2:on%=op%+N%+1
�$np%=PU%+K%*(N%+1)*2:nn%=np%+N%+1
�J%=op%?I%:K%=on%?I%
�on%?J%=K%:op%?K%=J%
�K%=?nn%:?nn%=I%:np%?K%=I%
�np%?I%=0:nn%?I%=K%
�

:
� �M
#� �(10)<>1 � (� � ST%)<(1<<0) �
(X%=�(R%-W%)-1
2Y%=�(T%-B%-H%)+B%-1
<� I%=1 � N%
F. � �(X%(I%)-X%)<=W% � �(Y%(I%)-Y%)<=H% � �
P�
Z5!q%=fish%:q%!4=X%:q%!8=Y%:q%!12=X%+W%:q%!16=Y%+H%
d#ș "Wimp_UpdateWindow",,q% � f%
n
� f% �
x
 ȕ f%
�%  ș "Wimp_GetRectangle",,q% � f%
� �
��
�6 I%=?NU%:X%(I%)=X%:Y%(I%)=Y%:DX%(I%)=�X:DY%(I%)=�Y
� �L(I%,0,1)
��
��
�:
�� �B
�I%=�(N%)
�J%=0:�J%+=1:�bs%?J%=0
�Cbx%(J%)=X%(I%):by%(J%)=Y%(I%)+H%:bd%(J%)=�(3)+1:bs%?J%=1:ab%+=1
��DX%(I%)>0 bx%(J%)+=H%
�
:
� �X=�(2)*8-12
"� �Y=�(5)-2
,:
6
� �redraw
@� f%
J
!q%=fish%
T#ș "Wimp_RedrawWindow",,q% � f%
^	ȕ f%
h& l%=q%!4:b%=q%!8:r%=q%!12:t%=q%!16
r � I%=1 � N%
|>  � X%(I%)<r% � X%(I%)+W%>l% � Y%(I%)<t% � Y%(I%)+H%>b% �P
� �
� � I%=1 � nb%
��  � bs%?I% � bx%(I%)<r% � by%(I%)+bw%>l% � by%(I%)<t% � by%(I%)+bh%>b% !b1%=bx%(I%):b1%!4=by%(I%):b1%!8=bx%(I%)+bw%:b1%!12=by%(I%)+bh%:ș "Wimp_PlotIcon",,b1%
� �
�$ ș "Wimp_GetRectangle",,q% � f%
��
��
�:
�� �P
�� S%?I%=0 �
�'� DX%(I%)>0 s1%!20=S1% � s1%!20=S2%
�U!s1%=X%(I%):s1%!4=Y%(I%):s1%!8=X%(I%)+W%:s1%!12=Y%(I%)+H%:ș "Wimp_PlotIcon",,s1%
�� S%?I%=1 �L(I%,1,2)
�
:
� �mode
&*!q%=4:q%!4=5:q%!8=11:q%!12=12:q%!16=-1
0"ș "OS_ReadVduVariables",q%,q%
:xs%=!q%:ys%=q%!4
D&R%=(q%!8+1)<<xs%:T%=(q%!12+1)<<ys%
N� I%=1 � N%
X � X%(I%)>=R%-W% X%(I%)=0
b � Y%(I%)>=T%-H% Y%(I%)=B%
l� I%
v�
�:
�� �open
�	�mode
�4event%!4=0:event%!8=B%:event%!12=R%:event%!16=T%
�(ș "Wimp_SetExtent",!event%,event%+4
� ș "Wimp_OpenWindow",,event%
��
�:
�� �receive(message%)
�)� my_ref%, type$, option$, I%, pflag%
�my_ref% = message%!8
�Ȏ message%!16 �
� � 0
   �terminate
C � &400C2:newtaskid%=message%!4:taskname$=�string0(message%+28)
@ � taskname$="Wanda" � newtaskid%<>task_handle% � �terminate
*�
4�
>:
H� �terminate
Rș"Wimp_CloseDown"
\�
f:
p� �rtoz(s%)
z� n$
�ȕ?s%:n$+=�?s%:s%+=1:�
�=n$
�:
�� �close
�'!q%=fish%:ș "Wimp_CloseWindow",,q%
��
�:
�� �moan(report$)
�� &20000,report$
�:
�� �error(err%, report$)
�	� � �
�I� err%<&10100 � err%>&20000 � report$=report$+" internal error "+�(�)
	!error_blk% = err%
	$(error_blk%+4)=report$
	!�zero_terminate(error_blk%+4)
	$2ș "Wimp_ReportError", error_blk%, 1, "Wander"
	.�
	8:
	B��zero_terminate(S%)
	LS%?�$S% = 0
	V�
	`
	j8� �string0(a%) �a$:a$="":ȕ ?a%:a$+=�?a%:a%+=1:�:=a$
�

00000000  0d 00 0a 24 f4 20 3e 3c  57 61 6e 64 61 24 44 69  |...$. ><Wanda$Di|
00000010  72 3e 2e 21 52 75 6e 49  6d 61 67 65 20 2d 20 57  |r>.!RunImage - W|
00000020  61 6e 64 61 0d 00 0b 30  f4 20 4d 6f 64 69 66 69  |anda...0. Modifi|
00000030  65 64 20 74 6f 20 75 73  65 20 50 6f 6c 6c 49 64  |ed to use PollId|
00000040  6c 65 20 62 79 20 53 74  65 76 65 20 54 75 72 6e  |le by Steve Turn|
00000050  62 75 6c 6c 0d 00 14 09  f2 69 6e 69 74 0d 00 1e  |bull.....init...|
00000060  26 f4 20 73 65 74 20 75  70 20 74 68 65 20 64 65  |&. set up the de|
00000070  66 61 75 6c 74 20 65 72  72 6f 72 20 68 61 6e 64  |fault error hand|
00000080  6c 65 72 0d 00 28 14 ee  20 85 20 f2 65 72 72 6f  |ler..(.. . .erro|
00000090  72 28 9f 2c f6 24 29 0d  00 32 2e f4 20 2d 2d 2d  |r(.,.$)..2.. ---|
000000a0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000000c0  2d 2d 2d 2d 2d 0d 00 3c  2d f4 20 20 4d 61 69 6e  |-----..<-.  Main|
000000d0  20 57 49 4d 50 20 50 6f  6c 6c 69 6e 67 20 6c 6f  | WIMP Polling lo|
000000e0  6f 70 20 69 65 20 74 68  65 20 70 72 6f 67 72 61  |op ie the progra|
000000f0  6d 21 0d 00 46 2e f4 20  2d 2d 2d 2d 2d 2d 2d 2d  |m!..F.. --------|
00000100  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000120  0d 00 50 05 f5 0d 00 5a  33 20 c8 99 20 22 57 69  |..P....Z3 .. "Wi|
00000130  6d 70 5f 50 6f 6c 6c 49  64 6c 65 22 2c 70 6f 6c  |mp_PollIdle",pol|
00000140  6c 5f 6d 61 73 6b 25 2c  65 76 65 6e 74 25 20 b8  |l_mask%,event% .|
00000150  20 61 63 74 69 6f 6e 25  0d 00 64 13 20 f2 64 65  | action%..d. .de|
00000160  73 70 61 74 63 68 5f 70  6f 6c 6c 0d 00 6e 07 fd  |spatch_poll..n..|
00000170  20 a3 0d 00 78 05 e0 0d  00 82 05 3a 0d 00 8c 13  | ...x......:....|
00000180  dd f2 64 65 73 70 61 74  63 68 5f 70 6f 6c 6c 0d  |..despatch_poll.|
00000190  00 96 11 20 c8 8e 20 61  63 74 69 6f 6e 25 20 ca  |... .. action% .|
000001a0  0d 00 a0 10 20 20 c9 20  30 3a 20 f2 6e 75 6c 6c  |....  . 0: .null|
000001b0  0d 00 aa 12 20 20 c9 20  31 3a 20 f2 72 65 64 72  |....  . 1: .redr|
000001c0  61 77 0d 00 b4 10 20 20  c9 20 32 3a 20 f2 6f 70  |aw....  . 2: .op|
000001d0  65 6e 0d 00 be 1a 20 20  c9 20 33 3a 20 f2 63 6c  |en....  . 3: .cl|
000001e0  6f 73 65 28 21 65 76 65  6e 74 25 29 0d 00 c8 1e  |ose(!event%)....|
000001f0  20 20 c9 20 31 37 2c 31  38 3a f2 72 65 63 65 69  |  . 17,18:.recei|
00000200  76 65 28 65 76 65 6e 74  25 29 0d 00 d2 07 20 20  |ve(event%)....  |
00000210  cb 0d 00 dc 06 20 cd 0d  00 e6 05 e1 0d 00 f0 05  |..... ..........|
00000220  3a 0d 00 fa 0b dd 20 f2  69 6e 69 74 0d 00 fb 0f  |:..... .init....|
00000230  64 75 6d 6d 79 3d b3 28  2d 91 29 0d 01 04 07 ea  |dummy=.(-.).....|
00000240  20 85 0d 01 0e 09 53 54  25 3d 91 0d 01 18 3a de  | .....ST%=....:.|
00000250  20 71 25 20 26 38 30 30  2c 20 65 76 65 6e 74 25  | q% &800, event%|
00000260  20 26 38 30 30 2c 20 65  72 72 6f 72 5f 62 6c 6b  | &800, error_blk|
00000270  25 20 32 35 36 2c 20 73  31 25 20 33 32 2c 20 62  |% 256, s1% 32, b|
00000280  31 25 20 33 32 0d 01 22  0e 62 75 66 73 7a 25 3d  |1% 32..".bufsz%=|
00000290  32 35 36 0d 01 2c 1a 70  6f 6c 6c 5f 6d 61 73 6b  |256..,.poll_mask|
000002a0  25 20 3d 20 ac 28 26 36  30 30 30 46 29 0d 01 40  |% = .(&6000F)..@|
000002b0  20 de 20 74 61 73 6b 69  64 25 20 35 3a 20 24 74  | . taskid% 5: $t|
000002c0  61 73 6b 69 64 25 3d 22  54 41 53 4b 22 0d 01 54  |askid%="TASK"..T|
000002d0  43 c8 99 20 22 57 69 6d  70 5f 49 6e 69 74 69 61  |C.. "Wimp_Initia|
000002e0  6c 69 73 65 22 2c 32 30  30 2c 21 74 61 73 6b 69  |lise",200,!taski|
000002f0  64 25 2c 22 57 61 6e 64  61 22 20 b8 20 2c 74 61  |d%,"Wanda" . ,ta|
00000300  73 6b 5f 68 61 6e 64 6c  65 25 2c 6d 79 69 64 25  |sk_handle%,myid%|
00000310  0d 01 5e 22 ee 20 85 20  ea 20 f2 65 72 72 6f 72  |..^". . . .error|
00000320  28 9f 2c 20 f6 24 29 3a  f2 74 65 72 6d 69 6e 61  |(., .$):.termina|
00000330  74 65 0d 01 68 07 ea 20  85 0d 01 72 16 4e 25 3d  |te..h.. ...r.N%=|
00000340  b3 28 2d 91 29 3a 4e 25  3d b3 28 34 29 2b 33 0d  |.(-.):N%=.(4)+3.|
00000350  01 7c 0f 6e 62 25 3d 33  3a 61 62 25 3d 30 0d 01  |.|.nb%=3:ab%=0..|
00000360  86 14 53 70 72 69 74 65  53 69 7a 65 25 3d 31 30  |..SpriteSize%=10|
00000370  32 34 0d 01 90 68 de 20  53 25 20 4e 25 2c 58 25  |24...h. S% N%,X%|
00000380  28 4e 25 29 2c 59 25 28  4e 25 29 2c 44 58 25 28  |(N%),Y%(N%),DX%(|
00000390  4e 25 29 2c 44 59 25 28  4e 25 29 2c 50 55 25 20  |N%),DY%(N%),PU% |
000003a0  28 4e 25 2b 31 29 2a 36  2c 62 78 25 28 6e 62 25  |(N%+1)*6,bx%(nb%|
000003b0  29 2c 62 79 25 28 6e 62  25 29 2c 62 64 25 28 6e  |),by%(nb%),bd%(n|
000003c0  62 25 29 2c 62 73 25 20  6e 62 25 2c 41 25 20 53  |b%),bs% nb%,A% S|
000003d0  70 72 69 74 65 53 69 7a  65 25 0d 01 9a 09 f2 6d  |priteSize%.....m|
000003e0  6f 64 65 0d 01 a4 0a 42  25 3d 31 33 36 0d 01 ae  |ode....B%=136...|
000003f0  0b 70 25 3d 71 25 2b 34  0d 01 b8 22 21 70 25 3d  |.p%=q%+4..."!p%=|
00000400  30 3a 70 25 21 34 3d 42  25 3a 70 25 21 38 3d 52  |0:p%!4=B%:p%!8=R|
00000410  25 3a 70 25 21 31 32 3d  54 25 0d 01 c2 14 70 25  |%:p%!12=T%....p%|
00000420  21 31 36 3d 30 3a 70 25  21 32 30 3d 54 25 0d 01  |!16=0:p%!20=T%..|
00000430  cc 2e 70 25 21 32 34 3d  2d 32 3a 70 25 21 32 38  |..p%!24=-2:p%!28|
00000440  3d 26 38 43 30 3a 70 25  21 33 32 3d 26 34 30 34  |=&8C0:p%!32=&404|
00000450  30 34 30 37 3a 70 25 21  33 36 3d 30 0d 01 d6 26  |0407:p%!36=0...&|
00000460  70 25 21 34 30 3d 30 3a  70 25 21 34 34 3d 42 25  |p%!40=0:p%!44=B%|
00000470  3a 70 25 21 34 38 3d 52  25 3a 70 25 21 35 32 3d  |:p%!48=R%:p%!52=|
00000480  54 25 0d 01 e0 1a e3 20  49 25 3d 35 36 20 b8 20  |T%..... I%=56 . |
00000490  38 37 3a 70 25 3f 49 25  3d 30 3a ed 0d 01 ea 26  |87:p%?I%=0:....&|
000004a0  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 57  |.. "Wimp_CreateW|
000004b0  69 6e 64 6f 77 22 2c 2c  70 25 20 b8 20 66 69 73  |indow",,p% . fis|
000004c0  68 25 0d 01 f4 0d 21 71  25 3d 66 69 73 68 25 0d  |h%....!q%=fish%.|
000004d0  01 fe 1c c8 99 20 22 57  69 6d 70 5f 4f 70 65 6e  |..... "Wimp_Open|
000004e0  57 69 6e 64 6f 77 22 2c  2c 71 25 0d 02 08 10 4e  |Window",,q%....N|
000004f0  55 25 3d 50 55 25 2b 4e  25 2b 31 0d 02 12 10 50  |U%=PU%+N%+1....P|
00000500  48 25 3d 4e 55 25 2b 4e  25 2b 31 0d 02 1c 10 4e  |H%=NU%+N%+1....N|
00000510  48 25 3d 50 48 25 2b 4e  25 2b 31 0d 02 26 10 50  |H%=PH%+N%+1..&.P|
00000520  53 25 3d 4e 48 25 2b 4e  25 2b 31 0d 02 30 10 4e  |S%=NH%+N%+1..0.N|
00000530  53 25 3d 50 53 25 2b 4e  25 2b 31 0d 02 3a 17 e3  |S%=PS%+N%+1..:..|
00000540  20 49 25 3d 30 20 b8 20  4e 25 3a 53 25 3f 4e 25  | I%=0 . N%:S%?N%|
00000550  3d 30 0d 02 44 2e 50 55  25 3f 49 25 3d 28 49 25  |=0..D.PU%?I%=(I%|
00000560  2b 4e 25 29 83 28 4e 25  2b 31 29 3a 4e 55 25 3f  |+N%).(N%+1):NU%?|
00000570  49 25 3d 28 49 25 2b 31  29 83 28 4e 25 2b 31 29  |I%=(I%+1).(N%+1)|
00000580  0d 02 4e 05 ed 0d 02 58  11 3f 50 48 25 3d 30 3a  |..N....X.?PH%=0:|
00000590  3f 4e 48 25 3d 30 0d 02  62 11 3f 50 53 25 3d 30  |?NH%=0..b.?PS%=0|
000005a0  3a 3f 4e 53 25 3d 30 0d  02 6c 1b e3 20 49 25 3d  |:?NS%=0..l.. I%=|
000005b0  31 20 b8 20 6e 62 25 3a  62 73 25 3f 49 25 3d 30  |1 . nb%:bs%?I%=0|
000005c0  3a ed 0d 02 76 13 21 41  25 3d 53 70 72 69 74 65  |:...v.!A%=Sprite|
000005d0  53 69 7a 65 25 0d 02 80  0a 41 25 21 34 3d 30 0d  |Size%....A%!4=0.|
000005e0  02 8a 0b 41 25 21 38 3d  31 36 0d 02 94 0c 41 25  |...A%!8=16....A%|
000005f0  21 31 32 3d 31 36 0d 02  9e 0b 53 4f 25 3d 26 32  |!12=16....SO%=&2|
00000600  45 0d 02 a8 27 c8 99 20  53 4f 25 2c 26 31 30 41  |E...'.. SO%,&10A|
00000610  2c 41 25 2c 22 3c 4f 62  65 79 24 44 69 72 3e 2e  |,A%,"<Obey$Dir>.|
00000620  53 70 72 69 74 65 73 22  0d 02 b2 21 c8 99 20 53  |Sprites"...!.. S|
00000630  4f 25 2c 26 31 31 42 2c  41 25 2c 22 66 69 73 68  |O%,&11B,A%,"fish|
00000640  22 2c 22 66 69 73 68 32  22 0d 02 bc 1a c8 99 20  |","fish2"...... |
00000650  53 4f 25 2c 26 31 32 46  2c 41 25 2c 22 66 69 73  |SO%,&12F,A%,"fis|
00000660  68 32 22 0d 02 c6 21 c8  99 20 53 4f 25 2c 26 31  |h2"...!.. SO%,&1|
00000670  31 38 2c 41 25 2c 22 66  69 73 68 22 20 b8 20 2c  |18,A%,"fish" . ,|
00000680  2c 53 31 25 0d 02 d0 22  c8 99 20 53 4f 25 2c 26  |,S1%...".. SO%,&|
00000690  31 31 38 2c 41 25 2c 22  66 69 73 68 32 22 20 b8  |118,A%,"fish2" .|
000006a0  20 2c 2c 53 32 25 0d 02  da 23 c8 99 20 53 4f 25  | ,,S2%...#.. SO%|
000006b0  2c 26 31 31 38 2c 41 25  2c 22 62 75 62 62 6c 65  |,&118,A%,"bubble|
000006c0  22 20 b8 20 2c 2c 62 75  25 0d 02 e4 14 62 77 25  |" . ,,bu%....bw%|
000006d0  3d 31 30 2a 32 3a 62 68  25 3d 36 2a 34 0d 02 ee  |=10*2:bh%=6*4...|
000006e0  12 57 25 3d 33 36 2a 32  3a 48 25 3d 39 2a 34 0d  |.W%=36*2:H%=9*4.|
000006f0  02 f8 27 73 31 25 21 31  36 3d 26 34 30 30 30 30  |..'s1%!16=&40000|
00000700  31 30 32 3a 73 31 25 21  32 34 3d 41 25 3a 73 31  |102:s1%!24=A%:s1|
00000710  25 21 32 38 3d 30 0d 03  02 32 62 31 25 21 31 36  |%!28=0...2b1%!16|
00000720  3d 26 34 30 30 30 30 31  30 32 3a 62 31 25 21 32  |=&40000102:b1%!2|
00000730  30 3d 62 75 25 3a 62 31  25 21 32 34 3d 41 25 3a  |0=bu%:b1%!24=A%:|
00000740  62 31 25 21 32 38 3d 30  0d 03 0c 1c f4 20 22 57  |b1%!28=0..... "W|
00000750  69 6d 70 5f 50 6c 6f 74  49 63 6f 6e 22 3d 26 34  |imp_PlotIcon"=&4|
00000760  30 30 45 32 0d 03 16 05  e1 0d 03 20 05 3a 0d 03  |00E2....... .:..|
00000770  2a 0b dd 20 f2 6e 75 6c  6c 0d 03 34 0d 21 71 25  |*.. .null..4.!q%|
00000780  3d 66 69 73 68 25 0d 03  3e 0b 49 25 3d 3f 4e 53  |=fish%..>.I%=?NS|
00000790  25 0d 03 48 09 c8 95 20  49 25 0d 03 52 30 20 58  |%..H... I%..R0 X|
000007a0  25 3d 58 25 28 49 25 29  3a 59 25 3d 59 25 28 49  |%=X%(I%):Y%=Y%(I|
000007b0  25 29 3a 44 58 25 3d 44  58 25 28 49 25 29 3a 44  |%):DX%=DX%(I%):D|
000007c0  59 25 3d 44 59 25 28 49  25 29 0d 03 5c 35 20 e7  |Y%=DY%(I%)..\5 .|
000007d0  20 b3 28 32 35 36 29 3d  31 20 44 58 25 3d a4 58  | .(256)=1 DX%=.X|
000007e0  3a 44 59 25 3d a4 59 3a  44 58 25 28 49 25 29 3d  |:DY%=.Y:DX%(I%)=|
000007f0  44 58 25 3a 44 59 25 28  49 25 29 3d 44 59 25 0d  |DX%:DY%(I%)=DY%.|
00000800  03 66 46 20 e7 20 58 25  2b 44 58 25 2b 57 25 3e  |.fF . X%+DX%+W%>|
00000810  52 25 20 84 20 58 25 2b  44 58 25 3c 30 20 44 58  |R% . X%+DX%<0 DX|
00000820  25 3d 2d 44 58 25 3a 44  59 25 3d a4 59 3a 44 58  |%=-DX%:DY%=.Y:DX|
00000830  25 28 49 25 29 3d 44 58  25 3a 44 59 25 28 49 25  |%(I%)=DX%:DY%(I%|
00000840  29 3d 44 59 25 0d 03 70  34 20 e7 20 59 25 2b 44  |)=DY%..p4 . Y%+D|
00000850  59 25 2b 48 25 3e 54 25  20 84 20 59 25 2b 44 59  |Y%+H%>T% . Y%+DY|
00000860  25 3c 42 25 20 44 59 25  3d 2d 44 59 25 3a 44 59  |%<B% DY%=-DY%:DY|
00000870  25 28 49 25 29 3d 44 59  25 0d 03 7a 54 20 e7 20  |%(I%)=DY%..zT . |
00000880  44 58 25 3e 30 20 71 25  21 34 3d 58 25 3a 71 25  |DX%>0 q%!4=X%:q%|
00000890  21 31 32 3d 58 25 2b 57  25 2b 44 58 25 3a 73 31  |!12=X%+W%+DX%:s1|
000008a0  25 21 32 30 3d 53 31 25  20 8b 20 71 25 21 34 3d  |%!20=S1% . q%!4=|
000008b0  58 25 2b 44 58 25 3a 71  25 21 31 32 3d 58 25 2b  |X%+DX%:q%!12=X%+|
000008c0  57 25 3a 73 31 25 21 32  30 3d 53 32 25 0d 03 84  |W%:s1%!20=S2%...|
000008d0  3e 20 e7 20 44 59 25 3e  30 20 71 25 21 38 3d 59  |> . DY%>0 q%!8=Y|
000008e0  25 3a 71 25 21 31 36 3d  59 25 2b 48 25 2b 44 59  |%:q%!16=Y%+H%+DY|
000008f0  25 20 8b 20 71 25 21 38  3d 59 25 2b 44 59 25 3a  |% . q%!8=Y%+DY%:|
00000900  71 25 21 31 36 3d 59 25  2b 48 25 0d 03 8e 14 20  |q%!16=Y%+H%.... |
00000910  58 25 2b 3d 44 58 25 3a  59 25 2b 3d 44 59 25 0d  |X%+=DX%:Y%+=DY%.|
00000920  03 98 24 20 c8 99 20 22  57 69 6d 70 5f 55 70 64  |..$ .. "Wimp_Upd|
00000930  61 74 65 57 69 6e 64 6f  77 22 2c 2c 71 25 20 b8  |ateWindow",,q% .|
00000940  20 66 25 0d 03 a2 0b 20  e7 20 66 25 20 8c 0d 03  | f%.... . f% ...|
00000950  ac 0b 20 20 c8 95 20 66  25 0d 03 b6 48 20 20 20  |..  .. f%...H   |
00000960  21 73 31 25 3d 58 25 3a  73 31 25 21 34 3d 59 25  |!s1%=X%:s1%!4=Y%|
00000970  3a 73 31 25 21 38 3d 58  25 2b 57 25 3a 73 31 25  |:s1%!8=X%+W%:s1%|
00000980  21 31 32 3d 59 25 2b 48  25 3a c8 99 20 22 57 69  |!12=Y%+H%:.. "Wi|
00000990  6d 70 5f 50 6c 6f 74 49  63 6f 6e 22 2c 2c 73 31  |mp_PlotIcon",,s1|
000009a0  25 0d 03 c0 26 20 20 20  c8 99 20 22 57 69 6d 70  |%...&   .. "Wimp|
000009b0  5f 47 65 74 52 65 63 74  61 6e 67 6c 65 22 2c 2c  |_GetRectangle",,|
000009c0  71 25 20 b8 20 66 25 0d  03 ca 07 20 20 ce 0d 03  |q% . f%....  ...|
000009d0  d4 06 20 cc 0d 03 de 10  20 20 f2 4c 28 49 25 2c  |.. .....  .L(I%,|
000009e0  32 2c 31 29 0d 03 e8 06  20 cd 0d 03 f2 18 20 58  |2,1).... ..... X|
000009f0  25 28 49 25 29 3d 58 25  3a 59 25 28 49 25 29 3d  |%(I%)=X%:Y%(I%)=|
00000a00  59 25 0d 03 fc 0e 20 49  25 3d 4e 53 25 3f 49 25  |Y%.... I%=NS%?I%|
00000a10  0d 04 06 05 ce 0d 04 10  10 e3 20 49 25 3d 31 20  |.......... I%=1 |
00000a20  b8 20 6e 62 25 0d 04 1a  0f 20 e7 20 62 73 25 3f  |. nb%.... . bs%?|
00000a30  49 25 20 8c 0d 04 24 4b  20 20 71 25 21 34 3d 62  |I% ...$K  q%!4=b|
00000a40  78 25 28 49 25 29 3a 71  25 21 38 3d 62 79 25 28  |x%(I%):q%!8=by%(|
00000a50  49 25 29 3a 71 25 21 31  32 3d 62 78 25 28 49 25  |I%):q%!12=bx%(I%|
00000a60  29 2b 62 77 25 3a 71 25  21 31 36 3d 62 79 25 28  |)+bw%:q%!16=by%(|
00000a70  49 25 29 2b 62 68 25 2b  62 64 25 28 49 25 29 0d  |I%)+bh%+bd%(I%).|
00000a80  04 2e 25 20 20 c8 99 20  22 57 69 6d 70 5f 55 70  |..%  .. "Wimp_Up|
00000a90  64 61 74 65 57 69 6e 64  6f 77 22 2c 2c 71 25 20  |dateWindow",,q% |
00000aa0  b8 20 66 25 0d 04 38 16  20 20 62 79 25 28 49 25  |. f%..8.  by%(I%|
00000ab0  29 2b 3d 62 64 25 28 49  25 29 0d 04 42 0b 20 20  |)+=bd%(I%)..B.  |
00000ac0  c8 95 20 66 25 0d 04 4c  5e 20 20 20 21 62 31 25  |.. f%..L^   !b1%|
00000ad0  3d 62 78 25 28 49 25 29  3a 62 31 25 21 34 3d 62  |=bx%(I%):b1%!4=b|
00000ae0  79 25 28 49 25 29 3a 62  31 25 21 38 3d 62 78 25  |y%(I%):b1%!8=bx%|
00000af0  28 49 25 29 2b 62 77 25  3a 62 31 25 21 31 32 3d  |(I%)+bw%:b1%!12=|
00000b00  62 79 25 28 49 25 29 2b  62 68 25 3a c8 99 20 22  |by%(I%)+bh%:.. "|
00000b10  57 69 6d 70 5f 50 6c 6f  74 49 63 6f 6e 22 2c 2c  |Wimp_PlotIcon",,|
00000b20  62 31 25 0d 04 56 26 20  20 20 c8 99 20 22 57 69  |b1%..V&   .. "Wi|
00000b30  6d 70 5f 47 65 74 52 65  63 74 61 6e 67 6c 65 22  |mp_GetRectangle"|
00000b40  2c 2c 71 25 20 b8 20 66  25 0d 04 60 07 20 20 ce  |,,q% . f%..`.  .|
00000b50  0d 04 6a 22 20 20 e7 20  62 79 25 28 49 25 29 3e  |..j"  . by%(I%)>|
00000b60  54 25 20 62 73 25 3f 49  25 3d 30 3a 61 62 25 2d  |T% bs%?I%=0:ab%-|
00000b70  3d 31 0d 04 74 06 20 cd  0d 04 7e 05 ed 0d 04 88  |=1..t. ...~.....|
00000b80  26 e7 20 3f 4e 55 25 20  f2 4d 20 8b 20 e7 20 61  |&. ?NU% .M . . a|
00000b90  62 25 3c 6e 62 25 20 e7  20 b3 28 36 34 29 3d 31  |b%<nb% . .(64)=1|
00000ba0  20 f2 42 0d 04 92 05 e1  0d 04 9c 05 3a 0d 04 a6  | .B.........:...|
00000bb0  11 dd f2 4c 28 49 25 2c  4a 25 2c 4b 25 29 0d 04  |...L(I%,J%,K%)..|
00000bc0  b0 15 ea 20 6f 70 25 2c  6f 6e 25 2c 6e 70 25 2c  |... op%,on%,np%,|
00000bd0  6e 6e 25 0d 04 ba 0c 53  25 3f 49 25 3d 4b 25 0d  |nn%....S%?I%=K%.|
00000be0  04 c4 24 6f 70 25 3d 50  55 25 2b 4a 25 2a 28 4e  |..$op%=PU%+J%*(N|
00000bf0  25 2b 31 29 2a 32 3a 6f  6e 25 3d 6f 70 25 2b 4e  |%+1)*2:on%=op%+N|
00000c00  25 2b 31 0d 04 ce 24 6e  70 25 3d 50 55 25 2b 4b  |%+1...$np%=PU%+K|
00000c10  25 2a 28 4e 25 2b 31 29  2a 32 3a 6e 6e 25 3d 6e  |%*(N%+1)*2:nn%=n|
00000c20  70 25 2b 4e 25 2b 31 0d  04 d8 17 4a 25 3d 6f 70  |p%+N%+1....J%=op|
00000c30  25 3f 49 25 3a 4b 25 3d  6f 6e 25 3f 49 25 0d 04  |%?I%:K%=on%?I%..|
00000c40  e2 17 6f 6e 25 3f 4a 25  3d 4b 25 3a 6f 70 25 3f  |..on%?J%=K%:op%?|
00000c50  4b 25 3d 4a 25 0d 04 ec  1d 4b 25 3d 3f 6e 6e 25  |K%=J%....K%=?nn%|
00000c60  3a 3f 6e 6e 25 3d 49 25  3a 6e 70 25 3f 4b 25 3d  |:?nn%=I%:np%?K%=|
00000c70  49 25 0d 04 f6 16 6e 70  25 3f 49 25 3d 30 3a 6e  |I%....np%?I%=0:n|
00000c80  6e 25 3f 49 25 3d 4b 25  0d 05 00 05 e1 0d 05 0a  |n%?I%=K%........|
00000c90  05 3a 0d 05 14 08 dd 20  f2 4d 0d 05 1e 23 e7 20  |.:..... .M...#. |
00000ca0  b3 28 31 30 29 3c 3e 31  20 84 20 28 91 20 82 20  |.(10)<>1 . (. . |
00000cb0  53 54 25 29 3c 28 31 3c  3c 30 29 20 e1 0d 05 28  |ST%)<(1<<0) ...(|
00000cc0  11 58 25 3d b3 28 52 25  2d 57 25 29 2d 31 0d 05  |.X%=.(R%-W%)-1..|
00000cd0  32 17 59 25 3d b3 28 54  25 2d 42 25 2d 48 25 29  |2.Y%=.(T%-B%-H%)|
00000ce0  2b 42 25 2d 31 0d 05 3c  0f e3 20 49 25 3d 31 20  |+B%-1..<.. I%=1 |
00000cf0  b8 20 4e 25 0d 05 46 2e  20 e7 20 94 28 58 25 28  |. N%..F. . .(X%(|
00000d00  49 25 29 2d 58 25 29 3c  3d 57 25 20 80 20 94 28  |I%)-X%)<=W% . .(|
00000d10  59 25 28 49 25 29 2d 59  25 29 3c 3d 48 25 20 8c  |Y%(I%)-Y%)<=H% .|
00000d20  20 e1 0d 05 50 05 ed 0d  05 5a 35 21 71 25 3d 66  | ...P....Z5!q%=f|
00000d30  69 73 68 25 3a 71 25 21  34 3d 58 25 3a 71 25 21  |ish%:q%!4=X%:q%!|
00000d40  38 3d 59 25 3a 71 25 21  31 32 3d 58 25 2b 57 25  |8=Y%:q%!12=X%+W%|
00000d50  3a 71 25 21 31 36 3d 59  25 2b 48 25 0d 05 64 23  |:q%!16=Y%+H%..d#|
00000d60  c8 99 20 22 57 69 6d 70  5f 55 70 64 61 74 65 57  |.. "Wimp_UpdateW|
00000d70  69 6e 64 6f 77 22 2c 2c  71 25 20 b8 20 66 25 0d  |indow",,q% . f%.|
00000d80  05 6e 0a e7 20 66 25 20  8c 0d 05 78 0a 20 c8 95  |.n.. f% ...x. ..|
00000d90  20 66 25 0d 05 82 25 20  20 c8 99 20 22 57 69 6d  | f%...%  .. "Wim|
00000da0  70 5f 47 65 74 52 65 63  74 61 6e 67 6c 65 22 2c  |p_GetRectangle",|
00000db0  2c 71 25 20 b8 20 66 25  0d 05 8c 06 20 ce 0d 05  |,q% . f%.... ...|
00000dc0  96 05 cc 0d 05 a0 36 20  49 25 3d 3f 4e 55 25 3a  |......6 I%=?NU%:|
00000dd0  58 25 28 49 25 29 3d 58  25 3a 59 25 28 49 25 29  |X%(I%)=X%:Y%(I%)|
00000de0  3d 59 25 3a 44 58 25 28  49 25 29 3d a4 58 3a 44  |=Y%:DX%(I%)=.X:D|
00000df0  59 25 28 49 25 29 3d a4  59 0d 05 aa 0f 20 f2 4c  |Y%(I%)=.Y.... .L|
00000e00  28 49 25 2c 30 2c 31 29  0d 05 b4 05 cd 0d 05 be  |(I%,0,1)........|
00000e10  05 e1 0d 05 c8 05 3a 0d  05 d2 08 dd 20 f2 42 0d  |......:..... .B.|
00000e20  05 dc 0c 49 25 3d b3 28  4e 25 29 0d 05 e6 19 4a  |...I%=.(N%)....J|
00000e30  25 3d 30 3a f5 4a 25 2b  3d 31 3a fd 62 73 25 3f  |%=0:.J%+=1:.bs%?|
00000e40  4a 25 3d 30 0d 05 f0 43  62 78 25 28 4a 25 29 3d  |J%=0...Cbx%(J%)=|
00000e50  58 25 28 49 25 29 3a 62  79 25 28 4a 25 29 3d 59  |X%(I%):by%(J%)=Y|
00000e60  25 28 49 25 29 2b 48 25  3a 62 64 25 28 4a 25 29  |%(I%)+H%:bd%(J%)|
00000e70  3d b3 28 33 29 2b 31 3a  62 73 25 3f 4a 25 3d 31  |=.(3)+1:bs%?J%=1|
00000e80  3a 61 62 25 2b 3d 31 0d  05 fa 1a e7 44 58 25 28  |:ab%+=1.....DX%(|
00000e90  49 25 29 3e 30 20 62 78  25 28 4a 25 29 2b 3d 48  |I%)>0 bx%(J%)+=H|
00000ea0  25 0d 06 04 05 e1 0d 06  0e 05 3a 0d 06 18 12 dd  |%.........:.....|
00000eb0  20 a4 58 3d b3 28 32 29  2a 38 2d 31 32 0d 06 22  | .X=.(2)*8-12.."|
00000ec0  0f dd 20 a4 59 3d b3 28  35 29 2d 32 0d 06 2c 05  |.. .Y=.(5)-2..,.|
00000ed0  3a 0d 06 36 0d dd 20 f2  72 65 64 72 61 77 0d 06  |:..6.. .redraw..|
00000ee0  40 08 ea 20 66 25 0d 06  4a 0d 21 71 25 3d 66 69  |@.. f%..J.!q%=fi|
00000ef0  73 68 25 0d 06 54 23 c8  99 20 22 57 69 6d 70 5f  |sh%..T#.. "Wimp_|
00000f00  52 65 64 72 61 77 57 69  6e 64 6f 77 22 2c 2c 71  |RedrawWindow",,q|
00000f10  25 20 b8 20 66 25 0d 06  5e 09 c8 95 20 66 25 0d  |% . f%..^... f%.|
00000f20  06 68 26 20 6c 25 3d 71  25 21 34 3a 62 25 3d 71  |.h& l%=q%!4:b%=q|
00000f30  25 21 38 3a 72 25 3d 71  25 21 31 32 3a 74 25 3d  |%!8:r%=q%!12:t%=|
00000f40  71 25 21 31 36 0d 06 72  10 20 e3 20 49 25 3d 31  |q%!16..r. . I%=1|
00000f50  20 b8 20 4e 25 0d 06 7c  3e 20 20 e7 20 58 25 28  | . N%..|>  . X%(|
00000f60  49 25 29 3c 72 25 20 e7  20 58 25 28 49 25 29 2b  |I%)<r% . X%(I%)+|
00000f70  57 25 3e 6c 25 20 e7 20  59 25 28 49 25 29 3c 74  |W%>l% . Y%(I%)<t|
00000f80  25 20 e7 20 59 25 28 49  25 29 2b 48 25 3e 62 25  |% . Y%(I%)+H%>b%|
00000f90  20 f2 50 0d 06 86 06 20  ed 0d 06 90 11 20 e3 20  | .P.... ..... . |
00000fa0  49 25 3d 31 20 b8 20 6e  62 25 0d 06 9a a2 20 20  |I%=1 . nb%....  |
00000fb0  e7 20 62 73 25 3f 49 25  20 e7 20 62 78 25 28 49  |. bs%?I% . bx%(I|
00000fc0  25 29 3c 72 25 20 e7 20  62 79 25 28 49 25 29 2b  |%)<r% . by%(I%)+|
00000fd0  62 77 25 3e 6c 25 20 e7  20 62 79 25 28 49 25 29  |bw%>l% . by%(I%)|
00000fe0  3c 74 25 20 e7 20 62 79  25 28 49 25 29 2b 62 68  |<t% . by%(I%)+bh|
00000ff0  25 3e 62 25 20 21 62 31  25 3d 62 78 25 28 49 25  |%>b% !b1%=bx%(I%|
00001000  29 3a 62 31 25 21 34 3d  62 79 25 28 49 25 29 3a  |):b1%!4=by%(I%):|
00001010  62 31 25 21 38 3d 62 78  25 28 49 25 29 2b 62 77  |b1%!8=bx%(I%)+bw|
00001020  25 3a 62 31 25 21 31 32  3d 62 79 25 28 49 25 29  |%:b1%!12=by%(I%)|
00001030  2b 62 68 25 3a c8 99 20  22 57 69 6d 70 5f 50 6c  |+bh%:.. "Wimp_Pl|
00001040  6f 74 49 63 6f 6e 22 2c  2c 62 31 25 0d 06 a4 06  |otIcon",,b1%....|
00001050  20 ed 0d 06 ae 24 20 c8  99 20 22 57 69 6d 70 5f  | ....$ .. "Wimp_|
00001060  47 65 74 52 65 63 74 61  6e 67 6c 65 22 2c 2c 71  |GetRectangle",,q|
00001070  25 20 b8 20 66 25 0d 06  b8 05 ce 0d 06 c2 05 e1  |% . f%..........|
00001080  0d 06 cc 05 3a 0d 06 d6  08 dd 20 f2 50 0d 06 e0  |....:..... .P...|
00001090  0f e7 20 53 25 3f 49 25  3d 30 20 e1 0d 06 ea 27  |.. S%?I%=0 ....'|
000010a0  e7 20 44 58 25 28 49 25  29 3e 30 20 73 31 25 21  |. DX%(I%)>0 s1%!|
000010b0  32 30 3d 53 31 25 20 8b  20 73 31 25 21 32 30 3d  |20=S1% . s1%!20=|
000010c0  53 32 25 0d 06 f4 55 21  73 31 25 3d 58 25 28 49  |S2%...U!s1%=X%(I|
000010d0  25 29 3a 73 31 25 21 34  3d 59 25 28 49 25 29 3a  |%):s1%!4=Y%(I%):|
000010e0  73 31 25 21 38 3d 58 25  28 49 25 29 2b 57 25 3a  |s1%!8=X%(I%)+W%:|
000010f0  73 31 25 21 31 32 3d 59  25 28 49 25 29 2b 48 25  |s1%!12=Y%(I%)+H%|
00001100  3a c8 99 20 22 57 69 6d  70 5f 50 6c 6f 74 49 63  |:.. "Wimp_PlotIc|
00001110  6f 6e 22 2c 2c 73 31 25  0d 06 fe 18 e7 20 53 25  |on",,s1%..... S%|
00001120  3f 49 25 3d 31 20 f2 4c  28 49 25 2c 31 2c 32 29  |?I%=1 .L(I%,1,2)|
00001130  0d 07 08 05 e1 0d 07 12  05 3a 0d 07 1c 0b dd 20  |.........:..... |
00001140  f2 6d 6f 64 65 0d 07 26  2a 21 71 25 3d 34 3a 71  |.mode..&*!q%=4:q|
00001150  25 21 34 3d 35 3a 71 25  21 38 3d 31 31 3a 71 25  |%!4=5:q%!8=11:q%|
00001160  21 31 32 3d 31 32 3a 71  25 21 31 36 3d 2d 31 0d  |!12=12:q%!16=-1.|
00001170  07 30 22 c8 99 20 22 4f  53 5f 52 65 61 64 56 64  |.0".. "OS_ReadVd|
00001180  75 56 61 72 69 61 62 6c  65 73 22 2c 71 25 2c 71  |uVariables",q%,q|
00001190  25 0d 07 3a 14 78 73 25  3d 21 71 25 3a 79 73 25  |%..:.xs%=!q%:ys%|
000011a0  3d 71 25 21 34 0d 07 44  26 52 25 3d 28 71 25 21  |=q%!4..D&R%=(q%!|
000011b0  38 2b 31 29 3c 3c 78 73  25 3a 54 25 3d 28 71 25  |8+1)<<xs%:T%=(q%|
000011c0  21 31 32 2b 31 29 3c 3c  79 73 25 0d 07 4e 0f e3  |!12+1)<<ys%..N..|
000011d0  20 49 25 3d 31 20 b8 20  4e 25 0d 07 58 1d 20 e7  | I%=1 . N%..X. .|
000011e0  20 58 25 28 49 25 29 3e  3d 52 25 2d 57 25 20 58  | X%(I%)>=R%-W% X|
000011f0  25 28 49 25 29 3d 30 0d  07 62 1e 20 e7 20 59 25  |%(I%)=0..b. . Y%|
00001200  28 49 25 29 3e 3d 54 25  2d 48 25 20 59 25 28 49  |(I%)>=T%-H% Y%(I|
00001210  25 29 3d 42 25 0d 07 6c  08 ed 20 49 25 0d 07 76  |%)=B%..l.. I%..v|
00001220  05 e1 0d 07 80 05 3a 0d  07 8a 0b dd 20 f2 6f 70  |......:..... .op|
00001230  65 6e 0d 07 94 09 f2 6d  6f 64 65 0d 07 9e 34 65  |en.....mode...4e|
00001240  76 65 6e 74 25 21 34 3d  30 3a 65 76 65 6e 74 25  |vent%!4=0:event%|
00001250  21 38 3d 42 25 3a 65 76  65 6e 74 25 21 31 32 3d  |!8=B%:event%!12=|
00001260  52 25 3a 65 76 65 6e 74  25 21 31 36 3d 54 25 0d  |R%:event%!16=T%.|
00001270  07 a8 28 c8 99 20 22 57  69 6d 70 5f 53 65 74 45  |..(.. "Wimp_SetE|
00001280  78 74 65 6e 74 22 2c 21  65 76 65 6e 74 25 2c 65  |xtent",!event%,e|
00001290  76 65 6e 74 25 2b 34 0d  07 b2 20 c8 99 20 22 57  |vent%+4... .. "W|
000012a0  69 6d 70 5f 4f 70 65 6e  57 69 6e 64 6f 77 22 2c  |imp_OpenWindow",|
000012b0  2c 65 76 65 6e 74 25 0d  07 bc 05 e1 0d 07 c6 05  |,event%.........|
000012c0  3a 0d 07 d0 18 dd 20 f2  72 65 63 65 69 76 65 28  |:..... .receive(|
000012d0  6d 65 73 73 61 67 65 25  29 0d 07 da 29 ea 20 6d  |message%)...). m|
000012e0  79 5f 72 65 66 25 2c 20  74 79 70 65 24 2c 20 6f  |y_ref%, type$, o|
000012f0  70 74 69 6f 6e 24 2c 20  49 25 2c 20 70 66 6c 61  |ption$, I%, pfla|
00001300  67 25 0d 07 e4 18 6d 79  5f 72 65 66 25 20 3d 20  |g%....my_ref% = |
00001310  6d 65 73 73 61 67 65 25  21 38 0d 07 ee 14 c8 8e  |message%!8......|
00001320  20 6d 65 73 73 61 67 65  25 21 31 36 20 ca 0d 07  | message%!16 ...|
00001330  f8 08 20 c9 20 30 0d 08  02 11 20 20 20 f2 74 65  |.. . 0....   .te|
00001340  72 6d 69 6e 61 74 65 0d  08 0c 43 20 c9 20 26 34  |rminate...C . &4|
00001350  30 30 43 32 3a 6e 65 77  74 61 73 6b 69 64 25 3d  |00C2:newtaskid%=|
00001360  6d 65 73 73 61 67 65 25  21 34 3a 74 61 73 6b 6e  |message%!4:taskn|
00001370  61 6d 65 24 3d a4 73 74  72 69 6e 67 30 28 6d 65  |ame$=.string0(me|
00001380  73 73 61 67 65 25 2b 32  38 29 0d 08 16 40 20 e7  |ssage%+28)...@ .|
00001390  20 74 61 73 6b 6e 61 6d  65 24 3d 22 57 61 6e 64  | taskname$="Wand|
000013a0  61 22 20 80 20 6e 65 77  74 61 73 6b 69 64 25 3c  |a" . newtaskid%<|
000013b0  3e 74 61 73 6b 5f 68 61  6e 64 6c 65 25 20 8c 20  |>task_handle% . |
000013c0  f2 74 65 72 6d 69 6e 61  74 65 0d 08 2a 05 cb 0d  |.terminate..*...|
000013d0  08 34 05 e1 0d 08 3e 05  3a 0d 08 48 10 dd 20 f2  |.4....>.:..H.. .|
000013e0  74 65 72 6d 69 6e 61 74  65 0d 08 52 16 c8 99 22  |terminate..R..."|
000013f0  57 69 6d 70 5f 43 6c 6f  73 65 44 6f 77 6e 22 0d  |Wimp_CloseDown".|
00001400  08 5c 05 e0 0d 08 66 05  3a 0d 08 70 0f dd 20 a4  |.\....f.:..p.. .|
00001410  72 74 6f 7a 28 73 25 29  0d 08 7a 08 ea 20 6e 24  |rtoz(s%)..z.. n$|
00001420  0d 08 84 1a c8 95 3f 73  25 3a 6e 24 2b 3d bd 3f  |......?s%:n$+=.?|
00001430  73 25 3a 73 25 2b 3d 31  3a ce 0d 08 8e 07 3d 6e  |s%:s%+=1:.....=n|
00001440  24 0d 08 98 05 3a 0d 08  a2 0c dd 20 f2 63 6c 6f  |$....:..... .clo|
00001450  73 65 0d 08 ac 27 21 71  25 3d 66 69 73 68 25 3a  |se...'!q%=fish%:|
00001460  c8 99 20 22 57 69 6d 70  5f 43 6c 6f 73 65 57 69  |.. "Wimp_CloseWi|
00001470  6e 64 6f 77 22 2c 2c 71  25 0d 08 b6 05 e1 0d 08  |ndow",,q%.......|
00001480  c0 05 3a 0d 08 ca 14 dd  20 f2 6d 6f 61 6e 28 72  |..:..... .moan(r|
00001490  65 70 6f 72 74 24 29 0d  08 d4 14 85 20 26 32 30  |eport$)..... &20|
000014a0  30 30 30 2c 72 65 70 6f  72 74 24 0d 08 de 05 3a  |000,report$....:|
000014b0  0d 08 e8 1b dd 20 f2 65  72 72 6f 72 28 65 72 72  |..... .error(err|
000014c0  25 2c 20 72 65 70 6f 72  74 24 29 0d 08 f2 09 ee  |%, report$).....|
000014d0  20 85 20 87 0d 08 fc 49  e7 20 65 72 72 25 3c 26  | . ....I. err%<&|
000014e0  31 30 31 30 30 20 84 20  65 72 72 25 3e 26 32 30  |10100 . err%>&20|
000014f0  30 30 30 20 8c 20 72 65  70 6f 72 74 24 3d 72 65  |000 . report$=re|
00001500  70 6f 72 74 24 2b 22 20  69 6e 74 65 72 6e 61 6c  |port$+" internal|
00001510  20 65 72 72 6f 72 20 22  2b c3 28 9e 29 0d 09 06  | error "+.(.)...|
00001520  16 21 65 72 72 6f 72 5f  62 6c 6b 25 20 3d 20 65  |.!error_blk% = e|
00001530  72 72 25 0d 09 10 1b 24  28 65 72 72 6f 72 5f 62  |rr%....$(error_b|
00001540  6c 6b 25 2b 34 29 3d 72  65 70 6f 72 74 24 0d 09  |lk%+4)=report$..|
00001550  1a 21 f2 7a 65 72 6f 5f  74 65 72 6d 69 6e 61 74  |.!.zero_terminat|
00001560  65 28 65 72 72 6f 72 5f  62 6c 6b 25 2b 34 29 0d  |e(error_blk%+4).|
00001570  09 24 32 c8 99 20 22 57  69 6d 70 5f 52 65 70 6f  |.$2.. "Wimp_Repo|
00001580  72 74 45 72 72 6f 72 22  2c 20 65 72 72 6f 72 5f  |rtError", error_|
00001590  62 6c 6b 25 2c 20 31 2c  20 22 57 61 6e 64 65 72  |blk%, 1, "Wander|
000015a0  22 0d 09 2e 05 e1 0d 09  38 05 3a 0d 09 42 18 dd  |".......8.:..B..|
000015b0  f2 7a 65 72 6f 5f 74 65  72 6d 69 6e 61 74 65 28  |.zero_terminate(|
000015c0  53 25 29 0d 09 4c 0f 53  25 3f a9 24 53 25 20 3d  |S%)..L.S%?.$S% =|
000015d0  20 30 0d 09 56 05 e1 0d  09 60 04 0d 09 6a 38 dd  | 0..V....`...j8.|
000015e0  20 a4 73 74 72 69 6e 67  30 28 61 25 29 20 ea 61  | .string0(a%) .a|
000015f0  24 3a 61 24 3d 22 22 3a  c8 95 20 3f 61 25 3a 61  |$:a$="":.. ?a%:a|
00001600  24 2b 3d bd 3f 61 25 3a  61 25 2b 3d 31 3a ce 3a  |$+=.?a%:a%+=1:.:|
00001610  3d 61 24 0d ff                                    |=a$..|
00001615

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .