R==NNNNGHICONSOCOLUMROMARGICURSOHEAUDCTHXCLSHIPEFFFOEPLYRDIESPRITMELMISSILNOISPMSNALDLISSTATARGEPMBASDMACTHPOSNWIDTGRACTPCOLPRIONMIEGRASCORSCORSPIMFLFNATASDILNLNYMYMSTSTPSPSCLCVMSSWMOSTOFOFNUSPEE @@@@@ !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHd##*****************************i##* 'SLIME BLASTERS' *n##* By Stephen Lakey *s##* ------------------------- *x##* LISTING 6 *}##* ------------------------- *##* NEW ATARI USER - APR 1993 *##*****************************ś6-6-@#6-%+6-%76-AC6-AO6-B2y[6-@g6-@s6-@6-AR6-B%6-B7hAudio Control4 A4(>:A%,Initialising...FF;A,;@,9@,9@,9@,9,9,I #Bp-@s"'%+ IHexadecimal To Memory Mover66.hh?h>>`6Memory Clearence RoutineN6-B9 6-!6-BA-6-A7 B8NStore Sprite RoutineO6-B26-!6-BB-6-Av7 B8OStore Missile RoutineG6-B&6-!6-BB0-6-Au7 B8GSound Routine""(>:A%,Initialising...+ŠР,66-AD#B'6-$AV-6-668,-1>""66-%68,-) A>Set Sprite Address6"6AP;( 6-% A(Store Data]ŠĠԠ^66-AC$AV!#B'6--6-668,-c>""66-%68,-) AU>Set Effect Addressh"6Am( 6-% AU(Store DataŠŠ66-AR$AV!#BP'6--6-668,-=""66-%68,-) A=Set Frame Address"6A( 6-% A(Store DataԠРěw +AA1A @CAA2UAw6-F:A`,%F:Aa,$AVK%@@p+%@@KLine 0 To GRAPHICS 1(ANTIC 6)" -"(PLAYER 1 PLAYER 20 0Set Left Margin And Cursor Off11((-@ A-@-6-@%P:H:,$@8,3:(.> A( 11((ԠԠśR6-A#6-?:C:,<A6,RClear A Page(256 Bytes) At Page 6(*256)=1536H #A2)-AqAq%@-"37 HMovement Table110,1,1,1,0,255,255,255,255,255,0,1,1,1,0,255<F:,"@ A,6-%@P<Check Option?;F:,"@!A,6-&@P;Check Select<-@@<(Ԡݺ D$F:,@*T:,*T:,A4DCheck START And Both Triggers:-@@:( !!ԠҠŠӛ.6-BBy.You Store PMG Base Page HereM6-AYMDirect Memory Access Control(Enable PMG And Alters Display)I6-B2HIStore Player/Missile Horizontal Location In 53248-53255H6-B2V6-B2wHPlayer Width:Graphics Control(Enables PMG)K6-A6-A#KColour Registers And Priority Select Registerg6-BB6-B2agNon-Maskable Interupt Enable And Player/Missile Data Register 53261-53265V3-$AV%Ah$AV%AAVA6-?:C:,<,E VClear PMG Area' @b'System On@@$@%@-%@R@Set Ship Colours[@%@[Missiles Colour In PEEK(711)+Srites Have Priority Over Background> 6-6--@ '( 3-@2>( F -268,-" FInitialise Sound And Explode Flag  6-Sprite(PLAYER)=0! 6-8,Image Address"76-@6-@7Frame Length And Quantity#0 6-6-@0Animation Type And Speed$E6-A(%@EDirection=Use Joystick+No Vertical Movement%Y6-@`6-A'6-@ 36-A YMovement Box(LEFT:RIGHT:TOP:BOTTOM)&: 6-6-:Horizontal & Vertical Step(Alters Speed)'/6-A 6-A/Initial Positions)76-A(6-7Collision Switch(OFF) And Value*. B.Set Bottom Ship(Game Player 1)R* 6-6-8,*Next Sprite And ImageWA 6-%6-@XASet Animation Type + N2(Use Joystick 2)\ BSet Top ShipԠРӛ7 6-6-8,7Access Missile Image For Missile 096-@6-9Set Frame Length And Switch To Onh6-A(%@%hSet 128(Stop Wrap Around) 16(SpeedX2) 1(Access Starting position Indirectly)8 6-6-@8Collision Switch And Check Value@ 6-6-A4@Horizontal And Vertical Movement Lengthsp6-Ad6-AhpInitial Position Fetched Indirectly From These Addresses Corresponding To Player 166-A(6128(Wait For Trigger 1) + 0(Move Up)d 6-dOne Of The Four Addresses At GO Will Be Cleared On A Collision Causing A Sprite To SToP.> 6-6-AS>No Horizontal Offset,A Vertical Offset( B(Bottom Ship Left Missile: 6-6-8,:Missile 2 And Next Data Image Address56-@ B5Bottom Ship Right Missile 6-6-8@,6-Ae6-Ai 6-6-66-@d%@664(TRIGGER 2) + 4(Move Down)% B%Top Ship Left Missile 6-6-8@,26-@ B2Top Ship Right MissileԠРě: 6-6-)6-?:<<<<8,,:Top Ship Laser1 6-6-?:<<<<8,,1Bottom Ship Laser- 6-6-?:<<<<8,,-Slime Explode٠Л APSpace Slime AGExplode Slime?8,)8,AL5 ) AU! AV+ A5 A0 AŠқ"-@@"(Ҡ ( A ((ӡӠԩ2F:,@A $2Wait For START KeyŠǛ&6-%@-@ &(  AF!6-%@-@2!( 68,-Set Explode Flag$[ŠŠΛ\! -!Check Slime Sprites^&8,AGP&Explode Wanted?`   $&6-88,,&Access Correct Frame, 8,"8,,Turn On Sound Effect?6-@V6-A?Minimum Vertical View Coordinates/6-A(6-/Collision Detection OffE6-@6-@EData Addesss,Frame Length,No. Of FramesC 6-6-6-6-!6-CRoutine Will Just Plot Not Move=6-F:Ad%,%6-F:Ah%,=Use current Positions# 8,!%#Double Width%@Turn White BPlot Frame(68,-8,%(8, @AGB-6-?:C:,<$AV%A$%+$AV,,BClear Sprite Strip 8,Sound Effect Off8 %68,- AG8Clear Explode IndicatorԠŠś$ -$Slime Is Sprites 2 & 3; 8,"*+F:%,")F:%,",* AE;Player 1 ScoreA&8,"*+F:%,")F:%,"@,0 AFAPlayer 2 Score48,"*F:%,"*F:%,"( AQ4New Slime   $נŠś?6-@V6-A?Minimum Vertical View Coordinates/6-A(6-/Collision Detection OffN 6-8,6-@$6-@NData Addesss,Frame Length,No. Of Frames6 6-6-@6Animation Type,Animation Speed+6-@%P:H:,$@,+DirectionGGAaAaPAbAbPAcAcPAdAdP B-6-?:C:,<$AV%A$%+$AV,,BClear Sprite Strip$%A`%+$,$Set Colour# 68,-%#Normal Width BSet Sprite${ΠƠŠӛ| Turn O.S OffAAHA8'AIAATurn Off Sprite RoutineBAFA&'AGABTurn Off Missile RoutineA8Sound Off/ -2 /Clear Residue Sound@dO.S On$ҠǠ͛ PMG OffL-@% LClear Player and Missile Stripes From ScreenK-@% KClear Sprite & Missile Horizontal Positions"@4"Standard Display$ŠԠA6-A6-AHorizontal And Vertical Movement Lengths.Y6-A+6-@p%P:H:,$A,YHorizontal And Vertical Starting Positions. 6-6-STEP Values"6-@"Actual Direction$Ԡ6-A6- +6-@@+6-@p%P:H:,$A, 6-6-6-@$7Ԡ86-A6-AB6-@D6-@`G 6-6-L6-@e$iԠj6-Ah6-Ao6-A6-@`t 6-6-y6-@$Ԡ6-A6-A6-@D6-A 6-6-6-@$Ԡ6-Ah6-A6-A6-A 6-6-6-@$Ԡ 6-6-A+6-@H%P:H:,$AB,+6-@@  6-6-6-@-$1Ԡ2 6-6-A7+6-@H%P:H:,$AB,+6-A< 6-6-A 6-_$gB!!̠Ϡ٠қhBff104,104,133,204,104,133,203,104,104,133,205,104,133,207,104,133,206,160,0,132,209,177,206,56,233jBYY48,201,16,144,2,233,7,24,10,10,10,10,133,208,200,177,206,56,233,48,201,16,144,2,233lB``7,24,101,208,133,208,152,72,164,209,165,208,145,203,230,209,104,168,200,196,205,208,204,96N̠Šś N526-?:<<<<<<<<<<<<<<<<<<<,5$N̠ŠśN;86-?:<<$AV<<<<<<<<<<<<<<<<,;$\ŠŠś\/#/(>:A%,Reading Block At Line \W"6-?:<^JJC806DDE406F0A4DEE40688D0F2F09CBCD406BDD006DDE406F091FEE40688D0F2F089^Šԛ^jj68688D0106688D0006688D0306688D02066868AA68689D040668689D080668689D0C0668689D100668689D14068A9D180618^jj0AA868683006180A0A7D18069D180668689D1C0668689D20069D240668689D28069D2C066899310699390668993006993806^jj6899410699490668994006994806689951066899500668689D5806688D5D06688D5C06688D5F06688D5E0618AD0106AAAD00^jj0669A4A89001E818A906205CE460A203BD0406D006CA10F84C5FE4C903D05C8A180AA8BD24069D2006BD2C069D2806B93806^jj993006B93906993106B94806994006B94906994106BD08062901F028B9300685CBB9310685CC84CDA000B1CBA4CD993006B9^jj400685CBB9410685CCA000B1CBA4CD994006A9019D04061890029095BC180684D13053B900D03D1C06F04B48A003684884CD^jj4AC6CD10FB9034A5D1D0098A1869019960069022AD5D06F00B85CCAD5C0685CBA90091CBAD5F06F00D85CCAD5E0685CB8A18^jj690191CBA9049D04068810BE68A9008D1ED0189002909FBD0406C902F022C904F023BD140629C0F017A000A9803D1406D001^jjC818B98402F007A9039D0406D0D5A9029D04068A180AA8AD0306690385CCB9300685CDB9400685CFA5CF187D100685CBA5CD^jj187D0C069D04D08A180AA8B9500685D0B9510685D1BC5806889848A5CB48A5CC48189002D0B4B1D0D008B1CB3D6406189002^jj11CB91CB8810EDBD0806297E4A85CB48BD1406290785CC18BD0406C904D008A9009D20069D2806BD2806F01FA4CCA5CF1879^jj8F0685CFD00CBD08061007A9009D2806F0E3DE2806C6CB10DC6885CB189002D09FBD2006F01FA4CCA5CD1879870685CDD00C^jjBD08061007A9009D2006F0E3DE2006C6CB10DC8A180AA8A5CF994006A5CD993006BD2806D01EBD2006D019A9039D04066885^::CC6885CB68A8BD640631CB91CB8810F6300368686818A901D0A1^Ġқ^jj686885CC6885CB6868A071C891CB6868AA0A6941A8C86891CB886891CB8A6949A8A90191CB18A5CB693A8D2802A5CC69008D^jj2902A9018D1A02601890140000000000000000000000000000000000000000A200AD280285CBAD290285CC188A6903A8B1CB^jjF01138E90191CB18E8E004D0E2A9328D1A02608A180A6907A8B1CB85CDC8B1CB85CEF0E3188A690FA8B1CB85CF189002D0D5^jjA0A3A90191CB48A000B1CDC902D03768A90448A5CFC901D004A90485CFA5CB48A5CC48C8B1CD85CBC8B1CD85CCC8B1CD85D1^jjA000B1CB85D06885CC6885CBA0A3A5D191CBA5D0C901F00668C5CFF0864868A4CFB1CDD00D8A18690FA8A90191CBD09CD09A^jjC901D017C8B1CD85CF84D08A186913A8A5CF91CBA4D0189054D0E348A90085CF68C902F008C903D02DA90185CF9848E6CCA0^jj0FA5CF91CBC6CC68A8C8B1CD85CF84D08A186913A8B1CB180AA8A5CF9900D2A4D0189017C904D0BFC8B1CD85CF84D08A1869^8803A8A5CF91CB18A4D0C884D08A18690FA8A5D091CBA901D09C#w͠РҠě$wdd2,132,2,0,1,0,2,70,3,170,2,65,2,60,3,168,2,60,2,55,3,166,2,50,2,45,3,164,2,40,3,162,3,160,0,-2&wРРҠě)wee2,133,2,0,1,1,2,100,3,170,2,95,2,90,3,168,2,85,2,80,3,166,2,75,2,70,3,164,2,65,3,162,3,160,0,-2.wŠŠě3wmm0,1,2,2,200,3,140,4,10,2,180,3,138,4,10,2,160,3,136,4,8,2,140,3,132,4,4,2,115,3,130,4,2,3,128,4,35,0,-1xŠŠśx//0,0,0,0,104,238,255,127,254,63,51,0,0,0,0#x..0,0,0,0,68,92,254,127,254,126,51,0,0,0,0(x110,0,0,0,4,124,255,254,127,239,45,0,0,0,0,-2-xŠΠś2x,,0,0,0,0,40,60,28,56,28,52,0,0,0,0,0,-27x..0,0,68,102,38,0,0,0,0,100,38,98,0,0,0,-2