10 REM ++++++++++++++++++++++++++++++++
20 REM ! Program ....   BAKL[NGS
30 REM ! Utg}va  1.0    81.12.17
40 REM ! av (c) KURT STEINRUD
50 REM ! Minne 16 Kbytes
60 REM ! Ins{nt av 1489
70 REM ++++++++++++++++++++++++++++++++
80 REM ! MAX 118 TECKEN
90 REM ! F\RMEDLAT 10/81 "TOJ"
100 REM +++++++++++++++++++++++++++++++
110 REM **************************
120 REM 
130 ; CHR$(12%)
140 ; 'SKRIVA BOKST[VER OCH SIFFROR BAKL[NGES'
150 ; ''
160 ; : ; 'Mellanslag {r till}tna'
170 FOR T=0 TO 3000 : NEXT T : ; CHR$(12%)
180 ; : ; 'Vilket uttryck (bokst{ver/siffror) ? '
190 ; : ; 
200 INPUTLINE X$ : X$=LEFT$(X$,LEN(X$)-2) : ; : ; 
210 FOR I=LEN(X$) TO 1 STEP -1
220 ; MID$(X$,I,1);
230 FOR T=0 TO 150 : NEXT T
240 NEXT I
250 ; : ; : ; : ; 'Antal tecken (inkl mellanslag):'LEN(X$)