yan.bas

 rem Generated 3/31/2014 4:07:41 PM by Visual bB Version 1.0.0.558
 rem **********************************
 rem *<filename>                      *
 rem *<description>                   *
 rem *<author>                        *
 rem *<contact info>                  *
 rem *<license>                       *
 rem **********************************


 playfield:
 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
end
 player0x=50:player0y=50
 player1x=20:player1y=20
 missile0height=4:missile0y=255
 NUSIZ0=16

sprites

 player0:
 %01000100
 %00101000
 %00010000
 %00010000
 %01111100
 %00010000
 %00111000
 %00111000
end
 player1:
 %00100100
 %00100100
 %00100100
 %00100100
 %11111111
 %00011000
 %00111100
 %00011000
end

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

 COLUBK = $40
 COLUPF = $1E
draw_loop
 drawscreen
 goto sprites