set kernel_options no_blank_lines set romsize 2k const noscore=1 beginning playfield: .XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX .X.............................X .X..X..X..X..X..X..X..X..X..X..X .X..X..X..X..X..X..X..X..X..X..X .X..X..X..X..X..X..X..X..X..X..X .X.............................X .X..X..X..X..X..X..X..X..X..X..X .X..X..X..X..X..X..X..X..X..X..X .X..X..X..X..X..X..X..X..X..X..X .X.............................X .XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX end player0: %00011110 %00110011 %11110001 %00110000 end player1: %00111100 %01111110 %11111111 %01111110 %00111100 end player0score=$20 not_new_game if joy0fire then goto new_game goto main new_game s=0 : player1score=0 : player0score=0 : f=0 new_game_2 v=255 : m=255 player1x=25 : player1y=25 player0x=133 : player0y=79 get_new_present ballx=rand/2 if ballx<27 then ballx=ballx+27 bally=(rand/4)+15 main ballheight=2 CTRLPF=$21 COLUBK=$C6 COLUP1=26 : COLUP0=26 player1scorecolor=26 AUDV0=z : AUDC0=z : AUDF0=z*4 drawscreen if collision(player1,player0) then player0score=addbcd(player0score, 3) : goto new_game_2 if player0score>$19 then goto not_new_game if y=0 then y=1 : player0score=addbcd(player0score, 1) if collision(ball,playfield) then ballx=ballx+1 if collision(player1,ball) then player1score=addbcd(player1score, 1): z=4 : goto get_new_present move_enemy s=s+1 if s<2 then y=y+1 : goto move_player s=0 : z=0 m=m+1 if m>11 && n>2 then goto get_enemy_dir if m>31 then goto get_enemy_dir goto enemy_main get_enemy_dir m=0 if player0yplayer1y then n=1 : goto enemy_main if player0x