!DeadDuck/!RunImage

Home » Archimedes archive » Micro User » MU 1991-11.adf » PD-stuff » !DeadDuck/!RunImage

!DeadDuck/!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-11.adf » PD-stuff
Filename:	!DeadDuck/!RunImage
Read OK:	✔
File size:	21A6 bytes
Load address:	0000
Exec address:	0000

File contents

   10REM >!RunImage
   20REM DeadDuck 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
   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% AND TIME>dontdisplay% THEN
  250           CASE event%!8 OF
  260             WHEN 4,1:  IF (event%!0>=X%) AND (event%!0<=X%+(width%(LastDuck%)<<1)+4) AND (event%!4>=Y%) AND (event%!4<=Y%+(hieght%(LastDuck%)<<2)+4) THEN
  270                      PROCShoot
  280                      ELSE
  290                         IF event%!4 < (B%+64) AND NOT breadthrown% THEN
  300                            breadthrown%=TRUE
  310                            breadX%=!event%
  320                            downstream%=(breadX%<=X%)
  330                            PROCbreadthrow(SpriteTotal%,breadX%)
  340                         ENDIF
  350                     ENDIF
  360             WHEN 2: SYS &400D4,,menu%,event%!0-64,event%!4
  370           ENDCASE
  380          ENDIF
  390  WHEN 9: PROCmenu
  400  WHEN 17,18:PROCreceive(event%)
  410  ENDCASE
  420 ENDIF
  430ENDPROC
  440:
  450DEF PROCinit
  460LOCAL ERROR
  470ST%=TIME
  480VOICES 2
  490DuckMax%=32
  500dontdisplay%=0
  510SpriteTotal%=51
  520Quacking%=TRUE:breadthrown%=FALSE:breadX%=0:downstream%=FALSE
  530OS_SpriteOp%=&2E
  540newpointer=FALSE
  550DIM Ducks%(SpriteTotal%),width%(SpriteTotal%),hieght%(SpriteTotal%)
  560DIM q1% &800, q% &800, event% &800, error_blk% 256,menu% 128, s1% 32
  570bufsz%=256
  580poll_mask% = NOT(&6004F)
  590DIM taskid% 5: $taskid%="TASK"
  600SYS "Wimp_Initialise",200,!taskid%,"DeadDuck" TO ,task_handle%
  610ON ERROR LOCAL PROCerror(ERR, REPORT$):PROCterminate
  620LOCAL ERROR
  630N%=2
  640xr%=0
  650PROCmode
  660B%=136
  670p%=q%+4
  680!p%=0:p%!4=B%:p%!8=R%:p%!12=T%
  690p%!16=0:p%!20=T%
  700p%!24=-2:p%!28=&8C0:p%!32=&4040407:p%!36=0
  710p%!40=0:p%!44=B%:p%!48=R%:p%!52=T%
  720FOR I%=56 TO 87:p%?I%=0:NEXT
  730p%!60=&3000
  740SYS "Wimp_CreateWindow",,p% TO DuckWindow%
  750!q%=DuckWindow%
  760SYS "Wimp_OpenWindow",,q%
  770PROCLoadducks
  780PROCsetupmenu
  790s1%!16=&40000102:s1%!24=sar%:s1%!28=0
  800I%=1
  810xr%=R%>>1:dx%=8:count%=1
  820X%=FNMoveDuck
  830Y%=B%
  840LastX%=xr%:LastDuck%=1
  850ENDPROC
  870DEFPROCLoadducks
  880LOCAL saddr%
  890REM get file size
  900A%=OPENIN"<DeskDuck$Dir>.SpriteFile":sz%=EXT#A%:CLOSE#A%
  920REM make a sprite area
  930DIM sar% 100+sz%
  940!sar%=100+sz%:sar%!4=0
  950sar%!8=16:sar%!12=16
  960SYS OS_SpriteOp%,&109,sar%
  980REM load sprite file into it
  990SYS OS_SpriteOp%,&10A,sar%,"<DeskDuck$Dir>.SpriteFile"
 1000REM get addresses of the duck sprites
 1010FOR L%=1 TO SpriteTotal%
 1020   SYS OS_SpriteOp%,&118,sar%,"duck"+STR$(L%) TO,,saddr%
 1030   Ducks%(L%)=saddr%
 1040   width%(L%)=(((saddr%!16)+1)*8)-(saddr%!24>>2)-(7-(saddr%!28>>2))
 1050   hieght%(L%)=saddr%!20
 1060NEXTL%
 1070ENDPROC
 1090DEF PROCnull
 1100 X%=FNMoveDuck
 1110 REM Erase old duck
 1120 GCOL 0,11
 1130 REM Look for rectangles
 1140 IF (X%>LastX%) THEN
 1150    !q%=DuckWindow%
 1160    q%!4=LastX%:q%!12=X%
 1170    q%!8=Y%:q%!16=Y%+(hieght%(LastDuck%)<<2)+4
 1180    REM Go for erase rectangles
 1190    SYS &400C9,,q% TO f%
 1200    IF f% THEN
 1210     WHILE f%
 1220      RECTANGLE FILL q%!28,q%!32,q%!36-q%!28,q%!40-q%!32
 1230      SYS &400CA,,q% TO f%
 1240     ENDWHILE
 1250    ENDIF
 1260 ENDIF
 1270 r1%=X%+(width%(I%)<<1)
 1280 r2%=LastX%+(width%(LastDuck%)<<1)
 1290 IF (r1%<r2%)
 1300    !q%=DuckWindow%
 1310    q%!4=r1%:q%!12=r2%
 1320    q%!8=Y%:q%!16=Y%+(hieght%(LastDuck%)<<2)+4
 1330    REM Go for erase rectangles
 1340    SYS &400C9,,q% TO f%
 1350    IF f% THEN
 1360     WHILE f%
 1370      RECTANGLE FILL q%!28,q%!32,q%!36-q%!28,q%!40-q%!32
 1380      SYS &400CA,,q% TO f%
 1390     ENDWHILE
 1400    ENDIF
 1410 ENDIF
 1420 LastX%=X%
 1430 LastDuck%=I%
 1450 IF TIME>dontdisplay% THEN
 1470   REM Paint new duck
 1480   q%!4=X%:q%!12=X%+(width%(I%)<<1)+4
 1490   q%!8=Y%:q%!16=Y%+(hieght%(I%)<<2)+4
 1500 
 1510   SYS &400C9,,q% TO f%
 1520   IF f% THEN
 1530    WHILE f%
 1540     PROCPlotIcon(I%,X%)
 1550     SYS &400CA,,q% TO f%
 1560    ENDWHILE
 1570   ENDIF
 1590 ENDIF
 1610 IF breadthrown% THEN PROCbreadthrow(SpriteTotal%,breadX%)
 1630 IF TIME<dontdisplay% ENDPROC
 1650 REM Chk if pointer over the duck.
 1660 
 1670 SYS &400CF,,q1%
 1690 IF (!q1%>=X%) AND (!q1%<=X%+(width%(I%)<<1)+4) AND (q1%!4>=Y%) AND (q1%!4<=Y%+(hieght%(I%)<<2)+4) AND (q1%!12=DuckWindow%) THEN
 1700     IF (NOT newpointer) THEN
 1710        newpointer=TRUE
 1720        SYS OS_SpriteOp%,&124,sar%,"kill0",2,5,5,0,0
 1730     ENDIF
 1740 ELSE
 1750     IF (newpointer) THEN
 1760        newpointer=FALSE
 1770        SYS &400e9,&24,,"ptr_default",1,0,0,0,0
 1780     ENDIF
 1790 ENDIF
 1800 
 1810 
 1820ENDPROC
 1830:
 1840DEF FNMoveDuck
 1850LOCAL xa%
 1860xr%+=dx%:xa%=xr%
 1870CASE I% OF
 1880 WHEN 1:
 1890   IF breadthrown% AND NOT downstream% THEN
 1900      I%=37:dx%=16
 1910      ELSE
 1920    IF ((breadthrown% AND downstream%) OR ((xr%>R%-200) OR RND(1)<.03)) AND count%<=0 THEN
 1930      radius%=RND(1)*100+50:dx%=0:I%=I%+1:count%=4
 1940      ELSE
 1950      count%-=1
 1960      IF RND(1)>.97 I%=33:count%=8:dx%=4
 1970      IF RND(1)>.97 AND Quacking% THEN I%=36:count%=8:dx%=8
 1980    ENDIF
 1990   ENDIF
 2000 WHEN 16:
 2010   IF breadthrown% AND downstream% THEN
 2020      I%=38:dx%=-16
 2030      ELSE
 2040    IF  ((breadthrown% AND NOT downstream%) OR ((xr%<150) OR RND(1)<.03)) AND count%<=0 THEN
 2050      radius%=RND(1)*100+50:dx%=0:I%=I%+1:count%=4
 2060      ELSE
 2070      count%-=1
 2080      IF RND(1)>.97 AND Quacking% THEN I%=35:count%=8:dx%=-8
 2090    ENDIF
 2100   ENDIF
 2110 WHEN 33:
 2120   count%-=1
 2130   IF count%=0 THEN I%=34:count%=4:dx%=8
 2140 WHEN 34:
 2150   count%-=1
 2160   IF count%=0 THEN I%=1:dx%=8
 2170 WHEN 35:
 2180   IF (count%=8) AND (TIME>dontdisplay%) THEN SOUND 2,-15,7200,20
 2190   count%-=1
 2200   IF count%=0 THEN I%=16:dx%=-8
 2210 WHEN 36:
 2220   IF (count%=8) AND (TIME>dontdisplay%) THEN SOUND 2,-15,7200,20
 2230   count%-=1
 2240   IF count%=0 THEN I%=1:dx%=8
 2250 WHEN 37:
 2260    IF (X%+(width%(I%)<<1))>=breadX% THEN breadthrown%=FALSE:I%=39:count%=4:dx%=8
 2270 WHEN 38:
 2280    IF X%<=(breadX%+(width%(SpriteTotal%)<<1)) THEN breadthrown%=FALSE:I%=40:count%=4:dx%=-8
 2290 WHEN 39:
 2300   count%-=1
 2310   IF count%=0 THEN I%=1:dx%=8
 2320 WHEN 40:
 2330   count%-=1
 2340   IF count%=0 THEN I%=16:dx%=-8
 2350 OTHERWISE
 2360   count%-=1
 2370   xa%=xr%+SIN(((I%<<1)-count%)*PI/32)*radius%
 2380   IF count%=0 THEN
 2390      count%=2
 2400      I%+=1
 2410      IF I%>DuckMax% THEN I%=1:dx%=8:count%=20
 2420      IF I%=16 THEN dx%=-8:count%=20
 2430   ENDIF
 2440ENDCASE
 2450=xa%
 2470DEF PROCbreadthrow(I%,X%)
 2480 q%!4=X%:q%!12=X%+(width%(I%)<<1)+4
 2490 q%!8=Y%:q%!16=Y%+(hieght%(I%)<<2)+4
 2500 SYS &400C9,,q% TO f%
 2510 IF f% THEN
 2520  WHILE f%
 2530   PROCPlotIcon(I%,X%)
 2540   SYS &400CA,,q% TO f%
 2550  ENDWHILE
 2560 ENDIF
 2570ENDPROC
 2590DEF PROCredraw
 2600LOCAL f%
 2610!q%=DuckWindow%
 2620SYS &400C8,,q% TO f%
 2630 WHILE f%
 2640  IF TIME>dontdisplay% PROCPlotIcon(I%,X%)
 2650  IF breadthrown% THEN PROCPlotIcon(SpriteTotal%,breadX%)
 2660  SYS &400CA,,q% TO f%
 2670 ENDWHILE
 2680ENDPROC
 2690:
 2700DEF PROCPlotIcon(I%,xpos%)
 2710 !s1%=xpos%:s1%!4=Y%
 2720 s1%!8=xpos%+4+(width%(I%)<<1):s1%!12=Y%+4+(hieght%(I%)<<2)
 2730 s1%!20=Ducks%(I%)
 2740 SYS &400E2,,s1%
 2750ENDPROC
 2760:
 2770DEF PROCmode
 2780!q%=4:q%!4=5:q%!8=11:q%!12=12:q%!16=-1
 2790SYS "OS_ReadVduVariables",q%,q%
 2800xs%=!q%:ys%=q%!4
 2810R%=(q%!8+1)<<xs%:T%=(q%!12+1)<<ys%
 2820IF xr%>=R% THEN xr%=R%
 2830ENDPROC
 2840:
 2850DEF PROCopen
 2860PROCmode
 2870event%!4=0:event%!8=B%:event%!12=R%:event%!16=T%
 2880SYS "Wimp_SetExtent",!event%,event%+4
 2890SYS "Wimp_OpenWindow",,event%
 2900ENDPROC
 2910:
 2920DEF PROCreceive(message%)
 2930LOCAL my_ref%, type$, option$, I%, pflag%
 2940my_ref% = message%!8
 2950CASE message%!16 OF
 2960 WHEN 0
 2970  PROCterminate
 2980ENDCASE
 2990ENDPROC
 3000:
 3010DEF PROCmenu
 3020CASE !event% OF
 3030 WHEN 0:
 3040  Quacking%=NOT Quacking%
 3050  menu%!28=menu%!28 EOR 1
 3060 WHEN 1: PROCterminate
 3070ENDCASE
 3080SYS "Wimp_GetPointerInfo",,q%
 3090IF (q%!8 AND 1)=1 THEN SYS"Wimp_CreateMenu",,menu%,q%!0-64,q%!4
 3100ENDPROC
 3110:
 3120DEFPROCsetupmenu
 3130LOCAL m%
 3140$menu%="DeskDuck"
 3150menu%?12=7
 3160menu%?13=2
 3170menu%?14=7
 3180menu%?15=0
 3190menu%!16=128
 3200menu%!20=40
 3210menu%!24=0
 3220m%=menu%+28
 3230m%!0=&1
 3240m%!4=0
 3250m%!8=(7<<24)OR %11001
 3260$(m%+12)="Quacking"
 3270m%=m%+24
 3280m%!0=&80
 3290m%!4=0
 3300m%!8=(7<<24)OR %11001
 3310$(m%+12)="Quit"
 3320ENDPROC
 3330:
 3340DEF PROCterminate
 3350SYS"Wimp_CloseDown"
 3360END
 3370:
 3380DEF FNrtoz(s%)
 3390LOCAL n$
 3400WHILE?s%:n$+=CHR$?s%:s%+=1:ENDWHILE
 3410=n$
 3420:
 3430DEF PROCclose
 3440!q%=DuckWindow%:SYS "Wimp_CloseWindow",,q%
 3450ENDPROC
 3460:
 3470DEF PROCmoan(report$)
 3480ERROR &20000,report$
 3490:
 3500DEF PROCerror(err%, report$)
 3510ON ERROR OFF
 3520IF err%<&10100 OR err%>&20000 THEN report$=report$+" internal error "+STR$(ERL)
 3530!error_blk% = err%
 3540$(error_blk%+4)=report$
 3550PROCzero_terminate(error_blk%+4)
 3560SYS "Wimp_ReportError", error_blk%, 1, "DeskDuck"
 3570ENDPROC
 3580:
 3590DEFPROCzero_terminate(S%)
 3600S%?LEN$S% = 0
 3610ENDPROC
 3630DEF PROCShoot
 3640 
 3650 LOCAL J%,T%,S%
 3670 FOR J%=1 TO 3
 3680     SOUND 2,-15,5000,20,J%*5
 3690 NEXT
 3710 IF (dx%>0) THEN S%=40 ELSE S%=45
 3730 FOR J%=1 TO 5
 3750 REM Paint new duck
 3770 q%!4=X%:q%!12=X%+(width%(J%+S%)<<1)+4
 3780 q%!8=Y%:q%!16=Y%+(hieght%(J%+S%)<<2)+4
 3790 
 3800 SYS &400C9,,q% TO f%
 3810 IF f% THEN
 3820  WHILE f%
 3830   PROCPlotIcon(S%+J%,X%)
 3840   SYS &400CA,,q% TO f%
 3850  ENDWHILE
 3860 ENDIF
 3880  T%=TIME:REPEAT UNTIL TIME-T%>3
 3900 NEXT
 3920 newpointer=FALSE
 3930 SYS &400e9,&24,,"ptr_default",1,0,0,0,0
 3940 
 3950 T%=TIME:REPEAT UNTIL TIME-T%>50
 3970 dontdisplay%=TIME+1
 3990ENDPROC


� >!RunImage
%� DeadDuck 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
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%)
�5  � 6: � event%!12=DuckWindow% � �>dontdisplay% �
�           Ȏ event%!8 �
�             � 4,1:  � (event%!0>=X%) � (event%!0<=X%+(width%(LastDuck%)<<1)+4) � (event%!4>=Y%) � (event%!4<=Y%+(hieght%(LastDuck%)<<2)+4) �
                       �Shoot
                      �
"D                         � event%!4 < (B%+64) � � breadthrown% �
,.                            breadthrown%=�
6/                            breadX%=!event%
@9                            downstream%=(breadX%<=X%)
JA                            �breadthrow(SpriteTotal%,breadX%)
T                         �
^                     �
h;             � 2: ș &400D4,,menu%,event%!0-64,event%!4
r           �
|          �
�  � 9: �menu
�  � 17,18:�receive(event%)
�  �
� �
��
�:
�� �init
�� �
�	ST%=�
�Ƞ 2
�DuckMax%=32
�dontdisplay%=0
�SpriteTotal%=51
6Quacking%=�:breadthrown%=�:breadX%=0:downstream%=�
OS_SpriteOp%=&2E
newpointer=�
&E� Ducks%(SpriteTotal%),width%(SpriteTotal%),hieght%(SpriteTotal%)
0F� q1% &800, q% &800, event% &800, error_blk% 256,menu% 128, s1% 32
:bufsz%=256
Dpoll_mask% = �(&6004F)
N � taskid% 5: $taskid%="TASK"
X@ș "Wimp_Initialise",200,!taskid%,"DeadDuck" � ,task_handle%
b"� � � �error(�, �$):�terminate
l� �
vN%=2
�	xr%=0
�	�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:�
�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
4X%=�MoveDuck
>	Y%=B%
HLastX%=xr%:LastDuck%=1
R�
f��Loadducks
p� saddr%
z� get file size
�1A%=�"<DeskDuck$Dir>.SpriteFile":sz%=�#A%:�#A%
�� make a sprite area
�� sar% 100+sz%
�!sar%=100+sz%:sar%!4=0
�sar%!8=16:sar%!12=16
�ș 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%
.�
B� �null
L X%=�MoveDuck
V � Erase old duck
` � 0,11
j � Look for rectangles
t � (X%>LastX%) �
~    !q%=DuckWindow%
�    q%!4=LastX%:q%!12=X%
�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%
�
     �
�	    �
� �
� 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
2!    � Go for erase rectangles
<    ș &400C9,,q% � f%
F    � f% �
P     ȕ f%
Z3      ȓ Ȑ q%!28,q%!32,q%!36-q%!28,q%!40-q%!32
d      ș &400CA,,q% � f%
n
     �
x	    �
� �
� LastX%=X%
� LastDuck%=I%
� � �>dontdisplay% �
�   � Paint new duck
�)   q%!4=X%:q%!12=X%+(width%(I%)<<1)+4
�*   q%!8=Y%:q%!16=Y%+(hieght%(I%)<<2)+4
� 
�   ș &400C9,,q% � f%
�
   � f% �
�
    ȕ f%
     �PlotIcon(I%,X%)
     ș &400CA,,q% � f%
	    �
"   �
6 �
J7 � breadthrown% � �breadthrow(SpriteTotal%,breadX%)
^ � �<dontdisplay% �
r$ � Chk if pointer over the duck.
| 
� ș &400CF,,q1%
�x � (!q1%>=X%) � (!q1%<=X%+(width%(I%)<<1)+4) � (q1%!4>=Y%) � (q1%!4<=Y%+(hieght%(I%)<<2)+4) � (q1%!12=DuckWindow%) �
�     � (� newpointer) �
�        newpointer=�
�7        ș OS_SpriteOp%,&124,sar%,"kill0",2,5,5,0,0
�
     �
� �
�     � (newpointer) �
�        newpointer=�
�2        ș &400e9,&24,,"ptr_default",1,0,0,0,0
�
     �
� �
 
 
�
&:
0� �MoveDuck
:	� xa%
Dxr%+=dx%:xa%=xr%
NȎ I% �
X	 � 1:
b'   � breadthrown% � � downstream% �
l      I%=37:dx%=16
v      �
�R    � ((breadthrown% � downstream%) � ((xr%>R%-200) � �(1)<.03)) � count%<=0 �
�4      radius%=�(1)*100+50:dx%=0:I%=I%+1:count%=4
�      �
�      count%-=1
�)      � �(1)>.97 I%=33:count%=8:dx%=4
�7      � �(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
*	    �
4   �
>
 � 33:
H   count%-=1
R(   � count%=0 � I%=34:count%=4:dx%=8
\
 � 34:
f   count%-=1
p   � count%=0 � I%=1:dx%=8
z
 � 35:
�8   � (count%=8) � (�>dontdisplay%) � � 2,-15,7200,20
�   count%-=1
�    � count%=0 � I%=16:dx%=-8
�
 � 36:
�8   � (count%=8) � (�>dontdisplay%) � � 2,-15,7200,20
�   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
	. 
	8   count%-=1
	B/   xa%=xr%+�(((I%<<1)-count%)*�/32)*radius%
	L   � count%=0 �
	V      count%=2
	`      I%+=1
	j.      � I%>DuckMax% � I%=1:dx%=8:count%=20
	t$      � I%=16 � dx%=-8:count%=20
	~   �
	��
	�=xa%
	�� �breadthrow(I%,X%)
	�' q%!4=X%:q%!12=X%+(width%(I%)<<1)+4
	�( q%!8=Y%:q%!16=Y%+(hieght%(I%)<<2)+4
	� ș &400C9,,q% � f%
	� � f% �
	�  ȕ f%
	�   �PlotIcon(I%,X%)
	�   ș &400CA,,q% � f%
	�  �
 �

�

� �redraw
(� f%
2!q%=DuckWindow%
<ș &400C8,,q% � f%
F
 ȕ f%
P'  � �>dontdisplay% �PlotIcon(I%,X%)
Z6  � breadthrown% � �PlotIcon(SpriteTotal%,breadX%)
d  ș &400CA,,q% � f%
n �
x�
�:
�� �PlotIcon(I%,xpos%)
� !s1%=xpos%:s1%!4=Y%
�? s1%!8=xpos%+4+(width%(I%)<<1):s1%!12=Y%+4+(hieght%(I%)<<2)
� s1%!20=Ducks%(I%)
� ș &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
64event%!4=0:event%!8=B%:event%!12=R%:event%!16=T%
@(ș "Wimp_SetExtent",!event%,event%+4
J ș "Wimp_OpenWindow",,event%
T�
^:
h� �receive(message%)
r)� my_ref%, type$, option$, I%, pflag%
|my_ref% = message%!8
�Ȏ message%!16 �
� � 0
�  �terminate
��
��
�:
�� �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
�
&:
0��setupmenu
:� m%
D$menu%="DeskDuck"
Nmenu%?12=7
Xmenu%?13=2
bmenu%?14=7
lmenu%?15=0
vmenu%!16=128
�menu%!20=40
�menu%!24=0
�m%=menu%+28
�m%!0=&1
�
m%!4=0
�m%!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"

 �

*:

4� �rtoz(s%)

>� n$

Hȕ?s%:n$+=�?s%:s%+=1:�

R=n$

\:

f� �close

p-!q%=DuckWindow%:ș "Wimp_CloseWindow",,q%

z�

�:

�� �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)

�4ș "Wimp_ReportError", error_blk%, 1, "DeskDuck"

��

�:
��zero_terminate(S%)
S%?�$S% = 0
�
.� �Shoot
8 
B � J%,T%,S%
V � J%=1 � 3
`     � 2,-15,5000,20,J%*5
j �
~ � (dx%>0) � S%=40 � S%=45
� � J%=1 � 5
� � Paint new duck
�* q%!4=X%:q%!12=X%+(width%(J%+S%)<<1)+4
�+ q%!8=Y%:q%!16=Y%+(hieght%(J%+S%)<<2)+4
� 
� ș &400C9,,q% � f%
� � f% �
�  ȕ f%
�   �PlotIcon(S%+J%,X%)
   ș &400CA,,q% � f%

  �
 �
(  T%=�:� � �-T%>3
< �
P newpointer=�
Z+ ș &400e9,&24,,"ptr_default",1,0,0,0,0
d 
n T%=�:� � �-T%>50
� dontdisplay%=�+1
��
�

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  61 64 44 75 63 6b 20 76  |...%. DeadDuck 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 5a 09  f2 69 6e 69 74 0d 00 64  |5/90..Z..init..d|
00000110  26 f4 20 73 65 74 20 75  70 20 74 68 65 20 64 65  |&. set up the de|
00000120  66 61 75 6c 74 20 65 72  72 6f 72 20 68 61 6e 64  |fault error hand|
00000130  6c 65 72 0d 00 6e 14 ee  20 85 20 f2 65 72 72 6f  |ler..n.. . .erro|
00000140  72 28 9f 2c f6 24 29 0d  00 78 05 f5 0d 00 82 2f  |r(.,.$)..x...../|
00000150  20 c8 99 20 22 57 69 6d  70 5f 50 6f 6c 6c 22 2c  | .. "Wimp_Poll",|
00000160  70 6f 6c 6c 5f 6d 61 73  6b 25 2c 65 76 65 6e 74  |poll_mask%,event|
00000170  25 20 b8 20 61 63 74 69  6f 6e 25 0d 00 8c 13 20  |% . action%.... |
00000180  f2 64 65 73 70 61 74 63  68 5f 70 6f 6c 6c 0d 00  |.despatch_poll..|
00000190  96 07 fd 20 a3 0d 00 a0  05 e0 0d 00 aa 05 3a 0d  |... ..........:.|
000001a0  00 b4 13 dd f2 64 65 73  70 61 74 63 68 5f 70 6f  |.....despatch_po|
000001b0  6c 6c 0d 00 be 11 20 c8  8e 20 61 63 74 69 6f 6e  |ll.... .. action|
000001c0  25 20 ca 0d 00 c8 10 20  20 c9 20 30 3a 20 f2 6e  |% .....  . 0: .n|
000001d0  75 6c 6c 0d 00 d2 12 20  20 c9 20 31 3a 20 f2 72  |ull....  . 1: .r|
000001e0  65 64 72 61 77 0d 00 dc  10 20 20 c9 20 32 3a 20  |edraw....  . 2: |
000001f0  f2 6f 70 65 6e 0d 00 e6  1a 20 20 c9 20 33 3a 20  |.open....  . 3: |
00000200  f2 63 6c 6f 73 65 28 21  65 76 65 6e 74 25 29 0d  |.close(!event%).|
00000210  00 f0 35 20 20 c9 20 36  3a 20 e7 20 65 76 65 6e  |..5  . 6: . even|
00000220  74 25 21 31 32 3d 44 75  63 6b 57 69 6e 64 6f 77  |t%!12=DuckWindow|
00000230  25 20 80 20 91 3e 64 6f  6e 74 64 69 73 70 6c 61  |% . .>dontdispla|
00000240  79 25 20 8c 0d 00 fa 1c  20 20 20 20 20 20 20 20  |y% .....        |
00000250  20 20 20 c8 8e 20 65 76  65 6e 74 25 21 38 20 ca  |   .. event%!8 .|
00000260  0d 01 04 91 20 20 20 20  20 20 20 20 20 20 20 20  |....            |
00000270  20 c9 20 34 2c 31 3a 20  20 e7 20 28 65 76 65 6e  | . 4,1:  . (even|
00000280  74 25 21 30 3e 3d 58 25  29 20 80 20 28 65 76 65  |t%!0>=X%) . (eve|
00000290  6e 74 25 21 30 3c 3d 58  25 2b 28 77 69 64 74 68  |nt%!0<=X%+(width|
000002a0  25 28 4c 61 73 74 44 75  63 6b 25 29 3c 3c 31 29  |%(LastDuck%)<<1)|
000002b0  2b 34 29 20 80 20 28 65  76 65 6e 74 25 21 34 3e  |+4) . (event%!4>|
000002c0  3d 59 25 29 20 80 20 28  65 76 65 6e 74 25 21 34  |=Y%) . (event%!4|
000002d0  3c 3d 59 25 2b 28 68 69  65 67 68 74 25 28 4c 61  |<=Y%+(hieght%(La|
000002e0  73 74 44 75 63 6b 25 29  3c 3c 32 29 2b 34 29 20  |stDuck%)<<2)+4) |
000002f0  8c 0d 01 0e 20 20 20 20  20 20 20 20 20 20 20 20  |....            |
00000300  20 20 20 20 20 20 20 20  20 20 20 f2 53 68 6f 6f  |           .Shoo|
00000310  74 0d 01 18 1b 20 20 20  20 20 20 20 20 20 20 20  |t....           |
00000320  20 20 20 20 20 20 20 20  20 20 20 cc 0d 01 22 44  |           ..."D|
00000330  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000340  20 20 20 20 20 20 20 20  20 e7 20 65 76 65 6e 74  |         . event|
00000350  25 21 34 20 3c 20 28 42  25 2b 36 34 29 20 80 20  |%!4 < (B%+64) . |
00000360  ac 20 62 72 65 61 64 74  68 72 6f 77 6e 25 20 8c  |. breadthrown% .|
00000370  0d 01 2c 2e 20 20 20 20  20 20 20 20 20 20 20 20  |..,.            |
00000380  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000390  62 72 65 61 64 74 68 72  6f 77 6e 25 3d b9 0d 01  |breadthrown%=...|
000003a0  36 2f 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |6/              |
000003b0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 62 72  |              br|
000003c0  65 61 64 58 25 3d 21 65  76 65 6e 74 25 0d 01 40  |eadX%=!event%..@|
000003d0  39 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |9               |
000003e0  20 20 20 20 20 20 20 20  20 20 20 20 20 64 6f 77  |             dow|
000003f0  6e 73 74 72 65 61 6d 25  3d 28 62 72 65 61 64 58  |nstream%=(breadX|
00000400  25 3c 3d 58 25 29 0d 01  4a 41 20 20 20 20 20 20  |%<=X%)..JA      |
00000410  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000420  20 20 20 20 20 20 f2 62  72 65 61 64 74 68 72 6f  |      .breadthro|
00000430  77 28 53 70 72 69 74 65  54 6f 74 61 6c 25 2c 62  |w(SpriteTotal%,b|
00000440  72 65 61 64 58 25 29 0d  01 54 1e 20 20 20 20 20  |readX%)..T.     |
00000450  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000460  20 20 20 20 cd 0d 01 5e  1a 20 20 20 20 20 20 20  |    ...^.       |
00000470  20 20 20 20 20 20 20 20  20 20 20 20 20 20 cd 0d  |              ..|
00000480  01 68 3b 20 20 20 20 20  20 20 20 20 20 20 20 20  |.h;             |
00000490  c9 20 32 3a 20 c8 99 20  26 34 30 30 44 34 2c 2c  |. 2: .. &400D4,,|
000004a0  6d 65 6e 75 25 2c 65 76  65 6e 74 25 21 30 2d 36  |menu%,event%!0-6|
000004b0  34 2c 65 76 65 6e 74 25  21 34 0d 01 72 10 20 20  |4,event%!4..r.  |
000004c0  20 20 20 20 20 20 20 20  20 cb 0d 01 7c 0f 20 20  |         ...|.  |
000004d0  20 20 20 20 20 20 20 20  cd 0d 01 86 10 20 20 c9  |        .....  .|
000004e0  20 39 3a 20 f2 6d 65 6e  75 0d 01 90 1e 20 20 c9  | 9: .menu....  .|
000004f0  20 31 37 2c 31 38 3a f2  72 65 63 65 69 76 65 28  | 17,18:.receive(|
00000500  65 76 65 6e 74 25 29 0d  01 9a 07 20 20 cb 0d 01  |event%)....  ...|
00000510  a4 06 20 cd 0d 01 ae 05  e1 0d 01 b8 05 3a 0d 01  |.. ..........:..|
00000520  c2 0b dd 20 f2 69 6e 69  74 0d 01 cc 07 ea 20 85  |... .init..... .|
00000530  0d 01 d6 09 53 54 25 3d  91 0d 01 e0 08 c8 a0 20  |....ST%=....... |
00000540  32 0d 01 ea 0f 44 75 63  6b 4d 61 78 25 3d 33 32  |2....DuckMax%=32|
00000550  0d 01 f4 12 64 6f 6e 74  64 69 73 70 6c 61 79 25  |....dontdisplay%|
00000560  3d 30 0d 01 fe 13 53 70  72 69 74 65 54 6f 74 61  |=0....SpriteTota|
00000570  6c 25 3d 35 31 0d 02 08  36 51 75 61 63 6b 69 6e  |l%=51...6Quackin|
00000580  67 25 3d b9 3a 62 72 65  61 64 74 68 72 6f 77 6e  |g%=.:breadthrown|
00000590  25 3d a3 3a 62 72 65 61  64 58 25 3d 30 3a 64 6f  |%=.:breadX%=0:do|
000005a0  77 6e 73 74 72 65 61 6d  25 3d a3 0d 02 12 14 4f  |wnstream%=.....O|
000005b0  53 5f 53 70 72 69 74 65  4f 70 25 3d 26 32 45 0d  |S_SpriteOp%=&2E.|
000005c0  02 1c 10 6e 65 77 70 6f  69 6e 74 65 72 3d a3 0d  |...newpointer=..|
000005d0  02 26 45 de 20 44 75 63  6b 73 25 28 53 70 72 69  |.&E. Ducks%(Spri|
000005e0  74 65 54 6f 74 61 6c 25  29 2c 77 69 64 74 68 25  |teTotal%),width%|
000005f0  28 53 70 72 69 74 65 54  6f 74 61 6c 25 29 2c 68  |(SpriteTotal%),h|
00000600  69 65 67 68 74 25 28 53  70 72 69 74 65 54 6f 74  |ieght%(SpriteTot|
00000610  61 6c 25 29 0d 02 30 46  de 20 71 31 25 20 26 38  |al%)..0F. q1% &8|
00000620  30 30 2c 20 71 25 20 26  38 30 30 2c 20 65 76 65  |00, q% &800, eve|
00000630  6e 74 25 20 26 38 30 30  2c 20 65 72 72 6f 72 5f  |nt% &800, error_|
00000640  62 6c 6b 25 20 32 35 36  2c 6d 65 6e 75 25 20 31  |blk% 256,menu% 1|
00000650  32 38 2c 20 73 31 25 20  33 32 0d 02 3a 0e 62 75  |28, s1% 32..:.bu|
00000660  66 73 7a 25 3d 32 35 36  0d 02 44 1a 70 6f 6c 6c  |fsz%=256..D.poll|
00000670  5f 6d 61 73 6b 25 20 3d  20 ac 28 26 36 30 30 34  |_mask% = .(&6004|
00000680  46 29 0d 02 4e 20 de 20  74 61 73 6b 69 64 25 20  |F)..N . taskid% |
00000690  35 3a 20 24 74 61 73 6b  69 64 25 3d 22 54 41 53  |5: $taskid%="TAS|
000006a0  4b 22 0d 02 58 40 c8 99  20 22 57 69 6d 70 5f 49  |K"..X@.. "Wimp_I|
000006b0  6e 69 74 69 61 6c 69 73  65 22 2c 32 30 30 2c 21  |nitialise",200,!|
000006c0  74 61 73 6b 69 64 25 2c  22 44 65 61 64 44 75 63  |taskid%,"DeadDuc|
000006d0  6b 22 20 b8 20 2c 74 61  73 6b 5f 68 61 6e 64 6c  |k" . ,task_handl|
000006e0  65 25 0d 02 62 22 ee 20  85 20 ea 20 f2 65 72 72  |e%..b". . . .err|
000006f0  6f 72 28 9f 2c 20 f6 24  29 3a f2 74 65 72 6d 69  |or(., .$):.termi|
00000700  6e 61 74 65 0d 02 6c 07  ea 20 85 0d 02 76 08 4e  |nate..l.. ...v.N|
00000710  25 3d 32 0d 02 80 09 78  72 25 3d 30 0d 02 8a 09  |%=2....xr%=0....|
00000720  f2 6d 6f 64 65 0d 02 94  0a 42 25 3d 31 33 36 0d  |.mode....B%=136.|
00000730  02 9e 0b 70 25 3d 71 25  2b 34 0d 02 a8 22 21 70  |...p%=q%+4..."!p|
00000740  25 3d 30 3a 70 25 21 34  3d 42 25 3a 70 25 21 38  |%=0:p%!4=B%:p%!8|
00000750  3d 52 25 3a 70 25 21 31  32 3d 54 25 0d 02 b2 14  |=R%:p%!12=T%....|
00000760  70 25 21 31 36 3d 30 3a  70 25 21 32 30 3d 54 25  |p%!16=0:p%!20=T%|
00000770  0d 02 bc 2e 70 25 21 32  34 3d 2d 32 3a 70 25 21  |....p%!24=-2:p%!|
00000780  32 38 3d 26 38 43 30 3a  70 25 21 33 32 3d 26 34  |28=&8C0:p%!32=&4|
00000790  30 34 30 34 30 37 3a 70  25 21 33 36 3d 30 0d 02  |040407:p%!36=0..|
000007a0  c6 26 70 25 21 34 30 3d  30 3a 70 25 21 34 34 3d  |.&p%!40=0:p%!44=|
000007b0  42 25 3a 70 25 21 34 38  3d 52 25 3a 70 25 21 35  |B%:p%!48=R%:p%!5|
000007c0  32 3d 54 25 0d 02 d0 1a  e3 20 49 25 3d 35 36 20  |2=T%..... I%=56 |
000007d0  b8 20 38 37 3a 70 25 3f  49 25 3d 30 3a ed 0d 02  |. 87:p%?I%=0:...|
000007e0  da 0f 70 25 21 36 30 3d  26 33 30 30 30 0d 02 e4  |..p%!60=&3000...|
000007f0  2c c8 99 20 22 57 69 6d  70 5f 43 72 65 61 74 65  |,.. "Wimp_Create|
00000800  57 69 6e 64 6f 77 22 2c  2c 70 25 20 b8 20 44 75  |Window",,p% . Du|
00000810  63 6b 57 69 6e 64 6f 77  25 0d 02 ee 13 21 71 25  |ckWindow%....!q%|
00000820  3d 44 75 63 6b 57 69 6e  64 6f 77 25 0d 02 f8 1c  |=DuckWindow%....|
00000830  c8 99 20 22 57 69 6d 70  5f 4f 70 65 6e 57 69 6e  |.. "Wimp_OpenWin|
00000840  64 6f 77 22 2c 2c 71 25  0d 03 02 0e f2 4c 6f 61  |dow",,q%.....Loa|
00000850  64 64 75 63 6b 73 0d 03  0c 0e f2 73 65 74 75 70  |dducks.....setup|
00000860  6d 65 6e 75 0d 03 16 29  73 31 25 21 31 36 3d 26  |menu...)s1%!16=&|
00000870  34 30 30 30 30 31 30 32  3a 73 31 25 21 32 34 3d  |40000102:s1%!24=|
00000880  73 61 72 25 3a 73 31 25  21 32 38 3d 30 0d 03 20  |sar%:s1%!28=0.. |
00000890  08 49 25 3d 31 0d 03 2a  1c 78 72 25 3d 52 25 3e  |.I%=1..*.xr%=R%>|
000008a0  3e 31 3a 64 78 25 3d 38  3a 63 6f 75 6e 74 25 3d  |>1:dx%=8:count%=|
000008b0  31 0d 03 34 10 58 25 3d  a4 4d 6f 76 65 44 75 63  |1..4.X%=.MoveDuc|
000008c0  6b 0d 03 3e 09 59 25 3d  42 25 0d 03 48 1a 4c 61  |k..>.Y%=B%..H.La|
000008d0  73 74 58 25 3d 78 72 25  3a 4c 61 73 74 44 75 63  |stX%=xr%:LastDuc|
000008e0  6b 25 3d 31 0d 03 52 05  e1 0d 03 66 0f dd f2 4c  |k%=1..R....f...L|
000008f0  6f 61 64 64 75 63 6b 73  0d 03 70 0c ea 20 73 61  |oadducks..p.. sa|
00000900  64 64 72 25 0d 03 7a 13  f4 20 67 65 74 20 66 69  |ddr%..z.. get fi|
00000910  6c 65 20 73 69 7a 65 0d  03 84 31 41 25 3d 8e 22  |le size...1A%=."|
00000920  3c 44 65 73 6b 44 75 63  6b 24 44 69 72 3e 2e 53  |<DeskDuck$Dir>.S|
00000930  70 72 69 74 65 46 69 6c  65 22 3a 73 7a 25 3d a2  |priteFile":sz%=.|
00000940  23 41 25 3a d9 23 41 25  0d 03 98 18 f4 20 6d 61  |#A%:.#A%..... ma|
00000950  6b 65 20 61 20 73 70 72  69 74 65 20 61 72 65 61  |ke a sprite area|
00000960  0d 03 a2 12 de 20 73 61  72 25 20 31 30 30 2b 73  |..... sar% 100+s|
00000970  7a 25 0d 03 ac 1a 21 73  61 72 25 3d 31 30 30 2b  |z%....!sar%=100+|
00000980  73 7a 25 3a 73 61 72 25  21 34 3d 30 0d 03 b6 18  |sz%:sar%!4=0....|
00000990  73 61 72 25 21 38 3d 31  36 3a 73 61 72 25 21 31  |sar%!8=16:sar%!1|
000009a0  32 3d 31 36 0d 03 c0 1d  c8 99 20 4f 53 5f 53 70  |2=16...... OS_Sp|
000009b0  72 69 74 65 4f 70 25 2c  26 31 30 39 2c 73 61 72  |riteOp%,&109,sar|
000009c0  25 0d 03 d4 1e f4 20 6c  6f 61 64 20 73 70 72 69  |%..... load spri|
000009d0  74 65 20 66 69 6c 65 20  69 6e 74 6f 20 69 74 0d  |te file into it.|
000009e0  03 de 39 c8 99 20 4f 53  5f 53 70 72 69 74 65 4f  |..9.. OS_SpriteO|
000009f0  70 25 2c 26 31 30 41 2c  73 61 72 25 2c 22 3c 44  |p%,&10A,sar%,"<D|
00000a00  65 73 6b 44 75 63 6b 24  44 69 72 3e 2e 53 70 72  |eskDuck$Dir>.Spr|
00000a10  69 74 65 46 69 6c 65 22  0d 03 e8 27 f4 20 67 65  |iteFile"...'. ge|
00000a20  74 20 61 64 64 72 65 73  73 65 73 20 6f 66 20 74  |t addresses of t|
00000a30  68 65 20 64 75 63 6b 20  73 70 72 69 74 65 73 0d  |he duck sprites.|
00000a40  03 f2 19 e3 20 4c 25 3d  31 20 b8 20 53 70 72 69  |.... L%=1 . Spri|
00000a50  74 65 54 6f 74 61 6c 25  0d 03 fc 37 20 20 20 c8  |teTotal%...7   .|
00000a60  99 20 4f 53 5f 53 70 72  69 74 65 4f 70 25 2c 26  |. OS_SpriteOp%,&|
00000a70  31 31 38 2c 73 61 72 25  2c 22 64 75 63 6b 22 2b  |118,sar%,"duck"+|
00000a80  c3 28 4c 25 29 20 b8 2c  2c 73 61 64 64 72 25 0d  |.(L%) .,,saddr%.|
00000a90  04 06 18 20 20 20 44 75  63 6b 73 25 28 4c 25 29  |...   Ducks%(L%)|
00000aa0  3d 73 61 64 64 72 25 0d  04 10 47 20 20 20 77 69  |=saddr%...G   wi|
00000ab0  64 74 68 25 28 4c 25 29  3d 28 28 28 73 61 64 64  |dth%(L%)=(((sadd|
00000ac0  72 25 21 31 36 29 2b 31  29 2a 38 29 2d 28 73 61  |r%!16)+1)*8)-(sa|
00000ad0  64 64 72 25 21 32 34 3e  3e 32 29 2d 28 37 2d 28  |ddr%!24>>2)-(7-(|
00000ae0  73 61 64 64 72 25 21 32  38 3e 3e 32 29 29 0d 04  |saddr%!28>>2))..|
00000af0  1a 1c 20 20 20 68 69 65  67 68 74 25 28 4c 25 29  |..   hieght%(L%)|
00000b00  3d 73 61 64 64 72 25 21  32 30 0d 04 24 07 ed 4c  |=saddr%!20..$..L|
00000b10  25 0d 04 2e 05 e1 0d 04  42 0b dd 20 f2 6e 75 6c  |%.......B.. .nul|
00000b20  6c 0d 04 4c 11 20 58 25  3d a4 4d 6f 76 65 44 75  |l..L. X%=.MoveDu|
00000b30  63 6b 0d 04 56 15 20 f4  20 45 72 61 73 65 20 6f  |ck..V. . Erase o|
00000b40  6c 64 20 64 75 63 6b 0d  04 60 0b 20 e6 20 30 2c  |ld duck..`. . 0,|
00000b50  31 31 0d 04 6a 1a 20 f4  20 4c 6f 6f 6b 20 66 6f  |11..j. . Look fo|
00000b60  72 20 72 65 63 74 61 6e  67 6c 65 73 0d 04 74 14  |r rectangles..t.|
00000b70  20 e7 20 28 58 25 3e 4c  61 73 74 58 25 29 20 8c  | . (X%>LastX%) .|
00000b80  0d 04 7e 17 20 20 20 20  21 71 25 3d 44 75 63 6b  |..~.    !q%=Duck|
00000b90  57 69 6e 64 6f 77 25 0d  04 88 1c 20 20 20 20 71  |Window%....    q|
00000ba0  25 21 34 3d 4c 61 73 74  58 25 3a 71 25 21 31 32  |%!4=LastX%:q%!12|
00000bb0  3d 58 25 0d 04 92 32 20  20 20 20 71 25 21 38 3d  |=X%...2    q%!8=|
00000bc0  59 25 3a 71 25 21 31 36  3d 59 25 2b 28 68 69 65  |Y%:q%!16=Y%+(hie|
00000bd0  67 68 74 25 28 4c 61 73  74 44 75 63 6b 25 29 3c  |ght%(LastDuck%)<|
00000be0  3c 32 29 2b 34 0d 04 9c  21 20 20 20 20 f4 20 47  |<2)+4...!    . G|
00000bf0  6f 20 66 6f 72 20 65 72  61 73 65 20 72 65 63 74  |o for erase rect|
00000c00  61 6e 67 6c 65 73 0d 04  a6 1a 20 20 20 20 c8 99  |angles....    ..|
00000c10  20 26 34 30 30 43 39 2c  2c 71 25 20 b8 20 66 25  | &400C9,,q% . f%|
00000c20  0d 04 b0 0e 20 20 20 20  e7 20 66 25 20 8c 0d 04  |....    . f% ...|
00000c30  ba 0e 20 20 20 20 20 c8  95 20 66 25 0d 04 c4 33  |..     .. f%...3|
00000c40  20 20 20 20 20 20 c8 93  20 c8 90 20 71 25 21 32  |      .. .. q%!2|
00000c50  38 2c 71 25 21 33 32 2c  71 25 21 33 36 2d 71 25  |8,q%!32,q%!36-q%|
00000c60  21 32 38 2c 71 25 21 34  30 2d 71 25 21 33 32 0d  |!28,q%!40-q%!32.|
00000c70  04 ce 1c 20 20 20 20 20  20 c8 99 20 26 34 30 30  |...      .. &400|
00000c80  43 41 2c 2c 71 25 20 b8  20 66 25 0d 04 d8 0a 20  |CA,,q% . f%.... |
00000c90  20 20 20 20 ce 0d 04 e2  09 20 20 20 20 cd 0d 04  |    .....    ...|
00000ca0  ec 06 20 cd 0d 04 f6 1b  20 72 31 25 3d 58 25 2b  |.. ..... r1%=X%+|
00000cb0  28 77 69 64 74 68 25 28  49 25 29 3c 3c 31 29 0d  |(width%(I%)<<1).|
00000cc0  05 00 26 20 72 32 25 3d  4c 61 73 74 58 25 2b 28  |..& r2%=LastX%+(|
00000cd0  77 69 64 74 68 25 28 4c  61 73 74 44 75 63 6b 25  |width%(LastDuck%|
00000ce0  29 3c 3c 31 29 0d 05 0a  10 20 e7 20 28 72 31 25  |)<<1).... . (r1%|
00000cf0  3c 72 32 25 29 0d 05 14  17 20 20 20 20 21 71 25  |<r2%)....    !q%|
00000d00  3d 44 75 63 6b 57 69 6e  64 6f 77 25 0d 05 1e 1a  |=DuckWindow%....|
00000d10  20 20 20 20 71 25 21 34  3d 72 31 25 3a 71 25 21  |    q%!4=r1%:q%!|
00000d20  31 32 3d 72 32 25 0d 05  28 32 20 20 20 20 71 25  |12=r2%..(2    q%|
00000d30  21 38 3d 59 25 3a 71 25  21 31 36 3d 59 25 2b 28  |!8=Y%:q%!16=Y%+(|
00000d40  68 69 65 67 68 74 25 28  4c 61 73 74 44 75 63 6b  |hieght%(LastDuck|
00000d50  25 29 3c 3c 32 29 2b 34  0d 05 32 21 20 20 20 20  |%)<<2)+4..2!    |
00000d60  f4 20 47 6f 20 66 6f 72  20 65 72 61 73 65 20 72  |. Go for erase r|
00000d70  65 63 74 61 6e 67 6c 65  73 0d 05 3c 1a 20 20 20  |ectangles..<.   |
00000d80  20 c8 99 20 26 34 30 30  43 39 2c 2c 71 25 20 b8  | .. &400C9,,q% .|
00000d90  20 66 25 0d 05 46 0e 20  20 20 20 e7 20 66 25 20  | f%..F.    . f% |
00000da0  8c 0d 05 50 0e 20 20 20  20 20 c8 95 20 66 25 0d  |...P.     .. f%.|
00000db0  05 5a 33 20 20 20 20 20  20 c8 93 20 c8 90 20 71  |.Z3      .. .. q|
00000dc0  25 21 32 38 2c 71 25 21  33 32 2c 71 25 21 33 36  |%!28,q%!32,q%!36|
00000dd0  2d 71 25 21 32 38 2c 71  25 21 34 30 2d 71 25 21  |-q%!28,q%!40-q%!|
00000de0  33 32 0d 05 64 1c 20 20  20 20 20 20 c8 99 20 26  |32..d.      .. &|
00000df0  34 30 30 43 41 2c 2c 71  25 20 b8 20 66 25 0d 05  |400CA,,q% . f%..|
00000e00  6e 0a 20 20 20 20 20 ce  0d 05 78 09 20 20 20 20  |n.     ...x.    |
00000e10  cd 0d 05 82 06 20 cd 0d  05 8c 0e 20 4c 61 73 74  |..... ..... Last|
00000e20  58 25 3d 58 25 0d 05 96  11 20 4c 61 73 74 44 75  |X%=X%.... LastDu|
00000e30  63 6b 25 3d 49 25 0d 05  aa 17 20 e7 20 91 3e 64  |ck%=I%.... . .>d|
00000e40  6f 6e 74 64 69 73 70 6c  61 79 25 20 8c 0d 05 be  |ontdisplay% ....|
00000e50  17 20 20 20 f4 20 50 61  69 6e 74 20 6e 65 77 20  |.   . Paint new |
00000e60  64 75 63 6b 0d 05 c8 29  20 20 20 71 25 21 34 3d  |duck...)   q%!4=|
00000e70  58 25 3a 71 25 21 31 32  3d 58 25 2b 28 77 69 64  |X%:q%!12=X%+(wid|
00000e80  74 68 25 28 49 25 29 3c  3c 31 29 2b 34 0d 05 d2  |th%(I%)<<1)+4...|
00000e90  2a 20 20 20 71 25 21 38  3d 59 25 3a 71 25 21 31  |*   q%!8=Y%:q%!1|
00000ea0  36 3d 59 25 2b 28 68 69  65 67 68 74 25 28 49 25  |6=Y%+(hieght%(I%|
00000eb0  29 3c 3c 32 29 2b 34 0d  05 dc 05 20 0d 05 e6 19  |)<<2)+4.... ....|
00000ec0  20 20 20 c8 99 20 26 34  30 30 43 39 2c 2c 71 25  |   .. &400C9,,q%|
00000ed0  20 b8 20 66 25 0d 05 f0  0d 20 20 20 e7 20 66 25  | . f%....   . f%|
00000ee0  20 8c 0d 05 fa 0d 20 20  20 20 c8 95 20 66 25 0d  | .....    .. f%.|
00000ef0  06 04 19 20 20 20 20 20  f2 50 6c 6f 74 49 63 6f  |...     .PlotIco|
00000f00  6e 28 49 25 2c 58 25 29  0d 06 0e 1b 20 20 20 20  |n(I%,X%)....    |
00000f10  20 c8 99 20 26 34 30 30  43 41 2c 2c 71 25 20 b8  | .. &400CA,,q% .|
00000f20  20 66 25 0d 06 18 09 20  20 20 20 ce 0d 06 22 08  | f%....    ...".|
00000f30  20 20 20 cd 0d 06 36 06  20 cd 0d 06 4a 37 20 e7  |   ...6. ...J7 .|
00000f40  20 62 72 65 61 64 74 68  72 6f 77 6e 25 20 8c 20  | breadthrown% . |
00000f50  f2 62 72 65 61 64 74 68  72 6f 77 28 53 70 72 69  |.breadthrow(Spri|
00000f60  74 65 54 6f 74 61 6c 25  2c 62 72 65 61 64 58 25  |teTotal%,breadX%|
00000f70  29 0d 06 5e 17 20 e7 20  91 3c 64 6f 6e 74 64 69  |)..^. . .<dontdi|
00000f80  73 70 6c 61 79 25 20 e1  0d 06 72 24 20 f4 20 43  |splay% ...r$ . C|
00000f90  68 6b 20 69 66 20 70 6f  69 6e 74 65 72 20 6f 76  |hk if pointer ov|
00000fa0  65 72 20 74 68 65 20 64  75 63 6b 2e 0d 06 7c 05  |er the duck...|.|
00000fb0  20 0d 06 86 13 20 c8 99  20 26 34 30 30 43 46 2c  | .... .. &400CF,|
00000fc0  2c 71 31 25 0d 06 9a 78  20 e7 20 28 21 71 31 25  |,q1%...x . (!q1%|
00000fd0  3e 3d 58 25 29 20 80 20  28 21 71 31 25 3c 3d 58  |>=X%) . (!q1%<=X|
00000fe0  25 2b 28 77 69 64 74 68  25 28 49 25 29 3c 3c 31  |%+(width%(I%)<<1|
00000ff0  29 2b 34 29 20 80 20 28  71 31 25 21 34 3e 3d 59  |)+4) . (q1%!4>=Y|
00001000  25 29 20 80 20 28 71 31  25 21 34 3c 3d 59 25 2b  |%) . (q1%!4<=Y%+|
00001010  28 68 69 65 67 68 74 25  28 49 25 29 3c 3c 32 29  |(hieght%(I%)<<2)|
00001020  2b 34 29 20 80 20 28 71  31 25 21 31 32 3d 44 75  |+4) . (q1%!12=Du|
00001030  63 6b 57 69 6e 64 6f 77  25 29 20 8c 0d 06 a4 1b  |ckWindow%) .....|
00001040  20 20 20 20 20 e7 20 28  ac 20 6e 65 77 70 6f 69  |     . (. newpoi|
00001050  6e 74 65 72 29 20 8c 0d  06 ae 18 20 20 20 20 20  |nter) .....     |
00001060  20 20 20 6e 65 77 70 6f  69 6e 74 65 72 3d b9 0d  |   newpointer=..|
00001070  06 b8 37 20 20 20 20 20  20 20 20 c8 99 20 4f 53  |..7        .. OS|
00001080  5f 53 70 72 69 74 65 4f  70 25 2c 26 31 32 34 2c  |_SpriteOp%,&124,|
00001090  73 61 72 25 2c 22 6b 69  6c 6c 30 22 2c 32 2c 35  |sar%,"kill0",2,5|
000010a0  2c 35 2c 30 2c 30 0d 06  c2 0a 20 20 20 20 20 cd  |,5,0,0....     .|
000010b0  0d 06 cc 06 20 cc 0d 06  d6 19 20 20 20 20 20 e7  |.... .....     .|
000010c0  20 28 6e 65 77 70 6f 69  6e 74 65 72 29 20 8c 0d  | (newpointer) ..|
000010d0  06 e0 18 20 20 20 20 20  20 20 20 6e 65 77 70 6f  |...        newpo|
000010e0  69 6e 74 65 72 3d a3 0d  06 ea 32 20 20 20 20 20  |inter=....2     |
000010f0  20 20 20 c8 99 20 26 34  30 30 65 39 2c 26 32 34  |   .. &400e9,&24|
00001100  2c 2c 22 70 74 72 5f 64  65 66 61 75 6c 74 22 2c  |,,"ptr_default",|
00001110  31 2c 30 2c 30 2c 30 2c  30 0d 06 f4 0a 20 20 20  |1,0,0,0,0....   |
00001120  20 20 cd 0d 06 fe 06 20  cd 0d 07 08 05 20 0d 07  |  ..... ..... ..|
00001130  12 05 20 0d 07 1c 05 e1  0d 07 26 05 3a 0d 07 30  |.. .......&.:..0|
00001140  0f dd 20 a4 4d 6f 76 65  44 75 63 6b 0d 07 3a 09  |.. .MoveDuck..:.|
00001150  ea 20 78 61 25 0d 07 44  14 78 72 25 2b 3d 64 78  |. xa%..D.xr%+=dx|
00001160  25 3a 78 61 25 3d 78 72  25 0d 07 4e 0b c8 8e 20  |%:xa%=xr%..N... |
00001170  49 25 20 ca 0d 07 58 09  20 c9 20 31 3a 0d 07 62  |I% ...X. . 1:..b|
00001180  27 20 20 20 e7 20 62 72  65 61 64 74 68 72 6f 77  |'   . breadthrow|
00001190  6e 25 20 80 20 ac 20 64  6f 77 6e 73 74 72 65 61  |n% . . downstrea|
000011a0  6d 25 20 8c 0d 07 6c 16  20 20 20 20 20 20 49 25  |m% ...l.      I%|
000011b0  3d 33 37 3a 64 78 25 3d  31 36 0d 07 76 0b 20 20  |=37:dx%=16..v.  |
000011c0  20 20 20 20 cc 0d 07 80  52 20 20 20 20 e7 20 28  |    ....R    . (|
000011d0  28 62 72 65 61 64 74 68  72 6f 77 6e 25 20 80 20  |(breadthrown% . |
000011e0  64 6f 77 6e 73 74 72 65  61 6d 25 29 20 84 20 28  |downstream%) . (|
000011f0  28 78 72 25 3e 52 25 2d  32 30 30 29 20 84 20 b3  |(xr%>R%-200) . .|
00001200  28 31 29 3c 2e 30 33 29  29 20 80 20 63 6f 75 6e  |(1)<.03)) . coun|
00001210  74 25 3c 3d 30 20 8c 0d  07 8a 34 20 20 20 20 20  |t%<=0 ....4     |
00001220  20 72 61 64 69 75 73 25  3d b3 28 31 29 2a 31 30  | radius%=.(1)*10|
00001230  30 2b 35 30 3a 64 78 25  3d 30 3a 49 25 3d 49 25  |0+50:dx%=0:I%=I%|
00001240  2b 31 3a 63 6f 75 6e 74  25 3d 34 0d 07 94 0b 20  |+1:count%=4.... |
00001250  20 20 20 20 20 cc 0d 07  9e 13 20 20 20 20 20 20  |     .....      |
00001260  63 6f 75 6e 74 25 2d 3d  31 0d 07 a8 29 20 20 20  |count%-=1...)   |
00001270  20 20 20 e7 20 b3 28 31  29 3e 2e 39 37 20 49 25  |   . .(1)>.97 I%|
00001280  3d 33 33 3a 63 6f 75 6e  74 25 3d 38 3a 64 78 25  |=33:count%=8:dx%|
00001290  3d 34 0d 07 b2 37 20 20  20 20 20 20 e7 20 b3 28  |=4...7      . .(|
000012a0  31 29 3e 2e 39 37 20 80  20 51 75 61 63 6b 69 6e  |1)>.97 . Quackin|
000012b0  67 25 20 8c 20 49 25 3d  33 36 3a 63 6f 75 6e 74  |g% . I%=36:count|
000012c0  25 3d 38 3a 64 78 25 3d  38 0d 07 bc 09 20 20 20  |%=8:dx%=8....   |
000012d0  20 cd 0d 07 c6 08 20 20  20 cd 0d 07 d0 0a 20 c9  | .....   ..... .|
000012e0  20 31 36 3a 0d 07 da 25  20 20 20 e7 20 62 72 65  | 16:...%   . bre|
000012f0  61 64 74 68 72 6f 77 6e  25 20 80 20 64 6f 77 6e  |adthrown% . down|
00001300  73 74 72 65 61 6d 25 20  8c 0d 07 e4 17 20 20 20  |stream% .....   |
00001310  20 20 20 49 25 3d 33 38  3a 64 78 25 3d 2d 31 36  |   I%=38:dx%=-16|
00001320  0d 07 ee 0b 20 20 20 20  20 20 cc 0d 07 f8 52 20  |....      ....R |
00001330  20 20 20 e7 20 20 28 28  62 72 65 61 64 74 68 72  |   .  ((breadthr|
00001340  6f 77 6e 25 20 80 20 ac  20 64 6f 77 6e 73 74 72  |own% . . downstr|
00001350  65 61 6d 25 29 20 84 20  28 28 78 72 25 3c 31 35  |eam%) . ((xr%<15|
00001360  30 29 20 84 20 b3 28 31  29 3c 2e 30 33 29 29 20  |0) . .(1)<.03)) |
00001370  80 20 63 6f 75 6e 74 25  3c 3d 30 20 8c 0d 08 02  |. count%<=0 ....|
00001380  34 20 20 20 20 20 20 72  61 64 69 75 73 25 3d b3  |4      radius%=.|
00001390  28 31 29 2a 31 30 30 2b  35 30 3a 64 78 25 3d 30  |(1)*100+50:dx%=0|
000013a0  3a 49 25 3d 49 25 2b 31  3a 63 6f 75 6e 74 25 3d  |:I%=I%+1:count%=|
000013b0  34 0d 08 0c 0b 20 20 20  20 20 20 cc 0d 08 16 13  |4....      .....|
000013c0  20 20 20 20 20 20 63 6f  75 6e 74 25 2d 3d 31 0d  |      count%-=1.|
000013d0  08 20 38 20 20 20 20 20  20 e7 20 b3 28 31 29 3e  |. 8      . .(1)>|
000013e0  2e 39 37 20 80 20 51 75  61 63 6b 69 6e 67 25 20  |.97 . Quacking% |
000013f0  8c 20 49 25 3d 33 35 3a  63 6f 75 6e 74 25 3d 38  |. I%=35:count%=8|
00001400  3a 64 78 25 3d 2d 38 0d  08 2a 09 20 20 20 20 cd  |:dx%=-8..*.    .|
00001410  0d 08 34 08 20 20 20 cd  0d 08 3e 0a 20 c9 20 33  |..4.   ...>. . 3|
00001420  33 3a 0d 08 48 10 20 20  20 63 6f 75 6e 74 25 2d  |3:..H.   count%-|
00001430  3d 31 0d 08 52 28 20 20  20 e7 20 63 6f 75 6e 74  |=1..R(   . count|
00001440  25 3d 30 20 8c 20 49 25  3d 33 34 3a 63 6f 75 6e  |%=0 . I%=34:coun|
00001450  74 25 3d 34 3a 64 78 25  3d 38 0d 08 5c 0a 20 c9  |t%=4:dx%=8..\. .|
00001460  20 33 34 3a 0d 08 66 10  20 20 20 63 6f 75 6e 74  | 34:..f.   count|
00001470  25 2d 3d 31 0d 08 70 1e  20 20 20 e7 20 63 6f 75  |%-=1..p.   . cou|
00001480  6e 74 25 3d 30 20 8c 20  49 25 3d 31 3a 64 78 25  |nt%=0 . I%=1:dx%|
00001490  3d 38 0d 08 7a 0a 20 c9  20 33 35 3a 0d 08 84 38  |=8..z. . 35:...8|
000014a0  20 20 20 e7 20 28 63 6f  75 6e 74 25 3d 38 29 20  |   . (count%=8) |
000014b0  80 20 28 91 3e 64 6f 6e  74 64 69 73 70 6c 61 79  |. (.>dontdisplay|
000014c0  25 29 20 8c 20 d4 20 32  2c 2d 31 35 2c 37 32 30  |%) . . 2,-15,720|
000014d0  30 2c 32 30 0d 08 8e 10  20 20 20 63 6f 75 6e 74  |0,20....   count|
000014e0  25 2d 3d 31 0d 08 98 20  20 20 20 e7 20 63 6f 75  |%-=1...    . cou|
000014f0  6e 74 25 3d 30 20 8c 20  49 25 3d 31 36 3a 64 78  |nt%=0 . I%=16:dx|
00001500  25 3d 2d 38 0d 08 a2 0a  20 c9 20 33 36 3a 0d 08  |%=-8.... . 36:..|
00001510  ac 38 20 20 20 e7 20 28  63 6f 75 6e 74 25 3d 38  |.8   . (count%=8|
00001520  29 20 80 20 28 91 3e 64  6f 6e 74 64 69 73 70 6c  |) . (.>dontdispl|
00001530  61 79 25 29 20 8c 20 d4  20 32 2c 2d 31 35 2c 37  |ay%) . . 2,-15,7|
00001540  32 30 30 2c 32 30 0d 08  b6 10 20 20 20 63 6f 75  |200,20....   cou|
00001550  6e 74 25 2d 3d 31 0d 08  c0 1e 20 20 20 e7 20 63  |nt%-=1....   . c|
00001560  6f 75 6e 74 25 3d 30 20  8c 20 49 25 3d 31 3a 64  |ount%=0 . I%=1:d|
00001570  78 25 3d 38 0d 08 ca 0a  20 c9 20 33 37 3a 0d 08  |x%=8.... . 37:..|
00001580  d4 4d 20 20 20 20 e7 20  28 58 25 2b 28 77 69 64  |.M    . (X%+(wid|
00001590  74 68 25 28 49 25 29 3c  3c 31 29 29 3e 3d 62 72  |th%(I%)<<1))>=br|
000015a0  65 61 64 58 25 20 8c 20  62 72 65 61 64 74 68 72  |eadX% . breadthr|
000015b0  6f 77 6e 25 3d a3 3a 49  25 3d 33 39 3a 63 6f 75  |own%=.:I%=39:cou|
000015c0  6e 74 25 3d 34 3a 64 78  25 3d 38 0d 08 de 0a 20  |nt%=4:dx%=8.... |
000015d0  c9 20 33 38 3a 0d 08 e8  58 20 20 20 20 e7 20 58  |. 38:...X    . X|
000015e0  25 3c 3d 28 62 72 65 61  64 58 25 2b 28 77 69 64  |%<=(breadX%+(wid|
000015f0  74 68 25 28 53 70 72 69  74 65 54 6f 74 61 6c 25  |th%(SpriteTotal%|
00001600  29 3c 3c 31 29 29 20 8c  20 62 72 65 61 64 74 68  |)<<1)) . breadth|
00001610  72 6f 77 6e 25 3d a3 3a  49 25 3d 34 30 3a 63 6f  |rown%=.:I%=40:co|
00001620  75 6e 74 25 3d 34 3a 64  78 25 3d 2d 38 0d 08 f2  |unt%=4:dx%=-8...|
00001630  0a 20 c9 20 33 39 3a 0d  08 fc 10 20 20 20 63 6f  |. . 39:....   co|
00001640  75 6e 74 25 2d 3d 31 0d  09 06 1e 20 20 20 e7 20  |unt%-=1....   . |
00001650  63 6f 75 6e 74 25 3d 30  20 8c 20 49 25 3d 31 3a  |count%=0 . I%=1:|
00001660  64 78 25 3d 38 0d 09 10  0a 20 c9 20 34 30 3a 0d  |dx%=8.... . 40:.|
00001670  09 1a 10 20 20 20 63 6f  75 6e 74 25 2d 3d 31 0d  |...   count%-=1.|
00001680  09 24 20 20 20 20 e7 20  63 6f 75 6e 74 25 3d 30  |.$    . count%=0|
00001690  20 8c 20 49 25 3d 31 36  3a 64 78 25 3d 2d 38 0d  | . I%=16:dx%=-8.|
000016a0  09 2e 06 20 7f 0d 09 38  10 20 20 20 63 6f 75 6e  |... ...8.   coun|
000016b0  74 25 2d 3d 31 0d 09 42  2f 20 20 20 78 61 25 3d  |t%-=1..B/   xa%=|
000016c0  78 72 25 2b b5 28 28 28  49 25 3c 3c 31 29 2d 63  |xr%+.(((I%<<1)-c|
000016d0  6f 75 6e 74 25 29 2a af  2f 33 32 29 2a 72 61 64  |ount%)*./32)*rad|
000016e0  69 75 73 25 0d 09 4c 13  20 20 20 e7 20 63 6f 75  |ius%..L.   . cou|
000016f0  6e 74 25 3d 30 20 8c 0d  09 56 12 20 20 20 20 20  |nt%=0 ...V.     |
00001700  20 63 6f 75 6e 74 25 3d  32 0d 09 60 0f 20 20 20  | count%=2..`.   |
00001710  20 20 20 49 25 2b 3d 31  0d 09 6a 2e 20 20 20 20  |   I%+=1..j.    |
00001720  20 20 e7 20 49 25 3e 44  75 63 6b 4d 61 78 25 20  |  . I%>DuckMax% |
00001730  8c 20 49 25 3d 31 3a 64  78 25 3d 38 3a 63 6f 75  |. I%=1:dx%=8:cou|
00001740  6e 74 25 3d 32 30 0d 09  74 24 20 20 20 20 20 20  |nt%=20..t$      |
00001750  e7 20 49 25 3d 31 36 20  8c 20 64 78 25 3d 2d 38  |. I%=16 . dx%=-8|
00001760  3a 63 6f 75 6e 74 25 3d  32 30 0d 09 7e 08 20 20  |:count%=20..~.  |
00001770  20 cd 0d 09 88 05 cb 0d  09 92 08 3d 78 61 25 0d  | ..........=xa%.|
00001780  09 a6 18 dd 20 f2 62 72  65 61 64 74 68 72 6f 77  |.... .breadthrow|
00001790  28 49 25 2c 58 25 29 0d  09 b0 27 20 71 25 21 34  |(I%,X%)...' q%!4|
000017a0  3d 58 25 3a 71 25 21 31  32 3d 58 25 2b 28 77 69  |=X%:q%!12=X%+(wi|
000017b0  64 74 68 25 28 49 25 29  3c 3c 31 29 2b 34 0d 09  |dth%(I%)<<1)+4..|
000017c0  ba 28 20 71 25 21 38 3d  59 25 3a 71 25 21 31 36  |.( q%!8=Y%:q%!16|
000017d0  3d 59 25 2b 28 68 69 65  67 68 74 25 28 49 25 29  |=Y%+(hieght%(I%)|
000017e0  3c 3c 32 29 2b 34 0d 09  c4 17 20 c8 99 20 26 34  |<<2)+4.... .. &4|
000017f0  30 30 43 39 2c 2c 71 25  20 b8 20 66 25 0d 09 ce  |00C9,,q% . f%...|
00001800  0b 20 e7 20 66 25 20 8c  0d 09 d8 0b 20 20 c8 95  |. . f% .....  ..|
00001810  20 66 25 0d 09 e2 17 20  20 20 f2 50 6c 6f 74 49  | f%....   .PlotI|
00001820  63 6f 6e 28 49 25 2c 58  25 29 0d 09 ec 19 20 20  |con(I%,X%)....  |
00001830  20 c8 99 20 26 34 30 30  43 41 2c 2c 71 25 20 b8  | .. &400CA,,q% .|
00001840  20 66 25 0d 09 f6 07 20  20 ce 0d 0a 00 06 20 cd  | f%....  ..... .|
00001850  0d 0a 0a 05 e1 0d 0a 1e  0d dd 20 f2 72 65 64 72  |.......... .redr|
00001860  61 77 0d 0a 28 08 ea 20  66 25 0d 0a 32 13 21 71  |aw..(.. f%..2.!q|
00001870  25 3d 44 75 63 6b 57 69  6e 64 6f 77 25 0d 0a 3c  |%=DuckWindow%..<|
00001880  16 c8 99 20 26 34 30 30  43 38 2c 2c 71 25 20 b8  |... &400C8,,q% .|
00001890  20 66 25 0d 0a 46 0a 20  c8 95 20 66 25 0d 0a 50  | f%..F. .. f%..P|
000018a0  27 20 20 e7 20 91 3e 64  6f 6e 74 64 69 73 70 6c  |'  . .>dontdispl|
000018b0  61 79 25 20 f2 50 6c 6f  74 49 63 6f 6e 28 49 25  |ay% .PlotIcon(I%|
000018c0  2c 58 25 29 0d 0a 5a 36  20 20 e7 20 62 72 65 61  |,X%)..Z6  . brea|
000018d0  64 74 68 72 6f 77 6e 25  20 8c 20 f2 50 6c 6f 74  |dthrown% . .Plot|
000018e0  49 63 6f 6e 28 53 70 72  69 74 65 54 6f 74 61 6c  |Icon(SpriteTotal|
000018f0  25 2c 62 72 65 61 64 58  25 29 0d 0a 64 18 20 20  |%,breadX%)..d.  |
00001900  c8 99 20 26 34 30 30 43  41 2c 2c 71 25 20 b8 20  |.. &400CA,,q% . |
00001910  66 25 0d 0a 6e 06 20 ce  0d 0a 78 05 e1 0d 0a 82  |f%..n. ...x.....|
00001920  05 3a 0d 0a 8c 19 dd 20  f2 50 6c 6f 74 49 63 6f  |.:..... .PlotIco|
00001930  6e 28 49 25 2c 78 70 6f  73 25 29 0d 0a 96 18 20  |n(I%,xpos%).... |
00001940  21 73 31 25 3d 78 70 6f  73 25 3a 73 31 25 21 34  |!s1%=xpos%:s1%!4|
00001950  3d 59 25 0d 0a a0 3f 20  73 31 25 21 38 3d 78 70  |=Y%...? s1%!8=xp|
00001960  6f 73 25 2b 34 2b 28 77  69 64 74 68 25 28 49 25  |os%+4+(width%(I%|
00001970  29 3c 3c 31 29 3a 73 31  25 21 31 32 3d 59 25 2b  |)<<1):s1%!12=Y%+|
00001980  34 2b 28 68 69 65 67 68  74 25 28 49 25 29 3c 3c  |4+(hieght%(I%)<<|
00001990  32 29 0d 0a aa 16 20 73  31 25 21 32 30 3d 44 75  |2).... s1%!20=Du|
000019a0  63 6b 73 25 28 49 25 29  0d 0a b4 13 20 c8 99 20  |cks%(I%).... .. |
000019b0  26 34 30 30 45 32 2c 2c  73 31 25 0d 0a be 05 e1  |&400E2,,s1%.....|
000019c0  0d 0a c8 05 3a 0d 0a d2  0b dd 20 f2 6d 6f 64 65  |....:..... .mode|
000019d0  0d 0a dc 2a 21 71 25 3d  34 3a 71 25 21 34 3d 35  |...*!q%=4:q%!4=5|
000019e0  3a 71 25 21 38 3d 31 31  3a 71 25 21 31 32 3d 31  |:q%!8=11:q%!12=1|
000019f0  32 3a 71 25 21 31 36 3d  2d 31 0d 0a e6 22 c8 99  |2:q%!16=-1..."..|
00001a00  20 22 4f 53 5f 52 65 61  64 56 64 75 56 61 72 69  | "OS_ReadVduVari|
00001a10  61 62 6c 65 73 22 2c 71  25 2c 71 25 0d 0a f0 14  |ables",q%,q%....|
00001a20  78 73 25 3d 21 71 25 3a  79 73 25 3d 71 25 21 34  |xs%=!q%:ys%=q%!4|
00001a30  0d 0a fa 26 52 25 3d 28  71 25 21 38 2b 31 29 3c  |...&R%=(q%!8+1)<|
00001a40  3c 78 73 25 3a 54 25 3d  28 71 25 21 31 32 2b 31  |<xs%:T%=(q%!12+1|
00001a50  29 3c 3c 79 73 25 0d 0b  04 16 e7 20 78 72 25 3e  |)<<ys%..... xr%>|
00001a60  3d 52 25 20 8c 20 78 72  25 3d 52 25 0d 0b 0e 05  |=R% . xr%=R%....|
00001a70  e1 0d 0b 18 05 3a 0d 0b  22 0b dd 20 f2 6f 70 65  |.....:..".. .ope|
00001a80  6e 0d 0b 2c 09 f2 6d 6f  64 65 0d 0b 36 34 65 76  |n..,..mode..64ev|
00001a90  65 6e 74 25 21 34 3d 30  3a 65 76 65 6e 74 25 21  |ent%!4=0:event%!|
00001aa0  38 3d 42 25 3a 65 76 65  6e 74 25 21 31 32 3d 52  |8=B%:event%!12=R|
00001ab0  25 3a 65 76 65 6e 74 25  21 31 36 3d 54 25 0d 0b  |%:event%!16=T%..|
00001ac0  40 28 c8 99 20 22 57 69  6d 70 5f 53 65 74 45 78  |@(.. "Wimp_SetEx|
00001ad0  74 65 6e 74 22 2c 21 65  76 65 6e 74 25 2c 65 76  |tent",!event%,ev|
00001ae0  65 6e 74 25 2b 34 0d 0b  4a 20 c8 99 20 22 57 69  |ent%+4..J .. "Wi|
00001af0  6d 70 5f 4f 70 65 6e 57  69 6e 64 6f 77 22 2c 2c  |mp_OpenWindow",,|
00001b00  65 76 65 6e 74 25 0d 0b  54 05 e1 0d 0b 5e 05 3a  |event%..T....^.:|
00001b10  0d 0b 68 18 dd 20 f2 72  65 63 65 69 76 65 28 6d  |..h.. .receive(m|
00001b20  65 73 73 61 67 65 25 29  0d 0b 72 29 ea 20 6d 79  |essage%)..r). my|
00001b30  5f 72 65 66 25 2c 20 74  79 70 65 24 2c 20 6f 70  |_ref%, type$, op|
00001b40  74 69 6f 6e 24 2c 20 49  25 2c 20 70 66 6c 61 67  |tion$, I%, pflag|
00001b50  25 0d 0b 7c 18 6d 79 5f  72 65 66 25 20 3d 20 6d  |%..|.my_ref% = m|
00001b60  65 73 73 61 67 65 25 21  38 0d 0b 86 14 c8 8e 20  |essage%!8...... |
00001b70  6d 65 73 73 61 67 65 25  21 31 36 20 ca 0d 0b 90  |message%!16 ....|
00001b80  08 20 c9 20 30 0d 0b 9a  10 20 20 f2 74 65 72 6d  |. . 0....  .term|
00001b90  69 6e 61 74 65 0d 0b a4  05 cb 0d 0b ae 05 e1 0d  |inate...........|
00001ba0  0b b8 05 3a 0d 0b c2 0b  dd 20 f2 6d 65 6e 75 0d  |...:..... .menu.|
00001bb0  0b cc 10 c8 8e 20 21 65  76 65 6e 74 25 20 ca 0d  |..... !event% ..|
00001bc0  0b d6 09 20 c9 20 30 3a  0d 0b e0 1b 20 20 51 75  |... . 0:....  Qu|
00001bd0  61 63 6b 69 6e 67 25 3d  ac 20 51 75 61 63 6b 69  |acking%=. Quacki|
00001be0  6e 67 25 0d 0b ea 1b 20  20 6d 65 6e 75 25 21 32  |ng%....  menu%!2|
00001bf0  38 3d 6d 65 6e 75 25 21  32 38 20 82 20 31 0d 0b  |8=menu%!28 . 1..|
00001c00  f4 14 20 c9 20 31 3a 20  f2 74 65 72 6d 69 6e 61  |.. . 1: .termina|
00001c10  74 65 0d 0b fe 05 cb 0d  0c 08 20 c8 99 20 22 57  |te........ .. "W|
00001c20  69 6d 70 5f 47 65 74 50  6f 69 6e 74 65 72 49 6e  |imp_GetPointerIn|
00001c30  66 6f 22 2c 2c 71 25 0d  0c 12 3c e7 20 28 71 25  |fo",,q%...<. (q%|
00001c40  21 38 20 80 20 31 29 3d  31 20 8c 20 c8 99 22 57  |!8 . 1)=1 . .."W|
00001c50  69 6d 70 5f 43 72 65 61  74 65 4d 65 6e 75 22 2c  |imp_CreateMenu",|
00001c60  2c 6d 65 6e 75 25 2c 71  25 21 30 2d 36 34 2c 71  |,menu%,q%!0-64,q|
00001c70  25 21 34 0d 0c 1c 05 e1  0d 0c 26 05 3a 0d 0c 30  |%!4.......&.:..0|
00001c80  0f dd f2 73 65 74 75 70  6d 65 6e 75 0d 0c 3a 08  |...setupmenu..:.|
00001c90  ea 20 6d 25 0d 0c 44 15  24 6d 65 6e 75 25 3d 22  |. m%..D.$menu%="|
00001ca0  44 65 73 6b 44 75 63 6b  22 0d 0c 4e 0e 6d 65 6e  |DeskDuck"..N.men|
00001cb0  75 25 3f 31 32 3d 37 0d  0c 58 0e 6d 65 6e 75 25  |u%?12=7..X.menu%|
00001cc0  3f 31 33 3d 32 0d 0c 62  0e 6d 65 6e 75 25 3f 31  |?13=2..b.menu%?1|
00001cd0  34 3d 37 0d 0c 6c 0e 6d  65 6e 75 25 3f 31 35 3d  |4=7..l.menu%?15=|
00001ce0  30 0d 0c 76 10 6d 65 6e  75 25 21 31 36 3d 31 32  |0..v.menu%!16=12|
00001cf0  38 0d 0c 80 0f 6d 65 6e  75 25 21 32 30 3d 34 30  |8....menu%!20=40|
00001d00  0d 0c 8a 0e 6d 65 6e 75  25 21 32 34 3d 30 0d 0c  |....menu%!24=0..|
00001d10  94 0f 6d 25 3d 6d 65 6e  75 25 2b 32 38 0d 0c 9e  |..m%=menu%+28...|
00001d20  0b 6d 25 21 30 3d 26 31  0d 0c a8 0a 6d 25 21 34  |.m%!0=&1....m%!4|
00001d30  3d 30 0d 0c b2 18 6d 25  21 38 3d 28 37 3c 3c 32  |=0....m%!8=(7<<2|
00001d40  34 29 84 20 25 31 31 30  30 31 0d 0c bc 17 24 28  |4). %11001....$(|
00001d50  6d 25 2b 31 32 29 3d 22  51 75 61 63 6b 69 6e 67  |m%+12)="Quacking|
00001d60  22 0d 0c c6 0c 6d 25 3d  6d 25 2b 32 34 0d 0c d0  |"....m%=m%+24...|
00001d70  0c 6d 25 21 30 3d 26 38  30 0d 0c da 0a 6d 25 21  |.m%!0=&80....m%!|
00001d80  34 3d 30 0d 0c e4 18 6d  25 21 38 3d 28 37 3c 3c  |4=0....m%!8=(7<<|
00001d90  32 34 29 84 20 25 31 31  30 30 31 0d 0c ee 13 24  |24). %11001....$|
00001da0  28 6d 25 2b 31 32 29 3d  22 51 75 69 74 22 0d 0c  |(m%+12)="Quit"..|
00001db0  f8 05 e1 0d 0d 02 05 3a  0d 0d 0c 10 dd 20 f2 74  |.......:..... .t|
00001dc0  65 72 6d 69 6e 61 74 65  0d 0d 16 16 c8 99 22 57  |erminate......"W|
00001dd0  69 6d 70 5f 43 6c 6f 73  65 44 6f 77 6e 22 0d 0d  |imp_CloseDown"..|
00001de0  20 05 e0 0d 0d 2a 05 3a  0d 0d 34 0f dd 20 a4 72  | ....*.:..4.. .r|
00001df0  74 6f 7a 28 73 25 29 0d  0d 3e 08 ea 20 6e 24 0d  |toz(s%)..>.. n$.|
00001e00  0d 48 1a c8 95 3f 73 25  3a 6e 24 2b 3d bd 3f 73  |.H...?s%:n$+=.?s|
00001e10  25 3a 73 25 2b 3d 31 3a  ce 0d 0d 52 07 3d 6e 24  |%:s%+=1:...R.=n$|
00001e20  0d 0d 5c 05 3a 0d 0d 66  0c dd 20 f2 63 6c 6f 73  |..\.:..f.. .clos|
00001e30  65 0d 0d 70 2d 21 71 25  3d 44 75 63 6b 57 69 6e  |e..p-!q%=DuckWin|
00001e40  64 6f 77 25 3a c8 99 20  22 57 69 6d 70 5f 43 6c  |dow%:.. "Wimp_Cl|
00001e50  6f 73 65 57 69 6e 64 6f  77 22 2c 2c 71 25 0d 0d  |oseWindow",,q%..|
00001e60  7a 05 e1 0d 0d 84 05 3a  0d 0d 8e 14 dd 20 f2 6d  |z......:..... .m|
00001e70  6f 61 6e 28 72 65 70 6f  72 74 24 29 0d 0d 98 14  |oan(report$)....|
00001e80  85 20 26 32 30 30 30 30  2c 72 65 70 6f 72 74 24  |. &20000,report$|
00001e90  0d 0d a2 05 3a 0d 0d ac  1b dd 20 f2 65 72 72 6f  |....:..... .erro|
00001ea0  72 28 65 72 72 25 2c 20  72 65 70 6f 72 74 24 29  |r(err%, report$)|
00001eb0  0d 0d b6 09 ee 20 85 20  87 0d 0d c0 49 e7 20 65  |..... . ....I. e|
00001ec0  72 72 25 3c 26 31 30 31  30 30 20 84 20 65 72 72  |rr%<&10100 . err|
00001ed0  25 3e 26 32 30 30 30 30  20 8c 20 72 65 70 6f 72  |%>&20000 . repor|
00001ee0  74 24 3d 72 65 70 6f 72  74 24 2b 22 20 69 6e 74  |t$=report$+" int|
00001ef0  65 72 6e 61 6c 20 65 72  72 6f 72 20 22 2b c3 28  |ernal error "+.(|
00001f00  9e 29 0d 0d ca 16 21 65  72 72 6f 72 5f 62 6c 6b  |.)....!error_blk|
00001f10  25 20 3d 20 65 72 72 25  0d 0d d4 1b 24 28 65 72  |% = err%....$(er|
00001f20  72 6f 72 5f 62 6c 6b 25  2b 34 29 3d 72 65 70 6f  |ror_blk%+4)=repo|
00001f30  72 74 24 0d 0d de 21 f2  7a 65 72 6f 5f 74 65 72  |rt$...!.zero_ter|
00001f40  6d 69 6e 61 74 65 28 65  72 72 6f 72 5f 62 6c 6b  |minate(error_blk|
00001f50  25 2b 34 29 0d 0d e8 34  c8 99 20 22 57 69 6d 70  |%+4)...4.. "Wimp|
00001f60  5f 52 65 70 6f 72 74 45  72 72 6f 72 22 2c 20 65  |_ReportError", e|
00001f70  72 72 6f 72 5f 62 6c 6b  25 2c 20 31 2c 20 22 44  |rror_blk%, 1, "D|
00001f80  65 73 6b 44 75 63 6b 22  0d 0d f2 05 e1 0d 0d fc  |eskDuck"........|
00001f90  05 3a 0d 0e 06 18 dd f2  7a 65 72 6f 5f 74 65 72  |.:......zero_ter|
00001fa0  6d 69 6e 61 74 65 28 53  25 29 0d 0e 10 0f 53 25  |minate(S%)....S%|
00001fb0  3f a9 24 53 25 20 3d 20  30 0d 0e 1a 05 e1 0d 0e  |?.$S% = 0.......|
00001fc0  2e 0c dd 20 f2 53 68 6f  6f 74 0d 0e 38 05 20 0d  |... .Shoot..8. .|
00001fd0  0e 42 0f 20 ea 20 4a 25  2c 54 25 2c 53 25 0d 0e  |.B. . J%,T%,S%..|
00001fe0  56 0f 20 e3 20 4a 25 3d  31 20 b8 20 33 0d 0e 60  |V. . J%=1 . 3..`|
00001ff0  1d 20 20 20 20 20 d4 20  32 2c 2d 31 35 2c 35 30  |.     . 2,-15,50|
00002000  30 30 2c 32 30 2c 4a 25  2a 35 0d 0e 6a 06 20 ed  |00,20,J%*5..j. .|
00002010  0d 0e 7e 1e 20 e7 20 28  64 78 25 3e 30 29 20 8c  |..~. . (dx%>0) .|
00002020  20 53 25 3d 34 30 20 8b  20 53 25 3d 34 35 0d 0e  | S%=40 . S%=45..|
00002030  92 0f 20 e3 20 4a 25 3d  31 20 b8 20 35 0d 0e a6  |.. . J%=1 . 5...|
00002040  15 20 f4 20 50 61 69 6e  74 20 6e 65 77 20 64 75  |. . Paint new du|
00002050  63 6b 0d 0e ba 2a 20 71  25 21 34 3d 58 25 3a 71  |ck...* q%!4=X%:q|
00002060  25 21 31 32 3d 58 25 2b  28 77 69 64 74 68 25 28  |%!12=X%+(width%(|
00002070  4a 25 2b 53 25 29 3c 3c  31 29 2b 34 0d 0e c4 2b  |J%+S%)<<1)+4...+|
00002080  20 71 25 21 38 3d 59 25  3a 71 25 21 31 36 3d 59  | q%!8=Y%:q%!16=Y|
00002090  25 2b 28 68 69 65 67 68  74 25 28 4a 25 2b 53 25  |%+(hieght%(J%+S%|
000020a0  29 3c 3c 32 29 2b 34 0d  0e ce 05 20 0d 0e d8 17  |)<<2)+4.... ....|
000020b0  20 c8 99 20 26 34 30 30  43 39 2c 2c 71 25 20 b8  | .. &400C9,,q% .|
000020c0  20 66 25 0d 0e e2 0b 20  e7 20 66 25 20 8c 0d 0e  | f%.... . f% ...|
000020d0  ec 0b 20 20 c8 95 20 66  25 0d 0e f6 1a 20 20 20  |..  .. f%....   |
000020e0  f2 50 6c 6f 74 49 63 6f  6e 28 53 25 2b 4a 25 2c  |.PlotIcon(S%+J%,|
000020f0  58 25 29 0d 0f 00 19 20  20 20 c8 99 20 26 34 30  |X%)....   .. &40|
00002100  30 43 41 2c 2c 71 25 20  b8 20 66 25 0d 0f 0a 07  |0CA,,q% . f%....|
00002110  20 20 ce 0d 0f 14 06 20  cd 0d 0f 28 15 20 20 54  |  ..... ...(.  T|
00002120  25 3d 91 3a f5 20 fd 20  91 2d 54 25 3e 33 0d 0f  |%=.:. . .-T%>3..|
00002130  3c 06 20 ed 0d 0f 50 11  20 6e 65 77 70 6f 69 6e  |<. ...P. newpoin|
00002140  74 65 72 3d a3 0d 0f 5a  2b 20 c8 99 20 26 34 30  |ter=...Z+ .. &40|
00002150  30 65 39 2c 26 32 34 2c  2c 22 70 74 72 5f 64 65  |0e9,&24,,"ptr_de|
00002160  66 61 75 6c 74 22 2c 31  2c 30 2c 30 2c 30 2c 30  |fault",1,0,0,0,0|
00002170  0d 0f 64 05 20 0d 0f 6e  15 20 54 25 3d 91 3a f5  |..d. ..n. T%=.:.|
00002180  20 fd 20 91 2d 54 25 3e  35 30 0d 0f 82 15 20 64  | . .-T%>50.... d|
00002190  6f 6e 74 64 69 73 70 6c  61 79 25 3d 91 2b 31 0d  |ontdisplay%=.+1.|
000021a0  0f 96 05 e1 0d ff                                 |......|
000021a6

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