evP0P1P2P3P0HLDP1HLDERASEPAINLESPMBASKIXPOYPOSTKLCPLYRSKEXPLODWOBBLSPEEQUICLOOSTRSPATTRACPLYTAGSMILEP2HLDP3HLDREMKSIZEPHPOSPP0PP0PHITCLHTCL  @!"#$%&'!!***************************!!* A SIMPLE GAME OF TAG *!!* DEMONSTRATING WAYS TO *!!* COMMUNICATE WITH THE *!!* PAINLES$ PLAYER MOVER *!!* by CHET WALTERS 8/84 * !!*************************** Z +@A1AR@4(F( INITIALIZINGP AZ AҠŠӠšC-@%%) -96-C @5e @ @&(>:A%,C(ENTER NUMBER OF PLAYERSGe @)!@@ s @,1/@9C/@9@U/@g/@s6-A^ @0(>:A%,6( ENTER SPEED (1 TO 4):@6-^ @)!@@0#& BF:AV,& A(( A -T-&@'%@ + 7TTURN ON STICKS AND PLAYERS01** MAIN GAME LOOP **2P F:,6-&@:2A@@FP @`7JR:,@(6-%@%J2@@@<^ @&-@6@A%H:,$@%@E ^RANDOM PLAYER MOVEMENTA<"@&%@R:,<**CREATE "SHADOW"**FL6-%@*F:B2y,"@66-B6-@L A KQ%2+!96-%@G6-%AQ APF(>:A%,.(SCORE  SPEED 2F @@PRF F:,-@,%0 <F @U @PXY##**CHANGE SHAPES AND EXPLODE**Z 6.6.6._F-@@P36-P:H:,$A`,%@F6.7<%@,d<2@@+A<6-H:,$@iBF:,&$@ B2nO!A@@3@E@ O A sm,(>:A%,Š YOUR SCORE M(PRESS START FOR MORE PLAYERSm(PRESS TRIGGER FOR SAME PLAYx:F:B2y,"@$6-@06-: A@}FT:,"06-@5&+@ $,<6-F A@P"F:@,"@&$@.6-@:6-@F6-@P A@ A O A#B"+-A$Au/"59 O A &+@ $,I (}6-6-A'6-3EAdAUI ***INCREASE SPEED*****K 0F:@ ,@5F:AV,"@8$KSPEED LIMIT OF 4'-AVAu'(F:,A F:, @ F:,!A AV&K"2F:,@@& H2K$*+ ***SET SHAPES FOR TITLE***,; 0F:B7p,@&6.,6.26.86.;$>?##***RESET PLAYERS TO NORMAL***@ 6.6.6.6.$'#(#ӤӠΠś)#*#!!*THESE ARE NECESSARY LINES*+#,#*FIRST DETERMINE P/M MEM*-#6-F:A,&@0#1#*PLAYER DATA STRINGS*2#<<;@,;@,;@,;@,;A,5#6#**DEFINE PLAYER SHAPES**7#G #A!-@@%"167,.>:,5 GA@@8###0,127,103,103,103,103,127,127<#=-@@"'67,.>:,+ =AAH=#0,14,28,28,28,12,12,62A#=-@@"'67,.>:,+ =AAB#0,127,115,3,127,79,64,127F#=-@@"'67,.>:,+ =A@pG#0,127,79,31,14,103,127,62H#I#""**FOLLOWING LINES OPTIONAL**J#O# *** PAINLES$ REGISTERS ***P#36-A$6-A('6-A236-ART#*** SYSTEM REGISTERS ***U#?6-B2H6-B2V'6-B2R36-B2`?6-B2xX#Y#""**ADDITIONAL PLAYER SHAPES**Z#]];@,;@,;@,;@,;@,;@,;@,;@,_#K-@@"'67,.>:,+ K129,126,90,255,189,195,126,60d#I-@@"'67,.>:,+ I255,255,189,60,60,60,60,126i#K-@@"'67,.>:,+ K24,60,126,231,231,255,231,231n#M-@@"'67,.>:,+ M127,255,255,224,239,231,255,127r#**STORE SHAPE DATA**s# 6.6.6.6.'נԠРŠ'ĠΠӮқ$'/ #B"!-A$Au%"+/ %'Ϡӛ&'90,110,130,150''Ϡӛ('20,58,68,78)'Ϡ˛*' 0,0,0,0+'ϠЯϠԛ,'16,25,25,25-'Ϡ͠ԛ.'88,79,79,79/'ϠԠԛ0'48,57,57,571'ϠԠԛ2'200,191,191,1913'РŠӛ4' 0,0,0,05'ϠÛ6'1,1,1,0,255,255,255,0,0,07'ϠÛ8'1,255,0,0,1,255,0,0,1,2559'B'!!ŠҠˠԛC'!!ǠĠӤt' #B6-u'5 B`6-%@"+67,.>:,5 Bv',,173,28,4,240,3,76,98,228,216,162,0,189x'++8,4,201,16,144,3,189,120,2,201,15,240z'++74,56,233,5,48,69,168,185,32,4,24,125|'))0,4,141,78,4,189,12,4,240,13,173,78~'**4,221,20,4,144,11,221,24,4,176,6,173'&&78,4,157,0,4,185,42,4,24,125,4,4'++141,78,4,189,12,4,240,13,173,78,4,221'))12,4,144,11,221,16,4,176,6,173,78,4'---# OF STICKS---*----',,157,4,4,232,224,4,208,163,162,0,142,76'))4,189,56,4,133,0,189,60,4,133,1,189'''64,4,133,2,189,68,4,133,3,189,0,4'++157,0,208,188,52,4,189,72,4,170,169,0'--141,77,4,145,0,200,202,208,250,174,76,4'''189,4,4,45,79,4,157,52,4,141,78,4'**189,72,4,170,172,77,4,177,2,172,78,4'--145,0,238,77,4,238,78,4,202,208,237,238'---# OF PLAYERS----*-----'0076,4,174,76,4,224,4,208,164,76,98,228,0,-1''ĠΠР'/ #Bb!-A6AF%"+/ '))216,104,201,11,240,3,76,116,228,104'''104,141,79,4,133,2,240,10,201,128'%%208,240,169,0,133,3,240,4,169,1'''133,3,104,133,1,104,133,0,208,222'%%170,240,13,165,0,24,101,2,133,0'$$165,1,101,3,133,1,165,0,157,56'##4,165,1,157,60,4,172,79,4,169'&&0,145,0,136,208,251,104,157,68,4'))104,157,64,4,104,104,240,174,157,72'&&4,232,224,4,208,203,142,28,4,206'**79,4,104,170,104,168,169,7,76,92,228' ̠ӤϠΛ' ҠŠŠΛ'jjX=USR(1536,0,(PMBAS*256)+1024,ADR(P0$),8,ADR(P1$),8,ADR(P2$),8,ADR(P3$),8,ADR(PAINLES$)):POKE 559,62' ҠŠŠΛ'yg6-?:A6<A(<+$AV,%A