So this is what I did, and my code is a step closer to SUCCESS!
sync on:sync rate 60
sync
HIDE MOUSE
LOAD SOUND "rage theme.wav", 5
LOAD IMAGE "background.bmp", 1
LOAD IMAGE "game spriteII.png", 2
LOAD IMAGE "title.png", 3
LOAD IMAGE "box.png", 4
REPEAT
INPUT "Enter section of game (1-4)", no
SELECT no
CASE 1
MainMenu()
ENDCASE
CASE 2
Background()
ENDCASE
CASE 3
character()
ENDCASE
CASE 4
boxes()
ENDCASE
ENDSELECT
UNTIL no = 5
FUNCTION MainMenu()
sync
SPRITE 3, 10, 300, 3
FOR thrust=1 TO 24
MOVE SPRITE 3, thrust
NEXT thrust
PLAY SOUND 5
ENDFUNCTION
FUNCTION Background()
SPRITE 1, 0, 0, 1
ENDFUNCTION
FUNCTION character()
REPEAT
SPRITE 2, x#, y#, 2
OFFSET SPRITE 2, 0, -272
if rightkey() then x# = x# + 3
if leftkey() then x# = x# - 3
if upkey() then y# = y# - 3
if downkey() then y# = y# + 3
sync
UNTIL INKEY$()= "p"
ENDFUNCTION
FUNCTION boxes()
SPRITE 4, 300, 380, 4
ENDFUNCTION
END
!!Saluda guey!!