efNCHRDXDYSCREEBALSTABARHORIBARVERPPBBDDSTTPPOCHTEMPBTEMPBBPOBALLPOFLIXPLOD@@@ dnx盂&&9@,9@,9@,22Direction offsets for each joystick position68@,--68@,-C68@ ,-6@Y68@,-6@o68@,-6@68@,-@68@,-@68@,-@68@,--68@,-C68@,-6@Y68@,-6@o68@,-6@68@,-@68@ ,-@68@,-@..The character for each joystick Position68@,-@-68@,-@B68@,-@W68@,-@l68@,-@68@,-@i68@ ,-@68@,-@g&+@%@&No text window7AVA&7Use lower half of character set202Make hearts vanish&&Calculate screen memory address:%%6-F:@,%AV$F:@,?6-@ %A(+6-@s%A(?CTRL-T AND CTRL-IDraw a border:16-@%A(1Horizontal bar (CTRL-R)-@@ %"%A`%, 656-A$%A(5Vertical bar (SHIFT-EQUALS)@-@@"J%$@ T%@%$@ ^ h,,Do corners CTRL-Q,CTRL-E,CTRL-Z,CTRL-Crk@%A(3%@@i%A(O%A`@%A(k%Ay@g%A(|Put in random "stars"a-@@ 36-%P:A$H:,,BF:,"HaDon't overwrite border o6-@6-@6%%@ $8@,oPlaver X, Player Y. Put "up-arrow" character on screenj%6-P:@$H:@,%@,G6-P:@"$H:@,%@,jBall X, Ball Y Selected randomly86-@6-@8Direction offsets for ballMain loopCheck for player's move:6-R:,)"@A@)Let ball bounce00Temporary variables hold updated PX and PY 6-%8, X offset 1,0,-136-%8,3Same with Y. Table lookup is fast!26-%%@ $2Calculate current positionF:,"AHit ballF:,"A Hit starBF:,A@BIf wall hit, don't let player advance&Update player0SSTable lookup also replaces IF /THEN, and is ultimately more memory efficient:: 6-8,D6%%@ $6Erase previous characterN Place new oneX" 6-6-"Update variablesblLet ball have its turnv5 6-%6-%5DX and DY are direction offsets.6-%%@ $.Ball absolute position9'F:,!@d*F:, @A9Ball hit playerF:,"A0%%Any other collision is a bounce77Change direction of either X, Y, or both X and Y:)H:@,!?P6-6) A`)H:@,!?P6-6) A` 6-66-6 A`Update ball,%%@ $,Erase old ball Draw new ball' 6-6-'Update ball variables A`Hit ball, win!F6-%%@ $!6-A(FBALL POSITION, "FLIPPING" VARIABLE::FLIP is used to alternate two characters in one spot<<257-FLIP switches FLIP from 128 to 129, and vice-versaN-@@+-@@9@%NAF:B7p,X -@6@>2$@@B P6-AW&T X $%%STRANGE SOUND, FLASH BALL AGAIN.h -AU6@<2@@X2@@@dAh 8%UH-OH! Hit a star!-AA@?6-%?P?Advance character every other "I", from 1-5= %%@ $@e%P:,=Place a graphics character4A F:B7p,4More "cheap thrill" colorH62@&P:+&A,'@f,HExplosion sound  -%%@ $-Erase character Flash screen*0-@A,AF:B7p,0 4% D4:P122L1.BAS