By the way, I think I forgot to mention during the last update the additional uses for the inData() command because its more powerful than it looks.

First thing, yes, it can be used to find the position of a character in a string:
inData('I',"IGNITION")->L
To find the second, third, etc. instance of 'I', you could loop through this.
inData('I',"IGNITION"+L)->L
This moves the pointer to the spot directly after the last character found so it starts looking at the 'G' until it gets to the end.

Another use for this is to see if a number is part of a specific group.  The only problem with this is that 0 is always found at the end since its the terminating character.  So you should check for 0 before using the inData() command usually.  Another thing to mention is that inData() only works with bytes so make sure you guarantee that your input is restricted to numbers between 0 to 255 or -128 to 127.

.Inefficient
If (A=3 or (A=5) or (A=20) or (A=28) or (A=61))
.Some code
End

.Efficient
If A
  If inData(A,Data(3,5,20,28,61,0))
  .Some code
  End
End
This is probably unnoticeable slower, but its much smaller and the routine is a subroutine so using it more than once in your program will definitely be a large size optimization.

Ow just the thing I needed, thank you

Nice, that could become useful eventually

I've seen some people wanting to use Text input routines, so here's the one I use in Axe Snake, SpiderAx, and Jump.  Press Second when done typing, del to backspace, and Clear to quit.
At the end of the routine, the string is null terminated and begins at L1.  It also Displays it again because I wanted to show how to display it and waits for you to press second again.

If you use this routine, you may credit me, but it is not necessary.

Yes.  There's a comment in the source just before the line that would need to be changed.

/\Very! thanks
since i havent seen one put out for display yet, here is a smoothscrolling tilemapper(works for left/right and up/down)
this is also partially for my own benefit because i have a lot riding on this routine and if there's anywhere it can be optimized it would be nice to know =D
:0->A->BClrDraw
:For(L,0,11:For(M,0,7
:Pt-on(L*8,M*8,{M*[MapWidth]+8+[MapData]}*8+[TileData]
:End:End
:StorePic
:Repeat getkey(15)
:If getkey(3) xor getkey(2)
::If getkey(3)
:Horizontal -
:For(L,0,8
:Pt-Off(95-(A^8),L*8-(B^8),{B/8+L*[MapWidth]+12+(A/8)+[MapData]}*8+[TileData]
:End:A+1->AElse
:Horizontal +
:For(L,0,8
:Pt-Off(1-(A^8),L*8-(B^8),{B/8+L*[MapWidth]+(A/8)+[MapData]}*8+[TileData]
:End:A-1->AEnd
:End
:If getkey(1) xor getkey(4)
:If getkey(1)
:Vertical -
:For(L,0,12
:Pt-Off(L*8-(A^8-(A^8),63-(B^8),{B/8+8*[MapWidth]+L+(A/8)+[MapData]}*8+[TileData]
:End:B+1->BElse
:Vertical+
:For(L,0,12
:Pt-Off(L*8-(A^8),1-(B^8),{B/8*[MapWidth]+L+(A/8)+[MapData]}*8+[TileData]
:End:B-1->BEnd
:End
:Dispgraph
:Endthis can be easily converted to do gray as well, although you shouldn't use vertical scrolling and the axe grayscale routines together as the result will look gross. also, make sure that A and B remain greater than 0, or you'll end up with errors

well, you do need a tileset(8*8 monochrome) and map data(anything larger than 13*9) as well, but all the code is there, yes.
if you really want one i can post an .8xp tomorrow-ish. i have work to do right now, though.