Anonymous
public text v1 · immutablealias validate {
var %i = 1
var %chr_err = 0
while (%i <= $len($1)) {
var %check = $asc($mid($1,%i,1))
if (((%check >= 48) && (%check <= 57)) || ((%check >= 97) && (%check <= 122)) || ((%check >= 65) && (%check <= 90))) { }
else inc %chr_err
inc %i
}
if (%chr_err >= 1) { echo -a Invalid Character ; %chr_err errors }
else { echo -a Valid }
}