0 REM  ***  SCR.RENAME  ***
1 REM  DAZU ZEILE 65 ABAENDERN !!
2 REM  NAME1 = N1  *  NAME2 = N2               NAME3 = N3  *  NAME4 = N4
3 REM              *
4 :
5 :N1=49686 : N2=N1+8
10 N3=N2+8  : N4=N3+8
15 :
20 PRINT CHR$(147) :PRINT
25 PRINT" SCREEN-NAME (MAX.8 STELLEN):"
30 PRINT :PRINT " ";
35 :
40 INPUT N$ :N=LEN(N$)
45 IF N>8 THEN 20
50 IF N<8 THEN N$= N$+CHR$(32) :N=N+1   :  GOTO50
55 :
60 FOR I=1 TO N
65 :  POKE N1+I,ASC(MID$(N$,I,1))
70 NEXT
75 END