100 REM *******************************
110 REM *   MINI-EDITOR FUER GROSSE   *
120 REM *                             *
130 REM *      LAUFSCHRIFT            *
140 REM *                             *
150 REM *******************************
160 REM
170 REM
180 REM
190 ADRESSE=50944
200 INPUT"TEXT";A$
210 PRINT"[147]"A$
220 IF ADRESSE>53160 THEN PRINT"ZU VIEL TEXT!!!!":ADRESSE=ADRESSE-5:GOTO270
230 FORI=0TOLEN(A$)
240 POKE ADRESSE+I,PEEK(1024+I)
245 IF PEEK(1024+I)=32 THEN POKE ADRESSE+I,27
247 NEXT
250 ADRESSE=ADRESSE+LEN(A$)
260 INPUT"NOCH MEHR";B$:IF B$="J"THEN 200
270 FORI=0TO5:POKEADRESSE+I,0:NEXT
280 SYS 49152