:.A
:0->X->Y
:1->S
:Tangent(0,0,GDB1TMAP)
:
:Repeat getKey(15)
:For(S)
:If X<159
:If getKey(3)
:X++
:Horizontal -
:F5(0,63,95,)
:End
:End
:
:If X>0
:If getKey(2)
:X--
:Horizontal +
:F5(0,63,0,)
:End
:End
:
:If Y<127
:If getKey(4)
:Y++
:Vertical -
:F5(0,,,95)
:End
:End
:
:If Y>0
:If getKey(1)
:Y--
:Vertical +
:F5(63,,0,95)
:End
:End
:End
:DispGraph
:End
:Return
:
:.refresh the erased column or line
:Lbl F5
:For(I,r1,r2)
:For(J,r3,r4)
:If I+Y*192+X+J->r5/8+GDB4MAP+2er5^8
:Pxl-On(J,I)
:Else
:Pxl-Off(J,I)
:End
:End
:End
:Return
:
:
:.stupid map, just for the test
:[FFC0]->GDB1TMAP
:[5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C]->GDB4MAP
:[C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5]
:[5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C]
:[C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5]
:[5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C]
:[C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5]
:[5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C]
:[C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5]
:[5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C]
:.with 60 more lines like this :P