Dom Atari Spaz invaders

 rem Generated Sunday/23/12/2012 13:15:32 by Visual bB Version 1.0.0.548
 rem **********************************
 rem *<filename>                      *
 rem *<description>                   *
 rem *<author>                        *
 rem *<contact info>                  *
 rem *<license>                       *
 rem **********************************


 playfield:
 ................................
 ..XXX................X..X..X....
 ..X..X..X...X.X.......X.X..X..X.
 ..X..X.X.X.X.X.X.......XXXX..X..
 ..X..X.X.X.X...X.......XXXXXX...
 ..XXX...X..X...X.....XX.........
 ....................X....XX..X..
 ...................XX...X.X..X..
 .................XX..X.X..X...X.
 .................X.X.XX..X...X..
 ..................XXX.....XXX...
end


 COLUBK = $5E
 COLUPF = $21

 player0x=50:player0y=50
 player1x=20:player1y=20
 missile0height=4:missile0y=255

 NUSIZ0 = 16

sprites

 player0:
 %10010100
 %10001010
 %01000101
 %01000101
 %01001001
 %10000010
 %00000100
 %00001000
end

 player1:
 %00111000
 %00111100
 %01111110
 %11111110
 %00001110
 %00010110
 %00100110
 %01000110
end

 if missile0y>240 then goto skip
 missile0y = missile 0y-2:goto draw_loop
skip
 if joy0fire then missile0y = player0y-2:missile0x = player0x+4


draw_loop
 drawscreen
 goto sprites