set kernel_options pfheights player0x=45 : player0y=80 pfheights: 4 12 4 12 4 12 4 12 4 12 8 end b=0 player0: %0010100 %0010100 %1010101 %1010101 %1011101 %1011101 %0111110 %0001000 %0011100 %0011100 %0011100 end close_a_window playfield: ..XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX.. ..XX.....XX.....XX.....XX.....XX.. ..XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX.. ..XX.....XX.....XX.....XX.....XX.. ..XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX.. ..XX.....XX.....XX.....XX.....XX.. ..XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX.. ..XX.....XX.....XX.....XX.....XX.. ..XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX.. ..XX.....XX.....XX.....XX.....XX.. ..XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX.. end a=rand/64 if b=3 && a=0 then pfhline 4 3 8 on if b=3 && a=1 then pfhline 11 3 15 on if b=3 && a=2 then pfhline 18 3 22 on if b=3 && a=3 then pfhline 25 3 29 on if b=2 && a=0 then pfhline 4 5 8 on if b=2 && a=1 then pfhline 11 5 15 on if b=2 && a=2 then pfhline 18 5 22 on if b=2 && a=3 then pfhline 25 5 29 on if b=1 && a=0 then pfhline 4 7 8 on if b=1 && a=1 then pfhline 11 7 15 on if b=1 && a=2 then pfhline 18 7 22 on if b=1 && a=3 then pfhline 25 7 29 on if b=0 && a=0 then pfhline 4 9 8 on if b=0 && a=1 then pfhline 11 9 15 on if b=0 && a=2 then pfhline 18 9 22 on if b=0 && a=3 then pfhline 25 9 29 on main c=c+1 if player0y>78 then b=0 if player0y<78 && player0y>62 then b=1 if player0y<62 && player0y>40 then b=2 if player0y<40 then b=3 if player0y>81 then player0y=81 if c>240 then c=0 : goto close_a_window if joy0left then player0x=player0x-1 if joy0right then player0x=player0x+1 if joy0up && player0x>32 && player0x<45 then player0y=player0y-1 if joy0up && player0x>60 && player0x<73 then player0y=player0y-1 if joy0up && player0x>88 && player0x<101 then player0y=player0y-1 if joy0up && player0x>118 && player0x<130 then player0y=player0y-1 if joy0down then player0y=player0y+1 if !collision(player0,playfield) then player0y=player0y+1 if joy0down && player0y=16 then player0y=player0y+1 COLUPF=244 : COLUBK=128 : COLUP0=0 drawscreen goto main