set kernel_option no_blank_lines playfield: ................................ .XXXXXXX........................ XXXXXXXX........................ XXXXXXXX........................ XXXXXXXX........................ XXXXXXXX........................ XXXXXXXX........................ ................................ ................................ ................................ ................................ ................................ end player1: %1111 %1001 %1001 %1001 %1001 %1001 %1111 end a=1 : b=0 : c=0 : d=0 : e=0 : f=0 i=13 : j=15 main player1x=i : player1y=j o=(i-13)/4 : p=j/8 if joy0right then h=h+1 if joy0right && h>10 then h=15 if h=15 && i<41 then gosub decide_movement if joy0left then k=k+1 if joy0left && k>10 then k=15 if k=15 && i>13 then gosub decide_movement if joy0up then l=l+1 if joy0up && l>10 then l=15 if l=15 && j>16 then gosub decide_movement if joy0down then m=m+1 if joy0down && m>10 then m=15 if m=15 && j<55 then gosub decide_movement drawscreen goto main decide_movement q=i : r=j if l>14 then r=r-8 if m>14 then r=r+8 if h>14 then q=q+4 if k>14 then q=q-4 h=0 : k=0 : l=0 : m=0 if r=15 then gosub its_a if r=23 then gosub its_b if r=31 then gosub its_c if r=39 then gosub its_d if r=47 then gosub its_e if r=55 then gosub its_f o=(i-13)/4 : p=j/8 if s=1 then pfpixel o p flip drawscreen s=0 return its_a if q=13 && !a{0} then i=13 : a{0}=1 : j=r : s=1 : return if q=17 && !a{1} then i=17 : a{1}=1 : j=r : s=1 : return if q=21 && !a{2} then i=21 : a{2}=1 : j=r : s=1 : return if q=25 && !a{3} then i=25 : a{3}=1 : j=r : s=1 : return if q=29 && !a{4} then i=29 : a{4}=1 : j=r : s=1 : return if q=33 && !a{5} then i=33 : a{5}=1 : j=r : s=1 : return if q=37 && !a{6} then i=37 : a{6}=1 : j=r : s=1 : return if q=41 && !a{7} then i=41 : a{7}=1 : j=r : s=1 : return return its_b if q=13 && !b{0} then i=13 : b{0}=1 : j=r : s=1 : return if q=17 && !b{1} then i=17 : b{1}=1 : j=r : s=1 : return if q=21 && !b{2} then i=21 : b{2}=1 : j=r : s=1 : return if q=25 && !b{3} then i=25 : b{3}=1 : j=r : s=1 : return if q=29 && !b{4} then i=29 : b{4}=1 : j=r : s=1 : return if q=33 && !b{5} then i=33 : b{5}=1 : j=r : s=1 : return if q=37 && !b{6} then i=37 : b{6}=1 : j=r : s=1 : return if q=41 && !b{7} then i=41 : b{7}=1 : j=r : s=1 : return return its_c if q=13 && !c{0} then i=13 : c{0}=1 : j=r : s=1 : return if q=17 && !c{1} then i=17 : c{1}=1 : j=r : s=1 : return if q=21 && !c{2} then i=21 : c{2}=1 : j=r : s=1 : return if q=25 && !c{3} then i=25 : c{3}=1 : j=r : s=1 : return if q=29 && !c{4} then i=29 : c{4}=1 : j=r : s=1 : return if q=33 && !c{5} then i=33 : c{5}=1 : j=r : s=1 : return if q=37 && !c{6} then i=37 : c{6}=1 : j=r : s=1 : return if q=41 && !c{7} then i=41 : c{7}=1 : j=r : s=1 : return return its_d if q=13 && !d{0} then i=13 : d{0}=1 : j=r : s=1 : return if q=17 && !d{1} then i=17 : d{1}=1 : j=r : s=1 : return if q=21 && !d{2} then i=21 : d{2}=1 : j=r : s=1 : return if q=25 && !d{3} then i=25 : d{3}=1 : j=r : s=1 : return if q=29 && !d{4} then i=29 : d{4}=1 : j=r : s=1 : return if q=33 && !d{5} then i=33 : d{5}=1 : j=r : s=1 : return if q=37 && !d{6} then i=37 : d{6}=1 : j=r : s=1 : return if q=41 && !d{7} then i=41 : d{7}=1 : j=r : s=1 : return return its_e if q=13 && !e{0} then i=13 : e{0}=1 : j=r : s=1 : return if q=17 && !e{1} then i=17 : e{1}=1 : j=r : s=1 : return if q=21 && !e{2} then i=21 : e{2}=1 : j=r : s=1 : return if q=25 && !e{3} then i=25 : e{3}=1 : j=r : s=1 : return if q=29 && !e{4} then i=29 : e{4}=1 : j=r : s=1 : return if q=33 && !e{5} then i=33 : e{5}=1 : j=r : s=1 : return if q=37 && !e{6} then i=37 : e{6}=1 : j=r : s=1 : return if q=41 && !e{7} then i=41 : e{7}=1 : j=r : s=1 : return return its_f if q=13 && !f{0} then i=13 : f{0}=1 : j=r : s=1 : return if q=17 && !f{1} then i=17 : f{1}=1 : j=r : s=1 : return if q=21 && !f{2} then i=21 : f{2}=1 : j=r : s=1 : return if q=25 && !f{3} then i=25 : f{3}=1 : j=r : s=1 : return if q=29 && !f{4} then i=29 : f{4}=1 : j=r : s=1 : return if q=33 && !f{5} then i=33 : f{5}=1 : j=r : s=1 : return if q=37 && !f{6} then i=37 : f{6}=1 : j=r : s=1 : return if q=41 && !f{7} then i=41 : f{7}=1 : j=r : s=1 : return return vblank COLUBK=14 : COLUP1=$9A if switchreset then reboot return