T)\J?` !6D:\XzÃ}ýÁÃxBB<B<<|~|BB><||<<|B<BBx<<|BB<>B<BB~|<B<<~x>BB><@B<BB~BB@@@BbDH@DBBBbbB@BB|<<BR(p|(B@BRRB|||@~JH@B@BJJB@@D@BBBFD@BBBFFB@@B~<<BBB~<<B<~H0#  <@T?yKy\\\]d\Yz\zNdr^z^z^z\a‚"X![!PP!!W K SR PDUCKS  SET VARS  23627,100  23628,0 23561 \,200 2:2:0: /8,7;7;"" /9 ,7;7;" " 010 ,7;7;" STOP THE TAPE " 011 ,7;7;" " 012 ,7;7;""  150 d GR A f#A=07:B:""+A,B:A iD0,0,0,0,0,0,254,15 nGR B p#A=07:B:""+A,B:A sC0,0,0,0,0,1,1,195 x GR C z#A=07:B:""+A,B:A }K0,0,0,240,248,239,255,248 GR D #A=07:B:""+A,B:A G127,7,255,63?,15,7,0,0 GR E #A=07:B:""+A,B:A M255,255,255,255,255,255,0,0 GR F #A=07:B:""+A,B:A M248,248,248,240,224,192,0,0 GR G #A=07:B:""+A,B:A Q255,255,255,255,255,255,239,131 GR H #A=07:B:""+A,B:A O8,136,136,152,216,236,232,254 GR I #A=07:B:""+A,B:A I8,8,12 ,28,62>,62>,126~,127  &0:0:0:7: -1;"COPYRIGHT WIDGIT SOFTWARE 1983" $6,13 ;2;"DUCKS" O10 ,0;"ADDING AND SUBTRACTING ARE BOTH":"USED IN THIS PROGRAMME" h13 ,0;"ALL THE SUMS ARE CHOSEN BY THE":"USER.":"FOLLOW EACH ENTRY BY ";1;"ENTER" /21,0;"PRESS ANY KEY TO CONTINUE" =""213  1"A NUMBER OF DUCKS ARE SWIMMING":"IN A RIVER."  "PRESS" (1;"P FOR + (PLUS) TO ADD DUCKS" 2"OR":1;"M FOR - (MINUS) TO REMOVE DUCKS" !"FOLLOWED BY ";1;"ENTER"  ""TYPE IN THE NUMBER TO BE MOVED" !"FOLLOWED BY ";1;"ENTER"  #"AND THEN THE TOTAL IN THE RIVER" !"FOLLOWED BY ";1;"ENTER" :: "THIS TOTAL BECOMES THE FIRST" "NUMBER IN THE NEXT SUM" $20,0;"PRESS 0 TO END"  "PRESS ANY OTHER KEY TO START" =""270 ="0"0:  303/ ,X=5:Y=10 -!X=X-1:X>05 /&1:1:1:7: 0D=4:C=4 1NN=02:N,0;5;" ":N 3>3,0;5;" " 610,6;0;7;"" 711,6;0;7;"" 812,6;0;7;"" 9?3,8;0;"":3,13 ;0;"" DH16,0;1;4;"" EJN=1721:N,0;C;" ":N JN=17192 OM=1283 T&N,M;C;"":N+1,M;C;"" YM:N  P=1 R=0:B=20  Q=1  Q(20) .N=1192:Q(N)=17:N .N=2202:Q(N)=19:N Z=1+(*20)  3100 R=R+Z:B=B-Z  1000  2000  3150N  21004 ((G=100d)(B-Z<0)450 &(G=0)(R-Z<0)450  3200 'G=100dR=R+Z:B=B-Z:1000 %G=0R=R-Z:B=B+Z:1200 &.1}L,35#:.4L,30 31,13 ;0;7;1;" "  2100 4 ZR500  3250  3300 GOSUB PRINT 1 & 435 !MOVE Z DUCKS FROM BANK TO RIVER  J=1Z P>20P=1 0(P/2)=P/2Y=19:1060$  Y=17 $*X=3*((P-1)/2)+1 . 1400x 8FIND NEW LOCATION BH=1+(*5) L1(P/2)=P/2Y=9 +H:1120` V Y=3+H `Q(P)=Y j 1600@ t P=P+1 ~J  MOVE Z DUCKS FROM RIVER  J=1Z Q>20Q=1 *X=3*((Q-1)/2)+1 Y=Q(Q)  1500 0(Q/2)=Q/2Y=19:1300  Y=17  1700 Q(Q)=Y ( Q=Q+1 2J < xDELETE FROM BANK Y,X;C;"" Y+1,X;C;""  DELETE FROM RIVER Y,X;1;"" Y+1,X;1;"" 6 @WRITE TO RIVER JY,X;1;"" TY+1,X;1;"" ^1N=40(38.8333-.2~L:.01z# =,N:N  WRITE TO BANK Y,X;C;"" Y+1,X;C;"" .N=0-3-.5:.01z# =,N:N  + - &.1}L,30:.3,30 c23+3;" ";1;" P for + ";0;" OR ";1;" M for - ";0;" ";Y$ 1(Y$="P")(Y$="p")(Y$="M")(Y$="m")2040  2010 *Y$="P"(Y$="p")G=100d:2060   G=0   4GOSUB GET KEY FOR - 9&.1}L,40(:.3,40( >Y$ HY$=""2110> RW=1̱Y$:X$=Y$(WW) \+(X$<480)(X$>579)2110> fW pZ=Y$ z N=1Z IG=100d1300:1400x:1200:1600@:3050 $1200:1500:1700 N  >Z<10 1,8;7;0;Z:31200 &&1,7;7;0;Z 0 N?G=01,9 ;7;0;"-":3170b X5G=100d1,9 ;7;0;"+" b ?Z<10 1,11 ;7;0;Z:3210 '1,10 ;7;0;Z )1,12 ;7;0;"="  LR<10 1,13 ;0;7;0;" ";R:3270 01,13 ;0;7;0;R  30 3900< 721,7;4;0;"PRESS 0 TO STOP" 150 ="0"200 .21,7;4;" " -1,7;7;0;" " N=12 7-1 @R<10 1,N;7;0;" ";R;" ":3340 $1,N;7;0;R;" " 3:N  < T=5 .2~L,T:.1}L,T:.1}L,T:.2~L,T:.2~L,T+4:.1}L,T+7:.1}L,T+7:.2~L,T+4:.2~L,T  3 .2~L,T+2:.1}L,T+2:.1}L,T+2:.2~L,T+2:.2~L,T:.2~L,T-1:.2~L,T-3:.2~L,T-5  3 .1}L,T:.1}L,T:.2~L,T:.2~L,T:.2~L,T+4:.1}L,T+7:.1}L,T+7:.2~L,T+4:.2~L,T  3 .2~L,T+2:.2~L,T+2:.2~L,T-5:.1}L,T-3:.1}L,T-1:.2~L,T:.2~L,T:.4L,T  x ybdc332333~^Op r qz hgdRtg    Y9X9"" Pd ducks t  P PMM_z23^z2z^z^z3Wd^z3I&{Rv>? >>~BB<DHpHDB@~BfZBBBBbRJFB