1 REM +++++++++++++++++++++++++++++++++
2 REM ! Program ....   CAPEDIT
3 REM ! Utg}va  ??     1980-12-??
4 REM ! av (c) GUNNAR TIDNER
7 REM ! Minne 16 Kbytes
9 REM +++++++++++++++++++++++++++++++++
1000 REM SUB-rutin som editerar text
1010 REM till Stor Inledande Bokstav I
1020 REM Varje Ord Av G Tidner Dec 1980
1030 REM Input X$, Output X$
1040 REM lokala var :    X0%,X1%,X9%,X0$,X1$
1050 X0%=0% : X0$=""
1060 FOR X9%=1% TO LEN(X$)
1070 X1%=ASC(RIGHT$(X$,X9%))
1080 IF X1%<64% THEN X1$=CHR$(X1%) : X0%=0% : GOTO 1110
1090 IF X0% THEN X1$=CHR$(X1% OR 32%) ELSE X1$=CHR$(X1% AND 223%)
1100 X0%=1%
1110 X0$=X0$+X1$
1120 NEXT X9%
1130 X$=X0$ : RETURN