Home » CEEFAX disks » telesoftware3.adl » 01_11_87/DUCK!

01_11_87/DUCK!

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 » CEEFAX disks » telesoftware3.adl
Filename: 01_11_87/DUCK!
Read OK:
File size: 1811 bytes
Load address: 1900
Exec address: 8023
File contents
  100REM      DUCK!
  110REM  by Billy Newell
  120REM (C) The Micro User
  130PROCreloc(&E00)
  140MODE 1:skulls=9
  150DIM SX%(skulls),SY%(skulls),C%(skulls)
  160PROCtitle:Z%=RND(-TIME)
  170VDU23,1,0;0;0;0;0;
  180VDU19,7,3;0;:CC=4:CY=2
  190ENVELOPE1,1,1,-8,11,111,84,11,86,-10,-2,-2,126,126
  200ENVELOPE2,133,8,4,8,3,1,1,126,0,0,-10,126,0
  210ENVELOPE3,129,0,8,0,2,6,6,60,0,0,1,126,126
  220ENVELOPE4,3,0,0,0,1,1,1,120,-5,-5,-10,120,90
  230VDU23,224,7,15,30,30,30,14,15,7,23,225,224,48,248,144,144,56,254,192,23,226,31,54,46,53,59,31,32,124,23,227,240,248,236,244,240,224,64,120
  240VDU23,228,7,12,31,9,9,28,127,3,23,229,224,240,120,120,120,112,240,224,23,230,15,31,55,47,15,7,2,30,23,231,248,108,116,172,220,248,16,120
  250VDU23,232,15,28,55,55,63,31,31,3,23,233,240,248,252,252,252,248,248,192,23,234,12,63,127,254,189,126,31,48,23,235,48,252,126,191,221,190,252,6
  260VDU23,236,7,15,30,30,30,14,15,3,23,237,252,50,255,147,147,60,255,192,23,238,28,63,59,59,60,159,227,118,23,239,48,248,220,188,188,123,102,182
  270VDU23,240,15,25,55,53,53,19,31,3,23,241,240,152,236,172,172,200,248,192,23,242,12,63,127,255,191,127,31,48,23,243,48,252,254,255,253,126,252,6
  280VDU23,245,128,195,47,31,59,49,117,113,23,246,1,195,244,248,220,140,174,142,23,247,127,63,15,5,18,39,71,195,23,248,254,252,240,64,168,228,226,195
  290VDU23,249,0,4,6,35,49,24,76,102,23,250,126,119,51,27,159,231,99,177,23,251,51,27,76,46,147,169,196,240,23,252,24,140,196,96,48,144,192,0
  300VDU23,244,0,32,4,64,1,7,143,63,23,253,32,1,8,128,128,228,240,252,23,254,119,233,247,117,49,137,239,113,23,255,238,151,239,174,140,147,246,198
  310A$=CHR$224+CHR$225+CHR$10+CHR$8+CHR$8+CHR$226+CHR$227
  320B$=CHR$228+CHR$229+CHR$10+CHR$8+CHR$8+CHR$230+CHR$231
  330C$=CHR$232+CHR$233+CHR$10+CHR$8+CHR$8+CHR$234+CHR$235
  340D$=CHR$236+CHR$237+CHR$10+CHR$8+CHR$8+CHR$238+CHR$239
  350E$=CHR$240+CHR$241+CHR$10+CHR$8+CHR$8+CHR$242+CHR$243
  360F$=CHR$245+CHR$246+CHR$10+CHR$8+CHR$8+CHR$247+CHR$248
  370G$=CHR$249+CHR$250+CHR$10+CHR$8+CHR$8+CHR$251+CHR$252
  380H$=CHR$244+CHR$253+CHR$10+CHR$8+CHR$8+CHR$254+CHR$255
  390lives=3:score=0:target=0:time=950
  400PROCgrid:dead=0:REPEAT
  410IF NOTdead target=target+5:fish=0
  420VDU19,1,CC;0;19,2,CY;0;
  430FOR S%=1 TO skulls:SX%(S%)=26
  440C%(S%)=3:IF RND(2)=1 C%(S%)=C%(S%)*-1
  450SY%(S%)=1+3*S%:NEXT
  460DX%=5:DY%=16:time=950
  470dead=FALSE:skull=1
  480COLOUR7:PRINTTAB(DX%,DY%)A$
  490REPEAT PROCplace_fish
  500REPEAT PROCduck
  510PROCskulls(skull)
  520skull=(skull MOD skulls)+1
  530PROCupdate
  540IF INKEY-17 THEN*FX210,1
  550IF INKEY-82 THEN*FX210,0
  560UNTIL eat_fish OR dead
  570UNTIL dead OR fish=target
  580IF dead PROCdie ELSE PROCbonus
  590UNTIL lives=0:PROCendgame
  600RUN
  620DEF PROCduck:LOCAL x%,y%,d$
  630IF INKEY-67 IF DX%<30 x%=3:d$=A$
  640IF INKEY-98 IF DX%>5 x%=-3:d$=B$
  650IF INKEY-73 IF DY%>4 y%=-3:d$=C$
  660IF INKEY-105 IF DY%<28 y%=3:d$=E$
  670IF d$="" ENDPROC
  680J%=FNat(DX%+x%,DY%+y%)
  690COLOUR 0:PRINTTAB(DX%,DY%)d$
  700DX%=DX%+x%:DY%=DY%+y%
  710COLOUR 7:PRINTTAB(DX%,DY%)d$
  720IF J%=2 eat_fish=TRUE:score=score+target
  730IF J%=3 dead=TRUE
  740ENDPROC
  760DEF PROCgrid
  770VDU4,26,20,12,23;8202;0;0;0;
  780VDU19,1;0;0;19,2;0;0;:COLOUR 3
  790PRINTTAB(14,1)"Please Wait"
  800GCOL0,1
  810FOR H%=136 TO 1096 STEP 96
  820FOR V%=136 TO 942 STEP 96
  830MOVE H%,V%:DRAW H%,V%-78
  840MOVE H%+15,V%:DRAW H%+15,V%-78
  850NEXT:NEXT
  860FOR H%=136 TO 1000 STEP 96
  870FOR V%=136 TO 942 STEP 96
  880MOVE H%+15,V%:DRAW H%+96,V%
  890MOVE H%+15,V%-84:DRAW H%+96,V%-84
  900NEXT:NEXT
  910MOVE136,918:DRAW136,40
  920DRAW1110,40:DRAW1110,918
  930DRAW136,918:GCOL 0,1
  940MOVE 135,5:DRAW 135,28
  950DRAW 1115,28:DRAW 1115,5
  960DRAW 135,5
  970PRINTTAB(14,1)SPC12;
  980GCOL0,7:MOVE150,20
  990DRAW 150+time,20
 1000MOVE150,17:DRAW1100,17
 1010MOVE150,14:DRAW1100,14
 1020X%=100:GCOL0,7
 1030FORX%=140TO1084STEP64
 1040MOVEX%,992:DRAWX%+16,1023
 1050DRAWX%+32,992:MOVEX%+32,992
 1060DRAWX%+48,1014:DRAWX%+64,992
 1070MOVEX%,959:DRAWX%+16,931
 1080DRAWX%+32,959:MOVEX%+32,959
 1090DRAWX%+48,938:DRAWX%+64,959
 1100MOVE140,992:DRAW140,960
 1110MOVE1100,992:DRAW1100,960
 1120NEXT:COLOUR1
 1130PRINTTAB(5,1)"Score"SPC16"Lives"
 1140VDU19,1,CC;0;19,2,CY;0;
 1150VDU19,7,3;0;19,0;0;0;
 1160VDU23,1;0;0;0;0;:ENDPROC
 1180DEF PROCskulls(T%)
 1190LOCAL SX%,SY%,C%:C%=C%(T%)
 1200SX%=SX%(T%):SY%=SY%(T%)
 1210IF SX%<8 OR SX%>29 OR RND(10)=1:C%=-C%
 1220IF FY%=SY% IF SX%+3=FX% C%(T%)=-3:ENDPROC
 1230IF FY%=SY% IF SX%-3=FX% C%(T%)=+3:ENDPROC
 1240COLOUR 0:PRINTTAB(SX%,SY%)F$;
 1250SX%=SX%+C%
 1260IF SY%=DY% IF SX%=DX% dead=TRUE
 1270COLOUR 2:PRINTTAB(SX%,SY%)F$;
 1280SX%(T%)=SX%:SY%(T%)=SY%
 1290C%(T%)=C%:ENDPROC
 1310DEF PROCplace_fish
 1320FX%=-1:FY%=-1
 1330SOUND1,2,160,6:SOUND2,2,120,6
 1340LOCAL X%,Y%:REPEAT
 1350Y%=4+RND(7)*3:X%=8+RND(6)*3
 1360UNTIL FNat(X%,Y%)=0
 1370COLOUR 7:PRINTTAB(X%,Y%)G$
 1380fish=fish+1:eat_fish=FALSE
 1390FX%=X%:FY%=Y%:ENDPROC
 1410DEF PROCdie:PROCwait(.5)
 1420COLOUR 1:FOR T%=1 TO skulls
 1430PRINTTAB(SX%(T%),SY%(T%))F$:NEXT
 1440FOR Y%=4 TO 100 STEP4
 1450SOUND&11,2,100-Y%,1
 1460SOUND&12,3,100-Y%,1:NEXT:PROCwait(1)
 1470FOR D=.01 TO .095 STEP .005
 1480SOUND&11,2,150,5:COLOUR7
 1490PRINTTAB(DX%,DY%)A$:PROCwait(.1-D)
 1500PRINTTAB(DX%,DY%)C$:PROCwait(.1-D)
 1510PRINTTAB(DX%,DY%)B$:PROCwait(.1-D)
 1520PRINTTAB(DX%,DY%)E$:PROCwait(.1-D)
 1530NEXT:PROCwait(.4)
 1540PRINTTAB(DX%,DY%)D$
 1550SOUND1,4,4,2:PROCwait(.2)
 1560FOR D%=1 TO 5
 1570PRINTTAB(DX%,DY%)H$:PROCwait(.15)
 1580SOUND0,4,1,1:SOUND1,4,4,1
 1590PRINTTAB(DX%,DY%)D$:PROCwait(.13)
 1600NEXT:PROCwait(3):COLOUR 0
 1610PRINTTAB(DX%,DY%)A$TAB(FX%,FY%)A$
 1620FOR S%=1 TO skulls
 1630PRINTTAB(SX%(S%),SY%(S%))A$
 1640NEXT:lives=lives-1:ENDPROC
 1660DEF PROCwait(t)
 1670LOCAL T%:T%=TIME+t*100
 1680REPEAT UNTIL TIME>T%:ENDPROC
 1700DEF PROCupdate:GCOL0,1
 1710MOVE 150+time,20:DRAW 150+time,14
 1720time=time-1:VDU4:IF time=0 dead=TRUE
 1730COLOUR7:PRINTTAB(11,1);score;
 1740PRINTTAB(32,1);lives;
 1750COLOUR1:PRINTTAB(19,1);fish;
 1760ENDPROC
 1780DEF PROCbonus
 1790FOR S%=4 TO 100 STEP 4
 1800SOUND&11,3,S%,2:SOUND&12,2,S%,2:NEXT
 1810PROCbox(16,7,13,7,0,"")
 1820VDU5:GCOL0,1:MOVE480,590
 1830PRINT"B O N U S"
 1840score=score+target*10
 1850GCOL0,2:MOVE540,440:PRINT;target*10;
 1860GCOL0,1:MOVE524,390:PRINT"POINTS"
 1870FOR H%=365 TO 850 STEP 75
 1880GCOL0,0:MOVE H%,520
 1890VDU249,250,8,8,10,251,252:NEXT
 1900CC=CC+1:IF CC=3 CC=4 ELSEIF CC=7 CC=1
 1910CY=CY+1:IF CY=3 CY=4 ELSEIF CY=7:CY=1
 1920VDU19,1,CC;0;19,2,CY;0;
 1930VDU19,7,3;0;19,0;0;0;
 1940PROCwait(5):PROCgrid:ENDPROC
 1960DEF PROCendgame
 1970PROCbox(11,2,13,3,0,""):VDU26,5
 1980GCOL0,0:MOVE480,590:PRINT"GAME OVER"
 1990GCOL0,7:MOVE485,585:PRINT"GAME OVER"
 2000VDU4:PROCany:ENDPROC
 2020DEF PROCtitle
 2030VDU5:GCOL0,1:MOVE550,900:PRINT"DUCK!"
 2040GCOL0,2:MOVE552,898:PRINT"DUCK!":VDU4
 2050PROCbox(38,5,7,2,1,"")
 2060PRINT'"You must move the duck trapped inside"
 2070PRINT"a grid around the screen collecting"
 2080PRINT"fishes whilst avoiding the monsters."
 2090PROCbox(38,5,13,1,2,"")
 2100PRINT'"At the  bottom of the screen there is"
 2110PRINT"a time bar. You must complete the"
 2120PRINT"screen before it reaches the end or"
 2130PRINT"you will lose one of your 3 lives."
 2140PROCbox(14,6,20,2,0,"")
 2150PRINT'" Control Keys"'"  Z....LEFT"
 2160PRINT"  X....RIGHT"'"  :....UP"
 2170PRINT"  /....DOWN"
 2180PROCany:CLS:ENDPROC
 2200DEF FNat(X%,Y%):LOCAL F%
 2210IF Y%=DY% IF X%=DX% =1
 2220IF Y%=FY% IF X%=FX% =2
 2230FOR S%=1 TO skulls
 2240IF Y%=SY%(S%) IF X%=SX%(S%) S%=skulls:F%=3
 2250NEXT:=F%
 2270DEF PROCbox(x%,y%,Y%,B%,F%,t$)
 2280LOCAL X%,W%,H%:X%=(39-x%)/2
 2290VDU28X%Y%+y%X%+x%Y%
 2300COLOUR 128+B%:CLS:COLOUR F%
 2310PRINTTAB((x%-LENt$)/2+1,y%/2)t$;
 2320VDU30:ENDPROC
 2340DEF PROCany:*FX15
 2350PROCbox(14,2,28,1,3,"Press any key")
 2360IFNOTGET:ENDPROC
 2380DEF PROCreloc(Q%):*TAPE
 2390IF PAGE<=Q% ENDPROC
 2400FOR I%=0 TO TOP-PAGE STEP4
 2410I%!&E00=I%!PAGE:NEXT
 2420?&13=?&13-(PAGE-&E00)DIV256
 2430PAGE=&E00:RUN
d�      DUCK!
n�  by Billy Newell
x� (C) The Micro User
��reloc(&E00)
�� 1:skulls=9
�(� SX%(skulls),SY%(skulls),C%(skulls)
��title:Z%=�(-�)
��23,1,0;0;0;0;0;
��19,7,3;0;:CC=4:CY=2
�/�1,1,1,-8,11,111,84,11,86,-10,-2,-2,126,126
�(�2,133,8,4,8,3,1,1,126,0,0,-10,126,0
�'�3,129,0,8,0,2,6,6,60,0,0,1,126,126
�)�4,3,0,0,0,1,1,1,120,-5,-5,-10,120,90
��23,224,7,15,30,30,30,14,15,7,23,225,224,48,248,144,144,56,254,192,23,226,31,54,46,53,59,31,32,124,23,227,240,248,236,244,240,224,64,120
��23,228,7,12,31,9,9,28,127,3,23,229,224,240,120,120,120,112,240,224,23,230,15,31,55,47,15,7,2,30,23,231,248,108,116,172,220,248,16,120
���23,232,15,28,55,55,63,31,31,3,23,233,240,248,252,252,252,248,248,192,23,234,12,63,127,254,189,126,31,48,23,235,48,252,126,191,221,190,252,6
��23,236,7,15,30,30,30,14,15,3,23,237,252,50,255,147,147,60,255,192,23,238,28,63,59,59,60,159,227,118,23,239,48,248,220,188,188,123,102,182
��23,240,15,25,55,53,53,19,31,3,23,241,240,152,236,172,172,200,248,192,23,242,12,63,127,255,191,127,31,48,23,243,48,252,254,255,253,126,252,6
��23,245,128,195,47,31,59,49,117,113,23,246,1,195,244,248,220,140,174,142,23,247,127,63,15,5,18,39,71,195,23,248,254,252,240,64,168,228,226,195
"��23,249,0,4,6,35,49,24,76,102,23,250,126,119,51,27,159,231,99,177,23,251,51,27,76,46,147,169,196,240,23,252,24,140,196,96,48,144,192,0
,��23,244,0,32,4,64,1,7,143,63,23,253,32,1,8,128,128,228,240,252,23,254,119,233,247,117,49,137,239,113,23,255,238,151,239,174,140,147,246,198
6$A$=�224+�225+�10+�8+�8+�226+�227
@$B$=�228+�229+�10+�8+�8+�230+�231
J$C$=�232+�233+�10+�8+�8+�234+�235
T$D$=�236+�237+�10+�8+�8+�238+�239
^$E$=�240+�241+�10+�8+�8+�242+�243
h$F$=�245+�246+�10+�8+�8+�247+�248
r$G$=�249+�250+�10+�8+�8+�251+�252
|$H$=�244+�253+�10+�8+�8+�254+�255
�%lives=3:score=0:target=0:time=950
��grid:dead=0:�
�"� �dead target=target+5:fish=0
��19,1,CC;0;19,2,CY;0;
�� S%=1 � skulls:SX%(S%)=26
�&C%(S%)=3:� �(2)=1 C%(S%)=C%(S%)*-1
�SY%(S%)=1+3*S%:�
�DX%=5:DY%=16:time=950
�dead=�:skull=1
��7:�DX%,DY%)A$
�� �place_fish
�� �duck
��skulls(skull)
skull=(skull � skulls)+1
�update
� �-17 �*FX210,1
&� �-82 �*FX210,0
0� eat_fish � dead
:� dead � fish=target
D� dead �die � �bonus
N� lives=0:�endgame
X�
l� �duck:� x%,y%,d$
v� �-67 � DX%<30 x%=3:d$=A$
�� �-98 � DX%>5 x%=-3:d$=B$
�� �-73 � DY%>4 y%=-3:d$=C$
�� �-105 � DY%<28 y%=3:d$=E$
�
� d$="" �
�J%=�at(DX%+x%,DY%+y%)
�� 0:�DX%,DY%)d$
�DX%=DX%+x%:DY%=DY%+y%
�� 7:�DX%,DY%)d$
�(� J%=2 eat_fish=�:score=score+target
�� J%=3 dead=�
��
�� �grid
�4,26,20,12,23;8202;0;0;0;
�19,1;0;0;19,2;0;0;:� 3
�14,1)"Please Wait"
 �0,1
*� H%=136 � 1096 � 96
4� V%=136 � 942 � 96
>� H%,V%:� H%,V%-78
H� H%+15,V%:� H%+15,V%-78
R�:�
\� H%=136 � 1000 � 96
f� V%=136 � 942 � 96
p� H%+15,V%:� H%+96,V%
z� H%+15,V%-84:� H%+96,V%-84
��:�
��136,918:�136,40
��1110,40:�1110,918
��136,918:� 0,1
�� 135,5:� 135,28
�� 1115,28:� 1115,5
�� 135,5
��14,1)�12;
��0,7:�150,20
�� 150+time,20
��150,17:�1100,17
��150,14:�1100,14
�X%=100:�0,7
�X%=140�1084�64
�X%,992:�X%+16,1023
�X%+32,992:�X%+32,992
$�X%+48,1014:�X%+64,992
.�X%,959:�X%+16,931
8�X%+32,959:�X%+32,959
B�X%+48,938:�X%+64,959
L�140,992:�140,960
V�1100,992:�1100,960
`�:�1
j�5,1)"Score"�16"Lives"
t�19,1,CC;0;19,2,CY;0;
~�19,7,3;0;19,0;0;0;
��23,1;0;0;0;0;:�
�� �skulls(T%)
�� SX%,SY%,C%:C%=C%(T%)
�SX%=SX%(T%):SY%=SY%(T%)
�%� SX%<8 � SX%>29 � �(10)=1:C%=-C%
�%� FY%=SY% � SX%+3=FX% C%(T%)=-3:�
�%� FY%=SY% � SX%-3=FX% C%(T%)=+3:�
�� 0:�SX%,SY%)F$;
�SX%=SX%+C%
�� SY%=DY% � SX%=DX% dead=�
�� 2:�SX%,SY%)F$;
SX%(T%)=SX%:SY%(T%)=SY%

C%(T%)=C%:�
� �place_fish
(FX%=-1:FY%=-1
2�1,2,160,6:�2,2,120,6
<
� X%,Y%:�
FY%=4+�(7)*3:X%=8+�(6)*3
P� �at(X%,Y%)=0
Z� 7:�X%,Y%)G$
dfish=fish+1:eat_fish=�
nFX%=X%:FY%=Y%:�
�� �die:�wait(.5)
�� 1:� T%=1 � skulls
��SX%(T%),SY%(T%))F$:�
�� Y%=4 � 100 �4
��&11,2,100-Y%,1
��&12,3,100-Y%,1:�:�wait(1)
�� D=.01 � .095 � .005
��&11,2,150,5:�7
��DX%,DY%)A$:�wait(.1-D)
��DX%,DY%)C$:�wait(.1-D)
��DX%,DY%)B$:�wait(.1-D)
��DX%,DY%)E$:�wait(.1-D)
��:�wait(.4)
�DX%,DY%)D$
�1,4,4,2:�wait(.2)
� D%=1 � 5
"�DX%,DY%)H$:�wait(.15)
,�0,4,1,1:�1,4,4,1
6�DX%,DY%)D$:�wait(.13)
@�:�wait(3):� 0
J�DX%,DY%)A$�FX%,FY%)A$
T� S%=1 � skulls
^�SX%(S%),SY%(S%))A$
h�:lives=lives-1:�
|� �wait(t)
�� T%:T%=�+t*100
�� � �>T%:�
�� �update:�0,1
�� 150+time,20:� 150+time,14
�"time=time-1:�4:� time=0 dead=�
��7:�11,1);score;
��32,1);lives;
��1:�19,1);fish;
��
�� �bonus
�� S%=4 � 100 � 4
�&11,3,S%,2:�&12,2,S%,2:�
�box(16,7,13,7,0,"")
�5:�0,1:�480,590
&�"B O N U S"
0score=score+target*10
:�0,2:�540,440:�;target*10;
D�0,1:�524,390:�"POINTS"
N� H%=365 � 850 � 75
X�0,0:� H%,520
b�249,250,8,8,10,251,252:�
l$CC=CC+1:� CC=3 CC=4 �� CC=7 CC=1
v$CY=CY+1:� CY=3 CY=4 �� CY=7:CY=1
��19,1,CC;0;19,2,CY;0;
��19,7,3;0;19,0;0;0;
��wait(5):�grid:�
�� �endgame
��box(11,2,13,3,0,""):�26,5
��0,0:�480,590:�"GAME OVER"
��0,7:�485,585:�"GAME OVER"
�
�4:�any:�
�� �title
��5:�0,1:�550,900:�"DUCK!"
��0,2:�552,898:�"DUCK!":�4
�box(38,5,7,2,1,"")
-�'"You must move the duck trapped inside"
*�"a grid around the screen collecting"
 +�"fishes whilst avoiding the monsters."
*�box(38,5,13,1,2,"")
4-�'"At the  bottom of the screen there is"
>(�"a time bar. You must complete the"
H*�"screen before it reaches the end or"
R)�"you will lose one of your 3 lives."
\�box(14,6,20,2,0,"")
f#�'" Control Keys"'"  Z....LEFT"
p�"  X....RIGHT"'"  :....UP"
z�"  /....DOWN"
��any:�:�
�� �at(X%,Y%):� F%
�� Y%=DY% � X%=DX% =1
�� Y%=FY% � X%=FX% =2
�� S%=1 � skulls
�,� Y%=SY%(S%) � X%=SX%(S%) S%=skulls:F%=3
�	�:=F%
�� �box(x%,y%,Y%,B%,F%,t$)
�� X%,W%,H%:X%=(39-x%)/2
��28X%Y%+y%X%+x%Y%
�� 128+B%:�:� F%
	�(x%-�t$)/2+1,y%/2)t$;
		�30:�
	$� �any:*FX15
	.%�box(14,2,28,1,3,"Press any key")
	8	笥:�
	L� �reloc(Q%):*TAPE
	V
� �<=Q% �
	`� I%=0 � �P-� �4
	jI%!&E00=I%!�:�
	t?&13=?&13-(�-&E00)�256
	~�=&E00:�
�
00000000  0d 00 64 10 f4 20 20 20  20 20 20 44 55 43 4b 21  |..d..      DUCK!|
00000010  0d 00 6e 16 f4 20 20 62  79 20 42 69 6c 6c 79 20  |..n..  by Billy |
00000020  4e 65 77 65 6c 6c 0d 00  78 18 f4 20 28 43 29 20  |Newell..x.. (C) |
00000030  54 68 65 20 4d 69 63 72  6f 20 55 73 65 72 0d 00  |The Micro User..|
00000040  82 10 f2 72 65 6c 6f 63  28 26 45 30 30 29 0d 00  |...reloc(&E00)..|
00000050  8c 10 eb 20 31 3a 73 6b  75 6c 6c 73 3d 39 0d 00  |... 1:skulls=9..|
00000060  96 28 de 20 53 58 25 28  73 6b 75 6c 6c 73 29 2c  |.(. SX%(skulls),|
00000070  53 59 25 28 73 6b 75 6c  6c 73 29 2c 43 25 28 73  |SY%(skulls),C%(s|
00000080  6b 75 6c 6c 73 29 0d 00  a0 13 f2 74 69 74 6c 65  |kulls).....title|
00000090  3a 5a 25 3d b3 28 2d 91  29 0d 00 aa 14 ef 32 33  |:Z%=.(-.).....23|
000000a0  2c 31 2c 30 3b 30 3b 30  3b 30 3b 30 3b 0d 00 b4  |,1,0;0;0;0;0;...|
000000b0  18 ef 31 39 2c 37 2c 33  3b 30 3b 3a 43 43 3d 34  |..19,7,3;0;:CC=4|
000000c0  3a 43 59 3d 32 0d 00 be  2f e2 31 2c 31 2c 31 2c  |:CY=2.../.1,1,1,|
000000d0  2d 38 2c 31 31 2c 31 31  31 2c 38 34 2c 31 31 2c  |-8,11,111,84,11,|
000000e0  38 36 2c 2d 31 30 2c 2d  32 2c 2d 32 2c 31 32 36  |86,-10,-2,-2,126|
000000f0  2c 31 32 36 0d 00 c8 28  e2 32 2c 31 33 33 2c 38  |,126...(.2,133,8|
00000100  2c 34 2c 38 2c 33 2c 31  2c 31 2c 31 32 36 2c 30  |,4,8,3,1,1,126,0|
00000110  2c 30 2c 2d 31 30 2c 31  32 36 2c 30 0d 00 d2 27  |,0,-10,126,0...'|
00000120  e2 33 2c 31 32 39 2c 30  2c 38 2c 30 2c 32 2c 36  |.3,129,0,8,0,2,6|
00000130  2c 36 2c 36 30 2c 30 2c  30 2c 31 2c 31 32 36 2c  |,6,60,0,0,1,126,|
00000140  31 32 36 0d 00 dc 29 e2  34 2c 33 2c 30 2c 30 2c  |126...).4,3,0,0,|
00000150  30 2c 31 2c 31 2c 31 2c  31 32 30 2c 2d 35 2c 2d  |0,1,1,1,120,-5,-|
00000160  35 2c 2d 31 30 2c 31 32  30 2c 39 30 0d 00 e6 8c  |5,-10,120,90....|
00000170  ef 32 33 2c 32 32 34 2c  37 2c 31 35 2c 33 30 2c  |.23,224,7,15,30,|
00000180  33 30 2c 33 30 2c 31 34  2c 31 35 2c 37 2c 32 33  |30,30,14,15,7,23|
00000190  2c 32 32 35 2c 32 32 34  2c 34 38 2c 32 34 38 2c  |,225,224,48,248,|
000001a0  31 34 34 2c 31 34 34 2c  35 36 2c 32 35 34 2c 31  |144,144,56,254,1|
000001b0  39 32 2c 32 33 2c 32 32  36 2c 33 31 2c 35 34 2c  |92,23,226,31,54,|
000001c0  34 36 2c 35 33 2c 35 39  2c 33 31 2c 33 32 2c 31  |46,53,59,31,32,1|
000001d0  32 34 2c 32 33 2c 32 32  37 2c 32 34 30 2c 32 34  |24,23,227,240,24|
000001e0  38 2c 32 33 36 2c 32 34  34 2c 32 34 30 2c 32 32  |8,236,244,240,22|
000001f0  34 2c 36 34 2c 31 32 30  0d 00 f0 8a ef 32 33 2c  |4,64,120.....23,|
00000200  32 32 38 2c 37 2c 31 32  2c 33 31 2c 39 2c 39 2c  |228,7,12,31,9,9,|
00000210  32 38 2c 31 32 37 2c 33  2c 32 33 2c 32 32 39 2c  |28,127,3,23,229,|
00000220  32 32 34 2c 32 34 30 2c  31 32 30 2c 31 32 30 2c  |224,240,120,120,|
00000230  31 32 30 2c 31 31 32 2c  32 34 30 2c 32 32 34 2c  |120,112,240,224,|
00000240  32 33 2c 32 33 30 2c 31  35 2c 33 31 2c 35 35 2c  |23,230,15,31,55,|
00000250  34 37 2c 31 35 2c 37 2c  32 2c 33 30 2c 32 33 2c  |47,15,7,2,30,23,|
00000260  32 33 31 2c 32 34 38 2c  31 30 38 2c 31 31 36 2c  |231,248,108,116,|
00000270  31 37 32 2c 32 32 30 2c  32 34 38 2c 31 36 2c 31  |172,220,248,16,1|
00000280  32 30 0d 00 fa 90 ef 32  33 2c 32 33 32 2c 31 35  |20.....23,232,15|
00000290  2c 32 38 2c 35 35 2c 35  35 2c 36 33 2c 33 31 2c  |,28,55,55,63,31,|
000002a0  33 31 2c 33 2c 32 33 2c  32 33 33 2c 32 34 30 2c  |31,3,23,233,240,|
000002b0  32 34 38 2c 32 35 32 2c  32 35 32 2c 32 35 32 2c  |248,252,252,252,|
000002c0  32 34 38 2c 32 34 38 2c  31 39 32 2c 32 33 2c 32  |248,248,192,23,2|
000002d0  33 34 2c 31 32 2c 36 33  2c 31 32 37 2c 32 35 34  |34,12,63,127,254|
000002e0  2c 31 38 39 2c 31 32 36  2c 33 31 2c 34 38 2c 32  |,189,126,31,48,2|
000002f0  33 2c 32 33 35 2c 34 38  2c 32 35 32 2c 31 32 36  |3,235,48,252,126|
00000300  2c 31 39 31 2c 32 32 31  2c 31 39 30 2c 32 35 32  |,191,221,190,252|
00000310  2c 36 0d 01 04 8e ef 32  33 2c 32 33 36 2c 37 2c  |,6.....23,236,7,|
00000320  31 35 2c 33 30 2c 33 30  2c 33 30 2c 31 34 2c 31  |15,30,30,30,14,1|
00000330  35 2c 33 2c 32 33 2c 32  33 37 2c 32 35 32 2c 35  |5,3,23,237,252,5|
00000340  30 2c 32 35 35 2c 31 34  37 2c 31 34 37 2c 36 30  |0,255,147,147,60|
00000350  2c 32 35 35 2c 31 39 32  2c 32 33 2c 32 33 38 2c  |,255,192,23,238,|
00000360  32 38 2c 36 33 2c 35 39  2c 35 39 2c 36 30 2c 31  |28,63,59,59,60,1|
00000370  35 39 2c 32 32 37 2c 31  31 38 2c 32 33 2c 32 33  |59,227,118,23,23|
00000380  39 2c 34 38 2c 32 34 38  2c 32 32 30 2c 31 38 38  |9,48,248,220,188|
00000390  2c 31 38 38 2c 31 32 33  2c 31 30 32 2c 31 38 32  |,188,123,102,182|
000003a0  0d 01 0e 90 ef 32 33 2c  32 34 30 2c 31 35 2c 32  |.....23,240,15,2|
000003b0  35 2c 35 35 2c 35 33 2c  35 33 2c 31 39 2c 33 31  |5,55,53,53,19,31|
000003c0  2c 33 2c 32 33 2c 32 34  31 2c 32 34 30 2c 31 35  |,3,23,241,240,15|
000003d0  32 2c 32 33 36 2c 31 37  32 2c 31 37 32 2c 32 30  |2,236,172,172,20|
000003e0  30 2c 32 34 38 2c 31 39  32 2c 32 33 2c 32 34 32  |0,248,192,23,242|
000003f0  2c 31 32 2c 36 33 2c 31  32 37 2c 32 35 35 2c 31  |,12,63,127,255,1|
00000400  39 31 2c 31 32 37 2c 33  31 2c 34 38 2c 32 33 2c  |91,127,31,48,23,|
00000410  32 34 33 2c 34 38 2c 32  35 32 2c 32 35 34 2c 32  |243,48,252,254,2|
00000420  35 35 2c 32 35 33 2c 31  32 36 2c 32 35 32 2c 36  |55,253,126,252,6|
00000430  0d 01 18 92 ef 32 33 2c  32 34 35 2c 31 32 38 2c  |.....23,245,128,|
00000440  31 39 35 2c 34 37 2c 33  31 2c 35 39 2c 34 39 2c  |195,47,31,59,49,|
00000450  31 31 37 2c 31 31 33 2c  32 33 2c 32 34 36 2c 31  |117,113,23,246,1|
00000460  2c 31 39 35 2c 32 34 34  2c 32 34 38 2c 32 32 30  |,195,244,248,220|
00000470  2c 31 34 30 2c 31 37 34  2c 31 34 32 2c 32 33 2c  |,140,174,142,23,|
00000480  32 34 37 2c 31 32 37 2c  36 33 2c 31 35 2c 35 2c  |247,127,63,15,5,|
00000490  31 38 2c 33 39 2c 37 31  2c 31 39 35 2c 32 33 2c  |18,39,71,195,23,|
000004a0  32 34 38 2c 32 35 34 2c  32 35 32 2c 32 34 30 2c  |248,254,252,240,|
000004b0  36 34 2c 31 36 38 2c 32  32 38 2c 32 32 36 2c 31  |64,168,228,226,1|
000004c0  39 35 0d 01 22 8a ef 32  33 2c 32 34 39 2c 30 2c  |95.."..23,249,0,|
000004d0  34 2c 36 2c 33 35 2c 34  39 2c 32 34 2c 37 36 2c  |4,6,35,49,24,76,|
000004e0  31 30 32 2c 32 33 2c 32  35 30 2c 31 32 36 2c 31  |102,23,250,126,1|
000004f0  31 39 2c 35 31 2c 32 37  2c 31 35 39 2c 32 33 31  |19,51,27,159,231|
00000500  2c 39 39 2c 31 37 37 2c  32 33 2c 32 35 31 2c 35  |,99,177,23,251,5|
00000510  31 2c 32 37 2c 37 36 2c  34 36 2c 31 34 37 2c 31  |1,27,76,46,147,1|
00000520  36 39 2c 31 39 36 2c 32  34 30 2c 32 33 2c 32 35  |69,196,240,23,25|
00000530  32 2c 32 34 2c 31 34 30  2c 31 39 36 2c 39 36 2c  |2,24,140,196,96,|
00000540  34 38 2c 31 34 34 2c 31  39 32 2c 30 0d 01 2c 8f  |48,144,192,0..,.|
00000550  ef 32 33 2c 32 34 34 2c  30 2c 33 32 2c 34 2c 36  |.23,244,0,32,4,6|
00000560  34 2c 31 2c 37 2c 31 34  33 2c 36 33 2c 32 33 2c  |4,1,7,143,63,23,|
00000570  32 35 33 2c 33 32 2c 31  2c 38 2c 31 32 38 2c 31  |253,32,1,8,128,1|
00000580  32 38 2c 32 32 38 2c 32  34 30 2c 32 35 32 2c 32  |28,228,240,252,2|
00000590  33 2c 32 35 34 2c 31 31  39 2c 32 33 33 2c 32 34  |3,254,119,233,24|
000005a0  37 2c 31 31 37 2c 34 39  2c 31 33 37 2c 32 33 39  |7,117,49,137,239|
000005b0  2c 31 31 33 2c 32 33 2c  32 35 35 2c 32 33 38 2c  |,113,23,255,238,|
000005c0  31 35 31 2c 32 33 39 2c  31 37 34 2c 31 34 30 2c  |151,239,174,140,|
000005d0  31 34 37 2c 32 34 36 2c  31 39 38 0d 01 36 24 41  |147,246,198..6$A|
000005e0  24 3d bd 32 32 34 2b bd  32 32 35 2b bd 31 30 2b  |$=.224+.225+.10+|
000005f0  bd 38 2b bd 38 2b bd 32  32 36 2b bd 32 32 37 0d  |.8+.8+.226+.227.|
00000600  01 40 24 42 24 3d bd 32  32 38 2b bd 32 32 39 2b  |.@$B$=.228+.229+|
00000610  bd 31 30 2b bd 38 2b bd  38 2b bd 32 33 30 2b bd  |.10+.8+.8+.230+.|
00000620  32 33 31 0d 01 4a 24 43  24 3d bd 32 33 32 2b bd  |231..J$C$=.232+.|
00000630  32 33 33 2b bd 31 30 2b  bd 38 2b bd 38 2b bd 32  |233+.10+.8+.8+.2|
00000640  33 34 2b bd 32 33 35 0d  01 54 24 44 24 3d bd 32  |34+.235..T$D$=.2|
00000650  33 36 2b bd 32 33 37 2b  bd 31 30 2b bd 38 2b bd  |36+.237+.10+.8+.|
00000660  38 2b bd 32 33 38 2b bd  32 33 39 0d 01 5e 24 45  |8+.238+.239..^$E|
00000670  24 3d bd 32 34 30 2b bd  32 34 31 2b bd 31 30 2b  |$=.240+.241+.10+|
00000680  bd 38 2b bd 38 2b bd 32  34 32 2b bd 32 34 33 0d  |.8+.8+.242+.243.|
00000690  01 68 24 46 24 3d bd 32  34 35 2b bd 32 34 36 2b  |.h$F$=.245+.246+|
000006a0  bd 31 30 2b bd 38 2b bd  38 2b bd 32 34 37 2b bd  |.10+.8+.8+.247+.|
000006b0  32 34 38 0d 01 72 24 47  24 3d bd 32 34 39 2b bd  |248..r$G$=.249+.|
000006c0  32 35 30 2b bd 31 30 2b  bd 38 2b bd 38 2b bd 32  |250+.10+.8+.8+.2|
000006d0  35 31 2b bd 32 35 32 0d  01 7c 24 48 24 3d bd 32  |51+.252..|$H$=.2|
000006e0  34 34 2b bd 32 35 33 2b  bd 31 30 2b bd 38 2b bd  |44+.253+.10+.8+.|
000006f0  38 2b bd 32 35 34 2b bd  32 35 35 0d 01 86 25 6c  |8+.254+.255...%l|
00000700  69 76 65 73 3d 33 3a 73  63 6f 72 65 3d 30 3a 74  |ives=3:score=0:t|
00000710  61 72 67 65 74 3d 30 3a  74 69 6d 65 3d 39 35 30  |arget=0:time=950|
00000720  0d 01 90 12 f2 67 72 69  64 3a 64 65 61 64 3d 30  |.....grid:dead=0|
00000730  3a f5 0d 01 9a 22 e7 20  ac 64 65 61 64 20 74 61  |:....". .dead ta|
00000740  72 67 65 74 3d 74 61 72  67 65 74 2b 35 3a 66 69  |rget=target+5:fi|
00000750  73 68 3d 30 0d 01 a4 19  ef 31 39 2c 31 2c 43 43  |sh=0.....19,1,CC|
00000760  3b 30 3b 31 39 2c 32 2c  43 59 3b 30 3b 0d 01 ae  |;0;19,2,CY;0;...|
00000770  1e e3 20 53 25 3d 31 20  b8 20 73 6b 75 6c 6c 73  |.. S%=1 . skulls|
00000780  3a 53 58 25 28 53 25 29  3d 32 36 0d 01 b8 26 43  |:SX%(S%)=26...&C|
00000790  25 28 53 25 29 3d 33 3a  e7 20 b3 28 32 29 3d 31  |%(S%)=3:. .(2)=1|
000007a0  20 43 25 28 53 25 29 3d  43 25 28 53 25 29 2a 2d  | C%(S%)=C%(S%)*-|
000007b0  31 0d 01 c2 14 53 59 25  28 53 25 29 3d 31 2b 33  |1....SY%(S%)=1+3|
000007c0  2a 53 25 3a ed 0d 01 cc  19 44 58 25 3d 35 3a 44  |*S%:.....DX%=5:D|
000007d0  59 25 3d 31 36 3a 74 69  6d 65 3d 39 35 30 0d 01  |Y%=16:time=950..|
000007e0  d6 12 64 65 61 64 3d a3  3a 73 6b 75 6c 6c 3d 31  |..dead=.:skull=1|
000007f0  0d 01 e0 13 fb 37 3a f1  8a 44 58 25 2c 44 59 25  |.....7:..DX%,DY%|
00000800  29 41 24 0d 01 ea 11 f5  20 f2 70 6c 61 63 65 5f  |)A$..... .place_|
00000810  66 69 73 68 0d 01 f4 0b  f5 20 f2 64 75 63 6b 0d  |fish..... .duck.|
00000820  01 fe 12 f2 73 6b 75 6c  6c 73 28 73 6b 75 6c 6c  |....skulls(skull|
00000830  29 0d 02 08 1c 73 6b 75  6c 6c 3d 28 73 6b 75 6c  |)....skull=(skul|
00000840  6c 20 83 20 73 6b 75 6c  6c 73 29 2b 31 0d 02 12  |l . skulls)+1...|
00000850  0b f2 75 70 64 61 74 65  0d 02 1c 14 e7 20 a6 2d  |..update..... .-|
00000860  31 37 20 8c 2a 46 58 32  31 30 2c 31 0d 02 26 14  |17 .*FX210,1..&.|
00000870  e7 20 a6 2d 38 32 20 8c  2a 46 58 32 31 30 2c 30  |. .-82 .*FX210,0|
00000880  0d 02 30 15 fd 20 65 61  74 5f 66 69 73 68 20 84  |..0.. eat_fish .|
00000890  20 64 65 61 64 0d 02 3a  18 fd 20 64 65 61 64 20  | dead..:.. dead |
000008a0  84 20 66 69 73 68 3d 74  61 72 67 65 74 0d 02 44  |. fish=target..D|
000008b0  18 e7 20 64 65 61 64 20  f2 64 69 65 20 8b 20 f2  |.. dead .die . .|
000008c0  62 6f 6e 75 73 0d 02 4e  16 fd 20 6c 69 76 65 73  |bonus..N.. lives|
000008d0  3d 30 3a f2 65 6e 64 67  61 6d 65 0d 02 58 05 f9  |=0:.endgame..X..|
000008e0  0d 02 6c 16 dd 20 f2 64  75 63 6b 3a ea 20 78 25  |..l.. .duck:. x%|
000008f0  2c 79 25 2c 64 24 0d 02  76 1e e7 20 a6 2d 36 37  |,y%,d$..v.. .-67|
00000900  20 e7 20 44 58 25 3c 33  30 20 78 25 3d 33 3a 64  | . DX%<30 x%=3:d|
00000910  24 3d 41 24 0d 02 80 1e  e7 20 a6 2d 39 38 20 e7  |$=A$..... .-98 .|
00000920  20 44 58 25 3e 35 20 78  25 3d 2d 33 3a 64 24 3d  | DX%>5 x%=-3:d$=|
00000930  42 24 0d 02 8a 1e e7 20  a6 2d 37 33 20 e7 20 44  |B$..... .-73 . D|
00000940  59 25 3e 34 20 79 25 3d  2d 33 3a 64 24 3d 43 24  |Y%>4 y%=-3:d$=C$|
00000950  0d 02 94 1f e7 20 a6 2d  31 30 35 20 e7 20 44 59  |..... .-105 . DY|
00000960  25 3c 32 38 20 79 25 3d  33 3a 64 24 3d 45 24 0d  |%<28 y%=3:d$=E$.|
00000970  02 9e 0d e7 20 64 24 3d  22 22 20 e1 0d 02 a8 19  |.... d$="" .....|
00000980  4a 25 3d a4 61 74 28 44  58 25 2b 78 25 2c 44 59  |J%=.at(DX%+x%,DY|
00000990  25 2b 79 25 29 0d 02 b2  14 fb 20 30 3a f1 8a 44  |%+y%)..... 0:..D|
000009a0  58 25 2c 44 59 25 29 64  24 0d 02 bc 19 44 58 25  |X%,DY%)d$....DX%|
000009b0  3d 44 58 25 2b 78 25 3a  44 59 25 3d 44 59 25 2b  |=DX%+x%:DY%=DY%+|
000009c0  79 25 0d 02 c6 14 fb 20  37 3a f1 8a 44 58 25 2c  |y%..... 7:..DX%,|
000009d0  44 59 25 29 64 24 0d 02  d0 28 e7 20 4a 25 3d 32  |DY%)d$...(. J%=2|
000009e0  20 65 61 74 5f 66 69 73  68 3d b9 3a 73 63 6f 72  | eat_fish=.:scor|
000009f0  65 3d 73 63 6f 72 65 2b  74 61 72 67 65 74 0d 02  |e=score+target..|
00000a00  da 11 e7 20 4a 25 3d 33  20 64 65 61 64 3d b9 0d  |... J%=3 dead=..|
00000a10  02 e4 05 e1 0d 02 f8 0b  dd 20 f2 67 72 69 64 0d  |......... .grid.|
00000a20  03 02 1e ef 34 2c 32 36  2c 32 30 2c 31 32 2c 32  |....4,26,20,12,2|
00000a30  33 3b 38 32 30 32 3b 30  3b 30 3b 30 3b 0d 03 0c  |3;8202;0;0;0;...|
00000a40  1b ef 31 39 2c 31 3b 30  3b 30 3b 31 39 2c 32 3b  |..19,1;0;0;19,2;|
00000a50  30 3b 30 3b 3a fb 20 33  0d 03 16 18 f1 8a 31 34  |0;0;:. 3......14|
00000a60  2c 31 29 22 50 6c 65 61  73 65 20 57 61 69 74 22  |,1)"Please Wait"|
00000a70  0d 03 20 08 e6 30 2c 31  0d 03 2a 18 e3 20 48 25  |.. ..0,1..*.. H%|
00000a80  3d 31 33 36 20 b8 20 31  30 39 36 20 88 20 39 36  |=136 . 1096 . 96|
00000a90  0d 03 34 17 e3 20 56 25  3d 31 33 36 20 b8 20 39  |..4.. V%=136 . 9|
00000aa0  34 32 20 88 20 39 36 0d  03 3e 16 ec 20 48 25 2c  |42 . 96..>.. H%,|
00000ab0  56 25 3a df 20 48 25 2c  56 25 2d 37 38 0d 03 48  |V%:. H%,V%-78..H|
00000ac0  1c ec 20 48 25 2b 31 35  2c 56 25 3a df 20 48 25  |.. H%+15,V%:. H%|
00000ad0  2b 31 35 2c 56 25 2d 37  38 0d 03 52 07 ed 3a ed  |+15,V%-78..R..:.|
00000ae0  0d 03 5c 18 e3 20 48 25  3d 31 33 36 20 b8 20 31  |..\.. H%=136 . 1|
00000af0  30 30 30 20 88 20 39 36  0d 03 66 17 e3 20 56 25  |000 . 96..f.. V%|
00000b00  3d 31 33 36 20 b8 20 39  34 32 20 88 20 39 36 0d  |=136 . 942 . 96.|
00000b10  03 70 19 ec 20 48 25 2b  31 35 2c 56 25 3a df 20  |.p.. H%+15,V%:. |
00000b20  48 25 2b 39 36 2c 56 25  0d 03 7a 1f ec 20 48 25  |H%+96,V%..z.. H%|
00000b30  2b 31 35 2c 56 25 2d 38  34 3a df 20 48 25 2b 39  |+15,V%-84:. H%+9|
00000b40  36 2c 56 25 2d 38 34 0d  03 84 07 ed 3a ed 0d 03  |6,V%-84.....:...|
00000b50  8e 14 ec 31 33 36 2c 39  31 38 3a df 31 33 36 2c  |...136,918:.136,|
00000b60  34 30 0d 03 98 16 df 31  31 31 30 2c 34 30 3a df  |40.....1110,40:.|
00000b70  31 31 31 30 2c 39 31 38  0d 03 a2 12 df 31 33 36  |1110,918.....136|
00000b80  2c 39 31 38 3a e6 20 30  2c 31 0d 03 ac 14 ec 20  |,918:. 0,1..... |
00000b90  31 33 35 2c 35 3a df 20  31 33 35 2c 32 38 0d 03  |135,5:. 135,28..|
00000ba0  b6 16 df 20 31 31 31 35  2c 32 38 3a df 20 31 31  |... 1115,28:. 11|
00000bb0  31 35 2c 35 0d 03 c0 0b  df 20 31 33 35 2c 35 0d  |15,5..... 135,5.|
00000bc0  03 ca 0f f1 8a 31 34 2c  31 29 89 31 32 3b 0d 03  |.....14,1).12;..|
00000bd0  d4 10 e6 30 2c 37 3a ec  31 35 30 2c 32 30 0d 03  |...0,7:.150,20..|
00000be0  de 11 df 20 31 35 30 2b  74 69 6d 65 2c 32 30 0d  |... 150+time,20.|
00000bf0  03 e8 14 ec 31 35 30 2c  31 37 3a df 31 31 30 30  |....150,17:.1100|
00000c00  2c 31 37 0d 03 f2 14 ec  31 35 30 2c 31 34 3a df  |,17.....150,14:.|
00000c10  31 31 30 30 2c 31 34 0d  03 fc 0f 58 25 3d 31 30  |1100,14....X%=10|
00000c20  30 3a e6 30 2c 37 0d 04  06 13 e3 58 25 3d 31 34  |0:.0,7.....X%=14|
00000c30  30 b8 31 30 38 34 88 36  34 0d 04 10 17 ec 58 25  |0.1084.64.....X%|
00000c40  2c 39 39 32 3a df 58 25  2b 31 36 2c 31 30 32 33  |,992:.X%+16,1023|
00000c50  0d 04 1a 19 df 58 25 2b  33 32 2c 39 39 32 3a ec  |.....X%+32,992:.|
00000c60  58 25 2b 33 32 2c 39 39  32 0d 04 24 1a df 58 25  |X%+32,992..$..X%|
00000c70  2b 34 38 2c 31 30 31 34  3a df 58 25 2b 36 34 2c  |+48,1014:.X%+64,|
00000c80  39 39 32 0d 04 2e 16 ec  58 25 2c 39 35 39 3a df  |992.....X%,959:.|
00000c90  58 25 2b 31 36 2c 39 33  31 0d 04 38 19 df 58 25  |X%+16,931..8..X%|
00000ca0  2b 33 32 2c 39 35 39 3a  ec 58 25 2b 33 32 2c 39  |+32,959:.X%+32,9|
00000cb0  35 39 0d 04 42 19 df 58  25 2b 34 38 2c 39 33 38  |59..B..X%+48,938|
00000cc0  3a df 58 25 2b 36 34 2c  39 35 39 0d 04 4c 15 ec  |:.X%+64,959..L..|
00000cd0  31 34 30 2c 39 39 32 3a  df 31 34 30 2c 39 36 30  |140,992:.140,960|
00000ce0  0d 04 56 17 ec 31 31 30  30 2c 39 39 32 3a df 31  |..V..1100,992:.1|
00000cf0  31 30 30 2c 39 36 30 0d  04 60 08 ed 3a fb 31 0d  |100,960..`..:.1.|
00000d00  04 6a 1b f1 8a 35 2c 31  29 22 53 63 6f 72 65 22  |.j...5,1)"Score"|
00000d10  89 31 36 22 4c 69 76 65  73 22 0d 04 74 19 ef 31  |.16"Lives"..t..1|
00000d20  39 2c 31 2c 43 43 3b 30  3b 31 39 2c 32 2c 43 59  |9,1,CC;0;19,2,CY|
00000d30  3b 30 3b 0d 04 7e 17 ef  31 39 2c 37 2c 33 3b 30  |;0;..~..19,7,3;0|
00000d40  3b 31 39 2c 30 3b 30 3b  30 3b 0d 04 88 14 ef 32  |;19,0;0;0;.....2|
00000d50  33 2c 31 3b 30 3b 30 3b  30 3b 30 3b 3a e1 0d 04  |3,1;0;0;0;0;:...|
00000d60  9c 11 dd 20 f2 73 6b 75  6c 6c 73 28 54 25 29 0d  |... .skulls(T%).|
00000d70  04 a6 1a ea 20 53 58 25  2c 53 59 25 2c 43 25 3a  |.... SX%,SY%,C%:|
00000d80  43 25 3d 43 25 28 54 25  29 0d 04 b0 1b 53 58 25  |C%=C%(T%)....SX%|
00000d90  3d 53 58 25 28 54 25 29  3a 53 59 25 3d 53 59 25  |=SX%(T%):SY%=SY%|
00000da0  28 54 25 29 0d 04 ba 25  e7 20 53 58 25 3c 38 20  |(T%)...%. SX%<8 |
00000db0  84 20 53 58 25 3e 32 39  20 84 20 b3 28 31 30 29  |. SX%>29 . .(10)|
00000dc0  3d 31 3a 43 25 3d 2d 43  25 0d 04 c4 25 e7 20 46  |=1:C%=-C%...%. F|
00000dd0  59 25 3d 53 59 25 20 e7  20 53 58 25 2b 33 3d 46  |Y%=SY% . SX%+3=F|
00000de0  58 25 20 43 25 28 54 25  29 3d 2d 33 3a e1 0d 04  |X% C%(T%)=-3:...|
00000df0  ce 25 e7 20 46 59 25 3d  53 59 25 20 e7 20 53 58  |.%. FY%=SY% . SX|
00000e00  25 2d 33 3d 46 58 25 20  43 25 28 54 25 29 3d 2b  |%-3=FX% C%(T%)=+|
00000e10  33 3a e1 0d 04 d8 15 fb  20 30 3a f1 8a 53 58 25  |3:...... 0:..SX%|
00000e20  2c 53 59 25 29 46 24 3b  0d 04 e2 0e 53 58 25 3d  |,SY%)F$;....SX%=|
00000e30  53 58 25 2b 43 25 0d 04  ec 1e e7 20 53 59 25 3d  |SX%+C%..... SY%=|
00000e40  44 59 25 20 e7 20 53 58  25 3d 44 58 25 20 64 65  |DY% . SX%=DX% de|
00000e50  61 64 3d b9 0d 04 f6 15  fb 20 32 3a f1 8a 53 58  |ad=...... 2:..SX|
00000e60  25 2c 53 59 25 29 46 24  3b 0d 05 00 1b 53 58 25  |%,SY%)F$;....SX%|
00000e70  28 54 25 29 3d 53 58 25  3a 53 59 25 28 54 25 29  |(T%)=SX%:SY%(T%)|
00000e80  3d 53 59 25 0d 05 0a 0f  43 25 28 54 25 29 3d 43  |=SY%....C%(T%)=C|
00000e90  25 3a e1 0d 05 1e 11 dd  20 f2 70 6c 61 63 65 5f  |%:...... .place_|
00000ea0  66 69 73 68 0d 05 28 11  46 58 25 3d 2d 31 3a 46  |fish..(.FX%=-1:F|
00000eb0  59 25 3d 2d 31 0d 05 32  19 d4 31 2c 32 2c 31 36  |Y%=-1..2..1,2,16|
00000ec0  30 2c 36 3a d4 32 2c 32  2c 31 32 30 2c 36 0d 05  |0,6:.2,2,120,6..|
00000ed0  3c 0d ea 20 58 25 2c 59  25 3a f5 0d 05 46 1b 59  |<.. X%,Y%:...F.Y|
00000ee0  25 3d 34 2b b3 28 37 29  2a 33 3a 58 25 3d 38 2b  |%=4+.(7)*3:X%=8+|
00000ef0  b3 28 36 29 2a 33 0d 05  50 12 fd 20 a4 61 74 28  |.(6)*3..P.. .at(|
00000f00  58 25 2c 59 25 29 3d 30  0d 05 5a 12 fb 20 37 3a  |X%,Y%)=0..Z.. 7:|
00000f10  f1 8a 58 25 2c 59 25 29  47 24 0d 05 64 1a 66 69  |..X%,Y%)G$..d.fi|
00000f20  73 68 3d 66 69 73 68 2b  31 3a 65 61 74 5f 66 69  |sh=fish+1:eat_fi|
00000f30  73 68 3d a3 0d 05 6e 13  46 58 25 3d 58 25 3a 46  |sh=...n.FX%=X%:F|
00000f40  59 25 3d 59 25 3a e1 0d  05 82 14 dd 20 f2 64 69  |Y%=Y%:...... .di|
00000f50  65 3a f2 77 61 69 74 28  2e 35 29 0d 05 8c 17 fb  |e:.wait(.5).....|
00000f60  20 31 3a e3 20 54 25 3d  31 20 b8 20 73 6b 75 6c  | 1:. T%=1 . skul|
00000f70  6c 73 0d 05 96 1a f1 8a  53 58 25 28 54 25 29 2c  |ls......SX%(T%),|
00000f80  53 59 25 28 54 25 29 29  46 24 3a ed 0d 05 a0 13  |SY%(T%))F$:.....|
00000f90  e3 20 59 25 3d 34 20 b8  20 31 30 30 20 88 34 0d  |. Y%=4 . 100 .4.|
00000fa0  05 aa 13 d4 26 31 31 2c  32 2c 31 30 30 2d 59 25  |....&11,2,100-Y%|
00000fb0  2c 31 0d 05 b4 1e d4 26  31 32 2c 33 2c 31 30 30  |,1.....&12,3,100|
00000fc0  2d 59 25 2c 31 3a ed 3a  f2 77 61 69 74 28 31 29  |-Y%,1:.:.wait(1)|
00000fd0  0d 05 be 19 e3 20 44 3d  2e 30 31 20 b8 20 2e 30  |..... D=.01 . .0|
00000fe0  39 35 20 88 20 2e 30 30  35 0d 05 c8 13 d4 26 31  |95 . .005.....&1|
00000ff0  31 2c 32 2c 31 35 30 2c  35 3a fb 37 0d 05 d2 1c  |1,2,150,5:.7....|
00001000  f1 8a 44 58 25 2c 44 59  25 29 41 24 3a f2 77 61  |..DX%,DY%)A$:.wa|
00001010  69 74 28 2e 31 2d 44 29  0d 05 dc 1c f1 8a 44 58  |it(.1-D)......DX|
00001020  25 2c 44 59 25 29 43 24  3a f2 77 61 69 74 28 2e  |%,DY%)C$:.wait(.|
00001030  31 2d 44 29 0d 05 e6 1c  f1 8a 44 58 25 2c 44 59  |1-D)......DX%,DY|
00001040  25 29 42 24 3a f2 77 61  69 74 28 2e 31 2d 44 29  |%)B$:.wait(.1-D)|
00001050  0d 05 f0 1c f1 8a 44 58  25 2c 44 59 25 29 45 24  |......DX%,DY%)E$|
00001060  3a f2 77 61 69 74 28 2e  31 2d 44 29 0d 05 fa 0f  |:.wait(.1-D)....|
00001070  ed 3a f2 77 61 69 74 28  2e 34 29 0d 06 04 10 f1  |.:.wait(.4).....|
00001080  8a 44 58 25 2c 44 59 25  29 44 24 0d 06 0e 16 d4  |.DX%,DY%)D$.....|
00001090  31 2c 34 2c 34 2c 32 3a  f2 77 61 69 74 28 2e 32  |1,4,4,2:.wait(.2|
000010a0  29 0d 06 18 0e e3 20 44  25 3d 31 20 b8 20 35 0d  |)..... D%=1 . 5.|
000010b0  06 22 1b f1 8a 44 58 25  2c 44 59 25 29 48 24 3a  |."...DX%,DY%)H$:|
000010c0  f2 77 61 69 74 28 2e 31  35 29 0d 06 2c 15 d4 30  |.wait(.15)..,..0|
000010d0  2c 34 2c 31 2c 31 3a d4  31 2c 34 2c 34 2c 31 0d  |,4,1,1:.1,4,4,1.|
000010e0  06 36 1b f1 8a 44 58 25  2c 44 59 25 29 44 24 3a  |.6...DX%,DY%)D$:|
000010f0  f2 77 61 69 74 28 2e 31  33 29 0d 06 40 12 ed 3a  |.wait(.13)..@..:|
00001100  f2 77 61 69 74 28 33 29  3a fb 20 30 0d 06 4a 1b  |.wait(3):. 0..J.|
00001110  f1 8a 44 58 25 2c 44 59  25 29 41 24 8a 46 58 25  |..DX%,DY%)A$.FX%|
00001120  2c 46 59 25 29 41 24 0d  06 54 13 e3 20 53 25 3d  |,FY%)A$..T.. S%=|
00001130  31 20 b8 20 73 6b 75 6c  6c 73 0d 06 5e 18 f1 8a  |1 . skulls..^...|
00001140  53 58 25 28 53 25 29 2c  53 59 25 28 53 25 29 29  |SX%(S%),SY%(S%))|
00001150  41 24 0d 06 68 15 ed 3a  6c 69 76 65 73 3d 6c 69  |A$..h..:lives=li|
00001160  76 65 73 2d 31 3a e1 0d  06 7c 0e dd 20 f2 77 61  |ves-1:...|.. .wa|
00001170  69 74 28 74 29 0d 06 86  13 ea 20 54 25 3a 54 25  |it(t)..... T%:T%|
00001180  3d 91 2b 74 2a 31 30 30  0d 06 90 0e f5 20 fd 20  |=.+t*100..... . |
00001190  91 3e 54 25 3a e1 0d 06  a4 12 dd 20 f2 75 70 64  |.>T%:...... .upd|
000011a0  61 74 65 3a e6 30 2c 31  0d 06 ae 1f ec 20 31 35  |ate:.0,1..... 15|
000011b0  30 2b 74 69 6d 65 2c 32  30 3a df 20 31 35 30 2b  |0+time,20:. 150+|
000011c0  74 69 6d 65 2c 31 34 0d  06 b8 22 74 69 6d 65 3d  |time,14..."time=|
000011d0  74 69 6d 65 2d 31 3a ef  34 3a e7 20 74 69 6d 65  |time-1:.4:. time|
000011e0  3d 30 20 64 65 61 64 3d  b9 0d 06 c2 15 fb 37 3a  |=0 dead=......7:|
000011f0  f1 8a 31 31 2c 31 29 3b  73 63 6f 72 65 3b 0d 06  |..11,1);score;..|
00001200  cc 12 f1 8a 33 32 2c 31  29 3b 6c 69 76 65 73 3b  |....32,1);lives;|
00001210  0d 06 d6 14 fb 31 3a f1  8a 31 39 2c 31 29 3b 66  |.....1:..19,1);f|
00001220  69 73 68 3b 0d 06 e0 05  e1 0d 06 f4 0c dd 20 f2  |ish;.......... .|
00001230  62 6f 6e 75 73 0d 06 fe  14 e3 20 53 25 3d 34 20  |bonus..... S%=4 |
00001240  b8 20 31 30 30 20 88 20  34 0d 07 08 1d d4 26 31  |. 100 . 4.....&1|
00001250  31 2c 33 2c 53 25 2c 32  3a d4 26 31 32 2c 32 2c  |1,3,S%,2:.&12,2,|
00001260  53 25 2c 32 3a ed 0d 07  12 18 f2 62 6f 78 28 31  |S%,2:......box(1|
00001270  36 2c 37 2c 31 33 2c 37  2c 30 2c 22 22 29 0d 07  |6,7,13,7,0,"")..|
00001280  1c 14 ef 35 3a e6 30 2c  31 3a ec 34 38 30 2c 35  |...5:.0,1:.480,5|
00001290  39 30 0d 07 26 10 f1 22  42 20 4f 20 4e 20 55 20  |90..&.."B O N U |
000012a0  53 22 0d 07 30 19 73 63  6f 72 65 3d 73 63 6f 72  |S"..0.score=scor|
000012b0  65 2b 74 61 72 67 65 74  2a 31 30 0d 07 3a 1e e6  |e+target*10..:..|
000012c0  30 2c 32 3a ec 35 34 30  2c 34 34 30 3a f1 3b 74  |0,2:.540,440:.;t|
000012d0  61 72 67 65 74 2a 31 30  3b 0d 07 44 1b e6 30 2c  |arget*10;..D..0,|
000012e0  31 3a ec 35 32 34 2c 33  39 30 3a f1 22 50 4f 49  |1:.524,390:."POI|
000012f0  4e 54 53 22 0d 07 4e 17  e3 20 48 25 3d 33 36 35  |NTS"..N.. H%=365|
00001300  20 b8 20 38 35 30 20 88  20 37 35 0d 07 58 11 e6  | . 850 . 75..X..|
00001310  30 2c 30 3a ec 20 48 25  2c 35 32 30 0d 07 62 1d  |0,0:. H%,520..b.|
00001320  ef 32 34 39 2c 32 35 30  2c 38 2c 38 2c 31 30 2c  |.249,250,8,8,10,|
00001330  32 35 31 2c 32 35 32 3a  ed 0d 07 6c 24 43 43 3d  |251,252:...l$CC=|
00001340  43 43 2b 31 3a e7 20 43  43 3d 33 20 43 43 3d 34  |CC+1:. CC=3 CC=4|
00001350  20 8b e7 20 43 43 3d 37  20 43 43 3d 31 0d 07 76  | .. CC=7 CC=1..v|
00001360  24 43 59 3d 43 59 2b 31  3a e7 20 43 59 3d 33 20  |$CY=CY+1:. CY=3 |
00001370  43 59 3d 34 20 8b e7 20  43 59 3d 37 3a 43 59 3d  |CY=4 .. CY=7:CY=|
00001380  31 0d 07 80 19 ef 31 39  2c 31 2c 43 43 3b 30 3b  |1.....19,1,CC;0;|
00001390  31 39 2c 32 2c 43 59 3b  30 3b 0d 07 8a 17 ef 31  |19,2,CY;0;.....1|
000013a0  39 2c 37 2c 33 3b 30 3b  31 39 2c 30 3b 30 3b 30  |9,7,3;0;19,0;0;0|
000013b0  3b 0d 07 94 14 f2 77 61  69 74 28 35 29 3a f2 67  |;.....wait(5):.g|
000013c0  72 69 64 3a e1 0d 07 a8  0e dd 20 f2 65 6e 64 67  |rid:...... .endg|
000013d0  61 6d 65 0d 07 b2 1e f2  62 6f 78 28 31 31 2c 32  |ame.....box(11,2|
000013e0  2c 31 33 2c 33 2c 30 2c  22 22 29 3a ef 32 36 2c  |,13,3,0,""):.26,|
000013f0  35 0d 07 bc 1e e6 30 2c  30 3a ec 34 38 30 2c 35  |5.....0,0:.480,5|
00001400  39 30 3a f1 22 47 41 4d  45 20 4f 56 45 52 22 0d  |90:."GAME OVER".|
00001410  07 c6 1e e6 30 2c 37 3a  ec 34 38 35 2c 35 38 35  |....0,7:.485,585|
00001420  3a f1 22 47 41 4d 45 20  4f 56 45 52 22 0d 07 d0  |:."GAME OVER"...|
00001430  0d ef 34 3a f2 61 6e 79  3a e1 0d 07 e4 0c dd 20  |..4:.any:...... |
00001440  f2 74 69 74 6c 65 0d 07  ee 1d ef 35 3a e6 30 2c  |.title.....5:.0,|
00001450  31 3a ec 35 35 30 2c 39  30 30 3a f1 22 44 55 43  |1:.550,900:."DUC|
00001460  4b 21 22 0d 07 f8 1d e6  30 2c 32 3a ec 35 35 32  |K!".....0,2:.552|
00001470  2c 38 39 38 3a f1 22 44  55 43 4b 21 22 3a ef 34  |,898:."DUCK!":.4|
00001480  0d 08 02 17 f2 62 6f 78  28 33 38 2c 35 2c 37 2c  |.....box(38,5,7,|
00001490  32 2c 31 2c 22 22 29 0d  08 0c 2d f1 27 22 59 6f  |2,1,"")...-.'"Yo|
000014a0  75 20 6d 75 73 74 20 6d  6f 76 65 20 74 68 65 20  |u must move the |
000014b0  64 75 63 6b 20 74 72 61  70 70 65 64 20 69 6e 73  |duck trapped ins|
000014c0  69 64 65 22 0d 08 16 2a  f1 22 61 20 67 72 69 64  |ide"...*."a grid|
000014d0  20 61 72 6f 75 6e 64 20  74 68 65 20 73 63 72 65  | around the scre|
000014e0  65 6e 20 63 6f 6c 6c 65  63 74 69 6e 67 22 0d 08  |en collecting"..|
000014f0  20 2b f1 22 66 69 73 68  65 73 20 77 68 69 6c 73  | +."fishes whils|
00001500  74 20 61 76 6f 69 64 69  6e 67 20 74 68 65 20 6d  |t avoiding the m|
00001510  6f 6e 73 74 65 72 73 2e  22 0d 08 2a 18 f2 62 6f  |onsters."..*..bo|
00001520  78 28 33 38 2c 35 2c 31  33 2c 31 2c 32 2c 22 22  |x(38,5,13,1,2,""|
00001530  29 0d 08 34 2d f1 27 22  41 74 20 74 68 65 20 20  |)..4-.'"At the  |
00001540  62 6f 74 74 6f 6d 20 6f  66 20 74 68 65 20 73 63  |bottom of the sc|
00001550  72 65 65 6e 20 74 68 65  72 65 20 69 73 22 0d 08  |reen there is"..|
00001560  3e 28 f1 22 61 20 74 69  6d 65 20 62 61 72 2e 20  |>(."a time bar. |
00001570  59 6f 75 20 6d 75 73 74  20 63 6f 6d 70 6c 65 74  |You must complet|
00001580  65 20 74 68 65 22 0d 08  48 2a f1 22 73 63 72 65  |e the"..H*."scre|
00001590  65 6e 20 62 65 66 6f 72  65 20 69 74 20 72 65 61  |en before it rea|
000015a0  63 68 65 73 20 74 68 65  20 65 6e 64 20 6f 72 22  |ches the end or"|
000015b0  0d 08 52 29 f1 22 79 6f  75 20 77 69 6c 6c 20 6c  |..R)."you will l|
000015c0  6f 73 65 20 6f 6e 65 20  6f 66 20 79 6f 75 72 20  |ose one of your |
000015d0  33 20 6c 69 76 65 73 2e  22 0d 08 5c 18 f2 62 6f  |3 lives."..\..bo|
000015e0  78 28 31 34 2c 36 2c 32  30 2c 32 2c 30 2c 22 22  |x(14,6,20,2,0,""|
000015f0  29 0d 08 66 23 f1 27 22  20 43 6f 6e 74 72 6f 6c  |)..f#.'" Control|
00001600  20 4b 65 79 73 22 27 22  20 20 5a 2e 2e 2e 2e 4c  | Keys"'"  Z....L|
00001610  45 46 54 22 0d 08 70 1f  f1 22 20 20 58 2e 2e 2e  |EFT"..p.."  X...|
00001620  2e 52 49 47 48 54 22 27  22 20 20 3a 2e 2e 2e 2e  |.RIGHT"'"  :....|
00001630  55 50 22 0d 08 7a 12 f1  22 20 20 2f 2e 2e 2e 2e  |UP"..z.."  /....|
00001640  44 4f 57 4e 22 0d 08 84  0c f2 61 6e 79 3a db 3a  |DOWN".....any:.:|
00001650  e1 0d 08 98 15 dd 20 a4  61 74 28 58 25 2c 59 25  |...... .at(X%,Y%|
00001660  29 3a ea 20 46 25 0d 08  a2 18 e7 20 59 25 3d 44  |):. F%..... Y%=D|
00001670  59 25 20 e7 20 58 25 3d  44 58 25 20 3d 31 0d 08  |Y% . X%=DX% =1..|
00001680  ac 18 e7 20 59 25 3d 46  59 25 20 e7 20 58 25 3d  |... Y%=FY% . X%=|
00001690  46 58 25 20 3d 32 0d 08  b6 13 e3 20 53 25 3d 31  |FX% =2..... S%=1|
000016a0  20 b8 20 73 6b 75 6c 6c  73 0d 08 c0 2c e7 20 59  | . skulls...,. Y|
000016b0  25 3d 53 59 25 28 53 25  29 20 e7 20 58 25 3d 53  |%=SY%(S%) . X%=S|
000016c0  58 25 28 53 25 29 20 53  25 3d 73 6b 75 6c 6c 73  |X%(S%) S%=skulls|
000016d0  3a 46 25 3d 33 0d 08 ca  09 ed 3a 3d 46 25 0d 08  |:F%=3.....:=F%..|
000016e0  de 1d dd 20 f2 62 6f 78  28 78 25 2c 79 25 2c 59  |... .box(x%,y%,Y|
000016f0  25 2c 42 25 2c 46 25 2c  74 24 29 0d 08 e8 1b ea  |%,B%,F%,t$).....|
00001700  20 58 25 2c 57 25 2c 48  25 3a 58 25 3d 28 33 39  | X%,W%,H%:X%=(39|
00001710  2d 78 25 29 2f 32 0d 08  f2 15 ef 32 38 58 25 59  |-x%)/2.....28X%Y|
00001720  25 2b 79 25 58 25 2b 78  25 59 25 0d 08 fc 13 fb  |%+y%X%+x%Y%.....|
00001730  20 31 32 38 2b 42 25 3a  db 3a fb 20 46 25 0d 09  | 128+B%:.:. F%..|
00001740  06 1b f1 8a 28 78 25 2d  a9 74 24 29 2f 32 2b 31  |....(x%-.t$)/2+1|
00001750  2c 79 25 2f 32 29 74 24  3b 0d 09 10 09 ef 33 30  |,y%/2)t$;.....30|
00001760  3a e1 0d 09 24 10 dd 20  f2 61 6e 79 3a 2a 46 58  |:...$.. .any:*FX|
00001770  31 35 0d 09 2e 25 f2 62  6f 78 28 31 34 2c 32 2c  |15...%.box(14,2,|
00001780  32 38 2c 31 2c 33 2c 22  50 72 65 73 73 20 61 6e  |28,1,3,"Press an|
00001790  79 20 6b 65 79 22 29 0d  09 38 09 e7 ac a5 3a e1  |y key")..8....:.|
000017a0  0d 09 4c 16 dd 20 f2 72  65 6c 6f 63 28 51 25 29  |..L.. .reloc(Q%)|
000017b0  3a 2a 54 41 50 45 0d 09  56 0d e7 20 90 3c 3d 51  |:*TAPE..V.. .<=Q|
000017c0  25 20 e1 0d 09 60 14 e3  20 49 25 3d 30 20 b8 20  |% ...`.. I%=0 . |
000017d0  b8 50 2d 90 20 88 34 0d  09 6a 12 49 25 21 26 45  |.P-. .4..j.I%!&E|
000017e0  30 30 3d 49 25 21 90 3a  ed 0d 09 74 1a 3f 26 31  |00=I%!.:...t.?&1|
000017f0  33 3d 3f 26 31 33 2d 28  90 2d 26 45 30 30 29 81  |3=?&13-(.-&E00).|
00001800  32 35 36 0d 09 7e 0c d0  3d 26 45 30 30 3a f9 0d  |256..~..=&E00:..|
00001810  ff                                                |.|
00001811
01_11_87/DUCK!.m0
01_11_87/DUCK!.m1
01_11_87/DUCK!.m2
01_11_87/DUCK!.m4
01_11_87/DUCK!.m5