'ProgramMode:RUN
'DRAW SCREEN
W-1
For 1->A To H
Locate 1,A,StrMid(Str 1,WA-Ans,W)
Next
Locate 1,1,M
Locate 3,1,N