()¹ª!¿!DOG¤P¤F¤ZZ¤PI¤ÉÁPÍØÙÃMOVÅÂSAÖLINÅÊSTARÔÚ  4@@Bxˆ@ @ @ A @B™6AHcc***************** ** DOGGIES ** ** STAN OCKERS **›==** 11/81 ** *****************›qqCOURTESY OF ATARI COMPUTER ENTUSIASTS OF EUGENE OREGON 3662 VINE MAPLE DR. EUGENE, OR. 97405›??OBTAINED THROUGH 'ARMUDIC' BBS CALL (202) 276-8342› ÒÅÑÕÉÒÅÓ ÏÎÅ ÊÏÙÓÔÉÃË › all remarks may be deleted› <<€;@,;@,‚;@,ƒ;@2,„;@, ** PITCH CONTOURF.BARK **› +…-@@"†'6„7…,.>:†,+ … 97,109,97,9,5,5›** FILL MOVE ROUTINE **›+…-@@2"†'6ƒ7…,.>:†,+ … EE104,104,133,204,104,133,203,104,133,206,104,133,205,162,4,160,0›!@@177,203,145,205,136,208,249,230,204,230,206,202,208,240,96›&}#@@K:-+@?-@@Z(@ INSTRUCTIONS?g)@†s†"@‰} A ' ** CHANGE CHARACTER SET **›( B ,* +@*AVF:A,%@2** PLAYER MISSILEGR.**›<Ž6†-F:A,&@&BBy†46‡-AV$†FAY@FXB2w@d6ˆ-A pB2Hˆ|A ˆŽB2V@FS #@€%…-‡%A‡%A@1…5 …GAAS6‰-@K-…-‡%A%‰‡%A%‰#"†)…†- …P195,255,195›U** PAGE 6 VBI ROUTINE **›Z> #@–!…-A6Ap%"†+…†/ …>6†-?:A6,`ii104,160,10,162,6,169,7,76,92,228,173,0,211,72,41,8,208,2,230,209,104,41,4,208,2,198,209,165,209,141›b0,208,76,98,228›d** DRAW INITIAL DOGS **›i$$** FILLPOS.& FINISH STRINGS **›j+…-@@"†'67…,.>:†,+ …k+…-@@"†'6‚7…,.>:†,+ …l!!1,1,1,0,2,2,2,2,2,2,0,1,1,1›n1Š-@@! A`-†"1 Šx A Š–** INITIALIZE MOVE **› 36‹-!-@@3(@MOVEª** CKF.COMPLETE **›´= 4‚-@@3(@ çïïä çïéîç= APº** CK TRIGGER **›¼ T:,"@AP¾!!** CK CHOICE SKIPIFBLANK **›È! A!†"APÒ&&**IFILLEGAL, SHAKE HEAD, SKIP **›Ü1Š Œ&@)Š!Œ%@' A1 APæ** BARK ANDHOP **›ð A Aú ** ALL DOGS FACE CHOICE **›; 6-ŠŠ-@@' A+ Š16Š-; A`&&** BARK, HOP & TURN BACKWARDS **›/ A A%6Ž-Ž%@/ A`** INTO THE SUNSET **›"%6Ž-Ž%@ A% A,%6Ž-Ž%@ A% A@""** SWITCH CHOICE ANDBLANK **›Jblank dog at Choice›To6ˆ-+Š&@,$@'-ˆ@7(@ C-ˆ@S(@ _-ˆ@o(@ h&&** Switch pos. in pos. string **›r-67Œ<Œ,.7Š<Š,'67Š<Š,.>:,-6Š-Œ|##** PUT DOG WHERE BLANK WAS **›~/ A`6Ž-Ž%@% A/ A€%6Ž-Ž&@ A% A†! A` A! A** UPDATE MOVE **›š06‹-‹%@#-@@0(@‹¸""** MAKE A RANDOM DOG MOVE **›Â5 A5 A%A$P:H:,$@,Ì** LOOP BACK **›ÖD@w'B2y@DF:B2y,"@@Dà A€„** DOG #1 POSES **›…'()*%& :R.for. no tail›†'()\%& :R.for. tail right›‡'([*%& :R.for. tail left›ˆ'([*%- :R.for. rt. leg up›‰'()\+& :R.for. lt. leg up›Š!"#$%& :R.bark no tail›‹./:;%& :R.face rt.›ŒXY<=%& :R.face lt.›>@Z^+& :R.bk. lt. leg up›Ž>@]_%- :R.bk. rt. leg up›PQRS :R.bk. med ht.›TU :R.bk. small ht.›¶--** DOG #2 POSES (all are inv. char.) **›·§¨©ª¥¦ :R.for. no tail›¸§¨©Ü¥¦ :R.for. tail right›¹§¨Ûª¥¦ :R.for. tail left›º§¨Ûª¥­ :R.for. rt. leg up›»§¨©Ü«¦ :R.for. lt. leg up›¼¡¢£¤¥¦ :R.bark no tail›½®¯º»¥¦ :R.face rt.›¾ØÙ¼½¥¦ :R.face lt.›¿¾ÀÚÞ«¦ :R.bk. lt. leg up›À¾ÀÝߥ­ :R.bk. rt. leg up›ÁÐÑÒÓ :R.bk. med ht.›ÂÔÕ :R.bk. small ht.›è**?DOG SUBROUTINE **›ò #Ž "€ü‚ -ˆ‰'(@€7@<@,5-ˆ‰%@S(@€7@<@,a-ˆ‰%@(@€7@<@,‚$** SET UPF.CHOICE C **›$6†-@:7Š,,.†"@6Ž-A 8†"@6Ž-A QB*6ˆ-+Š&@,$@'6‰-@*$L** SHAKE HEAD NO **›V†"$tQ…-@@! A/6Ž-Ž%@9 AG6Ž-Ž&@Q Ay36Ž-Ž%@ A)6Ž-Ž&@3 A~  … $¦(-@@ % A($°** DET. CHOICE & BLANK **›º?'6Š-P:+F:A ,'@$,&?e,3Š @?6Š-@ÄŠ!@6Š-@Î6Œ-Ø+6Œ-Œ%@+@:7Œ,,!A@â A`$** CHOOSE A RANDOM DOG **›2%6Š-P:H:,$@%@,/ A`2$x** BARK CHOICE **›‚†"$ J A6Ž-Ž%@% A/ A=6Ž-Ž&@G AJ$Ü** WAG TAIL **›æ†"$66Ž-Ž%@ A`)6Ž-Ž&@3 A6$N…-@@%6Ž-Ž%@/ A=6Ž-Ž&@G AK …N$6(-@@ % A($@** HOP **›J†"$T66Ž-Ž%@ A`)6Ž-Ž&@3 A6$|Å…-@@92@@@[2@i6Ž-Ž%@s A6Ž-Ž&@£2Å2@@@@† A …$¤** TURN TO FACE CHOICE **›® Š" $¸ A`†"$†"@*Š 6Ž-A ̆"@*Š 6Ž-A WÖ†"@*Š!6Ž-A à†"@*Š!6Ž-A Xê A$** BARKSO.SUBR. **›C…-@@C2@:„7…,,@@&…$@''2@@:„7…,,@…$@&N …)2K2@N$l** FOOTSTEPSSO.**›vs…-@@92@@@[2@o-@@s €f%2G2@@@@[-@@_ c …f$Ð** INSTRUCTIONS **›Úc +AR@1-@@>(DOGGIES!P-@@c(BY STAN OCKERSäZ( (2($Switch the TAN doggies with the BLUEZ(#doggies, by swapping one at a time.îU(U(JPlace the bone under a dog, and hold trigger to move dog to a blank spot.øT(T(IA dog moves to a blank spot only if he's next to one, or one jump away.U(.(#The switch can be made in 15 moves.U("(See how many moves it takes YOU.) P( (,( PRESS ÓÔÁÒÔ KEY TO BEGIN,P( OR TO RESTART AT ANY POINT.B2y@  F:B2y,@A €*$œ| ** CHANGE CHARACTER SET **›¦|77** SEE ARTICLE IN OCT. '81 SOFTSIDE BY A. ZETT **›}q AF:A,&@*+K6-+F:A,%@,$AV_AV'AVqAR@ }d-@@!(Hold On$(?( A Doggone MinuteQ-@@d( Éîéôéáìéúéîç }#6†-?:C:ƒ,<BsD<,##B!}"ˆˆ"6@#$(}3‰-@"‘%ˆ%‰%‘) ‰3 B 0d}""8,7,15,31,61,109,111,110,111›e}((16,224,240,248,188,182,246,118,246›f}24,12,12,7,3,3,7,15,31›g}&&32,48,48,224,192,192,224,240,248›h}""40,31,31,31,31,31,24,248,248›i}%%48,248,248,248,248,248,24,31,31›j}""56,0,7,31,63,125,237,239,206›k}&&64,0,224,248,252,190,183,247,115›l}72,15,12,15,7,3,7,15,31›m}''80,240,48,240,224,192,224,240,248›n}!!88,31,31,31,31,27,248,248,0›o}%%104,248,248,248,248,216,31,31,0›p}112,0,7,15,31,63,63,55,55›q}&&120,0,128,192,192,64,127,255,255›r}208,55,7,7,3,3,7,15,31›s}))216,254,224,254,252,192,224,240,248›t} 224,127,7,127,63,3,7,15,31›u}))232,236,224,224,192,192,224,240,248›v}##240,0,7,31,63,127,239,239,207›w}''256,0,224,248,252,254,247,247,243›x}384,1,7,15,11,3,1,3,7›y}))392,128,224,240,208,192,128,192,224›z}400,7,7,7,7,7,4,28,0›{}%%408,224,224,224,224,224,32,56,0›|}416,3,3,1,3,3,3,3,6›}}((424,192,192,128,192,192,192,192,96›~}448,0,1,3,3,2,254,255,255›}''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›€ D:DOGGIES.BAS