;<ä*@P¤ÃÁMOVÅATTRACÔLINÅØÊDOG¤ÂTEMÐÖINÃMOVE¤ÉF¤BARK¤STARÔML¤PÍCÈ€€ € €€€%%###############################›%%# DOGGIES #›%%# by Stan Ockers #›%%# Eugene A.C.E. Newsletter #›%%# January 1982 #›%%# Modified by Garry Francis #›%%# Reprinted by A.C.E.(N.S.W.) #›%%# February 1983 #› %%###############################› A *** Main loop ***›p@w;(@>:A%, doggiesF(@p(@ number of moves >:@,=6€.1110222%-@@/ A3‚= A(C A A +B2HA 76ƒ-C6„-2,T:,"" A, @P<FF:B2y,"@*A <B2HF @ F[%6-P:@$H:,,%@/ A3‚[ A%A$P:@$H:,,P @P%„c*** Which doggie? ***›d)6‚-A:€7<,,‚"@)6…-An‚"@6…-Ax6†-@$&@$Ç*** Draw doggie ***›È‡-@@ ‡Ò5#… "ˆ-†@5(@ˆ7@<@,ÜZ-†@-(@ˆ7@<@,9-†@W(@ˆ7@<@,Z$+##*** Process player's move ***›,[@w!6‰-C6-P:F:A ,'@$&?P,O @[6-@6!@6-@@%6‰-‰%@%A:€7‰<‰,,A J ‰" $T4 ‰&@)!‰%@' A1 A4$^+ 6Š--@@+"ŠAh! A!‚"Ar  Š6…-…%@| !Š6…-…%@† A€  6-Š A! A+ A96…-…%@E6‹-@Q6Œ-[ A i6…-…%@v6Œ-6@€ A šZ6…-…%@ A '-†@7(@ G6€7‰<‰,.€7<,T6€7<,.0Z6-‰¤w A6…-…%@'6‹-@36Œ-@= A K6…-…&@U A c6…-…&@m Aw A®b6ƒ-ƒ%@6.=:ƒ,,-@@=Ž-@B:,^(@>:@:7Ž<Ž,,&@2,b Ž¸ €0 $ÂF-@@!ƒ"@<(@ çòåáô óôõææF A€Ì4ƒ @ *(@ çïïä çïéîç4 A€Ö (@ãïõìä âå âåôôåòàG-@8(@press óôáòô to beginD6„-@G$ó*** Bark ***›ôƒ6…-…%@ A/Ž-@@[2@:7Ž,,@@&Ž$@2@@:7Ž,,@Ž$@ƒ Žþb6…-…&@ A=2_2@b$W*** Wag tail ***›Xt6…-…%@%Ž-@@36…-…%@= AK6…-…&@U AY Žg6…-…&@q At$»*** Hop ***›¼N6…-…%@6‹-@)6Œ-3 A A6…-…&@K AN$*** Shake head ***› GŽ-@@%6…-…%@/ A=6…-…&@G A*:6…-…%@ A)6…-…&@3 A7 Ž:$ƒ*** Footsteps sound ***›„uŽ-@@6‹-‹%Œ-6…-…%@7 AS2@@‹u2Ž`6…-…&@ A72@@‹Y2] Ž`$ç*** Shapes of doggies ***›è '()*%&›é '()\%&›ê '([*%&›ë '([*%-›ì '()\+&›í !"#$%&›î ./:;%&›ï WY<=%&›ð >?Z^+&›ñ >?]_%-›ò @HJK  ›ó @HJK  ›ô XQ    ›õ XQ    ›L §¨©ª¥¦›M §¨©Ü¥¦›N §¨Ûª¥¦›O §¨Ûª¥­›P §¨©Ü«¦›Q ¡¢£¤¥¦›R ®¯º»¥¦›S ×Ù¼½¥¦›T ¾¿ÚÞ«¦›U ¾¿Ýߥ­›V ÀÈÊË  ›W ÀÈÊË  ›X ØÑ    ›Y ØÑ    ›Ï*** Initialisation ***›ÐŠ +@!$6‘-F:A,&@8A‘&@B+TAfA @xAR@Š@‚@Ù*** Instructions ***›ÚN-@@!(DOGGIES$(N(%There are 3 white doggies on the leftäW.(&side of the screen and 3 brown doggiesW($on the right side. You must reverseîg.(&their position by moving one doggie at:(a time.=(g(%Use the joystick in Port 1 to put theøT)(!bone under the doggie you wish toT(&move, then press the fire button. TheU.(&doggie will move into the empty space,U("but only if he is next to it or no Y"(more than one doggie away.%(N($It can be done in 15 moves! Can youY(do it?z-@@"(( ÉÎÉÔÉÁÌÉÓÉÎÇ l;@,’;@2,ˆ;@,;@,;@,€;@,z6.2220111*** Data for barking ***› 5 #A !Ž-@@%"‚167Ž,.>:‚,5 Ž*97,109,97,9,5,5›3!!*** VBI service routine ***›4%Ž-A6Ax"‚!Ž‚% Ž>kk104,160,10,162,6,169,7,76,92,228,173,0,211,72,41,8,208,6,230,209,104,24,144,7,104,41,4,208,11,198,209›H..169,0,133,77,165,209,141,0,208,76,98,228›Q*** P-M Graphics ***›ReBBy‘!B2V@/6“-AV$‘AB2HSA eA@0\)Ž-“%A“%A"‚%Ž‚) Žf195,255,195›o *** Move character set ***›pOŽ-@@2"‚'6’7Ž,.>:‚,+ Ž96”-AV$‘O6†-?:C:’,<BsD<”,z??104,104,133,204,104,133,203,104,133,206,104,133,205,162,2›„FF160,0,177,203,145,205,136,208,249,230,204,230,206,202,208,240,96›!!*** Redefine characters ***›Ž"††"6@A%`˜/Ž-”%†”%†%@"‚!Ž‚% Ž/ A!¢""8,7,15,31,61,109,111,110,111›¬((16,224,240,248,188,182,246,118,246›¶24,12,12,7,3,3,7,15,31›À&&32,48,48,224,192,192,224,240,248›Ê""40,31,31,31,31,31,24,248,248›Ô%%48,248,248,248,248,248,24,31,31›Þ""56,0,7,31,63,125,237,239,206›è&&64,0,224,248,252,190,183,247,115›ò72,15,12,15,7,3,7,15,31›ü''80,240,48,240,224,192,224,240,248› !!88,31,31,31,31,27,248,248,0› %%104,248,248,248,248,216,31,31,0› 112,0,7,15,31,63,63,55,55›$ &&120,0,128,192,192,64,127,255,255›. 208,55,7,7,3,3,7,15,31›8 ))216,254,224,254,252,192,224,240,248›B 224,127,7,127,63,3,7,15,31›L ))232,236,224,224,192,192,224,240,248›V ##240,0,7,31,63,127,239,239,207›` ''248,0,224,248,252,254,247,247,243›j 256,1,7,15,11,3,1,3,7›t ))320,128,224,240,208,192,128,192,224›~ 336,7,7,7,7,7,4,28,0›ˆ %%344,224,224,224,224,224,32,56,0›’ ((392,192,192,128,192,192,192,192,96›œ 440,0,1,3,3,2,254,255,255›¦ 448,3,3,1,3,3,3,3,6›° ''456,0,224,240,248,252,252,236,236›º 464,15,15,15,7,3,7,15,31›Ä !!472,15,12,15,71,67,71,47,31›Î ((480,240,48,240,226,194,226,244,248›Ø !!488,15,15,15,71,67,71,47,31›â ))496,240,240,240,226,194,226,244,248›ì ))504,240,240,240,224,192,224,240,248›ö -1›ÿ *** Return to user ***› B-@ @"0(Press  ÓÔÁÒÔ  to beginBB2y@ WŽ-@@ ,F:B2y,@0 ŽMAU@&F:AU,W A%p d'+@"@@d4B7tA@AV‘RAY@FdB2w@ ]A@'A A„9A@ KAA6Z6‚-?:A6,]$€D2:DOGGIES.BAS