8 lines
148 B
Text
8 lines
148 B
Text
15 GOSUB 90
|
|
80 STOP
|
|
90 LET T$=""
|
|
100 FOR I=1 TO LEN S$
|
|
110 IF S$(I)>="A" AND S$(I)<="Z" THEN LET T$=T$+S$(I)
|
|
120 NEXT I
|
|
130 LET S$=T$
|
|
140 RETURN
|