SillyStuff/!DeskDuck+/!RunImage

Home » Archimedes archive » Micro User » MU 1992-06.adf » PD » SillyStuff/!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 1992-06.adf » PD
Filename:	SillyStuff/!DeskDuck+/!RunImage
Read OK:	✔
File size:	2707 bytes
Load address:	0000
Exec address:	0000

File contents

   10REM >!RunImage
   20REM DeskDuck+ 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 This is donated to the Acorn Caring for Children Disc
   60REM History:
   70REM Quacking added 1/5/90 (My Birthday!)
   80REM Interactive bread 3/5/90
   90REM Bobbing+Paddling added for Sharon 23/9/90
  100REM Sleeping added for Sharon 26/9/90
  110REM Sleep added to menus 27/10/90 
  120ver$="2.00 30th November 1990"
  130
  140PROCinit
  150REM set up the default error handler
  160ON ERROR PROCerror(ERR,REPORT$)
  170REPEAT
  180 SYS "OS_ReadMonotonicTime" TO newtime%
  190  IF sleeping% AND I%=64 newtime%+=150+RND(1)*500 ELSE newtime%+=2
  200 SYS "Wimp_PollIdle",poll_mask%,event%,newtime% TO action%
  210 PROCdespatch_poll
  220UNTIL FALSE
  230END
  240:
  250DEFPROCdespatch_poll
  260 CASE action% OF
  270  WHEN 0: PROCnull
  280  WHEN 1: PROCredraw
  290  WHEN 2: PROCopen
  300  WHEN 3: PROCclose(!event%)
  310  WHEN 6: IF event%!12=DuckWindow% THEN
  320           CASE event%!8 OF
  330             WHEN 4:IF event%!4 < (B%+64) AND NOT breadthrown% THEN
  340                      breadthrown%=TRUE
  350                      breadX%=!event%
  360                      downstream%=(breadX%<=X%)
  370                      PROCbreadthrow(BreadSpr%,breadX%)
  380                      sleeping%=FALSE
  390                    ENDIF
  400             WHEN 2:
  410                     menu%!76=(menu%!76 AND &FE) OR (sleeping% AND 1)
  420                     SYS &400D4,,menu%,event%!0-64,event%!4
  430             WHEN 1: IF !event% >=X% AND !event%<(X%+(width%(I%)<<xs%)) AND event%!4<B%+(height%(I%)<<ys%) THEN
  440                      IF (sleeping% AND I%=64) OR NOT sleeping% THEN sleeping%=NOT sleeping%
  450                     ENDIF
  460           ENDCASE
  470          ENDIF
  480  WHEN 9: PROCmenu
  490  WHEN 17,18:PROCreceive(event%)
  500  ENDCASE
  510 ENDIF
  520ENDPROC
  530:
  540DEF PROCinit
  550LOCAL ERROR
  560ST%=TIME
  570VOICES 2
  580DuckMax%=32
  590SpriteTotal%=64
  600Quacking%=TRUE:breadthrown%=FALSE:breadX%=0:downstream%=FALSE:bobbing%=FALSE:sleeping%=FALSE
  610OS_SpriteOp%=&2E
  620DIM Ducks%(SpriteTotal%),width%(SpriteTotal%),height%(SpriteTotal%)
  630DIM q% &800, event% &800, error_blk% 256,menu% 256, s1% 32,winspace% &400
  640DIM bobseq%(60)
  650bobseq%()=33,42,39,43,43,44,44,45,46,47,46,45,46,47,46,45,46,47,46,45,46,47,46,45,44,44,43,43,42,42, 54,48,40,49,49,50,50,51,52,53,52,51,52,53,52,51,52,53,52,51,52,53,52,51,50,50,49,49,48,48
  660bufsz%=256
  670poll_mask% = NOT(&6004F)
  680DIM taskid% 5: $taskid%="TASK"
  690SYS "Wimp_Initialise",200,!taskid%,"DeskDuck+" TO ,task_handle%
  700ON ERROR LOCAL PROCerror(ERR, REPORT$):PROCterminate
  710LOCAL ERROR
  720N%=2
  730xr%=0
  740PROCLoadducks
  750PROCmode
  760B%=136
  770p%=q%+4
  780!p%=0:p%!4=B%:p%!8=R%:p%!12=T%
  790p%!16=0:p%!20=T%
  800p%!24=-2:p%!28=&8C0:p%!32=&4040407:p%!36=0
  810p%!40=0:p%!44=B%:p%!48=R%:p%!52=T%
  820FOR I%=56 TO 87:p%?I%=0:NEXT
  830p%!60=&3000
  840SYS "Wimp_CreateWindow",,p% TO DuckWindow%
  850!q%=DuckWindow%
  860SYS "Wimp_OpenWindow",,q%
  870SYS"Wimp_OpenTemplate",,"<DeskDuck+$Dir>.Templates"
  880SYS"Wimp_LoadTemplate",,q%,winspace%,winspace%+&400,-1,"info",0 TO,,winspace%
  890SYS"Wimp_CreateWindow",,q% TO info%
  900SYS"Wimp_CloseTemplate"
  910!q%=info%:q%!4=3
  920SYS "Wimp_GetIconState",,q%
  930$(q%!28)=ver$:q%!36=LEN(ver$)+1
  940q%!8=0:q%!12=0
  950SYS"Wimp_SetIconState",,q%
  960
  970PROCsetupmenu
  980s1%!16=&40000102:s1%!24=sar%:s1%!28=0
  990I%=64
 1000xr%=R%>>1:dx%=8:count%=1
 1010X%=FNMoveDuck
 1020Y%=B%
 1030LastX%=xr%:LastDuck%=1
 1040ENDPROC
 1050
 1060DEFPROCLoadducks
 1070LOCAL saddr%
 1080REM get file size
 1090A%=OPENIN"<DeskDuck+$Dir>.SpriteFile":sz%=EXT#A%:CLOSE#A%
 1100
 1110REM make a sprite area
 1120DIM sar% 100+sz%
 1130!sar%=100+sz%:sar%!4=0
 1140sar%!8=16:sar%!12=16
 1150SYS OS_SpriteOp%,&109,sar%
 1160
 1170REM load sprite file into it
 1180SYS OS_SpriteOp%,&10A,sar%,"<DeskDuck+$Dir>.SpriteFile"
 1190REM get addresses of the duck sprites
 1200FOR L%=1 TO SpriteTotal%
 1210   SYS OS_SpriteOp%,&118,sar%,"duck"+STR$(L%) TO,,saddr%
 1220   Ducks%(L%)=saddr%
 1230   width%(L%)=(((saddr%!16)+1)*8)-(saddr%!24>>2)-(7-(saddr%!28>>2))
 1240   height%(L%)=saddr%!20
 1250NEXTL%
 1260BreadSpr%=41 
 1270ENDPROC
 1280
 1290DEF PROCnull
 1300 X%=FNMoveDuck
 1310 REM Erase old duck
 1320 GCOL 0,11
 1330 REM Look for rectangles
 1340 IF (X%>LastX%) THEN
 1350    !q%=DuckWindow%
 1360    q%!4=LastX%:q%!12=X%
 1370    q%!8=Y%:q%!16=Y%+(height%(LastDuck%)<<2)+4
 1380    REM Go for erase rectangles
 1390    SYS &400C9,,q% TO f%
 1400    IF f% THEN
 1410     WHILE f%
 1420      RECTANGLE FILL q%!28,q%!32,q%!36-q%!28,q%!40-q%!32
 1430      SYS &400CA,,q% TO f%
 1440     ENDWHILE
 1450    ENDIF
 1460 ENDIF
 1470 r1%=X%+(width%(I%)<<xs%)
 1480 r2%=LastX%+(width%(LastDuck%)<<xs%)
 1490 IF (r1%<r2%)
 1500    !q%=DuckWindow%
 1510    q%!4=r1%:q%!12=r2%
 1520    q%!8=Y%:q%!16=Y%+(height%(LastDuck%)<<2)+4
 1530    REM Go for erase rectangles
 1540    SYS &400C9,,q% TO f%
 1550    IF f% THEN
 1560     WHILE f%
 1570      RECTANGLE FILL q%!28,q%!32,q%!36-q%!28,q%!40-q%!32
 1580      SYS &400CA,,q% TO f%
 1590     ENDWHILE
 1600    ENDIF
 1610 ENDIF
 1620 LastX%=X%
 1630 LastDuck%=I%
 1640
 1650 REM Paint new duck
 1660 q%!4=X%:q%!12=X%+(width%(I%)<<xs%)+4
 1670 q%!8=Y%:q%!16=Y%+(height%(I%)<<ys%)+4
 1680 
 1690 SYS &400C9,,q% TO f%
 1700 IF f% THEN
 1710  WHILE f%
 1720   PROCPlotIcon(I%,X%)
 1730   SYS &400CA,,q% TO f%
 1740  ENDWHILE
 1750 ENDIF
 1760 IF breadthrown% THEN PROCbreadthrow(BreadSpr%,breadX%)
 1770ENDPROC
 1780:
 1790DEF FNMoveDuck
 1800LOCAL xa%
 1810xr%+=dx%:xa%=xr%
 1820IF bobbing% THEN
 1830 I%=bobseq%(bobptr%)
 1840 count%-=1
 1850 IF count%<=0 THEN count%=2:bobptr%+=1
 1860 IF bobptr%=29 THEN bobbing%=FALSE:I%=1:dx%=4
 1870 IF bobptr%=60 THEN bobbing%=FALSE:I%=16:dx%=-4
 1880ELSE
 1890CASE I% OF
 1900 WHEN 1:
 1910  IF sleeping% THEN
 1920      I%=56:dx%=8:count%=2
 1930      ELSE
 1940   IF breadthrown% AND NOT downstream% THEN
 1950      I%=37:dx%=16
 1960      ELSE
 1970    IF ((breadthrown% AND downstream%) OR ((xr%>R%-200) OR RND(1)<.03)) AND count%<=0 THEN
 1980      radius%=RND(1)*100+50:dx%=0:I%=I%+1:count%=4
 1990      ELSE
 2000      count%-=1
 2010      IF RND(1)>.97 AND Quacking% THEN I%=36:count%=8:dx%=8
 2020      IF RND(1)>.97 THEN
 2030         I%=33:count%=8:dx%=4
 2040         ELSE
 2050         IF RND(1)>.99 THEN bobbing%=TRUE:count%=4:bobptr%=0:dx%=0
 2060      ENDIF
 2070    ENDIF
 2080   ENDIF
 2090  ENDIF
 2100 WHEN 16:
 2110   IF breadthrown% AND downstream% THEN
 2120      I%=38:dx%=-16
 2130      ELSE
 2140    IF  ((breadthrown% AND NOT downstream%) OR ((xr%<150) OR RND(1)<.03)) AND count%<=0 THEN
 2150      radius%=RND(1)*100+50:dx%=0:I%=I%+1:count%=4
 2160      ELSE
 2170      count%-=1
 2180      IF RND(1)>.97 AND Quacking% THEN I%=35:count%=8:dx%=-8
 2190      IF RND(1)>.97 THEN
 2200         I%=54:count%=8:dx%=-8
 2210         ELSE
 2220         IF RND(1)>.99 THEN bobbing%=TRUE:count%=4:bobptr%=30:dx%=0
 2230      ENDIF
 2240    ENDIF
 2250   ENDIF
 2260 WHEN 33:
 2270   count%-=1
 2280   IF count%=0 THEN I%=34:count%=4:dx%=8
 2290 WHEN 34:
 2300   count%-=1
 2310   IF count%=0 THEN I%=1:dx%=8
 2320 WHEN 35:
 2330   IF count%=8 THEN SOUND 2,-15,6800+RND(1)*800,20
 2340   count%-=1
 2350   IF count%=0 THEN I%=16:dx%=-8
 2360 WHEN 36:
 2370   IF count%=8 THEN SOUND 2,-15,6800+RND(1)*800,20
 2380   count%-=1
 2390   IF count%=0 THEN I%=1:dx%=8
 2400 WHEN 37:
 2410    IF (X%+(width%(I%)<<1))>=breadX% THEN breadthrown%=FALSE:I%=39:count%=4:dx%=8
 2420 WHEN 38:
 2430    IF X%<=(breadX%+(width%(BreadSpr%)<<1)) THEN breadthrown%=FALSE:I%=40:count%=4:dx%=-8
 2440 WHEN 39:
 2450   count%-=1
 2460   IF count%=0 THEN I%=1:dx%=8
 2470 WHEN 40:
 2480   count%-=1
 2490   IF count%=0 THEN I%=16:dx%=-8
 2500 WHEN 54:
 2510   count%-=1
 2520   IF count%=0 THEN I%=55:count%=4:dx%=-8
 2530 WHEN 55:
 2540   count%-=1
 2550   IF count%=0 THEN I%=16:dx%=-8
 2560 WHEN 56:
 2570   IF sleeping% THEN
 2580    count%-=1
 2590    IF count%=0 THEN I%=57:dx%=8:count%=2
 2600    ELSE
 2610    count%-=1
 2620    IF count%=0 THEN I%=1:dx%=8:count%=2
 2630   ENDIF
 2640 WHEN 57,58,59,60,61,62,63:
 2650   IF sleeping% THEN
 2660    count%-=1
 2670    IF count%=0 THEN
 2680       IF I%=63 THEN count%=8:dx%=0 ELSE dx%=4:count%=1
 2690       I%+=1:
 2700    ENDIF
 2710    ELSE
 2720    count%-=1
 2730    IF count%=0 THEN I%-=1:dx%=4:count%=1
 2740   ENDIF
 2750 WHEN 64:
 2760   dx%=0
 2770   I%=63
 2780   IF sleeping% THEN count%=8 ELSE count%=1
 2790 OTHERWISE
 2800   count%-=1
 2810   xa%=xr%+SIN(((I%<<1)-count%)*PI/32)*radius%
 2820   IF count%=0 THEN
 2830      count%=2
 2840      I%+=1
 2850      IF I%>DuckMax% THEN I%=1:dx%=8:count%=20
 2860      IF I%=16 THEN dx%=-8:count%=20
 2870   ENDIF
 2880ENDCASE
 2890ENDIF
 2900=xa%
 2910
 2920DEF PROCbreadthrow(I%,X%)
 2930 q%!4=X%:q%!12=X%+(width%(I%)<<1)+4
 2940 q%!8=Y%:q%!16=Y%+(height%(I%)<<2)+4
 2950 SYS &400C9,,q% TO f%
 2960 IF f% THEN
 2970  WHILE f%
 2980   PROCPlotIcon(I%,X%)
 2990   SYS &400CA,,q% TO f%
 3000  ENDWHILE
 3010 ENDIF
 3020ENDPROC
 3030
 3040DEF PROCredraw
 3050LOCAL f%
 3060!q%=DuckWindow%
 3070SYS &400C8,,q% TO f%
 3080 WHILE f%
 3090  PROCPlotIcon(I%,X%)
 3100  IF breadthrown% THEN PROCPlotIcon(BreadSpr%,breadX%)
 3110  SYS &400CA,,q% TO f%
 3120 ENDWHILE
 3130ENDPROC
 3140:
 3150DEF PROCPlotIcon(I%,xpos%)
 3160 !s1%=xpos%:s1%!4=Y%
 3170 s1%!8=xpos%+4+(width%(I%)<<1):s1%!12=Y%+4+(height%(I%)<<2)
 3180 s1%!20=Ducks%(I%)
 3190 SYS &400E2,,s1%
 3200ENDPROC
 3210:
 3220DEF PROCmode
 3230!q%=4:q%!4=5:q%!8=11:q%!12=12:q%!16=-1
 3240SYS "OS_ReadVduVariables",q%,q%
 3250xs%=!q%:ys%=q%!4
 3260R%=(q%!8+1)<<xs%:T%=(q%!12+1)<<ys%
 3270SYS"Wimp_ReadPixTrans",&200,sar%,Ducks%(1),,,,q%,q%+16
 3280ys%=(ys%*q%!4)/q%!12
 3290IF xr%>=R% THEN xr%=R%
 3300ENDPROC
 3310:
 3320DEF PROCopen
 3330IF !event%=DuckWindow% THEN
 3340 PROCmode
 3350 event%!4=0:event%!8=B%:event%!12=R%:event%!16=T%
 3360 SYS "Wimp_SetExtent",!event%,event%+4
 3370ENDIF
 3380SYS "Wimp_OpenWindow",,event%
 3390ENDPROC
 3400
 3410DEF PROCreceive(message%)
 3420LOCAL my_ref%, type$, option$, I%, pflag%
 3430my_ref% = message%!8
 3440CASE message%!16 OF
 3450 WHEN 0
 3460  PROCterminate
 3470ENDCASE
 3480ENDPROC
 3490
 3500DEF PROCmenu
 3510CASE !event% OF
 3520 WHEN 1:
 3530  Quacking%=NOT Quacking%
 3540  menu%!52=menu%!52 EOR 1
 3550 WHEN 2:
 3560  sleeping%=NOT sleeping%
 3570  menu%!76=menu%!76 EOR 1
 3580 WHEN 3: PROCterminate
 3590ENDCASE
 3600SYS "Wimp_GetPointerInfo",,q%
 3610IF (q%!8 AND 1)=1 THEN SYS"Wimp_CreateMenu",,menu%,q%!0-64,q%!4
 3620ENDPROC
 3630:
 3640DEFPROCsetupmenu
 3650LOCAL m%
 3660$menu%="DeskDuck+"
 3670menu%?12=7
 3680menu%?13=2
 3690menu%?14=7
 3700menu%?15=0
 3710menu%!16=140
 3720menu%!20=40
 3730menu%!24=0
 3740m%=menu%+28
 3750m%!0=&0
 3760m%!4=info%
 3770m%!8=(7<<24)OR %10001
 3780$(m%+12)="Info"
 3790m%=m%+24
 3800m%!0=&1
 3810m%!4=0
 3820m%!8=(7<<24)OR %10001
 3830$(m%+12)="Quacking"
 3840m%=m%+24
 3850m%!0=&0
 3860m%!4=0
 3870m%!8=(7<<24)OR %10001
 3880$(m%+12)="Sleeping"
 3890m%=m%+24
 3900m%!0=&80
 3910m%!4=0
 3920m%!8=(7<<24)OR %10001
 3930$(m%+12)="Quit"
 3940ENDPROC
 3950:
 3960DEF PROCterminate
 3970SYS"Wimp_CloseDown"
 3980END
 3990:
 4000DEF FNrtoz(s%)
 4010LOCAL n$
 4020WHILE?s%:n$+=CHR$?s%:s%+=1:ENDWHILE
 4030=n$
 4040:
 4050DEF PROCclose
 4060!q%=DuckWindow%:SYS "Wimp_CloseWindow",,q%
 4070ENDPROC
 4080:
 4090DEF PROCmoan(report$)
 4100ERROR &20000,report$
 4110:
 4120DEF PROCerror(err%, report$)
 4130ON ERROR OFF
 4140IF err%<&10100 OR err%>&20000 THEN report$=report$+" internal error "+STR$(ERL)
 4150!error_blk% = err%
 4160$(error_blk%+4)=report$
 4170PROCzero_terminate(error_blk%+4)
 4180SYS "Wimp_ReportError", error_blk%, 1, "DeskDuck+"
 4190ENDPROC
 4200:
 4210DEFPROCzero_terminate(S%)
 4220S%?LEN$S% = 0
 4230ENDPROC


� >!RunImage
� DeskDuck+ 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;� This is donated to the Acorn Caring for Children Disc
<� History:
F*� Quacking added 1/5/90 (My Birthday!)
P� Interactive bread 3/5/90
Z/� Bobbing+Paddling added for Sharon 23/9/90
d'� Sleeping added for Sharon 26/9/90
n$� Sleep added to menus 27/10/90 
x"ver$="2.00 30th November 1990"
�
�	�init
�&� set up the default error handler
�� � �error(�,�$)
��
�) ș "OS_ReadMonotonicTime" � newtime%
�>  � sleeping% � I%=64 newtime%+=150+�(1)*500 � newtime%+=2
�< ș "Wimp_PollIdle",poll_mask%,event%,newtime% � action%
� �despatch_poll
�� �
��
�:
���despatch_poll
 Ȏ action% �
  � 0: �null
  � 1: �redraw
"  � 2: �open
,  � 3: �close(!event%)
6$  � 6: � event%!12=DuckWindow% �
@           Ȏ event%!8 �
J<             � 4:� event%!4 < (B%+64) � � breadthrown% �
T(                      breadthrown%=�
^)                      breadX%=!event%
h3                      downstream%=(breadX%<=X%)
r8                      �breadthrow(BreadSpr%,breadX%)
|%                      sleeping%=�
�                    �
�             � 2:
�D                     menu%!76=(menu%!76 � &FE) � (sleeping% � 1)
�>                     ș &400D4,,menu%,event%!0-64,event%!4
�h             � 1: � !event% >=X% � !event%<(X%+(width%(I%)<<xs%)) � event%!4<B%+(height%(I%)<<ys%) �
�U                      � (sleeping% � I%=64) � � sleeping% � sleeping%=� sleeping%
�                     �
�           �
�          �
�  � 9: �menu
�  � 17,18:�receive(event%)
�  �
� �
�
:
� �init
&� �
0	ST%=�
:Ƞ 2
DDuckMax%=32
NSpriteTotal%=64
XMQuacking%=�:breadthrown%=�:breadX%=0:downstream%=�:bobbing%=�:sleeping%=�
bOS_SpriteOp%=&2E
lE� Ducks%(SpriteTotal%),width%(SpriteTotal%),height%(SpriteTotal%)
vK� q% &800, event% &800, error_blk% 256,menu% 256, s1% 32,winspace% &400
�� bobseq%(60)
��bobseq%()=33,42,39,43,43,44,44,45,46,47,46,45,46,47,46,45,46,47,46,45,46,47,46,45,44,44,43,43,42,42, 54,48,40,49,49,50,50,51,52,53,52,51,52,53,52,51,52,53,52,51,52,53,52,51,50,50,49,49,48,48
�bufsz%=256
�poll_mask% = �(&6004F)
� � taskid% 5: $taskid%="TASK"
�Aș "Wimp_Initialise",200,!taskid%,"DeskDuck+" � ,task_handle%
�"� � � �error(�, �$):�terminate
�� �
�N%=2
�	xr%=0
��Loadducks
�	�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%
4� I%=56 � 87:p%?I%=0:�
>p%!60=&3000
H,ș "Wimp_CreateWindow",,p% � DuckWindow%
R!q%=DuckWindow%
\ș "Wimp_OpenWindow",,q%
f6ș"Wimp_OpenTemplate",,"<DeskDuck+$Dir>.Templates"
pOș"Wimp_LoadTemplate",,q%,winspace%,winspace%+&400,-1,"info",0 �,,winspace%
z%ș"Wimp_CreateWindow",,q% � info%
�ș"Wimp_CloseTemplate"
�!q%=info%:q%!4=3
�ș "Wimp_GetIconState",,q%
�!$(q%!28)=ver$:q%!36=�(ver$)+1
�q%!8=0:q%!12=0
�ș"Wimp_SetIconState",,q%
�
��setupmenu
�)s1%!16=&40000102:s1%!24=sar%:s1%!28=0
�	I%=64
�xr%=R%>>1:dx%=8:count%=1
�X%=�MoveDuck
�	Y%=B%
LastX%=xr%:LastDuck%=1
�

$��Loadducks
.� saddr%
8� get file size
B2A%=�"<DeskDuck+$Dir>.SpriteFile":sz%=�#A%:�#A%
L
V� make a sprite area
`� sar% 100+sz%
j!sar%=100+sz%:sar%!4=0
tsar%!8=16:sar%!12=16
~ș OS_SpriteOp%,&109,sar%
�
�� load sprite file into it
�:ș 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))
�   height%(L%)=saddr%!20
��L%
�BreadSpr%=41 
��


� �null
 X%=�MoveDuck
 � Erase old duck
( � 0,11
2 � Look for rectangles
< � (X%>LastX%) �
F    !q%=DuckWindow%
P    q%!4=LastX%:q%!12=X%
Z2    q%!8=Y%:q%!16=Y%+(height%(LastDuck%)<<2)+4
d!    � Go for erase rectangles
n    ș &400C9,,q% � f%
x    � f% �
�     ȕ f%
�3      ȓ Ȑ q%!28,q%!32,q%!36-q%!28,q%!40-q%!32
�      ș &400CA,,q% � f%
�
     �
�	    �
� �
� r1%=X%+(width%(I%)<<xs%)
�( r2%=LastX%+(width%(LastDuck%)<<xs%)
� � (r1%<r2%)
�    !q%=DuckWindow%
�    q%!4=r1%:q%!12=r2%
�2    q%!8=Y%:q%!16=Y%+(height%(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%
6
     �
@	    �
J �
T LastX%=X%
^ LastDuck%=I%
h
r � Paint new duck
|) q%!4=X%:q%!12=X%+(width%(I%)<<xs%)+4
�* q%!8=Y%:q%!16=Y%+(height%(I%)<<ys%)+4
� 
� ș &400C9,,q% � f%
� � f% �
�  ȕ f%
�   �PlotIcon(I%,X%)
�   ș &400CA,,q% � f%
�  �
� �
�4 � breadthrown% � �breadthrow(BreadSpr%,breadX%)
��
�:
�� �MoveDuck
	� xa%
xr%+=dx%:xa%=xr%
� bobbing% �
& I%=bobseq%(bobptr%)
0 count%-=1
:& � count%<=0 � count%=2:bobptr%+=1
D) � bobptr%=29 � bobbing%=�:I%=1:dx%=4
N+ � bobptr%=60 � bobbing%=�:I%=16:dx%=-4
X�
bȎ I% �
l	 � 1:
v  � sleeping% �
�      I%=56:dx%=8:count%=2
�      �
�'   � breadthrown% � � downstream% �
�      I%=37:dx%=16
�      �
�R    � ((breadthrown% � downstream%) � ((xr%>R%-200) � �(1)<.03)) � count%<=0 �
�4      radius%=�(1)*100+50:dx%=0:I%=I%+1:count%=4
�      �
�      count%-=1
�7      � �(1)>.97 � Quacking% � I%=36:count%=8:dx%=8
�      � �(1)>.97 �
�!         I%=33:count%=8:dx%=4
�         �
=         � �(1)>.99 � bobbing%=�:count%=4:bobptr%=0:dx%=0
      �
	    �
    �
*  �
4
 � 16:
>%   � breadthrown% � downstream% �
H      I%=38:dx%=-16
R      �
\R    �  ((breadthrown% � � downstream%) � ((xr%<150) � �(1)<.03)) � count%<=0 �
f4      radius%=�(1)*100+50:dx%=0:I%=I%+1:count%=4
p      �
z      count%-=1
�8      � �(1)>.97 � Quacking% � I%=35:count%=8:dx%=-8
�      � �(1)>.97 �
�"         I%=54:count%=8:dx%=-8
�         �
�>         � �(1)>.99 � bobbing%=�:count%=4:bobptr%=30:dx%=0
�      �
�	    �
�   �
�
 � 33:
�   count%-=1
�(   � count%=0 � I%=34:count%=4:dx%=8
�
 � 34:
�   count%-=1
	   � count%=0 � I%=1:dx%=8
	
 � 35:
	,   � count%=8 � � 2,-15,6800+�(1)*800,20
	$   count%-=1
	.    � count%=0 � I%=16:dx%=-8
	8
 � 36:
	B,   � count%=8 � � 2,-15,6800+�(1)*800,20
	L   count%-=1
	V   � count%=0 � I%=1:dx%=8
	`
 � 37:
	jM    � (X%+(width%(I%)<<1))>=breadX% � breadthrown%=�:I%=39:count%=4:dx%=8
	t
 � 38:
	~U    � X%<=(breadX%+(width%(BreadSpr%)<<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
	�
 � 54:
	�   count%-=1
	�)   � count%=0 � I%=55:count%=4:dx%=-8
	�
 � 55:
	�   count%-=1
	�    � count%=0 � I%=16:dx%=-8

 � 56:

   � sleeping% �
    count%-=1
)    � count%=0 � I%=57:dx%=8:count%=2
(	    �
2    count%-=1
<(    � count%=0 � I%=1:dx%=8:count%=2
F   �
P � 57,58,59,60,61,62,63:
Z   � sleeping% �
d    count%-=1
n    � count%=0 �
x4       � I%=63 � count%=8:dx%=0 � dx%=4:count%=1
�       I%+=1:
�	    �
�	    �
�    count%-=1
�)    � count%=0 � I%-=1:dx%=4:count%=1
�   �
�
 � 64:
�   dx%=0
�   I%=63
�(   � sleeping% � count%=8 � count%=1
� 
�   count%-=1
�/   xa%=xr%+�(((I%<<1)-count%)*�/32)*radius%
   � count%=0 �
      count%=2
      I%+=1
".      � I%>DuckMax% � I%=1:dx%=8:count%=20
,$      � I%=16 � dx%=-8:count%=20
6   �
@�
J�
T=xa%
^
h� �breadthrow(I%,X%)
r' q%!4=X%:q%!12=X%+(width%(I%)<<1)+4
|( q%!8=Y%:q%!16=Y%+(height%(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%)
3  � breadthrown% � �PlotIcon(BreadSpr%,breadX%)
&  ș &400CA,,q% � f%
0 �
:�
D:
N� �PlotIcon(I%,xpos%)
X !s1%=xpos%:s1%!4=Y%
b? s1%!8=xpos%+4+(width%(I%)<<1):s1%!12=Y%+4+(height%(I%)<<2)
l s1%!20=Ducks%(I%)
v ș &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%
�9ș"Wimp_ReadPixTrans",&200,sar%,Ducks%(1),,,,q%,q%+16
�ys%=(ys%*q%!4)/q%!12
�� xr%>=R% � xr%=R%
��
�:
�� �open

� !event%=DuckWindow% �


 �mode

5 event%!4=0:event%!8=B%:event%!12=R%:event%!16=T%

 ) ș "Wimp_SetExtent",!event%,event%+4

*�

4 ș "Wimp_OpenWindow",,event%

>�

H

R� �receive(message%)

\)� my_ref%, type$, option$, I%, pflag%

fmy_ref% = message%!8

pȎ message%!16 �

z � 0

�  �terminate

��

��

�

�� �menu

�Ȏ !event% �

�	 � 1:

�  Quacking%=� Quacking%

�  menu%!52=menu%!52 � 1

�	 � 2:

�  sleeping%=� sleeping%

�  menu%!76=menu%!76 � 1

� � 3: �terminate
�
 ș "Wimp_GetPointerInfo",,q%
<� (q%!8 � 1)=1 � ș"Wimp_CreateMenu",,menu%,q%!0-64,q%!4
$�
.:
8��setupmenu
B� m%
L$menu%="DeskDuck+"
Vmenu%?12=7
`menu%?13=2
jmenu%?14=7
tmenu%?15=0
~menu%!16=140
�menu%!20=40
�menu%!24=0
�m%=menu%+28
�m%!0=&0
�m%!4=info%
�m%!8=(7<<24)� %10001
�$(m%+12)="Info"
�m%=m%+24
�m%!0=&1
�
m%!4=0
�m%!8=(7<<24)� %10001
�$(m%+12)="Quacking"
m%=m%+24

m%!0=&0

m%!4=0
m%!8=(7<<24)� %10001
($(m%+12)="Sleeping"
2m%=m%+24
<m%!0=&80
F
m%!4=0
Pm%!8=(7<<24)� %10001
Z$(m%+12)="Quit"
d�
n:
x� �terminate
�ș"Wimp_CloseDown"
��
�:
�� �rtoz(s%)
�� n$
�ȕ?s%:n$+=�?s%:s%+=1:�
�=n$
�:
�� �close
�-!q%=DuckWindow%:ș "Wimp_CloseWindow",,q%
��
�:
�� �moan(report$)
� &20000,report$
:
� �error(err%, report$)
"	� � �
,I� err%<&10100 � err%>&20000 � report$=report$+" internal error "+�(�)
6!error_blk% = err%
@$(error_blk%+4)=report$
J!�zero_terminate(error_blk%+4)
T5ș "Wimp_ReportError", error_blk%, 1, "DeskDuck+"
^�
h:
r��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 1f f4 20 44 65  73 6b 44 75 63 6b 2b 20  |..... DeskDuck+ |
00000020  42 79 20 53 74 75 61 72  74 20 50 61 79 6e 65 0d  |By Stuart Payne.|
00000030  00 1e 47 f4 20 41 6e 6f  74 68 65 72 20 68 61 6e  |..G. Another han|
00000040  64 20 63 72 61 66 74 65  64 20 6f 66 66 65 72 69  |d crafted offeri|
00000050  6e 67 20 66 72 6f 6d 20  43 53 5f 48 61 70 70 65  |ng from CS_Happe|
00000060  6e 69 6e 67 20 68 6f 6d  65 20 6f 66 20 44 75 63  |ning home of Duc|
00000070  6b 44 65 6d 6f 73 0d 00  28 32 f4 20 4e 6f 20 68  |kDemos..(2. No h|
00000080  65 6c 70 20 61 74 20 61  6c 6c 20 66 72 6f 6d 20  |elp at all from |
00000090  42 72 61 69 6e 20 74 68  65 20 43 61 74 20 74 68  |Brain the Cat th|
000000a0  69 73 20 74 69 6d 65 2e  0d 00 32 3b f4 20 54 68  |is time...2;. Th|
000000b0  69 73 20 69 73 20 64 6f  6e 61 74 65 64 20 74 6f  |is is donated to|
000000c0  20 74 68 65 20 41 63 6f  72 6e 20 43 61 72 69 6e  | the Acorn Carin|
000000d0  67 20 66 6f 72 20 43 68  69 6c 64 72 65 6e 20 44  |g for Children D|
000000e0  69 73 63 0d 00 3c 0e f4  20 48 69 73 74 6f 72 79  |isc..<.. History|
000000f0  3a 0d 00 46 2a f4 20 51  75 61 63 6b 69 6e 67 20  |:..F*. Quacking |
00000100  61 64 64 65 64 20 31 2f  35 2f 39 30 20 28 4d 79  |added 1/5/90 (My|
00000110  20 42 69 72 74 68 64 61  79 21 29 0d 00 50 1e f4  | Birthday!)..P..|
00000120  20 49 6e 74 65 72 61 63  74 69 76 65 20 62 72 65  | Interactive bre|
00000130  61 64 20 33 2f 35 2f 39  30 0d 00 5a 2f f4 20 42  |ad 3/5/90..Z/. B|
00000140  6f 62 62 69 6e 67 2b 50  61 64 64 6c 69 6e 67 20  |obbing+Paddling |
00000150  61 64 64 65 64 20 66 6f  72 20 53 68 61 72 6f 6e  |added for Sharon|
00000160  20 32 33 2f 39 2f 39 30  0d 00 64 27 f4 20 53 6c  | 23/9/90..d'. Sl|
00000170  65 65 70 69 6e 67 20 61  64 64 65 64 20 66 6f 72  |eeping added for|
00000180  20 53 68 61 72 6f 6e 20  32 36 2f 39 2f 39 30 0d  | Sharon 26/9/90.|
00000190  00 6e 24 f4 20 53 6c 65  65 70 20 61 64 64 65 64  |.n$. Sleep added|
000001a0  20 74 6f 20 6d 65 6e 75  73 20 32 37 2f 31 30 2f  | to menus 27/10/|
000001b0  39 30 20 0d 00 78 22 76  65 72 24 3d 22 32 2e 30  |90 ..x"ver$="2.0|
000001c0  30 20 33 30 74 68 20 4e  6f 76 65 6d 62 65 72 20  |0 30th November |
000001d0  31 39 39 30 22 0d 00 82  04 0d 00 8c 09 f2 69 6e  |1990".........in|
000001e0  69 74 0d 00 96 26 f4 20  73 65 74 20 75 70 20 74  |it...&. set up t|
000001f0  68 65 20 64 65 66 61 75  6c 74 20 65 72 72 6f 72  |he default error|
00000200  20 68 61 6e 64 6c 65 72  0d 00 a0 14 ee 20 85 20  | handler..... . |
00000210  f2 65 72 72 6f 72 28 9f  2c f6 24 29 0d 00 aa 05  |.error(.,.$)....|
00000220  f5 0d 00 b4 29 20 c8 99  20 22 4f 53 5f 52 65 61  |....) .. "OS_Rea|
00000230  64 4d 6f 6e 6f 74 6f 6e  69 63 54 69 6d 65 22 20  |dMonotonicTime" |
00000240  b8 20 6e 65 77 74 69 6d  65 25 0d 00 be 3e 20 20  |. newtime%...>  |
00000250  e7 20 73 6c 65 65 70 69  6e 67 25 20 80 20 49 25  |. sleeping% . I%|
00000260  3d 36 34 20 6e 65 77 74  69 6d 65 25 2b 3d 31 35  |=64 newtime%+=15|
00000270  30 2b b3 28 31 29 2a 35  30 30 20 8b 20 6e 65 77  |0+.(1)*500 . new|
00000280  74 69 6d 65 25 2b 3d 32  0d 00 c8 3c 20 c8 99 20  |time%+=2...< .. |
00000290  22 57 69 6d 70 5f 50 6f  6c 6c 49 64 6c 65 22 2c  |"Wimp_PollIdle",|
000002a0  70 6f 6c 6c 5f 6d 61 73  6b 25 2c 65 76 65 6e 74  |poll_mask%,event|
000002b0  25 2c 6e 65 77 74 69 6d  65 25 20 b8 20 61 63 74  |%,newtime% . act|
000002c0  69 6f 6e 25 0d 00 d2 13  20 f2 64 65 73 70 61 74  |ion%.... .despat|
000002d0  63 68 5f 70 6f 6c 6c 0d  00 dc 07 fd 20 a3 0d 00  |ch_poll..... ...|
000002e0  e6 05 e0 0d 00 f0 05 3a  0d 00 fa 13 dd f2 64 65  |.......:......de|
000002f0  73 70 61 74 63 68 5f 70  6f 6c 6c 0d 01 04 11 20  |spatch_poll.... |
00000300  c8 8e 20 61 63 74 69 6f  6e 25 20 ca 0d 01 0e 10  |.. action% .....|
00000310  20 20 c9 20 30 3a 20 f2  6e 75 6c 6c 0d 01 18 12  |  . 0: .null....|
00000320  20 20 c9 20 31 3a 20 f2  72 65 64 72 61 77 0d 01  |  . 1: .redraw..|
00000330  22 10 20 20 c9 20 32 3a  20 f2 6f 70 65 6e 0d 01  |".  . 2: .open..|
00000340  2c 1a 20 20 c9 20 33 3a  20 f2 63 6c 6f 73 65 28  |,.  . 3: .close(|
00000350  21 65 76 65 6e 74 25 29  0d 01 36 24 20 20 c9 20  |!event%)..6$  . |
00000360  36 3a 20 e7 20 65 76 65  6e 74 25 21 31 32 3d 44  |6: . event%!12=D|
00000370  75 63 6b 57 69 6e 64 6f  77 25 20 8c 0d 01 40 1c  |uckWindow% ...@.|
00000380  20 20 20 20 20 20 20 20  20 20 20 c8 8e 20 65 76  |           .. ev|
00000390  65 6e 74 25 21 38 20 ca  0d 01 4a 3c 20 20 20 20  |ent%!8 ...J<    |
000003a0  20 20 20 20 20 20 20 20  20 c9 20 34 3a e7 20 65  |         . 4:. e|
000003b0  76 65 6e 74 25 21 34 20  3c 20 28 42 25 2b 36 34  |vent%!4 < (B%+64|
000003c0  29 20 80 20 ac 20 62 72  65 61 64 74 68 72 6f 77  |) . . breadthrow|
000003d0  6e 25 20 8c 0d 01 54 28  20 20 20 20 20 20 20 20  |n% ...T(        |
000003e0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 62 72  |              br|
000003f0  65 61 64 74 68 72 6f 77  6e 25 3d b9 0d 01 5e 29  |eadthrown%=...^)|
00000400  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000410  20 20 20 20 20 20 62 72  65 61 64 58 25 3d 21 65  |      breadX%=!e|
00000420  76 65 6e 74 25 0d 01 68  33 20 20 20 20 20 20 20  |vent%..h3       |
00000430  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 64  |               d|
00000440  6f 77 6e 73 74 72 65 61  6d 25 3d 28 62 72 65 61  |ownstream%=(brea|
00000450  64 58 25 3c 3d 58 25 29  0d 01 72 38 20 20 20 20  |dX%<=X%)..r8    |
00000460  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000470  20 20 f2 62 72 65 61 64  74 68 72 6f 77 28 42 72  |  .breadthrow(Br|
00000480  65 61 64 53 70 72 25 2c  62 72 65 61 64 58 25 29  |eadSpr%,breadX%)|
00000490  0d 01 7c 25 20 20 20 20  20 20 20 20 20 20 20 20  |..|%            |
000004a0  20 20 20 20 20 20 20 20  20 20 73 6c 65 65 70 69  |          sleepi|
000004b0  6e 67 25 3d a3 0d 01 86  19 20 20 20 20 20 20 20  |ng%=.....       |
000004c0  20 20 20 20 20 20 20 20  20 20 20 20 20 cd 0d 01  |             ...|
000004d0  90 15 20 20 20 20 20 20  20 20 20 20 20 20 20 c9  |..             .|
000004e0  20 32 3a 0d 01 9a 44 20  20 20 20 20 20 20 20 20  | 2:...D         |
000004f0  20 20 20 20 20 20 20 20  20 20 20 20 6d 65 6e 75  |            menu|
00000500  25 21 37 36 3d 28 6d 65  6e 75 25 21 37 36 20 80  |%!76=(menu%!76 .|
00000510  20 26 46 45 29 20 84 20  28 73 6c 65 65 70 69 6e  | &FE) . (sleepin|
00000520  67 25 20 80 20 31 29 0d  01 a4 3e 20 20 20 20 20  |g% . 1)...>     |
00000530  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000540  c8 99 20 26 34 30 30 44  34 2c 2c 6d 65 6e 75 25  |.. &400D4,,menu%|
00000550  2c 65 76 65 6e 74 25 21  30 2d 36 34 2c 65 76 65  |,event%!0-64,eve|
00000560  6e 74 25 21 34 0d 01 ae  68 20 20 20 20 20 20 20  |nt%!4...h       |
00000570  20 20 20 20 20 20 c9 20  31 3a 20 e7 20 21 65 76  |      . 1: . !ev|
00000580  65 6e 74 25 20 3e 3d 58  25 20 80 20 21 65 76 65  |ent% >=X% . !eve|
00000590  6e 74 25 3c 28 58 25 2b  28 77 69 64 74 68 25 28  |nt%<(X%+(width%(|
000005a0  49 25 29 3c 3c 78 73 25  29 29 20 80 20 65 76 65  |I%)<<xs%)) . eve|
000005b0  6e 74 25 21 34 3c 42 25  2b 28 68 65 69 67 68 74  |nt%!4<B%+(height|
000005c0  25 28 49 25 29 3c 3c 79  73 25 29 20 8c 0d 01 b8  |%(I%)<<ys%) ....|
000005d0  55 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |U               |
000005e0  20 20 20 20 20 20 20 e7  20 28 73 6c 65 65 70 69  |       . (sleepi|
000005f0  6e 67 25 20 80 20 49 25  3d 36 34 29 20 84 20 ac  |ng% . I%=64) . .|
00000600  20 73 6c 65 65 70 69 6e  67 25 20 8c 20 73 6c 65  | sleeping% . sle|
00000610  65 70 69 6e 67 25 3d ac  20 73 6c 65 65 70 69 6e  |eping%=. sleepin|
00000620  67 25 0d 01 c2 1a 20 20  20 20 20 20 20 20 20 20  |g%....          |
00000630  20 20 20 20 20 20 20 20  20 20 20 cd 0d 01 cc 10  |           .....|
00000640  20 20 20 20 20 20 20 20  20 20 20 cb 0d 01 d6 0f  |           .....|
00000650  20 20 20 20 20 20 20 20  20 20 cd 0d 01 e0 10 20  |          ..... |
00000660  20 c9 20 39 3a 20 f2 6d  65 6e 75 0d 01 ea 1e 20  | . 9: .menu.... |
00000670  20 c9 20 31 37 2c 31 38  3a f2 72 65 63 65 69 76  | . 17,18:.receiv|
00000680  65 28 65 76 65 6e 74 25  29 0d 01 f4 07 20 20 cb  |e(event%)....  .|
00000690  0d 01 fe 06 20 cd 0d 02  08 05 e1 0d 02 12 05 3a  |.... ..........:|
000006a0  0d 02 1c 0b dd 20 f2 69  6e 69 74 0d 02 26 07 ea  |..... .init..&..|
000006b0  20 85 0d 02 30 09 53 54  25 3d 91 0d 02 3a 08 c8  | ...0.ST%=...:..|
000006c0  a0 20 32 0d 02 44 0f 44  75 63 6b 4d 61 78 25 3d  |. 2..D.DuckMax%=|
000006d0  33 32 0d 02 4e 13 53 70  72 69 74 65 54 6f 74 61  |32..N.SpriteTota|
000006e0  6c 25 3d 36 34 0d 02 58  4d 51 75 61 63 6b 69 6e  |l%=64..XMQuackin|
000006f0  67 25 3d b9 3a 62 72 65  61 64 74 68 72 6f 77 6e  |g%=.:breadthrown|
00000700  25 3d a3 3a 62 72 65 61  64 58 25 3d 30 3a 64 6f  |%=.:breadX%=0:do|
00000710  77 6e 73 74 72 65 61 6d  25 3d a3 3a 62 6f 62 62  |wnstream%=.:bobb|
00000720  69 6e 67 25 3d a3 3a 73  6c 65 65 70 69 6e 67 25  |ing%=.:sleeping%|
00000730  3d a3 0d 02 62 14 4f 53  5f 53 70 72 69 74 65 4f  |=...b.OS_SpriteO|
00000740  70 25 3d 26 32 45 0d 02  6c 45 de 20 44 75 63 6b  |p%=&2E..lE. Duck|
00000750  73 25 28 53 70 72 69 74  65 54 6f 74 61 6c 25 29  |s%(SpriteTotal%)|
00000760  2c 77 69 64 74 68 25 28  53 70 72 69 74 65 54 6f  |,width%(SpriteTo|
00000770  74 61 6c 25 29 2c 68 65  69 67 68 74 25 28 53 70  |tal%),height%(Sp|
00000780  72 69 74 65 54 6f 74 61  6c 25 29 0d 02 76 4b de  |riteTotal%)..vK.|
00000790  20 71 25 20 26 38 30 30  2c 20 65 76 65 6e 74 25  | q% &800, event%|
000007a0  20 26 38 30 30 2c 20 65  72 72 6f 72 5f 62 6c 6b  | &800, error_blk|
000007b0  25 20 32 35 36 2c 6d 65  6e 75 25 20 32 35 36 2c  |% 256,menu% 256,|
000007c0  20 73 31 25 20 33 32 2c  77 69 6e 73 70 61 63 65  | s1% 32,winspace|
000007d0  25 20 26 34 30 30 0d 02  80 11 de 20 62 6f 62 73  |% &400..... bobs|
000007e0  65 71 25 28 36 30 29 0d  02 8a c2 62 6f 62 73 65  |eq%(60)....bobse|
000007f0  71 25 28 29 3d 33 33 2c  34 32 2c 33 39 2c 34 33  |q%()=33,42,39,43|
00000800  2c 34 33 2c 34 34 2c 34  34 2c 34 35 2c 34 36 2c  |,43,44,44,45,46,|
00000810  34 37 2c 34 36 2c 34 35  2c 34 36 2c 34 37 2c 34  |47,46,45,46,47,4|
00000820  36 2c 34 35 2c 34 36 2c  34 37 2c 34 36 2c 34 35  |6,45,46,47,46,45|
00000830  2c 34 36 2c 34 37 2c 34  36 2c 34 35 2c 34 34 2c  |,46,47,46,45,44,|
00000840  34 34 2c 34 33 2c 34 33  2c 34 32 2c 34 32 2c 20  |44,43,43,42,42, |
00000850  35 34 2c 34 38 2c 34 30  2c 34 39 2c 34 39 2c 35  |54,48,40,49,49,5|
00000860  30 2c 35 30 2c 35 31 2c  35 32 2c 35 33 2c 35 32  |0,50,51,52,53,52|
00000870  2c 35 31 2c 35 32 2c 35  33 2c 35 32 2c 35 31 2c  |,51,52,53,52,51,|
00000880  35 32 2c 35 33 2c 35 32  2c 35 31 2c 35 32 2c 35  |52,53,52,51,52,5|
00000890  33 2c 35 32 2c 35 31 2c  35 30 2c 35 30 2c 34 39  |3,52,51,50,50,49|
000008a0  2c 34 39 2c 34 38 2c 34  38 0d 02 94 0e 62 75 66  |,49,48,48....buf|
000008b0  73 7a 25 3d 32 35 36 0d  02 9e 1a 70 6f 6c 6c 5f  |sz%=256....poll_|
000008c0  6d 61 73 6b 25 20 3d 20  ac 28 26 36 30 30 34 46  |mask% = .(&6004F|
000008d0  29 0d 02 a8 20 de 20 74  61 73 6b 69 64 25 20 35  |)... . taskid% 5|
000008e0  3a 20 24 74 61 73 6b 69  64 25 3d 22 54 41 53 4b  |: $taskid%="TASK|
000008f0  22 0d 02 b2 41 c8 99 20  22 57 69 6d 70 5f 49 6e  |"...A.. "Wimp_In|
00000900  69 74 69 61 6c 69 73 65  22 2c 32 30 30 2c 21 74  |itialise",200,!t|
00000910  61 73 6b 69 64 25 2c 22  44 65 73 6b 44 75 63 6b  |askid%,"DeskDuck|
00000920  2b 22 20 b8 20 2c 74 61  73 6b 5f 68 61 6e 64 6c  |+" . ,task_handl|
00000930  65 25 0d 02 bc 22 ee 20  85 20 ea 20 f2 65 72 72  |e%...". . . .err|
00000940  6f 72 28 9f 2c 20 f6 24  29 3a f2 74 65 72 6d 69  |or(., .$):.termi|
00000950  6e 61 74 65 0d 02 c6 07  ea 20 85 0d 02 d0 08 4e  |nate..... .....N|
00000960  25 3d 32 0d 02 da 09 78  72 25 3d 30 0d 02 e4 0e  |%=2....xr%=0....|
00000970  f2 4c 6f 61 64 64 75 63  6b 73 0d 02 ee 09 f2 6d  |.Loadducks.....m|
00000980  6f 64 65 0d 02 f8 0a 42  25 3d 31 33 36 0d 03 02  |ode....B%=136...|
00000990  0b 70 25 3d 71 25 2b 34  0d 03 0c 22 21 70 25 3d  |.p%=q%+4..."!p%=|
000009a0  30 3a 70 25 21 34 3d 42  25 3a 70 25 21 38 3d 52  |0:p%!4=B%:p%!8=R|
000009b0  25 3a 70 25 21 31 32 3d  54 25 0d 03 16 14 70 25  |%:p%!12=T%....p%|
000009c0  21 31 36 3d 30 3a 70 25  21 32 30 3d 54 25 0d 03  |!16=0:p%!20=T%..|
000009d0  20 2e 70 25 21 32 34 3d  2d 32 3a 70 25 21 32 38  | .p%!24=-2:p%!28|
000009e0  3d 26 38 43 30 3a 70 25  21 33 32 3d 26 34 30 34  |=&8C0:p%!32=&404|
000009f0  30 34 30 37 3a 70 25 21  33 36 3d 30 0d 03 2a 26  |0407:p%!36=0..*&|
00000a00  70 25 21 34 30 3d 30 3a  70 25 21 34 34 3d 42 25  |p%!40=0:p%!44=B%|
00000a10  3a 70 25 21 34 38 3d 52  25 3a 70 25 21 35 32 3d  |:p%!48=R%:p%!52=|
00000a20  54 25 0d 03 34 1a e3 20  49 25 3d 35 36 20 b8 20  |T%..4.. I%=56 . |
00000a30  38 37 3a 70 25 3f 49 25  3d 30 3a ed 0d 03 3e 0f  |87:p%?I%=0:...>.|
00000a40  70 25 21 36 30 3d 26 33  30 30 30 0d 03 48 2c c8  |p%!60=&3000..H,.|
00000a50  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 57 69  |. "Wimp_CreateWi|
00000a60  6e 64 6f 77 22 2c 2c 70  25 20 b8 20 44 75 63 6b  |ndow",,p% . Duck|
00000a70  57 69 6e 64 6f 77 25 0d  03 52 13 21 71 25 3d 44  |Window%..R.!q%=D|
00000a80  75 63 6b 57 69 6e 64 6f  77 25 0d 03 5c 1c c8 99  |uckWindow%..\...|
00000a90  20 22 57 69 6d 70 5f 4f  70 65 6e 57 69 6e 64 6f  | "Wimp_OpenWindo|
00000aa0  77 22 2c 2c 71 25 0d 03  66 36 c8 99 22 57 69 6d  |w",,q%..f6.."Wim|
00000ab0  70 5f 4f 70 65 6e 54 65  6d 70 6c 61 74 65 22 2c  |p_OpenTemplate",|
00000ac0  2c 22 3c 44 65 73 6b 44  75 63 6b 2b 24 44 69 72  |,"<DeskDuck+$Dir|
00000ad0  3e 2e 54 65 6d 70 6c 61  74 65 73 22 0d 03 70 4f  |>.Templates"..pO|
00000ae0  c8 99 22 57 69 6d 70 5f  4c 6f 61 64 54 65 6d 70  |.."Wimp_LoadTemp|
00000af0  6c 61 74 65 22 2c 2c 71  25 2c 77 69 6e 73 70 61  |late",,q%,winspa|
00000b00  63 65 25 2c 77 69 6e 73  70 61 63 65 25 2b 26 34  |ce%,winspace%+&4|
00000b10  30 30 2c 2d 31 2c 22 69  6e 66 6f 22 2c 30 20 b8  |00,-1,"info",0 .|
00000b20  2c 2c 77 69 6e 73 70 61  63 65 25 0d 03 7a 25 c8  |,,winspace%..z%.|
00000b30  99 22 57 69 6d 70 5f 43  72 65 61 74 65 57 69 6e  |."Wimp_CreateWin|
00000b40  64 6f 77 22 2c 2c 71 25  20 b8 20 69 6e 66 6f 25  |dow",,q% . info%|
00000b50  0d 03 84 1a c8 99 22 57  69 6d 70 5f 43 6c 6f 73  |......"Wimp_Clos|
00000b60  65 54 65 6d 70 6c 61 74  65 22 0d 03 8e 14 21 71  |eTemplate"....!q|
00000b70  25 3d 69 6e 66 6f 25 3a  71 25 21 34 3d 33 0d 03  |%=info%:q%!4=3..|
00000b80  98 1e c8 99 20 22 57 69  6d 70 5f 47 65 74 49 63  |.... "Wimp_GetIc|
00000b90  6f 6e 53 74 61 74 65 22  2c 2c 71 25 0d 03 a2 21  |onState",,q%...!|
00000ba0  24 28 71 25 21 32 38 29  3d 76 65 72 24 3a 71 25  |$(q%!28)=ver$:q%|
00000bb0  21 33 36 3d a9 28 76 65  72 24 29 2b 31 0d 03 ac  |!36=.(ver$)+1...|
00000bc0  12 71 25 21 38 3d 30 3a  71 25 21 31 32 3d 30 0d  |.q%!8=0:q%!12=0.|
00000bd0  03 b6 1d c8 99 22 57 69  6d 70 5f 53 65 74 49 63  |....."Wimp_SetIc|
00000be0  6f 6e 53 74 61 74 65 22  2c 2c 71 25 0d 03 c0 04  |onState",,q%....|
00000bf0  0d 03 ca 0e f2 73 65 74  75 70 6d 65 6e 75 0d 03  |.....setupmenu..|
00000c00  d4 29 73 31 25 21 31 36  3d 26 34 30 30 30 30 31  |.)s1%!16=&400001|
00000c10  30 32 3a 73 31 25 21 32  34 3d 73 61 72 25 3a 73  |02:s1%!24=sar%:s|
00000c20  31 25 21 32 38 3d 30 0d  03 de 09 49 25 3d 36 34  |1%!28=0....I%=64|
00000c30  0d 03 e8 1c 78 72 25 3d  52 25 3e 3e 31 3a 64 78  |....xr%=R%>>1:dx|
00000c40  25 3d 38 3a 63 6f 75 6e  74 25 3d 31 0d 03 f2 10  |%=8:count%=1....|
00000c50  58 25 3d a4 4d 6f 76 65  44 75 63 6b 0d 03 fc 09  |X%=.MoveDuck....|
00000c60  59 25 3d 42 25 0d 04 06  1a 4c 61 73 74 58 25 3d  |Y%=B%....LastX%=|
00000c70  78 72 25 3a 4c 61 73 74  44 75 63 6b 25 3d 31 0d  |xr%:LastDuck%=1.|
00000c80  04 10 05 e1 0d 04 1a 04  0d 04 24 0f dd f2 4c 6f  |..........$...Lo|
00000c90  61 64 64 75 63 6b 73 0d  04 2e 0c ea 20 73 61 64  |adducks..... sad|
00000ca0  64 72 25 0d 04 38 13 f4  20 67 65 74 20 66 69 6c  |dr%..8.. get fil|
00000cb0  65 20 73 69 7a 65 0d 04  42 32 41 25 3d 8e 22 3c  |e size..B2A%=."<|
00000cc0  44 65 73 6b 44 75 63 6b  2b 24 44 69 72 3e 2e 53  |DeskDuck+$Dir>.S|
00000cd0  70 72 69 74 65 46 69 6c  65 22 3a 73 7a 25 3d a2  |priteFile":sz%=.|
00000ce0  23 41 25 3a d9 23 41 25  0d 04 4c 04 0d 04 56 18  |#A%:.#A%..L...V.|
00000cf0  f4 20 6d 61 6b 65 20 61  20 73 70 72 69 74 65 20  |. make a sprite |
00000d00  61 72 65 61 0d 04 60 12  de 20 73 61 72 25 20 31  |area..`.. sar% 1|
00000d10  30 30 2b 73 7a 25 0d 04  6a 1a 21 73 61 72 25 3d  |00+sz%..j.!sar%=|
00000d20  31 30 30 2b 73 7a 25 3a  73 61 72 25 21 34 3d 30  |100+sz%:sar%!4=0|
00000d30  0d 04 74 18 73 61 72 25  21 38 3d 31 36 3a 73 61  |..t.sar%!8=16:sa|
00000d40  72 25 21 31 32 3d 31 36  0d 04 7e 1d c8 99 20 4f  |r%!12=16..~... O|
00000d50  53 5f 53 70 72 69 74 65  4f 70 25 2c 26 31 30 39  |S_SpriteOp%,&109|
00000d60  2c 73 61 72 25 0d 04 88  04 0d 04 92 1e f4 20 6c  |,sar%......... l|
00000d70  6f 61 64 20 73 70 72 69  74 65 20 66 69 6c 65 20  |oad sprite file |
00000d80  69 6e 74 6f 20 69 74 0d  04 9c 3a c8 99 20 4f 53  |into it...:.. OS|
00000d90  5f 53 70 72 69 74 65 4f  70 25 2c 26 31 30 41 2c  |_SpriteOp%,&10A,|
00000da0  73 61 72 25 2c 22 3c 44  65 73 6b 44 75 63 6b 2b  |sar%,"<DeskDuck+|
00000db0  24 44 69 72 3e 2e 53 70  72 69 74 65 46 69 6c 65  |$Dir>.SpriteFile|
00000dc0  22 0d 04 a6 27 f4 20 67  65 74 20 61 64 64 72 65  |"...'. get addre|
00000dd0  73 73 65 73 20 6f 66 20  74 68 65 20 64 75 63 6b  |sses of the duck|
00000de0  20 73 70 72 69 74 65 73  0d 04 b0 19 e3 20 4c 25  | sprites..... L%|
00000df0  3d 31 20 b8 20 53 70 72  69 74 65 54 6f 74 61 6c  |=1 . SpriteTotal|
00000e00  25 0d 04 ba 37 20 20 20  c8 99 20 4f 53 5f 53 70  |%...7   .. OS_Sp|
00000e10  72 69 74 65 4f 70 25 2c  26 31 31 38 2c 73 61 72  |riteOp%,&118,sar|
00000e20  25 2c 22 64 75 63 6b 22  2b c3 28 4c 25 29 20 b8  |%,"duck"+.(L%) .|
00000e30  2c 2c 73 61 64 64 72 25  0d 04 c4 18 20 20 20 44  |,,saddr%....   D|
00000e40  75 63 6b 73 25 28 4c 25  29 3d 73 61 64 64 72 25  |ucks%(L%)=saddr%|
00000e50  0d 04 ce 47 20 20 20 77  69 64 74 68 25 28 4c 25  |...G   width%(L%|
00000e60  29 3d 28 28 28 73 61 64  64 72 25 21 31 36 29 2b  |)=(((saddr%!16)+|
00000e70  31 29 2a 38 29 2d 28 73  61 64 64 72 25 21 32 34  |1)*8)-(saddr%!24|
00000e80  3e 3e 32 29 2d 28 37 2d  28 73 61 64 64 72 25 21  |>>2)-(7-(saddr%!|
00000e90  32 38 3e 3e 32 29 29 0d  04 d8 1c 20 20 20 68 65  |28>>2))....   he|
00000ea0  69 67 68 74 25 28 4c 25  29 3d 73 61 64 64 72 25  |ight%(L%)=saddr%|
00000eb0  21 32 30 0d 04 e2 07 ed  4c 25 0d 04 ec 11 42 72  |!20.....L%....Br|
00000ec0  65 61 64 53 70 72 25 3d  34 31 20 0d 04 f6 05 e1  |eadSpr%=41 .....|
00000ed0  0d 05 00 04 0d 05 0a 0b  dd 20 f2 6e 75 6c 6c 0d  |......... .null.|
00000ee0  05 14 11 20 58 25 3d a4  4d 6f 76 65 44 75 63 6b  |... X%=.MoveDuck|
00000ef0  0d 05 1e 15 20 f4 20 45  72 61 73 65 20 6f 6c 64  |.... . Erase old|
00000f00  20 64 75 63 6b 0d 05 28  0b 20 e6 20 30 2c 31 31  | duck..(. . 0,11|
00000f10  0d 05 32 1a 20 f4 20 4c  6f 6f 6b 20 66 6f 72 20  |..2. . Look for |
00000f20  72 65 63 74 61 6e 67 6c  65 73 0d 05 3c 14 20 e7  |rectangles..<. .|
00000f30  20 28 58 25 3e 4c 61 73  74 58 25 29 20 8c 0d 05  | (X%>LastX%) ...|
00000f40  46 17 20 20 20 20 21 71  25 3d 44 75 63 6b 57 69  |F.    !q%=DuckWi|
00000f50  6e 64 6f 77 25 0d 05 50  1c 20 20 20 20 71 25 21  |ndow%..P.    q%!|
00000f60  34 3d 4c 61 73 74 58 25  3a 71 25 21 31 32 3d 58  |4=LastX%:q%!12=X|
00000f70  25 0d 05 5a 32 20 20 20  20 71 25 21 38 3d 59 25  |%..Z2    q%!8=Y%|
00000f80  3a 71 25 21 31 36 3d 59  25 2b 28 68 65 69 67 68  |:q%!16=Y%+(heigh|
00000f90  74 25 28 4c 61 73 74 44  75 63 6b 25 29 3c 3c 32  |t%(LastDuck%)<<2|
00000fa0  29 2b 34 0d 05 64 21 20  20 20 20 f4 20 47 6f 20  |)+4..d!    . Go |
00000fb0  66 6f 72 20 65 72 61 73  65 20 72 65 63 74 61 6e  |for erase rectan|
00000fc0  67 6c 65 73 0d 05 6e 1a  20 20 20 20 c8 99 20 26  |gles..n.    .. &|
00000fd0  34 30 30 43 39 2c 2c 71  25 20 b8 20 66 25 0d 05  |400C9,,q% . f%..|
00000fe0  78 0e 20 20 20 20 e7 20  66 25 20 8c 0d 05 82 0e  |x.    . f% .....|
00000ff0  20 20 20 20 20 c8 95 20  66 25 0d 05 8c 33 20 20  |     .. f%...3  |
00001000  20 20 20 20 c8 93 20 c8  90 20 71 25 21 32 38 2c  |    .. .. q%!28,|
00001010  71 25 21 33 32 2c 71 25  21 33 36 2d 71 25 21 32  |q%!32,q%!36-q%!2|
00001020  38 2c 71 25 21 34 30 2d  71 25 21 33 32 0d 05 96  |8,q%!40-q%!32...|
00001030  1c 20 20 20 20 20 20 c8  99 20 26 34 30 30 43 41  |.      .. &400CA|
00001040  2c 2c 71 25 20 b8 20 66  25 0d 05 a0 0a 20 20 20  |,,q% . f%....   |
00001050  20 20 ce 0d 05 aa 09 20  20 20 20 cd 0d 05 b4 06  |  .....    .....|
00001060  20 cd 0d 05 be 1d 20 72  31 25 3d 58 25 2b 28 77  | ..... r1%=X%+(w|
00001070  69 64 74 68 25 28 49 25  29 3c 3c 78 73 25 29 0d  |idth%(I%)<<xs%).|
00001080  05 c8 28 20 72 32 25 3d  4c 61 73 74 58 25 2b 28  |..( r2%=LastX%+(|
00001090  77 69 64 74 68 25 28 4c  61 73 74 44 75 63 6b 25  |width%(LastDuck%|
000010a0  29 3c 3c 78 73 25 29 0d  05 d2 10 20 e7 20 28 72  |)<<xs%).... . (r|
000010b0  31 25 3c 72 32 25 29 0d  05 dc 17 20 20 20 20 21  |1%<r2%)....    !|
000010c0  71 25 3d 44 75 63 6b 57  69 6e 64 6f 77 25 0d 05  |q%=DuckWindow%..|
000010d0  e6 1a 20 20 20 20 71 25  21 34 3d 72 31 25 3a 71  |..    q%!4=r1%:q|
000010e0  25 21 31 32 3d 72 32 25  0d 05 f0 32 20 20 20 20  |%!12=r2%...2    |
000010f0  71 25 21 38 3d 59 25 3a  71 25 21 31 36 3d 59 25  |q%!8=Y%:q%!16=Y%|
00001100  2b 28 68 65 69 67 68 74  25 28 4c 61 73 74 44 75  |+(height%(LastDu|
00001110  63 6b 25 29 3c 3c 32 29  2b 34 0d 05 fa 21 20 20  |ck%)<<2)+4...!  |
00001120  20 20 f4 20 47 6f 20 66  6f 72 20 65 72 61 73 65  |  . Go for erase|
00001130  20 72 65 63 74 61 6e 67  6c 65 73 0d 06 04 1a 20  | rectangles.... |
00001140  20 20 20 c8 99 20 26 34  30 30 43 39 2c 2c 71 25  |   .. &400C9,,q%|
00001150  20 b8 20 66 25 0d 06 0e  0e 20 20 20 20 e7 20 66  | . f%....    . f|
00001160  25 20 8c 0d 06 18 0e 20  20 20 20 20 c8 95 20 66  |% .....     .. f|
00001170  25 0d 06 22 33 20 20 20  20 20 20 c8 93 20 c8 90  |%.."3      .. ..|
00001180  20 71 25 21 32 38 2c 71  25 21 33 32 2c 71 25 21  | q%!28,q%!32,q%!|
00001190  33 36 2d 71 25 21 32 38  2c 71 25 21 34 30 2d 71  |36-q%!28,q%!40-q|
000011a0  25 21 33 32 0d 06 2c 1c  20 20 20 20 20 20 c8 99  |%!32..,.      ..|
000011b0  20 26 34 30 30 43 41 2c  2c 71 25 20 b8 20 66 25  | &400CA,,q% . f%|
000011c0  0d 06 36 0a 20 20 20 20  20 ce 0d 06 40 09 20 20  |..6.     ...@.  |
000011d0  20 20 cd 0d 06 4a 06 20  cd 0d 06 54 0e 20 4c 61  |  ...J. ...T. La|
000011e0  73 74 58 25 3d 58 25 0d  06 5e 11 20 4c 61 73 74  |stX%=X%..^. Last|
000011f0  44 75 63 6b 25 3d 49 25  0d 06 68 04 0d 06 72 15  |Duck%=I%..h...r.|
00001200  20 f4 20 50 61 69 6e 74  20 6e 65 77 20 64 75 63  | . Paint new duc|
00001210  6b 0d 06 7c 29 20 71 25  21 34 3d 58 25 3a 71 25  |k..|) q%!4=X%:q%|
00001220  21 31 32 3d 58 25 2b 28  77 69 64 74 68 25 28 49  |!12=X%+(width%(I|
00001230  25 29 3c 3c 78 73 25 29  2b 34 0d 06 86 2a 20 71  |%)<<xs%)+4...* q|
00001240  25 21 38 3d 59 25 3a 71  25 21 31 36 3d 59 25 2b  |%!8=Y%:q%!16=Y%+|
00001250  28 68 65 69 67 68 74 25  28 49 25 29 3c 3c 79 73  |(height%(I%)<<ys|
00001260  25 29 2b 34 0d 06 90 05  20 0d 06 9a 17 20 c8 99  |%)+4.... .... ..|
00001270  20 26 34 30 30 43 39 2c  2c 71 25 20 b8 20 66 25  | &400C9,,q% . f%|
00001280  0d 06 a4 0b 20 e7 20 66  25 20 8c 0d 06 ae 0b 20  |.... . f% ..... |
00001290  20 c8 95 20 66 25 0d 06  b8 17 20 20 20 f2 50 6c  | .. f%....   .Pl|
000012a0  6f 74 49 63 6f 6e 28 49  25 2c 58 25 29 0d 06 c2  |otIcon(I%,X%)...|
000012b0  19 20 20 20 c8 99 20 26  34 30 30 43 41 2c 2c 71  |.   .. &400CA,,q|
000012c0  25 20 b8 20 66 25 0d 06  cc 07 20 20 ce 0d 06 d6  |% . f%....  ....|
000012d0  06 20 cd 0d 06 e0 34 20  e7 20 62 72 65 61 64 74  |. ....4 . breadt|
000012e0  68 72 6f 77 6e 25 20 8c  20 f2 62 72 65 61 64 74  |hrown% . .breadt|
000012f0  68 72 6f 77 28 42 72 65  61 64 53 70 72 25 2c 62  |hrow(BreadSpr%,b|
00001300  72 65 61 64 58 25 29 0d  06 ea 05 e1 0d 06 f4 05  |readX%).........|
00001310  3a 0d 06 fe 0f dd 20 a4  4d 6f 76 65 44 75 63 6b  |:..... .MoveDuck|
00001320  0d 07 08 09 ea 20 78 61  25 0d 07 12 14 78 72 25  |..... xa%....xr%|
00001330  2b 3d 64 78 25 3a 78 61  25 3d 78 72 25 0d 07 1c  |+=dx%:xa%=xr%...|
00001340  10 e7 20 62 6f 62 62 69  6e 67 25 20 8c 0d 07 26  |.. bobbing% ...&|
00001350  18 20 49 25 3d 62 6f 62  73 65 71 25 28 62 6f 62  |. I%=bobseq%(bob|
00001360  70 74 72 25 29 0d 07 30  0e 20 63 6f 75 6e 74 25  |ptr%)..0. count%|
00001370  2d 3d 31 0d 07 3a 26 20  e7 20 63 6f 75 6e 74 25  |-=1..:& . count%|
00001380  3c 3d 30 20 8c 20 63 6f  75 6e 74 25 3d 32 3a 62  |<=0 . count%=2:b|
00001390  6f 62 70 74 72 25 2b 3d  31 0d 07 44 29 20 e7 20  |obptr%+=1..D) . |
000013a0  62 6f 62 70 74 72 25 3d  32 39 20 8c 20 62 6f 62  |bobptr%=29 . bob|
000013b0  62 69 6e 67 25 3d a3 3a  49 25 3d 31 3a 64 78 25  |bing%=.:I%=1:dx%|
000013c0  3d 34 0d 07 4e 2b 20 e7  20 62 6f 62 70 74 72 25  |=4..N+ . bobptr%|
000013d0  3d 36 30 20 8c 20 62 6f  62 62 69 6e 67 25 3d a3  |=60 . bobbing%=.|
000013e0  3a 49 25 3d 31 36 3a 64  78 25 3d 2d 34 0d 07 58  |:I%=16:dx%=-4..X|
000013f0  05 cc 0d 07 62 0b c8 8e  20 49 25 20 ca 0d 07 6c  |....b... I% ...l|
00001400  09 20 c9 20 31 3a 0d 07  76 13 20 20 e7 20 73 6c  |. . 1:..v.  . sl|
00001410  65 65 70 69 6e 67 25 20  8c 0d 07 80 1e 20 20 20  |eeping% .....   |
00001420  20 20 20 49 25 3d 35 36  3a 64 78 25 3d 38 3a 63  |   I%=56:dx%=8:c|
00001430  6f 75 6e 74 25 3d 32 0d  07 8a 0b 20 20 20 20 20  |ount%=2....     |
00001440  20 cc 0d 07 94 27 20 20  20 e7 20 62 72 65 61 64  | ....'   . bread|
00001450  74 68 72 6f 77 6e 25 20  80 20 ac 20 64 6f 77 6e  |thrown% . . down|
00001460  73 74 72 65 61 6d 25 20  8c 0d 07 9e 16 20 20 20  |stream% .....   |
00001470  20 20 20 49 25 3d 33 37  3a 64 78 25 3d 31 36 0d  |   I%=37:dx%=16.|
00001480  07 a8 0b 20 20 20 20 20  20 cc 0d 07 b2 52 20 20  |...      ....R  |
00001490  20 20 e7 20 28 28 62 72  65 61 64 74 68 72 6f 77  |  . ((breadthrow|
000014a0  6e 25 20 80 20 64 6f 77  6e 73 74 72 65 61 6d 25  |n% . downstream%|
000014b0  29 20 84 20 28 28 78 72  25 3e 52 25 2d 32 30 30  |) . ((xr%>R%-200|
000014c0  29 20 84 20 b3 28 31 29  3c 2e 30 33 29 29 20 80  |) . .(1)<.03)) .|
000014d0  20 63 6f 75 6e 74 25 3c  3d 30 20 8c 0d 07 bc 34  | count%<=0 ....4|
000014e0  20 20 20 20 20 20 72 61  64 69 75 73 25 3d b3 28  |      radius%=.(|
000014f0  31 29 2a 31 30 30 2b 35  30 3a 64 78 25 3d 30 3a  |1)*100+50:dx%=0:|
00001500  49 25 3d 49 25 2b 31 3a  63 6f 75 6e 74 25 3d 34  |I%=I%+1:count%=4|
00001510  0d 07 c6 0b 20 20 20 20  20 20 cc 0d 07 d0 13 20  |....      ..... |
00001520  20 20 20 20 20 63 6f 75  6e 74 25 2d 3d 31 0d 07  |     count%-=1..|
00001530  da 37 20 20 20 20 20 20  e7 20 b3 28 31 29 3e 2e  |.7      . .(1)>.|
00001540  39 37 20 80 20 51 75 61  63 6b 69 6e 67 25 20 8c  |97 . Quacking% .|
00001550  20 49 25 3d 33 36 3a 63  6f 75 6e 74 25 3d 38 3a  | I%=36:count%=8:|
00001560  64 78 25 3d 38 0d 07 e4  16 20 20 20 20 20 20 e7  |dx%=8....      .|
00001570  20 b3 28 31 29 3e 2e 39  37 20 8c 0d 07 ee 21 20  | .(1)>.97 ....! |
00001580  20 20 20 20 20 20 20 20  49 25 3d 33 33 3a 63 6f  |        I%=33:co|
00001590  75 6e 74 25 3d 38 3a 64  78 25 3d 34 0d 07 f8 0e  |unt%=8:dx%=4....|
000015a0  20 20 20 20 20 20 20 20  20 cc 0d 08 02 3d 20 20  |         ....=  |
000015b0  20 20 20 20 20 20 20 e7  20 b3 28 31 29 3e 2e 39  |       . .(1)>.9|
000015c0  39 20 8c 20 62 6f 62 62  69 6e 67 25 3d b9 3a 63  |9 . bobbing%=.:c|
000015d0  6f 75 6e 74 25 3d 34 3a  62 6f 62 70 74 72 25 3d  |ount%=4:bobptr%=|
000015e0  30 3a 64 78 25 3d 30 0d  08 0c 0b 20 20 20 20 20  |0:dx%=0....     |
000015f0  20 cd 0d 08 16 09 20 20  20 20 cd 0d 08 20 08 20  | .....    ... . |
00001600  20 20 cd 0d 08 2a 07 20  20 cd 0d 08 34 0a 20 c9  |  ...*.  ...4. .|
00001610  20 31 36 3a 0d 08 3e 25  20 20 20 e7 20 62 72 65  | 16:..>%   . bre|
00001620  61 64 74 68 72 6f 77 6e  25 20 80 20 64 6f 77 6e  |adthrown% . down|
00001630  73 74 72 65 61 6d 25 20  8c 0d 08 48 17 20 20 20  |stream% ...H.   |
00001640  20 20 20 49 25 3d 33 38  3a 64 78 25 3d 2d 31 36  |   I%=38:dx%=-16|
00001650  0d 08 52 0b 20 20 20 20  20 20 cc 0d 08 5c 52 20  |..R.      ...\R |
00001660  20 20 20 e7 20 20 28 28  62 72 65 61 64 74 68 72  |   .  ((breadthr|
00001670  6f 77 6e 25 20 80 20 ac  20 64 6f 77 6e 73 74 72  |own% . . downstr|
00001680  65 61 6d 25 29 20 84 20  28 28 78 72 25 3c 31 35  |eam%) . ((xr%<15|
00001690  30 29 20 84 20 b3 28 31  29 3c 2e 30 33 29 29 20  |0) . .(1)<.03)) |
000016a0  80 20 63 6f 75 6e 74 25  3c 3d 30 20 8c 0d 08 66  |. count%<=0 ...f|
000016b0  34 20 20 20 20 20 20 72  61 64 69 75 73 25 3d b3  |4      radius%=.|
000016c0  28 31 29 2a 31 30 30 2b  35 30 3a 64 78 25 3d 30  |(1)*100+50:dx%=0|
000016d0  3a 49 25 3d 49 25 2b 31  3a 63 6f 75 6e 74 25 3d  |:I%=I%+1:count%=|
000016e0  34 0d 08 70 0b 20 20 20  20 20 20 cc 0d 08 7a 13  |4..p.      ...z.|
000016f0  20 20 20 20 20 20 63 6f  75 6e 74 25 2d 3d 31 0d  |      count%-=1.|
00001700  08 84 38 20 20 20 20 20  20 e7 20 b3 28 31 29 3e  |..8      . .(1)>|
00001710  2e 39 37 20 80 20 51 75  61 63 6b 69 6e 67 25 20  |.97 . Quacking% |
00001720  8c 20 49 25 3d 33 35 3a  63 6f 75 6e 74 25 3d 38  |. I%=35:count%=8|
00001730  3a 64 78 25 3d 2d 38 0d  08 8e 16 20 20 20 20 20  |:dx%=-8....     |
00001740  20 e7 20 b3 28 31 29 3e  2e 39 37 20 8c 0d 08 98  | . .(1)>.97 ....|
00001750  22 20 20 20 20 20 20 20  20 20 49 25 3d 35 34 3a  |"         I%=54:|
00001760  63 6f 75 6e 74 25 3d 38  3a 64 78 25 3d 2d 38 0d  |count%=8:dx%=-8.|
00001770  08 a2 0e 20 20 20 20 20  20 20 20 20 cc 0d 08 ac  |...         ....|
00001780  3e 20 20 20 20 20 20 20  20 20 e7 20 b3 28 31 29  |>         . .(1)|
00001790  3e 2e 39 39 20 8c 20 62  6f 62 62 69 6e 67 25 3d  |>.99 . bobbing%=|
000017a0  b9 3a 63 6f 75 6e 74 25  3d 34 3a 62 6f 62 70 74  |.:count%=4:bobpt|
000017b0  72 25 3d 33 30 3a 64 78  25 3d 30 0d 08 b6 0b 20  |r%=30:dx%=0.... |
000017c0  20 20 20 20 20 cd 0d 08  c0 09 20 20 20 20 cd 0d  |     .....    ..|
000017d0  08 ca 08 20 20 20 cd 0d  08 d4 0a 20 c9 20 33 33  |...   ..... . 33|
000017e0  3a 0d 08 de 10 20 20 20  63 6f 75 6e 74 25 2d 3d  |:....   count%-=|
000017f0  31 0d 08 e8 28 20 20 20  e7 20 63 6f 75 6e 74 25  |1...(   . count%|
00001800  3d 30 20 8c 20 49 25 3d  33 34 3a 63 6f 75 6e 74  |=0 . I%=34:count|
00001810  25 3d 34 3a 64 78 25 3d  38 0d 08 f2 0a 20 c9 20  |%=4:dx%=8.... . |
00001820  33 34 3a 0d 08 fc 10 20  20 20 63 6f 75 6e 74 25  |34:....   count%|
00001830  2d 3d 31 0d 09 06 1e 20  20 20 e7 20 63 6f 75 6e  |-=1....   . coun|
00001840  74 25 3d 30 20 8c 20 49  25 3d 31 3a 64 78 25 3d  |t%=0 . I%=1:dx%=|
00001850  38 0d 09 10 0a 20 c9 20  33 35 3a 0d 09 1a 2c 20  |8.... . 35:..., |
00001860  20 20 e7 20 63 6f 75 6e  74 25 3d 38 20 8c 20 d4  |  . count%=8 . .|
00001870  20 32 2c 2d 31 35 2c 36  38 30 30 2b b3 28 31 29  | 2,-15,6800+.(1)|
00001880  2a 38 30 30 2c 32 30 0d  09 24 10 20 20 20 63 6f  |*800,20..$.   co|
00001890  75 6e 74 25 2d 3d 31 0d  09 2e 20 20 20 20 e7 20  |unt%-=1...    . |
000018a0  63 6f 75 6e 74 25 3d 30  20 8c 20 49 25 3d 31 36  |count%=0 . I%=16|
000018b0  3a 64 78 25 3d 2d 38 0d  09 38 0a 20 c9 20 33 36  |:dx%=-8..8. . 36|
000018c0  3a 0d 09 42 2c 20 20 20  e7 20 63 6f 75 6e 74 25  |:..B,   . count%|
000018d0  3d 38 20 8c 20 d4 20 32  2c 2d 31 35 2c 36 38 30  |=8 . . 2,-15,680|
000018e0  30 2b b3 28 31 29 2a 38  30 30 2c 32 30 0d 09 4c  |0+.(1)*800,20..L|
000018f0  10 20 20 20 63 6f 75 6e  74 25 2d 3d 31 0d 09 56  |.   count%-=1..V|
00001900  1e 20 20 20 e7 20 63 6f  75 6e 74 25 3d 30 20 8c  |.   . count%=0 .|
00001910  20 49 25 3d 31 3a 64 78  25 3d 38 0d 09 60 0a 20  | I%=1:dx%=8..`. |
00001920  c9 20 33 37 3a 0d 09 6a  4d 20 20 20 20 e7 20 28  |. 37:..jM    . (|
00001930  58 25 2b 28 77 69 64 74  68 25 28 49 25 29 3c 3c  |X%+(width%(I%)<<|
00001940  31 29 29 3e 3d 62 72 65  61 64 58 25 20 8c 20 62  |1))>=breadX% . b|
00001950  72 65 61 64 74 68 72 6f  77 6e 25 3d a3 3a 49 25  |readthrown%=.:I%|
00001960  3d 33 39 3a 63 6f 75 6e  74 25 3d 34 3a 64 78 25  |=39:count%=4:dx%|
00001970  3d 38 0d 09 74 0a 20 c9  20 33 38 3a 0d 09 7e 55  |=8..t. . 38:..~U|
00001980  20 20 20 20 e7 20 58 25  3c 3d 28 62 72 65 61 64  |    . X%<=(bread|
00001990  58 25 2b 28 77 69 64 74  68 25 28 42 72 65 61 64  |X%+(width%(Bread|
000019a0  53 70 72 25 29 3c 3c 31  29 29 20 8c 20 62 72 65  |Spr%)<<1)) . bre|
000019b0  61 64 74 68 72 6f 77 6e  25 3d a3 3a 49 25 3d 34  |adthrown%=.:I%=4|
000019c0  30 3a 63 6f 75 6e 74 25  3d 34 3a 64 78 25 3d 2d  |0:count%=4:dx%=-|
000019d0  38 0d 09 88 0a 20 c9 20  33 39 3a 0d 09 92 10 20  |8.... . 39:.... |
000019e0  20 20 63 6f 75 6e 74 25  2d 3d 31 0d 09 9c 1e 20  |  count%-=1.... |
000019f0  20 20 e7 20 63 6f 75 6e  74 25 3d 30 20 8c 20 49  |  . count%=0 . I|
00001a00  25 3d 31 3a 64 78 25 3d  38 0d 09 a6 0a 20 c9 20  |%=1:dx%=8.... . |
00001a10  34 30 3a 0d 09 b0 10 20  20 20 63 6f 75 6e 74 25  |40:....   count%|
00001a20  2d 3d 31 0d 09 ba 20 20  20 20 e7 20 63 6f 75 6e  |-=1...    . coun|
00001a30  74 25 3d 30 20 8c 20 49  25 3d 31 36 3a 64 78 25  |t%=0 . I%=16:dx%|
00001a40  3d 2d 38 0d 09 c4 0a 20  c9 20 35 34 3a 0d 09 ce  |=-8.... . 54:...|
00001a50  10 20 20 20 63 6f 75 6e  74 25 2d 3d 31 0d 09 d8  |.   count%-=1...|
00001a60  29 20 20 20 e7 20 63 6f  75 6e 74 25 3d 30 20 8c  |)   . count%=0 .|
00001a70  20 49 25 3d 35 35 3a 63  6f 75 6e 74 25 3d 34 3a  | I%=55:count%=4:|
00001a80  64 78 25 3d 2d 38 0d 09  e2 0a 20 c9 20 35 35 3a  |dx%=-8.... . 55:|
00001a90  0d 09 ec 10 20 20 20 63  6f 75 6e 74 25 2d 3d 31  |....   count%-=1|
00001aa0  0d 09 f6 20 20 20 20 e7  20 63 6f 75 6e 74 25 3d  |...    . count%=|
00001ab0  30 20 8c 20 49 25 3d 31  36 3a 64 78 25 3d 2d 38  |0 . I%=16:dx%=-8|
00001ac0  0d 0a 00 0a 20 c9 20 35  36 3a 0d 0a 0a 14 20 20  |.... . 56:....  |
00001ad0  20 e7 20 73 6c 65 65 70  69 6e 67 25 20 8c 0d 0a  | . sleeping% ...|
00001ae0  14 11 20 20 20 20 63 6f  75 6e 74 25 2d 3d 31 0d  |..    count%-=1.|
00001af0  0a 1e 29 20 20 20 20 e7  20 63 6f 75 6e 74 25 3d  |..)    . count%=|
00001b00  30 20 8c 20 49 25 3d 35  37 3a 64 78 25 3d 38 3a  |0 . I%=57:dx%=8:|
00001b10  63 6f 75 6e 74 25 3d 32  0d 0a 28 09 20 20 20 20  |count%=2..(.    |
00001b20  cc 0d 0a 32 11 20 20 20  20 63 6f 75 6e 74 25 2d  |...2.    count%-|
00001b30  3d 31 0d 0a 3c 28 20 20  20 20 e7 20 63 6f 75 6e  |=1..<(    . coun|
00001b40  74 25 3d 30 20 8c 20 49  25 3d 31 3a 64 78 25 3d  |t%=0 . I%=1:dx%=|
00001b50  38 3a 63 6f 75 6e 74 25  3d 32 0d 0a 46 08 20 20  |8:count%=2..F.  |
00001b60  20 cd 0d 0a 50 1c 20 c9  20 35 37 2c 35 38 2c 35  | ...P. . 57,58,5|
00001b70  39 2c 36 30 2c 36 31 2c  36 32 2c 36 33 3a 0d 0a  |9,60,61,62,63:..|
00001b80  5a 14 20 20 20 e7 20 73  6c 65 65 70 69 6e 67 25  |Z.   . sleeping%|
00001b90  20 8c 0d 0a 64 11 20 20  20 20 63 6f 75 6e 74 25  | ...d.    count%|
00001ba0  2d 3d 31 0d 0a 6e 14 20  20 20 20 e7 20 63 6f 75  |-=1..n.    . cou|
00001bb0  6e 74 25 3d 30 20 8c 0d  0a 78 34 20 20 20 20 20  |nt%=0 ...x4     |
00001bc0  20 20 e7 20 49 25 3d 36  33 20 8c 20 63 6f 75 6e  |  . I%=63 . coun|
00001bd0  74 25 3d 38 3a 64 78 25  3d 30 20 8b 20 64 78 25  |t%=8:dx%=0 . dx%|
00001be0  3d 34 3a 63 6f 75 6e 74  25 3d 31 0d 0a 82 11 20  |=4:count%=1.... |
00001bf0  20 20 20 20 20 20 49 25  2b 3d 31 3a 0d 0a 8c 09  |      I%+=1:....|
00001c00  20 20 20 20 cd 0d 0a 96  09 20 20 20 20 cc 0d 0a  |    .....    ...|
00001c10  a0 11 20 20 20 20 63 6f  75 6e 74 25 2d 3d 31 0d  |..    count%-=1.|
00001c20  0a aa 29 20 20 20 20 e7  20 63 6f 75 6e 74 25 3d  |..)    . count%=|
00001c30  30 20 8c 20 49 25 2d 3d  31 3a 64 78 25 3d 34 3a  |0 . I%-=1:dx%=4:|
00001c40  63 6f 75 6e 74 25 3d 31  0d 0a b4 08 20 20 20 cd  |count%=1....   .|
00001c50  0d 0a be 0a 20 c9 20 36  34 3a 0d 0a c8 0c 20 20  |.... . 64:....  |
00001c60  20 64 78 25 3d 30 0d 0a  d2 0c 20 20 20 49 25 3d  | dx%=0....   I%=|
00001c70  36 33 0d 0a dc 28 20 20  20 e7 20 73 6c 65 65 70  |63...(   . sleep|
00001c80  69 6e 67 25 20 8c 20 63  6f 75 6e 74 25 3d 38 20  |ing% . count%=8 |
00001c90  8b 20 63 6f 75 6e 74 25  3d 31 0d 0a e6 06 20 7f  |. count%=1.... .|
00001ca0  0d 0a f0 10 20 20 20 63  6f 75 6e 74 25 2d 3d 31  |....   count%-=1|
00001cb0  0d 0a fa 2f 20 20 20 78  61 25 3d 78 72 25 2b b5  |.../   xa%=xr%+.|
00001cc0  28 28 28 49 25 3c 3c 31  29 2d 63 6f 75 6e 74 25  |(((I%<<1)-count%|
00001cd0  29 2a af 2f 33 32 29 2a  72 61 64 69 75 73 25 0d  |)*./32)*radius%.|
00001ce0  0b 04 13 20 20 20 e7 20  63 6f 75 6e 74 25 3d 30  |...   . count%=0|
00001cf0  20 8c 0d 0b 0e 12 20 20  20 20 20 20 63 6f 75 6e  | .....      coun|
00001d00  74 25 3d 32 0d 0b 18 0f  20 20 20 20 20 20 49 25  |t%=2....      I%|
00001d10  2b 3d 31 0d 0b 22 2e 20  20 20 20 20 20 e7 20 49  |+=1..".      . I|
00001d20  25 3e 44 75 63 6b 4d 61  78 25 20 8c 20 49 25 3d  |%>DuckMax% . I%=|
00001d30  31 3a 64 78 25 3d 38 3a  63 6f 75 6e 74 25 3d 32  |1:dx%=8:count%=2|
00001d40  30 0d 0b 2c 24 20 20 20  20 20 20 e7 20 49 25 3d  |0..,$      . I%=|
00001d50  31 36 20 8c 20 64 78 25  3d 2d 38 3a 63 6f 75 6e  |16 . dx%=-8:coun|
00001d60  74 25 3d 32 30 0d 0b 36  08 20 20 20 cd 0d 0b 40  |t%=20..6.   ...@|
00001d70  05 cb 0d 0b 4a 05 cd 0d  0b 54 08 3d 78 61 25 0d  |....J....T.=xa%.|
00001d80  0b 5e 04 0d 0b 68 18 dd  20 f2 62 72 65 61 64 74  |.^...h.. .breadt|
00001d90  68 72 6f 77 28 49 25 2c  58 25 29 0d 0b 72 27 20  |hrow(I%,X%)..r' |
00001da0  71 25 21 34 3d 58 25 3a  71 25 21 31 32 3d 58 25  |q%!4=X%:q%!12=X%|
00001db0  2b 28 77 69 64 74 68 25  28 49 25 29 3c 3c 31 29  |+(width%(I%)<<1)|
00001dc0  2b 34 0d 0b 7c 28 20 71  25 21 38 3d 59 25 3a 71  |+4..|( q%!8=Y%:q|
00001dd0  25 21 31 36 3d 59 25 2b  28 68 65 69 67 68 74 25  |%!16=Y%+(height%|
00001de0  28 49 25 29 3c 3c 32 29  2b 34 0d 0b 86 17 20 c8  |(I%)<<2)+4.... .|
00001df0  99 20 26 34 30 30 43 39  2c 2c 71 25 20 b8 20 66  |. &400C9,,q% . f|
00001e00  25 0d 0b 90 0b 20 e7 20  66 25 20 8c 0d 0b 9a 0b  |%.... . f% .....|
00001e10  20 20 c8 95 20 66 25 0d  0b a4 17 20 20 20 f2 50  |  .. f%....   .P|
00001e20  6c 6f 74 49 63 6f 6e 28  49 25 2c 58 25 29 0d 0b  |lotIcon(I%,X%)..|
00001e30  ae 19 20 20 20 c8 99 20  26 34 30 30 43 41 2c 2c  |..   .. &400CA,,|
00001e40  71 25 20 b8 20 66 25 0d  0b b8 07 20 20 ce 0d 0b  |q% . f%....  ...|
00001e50  c2 06 20 cd 0d 0b cc 05  e1 0d 0b d6 04 0d 0b e0  |.. .............|
00001e60  0d dd 20 f2 72 65 64 72  61 77 0d 0b ea 08 ea 20  |.. .redraw..... |
00001e70  66 25 0d 0b f4 13 21 71  25 3d 44 75 63 6b 57 69  |f%....!q%=DuckWi|
00001e80  6e 64 6f 77 25 0d 0b fe  16 c8 99 20 26 34 30 30  |ndow%...... &400|
00001e90  43 38 2c 2c 71 25 20 b8  20 66 25 0d 0c 08 0a 20  |C8,,q% . f%.... |
00001ea0  c8 95 20 66 25 0d 0c 12  16 20 20 f2 50 6c 6f 74  |.. f%....  .Plot|
00001eb0  49 63 6f 6e 28 49 25 2c  58 25 29 0d 0c 1c 33 20  |Icon(I%,X%)...3 |
00001ec0  20 e7 20 62 72 65 61 64  74 68 72 6f 77 6e 25 20  | . breadthrown% |
00001ed0  8c 20 f2 50 6c 6f 74 49  63 6f 6e 28 42 72 65 61  |. .PlotIcon(Brea|
00001ee0  64 53 70 72 25 2c 62 72  65 61 64 58 25 29 0d 0c  |dSpr%,breadX%)..|
00001ef0  26 18 20 20 c8 99 20 26  34 30 30 43 41 2c 2c 71  |&.  .. &400CA,,q|
00001f00  25 20 b8 20 66 25 0d 0c  30 06 20 ce 0d 0c 3a 05  |% . f%..0. ...:.|
00001f10  e1 0d 0c 44 05 3a 0d 0c  4e 19 dd 20 f2 50 6c 6f  |...D.:..N.. .Plo|
00001f20  74 49 63 6f 6e 28 49 25  2c 78 70 6f 73 25 29 0d  |tIcon(I%,xpos%).|
00001f30  0c 58 18 20 21 73 31 25  3d 78 70 6f 73 25 3a 73  |.X. !s1%=xpos%:s|
00001f40  31 25 21 34 3d 59 25 0d  0c 62 3f 20 73 31 25 21  |1%!4=Y%..b? s1%!|
00001f50  38 3d 78 70 6f 73 25 2b  34 2b 28 77 69 64 74 68  |8=xpos%+4+(width|
00001f60  25 28 49 25 29 3c 3c 31  29 3a 73 31 25 21 31 32  |%(I%)<<1):s1%!12|
00001f70  3d 59 25 2b 34 2b 28 68  65 69 67 68 74 25 28 49  |=Y%+4+(height%(I|
00001f80  25 29 3c 3c 32 29 0d 0c  6c 16 20 73 31 25 21 32  |%)<<2)..l. s1%!2|
00001f90  30 3d 44 75 63 6b 73 25  28 49 25 29 0d 0c 76 13  |0=Ducks%(I%)..v.|
00001fa0  20 c8 99 20 26 34 30 30  45 32 2c 2c 73 31 25 0d  | .. &400E2,,s1%.|
00001fb0  0c 80 05 e1 0d 0c 8a 05  3a 0d 0c 94 0b dd 20 f2  |........:..... .|
00001fc0  6d 6f 64 65 0d 0c 9e 2a  21 71 25 3d 34 3a 71 25  |mode...*!q%=4:q%|
00001fd0  21 34 3d 35 3a 71 25 21  38 3d 31 31 3a 71 25 21  |!4=5:q%!8=11:q%!|
00001fe0  31 32 3d 31 32 3a 71 25  21 31 36 3d 2d 31 0d 0c  |12=12:q%!16=-1..|
00001ff0  a8 22 c8 99 20 22 4f 53  5f 52 65 61 64 56 64 75  |.".. "OS_ReadVdu|
00002000  56 61 72 69 61 62 6c 65  73 22 2c 71 25 2c 71 25  |Variables",q%,q%|
00002010  0d 0c b2 14 78 73 25 3d  21 71 25 3a 79 73 25 3d  |....xs%=!q%:ys%=|
00002020  71 25 21 34 0d 0c bc 26  52 25 3d 28 71 25 21 38  |q%!4...&R%=(q%!8|
00002030  2b 31 29 3c 3c 78 73 25  3a 54 25 3d 28 71 25 21  |+1)<<xs%:T%=(q%!|
00002040  31 32 2b 31 29 3c 3c 79  73 25 0d 0c c6 39 c8 99  |12+1)<<ys%...9..|
00002050  22 57 69 6d 70 5f 52 65  61 64 50 69 78 54 72 61  |"Wimp_ReadPixTra|
00002060  6e 73 22 2c 26 32 30 30  2c 73 61 72 25 2c 44 75  |ns",&200,sar%,Du|
00002070  63 6b 73 25 28 31 29 2c  2c 2c 2c 71 25 2c 71 25  |cks%(1),,,,q%,q%|
00002080  2b 31 36 0d 0c d0 18 79  73 25 3d 28 79 73 25 2a  |+16....ys%=(ys%*|
00002090  71 25 21 34 29 2f 71 25  21 31 32 0d 0c da 16 e7  |q%!4)/q%!12.....|
000020a0  20 78 72 25 3e 3d 52 25  20 8c 20 78 72 25 3d 52  | xr%>=R% . xr%=R|
000020b0  25 0d 0c e4 05 e1 0d 0c  ee 05 3a 0d 0c f8 0b dd  |%.........:.....|
000020c0  20 f2 6f 70 65 6e 0d 0d  02 1b e7 20 21 65 76 65  | .open..... !eve|
000020d0  6e 74 25 3d 44 75 63 6b  57 69 6e 64 6f 77 25 20  |nt%=DuckWindow% |
000020e0  8c 0d 0d 0c 0a 20 f2 6d  6f 64 65 0d 0d 16 35 20  |..... .mode...5 |
000020f0  65 76 65 6e 74 25 21 34  3d 30 3a 65 76 65 6e 74  |event%!4=0:event|
00002100  25 21 38 3d 42 25 3a 65  76 65 6e 74 25 21 31 32  |%!8=B%:event%!12|
00002110  3d 52 25 3a 65 76 65 6e  74 25 21 31 36 3d 54 25  |=R%:event%!16=T%|
00002120  0d 0d 20 29 20 c8 99 20  22 57 69 6d 70 5f 53 65  |.. ) .. "Wimp_Se|
00002130  74 45 78 74 65 6e 74 22  2c 21 65 76 65 6e 74 25  |tExtent",!event%|
00002140  2c 65 76 65 6e 74 25 2b  34 0d 0d 2a 05 cd 0d 0d  |,event%+4..*....|
00002150  34 20 c8 99 20 22 57 69  6d 70 5f 4f 70 65 6e 57  |4 .. "Wimp_OpenW|
00002160  69 6e 64 6f 77 22 2c 2c  65 76 65 6e 74 25 0d 0d  |indow",,event%..|
00002170  3e 05 e1 0d 0d 48 04 0d  0d 52 18 dd 20 f2 72 65  |>....H...R.. .re|
00002180  63 65 69 76 65 28 6d 65  73 73 61 67 65 25 29 0d  |ceive(message%).|
00002190  0d 5c 29 ea 20 6d 79 5f  72 65 66 25 2c 20 74 79  |.\). my_ref%, ty|
000021a0  70 65 24 2c 20 6f 70 74  69 6f 6e 24 2c 20 49 25  |pe$, option$, I%|
000021b0  2c 20 70 66 6c 61 67 25  0d 0d 66 18 6d 79 5f 72  |, pflag%..f.my_r|
000021c0  65 66 25 20 3d 20 6d 65  73 73 61 67 65 25 21 38  |ef% = message%!8|
000021d0  0d 0d 70 14 c8 8e 20 6d  65 73 73 61 67 65 25 21  |..p... message%!|
000021e0  31 36 20 ca 0d 0d 7a 08  20 c9 20 30 0d 0d 84 10  |16 ...z. . 0....|
000021f0  20 20 f2 74 65 72 6d 69  6e 61 74 65 0d 0d 8e 05  |  .terminate....|
00002200  cb 0d 0d 98 05 e1 0d 0d  a2 04 0d 0d ac 0b dd 20  |............... |
00002210  f2 6d 65 6e 75 0d 0d b6  10 c8 8e 20 21 65 76 65  |.menu...... !eve|
00002220  6e 74 25 20 ca 0d 0d c0  09 20 c9 20 31 3a 0d 0d  |nt% ..... . 1:..|
00002230  ca 1b 20 20 51 75 61 63  6b 69 6e 67 25 3d ac 20  |..  Quacking%=. |
00002240  51 75 61 63 6b 69 6e 67  25 0d 0d d4 1b 20 20 6d  |Quacking%....  m|
00002250  65 6e 75 25 21 35 32 3d  6d 65 6e 75 25 21 35 32  |enu%!52=menu%!52|
00002260  20 82 20 31 0d 0d de 09  20 c9 20 32 3a 0d 0d e8  | . 1.... . 2:...|
00002270  1b 20 20 73 6c 65 65 70  69 6e 67 25 3d ac 20 73  |.  sleeping%=. s|
00002280  6c 65 65 70 69 6e 67 25  0d 0d f2 1b 20 20 6d 65  |leeping%....  me|
00002290  6e 75 25 21 37 36 3d 6d  65 6e 75 25 21 37 36 20  |nu%!76=menu%!76 |
000022a0  82 20 31 0d 0d fc 14 20  c9 20 33 3a 20 f2 74 65  |. 1.... . 3: .te|
000022b0  72 6d 69 6e 61 74 65 0d  0e 06 05 cb 0d 0e 10 20  |rminate........ |
000022c0  c8 99 20 22 57 69 6d 70  5f 47 65 74 50 6f 69 6e  |.. "Wimp_GetPoin|
000022d0  74 65 72 49 6e 66 6f 22  2c 2c 71 25 0d 0e 1a 3c  |terInfo",,q%...<|
000022e0  e7 20 28 71 25 21 38 20  80 20 31 29 3d 31 20 8c  |. (q%!8 . 1)=1 .|
000022f0  20 c8 99 22 57 69 6d 70  5f 43 72 65 61 74 65 4d  | .."Wimp_CreateM|
00002300  65 6e 75 22 2c 2c 6d 65  6e 75 25 2c 71 25 21 30  |enu",,menu%,q%!0|
00002310  2d 36 34 2c 71 25 21 34  0d 0e 24 05 e1 0d 0e 2e  |-64,q%!4..$.....|
00002320  05 3a 0d 0e 38 0f dd f2  73 65 74 75 70 6d 65 6e  |.:..8...setupmen|
00002330  75 0d 0e 42 08 ea 20 6d  25 0d 0e 4c 16 24 6d 65  |u..B.. m%..L.$me|
00002340  6e 75 25 3d 22 44 65 73  6b 44 75 63 6b 2b 22 0d  |nu%="DeskDuck+".|
00002350  0e 56 0e 6d 65 6e 75 25  3f 31 32 3d 37 0d 0e 60  |.V.menu%?12=7..`|
00002360  0e 6d 65 6e 75 25 3f 31  33 3d 32 0d 0e 6a 0e 6d  |.menu%?13=2..j.m|
00002370  65 6e 75 25 3f 31 34 3d  37 0d 0e 74 0e 6d 65 6e  |enu%?14=7..t.men|
00002380  75 25 3f 31 35 3d 30 0d  0e 7e 10 6d 65 6e 75 25  |u%?15=0..~.menu%|
00002390  21 31 36 3d 31 34 30 0d  0e 88 0f 6d 65 6e 75 25  |!16=140....menu%|
000023a0  21 32 30 3d 34 30 0d 0e  92 0e 6d 65 6e 75 25 21  |!20=40....menu%!|
000023b0  32 34 3d 30 0d 0e 9c 0f  6d 25 3d 6d 65 6e 75 25  |24=0....m%=menu%|
000023c0  2b 32 38 0d 0e a6 0b 6d  25 21 30 3d 26 30 0d 0e  |+28....m%!0=&0..|
000023d0  b0 0e 6d 25 21 34 3d 69  6e 66 6f 25 0d 0e ba 18  |..m%!4=info%....|
000023e0  6d 25 21 38 3d 28 37 3c  3c 32 34 29 84 20 25 31  |m%!8=(7<<24). %1|
000023f0  30 30 30 31 0d 0e c4 13  24 28 6d 25 2b 31 32 29  |0001....$(m%+12)|
00002400  3d 22 49 6e 66 6f 22 0d  0e ce 0c 6d 25 3d 6d 25  |="Info"....m%=m%|
00002410  2b 32 34 0d 0e d8 0b 6d  25 21 30 3d 26 31 0d 0e  |+24....m%!0=&1..|
00002420  e2 0a 6d 25 21 34 3d 30  0d 0e ec 18 6d 25 21 38  |..m%!4=0....m%!8|
00002430  3d 28 37 3c 3c 32 34 29  84 20 25 31 30 30 30 31  |=(7<<24). %10001|
00002440  0d 0e f6 17 24 28 6d 25  2b 31 32 29 3d 22 51 75  |....$(m%+12)="Qu|
00002450  61 63 6b 69 6e 67 22 0d  0f 00 0c 6d 25 3d 6d 25  |acking"....m%=m%|
00002460  2b 32 34 0d 0f 0a 0b 6d  25 21 30 3d 26 30 0d 0f  |+24....m%!0=&0..|
00002470  14 0a 6d 25 21 34 3d 30  0d 0f 1e 18 6d 25 21 38  |..m%!4=0....m%!8|
00002480  3d 28 37 3c 3c 32 34 29  84 20 25 31 30 30 30 31  |=(7<<24). %10001|
00002490  0d 0f 28 17 24 28 6d 25  2b 31 32 29 3d 22 53 6c  |..(.$(m%+12)="Sl|
000024a0  65 65 70 69 6e 67 22 0d  0f 32 0c 6d 25 3d 6d 25  |eeping"..2.m%=m%|
000024b0  2b 32 34 0d 0f 3c 0c 6d  25 21 30 3d 26 38 30 0d  |+24..<.m%!0=&80.|
000024c0  0f 46 0a 6d 25 21 34 3d  30 0d 0f 50 18 6d 25 21  |.F.m%!4=0..P.m%!|
000024d0  38 3d 28 37 3c 3c 32 34  29 84 20 25 31 30 30 30  |8=(7<<24). %1000|
000024e0  31 0d 0f 5a 13 24 28 6d  25 2b 31 32 29 3d 22 51  |1..Z.$(m%+12)="Q|
000024f0  75 69 74 22 0d 0f 64 05  e1 0d 0f 6e 05 3a 0d 0f  |uit"..d....n.:..|
00002500  78 10 dd 20 f2 74 65 72  6d 69 6e 61 74 65 0d 0f  |x.. .terminate..|
00002510  82 16 c8 99 22 57 69 6d  70 5f 43 6c 6f 73 65 44  |...."Wimp_CloseD|
00002520  6f 77 6e 22 0d 0f 8c 05  e0 0d 0f 96 05 3a 0d 0f  |own".........:..|
00002530  a0 0f dd 20 a4 72 74 6f  7a 28 73 25 29 0d 0f aa  |... .rtoz(s%)...|
00002540  08 ea 20 6e 24 0d 0f b4  1a c8 95 3f 73 25 3a 6e  |.. n$......?s%:n|
00002550  24 2b 3d bd 3f 73 25 3a  73 25 2b 3d 31 3a ce 0d  |$+=.?s%:s%+=1:..|
00002560  0f be 07 3d 6e 24 0d 0f  c8 05 3a 0d 0f d2 0c dd  |...=n$....:.....|
00002570  20 f2 63 6c 6f 73 65 0d  0f dc 2d 21 71 25 3d 44  | .close...-!q%=D|
00002580  75 63 6b 57 69 6e 64 6f  77 25 3a c8 99 20 22 57  |uckWindow%:.. "W|
00002590  69 6d 70 5f 43 6c 6f 73  65 57 69 6e 64 6f 77 22  |imp_CloseWindow"|
000025a0  2c 2c 71 25 0d 0f e6 05  e1 0d 0f f0 05 3a 0d 0f  |,,q%.........:..|
000025b0  fa 14 dd 20 f2 6d 6f 61  6e 28 72 65 70 6f 72 74  |... .moan(report|
000025c0  24 29 0d 10 04 14 85 20  26 32 30 30 30 30 2c 72  |$)..... &20000,r|
000025d0  65 70 6f 72 74 24 0d 10  0e 05 3a 0d 10 18 1b dd  |eport$....:.....|
000025e0  20 f2 65 72 72 6f 72 28  65 72 72 25 2c 20 72 65  | .error(err%, re|
000025f0  70 6f 72 74 24 29 0d 10  22 09 ee 20 85 20 87 0d  |port$)..".. . ..|
00002600  10 2c 49 e7 20 65 72 72  25 3c 26 31 30 31 30 30  |.,I. err%<&10100|
00002610  20 84 20 65 72 72 25 3e  26 32 30 30 30 30 20 8c  | . err%>&20000 .|
00002620  20 72 65 70 6f 72 74 24  3d 72 65 70 6f 72 74 24  | report$=report$|
00002630  2b 22 20 69 6e 74 65 72  6e 61 6c 20 65 72 72 6f  |+" internal erro|
00002640  72 20 22 2b c3 28 9e 29  0d 10 36 16 21 65 72 72  |r "+.(.)..6.!err|
00002650  6f 72 5f 62 6c 6b 25 20  3d 20 65 72 72 25 0d 10  |or_blk% = err%..|
00002660  40 1b 24 28 65 72 72 6f  72 5f 62 6c 6b 25 2b 34  |@.$(error_blk%+4|
00002670  29 3d 72 65 70 6f 72 74  24 0d 10 4a 21 f2 7a 65  |)=report$..J!.ze|
00002680  72 6f 5f 74 65 72 6d 69  6e 61 74 65 28 65 72 72  |ro_terminate(err|
00002690  6f 72 5f 62 6c 6b 25 2b  34 29 0d 10 54 35 c8 99  |or_blk%+4)..T5..|
000026a0  20 22 57 69 6d 70 5f 52  65 70 6f 72 74 45 72 72  | "Wimp_ReportErr|
000026b0  6f 72 22 2c 20 65 72 72  6f 72 5f 62 6c 6b 25 2c  |or", error_blk%,|
000026c0  20 31 2c 20 22 44 65 73  6b 44 75 63 6b 2b 22 0d  | 1, "DeskDuck+".|
000026d0  10 5e 05 e1 0d 10 68 05  3a 0d 10 72 18 dd f2 7a  |.^....h.:..r...z|
000026e0  65 72 6f 5f 74 65 72 6d  69 6e 61 74 65 28 53 25  |ero_terminate(S%|
000026f0  29 0d 10 7c 0f 53 25 3f  a9 24 53 25 20 3d 20 30  |)..|.S%?.$S% = 0|
00002700  0d 10 86 05 e1 0d ff                              |.......|
00002707

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