Zeichensatz UTF-8+Z1013()+CTRL()-ohne Umlaute(äöüß)

10 REM  HEADERSAVETRANSFER       
20 A=H.(3C00)
30 B=H.(3800)
40 INPUT"NEUE STARTADRESSE"D
50 E=D/256
55 F=A/256
60 FORI=0TO1023
65 PO.D+I,PEEK(A+I)
70 C=PE.(A+I);IFC#PEEK(B+I)POKED+I,E+ABS(F-C);WORD(D+I)
80 NEXT I
1000 REM