Home » Archimedes archive » Micro User » MU 1991-10.adf » PD-Stuff » Bits/!DeskDuck/!RunImage

Bits/!DeskDuck/!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 1991-10.adf » PD-Stuff
Filename: Bits/!DeskDuck/!RunImage
Read OK: ✔
File size: 1C53 bytes
Load address: 0000
Exec address: 0000
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
   10REM >!RunImage
   20REM DeskDuck v1.03: By Stuart Payne
   30REM Another hand crafted offering from CS_Happening home of DuckDemos
   40REM No help at all from Brain the Cat this time.
   50REM History:
   60REM Quacking added 1/5/90 (My Birthday!)
   70REM Interactive bread 3/5/90
   80
   90PROCinit
  100REM set up the default error handler
  110ON ERROR PROCerror(ERR,REPORT$)
  120REPEAT
  130 SYS "Wimp_Poll",poll_mask%,event% TO action%
  140 PROCdespatch_poll
  150UNTIL FALSE
  160END
  170:
  180DEFPROCdespatch_poll
  190 CASE action% OF
  200  WHEN 0: PROCnull
  210  WHEN 1: PROCredraw
  220  WHEN 2: PROCopen
  230  WHEN 3: PROCclose(!event%)
  240  WHEN 6: IF event%!12=DuckWindow% THEN
  250           CASE event%!8 OF
  260             WHEN 4,1:IF event%!4 < (B%+64) AND NOT breadthrown% THEN
  270                      breadthrown%=TRUE
  280                      breadX%=!event%
  290                      downstream%=(breadX%<=X%)
  300                      PROCbreadthrow(SpriteTotal%,breadX%)
  310             WHEN 2: SYS &400D4,,menu%,event%!0-64,event%!4
  320           ENDCASE
  330          ENDIF
  340  WHEN 9: PROCmenu
  350  WHEN 17,18:PROCreceive(event%)
  360  ENDCASE
  370 ENDIF
  380ENDPROC
  390:
  400DEF PROCinit
  410LOCAL ERROR
  420ST%=TIME
  430VOICES 2
  440DuckMax%=32
  450SpriteTotal%=41
  460Quacking%=TRUE:breadthrown%=FALSE:breadX%=0:downstream%=FALSE
  470OS_SpriteOp%=&2E
  480DIM Ducks%(SpriteTotal%),width%(SpriteTotal%),hieght%(SpriteTotal%)
  490DIM q% &800, event% &800, error_blk% 256,menu% 128, s1% 32
  500bufsz%=256
  510poll_mask% = NOT(&6004F)
  520DIM taskid% 5: $taskid%="TASK"
  530SYS "Wimp_Initialise",200,!taskid%,"DeskDuck" TO ,task_handle%
  540ON ERROR LOCAL PROCerror(ERR, REPORT$):PROCterminate
  550LOCAL ERROR
  560N%=2
  570xr%=0
  580PROCmode
  590B%=136
  600p%=q%+4
  610!p%=0:p%!4=B%:p%!8=R%:p%!12=T%
  620p%!16=0:p%!20=T%
  630p%!24=-2:p%!28=&8C0:p%!32=&4040407:p%!36=0
  640p%!40=0:p%!44=B%:p%!48=R%:p%!52=T%
  650FOR I%=56 TO 87:p%?I%=0:NEXT
  660p%!60=&3000
  670SYS "Wimp_CreateWindow",,p% TO DuckWindow%
  680!q%=DuckWindow%
  690SYS "Wimp_OpenWindow",,q%
  700PROCLoadducks
  710PROCsetupmenu
  720s1%!16=&40000102:s1%!24=sar%:s1%!28=0
  730I%=1
  740xr%=R%>>1:dx%=8:count%=1
  750X%=FNMoveDuck
  760Y%=B%
  770LastX%=xr%:LastDuck%=1
  780ENDPROC
  790
  800DEFPROCLoadducks
  810LOCAL saddr%
  820REM get file size
  830A%=OPENIN"<DeskDuck$Dir>.SpriteFile":sz%=EXT#A%:CLOSE#A%
  840
  850REM make a sprite area
  860DIM sar% 100+sz%
  870!sar%=100+sz%:sar%!4=0
  880sar%!8=16:sar%!12=16
  890SYS OS_SpriteOp%,&109,sar%
  900
  910REM load sprite file into it
  920SYS OS_SpriteOp%,&10A,sar%,"<DeskDuck$Dir>.SpriteFile"
  930REM get addresses of the duck sprites
  940FOR L%=1 TO SpriteTotal%
  950   SYS OS_SpriteOp%,&118,sar%,"duck"+STR$(L%) TO,,saddr%
  960   Ducks%(L%)=saddr%
  970   width%(L%)=(((saddr%!16)+1)*8)-(saddr%!24>>2)-(7-(saddr%!28>>2))
  980   hieght%(L%)=saddr%!20
  990NEXTL%
 1000ENDPROC
 1010
 1020DEF PROCnull
 1030 X%=FNMoveDuck
 1040 REM Erase old duck
 1050 GCOL 0,11
 1060 REM Look for rectangles
 1070 IF (X%>LastX%) THEN
 1080    !q%=DuckWindow%
 1090    q%!4=LastX%:q%!12=X%
 1100    q%!8=Y%:q%!16=Y%+(hieght%(LastDuck%)<<2)+4
 1110    REM Go for erase rectangles
 1120    SYS &400C9,,q% TO f%
 1130    IF f% THEN
 1140     WHILE f%
 1150      RECTANGLE FILL q%!28,q%!32,q%!36-q%!28,q%!40-q%!32
 1160      SYS &400CA,,q% TO f%
 1170     ENDWHILE
 1180    ENDIF
 1190 ENDIF
 1200 r1%=X%+(width%(I%)<<1)
 1210 r2%=LastX%+(width%(LastDuck%)<<1)
 1220 IF (r1%<r2%)
 1230    !q%=DuckWindow%
 1240    q%!4=r1%:q%!12=r2%
 1250    q%!8=Y%:q%!16=Y%+(hieght%(LastDuck%)<<2)+4
 1260    REM Go for erase rectangles
 1270    SYS &400C9,,q% TO f%
 1280    IF f% THEN
 1290     WHILE f%
 1300      RECTANGLE FILL q%!28,q%!32,q%!36-q%!28,q%!40-q%!32
 1310      SYS &400CA,,q% TO f%
 1320     ENDWHILE
 1330    ENDIF
 1340 ENDIF
 1350 LastX%=X%
 1360 LastDuck%=I%
 1370
 1380 REM Paint new duck
 1390 q%!4=X%:q%!12=X%+(width%(I%)<<1)+4
 1400 q%!8=Y%:q%!16=Y%+(hieght%(I%)<<2)+4
 1410 
 1420 SYS &400C9,,q% TO f%
 1430 IF f% THEN
 1440  WHILE f%
 1450   PROCPlotIcon(I%,X%)
 1460   SYS &400CA,,q% TO f%
 1470  ENDWHILE
 1480 ENDIF
 1490 IF breadthrown% THEN PROCbreadthrow(SpriteTotal%,breadX%)
 1500ENDPROC
 1510:
 1520DEF FNMoveDuck
 1530LOCAL xa%
 1540xr%+=dx%:xa%=xr%
 1550CASE I% OF
 1560 WHEN 1:
 1570   IF breadthrown% AND NOT downstream% THEN
 1580      I%=37:dx%=16
 1590      ELSE
 1600    IF ((breadthrown% AND downstream%) OR ((xr%>R%-200) OR RND(1)<.03)) AND count%<=0 THEN
 1610      radius%=RND(1)*100+50:dx%=0:I%=I%+1:count%=4
 1620      ELSE
 1630      count%-=1
 1640      IF RND(1)>.97 I%=33:count%=8:dx%=4
 1650      IF RND(1)>.97 AND Quacking% THEN I%=36:count%=8:dx%=8
 1660    ENDIF
 1670   ENDIF
 1680 WHEN 16:
 1690   IF breadthrown% AND downstream% THEN
 1700      I%=38:dx%=-16
 1710      ELSE
 1720    IF  ((breadthrown% AND NOT downstream%) OR ((xr%<150) OR RND(1)<.03)) AND count%<=0 THEN
 1730      radius%=RND(1)*100+50:dx%=0:I%=I%+1:count%=4
 1740      ELSE
 1750      count%-=1
 1760      IF RND(1)>.97 AND Quacking% THEN I%=35:count%=8:dx%=-8
 1770    ENDIF
 1780   ENDIF
 1790 WHEN 33:
 1800   count%-=1
 1810   IF count%=0 THEN I%=34:count%=4:dx%=8
 1820 WHEN 34:
 1830   count%-=1
 1840   IF count%=0 THEN I%=1:dx%=8
 1850 WHEN 35:
 1860   IF count%=8 THEN SOUND 2,-15,7200,20
 1870   count%-=1
 1880   IF count%=0 THEN I%=16:dx%=-8
 1890 WHEN 36:
 1900   IF count%=8 THEN SOUND 2,-15,7200,20
 1910   count%-=1
 1920   IF count%=0 THEN I%=1:dx%=8
 1930 WHEN 37:
 1940    IF (X%+(width%(I%)<<1))>=breadX% THEN breadthrown%=FALSE:I%=39:count%=4:dx%=8
 1950 WHEN 38:
 1960    IF X%<=(breadX%+(width%(SpriteTotal%)<<1)) THEN breadthrown%=FALSE:I%=40:count%=4:dx%=-8
 1970 WHEN 39:
 1980   count%-=1
 1990   IF count%=0 THEN I%=1:dx%=8
 2000 WHEN 40:
 2010   count%-=1
 2020   IF count%=0 THEN I%=16:dx%=-8
 2030 OTHERWISE
 2040   count%-=1
 2050   xa%=xr%+SIN(((I%<<1)-count%)*PI/32)*radius%
 2060   IF count%=0 THEN
 2070      count%=2
 2080      I%+=1
 2090      IF I%>DuckMax% THEN I%=1:dx%=8:count%=20
 2100      IF I%=16 THEN dx%=-8:count%=20
 2110   ENDIF
 2120ENDCASE
 2130=xa%
 2140
 2150DEF PROCbreadthrow(I%,X%)
 2160 q%!4=X%:q%!12=X%+(width%(I%)<<1)+4
 2170 q%!8=Y%:q%!16=Y%+(hieght%(I%)<<2)+4
 2180 SYS &400C9,,q% TO f%
 2190 IF f% THEN
 2200  WHILE f%
 2210   PROCPlotIcon(I%,X%)
 2220   SYS &400CA,,q% TO f%
 2230  ENDWHILE
 2240 ENDIF
 2250ENDPROC
 2260
 2270DEF PROCredraw
 2280LOCAL f%
 2290!q%=DuckWindow%
 2300SYS &400C8,,q% TO f%
 2310 WHILE f%
 2320  PROCPlotIcon(I%,X%)
 2330  IF breadthrown% THEN PROCPlotIcon(SpriteTotal%,breadX%)
 2340  SYS &400CA,,q% TO f%
 2350 ENDWHILE
 2360ENDPROC
 2370:
 2380DEF PROCPlotIcon(I%,xpos%)
 2390 !s1%=xpos%:s1%!4=Y%
 2400 s1%!8=xpos%+4+(width%(I%)<<1):s1%!12=Y%+4+(hieght%(I%)<<2)
 2410 s1%!20=Ducks%(I%)
 2420 SYS &400E2,,s1%
 2430ENDPROC
 2440:
 2450DEF PROCmode
 2460!q%=4:q%!4=5:q%!8=11:q%!12=12:q%!16=-1
 2470SYS "OS_ReadVduVariables",q%,q%
 2480xs%=!q%:ys%=q%!4
 2490R%=(q%!8+1)<<xs%:T%=(q%!12+1)<<ys%
 2500IF xr%>=R% THEN xr%=R%
 2510ENDPROC
 2520:
 2530DEF PROCopen
 2540PROCmode
 2550event%!4=0:event%!8=B%:event%!12=R%:event%!16=T%
 2560SYS "Wimp_SetExtent",!event%,event%+4
 2570SYS "Wimp_OpenWindow",,event%
 2580ENDPROC
 2590:
 2600DEF PROCreceive(message%)
 2610LOCAL my_ref%, type$, option$, I%, pflag%
 2620my_ref% = message%!8
 2630CASE message%!16 OF
 2640 WHEN 0
 2650  PROCterminate
 2660ENDCASE
 2670ENDPROC
 2680:
 2690DEF PROCmenu
 2700CASE !event% OF
 2710 WHEN 0:
 2720  Quacking%=NOT Quacking%
 2730  menu%!28=menu%!28 EOR 1
 2740 WHEN 1: PROCterminate
 2750ENDCASE
 2760SYS "Wimp_GetPointerInfo",,q%
 2770IF (q%!8 AND 1)=1 THEN SYS"Wimp_CreateMenu",,menu%,q%!0-64,q%!4
 2780ENDPROC
 2790:
 2800DEFPROCsetupmenu
 2810LOCAL m%
 2820$menu%="DeskDuck"
 2830menu%?12=7
 2840menu%?13=2
 2850menu%?14=7
 2860menu%?15=0
 2870menu%!16=128
 2880menu%!20=40
 2890menu%!24=0
 2900m%=menu%+28
 2910m%!0=&1
 2920m%!4=0
 2930m%!8=(7<<24)OR %11001
 2940$(m%+12)="Quacking"
 2950m%=m%+24
 2960m%!0=&80
 2970m%!4=0
 2980m%!8=(7<<24)OR %11001
 2990$(m%+12)="Quit"
 3000ENDPROC
 3010:
 3020DEF PROCterminate
 3030SYS"Wimp_CloseDown"
 3040END
 3050:
 3060DEF FNrtoz(s%)
 3070LOCAL n$
 3080WHILE?s%:n$+=CHR$?s%:s%+=1:ENDWHILE
 3090=n$
 3100:
 3110DEF PROCclose
 3120!q%=DuckWindow%:SYS "Wimp_CloseWindow",,q%
 3130ENDPROC
 3140:
 3150DEF PROCmoan(report$)
 3160ERROR &20000,report$
 3170:
 3180DEF PROCerror(err%, report$)
 3190ON ERROR OFF
 3200IF err%<&10100 OR err%>&20000 THEN report$=report$+" internal error "+STR$(ERL)
 3210!error_blk% = err%
 3220$(error_blk%+4)=report$
 3230PROCzero_terminate(error_blk%+4)
 3240SYS "Wimp_ReportError", error_blk%, 1, "DeskDuck"
 3250ENDPROC
 3260:
 3270DEFPROCzero_terminate(S%)
 3280S%?LEN$S% = 0
 3290ENDPROC


� >!RunImage
%� DeskDuck v1.03: By Stuart Payne
G� Another hand crafted offering from CS_Happening home of DuckDemos
(2� No help at all from Brain the Cat this time.
2� History:
<*� Quacking added 1/5/90 (My Birthday!)
F� Interactive bread 3/5/90
P
Z	�init
d&� set up the default error handler
n� � �error(�,�$)
x�
�/ ș "Wimp_Poll",poll_mask%,event% � action%
� �despatch_poll
�� �
��
�:
���despatch_poll
� Ȏ action% �
�  � 0: �null
�  � 1: �redraw
�  � 2: �open
�  � 3: �close(!event%)
�$  � 6: � event%!12=DuckWindow% �
�           Ȏ event%!8 �
>             � 4,1:� event%!4 < (B%+64) � � breadthrown% �
(                      breadthrown%=�
)                      breadX%=!event%
"3                      downstream%=(breadX%<=X%)
,;                      �breadthrow(SpriteTotal%,breadX%)
6;             � 2: ș &400D4,,menu%,event%!0-64,event%!4
@           �
J          �
T  � 9: �menu
^  � 17,18:�receive(event%)
h  �
r �
|�
�:
�� �init
�� �
�	ST%=�
�Ƞ 2
�DuckMax%=32
�SpriteTotal%=41
�6Quacking%=�:breadthrown%=�:breadX%=0:downstream%=�
�OS_SpriteOp%=&2E
�E� Ducks%(SpriteTotal%),width%(SpriteTotal%),hieght%(SpriteTotal%)
�<� q% &800, event% &800, error_blk% 256,menu% 128, s1% 32
�bufsz%=256
�poll_mask% = �(&6004F)
 � taskid% 5: $taskid%="TASK"
@ș "Wimp_Initialise",200,!taskid%,"DeskDuck" � ,task_handle%
"� � � �error(�, �$):�terminate
&� �
0N%=2
:	xr%=0
D	�mode
N
B%=136
Xp%=q%+4
b"!p%=0:p%!4=B%:p%!8=R%:p%!12=T%
lp%!16=0:p%!20=T%
v.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:�
�p%!60=&3000
�,ș "Wimp_CreateWindow",,p% � DuckWindow%
�!q%=DuckWindow%
�ș "Wimp_OpenWindow",,q%
��Loadducks
��setupmenu
�)s1%!16=&40000102:s1%!24=sar%:s1%!28=0
�I%=1
�xr%=R%>>1:dx%=8:count%=1
�X%=�MoveDuck
�	Y%=B%
LastX%=xr%:LastDuck%=1
�

 ��Loadducks
*� saddr%
4� get file size
>1A%=�"<DeskDuck$Dir>.SpriteFile":sz%=�#A%:�#A%
H
R� make a sprite area
\� sar% 100+sz%
f!sar%=100+sz%:sar%!4=0
psar%!8=16:sar%!12=16
zș OS_SpriteOp%,&109,sar%
�
�� load sprite file into it
�9ș OS_SpriteOp%,&10A,sar%,"<DeskDuck$Dir>.SpriteFile"
�'� get addresses of the duck sprites
�� L%=1 � SpriteTotal%
�7   ș OS_SpriteOp%,&118,sar%,"duck"+�(L%) �,,saddr%
�   Ducks%(L%)=saddr%
�G   width%(L%)=(((saddr%!16)+1)*8)-(saddr%!24>>2)-(7-(saddr%!28>>2))
�   hieght%(L%)=saddr%!20
��L%
��
�
�� �null
 X%=�MoveDuck
 � Erase old duck
 � 0,11
$ � Look for rectangles
. � (X%>LastX%) �
8    !q%=DuckWindow%
B    q%!4=LastX%:q%!12=X%
L2    q%!8=Y%:q%!16=Y%+(hieght%(LastDuck%)<<2)+4
V!    � Go for erase rectangles
`    ș &400C9,,q% � f%
j    � f% �
t     ȕ f%
~3      ȓ Ȑ q%!28,q%!32,q%!36-q%!28,q%!40-q%!32
�      ș &400CA,,q% � f%
�
     �
�	    �
� �
� r1%=X%+(width%(I%)<<1)
�& r2%=LastX%+(width%(LastDuck%)<<1)
� � (r1%<r2%)
�    !q%=DuckWindow%
�    q%!4=r1%:q%!12=r2%
�2    q%!8=Y%:q%!16=Y%+(hieght%(LastDuck%)<<2)+4
�!    � Go for erase rectangles
�    ș &400C9,,q% � f%
    � f% �

     ȕ f%
3      ȓ Ȑ q%!28,q%!32,q%!36-q%!28,q%!40-q%!32
      ș &400CA,,q% � f%
(
     �
2	    �
< �
F LastX%=X%
P LastDuck%=I%
Z
d � Paint new duck
n' q%!4=X%:q%!12=X%+(width%(I%)<<1)+4
x( q%!8=Y%:q%!16=Y%+(hieght%(I%)<<2)+4
� 
� ș &400C9,,q% � f%
� � f% �
�  ȕ f%
�   �PlotIcon(I%,X%)
�   ș &400CA,,q% � f%
�  �
� �
�7 � breadthrown% � �breadthrow(SpriteTotal%,breadX%)
��
�:
�� �MoveDuck
�	� xa%
xr%+=dx%:xa%=xr%
Ȏ I% �
	 � 1:
"'   � breadthrown% � � downstream% �
,      I%=37:dx%=16
6      �
@R    � ((breadthrown% � downstream%) � ((xr%>R%-200) � �(1)<.03)) � count%<=0 �
J4      radius%=�(1)*100+50:dx%=0:I%=I%+1:count%=4
T      �
^      count%-=1
h)      � �(1)>.97 I%=33:count%=8:dx%=4
r7      � �(1)>.97 � Quacking% � I%=36:count%=8:dx%=8
|	    �
�   �
�
 � 16:
�%   � breadthrown% � downstream% �
�      I%=38:dx%=-16
�      �
�R    �  ((breadthrown% � � downstream%) � ((xr%<150) � �(1)<.03)) � count%<=0 �
�4      radius%=�(1)*100+50:dx%=0:I%=I%+1:count%=4
�      �
�      count%-=1
�8      � �(1)>.97 � Quacking% � I%=35:count%=8:dx%=-8
�	    �
�   �
�
 � 33:
   count%-=1
(   � count%=0 � I%=34:count%=4:dx%=8

 � 34:
&   count%-=1
0   � count%=0 � I%=1:dx%=8
:
 � 35:
D#   � count%=8 � � 2,-15,7200,20
N   count%-=1
X    � count%=0 � I%=16:dx%=-8
b
 � 36:
l#   � count%=8 � � 2,-15,7200,20
v   count%-=1
�   � count%=0 � I%=1:dx%=8
�
 � 37:
�M    � (X%+(width%(I%)<<1))>=breadX% � breadthrown%=�:I%=39:count%=4:dx%=8
�
 � 38:
�X    � X%<=(breadX%+(width%(SpriteTotal%)<<1)) � breadthrown%=�:I%=40:count%=4:dx%=-8
�
 � 39:
�   count%-=1
�   � count%=0 � I%=1:dx%=8
�
 � 40:
�   count%-=1
�    � count%=0 � I%=16:dx%=-8
� 
�   count%-=1
/   xa%=xr%+�(((I%<<1)-count%)*�/32)*radius%
   � count%=0 �
      count%=2
       I%+=1
*.      � I%>DuckMax% � I%=1:dx%=8:count%=20
4$      � I%=16 � dx%=-8:count%=20
>   �
H�
R=xa%
\
f� �breadthrow(I%,X%)
p' q%!4=X%:q%!12=X%+(width%(I%)<<1)+4
z( q%!8=Y%:q%!16=Y%+(hieght%(I%)<<2)+4
� ș &400C9,,q% � f%
� � f% �
�  ȕ f%
�   �PlotIcon(I%,X%)
�   ș &400CA,,q% � f%
�  �
� �
��
�
�
� �redraw
�� f%
�!q%=DuckWindow%
�ș &400C8,,q% � f%
	
 ȕ f%
	  �PlotIcon(I%,X%)
	6  � breadthrown% � �PlotIcon(SpriteTotal%,breadX%)
	$  ș &400CA,,q% � f%
	. �
	8�
	B:
	L� �PlotIcon(I%,xpos%)
	V !s1%=xpos%:s1%!4=Y%
	`? s1%!8=xpos%+4+(width%(I%)<<1):s1%!12=Y%+4+(hieght%(I%)<<2)
	j s1%!20=Ducks%(I%)
	t ș &400E2,,s1%
	~�
	�:
	�� �mode
	�*!q%=4:q%!4=5:q%!8=11:q%!12=12:q%!16=-1
	�"ș "OS_ReadVduVariables",q%,q%
	�xs%=!q%:ys%=q%!4
	�&R%=(q%!8+1)<<xs%:T%=(q%!12+1)<<ys%
	�� xr%>=R% � xr%=R%
	��
	�:
	�� �open
	�	�mode
	�4event%!4=0:event%!8=B%:event%!12=R%:event%!16=T%
(ș "Wimp_SetExtent",!event%,event%+4

 ș "Wimp_OpenWindow",,event%
�
:
(� �receive(message%)
2)� my_ref%, type$, option$, I%, pflag%
<my_ref% = message%!8
FȎ message%!16 �
P � 0
Z  �terminate
d�
n�
x:
�� �menu
�Ȏ !event% �
�	 � 0:
�  Quacking%=� Quacking%
�  menu%!28=menu%!28 � 1
� � 1: �terminate
��
� ș "Wimp_GetPointerInfo",,q%
�<� (q%!8 � 1)=1 � ș"Wimp_CreateMenu",,menu%,q%!0-64,q%!4
��
�:
���setupmenu
�� m%
$menu%="DeskDuck"
menu%?12=7
menu%?13=2
"menu%?14=7
,menu%?15=0
6menu%!16=128
@menu%!20=40
Jmenu%!24=0
Tm%=menu%+28
^m%!0=&1
h
m%!4=0
rm%!8=(7<<24)� %11001
|$(m%+12)="Quacking"
�m%=m%+24
�m%!0=&80
�
m%!4=0
�m%!8=(7<<24)� %11001
�$(m%+12)="Quit"
��
�:
�� �terminate
�ș"Wimp_CloseDown"
��
�:
�� �rtoz(s%)
�� n$
ȕ?s%:n$+=�?s%:s%+=1:�
=n$
:
&� �close
0-!q%=DuckWindow%:ș "Wimp_CloseWindow",,q%
:�
D:
N� �moan(report$)
X� &20000,report$
b:
l� �error(err%, report$)
v	� � �
�I� err%<&10100 � err%>&20000 � report$=report$+" internal error "+�(�)
�!error_blk% = err%
�$(error_blk%+4)=report$
�!�zero_terminate(error_blk%+4)
�4ș "Wimp_ReportError", error_blk%, 1, "DeskDuck"
��
�:
���zero_terminate(S%)
�S%?�$S% = 0
��
�
00000000  0d 00 0a 10 f4 20 3e 21  52 75 6e 49 6d 61 67 65  |..... >!RunImage|
00000010  0d 00 14 25 f4 20 44 65  73 6b 44 75 63 6b 20 76  |...%. DeskDuck v|
00000020  31 2e 30 33 3a 20 42 79  20 53 74 75 61 72 74 20  |1.03: By Stuart |
00000030  50 61 79 6e 65 0d 00 1e  47 f4 20 41 6e 6f 74 68  |Payne...G. Anoth|
00000040  65 72 20 68 61 6e 64 20  63 72 61 66 74 65 64 20  |er hand crafted |
00000050  6f 66 66 65 72 69 6e 67  20 66 72 6f 6d 20 43 53  |offering from CS|
00000060  5f 48 61 70 70 65 6e 69  6e 67 20 68 6f 6d 65 20  |_Happening home |
00000070  6f 66 20 44 75 63 6b 44  65 6d 6f 73 0d 00 28 32  |of DuckDemos..(2|
00000080  f4 20 4e 6f 20 68 65 6c  70 20 61 74 20 61 6c 6c  |. No help at all|
00000090  20 66 72 6f 6d 20 42 72  61 69 6e 20 74 68 65 20  | from Brain the |
000000a0  43 61 74 20 74 68 69 73  20 74 69 6d 65 2e 0d 00  |Cat this time...|
000000b0  32 0e f4 20 48 69 73 74  6f 72 79 3a 0d 00 3c 2a  |2.. History:..<*|
000000c0  f4 20 51 75 61 63 6b 69  6e 67 20 61 64 64 65 64  |. Quacking added|
000000d0  20 31 2f 35 2f 39 30 20  28 4d 79 20 42 69 72 74  | 1/5/90 (My Birt|
000000e0  68 64 61 79 21 29 0d 00  46 1e f4 20 49 6e 74 65  |hday!)..F.. Inte|
000000f0  72 61 63 74 69 76 65 20  62 72 65 61 64 20 33 2f  |ractive bread 3/|
00000100  35 2f 39 30 0d 00 50 04  0d 00 5a 09 f2 69 6e 69  |5/90..P...Z..ini|
00000110  74 0d 00 64 26 f4 20 73  65 74 20 75 70 20 74 68  |t..d&. set up th|
00000120  65 20 64 65 66 61 75 6c  74 20 65 72 72 6f 72 20  |e default error |
00000130  68 61 6e 64 6c 65 72 0d  00 6e 14 ee 20 85 20 f2  |handler..n.. . .|
00000140  65 72 72 6f 72 28 9f 2c  f6 24 29 0d 00 78 05 f5  |error(.,.$)..x..|
00000150  0d 00 82 2f 20 c8 99 20  22 57 69 6d 70 5f 50 6f  |.../ .. "Wimp_Po|
00000160  6c 6c 22 2c 70 6f 6c 6c  5f 6d 61 73 6b 25 2c 65  |ll",poll_mask%,e|
00000170  76 65 6e 74 25 20 b8 20  61 63 74 69 6f 6e 25 0d  |vent% . action%.|
00000180  00 8c 13 20 f2 64 65 73  70 61 74 63 68 5f 70 6f  |... .despatch_po|
00000190  6c 6c 0d 00 96 07 fd 20  a3 0d 00 a0 05 e0 0d 00  |ll..... ........|
000001a0  aa 05 3a 0d 00 b4 13 dd  f2 64 65 73 70 61 74 63  |..:......despatc|
000001b0  68 5f 70 6f 6c 6c 0d 00  be 11 20 c8 8e 20 61 63  |h_poll.... .. ac|
000001c0  74 69 6f 6e 25 20 ca 0d  00 c8 10 20 20 c9 20 30  |tion% .....  . 0|
000001d0  3a 20 f2 6e 75 6c 6c 0d  00 d2 12 20 20 c9 20 31  |: .null....  . 1|
000001e0  3a 20 f2 72 65 64 72 61  77 0d 00 dc 10 20 20 c9  |: .redraw....  .|
000001f0  20 32 3a 20 f2 6f 70 65  6e 0d 00 e6 1a 20 20 c9  | 2: .open....  .|
00000200  20 33 3a 20 f2 63 6c 6f  73 65 28 21 65 76 65 6e  | 3: .close(!even|
00000210  74 25 29 0d 00 f0 24 20  20 c9 20 36 3a 20 e7 20  |t%)...$  . 6: . |
00000220  65 76 65 6e 74 25 21 31  32 3d 44 75 63 6b 57 69  |event%!12=DuckWi|
00000230  6e 64 6f 77 25 20 8c 0d  00 fa 1c 20 20 20 20 20  |ndow% .....     |
00000240  20 20 20 20 20 20 c8 8e  20 65 76 65 6e 74 25 21  |      .. event%!|
00000250  38 20 ca 0d 01 04 3e 20  20 20 20 20 20 20 20 20  |8 ....>         |
00000260  20 20 20 20 c9 20 34 2c  31 3a e7 20 65 76 65 6e  |    . 4,1:. even|
00000270  74 25 21 34 20 3c 20 28  42 25 2b 36 34 29 20 80  |t%!4 < (B%+64) .|
00000280  20 ac 20 62 72 65 61 64  74 68 72 6f 77 6e 25 20  | . breadthrown% |
00000290  8c 0d 01 0e 28 20 20 20  20 20 20 20 20 20 20 20  |....(           |
000002a0  20 20 20 20 20 20 20 20  20 20 20 62 72 65 61 64  |           bread|
000002b0  74 68 72 6f 77 6e 25 3d  b9 0d 01 18 29 20 20 20  |thrown%=....)   |
000002c0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000002d0  20 20 20 62 72 65 61 64  58 25 3d 21 65 76 65 6e  |   breadX%=!even|
000002e0  74 25 0d 01 22 33 20 20  20 20 20 20 20 20 20 20  |t%.."3          |
000002f0  20 20 20 20 20 20 20 20  20 20 20 20 64 6f 77 6e  |            down|
00000300  73 74 72 65 61 6d 25 3d  28 62 72 65 61 64 58 25  |stream%=(breadX%|
00000310  3c 3d 58 25 29 0d 01 2c  3b 20 20 20 20 20 20 20  |<=X%)..,;       |
00000320  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 f2  |               .|
00000330  62 72 65 61 64 74 68 72  6f 77 28 53 70 72 69 74  |breadthrow(Sprit|
00000340  65 54 6f 74 61 6c 25 2c  62 72 65 61 64 58 25 29  |eTotal%,breadX%)|
00000350  0d 01 36 3b 20 20 20 20  20 20 20 20 20 20 20 20  |..6;            |
00000360  20 c9 20 32 3a 20 c8 99  20 26 34 30 30 44 34 2c  | . 2: .. &400D4,|
00000370  2c 6d 65 6e 75 25 2c 65  76 65 6e 74 25 21 30 2d  |,menu%,event%!0-|
00000380  36 34 2c 65 76 65 6e 74  25 21 34 0d 01 40 10 20  |64,event%!4..@. |
00000390  20 20 20 20 20 20 20 20  20 20 cb 0d 01 4a 0f 20  |          ...J. |
000003a0  20 20 20 20 20 20 20 20  20 cd 0d 01 54 10 20 20  |         ...T.  |
000003b0  c9 20 39 3a 20 f2 6d 65  6e 75 0d 01 5e 1e 20 20  |. 9: .menu..^.  |
000003c0  c9 20 31 37 2c 31 38 3a  f2 72 65 63 65 69 76 65  |. 17,18:.receive|
000003d0  28 65 76 65 6e 74 25 29  0d 01 68 07 20 20 cb 0d  |(event%)..h.  ..|
000003e0  01 72 06 20 cd 0d 01 7c  05 e1 0d 01 86 05 3a 0d  |.r. ...|......:.|
000003f0  01 90 0b dd 20 f2 69 6e  69 74 0d 01 9a 07 ea 20  |.... .init..... |
00000400  85 0d 01 a4 09 53 54 25  3d 91 0d 01 ae 08 c8 a0  |.....ST%=.......|
00000410  20 32 0d 01 b8 0f 44 75  63 6b 4d 61 78 25 3d 33  | 2....DuckMax%=3|
00000420  32 0d 01 c2 13 53 70 72  69 74 65 54 6f 74 61 6c  |2....SpriteTotal|
00000430  25 3d 34 31 0d 01 cc 36  51 75 61 63 6b 69 6e 67  |%=41...6Quacking|
00000440  25 3d b9 3a 62 72 65 61  64 74 68 72 6f 77 6e 25  |%=.:breadthrown%|
00000450  3d a3 3a 62 72 65 61 64  58 25 3d 30 3a 64 6f 77  |=.:breadX%=0:dow|
00000460  6e 73 74 72 65 61 6d 25  3d a3 0d 01 d6 14 4f 53  |nstream%=.....OS|
00000470  5f 53 70 72 69 74 65 4f  70 25 3d 26 32 45 0d 01  |_SpriteOp%=&2E..|
00000480  e0 45 de 20 44 75 63 6b  73 25 28 53 70 72 69 74  |.E. Ducks%(Sprit|
00000490  65 54 6f 74 61 6c 25 29  2c 77 69 64 74 68 25 28  |eTotal%),width%(|
000004a0  53 70 72 69 74 65 54 6f  74 61 6c 25 29 2c 68 69  |SpriteTotal%),hi|
000004b0  65 67 68 74 25 28 53 70  72 69 74 65 54 6f 74 61  |eght%(SpriteTota|
000004c0  6c 25 29 0d 01 ea 3c de  20 71 25 20 26 38 30 30  |l%)...<. q% &800|
000004d0  2c 20 65 76 65 6e 74 25  20 26 38 30 30 2c 20 65  |, event% &800, e|
000004e0  72 72 6f 72 5f 62 6c 6b  25 20 32 35 36 2c 6d 65  |rror_blk% 256,me|
000004f0  6e 75 25 20 31 32 38 2c  20 73 31 25 20 33 32 0d  |nu% 128, s1% 32.|
00000500  01 f4 0e 62 75 66 73 7a  25 3d 32 35 36 0d 01 fe  |...bufsz%=256...|
00000510  1a 70 6f 6c 6c 5f 6d 61  73 6b 25 20 3d 20 ac 28  |.poll_mask% = .(|
00000520  26 36 30 30 34 46 29 0d  02 08 20 de 20 74 61 73  |&6004F)... . tas|
00000530  6b 69 64 25 20 35 3a 20  24 74 61 73 6b 69 64 25  |kid% 5: $taskid%|
00000540  3d 22 54 41 53 4b 22 0d  02 12 40 c8 99 20 22 57  |="TASK"...@.. "W|
00000550  69 6d 70 5f 49 6e 69 74  69 61 6c 69 73 65 22 2c  |imp_Initialise",|
00000560  32 30 30 2c 21 74 61 73  6b 69 64 25 2c 22 44 65  |200,!taskid%,"De|
00000570  73 6b 44 75 63 6b 22 20  b8 20 2c 74 61 73 6b 5f  |skDuck" . ,task_|
00000580  68 61 6e 64 6c 65 25 0d  02 1c 22 ee 20 85 20 ea  |handle%...". . .|
00000590  20 f2 65 72 72 6f 72 28  9f 2c 20 f6 24 29 3a f2  | .error(., .$):.|
000005a0  74 65 72 6d 69 6e 61 74  65 0d 02 26 07 ea 20 85  |terminate..&.. .|
000005b0  0d 02 30 08 4e 25 3d 32  0d 02 3a 09 78 72 25 3d  |..0.N%=2..:.xr%=|
000005c0  30 0d 02 44 09 f2 6d 6f  64 65 0d 02 4e 0a 42 25  |0..D..mode..N.B%|
000005d0  3d 31 33 36 0d 02 58 0b  70 25 3d 71 25 2b 34 0d  |=136..X.p%=q%+4.|
000005e0  02 62 22 21 70 25 3d 30  3a 70 25 21 34 3d 42 25  |.b"!p%=0:p%!4=B%|
000005f0  3a 70 25 21 38 3d 52 25  3a 70 25 21 31 32 3d 54  |:p%!8=R%:p%!12=T|
00000600  25 0d 02 6c 14 70 25 21  31 36 3d 30 3a 70 25 21  |%..l.p%!16=0:p%!|
00000610  32 30 3d 54 25 0d 02 76  2e 70 25 21 32 34 3d 2d  |20=T%..v.p%!24=-|
00000620  32 3a 70 25 21 32 38 3d  26 38 43 30 3a 70 25 21  |2:p%!28=&8C0:p%!|
00000630  33 32 3d 26 34 30 34 30  34 30 37 3a 70 25 21 33  |32=&4040407:p%!3|
00000640  36 3d 30 0d 02 80 26 70  25 21 34 30 3d 30 3a 70  |6=0...&p%!40=0:p|
00000650  25 21 34 34 3d 42 25 3a  70 25 21 34 38 3d 52 25  |%!44=B%:p%!48=R%|
00000660  3a 70 25 21 35 32 3d 54  25 0d 02 8a 1a e3 20 49  |:p%!52=T%..... I|
00000670  25 3d 35 36 20 b8 20 38  37 3a 70 25 3f 49 25 3d  |%=56 . 87:p%?I%=|
00000680  30 3a ed 0d 02 94 0f 70  25 21 36 30 3d 26 33 30  |0:.....p%!60=&30|
00000690  30 30 0d 02 9e 2c c8 99  20 22 57 69 6d 70 5f 43  |00...,.. "Wimp_C|
000006a0  72 65 61 74 65 57 69 6e  64 6f 77 22 2c 2c 70 25  |reateWindow",,p%|
000006b0  20 b8 20 44 75 63 6b 57  69 6e 64 6f 77 25 0d 02  | . DuckWindow%..|
000006c0  a8 13 21 71 25 3d 44 75  63 6b 57 69 6e 64 6f 77  |..!q%=DuckWindow|
000006d0  25 0d 02 b2 1c c8 99 20  22 57 69 6d 70 5f 4f 70  |%...... "Wimp_Op|
000006e0  65 6e 57 69 6e 64 6f 77  22 2c 2c 71 25 0d 02 bc  |enWindow",,q%...|
000006f0  0e f2 4c 6f 61 64 64 75  63 6b 73 0d 02 c6 0e f2  |..Loadducks.....|
00000700  73 65 74 75 70 6d 65 6e  75 0d 02 d0 29 73 31 25  |setupmenu...)s1%|
00000710  21 31 36 3d 26 34 30 30  30 30 31 30 32 3a 73 31  |!16=&40000102:s1|
00000720  25 21 32 34 3d 73 61 72  25 3a 73 31 25 21 32 38  |%!24=sar%:s1%!28|
00000730  3d 30 0d 02 da 08 49 25  3d 31 0d 02 e4 1c 78 72  |=0....I%=1....xr|
00000740  25 3d 52 25 3e 3e 31 3a  64 78 25 3d 38 3a 63 6f  |%=R%>>1:dx%=8:co|
00000750  75 6e 74 25 3d 31 0d 02  ee 10 58 25 3d a4 4d 6f  |unt%=1....X%=.Mo|
00000760  76 65 44 75 63 6b 0d 02  f8 09 59 25 3d 42 25 0d  |veDuck....Y%=B%.|
00000770  03 02 1a 4c 61 73 74 58  25 3d 78 72 25 3a 4c 61  |...LastX%=xr%:La|
00000780  73 74 44 75 63 6b 25 3d  31 0d 03 0c 05 e1 0d 03  |stDuck%=1.......|
00000790  16 04 0d 03 20 0f dd f2  4c 6f 61 64 64 75 63 6b  |.... ...Loadduck|
000007a0  73 0d 03 2a 0c ea 20 73  61 64 64 72 25 0d 03 34  |s..*.. saddr%..4|
000007b0  13 f4 20 67 65 74 20 66  69 6c 65 20 73 69 7a 65  |.. get file size|
000007c0  0d 03 3e 31 41 25 3d 8e  22 3c 44 65 73 6b 44 75  |..>1A%=."<DeskDu|
000007d0  63 6b 24 44 69 72 3e 2e  53 70 72 69 74 65 46 69  |ck$Dir>.SpriteFi|
000007e0  6c 65 22 3a 73 7a 25 3d  a2 23 41 25 3a d9 23 41  |le":sz%=.#A%:.#A|
000007f0  25 0d 03 48 04 0d 03 52  18 f4 20 6d 61 6b 65 20  |%..H...R.. make |
00000800  61 20 73 70 72 69 74 65  20 61 72 65 61 0d 03 5c  |a sprite area..\|
00000810  12 de 20 73 61 72 25 20  31 30 30 2b 73 7a 25 0d  |.. sar% 100+sz%.|
00000820  03 66 1a 21 73 61 72 25  3d 31 30 30 2b 73 7a 25  |.f.!sar%=100+sz%|
00000830  3a 73 61 72 25 21 34 3d  30 0d 03 70 18 73 61 72  |:sar%!4=0..p.sar|
00000840  25 21 38 3d 31 36 3a 73  61 72 25 21 31 32 3d 31  |%!8=16:sar%!12=1|
00000850  36 0d 03 7a 1d c8 99 20  4f 53 5f 53 70 72 69 74  |6..z... OS_Sprit|
00000860  65 4f 70 25 2c 26 31 30  39 2c 73 61 72 25 0d 03  |eOp%,&109,sar%..|
00000870  84 04 0d 03 8e 1e f4 20  6c 6f 61 64 20 73 70 72  |....... load spr|
00000880  69 74 65 20 66 69 6c 65  20 69 6e 74 6f 20 69 74  |ite file into it|
00000890  0d 03 98 39 c8 99 20 4f  53 5f 53 70 72 69 74 65  |...9.. OS_Sprite|
000008a0  4f 70 25 2c 26 31 30 41  2c 73 61 72 25 2c 22 3c  |Op%,&10A,sar%,"<|
000008b0  44 65 73 6b 44 75 63 6b  24 44 69 72 3e 2e 53 70  |DeskDuck$Dir>.Sp|
000008c0  72 69 74 65 46 69 6c 65  22 0d 03 a2 27 f4 20 67  |riteFile"...'. g|
000008d0  65 74 20 61 64 64 72 65  73 73 65 73 20 6f 66 20  |et addresses of |
000008e0  74 68 65 20 64 75 63 6b  20 73 70 72 69 74 65 73  |the duck sprites|
000008f0  0d 03 ac 19 e3 20 4c 25  3d 31 20 b8 20 53 70 72  |..... L%=1 . Spr|
00000900  69 74 65 54 6f 74 61 6c  25 0d 03 b6 37 20 20 20  |iteTotal%...7   |
00000910  c8 99 20 4f 53 5f 53 70  72 69 74 65 4f 70 25 2c  |.. OS_SpriteOp%,|
00000920  26 31 31 38 2c 73 61 72  25 2c 22 64 75 63 6b 22  |&118,sar%,"duck"|
00000930  2b c3 28 4c 25 29 20 b8  2c 2c 73 61 64 64 72 25  |+.(L%) .,,saddr%|
00000940  0d 03 c0 18 20 20 20 44  75 63 6b 73 25 28 4c 25  |....   Ducks%(L%|
00000950  29 3d 73 61 64 64 72 25  0d 03 ca 47 20 20 20 77  |)=saddr%...G   w|
00000960  69 64 74 68 25 28 4c 25  29 3d 28 28 28 73 61 64  |idth%(L%)=(((sad|
00000970  64 72 25 21 31 36 29 2b  31 29 2a 38 29 2d 28 73  |dr%!16)+1)*8)-(s|
00000980  61 64 64 72 25 21 32 34  3e 3e 32 29 2d 28 37 2d  |addr%!24>>2)-(7-|
00000990  28 73 61 64 64 72 25 21  32 38 3e 3e 32 29 29 0d  |(saddr%!28>>2)).|
000009a0  03 d4 1c 20 20 20 68 69  65 67 68 74 25 28 4c 25  |...   hieght%(L%|
000009b0  29 3d 73 61 64 64 72 25  21 32 30 0d 03 de 07 ed  |)=saddr%!20.....|
000009c0  4c 25 0d 03 e8 05 e1 0d  03 f2 04 0d 03 fc 0b dd  |L%..............|
000009d0  20 f2 6e 75 6c 6c 0d 04  06 11 20 58 25 3d a4 4d  | .null.... X%=.M|
000009e0  6f 76 65 44 75 63 6b 0d  04 10 15 20 f4 20 45 72  |oveDuck.... . Er|
000009f0  61 73 65 20 6f 6c 64 20  64 75 63 6b 0d 04 1a 0b  |ase old duck....|
00000a00  20 e6 20 30 2c 31 31 0d  04 24 1a 20 f4 20 4c 6f  | . 0,11..$. . Lo|
00000a10  6f 6b 20 66 6f 72 20 72  65 63 74 61 6e 67 6c 65  |ok for rectangle|
00000a20  73 0d 04 2e 14 20 e7 20  28 58 25 3e 4c 61 73 74  |s.... . (X%>Last|
00000a30  58 25 29 20 8c 0d 04 38  17 20 20 20 20 21 71 25  |X%) ...8.    !q%|
00000a40  3d 44 75 63 6b 57 69 6e  64 6f 77 25 0d 04 42 1c  |=DuckWindow%..B.|
00000a50  20 20 20 20 71 25 21 34  3d 4c 61 73 74 58 25 3a  |    q%!4=LastX%:|
00000a60  71 25 21 31 32 3d 58 25  0d 04 4c 32 20 20 20 20  |q%!12=X%..L2    |
00000a70  71 25 21 38 3d 59 25 3a  71 25 21 31 36 3d 59 25  |q%!8=Y%:q%!16=Y%|
00000a80  2b 28 68 69 65 67 68 74  25 28 4c 61 73 74 44 75  |+(hieght%(LastDu|
00000a90  63 6b 25 29 3c 3c 32 29  2b 34 0d 04 56 21 20 20  |ck%)<<2)+4..V!  |
00000aa0  20 20 f4 20 47 6f 20 66  6f 72 20 65 72 61 73 65  |  . Go for erase|
00000ab0  20 72 65 63 74 61 6e 67  6c 65 73 0d 04 60 1a 20  | rectangles..`. |
00000ac0  20 20 20 c8 99 20 26 34  30 30 43 39 2c 2c 71 25  |   .. &400C9,,q%|
00000ad0  20 b8 20 66 25 0d 04 6a  0e 20 20 20 20 e7 20 66  | . f%..j.    . f|
00000ae0  25 20 8c 0d 04 74 0e 20  20 20 20 20 c8 95 20 66  |% ...t.     .. f|
00000af0  25 0d 04 7e 33 20 20 20  20 20 20 c8 93 20 c8 90  |%..~3      .. ..|
00000b00  20 71 25 21 32 38 2c 71  25 21 33 32 2c 71 25 21  | q%!28,q%!32,q%!|
00000b10  33 36 2d 71 25 21 32 38  2c 71 25 21 34 30 2d 71  |36-q%!28,q%!40-q|
00000b20  25 21 33 32 0d 04 88 1c  20 20 20 20 20 20 c8 99  |%!32....      ..|
00000b30  20 26 34 30 30 43 41 2c  2c 71 25 20 b8 20 66 25  | &400CA,,q% . f%|
00000b40  0d 04 92 0a 20 20 20 20  20 ce 0d 04 9c 09 20 20  |....     .....  |
00000b50  20 20 cd 0d 04 a6 06 20  cd 0d 04 b0 1b 20 72 31  |  ..... ..... r1|
00000b60  25 3d 58 25 2b 28 77 69  64 74 68 25 28 49 25 29  |%=X%+(width%(I%)|
00000b70  3c 3c 31 29 0d 04 ba 26  20 72 32 25 3d 4c 61 73  |<<1)...& r2%=Las|
00000b80  74 58 25 2b 28 77 69 64  74 68 25 28 4c 61 73 74  |tX%+(width%(Last|
00000b90  44 75 63 6b 25 29 3c 3c  31 29 0d 04 c4 10 20 e7  |Duck%)<<1).... .|
00000ba0  20 28 72 31 25 3c 72 32  25 29 0d 04 ce 17 20 20  | (r1%<r2%)....  |
00000bb0  20 20 21 71 25 3d 44 75  63 6b 57 69 6e 64 6f 77  |  !q%=DuckWindow|
00000bc0  25 0d 04 d8 1a 20 20 20  20 71 25 21 34 3d 72 31  |%....    q%!4=r1|
00000bd0  25 3a 71 25 21 31 32 3d  72 32 25 0d 04 e2 32 20  |%:q%!12=r2%...2 |
00000be0  20 20 20 71 25 21 38 3d  59 25 3a 71 25 21 31 36  |   q%!8=Y%:q%!16|
00000bf0  3d 59 25 2b 28 68 69 65  67 68 74 25 28 4c 61 73  |=Y%+(hieght%(Las|
00000c00  74 44 75 63 6b 25 29 3c  3c 32 29 2b 34 0d 04 ec  |tDuck%)<<2)+4...|
00000c10  21 20 20 20 20 f4 20 47  6f 20 66 6f 72 20 65 72  |!    . Go for er|
00000c20  61 73 65 20 72 65 63 74  61 6e 67 6c 65 73 0d 04  |ase rectangles..|
00000c30  f6 1a 20 20 20 20 c8 99  20 26 34 30 30 43 39 2c  |..    .. &400C9,|
00000c40  2c 71 25 20 b8 20 66 25  0d 05 00 0e 20 20 20 20  |,q% . f%....    |
00000c50  e7 20 66 25 20 8c 0d 05  0a 0e 20 20 20 20 20 c8  |. f% .....     .|
00000c60  95 20 66 25 0d 05 14 33  20 20 20 20 20 20 c8 93  |. f%...3      ..|
00000c70  20 c8 90 20 71 25 21 32  38 2c 71 25 21 33 32 2c  | .. q%!28,q%!32,|
00000c80  71 25 21 33 36 2d 71 25  21 32 38 2c 71 25 21 34  |q%!36-q%!28,q%!4|
00000c90  30 2d 71 25 21 33 32 0d  05 1e 1c 20 20 20 20 20  |0-q%!32....     |
00000ca0  20 c8 99 20 26 34 30 30  43 41 2c 2c 71 25 20 b8  | .. &400CA,,q% .|
00000cb0  20 66 25 0d 05 28 0a 20  20 20 20 20 ce 0d 05 32  | f%..(.     ...2|
00000cc0  09 20 20 20 20 cd 0d 05  3c 06 20 cd 0d 05 46 0e  |.    ...<. ...F.|
00000cd0  20 4c 61 73 74 58 25 3d  58 25 0d 05 50 11 20 4c  | LastX%=X%..P. L|
00000ce0  61 73 74 44 75 63 6b 25  3d 49 25 0d 05 5a 04 0d  |astDuck%=I%..Z..|
00000cf0  05 64 15 20 f4 20 50 61  69 6e 74 20 6e 65 77 20  |.d. . Paint new |
00000d00  64 75 63 6b 0d 05 6e 27  20 71 25 21 34 3d 58 25  |duck..n' q%!4=X%|
00000d10  3a 71 25 21 31 32 3d 58  25 2b 28 77 69 64 74 68  |:q%!12=X%+(width|
00000d20  25 28 49 25 29 3c 3c 31  29 2b 34 0d 05 78 28 20  |%(I%)<<1)+4..x( |
00000d30  71 25 21 38 3d 59 25 3a  71 25 21 31 36 3d 59 25  |q%!8=Y%:q%!16=Y%|
00000d40  2b 28 68 69 65 67 68 74  25 28 49 25 29 3c 3c 32  |+(hieght%(I%)<<2|
00000d50  29 2b 34 0d 05 82 05 20  0d 05 8c 17 20 c8 99 20  |)+4.... .... .. |
00000d60  26 34 30 30 43 39 2c 2c  71 25 20 b8 20 66 25 0d  |&400C9,,q% . f%.|
00000d70  05 96 0b 20 e7 20 66 25  20 8c 0d 05 a0 0b 20 20  |... . f% .....  |
00000d80  c8 95 20 66 25 0d 05 aa  17 20 20 20 f2 50 6c 6f  |.. f%....   .Plo|
00000d90  74 49 63 6f 6e 28 49 25  2c 58 25 29 0d 05 b4 19  |tIcon(I%,X%)....|
00000da0  20 20 20 c8 99 20 26 34  30 30 43 41 2c 2c 71 25  |   .. &400CA,,q%|
00000db0  20 b8 20 66 25 0d 05 be  07 20 20 ce 0d 05 c8 06  | . f%....  .....|
00000dc0  20 cd 0d 05 d2 37 20 e7  20 62 72 65 61 64 74 68  | ....7 . breadth|
00000dd0  72 6f 77 6e 25 20 8c 20  f2 62 72 65 61 64 74 68  |rown% . .breadth|
00000de0  72 6f 77 28 53 70 72 69  74 65 54 6f 74 61 6c 25  |row(SpriteTotal%|
00000df0  2c 62 72 65 61 64 58 25  29 0d 05 dc 05 e1 0d 05  |,breadX%).......|
00000e00  e6 05 3a 0d 05 f0 0f dd  20 a4 4d 6f 76 65 44 75  |..:..... .MoveDu|
00000e10  63 6b 0d 05 fa 09 ea 20  78 61 25 0d 06 04 14 78  |ck..... xa%....x|
00000e20  72 25 2b 3d 64 78 25 3a  78 61 25 3d 78 72 25 0d  |r%+=dx%:xa%=xr%.|
00000e30  06 0e 0b c8 8e 20 49 25  20 ca 0d 06 18 09 20 c9  |..... I% ..... .|
00000e40  20 31 3a 0d 06 22 27 20  20 20 e7 20 62 72 65 61  | 1:.."'   . brea|
00000e50  64 74 68 72 6f 77 6e 25  20 80 20 ac 20 64 6f 77  |dthrown% . . dow|
00000e60  6e 73 74 72 65 61 6d 25  20 8c 0d 06 2c 16 20 20  |nstream% ...,.  |
00000e70  20 20 20 20 49 25 3d 33  37 3a 64 78 25 3d 31 36  |    I%=37:dx%=16|
00000e80  0d 06 36 0b 20 20 20 20  20 20 cc 0d 06 40 52 20  |..6.      ...@R |
00000e90  20 20 20 e7 20 28 28 62  72 65 61 64 74 68 72 6f  |   . ((breadthro|
00000ea0  77 6e 25 20 80 20 64 6f  77 6e 73 74 72 65 61 6d  |wn% . downstream|
00000eb0  25 29 20 84 20 28 28 78  72 25 3e 52 25 2d 32 30  |%) . ((xr%>R%-20|
00000ec0  30 29 20 84 20 b3 28 31  29 3c 2e 30 33 29 29 20  |0) . .(1)<.03)) |
00000ed0  80 20 63 6f 75 6e 74 25  3c 3d 30 20 8c 0d 06 4a  |. count%<=0 ...J|
00000ee0  34 20 20 20 20 20 20 72  61 64 69 75 73 25 3d b3  |4      radius%=.|
00000ef0  28 31 29 2a 31 30 30 2b  35 30 3a 64 78 25 3d 30  |(1)*100+50:dx%=0|
00000f00  3a 49 25 3d 49 25 2b 31  3a 63 6f 75 6e 74 25 3d  |:I%=I%+1:count%=|
00000f10  34 0d 06 54 0b 20 20 20  20 20 20 cc 0d 06 5e 13  |4..T.      ...^.|
00000f20  20 20 20 20 20 20 63 6f  75 6e 74 25 2d 3d 31 0d  |      count%-=1.|
00000f30  06 68 29 20 20 20 20 20  20 e7 20 b3 28 31 29 3e  |.h)      . .(1)>|
00000f40  2e 39 37 20 49 25 3d 33  33 3a 63 6f 75 6e 74 25  |.97 I%=33:count%|
00000f50  3d 38 3a 64 78 25 3d 34  0d 06 72 37 20 20 20 20  |=8:dx%=4..r7    |
00000f60  20 20 e7 20 b3 28 31 29  3e 2e 39 37 20 80 20 51  |  . .(1)>.97 . Q|
00000f70  75 61 63 6b 69 6e 67 25  20 8c 20 49 25 3d 33 36  |uacking% . I%=36|
00000f80  3a 63 6f 75 6e 74 25 3d  38 3a 64 78 25 3d 38 0d  |:count%=8:dx%=8.|
00000f90  06 7c 09 20 20 20 20 cd  0d 06 86 08 20 20 20 cd  |.|.    .....   .|
00000fa0  0d 06 90 0a 20 c9 20 31  36 3a 0d 06 9a 25 20 20  |.... . 16:...%  |
00000fb0  20 e7 20 62 72 65 61 64  74 68 72 6f 77 6e 25 20  | . breadthrown% |
00000fc0  80 20 64 6f 77 6e 73 74  72 65 61 6d 25 20 8c 0d  |. downstream% ..|
00000fd0  06 a4 17 20 20 20 20 20  20 49 25 3d 33 38 3a 64  |...      I%=38:d|
00000fe0  78 25 3d 2d 31 36 0d 06  ae 0b 20 20 20 20 20 20  |x%=-16....      |
00000ff0  cc 0d 06 b8 52 20 20 20  20 e7 20 20 28 28 62 72  |....R    .  ((br|
00001000  65 61 64 74 68 72 6f 77  6e 25 20 80 20 ac 20 64  |eadthrown% . . d|
00001010  6f 77 6e 73 74 72 65 61  6d 25 29 20 84 20 28 28  |ownstream%) . ((|
00001020  78 72 25 3c 31 35 30 29  20 84 20 b3 28 31 29 3c  |xr%<150) . .(1)<|
00001030  2e 30 33 29 29 20 80 20  63 6f 75 6e 74 25 3c 3d  |.03)) . count%<=|
00001040  30 20 8c 0d 06 c2 34 20  20 20 20 20 20 72 61 64  |0 ....4      rad|
00001050  69 75 73 25 3d b3 28 31  29 2a 31 30 30 2b 35 30  |ius%=.(1)*100+50|
00001060  3a 64 78 25 3d 30 3a 49  25 3d 49 25 2b 31 3a 63  |:dx%=0:I%=I%+1:c|
00001070  6f 75 6e 74 25 3d 34 0d  06 cc 0b 20 20 20 20 20  |ount%=4....     |
00001080  20 cc 0d 06 d6 13 20 20  20 20 20 20 63 6f 75 6e  | .....      coun|
00001090  74 25 2d 3d 31 0d 06 e0  38 20 20 20 20 20 20 e7  |t%-=1...8      .|
000010a0  20 b3 28 31 29 3e 2e 39  37 20 80 20 51 75 61 63  | .(1)>.97 . Quac|
000010b0  6b 69 6e 67 25 20 8c 20  49 25 3d 33 35 3a 63 6f  |king% . I%=35:co|
000010c0  75 6e 74 25 3d 38 3a 64  78 25 3d 2d 38 0d 06 ea  |unt%=8:dx%=-8...|
000010d0  09 20 20 20 20 cd 0d 06  f4 08 20 20 20 cd 0d 06  |.    .....   ...|
000010e0  fe 0a 20 c9 20 33 33 3a  0d 07 08 10 20 20 20 63  |.. . 33:....   c|
000010f0  6f 75 6e 74 25 2d 3d 31  0d 07 12 28 20 20 20 e7  |ount%-=1...(   .|
00001100  20 63 6f 75 6e 74 25 3d  30 20 8c 20 49 25 3d 33  | count%=0 . I%=3|
00001110  34 3a 63 6f 75 6e 74 25  3d 34 3a 64 78 25 3d 38  |4:count%=4:dx%=8|
00001120  0d 07 1c 0a 20 c9 20 33  34 3a 0d 07 26 10 20 20  |.... . 34:..&.  |
00001130  20 63 6f 75 6e 74 25 2d  3d 31 0d 07 30 1e 20 20  | count%-=1..0.  |
00001140  20 e7 20 63 6f 75 6e 74  25 3d 30 20 8c 20 49 25  | . count%=0 . I%|
00001150  3d 31 3a 64 78 25 3d 38  0d 07 3a 0a 20 c9 20 33  |=1:dx%=8..:. . 3|
00001160  35 3a 0d 07 44 23 20 20  20 e7 20 63 6f 75 6e 74  |5:..D#   . count|
00001170  25 3d 38 20 8c 20 d4 20  32 2c 2d 31 35 2c 37 32  |%=8 . . 2,-15,72|
00001180  30 30 2c 32 30 0d 07 4e  10 20 20 20 63 6f 75 6e  |00,20..N.   coun|
00001190  74 25 2d 3d 31 0d 07 58  20 20 20 20 e7 20 63 6f  |t%-=1..X    . co|
000011a0  75 6e 74 25 3d 30 20 8c  20 49 25 3d 31 36 3a 64  |unt%=0 . I%=16:d|
000011b0  78 25 3d 2d 38 0d 07 62  0a 20 c9 20 33 36 3a 0d  |x%=-8..b. . 36:.|
000011c0  07 6c 23 20 20 20 e7 20  63 6f 75 6e 74 25 3d 38  |.l#   . count%=8|
000011d0  20 8c 20 d4 20 32 2c 2d  31 35 2c 37 32 30 30 2c  | . . 2,-15,7200,|
000011e0  32 30 0d 07 76 10 20 20  20 63 6f 75 6e 74 25 2d  |20..v.   count%-|
000011f0  3d 31 0d 07 80 1e 20 20  20 e7 20 63 6f 75 6e 74  |=1....   . count|
00001200  25 3d 30 20 8c 20 49 25  3d 31 3a 64 78 25 3d 38  |%=0 . I%=1:dx%=8|
00001210  0d 07 8a 0a 20 c9 20 33  37 3a 0d 07 94 4d 20 20  |.... . 37:...M  |
00001220  20 20 e7 20 28 58 25 2b  28 77 69 64 74 68 25 28  |  . (X%+(width%(|
00001230  49 25 29 3c 3c 31 29 29  3e 3d 62 72 65 61 64 58  |I%)<<1))>=breadX|
00001240  25 20 8c 20 62 72 65 61  64 74 68 72 6f 77 6e 25  |% . breadthrown%|
00001250  3d a3 3a 49 25 3d 33 39  3a 63 6f 75 6e 74 25 3d  |=.:I%=39:count%=|
00001260  34 3a 64 78 25 3d 38 0d  07 9e 0a 20 c9 20 33 38  |4:dx%=8.... . 38|
00001270  3a 0d 07 a8 58 20 20 20  20 e7 20 58 25 3c 3d 28  |:...X    . X%<=(|
00001280  62 72 65 61 64 58 25 2b  28 77 69 64 74 68 25 28  |breadX%+(width%(|
00001290  53 70 72 69 74 65 54 6f  74 61 6c 25 29 3c 3c 31  |SpriteTotal%)<<1|
000012a0  29 29 20 8c 20 62 72 65  61 64 74 68 72 6f 77 6e  |)) . breadthrown|
000012b0  25 3d a3 3a 49 25 3d 34  30 3a 63 6f 75 6e 74 25  |%=.:I%=40:count%|
000012c0  3d 34 3a 64 78 25 3d 2d  38 0d 07 b2 0a 20 c9 20  |=4:dx%=-8.... . |
000012d0  33 39 3a 0d 07 bc 10 20  20 20 63 6f 75 6e 74 25  |39:....   count%|
000012e0  2d 3d 31 0d 07 c6 1e 20  20 20 e7 20 63 6f 75 6e  |-=1....   . coun|
000012f0  74 25 3d 30 20 8c 20 49  25 3d 31 3a 64 78 25 3d  |t%=0 . I%=1:dx%=|
00001300  38 0d 07 d0 0a 20 c9 20  34 30 3a 0d 07 da 10 20  |8.... . 40:.... |
00001310  20 20 63 6f 75 6e 74 25  2d 3d 31 0d 07 e4 20 20  |  count%-=1...  |
00001320  20 20 e7 20 63 6f 75 6e  74 25 3d 30 20 8c 20 49  |  . count%=0 . I|
00001330  25 3d 31 36 3a 64 78 25  3d 2d 38 0d 07 ee 06 20  |%=16:dx%=-8.... |
00001340  7f 0d 07 f8 10 20 20 20  63 6f 75 6e 74 25 2d 3d  |.....   count%-=|
00001350  31 0d 08 02 2f 20 20 20  78 61 25 3d 78 72 25 2b  |1.../   xa%=xr%+|
00001360  b5 28 28 28 49 25 3c 3c  31 29 2d 63 6f 75 6e 74  |.(((I%<<1)-count|
00001370  25 29 2a af 2f 33 32 29  2a 72 61 64 69 75 73 25  |%)*./32)*radius%|
00001380  0d 08 0c 13 20 20 20 e7  20 63 6f 75 6e 74 25 3d  |....   . count%=|
00001390  30 20 8c 0d 08 16 12 20  20 20 20 20 20 63 6f 75  |0 .....      cou|
000013a0  6e 74 25 3d 32 0d 08 20  0f 20 20 20 20 20 20 49  |nt%=2.. .      I|
000013b0  25 2b 3d 31 0d 08 2a 2e  20 20 20 20 20 20 e7 20  |%+=1..*.      . |
000013c0  49 25 3e 44 75 63 6b 4d  61 78 25 20 8c 20 49 25  |I%>DuckMax% . I%|
000013d0  3d 31 3a 64 78 25 3d 38  3a 63 6f 75 6e 74 25 3d  |=1:dx%=8:count%=|
000013e0  32 30 0d 08 34 24 20 20  20 20 20 20 e7 20 49 25  |20..4$      . I%|
000013f0  3d 31 36 20 8c 20 64 78  25 3d 2d 38 3a 63 6f 75  |=16 . dx%=-8:cou|
00001400  6e 74 25 3d 32 30 0d 08  3e 08 20 20 20 cd 0d 08  |nt%=20..>.   ...|
00001410  48 05 cb 0d 08 52 08 3d  78 61 25 0d 08 5c 04 0d  |H....R.=xa%..\..|
00001420  08 66 18 dd 20 f2 62 72  65 61 64 74 68 72 6f 77  |.f.. .breadthrow|
00001430  28 49 25 2c 58 25 29 0d  08 70 27 20 71 25 21 34  |(I%,X%)..p' q%!4|
00001440  3d 58 25 3a 71 25 21 31  32 3d 58 25 2b 28 77 69  |=X%:q%!12=X%+(wi|
00001450  64 74 68 25 28 49 25 29  3c 3c 31 29 2b 34 0d 08  |dth%(I%)<<1)+4..|
00001460  7a 28 20 71 25 21 38 3d  59 25 3a 71 25 21 31 36  |z( q%!8=Y%:q%!16|
00001470  3d 59 25 2b 28 68 69 65  67 68 74 25 28 49 25 29  |=Y%+(hieght%(I%)|
00001480  3c 3c 32 29 2b 34 0d 08  84 17 20 c8 99 20 26 34  |<<2)+4.... .. &4|
00001490  30 30 43 39 2c 2c 71 25  20 b8 20 66 25 0d 08 8e  |00C9,,q% . f%...|
000014a0  0b 20 e7 20 66 25 20 8c  0d 08 98 0b 20 20 c8 95  |. . f% .....  ..|
000014b0  20 66 25 0d 08 a2 17 20  20 20 f2 50 6c 6f 74 49  | f%....   .PlotI|
000014c0  63 6f 6e 28 49 25 2c 58  25 29 0d 08 ac 19 20 20  |con(I%,X%)....  |
000014d0  20 c8 99 20 26 34 30 30  43 41 2c 2c 71 25 20 b8  | .. &400CA,,q% .|
000014e0  20 66 25 0d 08 b6 07 20  20 ce 0d 08 c0 06 20 cd  | f%....  ..... .|
000014f0  0d 08 ca 05 e1 0d 08 d4  04 0d 08 de 0d dd 20 f2  |.............. .|
00001500  72 65 64 72 61 77 0d 08  e8 08 ea 20 66 25 0d 08  |redraw..... f%..|
00001510  f2 13 21 71 25 3d 44 75  63 6b 57 69 6e 64 6f 77  |..!q%=DuckWindow|
00001520  25 0d 08 fc 16 c8 99 20  26 34 30 30 43 38 2c 2c  |%...... &400C8,,|
00001530  71 25 20 b8 20 66 25 0d  09 06 0a 20 c8 95 20 66  |q% . f%.... .. f|
00001540  25 0d 09 10 16 20 20 f2  50 6c 6f 74 49 63 6f 6e  |%....  .PlotIcon|
00001550  28 49 25 2c 58 25 29 0d  09 1a 36 20 20 e7 20 62  |(I%,X%)...6  . b|
00001560  72 65 61 64 74 68 72 6f  77 6e 25 20 8c 20 f2 50  |readthrown% . .P|
00001570  6c 6f 74 49 63 6f 6e 28  53 70 72 69 74 65 54 6f  |lotIcon(SpriteTo|
00001580  74 61 6c 25 2c 62 72 65  61 64 58 25 29 0d 09 24  |tal%,breadX%)..$|
00001590  18 20 20 c8 99 20 26 34  30 30 43 41 2c 2c 71 25  |.  .. &400CA,,q%|
000015a0  20 b8 20 66 25 0d 09 2e  06 20 ce 0d 09 38 05 e1  | . f%.... ...8..|
000015b0  0d 09 42 05 3a 0d 09 4c  19 dd 20 f2 50 6c 6f 74  |..B.:..L.. .Plot|
000015c0  49 63 6f 6e 28 49 25 2c  78 70 6f 73 25 29 0d 09  |Icon(I%,xpos%)..|
000015d0  56 18 20 21 73 31 25 3d  78 70 6f 73 25 3a 73 31  |V. !s1%=xpos%:s1|
000015e0  25 21 34 3d 59 25 0d 09  60 3f 20 73 31 25 21 38  |%!4=Y%..`? s1%!8|
000015f0  3d 78 70 6f 73 25 2b 34  2b 28 77 69 64 74 68 25  |=xpos%+4+(width%|
00001600  28 49 25 29 3c 3c 31 29  3a 73 31 25 21 31 32 3d  |(I%)<<1):s1%!12=|
00001610  59 25 2b 34 2b 28 68 69  65 67 68 74 25 28 49 25  |Y%+4+(hieght%(I%|
00001620  29 3c 3c 32 29 0d 09 6a  16 20 73 31 25 21 32 30  |)<<2)..j. s1%!20|
00001630  3d 44 75 63 6b 73 25 28  49 25 29 0d 09 74 13 20  |=Ducks%(I%)..t. |
00001640  c8 99 20 26 34 30 30 45  32 2c 2c 73 31 25 0d 09  |.. &400E2,,s1%..|
00001650  7e 05 e1 0d 09 88 05 3a  0d 09 92 0b dd 20 f2 6d  |~......:..... .m|
00001660  6f 64 65 0d 09 9c 2a 21  71 25 3d 34 3a 71 25 21  |ode...*!q%=4:q%!|
00001670  34 3d 35 3a 71 25 21 38  3d 31 31 3a 71 25 21 31  |4=5:q%!8=11:q%!1|
00001680  32 3d 31 32 3a 71 25 21  31 36 3d 2d 31 0d 09 a6  |2=12:q%!16=-1...|
00001690  22 c8 99 20 22 4f 53 5f  52 65 61 64 56 64 75 56  |".. "OS_ReadVduV|
000016a0  61 72 69 61 62 6c 65 73  22 2c 71 25 2c 71 25 0d  |ariables",q%,q%.|
000016b0  09 b0 14 78 73 25 3d 21  71 25 3a 79 73 25 3d 71  |...xs%=!q%:ys%=q|
000016c0  25 21 34 0d 09 ba 26 52  25 3d 28 71 25 21 38 2b  |%!4...&R%=(q%!8+|
000016d0  31 29 3c 3c 78 73 25 3a  54 25 3d 28 71 25 21 31  |1)<<xs%:T%=(q%!1|
000016e0  32 2b 31 29 3c 3c 79 73  25 0d 09 c4 16 e7 20 78  |2+1)<<ys%..... x|
000016f0  72 25 3e 3d 52 25 20 8c  20 78 72 25 3d 52 25 0d  |r%>=R% . xr%=R%.|
00001700  09 ce 05 e1 0d 09 d8 05  3a 0d 09 e2 0b dd 20 f2  |........:..... .|
00001710  6f 70 65 6e 0d 09 ec 09  f2 6d 6f 64 65 0d 09 f6  |open.....mode...|
00001720  34 65 76 65 6e 74 25 21  34 3d 30 3a 65 76 65 6e  |4event%!4=0:even|
00001730  74 25 21 38 3d 42 25 3a  65 76 65 6e 74 25 21 31  |t%!8=B%:event%!1|
00001740  32 3d 52 25 3a 65 76 65  6e 74 25 21 31 36 3d 54  |2=R%:event%!16=T|
00001750  25 0d 0a 00 28 c8 99 20  22 57 69 6d 70 5f 53 65  |%...(.. "Wimp_Se|
00001760  74 45 78 74 65 6e 74 22  2c 21 65 76 65 6e 74 25  |tExtent",!event%|
00001770  2c 65 76 65 6e 74 25 2b  34 0d 0a 0a 20 c8 99 20  |,event%+4... .. |
00001780  22 57 69 6d 70 5f 4f 70  65 6e 57 69 6e 64 6f 77  |"Wimp_OpenWindow|
00001790  22 2c 2c 65 76 65 6e 74  25 0d 0a 14 05 e1 0d 0a  |",,event%.......|
000017a0  1e 05 3a 0d 0a 28 18 dd  20 f2 72 65 63 65 69 76  |..:..(.. .receiv|
000017b0  65 28 6d 65 73 73 61 67  65 25 29 0d 0a 32 29 ea  |e(message%)..2).|
000017c0  20 6d 79 5f 72 65 66 25  2c 20 74 79 70 65 24 2c  | my_ref%, type$,|
000017d0  20 6f 70 74 69 6f 6e 24  2c 20 49 25 2c 20 70 66  | option$, I%, pf|
000017e0  6c 61 67 25 0d 0a 3c 18  6d 79 5f 72 65 66 25 20  |lag%..<.my_ref% |
000017f0  3d 20 6d 65 73 73 61 67  65 25 21 38 0d 0a 46 14  |= message%!8..F.|
00001800  c8 8e 20 6d 65 73 73 61  67 65 25 21 31 36 20 ca  |.. message%!16 .|
00001810  0d 0a 50 08 20 c9 20 30  0d 0a 5a 10 20 20 f2 74  |..P. . 0..Z.  .t|
00001820  65 72 6d 69 6e 61 74 65  0d 0a 64 05 cb 0d 0a 6e  |erminate..d....n|
00001830  05 e1 0d 0a 78 05 3a 0d  0a 82 0b dd 20 f2 6d 65  |....x.:..... .me|
00001840  6e 75 0d 0a 8c 10 c8 8e  20 21 65 76 65 6e 74 25  |nu...... !event%|
00001850  20 ca 0d 0a 96 09 20 c9  20 30 3a 0d 0a a0 1b 20  | ..... . 0:.... |
00001860  20 51 75 61 63 6b 69 6e  67 25 3d ac 20 51 75 61  | Quacking%=. Qua|
00001870  63 6b 69 6e 67 25 0d 0a  aa 1b 20 20 6d 65 6e 75  |cking%....  menu|
00001880  25 21 32 38 3d 6d 65 6e  75 25 21 32 38 20 82 20  |%!28=menu%!28 . |
00001890  31 0d 0a b4 14 20 c9 20  31 3a 20 f2 74 65 72 6d  |1.... . 1: .term|
000018a0  69 6e 61 74 65 0d 0a be  05 cb 0d 0a c8 20 c8 99  |inate........ ..|
000018b0  20 22 57 69 6d 70 5f 47  65 74 50 6f 69 6e 74 65  | "Wimp_GetPointe|
000018c0  72 49 6e 66 6f 22 2c 2c  71 25 0d 0a d2 3c e7 20  |rInfo",,q%...<. |
000018d0  28 71 25 21 38 20 80 20  31 29 3d 31 20 8c 20 c8  |(q%!8 . 1)=1 . .|
000018e0  99 22 57 69 6d 70 5f 43  72 65 61 74 65 4d 65 6e  |."Wimp_CreateMen|
000018f0  75 22 2c 2c 6d 65 6e 75  25 2c 71 25 21 30 2d 36  |u",,menu%,q%!0-6|
00001900  34 2c 71 25 21 34 0d 0a  dc 05 e1 0d 0a e6 05 3a  |4,q%!4.........:|
00001910  0d 0a f0 0f dd f2 73 65  74 75 70 6d 65 6e 75 0d  |......setupmenu.|
00001920  0a fa 08 ea 20 6d 25 0d  0b 04 15 24 6d 65 6e 75  |.... m%....$menu|
00001930  25 3d 22 44 65 73 6b 44  75 63 6b 22 0d 0b 0e 0e  |%="DeskDuck"....|
00001940  6d 65 6e 75 25 3f 31 32  3d 37 0d 0b 18 0e 6d 65  |menu%?12=7....me|
00001950  6e 75 25 3f 31 33 3d 32  0d 0b 22 0e 6d 65 6e 75  |nu%?13=2..".menu|
00001960  25 3f 31 34 3d 37 0d 0b  2c 0e 6d 65 6e 75 25 3f  |%?14=7..,.menu%?|
00001970  31 35 3d 30 0d 0b 36 10  6d 65 6e 75 25 21 31 36  |15=0..6.menu%!16|
00001980  3d 31 32 38 0d 0b 40 0f  6d 65 6e 75 25 21 32 30  |=128..@.menu%!20|
00001990  3d 34 30 0d 0b 4a 0e 6d  65 6e 75 25 21 32 34 3d  |=40..J.menu%!24=|
000019a0  30 0d 0b 54 0f 6d 25 3d  6d 65 6e 75 25 2b 32 38  |0..T.m%=menu%+28|
000019b0  0d 0b 5e 0b 6d 25 21 30  3d 26 31 0d 0b 68 0a 6d  |..^.m%!0=&1..h.m|
000019c0  25 21 34 3d 30 0d 0b 72  18 6d 25 21 38 3d 28 37  |%!4=0..r.m%!8=(7|
000019d0  3c 3c 32 34 29 84 20 25  31 31 30 30 31 0d 0b 7c  |<<24). %11001..||
000019e0  17 24 28 6d 25 2b 31 32  29 3d 22 51 75 61 63 6b  |.$(m%+12)="Quack|
000019f0  69 6e 67 22 0d 0b 86 0c  6d 25 3d 6d 25 2b 32 34  |ing"....m%=m%+24|
00001a00  0d 0b 90 0c 6d 25 21 30  3d 26 38 30 0d 0b 9a 0a  |....m%!0=&80....|
00001a10  6d 25 21 34 3d 30 0d 0b  a4 18 6d 25 21 38 3d 28  |m%!4=0....m%!8=(|
00001a20  37 3c 3c 32 34 29 84 20  25 31 31 30 30 31 0d 0b  |7<<24). %11001..|
00001a30  ae 13 24 28 6d 25 2b 31  32 29 3d 22 51 75 69 74  |..$(m%+12)="Quit|
00001a40  22 0d 0b b8 05 e1 0d 0b  c2 05 3a 0d 0b cc 10 dd  |".........:.....|
00001a50  20 f2 74 65 72 6d 69 6e  61 74 65 0d 0b d6 16 c8  | .terminate.....|
00001a60  99 22 57 69 6d 70 5f 43  6c 6f 73 65 44 6f 77 6e  |."Wimp_CloseDown|
00001a70  22 0d 0b e0 05 e0 0d 0b  ea 05 3a 0d 0b f4 0f dd  |".........:.....|
00001a80  20 a4 72 74 6f 7a 28 73  25 29 0d 0b fe 08 ea 20  | .rtoz(s%)..... |
00001a90  6e 24 0d 0c 08 1a c8 95  3f 73 25 3a 6e 24 2b 3d  |n$......?s%:n$+=|
00001aa0  bd 3f 73 25 3a 73 25 2b  3d 31 3a ce 0d 0c 12 07  |.?s%:s%+=1:.....|
00001ab0  3d 6e 24 0d 0c 1c 05 3a  0d 0c 26 0c dd 20 f2 63  |=n$....:..&.. .c|
00001ac0  6c 6f 73 65 0d 0c 30 2d  21 71 25 3d 44 75 63 6b  |lose..0-!q%=Duck|
00001ad0  57 69 6e 64 6f 77 25 3a  c8 99 20 22 57 69 6d 70  |Window%:.. "Wimp|
00001ae0  5f 43 6c 6f 73 65 57 69  6e 64 6f 77 22 2c 2c 71  |_CloseWindow",,q|
00001af0  25 0d 0c 3a 05 e1 0d 0c  44 05 3a 0d 0c 4e 14 dd  |%..:....D.:..N..|
00001b00  20 f2 6d 6f 61 6e 28 72  65 70 6f 72 74 24 29 0d  | .moan(report$).|
00001b10  0c 58 14 85 20 26 32 30  30 30 30 2c 72 65 70 6f  |.X.. &20000,repo|
00001b20  72 74 24 0d 0c 62 05 3a  0d 0c 6c 1b dd 20 f2 65  |rt$..b.:..l.. .e|
00001b30  72 72 6f 72 28 65 72 72  25 2c 20 72 65 70 6f 72  |rror(err%, repor|
00001b40  74 24 29 0d 0c 76 09 ee  20 85 20 87 0d 0c 80 49  |t$)..v.. . ....I|
00001b50  e7 20 65 72 72 25 3c 26  31 30 31 30 30 20 84 20  |. err%<&10100 . |
00001b60  65 72 72 25 3e 26 32 30  30 30 30 20 8c 20 72 65  |err%>&20000 . re|
00001b70  70 6f 72 74 24 3d 72 65  70 6f 72 74 24 2b 22 20  |port$=report$+" |
00001b80  69 6e 74 65 72 6e 61 6c  20 65 72 72 6f 72 20 22  |internal error "|
00001b90  2b c3 28 9e 29 0d 0c 8a  16 21 65 72 72 6f 72 5f  |+.(.)....!error_|
00001ba0  62 6c 6b 25 20 3d 20 65  72 72 25 0d 0c 94 1b 24  |blk% = err%....$|
00001bb0  28 65 72 72 6f 72 5f 62  6c 6b 25 2b 34 29 3d 72  |(error_blk%+4)=r|
00001bc0  65 70 6f 72 74 24 0d 0c  9e 21 f2 7a 65 72 6f 5f  |eport$...!.zero_|
00001bd0  74 65 72 6d 69 6e 61 74  65 28 65 72 72 6f 72 5f  |terminate(error_|
00001be0  62 6c 6b 25 2b 34 29 0d  0c a8 34 c8 99 20 22 57  |blk%+4)...4.. "W|
00001bf0  69 6d 70 5f 52 65 70 6f  72 74 45 72 72 6f 72 22  |imp_ReportError"|
00001c00  2c 20 65 72 72 6f 72 5f  62 6c 6b 25 2c 20 31 2c  |, error_blk%, 1,|
00001c10  20 22 44 65 73 6b 44 75  63 6b 22 0d 0c b2 05 e1  | "DeskDuck".....|
00001c20  0d 0c bc 05 3a 0d 0c c6  18 dd f2 7a 65 72 6f 5f  |....:......zero_|
00001c30  74 65 72 6d 69 6e 61 74  65 28 53 25 29 0d 0c d0  |terminate(S%)...|
00001c40  0f 53 25 3f a9 24 53 25  20 3d 20 30 0d 0c da 05  |.S%?.$S% = 0....|
00001c50  e1 0d ff                                          |...|
00001c53

© Dominic Ford 2021–2025.

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