Очень базовая версия для AMOS Basic на Amiga & mdash; только рассматривает пробелы как разделители слов. Я уверен, что есть лучший способ использовать PEEK и POKE, но моя память довольно ржавая с чем-то более 15 лет.
FILE$=Fsel$("*.txt")
Open In 1,FILE$
Input #1,STR$
STR$=Lower$(STR$)
L=Len($STR)
LAST$=" "
NEW$=""
For I=0 to L-1
CUR$=MID$(STR$,I,1)
If LAST$=" "
NEW$=NEW$+Upper$(CUR$)
Else
NEW$=NEW$+$CUR$
Endif
LAST$=$CUR$
Next
Close 1
Print NEW$
Я скучаю по старой доброй AMOS, замечательному языку для изучения ... хотя и ужасно, хе.