Z:@(0,0):"Press s to stop"6)Z"This routine validates string inputs for numbers"2Z A$: A$="s"  PZ"valid"(,SZ T<>(A$) A$" Is not a number": 2'xZ T=(A$) A$" Is a number": <Z:F Z"valid"P ZT=(A$)UZ"ASCII code...";ZZ I=1 (A$)dZTEMP$=(A$,I,1)nZA=(TEMP$):A;xZ A<48 A>57 T=T-1 [[[)UZ"ASCII c