RosettaCodeData/Task/String-length/BASIC/string-length-3.basic

10 INPUT a$
20 LET b$=""
30 FOR x=1 TO LEN a$
40 LET k=CODE a$(x)
50 IF k<32 OR k>164 THEN GOTO 70
60 LET b$=b$+a$(k)
70 NEXT x
80 PRINT LEN b$
Family Day update 2020-02-17 23:21:07 -08:00			`10 INPUT a$`
			`20 LET b$=""`
			`30 FOR x=1 TO LEN a$`
			`40 LET k=CODE a$(x)`
			`50 IF k<32 OR k>164 THEN GOTO 70`
			`60 LET b$=b$+a$(k)`
			`70 NEXT x`
			`80 PRINT LEN b$`