prgmB5INPUT (Uncommented)

prgmB5INPUT (Stand-alone) (Non-commented)
WRITTEN BY: Toothless the Night Fury
LANGUAGE: TI-BASIC
TOTAL BYTES: 538
VARS USED: A,B,K,Str0,Str1

:0->Xmin
:94->Xmax
:0->Ymin
:62->Ymax
:"                                                                                            ->Str0
:Horizontal 6
:Text(0,83,"abc
:">->Str1
:Text(57,0,Ans
:DelVar A
:While 1
:Repeat 34<Kmin(K!={44,45,95,94not(A
:B+1->B
:Text(57,0,Str1+sub("_   ",1+(Ans<18),3
:Ans(Ans<36->B
:getKey->K
:If not(Ans
:End
:If Ans=105
:Return
:If max(Ans={23,45
:Then
:DelVar B
:Ans=23
:sub(">"+Str1,1+Ans,1+Ans(length(Str1)-2->Str1
:Text(57,0,Ans+Str0
:End
:If K=31
:Then
:not(A->A
:Text(0,83,sub("abc123",1+3Ans,3
:End
:End
:DelVar B
:Text(57,0,Str1+"
:K
:sub("abc  defghijklmnopqrstuvwxyz    .-",Ans-20-5int(.1Ans),1
:If 71<AKmin(K!={45,75,81,85,104
:sub("789  456  123  0.",K-36-5int(.1K),1
:Str1+Ans->Str1
:Text(57,0,Ans
:End
:End