100 REM ------------------------------
110 REM -                             -
120 REM -       "[210][197][211][195][210][193][212][195][200]"           -
130 REM - STELLT EIN GELOESCHTES FILE -
140 REM -        WIEDER HER           -
150 REM -                             -
160 REM -------------------------------
170 :
180 REM ***** HAUPTPROGRAMM *****
190 :
200 AD=$EFBB
210 (null) 18,0,AD
220 PRINTCHR$(147)CHR$(14)CHR$(8)
230 :
240 (null) LESEN
250 (null) SCHLEIFE
260 : (null) NAME
270 : (null) AENDERN
280 (null) SCHLEIFE
290 :
300 REM ***** UNTERPROGRAMME *****
310 :
320 (null) LESEN
330 : (null)
340 : IF (null)<>0 THEN END
350 : N=0
360 RETURN
370 :
380 (null) NAME
390 : N=N+1
400 : IF N>8 THEN (null) LESEN:(null) NAME
410 : PT=(N-1)*32+2
420 : A=PEEK(AD+PT)
430 : IF A<>0 AND A<>128 (null) NAME
440 : A=PEEK(AD+PT+1)
450 : IF A=0 (null) NAME
460 : FOR X= 3 TO 18
470 :  PRINTCHR$(PEEK(AD+PT+X));
480 : NEXT X
490 RETURN
500 :
510 (null) AENDERN
520 : PRINT"  [210][197][211][195][210][193][212][195][200]? [J/N] [146]";
530 (null) TASTE: GET W$:IF W$="N" (null) ENDE
540 :            IF W$<>"J" (null) TASTE
550 : PRINT W$;
560 : POKE AD+PT,$80+2
570 : (null)
580 (null) ENDE
590 : PRINT:PRINT
600 RETURN