:ClrHome
:Input "TYPE SOMETHING: ",Str1
:1->A
:1->B
:1->C
:1->D
:17-length(Str1)->E
:While 1
:ClrHome
:Output(A,B,Str1)
:A+C->A
:B+D->B
:If A=1:1->C
:If B=1:1->D
:If A=8:-1->C
:If B=E:-1->D
:End