Sorry for double-post
But i concider this an "update"

This is my way of doing it, it's kinda the same but not as optimised as squidget's code, and it's probably slower with some bugs cause it's out of my head

.smtscrll

.tiles (black and white)
[0000000000000000]-> pic0
[FFFFFFFFFFFFFFFF]

.sprite 8*8 stored in pic1

.map (15*10)
[010101010101010101010101010101]->GDB0
[010000000000000000000000000001] .this one 8 times
[010101010101010101010101010101]


.initialize vars (x=x-pos , y=y-pos , c=horizontal scroll, d= vertical scroll)

0->C->D+8->X->Y

.till [clear] is pressed
Repeat Getkey(15)
MOVE()
MAP()
.2 subroutines are called
Pt-on(X,Y,pic1)
DispGraph
End

Lbl MOVE
X+(Getkey(3) and (X<88))-(Getkey(2) and (X>0))->X
C+(Getkey(3) and (X=88))-(Getkey(2) and (X=0))->C

.only change X when it's on screen If it's on border of screen the change the scroll var (same for Y)

Y+(Getkey(1) and (Y<56))-(Getkey(4) and (Y>0))->Y
D+(Getkey(1) and (Y=56))-(Getkey(4) and (Y=0))->D

Return

Lbl MAP

For(A,C/8,C/8+12)
For(B,D/8,D/8+8)
Pt-on(A*8-C,B*8-C,{15*B+A+GDB0}*8+pic0)
.so this says: draw the map, where 15=the length of the map
End
End
Return

.end of program, no collision detection yet but easy to implement... Question? Ask me...

And this doesn't include collision detection yet, but it's easy to implement...

Edit1: forgot to paste code

Ok np, then i'll do it 1) out of my head or 2) tommorow xp


Edit: does the character move and then map scroll, or does the character always stays on the same possition?

Id noone has solves it , i'll answer tommorow, now i can't do all of it out of my head (i actually can but it would take a long time to type on ipod + i can't see your source)

Nice. Is the source also in the .zip? (Can't view on ipod) for people who would want to optimise it themself...?

Wooow nice to see this is still active
Looks cool so far...

I just had the same error and my post also came through

{^r}

Shouldn't it be ^r
?

Use something like:

for(X,0,11)
For(Y,0,7)
pt-on(X*8,Y*8,{<number of rows> * C + D + GDB0}*8+Pic0)
End
End

GDB0 = mapdata
Pic1= all the tiles...
C = 'X'-var (if moved right, raise one, if moved left, lower 1, initialise with 0 (or whatever row you wanna start on))
D = 'Y'-var

Set up pic0 like this
[0000000000000000]->pic0
[FFFFFFFFFFFFFFFF]

That means, if the map says 00 , it will pic the 0*8 +pic0 tile, which is the empty one
And if map says 01 , it will take the 1*8+pic0 tile, which is the full black one

Do you get it?
Any questions? (If there's a misstake, it's from the head + on ipod)