Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- xof1=1016
- yof1=1016
- xof2=1016
- yof2=1016
- scratv=0
- scratvl=16
- trgp=0
- trgv=0
- VidMode VID32CELL
- pokeint &hc00004,&h8700+&h0f '- border colour
- palette &h0FF,0,&h0f
- for y=0 to 7
- for x=0 to 7
- settextplane scroll_a
- setscrollplane scroll_a
- color 1,0,0,0
- locate x*8,y*8
- print x;",";y;" "
- settextplane scroll_b
- setscrollplane scroll_b
- color 2,0,0,0
- locate x*8,y*8
- print x;",";y;" "
- next
- next
- do
- a=JoyPad(0)
- if (a.6) and trgp=0 then
- trgp=1
- trgv=trgv+1
- end if
- if (1-a.6) then
- trgp=0
- end if
- if trgv>1 then
- trgv=0
- end if
- if trgv=0 then
- palette &hEB0,1,&h01
- color 1,0,0,0
- settextplane scroll_a
- setscrollplane scroll_a
- xof1=xof1+(a.11)-(a.10)
- yof1=yof1+(a.9)-(a.8)
- scroll2 right,xof1
- scroll2 down,1023-yof1
- locate 0,0
- print a;" "
- print xof1;" "
- print yof1;" "
- else
- palette &h70E,2,&h01
- color 2,0,0,0
- settextplane scroll_b
- setscrollplane scroll_b
- xof2=xof2+(a.11)-(a.10)
- yof2=yof2+(a.9)-(a.8)
- scroll2 right,xof2
- scroll2 down,1023-yof2
- locate 0,0
- print a;" "
- print xof2;" "
- print yof2;" "
- end if
- print
- print a.6
- print
- print a.8
- print a.9
- print a.10
- print a.11
- sleep 1
- loop
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement