1 REM BEISPIELPROGRAMM
2 REM MODULARES PROGRAMMIEREN (2)
10 INPUT"DEIN VORNAME";N$
20 PRINT
30 PRINT"1.VERDOPPELN"
40 US$=N$:UX=2:GOSUB61060:PRINTUS$:D$=US$
50 PRINT:PRINT"2. EINFUEGEN Z.B. VON 'MITTE'"
60 US$=N$:UI$="MITTE":UP=INT(LEN(N$)/2+1):GOSUB61070:PRINTUS$:M$=US$
70 PRINT:PRINT"3.LOESCHEN ZWEIER MITTEBUCHSTABEN"
80 US$=N$:UP=INT(LEN(N$)/2):UZ=2:GOSUB61100:PRINTUS$:Z$=US$
90 PRINT:PRINT N$: PRINT D$,M$,Z$
100 END