prgmAR01: General Routines(walking, tilemapping, textbox)

:.0:
:Stop
:.TILE
:ClrDraw
:Pt-Change(0,M,T,W',X',Y',0
:Line(80,0,64,16,1
:Line(81,1,62,14,0
:Pt-On(0,S+F'*8,Y*8,X,1,8
:Y+Y'
:*W'
:+X'+X
:→T'
:Text('0,0,T'
:Text('0,21,X'
:Text('6,21,Y'
:DispGraph
:End
:.MOVE
:getKey→H
:F'
:If H=1
:0
:If H=4
:1
:If H=2
:2
:If H=3
:3
:→F'
:0→G
:X'
:If H=2 *!(M+T'-1) *X' *X=5
:1→G X'-1
:If H=3 *!(M+T'+1) *X=5 *W'≠X'+10
:1→G X'+1
:If W'<X'+10
:X'
:→X'
:X
:If H=2 *!(M+T'-1) *!G
:-1
:If H=3 *!(M+T'+1) *!G
:+1
:If  >9
:X
:→X
:0→G
:Y'
:If H=4 *!(M+T'-W') *Y' *Y=4
:1→G Y'-1→Y'
:If H=1 *!(M+T'+W') *Y=4 *H'≠Y'+8
:1→G Y'+1→Y'
:If H'<Y'+8
:Y'
:→Y'
:Y
:If H=4 *!(M+T'-W') *!G
:-1
:If H=1 *!(M+T'+W') *!G
:+1
:If  >7
:Y
:→Y
:End
:.TEXT
:Fix Text(A'
:0→B'
:If Y>4
:1→B'
:Line(0,B',22,80,1
:Line(1,1+B',20,78,0
:/Text(2+B',1,N
:/Text(8+B',1,O
:/Text(14+B',1,P
:Pxl-On(19+B',76
:DispGraph
:Repeat getKey=9
:End
:Pause 15
:End
: